.TITLE	DSW
;
; CONVERTS DSW ERROR CODE (IN WORD 0) TO ASCII (IN R0)
;
; WRITTEN   MAY 1975   R B FRENCH   THE BOEING COMPANY
;
DSW::	CLR	R0		;CLEAR R0
	MOV	0,R1		;PUT DSW IN R1
	NEG	R1		;NEGATE IT
	DIV	#10.,R0		;DIVIDING BY 10 PUTS UNITS IN R1, TENS IN R0
	ADD	#60,R0		;CONVERT TENS DIGIT TO ASCII
	SWAB	R0		;AND PUT IN HIGH BYTE
	ADD	#60,R1		;CONVERT UNITS DIGIT TO ASCII
	ADD	R1,R0		;AND PUT IT IN R0
	SWAB	R0		;SWAP BYTES
	RTS	PC		;AND RETURN
	.END