MZ is back!HEADmain

1 files changed, 40 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/GMACHMOD.ASM b/v4.0/src/MAPPER/GMACHMOD.ASM
new file mode 100644
index 0000000..a460aab
--- /dev/null
+++ b/v4.0/src/MAPPER/GMACHMOD.ASM
@@ -0,0 +1,40 @@
+;0
+page 80,132
+;
+title CP/DOS DOSGETMACHINEMODE mapper
+;
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+;**********************************************************************
+;*
+;*   MODULE:   dosgetmachinemode
+;*      Note that in PCDOS, this call should NOT BE ISSUED!
+;*      This mapper does not return anything, it is meant
+;*      only to allow the utility to link without errors.
+;*
+;*********************************************************************
+
+            public   dosgetmachinemode
+            .sall
+            .xlist
+            include  macros.inc
+            .list
+
+str         struc
+modeaddr    dw       ?
+str         ends
+
+dosgetmachinemode proc  far
+        Enter   DosGetMachMode        ; push registers
+
+        sub     ax,ax                 ; set good return code
+
+        mexit                         ; pop registers
+        ret     size str - 6          ; return garbage (Not supported in PCDOS)
+
+dosgetmachinemode endp
+
+dosxxx      ends
+
+            end