4cade/src/fx/fx.hgr.stagger.lr.a
2018-12-29 13:43:59 -05:00

44 lines
804 B
Plaintext

;license:MIT
;(c) 2018 by 4am
;
!cpu 6502
!to "build/FX/STAGGER.LR",plain
*=$6000
row = $fd
col1 = $fe
col2 = $ff
lda #$00
sta col1
lda #$27
sta col2
@outerloop
lda #$2E
sta row
@loop1 ldy col1
lda row
jsr HGRHalfBlockCopy
iny
jsr HGRStaggerCopy
ldy col2
lda row
jsr HGRHalfBlockCopy
dey
jsr HGRStaggerCopy
dec row
dec row
bpl @loop1
lda #$40
jsr WaitForKeyWithTimeout
bmi @exit
inc col1
inc col1
dec col2
dec col2
bpl @outerloop
@exit rts
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"