URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [lib/] [libbsp/] [i386/] [ts_386ex/] [tools/] [ts_1325_ada/] [i386_ports.ads] - Blame information for rev 609

Go to most recent revision | Details | Compare with Previous | View Log


with Interfaces;
 
package I386_Ports is
 
   type Port_Address is new Interfaces.Unsigned_16;
 
   type Byte is new Interfaces.Unsigned_8;
 
   type Word is new Interfaces.Unsigned_16;
 
   type Long is new Interfaces.Unsigned_32;
 
   procedure Outport (Addr: in Port_Address; Data: in Byte);
 
   procedure Inport (Addr: in Port_Address; Data: out Byte);
 
   P1PIN: constant Port_Address;
   P1LTC: constant Port_Address;
   P1DIR: constant Port_Address;
 
   P2PIN: constant Port_Address;
   P2LTC: constant Port_Address;
   P2DIR: constant Port_Address;
 
   P3PIN: constant Port_Address;
   P3LTC: constant Port_Address;
   P3DIR: constant Port_Address;
 
private
 
   pragma Inline (Outport, Inport);
 
   P1PIN: constant Port_Address := 16#F860#;
   P1LTC: constant Port_Address := 16#F862#;
   P1DIR: constant Port_Address := 16#F864#;
 
   P2PIN: constant Port_Address := 16#F868#;
   P2LTC: constant Port_Address := 16#F86A#;
   P2DIR: constant Port_Address := 16#F86C#;
 
   P3PIN: constant Port_Address := 16#F870#;
   P3LTC: constant Port_Address := 16#F872#;
   P3DIR: constant Port_Address := 16#F874#;
 
end I386_Ports;
 
 

Line No.	Rev	Author	Line
1	30	unneback	`with Interfaces;`
2
3			`package I386_Ports is`
4
5			`type Port_Address is new Interfaces.Unsigned_16;`
6
7			`type Byte is new Interfaces.Unsigned_8;`
8
9			`type Word is new Interfaces.Unsigned_16;`
10
11			`type Long is new Interfaces.Unsigned_32;`
12
13			`procedure Outport (Addr: in Port_Address; Data: in Byte);`
14
15			`procedure Inport (Addr: in Port_Address; Data: out Byte);`
16
17			`P1PIN: constant Port_Address;`
18			`P1LTC: constant Port_Address;`
19			`P1DIR: constant Port_Address;`
20
21			`P2PIN: constant Port_Address;`
22			`P2LTC: constant Port_Address;`
23			`P2DIR: constant Port_Address;`
24
25			`P3PIN: constant Port_Address;`
26			`P3LTC: constant Port_Address;`
27			`P3DIR: constant Port_Address;`
28
29			`private`
30
31			`pragma Inline (Outport, Inport);`
32
33			`P1PIN: constant Port_Address := 16#F860#;`
34			`P1LTC: constant Port_Address := 16#F862#;`
35			`P1DIR: constant Port_Address := 16#F864#;`
36
37			`P2PIN: constant Port_Address := 16#F868#;`
38			`P2LTC: constant Port_Address := 16#F86A#;`
39			`P2DIR: constant Port_Address := 16#F86C#;`
40
41			`P3PIN: constant Port_Address := 16#F870#;`
42			`P3LTC: constant Port_Address := 16#F872#;`
43			`P3DIR: constant Port_Address := 16#F874#;`
44
45			`end I386_Ports;`
46
47

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [lib/] [libbsp/] [i386/] [ts_386ex/] [tools/] [ts_1325_ada/] [i386_ports.ads] - Blame information for rev 609