|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Clone, seg_0503bc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Defined_Type;
with Vme;
generic
Base_Address : Integer;
Vme_Position : Vme.Slot;
Scim_0 : Defined_Type.Module_Vsip;
Scim_1 : Defined_Type.Module_Vsip;
Scim_2 : Defined_Type.Module_Vsip;
Scim_3 : Defined_Type.Module_Vsip;
package Clone is
Default_Reference_Register : exception;
procedure Setup;
function Status (Register : Integer; Number : Positive)
return Defined_Type.Octet;
generic
Base_Address_Module : Integer;
package Mod101 is
type Group is (Group0, Group1, Group2, Group3, Group4, No_Group);
subtype Pin_No is Positive range 1 .. 50;
Pin_Error : exception;
Group_Error : exception;
procedure Setup;
procedure Protection_On;
procedure Protection_Off;
procedure Initialize_Protection;
function Is_Protection_On return Boolean;
procedure Set_Input_Pin (Pin : in Pin_No);
procedure Set_Output_Pin (Pin : in Pin_No);
function Is_Pin_Output (Pin : Pin_No) return Boolean;
procedure Led_On;
procedure Led_Off;
function Is_Led_On return Boolean;
function Read_Pin (Pin : Pin_No) return Boolean;
function Read_Group (Gp : Group) return Defined_Type.Octet;
procedure Write_Pin (Pin : in Pin_No; Status : in Boolean);
procedure Write_Group (Gp : in Group; Value : in Defined_Type.Octet);
end Mod101;
end Clone;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=20 rec1=00 rec2=01 rec3=022
[0x01] rec0=0b rec1=00 rec2=02 rec3=001
tail 0x21757abca877f582d1956 0x42a00088462060003