Added DirectScreenFunctions, which is used by Turbo Pascal

Author: skx

cpm/cpm.go

@@ -354,6 +354,11 @@ func New(logger *slog.Logger, prn string, condriver string, ccp string) (*CPM, e
 		Handler: SysCallTime,
 		Fake:    true,
 	}
+	sys[113] = CPMHandler{ // used by Turbo Pascal
+		Desc:    "DirectScreenFunctions",
+		Handler: SysCallDirectScreenFunctions,
+		Fake:    true,
+	}
 
 	//
 	// Create and populate our syscall table for the BIOS syscalls.

cpm/cpm_bdos.go

@@ -1441,3 +1441,10 @@ func SysCallDriveReset(cpm *CPM) error {
 func SysCallTime(cpm *CPM) error {
 	return nil
 }
+
+// SysCallDirectScreenFunctions receives a pointer in DE to a parameter block,
+// which specifies which function to run.  I've only seen this invoked in
+// TurboPascal when choosing the "Execute" or "Run" options.
+func SysCallDirectScreenFunctions(cpm *CPM) error {
+	return nil
+}