package Pp is
 
   LP1 : constant := 16#03BC#;
   LP2 : constant := 16#0378#;
   LP3 : constant := 16#0278#;
   type Message_Type is (Data, Status, Ctrl);
end Pp;

with Interfaces;
 
generic
 
   LP : Interfaces.Unsigned_16;
package Pp.Pp_Io is
 
   use Interfaces;
 
   procedure Put(Msg : in Message_Type; Value : in Unsigned_8);
 
   procedure Get(Msg : in Message_Type; Value : out Unsigned_8);
end Pp.Pp_Io;

with Interfaces.C;
use interfaces;
 
with Pp.Ioperm, Pp.Pp_Io;
use Pp;
 
procedure Main is
 
   package Lp_Io is new Pp.Pp_Io(Pp.LP2);
 
   Errno : C.Int := 0;
 
 
   Hello : String := "bonjour monde !";
 
   Data : Unsigned_8;
 
begin
   Errno := Pp.Ioperm.Ioperm(PP.LP2, 3, 1);
   for I in 32..127 loop
      Data := Unsigned_8(I);
      Lp_Io.Put(Pp.Data, Data);
   end loop;
   Errno := Pp.Ioperm.Ioperm(PP.LP2, 3, 0);
end Main;

with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada;
with System.Machine_Code;
use System.Machine_Code;
package body Pp.Pp_Io is
 
   use Interfaces, Ascii;
 
   procedure Put(Msg : in Message_Type; Value : in Unsigned_8) is
 
   begin
      
      Asm("mov %1,   %%al" & LF & HT &
            "mov %0,   %%dx" & LF & HT &
            "out %%al, %%dx",
          Inputs  => (Unsigned_16'Asm_Input ("g", LP+Message_Type'Pos(Msg)), Unsigned_8'Asm_Input ("a", Value)),
          Volatile => True);
   end Put;
   
   procedure Get(Msg : in Message_Type; Value : out Unsigned_8) is
      
   begin
      
      Asm("mov %1,%%dx" & LF & HT &
            "in %%dx,%%al" & LF & HT &
            "mov %0, %%al",
          Inputs  => (Unsigned_16'Asm_Input ("g", LP+Message_Type'Pos(Msg))),
          Outputs => Unsigned_8'Asm_Output ("=a", Value),
          Volatile => True);
   end Get;
end Pp.Pp_Io;