shave some bytes

src/fx/fx.dhgr.2bit.fizzle.a

@@ -13,6 +13,8 @@ copymasks = $6200                    ; [256 bytes, page-aligned, duplicated in a
          sta   $FF, x
          dex
          bne   -
+         ;X=0
+         ;A=3
 --       ldy   #$40                  ; create identical copymask tables in main and aux memory
          ora   #%10000000
 -        sta   copymasks, x
@@ -50,9 +52,9 @@ copymasks = $6200                    ; [256 bytes, page-aligned, duplicated in a
 start
 !pseudopc 0 {
          !byte %00000011
+;Y=0 on entry to copyaux
 copyaux  sta   $C003                 ; copy $4000/aux to $8000/main
          ldx   #$20
-         ldy   #$00
 a        lda   $4000, y
 b        sta   $8000, y
          iny
@@ -90,9 +92,9 @@ dst      sta   $FD00, y              ; write the result
          bmi   exit
          txa
          bne   loop1
-exit     lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
+         lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
          sta   (dst+1), y
-         sta   $C000                 ; 80STORE mode off
+exit     sta   $C000                 ; 80STORE mode off
          rts
 
 aux      sta   $C055                 ; switch $2000 access to aux memory (read/write!)

src/fx/fx.dhgr.2pass.lr.a

@@ -15,6 +15,7 @@ hgr1hi   =     $0300                 ; [$C0 bytes, main memory only]
          sta   $FF, x
          dex
          bne   -
+         ;X=0
          +BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 hgrlo, hgr1hi
          jmp   loop
 

src/fx/fx.dhgr.bar.dissolve.a

@@ -15,6 +15,7 @@ hgr1hi   =     $0300                 ; [$C0 bytes, main memory only]
          sta   $FF, x
          dex
          bne   -
+         ;X=0
          +BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 hgrlo, hgr1hi
          jmp   loop
 

src/fx/fx.dhgr.diagonal.a

@@ -16,7 +16,7 @@ copymasks=     $02C0                 ; [$08 bytes, different values in main and
          sta   $FF, x
          dex
          bne   -
-
+         ;X=0
          +BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 hgrlo, hgr1hi
 
          ldy   #8                    ; copy copymask arrays into place in main and auxmem

src/fx/fx.dhgr.fizzle.a

@@ -5,7 +5,7 @@
 !to "build/FX.INDEXED/DHGR.FIZZLE",plain
 *=$6000
 
-addrs=$C0                            ; [$40 bytes]
+addrs=$BF                            ; [$40 bytes]
 
          ldx   #$1F                  ; build address lookup table
 -        txa
@@ -15,18 +15,20 @@ addrs=$C0                            ; [$40 bytes]
          sta   addrs+$20, x
          dex
          bpl   -
-         ldx   #(end-start)          ; copy LFSR code to zero page
+         ldx   #(end-start+1)        ; copy LFSR code to zero page
--        lda   start-1, x
+-        ldy   start-2, x
-         sta   $FF, x
+         sty   $FE, x
          dex
          bne   -
+         ;X=0
+         ;Y=0
          jmp   copyaux
 
 start
 !pseudopc 0 {
+;Y=0 on entry to copyaux
 copyaux  sta   $C003                 ; copy $4000/aux to $8000/main
          ldx   #$20
-         ldy   #$00
 a        lda   $4000, y
 b        sta   $8000, y
          iny
@@ -37,8 +39,7 @@ b        sta   $8000, y
          bne   a
          sta   $C002
          sta   $C001                 ; 80STORE mode
-; X,Y=0 on entry to LFSR
+;X,Y=0 on entry to LFSR
-; in: X,Y=0
 loop     txa
 loop1    eor   #$35                  ; LFSR form 0x3500 with period 16383
          tax
@@ -62,9 +63,9 @@ dst      sta   $FD00, y
          bmi   exit
          txa
          bne   loop1
-exit     lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
+         lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
          sta   (dst+1), y
-         sta   $C000                 ; 80STORE mode off
+exit     sta   $C000                 ; 80STORE mode off
          rts
 aux      sta   $C055                 ; switch $2000 access to aux memory (read/write!)
          sta   <auxsrc+2

src/fx/fx.dhgr.flick.a

@@ -11,14 +11,14 @@ hgr1hi = $300                        ; [$C0 bytes, main memory only]
 
          !source "src/fx/macros.a"
 
-         ldx   #(end-start)          ; copy code to zero page
--        lda   start-1, x
-         sta   $FF, x
          lda   #0
+         ldx   #(end-start)          ; copy code to zero page
+-        ldy   start-1, x
+         sty   $FF, x
          sta   startrows_by_column-1, x
          dex
          bne   -
-
+         ;X=0
          +BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 hgrlo, hgr1hi
 
          jmp   loop

src/fx/fx.hgr.1bit.fizzle.a

@@ -13,6 +13,8 @@ copymasks = $6200                    ; [256 bytes, page-aligned]
          sta   $FF, x
          dex
          bne   -
+         ;X=0
+         ;A=1
 --       ldy   #$20                  ; create copymask table
          ora   #%10000000
 -        sta   copymasks, x
@@ -63,8 +65,8 @@ dst      sta   $FD00, y              ; write the result
          bmi   exit
          txa
          bne   loop1
-exit     lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
+         lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
          sta   (dst+1), y
-         rts
+exit     rts
 }
 end

src/fx/fx.hgr.2bit.fizzle.a

@@ -65,8 +65,8 @@ dst      sta   $FD00, y              ; write the result
          bmi   exit
          txa
          bne   loop1
-exit     lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
+         lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
          sta   (dst+1), y
-         rts
+exit     rts
 }
 end

src/fx/fx.shr.fizzle.a

@@ -7,13 +7,8 @@
 
          !source "src/fx/fx.shr.common.a"
 
-addrs=$80                            ; [128 bytes]
+addrs=$7F                            ; [128 bytes]
 
-         ldx   #(end-start)          ; copy LFSR code to zero page
--        lda   start-1, x
-         sta   $FF, x
-         dex
-         bne   -
          lda   #$A0                  ; create address lookup table
          tax
          tay
@@ -21,8 +16,14 @@ addrs=$80                            ; [128 bytes]
          sty   addrs-$21, x
          dex
          bne   -
+
+         ldx   #(end-start+1)        ; copy LFSR code to zero page
+-        ldy   start-2, x
+         sty   $FE, x
+         dex
+         bne   -
          ;X=0
-         ldy   #0
+         ;Y=0
 
          +COPY_SCB_AND_PALETTES
          ;WRITEAUXMEM active
@@ -37,10 +38,9 @@ loop     txa
 loop1    eor   #$60                  ; LFSR form 0x6000 with period 32767
          tax
 loop2    lda   addrs, x
-         sta   <src+1
+         sta   <src+2
-src=*+1
+src      lda   $FD00, y              ; SMC high byte
-         lda   $FD00, y              ; SMC high byte
+         sta   (src+1), y
-         sta   (<src), y
          txa
          lsr
          tax
@@ -53,8 +53,8 @@ src=*+1
          bmi   exit
          txa
          bne   loop1
-exit     lda   (src), y              ; last lousy byte (because LFSR never hits 0)
+         lda   (src+1), y            ; last lousy byte (because LFSR never hits 0)
-         sta   (src), y
+         sta   (src+1), y
-         rts
+exit     rts
 }
 end

src/fx/fx.shr.lr.a

@@ -8,19 +8,21 @@
          !source "src/fx/fx.shr.common.a"
 
 shrlo = $301                         ; $C8 bytes
-shrhi = $38                          ; $C8 bytes
+shrhi = $37                          ; $C8 bytes
-
-         ldx   #(end-start-1)        ; copy loop to zero page
--        lda   start, x
-         sta   $00, x
-         dex
-         bpl   -
 
          +BUILD_SHR_LOOKUP_TABLES shrlo, shrhi
+
+         ldx   #(end-start+1)        ; copy loop to zero page
+-        ldy   start-2, x
+         sty   $FE, x
+         dex
+         bne   -
          ;X=0
+         ;Y=0
+
          +COPY_SCB_AND_PALETTES
          ;WRITEAUXMEM active
-         ldy   #0
+
          jmp   loop
 
 start
@@ -46,6 +48,6 @@ dst      sta   $0000, y              ; SMC
 end
 
 ; if zero page code gets too large, move shrhi to $201
-!if end-start > $38 {
+!if end-start > shrhi {
     !error "code is too large: ends at ", end-start
 }

src/fx/macros.a

@@ -6,12 +6,14 @@
 ; posted on comp.sys.apple2 on 2018-07-11
 ; https://groups.google.com/d/msg/comp.sys.apple2/v2HOfHOmeNQ/zD76fJg_BAAJ
 !macro BUILD_HGR_LOOKUP_TABLES .hgrlo, .hgr1hi {
+; preserves Y
          ldx   #0
          +BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 .hgrlo, .hgr1hi
 }
 
 ; use this macro instead if you know X is already 0 on entry, to save 2 bytes
 !macro BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 .hgrlo, .hgr1hi {
+; preserves Y
 -        txa
          and   #$F8
          bpl   +

src/index/artwork.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10947866
+         !be24  10947858
          !le16     4281

src/index/attract.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10900652
+         !be24  10900644
          !le16     5239

src/index/cache00.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10843511
+         !be24  10843503
          !le16     3586

src/index/cache01.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10855881
+         !be24  10855873
          !le16     3946

src/index/cache10.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10871280
+         !be24  10871272
          !le16     4998

src/index/cache11.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10888932
+         !be24  10888924
          !le16     5571

src/index/coverfade.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10952147
+         !be24  10952139
          !le16      410

src/index/credits.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10952932
+         !be24  10952924
          !le16      448

src/index/decrunch.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10953380
+         !be24  10953372
          !le16      303

src/index/dfx.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10908037
+         !be24  10908029
          !le16     1242

src/index/dgr.fizzle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10952664
+         !be24  10952656
          !le16       67

src/index/dgr.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10947807
+         !be24  10947799
          !le16       59

src/index/dhgr.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10946477
+         !be24  10946469
          !le16     1249

src/index/dtitle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10932467
+         !be24  10932459
          !le16      464

src/index/fx.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10905891
+         !be24  10905883
          !le16     2146

src/index/gamehelp.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10909510
+         !be24  10909502
          !le16     6149

src/index/gr.fizzle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10952557
+         !be24  10952549
          !le16      107

src/index/gr.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10947726
+         !be24  10947718
          !le16       81

src/index/helptext.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10952731
+         !be24  10952723
          !le16      201

src/index/hgr0.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10932931
+         !be24  10932923
          !le16     4407

src/index/hgr1.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10937338
+         !be24  10937330
          !le16     1533

src/index/hgr2.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10938871
+         !be24  10938863
          !le16     1040

src/index/hgr3.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10939911
+         !be24  10939903
          !le16     3237

src/index/hgr4.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10943148
+         !be24  10943140
          !le16     2764

src/index/hgr5.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10945912
+         !be24  10945904
          !le16      460

src/index/hgr6.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10946372
+         !be24  10946364
          !le16      105

src/index/joystick.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10953683
+         !be24  10953675
          !le16     2370

src/index/miniattract.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10920572
+         !be24  10920564
          !le16     6149

src/index/prelaunch.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10894503
+         !be24  10894495
          !le16     6149

src/index/search00.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10835479
+         !be24  10835471
          !le16     8032

src/index/search01.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10847097
+         !be24  10847089
          !le16     8784

src/index/search10.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10859827
+         !be24  10859819
          !le16    11453

src/index/search11.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10876278
+         !be24  10876270
          !le16    12654

src/index/sfx.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10909279
+         !be24  10909271
          !le16      231

src/index/slideshow.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10915659
+         !be24  10915651
          !le16     4913

src/index/title.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10926721
+         !be24  10926713
          !le16     5746