/022 OCTAL PRINT ROUTINE
/NONSIGNIFICANT ZERO'S BECOME SPACES
/
/	CLL
/	DCA OCTFIG	/CLEAR FLAG FIGURE PRINTED
/	DCA OCTSPC	/CLEAR SPACE-COUNTER
/	TAD NUMBER
/CALL:	JMS OCTPRT	/ WITH NUMBER IN AC
/	RETURN AC=0	/IF NUMBER=0,
/OCTSPC=4 = # OF SPACES TO PRINT
/	IF NUMBER IS ZERO,OCTSPC=4 IS #SPACES TO PRINT
/
OCTPRT,	0
	RAL		/ROTATE IN LINK
	DCA OCTTMP	/TEMP. STORAGE
	TAD M4		/4 OCTADES
	DCA OCCTNT
OCTPR0,	TAD OCTTMP
	RAL
	RTL
	DCA OCTTMP	/STORE RESULT
	TAD OCTTMP	/GET IT BACK
	AND C7		/MASK OCTADE
	SNA CLA		/ZERO ?
	JMP OCTZER	/YES
	TAD OCTSPC	/NO,SPACES TO PRINT?
	SNA
	JMP OCTNUM	/NO,GO PRINT FIGURE
	CIA		/YES,SET COUNTER
	DCA OCTSC
	TAD C240
	JMS PRINT	/PRINT THE SPACES
	ISZ OCTSPC
	JMP .-3
OCTNUM,	CLA IAC		SET FLAG FIG. PRINTED
	DCA OCTFIG
	TAD OCTTMP
	AND C7
OCT0PR,	TAD C260	/MAKE THE IGURE
	JMS PRINT
OCTPR1,	ISZ OCTCNT	/READY?
	JMP OCTPR0	/NO
	JMP I OCTPRT	/YES,EXIT
/
OCTZER,	TAD OCTFIG
	SZA CLA		/FIGURES PRINTED ?
	JMP OCT0PR	/YES,PRINT THIS ZERO TOO
	ISZ OCTSPC	/NO COUNT AS SPACE
	JMP OCTPR1
/
OCTTMP,	0
OCTCNT,	0
OCTSPC,	0
OCTFIG,	0
M4,	-4
C7,	7
C240,	240
C260,	260