src/i386-text_console.ads

   1 with I386.Port_IO;
   2
   3 package I386.Text_Console is
   4
   5    procedure Put (C : Character);
   6
   7    procedure Put (S : String);
   8
   9    procedure Cls;
  10
  11    procedure New_Line;
  12
  13    procedure Put_Line (S : String);
  14
  15 private
  16
  17    type Console_Index is new Unsigned_32;
  18    for Console_Index'Size use 32;
  19
  20    Max_Line : constant  Console_Index := 25;
  21    Max_Column : constant Console_Index := 80;
  22
  23    subtype Line_Index is Console_Index range 1 .. Max_Line;
  24    subtype Column_Index is Console_Index range 1 .. Max_Column;
  25
  26    Video_Base_Address : constant I386.Port_IO.Port_Address := 16#B8000#;
  27
  28    type Unsigned_4 is new Unsigned_8 range 0 .. 15;
  29    for Unsigned_4'Size use 4;
  30
  31    type Text_Attribute is
  32       record
  33          F_Color : Unsigned_4;
  34          B_Color : Unsigned_4;
  35       end record;
  36    for Text_Attribute'Size use 8;
  37    pragma Pack (Text_Attribute);
  38
  39    type Text_Element is
  40       record
  41          Text : Unsigned_8;
  42          Attribute : Text_Attribute := (15, 0);
  43       end record;
  44    for Text_Element'Size use 16;
  45
  46    type Text_Line_Buffer is array (Column_Index) of Text_Element;
  47
  48    type Text_Buffer is array (Line_Index) of  Text_Line_Buffer;
  49    for Text_Buffer'Size use 32000;
  50
  51    Blank_Text_Element : constant Text_Element :=
  52      (Character'Pos (Ascii.NUL), (15, 0));
  53
  54 end I386.Text_Console;