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

mainmem.path.s: reimplemented '@' for current dir

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-17 16:23:54 -04:00
parent 688c9f7b4b
commit 5ad5b7942e
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

14
mainmem.path.s
View File

@ -38,19 +38,21 @@ PREPATH LDX MOSFILE ; Length
BRA :APPEND
:NOTCOLN JSR GETPREF ; Current pfx -> PREFIX
:REENTER LDA MOSFILE+1 ; First char of dirname
CMP #'.'
BEQ :UPDIR1
CMP #'^'
BEQ :CARET ; If '^'
CMP #'@' ; '@' means current working dir
BEQ :CWD
CMP #'^' ; '^' means parent dir
BEQ :CARET
CMP #'/' ; Absolute path
BEQ :EXIT ; Nothing to do
CMP #'.' ; ...
BEQ :UPDIR1
BRA :APPEND
:UPDIR1 LDA MOSFILE+2
CMP #'.' ; '..'
BNE :EXIT
JSR DEL1CHAR ; Delete first char of MOSFILE
:CARET JSR DEL1CHAR ; Delete first char of MOSFILE
JSR PARENT ; Parent dir -> PREFIX
:CARET JSR PARENT ; Parent dir -> PREFIX
:CWD JSR DEL1CHAR ; Delete first char of MOSFILE
LDA MOSFILE ; Is there more?
BEQ :APPEND ; No more
CMP #$02 ; Len at least two?