home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / forlib1.arc / DOSFOR.ASM next >
Encoding:
Assembly Source File  |  1986-04-01  |  678 b   |  30 lines
  1. DATA SEGMENT PUBLIC 'DATA'
  2. TITLE__ DB 'TITLE: DOS PARAMETERS FOR MS FORTRAN'
  3. COPY_R  DB '   (C) John R. Petrocelli'
  4.         DB '       Schenectady,NY    '
  5.         DB '       01/13/86          '
  6. DATA ENDS
  7. DGROUP GROUP DATA
  8. CODE   SEGMENT 'CODE'
  9.        ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
  10. PUBLIC DOSVER
  11. DOSVER PROC FAR    ; GET DOS VERSION #
  12.        PUSH BP
  13.        PUSH AX
  14.        PUSH BX
  15.        MOV BP,SP
  16.        MOV AX,3000H
  17.        INT 21H
  18.        LES BX,DWORD PTR[BP+10]
  19.        MOV [BX],AH
  20.        LES BX,DWORD PTR[BP+14]
  21.        MOV [BX],AL
  22.        MOV SP,BP
  23.        POP BX
  24.        POP AX
  25.        POP BP
  26.        RET 8
  27.        DOSVER ENDP
  28.        CODE ENDS
  29. END
  30.