mirror of
https://github.com/a2-4am/pitch-dark.git
synced 2024-09-27 04:54:48 +00:00
.
This commit is contained in:
parent
5ec9b665d5
commit
882923352a
@ -99,11 +99,9 @@ LaunchInterpreter
|
|||||||
bcs .playError
|
bcs .playError
|
||||||
|
|
||||||
; put just the filename at $2006
|
; put just the filename at $2006
|
||||||
|
+LDAY addrVersions
|
||||||
|
+STAY $00
|
||||||
ldy #0
|
ldy #0
|
||||||
lda addrVersions
|
|
||||||
sta $00
|
|
||||||
lda addrVersions+1
|
|
||||||
sta $01
|
|
||||||
- lda ($00),y
|
- lda ($00),y
|
||||||
cmp #$BD ; '='
|
cmp #$BD ; '='
|
||||||
beq .doneBuildingFilename
|
beq .doneBuildingFilename
|
||||||
|
12
src/okvs.a
12
src/okvs.a
@ -125,10 +125,8 @@ okvs_append
|
|||||||
jsr derefptr ; PTR -> next record
|
jsr derefptr ; PTR -> next record
|
||||||
bra -
|
bra -
|
||||||
+ ; PTR -> new record
|
+ ; PTR -> new record
|
||||||
lda PTR ; save PTR on stack
|
+LDAY PTR
|
||||||
pha
|
+STAY SAVE ; save PTR
|
||||||
lda PTR+1
|
|
||||||
pha
|
|
||||||
jsr incptr
|
jsr incptr
|
||||||
jsr incptr ; PTR -> space for new key
|
jsr incptr ; PTR -> space for new key
|
||||||
ldy #3
|
ldy #3
|
||||||
@ -183,10 +181,8 @@ okvs_append
|
|||||||
inc PTR+1
|
inc PTR+1
|
||||||
+ lda PTR+1
|
+ lda PTR+1
|
||||||
sta SRC+1 ; SRC -> byte after this record
|
sta SRC+1 ; SRC -> byte after this record
|
||||||
pla
|
+LDAY SAVE
|
||||||
sta PTR+1
|
+STAY PTR ; PTR -> this record again
|
||||||
pla
|
|
||||||
sta PTR ; PTR -> this record again
|
|
||||||
lda SRC ; update next-record pointer
|
lda SRC ; update next-record pointer
|
||||||
sta (PTR)
|
sta (PTR)
|
||||||
ldy #1
|
ldy #1
|
||||||
|
@ -39,13 +39,14 @@ AddToPath
|
|||||||
ldx gPathname ; current pathname length
|
ldx gPathname ; current pathname length
|
||||||
lda ($00) ; length of this segment
|
lda ($00) ; length of this segment
|
||||||
inc
|
inc
|
||||||
sta .a+1
|
sta .len
|
||||||
ldy #$01
|
ldy #$01
|
||||||
- lda ($00),y
|
- lda ($00),y
|
||||||
sta gPathname+1,x
|
sta gPathname+1,x
|
||||||
inx
|
inx
|
||||||
iny
|
iny
|
||||||
.a cpy #$FD ; SMC
|
.len=*+1
|
||||||
|
cpy #$FD ; SMC
|
||||||
bcc -
|
bcc -
|
||||||
stx gPathname
|
stx gPathname
|
||||||
rts
|
rts
|
||||||
|
Loading…
Reference in New Issue
Block a user