用移位減法做4位16進制數除以4位16進制數運算

；只能整數運算及非0運算
ORG 0000H
JMP A1
ORG 002BH
A1: MOV R0,#0FFH;被除數
MOV R1,#0FFH;被除數
MOV R2,#0;余數
MOV R3,#0;余數
MOV R4,#0;商
MOV R5,#0;商
MOV R6,#03H;除數
MOV R7,#0E8H;除數
MOV 30H,#16
A2: MOV A,R1;先把移低字節移到高字節位
RLC A;
MOV R1,A;
MOV A,R0;先處理高字節和接收低字節傳上來的位字節
RLC A;
MOV R0,A;
MOV A,R3;把移出來的數處理
RLC A;
MOV R3,A;
MOV A,R2;把移出來的數處理
RLC A;
MOV R2,A;
A4:
MOV A,R3;先減低字節8位
CLR C;清C
SUBB A,R7;A=A-C-R7
MOV 32H,A;臨時保存余數
MOV A,R2;再減高8位
SUBB A,R6;不能清C低八位可能有借位
JC A3;判斷大小大則保存余數到R2，R3
MOV R3,32H;保存低八位余數
MOV R2,A;保存高八位余數
;由于除數為4位16進制數所以余數有可能超過2位16進制數要用2個寄存器
A3: CPL C;商處理
MOV A,R5;先把存到低字節位
RLC A;
MOV R5,A;
MOV A,R4;通過低字節存到高字節
RLC A;
MOV R4,A;
DJNZ 30H,A2;判斷是否完成
JMP $
END
;思路--除數為4位16進制數就得要用2個寄存器
;
; R2 R3 R6 R7 R4 R5
;1、 00000000>00000001-00000011>11101000小于0，商值為00000000>00000000B
;2、 00000000>00000011-00000011>11101000小于0，商值為00000000>00000000B
;3、 00000000>00000111-00000011>11101000小于0，商值為00000000>00000000B
;4、 00000000>00001111-00000011>11101000小于0，商值為00000000>00000000B
;5、 00000000>00011111-00000011>11101000小于0，商值為00000000>00000000B
;6、 00000000>00111111-00000011>11101000小于0，商值為00000000>00000000B
;7、 00000000>01111111-00000011>11101000小于0，商值為00000000>00000000B
;8、 00000000>11111111-00000011>11101000小于0，商值為00000000>00000000B
;9、 00000001>11111111-00000011>11101000小于0，商值為00000000>00000000B
;10、00000011>11111111-00000011>11101000大于0，商值為00000000>00000001B;余數00010111B賦值給R3,00000000B賦值給R2
;11、00000000>00101111-00000011>11101000小于0，商值為00000000>00000010B
;12、00000000>01011111-00000011>11101000小于0，商值為00000000>00000100B
;13、00000000>10111111-00000011>11101000小于0，商值為00000000>00001000B
;14、00000001>01111111-00000011>11101000小于0，商值為00000000>00010000B
;15、00000010>11111111-00000011>11101000小于0，商值為00000000>00100000B
;16、00000100>11111111-00000011>11101000大于0，商值為00000000>01000001B,余數00010111B賦值給R3,00000010B賦值給R2
;至此算法完成