path names

This commit is contained in:
Joshua Bell
2017-09-01 18:34:29 -07:00
parent 9fee0cca87
commit 1f79de5227

View File

@@ -367,7 +367,7 @@ continue:
sta dst sta dst
lda #>(pathname::data) lda #>(pathname::data)
sta dst+1 sta dst+1
jsr copy_pathname jsr copy_pathname ; copy x bytes (src) to (dst)
lda #'/' lda #'/'
ldy #0 ldy #0
@@ -396,7 +396,7 @@ continue:
adc #$00 adc #$00
sta window_params::title+1 sta window_params::title+1
ldy #$09 ldy #$09
lda ($06),y lda (src),y
tax tax
dex dex
dex dex
@@ -406,7 +406,7 @@ continue:
sta src sta src
bcc L0A61 bcc L0A61
inc src+1 inc src+1
L0A61: jsr copy_pathname L0A61: jsr copy_pathname ; copy x bytes (src) to (dst)
lda #$1E lda #$1E
sta $27 sta $27
lda #$40 lda #$40