;********************SCOBCDDIV********************
;本程序实现单字节压缩BCD码除法。
;入口参数：被除数在SOU中，除数在RLT中。
;出口参数：商在SOU中,余数在SOUH中。
;占用资源：W,STATUS,023H,024H,025H,026H,028H,两重堆栈。
;说 明: 加载本文件的同时也加载了另外三个文件"SCOBCDTB.ASM","SBTBCD1.ASM"
; "SUDIV.ASM",故用户在使用这三个子程序时可直接调用,不必重新加载.
IFNDEF SCOBCDDIV1
#DEFINE SCOBCDDIV1
SCOBCDDIV CALL SCOBCDTB ;被除数转化为二进制数
MOVF SOU,W
MOVWF SOUH ;暂存在被除数
MOVF RLT,W
MOVWF SOU
CALL SCOBCDTB ;除数转化为二进制数
MOVF SOU,W
MOVWF RLT
MOVF SOUH,W
MOVWF SOU ;二进制数归位
CALL SUDIV
CALL SBTBCD1 ;转化为BCD码
MOVF SOU,W
MOVWF CNT ;暂存
MOVF SOUH,W
MOVWF SOU
CALL SBTBCD1
MOVF SOU,W
MOVWF SOUH
MOVF CNT,W
MOVWF SOU
RETLW 0
INCLUDE "SCOBCDTB.ASM"
INCLUDE "SUDIV.ASM"
INCLUDE "SBTBCD1.ASM"
ENDIF