DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦ef3f6a7b2⟧ TextFile

    Length: 1728 (0x6c0)
    Types: TextFile
    Names: »BYTE_DEFS_SPEC«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

with System;
package Byte_Defs is

    -- This package defines bytes, byte_strings, and their operators.

    subtype Byte is System.Unsigned_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.Unsigned_Byte_Array;
    pragma Pack (Byte_String);

    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;