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

⟦cd8186e12⟧ Ada Source

    Length: 18432 (0x4800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xhp46021a_Key_Names, seg_00420f

Derivation

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

E3 Source Code



package Xhp46021a_Key_Names is

----This file describes the HP 46021A keyboard.
----01/15/90 GEB

    type Key_Names is  
       (

----Special non-X11 keys we need for Rational Menus

        Menu_Job_Kill, Menu_Job_Disable, Menu_Debug_Stop, Menu_Return,

        Mouse_Down, Mouse_Right,  
        Mouse_Image_Down, Mouse_Image_Right,  
        Mouse_Button1, Mouse_Button2, Mouse_Button3,  
        Mouse_Button4, Mouse_Button5, Mouse_Button6,
        Mouse_Button1_Up, Mouse_Button2_Up, Mouse_Button3_Up,  
        Mouse_Button4_Up, Mouse_Button5_Up, Mouse_Button6_Up,
        Mouse_Button1_Dbl, Mouse_Button2_Dbl, Mouse_Button3_Dbl,  
        Mouse_Button4_Dbl, Mouse_Button5_Dbl, Mouse_Button6_Dbl,

        Menu_Pick, Mouse_Minus,  
        Mouse_0, Mouse_1, Mouse_2, Mouse_3, Mouse_4,  
        Mouse_5, Mouse_6, Mouse_7, Mouse_8, Mouse_9,

        X_No_Op, X_Screen_Height, X_Screen_Width, X_Screen_Redraw,

----Special keys on the left of the keyboard.

        Tab, C_Tab, M_Tab, Cm_Tab,  
        Backtab, C_Backtab, M_Backtab, Cm_Backtab,

        Escape, C_Escape, M_Escape, Cm_Escape,  
        Delete, C_Delete, M_Delete, Cm_Delete,

        Print, C_Print, M_Print, Cm_Print,  
        Execute, C_Execute, M_Execute, Cm_Execute,

----Special keys on the right of the keyboard.

        Backspace, C_Backspace, M_Backspace, Cm_Backspace,  
        S_Backspace, Cs_Backspace, Ms_Backspace, Cms_Backspace,

        Region, C_Region, M_Region, Cm_Region,          -- Insert Line
        S_Region, Cs_Region, Ms_Region, Cms_Region,

        Window, C_Window, M_Window, Cm_Window,          -- Delete Line
        S_Window, Cs_Window, Ms_Window, Cms_Window,

        Promot, C_Promot, M_Promot, Cm_Promot,          -- Insert Char
        S_Promot, Cs_Promot, Ms_Promot, Cms_Promot,

        Complt, C_Complt, M_Complt, Cm_Complt,          -- Delete Char
        S_Complt, Cs_Complt, Ms_Complt, Cms_Complt,

        Carriage_Return, C_Carriage_Return,             -- Return
        M_Carriage_Return, Cm_Carriage_Return, S_Carriage_Return,
        Cs_Carriage_Return, Ms_Carriage_Return, Cms_Carriage_Return,

        Object, C_Object, M_Object, Cm_Object,          -- Home
        S_Object, Cs_Object, Ms_Object, Cms_Object,

        Format, C_Format, M_Format, Cm_Format,          -- Prev
        S_Format, Cs_Format, Ms_Format, Cms_Format,

        Begin_Of, C_Begin_Of, M_Begin_Of, Cm_Begin_Of,  -- Select
        S_Begin_Of, Cs_Begin_Of, Ms_Begin_Of, Cms_Begin_Of,

        Up, C_Up, M_Up, Cm_Up,  
        S_Up, Cs_Up, Ms_Up, Cms_Up,

        End_Of, C_End_Of, M_End_Of, Cm_End_Of,          -- Next
        S_End_Of, Cs_End_Of, Ms_End_Of, Cms_End_Of,

        Left, C_Left, M_Left, Cm_Left,  
        S_Left, Cs_Left, Ms_Left, Cms_Left,

        Down, C_Down, M_Down, Cm_Down,  
        S_Down, Cs_Down, Ms_Down, Cms_Down,

        Right, C_Right, M_Right, Cm_Right,  
        S_Right, Cs_Right, Ms_Right, Cms_Right,

----Keys across the top of the keyboard.

        Break, C_Break, M_Break, Cm_Break,  
        Reset, C_Reset, M_Reset, Cm_Reset,

        Stop, C_Stop, M_Stop, Cm_Stop, S_Stop, Cs_Stop, Ms_Stop, Cms_Stop,

        F1, C_F1, M_F1, Cm_F1, S_F1, Cs_F1, Ms_F1, Cms_F1,  
        F2, C_F2, M_F2, Cm_F2, S_F2, Cs_F2, Ms_F2, Cms_F2,  
        F3, C_F3, M_F3, Cm_F3, S_F3, Cs_F3, Ms_F3, Cms_F3,  
        F4, C_F4, M_F4, Cm_F4, S_F4, Cs_F4, Ms_F4, Cms_F4,

        Menu, C_Menu, M_Menu, Cm_Menu,  
        S_Menu, Cs_Menu, Ms_Menu, Cms_Menu,

        System, C_System, M_System, Cm_System,  
        User, C_User, M_User, Cm_User,

        F5, C_F5, M_F5, Cm_F5, S_F5, Cs_F5, Ms_F5, Cms_F5,  
        F6, C_F6, M_F6, Cm_F6, S_F6, Cs_F6, Ms_F6, Cms_F6,  
        F7, C_F7, M_F7, Cm_F7, S_F7, Cs_F7, Ms_F7, Cms_F7,  
        F8, C_F8, M_F8, Cm_F8, S_F8, Cs_F8, Ms_F8, Cms_F8,

        F9, C_F9, M_F9, Cm_F9,              -- Clear Line
        S_F9, Cs_F9, Ms_F9, Cms_F9,

        F10, C_F10, M_F10, Cm_F10,          -- Clear Display
        S_F10, Cs_F10, Ms_F10, Cms_F10,

        F11, C_F11, M_F11, Cm_F11,  
        S_F11, Cs_F11, Ms_F11, Cms_F11,

        F12, C_F12, M_F12, Cm_F12,  
        S_F12, Cs_F12, Ms_F12, Cms_F12,

        F13, C_F13, M_F13, Cm_F13,  
        S_F13, Cs_F13, Ms_F13, Cms_F13,

        F14, C_F14, M_F14, Cm_F14,  
        S_F14, Cs_F14, Ms_F14, Cms_F14,

----X11 Latin1 keys

        ' ', C_Space, M_Space, Cm_Space, S_Space, Cs_Space, Ms_Space, Cms_Space,  
        '!', C_Exclam, M_Exclam, Cm_Exclam,  
        '"', C_Quotation, M_Quotation, Cm_Quotation,  
        '#', C_Sharp, M_Sharp, Cm_Sharp,  
        '$', C_Dollar, M_Dollar, Cm_Dollar,  
        '%', C_Percent, M_Percent, Cm_Percent,  
        '&', C_Ampersand, M_Ampersand, Cm_Ampersand,  
        ''', C_Tick, M_Tick, Cm_Tick,  
        '(', C_Left_Paren, M_Left_Paren, Cm_Left_Paren,  
        ')', C_Right_Paren, M_Right_Paren, Cm_Right_Paren,  
        '*', C_Star, M_Star, Cm_Star,  
        '+', C_Plus, M_Plus, Cm_Plus,  
        ',', C_Comma, M_Comma, Cm_Comma,  
        '-', C_Minus, M_Minus, Cm_Minus,  
        '.', C_Period, M_Period, Cm_Period,  
        '/', C_Slash, M_Slash, Cm_Slash,  
        '0', C_0, M_0, Cm_0,  
        '1', C_1, M_1, Cm_1,  
        '2', C_2, M_2, Cm_2,  
        '3', C_3, M_3, Cm_3,  
        '4', C_4, M_4, Cm_4,  
        '5', C_5, M_5, Cm_5,  
        '6', C_6, M_6, Cm_6,  
        '7', C_7, M_7, Cm_7,  
        '8', C_8, M_8, Cm_8,  
        '9', C_9, M_9, Cm_9,  
        ':', C_Colon, M_Colon, Cm_Colon,  
        ';', C_Semicolon, M_Semicolon, Cm_Semicolon,  
        '<', C_Less_Than, M_Less_Than, Cm_Less_Than,  
        '=', C_Equal, M_Equal, Cm_Equal,  
        '>', C_Greater_Than, M_Greater_Than, Cm_Greater_Than,  
        '?', C_Question, M_Question, Cm_Question,  
        '@', C_At_Sign, M_At_Sign, Cm_At_Sign,

        'a', C_A, M_A, Cm_A, 'A', Cs_A, Ms_A, Cms_A,  
        'b', C_B, M_B, Cm_B, 'B', Cs_B, Ms_B, Cms_B,  
        'c', C_C, M_C, Cm_C, 'C', Cs_C, Ms_C, Cms_C,  
        'd', C_D, M_D, Cm_D, 'D', Cs_D, Ms_D, Cms_D,  
        'e', C_E, M_E, Cm_E, 'E', Cs_E, Ms_E, Cms_E,  
        'f', C_F, M_F, Cm_F, 'F', Cs_F, Ms_F, Cms_F,  
        'g', C_G, M_G, Cm_G, 'G', Cs_G, Ms_G, Cms_G,  
        'h', C_H, M_H, Cm_H, 'H', Cs_H, Ms_H, Cms_H,  
        'i', C_I, M_I, Cm_I, 'I', Cs_I, Ms_I, Cms_I,  
        'j', C_J, M_J, Cm_J, 'J', Cs_J, Ms_J, Cms_J,  
        'k', C_K, M_K, Cm_K, 'K', Cs_K, Ms_K, Cms_K,  
        'l', C_L, M_L, Cm_L, 'L', Cs_L, Ms_L, Cms_L,  
        'm', C_M, M_M, Cm_M, 'M', Cs_M, Ms_M, Cms_M,  
        'n', C_N, M_N, Cm_N, 'N', Cs_N, Ms_N, Cms_N,  
        'o', C_O, M_O, Cm_O, 'O', Cs_O, Ms_O, Cms_O,  
        'p', C_P, M_P, Cm_P, 'P', Cs_P, Ms_P, Cms_P,  
        'q', C_Q, M_Q, Cm_Q, 'Q', Cs_Q, Ms_Q, Cms_Q,  
        'r', C_R, M_R, Cm_R, 'R', Cs_R, Ms_R, Cms_R,  
        's', C_S, M_S, Cm_S, 'S', Cs_S, Ms_S, Cms_S,  
        't', C_T, M_T, Cm_T, 'T', Cs_T, Ms_T, Cms_T,  
        'u', C_U, M_U, Cm_U, 'U', Cs_U, Ms_U, Cms_U,  
        'v', C_V, M_V, Cm_V, 'V', Cs_V, Ms_V, Cms_V,  
        'w', C_W, M_W, Cm_W, 'W', Cs_W, Ms_W, Cms_W,  
        'x', C_X, M_X, Cm_X, 'X', Cs_X, Ms_X, Cms_X,  
        'y', C_Y, M_Y, Cm_Y, 'Y', Cs_Y, Ms_Y, Cms_Y,  
        'z', C_Z, M_Z, Cm_Z, 'Z', Cs_Z, Ms_Z, Cms_Z,

        '[', C_Left_Bracket, M_Left_Bracket, Cm_Left_Bracket,  
        '\', C_Backslash, M_Backslash, Cm_Backslash,  
        ']', C_Right_Bracket, M_Right_Bracket, Cm_Right_Bracket,  
        '^', C_Circumflex, M_Circumflex, Cm_Circumflex,  
        '_', C_Underline, M_Underline, Cm_Underline,  
        '`', C_Grave, M_Grave, Cm_Grave,

        '{', C_Left_Brace, M_Left_Brace, Cm_Left_Brace,  
        '|', C_Bar, M_Bar, Cm_Bar,  
        '}', C_Right_Brace, M_Right_Brace, Cm_Right_Brace,  
        '~', C_Tilde, M_Tilde, Cm_Tilde,

----Numeric keypad keys.

        Image, C_Image, M_Image, Cm_Image,              -- Multiply
        S_Image, Cs_Image, Ms_Image, Cms_Image,

        Line, C_Line, M_Line, Cm_Line,                  -- Divide
        S_Line, Cs_Line, Ms_Line, Cms_Line,

        Word, C_Word, M_Word, Cm_Word,                  -- Add
        S_Word, Cs_Word, Ms_Word, Cms_Word,

        Mark, C_Mark, M_Mark, Cm_Mark,                  -- Subtract
        S_Mark, Cs_Mark, Ms_Mark, Cms_Mark,

        Enter, C_Enter, M_Enter, Cm_Enter,  
        S_Enter, Cs_Enter, Ms_Enter, Cms_Enter,

        Numeric_Comma, C_Numeric_Comma, M_Numeric_Comma, Cm_Numeric_Comma,
        S_Numeric_Comma, Cs_Numeric_Comma, Ms_Numeric_Comma, Cms_Numeric_Comma,

        Dot, C_Dot, M_Dot, Cm_Dot,  
        S_Dot, Cs_Dot, Ms_Dot, Cms_Dot,

        Numeric_Tab, C_Numeric_Tab, M_Numeric_Tab, Cm_Numeric_Tab,  
        Numeric_Backtab, C_Numeric_Backtab,
        M_Numeric_Backtab, Cm_Numeric_Backtab,

        Numeric_0, C_Numeric_0, M_Numeric_0, Cm_Numeric_0,  
        S_Numeric_0, Cs_Numeric_0, Ms_Numeric_0, Cms_Numeric_0,  
        Numeric_1, C_Numeric_1, M_Numeric_1, Cm_Numeric_1,  
        S_Numeric_1, Cs_Numeric_1, Ms_Numeric_1, Cms_Numeric_1,  
        Numeric_2, C_Numeric_2, M_Numeric_2, Cm_Numeric_2,  
        S_Numeric_2, Cs_Numeric_2, Ms_Numeric_2, Cms_Numeric_2,  
        Numeric_3, C_Numeric_3, M_Numeric_3, Cm_Numeric_3,  
        S_Numeric_3, Cs_Numeric_3, Ms_Numeric_3, Cms_Numeric_3,  
        Numeric_4, C_Numeric_4, M_Numeric_4, Cm_Numeric_4,  
        S_Numeric_4, Cs_Numeric_4, Ms_Numeric_4, Cms_Numeric_4,  
        Numeric_5, C_Numeric_5, M_Numeric_5, Cm_Numeric_5,  
        S_Numeric_5, Cs_Numeric_5, Ms_Numeric_5, Cms_Numeric_5,  
        Numeric_6, C_Numeric_6, M_Numeric_6, Cm_Numeric_6,  
        S_Numeric_6, Cs_Numeric_6, Ms_Numeric_6, Cms_Numeric_6,  
        Numeric_7, C_Numeric_7, M_Numeric_7, Cm_Numeric_7,  
        S_Numeric_7, Cs_Numeric_7, Ms_Numeric_7, Cms_Numeric_7,  
        Numeric_8, C_Numeric_8, M_Numeric_8, Cm_Numeric_8,  
        S_Numeric_8, Cs_Numeric_8, Ms_Numeric_8, Cms_Numeric_8,  
        Numeric_9, C_Numeric_9, M_Numeric_9, Cm_Numeric_9,
        S_Numeric_9, Cs_Numeric_9, Ms_Numeric_9, Cms_Numeric_9

        );

----Convenient names for control characters.

    Nul : constant Key_Names := C_At_Sign;

    Clear_Line : constant Key_Names := F9;
    C_Clear_Line : constant Key_Names := C_F9;
    M_Clear_Line : constant Key_Names := M_F9;
    Cm_Clear_Line : constant Key_Names := Cm_F9;
    S_Clear_Line : constant Key_Names := S_F9;
    Cs_Clear_Line : constant Key_Names := Cs_F9;
    Ms_Clear_Line : constant Key_Names := Ms_F9;
    Cms_Clear_Line : constant Key_Names := Cms_F9;

    Clear_Display : constant Key_Names := F10;
    C_Clear_Display : constant Key_Names := C_F10;
    M_Clear_Display : constant Key_Names := M_F10;
    Cm_Clear_Display : constant Key_Names := Cm_F10;
    S_Clear_Display : constant Key_Names := S_F10;
    Cs_Clear_Display : constant Key_Names := Cs_F10;
    Ms_Clear_Display : constant Key_Names := Ms_F10;
    Cms_Clear_Display : constant Key_Names := Cms_F10;

    Insert_Line : constant Key_Names := Region;
    C_Insert_Line : constant Key_Names := C_Region;
    M_Insert_Line : constant Key_Names := M_Region;
    Cm_Insert_Line : constant Key_Names := Cm_Region;
    S_Insert_Line : constant Key_Names := S_Region;
    Cs_Insert_Line : constant Key_Names := Cs_Region;
    Ms_Insert_Line : constant Key_Names := Ms_Region;
    Cms_Insert_Line : constant Key_Names := Cms_Region;

    Delete_Line : constant Key_Names := Window;
    C_Delete_Line : constant Key_Names := C_Window;
    M_Delete_Line : constant Key_Names := M_Window;
    Cm_Delete_Line : constant Key_Names := Cm_Window;
    S_Delete_Line : constant Key_Names := S_Window;
    Cs_Delete_Line : constant Key_Names := Cs_Window;
    Ms_Delete_Line : constant Key_Names := Ms_Window;
    Cms_Delete_Line : constant Key_Names := Cms_Window;

    Insert_Char : constant Key_Names := Promot;
    C_Insert_Char : constant Key_Names := C_Promot;
    M_Insert_Char : constant Key_Names := M_Promot;
    Cm_Insert_Char : constant Key_Names := Cm_Promot;
    S_Insert_Char : constant Key_Names := S_Promot;
    Cs_Insert_Char : constant Key_Names := Cs_Promot;
    Ms_Insert_Char : constant Key_Names := Ms_Promot;
    Cms_Insert_Char : constant Key_Names := Cms_Promot;

    Delete_Char : constant Key_Names := Complt;
    C_Delete_Char : constant Key_Names := C_Complt;
    M_Delete_Char : constant Key_Names := M_Complt;
    Cm_Delete_Char : constant Key_Names := Cm_Complt;
    S_Delete_Char : constant Key_Names := S_Complt;
    Cs_Delete_Char : constant Key_Names := Cs_Complt;
    Ms_Delete_Char : constant Key_Names := Ms_Complt;
    Cms_Delete_Char : constant Key_Names := Cms_Complt;

    Home : constant Key_Names := Object;
    C_Home : constant Key_Names := C_Object;
    M_Home : constant Key_Names := M_Object;
    Cm_Home : constant Key_Names := Cm_Object;
    S_Home : constant Key_Names := S_Object;
    Cs_Home : constant Key_Names := Cs_Object;
    Ms_Home : constant Key_Names := Ms_Object;
    Cms_Home : constant Key_Names := Cms_Object;

    Prev : constant Key_Names := Format;
    C_Prev : constant Key_Names := C_Format;
    M_Prev : constant Key_Names := M_Format;
    Cm_Prev : constant Key_Names := Cm_Format;
    S_Prev : constant Key_Names := S_Format;
    Cs_Prev : constant Key_Names := Cs_Format;
    Ms_Prev : constant Key_Names := Ms_Format;
    Cms_Prev : constant Key_Names := Cms_Format;

    Selection : constant Key_Names := Begin_Of;
    C_Selection : constant Key_Names := C_Begin_Of;
    M_Selection : constant Key_Names := M_Begin_Of;
    Cm_Selection : constant Key_Names := Cm_Begin_Of;
    S_Selection : constant Key_Names := S_Begin_Of;   Cs_Selection : constant Key_Names := Cs_Begin_Of;
    Ms_Selection : constant Key_Names := Ms_Begin_Of;
    Cms_Selection : constant Key_Names := Cms_Begin_Of;

    Next : constant Key_Names := End_Of;
    C_Next : constant Key_Names := C_End_Of;
    M_Next : constant Key_Names := M_End_Of;
    Cm_Next : constant Key_Names := Cm_End_Of;
    S_Next : constant Key_Names := S_End_Of;
    Cs_Next : constant Key_Names := Cs_End_Of;
    Ms_Next : constant Key_Names := Ms_End_Of;
    Cms_Next : constant Key_Names := Cms_End_Of;

    Multiply : constant Key_Names := Image;
    C_Multiply : constant Key_Names := C_Image;
    M_Multiply : constant Key_Names := M_Image;
    Cm_Multiply : constant Key_Names := Cm_Image;
    S_Multiply : constant Key_Names := S_Image;
    Cs_Multiply : constant Key_Names := Cs_Image;
    Ms_Multiply : constant Key_Names := Ms_Image;
    Cms_Multiply : constant Key_Names := Cms_Image;

    Divide : constant Key_Names := Line;
    C_Divide : constant Key_Names := C_Line;
    M_Divide : constant Key_Names := M_Line;
    Cm_Divide : constant Key_Names := Cm_Line;
    S_Divide : constant Key_Names := S_Line;
    Cs_Divide : constant Key_Names := Cs_Line;
    Ms_Divide : constant Key_Names := Ms_Line;
    Cms_Divide : constant Key_Names := Cms_Line;

    Add : constant Key_Names := Word;
    C_Add : constant Key_Names := C_Word;
    M_Add : constant Key_Names := M_Word;
    Cm_Add : constant Key_Names := Cm_Word;
    S_Add : constant Key_Names := S_Word;
    Cs_Add : constant Key_Names := Cs_Word;
    Ms_Add : constant Key_Names := Ms_Word;
    Cms_Add : constant Key_Names := Cms_Word;

    Subtract : constant Key_Names := Mark;
    C_Subtract : constant Key_Names := C_Mark;
    M_Subtract : constant Key_Names := M_Mark;
    Cm_Subtract : constant Key_Names := Cm_Mark;
    S_Subtract : constant Key_Names := S_Mark;
    Cs_Subtract : constant Key_Names := Cs_Mark;
    Ms_Subtract : constant Key_Names := Ms_Mark;
    Cms_Subtract : constant Key_Names := Cms_Mark;

end Xhp46021a_Key_Names;

E3 Meta Data

    nblk1=11
    nid=0
    hdr6=22
        [0x00] rec0=1d rec1=00 rec2=01 rec3=056
        [0x01] rec0=1c rec1=00 rec2=02 rec3=008
        [0x02] rec0=1a rec1=00 rec2=03 rec3=004
        [0x03] rec0=19 rec1=00 rec2=04 rec3=068
        [0x04] rec0=1d rec1=00 rec2=05 rec3=00c
        [0x05] rec0=17 rec1=00 rec2=06 rec3=04e
        [0x06] rec0=13 rec1=00 rec2=07 rec3=046
        [0x07] rec0=14 rec1=00 rec2=08 rec3=02a
        [0x08] rec0=1b rec1=00 rec2=09 rec3=034
        [0x09] rec0=11 rec1=00 rec2=0a rec3=016
        [0x0a] rec0=18 rec1=00 rec2=0b rec3=03c
        [0x0b] rec0=15 rec1=00 rec2=0c rec3=008
        [0x0c] rec0=15 rec1=00 rec2=0d rec3=02c
        [0x0d] rec0=17 rec1=00 rec2=0e rec3=002
        [0x0e] rec0=17 rec1=00 rec2=0f rec3=010
        [0x0f] rec0=17 rec1=00 rec2=10 rec3=038
        [0x10] rec0=04 rec1=00 rec2=11 rec3=000
    tail 0x21700049a81577099bb5b 0x42a00088462060003