Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-02-21 03:29:24 +00:00
Code Issues Projects Releases Wiki Activity

fix prefix handling

Browse Source
This commit is contained in:
Peter Ferrie 2019-06-21 16:47:05 -07:00
parent 44dc3c9e8a
commit 86466aa93c
2 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/glue.launch.a
View File

@ -81,8 +81,9 @@ Go
bit $C010 ; forget the key that was pressed bit $C010 ; forget the key that was pressed
ldx #1 ldx #1
sec sec
!byte $24 !byte $2c
-- clc -- pha
clc
php php
ldy #0 ldy #0
lda (PTR), y lda (PTR), y
@ -100,6 +101,7 @@ Go
@runlength @runlength
cpy #$D1 ; SMC cpy #$D1 ; SMC
bne - bne -
txa
plp plp
bcs -- bcs --
stx ProDOS_prefix stx ProDOS_prefix
@ -108,12 +110,8 @@ Go
jsr SetPath jsr SetPath
jsr LoadFile jsr LoadFile
ldy #0 pla
lda (namlo), y sta ProDOS_prefix
tay
iny
iny
sty ProDOS_prefix
copy_prelaunch copy_prelaunch
ldx #(End_Prelaunch-Prelaunch-1) ldx #(End_Prelaunch-Prelaunch-1)

17
src/glue.prorwts2.a
View File

@ -539,24 +539,21 @@ ProDOS_enter
jsr @setbuffer1 jsr @setbuffer1
ldy ProDOS_prefix ldy ProDOS_prefix
iny iny
lda #'/' iny
bne @append_slash tya
pha
dey
@copy_prefix @copy_prefix
lda ProDOS_prefix, y lda ProDOS_prefix, y
@append_slash
iny iny
sta (buffer), y sta (buffer), y
dey dey
dey dey
bpl @copy_prefix bne @copy_prefix
tax pla
inx
inx
txa
iny
sta (buffer), y sta (buffer), y
iny
lda #'/' lda #'/'
iny
sta (buffer), y sta (buffer), y
bne @jmp_zp2 bne @jmp_zp2