Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2025-02-14 12:31:02 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/glue.common.a
View File

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

3
src/glue.onbeyond.a
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/"

38
src/parse.prefs.a
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