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.
;.A=Y,.Y=X
ldx #0
stx scrad
lsr
ror scrad
lsr
ror scrad
lsr
ror scrad
sta scrad+1
lda #<scr
adc scrad
sta scrad
lda #>scr
adc scrad+1
sta scrad+1
lda (scrad),y
;.X=Y,.Y=X
lda lntablo,x
sta scrad
lda lntabhi,x
sta scrad+1
lda (scrad),y
;.X=Y,.A=X, .Y=width-1
clc
adc lntablo,x
sta scrad
lda #0
adc lntabhi,x
sta scrad+1
loop:
scrad = *+1
lda $ffff,y
dey
bpl loop
ldx #<src
ldy #>src
stx src0
sty src0+1
iny
stx src1
sty src1+1
iny
stx src2
sty src2+1
iny
stx src3
sty src3+1
ldx #<dst
ldy #>dst
stx dst0
sty dst0+1
iny
stx dst1
sty dst1+1
iny
stx dst2
sty dst2+1
iny
stx dst3
sty dst3+1
ldx #0
?copy:
src0 = *+1
lda $ffff,x
dst0 = *+1
sta $ffff,x
src1 = *+1
lda $ffff,x
dst1 = *+1
sta $ffff,x
src2 = *+1
lda $ffff,x
dst2 = *+1
sta $ffff,x
src3 = *+1
lda $ffff,x
dst3 = *+1
sta $ffff,x
inx
bne ?copy
;.A=Y,.Y=X
ldx #0
stx scrad
lsr
ror scrad
lsr
ror scrad
lsr
ror scrad
adc #>scr
sta scrad+1
lda (scrad),y
ldx #0
t:
lda src,x
sta dst,x
dex
bne t
;korekta wsp. y: src i dst, dla dst wystarczy zwiększyć starszy bajt...
;jeszcze raz
Od 1 do 10 z 10