|
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: 5120 (0x1400) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Vsip, seg_05b81d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Byte_Tools; with Module_Type; with Vme; generic Base_Address : Integer; Vme_Position : Vme.Slot; Scim_0 : Module_Type.Module_Vsip; Scim_1 : Module_Type.Module_Vsip; Scim_2 : Module_Type.Module_Vsip; Scim_3 : Module_Type.Module_Vsip; package Vsip is Default_Reference_Register : exception; procedure Setup; function Status (Register : in Integer; Number : in Positive) return Byte_Tools.Byte_As_Number; 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_Connector; 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 : in Pin_No) return Boolean; procedure Led_On; procedure Led_Off; function Is_Led_On return Boolean; function Read_Pin (Pin : in Pin_No) return Boolean; function Read_Group (Gp : in Group) return Byte_Tools.Byte_As_Number; procedure Write_Pin (Pin : in Pin_No; Status : in Boolean); procedure Write_Group (Gp : in Group; Value : in Byte_Tools.Byte_As_Number); end Mod101; end Vsip;
nblk1=4 nid=2 hdr6=4 [0x00] rec0=22 rec1=00 rec2=01 rec3=04e [0x01] rec0=0e rec1=00 rec2=04 rec3=000 [0x02] rec0=16 rec1=00 rec2=02 rec3=03e [0x03] rec0=0b rec1=00 rec2=03 rec3=000 tail 0x2176afd1a894b4e6e455c 0x42a00088462060003 Free Block Chain: 0x2: 0000 00 03 03 fc 80 21 53 65 74 5f 4f 75 74 70 75 74 ┆ !Set_Output┆ 0x3: 0000 00 00 01 3a 80 18 72 72 61 79 20 28 31 20 2e 2e ┆ : rray (1 ..┆