Trap *CAT file (ie: not directory) as an error.

2024-06-26 06:29:31 +00:00 · 2021-09-02 21:31:18 -04:00 · 2021-09-02 21:31:18 -04:00 · 0832187cf6
commit 0832187cf6
parent 60f6c45057
2 changed files with 6 additions and 1 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.s
+++ b/mainmem.s
@ -917,7 +917,12 @@ CATALOG      >>>   ENTMAIN
             LDA   MOSFILE            ; Length of pathname
             BEQ   :NOPATH            ; If zero use prefix
             JSR   PREPATH            ; Preprocess pathname
-             LDA   #<MOSFILE
+             JSR   EXISTS             ; See if path exists ...
+             CMP   #$01               ; ... and is a file
+             BNE   :NOTFILE
+             LDA   #$46               ; Not found (TO DO: err code?)
+             BRA   CATEXIT
+:NOTFILE     LDA   #<MOSFILE
             STA   OPENPL+1
             LDA   #>MOSFILE
             STA   OPENPL+2