|
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 Qualit_Generic_Agent, seg_04c7ef
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Slot; generic type Agent_Ids is (<>); Inc_Max : Slot.Object := Slot.Value (3); Inc_Min : Slot.Object := Slot.Value (1); Dec_Max : Slot.Object := Slot.Value (3); Dec_Min : Slot.Object := Slot.Value (1); Max_Up_Value : Slot.Object := Slot.Value (8); Max_Down_Value : Slot.Object := Slot.Value (8); Agent_Id : Agent_Ids; The_Other_Agent : Agent_Ids; with procedure Set_Position (The_Agent : Agent_Ids; Value : Slot.Object) is <>; with function Get_Position (The_Other_Agent : Agent_Ids) return Slot.Object is <>; with procedure Set_Position_Variation (The_Agent : Agent_Ids; Value : Slot.Object) is <>; with procedure Job_Terminated (The_Agent : Agent_Ids) is <>; package Qualit_Generic_Agent is Max_Delta_Y : Slot.Object := Slot.Value (100); Near_Max_Delta_Y : Slot.Object := Slot.Value (70); procedure Go (Pos_To_Reach : Integer); procedure Stop; end Qualit_Generic_Agent;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=19 rec1=00 rec2=01 rec3=034 [0x01] rec0=08 rec1=00 rec2=02 rec3=001 tail 0x217533fd486d876ae461a 0x42a00088462063c03