Build original Ada port core, V client, and x86-64 boot milestone

boot/boot_main.adb

@@ -0,0 +1,69 @@
+with Interfaces; use Interfaces;
+with System.Machine_Code; use System.Machine_Code;
+with Agila_Ports; use Agila_Ports;
+procedure Boot_Main (Magic : Unsigned_32) is
+   State : Manager;
+   Handle, Replacement : Word;
+   Result : Status;
+   Item : Message;
+   procedure Out_Byte (Port : Unsigned_16; Value : Unsigned_8) is
+   begin
+      Asm ("outb %0, %1", Inputs => (Unsigned_8'Asm_Input ("a", Value),
+           Unsigned_16'Asm_Input ("Nd", Port)), Volatile => True);
+   end Out_Byte;
+   function In_Byte (Port : Unsigned_16) return Unsigned_8 is
+      Value : Unsigned_8;
+   begin
+      Asm ("inb %1, %0", Outputs => Unsigned_8'Asm_Output ("=a", Value),
+           Inputs => Unsigned_16'Asm_Input ("Nd", Port), Volatile => True);
+      return Value;
+   end In_Byte;
+   procedure Line (Text : String) is
+      Full_Text : constant String := Text & ASCII.CR & ASCII.LF;
+   begin
+      for C of Full_Text loop
+         for Attempt in 1 .. 10_000 loop
+            exit when (In_Byte (16#3FD#) and 16#20#) /= 0;
+         end loop;
+         Out_Byte (16#3F8#, Unsigned_8 (Character'Pos (C)));
+      end loop;
+   end Line;
+   procedure Finish (Success : Boolean) with No_Return;
+   procedure Finish (Success : Boolean) is
+      Code : constant Unsigned_32 := (if Success then 16#10# else 16#11#);
+   begin
+      if Success then Line ("AGILA_BOOT_OK"); else Line ("AGILA_BOOT_FAILED"); end if;
+      Asm ("outl %0, %1", Inputs => (Unsigned_32'Asm_Input ("a", Code),
+           Unsigned_16'Asm_Input ("Nd", 16#F4#)), Volatile => True);
+      loop Asm ("cli; hlt", Volatile => True); end loop;
+   end Finish;
+   procedure Check (Condition : Boolean) is
+   begin
+      if not Condition then Finish (False); end if;
+   end Check;
+begin
+   Out_Byte (16#3F9#, 0); Out_Byte (16#3FB#, 16#80#);
+   Out_Byte (16#3F8#, 3); Out_Byte (16#3F9#, 0);
+   Out_Byte (16#3FB#, 3); Out_Byte (16#3FA#, 16#C7#);
+   Out_Byte (16#3FC#, 16#0B#);
+   Line ("OPEN_AGILA_X86_64_ADA");
+   Check (Magic = 16#2BADB002#);
+   Create (State, 10, Handle, Result); Check (Result = Ok);
+   Send (State, Handle, 20, 42, Result); Check (Result = Permission_Denied);
+   Allow_Sender (State, Handle, 10, 20, Result); Check (Result = Ok);
+   for I in 1 .. Queue_Capacity loop
+      Send (State, Handle, 20, Word (I), Result); Check (Result = Ok);
+   end loop;
+   Send (State, Handle, 20, 99, Result); Check (Result = Full);
+   for I in 1 .. Queue_Capacity loop
+      Receive (State, Handle, 10, Item, Result);
+      Check (Result = Ok and Item.Value = Word (I) and Item.Sender = 20);
+   end loop;
+   Receive (State, Handle, 10, Item, Result); Check (Result = Empty);
+   Close (State, Handle, 10, Result); Check (Result = Ok);
+   Create (State, 30, Replacement, Result); Check (Result = Ok and Replacement /= Handle);
+   Send (State, Handle, 10, 1, Result); Check (Result = Invalid_Handle);
+   Line ("ADA_PORTS_BOOT_TESTS_OK");
+   Line ("Boot milestone: one address space; no user services or desktop yet.");
+   Finish (True);
+end Boot_Main;