Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-06-25 21:29:54 +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
; -------------------------------------------------------------------
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

1
src/passport.a
View File

@ -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

1
src/rwts.a
View File

@ -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

1
src/wrapper.a
View File

@ -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