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 - download
Index: ┃ T V

⟦74bf723ee⟧ TextFile

    Length: 1399 (0x577)
    Types: TextFile
    Names: »V«

Derivation

└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦a5bbbb819⟧ 
                └─⟦this⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦eec0a994f⟧ 
                └─⟦this⟧ 

TextFile

with Basetype;
with Dfs;

use Basetype;
use Dfs;

package Vfslog is
    type Log_Info is array (0 .. 60) of Word;
    type Log_Info_Ptr is access Log_Info;
    type Log_Entry_Kind is (Log_Rh11, Log_Ts11, Log_Ioa, Log_R1000, Log_Iop,
                            Log_Fru, Log_Spare5, Log_Spare6, Log_Spare7,
                            Log_Spare8, Log_Spare9, Log_Spare10, Log_Spare11,
                            Log_Spare12, Log_Spare13, Log_Spare14);

    for Log_Entry_Kind'Size use 8;
    type Log_File_Entry_Form is
        record
            Kind : Log_Entry_Kind; -- 8 bits
            Fill : Byte;
            Time : Fs_Time;
            Data : Log_Info;
        end record;        --  exactly 64 words

    type Offset_Thing is range 0 .. 7;
    for Offset_Thing'Size use 3;
    type Page_Thing is range 0 .. 8191;
    for Page_Thing'Size use 13;

    type Machine_Dependant_Log_Pointer is
        record
            Page : Page_Thing;
            Offset : Offset_Thing;
        end record;

    type Log_Pointer is
        record
            Fptr : Machine_Dependant_Log_Pointer;
        end record;
    type Slop_Thing is array (5 .. 511) of Word;
    type Log_Header_Form is
        record
            Sob : Log_Pointer;
            Eob : Log_Pointer;
            Date_Last_Examined : Fs_Time;
            Look : Log_Pointer;
            Slop : Slop_Thing;
        end record;
end Vfslog;