Changeset 1467 for trunk/src/win32k/dev32/devfirst.asm

Timestamp:

Oct 27, 1999, 4:03:01 AM (26 years ago)

Author:

bird

Message:

Corrections to make win32k work.
(And now it does work, at least at my test machine...)

File:

• trunk/src/win32k/dev32/devfirst.asm (modified) (9 diffs)

trunk/src/win32k/dev32/devfirst.asm

@@ -1 @@
-; $Id: devfirst.asm,v 1.1 1999-09-06 02:19:56 bird Exp $
+; $Id: devfirst.asm,v 1.2 1999-10-27 02:02:54 bird Exp $
 ;
 ; DevFirst - entrypoint and segment definitions
@@ -5 +5 @@
 ; Copyright (c) 1999 knut st. osmundsen
 ;
+; Project Odin Software License can be found in LICENSE.TXT
 ;
     .386p
@@ -12 +13 @@
 ;
     include devsegdf.inc
+    include sas.inc
 
 ;
@@ -29 +31 @@
     public _strategyAsm0
     public _strategyAsm1
+    public _CallGetOTEs32
     public _SSToDS_16a
+    public GetOS2KrnlMTE
 
 
@@ -35 +39 @@
 ; Externs
 ;
+    extrn _TKSSBase16:dword
+    extrn GETOTES32:FAR
+    .286p
     extrn _strategy:near
-    extrn CODE16END:byte
-    extrn DATA16END:byte
-    extrn _TKSSBase16:dword
 
 
@@ -46 +50 @@
 CODE16START label byte
 
+    .286p
 ;$win32ki entry point
 _strategyAsm0:
@@ -56 +61 @@
     jmp     _strategyAsm
 
+;;
+; Stub which pushes parameters onto the stack and call the 16-bit C strategy routine.
+; @returns   returns the return value of strategy(...)
+; @author    knut st. osmundsen
 _strategyAsm proc far
     push    es
@@ -66 +75 @@
     mov     word ptr es:[bx+3], ax
     add     sp, 2
-;    int 3
     retf
 _strategyAsm endp
 
 
-;extern LIN   SSToDS_16a(void NEAR *pStackVar);
+    .386p
+;;
+; Thunk procedure for R0Init32.
+; @cproto    USHORT NEAR CallGetOTEs32(ULONG addressOTEBuf);
+; @returns   Same as GetOTEs32.
+; @param     addressOTEBuf  32-bit pointer to request data.
+; @status    completely implemented.
+; @author    knut st. osmundsen
+_CallGetOTEs32 PROC NEAR
+    ASSUME CS:CODE16
+    push    ds
+    push    word ptr [esp+6]            ; push high word.
+    push    word ptr [esp+6]            ; push low word.
+    call    far ptr FLAT:GETOTES32
+    pop     ds
+    retn
+_CallGetOTEs32 ENDP
+
+
+;;
+; SSToDS - stack pointer to Flat pointer.
+; @cproto    extern LIN   SSToDS_16a(void NEAR *pStackVar);
+; @returns   ax:dx  makes up a 32-bit flat pointer to stack.
+; @param     pStackVar  Stack pointer which is to be made a flat pointer.
+; @equiv     SSToDS in 32-bit code.
+; @sketch    Get Flat CS
+;            Get TKSSBase address. (FLAT)
+;            return *TKSSBase + pStackVar.
+; @status    completely  implemented.
+; @author    knut st. osmundsen
+; @remark    es is cs, not ds!
 _SSToDS_16a proc near
     assume CS:CODE16, DS:DATA16, ES:NOTHING
+    mov     edx, ds:_TKSSBase16         ; get pointer held by _TKSSBase16 (pointer to stack base)
+    call    far ptr FLAT:far_getCS      ; get flat selector.
     push    es
-    jmp far ptr FLAT:_SSToDS_16a_GetFLAT_32
-_SSToDS_16a_GetFLAT_16::
-    mov     edx, ds:_TKSSBase16
-    movzx   eax, word ptr ss:[esp + 4]
-    add     eax, es:[edx]
+    mov     es,  ax
+    assume  es:FLAT
+    mov     eax, es:[edx]               ; get pointer to stack base
+    pop     es
+    movzx   edx, word ptr ss:[esp + 2]  ; 16-bit stack pointer (parameter)
+    add     eax, edx                    ; 32-bit stack pointer in eax
     mov     edx, eax
-    shr     edx, 16
-    pop     es
+    shr     edx, 16                     ; dx high 16-bit of 32-bit stack pointer.
     ret
 _SSToDS_16a endp
@@ -88 +128 @@
 CODE16 ends
 
+
+;
+; all segments have a <segmentname>START label at the start of the segment.
+;
+
 CODE32 segment
 CODE32START label byte
-    ASSUME CS:CODE32
-_SSToDS_16a_GetFLAT_32:
-    push    cs
-    pop     es
-    jmp far ptr CODE16:_SSToDS_16a_GetFLAT_16
+
+;;
+; Gets the current cs.
+; @cproto    none.
+; @returns   CS
+; @author    knut st. osmundsen
+; @remark    internal method. called from 16-bit code...
+far_getCS proc far
+    ASSUME DS:nothing, ES:nothing
+    mov     ax,  cs
+    retf
+far_getCS endp
+
+
+
+;;
+; Gets the a 32-bit flat pointer to the OS/2 Kernel MTE.
+; @cproto    extern PMTE _System GetOS2KrnlMTE(void);
+; @returns   Pointer to kernel MTE.
+; @status    completely implemented.
+; @author    knut st. osmundsen
+GetOS2KrnlMTE PROC NEAR
+    push    es
+
+    mov     ax,  SAS_selector               ;70h - Read-only SAS selector.
+    mov     es,  ax
+    xor     ebx, ebx
+    assume  ebx: PTR SAS
+    mov     bx,  es:[ebx].SAS_vm_data       ;SAS_vm_data (0ch)
+    assume  ebx: PTR SAS_vm_section
+    mov     eax, es:[ebx].SAS_vm_krnl_mte   ;SAS_vm_krnl_mte (0ch)
+
+    pop     es
+    ret
+GetOS2KrnlMTE ENDP
 
 CODE32 ends
 
 
-;
-; all segments have a <segmentname>START label at the start of the segment.
-;
 DATA16 segment
 DATA16START label byte