4cade/src/parse.prefs.a

208 lines
5.7 KiB
Plaintext
Raw Normal View History

2018-11-10 13:36:36 +00:00
;license:MIT
;(c) 2018-9 by 4am
2018-11-10 13:36:36 +00:00
;
; Parser for global preferences file
;
; Public functions
2019-09-16 16:36:10 +00:00
; - pref_get
; - pref_set
2018-11-10 13:36:36 +00:00
;
; Public constants (all length-prefixed strings)
; - kNextAttract
; - kNextFX
; - kNextDFX
2019-10-08 03:23:47 +00:00
; - kCheat
2018-11-10 13:36:36 +00:00
;
kGlobalPrefsBuffer = $8000
2018-11-10 15:08:14 +00:00
2019-09-16 16:36:10 +00:00
; valid pref keys
2018-11-10 13:36:36 +00:00
kNextAttract
!byte 11
!raw "NEXTATTRACT"
kNextFX
!byte 6
!raw "NEXTFX"
kNextDFX
!byte 7
!raw "NEXTDFX"
kCheat
!byte 5
!raw "CHEAT"
2018-11-10 13:36:36 +00:00
2019-10-08 17:19:20 +00:00
.kEquals !byte 1
!raw "="
.kLF !byte 1,$0D
.kFluff1 !byte .kFluff2-*-1
!raw "# Total Replay preferences file",$0D
!raw "# Do not edit by hand.",$0D
!raw "# Or do. I'm a comment, not a cop.",$0D
!byte $0D
!raw "# value=attract mode module listed in ATTRACT.CONF, or empty",$0D
.kFluff2 !byte .kFluff3-*-1
!byte $0D
!raw "# value=transition effect listed in FX.CONF, or empty",$0D
.kFluff3 !byte .kFluff4-*-1
!byte $0D
!raw "# value=transition effect listed in DFX.CONF, or empty",$0D
.kFluff4 !byte .kEOF-*-1
!byte $0D
!raw "# value=0 or 1",$0D
.kEOF !byte ._-*-1
!byte $0D
!raw "[eof]",$0D
._
.addStringFromStore
+STAY .key
jsr .addString
+LDADDR .kEquals
jsr .addString
jsr okvs_get
!word gGlobalPrefsStore
.key !word $FDFD ; SMC
jsr .addString
+LDADDR .kLF
; execution falls through here
.addString
+STAY $00
ldy #0
lda ($00),y
beq +
tay
clc
adc $FE
tax
- lda ($00),y
dey
sta ($FE),y
bne -
stx $FE
bcc +
inc $FF
+ rts
2018-11-10 13:36:36 +00:00
;------------------------------------------------------------------------------
2019-09-16 16:36:10 +00:00
; pref_get
; get pref value by pref key, and optionally validate that the pref value
; exists as a key in another OKVS
2019-09-16 16:36:10 +00:00
;
; example usage:
; jsr pref_get
; !word kNextFX
; !word gFXStore
;
; See above for list of valid pref keys.
;
; The OKVS you pass in as the second parameter must have at least 1 record.
; This is not checked.
;
; in: stack contains 4 bytes of parameters:
; +1 [word] address of length-prefixed pref key
; +3 [word] address of OKVS, or 0
2019-09-16 16:36:10 +00:00
; gGlobalPrefsStore must be initialized (this is done in 4cade.init)
; out: A/Y = address of pref value
; X = index of pref value in passed store
; (if OKVS parameter is 0, no validation occurs and X=0 and Z=1 on exit,
; some callers rely on this behavior, so don't change it!)
2019-09-16 16:36:10 +00:00
; PARAM clobbered
; PTR clobbered
; SRC clobbered
; SAVE clobbered
;------------------------------------------------------------------------------
pref_get
+PARAMS_ON_STACK 4
+LDPARAM 1
2019-10-08 17:19:20 +00:00
+STAY +
2019-09-16 16:36:10 +00:00
+LDPARAM 3
2019-10-08 17:19:20 +00:00
+STAY .store1
2019-09-16 16:36:10 +00:00
jsr okvs_get ; look up pref key in prefs store
!word gGlobalPrefsStore
2019-10-08 17:19:20 +00:00
+ !word $FDFD ; SMC
2019-09-16 16:36:10 +00:00
bcs .useDefaultValue ; if pref key is not found, use default value
2019-10-08 17:19:20 +00:00
ldx .store1+1
beq .done ; if no OKVS to validate against, we're done
2019-09-16 16:36:10 +00:00
+STAY +
+STAY PTR
ldy #0
lda (PTR),y
beq .useDefaultValue ; if pref value is empty, use default value
jsr okvs_get ; check whether the pref value exists as a key in the passed-in store
2019-10-08 17:19:20 +00:00
.store1 !word $FDFD ; SMC
2019-09-16 16:36:10 +00:00
+ !word $FDFD ; SMC
2019-09-20 23:27:16 +00:00
bcc + ; found key, continue
.useDefaultValue ; did not find key, use first key in passed store as a default value
2019-09-16 16:36:10 +00:00
ldx #0
2019-09-20 23:27:16 +00:00
+
2019-10-08 17:19:20 +00:00
+LDAY .store1
2019-09-16 16:36:10 +00:00
jsr okvs_nth
2019-10-08 17:19:20 +00:00
.done rts
2019-09-16 16:36:10 +00:00
;------------------------------------------------------------------------------
; pref_set
; set pref value by pref key, serialize prefs, and write them to disk
2018-11-10 13:36:36 +00:00
;
2019-09-16 16:36:10 +00:00
; in: stack contains 4 bytes of parameters:
; +1 [word] address of length-prefixed pref key
; +3 [word] address of length-prefixed pref value
2018-11-10 13:36:36 +00:00
; out: all registers and flags clobbered
2019-09-16 16:36:10 +00:00
; PARAM clobbered
; PTR clobbered
; SRC clobbered
; $FE/$FF clobbered
2018-11-10 13:36:36 +00:00
;------------------------------------------------------------------------------
2019-09-16 16:36:10 +00:00
pref_set
+PARAMS_ON_STACK 4
+LDPARAM 1
2019-10-08 17:19:20 +00:00
+STAY +
2019-09-16 16:36:10 +00:00
+LDPARAM 3
2019-10-08 17:19:20 +00:00
+STAY ++
2018-11-10 13:36:36 +00:00
2019-09-16 16:36:10 +00:00
jsr okvs_update ; save that in prefs store
!word gGlobalPrefsStore
2019-10-08 17:19:20 +00:00
+ !word $FDFD ; SMC
++ !word $FDFD ; SMC
2018-11-10 13:36:36 +00:00
2019-09-16 16:36:10 +00:00
+LDADDR kGlobalPrefsBuffer ; clear prefs buffer
+STAY $FE
ldx #$02
ldy #$00
tya
- sta ($FE),y
iny
bne -
inc $FF
dex
bne -
dec $FF
dec $FF
2019-10-08 17:19:20 +00:00
+LDADDR .kFluff1 ; serialize prefs into prefs buffer
jsr .addString
2018-11-10 15:08:14 +00:00
+LDADDR kNextAttract
2019-10-08 17:19:20 +00:00
jsr .addStringFromStore
2018-11-10 13:36:36 +00:00
2019-10-08 17:19:20 +00:00
+LDADDR .kFluff2
jsr .addString
2018-11-10 15:08:14 +00:00
+LDADDR kNextFX
2019-10-08 17:19:20 +00:00
jsr .addStringFromStore
2018-11-10 13:36:36 +00:00
2019-10-08 17:19:20 +00:00
+LDADDR .kFluff3
jsr .addString
2018-11-10 15:08:14 +00:00
+LDADDR kNextDFX
2019-10-08 17:19:20 +00:00
jsr .addStringFromStore
2018-11-10 13:36:36 +00:00
2019-10-08 17:19:20 +00:00
+LDADDR .kFluff4
jsr .addString
+LDADDR kCheat
2019-10-08 17:19:20 +00:00
jsr .addStringFromStore
2019-10-08 17:19:20 +00:00
+LDADDR .kEOF
jsr .addString
2018-11-10 13:36:36 +00:00
2019-09-16 16:36:10 +00:00
+LDADDR kGlobalPrefsFilename ; write prefs buffer to file on disk
jsr SetPath
2019-09-22 02:29:20 +00:00
+LDAY kGlobalPrefsBuffer
2019-10-08 17:19:20 +00:00
; /!\ execution falls through here to glue.prorwts/SaveSmallFile