From 40c3a97cf0df2ab16ebc73f9dda699c0e7ba884d Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Sun, 18 Apr 2021 12:39:19 -0400
Subject: [PATCH] don't show animation after initial decompression

---
 src/exodecrunch.s | 9 ++++++++-
 src/passport.a    | 1 +
 src/rwts.a        | 1 +
 src/wrapper.a     | 1 +
 4 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/exodecrunch.s b/src/exodecrunch.s
index ad7debf..effcb19 100644
--- a/src/exodecrunch.s
+++ b/src/exodecrunch.s
@@ -64,6 +64,7 @@ EXTRA_TABLE_ENTRY_FOR_LENGTH_THREE = 1
 ; -------------------------------------------------------------------
 ; zero page addresses used
 ; -------------------------------------------------------------------
+zp_show_progress_ui = $a6
 zp_len_lo = $a7
 zp_len_hi = $a8
 
@@ -155,13 +156,17 @@ decrunch:
 ; -------------------------------------------------------------------
 ; show initial on-screen progress UI
 ;
+        ror
+        sta zp_show_progress_ui
+        bit zp_show_progress_ui
+        bpl done_init_progress_loop
         ldy #7
 init_progress_loop:
         lda progress_char,y
         jsr show_one_progress_char
         dey
         bpl init_progress_loop
-
+done_init_progress_loop:
 ; -------------------------------------------------------------------
 ; init zeropage, x and y regs. (12 bytes)
 ;
@@ -240,6 +245,8 @@ no_hi_decr:
         sta (zp_dest_lo),y
 
 ; periodically update on-screen progress UI
+        bit zp_show_progress_ui
+        bpl dont_update_progress_ui
         dec progress_counter
         bne dont_update_progress_ui
         tya
diff --git a/src/passport.a b/src/passport.a
index 49f1ba3..1ba5842 100755
--- a/src/passport.a
+++ b/src/passport.a
@@ -748,6 +748,7 @@ _applyToT00
          sta   _byte_hi
          lda   #<AnalyzeT00
          sta   _byte_lo
+         clc                                    ; don't show progress UI during decrunch
          jsr   decrunch
          jsr   $2000
 _applyToAll
diff --git a/src/rwts.a b/src/rwts.a
index 75821ff..1a8dcc2 100755
--- a/src/rwts.a
+++ b/src/rwts.a
@@ -238,6 +238,7 @@ CopyUniversalAnywhere
          sta   _byte_hi
          lda   #<universalrwts
          sta   _byte_lo
+         clc                         ; don't show progress UI during decrunch
          jsr   decrunch
          sty   jCallRWTS+1
          lda   #$BD
diff --git a/src/wrapper.a b/src/wrapper.a
index 43e356a..d17f04b 100644
--- a/src/wrapper.a
+++ b/src/wrapper.a
@@ -17,6 +17,7 @@ good_mem
          jsr   $FE93                 ; IN#0
          jsr   $FB2F                 ; TEXT
          jsr   $FC58                 ; HOME
+         sec                         ; show progress UI during decrunch
          jsr   decrunch
          sty   $fe                   ;;zp_dest_lo