|
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, procedure Test_Orb, seg_0554e2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Com_Orb_Recep, Com_Orb_Emet, Com_Storage_Fifo, Com_Storage_Recep,
Com_Defs, Transport_Defs, Bounded_String, Text_Io;
procedure Test_Orb is
Tache_Recep : Com_Orb_Emet.Orb_Emet;
Tache_Emet : Com_Orb_Recep.Orb_Recep;
Chaine_Out : Com_Defs.V_String;
Chaine_In : String (1 .. 11) := "greg norman";
Etat : Boolean;
Adr : Transport_Defs.Host_Id (1 .. 4) := (0, 0, 0, 0);
Appli_Number : Com_Defs.Com_Number := 1;
begin
Bounded_String.Copy
(Bounded_String.Variable_String (Chaine_Out), Chaine_In);
Com_Storage_Fifo.Fifo.Write (Chaine_Out, Adr, Appli_Number);
Chaine_In := "nick faldo ";
Bounded_String.Copy
(Bounded_String.Variable_String (Chaine_Out), Chaine_In);
Com_Storage_Fifo.Fifo.Write (Chaine_Out, Adr, Appli_Number);
Chaine_In := "stephane b ";
Bounded_String.Copy
(Bounded_String.Variable_String (Chaine_Out), Chaine_In);
Com_Storage_Fifo.Fifo.Write (Chaine_Out, Adr, Appli_Number);
loop
Etat := False;
while Etat = False loop
Com_Storage_Recep.Manager_Storage.Read
(Appli_Number, Chaine_Out, Etat);
end loop;
Text_Io.Put_Line ("boite :" & Com_Defs.Image (Chaine_Out));
end loop;
end Test_Orb;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=18 rec1=00 rec2=01 rec3=076
[0x01] rec0=0a rec1=00 rec2=02 rec3=001
tail 0x2175f5dc887bc9e062e19 0x42a00088462060003