blob: c27ea646e74ea329667384127e6542c96faae822 (
plain) (
tree)
|
|
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;
|