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

⟦91c1a7a3e⟧ Ada Source

    Length: 11264 (0x2c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Com_Ihm_2, seg_0515b4

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



with Tp.Dess_95.Serial_Io.Mc68k_Working.Units.Connexion_Serie;
package body Com_Ihm_2 is

    procedure Ecriture (S : String) is
    begin
        [statement]
    end Ecriture;

    function Lecture return String is
    begin
        [statement]
    end Lecture;

    procedure Initialisation is
    begin
        [statement]
    end Initialisation;

end Com_Ihm_2;

E3 Meta Data

    nblk1=a
    nid=7
    hdr6=2
        [0x00] rec0=15 rec1=00 rec2=01 rec3=000
        [0x01] rec0=01 rec1=00 rec2=03 rec3=004
        [0x02] rec0=1f rec1=00 rec2=08 rec3=048
        [0x03] rec0=04 rec1=00 rec2=09 rec3=08c
        [0x04] rec0=17 rec1=00 rec2=05 rec3=018
        [0x05] rec0=13 rec1=00 rec2=02 rec3=00e
        [0x06] rec0=03 rec1=00 rec2=0a rec3=034
        [0x07] rec0=10 rec1=00 rec2=06 rec3=074
        [0x08] rec0=10 rec1=00 rec2=04 rec3=068
        [0x09] rec0=0c rec1=00 rec2=07 rec3=001
    tail 0x2154b41f0879a59e910d7 0x42a00088462060003
Free Block Chain:
  0x7: 0000  00 04 00 c7 80 22 68 6d 5f 36 38 2e 43 72 65 61  ┆     "hm_68.Crea┆
  0x4: 0000  00 06 03 fc 80 0b 72 74 65 5f 47 72 6f 75 70 65  ┆      rte_Groupe┆
  0x6: 0000  00 0a 03 fc 80 24 20 20 20 54 79 70 65 5f 4f 62  ┆     $   Type_Ob┆
  0xa: 0000  00 02 00 29 80 09 43 72 65 61 74 69 6f 6e 2c 09  ┆   )  Creation, ┆
  0x2: 0000  00 05 03 fc 80 22 20 20 20 20 20 20 20 20 20 20  ┆     "          ┆
  0x5: 0000  00 09 03 fc 80 07 6d 65 74 72 65 29 3b 07 00 19  ┆      metre);   ┆
  0x9: 0000  00 08 00 ac 80 02 65 2c 02 00 3f 20 20 20 20 20  ┆      e,  ?     ┆
  0x8: 0000  00 03 03 fc 80 20 20 20 4a 6a 5f 48 68 5f 4d 6d  ┆        Jj_Hh_Mm┆
  0x3: 0000  00 00 00 05 00 02 20 20 02 3e 20 50 61 72 61 6d  ┆         > Param┆