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

⟦bda1a0815⟧ TextFile

    Length: 2868 (0xb34)
    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 System;

package Basetype is
    type Byte is range 0 .. 16#FF#;
    for Byte'Size use 8;

    type Word is range 0 .. 16#FFFF#;
    for Word'Size use 16;

    subtype Address is Word;
    subtype Word_Address is Address;

    Last_Disk_Unit : constant Integer := 15;
    type Disk_Unit_Number is range 0 .. Last_Disk_Unit;

    type Literal_30 is new String (1 .. 30);

    type Sector_Position is
        record
            Cylinder : Word;
            Track : Byte;
            Sector : Byte;
        end record;

    type Year_Type is range 0 .. 127;
    for Year_Type'Size use 7;

    type Month_Type is range 0 .. 15;
    for Month_Type'Size use 4;

    type Day_Type is range 0 .. 31;
    for Day_Type'Size use 5;

    type Fs_Time is
        record
            Time : Word;
            Year : Year_Type;
            Month : Month_Type;
            Day : Day_Type;
        end record;

    type Filler12_Type is range 0 .. 4095;
    for Filler12_Type'Size use 12;
    type Machine_Dependant_File_Attributes is
        record
            Filler : Filler12_Type;    -- 12 bits
            Empty : Boolean;          --  1 bit
            Kernel : Boolean;          --  1 bit
            Prog : Boolean;          --  1 bit
            No_Deletion : Boolean;          --  1 bit
        end record;                     -- 16 bits

    type Iop_Kind is (Unknown, M100, M200);

    type Str_Ptr is
        record
            Length : Natural;
            Chars : String (1 .. 126);
        end record;

    Max_File_Page : constant := 16#4000#;

    type File_Page is range 0 .. Max_File_Page;
    type Page_Offset is range 0 .. 511;
    type Page_Length is range 1 .. 512;

    type Extent_Descriptor is
        record
            Length : Integer;
            Link : Word;
        end record;

    type File_Pointer is
        record
            Last_Page : Word;
            Address : Word;
        end record;

    type File_Pointers is array (0 .. 5) of File_Pointer;

    type Fdata is
        record
            Length : Word;
            Pointers : File_Pointers;
            Creation_Time : Fs_Time;
            Attributes : Machine_Dependant_File_Attributes;
        end record;

    type Fib is
        record
            Name : System.Byte_String (1 .. 30);
            Hash : Word;
            Data : Fdata;
        end record;

    type Fcb;

    type Fcbp is access Fcb;

    type Fcb is
        record
            Name : System.Byte_String (1 .. 30);
            Hash : Word;
            Data : Fdata;
            Directory_Block : Word;
            Dir_Offset : Integer;
            Link : Fcbp;
            Text_Page : File_Page;
            Text_Char : Integer;
            Fcb_Modified : Boolean;
        end record;

    type Fib_Block is array (0 .. 15) of Fib;

    -- type Raw_Block_Data is array (0 .. 1023) of System.Byte;


end Basetype;