Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-11-24 03:34:02 +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 +STAY $00
ldy #0 ldy #0
lda ($00),y lda ($00),y
beq .RTS beq PREFRTS
tay tay
clc clc
adc $FE adc $FE
@ -79,9 +79,9 @@ kCheat
sta ($FE),y sta ($FE),y
bne - bne -
stx $FE stx $FE
bcc .RTS bcc PREFRTS
inc $FF inc $FF
.RTS rts PREFRTS rts
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; pref_get ; pref_get
@ -123,7 +123,7 @@ pref_get
+ !word $FDFD ; SMC + !word $FDFD ; SMC
bcs .useDefaultValue ; if pref key is not found, use default value bcs .useDefaultValue ; if pref key is not found, use default value
ldx .store1+1 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 +
+STAY PTR +STAY PTR
ldy #0 ldy #0

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

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