From 37d50064c698b5e791003468ba43fbbb72bf0674 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sat, 4 Dec 2021 22:10:23 -0500
Subject: [PATCH] shave some cycles

---
 src/fx/fx.shr.80boxes.common.a | 42 +++++++++++++++++++---------------
 src/index/artwork.idx.a        |  2 +-
 src/index/attract.idx.a        |  2 +-
 src/index/cache00.idx.a        |  2 +-
 src/index/cache01.idx.a        |  2 +-
 src/index/cache10.idx.a        |  2 +-
 src/index/cache11.idx.a        |  2 +-
 src/index/coverfade.idx.a      |  2 +-
 src/index/credits.idx.a        |  2 +-
 src/index/decrunch.idx.a       |  2 +-
 src/index/dfx.idx.a            |  2 +-
 src/index/dhgr.idx.a           |  2 +-
 src/index/dtitle.idx.a         |  2 +-
 src/index/fx.idx.a             |  2 +-
 src/index/gamehelp.idx.a       |  2 +-
 src/index/gr.fizzle.idx.a      |  2 +-
 src/index/gr.idx.a             |  2 +-
 src/index/helptext.idx.a       |  2 +-
 src/index/hgr0.idx.a           |  2 +-
 src/index/hgr1.idx.a           |  2 +-
 src/index/hgr2.idx.a           |  2 +-
 src/index/hgr3.idx.a           |  2 +-
 src/index/hgr4.idx.a           |  2 +-
 src/index/hgr5.idx.a           |  2 +-
 src/index/hgr6.idx.a           |  2 +-
 src/index/joystick.idx.a       |  2 +-
 src/index/miniattract.idx.a    |  2 +-
 src/index/prelaunch.idx.a      |  2 +-
 src/index/search00.idx.a       |  2 +-
 src/index/search01.idx.a       |  2 +-
 src/index/search10.idx.a       |  2 +-
 src/index/search11.idx.a       |  2 +-
 src/index/sfx.idx.a            |  2 +-
 src/index/slideshow.idx.a      |  2 +-
 src/index/title.idx.a          |  2 +-
 35 files changed, 57 insertions(+), 53 deletions(-)

