|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package V_Ada_Info, seg_0509b5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
-- Copyright 1987, 1988 Verdix Corporation
----------------------------------------------------------------------
-- This package provides the interface to the ada.lib info directive
-- parameters placed in foo.o by a.ld.
--
-- Parameter constants are derived from rts_names.h in vax.fe project.
----------------------------------------------------------------------
package V_Ada_Info is
pragma Suppress (All_Checks);
pragma Suppress (Exception_Tables);
pragma Not_Elaborated;
--
-- Processor types (TARGET info)
--
Tp_Self : constant := 0;
Tp_Mc68000 : constant := 1;
Tp_Mc68010 : constant := 2;
Tp_Mc68020 : constant := 3;
Tp_Mc68030 : constant := 4;
Tp_Mc68040 : constant := 5;
Tp_I386 : constant := 6;
Tp_Am29000 : constant := 7;
Tp_Am29050 : constant := 8;
Tp_Cpu32 : constant := 9;
Tp_M1750a : constant := 10;
Tp_Ns32032 : constant := 11;
Tp_Sparc : constant := 12;
Tp_Mc88100 : constant := 13;
Tp_R2000 : constant := 14;
Tp_R3000 : constant := 15;
Tp_R4000 : constant := 16;
Tp_Rs6000 : constant := 17;
Tp_I860 : constant := 18;
Tp_Mc88110 : constant := 19;
Tp_Rh32 : constant := 20;
Processor_Type : Integer;
pragma Interface_Name (Processor_Type, "PROCESSOR_TYPE");
--
-- Floating point support types (FLOATING_POINT_SUPPORT info)
--
Fp_Native : constant := 0;
Fp_Software : constant := 1;
Fp_Mc68881 : constant := 2;
Fp_Mc68882 : constant := 3;
Fp_80287 : constant := 4;
Fp_80387 : constant := 5;
Fp_Weitek : constant := 6;
Fp_Am29027 : constant := 7;
Floating_Point_Support : Integer;
pragma Interface_Name (Floating_Point_Support, "FLOATING_POINT_SUPPORT");
end V_Ada_Info;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=20 rec1=00 rec2=01 rec3=004
[0x01] rec0=1c rec1=00 rec2=02 rec3=000
tail 0x2154af6be878e79b19e1a 0x42a00088462060003