DataMuseum.dk

top - download

    Length: 2896 (0xb50)
    Types: TextFile
    Names: »V«

└─⟦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 System;


package Fstypes is
    -- Max_File_Page : constant := 16#4000#;
    Directory_Size : constant := 2048;
    Fs_Var_String_Len : constant := 80;
    -- type File_Page is range 0 .. Max_File_Page;
    -- type Page_Offset is range 0 .. 511;
    -- type Page_Length is range 1 .. 512;
    -- type Fs_Status is (Fs_Ok, Bad_Filename, File_Does_Not_Exist,
    --                    File_Is_Not_Open, Disk_Full, Directory_Full,
    --                    File_Allready_Exists, Cant_Rename, Cant_Delete,
    --                    Page_Error, Slice_Error, Bad_Address,
    --                    Disk_Error, No_Labels, No_Dos, No_Disk);
    --
    --
    -- type Extent_Descriptor is
    --     record
    --         Length : Integer;
    --         Link : Basetype.Word;
    --     end record;
    -- type File_Pointer is
    --     record
    --         Last_Page : Basetype.Word;
    --         Address : Basetype.Word;
    --     end record;
    -- type File_Pointers is array (0 .. 5) of File_Pointer;
    -- type Fdata is
    --     record
    --         Length : Basetype.Word;
    --         Pointers : File_Pointers;
    --         Creation_Time : Basetype.Fs_Time;
    --         Attributes : Basetype.Machine_Dependant_File_Attributes;
    --     end record;
    -- type Fib is
    --     record
    --         Name : System.Byte_String (1 .. 30);
    --         Hash : Basetype.Word;
    --         Data : Fdata;
    --     end record;
    -- type Fcb;
    -- type Fcbp is access Fcb;
    -- type Fcb is
    --     record
    --         Name : System.Byte_String (1 .. 30);
    --         Hash : Basetype.Word;
    --         Data : Fdata;
    --         Directory_Block : Basetype.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 Matcher_Buffer is array (0 .. 4) of Fib_Block;
    -- type Matcher_Buffer_Ptr is access Matcher_Buffer;
    -- type Raw_Block_Data is array (0 .. 1023) of System.Byte;
    --
    -- type Fs_Handle is
    --     record
    --         Fib_Entry : Fib;
    --         Page : File_Page;
    --         Offset : Page_Offset;
    --         Length : Page_Length;
    --         File_Size : Integer;
    --     end record;

    Rmcs1 : constant Integer := 0;
    Rmcs2 : constant Integer := 1;
    Rmds : constant Integer := 2;
    Rmer1 : constant Integer := 3;
    Rmer2 : constant Integer := 4;
    Rmec1 : constant Integer := 5;
    Rmec2 : constant Integer := 6;
    Rmdc : constant Integer := 7;
    Rmda : constant Integer := 8;
    Rmmr1 : constant Integer := 9;
    Rmmr2 : constant Integer := 10;

    type Disk_Status is array (Rmcs1 .. Rmmr2) of Basetype.Word;

    Fs_Filename_Len : constant := 30;
end Fstypes;