01. November 2024, 01:30
Beiträge anzeigen
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Übersicht
Wiki
Hilfe
Suche
Einloggen
Registrieren
type
TableRegister = record // IDT/GDT-Register
Size : Single;
Long : Double;
end;
InterruptGate = record // Gate in der IDT
Offset_Low : Word = 16; // <-- =16 ist sogar nach Syntax verboten, tja
end;
Hier der Codetypedef struct _TableRegister // IDT/GDT-Register
{
unsigned short size; // Größe der Tabelle
unsigned long base; // Basisadresse der Tabelle
} TableRegister, *pTableRegister;
typedef struct _InterruptGate // Gate in der IDT
{
unsigned int offset_low : 16; // 1. Word der Funk.-Adresse
unsigned int selector : 16; // Selektor aus der GDT
//unsigned int reserved_1 : 8; // 0
unsigned int : 8; // 0
unsigned int type : 3; // Zugriffs- und Statusbyte
unsigned int size : 1;
//unsigned int reserved_2 : 1; // 0
unsigned int : 1; // 0
unsigned int DPL : 2; // Zugriffslevel
unsigned int present : 1; // Present im speicher
unsigned int offset_high : 16; // 2. Word der Funk.-Adresse
} InterruptGate, *pInterruptGate, TrapGate, *pTrapGate;
typedef struct _Gate // Gate in der IDT
{
unsigned int offset_low : 16; // 1. Word der Funk.-Adresse
unsigned int selector : 16; // Selektor aus der GDT
unsigned int param : 5; // Parameter auf dem Stack
//unsigned int reserved_1 : 3; // 0
unsigned int : 3; // 0
unsigned int type : 4; // Zugriffs- und Statusbyte
//unsigned int reserved_2 : 1; // 0
unsigned int : 1; // 0
unsigned int DPL : 2; // Zugriffslevel
unsigned int present : 1; // Present im speicher
unsigned int offset_high : 16; // 2. Word der Funk.-Adresse
} Gate, *pGate, CallGate, *pCallGate;
typedef struct _Descriptor // Descriptor in der GDT
{
unsigned int size_low : 16; // 1. Word der Größe
unsigned int base_low : 16; // 1. Word der Basisadresse
unsigned int base_mid : 8; // 3. Byte der Basisadresse
unsigned int access : 1; // Zugriff & Segmenttyp
unsigned int type : 3; // Zugriff & Segmenttyp
unsigned int system : 1; // Zugriff & Segmenttyp
unsigned int level : 2; // Zugriff & Segmenttyp
unsigned int present : 1; // Zugriff & Segmenttyp
unsigned int size_high : 4; // Letztes Nibble der Größe
unsigned int avl : 1; // Zusatz
unsigned int null : 1; // Zusatz
unsigned int _386 : 1; // Zusatz
unsigned int seg_size : 1; // Zusatz
unsigned int base_high : 8; // Letztes Byte der Basisadresse
} Descriptor, *pDescriptor;
pDescriptor GDT_BASE_POINTER;
pGate IDT_BASE_POINTER;
pTrapGate IDT_BASE_POINTER_TRAP_GATE;
pInterruptGate IDT_BASE_POINTER_INTERRUPT_GATE;
pCallGate IDT_BASE_POINTER_CALL_GATE;
TableRegister gdt, idt;
procedure fpc_shortstr_assign(len: longint; src, dst: pointer); compilerproc;
procedure fpc_shortstr_assign(len: longint; src, dst: pointer); alias: 'FPC_SHORTSTR_ASSIGN';
begin
end;
type
TScreen = Array[1..25, 1..80] of record
c : Char;
attr : Byte;
end;
procedure WriteChar(c : Char);
begin
Screen^[X, Y].c := c;
inc(Y);
end;
WriteChar('a') und man sieht ein a auf dem Bildschirm.procedure WriteLn(s : String);
var i : Integer;
begin
for i := 1 to Length(s) do
WriteChar(s[i]);
end;
WriteLine('a') und man sieht nichts auf dem Bildschirm. Ich habe herausgefunden, dass Length(s) und s aus irgendeinem Grund nicht funktionieren ODER die Übergabe des Strings an die Funktion schiefläuft, wenn man folgenden Code benutzt, sieht man nichts auf dem Bildschirm:procedure WriteLn(s : String);
var i : Integer;
begin
for i := 1 to Length(s) do
WriteChar('a');
end;
Nimmt man anstelle von Length(s) Length(s)+3, hat man 3 a auf dem Bildschirm.unit system;
interface
type
ValSInt = LongInt;
SizeInt = LongInt;
procedure FPC_INITIALIZEUNITS; compilerproc;
procedure FPC_DO_EXIT; compilerproc;
procedure fpc_shortstr_assign(len: longint; src, dst: pointer);
function fpc_shortstr_concat(const s1, s2 : ShortString) : ShortString; compilerproc;
function fpc_shortstr_to_shortstr(len : LongInt; const sstr : ShortString) : ShortString; compilerproc;
implementation
procedure FPC_INITIALIZEUNITS; alias: 'FPC_INITIALIZEUNITS'; compilerproc;
begin
end;
...
OUTPUT_FORMAT("elf32-i386") ? Wenn ja: er kennt elf32-i386 nicht.
), wie kann man denn dort den Kernel austauschen ?
org 0x7C00
start:
cli
mov ax, 0x9000
mov ss, ax
mov sp, 0
sti
mov [bootdriv], dl
call load
mov ax, 0x1000 ; Speicheradresse der Shell
mov es, ax
mov ds, ax
push ax
mov ax, 0
push ax
retf
bootdriv db 0 ; Bootlaufwerk
loadmsg db "Test",13,10,0
; Mit dieser Funktion geben wir einen String aus
putstr:
lodsb
or al,al
jz short putstrd
mov ah,0x0E
mov bx,0x0007
int 0x10
jmp putstr
putstrd:
retn
; Shell vom Bootlaufwerk laden
load:
push ds
mov ax, 0
mov dl, [bootdriv]
int 13h
pop ds
jc load
load1:
mov ax,0x1000
mov es,ax
mov bx, 0
mov ah, 2
mov al, 5
mov cx, 2
mov dx, 0
int 13h
jc load1
mov si,loadmsg
call putstr
retn
times 512-($-$$)-2 db 0
dw 0AA55h
mov ax, 0x1000
Dann habe ich den Linkerscript angepasst:OUTPUT_FORMAT("binary")
INPUT(kernel32.obj ckernel.obj)
ENTRY(start)
SECTIONS
{
.text 0x1000 : {
code = .; _code = .; __code = .;
*(.text)
. = ALIGN(1);
*(.rdata)
*(.rodata)
}
.data : {
data = .; _data = .; __data = .;
*(.data)
. = ALIGN(1);
}
.bss :
{
bss = .; _bss = .; __bss = .;
*(.bss)
. = ALIGN(1);
}
end = .; _end = .; __end = .;
}
[Bits 32]
extern _kernel
global start
global _EnableA20Gate
start:
call _kernel ; siehe kernel.c warum
STOP:
jmp STOP
void kernel() // Da main scheinbar ein reserviertes Wort ist
{
int i;
char Text[] = "Welcome to Protected Mode";
char *VideoMem = (char*)0xB8000;
for(i = 0; Text[i] != 0; i++)
{
VideoMem[i] = Text[i];
VideoMem[++i] = 7;
}
}
void memcpy(void *dest, const void *src, int n)
{
int i;
for (i = 0;i <= n;i++)
{
dest = (void*)src;
dest++;
src++;
}
}
OUTPUT_FORMAT("binary")
INPUT(kernel32.obj ckernel.obj)
ENTRY(start)
SECTIONS
{
.text 0x200 : {
code = .; _code = .; __code = .;
*(.text)
. = ALIGN(1);
}
.data : {
data = .; _data = .; __data = .;
*(.data)
. = ALIGN(1);
}
.bss :
{
bss = .; _bss = .; __bss = .;
*(.bss)
. = ALIGN(1);
}
end = .; _end = .; __end = .;
}
