Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-24 02:29:32 +00:00
Code Issues Projects Releases Wiki Activity

*DIR now uses PARSNAME too.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-02 17:59:04 -04:00
parent b0306c78ab
commit e66c0bea4c
3 changed files with 5 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

31
auxmem.hostfs.s
View File

@ -478,10 +478,7 @@ FSCRUNLP LDA (OSLPTR),Y ; Look for command line
FSCREN JSR XYtoLPTR ; Pointer to command line
JMP RENAME
FSCCHDIR STX ZP1+0
STY ZP1+1
LDY #$00
JMP STARDIR1
FSCCHDIR JMP CHDIR
* Performs OSFSC *OPT function
FSOPT RTS ; No FS options for now
@ -710,30 +707,10 @@ RENRET
* BRK
* Handle *DIR (directory change) command
* On entry, ZP1 points to command line
STARDIR JSR EATSPC ; Eat leading spaces
STARDIR1
:S1 LDX #$01
:L3 LDA (ZP1),Y
CMP #$21 ; Check for CR or space
BCC :S2
>>> WRTMAIN
STA MOSFILE,X
>>> WRTAUX
INY
INX
BRA :L3
:S2 DEX
BNE :S3
BRK
DB $DC
ASC 'Syntax: DIR <pathname>'
BRK
:S3 >>> WRTMAIN
STX MOSFILE ; Length byte
>>> WRTAUX
* On entry, XY points to command line
CHDIR JSR PARSNAME ; Copy filename->MOSFILE
>>> XF2MAIN,SETPFX
STARDIRRET
CHDIRRET
>>> ENTAUX
JSR CHKERROR
CMP #$00

2
mainmem.s
View File

@ -1020,7 +1020,7 @@ SETPFX >>> ENTMAIN
JSR MLI ; SET_PREFIX
DB SPFXCMD
DW SPFXPL
:EXIT >>> XF2AUX,STARDIRRET
:EXIT >>> XF2AUX,CHDIRRET
:ERR LDA #$40 ; Invalid pathname syn
BRA :EXIT