[an error occurred while processing this directive]
|
;Divide tempH,M,L / tempF,E,D = tempH,M,L , tempC,B,A
div24: clr tempA ;clear remainder Low byte
clr tempB
sub tempC,tempC ;clear remainder High byte and carry
ldi temp,25 ;init loop counter
div1: rol tempL ;shift left dividend
rol tempM
rol tempH
dec temp ;decrement counter
breq divret
rol tempA ;shift dividend into remainder
rol tempB
rol tempC
sub tempA,tempD ;remainder = remainder - divisor
sbc tempB,tempE
sbc tempC,tempF
brcc div1 ;if result negative
add tempA,tempD ; restore remainder
adc tempB,tempE
adc tempC,tempF
rjmp div1
divret: com tempL
com tempM
com tempH
ret
E-mail: info@telesys.ru