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

OSFIND: no wildcards when mode is "w" (OPENOUT)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-10 15:47:08 -04:00
parent d6cd06b0b6
commit 21aeb99a70
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

6
mainmem.svc.s
View File

@ -91,8 +91,12 @@ RENFILE >>> ENTMAIN
OFILE >>> ENTMAIN
PHA ; Preserve arg for later
JSR PREPATH ; Preprocess pathname
PLA
PHA
CMP #$80 ; Is it "w"?
BEQ :S1 ; If so, no wildcards
JSR WILDONE ; Handle any wildcards
JSR EXISTS ; See if file exists ...
:S1 JSR EXISTS ; See if file exists ...
CMP #$02 ; ... and is a directory
BNE :NOTDIR
JMP :NOTFND ; Bail out if directory