mirror of
https://github.com/a2-4am/pitch-dark.git
synced 2025-01-01 14:31:16 +00:00
read and write global preferences file
This commit is contained in:
4am
parent
fe4cb466d5
commit
a1a16882b8
@ -17,7 +17,7 @@ for f in sys.argv[1:]:
|
||||
linelength = 0
|
||||
if l and linelength:
|
||||
l = l + ' '*(linelength-len(l))
|
||||
buffer.write(l + "\n")
|
||||
buffer.write(l + "\r")
|
||||
if l.startswith("[info]"):
|
||||
linelength = 64
|
||||
elif l.startswith("[description]"):
|
||||
|
||||
@ -1,54 +1 @@
|
||||
# Pitch Dark preferences file
|
||||
# Do not edit by hand.
|
||||
# Or do. I'm a comment, not a cop.
|
||||
|
||||
# value=0|1
|
||||
FORCE40COLUMNS=0
|
||||
|
||||
# value=0|1
|
||||
FORCEUPPERCASE=0
|
||||
|
||||
# value=0|1
|
||||
SCRIPTTOFILE=1
|
||||
|
||||
# value=0|1
|
||||
AUTOSCRIPT=0
|
||||
|
||||
# value=game directory
|
||||
LASTPLAYED=ZORK.I
|
||||
|
||||
# key=game directory, value=filename of selected version
|
||||
ADVENTURE=R9.060321.Z5
|
||||
AMFV=R79.DEPROT.Z4
|
||||
BALLYHOO=R97.851218.Z3
|
||||
BEYOND.ZORK=R57.871221.Z5
|
||||
BORDER.ZONE=R9.871008.Z5
|
||||
BUREAUCRACY=R116.DEPROT.Z4
|
||||
CUTTHROATS=R23.840809.Z3
|
||||
DEADLINE=R27.831005.Z3
|
||||
ENCHANTER=R29.860820.Z3
|
||||
HGTTG=R59.851108.Z3
|
||||
HOLLYWOOD=R37.861215.Z3
|
||||
INFIDEL=R22.830916.Z3
|
||||
LGOP=R59.860730.Z3
|
||||
LURKING.HORROR=R221.870918.Z3
|
||||
MINI.ZORK=R34.871124.Z3
|
||||
MOONMIST=R9.861022.Z3
|
||||
NORD.AND.BERT=R19.870722.Z4
|
||||
PLANETFALL=R37.851003.Z3
|
||||
PLUNDERED=R26.870730.Z3
|
||||
SEASTALKER=R16B.850603.Z3
|
||||
SHERLOCK=R26.880127.Z5
|
||||
SORCERER=R18.DEPROT.Z3
|
||||
SPELLBREAKER=R87.DEPROT.Z3
|
||||
STARCROSS=R17.821021.Z3
|
||||
STATIONFALL=R107.DEPROT.Z3
|
||||
SUSPECT=R14.841005.Z3
|
||||
SUSPENDED=R8B.840521.Z3
|
||||
TRINITY=R12.860926.Z4
|
||||
WISHBRINGER=R69.850920.Z3
|
||||
WITNESS=R22.840924.Z3
|
||||
ZORK.I=R88.840726.Z3
|
||||
ZORK.II=R48.840904.Z3
|
||||
ZORK.III=R17.840727.Z3
|
||||
ZTUU=R16.970828.Z5
|
||||
# Pitch Dark preferences file
# Do not edit by hand.
# Or do. I'm a comment, not a cop.
# value=0|1
FORCE40COLUMNS=0
FORCEUPPERCASE=0
SCRIPTTOFILE=0
AUTOSCRIPT=0
# value=game directory
LASTPLAYED=ZORK.I
# key=game directory, value=filename of selected version
ADVENTURE=R9.060321.Z5
AMFV=R79.DEPROT.Z4
BALLYHOO=R97.851218.Z3
BEYOND.ZORK=R57.871221.Z5
BORDER.ZONE=R9.871008.Z5
BUREAUCRACY=R116.DEPROT.Z4
CUTTHROATS=R23.840809.Z3
DEADLINE=R27.831005.Z3
ENCHANTER=R29.860820.Z3
HGTTG=R59.851108.Z3
HOLLYWOOD=R37.861215.Z3
INFIDEL=R22.830916.Z3
LGOP=R59.860730.Z3
LURKING.HORROR=R221.870918.Z3
MINI.ZORK=R34.871124.Z3
MOONMIST=R9.861022.Z3
NORD.AND.BERT=R19.870722.Z4
PLANETFALL=R37.851003.Z3
PLUNDERED=R26.870730.Z3
SEASTALKER=R16B.850603.Z3
SHERLOCK=R26.880127.Z5
SORCERER=R18.DEPROT.Z3
SPELLBREAKER=R87.DEPROT.Z3
STARCROSS=R17.821021.Z3
STATIONFALL=R107.DEPROT.Z3
SUSPECT=R14.841005.Z3
SUSPENDED=R8B.840521.Z3
TRINITY=R12.860926.Z4
WISHBRINGER=R69.850920.Z3
WITNESS=R22.840924.Z3
ZORK.I=R88.840726.Z3
ZORK.II=R48.840904.Z3
ZORK.III=R17.840727.Z3
ZTUU=R16.970828.Z5
=EOF
|
||||
@ -51,10 +51,10 @@ LoadGameInfo
|
||||
!word kProDOSFileBuffer
|
||||
|
||||
lda #$FF
|
||||
sta $00
|
||||
sta $FE
|
||||
lda #$07
|
||||
sta $01 ; ($00) points to start of data buffer
|
||||
ldy #$00 ; index into ($00) pointing to current character
|
||||
sta $FF ; ($FE) points to start of data buffer
|
||||
ldy #$00 ; index into ($FF) pointing to current character
|
||||
ldx #$08 ; index into sectionPointers array, stores pointer to start of each section
|
||||
|
||||
.convertSectionLoop
|
||||
@ -62,7 +62,7 @@ LoadGameInfo
|
||||
.convertSectionNoInc
|
||||
cmp #$5B ; '[' is the start of a new section
|
||||
beq .skipSectionName
|
||||
cmp #$0A ; LF -> 0x00 (WeeGUI wants null-terminated strings)
|
||||
cmp #$0D ; CR -> 0x00 (WeeGUI wants null-terminated strings)
|
||||
beq .null
|
||||
cmp #$5E ; '^' -> closed-apple mousetext
|
||||
beq .ca
|
||||
@ -75,13 +75,13 @@ LoadGameInfo
|
||||
.ca lda #$40
|
||||
!byte $2C
|
||||
.oa lda #$41
|
||||
sta ($00),y
|
||||
sta ($FE),y
|
||||
bra .convertSectionLoop
|
||||
|
||||
; We found the start of a new section, so skip to the first character on the next line
|
||||
.skipSectionName
|
||||
jsr IncAndGetChar
|
||||
cmp #$0A ; LF
|
||||
cmp #$0D ; CR
|
||||
bne .skipSectionName
|
||||
jsr IncAndGetChar
|
||||
|
||||
@ -89,9 +89,9 @@ LoadGameInfo
|
||||
pha
|
||||
tya
|
||||
clc
|
||||
adc $00
|
||||
adc $FE
|
||||
sta sectionPointers,x
|
||||
lda $01
|
||||
lda $FF
|
||||
bcc +
|
||||
inc
|
||||
+ sta sectionPointers+1,x
|
||||
@ -103,7 +103,7 @@ LoadGameInfo
|
||||
IncAndGetChar
|
||||
iny
|
||||
bne +
|
||||
inc $01
|
||||
+ lda ($00),y
|
||||
inc $FF
|
||||
+ lda ($FE),y
|
||||
rts
|
||||
}
|
||||
|
||||
282
src/prefs.a
282
src/prefs.a
@ -43,73 +43,257 @@ kLastPlayed
|
||||
;------------------------------------------------------------------------------
|
||||
; LoadGlobalPreferences
|
||||
;
|
||||
; in: current ProDOS prefix is the same as the PITCH.DARK binary
|
||||
; in: current ProDOS prefix is the same as the PITCH.DARK.CONF file
|
||||
; out: all registers and flags clobbered
|
||||
;------------------------------------------------------------------------------
|
||||
LoadGlobalPreferences
|
||||
lda #kDefaultGame
|
||||
sta gCurrentGame
|
||||
|
||||
jsr okvs_init
|
||||
!word gPrefsStore
|
||||
|
||||
lda gCurrentGame
|
||||
asl
|
||||
tax
|
||||
lda GAMES,x
|
||||
sta .gameptr
|
||||
lda GAMES+1,x
|
||||
sta .gameptr+1
|
||||
jsr okvs_append
|
||||
!word gPrefsStore
|
||||
!word kLastPlayed
|
||||
.gameptr !word $FDFD ; set at runtime
|
||||
!byte 16
|
||||
|
||||
jsr okvs_append
|
||||
!word gPrefsStore
|
||||
!word kForce40
|
||||
!word .debug0
|
||||
!byte 0
|
||||
|
||||
jsr okvs_append
|
||||
!word gPrefsStore
|
||||
!word kForceUpper
|
||||
!word .debug0
|
||||
!byte 0
|
||||
|
||||
jsr okvs_append
|
||||
!word gPrefsStore
|
||||
!word kScriptToFile
|
||||
!word .debug0
|
||||
!byte 0
|
||||
|
||||
jsr okvs_append
|
||||
!word gPrefsStore
|
||||
!word kAutoScript
|
||||
!word .debug0
|
||||
!byte 0
|
||||
|
||||
bra .exit
|
||||
; TODO
|
||||
jsr LoadFile ; load prefs file at $2000
|
||||
!word .globalPrefsFilename
|
||||
!word $2000
|
||||
!word $2000
|
||||
!word kProDOSFileBuffer
|
||||
bcs .exit
|
||||
.exit
|
||||
|
||||
lda #$FF
|
||||
sta $FE
|
||||
lda #$1F
|
||||
sta $FF ; ($FE) points to start of data buffer
|
||||
ldy #$00 ; index into ($FE) pointing to current character
|
||||
.newKey ldx #$00 ; X = index into current key
|
||||
.gatherKey
|
||||
stx .keylen
|
||||
jsr IncAndGetChar
|
||||
cmp #$23 ; '#' is starts a comment (until CR)
|
||||
beq .skipComment
|
||||
cmp #$3D ; '=' ends the key
|
||||
beq .endKey
|
||||
cmp #$0D ; found CR before '=', ignore key and start over
|
||||
beq .newKey
|
||||
sta .key,x
|
||||
inx
|
||||
bra .gatherKey
|
||||
.endKey stx .keylen
|
||||
txa ; to set Z flag
|
||||
beq .doneParsing ; empty key ends the parsing
|
||||
ldx #$00 ; X = index into the current value
|
||||
.gatherValue
|
||||
stx .vallen
|
||||
jsr IncAndGetChar
|
||||
cmp #$0D ; CR ends the value
|
||||
beq .endValue
|
||||
sta .val,x
|
||||
inx
|
||||
bra .gatherValue
|
||||
.endValue
|
||||
stx .vallen
|
||||
lda .vallen
|
||||
cmp #1
|
||||
bne .use16
|
||||
lda .val
|
||||
and #1
|
||||
sta .val ; single-character values get converted to #$00 or #$01 in prefs store
|
||||
lda #0
|
||||
!byte $2C
|
||||
.use16 lda #16
|
||||
sta .okvslen ; all other values get upgraded to 16 bytes so we can update them in place
|
||||
phy ; okvs functions clobber everything but we need Y
|
||||
jsr okvs_append
|
||||
!word gPrefsStore
|
||||
!word .keylen
|
||||
!word .vallen
|
||||
.okvslen !byte $FD ; set at runtime
|
||||
ply
|
||||
bra .newKey
|
||||
|
||||
.skipComment ; skip to CR
|
||||
jsr IncAndGetChar
|
||||
cmp #$0D ; CR
|
||||
bne .skipComment
|
||||
bra .newKey
|
||||
|
||||
.doneParsing
|
||||
jsr okvs_get
|
||||
!word gPrefsStore
|
||||
!word kLastPlayed
|
||||
sta DEST
|
||||
sty DEST+1
|
||||
ldx #$FE
|
||||
.findLastPlayed
|
||||
inx
|
||||
inx
|
||||
lda GAMES,x
|
||||
sta SRC
|
||||
lda GAMES+1,x
|
||||
sta SRC+1
|
||||
lda (SRC)
|
||||
tay
|
||||
dey
|
||||
- lda (SRC),y
|
||||
cmp (DEST),y
|
||||
bne .findLastPlayed
|
||||
dey
|
||||
bpl -
|
||||
txa
|
||||
lsr
|
||||
sta gCurrentGame
|
||||
rts
|
||||
|
||||
.keylen !byte 0
|
||||
.key !fill 15
|
||||
.vallen !byte 0
|
||||
.val !fill 15
|
||||
|
||||
SaveGlobalPreferences
|
||||
; TODO
|
||||
lda #$00
|
||||
sta $FE
|
||||
sta .prefslen
|
||||
sta .prefslen+1
|
||||
lda #$20
|
||||
sta $FF
|
||||
|
||||
lda #<.fluff1
|
||||
ldy #>.fluff1
|
||||
jsr addString
|
||||
|
||||
jsr addBooleanFromStore
|
||||
!word kForce40
|
||||
|
||||
jsr addBooleanFromStore
|
||||
!word kForceUpper
|
||||
|
||||
jsr addBooleanFromStore
|
||||
!word kScriptToFile
|
||||
|
||||
jsr addBooleanFromStore
|
||||
!word kAutoScript
|
||||
|
||||
lda #<.fluff2
|
||||
ldy #>.fluff2
|
||||
jsr addString
|
||||
|
||||
jsr addStringFromStore
|
||||
!word kLastPlayed
|
||||
|
||||
lda #<.fluff3
|
||||
ldy #>.fluff3
|
||||
jsr addString
|
||||
|
||||
ldx #0
|
||||
.gameLoop
|
||||
phx
|
||||
txa
|
||||
asl
|
||||
tax
|
||||
lda GAMES,x
|
||||
ldy GAMES+1,x
|
||||
sta .gameKey
|
||||
sty .gameKey+1
|
||||
jsr addStringFromStore
|
||||
.gameKey !word $FDFD ; set at runtime
|
||||
plx
|
||||
inx
|
||||
cpx #kNumberOfGames
|
||||
bne .gameLoop
|
||||
|
||||
lda #<.eof
|
||||
ldy #>.eof
|
||||
jsr addString
|
||||
|
||||
lda $FE
|
||||
sta .prefslen
|
||||
lda $FF
|
||||
sec
|
||||
sbc #$20
|
||||
sta .prefslen+1
|
||||
jsr SaveFile
|
||||
!word .globalPrefsFilename
|
||||
!byte 4 ; filetype=TXT
|
||||
!word 0 ; auxtype=0000
|
||||
!word $2000
|
||||
.prefslen
|
||||
!word $FDFD ; set at runtime
|
||||
!word kProDOSFileBuffer
|
||||
rts
|
||||
|
||||
addBooleanFromStore
|
||||
lda #$24 ; BIT opcode
|
||||
!byte $2C
|
||||
addStringFromStore
|
||||
lda #$80 ; BRA opcode
|
||||
sta .skipOverBooleanLogic
|
||||
+PARAMS_ON_STACK 2
|
||||
ldy #1
|
||||
lda (PARAM),y
|
||||
sta .storeKey
|
||||
pha
|
||||
iny
|
||||
lda (PARAM),y
|
||||
sta .storeKey+1
|
||||
tay
|
||||
pla
|
||||
jsr addString
|
||||
lda #<.equals
|
||||
ldy #>.equals
|
||||
jsr addString
|
||||
jsr okvs_get
|
||||
!word gPrefsStore
|
||||
.storeKey
|
||||
!word $FDFD ; set at runtime
|
||||
.skipOverBooleanLogic
|
||||
bra + ; set at runtime (opcode may become BIT)
|
||||
sta PTR
|
||||
sty PTR+1
|
||||
ldy #1
|
||||
lda (PTR),y
|
||||
ora #$30
|
||||
sta (PTR),y
|
||||
lda PTR
|
||||
ldy PTR+1
|
||||
+ jsr addString
|
||||
lda #<.lf
|
||||
ldy #>.lf
|
||||
jmp addString
|
||||
|
||||
addString
|
||||
sta $00
|
||||
sty $01
|
||||
lda ($00)
|
||||
inc
|
||||
sta .len
|
||||
ldy #1
|
||||
- lda ($00),y
|
||||
sta ($FE)
|
||||
+ iny
|
||||
inc $FE
|
||||
bne +
|
||||
inc $FF
|
||||
.len=*+1
|
||||
+ cpy #$FD ; set at runtime
|
||||
bne -
|
||||
rts
|
||||
|
||||
.globalPrefsFilename
|
||||
!byte 15
|
||||
!raw "PITCH.DARK.CONF"
|
||||
|
||||
.debug0
|
||||
!byte 1
|
||||
!byte 0
|
||||
.equals !byte 1
|
||||
!raw "="
|
||||
.lf !byte 1
|
||||
!byte $0D
|
||||
.fluff1 !byte 101
|
||||
!raw "# Pitch Dark preferences file",$0D
|
||||
!raw "# Do not edit by hand.",$0D
|
||||
!raw "# Or do. I'm a comment, not a cop.",$0D,$0D
|
||||
!raw "# value=0|1",$0D
|
||||
.fluff2 !byte 24
|
||||
!byte $0D
|
||||
!raw "# value=game directory",$0D
|
||||
.fluff3 !byte 58
|
||||
!byte $0D
|
||||
!raw "# key=game directory, value=filename of selected version",$0D
|
||||
.eof !byte 6
|
||||
!byte $0D
|
||||
!raw "=EOF",$0D
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user