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 | 45 |
1 files changed, 0 insertions, 45 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 deleted file mode 100644 index 44090c4f4b..0000000000 --- a/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads +++ /dev/null @@ -1,45 +0,0 @@ -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; |