/ROUTINE TO PRINT AC IN OCTAL ON THE TTY.
/
PROCT,	0
	DCA	PROCT1		/SAVE NUMBER
	TAD	PROCT1		/GET IT BACK
	RTL			/ROTATE 1ST DIG INTO AC9-AC11
	RTL
	JMS	DIGIT		/PRINT IT
	TAD	PROCT1		/GET NUMBER
	RTR			/ROTATE 2ND DIG INTO AC9-AC11
	RTR
	RTR
	JMS	DIGIT		/PRINT IT
	TAD	PROCT1
	RTR
	RAR
	JMS	DIGIT		/PRINT 3RD DIGIT
	TAD	PROCT1
	JMS	DIGIT		/PRINT LAST (4TH) DIGIT
	JMP	I PROCT		/RETURN (WITH AC CLEAR)
/
DIGIT,	0
	AND	K0007		/MASK OUT UPPER 9 BITS
	TAD	K0260		/CONVERT TO ASCII
	TLS			/PRINT CHAR
	CLA			/CLEAR AC
	JMP	I DIGIT		/RETURN
/
PROCT1,	0	/TEMPORARY BUFFER FOR NUMBER
K0007,	7	/MASK TO REMOVE UPPER 9 BITS
K0260,	260	/ASCII VALUE OF '0'
/
$