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

⟦d1a7c89ef⟧ TextFile

    Length: 6072 (0x17b8)
    Types: TextFile
    Names: »VMS_SPEC«

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 Starlet;
with System;
with Tasking_Services;
with Condition_Handling;
with Unchecked_Conversion;

package Vms is

    subtype Device_Name_Type is Starlet.Device_Name_Type;

    subtype Access_Mode_Type is Starlet.Access_Mode_Type;
    Access_Mode_Zero : constant Access_Mode_Type := Starlet.Access_Mode_Zero;

    subtype Channel_Type is Starlet.Channel_Type;

    subtype Function_Code_Type is Starlet.Function_Code_Type;
    function "=" (X, Y : Function_Code_Type) return Boolean renames System."=";
    function "+" (X, Y : Function_Code_Type) return Function_Code_Type
        renames System."+";
    function "-" (X, Y : Function_Code_Type) return Function_Code_Type
        renames System."-";
    function "*" (X, Y : Function_Code_Type) return Function_Code_Type
        renames System."*";
    function "/" (X, Y : Function_Code_Type) return Function_Code_Type
        renames System."/";
    function "mod" (X, Y : Function_Code_Type) return Function_Code_Type
        renames System."/";
    function "**" (X : Function_Code_Type; Y : Integer)
                  return Function_Code_Type renames System."**";

    subtype Ef_Number_Type is Starlet.Ef_Number_Type;
    Ef_Number_Zero : constant Ef_Number_Type := Starlet.Ef_Number_Zero;

    subtype Address is System.Address;
    Address_Zero : constant Address := System.Address_Zero;

    subtype Unsigned_Longword is System.Unsigned_Longword;
    function "=" (X, Y : Unsigned_Longword) return Boolean renames System."=";
    function "+" (X, Y : Unsigned_Longword) return Unsigned_Longword
        renames System."+";
    function "-" (X, Y : Unsigned_Longword) return Unsigned_Longword
        renames System."-";
    function "*" (X, Y : Unsigned_Longword) return Unsigned_Longword
        renames System."*";
    function "/" (X, Y : Unsigned_Longword) return Unsigned_Longword
        renames System."/";
    function "mod" (X, Y : Unsigned_Longword) return Unsigned_Longword
        renames System."/";
    function "**" (X : Unsigned_Longword; Y : Integer) return Unsigned_Longword
        renames System."**";

    subtype Cond_Value_Type is Condition_Handling.Cond_Value_Type;
    function Image (Status : Cond_Value_Type) return String;
    function Success (Status : Cond_Value_Type) return Boolean;
    function Message_Number (Status : Cond_Value_Type) return Integer;

    Sts_K_Warning : constant := Starlet.Sts_K_Warning;
    Sts_K_Error : constant := Starlet.Sts_K_Error;
    Sts_K_Success : constant := Starlet.Sts_K_Success;
    Sts_K_Info : constant := Starlet.Sts_K_Info;
    Sts_K_Severe : constant := Starlet.Sts_K_Severe;

    subtype Iosb_Type is Starlet.Iosb_Type;
    function Image (Iosb : Vms.Iosb_Type) return String;

    Io_Writevblk : constant Function_Code_Type := 16#0030#;
    Io_Readvblk : constant Function_Code_Type := 16#0031#;
    Io_Access : constant Function_Code_Type := 16#0032#;
    Io_Create : constant Function_Code_Type := 16#0033#;
    Io_Deaccess : constant Function_Code_Type := 16#0034#;
    Io_Delete : constant Function_Code_Type := 16#0035#;
    Io_Modify : constant Function_Code_Type := 16#0036#;
    Io_Readprompt : constant Function_Code_Type := 16#0037#;

    procedure Qiow (Status : out Cond_Value_Type;
                    Efn : in Ef_Number_Type := Ef_Number_Zero;
                    Chan : in Channel_Type;
                    Func : in Function_Code_Type;
                    Iosb : in Address := Address_Zero;
                    P1 : in Unsigned_Longword := 0;
                    P2 : in Unsigned_Longword := 0;
                    P3 : in Unsigned_Longword := 0;
                    P4 : in Unsigned_Longword := 0;
                    P5 : in Unsigned_Longword := 0;
                    P6 : in Unsigned_Longword := 0);

    procedure Assign (Status : out Cond_Value_Type;
                      Devnam : in Device_Name_Type;
                      Chan : out Channel_Type);

    procedure Assign (Status : out Cond_Value_Type;
                      Devnam : in Device_Name_Type;
                      Chan : out Channel_Type;
                      Acmode : in Access_Mode_Type);

    procedure Assign (Status : out Cond_Value_Type;
                      Devnam : in Device_Name_Type;
                      Chan : out Channel_Type;
                      Mbxnam : in Device_Name_Type);

    procedure Assign (Status : out Cond_Value_Type;
                      Devnam : in Device_Name_Type;
                      Chan : out Channel_Type;
                      Acmode : in Access_Mode_Type;
                      Mbxnam : in Device_Name_Type);

    procedure Dassgn (Status : out Cond_Value_Type;  -- return value
                      Chan : in Channel_Type);

    function To_Unsigned_Longword is new Unchecked_Conversion
                                            (System.Address, Unsigned_Longword);

    function To_Byte_Count (Size : Unsigned_Longword) return Unsigned_Longword;

    subtype Unsigned_Longword_Array is System.Unsigned_Longword_Array;

    subtype User_Arg_Type is Starlet.User_Arg_Type;
    User_Arg_Zero : constant User_Arg_Type := Starlet.User_Arg_Zero;

    procedure Putmsg (Status : out
                         Cond_Value_Type;                 -- return value
                      Msgvec : in Unsigned_Longword_Array;
                      Actrtn : in Address := Address_Zero;
                      Facnam : in String := "";
                      Actprm : in User_Arg_Type := User_Arg_Zero);

    procedure Put_Msg (Status : out Cond_Value_Type;
                       Descriptors : Unsigned_Longword_Array;
                       Include_Message_Text : Boolean := True;
                       Include_Mnemonic_Name : Boolean := True;
                       Include_Severity_Level : Boolean := True;
                       Include_Facility_Prefix : Boolean := True;
                       Actrtn : in Address := Address_Zero;
                       Facnam : in String := "";
                       Actprm : in User_Arg_Type := User_Arg_Zero);

    procedure Put_Msg (Status : Cond_Value_Type);

end Vms;