construct half block fizzle data at runtime

src/fx/fx.hgr.block.fizzle.common.a

@@ -8,10 +8,8 @@ Coordinates = $7000       ; about $700 bytes, can be anywhere
          !source "src/fx/macros.a"
 
 !macro BUILD_BLOCK_FIZZLE_DATA {
-         lda   #<Coordinates
+         +LDADDR Coordinates
-         sta   coord
+         +ST16 coord
-         lda   #>Coordinates
-         sta   coord+1
 
          ;init RNG
 

src/fx/fx.hgr.halfblock.fizzle.a

@@ -5,79 +5,12 @@
 !to "build/FX/HALF.FIZZLE",plain
 *=$6000
 
-coord = $FE
+         !source "src/fx/fx.hgr.halfblock.fizzle.common.a"
 
-         lda   #<Coordinates
+         +BUILD_HALFBLOCK_FIZZLE_DATA
-         sta   coord
-         lda   #>Coordinates
-         sta   coord+1
 
-         ;init RNG
+         +LDADDR Coordinates
-
+         +ST16 coord
-         ldx   #1
-         stx   @rnd1+1
-         dex
-         stx   @rnd2+1
-
-         ;iterate
-
-@loop
-         ldy   @rnd1+1
-         ldx   @rnd2+1
-         lsr   @rnd2+1
-         ror   @rnd1+1
-         bcc   +
-
-         ;feedback polynomial forms #$500 for period of 2047
-
-         lda   @rnd2+1
-         eor   #5
-         sta   @rnd2+1
-
-+        tya
-         eor   #$ff
-         ldy   #0
--        cpx   #0
-         bne   +
-         cmp   #40
-         bcc   ++
-+        sbc   #40
-         pha
-         txa
-         sbc   #0
-         tax
-         pla
-         iny
-         bne   -
-
-++       cpy   #48
-         bcs   @rnd2
-         tax
-         tya
-         jsr   @stainc
-         txa
-         jsr   @stainc
-
-@rnd2    lda   #0
-         bne   @loop
-@rnd1    lda   #0
-         cmp   #1
-         bne   @loop
-
-         ;include the missing point
-
-         lda   #6
-         jsr   @stainc
-         lda   #15
-         jsr   @stainc
-
-         lda   #$ff
-         jsr   @stainc
-
-         lda   #<Coordinates
-         sta   coord
-         lda   #>Coordinates
-         sta   coord+1
 @loop2
          ldy   #0
          lda   (coord),y
@@ -100,16 +33,6 @@ coord = $FE
 +        bne   @loop2
 @exit    rts
 
-@stainc
-         ldy   #0
-         sta   (coord), y
-         inc   coord
-         bne   +
-         inc   coord+1
-+        rts
-
          !source "src/wait.a"
          !source "src/fx/fx.hgr.common.a"
          +HGR_HALF_BLOCK_COPY_ROUTINES
-
-Coordinates

src/fx/fx.hgr.halfblock.fizzle.common.a

@@ -0,0 +1,84 @@
+;license:MIT
+;(c) 2020 by qkumba
+;
+coord = $FE
+Coordinates = $7000       ; about $700 bytes, can be anywhere
+
+         !source "src/fx/macros.a"
+
+!macro BUILD_HALFBLOCK_FIZZLE_DATA {
+         +LDADDR Coordinates
+         +ST16 coord
+
+         ;init RNG
+
+         ldx   #1
+         stx   @rnd1+1
+         dex
+         stx   @rnd2+1
+
+         ;iterate
+
+@loop
+         ldy   @rnd1+1
+         ldx   @rnd2+1
+         lsr   @rnd2+1
+         ror   @rnd1+1
+         bcc   +
+
+         ;feedback polynomial forms #$500 for period of 2047
+
+         lda   @rnd2+1
+         eor   #5
+         sta   @rnd2+1
+
++        tya
+         eor   #$ff
+         ldy   #0
+-        cpx   #0
+         bne   +
+         cmp   #40
+         bcc   ++
++        sbc   #40
+         pha
+         txa
+         sbc   #0
+         tax
+         pla
+         iny
+         bne   -
+
+++       cpy   #48
+         bcs   @rnd2
+         tax
+         tya
+         jsr   @stainc
+         txa
+         jsr   @stainc
+
+@rnd2    lda   #0
+         bne   @loop
+@rnd1    lda   #0
+         cmp   #1
+         bne   @loop
+
+         ;include the missing point
+
+         lda   #6
+         jsr   @stainc
+         lda   #15
+         jsr   @stainc
+
+         lda   #$ff
+         jsr   @stainc
+         bne   ++                    ; always branches
+
+@stainc
+         ldy   #0
+         sta   (coord), y
+         inc   coord
+         bne   +
+         inc   coord+1
++        rts
+++
+}

src/fx/fx.hgr.halfblock.fizzle.white.a

@@ -5,12 +5,12 @@
 !to "build/FX/HALF.MOSAIC",plain
 *=$6000
 
-coord = $FE
+         !source "src/fx/fx.hgr.halfblock.fizzle.common.a"
 
-         lda   #<@coords
+         +BUILD_HALFBLOCK_FIZZLE_DATA
-         sta   coord
+
-         lda   #>@coords
+         +LDADDR Coordinates
-         sta   coord+1
+         +ST16 coord
 @whiteloop
          ldy   #0
          lda   (coord),y
@@ -32,10 +32,8 @@ coord = $FE
          inc   coord+1
 +        bne   @whiteloop
 @endwhite
-         lda   #<@coords
+         +LDADDR Coordinates
-         sta   coord
+         +ST16 coord
-         lda   #>@coords
-         sta   coord+1
 @copyloop
          ldy   #0
          lda   (coord),y
@@ -58,9 +56,6 @@ coord = $FE
 +        bne   @copyloop
 @exit    rts
 
-@coords
-         !source "src/fx/fx.hgr.halfblock.fizzle.data.a"
-
          !source "src/wait.a"
          !source "src/fx/fx.hgr.common.a"
          +HGR_WHITE_ROUTINES