;********************SUBCDSUB********************
;本程序实现单字节非压缩BCD码减法。
;入口参数：被减数在SOU中，减数在RLT中。
;出口参数：结果在SOU中，借位标志在STATUS:C中,'0'表示有借位。
;占用资源：W,STATUS,024H,026H,一重堆栈。
IFNDEF SUBCDSUB1
#DEFINE SUBCDSUB1
SUBCDSUB MOVF RLT,W
SUBWF SOU,F
BTFSC STATUS,C ;检查进位
RETURN
MOVLW 0F6H ;减6处理
SUBWF SOU,F
ADDLW 0 ;置借位标志
RETURN
ENDIF