四字節(jié)除以三字節(jié)無符號數(shù)除法程序

;看到網上有人求“四字節(jié)除以三字節(jié)”的子程序，隨手把我以前寫的程序改了改，發(fā)表在下面。
;自我感覺不錯，自認為是一個能夠完成該功能的，_最_簡_短_的程序。
;程序如下，呵呵，獻丑了。
;===============================================================
ORG 0000H
LJMP START

ORG 0030H ;主程序開始
START:
MOV R7, #05H ;設定一個32位的被除數(shù)
MOV R6, #0F5H ;05 F5 E0 FFH
MOV R5, #0E0H ;=99 999 999
MOV R4, #0FFH
; MOV R3, #69H
MOV R2, #98H ;設定一個24位的除數(shù)
MOV R1, #96H ;98 96 80H
MOV R0, #80H ;=10 000 000

CALL DIV_32_24 ;調用除法子程序

SJMP $ ;商，可以用計算器驗證：00 00 00 09H
;余數(shù)為：98 96 7FH = 9 999 999
;****************************************************
;* 四字節(jié)/三字節(jié)無符號數(shù)除法程序 *
;* 已經測試通過 *
;****************************************************
; R7R6R5R4 / R2R1R0 --> R7R6R5R4...32H31H30H
;
;被除數(shù) R7R6R5R4, 除數(shù) R2R1R0
; 商 R7R6R5R4, 余數(shù) 32H31H30H
;因為數(shù)字較大, 本程序使用了：A、B、33H 和 32H 31H 30H
;對這些單元的保護工作, 應該在主程序中進行
;-----------------------------------------------------------
DIV_32_24:
CLR A
MOV 30H, A
MOV 31H, A
MOV 32H, A
MOV R3, #32 ;循環(huán)次數(shù)
;---------------------------------------------------
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
;===============================================================