takže datasheet k Atmelu 89C51 nebo chceš-li bejt puritán tak třeba Philips 80C51 a neni hezký někomu tvrdit že je klasická 51čka dvakrát rychlejší než ve skutečnosti je
Kód: Vybrat vše
;*********************************************
; dělení 16b / 16b bez znaménka
;doba exekuce - min 7 cyklů pro div by 0
; - w/w max 39 cyklů
; - w/B max 143 cyklů
; - B/B max 27 cyklů
; - průměr 70 cyklů
; rozsah kódu (8051) - 93 byte
;*********************************************
;vstup v DH je bajt_H a DL je bajt_L dělence
;vstup v dih je bajt_H a dil je bajt_L dělitele
;výstup Cy =1 pro div by 0, jinak Cy =0 a
; v DH je bajt_H a DL je bajt_L - zbytku
; v dih je bajt_H a dil je bajt_L - podílu
;
; mění reg.: Acc,DH,DL,dH,dL,b,Psw
; možnost zvolit si prac. registry*****
DH equ r3
DL equ r2
dih equ r5
dil equ r4
;*******
div16x16:
cjne dih,#0,divAA
cjne dil,#0,divBA
setb C
ret ;divide by 0
divAA:
mov a,DH
mov b,dih
div ab
jnz divAB ;výsledek ma H_bajt
mov dih,a
mov dil,a
ret ;divide finalized, result=0
divAB:
push b ;odlož zbytek
mov DH,a ;ulož vysl_L do rp
mov b,dil
mul ab
xch a,DL
subb a,DL
xch a,DL
pop acc
subb a,b
jnc divABcont
dec DH
xch a,DL
add a,dil
xch a,DL
addc a,dih
clr C
divABcont:
xch a,DH
mov dil,a
mov dih,#0
ret ;divide finalized
divBA:
mov b,dil
mov a,DH
div ab
mov dih,a ;ulož H_podíl
mov DH,b
cjne DH,#0,divBB
mov b,dil
mov a,DL
div ab
mov dil,a
mov DL,b
ret
divBB:
mov DH,#8
divBB1:
mov a,DL
rlc a
mov DL,a
mov a,dil
xch a,b
rlc a
jc divBB2
div ab
rrc a
djnz DH,divBB1
mov a,b
xch a,DL ;zbytek do DL, do acc mezivysl_L
rlc a
mov dil,a
ret
divBB2: clr C
subb a,b
mov b,a
djnz DH,divBB1
mov a,b
xch a,DL ;zbytek do DL, do acc mezivysl_L
rlc a
mov dil,a
ret
;*******
...zkusím se nad tím ještě zamyslet ....