|
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, package body Trame, seg_0360a5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with String_Utilities;
use String_Utilities;
package body Trame is
package Int_Io is new Text_Io.Integer_Io (Integer);
Debut_Trame : constant Character := 'D';
Fin_Trame : constant Character := 'F';
procedure Execute_Role (A : Acteur; Ac : Action) is
Valeur : String (1 .. 10);
Inter : Integer;
String_2 : String (1 .. 2) := "00";
String_4 : String (1 .. 4) := "0000";
String_4_Inter : String (1 .. 4);
begin
Valeur (1) := Debut_Trame;
Valeur (10) := Fin_Trame;
for I in 2 .. 9 loop
Valeur (I) := '0';
end loop;
Inter := A.Num_Station;
String_2 := Number_To_String (Inter, 10, 2);
Valeur (2 .. 3) := String_2;
Inter := A.Num_Acteur;
String_2 := Number_To_String (Inter, 10, 2);
Valeur (4 .. 5) := String_2;
Inter := Ac;
String_4_Inter := Number_To_String (Inter, 10, 4);
Int_Io.Put (String_4_Inter'Length);
Text_Io.Put_Line ("");
Valeur ((6 + 4 - String_4_Inter'Length) .. 9) := String_4_Inter;
for I in 1 .. 10 loop
if Valeur (I) = ' ' then
Valeur (I) := '0';
end if;
end loop;
Text_Io.Put_Line (Valeur);
end Execute_Role;
end Trame;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=20 rec1=00 rec2=01 rec3=00a
[0x01] rec0=0c rec1=00 rec2=02 rec3=001
tail 0x2152f753c84dd7c3573ae 0x42a00088462060003