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

⟦7d241dc10⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Number_Io, seg_04ba6d

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 System;
use System;
with File_Support;
use File_Support;
with Text_Io;
use Text_Io;

package Number_Io is
    -- use largest type for i/o temporaries.
    type Io_Float is digits System.Max_Digits;

    procedure Getnum (Text : String;
                      Item : out Io_Float;
                      Last : out Integer;
                      Error : in out Boolean);
    procedure Getnum (File : in File_Type; Item : out Io_Float);
    procedure Getnum (Text : String;
                      Item : out Integer;
                      Last : out Integer;
                      Error : in out Boolean);
    procedure Getnum (File : in File_Type; Item : out Integer);
    procedure Get_Float
                 (File : in File_Type; Result : out Io_Float; Width : in Field);
    procedure Put_Float (To : out String;
                         Item : in Io_Float;
                         Fore : Integer;
                         Aft : in Field;
                         Exp : in Field;
                         Len : in out Integer);
end Number_Io;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1d rec1=00 rec2=01 rec3=020
        [0x01] rec0=03 rec1=00 rec2=02 rec3=000
    tail 0x21548d5ac86843b9ce786 0x42a00088462060003