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

⟦e4aff7b96⟧ Ada Source

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

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



--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
package Perf is

    type Alongs is array (1 .. 8000) of Longint;
    type Plongs is access Alongs;
    type Aints is array (1 .. 8000) of Mac_Types.Integer;
    type Pints is access Aints;
    type Hints is access Pints;

    type Tperfglobals is
        record
            Startrom : Longint;
            Romhits : Longint;
            Misses : Longint;
            Segarray : Plongs;
            Sizearray : Plongs;
            Idarray : Hints;
            Basearray : Plongs;
            Samples : Plongs;
            Buffsize : Longint;
            Timeinterval : Mac_Types.Integer;
            Bucketsize : Mac_Types.Integer;
            Log2bucksize : Mac_Types.Integer;
            Pcoffset : Mac_Types.Integer;
            Nummeasure : Mac_Types.Integer;
            Firstcode : Mac_Types.Integer;
            Takingsamples : Boolean;
            Measurerom : Boolean;
            Measurecode : Boolean;
            Ramseg : Mac_Types.Integer;
            Rambase : Longint;
            Measurerambucketsize : Mac_Types.Integer;
            Measureramlog2bucksize : Mac_Types.Integer;
            Romversion : Mac_Types.Integer;
            Vrefnum : Mac_Types.Integer;
            Volumeselected : Boolean;
            Rptfilename : Str255;
            Rptfilecreator : Str255;
            Rptfiletype : Str255;
            Getrestype : Restype;
        end record;
    type Tp2perfglobals is access Tperfglobals;
    type Vartp2perfglobals is access Tp2perfglobals;

    function Initperf (Theperfglobals : Vartp2perfglobals;
                       Timercount : Mac_Types.Integer;
                       Codeandrombucketsize : Mac_Types.Integer;
                       Dorom : Boolean;
                       Doappcode : Boolean;
                       Appcodetype : Str255;
                       Romid : Mac_Types.Integer;
                       Romname : Str255;
                       Doram : Boolean;
                       Ramlow : Longint;
                       Ramhigh : Longint;
                       Rambucketsize : Mac_Types.Integer) return Boolean;
    pragma Interface (Mpwpascal, Initperf, "INITPERF");

    procedure Termperf (Theperfglobals : Tp2perfglobals);
    pragma Interface (Mpwpascal, Termperf, "TERMPERF");

    function Perfcontrol (Theperfglobals : Tp2perfglobals; Turnon : Boolean)
                         return Boolean;
    pragma Interface (Mpwpascal, Perfcontrol, "PERFCONTROL");

    function Perfdump (Theperfglobals : Tp2perfglobals;
                       Reportfile : Str255;
                       Dohistogram : Boolean;
                       Rptfilecolumns : Mac_Types.Integer)
                      return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Perfdump, "PERFDUMP");

end Perf;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1f rec1=00 rec2=01 rec3=01c
        [0x01] rec0=17 rec1=00 rec2=02 rec3=056
        [0x02] rec0=17 rec1=00 rec2=03 rec3=000
    tail 0x2151d44c483906e103dbb 0x42a00088462060003