rendered paste body .org $0300
offsety: .db 0
.org $0320
offsetx: .db 0
; . . .
; få start-indeksene til spritene inn i offset ($0300)
offsetyl:
ldx #0
ldy #0
.loop tya
sta offsety,x
iny
iny
iny
iny
inx
cpx #32
bne .loop
offsetxl:
ldx #0
ldy #$FF
.loop tya
sta offsetx,x
dey
dey
dey
dey
inx
cpx #32
bne .loop
; . . .
.loop tya
pha
lda offsety,y
clc
adc #1
sta offsety,y
tay
lda sinetab,y
clc
adc #16
sta $0200,x
pla
tay
pha
lda offsetx,y
clc
sbc #1
sta offsetx,y
tay
lda sinetab,y
clc
adc #16
sta $0203,x
txa
clc
adc #4
tax
pla
tay
iny
cpy #32
bne .loop