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