|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Fstypes, seg_0286b6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=1d rec1=00 rec2=01 rec3=028
[0x01] rec0=1d rec1=00 rec2=02 rec3=002
[0x02] rec0=1c rec1=00 rec2=03 rec3=044
[0x03] rec0=02 rec1=00 rec2=04 rec3=001
tail 0x2152108ea83c188c65896 0x42a00088462060003