home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / vm / src / ems / ems4d.asm < prev    next >
Encoding:
Assembly Source File  |  1993-12-13  |  493 b   |  30 lines
  1.     .model    large,pascal
  2.  
  3.     include ems.inc
  4.  
  5.     .code    EMS_TEXT
  6.  
  7.     ;ERR PUBLIC __ErrEmsGetAllHandlePages(handle_page (*pHandlePage)[], PUSHORT pcOpenHandles);
  8.  
  9.     public    __ErrEmsGetAllHandlePages
  10. __ErrEmsGetAllHandlePages proc    uses di,\
  11.     pHandlePage:ptr,    \
  12.     pcOpenHandles:ptr word
  13.  
  14.     les    di,[pHandlePage]
  15.     EmsCall 4Dh
  16.     jnz    Exit            ;Brif error
  17.  
  18.     ;BX = total open emm handles
  19.  
  20.     mov    cx,bx
  21.     les    bx,[pcOpenHandles]
  22.     mov    es:[bx],cx
  23.  
  24. Exit:
  25.     ret
  26.  
  27. __ErrEmsGetAllHandlePages endp
  28.  
  29.     end
  30.