From d73d70f53ddf10cc199c7ad3b5bda45fb2ddba01 Mon Sep 17 00:00:00 2001
From: davidly <davidly_lee@hotmail.com>
Date: Thu, 25 Jul 2024 11:32:19 -0700
Subject: [PATCH] tolerate bdos calls made by BASIC/Z

---
 ntvcm.cxx | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/ntvcm.cxx b/ntvcm.cxx
index 3aea553..80a09c8 100644
--- a/ntvcm.cxx
+++ b/ntvcm.cxx
@@ -603,6 +603,8 @@ const char * get_bdos_function( uint8_t id )
         return "enable/disable instruction tracing";
     if ( BDOS_GET_PUT_PROGRAM_RETURN_CODE == id )
         return "get/put program return code";
+    if ( 45 == id )
+        return "non - cp/m 2.2: set action on hardware error";
 
     return "unknown";
 } //get_bdos_function
@@ -2633,6 +2635,13 @@ uint8_t x80_invoke_hook()
             set_bdos_status();
             break;
         }
+        case 37: // called by BASIC/Z
+        {
+            // selectively reset disc drives. DE = bitmap of drives to reset. result: A=0 if OK and ffh if error
+            reg.a = 0;
+            set_bdos_status();
+            break;
+        }
         case 40:
         {
             // write random with zero fill.
@@ -2643,6 +2652,13 @@ uint8_t x80_invoke_hook()
             WriteRandom();
             break;
         }
+        case 45: // called by BASIC/Z
+        {
+            // non - CP/M 2.2: set action on hardware error
+            reg.a = 0;
+            set_bdos_status();
+            break;
+        }
         case 102:
         {
             // Get file date and time