Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2026-04-24 08:16: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
Download Patch File Download Diff File Expand all files Collapse all files
applecorn.po
BIN
View File
Binary file not shown.
mainmem.svc.s
+5 -1
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