scobcdtb.asm

来自「本程序实现ASCII码转化为一位十六进制数 原ASCII码在SOU中 结果在」· 汇编 代码 · 共 23 行

;********************SCOBCDTB********************
;本程序实现单字节压缩BCD码转化为二进制数。
;入口参数：原BCD码数在SOU中。
;出口参数：结果在SOU中。
;占用资源：W,STATUS,024H,028H,一重堆栈。

           IFNDEF       SCOBCDTB1
            #DEFINE     SCOBCDTB1
                        
SCOBCDTB    SWAPF       SOU,W
            ANDLW       0FH
            MOVWF       TEMP1
            MOVLW       0FH
            ANDWF       SOU,F       ;去掉高位
            BCF         STATUS,C
            RLF         TEMP1,W     ;高位乘以2
            RLF         TEMP1,F
            RLF         TEMP1,F
            RLF         TEMP1,F     ;乘以8
            ADDWF       TEMP1,W
            ADDWF       SOU,F       ;SOU=SOU+W+TEMP1
            RETURN                  
           ENDIF