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

⟦9aaa1afdf⟧ TextFile

    Length: 913 (0x391)
    Types: TextFile
    Names: »B«

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 Originals;
use Originals;
with Deriveds;
use Deriveds;
with Text_Io;
use Text_Io;
procedure Change_Representation is

    Original : Block :=
       (First => 85, Second => (1 .. 8 => 1, 9 .. 16 => 0), Third => 170);

    Derived : New_Block := New_Block (Original);

    Copy : Block := Block (Derived);

    package Int_Io is new Integer_Io (Integer);
    use Int_Io;

begin

    Put_Line ("Original:");
    Put (Original);
    New_Line;

    Put ("Size = ");
    Put (Original'Size);
    Put_Line (" bits");
    New_Line;

    Put_Line ("Derived:");
    Put (Derived);
    New_Line;

    Put ("Size = ");
    Put (Derived'Size);
    Put_Line (" bits");
    New_Line;

    Put_Line ("Copy:");
    Put (Copy);
    New_Line (2);

    if Copy = Original and Derived'Size = 32 then
        Put_Line ("TEST PASSED!");
    else
        Put_Line ("** TEST FAILED! **");
    end if;

end Change_Representation;