除法运算.txt

SONIX单片机常用子程序

div16m macro mem0, mem1, mem2, mem3, mem4, mem5
LOCAL div16m_10
LOCAL div16m_20
LOCAL div16m_30
LOCAL div16m_90

clr arg2H
clr arg2M
clr arg2L
clr arg0H
clr arg0L
mov a, #0x21
b0mov m_loop, a

b0mov a, mem4
b0mov arg1H , a
b0mov a, mem5
b0mov arg1L , a
div16m_10:
decms m_loop
jmp div16m_20
jmp div16m_90
div16m_20: 
b0bclr FC
rlcm arg2L 
rlcm arg2M
rlcm arg2H
rlcm arg2msb
rlcm mem3
rlcm mem2
rlcm mem1
rlcm mem0
rlcm arg0L
rlcm arg0H 

b0mov a, arg0L
sub a, arg1L
b0mov arg0L,a
b0mov a, arg0H
sbc a, arg1H
b0mov arg0H, a

b0bts0 FC
jmp div16m_30 ; no borrow

mov a, arg1L
add arg0L, a
mov a, arg1H
adc arg0H, a

jmp div16m_10
div16m_30:
b0bset arg2L.0 ; borrow occur
jmp div16m_10
div16m_90: 
endm
例程