Re: Port IO with Gnat

[anon@anon.org (anon)]

-- There is a workable example in the gnat doc that comes with GNAT.
-- But these you routine should give you and idea.  

--
--  If your using x86 processors
--
procedure Out_Byte ( Port : unsigned_16 ;
                       Data : unsigned_8 ) is

  begin -- Out_Byte
    Asm ( Template => "outb %%al, %%dx"  & ASCII.LF,
          Inputs => ( Unsigned_8'Asm_Input ( "a", Data ),
                      Unsigned_16'Asm_Input ( "d", Port ) 
                      ),
          Volatile => True ) ;
  end Out_Byte ;


function In_Byte ( Port : unsigned_16 ) return unsigned_8 is

    Data : unsigned_8 ;

  begin -- In_Byte
    Asm ( Template => "inb  %%dx, %%al"  & ASCII.LF,
          Inputs   =>  Unsigned_16'Asm_Input ( "d", Port ),
          Outputs => Unsigned_8'Asm_Output ( "=a", Data ),
          Volatile => True ) ;
    return Data ;
  end In_Byte ;


In <6e0427b4-4871-4e51-a1b1-696136aa45a6@i20g2000prf.googlegroups.com>, levy.david.c@gmail.com writes:
>Could anyone point me at how to do simple port IO under Windows XP
>with GNAT 2005?
>
>Thanks
>
>Dave