v4.0/src/MAPPER/GETVER.ASM

   1 page 80,132
   2
   3 title CP/DOS DosGetVersion mapper
   4
   5 dosxxx  segment byte public 'dos'
   6         assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
   7 ;
   8 ;**********************************************************************
   9 ;*
  10 ;*   MODULE:   dosgetversion
  11 ;*
  12 ;*   CALLING SEQUENCE:
  13 ;*
  14 ;*       push@     word  versionword pointer
  15 ;*       call      dosgetversion
  16 ;*
  17 ;*   MODULES CALLED:  PC-DOS Int 21h, ah=30h, get version
  18 ;*
  19 ;*********************************************************************
  20
  21             public   dosgetversion
  22             .sall
  23             include  macros.inc
  24
  25 str         struc
  26 old_bp      dw       ?
  27 Return      dd       ?
  28 Data        dd       ?       ; return data area pointer
  29 str         ends
  30
  31 dosgetversion   proc    far
  32         Enter   dosgetversion
  33         lds     si,[bp].data          ; set pointer
  34
  35         mov     ah,30h                ; get DOS version
  36         int     21h
  37
  38         mov     byte ptr [si],ah      ; minor version
  39         mov     byte ptr [si]+1,al    ; major version
  40
  41 exit:   mexit                         ; pop registers
  42         sub     ax,ax
  43         ret     size str - 6
  44 ;
  45 dosgetversion endp
  46
  47 dosxxx      ends
  48
  49             end