Changeset 21916 for trunk/src/kernel32/FastInfoBlocksa.asm
- Timestamp:
- Dec 18, 2011, 10:28:22 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 1 bin 2 Makefile.inc 1 env.cmd 2 LocalConfig.kmk
-
-
Property svn:mergeinfo
set to
/branches/gcc-kmk merged eligible
- Property svn:ignore
-
trunk/src/kernel32/FastInfoBlocksa.asm
r9910 r21916 26 26 ;******************************************************************************* 27 27 DATA32 segment use32 dword public 'DATA' 28 _ gpfibLIS dd 029 _ gfpfibLIS dd 030 _ gpfibGIS dd 031 _ gfpfibGIS dd 032 _ gpfibPIB dd 028 __gpfibLIS dd 0 29 __gfpfibLIS dd 0 30 __gpfibGIS dd 0 31 __gfpfibGIS dd 0 32 __gpfibPIB dd 0 33 33 DATA32 ends 34 35 extrn fibDumpAll:near36 34 37 35 … … 39 37 ;* Exported Symbols * 40 38 ;******************************************************************************* 41 public _ gpfibLIS42 public _ gfpfibLIS43 public _ gpfibGIS44 public _ gfpfibGIS45 public _ gpfibPIB46 public fibInit39 public __gpfibLIS 40 public __gfpfibLIS 41 public __gpfibGIS 42 public __gfpfibGIS 43 public __gpfibPIB 44 public _fibInit 47 45 48 46 … … 62 60 ; @remark 63 61 ; 64 fibInit proc near62 _fibInit proc near 65 63 push ebp 66 64 mov ebp, esp 67 cmp _ gpfibPIB, 065 cmp __gpfibPIB, 0 68 66 jz @doinit 69 67 jmp @exit_ok … … 114 112 push ss 115 113 push dx 114 IFDEF __EMX__ 115 extrn _16_Dos16GetInfoSeg:far 116 call _16_Dos16GetInfoSeg 117 ELSE 116 118 extrn DOS16GETINFOSEG:far 117 119 call DOS16GETINFOSEG 120 ENDIF 118 121 pop dx ; sel LIS 119 122 pop cx ; sel GIS … … 148 151 ; Store far pointers. 149 152 ; 150 mov word ptr [_ gfpfibLIS + 2], dx151 mov word ptr [_ gfpfibGIS + 2], cx153 mov word ptr [__gfpfibLIS + 2], dx 154 mov word ptr [__gfpfibGIS + 2], cx 152 155 153 156 ; … … 156 159 and edx, 0fff8h 157 160 shl edx, 13 158 mov [_ gpfibLIS], edx161 mov [__gpfibLIS], edx 159 162 160 163 and ecx, 0fff8h 161 164 shl ecx, 13 162 mov [_ gpfibGIS], ecx165 mov [__gpfibGIS], ecx 163 166 164 167 … … 178 181 pop eax ; ptib, ignore. 179 182 pop eax ; ppib 180 mov [_ gpfibPIB], eax183 mov [__gpfibPIB], eax 181 184 182 185 ; … … 188 191 leave 189 192 ret 190 fibInit endp193 _fibInit endp 191 194 192 195
Note:
See TracChangeset
for help on using the changeset viewer.