8位单片机除法函数

;NAME:F_Div
;INPUT:R_opA,R_opB
;OUTPUT:R_opRes,R_opMod(余数)
;FUN:
;--------------------------------------------
.IFJ_DivOpera
F_Div:
LDA R_opB
BEQ END_div

LDA R_opA
STA R_opMod

LDA #00H
STA R_opRes

div_LOOP:
%ClearWDT

SEC
LDA R_opMod
SBC R_opB
BCC END_div

STA R_opMod

INC R_opRes
JMP div_LOOP

END_div:
LDAR_opMod
RTS