Port IO with Gnat

Port IO with Gnat

[levy.david.c]

Could anyone point me at how to do simple port IO under Windows XP
with GNAT 2005?

Thanks

Dave

Re: Port IO with Gnat

[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

Re: Port IO with Gnat

[Stephen Leake]

levy.david.c@gmail.com writes:

> Could anyone point me at how to do simple port IO under Windows XP
> with GNAT 2005?

I think the best answer is that there is no such thing as "simple port
IO" under Windows XP.

What, specifically, are you trying to do?

-- 
-- Stephe

Re: Port IO with Gnat

[Gary Scott]

Stephen Leake wrote:

> levy.david.c@gmail.com writes:
> 
> 
>>Could anyone point me at how to do simple port IO under Windows XP
>>with GNAT 2005?
> 
> 
> I think the best answer is that there is no such thing as "simple port
> IO" under Windows XP.
> 
> What, specifically, are you trying to do?
> 
There is a library targeted at Fortran that should be pretty easy to use:

http://www.microglyph.com/prdpag.html


-- 

Gary Scott
mailto:garylscott@sbcglobal dot net

Fortran Library:  http://www.fortranlib.com

Support the Original G95 Project:  http://www.g95.org
-OR-
Support the GNU GFortran Project:  http://gcc.gnu.org/fortran/index.html

If you want to do the impossible, don't hire an expert because he knows 
it can't be done.

-- Henry Ford

Re: Port IO with Gnat

[levy.david.c]

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

Re: Port IO with Gnat

[Steve]

<levy.david.c@gmail.com> wrote in message 
news:de90dcd1-8540-446b-9926-06d671416736@i20g2000prf.googlegroups.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 )
[snip]

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

A quick search on "port io from xp" (on ixquick) finds:

http://www.geekhideout.com/iodll.shtml

There is an IO.DLL that does the grubby work for you, so all you have to do 
is use the DLL.

Regards,
Steve

BTW: Some times my newsreader (outlook express) doesn't qoute replies 
properly (sometimes it does)... sorry 

Re: Port IO with Gnat

[anon]

It depends on the XP or Vista security mode.  With the security mode active 
a program must request and be granted rights to use the I/O instructions.  
Check Win security apps for those routines. Once rights have been granted 
the routines works perfectly. But, if the OS does not give the rights then a 
"System I/O Access" exception will occur if you try to execute any I/O 
instruction.  There are other ways (hacked) but microsoft and some schools 
do not support those and it may void any hardware warranties on new 
equipment or get one expelled.

But in either case, you will need to write an Ada Interface package to import 
those routines to Ada.

In <3aydnfE84t4XpkHVnZ2dnUVZ_uqdnZ2d@comcast.com>, "Steve" <nospam_steved94@comcast.net> writes:
><levy.david.c@gmail.com> wrote in message 
>news:de90dcd1-8540-446b-9926-06d671416736@i20g2000prf.googlegroups.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 )
>[snip]
>
>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
>
>A quick search on "port io from xp" (on ixquick) finds:
>
>http://www.geekhideout.com/iodll.shtml
>
>There is an IO.DLL that does the grubby work for you, so all you have to do 
>is use the DLL.
>
>Regards,
>Steve
>
>BTW: Some times my newsreader (outlook express) doesn't qoute replies 
>properly (sometimes it does)... sorry 
>
>