27 lines
664 B
Ada
27 lines
664 B
Ada
with CPU;
|
|
with Memory;
|
|
with Console;
|
|
with Scheduler;
|
|
with Interrupt;
|
|
with Timer;
|
|
|
|
package body Kernel is
|
|
procedure Start is
|
|
begin
|
|
CPU.Initialize;
|
|
Memory.Initialize;
|
|
Console.Initialize;
|
|
Interrupt.Initialize;
|
|
Timer.Initialize;
|
|
Scheduler.Initialize;
|
|
|
|
Console.Write_Line ("Agila Open Kernel 0.1");
|
|
Console.Write_Line ("CPU: initialized");
|
|
Console.Write_Line ("Memory: initialized");
|
|
Console.Write_Line ("Interrupts: initialized");
|
|
Console.Write_Line ("Timer: initialized");
|
|
Console.Write_Line ("Scheduler: initialized");
|
|
Console.Write_Line ("System ready");
|
|
end Start;
|
|
end Kernel;
|