Fix *INFO nonexistent (ticket #85)

2025-08-08 23:25:03 +00:00 · 2021-09-17 18:37:25 -04:00
parent 80c4a99032
commit a9da7ba16b
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