diff options
Diffstat (limited to 'c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads')
-rw-r--r-- | c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads b/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads new file mode 100644 index 0000000000..c27ea646e7 --- /dev/null +++ b/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads @@ -0,0 +1,47 @@ +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; + + |