|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 906 (0x38a)
Types: TextFile
Names: »V«
└─⟦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⟧
--
-- Version: @(#)derived.ada 1.2 Date: 7/2/84
--
-- Author: Bryce Bardin
-- Ada Projects Section
-- Software Engineering Division
-- Ground Systems Group
-- Hughes Aircraft Company
-- Fullerton, CA
--
-- This program tests the inter-conversion of derived types with
-- different representations. An approriate message is output to
-- indicate "pass" or "fail".
--
--
-- Define the original types:
with Text_Io;
use Text_Io;
package Originals is
type Bit is range 0 .. 1;
type Bit_String is array (Positive range <>) of Bit;
subtype Word is Bit_String (1 .. 16);
type Byte is range 0 .. 255;
type Block is
record
First : Byte;
Second : Word;
Third : Byte;
end record;
package Byte_Io is new Integer_Io (Byte);
use Byte_Io;
procedure Put (B : Block);
end Originals;