|
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 - metrics - download
Length: 2048 (0x800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package System, seg_0221d6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
package System is -- for integer'size use 32; type Address is new Integer; -- for address'size use 4*storage_unit; type Name is (M68000); System_Name : constant Name := M68000; Storage_Unit : constant := 8; Memory_Size : constant := 1024; -- System-Dependent Named Numbers: Min_Int : constant := -(2 ** 31); Max_Int : constant := (2 ** 31) - 1; Max_Digits : constant := 15; Max_Mantissa : constant := 31; Fine_Delta : constant := 2.0 ** (-31); Tick : constant := 1.0; -- Other System-dependent Declarations subtype Priority is Integer range 1 .. 20; end System;
nblk1=1 nid=0 hdr6=2 [0x00] rec0=21 rec1=00 rec2=01 rec3=001 tail 0x2151d5f84839147390715 0x42a00088462060003