Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-28 03: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 FSCREN JSR XYtoLPTR ; Pointer to command line
JMP RENAME JMP RENAME
FSCCHDIR STX ZP1+0 FSCCHDIR JMP CHDIR
STY ZP1+1
LDY #$00
JMP STARDIR1
* Performs OSFSC *OPT function * Performs OSFSC *OPT function
FSOPT RTS ; No FS options for now FSOPT RTS ; No FS options for now
@ -710,30 +707,10 @@ RENRET
* BRK * BRK
* Handle *DIR (directory change) command * Handle *DIR (directory change) command
* On entry, ZP1 points to command line * On entry, XY points to command line
STARDIR JSR EATSPC ; Eat leading spaces CHDIR JSR PARSNAME ; Copy filename->MOSFILE
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
>>> XF2MAIN,SETPFX >>> XF2MAIN,SETPFX
STARDIRRET CHDIRRET
>>> ENTAUX >>> ENTAUX
JSR CHKERROR JSR CHKERROR
CMP #$00 CMP #$00

2
mainmem.s
View File

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