pcs/glue.asm

32 lines
636 B
NASM
Raw Permalink Normal View History

2023-05-20 05:57:05 -04:00
page 84,120
dgroup group data
pgroup group prog
data segment word public 'DATA'
data ends
prog segment byte public 'PROG'
assume cs:pgroup,ds:dgroup
extrn _psp:word,_tsize:word
extrn xwait:dword,xbye:dword
public xli_wait,xli_bye
xli_wait proc near
push _psp+2
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
prog ends
end