原创 emc除法子程序

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

所用单片机：emc78803

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

*/