You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1007 lines
26 KiB
1007 lines
26 KiB
|
|
;===========================================================================
|
|
;
|
|
; TITLE Low Memory Stub for DOS when DOS runs in HMA
|
|
;
|
|
;
|
|
; Revision History:
|
|
;
|
|
; M003 - MS PASCAL 3.2 support. Please see under tag M003 in dossym.inc
|
|
; 7/30/90
|
|
;
|
|
; M006 - print A20 Hardware error using int 10.
|
|
;
|
|
; M020 - Fix for Rational Bug - see exepatch.asm for details
|
|
;
|
|
; M011 - check for wrap rather than do an XMS query
|
|
; A20 after int 23,24 and 28
|
|
;
|
|
; M012 - Rearranged stuff to make Share build with msdata
|
|
;
|
|
; M023 - Added variable UmbSave1 for preserving umb_head arena across
|
|
; win /3 session for win ver < 3.1
|
|
;
|
|
;
|
|
;============================================================================
|
|
|
|
|
|
|
|
DOSDATA SEGMENT WORD PUBLIC 'DATA'
|
|
assume cs:DOSDATA
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
;
|
|
; P U B L I C S
|
|
;
|
|
;----------------------------------------------------------------------------
|
|
|
|
PUBLIC DOSINTTABLE
|
|
|
|
public ldivov
|
|
public lquit
|
|
public lcommand
|
|
public labsdrd
|
|
public labsdwrt
|
|
public lStay_resident
|
|
public lint2f
|
|
public lcall_entry
|
|
public lirett
|
|
ifdef NEC_98
|
|
PUBLIC lirett2
|
|
endif ;NEC_98
|
|
|
|
|
|
public i0patch
|
|
public i20patch
|
|
public i21patch
|
|
public i25patch
|
|
public i26patch
|
|
public i27patch
|
|
public i2fpatch
|
|
public cpmpatch
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------
|
|
;
|
|
; D A T A
|
|
;
|
|
;----------------------------------------------------------------------------
|
|
|
|
EVEN
|
|
DOSINTTABLE LABEL DWORD
|
|
|
|
DW OFFSET DOSCODE:DIVOV , 0
|
|
DW OFFSET DOSCODE:QUIT , 0
|
|
DW OFFSET DOSCODE:COMMAND , 0
|
|
DW OFFSET DOSCODE:ABSDRD , 0
|
|
DW OFFSET DOSCODE:ABSDWRT , 0
|
|
DW OFFSET DOSCODE:Stay_resident , 0
|
|
DW OFFSET DOSCODE:INT2F , 0
|
|
DW OFFSET DOSCODE:CALL_ENTRY , 0
|
|
DW OFFSET DOSCODE:IRETT , 0
|
|
|
|
SS_Save DW ? ; save user's stack segment
|
|
SP_Save DW ? ; save user's stack offset
|
|
|
|
|
|
|
|
;-------------------------------------------------------------------------
|
|
;
|
|
; LOW MEM STUB:
|
|
;
|
|
; The low mem stub contains the entry points into DOS for all interrupts
|
|
; handled by DOS. This stub is installed if the user specifies that the
|
|
; DOS load in HIMEM. Each entry point does this.
|
|
;
|
|
;
|
|
; 1. if jmp to 8 has been patched out
|
|
; 2. if A20 OFF
|
|
; 3. Enable A20
|
|
; 4. else
|
|
; 5. just go to dos entry
|
|
; 6. endif
|
|
; 7. else
|
|
; 8. just go to dos entry
|
|
; 9. endif
|
|
;
|
|
;
|
|
;--------------------------------------------------------------------------
|
|
assume cs:dosdata
|
|
|
|
;--------------------------------------------------------------------------
|
|
;
|
|
; DIVIDE BY 0 handler
|
|
;
|
|
;--------------------------------------------------------------------------
|
|
|
|
ldivov:
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
i0patch:
|
|
jmp short divov_cont
|
|
|
|
call EnsureA20ON ; we must turn on A20 if OFF
|
|
|
|
divov_cont:
|
|
jmp dword ptr DOSINTTABLE ; jmp to DOS
|
|
|
|
;------------------------------------------------------------------------
|
|
;
|
|
; INT 20 Handler
|
|
;
|
|
; Here we do not have to set up the stack to return here as the abort call
|
|
; will return to the address after the int 21 ah=4b call. This would be the
|
|
; common exit point if A20 had been OFF (for TOGGLE DOS) and the A20 line
|
|
; will be restored then.
|
|
;
|
|
;-------------------------------------------------------------------------
|
|
|
|
lquit:
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
i20patch:
|
|
jmp short quit_cont
|
|
|
|
call EnsureA20ON ; we must turn on A20 if OFF
|
|
quit_cont:
|
|
jmp dword ptr DOSINTTABLE+4 ; jump to DOS
|
|
|
|
;--------------------------------------------------------------------------
|
|
;
|
|
; INT 21 Handler
|
|
;
|
|
;--------------------------------------------------------------------------
|
|
|
|
lcommand:
|
|
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
i21patch:
|
|
jmp short command_cont
|
|
|
|
call WEnsureA20ON ; we must turn on A20 if OFF
|
|
|
|
|
|
command_cont:
|
|
jmp dword ptr DOSINTTABLE+8 ; jmp to DOS
|
|
|
|
;------------------------------------------------------------------------
|
|
;
|
|
; INT 25
|
|
;
|
|
;----------------------------------------------------------------------------
|
|
|
|
labsdrd:
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
i25patch:
|
|
jmp short absdrd_cont
|
|
|
|
call EnsureA20ON ; we must turn on A20 if OFF
|
|
|
|
absdrd_cont:
|
|
jmp dword ptr DOSINTTABLE+12; jmp to DOS
|
|
|
|
;-------------------------------------------------------------------------
|
|
;
|
|
; INT 26
|
|
;
|
|
;-----------------------------------------------------------------------
|
|
|
|
labsdwrt:
|
|
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
i26patch:
|
|
jmp short absdwrt_cont
|
|
|
|
call EnsureA20ON ; we must turn on A20 if OFF
|
|
|
|
absdwrt_cont:
|
|
jmp dword ptr DOSINTTABLE+16; jmp to DOS
|
|
|
|
;------------------------------------------------------------------------
|
|
;
|
|
; INT 27
|
|
;
|
|
;-----------------------------------------------------------------------
|
|
|
|
lStay_resident:
|
|
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
i27patch:
|
|
jmp short sr_cont
|
|
|
|
call EnsureA20ON ; we must turn on A20 if OFF
|
|
|
|
sr_cont:
|
|
jmp dword ptr DOSINTTABLE+20; jmp to DOS
|
|
|
|
;-----------------------------------------------------------------------------
|
|
;
|
|
; INT 2f
|
|
;
|
|
;-------------------------------------------------------------------------
|
|
|
|
lint2f:
|
|
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
i2fpatch:
|
|
jmp short int2f_cont
|
|
|
|
call EnsureA20ON ; we must turn on A20 if OFF
|
|
|
|
int2f_cont:
|
|
jmp dword ptr DOSINTTABLE+24; jmp to DOS
|
|
|
|
;-----------------------------------------------------------------------------
|
|
;
|
|
; CPM entry
|
|
;
|
|
;------------------------------------------------------------------------
|
|
|
|
lcall_entry:
|
|
|
|
;
|
|
; The following jump, skipping the XMS calls will be patched to
|
|
; NOPS by SEG_REINIT if DOS successfully loads high. This jump is
|
|
; needed because the stub is installed even before the XMS driver
|
|
; is loaded if the user specifies dos=high in the config.sys
|
|
;
|
|
cpmpatch:
|
|
jmp short callentry_cont
|
|
|
|
call EnsureA20ON ; we must turn on A20 if OFF
|
|
|
|
callentry_cont:
|
|
jmp dword ptr DOSINTTABLE+28; jmp to DOS
|
|
|
|
|
|
;--------------------------------------------------------------------------
|
|
|
|
lirett: jmp DOIRET
|
|
ifdef NEC_98
|
|
lirett2: iret
|
|
endif ;NEC_98
|
|
|
|
;---------------------------------------------------------------------------
|
|
;
|
|
; LowIntXX:
|
|
;
|
|
; Interrupts from DOS that pass control to a user program must be done from
|
|
; low memory, as the user program may change the state of the A20 line or
|
|
; they may require that the A20 line be OFF. The following piece of code is
|
|
; far call'd from the following places in DOS:
|
|
;
|
|
; 1. msctrlc.asm where dos issues an int 23h (ctrlc)
|
|
; 2. msctrlc.asm where dos issues an int 24h (critical error)
|
|
; 3. msctrlc.asm where dos issues an int 28h (idle int)
|
|
;
|
|
; The int 23 and int 24 handlers may decide to do a far return instead of an
|
|
; IRET ane leave the flags on the stack. Therefore we save the return address
|
|
; before doing the ints and then do a far junp back into DOS.
|
|
;
|
|
;---------------------------------------------------------------------------
|
|
|
|
|
|
public DosRetAddr23, DosRetAddr24
|
|
public LowInt23, LowInt24, LowInt28
|
|
|
|
DosRetAddr23 DD ?
|
|
DosRetAddr24 DD ?
|
|
DosRetAddr28 DD ?
|
|
|
|
;
|
|
; Execute int 23h from low memory
|
|
;
|
|
|
|
LowInt23:
|
|
; save the return address that is on
|
|
; the stack
|
|
pop word ptr cs:[DosRetAddr23]
|
|
pop word ptr cs:[DosRetAddr23+2]
|
|
|
|
int 23h ; ctrl C
|
|
; turn on A20 it has been turned OFF
|
|
; by int 28/23/24 handler.
|
|
|
|
call EnsureA20ON ; M011: we must turn on A20 if OFF
|
|
|
|
jmp dword ptr DosRetAddr23 ; jump back to DOS
|
|
|
|
|
|
|
|
;
|
|
; Execute int 24h from low memory
|
|
;
|
|
|
|
LowInt24:
|
|
; save the return address that is on
|
|
; the stack
|
|
pop word ptr cs:[DosRetAddr24]
|
|
pop word ptr cs:[DosRetAddr24+2]
|
|
|
|
int 24h ; crit error
|
|
; turn on A20 it has been turned OFF
|
|
; by int 28/23/24 handler.
|
|
|
|
call EnsureA20ON ; M011: we must turn on A20 if OFF
|
|
|
|
jmp dword ptr DosRetAddr24 ; jump back to DOS
|
|
|
|
|
|
;
|
|
; Execute int 23h from low memory
|
|
;
|
|
|
|
LowInt28:
|
|
|
|
int 28h ; idle int
|
|
; turn on A20 it has been turned OFF
|
|
; by int 28/23/24 handler.
|
|
|
|
call EnsureA20ON ; M011: we must turn on A20 if OFF
|
|
|
|
retf
|
|
|
|
;-------------------------------------------------------------------------
|
|
;
|
|
; int 21 ah=4b (exec) call will jump to the following label before xferring
|
|
; control to the exec'd program. We turn of A20 inorder to allow programs
|
|
; that have been packed by the faulty exepack utility to unpack correctly.
|
|
; This is so because exepac'd programs rely on address wrap.
|
|
;
|
|
;-------------------------------------------------------------------------
|
|
|
|
public disa20_xfer
|
|
disa20_xfer:
|
|
call XMMDisableA20 ; disable A20
|
|
|
|
;
|
|
; Look at msproc.asm at label exec_go for understanding the following:
|
|
;
|
|
|
|
; DS:SI points to entry point
|
|
; AX:DI points to initial stack
|
|
; DX has PDB pointer
|
|
; BX has initial AX value
|
|
SVC SVC_DEMENTRYDOSAPP
|
|
|
|
call DOCLI
|
|
mov BYTE PTR InDos,0 ; SS Override
|
|
|
|
ASSUME SS:NOTHING
|
|
|
|
mov SS,AX ; set up user's stack
|
|
mov SP,DI ; and SP
|
|
sti ; took out DOSTI as sp may be bad
|
|
push DS ; fake long call to entry
|
|
push SI
|
|
mov ES,DX ; set up proper seg registers
|
|
mov DS,DX
|
|
mov AX,BX ; set up proper AX
|
|
retf
|
|
|
|
|
|
|
|
;-------------------------------------------------------------------------
|
|
;
|
|
; M003:
|
|
;
|
|
; If an int 21 ah=25 call is made immediately after an exec call, DOS will
|
|
; come here, turn A20 OFF restore user stack and registers before returning
|
|
; to user. This is done in dos\msdisp.asm. This has been done to support
|
|
; programs complied with MS PASCAL 3.2. See under TAG M003 in DOSSYM.INC for
|
|
; more info.
|
|
;
|
|
; Also at this point DS is DOSDATA. So we can assume DS DOSDATA. Note that
|
|
; SS is also DOS stack. It is important that we do the XMS call on DOS's
|
|
; stack to avoid additional stack overhead for the user.
|
|
;
|
|
; -------------------------------------------------------------------------
|
|
public disa20_iret
|
|
disa20_iret:
|
|
|
|
assume ds:DOSDATA
|
|
|
|
call XMMDisableA20
|
|
dec InDos
|
|
mov SS,User_SS ; restore user stack
|
|
mov SP,User_SP
|
|
mov BP,SP
|
|
mov BYTE PTR [BP.User_AX],AL
|
|
mov AX,Nsp
|
|
mov User_SP,AX
|
|
mov AX,Nss
|
|
mov User_SS,AX
|
|
|
|
pop AX ; restore user regs
|
|
pop BX
|
|
pop CX
|
|
pop DX
|
|
pop SI
|
|
pop DI
|
|
pop BP
|
|
pop DS
|
|
pop ES
|
|
|
|
ifdef NTVDMDBG
|
|
SVC SVC_DEMDOSDISPRET
|
|
endif
|
|
jmp DOIRET
|
|
|
|
assume ds:NOTHING
|
|
|
|
;*****************************************************************************
|
|
;*** XMMDisableA20 - switch 20th address line
|
|
;
|
|
; This routine is used to disable the 20th address line in
|
|
; the system using XMM calls.
|
|
;
|
|
; ENTRY none ;ds = _DATA
|
|
; EXIT A20 line disabled
|
|
; USES NOTHING
|
|
;
|
|
;*****************************************************************************
|
|
|
|
|
|
XMMDisableA20 proc near
|
|
|
|
push bx
|
|
push ax
|
|
mov ah, XMM_LOCAL_DISABLE_A20
|
|
call cs:[XMMcontrol]
|
|
pop ax
|
|
pop bx
|
|
ret
|
|
|
|
XMMDisableA20 endp
|
|
|
|
|
|
; The entry point in the BIOS XMS driver is defined here.
|
|
public XMMcontrol
|
|
XMMcontrol DD ?
|
|
|
|
|
|
;---------------------------------------------------------------------------
|
|
;
|
|
;*** EnsureA20ON - Ensures that A20 is ON
|
|
;
|
|
; This routine is used to query the A20 state in
|
|
; the system using XMM calls.
|
|
;
|
|
; ENTRY: none
|
|
;
|
|
; EXIT : A20 will be ON
|
|
;
|
|
;
|
|
; USES : NONE
|
|
;
|
|
;---------------------------------------------------------------------------
|
|
|
|
|
|
LowMemory label dword ; Set equal to 0000:0080
|
|
dw 00080h
|
|
dw 00000h
|
|
|
|
HighMemory label dword
|
|
dw 00090h ; Set equal to FFFF:0090
|
|
dw 0FFFFh
|
|
|
|
; sudeepb 07-Dec-1992 Created WEnsureA20ON so that costly pushf/popf
|
|
|
|
; can be avoided in those entry points which dont care for flags
|
|
|
|
|
|
EnsureA20ON proc near
|
|
pushf
|
|
call WEnsureA20ON
|
|
popf
|
|
ret
|
|
EnsureA20ON endp
|
|
|
|
WEnsureA20ON proc near
|
|
|
|
push ds
|
|
push es
|
|
push cx
|
|
push si
|
|
push di
|
|
|
|
lds si,cs:LowMemory ; Compare the 4 words at 0000:0080
|
|
les di,cs:HighMemory ; with the 4 at FFFF:0090
|
|
mov cx,4
|
|
cld
|
|
repe cmpsw
|
|
|
|
jz EA20_OFF
|
|
|
|
EA20_RET:
|
|
|
|
pop di
|
|
pop si
|
|
pop cx
|
|
pop es
|
|
pop ds
|
|
ret
|
|
|
|
EA20_OFF:
|
|
|
|
;
|
|
; We are going to do the XMS call on the DOS's AuxStack. NOTE: ints
|
|
; are disabled at this point.
|
|
;
|
|
|
|
push bx
|
|
push ax
|
|
|
|
mov ax, ss ; save user's stack pointer
|
|
mov cs:[SS_Save],ax
|
|
mov cs:[SP_Save],sp
|
|
mov ax, cs
|
|
mov ss, ax
|
|
mov sp, OFFSET DOSDATA:AuxStack
|
|
; ss:sp -> DOSDATA:AuxStack
|
|
|
|
mov ah, XMM_LOCAL_ENABLE_A20
|
|
call cs:[XMMcontrol]
|
|
or ax, ax
|
|
jz XMMerror ; AX = 0 fatal error
|
|
|
|
|
|
mov ax, cs:[SS_Save] ; restore user stack
|
|
mov ss, ax
|
|
mov sp, cs:[SP_Save]
|
|
|
|
pop ax
|
|
pop bx
|
|
|
|
jmp short EA20_RET
|
|
|
|
|
|
WEnsureA20ON endp
|
|
|
|
|
|
ifndef NEC_98
|
|
XMMerror: ; M006 - Start
|
|
|
|
mov ah, 0fh ; get video mode
|
|
int 10h
|
|
cmp al, 7 ; Q: are we an MDA
|
|
je XMMcont ; Y: do not change mode
|
|
xor ah, ah ; set video mode
|
|
mov al, 02h ; 80 X 25 text
|
|
int 10h
|
|
XMMcont:
|
|
mov ah, 05h ; set display page
|
|
xor al, al ; page 0
|
|
int 10h
|
|
|
|
mov si, offset XMMERRMSG
|
|
push cs
|
|
pop ds
|
|
cld ; clear direction flag
|
|
|
|
XMMprnt:
|
|
lodsb
|
|
cmp al, '$' ; indicates end of XMMERRMSG
|
|
jz XMMStall ; function 0eh
|
|
mov ah, 14
|
|
mov bx, 7
|
|
int 10h
|
|
jmp short XMMprnt
|
|
|
|
XMMStall:
|
|
call DOSTI ; allow the user to warm boot
|
|
jmp XMMStall ; M006 - End
|
|
else ;NEC_98
|
|
extrn XMMerr:near
|
|
|
|
XMMerror:
|
|
jmp XMMerr ; can't locate this code in this source
|
|
; or code will be corrupted by ORG!!!
|
|
endif ;NEC_98
|
|
|
|
|
|
|
|
ifdef NEC_98
|
|
;
|
|
;This has been put in for WIN386 2.XX support. The format of the instance
|
|
;table was different for this. Segments will be patched in at init time.
|
|
;
|
|
public OldInstanceJunk
|
|
OldInstanceJunk dw 70h ;segment of BIOS
|
|
dw 0 ;indicate stacks in SYSINIT area
|
|
dw 6 ;5 instance items
|
|
|
|
dw 0,offset dosdata:contpos, 2
|
|
dw 0,offset dosdata:bcon, 4
|
|
dw 0,offset dosdata:carpos,106h
|
|
dw 0,offset dosdata:charco, 1
|
|
dw 0,offset dosdata:exec_init_sp, 34 ;M032
|
|
dw 070h,offset BData:altah, 1 ; altah byte in bios
|
|
endif ;NEC_98
|
|
|
|
|
|
|
|
; M021-
|
|
;
|
|
; DosHasHMA - This flag is set by seg_reinit when the DOS actually
|
|
; takes control of the HMA. When running, this word is a reliable
|
|
; indicator that the DOS is actually using HMA. You can't just use
|
|
; CS, because ROMDOS uses HMA with CS < F000.
|
|
|
|
public DosHasHMA
|
|
DosHasHMA db 0
|
|
|
|
public fixexepatch, RationalPatchPtr
|
|
fixexepatch dw ? ; M012
|
|
RationalPatchPtr dw ? ; M012
|
|
|
|
; End M021
|
|
|
|
|
|
;
|
|
; M020 Begin
|
|
;
|
|
public RatBugCode
|
|
RatBugCode proc far
|
|
push cx
|
|
mov cx, word ptr ds:[10h]
|
|
loop $
|
|
pop cx
|
|
ret
|
|
RatBugCode endp
|
|
;
|
|
; M020 End
|
|
;
|
|
|
|
|
|
public UmbSave1 ; M023
|
|
UmbSave1 db 0bh dup (?) ; M023
|
|
|
|
public Mark3
|
|
Mark3 label byte
|
|
|
|
IF2
|
|
IF ((OFFSET MARK3) GT (OFFSET COUNTRY_CDPG) )
|
|
.ERR
|
|
%OUT !DATA CORRUPTION!MARK3 OFFSET TOO BIG. RE-ORGANIZE DATA.
|
|
ENDIF
|
|
ENDIF
|
|
|
|
;############################################################################
|
|
;
|
|
; ** HACK FOR DOS 4.0 REDIR **
|
|
;
|
|
; The dos 4.X redir requires that country_cdpg is at offset 0122ah. Any new
|
|
; data variable that is to be added to DOSDATA must go in between Mark3
|
|
; COUNTRY_CDPG if it can.
|
|
;
|
|
; MARK3 SHOULD NOT BE > 122AH
|
|
;
|
|
; As of 9/6/90, this area is FULL!
|
|
;
|
|
;############################################################################
|
|
|
|
ORG 0122ah
|
|
|
|
; The following table is used for DOS 3.3
|
|
;DOS country and code page information is defined here for DOS 3.3.
|
|
;The initial value for ccDosCountry is 1 (USA).
|
|
;The initial value for ccDosCodepage is 850.
|
|
;
|
|
;
|
|
PUBLIC UCASE_TAB,FILE_UCASE_TAB,DBCS_TAB
|
|
PUBLIC FILE_CHAR_TAB,COLLATE_TAB
|
|
|
|
PUBLIC COUNTRY_CDPG
|
|
|
|
;
|
|
; country and code page infomation
|
|
;
|
|
COUNTRY_CDPG label byte
|
|
|
|
db 0,0,0,0,0,0,0,0 ; reserved words
|
|
db '\COUNTRY.SYS',0 ; path name of country.sys
|
|
db 51 dup (?)
|
|
; ------------------------------------------------<MSKK01>----------------------
|
|
ifdef DBCS
|
|
ifdef JAPAN
|
|
dw 932 ; system code page id (JAPAN)
|
|
endif
|
|
ifdef KOREA
|
|
dw 949
|
|
endif
|
|
ifdef TAIWAN
|
|
dw 950
|
|
endif
|
|
ifdef PRC
|
|
dw 936
|
|
endif
|
|
else
|
|
dw 437 ; system code page id
|
|
endif
|
|
; ------------------------------------------------<MSKK01>----------------------
|
|
dw 6 ; number of entries
|
|
db SetUcase ; Ucase type
|
|
dw OFFSET DOSDATA:UCASE_TAB ;pointer to upper case table
|
|
dw 0 ; segment of poiter
|
|
db SetUcaseFile ; Ucase file char type
|
|
dw OFFSET DOSDATA:FILE_UCASE_TAB ;pointer to file upper case table
|
|
dw 0 ; segment of poiter
|
|
db SetFileList ; valid file chars type
|
|
dw OFFSET DOSDATA:FILE_CHAR_TAB ;pointer to valid file char tab
|
|
dw 0 ; segment of poiter
|
|
db SetCollate ; collate type
|
|
dw OFFSET DOSDATA:COLLATE_TAB ;pointer to collate table
|
|
dw 0 ; segment of poiter
|
|
db SetDBCS ;AN000; DBCS Ev 2/12/KK
|
|
dw OFFSET DOSDATA:DBCS_TAB ;AN000;;pointer to DBCS Ev table 2/12/KK
|
|
dw 0 ;AN000; segment of poiter 2/12/KK
|
|
db SetCountryInfo ; country info type
|
|
dw NEW_COUNTRY_SIZE ; extended country info size
|
|
; ------------------------------------------------<MSKK01>----------------------
|
|
ifdef DBCS
|
|
ifdef JAPAN
|
|
dw 81 ; <MSKK01> JAPAN country id
|
|
dw 932 ; <MSKK01> JAPAN system code page id
|
|
dw 2 ; <MSKK01> date format (YMD)
|
|
db '\',0,0,0,0 ; <MSKK01> currency symbol (YEN)
|
|
db ',',0 ; thousand separator
|
|
db '.',0 ; decimal separator
|
|
db '-',0 ; date separator
|
|
db ':',0 ; time separator
|
|
db 0 ; currency format flag
|
|
db 0 ; <MSKK01> # of digit in currency
|
|
db 1 ; <MSKK01> time format (HR24)
|
|
dw OFFSET DOSDATA:MAP_CASE ;mono case routine entry point
|
|
dw 0 ; segment of entry point
|
|
db ',',0 ; data list separator
|
|
dw 0,0,0,0,0 ; reserved
|
|
endif
|
|
ifdef PRC
|
|
dw 86 ; PRC country id
|
|
dw 936 ; PRC system code page id
|
|
dw 0 ; date format (MDY)
|
|
db '\',0,0,0,0 ; currency symbol
|
|
db ',',0 ; thousand separator
|
|
db '.',0 ; decimal separator
|
|
db '-',0 ; date separator
|
|
db ':',0 ; time separator
|
|
db 0 ; currency format flag
|
|
db 2 ; # of digit in currency
|
|
db 1 ; time format (HR24)
|
|
dw OFFSET DOSDATA:MAP_CASE ;mono case routine entry point
|
|
dw 0 ; segment of entry point
|
|
db ',',0 ; data list separator
|
|
dw 0,0,0,0,0 ; reserved
|
|
endif
|
|
ifdef TAIWAN
|
|
dw 88 ; TAIWAN country id
|
|
dw 950 ; TAIWAN system code page id
|
|
dw 0 ; date format (MDY)
|
|
db 'N','T','$',0,0 ; currency symbol
|
|
db ',',0 ; thousand separator
|
|
db '.',0 ; decimal separator
|
|
db '-',0 ; date separator
|
|
db ':',0 ; time separator
|
|
db 0 ; currency format flag
|
|
db 2 ; # of digit in currency
|
|
db 1 ; time format (HR24)
|
|
dw OFFSET DOSDATA:MAP_CASE ;mono case routine entry point
|
|
dw 0 ; segment of entry point
|
|
db ',',0 ; data list separator
|
|
dw 0,0,0,0,0 ; reserved
|
|
endif
|
|
ifdef KOREA
|
|
dw 82 ; <MSCH> KOREA country id
|
|
dw 949 ; <MSCH> KOREA system code page id
|
|
dw 2 ; <MSCH> date format (YMD)
|
|
db '\',0,0,0,0 ; <MSCH> currency symbol (WON)
|
|
db ',',0 ; thousand separator
|
|
db '.',0 ; decimal separator
|
|
db '-',0 ; date separator
|
|
db ':',0 ; time separator
|
|
db 0 ; currency format flag
|
|
db 0 ; <MSCH> # of digit in currency
|
|
db 1 ; <MSCH> time format (HR24)
|
|
dw OFFSET DOSDATA:MAP_CASE ;mono case routine entry point
|
|
dw 0 ; segment of entry point
|
|
db ',',0 ; data list separator
|
|
dw 0,0,0,0,0 ; reserved
|
|
endif
|
|
else
|
|
dw 1 ; USA country id
|
|
dw 437 ; USA system code page id
|
|
dw 0 ; date format
|
|
db '$',0,0,0,0 ; currency symbol
|
|
db ',',0 ; thousand separator
|
|
db '.',0 ; decimal separator
|
|
db '-',0 ; date separator
|
|
db ':',0 ; time separator
|
|
db 0 ; currency format flag
|
|
db 2 ; # of digit in currency
|
|
db 0 ; time format
|
|
dw OFFSET DOSDATA:MAP_CASE ;mono case routine entry point
|
|
dw 0 ; segment of entry point
|
|
db ',',0 ; data list separator
|
|
dw 0,0,0,0,0 ; reserved
|
|
endif
|
|
; ------------------------------------------------<MSKK01>----------------------
|
|
|
|
ifndef NEC_98
|
|
;
|
|
;This has been put in for WIN386 2.XX support. The format of the instance
|
|
;table was different for this. Segments will be patched in at init time.
|
|
;
|
|
public OldInstanceJunk
|
|
OldInstanceJunk dw 70h ;segment of BIOS
|
|
dw 0 ;indicate stacks in SYSINIT area
|
|
dw 6 ;5 instance items
|
|
|
|
dw 0,offset dosdata:contpos, 2
|
|
dw 0,offset dosdata:bcon, 4
|
|
dw 0,offset dosdata:carpos,106h
|
|
dw 0,offset dosdata:charco, 1
|
|
dw 0,offset dosdata:exec_init_sp, 24
|
|
dw 070h,offset BData:altah, 1 ; altah byte in bios
|
|
endif ;NEC_98
|
|
|
|
|
|
|
|
|
|
|
|
include msdos.cl2 ; XMMERRMSG
|
|
|
|
PUBLIC vheVDM
|
|
vheVDM db (size vhe_s) dup (0)
|
|
|
|
PUBLIC SCS_COMSPEC
|
|
SCS_COMSPEC db 64 dup (?) ; Buffer for %COMSPEC% /z
|
|
|
|
PUBLIC SCS_CMDTAIL
|
|
SCS_CMDTAIL db 128 dup (?) ; Buffer for Command Tail
|
|
IF 2
|
|
.errnz SCS_CMDTAIL-SCS_COMSPEC-64
|
|
ENDIF
|
|
|
|
PUBLIC SCS_PBLOCK
|
|
SCS_PBLOCK db 14 dup (?) ; Buffer for parameter block
|
|
IF 2
|
|
.errnz SCS_PBLOCK-SCS_CMDTAIL-128
|
|
ENDIF
|
|
|
|
PUBLIC SCS_ToSync ; TRUE after receiving a new command
|
|
SCS_ToSync db 0 ; from scs.
|
|
IF 2
|
|
.errnz SCS_ToSync-SCS_PBLOCK-14
|
|
ENDIF
|
|
|
|
PUBLIC SCS_TSR
|
|
SCS_TSR db 0
|
|
|
|
PUBLIC SCS_Is_Dos_Binary
|
|
SCS_Is_Dos_Binary db 0
|
|
|
|
PUBLIC SCS_CMDPROMPT
|
|
SCS_CMDPROMPT db 0
|
|
|
|
PUBLIC SCS_DOSONLY
|
|
SCS_DOSONLY db 0
|
|
|
|
PUBLIC SCS_FDACCESS
|
|
EVEN
|
|
SCS_FDACCESS dw 0
|
|
|
|
include dpb.inc
|
|
|
|
PUBLIC FAKE_NTDPB
|
|
FAKE_NTDPB db (size DPB) dup (0)
|
|
|
|
; This and NetCDS data structures are used by NT DOSEm for redirected drives.
|
|
ifdef JAPAN
|
|
I_am NetCDS,curdirLen_JPN ; CDS for redirected drives
|
|
else
|
|
I_am NetCDS,curdirLen ; CDS for redirected drives
|
|
endif
|
|
|
|
|
|
|
|
;; williamh, moved from dostab.asm because it broke MARK3
|
|
;smr; moved from TABLE segment in exec.asm
|
|
|
|
EXEC_NEWHEADER_OFFSET equ 03Ch
|
|
|
|
I_am exec_init_SP,WORD
|
|
I_am exec_init_SS,WORD
|
|
I_am exec_init_IP,WORD
|
|
I_am exec_init_CS,WORD
|
|
|
|
I_am exec_signature,WORD ; must contain 4D5A (yay zibo!)
|
|
I_am exec_len_mod_512,WORD ; low 9 bits of length
|
|
I_am exec_pages,WORD ; number of 512b pages in file
|
|
I_am exec_rle_count,WORD ; count of reloc entries
|
|
I_am exec_par_dir,WORD ; number of paragraphs before image
|
|
I_am exec_min_BSS,WORD ; minimum number of para of BSS
|
|
I_am exec_max_BSS,WORD ; max number of para of BSS
|
|
I_am exec_SS,WORD ; stack of image
|
|
I_am exec_SP,WORD ; SP of image
|
|
I_am exec_chksum,WORD ; checksum of file (ignored)
|
|
I_am exec_IP,WORD ; IP of entry
|
|
I_am exec_CS,WORD ; CS of entry
|
|
I_am exec_rle_table,WORD ; byte offset of reloc table
|
|
|
|
public Exec_header_len
|
|
Exec_header_len EQU $-Exec_Signature ;PBUGBUG
|
|
db (EXEC_NEWHEADER_OFFSET - Exec_header_len) dup(?)
|
|
|
|
I_am exec_NE_offset, WORD
|
|
public Exec_header_len_NE
|
|
Exec_header_len_NE equ EXEC_NEWHEADER_OFFSET + 2
|
|
;smr; eom
|
|
|
|
|
|
|
|
|
|
|
|
ifdef NTVDMDBG
|
|
PUBLIC SCS_ISDEBUG
|
|
SCS_ISDEBUG db 0
|
|
endif
|
|
|
|
include doswow.inc
|
|
EVEN
|
|
PUBLIC DosWowDataStart
|
|
DosWowDataStart Label word
|
|
DOSWOWDATA <OFFSET DOSDATA:CDSCOUNT,OFFSET DOSDATA:CDSADDR, \
|
|
OFFSET DOSDATA:NetCDS, \
|
|
OFFSET DOSDATA:CURDRV,OFFSET DOSDATA:CurrentPDB, \
|
|
OFFSET DOSDATA:DrvErr,OFFSET DOSDATA:EXTERR_LOCUS, \
|
|
OFFSET DOSDATA:SCS_ToSync, OFFSET DOSDATA:sfTabl, \
|
|
OFFSET DOSDATA:EXTERR, OFFSET DOSDATA:EXTERR_ACTION>
|
|
|
|
DOCLI:
|
|
FCLI
|
|
ret
|
|
|
|
DOSTI:
|
|
FSTI
|
|
ret
|
|
|
|
DOIRET:
|
|
FIRET
|
|
|
|
DOSDATA ends
|