DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦3db06ae18⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Talk_Utils, seg_02411a

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧

E3 Source Code



package Talk_Utils is

    R_Create : constant := 0;
    R_Put : constant := 1;
    R_Get : constant := 2;
    R_Last_Update : constant := 3;
    R_File_Exists : constant := 4;
    R_Copy : constant := 5;
    R_Delete : constant := 6;
    R_Move : constant := 7;
    R_Ls : constant := 8;
    R_Input_To_Shell : constant := 9;
    R_Signal_To_Shell : constant := 10;
    R_Expunge : constant := 11;
    Nb_Requests : constant := 12;

    F_Disconnect : constant := 0;
    F_Delimitor : constant := 1;
    F_Error : constant := 2;
    F_Is_Directory : constant := 3;
    F_Remote_File : constant := 4;
    F_Content : constant := 5;
    F_To_Remote_File : constant := 6;
    F_From_Remote_File : constant := 7;
    F_In_Seconds : constant := 8;
    F_Exists : constant := 9;
    F_Time : constant := 10;
    F_Of_Remote_File : constant := 11;
    F_Link : constant := 12;
    F_Expunge : constant := 13;
    F_A_Line : constant := 14;
    F_From_Remote_Directory : constant := 15;
    F_Level : constant := 16;
    F_Input : constant := 17;
    F_Signal : constant := 18;
    F_Std_Output : constant := 19;
    F_Std_Error : constant := 20;
    F_Abort : constant := 21;
    F_Continue : constant := 22;
    F_Timeout : constant := 23;
    F_Append : constant := 24;
    F_Create_Dir : constant := 25;
    F_Recursive : constant := 26;
    F_Object : constant := 27;
    F_Options : constant := 28;
    Nb_Fields : constant := 29;

end Talk_Utils;

E3 Meta Data

    nblk1=3
    nid=3
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=024
        [0x01] rec0=11 rec1=00 rec2=02 rec3=000
        [0x02] rec0=04 rec1=00 rec2=03 rec3=000
    tail 0x2151eb776839c3836c248 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 56 80 02 29 3b 02 00 36 20 20 20 20 66  ┆   V  );  6    f┆