DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦e37e7dacb⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Terminal, pragma Module_Name 4 3925, pragma Subsystem Os_Commands, seg_00638c

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with Default;
with Machine;
with System;
with System_Utilities;

package Terminal is

    subtype Port is Natural range 0 .. 4 * 16 * 16;

    -- valid terminal types
    -- Rational, VT100, Facit

    -- valid terminal rates
    --   DISABLE,     50,     75,    110,
    --   134_5,      150,    200,    300,
    --   600,       1200,   1800,   2400,
    --   4800,      9600,  19200,   EXT_REC_CLK

    subtype Stop_Bits_Range is System_Utilities.Stop_Bits_Range;
    subtype Character_Bits_Range is System_Utilities.Character_Bits_Range;
    subtype Parity_Kind is System_Utilities.Parity_Kind;
    -- None, Even, Odd

    function Current (S : Machine.Session_Id := Default.Session) return Port
        renames System_Utilities.Terminal;

    procedure Settings (Line : Port := Terminal.Current);
    -- print summary of current terminal

    procedure Set_Terminal_Type
                 (Line : Port := Terminal.Current;
                  To_Be : String := System_Utilities.Terminal_Type);

    procedure Set_Input_Rate (Line : Port := Terminal.Current;
                              To_Be : String := System_Utilities.Input_Rate);

    procedure Set_Output_Rate (Line : Port := Terminal.Current;
                               To_Be : String := System_Utilities.Output_Rate);

    procedure Set_Parity (Line : Port := Terminal.Current;
                          To_Be : Parity_Kind := System_Utilities.Parity);

    procedure Set_Stop_Bits (Line : Port := Terminal.Current;
                             To_Be : Stop_Bits_Range :=
                                System_Utilities.Stop_Bits);

    procedure Set_Character_Size (Line : Port := Terminal.Current;
                                  To_Be : Character_Bits_Range :=
                                     System_Utilities.Character_Size);

    procedure Set_Xon_Xoff_Characters
                 (Line : Port := Terminal.Current;
                  Xon_Xoff : String := System_Utilities.Xon_Xoff_Characters);
    -- takes a 2-element string consisting of Xon followed by Xoff

    procedure Set_Xon_Xoff_Bytes (Line : Port := Terminal.Current;
                                  Xon_Xoff : System.Byte_String :=
                                     System_Utilities.Xon_Xoff_Bytes);

    procedure Set_Flow_Control
                 (Line : Port := Terminal.Current;
                  To_Be : String := System_Utilities.Flow_Control);

    procedure Set_Receive_Xon_Xoff_Characters
                 (Line : Port := Terminal.Current;
                  Xon_Xoff : String := System_Utilities.
                                          Receive_Xon_Xoff_Characters);

    procedure Set_Receive_Xon_Xoff_Bytes
                 (Line : Port := Terminal.Current;
                  Xon_Xoff : System.Byte_String :=
                     System_Utilities.Receive_Xon_Xoff_Bytes);

    procedure Set_Receive_Flow_Control
                 (Line : Port := Terminal.Current;
                  To_Be : String := System_Utilities.Receive_Flow_Control);

    procedure Set_Disconnect_On_Disconnect
                 (Line : Port := Terminal.Current;
                  Enabled : Boolean := System_Utilities.
                                          Disconnect_On_Disconnect);

    procedure Set_Logoff_On_Disconnect
                 (Line : Port := Terminal.Current;
                  Enabled : Boolean := System_Utilities.Logoff_On_Disconnect);

    procedure Set_Disconnect_On_Logoff
                 (Line : Port := Terminal.Current;
                  Enabled : Boolean := System_Utilities.Disconnect_On_Logoff);

    procedure Set_Disconnect_On_Failed_Login
                 (Line : Port := Terminal.Current;
                  Enabled : Boolean := System_Utilities.
                                          Disconnect_On_Failed_Login);

    procedure Set_Log_Failed_Logins
                 (Line : Port := Terminal.Current;
                  Enabled : Boolean := System_Utilities.Log_Failed_Logins);

    procedure Set_Login_Disabled
                 (Line : Port := Terminal.Current;
                  Disabled : Boolean := System_Utilities.Login_Disabled);

    procedure Set_Detach_On_Disconnect
                 (Line : Port := Terminal.Current;
                  Enabled : Boolean := System_Utilities.Detach_On_Disconnect);

    pragma Subsystem (Os_Commands);
    pragma Module_Name (4, 3925);
end Terminal;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=21 rec1=00 rec2=01 rec3=034
        [0x01] rec0=15 rec1=00 rec2=02 rec3=046
        [0x02] rec0=16 rec1=00 rec2=03 rec3=040
        [0x03] rec0=17 rec1=00 rec2=04 rec3=004
        [0x04] rec0=0d rec1=00 rec2=05 rec3=000
    tail 0x21501406081bf80723de7 0x42a00088462060003