/004 BINARY TO DECIMAL CONVERSION AND TYPE; NO SIGN
/ROUTINE TO CONVERT A BINARY WORD TO DECIMAL AND TYPE IT.
/VALID FOR NUMBERS 0-4095. NO SIGN.
/IF USED FOR 3 DIGITS: DELETE 6030;-4=-3 DIGIT COUNT.
/
/	TAD WORD
/	JMS PRINTD
/	   RETURN	/AC=0

	6030		/-1000	CONVERSION CONSTANTS
	7634		/-100
	7766		/-10
	7777		/-1
	TAD .		/USED FOR CONV. CONSTANTS
	0		/DIGIT BCD TO BE TYPED
	0		/COUNTER
	260		/TO MAKE A CHAR.
	0		/SAVE AREA
	-4		/DIGITS TO BE TYPED (-4,-3,-2)
PRINTD,	0		/ENTER WITH WORD IN AC
	DCA PRINTD-2
	TAD PRINTD-1	/SET UP COUNT
	DCA PRINTD-4
	DCA PRINTD-5	/CLEAR BCD
	TAD PRINTD-6	/FETCH CURR. CONV. CONST.
	TAD PRINTD-4	/BY ADDING COUNT TO TAD
	DCA .+1
	HLT
	CLL
	TAD PRINTD-2	/VALUE - CONSTANT
	SNL		/OVERFLOW?
	JMP .+4		/NO,TYPE IT
	ISZ PRINTD-5	/YES,NEXT TRY
	DCA PRINTD-2
	JMP PRINTT+5
	CLA
	TAD PRINTD-5	/BCD
	TAD PRINTD-3	/+260
	JMS TYPE
	ISZ PRINTD-4
	JMP PRINTD+4	/NEXT DIGIT
	JMP I PRINTD