od czegos trzeba zaczac, nie jest to wyczyn (nie wiem tez czy zadziala). zaraz pewnie znajdzie sie ktos kto poprawi/zoptymalizuje
source,dest,ofset1,ofset2,b,l
pla
pla
sta source
pla
sta source+1
pla
sta dest
pla
sta dest+1
pla
sta ofset1
pla
sta ofset2
pla
tax
lda tab,x
sta operacja
lda tab1,x
sta operacja+1
pla
tax
ldy #0
_copy lda (source),y
operacja ora (dest),y
sta (dest),y
lda source
clc
adc ofset1
sta source
bcc *+4
inc source+1
lda dest
clc
adc ofset2
sta dest
bcc *+4
inc dest+1
dex
bne _copy
rts
tab dta {bit},{and ($00),y},{ora ($00),y},{eor ($00),y},{eor #0}
tab1 dta $00,dest,dest,dest,$ff