2 * Kernel initialization code
9 #include "wine/winbase16.h"
14 #include "selectors.h"
18 extern void CODEPAGE_Init(void);
19 extern BOOL
THUNK_Init(void);
20 extern void COMM_Init(void);
23 /***********************************************************************
24 * KERNEL process initialisation routine
26 static BOOL
process_attach(void)
29 STARTUPINFOA startup_info
;
30 UINT cmdShow
= 1; /* SW_SHOWNORMAL but we don't want to include winuser.h here */
32 /* Setup codepage info */
35 /* Initialize thunking */
36 if (!THUNK_Init()) return FALSE
;
38 /* Initialize DOS memory */
39 if (!DOSMEM_Init(0)) return FALSE
;
41 if ((hModule
= LoadLibrary16( "krnl386.exe" )) < 32) return FALSE
;
43 /* Initialize special KERNEL entry points */
45 /* Initialize KERNEL.178 (__WINFLAGS) with the correct flags value */
46 NE_SetEntryPoint( hModule
, 178, GetWinFlags16() );
48 /* Initialize KERNEL.454/455 (__FLATCS/__FLATDS) */
49 NE_SetEntryPoint( hModule
, 454, __get_cs() );
50 NE_SetEntryPoint( hModule
, 455, __get_ds() );
52 /* Initialize KERNEL.THHOOK */
53 TASK_InstallTHHook((THHOOK
*)PTR_SEG_TO_LIN((SEGPTR
)NE_GetEntryPoint( hModule
, 332 )));
55 /* Initialize the real-mode selector entry points */
56 #define SET_ENTRY_POINT( num, addr ) \
57 NE_SetEntryPoint( hModule, (num), GLOBAL_CreateBlock( GMEM_FIXED, \
58 DOSMEM_MapDosToLinear(addr), 0x10000, hModule, \
59 WINE_LDT_FLAGS_DATA ))
61 SET_ENTRY_POINT( 174, 0xa0000 ); /* KERNEL.174: __A000H */
62 SET_ENTRY_POINT( 181, 0xb0000 ); /* KERNEL.181: __B000H */
63 SET_ENTRY_POINT( 182, 0xb8000 ); /* KERNEL.182: __B800H */
64 SET_ENTRY_POINT( 195, 0xc0000 ); /* KERNEL.195: __C000H */
65 SET_ENTRY_POINT( 179, 0xd0000 ); /* KERNEL.179: __D000H */
66 SET_ENTRY_POINT( 190, 0xe0000 ); /* KERNEL.190: __E000H */
67 NE_SetEntryPoint( hModule
, 183, DOSMEM_0000H
); /* KERNEL.183: __0000H */
68 NE_SetEntryPoint( hModule
, 173, DOSMEM_BiosSysSeg
); /* KERNEL.173: __ROMBIOS */
69 NE_SetEntryPoint( hModule
, 193, DOSMEM_BiosDataSeg
); /* KERNEL.193: __0040H */
70 NE_SetEntryPoint( hModule
, 194, DOSMEM_BiosSysSeg
); /* KERNEL.194: __F000H */
71 #undef SET_ENTRY_POINT
73 /* Force loading of some dlls */
74 if (LoadLibrary16( "system" ) < 32) return FALSE
;
75 if (LoadLibrary16( "wprocs" ) < 32) return FALSE
;
77 /* Initialize communications */
80 /* Read DOS config.sys */
81 if (!DOSCONF_ReadConfig()) return FALSE
;
83 /* Create 16-bit task */
84 GetStartupInfoA( &startup_info
);
85 if (startup_info
.dwFlags
& STARTF_USESHOWWINDOW
) cmdShow
= startup_info
.wShowWindow
;
86 if (!TASK_Create( (NE_MODULE
*)GlobalLock16( MapHModuleLS(GetModuleHandleA(0)) ),
87 cmdShow
, NtCurrentTeb(), NULL
, 0 ))
93 /***********************************************************************
94 * KERNEL initialisation routine
96 BOOL WINAPI
MAIN_KernelInit( HINSTANCE hinst
, DWORD reason
, LPVOID reserved
)
100 case DLL_PROCESS_ATTACH
:
101 return process_attach();
102 case DLL_PROCESS_DETACH
:
103 WriteOutProfiles16();
109 /***********************************************************************
112 * Entry point for kernel functions that do nothing.
114 LONG WINAPI
KERNEL_nop(void) { return 0; }
117 /***************************************************************************
119 * Win 2.x string functions now moved to USER
121 * We rather want to implement them here instead of doing Callouts
123 SEGPTR WINAPI
KERNEL_AnsiNext16(SEGPTR current
)
125 return (*(char *)PTR_SEG_TO_LIN(current
)) ? current
+ 1 : current
;
128 SEGPTR WINAPI
KERNEL_AnsiPrev16( SEGPTR start
, SEGPTR current
)
130 return (current
==start
)?start
:current
-1;
133 SEGPTR WINAPI
KERNEL_AnsiUpper16( SEGPTR strOrChar
)
135 /* uppercase only one char if strOrChar < 0x10000 */
136 if (HIWORD(strOrChar
))
138 char *s
= PTR_SEG_TO_LIN(strOrChar
);
145 else return toupper((char)strOrChar
);
148 SEGPTR WINAPI
KERNEL_AnsiLower16( SEGPTR strOrChar
)
150 /* lowercase only one char if strOrChar < 0x10000 */
151 if (HIWORD(strOrChar
))
153 char *s
= PTR_SEG_TO_LIN(strOrChar
);
160 else return tolower((char)strOrChar
);