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

View File

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

View File

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

View File

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

View File

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