今天做一个2字节除以1字节的除法子程序，花了大半天时间。

所用单片机：emc78803

验证可以使用，如有疑问请联系：QQ：279354122

byte == 0x1c
trbuf == 0x1d
r3 == 0x03
z == 2
c == 0
org 0X00
jmp main
org 0x0010

main:
mov a,@0x01 ;除数赋值
mov 0x2B,a
main0:
mov a,@0x95 ;被除数赋值
mov 0x23,a
mov 0x22,a
clr 0x21
mov a,@0x10 ;循环次数为16
mov byte,a



;==============================================
;子程序名称：双字节除以单字节除法
;被除数 ： 0x22,0x23 ,最高为0x22,7；最高为0x23,0
;除数 ： 0x2B
;商 ： 0x22,0x23
;余数 ： 0x21
;另外占用： 0x21 BYTE
lop_sub:bc r3,c
rlc 0x23 ;被除数左移1位
rlc 0x22
rlc 0x21
jbc r3,c
jmp same
mov a,0x2b
sub a,0x21
jbs r3,c
jmp n_same
same: mov a,0x2b
sub 0x21,a
bs 0x23,0
n_same: djz byte ;16次循环完成则结束
jmp lop_sub ;未完成则继续
;==============================================

nop
self: jmp main0

/*■■■■下面的是3字节除以2字节，是可以用的。是转贴的。■■■■■■■■■
;被除数为3个字节，在0x20、0x21、0x22单元中，0x22.7为最高位，0x20.0为最低位。;
;除数为2个字节，在0x30、0x31中。
main:
mov a,@0x55 ;被除数赋值
mov 0x20,a
mov 0x21,a
mov 0x22,a
mov a,@0x0 ;被除数扩充1字节并清0
mov 0x23,a
mov a,@0x12 ;除数赋值
mov 0x30,a
mov 0x31,a

mov a,@0x10 ;循环次数为16
mov 0x32,a
again:
call rt_sub ;调移位除法子程
djz 0x32 ;16次循环完成则结束
jmp again ;未完成则继续

self:
jmp self

rt_sub:
bc 0x03,0 ;c标志清0
rlc 0x20 ;被除数左移1位
rlc 0x21
rlc 0x22
rlc 0x23
jbc 0x03,0
jmp rt3 ;c标志为1则直接相减
mov a,0x23 ;c标志为0则先比较大小
mov 0x25,a
mov a,0x22
mov 0x24,a
mov a,0x31 ;先比较高位
sub 0x25,a
jbc 0x03,2
jmp rt1 ;高位相等跳rt1比较低位
jmp rt2 ;高位不等跳rt2
rt1:
mov a,0x30 ;比较低位
sub 0x24,a
jbc 0x03,2
jmp rt3 ;低位也相等则跳rt3,相减,上1
rt2:
jbs 0x03,0
ret ;减数大则返回,减数小则相减,上1
rt3:
bs 0x20,0 ;上1
call sub_2b ;调2字节减法子程
ret

sub_2b:
mov a,0x31 ;高字节相减
sub 0x23,a
mov a,0x30 ;低字节相减
sub 0x22,a
jbc 0x03,2
ret ;低字节相等,无借位,返回
jbc 0x03,0
ret ;无借位,返回
dec 0x23 ;低字节相减有借位,高字节结果减1
ret

*/