Programowanie: Dzielenie 16-bitowe z wynikiem 32-bitowym: Różnice pomiędzy wersjami
Przejdź do nawigacji
Przejdź do wyszukiwania
Nie podano opisu zmian |
w sumie po co dwa razy odejmowanie ... |
||
| (Nie pokazano 6 pośrednich wersji utworzonych przez tego samego użytkownika) | |||
| 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> | |||
int16div | |||
lda fr1 ;dzielnik musi byc wiekszy od zera | |||
ora fr1+1 | |||
beq ?e | |||
; <-- czesc pomijalna | |||
lda fr0 ;dzielnik wiekszy od dzielnej | |||
cmp fr1 ;daje w wyniku zero, a dzielna | |||
lda fr0+1 ;stanowi reszte | |||
sbc fr1+1 | |||
bcs ?div | |||
lda fr0 | |||
sta fr0+2 | |||
lda fr0+1 | |||
sta fr0+3 | |||
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 | |||
sec | |||
lda fr0+2 | |||
sbc fr1 | |||
tay | |||
lda fr0+3 | |||
sbc fr1+1 | |||
bcc ?s | |||
sty fr0+2 | |||
sta fr0+3 | |||
inc fr0 | |||
bne ?s | |||
inc fr0+1 | |||
bne ?s | |||
?e sec | |||
rts | |||
?s dex | |||
bne ?l | |||
clc | |||
rts | |||
</pre> | |||
Główna pętla zajmuje - w zależności od składników - od 624 do 1152 cykli maszynowych. | |||
== 65C816 == | |||
<pre> | <pre> | ||
int16div | int16div | ||
.aw | |||
.ib | |||
rep #$20 ;CPU musi byc w trybie natywnym | |||
sep #$10 | |||
lda | lda fr1 ;dzielnik musi byc wiekszy od zera | ||
beq ?e | |||
; <-- czesc pomijalna | |||
lda fr0 ;dzielnik wiekszy od dzielnej | |||
cmp fr1 ;daje w wyniku zero, a dzielna | |||
bcs ?div ;stanowi reszte | |||
lda | lda fr0 | ||
sta | sta fr0+2 | ||
stz fr0 | |||
rts | rts | ||
; --> | |||
?div | ?div stz fr0+2 ;kasujemy reszte | ||
ldx | ldx #16 | ||
?l asl | ?l asl fr0 | ||
rol | rol fr0+2 | ||
sec | |||
lda fr0+2 | |||
lda | sbc fr1 | ||
sbc | bcc ?s | ||
bcc | |||
sta fr0+2 | |||
sta | |||
inc | inc fr0 | ||
bne | bne ?s | ||
?e sec | ?e sec | ||
| Linia 56: | Linia 109: | ||
?s dex | ?s dex | ||
bne | bne ?l | ||
clc | clc | ||
rts | rts | ||
</pre> | </pre> | ||
Elegancka procedura biblioteczna powinna jeszcze przechowywać na stosie i przed powrotem do miejsca wywołania przywracać rozmiar rejestrów. W powyższym przykładzie pominięto to, żeby nie zaciemniać zagadnienia. | |||
== Uwagi == | |||
Procedura jest "kompatybilna" z procedurą [[Programowanie: Mnożenie 16-bitowe z wynikiem 32-bitowym|mnożenia]] (quod vide). | 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]] | ||
Aktualna wersja z 23 wrz 2012, 23:35
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
; <-- czesc pomijalna
lda fr0 ;dzielnik wiekszy od dzielnej
cmp fr1 ;daje w wyniku zero, a dzielna
lda fr0+1 ;stanowi reszte
sbc fr1+1
bcs ?div
lda fr0
sta fr0+2
lda fr0+1
sta fr0+3
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
sec
lda fr0+2
sbc fr1
tay
lda fr0+3
sbc fr1+1
bcc ?s
sty fr0+2
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.
65C816
int16div
.aw
.ib
rep #$20 ;CPU musi byc w trybie natywnym
sep #$10
lda fr1 ;dzielnik musi byc wiekszy od zera
beq ?e
; <-- czesc pomijalna
lda fr0 ;dzielnik wiekszy od dzielnej
cmp fr1 ;daje w wyniku zero, a dzielna
bcs ?div ;stanowi reszte
lda fr0
sta fr0+2
stz fr0
rts
; -->
?div stz fr0+2 ;kasujemy reszte
ldx #16
?l asl fr0
rol fr0+2
sec
lda fr0+2
sbc fr1
bcc ?s
sta fr0+2
inc fr0
bne ?s
?e sec
rts
?s dex
bne ?l
clc
rts
Elegancka procedura biblioteczna powinna jeszcze przechowywać na stosie i przed powrotem do miejsca wywołania przywracać rozmiar rejestrów. W powyższym przykładzie pominięto to, żeby nie zaciemniać zagadnienia.
Uwagi
Procedura jest "kompatybilna" z procedurą mnożenia (quod vide).