*20
/BINOCT 1
/FOR PDP-12
/D.J.NICHOLS
/UNIV.WISCONSIN
/
/SINGLE-PRECISION-BINARY TO OCTAL CONVERSION
/
/ENTER WITH BINARY NUMBER IN ACCUMULATOR
/  VIA A: JMP BO1
/OCTAL ASCII CODES ARE STORED VIA IR1
/  WITH LEADING ZEROES
/
/INTERRUPTABLE
/USES IR1-2
/
BO1,	SET 2	/SAVE RTN JMP
	0
	ROL 3
	STA I
	0
	BCL I
	7770
	BSE I
	60
	STH I 1
	LDA
	.-7
	SRO I	/4 DIGITS DONE?
	3567
	JMP .-14 /NO
	JMP 2	/YES: RETURN
/END BINOCT 1
/