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

⟦a2b422705⟧ Ada Source

    Length: 16384 (0x4000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Rational_Key_Names, seg_0128a8

Derivation

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

E3 Source Code



package Rational_Key_Names is
------------------------------------------------------------------------------
--  Names of the keystokes possible on a Rational keyboard as recognized by an
--  R1000.
------------------------------------------------------------------------------

    type Key_Names is  
       (

----First the normal printing Ascii characters.

        ' ', '!', '"', '#', '$', '%', '&', ''',
        '(', ')', '*', '+', ',', '-', '.', '/',

        '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',

        ':', ';', '<', '=', '>', '?', '@',

        'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
        'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',

        '[', '\', ']', '^', '_', '`',

        'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
        'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',

        '{', '|', '}', '~',

----Named keys from the keyboard.

        Tab,  
        Delete,  
        Carriage_Return,

        F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11,
        F12, F13, F14, F15, F16, F17, F18, F19, F20,

        Word,  
        Line,  
        Window,  
        Image,  
        Region,  
        Object,  
        Mark,  
        Begin_Of,  
        End_Of,

        Promot,  
        Complt,  
        Format,

        Numeric_0, Numeric_1, Numeric_2, Numeric_3, Numeric_4,
        Numeric_5, Numeric_6, Numeric_7, Numeric_8, Numeric_9,

        Dash, Dot, Enter, Numeric_Comma,

        Up, Down, Left, Right,

----Shifted versions of the named keys.

        S_Tab,  
        S_Delete,  
        S_Carriage_Return,  
        S_Space,

        S_F1, S_F2, S_F3, S_F4, S_F5, S_F6, S_F7, S_F8, S_F9, S_F10, S_F11,
        S_F12, S_F13, S_F14, S_F15, S_F16, S_F17, S_F18, S_F19, S_F20,

        S_Word,  
        S_Line,  
        S_Window,  
        S_Image,  
        S_Region,  
        S_Object,  
        S_Mark,  
        S_Begin_Of,  
        S_End_Of,

        S_Promot,  
        S_Complt,  
        S_Format,

        S_Numeric_0, S_Numeric_1, S_Numeric_2, S_Numeric_3, S_Numeric_4,
        S_Numeric_5, S_Numeric_6, S_Numeric_7, S_Numeric_8, S_Numeric_9,

        S_Dash, S_Dot, S_Enter, S_Numeric_Comma,

        S_Up, S_Down, S_Left, S_Right,

----Control versions of all keys.

        C_Grave,  
        C_Minus,  
        C_Equal,  
        C_Semicolon,  
        C_Tick,  
        C_Underline,  
        C_Comma,  
        C_Period,

        C_0, C_1, C_2, C_3, C_4, C_5, C_6, C_7, C_8, C_9,

        C_A, C_B, C_C, C_D, C_E, C_F, C_G, C_H, C_I, C_J, C_K, C_L, C_M,
        C_N, C_O, C_P, C_Q, C_R, C_S, C_T, C_U, C_V, C_W, C_X, C_Y, C_Z,

        C_Left_Bracket,  
        C_Right_Bracket,  
        C_Quote,  
        C_Slash,

        C_Delete,  
        C_Tab,  
        C_Carriage_Return,  
        C_Space,

        C_F1, C_F2, C_F3, C_F4, C_F5, C_F6, C_F7, C_F8, C_F9, C_F10, C_F11,
        C_F12, C_F13, C_F14, C_F15, C_F16, C_F17, C_F18, C_F19, C_F20,

        C_Word,  
        C_Line,  
        C_Window,  
        C_Image,  
        C_Region,  
        C_Object,  
        C_Mark,  
        C_Begin_Of,  
        C_End_Of,

        C_Promot,  
        C_Complt,  
        C_Format,

        C_Numeric_0, C_Numeric_1, C_Numeric_2, C_Numeric_3, C_Numeric_4,
        C_Numeric_5, C_Numeric_6, C_Numeric_7, C_Numeric_8, C_Numeric_9,

        C_Dash, C_Dot, C_Enter, C_Numeric_Comma,

        C_Up, C_Down, C_Left, C_Right,

----Meta versions of all keys.

        M_Grave,  
        M_Minus,  
        M_Equal,  
        M_Semicolon,  
        M_Tick,  
        M_Underline,  
        M_Comma,  
        M_Period,

        M_0, M_1, M_2, M_3, M_4, M_5, M_6, M_7, M_8, M_9,

        M_A, M_B, M_C, M_D, M_E, M_F, M_G, M_H, M_I, M_J, M_K, M_L, M_M,
        M_N, M_O, M_P, M_Q, M_R, M_S, M_T, M_U, M_V, M_W, M_X, M_Y, M_Z,

        M_Left_Bracket,  
        M_Right_Bracket,  
        M_Quote,  
        M_Slash,

        M_Delete,  
        M_Tab,  
        M_Carriage_Return,  
        M_Space,

        M_F1, M_F2, M_F3, M_F4, M_F5, M_F6, M_F7, M_F8, M_F9, M_F10, M_F11,
        M_F12, M_F13, M_F14, M_F15, M_F16, M_F17, M_F18, M_F19, M_F20,

        M_Word,  
        M_Line,  
        M_Window,  
        M_Image,  
        M_Region,  
        M_Object,  
        M_Mark,  
        M_Begin_Of,  
        M_End_Of,

        M_Promot,  
        M_Complt,  
        M_Format,

        M_Numeric_0, M_Numeric_1, M_Numeric_2, M_Numeric_3, M_Numeric_4,
        M_Numeric_5, M_Numeric_6, M_Numeric_7, M_Numeric_8, M_Numeric_9,

        M_Dash, M_Dot, M_Enter, M_Numeric_Comma,

        M_Up, M_Down, M_Left, M_Right,

----Control-Shift version of all keys.

        C_Tilde,  
        Cs_Minus,  
        C_Plus,  
        C_Colon,  
        Cs_Tick,  
        C_Backslash,  
        C_Less_Than,  
        C_Greater_Than,

        C_Exclam,  
        C_At_Sign,  
        C_Sharp,  
        C_Dollar,  
        C_Percent,  
        C_Circumflex,  
        C_Ampersand,  
        C_Star,  
        C_Left_Paren,  
        C_Right_Paren,

        Cs_A, Cs_B, Cs_C, Cs_D, Cs_E, Cs_F, Cs_G, Cs_H, Cs_I,
        Cs_J, Cs_K, Cs_L, Cs_M, Cs_N, Cs_O, Cs_P, Cs_Q, Cs_R,
        Cs_S, Cs_T, Cs_U, Cs_V, Cs_W, Cs_X, Cs_Y, Cs_Z,

        C_Left_Brace,  
        C_Right_Brace,  
        C_Bar,  
        C_Query,

        Cs_Delete,  
        Cs_Tab,  
        Cs_Carriage_Return,  
        Cs_Space,

        Cs_F1, Cs_F2, Cs_F3, Cs_F4, Cs_F5, Cs_F6, Cs_F7,
        Cs_F8, Cs_F9, Cs_F10, Cs_F11, Cs_F12, Cs_F13, Cs_F14,
        Cs_F15, Cs_F16, Cs_F17, Cs_F18, Cs_F19, Cs_F20,

        Cs_Word,  
        Cs_Line,  
        Cs_Window,  
        Cs_Image,  
        Cs_Region,  
        Cs_Object,  
        Cs_Mark,  
        Cs_Begin_Of,  
        Cs_End_Of,

        Cs_Promot,  
        Cs_Complt,  
        Cs_Format,

        Cs_Numeric_0, Cs_Numeric_1, Cs_Numeric_2, Cs_Numeric_3, Cs_Numeric_4,
        Cs_Numeric_5, Cs_Numeric_6, Cs_Numeric_7, Cs_Numeric_8, Cs_Numeric_9,

        Cs_Dash, Cs_Dot, Cs_Enter, Cs_Numeric_Comma,

        Cs_Up, Cs_Down, Cs_Left, Cs_Right,

----Meta-Shift version of all keys.

        M_Tilde,  
        Ms_Minus,  
        M_Plus,  
        M_Colon,  
        Ms_Tick,  
        M_Backslash,  
        M_Less_Than,  
        M_Greater_Than,

        M_Exclam,  
        M_At_Sign,  
        M_Sharp,  
        M_Dollar,  
        M_Percent,  
        M_Circumflex,  
        M_Ampersand,  
        M_Star,  
        M_Left_Paren,  
        M_Right_Paren,

        Ms_A, Ms_B, Ms_C, Ms_D, Ms_E, Ms_F, Ms_G, Ms_H, Ms_I,
        Ms_J, Ms_K, Ms_L, Ms_M, Ms_N, Ms_O, Ms_P, Ms_Q, Ms_R,
        Ms_S, Ms_T, Ms_U, Ms_V, Ms_W, Ms_X, Ms_Y, Ms_Z,

        M_Left_Brace,  
        M_Right_Brace,  
        M_Bar,  
        M_Query,

        Ms_Delete,  
        Ms_Tab,  
        Ms_Carriage_Return,  
        Ms_Space,

        Ms_F1, Ms_F2, Ms_F3, Ms_F4, Ms_F5, Ms_F6, Ms_F7,
        Ms_F8, Ms_F9, Ms_F10, Ms_F11, Ms_F12, Ms_F13, Ms_F14,
        Ms_F15, Ms_F16, Ms_F17, Ms_F18, Ms_F19, Ms_F20,

        Ms_Word,  
        Ms_Line,  
        Ms_Window,  
        Ms_Image,  
        Ms_Region,  
        Ms_Object,  
        Ms_Mark,  
        Ms_Begin_Of,  
        Ms_End_Of,

        Ms_Promot,  
        Ms_Complt,  
        Ms_Format,

        Ms_Numeric_0, Ms_Numeric_1, Ms_Numeric_2, Ms_Numeric_3, Ms_Numeric_4,
        Ms_Numeric_5, Ms_Numeric_6, Ms_Numeric_7, Ms_Numeric_8, Ms_Numeric_9,

        Ms_Dash, Ms_Dot, Ms_Enter, Ms_Numeric_Comma,

        Ms_Up, Ms_Down, Ms_Left, Ms_Right,

----Control-Meta versions of all keys.

        Cm_Grave,  
        Cm_Minus,  
        Cm_Equal,  
        Cm_Semicolon,  
        Cm_Tick,  
        Cm_Underline,  
        Cm_Comma,  
        Cm_Period,

        Cm_0, Cm_1, Cm_2, Cm_3, Cm_4, Cm_5, Cm_6, Cm_7, Cm_8, Cm_9,

        Cm_A, Cm_B, Cm_C, Cm_D, Cm_E, Cm_F, Cm_G, Cm_H, Cm_I,
        Cm_J, Cm_K, Cm_L, Cm_M, Cm_N, Cm_O, Cm_P, Cm_Q, Cm_R,
        Cm_S, Cm_T, Cm_U, Cm_V, Cm_W, Cm_X, Cm_Y, Cm_Z,

        Cm_Left_Bracket,  
        Cm_Right_Bracket,  
        Cm_Quote,  
        Cm_Slash,

        Cm_Delete,  
        Cm_Tab,  
        Cm_Carriage_Return,  
        Cm_Space,

        Cm_F1, Cm_F2, Cm_F3, Cm_F4, Cm_F5, Cm_F6, Cm_F7,
        Cm_F8, Cm_F9, Cm_F10, Cm_F11, Cm_F12, Cm_F13, Cm_F14,
        Cm_F15, Cm_F16, Cm_F17, Cm_F18, Cm_F19, Cm_F20,

        Cm_Word,  
        Cm_Line,  
        Cm_Window,  
        Cm_Image,  
        Cm_Region,  
        Cm_Object,  
        Cm_Mark,  
        Cm_Begin_Of,  
        Cm_End_Of,

        Cm_Promot,  
        Cm_Complt,  
        Cm_Format,

        Cm_Numeric_0, Cm_Numeric_1, Cm_Numeric_2, Cm_Numeric_3, Cm_Numeric_4,
        Cm_Numeric_5, Cm_Numeric_6, Cm_Numeric_7, Cm_Numeric_8, Cm_Numeric_9,

        Cm_Dash, Cm_Dot, Cm_Enter, Cm_Numeric_Comma,

        Cm_Up, Cm_Down, Cm_Left, Cm_Right,

----Control-Meta-Shift version of all keys.

        Cm_Tilde,  
        Cms_Minus,  
        Cm_Plus,  
        Cm_Colon,  
        Cms_Tick,  
        Cm_Backslash,  
        Cm_Less_Than,  
        Cm_Greater_Than,

        Cm_Exclam,  
        Cm_At_Sign,  
        Cm_Sharp,  
        Cm_Dollar,  
        Cm_Percent,  
        Cm_Circumflex,  
        Cm_Ampersand,  
        Cm_Star,  
        Cm_Left_Paren,  
        Cm_Right_Paren,

        Cms_A, Cms_B, Cms_C, Cms_D, Cms_E, Cms_F, Cms_G, Cms_H, Cms_I,
        Cms_J, Cms_K, Cms_L, Cms_M, Cms_N, Cms_O, Cms_P, Cms_Q, Cms_R,
        Cms_S, Cms_T, Cms_U, Cms_V, Cms_W, Cms_X, Cms_Y, Cms_Z,

        Cm_Left_Brace,  
        Cm_Right_Brace,  
        Cm_Bar,  
        Cm_Query,

        Cms_Delete,  
        Cms_Tab,  
        Cms_Carriage_Return,  
        Cms_Space,

        Cms_F1, Cms_F2, Cms_F3, Cms_F4, Cms_F5, Cms_F6, Cms_F7,
        Cms_F8, Cms_F9, Cms_F10, Cms_F11, Cms_F12, Cms_F13, Cms_F14,
        Cms_F15, Cms_F16, Cms_F17, Cms_F18, Cms_F19, Cms_F20,

        Cms_Word,  
        Cms_Line,  
        Cms_Window,  
        Cms_Image,  
        Cms_Region,  
        Cms_Object,  
        Cms_Mark,  
        Cms_Begin_Of,  
        Cms_End_Of,

        Cms_Promot,  
        Cms_Complt,  
        Cms_Format,

        Cms_Numeric_0, Cms_Numeric_1, Cms_Numeric_2, Cms_Numeric_3,
        Cms_Numeric_4, Cms_Numeric_5, Cms_Numeric_6,
        Cms_Numeric_7, Cms_Numeric_8, Cms_Numeric_9,

        Cms_Dash, Cms_Dot, Cms_Enter, Cms_Numeric_Comma,

        Cms_Up, Cms_Down, Cms_Left, Cms_Right);


----Convenience names.  Aliases for Control-Shift keys.

    Cs_Grave : constant Key_Names := C_Tilde;  
    Cs_Underline : constant Key_Names := C_Backslash;
    Cs_Equal : constant Key_Names := C_Plus;  
    Cs_Semicolon : constant Key_Names := C_Colon;  
    Cs_0 : constant Key_Names := C_Right_Paren;  
    Cs_1 : constant Key_Names := C_Exclam;  
    Cs_2 : constant Key_Names := C_At_Sign;  
    Cs_3 : constant Key_Names := C_Sharp;  
    Cs_4 : constant Key_Names := C_Dollar;  
    Cs_5 : constant Key_Names := C_Percent;  
    Cs_6 : constant Key_Names := C_Circumflex;
    Cs_7 : constant Key_Names := C_Ampersand;  
    Cs_8 : constant Key_Names := C_Star;  
    Cs_9 : constant Key_Names := C_Left_Paren;
    Cs_Slash : constant Key_Names := C_Query;  
    Cs_Left_Bracket : constant Key_Names := C_Left_Brace;  
    Cs_Quote : constant Key_Names := C_Bar;  
    Cs_Right_Bracket : constant Key_Names := C_Right_Brace;  
    Cs_Period : constant Key_Names := C_Greater_Than;  
    Cs_Comma : constant Key_Names := C_Less_Than;

----Convenience names.  Aliases for Meta-Shift keys.

    Ms_Grave : constant Key_Names := M_Tilde;  
    Ms_Underline : constant Key_Names := M_Backslash;
    Ms_Equal : constant Key_Names := M_Plus;  
    Ms_Semicolon : constant Key_Names := M_Colon;  
    Ms_0 : constant Key_Names := M_Right_Paren;  
    Ms_1 : constant Key_Names := M_Exclam;  
    Ms_2 : constant Key_Names := M_At_Sign;  
    Ms_3 : constant Key_Names := M_Sharp;  
    Ms_4 : constant Key_Names := M_Dollar;  
    Ms_5 : constant Key_Names := M_Percent;  
    Ms_6 : constant Key_Names := M_Circumflex;
    Ms_7 : constant Key_Names := M_Ampersand;  
    Ms_8 : constant Key_Names := M_Star;  
    Ms_9 : constant Key_Names := M_Left_Paren;
    Ms_Slash : constant Key_Names := M_Query;  
    Ms_Left_Bracket : constant Key_Names := M_Left_Brace;  
    Ms_Quote : constant Key_Names := M_Bar;  
    Ms_Right_Bracket : constant Key_Names := M_Right_Brace;  
    Ms_Period : constant Key_Names := M_Greater_Than;  
    Ms_Comma : constant Key_Names := M_Less_Than;

----Convenience names.  Aliases for Control-Meta-Shift keys.

    Cms_Grave : constant Key_Names := Cm_Tilde;  
    Cms_Underline : constant Key_Names := Cm_Backslash;
    Cms_Equal : constant Key_Names := Cm_Plus;  
    Cms_Semicolon : constant Key_Names := Cm_Colon;  
    Cms_0 : constant Key_Names := Cm_Right_Paren;  
    Cms_1 : constant Key_Names := Cm_Exclam;  
    Cms_2 : constant Key_Names := Cm_At_Sign;  
    Cms_3 : constant Key_Names := Cm_Sharp;  
    Cms_4 : constant Key_Names := Cm_Dollar;  
    Cms_5 : constant Key_Names := Cm_Percent;  
    Cms_6 : constant Key_Names := Cm_Circumflex;
    Cms_7 : constant Key_Names := Cm_Ampersand;  
    Cms_8 : constant Key_Names := Cm_Star;  
    Cms_9 : constant Key_Names := Cm_Left_Paren;
    Cms_Slash : constant Key_Names := Cm_Query;  
    Cms_Left_Bracket : constant Key_Names := Cm_Left_Brace;  
    Cms_Quote : constant Key_Names := Cm_Bar;  
    Cms_Right_Bracket : constant Key_Names := Cm_Right_Brace;  
    Cms_Period : constant Key_Names := Cm_Greater_Than;  
    Cms_Comma : constant Key_Names := Cm_Less_Than;

end Rational_Key_Names;

E3 Meta Data

    nblk1=f
    nid=0
    hdr6=1e
        [0x00] rec0=1e rec1=00 rec2=01 rec3=042
        [0x01] rec0=2c rec1=00 rec2=02 rec3=00a
        [0x02] rec0=28 rec1=00 rec2=03 rec3=028
        [0x03] rec0=28 rec1=00 rec2=04 rec3=054
        [0x04] rec0=27 rec1=00 rec2=05 rec3=004
        [0x05] rec0=27 rec1=00 rec2=06 rec3=01a
        [0x06] rec0=2a rec1=00 rec2=07 rec3=060
        [0x07] rec0=25 rec1=00 rec2=08 rec3=00c
        [0x08] rec0=25 rec1=00 rec2=09 rec3=016
        [0x09] rec0=28 rec1=00 rec2=0a rec3=01a
        [0x0a] rec0=23 rec1=00 rec2=0b rec3=020
        [0x0b] rec0=18 rec1=00 rec2=0c rec3=008
        [0x0c] rec0=15 rec1=00 rec2=0d rec3=05c
        [0x0d] rec0=15 rec1=00 rec2=0e rec3=056
        [0x0e] rec0=09 rec1=00 rec2=0f rec3=000
    tail 0x2150d8f2e82b082b03ab8 0x42a00088462060003