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