/005 BBNARY TO OCTAL CONVERSION AND PRINT
/ROUTINE PRINTS THE AC IN OCTAL, NO SIGN.
/
/	TAD WORD
/	JMS PRINT8
/	   RETURN	/AC=0
/
	260
	7		/MASK
	0		/DIGIT COUNTER
	-4		/# OF DIGITS
	0		/TEMPORARY
PRINT8,	0
	RAL CLL
	DCA PRINT8-1
	TAD PRINT8-2
	DCA PRINT8-3	/SET UP COUNT
	TAD PRINT8-1
	RAL
	RTL
	DCA PRINT8-1
	TAD PRINT8-1
	AND PRINT8-4	/MASK
	TAD PRINT8-5	/MAKE ASCII
	JMS TYPE
	ISZ PRINT8-3	/4 DONE?
	JMP PRINT8+5	/NOT YET
	JMP I PRINT8