|
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: 5120 (0x1400) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Byte_Defs, pragma Module_Name 4 2512, pragma Subsystem Network, seg_0284dc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with System; package Byte_Defs is -- This package defines bytes, byte_strings, and their operators. -- They are defined here to facilitate portability: the base types -- are target-dependent, and renaming them here localizes this -- target dependency in a single place. pragma Subsystem (Network, Private_Part => Closed); pragma Module_Name (4, 2512); subtype Byte is System.Byte; -- An unsigned 8-bit value, range 0 .. 255. function "=" (X, Y : Byte) return Boolean renames System."="; function ">" (X, Y : Byte) return Boolean renames System.">"; function "<" (X, Y : Byte) return Boolean renames System."<"; function ">=" (X, Y : Byte) return Boolean renames System.">="; function "<=" (X, Y : Byte) return Boolean renames System."<="; function "+" (X, Y : Byte) return Byte renames System."+"; function "-" (X, Y : Byte) return Byte renames System."-"; function "*" (X, Y : Byte) return Byte renames System."*"; function "/" (X, Y : Byte) return Byte renames System."/"; function "mod" (X, Y : Byte) return Byte renames System."mod"; function "rem" (X, Y : Byte) return Byte renames System."rem"; subtype Byte_String is System.Byte_String; -- An array (integer range <>) of Bytes. function "=" (X, Y : Byte_String) return Boolean renames System."="; function ">" (X, Y : Byte_String) return Boolean renames System.">"; function "<" (X, Y : Byte_String) return Boolean renames System."<"; function ">=" (X, Y : Byte_String) return Boolean renames System.">="; function "<=" (X, Y : Byte_String) return Boolean renames System."<="; function "&" (X, Y : Byte_String) return Byte_String renames System."&"; function "&" (X : Byte; Y : Byte_String) return Byte_String renames System."&"; function "&" (X : Byte_String; Y : Byte) return Byte_String renames System."&"; function "&" (X : Byte; Y : Byte) return Byte_String renames System."&"; end Byte_Defs;
nblk1=4 nid=0 hdr6=8 [0x00] rec0=19 rec1=00 rec2=01 rec3=04c [0x01] rec0=00 rec1=00 rec2=04 rec3=012 [0x02] rec0=14 rec1=00 rec2=02 rec3=03e [0x03] rec0=03 rec1=00 rec2=03 rec3=000 tail 0x217223abc83c17455cf26 0x42a00088462065003