40 lines
395 B
NASM
40 lines
395 B
NASM
|
TITLE w32sys - Win32S support
|
||
|
|
|
||
|
|
.xlist
|
||
|
|
include kernel.inc
|
||
|
|
include tdb.inc
|
||
|
|
.list
|
||
|
|
|
||
|
|
DataBegin
|
||
|
|
|
||
|
|
externW curTDB
|
||
|
|
|
||
|
|
DataEnd
|
||
|
|
|
||
|
|
|
||
|
|
sBegin CODE
|
||
|
|
assumes CS,CODE
|
||
|
|
|
||
|
|
|
||
|
|
assumes ds,nothing
|
||
|
|
assumes es,nothing
|
||
|
|
|
||
|
|
public GetW32SysInfo
|
||
|
|
|
||
|
|
cProc GetW32SysInfo,<PUBLIC,FAR>
|
||
|
|
cBegin nogen
|
||
|
|
if PMODE32
|
||
|
|
SetKernelDS ES
|
||
|
|
|
||
|
|
mov dx, es
|
||
|
|
lea ax, curTDB
|
||
|
|
|
||
|
|
endif
|
||
|
|
ret
|
||
|
|
assumes es,nothing
|
||
|
|
cEnd nogen
|
||
|
|
|
||
|
|
sEnd CODE
|
||
|
|
|
||
|
|
end
|