Programowanie: Dzielenie 16-bitowe z wynikiem 32-bitowym
From Atariki
(Różnice między wersjami)
Wersja z dnia 07:25, 21 gru 2005 KMK (Dyskusja | wkład) ← Previous diff |
Wersja z dnia 08:26, 21 gru 2005 KMK (Dyskusja | wkład) (fmt) Next diff → |
||
Linia 1: | Linia 1: | ||
Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik całkowity umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie. | Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik całkowity umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie. | ||
+ | |||
+ | == 6502 == | ||
<pre> | <pre> | ||
int16div | int16div | ||
- | lda fr1 ;dzielnik musi byc wiekszy od zera | + | lda fr1 ;dzielnik musi byc wiekszy od zera |
- | ora fr1+1 | + | ora fr1+1 |
- | beq ?e | + | beq ?e |
- | lda fr0 ;dzielnik wiekszy od dzielnej | + | lda fr0 ;dzielnik wiekszy od dzielnej |
- | cmp fr1 ;daje w wyniku zero, a dzielna | + | cmp fr1 ;daje w wyniku zero, a dzielna |
- | lda fr0+1 ;stanowi reszte | + | lda fr0+1 ;stanowi reszte |
- | sbc fr1+1 | + | sbc fr1+1 |
- | bcs ?div | + | bcs ?div |
- | ldx #$01 | + | ldx #$01 |
- | ?d lda fr0,x | + | ?d lda fr0,x |
- | sta fr0+2,x | + | sta fr0+2,x |
dex | dex | ||
- | bpl ?d | + | bpl ?d |
- | lda #$00 | + | lda #$00 |
- | sta fr0 | + | sta fr0 |
- | sta fr0+1 | + | sta fr0+1 |
rts | rts | ||
- | ?div lda #$00 ;kasujemy reszte | + | ?div lda #$00 ;kasujemy reszte |
- | sta fr0+2 | + | sta fr0+2 |
- | sta fr0+3 | + | sta fr0+3 |
- | ldx #16 | + | ldx #16 |
- | ?l asl fr0 | + | ?l asl fr0 |
- | rol fr0+1 | + | rol fr0+1 |
- | rol fr0+2 | + | rol fr0+2 |
- | rol fr0+3 | + | rol fr0+3 |
- | lda fr0+2 | + | lda fr0+2 |
- | cmp fr1 | + | cmp fr1 |
- | lda fr0+3 | + | lda fr0+3 |
- | sbc fr1+1 | + | sbc fr1+1 |
- | bcc ?s | + | bcc ?s |
- | lda fr0+2 | + | lda fr0+2 |
- | sbc fr1 | + | sbc fr1 |
- | sta fr0+2 | + | sta fr0+2 |
- | lda fr0+3 | + | lda fr0+3 |
- | sbc fr1+1 | + | sbc fr1+1 |
- | sta fr0+3 | + | sta fr0+3 |
- | inc fr0 | + | inc fr0 |
- | bne ?s | + | bne ?s |
- | inc fr0+1 | + | inc fr0+1 |
- | bne ?s | + | bne ?s |
?e sec | ?e sec | ||
Linia 56: | Linia 58: | ||
?s dex | ?s dex | ||
- | bne ?l | + | bne ?l |
clc | clc | ||
rts | rts | ||
</pre> | </pre> | ||
- | |||
- | Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym|mnożenia]] (quod vide). | ||
Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych. | Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych. | ||
+ | |||
+ | == Uwagi == | ||
+ | |||
+ | Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym|mnożenia]] (quod vide). | ||
[[Kategoria:Niezbędnik kodera]] | [[Kategoria:Niezbędnik kodera]] |
Wersja z dnia 08:26, 21 gru 2005
Procedura dzieli 16-bitową liczbę bez znaku umieszczoną we FR0 ($D4) przez takąż liczbę umieszczoną w FR1 ($E0). 16-bitowy wynik całkowity umieszczany jest w FR0, a 16-bitowa reszta z dzielenia w FR0+2. Opuszczenie procedury z ustawionym znacznikiem C sygnalizuje przepełnienie.
6502
int16div lda fr1 ;dzielnik musi byc wiekszy od zera ora fr1+1 beq ?e lda fr0 ;dzielnik wiekszy od dzielnej cmp fr1 ;daje w wyniku zero, a dzielna lda fr0+1 ;stanowi reszte sbc fr1+1 bcs ?div ldx #$01 ?d lda fr0,x sta fr0+2,x dex bpl ?d lda #$00 sta fr0 sta fr0+1 rts ?div lda #$00 ;kasujemy reszte sta fr0+2 sta fr0+3 ldx #16 ?l asl fr0 rol fr0+1 rol fr0+2 rol fr0+3 lda fr0+2 cmp fr1 lda fr0+3 sbc fr1+1 bcc ?s lda fr0+2 sbc fr1 sta fr0+2 lda fr0+3 sbc fr1+1 sta fr0+3 inc fr0 bne ?s inc fr0+1 bne ?s ?e sec rts ?s dex bne ?l clc rts
Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych.
Uwagi
Procedura jest "kompatybilna" z procedurą mnożenia (quod vide).