|
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: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Personnal_Array, seg_033e5d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Personnal_String; package Personnal_Array is Max : constant := 50; subtype Size is Natural range 0 .. Max; type Object is private; procedure Put (The_Tab : in out Object; The_String : Personnal_String.Object); procedure Raz (The_Tab : in out Object); function Value (The_Tab : Object; Index : Positive) return String; function Last (The_Tab : Object) return Natural; private type Personnal_String_Array is array (1 .. Max) of Personnal_String.Object; type Object is record Length : Size := 0; Contains : Personnal_String_Array; end record; end Personnal_Array;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=17 rec1=00 rec2=01 rec3=000 tail 0x2172fdc0284d25ec5abf5 0x42a00088462060003