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