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