|
|
title OS2_STUB - OS/2 Simulation routines for DOS 3
; These routines simulate family API routines for DOS 3;; Routines which are never called under DOS 3 just return; popping the parameters.;; 87/04/24 SKS DOSGETMACHINEMODE stores a Byte, not a Word!;
memL=1 ; simulate large model for returns?PLM=1 ; pascal calling conventions?WIN=0 ; no Windows
.xlist include cmac_mrt.inc ; old, customized masm510 cmacros.list include msdos.inc
sBegin codeassumes cs,code
; __DOSDEVCONFIG - return 8087/80287 indicator
cProc __DOSDEVCONFIG,<PUBLIC>,<ES,BX>
parmDP devinfo parmW devitem parmW reserved
cbegin les bx,devinfo mov word ptr es:[bx],1 ; assume have 287 xor ax,ax ; return no errorcend
; __DOSGETMACHINEMODE - return real mode indicator
cProc __DOSGETMACHINEMODE,<PUBLIC>,<ES,BX>
parmDP mode
cbegin les bx,mode xor ax,ax ; ax = return code and mode mov es:[bx],al ; set machine mode to realcend
; __DOSSETVEC - never called under DOS 3.x
cProc __DOSSETVEC,<PUBLIC>,<>
parmDP oldaddr parmDP newaddr parmW vecnum
cbegincend
; __DOSCREATECSALIAS
cProc __DOSCREATECSALIAS,<PUBLIC>,<ES,BX>
parmW dataseg parmDP csalias
cbegin mov ax,dataseg les bx,csalias mov es:[bx],ax ; use dataseg valuecend
; __DOSFREESEG - never called from DOS 3.x
cProc __DOSFREESEG,<PUBLIC>,<>
parmW dataseg
cbegincend
; __DOSWRITE - stripped-down version called from emulator for no87 message; - note that there is no error detection in this version; - since the emulator doesn't check for write errors anyway
cProc __DOSWRITE,<PUBLIC>,<ds> ; <di> commented out
parmW handle ; unsigned parmD p_buffer ; char far * parmW bytestowrite ; unsigned parmD p_byteswritten ; unsigned far * ; returns unsgined
cbegin mov cx,bytestowrite mov bx,handle lds dx,p_buffer callos write; jc wrtret ; if write error, error code already in AX; ; if no error, set bytes written; les di,p_byteswritten; mov word ptr es:[di],ax xor ax,ax ; if no error, clear return code;wrtret:cend
sEnd code
end
|
