home *** CD-ROM | disk | FTP | other *** search
- .model large,pascal
-
- include xms.inc
-
- .code XMS_TEXT
-
- ;USHORT PUBLIC __XmsGetVersionNumber(PBOOL pfHMAExists);
-
- public __XmsGetVersionNumber
- __XmsGetVersionNumber proc \
- pfHMAExists:ptr word
-
- XmsCall 00h
-
- les bx,[pfHMAExists]
- mov es:[bx],dx
- ret
-
- __XmsGetVersionNumber endp
-
- end