--- /dev/null
+#------------------------------------------------------------------------------
+#*
+#* Copyright (c) 2006, Intel Corporation
+#* All rights reserved. This program and the accompanying materials
+#* are licensed and made available under the terms and conditions of the BSD License
+#* which accompanies this distribution. The full text of the license may be found at
+#* http://opensource.org/licenses/bsd-license.php
+#*
+#* THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS,
+#* WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED.
+#*
+#* LongMode.S
+#*
+#* Abstract:
+#*
+#* Transition from 32-bit protected mode EFI environment into x64
+#* 64-bit bit long mode.
+#*
+#* This file is not fully ported or operational.
+#*
+#------------------------------------------------------------------------------
+
+.686p:
+#.MODEL flat
+
+#
+# Create the exception handler code in IA32 C code
+#
+
+.code:
+.stack:
+.MMX:
+.XMM:
+
+.global _LoadGo64Gdt;
+_LoadGo64Gdt:
+ pushl %ebp # C prolog
+ pushl %edi
+ movl %esp, %ebp
+ #
+ # Disable interrupts
+ #
+ cli
+ #
+ # Reload the selectors
+ # Note:
+ # Make the Selectors 64-bit ready
+ #
+ movl gdtr, %edi # Load GDT register
+ movw %cs, %ax # Get the selector data from our code image
+ mov %ax, %es
+# FIXME MISMATCH: " lgdt FWORD PTR es:[edi] "
+
+ .byte 0x67
+ .byte 0xea # Far Jump Offset:Selector to reload CS
+# FIXME MISMATCH: " dd OFFSET DataSelectorRld"
+# FIXME MISMATCH: " dw LINEAR_CODE_SEL "
+DataSelectorRld:
+ movw SYS_DATA_SEL, %ax # Update the Base for the new selectors, too
+ movw %ax, %ds
+ movw %ax, %es
+ movw %ax, %fs
+ movw %ax, %gs
+ movw %ax, %ss
+
+ popl %edi
+ popl %ebp
+ ret
+#_LoadGo64Gdt ENDP
+
+
+# VOID
+# ActivateLongMode (
+# IN EFI_PHYSICAL_ADDRESS PageTables,
+# IN EFI_PHYSICAL_ADDRESS HobStart,
+# IN EFI_PHYSICAL_ADDRESS Stack,
+# IN EFI_PHYSICAL_ADDRESS PpisNeededByDxeIplEntryPoint,
+# IN EFI_PHYSICAL_ADDRESS DxeCoreEntryPoint
+# )
+#
+# Input: [ebp][0h] = Original ebp
+# [ebp][4h] = Return address
+# [ebp][8h] = PageTables
+# [ebp][10h] = HobStart
+# [ebp][18h] = Stack
+# [ebp][20h] = CodeEntryPoint1 <--- Call this first (for each call, pass HOB pointer)
+# [ebp][28h] = CodeEntryPoint2 <--- Call this second
+#
+#
+.global _ActivateLongMode;
+_ActivateLongMode:
+ pushl %ebp # C prolog
+ movl %esp, %ebp
+
+ #
+ # Use CPUID to determine if the processor supports long mode.
+ #
+ movl $0x80000000, %eax # Extended-function code 8000000h.
+ cpuid # Is largest extended function
+ cmpl $0x80000000, %eax # any function > 80000000h?
+ jbe no_long_mode # If not, no long mode.
+ movl $0x80000001, %eax # Extended-function code 8000001h.
+ cpuid # Now EDX = extended-features flags.
+ btl $29, %edx # Test if long mode is supported.
+ jnc no_long_mode # Exit if not supported.
+
+ #
+ # Enable the 64-bit page-translation-table entries by
+ # setting CR4.PAE=1 (this is _required_ before activating
+ # long mode). Paging is not enabled until after long mode
+ # is enabled.
+ #
+ movl %cr4, %eax
+ btsl $5, %eax
+ movl %eax, %cr4
+
+ #
+ # Get the long-mode page tables, and initialize the
+ # 64-bit CR3 (page-table base address) to point to the base
+ # of the PML4 page table. The PML4 page table must be located
+ # below 4 Gbytes because only 32 bits of CR3 are loaded when
+ # the processor is not in 64-bit mode.
+ #
+ movl 0x8(%ebp), %eax # Get Page Tables
+ movl %eax, %cr3 # Initialize CR3 with PML4 base.
+
+ #
+ # Enable long mode (set EFER.LME=1).
+ #
+ movl $0xc0000080, %ecx # EFER MSR number.
+ rdmsr # Read EFER.
+ btsl $8, %eax # Set LME=1.
+ wrmsr # Write EFER.
+
+ #
+ # Enable paging to activate long mode (set CR0.PG=1)
+ #
+
+
+ movl %cr0, %eax # Read CR0.
+ btsl $31, %eax # Set PG=1.
+ movl %eax, %cr0 # Write CR0.
+ jmp go_to_long_mode
+go_to_long_mode:
+
+ #
+ # This is the next instruction after enabling paging. Jump to long mode
+ #
+ .byte 0x67
+ .byte 0xea # Far Jump Offset:Selector to reload CS
+#FIXME MISMATCH: " dd OFFSET in_long_mode"
+#FIXME MISMATCH: " dw SYS_CODE64_SEL "
+in_long_mode:
+ movw SYS_DATA64_SEL, %ax
+ movw %ax, %es
+ movw %ax, %ss
+ movw %ax, %ds
+ jmp .
+
+
+ #
+ # We're in long mode, so marshall the arguments to call the
+ # passed in function pointers
+ # Recall
+ # [ebp][10h] = HobStart
+ # [ebp][18h] = Stack
+ # [ebp][20h] = PpisNeededByDxeIplEntryPoint <--- Call this first (for each call, pass HOB pointer)
+ # [ebp][28h] = DxeCoreEntryPoint <--- Call this second
+ #
+ .byte 0x48
+ movl 0x18(%ebp), %ebx # Setup the stack
+ .byte 0x48
+ movl %ebx, %esp # On a new stack now
+
+
+## 00000905 FF D0 call rax
+
+ .byte 0x48
+ movl 0x10(%ebp), %ecx # Pass Hob Start in RCX
+ .byte 0x48
+ movl 0x28(%ebp), %eax # Get the function pointer for
+ # DxeCoreEntryPoint into EAX
+
+## 00000905 FF D0 call rax
+ .byte 0xff
+ .byte 0xd0
+
+ #
+ # WE SHOULD NEVER GET HERE!!!!!!!!!!!!!
+ #
+no_long_mode:
+ jmp no_long_mode
+#_ActivateLongMode ENDP
+
+ .align 16
+
+gdtr: #FIXME MISMATCH: "gdtr dw _GDT_END - _GDT_BASE - 1 "
+#FIXME MISMATCH: " dd OFFSET _GDT_BASE "
+
+#-----------------------------------------------------------------------------;
+# global descriptor table (GDT)
+#-----------------------------------------------------------------------------;
+
+ .align 16
+
+.global _GDT_BASE
+_GDT_BASE:
+# null descriptor
+.equ NULL_SEL, .-_GDT_BASE # Selector [0]
+ .word 0 # limit 15:0
+ .word 0 # base 15:0
+ .byte 0 # base 23:16
+ .byte 0 # type
+ .byte 0 # limit 19:16, flags
+ .byte 0 # base 31:24
+
+# linear data segment descriptor
+.equ LINEAR_SEL, .-_GDT_BASE # Selector [0x8]
+ .word 0xFFFF # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0x92 # present, ring 0, data, expand-up, writable
+ .byte 0xCF # page-granular, 32-bit
+ .byte 0
+
+# linear code segment descriptor
+.equ LINEAR_CODE_SEL, .-_GDT_BASE # Selector [0x10]
+ .word 0xFFFF # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0x9F # present, ring 0, data, expand-up, writable
+ .byte 0xCF # page-granular, 32-bit
+ .byte 0
+
+# system data segment descriptor
+.equ SYS_DATA_SEL, .-_GDT_BASE # Selector [0x18]
+ .word 0xFFFF # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0x93 # present, ring 0, data, expand-up, writable
+ .byte 0xCF # page-granular, 32-bit
+ .byte 0
+
+# system code segment descriptor
+.equ SYS_CODE_SEL, .-_GDT_BASE # Selector [0x20]
+ .word 0xFFFF # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0x9A # present, ring 0, data, expand-up, writable
+ .byte 0xCF # page-granular, 32-bit
+ .byte 0
+
+# spare segment descriptor
+.equ SPARE3_SEL, .-_GDT_BASE # Selector [0x28]
+ .word 0 # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0 # present, ring 0, data, expand-up, writable
+ .byte 0 # page-granular, 32-bit
+ .byte 0
+
+#
+# system data segment descriptor
+#
+.equ SYS_DATA64_SEL, .-_GDT_BASE # Selector [0x30]
+ .word 0xFFFF # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0x92 # P | DPL [1..2] | 1 | 1 | C | R | A
+ .byte 0xCF # G | D | L | AVL | Segment [19..16]
+ .byte 0
+
+#
+# system code segment descriptor
+#
+.equ SYS_CODE64_SEL, .-_GDT_BASE # Selector [0x38]
+ .word 0xFFFF # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0x9A # P | DPL [1..2] | 1 | 1 | C | R | A
+ .byte 0xAF # G | D | L | AVL | Segment [19..16]
+ .byte 0
+
+# spare segment descriptor
+.equ SPARE4_SEL, .-_GDT_BASE # Selector [0x40]
+ .word 0 # limit 0xFFFFF
+ .word 0 # base 0
+ .byte 0
+ .byte 0 # present, ring 0, data, expand-up, writable
+ .byte 0 # page-granular, 32-bit
+ .byte 0
+
+_GDT_END:
+
+
+
projects / mirror_edk2.git / commitdiff