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

⟦0a53d16ea⟧ Ada Source

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

Derivation

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

with Connexion_Serie;
with General_Defs;
with Conversion;
with Trame_Serie;

package body Com_Ihm_2 is

    package Port_B is new Connexion_Serie (No_Port => General_Defs.Port_B);

    package Ts is new Trame_Serie (Taille_Trame => 1024,
                                   Numero_Port => General_Defs.Port_B);


    procedure Ecriture (S : String) is
    begin
        Port_B.Ecrire (Conversion.String_To_Bs (S));
    end Ecriture;

    function Lecture return String is
        Trame : General_Defs.Byte_String (1 .. General_Defs.Taille_Trame);
        Taille : Integer;
    begin

        Port_B.Lire (Trame, Taille);

        return Conversion.Bs_To_String (Trame (1 .. Taille));

    end Lecture;

    procedure Initialisation is
    begin  
        null;
    end Initialisation;

end Com_Ihm_2;

    nblk1=a
    nid=6
    hdr6=2
        [0x00] rec0=25 rec1=00 rec2=01 rec3=000
        [0x01] rec0=00 rec1=00 rec2=07 rec3=002
        [0x02] rec0=25 rec1=00 rec2=02 rec3=006
        [0x03] rec0=01 rec1=00 rec2=0a rec3=00c
        [0x04] rec0=20 rec1=00 rec2=04 rec3=04e
        [0x05] rec0=05 rec1=00 rec2=06 rec3=000
        [0x06] rec0=10 rec1=00 rec2=06 rec3=074
        [0x07] rec0=10 rec1=00 rec2=04 rec3=068
        [0x08] rec0=0c rec1=00 rec2=07 rec3=000
        [0x09] rec0=fd rec1=0e rec2=ec rec3=43d
    tail 0x2154b6a58879c58b43154 0x42a00088462060003
Free Block Chain:
  0x6: 0000  00 04 00 24 80 0a 61 6c 69 73 61 74 69 6f 6e 3b  ┆   $  alisation;┆
  0x4: 0000  00 0a 03 fc 80 2f 20 20 45 63 72 69 74 75 72 65  ┆     /  Ecriture┆
  0xa: 0000  00 02 00 4a 80 3e 20 20 20 20 20 2d 2d 53 69 6d  ┆   J >     --Sim┆
  0x2: 0000  00 07 03 fc 80 0f 3a 3d 20 50 6f 72 74 5f 42 2e  ┆      := Port_B.┆
  0x7: 0000  00 05 00 04 80 01 20 01 22 29 3b 05 00 06 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 ad 80 03 6c 65 2c 03 00 3f 20 20 20 20  ┆      le,  ?    ┆
  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 82 80 1a 74 20 3d 3e 20 50 61 72 61 6d  ┆      t => Param┆