|
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 - metrics - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Jouer, seg_039176, seg_0392d1, seg_039330, separate Motor
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
separate (Motor)
procedure Jouer (Nom_Du_Fichier_Physique : String) is
Un_Evenement : Evenement;
Running : Boolean := False;
Done : Boolean := False;
task Menu is
entry Open;
entry Beep;
entry Close;
end Menu;
task Envoi_Message is
entry Debut;
entry Stop;
entry Pause;
entry Jouer;
end Envoi_Message;
task Espion is
end Espion;
task body Espion is separate;
task body Envoi_Message is separate;
task body Menu is separate;
procedure Afficher_Evenement_Courant (Source : Evenement) is separate;
begin
Menu.Open;
while not Done loop
while Running and then (not Codes_Io.End_Of_File
(Nom_Du_Fichier_Logique)) loop
Codes_Io.Read (Nom_Du_Fichier_Logique, Un_Evenement);
Afficher_Evenement_Courant (Un_Evenement);
if Un_Evenement.Date_Relative /= 0 then
Attendre (Un_Evenement);
end if;
Envoyer_Trame (Un_Evenement);
if Codes_Io.Is_Open (Nom_Du_Fichier_Logique) and then
Codes_Io.End_Of_File (Nom_Du_Fichier_Logique) then
Envoi_Message.Stop;
abort Espion;
end if;
end loop;
end loop;
Menu.Close;
end Jouer;
nblk1=6
nid=2
hdr6=4
[0x00] rec0=29 rec1=00 rec2=01 rec3=034
[0x01] rec0=0e rec1=00 rec2=04 rec3=000
[0x02] rec0=09 rec1=00 rec2=04 rec3=000
[0x03] rec0=1d rec1=00 rec2=03 rec3=082
[0x04] rec0=0f rec1=00 rec2=02 rec3=000
[0x05] rec0=42 rec1=70 rec2=3f rec3=0aa
tail 0x2153215f084eb48d5115c 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 03 03 fc 80 07 72 20 3a 20 22 29 3b 07 00 40 ┆ r : "); @┆
0x3: 0000 00 06 00 bb 80 11 72 5f 4c 6f 67 69 71 75 65 29 ┆ r_Logique)┆
0x6: 0000 00 05 03 fc 80 0a 65 6e 64 20 44 65 62 75 74 3b ┆ end Debut;┆
0x5: 0000 00 00 03 fc 80 12 6e 76 6f 69 5f 4d 65 73 73 61 ┆ nvoi_Messa┆