;license:MIT
;(c) 2018 by 4am
;
!cpu 6502
!to "build/FX/BLOCK.MOSAIC",plain
*=$6000

coord = $FE

         lda   #<@coords
         sta   coord
         lda   #>@coords
         sta   coord+1
@whiteloop
         ldy   #0
         lda   (coord),y
         bmi   @endwhite
         tax
         iny
         lda   (coord),y
         tay
         txa
         jsr   HGRBlockToWhite
         lda   #$03
         jsr   WaitForKeyWithTimeout
         bmi   @exit
         inc   coord
         bne   +
         inc   coord+1
+        inc   coord
         bne   +
         inc   coord+1
+        bne   @whiteloop
@endwhite
         lda   #<@coords
         sta   coord
         lda   #>@coords
         sta   coord+1
@copyloop
         ldy   #0
         lda   (coord),y
         bmi   @exit
         tax
         iny
         lda   (coord),y
         tay
         txa
         jsr   HGRBlockCopy
         lda   #$03
         jsr   WaitForKeyWithTimeout
         bmi   @exit
         inc   coord
         bne   +
         inc   coord+1
+        inc   coord
         bne   +
         inc   coord+1
+        bne   @copyloop
@exit    rts

@coords
         !source "src/fx/fx.hgr.block.fizzle.data.a"

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