Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-03 22:30:09 +00:00
Code Issues Projects Releases Wiki Activity

Integrate wildcards into commands that use them.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-09 14:58:44 -04:00
parent 2ceebae7c1
commit 980376bf71
2 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

15
mainmem.svc.s
View File

@ -91,6 +91,7 @@ RENFILE >>> ENTMAIN
OFILE >>> ENTMAIN
PHA ; Preserve arg for later
JSR PREPATH ; Preprocess pathname
JSR WILDCARD ; Handle any wildcards
JSR EXISTS ; See if file exists ...
CMP #$02 ; ... and is a directory
BNE :NOTDIR
@ -306,6 +307,7 @@ TELL >>> ENTMAIN
* A>$1F ProDOS error, translated by FILERET
LOADFILE >>> ENTMAIN
JSR PREPATH ; Preprocess pathname
JSR WILDCARD ; Handle any wildcards
JSR EXISTS ; See if it exists ...
CMP #$01 ; ... and is a file
BEQ :ISFILE
@ -642,6 +644,7 @@ CATALOG >>> ENTMAIN
LDA MOSFILE ; Length of pathname
BEQ :NOPATH ; If zero use prefix
JSR PREPATH ; Preprocess pathname
JSR WILDCARD ; Handle any wildcards
JSR EXISTS ; See if path exists ...
CMP #$01 ; ... and is a file
BNE :NOTFILE
@ -684,7 +687,7 @@ CATALOGRET
* Set prefix. Used by *CHDIR to change directory
SETPFX >>> ENTMAIN
JSR PREPATH ; Preprocess pathname
JSR WILDCARD ; EXPERIMENTAL
JSR WILDCARD ; Handle any wildcards
BCS :ERR
LDA #<MOSFILE
STA SPFXPL+1
@ -727,6 +730,7 @@ DRVINFO >>> ENTMAIN
* Filename in MOSFILE, flags in MOSFILE2
SETPERM >>> ENTMAIN
JSR PREPATH ; Preprocess pathname
JSR WILDCARD ; Handle any wildcards
BCS :ERR
STZ :LFLAG
STZ :WFLAG
@ -794,12 +798,3 @@ MAINRDMEM STA A1L
LDA (A1L)
MAINRDEXIT >>> XF2AUX,NULLRTS ; Back to an RTS