Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-12 05:29:36 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
4am 2019-10-08 14:53:27 -04:00
parent 940ae5bc4b
commit f2df8d2a83
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/parse.prefs.a
View File

@ -69,7 +69,7 @@ kCheat
+STAY $00
ldy #0
lda ($00),y
beq .RTS
beq PREFRTS
tay
clc
adc $FE
@ -79,9 +79,9 @@ kCheat
sta ($FE),y
bne -
stx $FE
bcc .RTS
bcc PREFRTS
inc $FF
.RTS rts
PREFRTS rts
;------------------------------------------------------------------------------
; pref_get
@ -123,7 +123,7 @@ pref_get
+ !word $FDFD ; SMC
bcs .useDefaultValue ; if pref key is not found, use default value
ldx .store1+1
beq .RTS ; if no OKVS to validate against, we're done
beq PREFRTS ; if no OKVS to validate against, we're done
+STAY +
+STAY PTR
ldy #0

6
src/ui.attract.dhgr.a
View File

@ -14,7 +14,7 @@
DHGRTitleSlideshow
bit MachineStatus ; only run DHGR slideshow if we have 128K
bvs +
- rts
DHGRRTS rts
+ jsr LoadDHGRTransition ; load transition effect code at $6000
jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr okvs_iter ; cycle through all listed DHGR files
@ -25,7 +25,7 @@ DHGRTitleSlideshow
DHGRActionSlideshow
bit MachineStatus ; only run DHGR slideshow if we have 128K
bvc -
bvc DHGRRTS
jsr LoadDHGRTransition ; load transition effect code at $6000
jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr okvs_iter ; cycle through all listed DHGR files
@ -36,7 +36,7 @@ DHGRActionSlideshow
DHGRSingle
bit MachineStatus ; only show DHGR screenshots if we have 128K
bvc -
bvc DHGRRTS
+STAY +
jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr LoadDHRFile ; load DHGR file at $4000/main and $4000/aux