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