/020 DECIMAL PRINT ROUTINE,
/PRINTS AC DECIMAL IN 4 DIGITS
/MAX NUMBER = 4095 DECIMAL
/SKIPS LEADING ZERO'S
/
DPRT,	0
	DCA DPRREG	/SAVE AC II PRINTREG.
	TAD DPRINS	/GET INSTRUCTION
	DCA DPRPTP	/PUT INSTR. ON POINTER
	TAD   M4
	DCA DPRFAC	/4 DIGITS
	DCA DPRFL	/CLEAR PRINT 0 FLAG
	DCA DPRFIG	/CLEAR DIGIT
DPRSUB,	CLL
	TAD DPRREG	/PICK UP SAVED AC
DPRPTP,	TAD DPRTEN	/SUBTRACT POWER OF TEN

	SNL		/REMAINDER POSITIVE?
	JMP .+4		/NO, PRINT DIGIT
	DCA DPRREG	/YES, SAVE REMAINDDR
	ISZ DPRFIG	/DIGIT:=DIGIT+1
	JMP DPRSUB	/REPEAT SUBTRACTION
	CLA CLL
	TAD DPRFIG	/GET DIGIT
	SNA		/A ZERO?
	JMP DPRZRO	/YES
DPRIN,	TAD C260	/NO, CONVERT TO ASCI
	JMS PRINT
	ISZ DPRFL	/MAKE NOT EQUAL 0
DPRIN1,	ISZ DPRPTP	/MODIFY INSTR ON DPRPTP
	ISZ DPRFAC	/PRINTED 4 DIGITS?
	JMP DPRSUB-1	/NO, PRINT NEXT DIGIT
	JMP I DPRT	YES, RETURN
/
DPRZRO,	TAD DPRFL
	SZA CLA
	JMP DPRIN
	JMP DPRIN1
/
DPRREG,	0
DPBFL,	0
DPRINS,	TAD DPRTEN
DPRFAC,	0
DPRFIG,	0
DPRTEN,	6030	/-1000
	7634	/-100
	7766	/-10
	7777	/-1
/
/GENERAL CONSTANTS
M4,	-4
C260,	260