|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_191cd7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0270 | p | .CONST 0x0270 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00eb | | .CONST 0x00eb ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0040 | @ | .CONST 0x0040 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c e003 | | Load 0x0,0x3 000d 02a0 | | Declare_Subprogram Null_Subprogram 000e 4802 |H | Short_Literal 0x2 000f 032e | . | Declare_Type Record,Defined,Visible 0010 00d8 | | Load_Top At_Offset_0 0011 0322 | " | Declare_Variable Record 0012 e002 | | Load 0x0,0x2 0013 00d9 | | Load_Top At_Offset_1 0014 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0015 4800 |H | Short_Literal 0x0 0016 00d9 | | Load_Top At_Offset_1 0017 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0018 0129 | ) | Execute Any,Make_Visible 0019 4800 |H | Short_Literal 0x0 001a 480f |H | Short_Literal 0xf 001b 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 001d 03fe | | Declare_Type Discrete,Defined,Visible 001e 00d8 | | Load_Top At_Offset_0 001f 0266 | f | Execute Discrete,Bounds 0020 00e1 | | Load_Encached Boolean_Cache 0021 02a0 | | Declare_Subprogram Null_Subprogram 0022 4801 |H | Short_Literal 0x1 0023 035e | ^ | Declare_Type Array,Defined,Visible 0024 00d8 | | Load_Top At_Offset_0 0025 0336 | 6 | Declare_Variable Array,Visible 0026 00d8 | | Load_Top At_Offset_0 0027 0335 | 5 | Declare_Variable Array,Duplicate 0028 00cd | | Action Spare6_Action 0029 480f |H | Short_Literal 0xf 002a 4800 |H | Short_Literal 0x0 002b 4800 |H | Short_Literal 0x0 002c 00d9 | | Load_Top At_Offset_1 002d e212 | | Load 0x1,0x12 002e 01d6 | | Execute Vector,Field_Write 002f 3ffb |? | Loop_Increasing 0x2b 0030 00d9 | | Load_Top At_Offset_1 0031 01d4 | | Execute Vector,Structure_Write 0032 0007 | | Action Break_Optional 0033 e004 | | Load 0x0,0x4 0034 0266 | f | Execute Discrete,Bounds 0035 e005 | | Load 0x0,0x5 0036 02a0 | | Declare_Subprogram Null_Subprogram 0037 4801 |H | Short_Literal 0x1 0038 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0039 00d8 | | Load_Top At_Offset_0 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 4818 |H | Short_Literal 0x18 003c 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 003d 00d8 | | Load_Top At_Offset_0 003e 0221 | ! | Execute Access,Allow_Deallocate 003f 0007 | | Action Break_Optional 0040 0007 | | Action Break_Optional 0041 0007 | | Action Break_Optional 0042 0007 | | Action Break_Optional 0043 a006 | | Store_Unchecked 0x0,0x6 0044 00c6 | | Action Check_Subprogram_Elaborated 0045 00d9 | | Load_Top At_Offset_1 0046 0129 | ) | Execute Any,Make_Visible 0047 00d9 | | Load_Top At_Offset_1 0048 0129 | ) | Execute Any,Make_Visible 0049 e007 | | Load 0x0,0x7 004a 0129 | ) | Execute Any,Make_Visible 004b e008 | | Load 0x0,0x8 004c 0129 | ) | Execute Any,Make_Visible 004d 4800 |H | Short_Literal 0x0 004e 0129 | ) | Execute Any,Make_Visible 004f 4800 |H | Short_Literal 0x0 0050 4807 |H | Short_Literal 0x7 0051 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0053 03fe | | Declare_Type Discrete,Defined,Visible 0054 0007 | | Action Break_Optional 0055 0007 | | Action Break_Optional 0056 0007 | | Action Break_Optional 0057 e004 | | Load 0x0,0x4 0058 0266 | f | Execute Discrete,Bounds 0059 e003 | | Load 0x0,0x3 005a 02a0 | | Declare_Subprogram Null_Subprogram 005b 4801 |H | Short_Literal 0x1 005c 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 005d 00d8 | | Load_Top At_Offset_0 005e 02a0 | | Declare_Subprogram Null_Subprogram 005f 4818 |H | Short_Literal 0x18 0060 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0061 00d8 | | Load_Top At_Offset_0 0062 0221 | ! | Execute Access,Allow_Deallocate 0063 0007 | | Action Break_Optional 0064 0007 | | Action Break_Optional 0065 a006 | | Store_Unchecked 0x0,0x6 0066 00c6 | | Action Check_Subprogram_Elaborated 0067 00d9 | | Load_Top At_Offset_1 0068 0129 | ) | Execute Any,Make_Visible 0069 00d9 | | Load_Top At_Offset_1 006a 0129 | ) | Execute Any,Make_Visible 006b e009 | | Load 0x0,0x9 006c 0129 | ) | Execute Any,Make_Visible 006d e00a | | Load 0x0,0xa 006e 0129 | ) | Execute Any,Make_Visible 006f 4800 |H | Short_Literal 0x0 0070 0129 | ) | Execute Any,Make_Visible 0071 e005 | | Load 0x0,0x5 0072 0266 | f | Execute Discrete,Bounds 0073 e005 | | Load 0x0,0x5 0074 0266 | f | Execute Discrete,Bounds 0075 e003 | | Load 0x0,0x3 0076 02a0 | | Declare_Subprogram Null_Subprogram 0077 4802 |H | Short_Literal 0x2 0078 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0079 00d8 | | Load_Top At_Offset_0 007a 02a0 | | Declare_Subprogram Null_Subprogram 007b 4818 |H | Short_Literal 0x18 007c 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 007d 00d8 | | Load_Top At_Offset_0 007e 0221 | ! | Execute Access,Allow_Deallocate 007f 0007 | | Action Break_Optional 0080 0007 | | Action Break_Optional 0081 a006 | | Store_Unchecked 0x0,0x6 0082 00c6 | | Action Check_Subprogram_Elaborated 0083 00d9 | | Load_Top At_Offset_1 0084 0129 | ) | Execute Any,Make_Visible 0085 00d9 | | Load_Top At_Offset_1 0086 0129 | ) | Execute Any,Make_Visible 0087 e00b | | Load 0x0,0xb 0088 0129 | ) | Execute Any,Make_Visible 0089 e00c | | Load 0x0,0xc 008a 0129 | ) | Execute Any,Make_Visible 008b 4800 |H | Short_Literal 0x0 008c 0129 | ) | Execute Any,Make_Visible 008d 0007 | | Action Break_Optional 008e 4818 |H | Short_Literal 0x18 008f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0090 0007 | | Action Break_Optional 0091 00d8 | | Load_Top At_Offset_0 0092 e002 | | Load 0x0,0x2 0093 e003 | | Load 0x0,0x3 0094 e210 | | Load 0x1,0x10 0095 e21b | | Load 0x1,0x1b 0096 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0098 4805 |H | Short_Literal 0x5 0099 032e | . | Declare_Type Record,Defined,Visible 009a 00d8 | | Load_Top At_Offset_0 009b 02a0 | | Declare_Subprogram Null_Subprogram 009c 00db | | Load_Top At_Offset_3 009d 03c7 | | Complete_Type Access,By_Defining 009e 00d9 | | Load_Top At_Offset_1 009f 0221 | ! | Execute Access,Allow_Deallocate 00a0 0007 | | Action Break_Optional 00a1 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 00a3 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 00a5 e219 | | Load 0x1,0x19 00a6 0266 | f | Execute Discrete,Bounds 00a7 e005 | | Load 0x0,0x5 00a8 02a0 | | Declare_Subprogram Null_Subprogram 00a9 4801 |H | Short_Literal 0x1 00aa 035e | ^ | Declare_Type Array,Defined,Visible 00ab e004 | | Load 0x0,0x4 00ac 0266 | f | Execute Discrete,Bounds 00ad 00da | | Load_Top At_Offset_2 00ae 02a0 | | Declare_Subprogram Null_Subprogram 00af 4801 |H | Short_Literal 0x1 00b0 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00b1 00d8 | | Load_Top At_Offset_0 00b2 02a0 | | Declare_Subprogram Null_Subprogram 00b3 4818 |H | Short_Literal 0x18 00b4 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 00b5 00d8 | | Load_Top At_Offset_0 00b6 0221 | ! | Execute Access,Allow_Deallocate 00b7 0007 | | Action Break_Optional 00b8 a006 | | Store_Unchecked 0x0,0x6 00b9 00c6 | | Action Check_Subprogram_Elaborated 00ba 00d9 | | Load_Top At_Offset_1 00bb 0129 | ) | Execute Any,Make_Visible 00bc 00d9 | | Load_Top At_Offset_1 00bd 0129 | ) | Execute Any,Make_Visible 00be e00d | | Load 0x0,0xd 00bf 0129 | ) | Execute Any,Make_Visible 00c0 e00e | | Load 0x0,0xe 00c1 0129 | ) | Execute Any,Make_Visible 00c2 4800 |H | Short_Literal 0x0 00c3 0129 | ) | Execute Any,Make_Visible 00c4 e005 | | Load 0x0,0x5 00c5 e22e | . | Load 0x1,0x2e 00c6 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 00c8 4802 |H | Short_Literal 0x2 00c9 032e | . | Declare_Type Record,Defined,Visible 00ca 00d8 | | Load_Top At_Offset_0 00cb 02a0 | | Declare_Subprogram Null_Subprogram 00cc 4818 |H | Short_Literal 0x18 00cd 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 00ce 00d8 | | Load_Top At_Offset_0 00cf 0221 | ! | Execute Access,Allow_Deallocate 00d0 0007 | | Action Break_Optional 00d1 0007 | | Action Break_Optional 00d2 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 00d4 00bf | | Action Accept_Activation 00d5 a006 | | Store_Unchecked 0x0,0x6 00d6 00c6 | | Action Check_Subprogram_Elaborated 00d7 e229 | ) | Load 0x1,0x29 00d8 e228 | ( | Load 0x1,0x28 00d9 e00f | | Load 0x0,0xf 00da e010 | | Load 0x0,0x10 00db 4800 |H | Short_Literal 0x0 00dc 0007 | | Action Break_Optional 00dd a006 | | Store_Unchecked 0x0,0x6 00de 00c6 | | Action Check_Subprogram_Elaborated 00df e234 | 4 | Load 0x1,0x34 00e0 e235 | 5 | Load 0x1,0x35 00e1 e011 | | Load 0x0,0x11 00e2 e012 | | Load 0x0,0x12 00e3 4800 |H | Short_Literal 0x0 00e4 0007 | | Action Break_Optional 00e5 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00e6 00c7 | | Action Elaborate_Subprogram 00e7 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00e8 00c7 | | Action Elaborate_Subprogram 00e9 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00ea 00c7 | | Action Elaborate_Subprogram 00eb BODY_0008: 00eb 00bc | | Action Signal_Activated 00ec 00bb | | Action Signal_Completion 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4607 |F | Jump_Case 0x8 00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00f5 7807 |x | Jump 0xfd ; case 0x1 00f6 780a |x | Jump 0x101 ; case 0x2 00f7 780e |x | Jump 0x106 ; case 0x3 00f8 7811 |x | Jump 0x10a ; case 0x4 00f9 7812 |x | Jump 0x10c ; case 0x5 00fa 7813 |x | Jump 0x10e ; case 0x6 00fb 7816 |x | Jump 0x112 ; case 0x7 00fc 4302 |C | .XXX[0x1] 00fd 00da | | Load_Top At_Offset_2 00fe 0091 01c2 | | Action Push_String_Extended_Indexed,0x1c2 ; "ANY_MODIFIER" 0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0101 00db | | Load_Top At_Offset_3 0102 00db | | Load_Top At_Offset_3 0103 00e0 | | Load_Encached Standard_Cache 0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 00da | | Load_Top At_Offset_2 0107 00e0 | | Load_Encached Standard_Cache 0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0109 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 010a 00db | | Load_Top At_Offset_3 010b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010c 00db | | Load_Top At_Offset_3 010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010e e20f | | Load 0x1,0xf 010f 00dc | | Load_Top At_Offset_4 0110 0267 | g | Execute Discrete,Predecessor 0111 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0112 e20f | | Load 0x1,0xf 0113 00dc | | Load_Top At_Offset_4 0114 0268 | h | Execute Discrete,Successor 0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7807 |x | Jump 0x125 ; case 0x1 011e 780a |x | Jump 0x129 ; case 0x2 011f 780e |x | Jump 0x12e ; case 0x3 0120 7811 |x | Jump 0x132 ; case 0x4 0121 7812 |x | Jump 0x134 ; case 0x5 0122 7813 |x | Jump 0x136 ; case 0x6 0123 7816 |x | Jump 0x13a ; case 0x7 0124 4302 |C | .XXX[0x1] 0125 00da | | Load_Top At_Offset_2 0126 0091 01d2 | | Action Push_String_Extended_Indexed,0x1d2 ; "SHIFT_MAP_INDEX" 0128 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0129 00db | | Load_Top At_Offset_3 012a 00db | | Load_Top At_Offset_3 012b 00e0 | | Load_Encached Standard_Cache 012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012e 00da | | Load_Top At_Offset_2 012f 00e0 | | Load_Encached Standard_Cache 0130 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0131 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0132 00db | | Load_Top At_Offset_3 0133 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0134 00db | | Load_Top At_Offset_3 0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0136 e219 | | Load 0x1,0x19 0137 00dc | | Load_Top At_Offset_4 0138 0267 | g | Execute Discrete,Predecessor 0139 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013a e219 | | Load 0x1,0x19 013b 00dc | | Load_Top At_Offset_4 013c 0268 | h | Execute Discrete,Successor 013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 e228 | ( | Load 0x1,0x28 0145 022f | / | Execute Access,Equal 0146 6801 |h | Jump_Zero 0x148 0147 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0148 00da | | Load_Top At_Offset_2 0149 0229 | ) | Execute Access,All_Read 014a 00d8 | | Load_Top At_Offset_0 014b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014c e013 | | Load 0x0,0x13 014d e014 | | Load 0x0,0x14 014e a015 | | Store_Unchecked 0x0,0x15 014f 8006 | | Call 0x0,0x6 0150 00d9 | | Load_Top At_Offset_1 0151 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0152 00d1 | | Pop_Control Pop_Count_1 0153 00da | | Load_Top At_Offset_2 0154 0229 | ) | Execute Access,All_Read 0155 00d8 | | Load_Top At_Offset_0 0156 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0157 e21c | | Load 0x1,0x1c 0158 e21d | | Load 0x1,0x1d 0159 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 015a 8006 | | Call 0x0,0x6 015b 00d9 | | Load_Top At_Offset_1 015c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 015d 00d1 | | Pop_Control Pop_Count_1 015e 00da | | Load_Top At_Offset_2 015f e237 | 7 | Load 0x1,0x37 0160 e238 | 8 | Load 0x1,0x38 0161 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0162 8006 | | Call 0x0,0x6 0163 003b | ; | Store_Top Access,At_Offset_3 0164 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016f | o | .CONST 0x016f ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b e228 | ( | Load 0x1,0x28 016c 0007 | | Action Break_Optional 016d e228 | ( | Load 0x1,0x28 016e 0007 | | Action Break_Optional 016f BODY_0168: 016f e5ff | | Load 0x2,-0x1 0170 003a | : | Store_Top Access,At_Offset_2 0171 00cf | | Action Mark_Auxiliary 0172 780a |x | Jump 0x17d 0173 00da | | Load_Top At_Offset_2 0174 0227 | ' | Execute Access,All_Reference 0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0176 003a | : | Store_Top Access,At_Offset_2 0177 00da | | Load_Top At_Offset_2 0178 822a | * | Call 0x1,0x2a 0179 003b | ; | Store_Top Access,At_Offset_3 017a 00d9 | | Load_Top At_Offset_1 017b 003b | ; | Store_Top Access,At_Offset_3 017c 00c9 | | Action Pop_Auxiliary_Loop 017d 00da | | Load_Top At_Offset_2 017e 77f4 |w | Jump_Nonzero 0x173 017f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 e235 | 5 | Load 0x1,0x35 0185 022e | . | Execute Access,Not_Equal 0186 6811 |h | Jump_Zero 0x198 0187 00da | | Load_Top At_Offset_2 0188 0229 | ) | Execute Access,All_Read 0189 00d8 | | Load_Top At_Offset_0 018a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018b e22f | / | Load 0x1,0x2f 018c e230 | 0 | Load 0x1,0x30 018d 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 018e 8006 | | Call 0x0,0x6 018f 00d9 | | Load_Top At_Offset_1 0190 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0191 00d1 | | Pop_Control Pop_Count_1 0192 00da | | Load_Top At_Offset_2 0193 e23c | < | Load 0x1,0x3c 0194 e23d | = | Load 0x1,0x3d 0195 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 0196 8006 | | Call 0x0,0x6 0197 003b | ; | Store_Top Access,At_Offset_3 0198 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 4601 |F | Jump_Case 0x2 01a4 7801 |x | Jump 0x1a6 ; case 0x0 01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01a6 4800 |H | Short_Literal 0x0 01a7 00db | | Load_Top At_Offset_3 01a8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01a9 e211 | | Load 0x1,0x11 01aa 00db | | Load_Top At_Offset_3 01ab 00d9 | | Load_Top At_Offset_1 01ac 00d9 | | Load_Top At_Offset_1 01ad 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 01ae 0119 | | Execute Any,Check_In_Formal_Type 01af 00d1 | | Pop_Control Pop_Count_1 01b0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01b2 0000 0000 | | .BLANK 0000[0x6] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 4601 |F | Jump_Case 0x2 01bc 7801 |x | Jump 0x1be ; case 0x0 01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01be 4800 |H | Short_Literal 0x0 01bf 00db | | Load_Top At_Offset_3 01c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; STRING TABLE 01c2 ; -------------------------------------------------------------------------------------- 01c2 0032 | 2 | .STRTAB 0x0032->0x01db ; "ANY_MODIFIER" 01c3 003c | < | .STRTAB 0x003c->0x01e1 ; "XKBMI14" 01c4 0041 | A | .STRTAB 0x0041->0x01e4 ; "XKBMI13" 01c5 0046 | F | .STRTAB 0x0046->0x01e8 ; "BUTTON_5_MASK" 01c6 0051 | Q | .STRTAB 0x0051->0x01ee ; "BUTTON_4_MASK" 01c7 005c | \ | .STRTAB 0x005c->0x01f5 ; "BUTTON_3_MASK" 01c8 0067 | g | .STRTAB 0x0067->0x01fb ; "BUTTON_2_MASK" 01c9 0072 | r | .STRTAB 0x0072->0x0202 ; "BUTTON_1_MASK" 01ca 007d | } | .STRTAB 0x007d->0x0208 ; "MOD_5_MASK" 01cb 0085 | | .STRTAB 0x0085->0x020d ; "MOD_4_MASK" 01cc 008d | | .STRTAB 0x008d->0x0212 ; "MOD_3_MASK" 01cd 0095 | | .STRTAB 0x0095->0x0217 ; "MOD_2_MASK" 01ce 009d | | .STRTAB 0x009d->0x021c ; "MOD_1_MASK" 01cf 00a5 | | .STRTAB 0x00a5->0x0221 ; "CONTROL_MASK" 01d0 00af | | .STRTAB 0x00af->0x0227 ; "LOCK_MASK" 01d1 00b6 | | .STRTAB 0x00b6->0x022c ; "SHIFT_MASK" 01d2 00be | | .STRTAB 0x00be->0x0231 ; "SHIFT_MAP_INDEX" 01d3 00cb | | .STRTAB 0x00cb->0x0238 ; "LOCK_MAP_INDEX" 01d4 00d7 | | .STRTAB 0x00d7->0x023f ; "CONTROL_MAP_INDEX" 01d5 00e6 | | .STRTAB 0x00e6->0x0248 ; "MOD_1_MAP_INDEX" 01d6 00f3 | | .STRTAB 0x00f3->0x024f ; "MOD_2_MAP_INDEX" 01d7 0100 | | .STRTAB 0x0100->0x0257 ; "MOD_3_MAP_INDEX" 01d8 010d | | .STRTAB 0x010d->0x025e ; "MOD_4_MAP_INDEX" 01d9 011a | | .STRTAB 0x011a->0x0266 ; "MOD_5_MAP_INDEX" 01da 0127 | ' | .STREND 0x0127->0x026d 01db 414e 595f |ANY_| .STRTAB_STRINGS 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug Table 0270 ; -------------------------------------------------------------------------------------- 0270 0004 0000 | | .DEBUG4 0x0004,0x0000,0x490b,0x0000,0x0001,0x0009 0276 000b 029a | | .DBG4T 0x000b,0x029a,0x8000,0x0000 027a 00d5 02c8 | | .DBG4T 0x00d5,0x02c8,0x8000,0x0000 027e 00f3 0000 | | .DBG4T 0x00f3,0x0000,0x0005,0x0000 0282 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000 0286 0143 02cf | C | .DBG4T 0x0143,0x02cf,0x0001,0x0000 028a 016b 02d6 | k | .DBG4T 0x016b,0x02d6,0x0001,0x4000 028e 0183 02e4 | | .DBG4T 0x0183,0x02e4,0x0001,0x0000 0292 01a3 0000 | | .DBG4T 0x01a3,0x0000,0x0005,0x0000 0296 01bb 0000 | | .DBG4T 0x01bb,0x0000,0x0005,0x0000 029a ; -------------------------------------------------------------------------------------- 029a ; Debug chain 029a ; -------------------------------------------------------------------------------------- 029a 002c 0000 | , | .DBGLEN 0x002c,0x0000 029c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0019,0x001e,0x0024,0x0032,0x0033,0x0039,0x003f,0x0040,0x0041,0x0042,0x0043,0x004f,0x0054,0x0055,0x0056,0x0057,0x005d,0x0063,0x0064,0x0065,0x0071,0x0079,0x007f,0x0080,0x0081,0x008d,0x008e,0x0090,0x0091,0x00a0,0x00a1,0x00a3,0x00a5,0x00ab,0x00b1,0x00b7,0x00b8,0x00c4,0x00ca,0x00d0,0x00d1,0x00d2 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug chain 02c8 ; -------------------------------------------------------------------------------------- 02c8 0005 0000 | | .DBGLEN 0x0005,0x0000 02ca 00d5 00dd | | .DBGLNO 0x00d5,0x00dd,0x00e5,0x00e7,0x00e9 02cf ; -------------------------------------------------------------------------------------- 02cf ; Debug chain 02cf ; -------------------------------------------------------------------------------------- 02cf 0000 0005 | | .DBGLEN 0x0000,0x0005 02d1 0143 0147 | C G| .DBGLNO 0x0143,0x0147,0x0148,0x0153,0x015e 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; Debug chain 02d6 ; -------------------------------------------------------------------------------------- 02d6 0002 0005 | | .DBGLEN 0x0002,0x0005 02d8 016b 016d | k m| .DBGLNO 0x016b,0x016d,0x016f,0x0173,0x0177,0x017a,0x017d 02df 0001 0003 | | .XXX[0x5] 02e1 0004 0005 | | 02e3 0002 | | 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug chain 02e4 ; -------------------------------------------------------------------------------------- 02e4 0000 0003 | | .DBGLEN 0x0000,0x0003 02e6 0183 0187 | | .DBGLNO 0x0183,0x0187,0x0192 02e9 0000 0000 | | .BLANK 0000[0x117]