|
|
.xlistinclude kernel.incinclude pdb.incinclude tdb.incinclude newexe.incifdef WOWinclude vint.incendif.list
externFP KillLibrariesifndef WOWexternFP WriteOutProfilesendif
DataBegin
externB PhantArrayexternB kernel_flagsexternB fBreakexternB fInt21ifndef WOWexternB fProfileMaybeStaleendifexternW curTDBexternW headPDBexternW topPDBexternD lpInt21externD pSftLinkexternD lpWinSftLinkexternD pSysProcexternD pMouseTermProcexternD pKeyboardTermProcexternD pSystemTermProcexternW MyCSAlias
externD myInt2F
DataEnd
sBegin CODEassumes CS,CODEassumes ds, nothingassumes es, nothing
externD prevInt00ProcexternD prevInt21ProcexternD prevInt24ProcexternD prevInt2FProcexternD prevInt3FProcexternD prevInt67ProcexternD prevInt02ProcexternD prevInt04ProcexternD prevInt06ProcexternD prevInt07ProcexternD prevInt3EProcexternD prevInt75ProcexternD prevInt0CProcexternD prevInt0DProcexternD prevIntx6ProcexternD prevInt0EProcifdef WOWexternD prevInt01procexternD prevInt03procexternD oldInt00procendif
externNP real_DOSexternNP Enter_gmove_stackexternNP TerminatePDB
;-----------------------------------------------------------------------;; InternalEnableDOS;;; Entry:; none; Returns:;; Registers Destroyed:;; History:; Thu 21-Sep-1989 20:44:48 -by- David N. Weise [davidw]; Added this nifty comment block.;-----------------------------------------------------------------------;
SetWinVec MACRO vec externFP Int&vec&Handler mov dx, codeoffset Int&vec&Handler mov ax, 25&vec&h pushf call prevInt21Proc endm
assumes ds, nothing assumes es, nothing
cProc InternalEnableDOS,<PUBLIC,FAR>cBegin nogen
push si push ds SetKernelDS
mov al,1 xchg al,fInt21 ; set hook count to 1 or al,al ; was it zero? jz @f jmp ena21 ; no, just leave@@:
; now link back nodes to SFT if kernel had done it before. InternalDisableDOS; saves the link in the DWORD variable lpWinSftLink. If this variable is NULL; then either this is the first time InternalEnableDOS is being called or; else the SFT had not been grown.
cmp lpWinSftLink.sel,0 ;was it allocated ? jz @f ;no. push ds ;save mov cx,lpWinSftLink.sel ;get the selector mov dx,lpWinSftLink.off ;get the offset lds bx,[pSftLink] ;place where we hooked new entry mov word ptr ds:[bx][0],dx ;restore offset mov word ptr ds:[bx][2],cx ;restore segment pop ds ;restore data segment@@:
; WARNING!! The ^C setting diddle MUST BE FIRST IN HERE......; If you do some other INT 21 call before this you will have; a "^C window", so don't do it....
mov ax,3301h ; disable ^C checking mov dl,0 call real_DOS
mov bx,TopPDB mov ah,50h call real_DOS ; This way, or TDB_PDB gets set wrong
ifndef WOWends1: mov ah,6 ; clean out any pending keys mov dl,0FFh call real_DOS jnz ends1endif
mov es,curTDB mov bx,es:[TDB_PDB] mov ah,50h int 21h
push ds lds dx,myInt2F mov ax,252Fh int 21h
smov ds,cs ; Pick up executable sel/seg UnSetKernelDS SetWinVec 24 SetWinVec 00 SetWinVec 02 SetWinVec 04 SetWinVec 06 SetWinVec 07 SetWinVec 3E SetWinVec 75 pop ds ReSetKernelDS
mov bx,2 ; 2 = Enable/Disable one drive logic xor ax,ax ; FALSE = Disable cCall [pSysProc],<bx,ax> ; NOTE: destroys ES if DOS < 3.20
; Set up the PhantArray by calling inquire system for each drive letter
mov bx,dataOffset PhantArray + 25 ; Array index mov cx,26 ; Drive #SetPhant: dec cx push cx push bx mov dx,1 ; InquireSystem cCall [pSysProc],<dx,cx> pop bx pop cx mov byte ptr [bx],0 ; Assume not Phantom cmp ax,2 jae NotPhant ; Assumption correct; or dx,dx ; Drive just invalid?; jz NotPhant ; Yes, assumption correct mov byte ptr [bx],dl ; Drive is phantomNotPhant: dec bx ; Next array element jcxz phant_done jmp SetPhantphant_done:
lds dx,lpInt21 UnSetKernelDS mov ax,2521h int 21hena21: pop ds pop si retcEnd nogen
;-----------------------------------------------------------------------;; InternalDisableDOS ;; ;; ;; Arguments: ;; ;; Returns: ;; ;; Error Returns: ;; ;; Registers Preserved: ;; ;; Registers Destroyed: ;; ;; Calls: ;; ;; History: ;; ;; Mon Oct 16, 1989 11:04:50 -by- Amit Chatterjee [amitc] ;; InternalDisableDOS now takes away any nodes that kernel would have ;; added to the SFT. InternalEnableDOS puts the nodes backs. Previously ;; the delinking was done by DisableKernel, but no one linked it back! ;; ;; Sat May 09, 1987 02:00:52p -by- David N. Weise [davidw] ;; Added this nifty comment block. ;; ;; Thu Apr 16, 1987 11:32:00p -by- Raymond E. Ozzie [-iris-] ;; Changed InternalDisableDOS to use real dos for 52h function, since ;; DosTrap3 doesn't have 52h defined and PassOnThrough will croak if the ;; current TDB's signature is 0, as it is during exit after the last ;; task has been deleted. ;;-----------------------------------------------------------------------;
ReSetDOSVec MACRO vec lds dx,PrevInt&vec&proc mov ax,25&vec&h int 21h endm
assumes ds, nothing assumes es, nothing
cProc InternalDisableDOS,<PUBLIC,FAR>cBegin SetKernelDS es xor ax,ax xchg al,fInt21 ; set hook count to zero or al,al ; was it non zero? jnz @F jmp dis21 ; no, just leave@@: mov bx,2 ; 2 = Enable/Disable one drive logic mov ax,1 ; TRUE = Enable push es cCall pSysProc,<bx,ax> pop es
mov ax,3301h ; disable ^C checking mov dl,0 pushf call [prevInt21Proc]
mov ax,2521h lds dx,prevInt21Proc pushf call [prevInt21Proc]
push es mov ax,352Fh int 21h mov ax,es pop es mov myInt2F.sel,ax mov myInt2F.off,bx
ReSetDOSVec 00 ; as a favor in win2 we restored this ReSetDOSVec 24 ReSetDOSVec 2F ReSetDOSVec 02 ReSetDOSVec 04 ReSetDOSVec 06 ReSetDOSVec 07 ReSetDOSVec 3E ReSetDOSVec 75
mov dl,fBreak ; return state of ^C checking mov ax,3301h int 21h
dis21:cEnd
;------------------------------------------------------------------;; Ancient WinOldAp hook.;;------------------------------------------------------------------ public EnableDOS
EnableDOS Label Byteif kdebug krDebugOut DEB_WARN, "Don't call EnableDOS"endif retf
;------------------------------------------------------------------;; Ancient WinOldAp hook.;;------------------------------------------------------------------ public DisableDOS
DisableDOS Label Byteif kdebug krDebugOut DEB_WARN, "Don't call DisableDOS"endif retf
;------------------------------------------------------------------;; Ancient WinOldAp hook.;;------------------------------------------------------------------ public EnableKernel
EnableKernel Label Byteif kdebug krDebugOut DEB_WARN, "Don't call EnableKernel"endif retf
;-----------------------------------------------------------------------;; DisableKernel ;; ;; This call is provided as a Kernel service to applications that ;; wish to totally unhook Windows in order to do something radical ;; such as save the state of the world and restore it at a later ;; time. This is similar in many ways to the way OLDAPP support ;; works, with the addition that it also unhooks the kernel. ;; ;; Arguments: ;; ;; Returns: ;; ;; Error Returns: ;; ;; Registers Preserved: ;; DI,SI,DS ;; ;; Registers Destroyed: ;; ;; Calls: ;; ;; History: ;; ;; Sat May 09, 1987 02:34:35p -by- David N. Weise [davidw] ;; Merged changes in. Most of this came from ExitKernel. ;; ;; Tue Apr 28, 1987 11:12:00a -by- R.E.O. SpeedWagon [-????-] ;; Changed to indirect thru PDB to get JFN under DOS 3.x. ;; ;; Mon Apr 20, 1987 11:34:00p -by- R.E.O. SpeedWagon [-????-] ;; Set PDB to topPDB before final int 21/4C; we were sometimes exiting ;; with a task's PDB, and thus we came back to ExitCall2 instead of ;; going back to DOS! ;;-----------------------------------------------------------------------;
assumes ds, nothing assumes es, nothing
cProc DisableKernel,<PUBLIC,FAR>,<si,di>cBegin
SetKernelDS or Kernel_flags[2],KF2_WIN_EXIT ; prevent int 24h dialogs cmp prevInt21Proc.sel,0 je nodisable call InternalDisableDOSnodisable:
SetKernelDS mov ax,0203h ; Reset not present fault. mov bl,0Bh mov cx,prevInt3Fproc.sel mov dx,prevInt3Fproc.off int 31h
mov ax,0203h ; Reset stack fault. mov bl,0Ch mov cx,prevInt0Cproc.sel mov dx,prevInt0Cproc.off int 31h
mov ax,0203h ; Reset GP fault. mov bl,0Dh mov cx,prevInt0Dproc.sel mov dx,prevInt0Dproc.off int 31h
mov ax,0203h ; Reset invalid op-code exception. mov bl,06h mov cx,prevIntx6proc.sel mov dx,prevIntx6proc.off int 31h
mov ax,0203h ; Reset page fault. mov bl,0Eh mov cx,prevInt0Eproc.sel mov dx,prevInt0Eproc.off int 31h
ifdef WOW mov ax,0203h ; Reset divide overflow traps mov bl,00h mov cx,oldInt00proc.sel mov dx,oldInt00proc.off int 31h
mov ax,0203h ; Reset single step traps mov bl,01h mov cx,prevInt01proc.sel mov dx,prevInt01proc.off int 31h
mov ax,0203h ; Reset breakpoint traps mov bl,03h mov cx,prevInt03proc.sel mov dx,prevInt03proc.off int 31hendif
mov dx, [HeadPDB] SetKernelDS es UnSetKernelDSexk1: mov ds,dx cmp dx, [topPDB] ; Skip KERNEL, he is about to get je exk3 ; a 4C stuffed down his throat
push ds call TerminatePDB pop ds
exk3: mov dx,ds:[PDB_Chain] ; move to next PDB in chain or dx,dx jnz exk1
mov bx,[topPDB] ; set to initial DOS task PDB mov ah,50h ; set PDB function int 21h and Kernel_flags[2],NOT KF2_WIN_EXIT ; prevent int 24h dialogs;; Close all files on Kernel's PSP, 'cause we're gonna shrink the SFT and; quit ourselves afterwards.; mov ds,[topPDB] mov cx,ds:[PDB_JFN_Length]exk4: mov bx,cx ; close all file handles dec bx cmp bx,5 ; console-related handle? jb exk5 ; yup, don't close it (AUX, etc.) mov ah,3eh int 21hexk5: loop exk4
; kernel could have added some nodes to the SFT. Delink them by removing; the link from the last DOS link in the chain. We need to remember the ; current pointer there so that InternalEnableDOS can put it back.
lds bx,[pSftLink] ;place where we hooked new entry assumes ds,nothing mov cx,ds ;this could have been unitialized too jcxz exk6 ;if unitialized, nothing to do mov dx,ds:[bx].off ;get the current offset mov cx,ds:[bx].sel ;get the current segment mov ds:[bx].off,-1 ;remove windows SFT link mov ds:[bx].sel, 0 ;remove windows SFT link mov lpWinSftLink.off,dx ;save the offset mov lpWinSftLink.sel,cx ;save the segmentexk6:
UnSetKernelDS escEnd
;------------------------------------------------------------------;; ExitKernel -- Bye, bye.;;------------------------------------------------------------------ifndef WOW ; If we are closing down WOW then we don't want to go back to the DOS Prompt ; We want to kill the NTVDM WOW Process - so we don't need/want this code.
assumes ds, nothing assumes es, nothing
cProc ExitKernel,<PUBLIC,FAR>; parmW exitcodecBegin nogen SetKernelDS or Kernel_flags[2],KF2_WIN_EXIT ; prevent int 24h dialogs call KillLibraries ; Tell DLLs that the system is exiting
mov si,sp mov si,ss:[si+4] ; get exit code
; Call driver termination procs, just to make sure that they have removed; their interrupt vectors.
push si mov ax,word ptr [pMouseTermProc] or ax,word ptr [pMouseTermProc+2] jz trm0 call [pMouseTermProc] CheckKernelDStrm0: mov ax,word ptr [pKeyboardTermProc] or ax,word ptr [pKeyboardTermProc+2] jz trm1 call [pKeyboardTermProc] CheckKernelDStrm1: mov ax,word ptr [pSystemTermProc] or ax,word ptr [pSystemTermProc+2] jz trm2 call [pSystemTermProc] CheckKernelDStrm2: pop si
call WriteOutProfiles mov fProfileMaybeStale,1 ; Make sure we check the ; INI file next time around;;; cCall CloseCachedFiles,<topPDB>
; Close open files and unhook kernel hooks
; get on a stack that's not in EMS land
call Enter_gmove_stack
cCall DisableKernel CheckKernelDS
cmp si,EW_REBOOTSYSTEM ; Reboot windows? jnz exitToDos
ifndef WOW mov ax,1600h int 2Fh test al,7Fh jz NotRunningEnhancedMode cmp al,1 je exitToDos ;RunningWindows3862x cmp al,-1 je exitToDos ;RunningWindows3862x xor di,di ; Zero return regs mov es,di mov bx,0009h ; Reboot device ID mov ax,1684h ; Get device API entry point int 2Fh mov ax,es or ax,di jz exitToDos ; Reboot vxd not loaded. Exit to dos
; Call the reboot function mov ax,0100h push es push di mov bx,sp call DWORD PTR ss:[bx]
jmp short exitToDos ; Reboot didn't work just exit to dos
NotRunningEnhancedMode:endif ; WOW
mov ah, 0Dh ; Disk Reset so that Smartdrv etc buffers int 21h ; are written to disk
mov ax, 0FE03h ; Flush Norton NCache mov si, "CF" mov di, "NU" stc ; Yes! Really set carry too! int 2Fh
int 19h ; Reboot via int 19h
exitToDos: mov ax,si mov ah,4Ch ; Leave Windows. int 21hcEnd nogen
endif ; NOT WOW
sEnd CODE
end
|
