rework project structure, base on uefi4kos
This commit is contained in:
rgimad
150
bootx64.asm
150
bootx64.asm
@@ -1,150 +0,0 @@
|
|||||||
format pe64 dll efi
|
|
||||||
entry main
|
|
||||||
|
|
||||||
section '.text' code executable readable
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;for 32/64 portability and automatic natural align in structure definitions
|
|
||||||
|
|
||||||
struc int8 {
|
|
||||||
. db ?
|
|
||||||
}
|
|
||||||
struc int16 {
|
|
||||||
align 2
|
|
||||||
. dw ?
|
|
||||||
}
|
|
||||||
struc int32 {
|
|
||||||
align 4
|
|
||||||
. dd ?
|
|
||||||
}
|
|
||||||
struc int64 {
|
|
||||||
align 8
|
|
||||||
. dq ?
|
|
||||||
}
|
|
||||||
struc intn {
|
|
||||||
align 8
|
|
||||||
. dq ?
|
|
||||||
}
|
|
||||||
struc dptr {
|
|
||||||
align 8
|
|
||||||
. dq ?
|
|
||||||
}
|
|
||||||
|
|
||||||
;symbols
|
|
||||||
|
|
||||||
EFIERR = 0x8000000000000000
|
|
||||||
EFI_SUCCESS = 0
|
|
||||||
EFI_LOAD_ERROR = EFIERR or 1
|
|
||||||
EFI_INVALID_PARAMETER = EFIERR or 2
|
|
||||||
EFI_UNSUPPORTED = EFIERR or 3
|
|
||||||
EFI_BAD_BUFFER_SIZE = EFIERR or 4
|
|
||||||
EFI_BUFFER_TOO_SMALL = EFIERR or 5
|
|
||||||
EFI_NOT_READY = EFIERR or 6
|
|
||||||
EFI_DEVICE_ERROR = EFIERR or 7
|
|
||||||
EFI_WRITE_PROTECTED = EFIERR or 8
|
|
||||||
EFI_OUT_OF_RESOURCES = EFIERR or 9
|
|
||||||
EFI_VOLUME_CORRUPTED = EFIERR or 10
|
|
||||||
EFI_VOLUME_FULL = EFIERR or 11
|
|
||||||
EFI_NO_MEDIA = EFIERR or 12
|
|
||||||
EFI_MEDIA_CHANGED = EFIERR or 13
|
|
||||||
EFI_NOT_FOUND = EFIERR or 14
|
|
||||||
EFI_ACCESS_DENIED = EFIERR or 15
|
|
||||||
EFI_NO_RESPONSE = EFIERR or 16
|
|
||||||
EFI_NO_MAPPING = EFIERR or 17
|
|
||||||
EFI_TIMEOUT = EFIERR or 18
|
|
||||||
EFI_NOT_STARTED = EFIERR or 19
|
|
||||||
EFI_ALREADY_STARTED = EFIERR or 20
|
|
||||||
EFI_ABORTED = EFIERR or 21
|
|
||||||
EFI_ICMP_ERROR = EFIERR or 22
|
|
||||||
EFI_TFTP_ERROR = EFIERR or 23
|
|
||||||
EFI_PROTOCOL_ERROR = EFIERR or 24
|
|
||||||
|
|
||||||
;helper macro for definition of relative structure member offsets
|
|
||||||
|
|
||||||
macro struct name
|
|
||||||
{
|
|
||||||
virtual at 0
|
|
||||||
name name
|
|
||||||
end virtual
|
|
||||||
}
|
|
||||||
|
|
||||||
;structures
|
|
||||||
|
|
||||||
struc EFI_TABLE_HEADER {
|
|
||||||
.Signature int64
|
|
||||||
.Revision int32
|
|
||||||
.HeaderSize int32
|
|
||||||
.CRC32 int32
|
|
||||||
.Reserved int32
|
|
||||||
}
|
|
||||||
struct EFI_TABLE_HEADER
|
|
||||||
|
|
||||||
struc EFI_SYSTEM_TABLE {
|
|
||||||
.Hdr EFI_TABLE_HEADER
|
|
||||||
.FirmwareVendor dptr
|
|
||||||
.FirmwareRevision int32
|
|
||||||
.ConsoleInHandle dptr
|
|
||||||
.ConIn dptr
|
|
||||||
.ConsoleOutHandle dptr
|
|
||||||
.ConOut dptr
|
|
||||||
.StandardErrorHandle dptr
|
|
||||||
.StdErr dptr
|
|
||||||
.RuntimeServices dptr
|
|
||||||
.BootServices dptr
|
|
||||||
.NumberOfTableEntries intn
|
|
||||||
.ConfigurationTable dptr
|
|
||||||
}
|
|
||||||
struct EFI_SYSTEM_TABLE
|
|
||||||
|
|
||||||
struc SIMPLE_TEXT_OUTPUT_INTERFACE {
|
|
||||||
.Reset dptr
|
|
||||||
.OutputString dptr
|
|
||||||
.TestString dptr
|
|
||||||
.QueryMode dptr
|
|
||||||
.SetMode dptr
|
|
||||||
.SetAttribute dptr
|
|
||||||
.ClearScreen dptr
|
|
||||||
.SetCursorPosition dptr
|
|
||||||
.EnableCursor dptr
|
|
||||||
.Mode dptr
|
|
||||||
}
|
|
||||||
struct SIMPLE_TEXT_OUTPUT_INTERFACE
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
main:
|
|
||||||
sub rsp, 4*8 ; reserve space for 4 arguments
|
|
||||||
|
|
||||||
mov [Handle], rcx ; ImageHandle
|
|
||||||
mov [SystemTable], rdx ; pointer to SystemTable
|
|
||||||
|
|
||||||
lea rdx, [_hello]
|
|
||||||
mov rcx, [SystemTable]
|
|
||||||
mov rcx, [rcx + EFI_SYSTEM_TABLE.ConOut]
|
|
||||||
push rcx rdx
|
|
||||||
call [rcx + SIMPLE_TEXT_OUTPUT_INTERFACE.ClearScreen] ;; TODO : what calling convention? clobbers rcx, what else?
|
|
||||||
; TODO: use more modern UEFI.inc like stuff
|
|
||||||
; TODO: update scripts build run. maybe makefile, also generating iso?
|
|
||||||
; TODO: what is NvVars who generates it why it need
|
|
||||||
; TODO: print some info provided by eufi like versions etc..
|
|
||||||
; TODO: print memory map
|
|
||||||
; TODO: how to load kernel . See https://github.com/BrianOtto/nasm-uefi
|
|
||||||
pop rdx rcx
|
|
||||||
call [rcx + SIMPLE_TEXT_OUTPUT_INTERFACE.OutputString]
|
|
||||||
|
|
||||||
jmp $
|
|
||||||
|
|
||||||
add rsp, 4*8
|
|
||||||
mov eax, EFI_SUCCESS
|
|
||||||
retn
|
|
||||||
|
|
||||||
|
|
||||||
section '.data' data readable writeable
|
|
||||||
|
|
||||||
Handle dq ?
|
|
||||||
SystemTable dq ?
|
|
||||||
_hello du 'Hello World',13,10,0
|
|
||||||
|
|
||||||
section '.reloc' fixups data discardable
|
|
||||||
|
|
||||||
11
build.sh
11
build.sh
@@ -1,4 +1,7 @@
|
|||||||
fasm bootx64.asm
|
if fasm kernel/boot/bootx64.asm; then
|
||||||
mkdir -p image/EFI/BOOT
|
mkdir -p image/EFI/BOOT
|
||||||
cp bootx64.efi image/EFI/BOOT
|
cp kernel/boot/bootx64.efi image/EFI/BOOT
|
||||||
qemu-system-x86_64 -cpu qemu64 -bios OVMF.fd -drive driver=vvfat,rw=on,dir=image/
|
qemu-system-x86_64 -cpu qemu64 -bios OVMF.fd -drive driver=vvfat,rw=on,dir=image/
|
||||||
|
else
|
||||||
|
echo "build failed"
|
||||||
|
fi
|
||||||
|
|||||||
47
kernel/boot/bootx64.asm
Normal file
47
kernel/boot/bootx64.asm
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2025-2025. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License. ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
format pe64 efi
|
||||||
|
entry main
|
||||||
|
|
||||||
|
section '.text' code executable readable
|
||||||
|
|
||||||
|
include '../struct.inc'
|
||||||
|
; include '../macros.inc'
|
||||||
|
; include '../kglobals.inc'
|
||||||
|
fastcall fix fstcall
|
||||||
|
include '../proc64.inc'
|
||||||
|
include '../const.inc'
|
||||||
|
|
||||||
|
purge DQ ; because of some struct DQ in const.inc
|
||||||
|
include 'uefi64.inc'
|
||||||
|
|
||||||
|
proc main _efi_handle, _efi_table
|
||||||
|
mov [efi_handle], rcx
|
||||||
|
mov [efi_table], rdx
|
||||||
|
mov rbx, rdx
|
||||||
|
|
||||||
|
mov rcx, [rbx+EFI_SYSTEM_TABLE.ConOut]
|
||||||
|
fstcall [rcx+EFI_SIMPLE_TEXT_OUTPUT_PROTOCOL.Reset], rcx, 1
|
||||||
|
test eax, eax
|
||||||
|
jnz $ ; what can I do here?
|
||||||
|
mov rcx, [rbx+EFI_SYSTEM_TABLE.ConOut]
|
||||||
|
fstcall [rcx+EFI_SIMPLE_TEXT_OUTPUT_PROTOCOL.OutputString], rcx, msg_hello_k64_loader
|
||||||
|
|
||||||
|
jmp $
|
||||||
|
endp
|
||||||
|
|
||||||
|
|
||||||
|
section '.data' data readable writeable
|
||||||
|
efi_handle dq 0
|
||||||
|
efi_table dq 0
|
||||||
|
|
||||||
|
|
||||||
|
section '.rodata' data readable
|
||||||
|
msg_hello_k64_loader du "Hello from Kolibri64 efi loader",13,10,0
|
||||||
|
|
||||||
|
|
||||||
|
section '.reloc' fixups data discardable
|
||||||
323
kernel/boot/uefi.inc
Normal file
323
kernel/boot/uefi.inc
Normal file
@@ -0,0 +1,323 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2020-2021. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; Version 2, or (at your option) any later version. ;;
|
||||||
|
;; ;;
|
||||||
|
;; Written by Ivan Baravy ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Based on UEFI library for fasm by bzt, Public Domain. ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
EFI_LOCATE_SEARCH_TYPE:
|
||||||
|
.AllHandles = 0
|
||||||
|
.ByRegisterNotify = 1
|
||||||
|
.ByProtocol = 2
|
||||||
|
|
||||||
|
; EFI_MEMORY_TYPE
|
||||||
|
EFI_RESERVED_MEMORY_TYPE = 0
|
||||||
|
EFI_LOADER_CODE = 1
|
||||||
|
EFI_LOADER_DATA = 2
|
||||||
|
EFI_BOOT_SERVICES_CODE = 3
|
||||||
|
EFI_BOOT_SERVICES_DATA = 4
|
||||||
|
EFI_RUNTIME_SERVICES_CODE = 5
|
||||||
|
EFI_RUNTIME_SERVICES_DATA = 6
|
||||||
|
EFI_CONVENTIONAL_MEMORY = 7
|
||||||
|
EFI_UNUSABLE_MEMORY = 8
|
||||||
|
EFI_ACPI_RECLAIM_MEMORY = 9
|
||||||
|
EFI_ACPI_MEMORY_NVS = 10
|
||||||
|
EFI_MEMORY_MAPPED_IO = 11
|
||||||
|
EFI_MEMORY_MAPPED_IO_PORT_SPACE = 12
|
||||||
|
EFI_PAL_CODE = 13
|
||||||
|
EFI_PERSISTENT_MEMORY = 14
|
||||||
|
EFI_MAX_MEMORY_TYPE = 15
|
||||||
|
|
||||||
|
; EFI_ALLOCATE_TYPE
|
||||||
|
EFI_ALLOCATE_ANY_PAGES = 0
|
||||||
|
EFI_ALLOCATE_MAX_ADDRESS = 1
|
||||||
|
EFI_ALLOCATE_ADDRESS = 2
|
||||||
|
|
||||||
|
EFI_MEMORY_UC = 0x00000001
|
||||||
|
EFI_MEMORY_WC = 0x00000002
|
||||||
|
EFI_MEMORY_WT = 0x00000004
|
||||||
|
EFI_MEMORY_WB = 0x00000008
|
||||||
|
EFI_MEMORY_UCE = 0x00000010
|
||||||
|
EFI_MEMORY_WP = 0x00001000
|
||||||
|
EFI_MEMORY_RP = 0x00002000
|
||||||
|
EFI_MEMORY_XP = 0x00004000
|
||||||
|
EFI_MEMORY_NV = 0x00008000
|
||||||
|
EFI_MEMORY_MORE_RELIABLE = 0x00010000
|
||||||
|
EFI_MEMORY_RO = 0x00020000
|
||||||
|
|
||||||
|
EFI_SUCCESS = 0
|
||||||
|
EFI_LOAD_ERROR = EFIERR or 1
|
||||||
|
EFI_INVALID_PARAMETER = EFIERR or 2
|
||||||
|
EFI_UNSUPPORTED = EFIERR or 3
|
||||||
|
EFI_BAD_BUFFER_SIZE = EFIERR or 4
|
||||||
|
EFI_BUFFER_TOO_SMALL = EFIERR or 5
|
||||||
|
EFI_NOT_READY = EFIERR or 6
|
||||||
|
EFI_DEVICE_ERROR = EFIERR or 7
|
||||||
|
EFI_WRITE_PROTECTED = EFIERR or 8
|
||||||
|
EFI_OUT_OF_RESOURCES = EFIERR or 9
|
||||||
|
EFI_VOLUME_CORRUPTED = EFIERR or 10
|
||||||
|
EFI_VOLUME_FULL = EFIERR or 11
|
||||||
|
EFI_NO_MEDIA = EFIERR or 12
|
||||||
|
EFI_MEDIA_CHANGED = EFIERR or 13
|
||||||
|
EFI_NOT_FOUND = EFIERR or 14
|
||||||
|
EFI_ACCESS_DENIED = EFIERR or 15
|
||||||
|
EFI_NO_RESPONSE = EFIERR or 16
|
||||||
|
EFI_NO_MAPPING = EFIERR or 17
|
||||||
|
EFI_TIMEOUT = EFIERR or 18
|
||||||
|
EFI_NOT_STARTED = EFIERR or 19
|
||||||
|
EFI_ALREADY_STARTED = EFIERR or 20
|
||||||
|
EFI_ABORTED = EFIERR or 21
|
||||||
|
EFI_ICMP_ERROR = EFIERR or 22
|
||||||
|
EFI_TFTP_ERROR = EFIERR or 23
|
||||||
|
EFI_PROTOCOL_ERROR = EFIERR or 24
|
||||||
|
|
||||||
|
|
||||||
|
EFI_FILE_SYSTEM_INFO_ID equ 0x93,0x6e,0x57,0x09,0x3f,0x6d,0xd2,0x11, \
|
||||||
|
0x39,0x8e,0x00,0xa0,0xc9,0x69,0x72,0x3b
|
||||||
|
|
||||||
|
EFI_SYSTEM_TABLE_SIGNATURE equ 0x49,0x42,0x49,0x20,0x53,0x59,0x53,0x54
|
||||||
|
|
||||||
|
EFI_SIMPLE_FILE_SYSTEM_PROTOCOL_GUID equ 0x22,0x5b,0x4e,0x96, \
|
||||||
|
0x59,0x64,0xd2,0x11, \
|
||||||
|
0x8e,0x39,0x00,0xa0, \
|
||||||
|
0xc9,0x69,0x72,0x3b
|
||||||
|
|
||||||
|
EFI_LOADED_IMAGE_PROTOCOL_GUID equ 0xA1,0x31,0x1b,0x5b,0x62,0x95,0xd2,0x11, \
|
||||||
|
0x8E,0x3F,0x00,0xA0,0xC9,0x69,0x72,0x3B
|
||||||
|
|
||||||
|
EFI_BLOCK_IO_PROTOCOL_GUID equ 0x21,0x5b,0x4e,0x96,0x59,0x64,0xd2,0x11, \
|
||||||
|
0x8e,0x39,0x00,0xa0,0xc9,0x69,0x72,0x3b
|
||||||
|
|
||||||
|
EFI_GRAPHICS_OUTPUT_PROTOCOL_GUID equ 0xde,0xa9,0x42,0x90,0xdc,0x23,0x38,0x4a, \
|
||||||
|
0x96,0xfb,0x7a,0xde,0xd0,0x80,0x51,0x6a
|
||||||
|
|
||||||
|
EFI_PCI_ROOT_BRIDGE_IO_PROTOCOL_GUID equ 0xBB, 0x7E, 0x70, 0x2F, \
|
||||||
|
0x1A, 0x4A, 0xd4, 0x11, \
|
||||||
|
0x9A, 0x38, 0x00, 0x90, \
|
||||||
|
0x27, 0x3F, 0xC1, 0x4D
|
||||||
|
|
||||||
|
EFI_FILE_MODE_READ = 1
|
||||||
|
EFI_FILE_MODE_WRITE = 2
|
||||||
|
EFI_FILE_MODE_CREATE = 0x8000000000000000
|
||||||
|
|
||||||
|
struct EFI_MEMORY_DESCRIPTOR
|
||||||
|
Type dd ?
|
||||||
|
dd ? ; align
|
||||||
|
PhysicalStart DQ ?
|
||||||
|
VirtualStart DQ ?
|
||||||
|
NumberOfPages DQ ?
|
||||||
|
Attribute DQ ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_FILE_SYSTEM_INFO
|
||||||
|
Size DQ ?
|
||||||
|
ReadOnly db ?
|
||||||
|
rb 7
|
||||||
|
VolumeSize DQ ?
|
||||||
|
FreeSpace DQ ?
|
||||||
|
BlockSize dd ?
|
||||||
|
VolumeLabel rw 32
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_TABLE_HEADER
|
||||||
|
Signature DQ ?
|
||||||
|
Revision dd ?
|
||||||
|
HeaderSize dd ?
|
||||||
|
CRC32 dd ?
|
||||||
|
Reserved dd ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_SIMPLE_TEXT_OUTPUT_PROTOCOL
|
||||||
|
Reset DN ?
|
||||||
|
OutputString DN ?
|
||||||
|
TestString DN ?
|
||||||
|
QueryMode DN ?
|
||||||
|
SetMode DN ?
|
||||||
|
SetAttribute DN ?
|
||||||
|
ClearScreen DN ?
|
||||||
|
SetCursorPosition DN ?
|
||||||
|
EnableCursor DN ?
|
||||||
|
Mode DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
|
||||||
|
struct SIMPLE_INPUT_INTERFACE
|
||||||
|
Reset DN ?
|
||||||
|
ReadKeyStroke DN ?
|
||||||
|
WaitForKey DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_BOOT_SERVICES
|
||||||
|
Hdr EFI_TABLE_HEADER
|
||||||
|
RaisePriority DN ?
|
||||||
|
RestorePriority DN ?
|
||||||
|
AllocatePages DN ?
|
||||||
|
FreePages DN ?
|
||||||
|
GetMemoryMap DN ?
|
||||||
|
AllocatePool DN ?
|
||||||
|
FreePool DN ?
|
||||||
|
CreateEvent DN ?
|
||||||
|
SetTimer DN ?
|
||||||
|
WaitForEvent DN ?
|
||||||
|
SignalEvent DN ?
|
||||||
|
CloseEvent DN ?
|
||||||
|
CheckEvent DN ?
|
||||||
|
InstallProtocolInterface DN ?
|
||||||
|
ReInstallProtocolInterface DN ?
|
||||||
|
UnInstallProtocolInterface DN ?
|
||||||
|
HandleProtocol DN ?
|
||||||
|
Reserved DN ?
|
||||||
|
RegisterProtocolNotify DN ?
|
||||||
|
LocateHandle DN ?
|
||||||
|
LocateDevicePath DN ?
|
||||||
|
InstallConfigurationTable DN ?
|
||||||
|
ImageLoad DN ?
|
||||||
|
ImageStart DN ?
|
||||||
|
Exit DN ?
|
||||||
|
ImageUnLoad DN ?
|
||||||
|
ExitBootServices DN ?
|
||||||
|
GetNextMonotonicCount DN ?
|
||||||
|
Stall DN ?
|
||||||
|
SetWatchdogTimer DN ?
|
||||||
|
ConnectController DN ?
|
||||||
|
DisConnectController DN ?
|
||||||
|
OpenProtocol DN ?
|
||||||
|
CloseProtocol DN ?
|
||||||
|
OpenProtocolInformation DN ?
|
||||||
|
ProtocolsPerHandle DN ?
|
||||||
|
LocateHandleBuffer DN ?
|
||||||
|
LocateProtocol DN ?
|
||||||
|
InstallMultipleProtocolInterfaces DN ?
|
||||||
|
UnInstallMultipleProtocolInterfaces DN ?
|
||||||
|
CalculateCrc32 DN ?
|
||||||
|
CopyMem DN ?
|
||||||
|
SetMem DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_RUNTIME_SERVICES
|
||||||
|
Hdr EFI_TABLE_HEADER
|
||||||
|
GetTime DN ?
|
||||||
|
SetTime DN ?
|
||||||
|
GetWakeUpTime DN ?
|
||||||
|
SetWakeUpTime DN ?
|
||||||
|
SetVirtualAddressMap DN ?
|
||||||
|
ConvertPointer DN ?
|
||||||
|
GetVariable DN ?
|
||||||
|
GetNextVariableName DN ?
|
||||||
|
SetVariable DN ?
|
||||||
|
GetNextHighMonoCount DN ?
|
||||||
|
ResetSystem DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_SIMPLE_FILE_SYSTEM_PROTOCOL
|
||||||
|
Revision DQ ?
|
||||||
|
OpenVolume DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_FILE_PROTOCOL
|
||||||
|
Revision DQ ?
|
||||||
|
Open DN ?
|
||||||
|
Close DN ?
|
||||||
|
Delete DN ?
|
||||||
|
Read DN ?
|
||||||
|
Write DN ?
|
||||||
|
GetPosition DN ?
|
||||||
|
SetPosition DN ?
|
||||||
|
GetInfo DN ?
|
||||||
|
SetInfo DN ?
|
||||||
|
Flush DN ?
|
||||||
|
OpenEx DN ?
|
||||||
|
ReadEx DN ?
|
||||||
|
WriteEx DN ?
|
||||||
|
FlushEx DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_GRAPHICS_OUTPUT_PROTOCOL
|
||||||
|
QueryMode DN ?
|
||||||
|
SetMode DN ?
|
||||||
|
Blt DN ?
|
||||||
|
Mode DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_GRAPHICS_OUTPUT_PROTOCOL_MODE
|
||||||
|
MaxMode dd ?
|
||||||
|
Mode dd ?
|
||||||
|
Info DN ?
|
||||||
|
SizeOfInfo DN ?
|
||||||
|
FrameBufferBase DQ ?
|
||||||
|
FrameBufferSize DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
EFI_GRAPHICS_PIXEL_FORMAT:
|
||||||
|
.PixelRedGreenBlueReserved8BitPerColor = 0
|
||||||
|
.PixelBlueGreenRedReserved8BitPerColor = 1
|
||||||
|
.PixelBitMask = 2
|
||||||
|
.PixelBltOnly = 3
|
||||||
|
.PixelFormatMax = 4
|
||||||
|
|
||||||
|
struct EFI_PIXEL_BITMASK
|
||||||
|
RedMask dd ?
|
||||||
|
GreenMask dd ?
|
||||||
|
BlueMask dd ?
|
||||||
|
ReservedMask dd ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_GRAPHICS_OUTPUT_MODE_INFORMATION
|
||||||
|
Version dd ?
|
||||||
|
HorizontalResolution dd ?
|
||||||
|
VerticalResolution dd ?
|
||||||
|
PixelFormat dd ?
|
||||||
|
PixelInformation EFI_PIXEL_BITMASK
|
||||||
|
PixelsPerScanLine dd ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct PCI_ROOT_BRIDGE_IO_PROTOCOL_ACCESS
|
||||||
|
Read DN ?
|
||||||
|
Write DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_PCI_ROOT_BRIDGE_IO_PROTOCOL
|
||||||
|
ParentHandle DN ? ; EFI_HANDLE
|
||||||
|
PollMem DN ?
|
||||||
|
PollIo DN ?
|
||||||
|
Mem PCI_ROOT_BRIDGE_IO_PROTOCOL_ACCESS
|
||||||
|
Io PCI_ROOT_BRIDGE_IO_PROTOCOL_ACCESS
|
||||||
|
Pci PCI_ROOT_BRIDGE_IO_PROTOCOL_ACCESS
|
||||||
|
CopyMem DN ?
|
||||||
|
Map DN ?
|
||||||
|
Unmap DN ?
|
||||||
|
AllocateBuffer DN ?
|
||||||
|
FreeBuffer DN ?
|
||||||
|
Flush DN ?
|
||||||
|
GetAttributes DN ?
|
||||||
|
SetAttributes DN ?
|
||||||
|
Configuration DN ?
|
||||||
|
SegmentNumber dd ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_QWORD_ADDRESS_SPACE_DESCRIPTOR ; described in acpi spec
|
||||||
|
Type db ?
|
||||||
|
Length dw ?
|
||||||
|
ResourceType db ?
|
||||||
|
GeneralFlags db ?
|
||||||
|
SpecificFlags db ?
|
||||||
|
Granularity dq ?
|
||||||
|
RangeMinimum dq ?
|
||||||
|
RangeMaximum dq ?
|
||||||
|
TranslationOffset dq ?
|
||||||
|
AddressLength dq ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
EFI_RESOURCE_DESCRIPTOR_TYPE.QWORD_ADDRESS_SPACE = 0x8a
|
||||||
|
EFI_RESOURCE_DESCRIPTOR_TYPE.END_TAG = 0x79
|
||||||
|
|
||||||
|
EFI_RESOURCE_TYPE.MEMORY = 0
|
||||||
|
EFI_RESOURCE_TYPE.IO = 1
|
||||||
|
EFI_RESOURCE_TYPE.BUS = 2
|
||||||
58
kernel/boot/uefi64.inc
Normal file
58
kernel/boot/uefi64.inc
Normal file
@@ -0,0 +1,58 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2020-2021. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; Version 2, or (at your option) any later version. ;;
|
||||||
|
;; ;;
|
||||||
|
;; Written by Ivan Baravy ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Based on UEFI library for fasm by bzt, Public Domain. ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
DN fix dq ; native
|
||||||
|
|
||||||
|
include "uefi.inc"
|
||||||
|
|
||||||
|
EFIERR = 0x8000000000000000
|
||||||
|
|
||||||
|
struct EFI_SYSTEM_TABLE
|
||||||
|
Hdr EFI_TABLE_HEADER
|
||||||
|
FirmwareVendor DN ?
|
||||||
|
FirmwareRevision dd ?
|
||||||
|
dd ?
|
||||||
|
ConsoleInHandle DN ?
|
||||||
|
ConIn DN ?
|
||||||
|
ConsoleOutHandle DN ?
|
||||||
|
ConOut DN ?
|
||||||
|
StandardErrorHandle DN ?
|
||||||
|
StdErr DN ?
|
||||||
|
RuntimeServices DN ?
|
||||||
|
BootServices DN ?
|
||||||
|
NumberOfTableEntries DN ?
|
||||||
|
ConfigurationTable DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_CONFIGURATION_TABLE
|
||||||
|
VendorGUID rd 4
|
||||||
|
VendorTable DN ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct EFI_LOADED_IMAGE_PROTOCOL
|
||||||
|
Revision dd ?
|
||||||
|
dd ?
|
||||||
|
ParentHandle DN ?
|
||||||
|
SystemTable DN ?
|
||||||
|
DeviceHandle DN ?
|
||||||
|
FilePath DN ?
|
||||||
|
Reserved DN ?
|
||||||
|
LoadOptionsSize dd ?
|
||||||
|
dd ?
|
||||||
|
ImageBase DN ?
|
||||||
|
ImageSize dq ?
|
||||||
|
ImageCodeType dd ?
|
||||||
|
ImageDataType dd ?
|
||||||
|
UnLoad DN ?
|
||||||
|
ends
|
||||||
10
kernel/const.inc
Normal file
10
kernel/const.inc
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
struct DQ
|
||||||
|
union
|
||||||
|
lo dd ?
|
||||||
|
hi_be dd ? ; big endian
|
||||||
|
ends
|
||||||
|
union
|
||||||
|
hi dd ?
|
||||||
|
lo_be dd ?
|
||||||
|
ends
|
||||||
|
ends
|
||||||
618
kernel/proc64.inc
Normal file
618
kernel/proc64.inc
Normal file
@@ -0,0 +1,618 @@
|
|||||||
|
|
||||||
|
; Macroinstructions for defining and calling procedures (x64 version)
|
||||||
|
|
||||||
|
macro invoke proc,[arg]
|
||||||
|
{ common fastcall [proc],arg }
|
||||||
|
|
||||||
|
macro fastcall proc,[arg]
|
||||||
|
{ common local stackspace,argscount,counter
|
||||||
|
if argscount < 4
|
||||||
|
stackspace = 4*8
|
||||||
|
else if argscount and 1
|
||||||
|
stackspace = (argscount+1)*8
|
||||||
|
else
|
||||||
|
stackspace = argscount*8
|
||||||
|
end if
|
||||||
|
counter = 0
|
||||||
|
if stackspace
|
||||||
|
if defined current@frame
|
||||||
|
if current@frame<stackspace
|
||||||
|
current@frame = stackspace
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
if stackspace
|
||||||
|
sub rsp, stackspace
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
forward
|
||||||
|
counter = counter + 1
|
||||||
|
define type@param
|
||||||
|
define definition@param arg
|
||||||
|
match =float value,definition@param
|
||||||
|
\{ define definition@param value
|
||||||
|
define type@param float \}
|
||||||
|
match =addr value,definition@param
|
||||||
|
\{ define definition@param value
|
||||||
|
define type@param addr \}
|
||||||
|
match any=,any,definition@param
|
||||||
|
\{ \local ..string,..continue
|
||||||
|
jmp ..continue
|
||||||
|
align sizeof.TCHAR
|
||||||
|
..string TCHAR definition@param,0
|
||||||
|
..continue:
|
||||||
|
define definition@param ..string
|
||||||
|
define type@param addr \}
|
||||||
|
match any,definition@param
|
||||||
|
\{ match \`any,any
|
||||||
|
\\{ \\local ..string,..continue
|
||||||
|
jmp ..continue
|
||||||
|
align sizeof.TCHAR
|
||||||
|
..string TCHAR definition@param,0
|
||||||
|
..continue:
|
||||||
|
define definition@param ..string
|
||||||
|
define type@param addr \\} \}
|
||||||
|
match param,definition@param
|
||||||
|
\{ local opcode,origin
|
||||||
|
size@param = 0
|
||||||
|
if param eqtype 0 | param eqtype 0f | type@param eq addr
|
||||||
|
size@param = 8
|
||||||
|
else if param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
match prefix value,definition@param
|
||||||
|
\\{ if prefix eq qword
|
||||||
|
size@param = 8
|
||||||
|
else if prefix eq dword
|
||||||
|
size@param = 4
|
||||||
|
else if prefix eq word
|
||||||
|
size@param = 2
|
||||||
|
else if prefix eq byte
|
||||||
|
size@param = 1
|
||||||
|
end if \\}
|
||||||
|
else if ~ param in <xmm0,xmm1,xmm2,xmm3,xmm4,xmm5,xmm6,xmm7,xmm8,xmm9,xmm10,xmm11,xmm12,xmm13,xmm14,xmm15>
|
||||||
|
virtual
|
||||||
|
origin = $
|
||||||
|
inc param
|
||||||
|
load opcode byte from origin
|
||||||
|
if opcode = 67h | opcode = 41h
|
||||||
|
load opcode byte from origin+1
|
||||||
|
end if
|
||||||
|
if opcode and 0F8h = 48h
|
||||||
|
size@param = 8
|
||||||
|
else if opcode = 66h
|
||||||
|
size@param = 2
|
||||||
|
else if opcode = 0FFh
|
||||||
|
size@param = 4
|
||||||
|
else
|
||||||
|
size@param = 1
|
||||||
|
end if
|
||||||
|
end virtual
|
||||||
|
end if
|
||||||
|
if counter = 1
|
||||||
|
if type@param eq float
|
||||||
|
if ~ param eq xmm0
|
||||||
|
if size@param = 4
|
||||||
|
if param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov eax, param
|
||||||
|
movd xmm0, eax
|
||||||
|
else
|
||||||
|
movd xmm0, param
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
if param eqtype 0 | param eqtype 0f | param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov rax, param
|
||||||
|
movq xmm0, rax
|
||||||
|
else
|
||||||
|
movq xmm0, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
if vararg@fastcall & ~ param eq rcx
|
||||||
|
movq rcx, xmm0
|
||||||
|
end if
|
||||||
|
else if type@param eq addr
|
||||||
|
if ~ param eq rcx
|
||||||
|
lea rcx, [param]
|
||||||
|
end if
|
||||||
|
else if size@param = 8
|
||||||
|
if ~ param eq rcx
|
||||||
|
mov rcx, param
|
||||||
|
end if
|
||||||
|
else if size@param = 4
|
||||||
|
if ~ param eq ecx
|
||||||
|
mov ecx, param
|
||||||
|
end if
|
||||||
|
else if size@param = 2
|
||||||
|
if ~ param eq cx
|
||||||
|
mov cx, param
|
||||||
|
end if
|
||||||
|
else if size@param = 1
|
||||||
|
if ~ param eq cl
|
||||||
|
mov cl, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
else if counter = 2
|
||||||
|
if type@param eq float
|
||||||
|
if ~ param eq xmm1
|
||||||
|
if size@param = 4
|
||||||
|
if param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov eax, param
|
||||||
|
movd xmm1, eax
|
||||||
|
else
|
||||||
|
movd xmm1, param
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
if param eqtype 0 | param eqtype 0f | param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov rax, param
|
||||||
|
movq xmm1, rax
|
||||||
|
else
|
||||||
|
movq xmm1, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
if vararg@fastcall & ~ param eq rdx
|
||||||
|
movq rdx, xmm1
|
||||||
|
end if
|
||||||
|
else if type@param eq addr
|
||||||
|
if ~ param eq rdx
|
||||||
|
lea rdx, [param]
|
||||||
|
end if
|
||||||
|
else if size@param = 8
|
||||||
|
if ~ param eq rdx
|
||||||
|
mov rdx, param
|
||||||
|
end if
|
||||||
|
else if size@param = 4
|
||||||
|
if ~ param eq edx
|
||||||
|
mov edx, param
|
||||||
|
end if
|
||||||
|
else if size@param = 2
|
||||||
|
if ~ param eq dx
|
||||||
|
mov dx, param
|
||||||
|
end if
|
||||||
|
else if size@param = 1
|
||||||
|
if ~ param eq dl
|
||||||
|
mov dl, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
else if counter = 3
|
||||||
|
if type@param eq float
|
||||||
|
if ~ param eq xmm2
|
||||||
|
if size@param = 4
|
||||||
|
if param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov eax, param
|
||||||
|
movd xmm2, eax
|
||||||
|
else
|
||||||
|
movd xmm2, param
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
if param eqtype 0 | param eqtype 0f | param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov rax, param
|
||||||
|
movq xmm2, rax
|
||||||
|
else
|
||||||
|
movq xmm2, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
if vararg@fastcall & ~ param eq r8
|
||||||
|
movq r8, xmm2
|
||||||
|
end if
|
||||||
|
else if type@param eq addr
|
||||||
|
if ~ param eq r8
|
||||||
|
lea r8, [param]
|
||||||
|
end if
|
||||||
|
else if size@param = 8
|
||||||
|
if ~ param eq r8
|
||||||
|
mov r8, param
|
||||||
|
end if
|
||||||
|
else if size@param = 4
|
||||||
|
if ~ param eq r8d
|
||||||
|
mov r8d, param
|
||||||
|
end if
|
||||||
|
else if size@param = 2
|
||||||
|
if ~ param eq r8w
|
||||||
|
mov r8w, param
|
||||||
|
end if
|
||||||
|
else if size@param = 1
|
||||||
|
if ~ param eq r8b
|
||||||
|
mov r8b, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
else if counter = 4
|
||||||
|
if type@param eq float
|
||||||
|
if ~ param eq xmm3
|
||||||
|
if size@param = 4
|
||||||
|
if param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov eax, param
|
||||||
|
movd xmm3, eax
|
||||||
|
else
|
||||||
|
movd xmm3, param
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
if param eqtype 0 | param eqtype 0f | param eqtype byte 0 | param eqtype byte 0f
|
||||||
|
mov rax, param
|
||||||
|
movq xmm3, rax
|
||||||
|
else
|
||||||
|
movq xmm3, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
if vararg@fastcall & ~ param eq r9
|
||||||
|
movq r9, xmm3
|
||||||
|
end if
|
||||||
|
else if type@param eq addr
|
||||||
|
if ~ param eq r9
|
||||||
|
lea r9, [param]
|
||||||
|
end if
|
||||||
|
else if size@param = 8
|
||||||
|
if ~ param eq r9
|
||||||
|
mov r9, param
|
||||||
|
end if
|
||||||
|
else if size@param = 4
|
||||||
|
if ~ param eq r9d
|
||||||
|
mov r9d, param
|
||||||
|
end if
|
||||||
|
else if size@param = 2
|
||||||
|
if ~ param eq r9w
|
||||||
|
mov r9w, param
|
||||||
|
end if
|
||||||
|
else if size@param = 1
|
||||||
|
if ~ param eq r9b
|
||||||
|
mov r9b, param
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
if type@param eq addr
|
||||||
|
lea rax, [param]
|
||||||
|
mov [rsp+(counter-1)*8], rax
|
||||||
|
else if param eqtype [0] | param eqtype byte [0]
|
||||||
|
if size@param = 8
|
||||||
|
mov rax, param
|
||||||
|
mov [rsp+(counter-1)*8], rax
|
||||||
|
else if size@param = 4
|
||||||
|
mov eax, param
|
||||||
|
mov [rsp+(counter-1)*8], eax
|
||||||
|
else if size@param = 2
|
||||||
|
mov ax, param
|
||||||
|
mov [rsp+(counter-1)*8], ax
|
||||||
|
else
|
||||||
|
mov al, param
|
||||||
|
mov [rsp+(counter-1)*8], al
|
||||||
|
end if
|
||||||
|
else if size@param = 8
|
||||||
|
virtual
|
||||||
|
origin = $
|
||||||
|
mov rax, param
|
||||||
|
load opcode byte from origin+1
|
||||||
|
end virtual
|
||||||
|
if opcode = 0B8h
|
||||||
|
mov rax, param
|
||||||
|
mov [rsp+(counter-1)*8], rax
|
||||||
|
else
|
||||||
|
mov qword [rsp+(counter-1)*8], param
|
||||||
|
end if
|
||||||
|
else if param in <xmm0,xmm1,xmm2,xmm3,xmm4,xmm5,xmm6,xmm7,xmm8,xmm9,xmm10,xmm11,xmm12,xmm13,xmm14,xmm15>
|
||||||
|
movq [rsp+(counter-1)*8], param
|
||||||
|
else
|
||||||
|
mov [rsp+(counter-1)*8], param
|
||||||
|
end if
|
||||||
|
end if \}
|
||||||
|
common
|
||||||
|
argscount = counter
|
||||||
|
call proc
|
||||||
|
if stackspace & ~defined current@frame
|
||||||
|
add rsp, stackspace
|
||||||
|
end if }
|
||||||
|
|
||||||
|
macro proc [args]
|
||||||
|
{ common
|
||||||
|
match name params, args>
|
||||||
|
\{ define@proc name,<params \} }
|
||||||
|
|
||||||
|
prologue@proc equ prologuedef
|
||||||
|
|
||||||
|
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
||||||
|
{ local loc,fill,counter
|
||||||
|
loc = (localbytes+15) and (not 15)
|
||||||
|
parmbase@proc equ rbp+16
|
||||||
|
localbase@proc equ rbp-loc
|
||||||
|
push rbp
|
||||||
|
mov rbp, rsp
|
||||||
|
if loc+fill
|
||||||
|
sub rsp, loc+fill
|
||||||
|
end if
|
||||||
|
counter = 0
|
||||||
|
irps reg, reglist \{ push reg
|
||||||
|
counter = counter+1 \}
|
||||||
|
fill = 8*(counter and 1) }
|
||||||
|
|
||||||
|
epilogue@proc equ epiloguedef
|
||||||
|
|
||||||
|
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
||||||
|
{ irps reg, reglist \{ reverse pop reg \}
|
||||||
|
leave
|
||||||
|
retn }
|
||||||
|
|
||||||
|
close@proc equ
|
||||||
|
|
||||||
|
macro define@proc name,statement
|
||||||
|
{ local params,flag,regs,parmbytes,localbytes,current
|
||||||
|
if used name
|
||||||
|
name:
|
||||||
|
match =stdcall args, statement \{ params equ args
|
||||||
|
flag = 11b \}
|
||||||
|
match =stdcall, statement \{ params equ
|
||||||
|
flag = 11b \}
|
||||||
|
match =c args, statement \{ params equ args
|
||||||
|
flag = 10001b \}
|
||||||
|
match =c, statement \{ params equ
|
||||||
|
flag = 10001b \}
|
||||||
|
match =params, params \{ params equ statement
|
||||||
|
flag = 10000b \}
|
||||||
|
match =uses reglist=,args, params \{ regs equ reglist
|
||||||
|
params equ args \}
|
||||||
|
match =regs =uses reglist, regs params \{ regs equ reglist
|
||||||
|
params equ \}
|
||||||
|
match =regs, regs \{ regs equ \}
|
||||||
|
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
||||||
|
virtual at parmbase@proc
|
||||||
|
match =,args, params \{ defargs@proc args \}
|
||||||
|
match =args@proc args, args@proc params \{ defargs@proc args \}
|
||||||
|
parmbytes = $-(parmbase@proc)
|
||||||
|
end virtual
|
||||||
|
name # % = parmbytes/8
|
||||||
|
all@vars equ
|
||||||
|
current = 0
|
||||||
|
macro locals
|
||||||
|
\{ virtual at localbase@proc+current
|
||||||
|
macro label def \\{ match . type,def> \\\{ deflocal@proc .,label,<type \\\} \\}
|
||||||
|
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
||||||
|
struc du [val] \\{ \common deflocal@proc .,du,val \\}
|
||||||
|
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
||||||
|
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
||||||
|
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
||||||
|
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
||||||
|
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
||||||
|
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
||||||
|
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
||||||
|
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
||||||
|
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
||||||
|
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
||||||
|
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
||||||
|
macro endl
|
||||||
|
\{ purge label
|
||||||
|
restruc db,du,dw,dp,dd,dt,dq
|
||||||
|
restruc rb,rw,rp,rd,rt,rq
|
||||||
|
current = $-(localbase@proc)
|
||||||
|
end virtual \}
|
||||||
|
macro ret operand
|
||||||
|
\{ match any, operand \\{ retn operand \\}
|
||||||
|
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs> \\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
||||||
|
macro finish@proc
|
||||||
|
\{ localbytes = current
|
||||||
|
match close:reglist, close@proc:<regs> \\{ close name,flag,parmbytes,localbytes,reglist \\}
|
||||||
|
end if \} }
|
||||||
|
|
||||||
|
macro defargs@proc [arg]
|
||||||
|
{ common
|
||||||
|
if ~ arg eq
|
||||||
|
forward
|
||||||
|
local ..arg,current@arg
|
||||||
|
match argname:type, arg
|
||||||
|
\{ current@arg equ argname
|
||||||
|
label ..arg type
|
||||||
|
argname equ ..arg
|
||||||
|
if qqword eq type
|
||||||
|
dq ?,?,?,?
|
||||||
|
else if dqword eq type
|
||||||
|
dq ?,?
|
||||||
|
else if tbyte eq type
|
||||||
|
dq ?,?
|
||||||
|
else
|
||||||
|
dq ?
|
||||||
|
end if \}
|
||||||
|
match =current@arg,current@arg
|
||||||
|
\{ current@arg equ arg
|
||||||
|
arg equ ..arg
|
||||||
|
..arg dq ? \}
|
||||||
|
common
|
||||||
|
args@proc equ current@arg
|
||||||
|
forward
|
||||||
|
restore current@arg
|
||||||
|
common
|
||||||
|
end if }
|
||||||
|
|
||||||
|
macro deflocal@proc name,def,[val] { name def val }
|
||||||
|
|
||||||
|
macro deflocal@proc name,def,[val]
|
||||||
|
{ common
|
||||||
|
match vars, all@vars \{ all@vars equ all@vars, \}
|
||||||
|
all@vars equ all@vars name
|
||||||
|
forward
|
||||||
|
local ..var,..tmp
|
||||||
|
..var def val
|
||||||
|
match =?, val \{ ..tmp equ \}
|
||||||
|
match any =?, val \{ ..tmp equ \}
|
||||||
|
match any (=?), val \{ ..tmp equ \}
|
||||||
|
match =label, def \{ ..tmp equ \}
|
||||||
|
match tmp : value, ..tmp : val
|
||||||
|
\{ tmp: end virtual
|
||||||
|
initlocal@proc ..var,def value
|
||||||
|
virtual at tmp\}
|
||||||
|
common
|
||||||
|
match first rest, ..var, \{ name equ first \} }
|
||||||
|
|
||||||
|
struc label type { label . type }
|
||||||
|
|
||||||
|
macro initlocal@proc name,def
|
||||||
|
{ virtual at name
|
||||||
|
def
|
||||||
|
size@initlocal = $ - name
|
||||||
|
end virtual
|
||||||
|
position@initlocal = 0
|
||||||
|
while size@initlocal > position@initlocal
|
||||||
|
virtual at name
|
||||||
|
def
|
||||||
|
if size@initlocal - position@initlocal < 2
|
||||||
|
current@initlocal = 1
|
||||||
|
load byte@initlocal byte from name+position@initlocal
|
||||||
|
else if size@initlocal - position@initlocal < 4
|
||||||
|
current@initlocal = 2
|
||||||
|
load word@initlocal word from name+position@initlocal
|
||||||
|
else if size@initlocal - position@initlocal < 8
|
||||||
|
current@initlocal = 4
|
||||||
|
load dword@initlocal dword from name+position@initlocal
|
||||||
|
else
|
||||||
|
load qword@initlocal qword from name+position@initlocal
|
||||||
|
if ( qword@initlocal > 0 & qword@initlocal < 80000000h ) | ( qword@initlocal < 0 & qword@initlocal >= -80000000h )
|
||||||
|
current@initlocal = 8
|
||||||
|
else
|
||||||
|
current@initlocal = 4
|
||||||
|
dword@initlocal = qword@initlocal and 0FFFFFFFFh
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
end virtual
|
||||||
|
if current@initlocal = 1
|
||||||
|
mov byte [name+position@initlocal], byte@initlocal
|
||||||
|
else if current@initlocal = 2
|
||||||
|
mov word [name+position@initlocal], word@initlocal
|
||||||
|
else if current@initlocal = 4
|
||||||
|
mov dword [name+position@initlocal], dword@initlocal
|
||||||
|
else
|
||||||
|
mov qword [name+position@initlocal], qword@initlocal
|
||||||
|
end if
|
||||||
|
position@initlocal = position@initlocal + current@initlocal
|
||||||
|
end while }
|
||||||
|
|
||||||
|
macro endp
|
||||||
|
{ purge ret,locals,endl
|
||||||
|
finish@proc
|
||||||
|
purge finish@proc
|
||||||
|
restore regs@proc
|
||||||
|
match all,args@proc \{ restore all \}
|
||||||
|
restore args@proc
|
||||||
|
match all,all@vars \{ restore all \} }
|
||||||
|
|
||||||
|
macro local [var]
|
||||||
|
{ common
|
||||||
|
locals
|
||||||
|
forward done@local equ
|
||||||
|
match varname[count]:vartype, var
|
||||||
|
\{ match =BYTE, vartype \\{ varname rb count
|
||||||
|
restore done@local \\}
|
||||||
|
match =WORD, vartype \\{ varname rw count
|
||||||
|
restore done@local \\}
|
||||||
|
match =DWORD, vartype \\{ varname rd count
|
||||||
|
restore done@local \\}
|
||||||
|
match =PWORD, vartype \\{ varname rp count
|
||||||
|
restore done@local \\}
|
||||||
|
match =QWORD, vartype \\{ varname rq count
|
||||||
|
restore done@local \\}
|
||||||
|
match =TBYTE, vartype \\{ varname rt count
|
||||||
|
restore done@local \\}
|
||||||
|
match =DQWORD, vartype \\{ label varname dqword
|
||||||
|
rq count*2
|
||||||
|
restore done@local \\}
|
||||||
|
match =QQWORD, vartype \\{ label varname qqword
|
||||||
|
rq count*4
|
||||||
|
restore done@local \\}
|
||||||
|
match =XWORD, vartype \\{ label varname xword
|
||||||
|
rq count*2
|
||||||
|
restore done@local \\}
|
||||||
|
match =YWORD, vartype \\{ label varname yword
|
||||||
|
rq count*4
|
||||||
|
restore done@local \\}
|
||||||
|
match , done@local \\{ virtual
|
||||||
|
varname vartype
|
||||||
|
end virtual
|
||||||
|
rb count*sizeof.\#vartype
|
||||||
|
restore done@local \\} \}
|
||||||
|
match :varname:vartype, done@local:var
|
||||||
|
\{ match =BYTE, vartype \\{ varname db ?
|
||||||
|
restore done@local \\}
|
||||||
|
match =WORD, vartype \\{ varname dw ?
|
||||||
|
restore done@local \\}
|
||||||
|
match =DWORD, vartype \\{ varname dd ?
|
||||||
|
restore done@local \\}
|
||||||
|
match =PWORD, vartype \\{ varname dp ?
|
||||||
|
restore done@local \\}
|
||||||
|
match =QWORD, vartype \\{ varname dq ?
|
||||||
|
restore done@local \\}
|
||||||
|
match =TBYTE, vartype \\{ varname dt ?
|
||||||
|
restore done@local \\}
|
||||||
|
match =DQWORD, vartype \\{ label varname dqword
|
||||||
|
dq ?,?
|
||||||
|
restore done@local \\}
|
||||||
|
match =QQWORD, vartype \\{ label varname qqword
|
||||||
|
dq ?,?,?,?
|
||||||
|
restore done@local \\}
|
||||||
|
match =XWORD, vartype \\{ label varname xword
|
||||||
|
dq ?,?
|
||||||
|
restore done@local \\}
|
||||||
|
match =YWORD, vartype \\{ label varname yword
|
||||||
|
dq ?,?,?,?
|
||||||
|
restore done@local \\}
|
||||||
|
match , done@local \\{ varname vartype
|
||||||
|
restore done@local \\} \}
|
||||||
|
match ,done@local
|
||||||
|
\{ var
|
||||||
|
restore done@local \}
|
||||||
|
common
|
||||||
|
endl }
|
||||||
|
|
||||||
|
macro frame
|
||||||
|
{ local size,current
|
||||||
|
if size
|
||||||
|
sub rsp, size
|
||||||
|
end if
|
||||||
|
current = 0
|
||||||
|
current@frame equ current
|
||||||
|
size@frame equ size }
|
||||||
|
|
||||||
|
macro endf
|
||||||
|
{ size@frame = current@frame
|
||||||
|
if size@frame
|
||||||
|
add rsp, size@frame
|
||||||
|
end if
|
||||||
|
restore size@frame,current@frame }
|
||||||
|
|
||||||
|
macro static_rsp_prologue procname,flag,parmbytes,localbytes,reglist
|
||||||
|
{ local counter,loc,frame,current
|
||||||
|
counter = 0
|
||||||
|
irps reg, reglist \{ push reg
|
||||||
|
counter = counter+1 \}
|
||||||
|
loc = (localbytes+7) and (not 7)
|
||||||
|
if frame & (counter+loc shr 3+1) and 1
|
||||||
|
loc = loc + 8
|
||||||
|
end if
|
||||||
|
framebytes@proc equ frame+loc
|
||||||
|
if framebytes@proc
|
||||||
|
sub rsp, framebytes@proc
|
||||||
|
end if
|
||||||
|
localbase@proc equ rsp+frame
|
||||||
|
regsbase@proc equ rsp+frame+loc
|
||||||
|
parmbase@proc equ rsp+frame+loc+counter*8+8
|
||||||
|
current = 0
|
||||||
|
current@frame equ current
|
||||||
|
size@frame equ frame }
|
||||||
|
|
||||||
|
macro static_rsp_epilogue procname,flag,parmbytes,localbytes,reglist
|
||||||
|
{ if framebytes@proc
|
||||||
|
add rsp, framebytes@proc
|
||||||
|
end if
|
||||||
|
irps reg, reglist \{ reverse pop reg \}
|
||||||
|
retn }
|
||||||
|
|
||||||
|
macro static_rsp_close procname,flag,parmbytes,localbytes,reglist
|
||||||
|
{ size@frame = current@frame
|
||||||
|
restore size@frame,current@frame }
|
||||||
|
|
||||||
|
stdcall fix fastcall
|
||||||
|
|
||||||
|
macro cinvoke proc,[arg]
|
||||||
|
{ common ccall [proc],arg }
|
||||||
|
|
||||||
|
macro ccall proc,[arg]
|
||||||
|
{ common vararg@fastcall = 1
|
||||||
|
fastcall proc,arg
|
||||||
|
vararg@fastcall = 0 }
|
||||||
|
|
||||||
|
vararg@fastcall = 0
|
||||||
246
kernel/struct.inc
Normal file
246
kernel/struct.inc
Normal file
@@ -0,0 +1,246 @@
|
|||||||
|
|
||||||
|
; Macroinstructions for defining data structures
|
||||||
|
|
||||||
|
macro struct name
|
||||||
|
{ virtual at 0
|
||||||
|
fields@struct equ name
|
||||||
|
match child parent, name \{ fields@struct equ child,fields@\#parent \}
|
||||||
|
sub@struct equ
|
||||||
|
struc db [val] \{ \common define field@struct .,db,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc dw [val] \{ \common define field@struct .,dw,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc du [val] \{ \common define field@struct .,du,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc dd [val] \{ \common define field@struct .,dd,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc dp [val] \{ \common define field@struct .,dp,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc dq [val] \{ \common define field@struct .,dq,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc dt [val] \{ \common define field@struct .,dt,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc rb count \{ define field@struct .,db,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc rw count \{ define field@struct .,dw,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc rd count \{ define field@struct .,dd,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc rp count \{ define field@struct .,dp,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc rq count \{ define field@struct .,dq,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
struc rt count \{ define field@struct .,dt,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro db [val] \{ \common \local anonymous
|
||||||
|
define field@struct anonymous,db,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro dw [val] \{ \common \local anonymous
|
||||||
|
define field@struct anonymous,dw,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro du [val] \{ \common \local anonymous
|
||||||
|
define field@struct anonymous,du,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro dd [val] \{ \common \local anonymous
|
||||||
|
define field@struct anonymous,dd,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro dp [val] \{ \common \local anonymous
|
||||||
|
define field@struct anonymous,dp,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro dq [val] \{ \common \local anonymous
|
||||||
|
define field@struct anonymous,dq,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro dt [val] \{ \common \local anonymous
|
||||||
|
define field@struct anonymous,dt,<val>
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro rb count \{ \local anonymous
|
||||||
|
define field@struct anonymous,db,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro rw count \{ \local anonymous
|
||||||
|
define field@struct anonymous,dw,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro rd count \{ \local anonymous
|
||||||
|
define field@struct anonymous,dd,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro rp count \{ \local anonymous
|
||||||
|
define field@struct anonymous,dp,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro rq count \{ \local anonymous
|
||||||
|
define field@struct anonymous,dq,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro rt count \{ \local anonymous
|
||||||
|
define field@struct anonymous,dt,count dup (?)
|
||||||
|
fields@struct equ fields@struct,field@struct \}
|
||||||
|
macro union \{ fields@struct equ fields@struct,,union,<
|
||||||
|
sub@struct equ union \}
|
||||||
|
macro struct \{ fields@struct equ fields@struct,,substruct,<
|
||||||
|
sub@struct equ substruct \} }
|
||||||
|
|
||||||
|
macro ends
|
||||||
|
{ match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt
|
||||||
|
restruc rb,rw,rd,rp,rq,rt
|
||||||
|
purge db,dw,du,dd,dp,dq,dt
|
||||||
|
purge rb,rw,rd,rp,rq,rt
|
||||||
|
purge union,struct
|
||||||
|
match name tail,fields@struct, \\{ if $
|
||||||
|
display 'Error: definition of ',\\`name,' contains illegal instructions.',0Dh,0Ah
|
||||||
|
err
|
||||||
|
end if \\}
|
||||||
|
match name=,fields,fields@struct \\{ fields@struct equ
|
||||||
|
make@struct name,fields
|
||||||
|
define fields@\\#name fields \\}
|
||||||
|
end virtual \}
|
||||||
|
match any, sub@struct \{ fields@struct equ fields@struct> \}
|
||||||
|
restore sub@struct }
|
||||||
|
|
||||||
|
; @dont_give_a_doxygen
|
||||||
|
macro make@struct name,[field,type,def]
|
||||||
|
{ common
|
||||||
|
local define
|
||||||
|
define equ name
|
||||||
|
forward
|
||||||
|
local sub
|
||||||
|
match , field \{ make@substruct type,name,sub def
|
||||||
|
define equ define,.,sub, \}
|
||||||
|
match any, field \{ define equ define,.#field,type,<def> \}
|
||||||
|
common
|
||||||
|
match fields, define \{ define@struct fields \} }
|
||||||
|
|
||||||
|
; @dont_give_a_doxygen
|
||||||
|
macro define@struct name,[field,type,def]
|
||||||
|
{ common
|
||||||
|
virtual
|
||||||
|
db `name
|
||||||
|
load initial@struct byte from 0
|
||||||
|
if initial@struct = '.'
|
||||||
|
display 'Error: name of structure should not begin with a dot.',0Dh,0Ah
|
||||||
|
err
|
||||||
|
end if
|
||||||
|
end virtual
|
||||||
|
local list
|
||||||
|
list equ
|
||||||
|
forward
|
||||||
|
if ~ field eq .
|
||||||
|
name#field type def
|
||||||
|
sizeof.#name#field = $ - name#field
|
||||||
|
else
|
||||||
|
label name#.#type
|
||||||
|
rb sizeof.#type
|
||||||
|
end if
|
||||||
|
local value
|
||||||
|
match any, list \{ list equ list, \}
|
||||||
|
list equ list <value>
|
||||||
|
common
|
||||||
|
sizeof.#name = $
|
||||||
|
restruc name
|
||||||
|
match values, list \{
|
||||||
|
struc name value \\{ \\local \\..base
|
||||||
|
match any, fields@struct \\\{ fields@struct equ fields@struct,.,name,<values> \\\}
|
||||||
|
match , fields@struct \\\{ label \\..base
|
||||||
|
forward
|
||||||
|
match , value \\\\{ field type def \\\\}
|
||||||
|
match any, value \\\\{ field type value
|
||||||
|
if ~ field eq .
|
||||||
|
rb sizeof.#name#field - ($-field)
|
||||||
|
end if \\\\}
|
||||||
|
common label . at \\..base \\\}
|
||||||
|
\\}
|
||||||
|
macro name value \\{
|
||||||
|
match any, fields@struct \\\{ \\\local anonymous
|
||||||
|
fields@struct equ fields@struct,anonymous,name,<values> \\\}
|
||||||
|
match , fields@struct \\\{
|
||||||
|
forward
|
||||||
|
match , value \\\\{ type def \\\\}
|
||||||
|
match any, value \\\\{ \\\\local ..field
|
||||||
|
..field = $
|
||||||
|
type value
|
||||||
|
if ~ field eq .
|
||||||
|
rb sizeof.#name#field - ($-..field)
|
||||||
|
end if \\\\}
|
||||||
|
common \\\} \\} \} }
|
||||||
|
|
||||||
|
; @dont_give_a_doxygen
|
||||||
|
macro enable@substruct
|
||||||
|
{ macro make@substruct substruct,parent,name,[field,type,def]
|
||||||
|
\{ \common
|
||||||
|
\local define
|
||||||
|
define equ parent,name
|
||||||
|
\forward
|
||||||
|
\local sub
|
||||||
|
match , field \\{ match any, type \\\{ enable@substruct
|
||||||
|
make@substruct type,parent,sub def
|
||||||
|
purge make@substruct
|
||||||
|
define equ define,.,sub, \\\} \\}
|
||||||
|
match any, field \\{ define equ define,.\#field,type,<def> \\}
|
||||||
|
\common
|
||||||
|
match fields, define \\{ define@\#substruct fields \\} \} }
|
||||||
|
|
||||||
|
; @dont_give_a_doxygen
|
||||||
|
enable@substruct
|
||||||
|
|
||||||
|
; @dont_give_a_doxygen
|
||||||
|
macro define@union parent,name,[field,type,def]
|
||||||
|
{ common
|
||||||
|
virtual at parent#.#name
|
||||||
|
forward
|
||||||
|
if ~ field eq .
|
||||||
|
virtual at parent#.#name
|
||||||
|
parent#field type def
|
||||||
|
sizeof.#parent#field = $ - parent#field
|
||||||
|
end virtual
|
||||||
|
if sizeof.#parent#field > $ - parent#.#name
|
||||||
|
rb sizeof.#parent#field - ($ - parent#.#name)
|
||||||
|
end if
|
||||||
|
else
|
||||||
|
virtual at parent#.#name
|
||||||
|
label parent#.#type
|
||||||
|
type def
|
||||||
|
end virtual
|
||||||
|
label name#.#type at parent#.#name
|
||||||
|
if sizeof.#type > $ - parent#.#name
|
||||||
|
rb sizeof.#type - ($ - parent#.#name)
|
||||||
|
end if
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
sizeof.#name = $ - parent#.#name
|
||||||
|
end virtual
|
||||||
|
struc name [value] \{ \common
|
||||||
|
label .\#name
|
||||||
|
last@union equ
|
||||||
|
forward
|
||||||
|
match any, last@union \\{ virtual at .\#name
|
||||||
|
field type def
|
||||||
|
end virtual \\}
|
||||||
|
match , last@union \\{ match , value \\\{ field type def \\\}
|
||||||
|
match any, value \\\{ field type value \\\} \\}
|
||||||
|
last@union equ field
|
||||||
|
common rb sizeof.#name - ($ - .\#name) \}
|
||||||
|
macro name [value] \{ \common \local ..anonymous
|
||||||
|
..anonymous name value \} }
|
||||||
|
|
||||||
|
; @dont_give_a_doxygen
|
||||||
|
macro define@substruct parent,name,[field,type,def]
|
||||||
|
{ common
|
||||||
|
virtual at parent#.#name
|
||||||
|
forward
|
||||||
|
if ~ field eq .
|
||||||
|
parent#field type def
|
||||||
|
sizeof.#parent#field = $ - parent#field
|
||||||
|
else
|
||||||
|
label parent#.#type
|
||||||
|
rb sizeof.#type
|
||||||
|
end if
|
||||||
|
common
|
||||||
|
sizeof.#name = $ - parent#.#name
|
||||||
|
end virtual
|
||||||
|
struc name value \{
|
||||||
|
label .\#name
|
||||||
|
forward
|
||||||
|
match , value \\{ field type def \\}
|
||||||
|
match any, value \\{ field type value
|
||||||
|
if ~ field eq .
|
||||||
|
rb sizeof.#parent#field - ($-field)
|
||||||
|
end if \\}
|
||||||
|
common \}
|
||||||
|
macro name value \{ \local ..anonymous
|
||||||
|
..anonymous name \} }
|
||||||
Reference in New Issue
Block a user