Code tidying for boot readability.

git-svn-id: https://spexeah.com:8443/svn/Asuro@261 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron 2017-10-26 11:48:07 +00:00
parent faf1471f32
commit 1efbe9cd95
11 changed files with 13 additions and 4 deletions

BIN
Asuro.iso

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -75,7 +75,7 @@ implementation
procedure init(_controller : TPCI_device); procedure init(_controller : TPCI_device);
begin begin
console.writestringln('ATA Driver INIT'); console.writestringln('ATA: INIT BEGIN.');
isr76.hook(uint32(@callback)); isr76.hook(uint32(@callback));
controller := _controller; controller := _controller;
@ -90,7 +90,7 @@ begin
ports.lba_hi := $1F5; ports.lba_hi := $1F5;
ports.drive := $1F6; ports.drive := $1F6;
ports.sector_count := $F2; ports.sector_count := $F2;
console.writestringln('ATA: INIT END.');
end; end;
procedure read(address : uint32; data_lba : uint32; data_bytes : uint32); procedure read(address : uint32; data_lba : uint32; data_bytes : uint32);

View File

@ -213,13 +213,14 @@ var
ii : uint16; ii : uint16;
iii : uint8; iii : uint8;
begin begin
console.writestringln('PCI: INIT BEGIN.')
//enumerate pci bus //enumerate pci bus
for ii:=0 to 256 do begin for ii:=0 to 256 do begin
for i:=0 to 31 do begin for i:=0 to 31 do begin
check_device(ii, i, 0); check_device(ii, i, 0);
end; end;
end; end;
console.writestringln('PCI: INIT END.')
end; end;
procedure loadConfig(bus : uint8; slot : uint8; func : uint8; offset : uint8); procedure loadConfig(bus : uint8; slot : uint8; func : uint8; offset : uint8);

View File

@ -60,8 +60,10 @@ end;
procedure init(keyboard_layout : array of TKeyInfo); procedure init(keyboard_layout : array of TKeyInfo);
begin begin
console.writestringln('PS/2 KEYBOARD: INIT BEGIN.');
if keyboard_layout[1].key_code = 0 then lang_USA(); if keyboard_layout[1].key_code = 0 then lang_USA();
isr33.hook(uint32(@callback)); isr33.hook(uint32(@callback));
console.writestringln('PS/2 KEYBOARD: INIT END.');
end; end;
//2A AA //2A AA

View File

@ -105,7 +105,9 @@ end;
procedure init(); procedure init();
begin begin
console.writestringln('PS/2 MOUSE: INIT BEGIN.');
isr44.hook(uint32(@callback)); isr44.hook(uint32(@callback));
console.writestringln('PS/2 MOUSE: INIT END.');
end; end;
end. end.

View File

@ -84,6 +84,7 @@ var
i : uint32; i : uint32;
begin begin
console.writestringln('LMM: INIT BEGIN.');
Root_Page:= PHeapPage(new_lmm_page); Root_Page:= PHeapPage(new_lmm_page);
Search_Page:= Root_Page; Search_Page:= Root_Page;
Root_Page^.Next_Page:= 0; Root_Page^.Next_Page:= 0;
@ -93,6 +94,7 @@ begin
Root_Page^.Entries[i].Root:= False; Root_Page^.Entries[i].Root:= False;
Root_Page^.Entries[i].Last:= False; Root_Page^.Entries[i].Last:= False;
end; end;
console.writestringln('LMM: INIT END.');
end; end;
function kalloc(size : uint32) : void; function kalloc(size : uint32) : void;

View File

@ -271,6 +271,7 @@ end;
procedure init; procedure init;
begin begin
console.writestringln('TERMINAL: INIT BEGIN.');
memset(uint32(@Commands[0]), 0, 65535*sizeof(TCommand)); memset(uint32(@Commands[0]), 0, 65535*sizeof(TCommand));
memset(uint32(@buffer[0]), 0, 1024); memset(uint32(@buffer[0]), 0, 1024);
registerCommand('VERSION', @version, 'Display the running version of Asuro.'); registerCommand('VERSION', @version, 'Display the running version of Asuro.');
@ -278,7 +279,8 @@ begin
registerCommand('HELP', @help, 'Lists all registered commands and their description.'); registerCommand('HELP', @help, 'Lists all registered commands and their description.');
registerCommand('ECHO', @echo, 'Echo''s text to the terminal.'); registerCommand('ECHO', @echo, 'Echo''s text to the terminal.');
registerCommand('TESTPARAMS', @testParams, 'Tests param parsing.'); registerCommand('TESTPARAMS', @testParams, 'Tests param parsing.');
registerCommand('TEST', @test, 'Command for testing.') registerCommand('TEST', @test, 'Command for testing.');
console.writestringln('TERMINAL: INIT END.');
end; end;
procedure run; procedure run;