*-ACC_bin		
;Converts 2 digit BCD in ACC to bin in ACC
;does not detect hex (>99h) i/p; so 0A -> 0A, 10 -> 0A, 1A -> 14
;uses r1

.ACC_bin:
   push B
   mov r1,a
   swap a
   anl a,#0fh	;msn
   mov B,#10
   mul ab

ab1:
   xch a,r1	;lsn
   anl a,#0fh
   add a,r1
   pop B
abx:
   ret