/012 CHECK IF OCTAL
/ROUTINE TO CHECK WHETHER THE AC IS AN OCTAL DIGIT
/
/	TAD CHARACTER
/	JMS OCTCHK
/	  NOT OCTAL RETURN	/AC=0
/	  OCTAL RETURN		/AC=0

	10
	-270
OCTCHK,	0
	TAD OCTCHK-1
	SMA
	JMP OCT2
	TAD OCTCHK-2
	SPA CLA
	JMP I OCTCHK
	ISZ OCTCHK
OCT2,	CLA
	JMP I OCTCHK