This commit is contained in:
4am 2018-04-19 15:14:20 -04:00
parent 7d8b9edb82
commit 614d19919d
3 changed files with 26 additions and 22 deletions

View File

@ -6,6 +6,13 @@
; Public functions ; Public functions
; - SetStartupPathToCurrentVersionOfCurrentGame ; - SetStartupPathToCurrentVersionOfCurrentGame
; ;
; Public constants
; - kGameRootDirectory
;
kGameRootDirectory ; length-prefixed pathname of game subdirectories
!byte 2
!raw "Z/"
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; SetStartupPathToCurrentVersionOfCurrentGame ; SetStartupPathToCurrentVersionOfCurrentGame

View File

@ -9,9 +9,6 @@
; - LaunchInterpreterWithHints ; - LaunchInterpreterWithHints
; ;
kGameRootDirectory ; length-prefixed pathname of game subdirectories
!byte 2
!raw "Z/"
kHintsRootDirectory ; length-prefixed pathname of hint files kHintsRootDirectory ; length-prefixed pathname of hint files
!byte 6 !byte 6
!raw "PRIZM/" !raw "PRIZM/"

View File

@ -63,35 +63,35 @@ SaveGlobalPreferences
+STAY $FE +STAY $FE
+LDADDR kFluff1 +LDADDR kFluff1
jsr addString jsr @addString
jsr addBooleanFromStore jsr @addBooleanFromStore
!word kForce40 !word kForce40
jsr addBooleanFromStore jsr @addBooleanFromStore
!word kForceUpper !word kForceUpper
jsr addBooleanFromStore jsr @addBooleanFromStore
!word kScriptToFile !word kScriptToFile
jsr addBooleanFromStore jsr @addBooleanFromStore
!word kAutoScript !word kAutoScript
+LDADDR kFluff2 +LDADDR kFluff2
jsr addString jsr @addString
jsr addStringFromStore jsr @addStringFromStore
!word kLastPlayed !word kLastPlayed
+LDADDR kFluff3 +LDADDR kFluff3
jsr addString jsr @addString
jsr okvs_iter jsr okvs_iter
!word gGamesListStore !word gGamesListStore
!word addGameToPrefs !word @addGameToPrefs
+LDADDR kEOF +LDADDR kEOF
jsr addString jsr @addString
lda $FE lda $FE
sta @filelen sta @filelen
@ -111,24 +111,24 @@ SaveGlobalPreferences
stz gGlobalPrefsDirty stz gGlobalPrefsDirty
@exit rts @exit rts
addGameToPrefs @addGameToPrefs
+STAY + +STAY +
jsr addStringFromStore jsr @addStringFromStore
+ !word $FDFD ; SMC + !word $FDFD ; SMC
rts rts
addBooleanFromStore @addBooleanFromStore
lda #$24 ; BIT opcode lda #$24 ; BIT opcode
+HIDE_NEXT_2_BYTES +HIDE_NEXT_2_BYTES
addStringFromStore @addStringFromStore
lda #$80 ; BRA opcode lda #$80 ; BRA opcode
sta @skipOverBooleanLogic sta @skipOverBooleanLogic
+PARAMS_ON_STACK 2 +PARAMS_ON_STACK 2
+LDPARAM 1 +LDPARAM 1
+STAY @key +STAY @key
jsr addString jsr @addString
+LDADDR kEquals +LDADDR kEquals
jsr addString jsr @addString
jsr okvs_get jsr okvs_get
!word gGlobalPrefsStore !word gGlobalPrefsStore
@key !word $FDFD ; SMC @key !word $FDFD ; SMC
@ -140,11 +140,11 @@ addStringFromStore
ora #$30 ora #$30
sta (PTR),y sta (PTR),y
+LDAY PTR +LDAY PTR
+ jsr addString + jsr @addString
+LDADDR kLF +LDADDR kLF
jmp addString jmp @addString
addString @addString
+STAY $00 +STAY $00
lda ($00) lda ($00)
inc inc