gaohe.asm

双字节二进制数转换为十进制数子程序------- ；--------功能：双字节二进制数转换成五位BCD码

;----------T0,T1 初始化----
START:
      MOV 23H,#00H
      CLR 00H
      MOV  TMOD,#51H       ；定时器T0定时，T1计数，工作在方式1
      MOV  TH0,#03CH
  
DPRG:
；-------------------------------------------------
；--------双字节二进制数转换为十进制数子程序-------
；--------功能：双字节二进制数转换成五位BCD码------
；--------入口：（R2R3）=二进制被转换数------------
；--------出口：（R4R5R6）=转换结果BCD码-----------

BINBCD:
            MOV 20H,21H
            MOV 21H,22H
            MOV    R0,#20H
            MOV    A,@R0
            MOV    R3,A
            INC    R0
            MOV    A,@R0
            MOV    R2,A
            ;----------
            CLR    A
            MOV    R6,A
            MOV    R5,A
            MOV    R4,A
            MOV    R7,#16
BINBCL:
            CLR    C
            MOV    A,R3
            RLC    A
            MOV    R3,A
            MOV    A,R2
            RLC    A
            MOV    R2,A
            MOV    A,R6
            ADDC   A,R6
            DA     A
            MOV    R6,A
            MOV    A,R5
            ADDC   A,R5
            DA     A
            MOV    R5,A
            MOV    A,R4
            ADDC   A,R4
            DA     A
            MOV    R4,A
            DJNZ   R7,BINBCL
            ; ----------------
            MOV    BCD_H,R5
            MOV    BCD_L,R6
            MOV    A,BCD_H
            MOV    R0,#SBCD_2
            MOV    @R0,A
            SWAP   A
            MOV    R7,A
            MOV    A,@R0
            ANL    A,#0FH
            MOV    @R0,A
            MOV    A,R7
            MOV    R1,#SBCD_1
            ANL    A,#0FH

            MOV    @R1,A



            MOV    A,BCD_L
            MOV    R0,#SBCD_4
            MOV    @R0,A
            SWAP   A
            MOV    R7,A
            MOV    A,@R0
            ANL    A,#0FH
            MOV    @R0,A
            MOV    A,R7
            ANL    A,#0FH
            MOV    R1,#SBCD_3
            MOV    @R1,A
            RET

DELAY:   MOV 40H,#00H
DELAY2:  MOV 41H,#00H
DELAY1:  NOP
         NOP
         DJNZ 41H, DELAY1
         DJNZ 40H, DELAY2
         RET