Code: Select all
inc Ticks
ldx Ticks
cpx #$08 ;once every 8 frames
bne InfiniteLoop
inc Value
lda #$00
sta Ticks
sta $2006
sta $2006
ldx Value
stx $2005
sta $2005 ;No vertical movement
jmp InfiniteLoopCode: Select all
inc Ticks
ldx Ticks
cpx #$08 ;once every 8 frames
bne InfiniteLoop
inc Value
lda #$00
sta Ticks
sta $2006
sta $2006
ldx Value
stx $2005
sta $2005 ;No vertical movement
jmp InfiniteLoopCode: Select all
lda #$00 ; Reset VRAM
sta $2006
sta $2006
inc Value
ldx Value
stx $2005
sta $2005 ;No vertical movement