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

⟦1fde4aecf⟧ TextFile

    Length: 1962 (0x7aa)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

with Profile;
with Tape_Tools;

package Tape_Utils is
    Tape_Error : exception;

    subtype Device is Tape_Tools.Logical_Device;

    type Io_Mode is (To_Tape, From_Tape);

    subtype Format is String;
    R1000 : constant Format := "R1000";
    Vax_Vms : constant Format := "Vax/VMS";

    function Obtain (Mode : Io_Mode;
                     Format : String;
                     Volume : String := "";
                     To_Operator : String := "Thank you";
                     Record_Format : Tape_Tools.Record_Format :=
                        Tape_Tools.Fixed_Length;
                     Record_Length : Natural := 80;
                     Block_Length : Natural := 2000;
                     Response : Profile.Response_Profile := Profile.Get)
                    return Device;
    procedure Release (Tape : Device;
                       Response : Profile.Response_Profile := Profile.Get);

    function Status (Tape : Device) return String renames Tape_Tools.Status;
    function End_Of_Tape (Tape : Device) return Boolean
        renames Tape_Tools.End_Of_Tape;

    procedure Write (Tape : in out Device;
                     Host_Name, Tape_Name : String;
                     Record_Format : Tape_Tools.Record_Format :=
                        Tape_Tools.Fixed_Length;
                     Record_Length : Natural := 80;
                     Response : Profile.Response_Profile := Profile.Get);
    procedure Read (Tape : in out Device;
                    Host_Name : String := "";
                    Response : Profile.Response_Profile := Profile.Get);

    procedure Create (Tape : in out Device; Tape_Name : String);
    procedure Open (Tape : in out Device; Tape_Name : out String);
    procedure Put_Line (Tape : Device; Line : String);
    procedure Get_Line (Tape : Device; Line : out String; Length : out Natural)
        renames Tape_Tools.Get_Line;
    procedure Close (Tape : Device) renames Tape_Tools.Close;
end Tape_Utils;