*DIR error handling 'Bad dir'.

2024-06-13 07:29:35 +00:00 · 2021-08-24 13:42:08 -04:00 · 2021-08-24 13:42:08 -04:00 · ab8ba0c274
commit ab8ba0c274
parent 76eb70bbe9
3 changed files with 7 additions and 3 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.hostfs.s
+++ b/auxmem.hostfs.s
@ -481,5 +481,11 @@ STARDIR     JSR   EATSPC              ; Eat leading spaces
            >>>   XF2MAIN,SETPFX
 STARDIRRET
            >>>   ENTAUX
-            RTS
+            CMP   #$00
+            BEQ   :EXIT
+            BRK
+            DB    $CE                 ; Bad directory
+            ASC   'Bad dir'
+            BRK
+:EXIT       RTS

--- a/mainmem.s
+++ b/mainmem.s
@ -762,8 +762,6 @@ SETPFX      >>>   ENTMAIN
            JSR   MLI
            DB    SPFXCMD
            DW    SPFXPL
-            BCC   :S1
-            JSR   BELL               ; Beep on error
 :S1         >>>   XF2AUX,STARDIRRET

 * Create disk file