Re: Port IO with Gnat

[levy.david.c@gmail.com]

On Sep 1, 7:06 am, a...@anon.org (anon) wrote:
> -- 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-696136aa4...@i20g2000prf.googlegroups.com>,levy.davi...@gmail.com writes:
> >Could anyone point me at how to do simple port IO under Windows XP
> >with GNAT 2005?
>
> >Thanks
>
> >Dave
>
>

Unfortunately this does not work because of Windows XP's security,
which disallows port io.

How does one ask XP for permission to do the port IO from GNAT?

Thanks

Dave