home *** CD-ROM | disk | FTP | other *** search
- .model large,pascal
-
- include xms.inc
-
- .code XMS_TEXT
-
- ;ERR PUBLIC __ErrXmsAllocateExtMemoryBlock(PHEMB phemb, USHORT ckbRequested);
-
- public __ErrXmsAllocateExtMemoryBlock
- __ErrXmsAllocateExtMemoryBlock proc \
- phemb:ptr word, \
- ckbRequested:word
-
- mov dx,[ckbRequested]
- XmsCall 09h
- jc Exit ;Brif error
-
- les bx,[phemb]
- mov es:[bx],dx
-
- xor ax,ax
-
- Exit:
- ret
-
- __ErrXmsAllocateExtMemoryBlock endp
-
- end