From 3280b0c6077a3eaeed9afd045b3cd78088f053e0 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Wed, 18 Nov 2020 19:01:03 -0500
Subject: [PATCH] shave some bytes

---
 src/fx/fx.dhgr.bar.dissolve.a | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

diff --git a/src/fx/fx.dhgr.bar.dissolve.a b/src/fx/fx.dhgr.bar.dissolve.a
index 42f4882e9..569763294 100644
--- a/src/fx/fx.dhgr.bar.dissolve.a
+++ b/src/fx/fx.dhgr.bar.dissolve.a
@@ -21,11 +21,11 @@ hgr1hi   =     $0300                 ; [$C0 bytes, main memory only]
 start
 !pseudopc 0 {
 row1=*+1
-loop     ldx   #$00
-         lda   hgrlo, x
+loop     ldx   #$40
+         lda   hgrlo-$40, x
          sta   <src1+1
          sta   <dst1+1
-         lda   hgr1hi, x
+         lda   hgr1hi-$40, x
          sta   <dst1+2
          eor   #$60
          sta   <src1+2
@@ -33,16 +33,14 @@ loop     ldx   #$00
          +HIDE_NEXT_BYTE
 -        sec
          ldy   #$27
-src1     lda   $FDFD, y
-dst1     sta   $FDFD, y
+src1     lda   $FDFD, y              ; SMC
+dst1     sta   $FDFD, y              ; SMC
          dey
          dey
          bpl   src1
-         sta   $C003
-         sta   $C005
+         jsr   toaux
          bcc   -
-         sta   $C002
-         sta   $C004
+         jsr   tomain
 
 row2=*+1
          ldx   #$BF
@@ -57,25 +55,26 @@ row2=*+1
          +HIDE_NEXT_BYTE
 -        sec
          ldy   #$26
-src2     lda   $FDFD, y
-dst2     sta   $FDFD, y
+src2     lda   $FDFD, y              ; SMC
+dst2     sta   $FDFD, y              ; SMC
          dey
          dey
          bpl   src2
-         sta   $C003
-         sta   $C005
+         jsr   toaux
          bcc   -
-         sta   $C002
-         sta   $C004
+         jsr   tomain
          lda   #$30
          jsr   WaitForKeyWithTimeout
          bmi   exit
-         inc   row1
          dec   row2
-         lda   row1
-         cmp   #$C0
+         inc   row1
          bne   loop
+tomain   sta   $C002
+         sta   $C004
 exit     rts
+toaux    sta   $C003
+         sta   $C005
+         rts
 
          !source "src/wait.a"
 }