Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
__div sta __bta ;przygotowanie
stx __bta+1 ;danych
ldx #0
stx __btb
sty __btb+1 ;dzielnik*2^8
ldx #8 ;długość słowa
__lop lsr __btb ;dzielnik*2(.X-1)
ror __btb+1
lda __bta ;dzielna-dzielnik
sbc __btb ;a zarazem porównanie
tay
lda __bta+1
sbc __btb+1
bcc __nxt ;skok gdy __BTA<__BTB
sty __bta ;dzielna=dzielna+
sta __bta+1 ; -dzielnik*2(.X-1)
__nxt rol __rsl ;"wciągnięcie" potęgi
dex ;.X-1 do wyniku
bne __lop
rts
__bta org *+2
__btb org *+2
__rsl org *+1
__div sta __bta ;przygotowanie
stx __bta+1 ;danych
ldx #0
stx __btb
sty __btb+1 ;dzielnik*2^8
ldx #8 ;długość słowa
__lop lsr __btb+1 ;dzielnik*2(.X-1)
ror __btb
sec
lda __bta ;dzielna-dzielnik
sbc __btb ;a zarazem porównanie
tay
lda __bta+1
sbc __btb+1
bcc __nxt ;skok gdy __BTA<__BTB
sty __bta ;dzielna=dzielna+
sta __bta+1 ; -dzielnik*2(.X-1)
__nxt rol __rsl ;"wciągnięcie" potęgi
dex ;.X-1 do wyniku
bne __lop
rts
__bta org *+2
__btb org *+2
__rsl org *+1
__lop lsr __btb ;dzielnik*2(.X-1)
ror __btb+1
Od 1 do 19 z 19