|
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 - 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