;----------5bitBCDconversion16BITbin----------------------
 H-byte=0X10
L-byte=0X11  
R0   =0X12
R1   =0X13
R2   =0X14
H-temp=0x15
L-temp=0X16
BCDTOB  CLR  H-byte
MOV A ,R0
and A ,@0X0FH
mov L-byte  A
call  Mpy10b  ; 結果=10a+b
swapaA  R1
call  Mpy10b   ;結果=10[10a+b]
mov  A, R1
call  Mpy10b;結果=10[10[10a+b]+c]
swapA  R2
call Mpy10b ;結果=10[10[10[10a+b]+c]+d]
mov  A, R2
and  A,@0X0FH
add  L-byte, A
JBC  STATUS,C
  JZ H-byte;果=10[10[10[10a+b]+C]+d+e
     RET        ;BCD 到BIN轉換結束 Mpy10b and  A,@OXOFH
     add  L-byte,A
    JBC  STATUS,C
     JZ   H-byte
Mpy10a  BC STATUS,C;單元及進行除2處理
    RLCA  L-byte
     MOV   L-TEMP,A
    RLCA  H-byte      ;最低位調整，
    MOV   H-temp,A        ;
    BC    STATUS,C  逐步進行除2處理
    RLC   L-byte
   


       RLC   H-byte
       BC  STATDS,C 進行第三位二進制處理
       RLC   L-byte
       RLC   H-byte 
       BC    STATUS,C  ;進行第四位三進制處理
       RLC   L-byte
       RLC   H-byte    ;一直到第四位
       MOV   A,L-temp
       ADD   A,L-byte
       JBC   STATUS,C
       INC   H-byte
       MOV   A,H-temp
       ADD   H-byte,A
       RET          
;主程序
   main  mov  A, @0x60
         mov  R0, A
         mov  A, @0x55
         mov  R1, A
         mov  A, @0x35
         mov  R2, A
         call   BCDTOB
   self   goto  self
              end