单片机实现的多数BCD码加法器源代码

nbsp; JNZ     ICL7135_0  ；POL,OV,UN各位非0,则说明结果不正常
                 SJMP    ICL7135_1
 ICL7135_0:      LJMP    PRI
 ICL7135_1:      MOV     R1,     #AD         ；结果暂存单元(始地址)
                 MOV     A,      R2
                 ANL     A,      #01H        ；存万位
                 XCHD    A,      @R1
                 MOV     A,      R2
                 ANL     A,      #00H 
                 SWAP    A
                 XCHD    A,      @R1
                 MOV     @R1,    A
 INC     R1
 WD4:            MOVX    A,      @DPTR ；读千位
                 JNB     ACC.7,  WD4
                 SWAP    A
                 MOV     @R1,    A       ；千存入
 WD3:            MOVX    A,      @DPTR   ；读百位
                 JNB     ACC.6,  WD3
                 XCHD    A,      @R1     ；百位存入
                 INC     R1
 WD2: