!cpu 6502
!to "build/FX/STAGGER.UD",plain
*=$6000

row1 = $fe
row2 = $ff

         lda   #$00
         sta   row1
         lda   #$2E
         sta   row2
         ldy   #$27
@loop1   lda   row1
         jsr   HGRHalfBlockCopy
         dey
         jsr   HGRStaggerCopy
         dey
         bpl   @loop1
         iny                         ; Y -> 0
@loop2   lda   row2
         jsr   HGRHalfBlockCopy
         iny
         jsr   HGRStaggerCopy
         iny
         cpy   #$28
         bne   @loop2
         lda   #$40
         jsr   WaitForKeyWithTimeout
         bmi   @exit
         dey                         ; Y -> #$27
         inc   row1
         inc   row1
         dec   row2
         dec   row2
         bpl   @loop1
@exit    rts

         !source "src/wait.a"
         !source "src/fx/fx.hgr.common.a"