Fix *INFO nonexistent (ticket #85)

2024-06-02 11:41:30 +00:00 · 2021-09-17 18:37:25 -04:00 · 2021-09-17 18:37:25 -04:00 · a9da7ba16b
commit a9da7ba16b
parent 80c4a99032
2 changed files with 1 additions and 0 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/mainmem.svc.s
+++ b/mainmem.svc.s
@ -881,6 +881,7 @@ INFO         JSR   PREPATH            ; Preprocess pathname
             JSR   EXISTS             ; Check matches something
             CMP   #$00
             BNE   INFOFIRST
+             JSR   CLSDIR
             LDA   #$46               ; Not found (TO DO: err code?)
             BRA   CATEXIT