pcs/xli/glue_ms.asm

33 lines
647 B
NASM
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

page 84,120
dgroup group _DATA
pgroup group _TEXT
_DATA segment word public 'DATA'
_DATA ends
extrn __psp:word,_tsize:word
extrn _xwait:dword,_xbye:dword
_TEXT segment byte public 'CODE'
assume cs:pgroup,ds:dgroup
public _xli_wait,_xli_bye
_xli_wait proc near
push __psp
push _tsize
call dword ptr [_xwait]
pop ax
pop ax
ret
_xli_wait endp
_xli_bye proc near
call dword ptr [_xbye]
_xli_bye endp
_TEXT ends
end