diff --git a/src/fx/fx.shr.80boxes.common.a b/src/fx/fx.shr.80boxes.common.a
index e596fc183..26e5f95af 100644
--- a/src/fx/fx.shr.80boxes.common.a
+++ b/src/fx/fx.shr.80boxes.common.a
@@ -126,12 +126,23 @@ BoxesY    = $BEB0                    ; [$50 bytes][accessed via BoxesY-1][should
          ;WRITEAUXMEM active
          jmp   MainLoop
 
+siderows !byte 1,5,9,13,17,21
+branches !byte across2-back
+         !byte across3-back
+         !byte across4-back
+         !byte across5-back
+         !byte across6-back
+         !byte across7-back
+
 start
 !pseudopc 0 {
 copy1    ldx   <topx+1
          +SET_ROW_X
          ldy   <lefty+1
-         jsr   across1
+         +COPY_BYTE_AND_INY
+         +COPY_BYTE_AND_INY
+         +COPY_BYTE_AND_INY
+         +COPY_BYTE
 ReBox    ldx   #$00                  ; [SMC] X = BoxLoop index 1..80
 NextBox  dex
          bne   BoxLoop
@@ -142,6 +153,7 @@ NextBox  dex
          bpl   MainLoop
 exit     sta   WRITEMAINMEM
 setV     rts
+
 MainLoop ldx   #80
 BoxLoop  ldy   BoxStages-1, x        ; for each box, get its current stage
          inc   BoxStages-1, x        ; increment every box's stage every time through the loop
@@ -160,20 +172,19 @@ stage    ldx   #$00                  ; [SMC] X = stage index 1..7, reinitialized
          sta   <lefty+1
          dex
          beq   copy1
-         lda   <siderows-1, x
+         lda   siderows-1, x
          sta   <rowcount
-         lda   <across_lo-1, x
-         sta   <j+1
+         lda   branches-1, x
+         sta   <branch+1
 topx     ldx   #$FD                  ; [SMC]
          clv
 copy2row clc
          !byte $A9
 copy1row sec
-         +SET_ROW_X
          ldy   <lefty+1
-j        jsr   across7               ; [SMC low byte]
-         inx
-         bcc   copy1row
+         +SET_ROW_X
+branch   bne   across7               ; [SMC branch target][always branches]
+back     bcc   copy1row
          bvs   ReBox
          sty   <righty+1
 copyside +SET_ROW_X
@@ -199,26 +210,19 @@ across3  +COPY_BYTE_AND_INY
          +COPY_BYTE_AND_INY
 across2  +COPY_BYTE_AND_INY
          +COPY_BYTE_AND_INY
-across1  +COPY_BYTE_AND_INY
+         +COPY_BYTE_AND_INY
          +COPY_BYTE_AND_INY
          +COPY_BYTE_AND_INY
          lda   (src+1), y
 src      sta   $FDFD, y              ; [SMC]
-         rts
+         inx
+         bne   back                  ; always branches
 
 toprow   !byte 12,10,8,6,4,2,0
 leftbyte !byte 6,5,4,3,2,1,0
-siderows !byte 1,5,9,13,17,21
-across_lo
-         !byte <across2
-         !byte <across3
-         !byte <across4
-         !byte <across5
-         !byte <across6
-         !byte <across7
 rowcount
 }
-!if (*-start>=$FF) {
+!if (*-start>$FF) {
          !error "Code is too big to fit on zero page! ", *-start
 }
 
diff --git a/src/index/artwork.idx.a b/src/index/artwork.idx.a
index 69306008c..20aa8ac34 100644
--- a/src/index/artwork.idx.a
+++ b/src/index/artwork.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10806970
+         !be24  10807078
          !le16     4244
diff --git a/src/index/attract.idx.a b/src/index/attract.idx.a
index 22d93ad90..6a211e466 100644
--- a/src/index/attract.idx.a
+++ b/src/index/attract.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10759850
+         !be24  10759958
          !le16     5223
diff --git a/src/index/cache00.idx.a b/src/index/cache00.idx.a
index 14c8b3a2c..49870aa11 100644
--- a/src/index/cache00.idx.a
+++ b/src/index/cache00.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10703061
+         !be24  10703169
          !le16     3593
diff --git a/src/index/cache01.idx.a b/src/index/cache01.idx.a
index adf9f6afe..d36192432 100644
--- a/src/index/cache01.idx.a
+++ b/src/index/cache01.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10715438
+         !be24  10715546
          !le16     3953
diff --git a/src/index/cache10.idx.a b/src/index/cache10.idx.a
index 9169ce60c..8dd532024 100644
--- a/src/index/cache10.idx.a
+++ b/src/index/cache10.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10730844
+         !be24  10730952
          !le16     4628
diff --git a/src/index/cache11.idx.a b/src/index/cache11.idx.a
index 7fdbfea01..4951f29aa 100644
--- a/src/index/cache11.idx.a
+++ b/src/index/cache11.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10748126
+         !be24  10748234
          !le16     5575
diff --git a/src/index/coverfade.idx.a b/src/index/coverfade.idx.a
index 3f8892c98..e84fe5297 100644
--- a/src/index/coverfade.idx.a
+++ b/src/index/coverfade.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10811214
+         !be24  10811322
          !le16      410
diff --git a/src/index/credits.idx.a b/src/index/credits.idx.a
index f0db42b41..5d1267b05 100644
--- a/src/index/credits.idx.a
+++ b/src/index/credits.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10811932
+         !be24  10812040
          !le16      448
diff --git a/src/index/decrunch.idx.a b/src/index/decrunch.idx.a
index 3e4875e70..e55b48d82 100644
--- a/src/index/decrunch.idx.a
+++ b/src/index/decrunch.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10812380
+         !be24  10812488
          !le16      303
diff --git a/src/index/dfx.idx.a b/src/index/dfx.idx.a
index 707101bea..ea1fb1ccf 100644
--- a/src/index/dfx.idx.a
+++ b/src/index/dfx.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10767219
+         !be24  10767327
          !le16     1242
diff --git a/src/index/dhgr.idx.a b/src/index/dhgr.idx.a
index 3c8393cdc..167e1c9bd 100644
--- a/src/index/dhgr.idx.a
+++ b/src/index/dhgr.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10805640
+         !be24  10805748
          !le16     1249
diff --git a/src/index/dtitle.idx.a b/src/index/dtitle.idx.a
index ddec6496a..f63458c0d 100644
--- a/src/index/dtitle.idx.a
+++ b/src/index/dtitle.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10791630
+         !be24  10791738
          !le16      464
diff --git a/src/index/fx.idx.a b/src/index/fx.idx.a
index 9d77bc322..ae9a01700 100644
--- a/src/index/fx.idx.a
+++ b/src/index/fx.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10765073
+         !be24  10765181
          !le16     2146
diff --git a/src/index/gamehelp.idx.a b/src/index/gamehelp.idx.a
index 39c452fe6..06efef1a6 100644
--- a/src/index/gamehelp.idx.a
+++ b/src/index/gamehelp.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10768692
+         !be24  10768800
          !le16     6149
diff --git a/src/index/gr.fizzle.idx.a b/src/index/gr.fizzle.idx.a
index 581c2da76..8489377ee 100644
--- a/src/index/gr.fizzle.idx.a
+++ b/src/index/gr.fizzle.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10811624
+         !be24  10811732
          !le16      107
diff --git a/src/index/gr.idx.a b/src/index/gr.idx.a
index 85cf3381e..85caae010 100644
--- a/src/index/gr.idx.a
+++ b/src/index/gr.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10806889
+         !be24  10806997
          !le16       81
diff --git a/src/index/helptext.idx.a b/src/index/helptext.idx.a
index 3ee601204..e4ef9ad05 100644
--- a/src/index/helptext.idx.a
+++ b/src/index/helptext.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10811731
+         !be24  10811839
          !le16      201
diff --git a/src/index/hgr0.idx.a b/src/index/hgr0.idx.a
index 65e59003c..1d99c3993 100644
--- a/src/index/hgr0.idx.a
+++ b/src/index/hgr0.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10792094
+         !be24  10792202
          !le16     4407
diff --git a/src/index/hgr1.idx.a b/src/index/hgr1.idx.a
index 5071729e3..f65906ab8 100644
--- a/src/index/hgr1.idx.a
+++ b/src/index/hgr1.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10796501
+         !be24  10796609
          !le16     1533
diff --git a/src/index/hgr2.idx.a b/src/index/hgr2.idx.a
index 9ecec2e9a..a1f68e079 100644
--- a/src/index/hgr2.idx.a
+++ b/src/index/hgr2.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10798034
+         !be24  10798142
          !le16     1040
diff --git a/src/index/hgr3.idx.a b/src/index/hgr3.idx.a
index 34c21da1f..932771334 100644
--- a/src/index/hgr3.idx.a
+++ b/src/index/hgr3.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10799074
+         !be24  10799182
          !le16     3237
diff --git a/src/index/hgr4.idx.a b/src/index/hgr4.idx.a
index 2dff2a834..702de77d7 100644
--- a/src/index/hgr4.idx.a
+++ b/src/index/hgr4.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10802311
+         !be24  10802419
          !le16     2764
diff --git a/src/index/hgr5.idx.a b/src/index/hgr5.idx.a
index 20284a44e..04660198c 100644
--- a/src/index/hgr5.idx.a
+++ b/src/index/hgr5.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10805075
+         !be24  10805183
          !le16      460
diff --git a/src/index/hgr6.idx.a b/src/index/hgr6.idx.a
index f5fb775a0..84ce167e4 100644
--- a/src/index/hgr6.idx.a
+++ b/src/index/hgr6.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10805535
+         !be24  10805643
          !le16      105
diff --git a/src/index/joystick.idx.a b/src/index/joystick.idx.a
index fc264fd8f..d00b5cd2e 100644
--- a/src/index/joystick.idx.a
+++ b/src/index/joystick.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10812683
+         !be24  10812791
          !le16     2370
diff --git a/src/index/miniattract.idx.a b/src/index/miniattract.idx.a
index 805877754..d2d97f570 100644
--- a/src/index/miniattract.idx.a
+++ b/src/index/miniattract.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10779735
+         !be24  10779843
          !le16     6149
diff --git a/src/index/prelaunch.idx.a b/src/index/prelaunch.idx.a
index d03b3e589..5ecdea52c 100644
--- a/src/index/prelaunch.idx.a
+++ b/src/index/prelaunch.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10753701
+         !be24  10753809
          !le16     6149
diff --git a/src/index/search00.idx.a b/src/index/search00.idx.a
index 25a069146..5349f5924 100644
--- a/src/index/search00.idx.a
+++ b/src/index/search00.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10695029
+         !be24  10695137
          !le16     8032
diff --git a/src/index/search01.idx.a b/src/index/search01.idx.a
index bdff673c2..c8b40bb6c 100644
--- a/src/index/search01.idx.a
+++ b/src/index/search01.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10706654
+         !be24  10706762
          !le16     8784
diff --git a/src/index/search10.idx.a b/src/index/search10.idx.a
index 401b7c016..d3af2c348 100644
--- a/src/index/search10.idx.a
+++ b/src/index/search10.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10719391
+         !be24  10719499
          !le16    11453
diff --git a/src/index/search11.idx.a b/src/index/search11.idx.a
index cddb0419c..b706201bb 100644
--- a/src/index/search11.idx.a
+++ b/src/index/search11.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10735472
+         !be24  10735580
          !le16    12654
diff --git a/src/index/sfx.idx.a b/src/index/sfx.idx.a
index c4a88e931..f8467ee41 100644
--- a/src/index/sfx.idx.a
+++ b/src/index/sfx.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10768461
+         !be24  10768569
          !le16      231
diff --git a/src/index/slideshow.idx.a b/src/index/slideshow.idx.a
index 76ff1413b..6cb8e5e99 100644
--- a/src/index/slideshow.idx.a
+++ b/src/index/slideshow.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10774841
+         !be24  10774949
          !le16     4894
diff --git a/src/index/title.idx.a b/src/index/title.idx.a
index 2a58550ab..84e2ad4bb 100644
--- a/src/index/title.idx.a
+++ b/src/index/title.idx.a
@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  10785884
+         !be24  10785992
          !le16     5746