Subversion Repositories openrisc

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;