home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / vm / src / ems / ems5202.asm < prev    next >
Encoding:
Assembly Source File  |  1993-12-13  |  570 b   |  33 lines
  1.     .model    large,pascal
  2.  
  3.     include ems.inc
  4.  
  5.     .code    EMS_TEXT
  6.  
  7.     ;ERR PUBLIC __ErrEmsGetAttributeCapability(PBYTE pbCapability);
  8.  
  9.     public    __ErrEmsGetAttributeCapability
  10. __ErrEmsGetAttributeCapability    proc    \
  11.     pbCapability:ptr byte
  12.  
  13.     mov    ax,5202h
  14.     int    67h
  15.  
  16.     ;AL = attribute capability
  17.  
  18.     les    bx,[pbCapability]
  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. __ErrEmsGetAttributeCapability    endp
  31.  
  32.     end
  33.