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
; - SetStartupPathToCurrentVersionOfCurrentGame
;
; Public constants
; - kGameRootDirectory
;
kGameRootDirectory ; length-prefixed pathname of game subdirectories
!byte 2
!raw "Z/"
;------------------------------------------------------------------------------
; SetStartupPathToCurrentVersionOfCurrentGame

View File

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

View File

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