home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / vm / src / ems / ems50.asm < prev    next >
Encoding:
Assembly Source File  |  1993-12-14  |  716 b   |  29 lines
  1.     .model  large,pascal
  2.  
  3.     include ems.inc
  4.  
  5.     .code   EMS_TEXT
  6.  
  7.     ;ERR PUBLIC __ErrEmsMapMultipleHandlePages(HEMS hems, USHORT cPages, PVOID pPageMap, BOOL fSegment);
  8.  
  9.     public  __ErrEmsMapMultipleHandlePages
  10. __ErrEmsMapMultipleHandlePages  proc    uses ds si,\
  11.     hems:word,                      \
  12.     cPages:word,                    \
  13.     pPageMap:ptr,                   \
  14.     fSegment:word
  15.  
  16.     mov     dx,[hems]
  17.     mov     cx,[cPages]
  18.     lds     si,[pPageMap]
  19.     assume  ds:nothing
  20.     cmp     [fSegment],1            ;Carry set if FALSE
  21.     sbb     ax,ax                   ;AL = fSegment ? 0 : -1
  22.     inc     ax                      ;AL = fSegment ? 1 : 0
  23.     EmsCall 50h
  24.     ret
  25.  
  26. __ErrEmsMapMultipleHandlePages  endp
  27.  
  28.     end
  29.