Skip to content

Commit

Permalink
tolerate bdos calls made by BASIC/Z
Browse files Browse the repository at this point in the history
  • Loading branch information
davidly committed Jul 25, 2024
1 parent 572e908 commit d73d70f
Showing 1 changed file with 16 additions and 0 deletions.
16 changes: 16 additions & 0 deletions ntvcm.cxx
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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.
Expand All @@ -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
Expand Down

0 comments on commit d73d70f

Please sign in to comment.