Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-01 19:41:43 +00:00
Code Issues Projects Releases Wiki Activity

Fixed bug in PREPATH (ticket #82)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-17 15:46:26 -04:00
parent d3d4017daf
commit f1c93fb650
2 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

33
mainmem.path.s
View File

@ -38,31 +38,32 @@ PREPATH LDX MOSFILE ; Length
BRA :APPEND
:NOTCOLN JSR GETPREF ; Current pfx -> PREFIX
:REENTER LDA MOSFILE+1 ; First char of dirname
CMP #'.'
BEQ :ONEDOT
CMP #'@'
BEQ :CWD
BEQ :CWD ; '@' means current dir
CMP #'^'
BEQ :CARET
BEQ :CARET ; '^' means parent
CMP #'/' ; Absolute path
BEQ :EXIT ; Nothing to do
BRA :APPEND
:ONEDOT JSR DEL1CHAR ; Delete the dot
LDA MOSFILE ; Is there more?
BEQ :APPEND ; Nope - '.' alone
LDA MOSFILE+1
CMP #'/' ; './'
BEQ :CWD2
CMP #'.'
BNE :APPEND ; Relative path
LDA MOSFILE ; Length
CMP #$01
BEQ :CWD ; '.' on its own
LDA MOSFILE+2
CMP #'.' ; '..'
BNE :EXIT
BEQ :DOTDOT
CMP #'/' ; './'
BEQ :CWD
BRA :ERR ; Anything else is invalid
:DOTDOT JSR DEL1CHAR ; Delete first char from MOSFILE
:CARET JSR PARENT ; Parent dir -> PREFIX
:CWD JSR DEL1CHAR ; Delete first char from MOSFILE
:CWD2 LDA MOSFILE ; Is there more?
BEQ :APPEND ; Nope!
LDA MOSFILE ; Is there more?
BEQ :APPEND ; Nothing more
CMP #$02 ; Len at least two?
BCC :ERR ; Nope!
LDA MOSFILE+1 ; What is next char?
CMP #'/' ; Is it slash?
CMP #'/'
BNE :ERR ; Nope!
JSR DEL1CHAR ; Delete '/' from MOSFILE
BRA :REENTER ; Go again!
@ -303,5 +304,3 @@ PREFIX DS 65 ; Buffer for ProDOS prefix