c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-parallel.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

with I386_Ports;
use I386_Ports;

package TS1325.Parallel is

   procedure Read_Parallel_Port (Data: out Byte);

   procedure Write_Parallel_Port (Data: in Byte);

private

   pragma Inline (Read_Parallel_Port, Write_Parallel_Port);

   -- These are non-standard IO locations, which is why they are here instead
   -- of in the I386_Ports package.

   Parallel_Port_In: constant Port_Address := 16#75#;

   Parallel_Port_Out: constant Port_Address := 16#74#;

end TS1325.Parallel;