1 files changed, 49 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/GETVER.ASM b/v4.0/src/MAPPER/GETVER.ASM
new file mode 100644
index 0000000..3f94ec7
--- /dev/null
+++ b/v4.0/src/MAPPER/GETVER.ASM
@@ -0,0 +1,49 @@
+page 80,132
+
+title CP/DOS DosGetVersion mapper
+
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+;**********************************************************************
+;*
+;*   MODULE:   dosgetversion
+;*
+;*   CALLING SEQUENCE:
+;*
+;*       push@     word  versionword pointer
+;*       call      dosgetversion
+;*
+;*   MODULES CALLED:  PC-DOS Int 21h, ah=30h, get version
+;*
+;*********************************************************************
+
+            public   dosgetversion
+            .sall
+            include  macros.inc
+
+str         struc
+old_bp      dw       ?
+Return      dd       ?
+Data        dd       ?       ; return data area pointer
+str         ends
+
+dosgetversion   proc    far
+        Enter   dosgetversion
+        lds     si,[bp].data          ; set pointer
+
+        mov     ah,30h                ; get DOS version
+        int     21h
+
+        mov     byte ptr [si],ah      ; minor version
+        mov     byte ptr [si]+1,al    ; major version
+
+exit:   mexit                         ; pop registers
+        sub     ax,ax
+        ret     size str - 6
+;
+dosgetversion endp
+
+dosxxx      ends
+
+            end