;license:MIT
;(c) 2019-2022 by 4am
;

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

row1 = $fe
row2 = $ff

         !source "src/fx/macros.a"

         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   iWaitForKeyWithTimeout
         bmi   @exit
         dey                         ; Y -> #$27
         inc   row1
         inc   row1
         dec   row2
         dec   row2
         bpl   @loop1
@exit    rts

         +HGR_HALF_BLOCK_COPY_ROUTINES