1 2 /BINARY-CODED-DECIMAL TO BINARY CONVERSION SUBROUTINE 3 *263 4 5 000263 0000 BCDBIN, 0 6 000264 3314 DCA TEMPH /STORE INPUT 7 000265 1314 TAD TEMPH 8 000266 0311 AND LDIGIT 9 000267 7112 CLL RTR 10 000270 3313 DCA COUNT 11 000271 1313 TAD COUNT 12 000272 7010 RAR 13 000273 1313 TAD COUNT 14 000274 7041 CMA IAC 15 000275 1314 TAD TEMPH /160 H + 16 M + L 16 000276 3314 DCA TEMPH 17 000277 1314 TAD TEMPH 18 000300 0312 AND MDIGIT 19 000301 7112 CLL RTR 20 000302 3313 DCA COUNT 21 000303 1313 TAD COUNT 22 000304 7010 RAR 23 000305 1313 TAD COUNT /60 H + 6 M 24 000306 7041 CMA IAC 25 000307 1314 TAD TEMPH 26 000310 5663 JMP I BCDBIN /EXIT 27 000311 7400 LDIGIT, 7400 28 000312 7760 MDIGIT, 7760 29 000313 0000 COUNT, 0 30 000314 0000 TEMPH, 0 31 32 $