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

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