home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / vm / src / ems / ems46.asm < prev    next >
Encoding:
Assembly Source File  |  1993-12-13  |  505 b   |  33 lines
  1.     .model    large,pascal
  2.  
  3.     include ems.inc
  4.  
  5.     .code    EMS_TEXT
  6.  
  7.     ;ERR PUBLIC __ErrEmsGetVersion(PBYTE pbVersion);
  8.  
  9.     public    __ErrEmsGetVersion
  10. __ErrEmsGetVersion    proc    \
  11.     pbVersion:ptr byte
  12.  
  13.     mov    ah,46h
  14.     int    67h
  15.  
  16.     ;AL = version number
  17.  
  18.     les    bx,[pbVersion]
  19.     mov    es:[bx],al
  20.  
  21.     xchg    al,ah            ;AL = Error code
  22.     cbw                ;AH = 00 or FF
  23.     or    ax,ax            ;Any error
  24.     jz    Exit            ;Brif not, return errNoError = 0
  25.     add    ax,errEmsBase-0FF80h    ;Map to ERR value
  26.  
  27. Exit:
  28.     ret
  29.  
  30. __ErrEmsGetVersion    endp
  31.  
  32.     end
  33.