home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / vm / src / xms / xms0c.asm < prev    next >
Encoding:
Assembly Source File  |  1993-12-13  |  442 b   |  31 lines
  1.     .model    large,pascal
  2.  
  3.     include xms.inc
  4.  
  5.     .code    XMS_TEXT
  6.  
  7.     ;ERR PUBLIC __ErrXmsLockExtMemoryBlock(HEMB hemb, PULONG pAddress);
  8.  
  9.     public    __ErrXmsLockExtMemoryBlock
  10. __ErrXmsLockExtMemoryBlock    proc    \
  11.     hemb:word,            \
  12.     pAddress:ptr dword
  13.  
  14.     mov    dx,[hemb]
  15.     XmsCall 0Ch
  16.     jc    Exit        ;Brif error
  17.  
  18.     mov    ax,bx
  19.     les    bx,[pAddress]
  20.     mov    es:[bx],ax
  21.     mov    es:[bx+2],dx
  22.  
  23.     xor    ax,ax
  24.  
  25. Exit:
  26.     ret
  27.  
  28. __ErrXmsLockExtMemoryBlock    endp
  29.  
  30.     end
  31.