scobcdneg.asm

来自「微芯公司的PIC子程序库及运算平台」· 汇编 代码 · 共 23 行

;********************SCOBCDNEG********************
;本程序实现单字节压缩BCD码求补。
;入口参数：待处理的数据在SOU中。
;出口参数：结果在SOU中。
;占用资源：W,STATUS,024H.,一重堆栈。
;说    明: 0求补还是0.

           IFNDEF       SCOBCDNEG1
            #DEFINE     SCOBCDNEG1
                                                
SCOBCDNEG   MOVF        SOU,F       ;判断是不是0
            BTFSC       STATUS,Z
            RETURN
            MOVF        SOU,W
            ANDLW       0FH
            MOVLW       6           ;不影响状态位
            BTFSC       STATUS,Z    ;判断低四位是否为0
            SUBWF       SOU,F       ;减6 
            MOVF        SOU,W           
            SUBLW       9AH
            MOVWF       SOU
            RETURN
           ENDIF