|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Jouer, seg_039078, separate Motor
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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;
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);
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=3
hdr6=4
[0x00] rec0=29 rec1=00 rec2=01 rec3=052
[0x01] rec0=0b rec1=00 rec2=02 rec3=000
[0x02] rec0=0f rec1=00 rec2=02 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 0x215304bc284e07f37e631 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 04 03 fc 00 24 20 20 20 20 20 20 20 20 20 20 ┆ $ ┆
0x4: 0000 00 06 00 97 80 1c 69 6e 64 6f 77 20 3a 20 57 69 ┆ indow : Wi┆
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┆