|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Perf, seg_021fd9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
-- 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;
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