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


1
2
3
4
5
6
7
8
9
10
11
12
13

package body TS1325.Parallel is

   procedure Read_Parallel_Port (Data: out Byte) is
   begin
      Inport (Parallel_Port_In, Data);
   end Read_Parallel_Port;

   procedure Write_Parallel_Port (Data: in Byte) is
   begin
      Outport (Parallel_Port_Out, Data);
   end Write_Parallel_Port;

end TS1325.Parallel;