32 lines
658 B
NASM
32 lines
658 B
NASM
|
page 84,120
|
|||
|
|
|||
|
dgroup group data
|
|||
|
pgroup group _prog
|
|||
|
|
|||
|
data segment word public 'DATA'
|
|||
|
extrn _psp:dword,_tsize:dword
|
|||
|
extrn xwait:dword,xbye:dword
|
|||
|
data ends
|
|||
|
|
|||
|
_prog segment byte public '_PROG'
|
|||
|
assume cs:pgroup,ds:dgroup
|
|||
|
|
|||
|
public xli_wait,xli_bye
|
|||
|
|
|||
|
xli_wait proc far
|
|||
|
push word ptr _psp+2
|
|||
|
push word ptr _tsize
|
|||
|
call dword ptr [xwait]
|
|||
|
pop ax
|
|||
|
pop ax
|
|||
|
ret
|
|||
|
xli_wait endp
|
|||
|
|
|||
|
xli_bye proc far
|
|||
|
call dword ptr [xbye]
|
|||
|
xli_bye endp
|
|||
|
|
|||
|
_prog ends
|
|||
|
end
|
|||
|
|
|||
|
|