added v check for bad device#

jkotlinski · Sep 2, 2021 · 9a4e8ce · 9a4e8ce
1 parent b5cd720
commit 9a4e8ce
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/forth_src/v.fs b/forth_src/v.fs
@@ -619,6 +619,8 @@ curlinestart @ bufstart eof @ within
 0= abort" cl" again ;
 
 define v
+$ba c@ 8 < abort" bad device#"
+
 \ modifies kernal to change kbd prefs
 ram-kernal $eaea @ $8ca <> if
 rom-kernal