/023 DOUBLE WORD OCTAL PRINT ROUTINE
/USES ROUTINE OCTPR
/CALLING:JMS DOCPR
/HIGH ORDER NUMBER
/LOW ORDER NUMBER
/RETURN AC=0
/
DOCTPR,	0
	CLA
	DCA OCTFIG	/CLEAR FLAG FIGURE PRINTED
	DCA OCTSPC	/CLEAR SPACE-COUNTER
	TAD I DOCTPR	/HIGH ORDER PART
	ISZ DOCTPR
	JMS OCTPRT	/PRINT OCTAL
	TAD I DOCTPR	/LOW ORDER PART
	ISZ DOCTPR
	JMS OCTPRT	/PRINT OCTAL
	TAD OCTSPC
	CIA
	SNA		/SPACES TO PRIT?
	JMP I DOCTPR	/NO, EXIT
	IAC		/YES,NUMBER IS ZERO
	DCA OCTSPC	/PRINT SPACES
	TAD C240
	JMS PRINT
	ISZ OCTSPC
	JMP .-3
	TAD C260	/AND A "0"
	JMS PRINT
	JMP I DOCTPR	/EXXIT