四字节除以三字节无符号数除法程序

;看到网上有人求“四字节除以三字节”的子程序，随手把我以前写的程序改了改，发表在下面。
;自我感觉不错，自认为是一个能够完成该功能的，_最_简_短_的程序。
;程序如下，呵呵，献丑了。
;===============================================================
ORG 0000H
LJMP START

ORG 0030H ;主程序开始
START:
MOV R7, #05H ;设定一个32位的被除数
MOV R6, #0F5H ;05 F5 E0 FFH
MOV R5, #0E0H ;=99 999 999
MOV R4, #0FFH
; MOV R3, #69H
MOV R2, #98H ;设定一个24位的除数
MOV R1, #96H ;98 96 80H
MOV R0, #80H ;=10 000 000

CALL DIV_32_24 ;调用除法子程序

SJMP $ ;商，可以用计算器验证：00 00 00 09H
;余数为：98 96 7FH = 9 999 999
;****************************************************
;* 四字节/三字节无符号数除法程序 *
;* 已经测试通过 *
;****************************************************
; R7R6R5R4 / R2R1R0 --> R7R6R5R4...32H31H30H
;
;被除数 R7R6R5R4, 除数 R2R1R0
; 商 R7R6R5R4, 余数 32H31H30H
;因为数字较大, 本程序使用了：A、B、33H 和 32H 31H 30H
;对这些单元的保护工作, 应该在主程序中进行
;-----------------------------------------------------------
DIV_32_24:
CLR A
MOV 30H, A
MOV 31H, A
MOV 32H, A
MOV R3, #32 ;循环次数
;---------------------------------------------------
CLR C
DIV_LOOP:
CALL SL_R7_R4
CALL SL_32_30
;(32H31H30H <-- R7R6R5R4 <-- C) 左移一位
MOV F0, C
;---------------------
CLR C ;IF (32H31H30H >= R2R1R0) 32H31H30H -= R2R1R0;
MOV A, 30H
SUBB A, R0
MOV 33H, A
MOV A, 31H
SUBB A, R1
MOV B, A
MOV A, 32H
SUBB A, R2
JNC DIV_2
JNB F0, CPL_C ;不够减就不保存差
CPL C
DIV_2:
MOV 30H, 33H
MOV 31H, B
MOV 32H, A
CPL_C:
CPL C
DJNZ R3, DIV_LOOP
;---------------------------------------------------
SL_R7_R4:
MOV A, R4
RLC A
MOV R4, A
MOV A, R5
RLC A
MOV R5, A
MOV A, R6
RLC A
MOV R6, A
MOV A, R7
RLC A
MOV R7, A
RET
;---------------------
SL_32_30:
MOV A, 30H
RLC A
MOV 30H, A
MOV A, 31H
RLC A
MOV 31H, A
MOV A, 32H
RLC A
MOV 32H, A
RET
;---------------------------------------------------
END
;===============================================================