Fixed spurious *INFO error message.

2025-02-09 06:31:16 +00:00 · 2021-09-11 22:38:02 -04:00 · 2021-09-11 22:38:02 -04:00 · a1087ddefe
commit a1087ddefe
parent e91b5a3991
2 changed files with 5 additions and 8 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.svc.s
+++ b/mainmem.svc.s
@ -704,8 +704,10 @@ INFO         JSR   PREPATH            ; Preprocess pathname
             JSR   WILDCARD           ; Handle any wildcards
             JSR   EXISTS             ; Check matches something
             CMP   #$00
-             BEQ   INFOERR            ; If not, complain, bail
-             BRA   INFOFIRST
+             BNE   INFOFIRST
+             LDA   #$46               ; Not found (TO DO: err code?)
+             BRA   CATEXIT
+
 ** BUG: If the last segment is a literal with no wildcard, then
 **      the directory block is never loaded into memory, so printing
 **      it does not go well ;)
@ -725,13 +727,8 @@ INFOFIRST    LDA   WILDIDX
 INFOEXIT     CMP   #$4C               ; EOF
             BNE   INFOCLS
             LDA   #$00               ; EOF is not an error
-             PHA
 INFOCLS      JSR   CLSDIR             ; Be sure to close it!
-             PLA
-             >>>   XF2AUX,STARCATRET
-INFOERR      LDA   #$40               ; TODO PROPER ERROR CODE
-             PHA
-             BRA   INFOCLS
+             BRA   CATEXIT
             

 * Set prefix. Used by *CHDIR to change directory