*20
/BINDEC 9
/FOR PDP-12
/D. J. NICHOLS
/UNIV. WISCONSIN
/
/POSITIVE-ONLY BINARY TO DECIMAL CONVERSION
/  FOR DECIMAL NUMBERS 0 - 99 ONLY
/
/ENTER VIA: JMP BD9
/  WITH BINARY NUMBER IN ACCUMULATOR
/  AND IR 1 PRESET
/DECIMAL 6-BIT ASCII CODE STORED VIA IR1
/  RIGHT JUSTIFIED
/  WITH LEADING ZEROES
/NON-INTERRUPTABLE
/USES IR 1 ? 2
/
BD9,	COM 
	STC 2
	ADD 0
	STC N9BD9-1
K9BD9,	SHD I	/CARRY?
	0
	STC L9BD9 /YES
	XSK 2	/NO: REACHED 0 YET?
	JMP N9BD9 /NO: CONVERT SOME MORE
	LDA	/YES: STORE RESULT
	L9BD9
	BSE I
	6060
	ROR 6
	STH I 1
	ROR 6
	STH I 1
	JMP 0	/RETURN
N9BD9,	LDA I 2 /INDEX
	LDA I
	1
	ADM I	/ADD TO BCD
L9BD9,	0	/TWO BCD CHARACTERS
	ADA I
	66
	JMP K9BD9
/END BINDEC 9
/