Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-01-10 09:29:44 +00:00
Code Issues Projects Releases Wiki Activity

don't show animation after initial decompression

Browse Source
This commit is contained in:
4am 2021-04-18 12:39:19 -04:00
parent 2cccfd3e57
commit 40c3a97cf0
4 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/exodecrunch.s
View File

@ -64,6 +64,7 @@ EXTRA_TABLE_ENTRY_FOR_LENGTH_THREE = 1
; ------------------------------------------------------------------- ; -------------------------------------------------------------------
; zero page addresses used ; zero page addresses used
; ------------------------------------------------------------------- ; -------------------------------------------------------------------
zp_show_progress_ui = $a6
zp_len_lo = $a7 zp_len_lo = $a7
zp_len_hi = $a8 zp_len_hi = $a8
@ -155,13 +156,17 @@ decrunch:
; ------------------------------------------------------------------- ; -------------------------------------------------------------------
; show initial on-screen progress UI ; show initial on-screen progress UI
; ;
ror
sta zp_show_progress_ui
bit zp_show_progress_ui
bpl done_init_progress_loop
ldy #7 ldy #7
init_progress_loop: init_progress_loop:
lda progress_char,y lda progress_char,y
jsr show_one_progress_char jsr show_one_progress_char
dey dey
bpl init_progress_loop bpl init_progress_loop
done_init_progress_loop:
; ------------------------------------------------------------------- ; -------------------------------------------------------------------
; init zeropage, x and y regs. (12 bytes) ; init zeropage, x and y regs. (12 bytes)
; ;
@ -240,6 +245,8 @@ no_hi_decr:
sta (zp_dest_lo),y sta (zp_dest_lo),y
; periodically update on-screen progress UI ; periodically update on-screen progress UI
bit zp_show_progress_ui
bpl dont_update_progress_ui
dec progress_counter dec progress_counter
bne dont_update_progress_ui bne dont_update_progress_ui
tya tya

1
src/passport.a
View File

@ -748,6 +748,7 @@ _applyToT00
sta _byte_hi sta _byte_hi
lda #<AnalyzeT00 lda #<AnalyzeT00
sta _byte_lo sta _byte_lo
clc ; don't show progress UI during decrunch
jsr decrunch jsr decrunch
jsr $2000 jsr $2000
_applyToAll _applyToAll

1
src/rwts.a
View File

@ -238,6 +238,7 @@ CopyUniversalAnywhere
sta _byte_hi sta _byte_hi
lda #<universalrwts lda #<universalrwts
sta _byte_lo sta _byte_lo
clc ; don't show progress UI during decrunch
jsr decrunch jsr decrunch
sty jCallRWTS+1 sty jCallRWTS+1
lda #$BD lda #$BD

1
src/wrapper.a
View File

@ -17,6 +17,7 @@ good_mem
jsr $FE93 ; IN#0 jsr $FE93 ; IN#0
jsr $FB2F ; TEXT jsr $FB2F ; TEXT
jsr $FC58 ; HOME jsr $FC58 ; HOME
sec ; show progress UI during decrunch
jsr decrunch jsr decrunch
sty $fe ;;zp_dest_lo sty $fe ;;zp_dest_lo