27 lines
740 B
Ada
27 lines
740 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 ("Open Agila 0.2 host scaffold");
|
|
Console.Write_Line ("CPU: host placeholder");
|
|
Console.Write_Line ("Memory: host placeholder");
|
|
Console.Write_Line ("Interrupts: host placeholder");
|
|
Console.Write_Line ("Timer: host placeholder");
|
|
Console.Write_Line ("Scheduler: host placeholder");
|
|
Console.Write_Line ("Host scaffold complete; this target is not a bootable OS");
|
|
end Start;
|
|
end Kernel;
|