|
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: 3072 (0xc00) 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 0410 | | .CONST 0x0410 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0276 | v | .CONST 0x0276 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 005f | _ | .CONST 0x005f ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 02a0 | | Declare_Subprogram Null_Subprogram 000d 4801 |H | Short_Literal 0x1 000e 032e | . | Declare_Type Record,Defined,Visible 000f e003 | | Load 0x0,0x3 0010 0266 | f | Execute Discrete,Bounds 0011 00da | | Load_Top At_Offset_2 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 4801 |H | Short_Literal 0x1 0014 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0015 00d8 | | Load_Top At_Offset_0 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 4818 |H | Short_Literal 0x18 0018 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0019 00d8 | | Load_Top At_Offset_0 001a 0221 | ! | Execute Access,Allow_Deallocate 001b 0007 | | Action Break_Optional 001c 00da | | Load_Top At_Offset_2 001d 0322 | " | Declare_Variable Record 001e 4800 |H | Short_Literal 0x0 001f 00d9 | | Load_Top At_Offset_1 0020 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0021 0129 | ) | Execute Any,Make_Visible 0022 0007 | | Action Break_Optional 0023 00db | | Load_Top At_Offset_3 0024 0322 | " | Declare_Variable Record 0025 4800 |H | Short_Literal 0x0 0026 00d9 | | Load_Top At_Offset_1 0027 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0028 0129 | ) | Execute Any,Make_Visible 0029 a004 | | Store_Unchecked 0x0,0x4 002a 00c6 | | Action Check_Subprogram_Elaborated 002b 00db | | Load_Top At_Offset_3 002c 0129 | ) | Execute Any,Make_Visible 002d 00db | | Load_Top At_Offset_3 002e 0129 | ) | Execute Any,Make_Visible 002f e005 | | Load 0x0,0x5 0030 0129 | ) | Execute Any,Make_Visible 0031 e006 | | Load 0x0,0x6 0032 0129 | ) | Execute Any,Make_Visible 0033 4800 |H | Short_Literal 0x0 0034 0129 | ) | Execute Any,Make_Visible 0035 e003 | | Load 0x0,0x3 0036 0266 | f | Execute Discrete,Bounds 0037 e003 | | Load 0x0,0x3 0038 03f9 | | Declare_Type Discrete,Constrained,Visible 0039 0007 | | Action Break_Optional 003a e002 | | Load 0x0,0x2 003b 02a0 | | Declare_Subprogram Null_Subprogram 003c 4801 |H | Short_Literal 0x1 003d 032e | . | Declare_Type Record,Defined,Visible 003e 00d8 | | Load_Top At_Offset_0 003f 0322 | " | Declare_Variable Record 0040 4800 |H | Short_Literal 0x0 0041 00d9 | | Load_Top At_Offset_1 0042 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0043 0129 | ) | Execute Any,Make_Visible 0044 00d9 | | Load_Top At_Offset_1 0045 0322 | " | Declare_Variable Record 0046 4800 |H | Short_Literal 0x0 0047 00d9 | | Load_Top At_Offset_1 0048 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0049 0129 | ) | Execute Any,Make_Visible 004a 00da | | Load_Top At_Offset_2 004b 0322 | " | Declare_Variable Record 004c 4801 |H | Short_Literal 0x1 004d 00d9 | | Load_Top At_Offset_1 004e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 004f 0129 | ) | Execute Any,Make_Visible 0050 00db | | Load_Top At_Offset_3 0051 02a0 | | Declare_Subprogram Null_Subprogram 0052 4801 |H | Short_Literal 0x1 0053 032e | . | Declare_Type Record,Defined,Visible 0054 00d8 | | Load_Top At_Offset_0 0055 0322 | " | Declare_Variable Record 0056 00d8 | | Load_Top At_Offset_0 0057 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0058 4800 |H | Short_Literal 0x0 0059 00d0 | | Action Swap_Control 005a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005b 0129 | ) | Execute Any,Make_Visible 005c e003 | | Load 0x0,0x3 005d 0266 | f | Execute Discrete,Bounds 005e 00db | | Load_Top At_Offset_3 005f 02a0 | | Declare_Subprogram Null_Subprogram 0060 4801 |H | Short_Literal 0x1 0061 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0062 00d8 | | Load_Top At_Offset_0 0063 02a0 | | Declare_Subprogram Null_Subprogram 0064 4818 |H | Short_Literal 0x18 0065 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0066 00d8 | | Load_Top At_Offset_0 0067 0221 | ! | Execute Access,Allow_Deallocate 0068 0007 | | Action Break_Optional 0069 0007 | | Action Break_Optional 006a a004 | | Store_Unchecked 0x0,0x4 006b 00c6 | | Action Check_Subprogram_Elaborated 006c 00d9 | | Load_Top At_Offset_1 006d 0129 | ) | Execute Any,Make_Visible 006e 00d9 | | Load_Top At_Offset_1 006f 0129 | ) | Execute Any,Make_Visible 0070 e007 | | Load 0x0,0x7 0071 0129 | ) | Execute Any,Make_Visible 0072 e008 | | Load 0x0,0x8 0073 0129 | ) | Execute Any,Make_Visible 0074 4800 |H | Short_Literal 0x0 0075 0129 | ) | Execute Any,Make_Visible 0076 4800 |H | Short_Literal 0x0 0077 481f |H | Short_Literal 0x1f 0078 029f 027b | {| Declare_Subprogram INIT_0278,For_Call 007a 03fe | | Declare_Type Discrete,Defined,Visible 007b 00d8 | | Load_Top At_Offset_0 007c 0266 | f | Execute Discrete,Bounds 007d 00e1 | | Load_Encached Boolean_Cache 007e 02a0 | | Declare_Subprogram Null_Subprogram 007f 4801 |H | Short_Literal 0x1 0080 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0081 4800 |H | Short_Literal 0x0 0082 481f |H | Short_Literal 0x1f 0083 00da | | Load_Top At_Offset_2 0084 035c | \ | Declare_Type Array,Constrained,Visible 0085 4810 |H | Short_Literal 0x10 0086 481f |H | Short_Literal 0x1f 0087 00db | | Load_Top At_Offset_3 0088 035c | \ | Declare_Type Array,Constrained,Visible 0089 00d9 | | Load_Top At_Offset_1 008a 0336 | 6 | Declare_Variable Array,Visible 008b 00d8 | | Load_Top At_Offset_0 008c 0335 | 5 | Declare_Variable Array,Duplicate 008d 00cd | | Action Spare6_Action 008e 481f |H | Short_Literal 0x1f 008f 4800 |H | Short_Literal 0x0 0090 4800 |H | Short_Literal 0x0 0091 00d9 | | Load_Top At_Offset_1 0092 e22a | * | Load 0x1,0x2a 0093 01d6 | | Execute Vector,Field_Write 0094 3ffb |? | Loop_Increasing 0x90 0095 00d9 | | Load_Top At_Offset_1 0096 01d4 | | Execute Vector,Structure_Write 0097 00da | | Load_Top At_Offset_2 0098 0337 | 7 | Declare_Variable Array 0099 4801 |H | Short_Literal 0x1 009a 4819 |H | Short_Literal 0x19 009b 00da | | Load_Top At_Offset_2 009c 01d6 | | Execute Vector,Field_Write 009d 4801 |H | Short_Literal 0x1 009e 4818 |H | Short_Literal 0x18 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 4801 |H | Short_Literal 0x1 00a2 4812 |H | Short_Literal 0x12 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 4811 |H | Short_Literal 0x11 00a6 4800 |H | Short_Literal 0x0 00a7 4800 |H | Short_Literal 0x0 00a8 00d9 | | Load_Top At_Offset_1 00a9 e22a | * | Load 0x1,0x2a 00aa 01d6 | | Execute Vector,Field_Write 00ab 3ffb |? | Loop_Increasing 0xa7 00ac 4817 |H | Short_Literal 0x17 00ad 4813 |H | Short_Literal 0x13 00ae 4800 |H | Short_Literal 0x0 00af 00d9 | | Load_Top At_Offset_1 00b0 e22a | * | Load 0x1,0x2a 00b1 01d6 | | Execute Vector,Field_Write 00b2 3ffb |? | Loop_Increasing 0xae 00b3 481f |H | Short_Literal 0x1f 00b4 481a |H | Short_Literal 0x1a 00b5 4800 |H | Short_Literal 0x0 00b6 00d9 | | Load_Top At_Offset_1 00b7 e22a | * | Load 0x1,0x2a 00b8 01d6 | | Execute Vector,Field_Write 00b9 3ffb |? | Loop_Increasing 0xb5 00ba 00db | | Load_Top At_Offset_3 00bb 01c3 | | Execute Vector,Check_In_Type 00bc 0129 | ) | Execute Any,Make_Visible 00bd 00db | | Load_Top At_Offset_3 00be 0337 | 7 | Declare_Variable Array 00bf 4801 |H | Short_Literal 0x1 00c0 4817 |H | Short_Literal 0x17 00c1 00da | | Load_Top At_Offset_2 00c2 01d6 | | Execute Vector,Field_Write 00c3 4801 |H | Short_Literal 0x1 00c4 4816 |H | Short_Literal 0x16 00c5 00da | | Load_Top At_Offset_2 00c6 01d6 | | Execute Vector,Field_Write 00c7 4801 |H | Short_Literal 0x1 00c8 4815 |H | Short_Literal 0x15 00c9 00da | | Load_Top At_Offset_2 00ca 01d6 | | Execute Vector,Field_Write 00cb 4801 |H | Short_Literal 0x1 00cc 4814 |H | Short_Literal 0x14 00cd 00da | | Load_Top At_Offset_2 00ce 01d6 | | Execute Vector,Field_Write 00cf 4801 |H | Short_Literal 0x1 00d0 4813 |H | Short_Literal 0x13 00d1 00da | | Load_Top At_Offset_2 00d2 01d6 | | Execute Vector,Field_Write 00d3 4812 |H | Short_Literal 0x12 00d4 4800 |H | Short_Literal 0x0 00d5 4800 |H | Short_Literal 0x0 00d6 00d9 | | Load_Top At_Offset_1 00d7 e22b | + | Load 0x1,0x2b 00d8 01d6 | | Execute Vector,Field_Write 00d9 3ffb |? | Loop_Increasing 0xd5 00da 481f |H | Short_Literal 0x1f 00db 4818 |H | Short_Literal 0x18 00dc 4800 |H | Short_Literal 0x0 00dd 00d9 | | Load_Top At_Offset_1 00de e22b | + | Load 0x1,0x2b 00df 01d6 | | Execute Vector,Field_Write 00e0 3ffb |? | Loop_Increasing 0xdc 00e1 e227 | ' | Load 0x1,0x27 00e2 01c3 | | Execute Vector,Check_In_Type 00e3 0129 | ) | Execute Any,Make_Visible 00e4 e227 | ' | Load 0x1,0x27 00e5 0337 | 7 | Declare_Variable Array 00e6 4800 |H | Short_Literal 0x0 00e7 4800 |H | Short_Literal 0x0 00e8 00da | | Load_Top At_Offset_2 00e9 01d6 | | Execute Vector,Field_Write 00ea 4800 |H | Short_Literal 0x0 00eb 4801 |H | Short_Literal 0x1 00ec 00da | | Load_Top At_Offset_2 00ed 01d6 | | Execute Vector,Field_Write 00ee 4800 |H | Short_Literal 0x0 00ef 4802 |H | Short_Literal 0x2 00f0 00da | | Load_Top At_Offset_2 00f1 01d6 | | Execute Vector,Field_Write 00f2 4800 |H | Short_Literal 0x0 00f3 4803 |H | Short_Literal 0x3 00f4 00da | | Load_Top At_Offset_2 00f5 01d6 | | Execute Vector,Field_Write 00f6 4800 |H | Short_Literal 0x0 00f7 4804 |H | Short_Literal 0x4 00f8 00da | | Load_Top At_Offset_2 00f9 01d6 | | Execute Vector,Field_Write 00fa 4800 |H | Short_Literal 0x0 00fb 4805 |H | Short_Literal 0x5 00fc 00da | | Load_Top At_Offset_2 00fd 01d6 | | Execute Vector,Field_Write 00fe 4800 |H | Short_Literal 0x0 00ff 4806 |H | Short_Literal 0x6 0100 00da | | Load_Top At_Offset_2 0101 01d6 | | Execute Vector,Field_Write 0102 4801 |H | Short_Literal 0x1 0103 4807 |H | Short_Literal 0x7 0104 00da | | Load_Top At_Offset_2 0105 01d6 | | Execute Vector,Field_Write 0106 4801 |H | Short_Literal 0x1 0107 4808 |H | Short_Literal 0x8 0108 00da | | Load_Top At_Offset_2 0109 01d6 | | Execute Vector,Field_Write 010a 4801 |H | Short_Literal 0x1 010b 4809 |H | Short_Literal 0x9 010c 00da | | Load_Top At_Offset_2 010d 01d6 | | Execute Vector,Field_Write 010e 4801 |H | Short_Literal 0x1 010f 480a |H | Short_Literal 0xa 0110 00da | | Load_Top At_Offset_2 0111 01d6 | | Execute Vector,Field_Write 0112 4801 |H | Short_Literal 0x1 0113 480b |H | Short_Literal 0xb 0114 00da | | Load_Top At_Offset_2 0115 01d6 | | Execute Vector,Field_Write 0116 4801 |H | Short_Literal 0x1 0117 480c |H | Short_Literal 0xc 0118 00da | | Load_Top At_Offset_2 0119 01d6 | | Execute Vector,Field_Write 011a 4801 |H | Short_Literal 0x1 011b 480d |H | Short_Literal 0xd 011c 00da | | Load_Top At_Offset_2 011d 01d6 | | Execute Vector,Field_Write 011e 4801 |H | Short_Literal 0x1 011f 480e |H | Short_Literal 0xe 0120 00da | | Load_Top At_Offset_2 0121 01d6 | | Execute Vector,Field_Write 0122 4801 |H | Short_Literal 0x1 0123 480f |H | Short_Literal 0xf 0124 00da | | Load_Top At_Offset_2 0125 01d6 | | Execute Vector,Field_Write 0126 4801 |H | Short_Literal 0x1 0127 4810 |H | Short_Literal 0x10 0128 00da | | Load_Top At_Offset_2 0129 01d6 | | Execute Vector,Field_Write 012a 4801 |H | Short_Literal 0x1 012b 4811 |H | Short_Literal 0x11 012c 00da | | Load_Top At_Offset_2 012d 01d6 | | Execute Vector,Field_Write 012e 4801 |H | Short_Literal 0x1 012f 4812 |H | Short_Literal 0x12 0130 00da | | Load_Top At_Offset_2 0131 01d6 | | Execute Vector,Field_Write 0132 4801 |H | Short_Literal 0x1 0133 4813 |H | Short_Literal 0x13 0134 00da | | Load_Top At_Offset_2 0135 01d6 | | Execute Vector,Field_Write 0136 4801 |H | Short_Literal 0x1 0137 4814 |H | Short_Literal 0x14 0138 00da | | Load_Top At_Offset_2 0139 01d6 | | Execute Vector,Field_Write 013a 4801 |H | Short_Literal 0x1 013b 4815 |H | Short_Literal 0x15 013c 00da | | Load_Top At_Offset_2 013d 01d6 | | Execute Vector,Field_Write 013e 4801 |H | Short_Literal 0x1 013f 4816 |H | Short_Literal 0x16 0140 00da | | Load_Top At_Offset_2 0141 01d6 | | Execute Vector,Field_Write 0142 4801 |H | Short_Literal 0x1 0143 4817 |H | Short_Literal 0x17 0144 00da | | Load_Top At_Offset_2 0145 01d6 | | Execute Vector,Field_Write 0146 4801 |H | Short_Literal 0x1 0147 4818 |H | Short_Literal 0x18 0148 00da | | Load_Top At_Offset_2 0149 01d6 | | Execute Vector,Field_Write 014a 4801 |H | Short_Literal 0x1 014b 4819 |H | Short_Literal 0x19 014c 00da | | Load_Top At_Offset_2 014d 01d6 | | Execute Vector,Field_Write 014e 4801 |H | Short_Literal 0x1 014f 481a |H | Short_Literal 0x1a 0150 00da | | Load_Top At_Offset_2 0151 01d6 | | Execute Vector,Field_Write 0152 4801 |H | Short_Literal 0x1 0153 481b |H | Short_Literal 0x1b 0154 00da | | Load_Top At_Offset_2 0155 01d6 | | Execute Vector,Field_Write 0156 4801 |H | Short_Literal 0x1 0157 481c |H | Short_Literal 0x1c 0158 00da | | Load_Top At_Offset_2 0159 01d6 | | Execute Vector,Field_Write 015a 4801 |H | Short_Literal 0x1 015b 481d |H | Short_Literal 0x1d 015c 00da | | Load_Top At_Offset_2 015d 01d6 | | Execute Vector,Field_Write 015e 4801 |H | Short_Literal 0x1 015f 481e |H | Short_Literal 0x1e 0160 00da | | Load_Top At_Offset_2 0161 01d6 | | Execute Vector,Field_Write 0162 4801 |H | Short_Literal 0x1 0163 481f |H | Short_Literal 0x1f 0164 00da | | Load_Top At_Offset_2 0165 01d6 | | Execute Vector,Field_Write 0166 e227 | ' | Load 0x1,0x27 0167 01c3 | | Execute Vector,Check_In_Type 0168 0129 | ) | Execute Any,Make_Visible 0169 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 016b 0007 | | Action Break_Optional 016c e003 | | Load 0x0,0x3 016d 0266 | f | Execute Discrete,Bounds 016e e002 | | Load 0x0,0x2 016f 02a0 | | Declare_Subprogram Null_Subprogram 0170 4801 |H | Short_Literal 0x1 0171 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0172 00d8 | | Load_Top At_Offset_0 0173 02a0 | | Declare_Subprogram Null_Subprogram 0174 4818 |H | Short_Literal 0x18 0175 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0176 00d8 | | Load_Top At_Offset_0 0177 0221 | ! | Execute Access,Allow_Deallocate 0178 0007 | | Action Break_Optional 0179 0007 | | Action Break_Optional 017a 0007 | | Action Break_Optional 017b a004 | | Store_Unchecked 0x0,0x4 017c 00c6 | | Action Check_Subprogram_Elaborated 017d 00d9 | | Load_Top At_Offset_1 017e 0129 | ) | Execute Any,Make_Visible 017f 00d9 | | Load_Top At_Offset_1 0180 0129 | ) | Execute Any,Make_Visible 0181 e009 | | Load 0x0,0x9 0182 0129 | ) | Execute Any,Make_Visible 0183 e00a | | Load 0x0,0xa 0184 0129 | ) | Execute Any,Make_Visible 0185 4800 |H | Short_Literal 0x0 0186 0129 | ) | Execute Any,Make_Visible 0187 e21c | | Load 0x1,0x1c 0188 02a0 | | Declare_Subprogram Null_Subprogram 0189 4801 |H | Short_Literal 0x1 018a 032e | . | Declare_Type Record,Defined,Visible 018b 00d8 | | Load_Top At_Offset_0 018c 0322 | " | Declare_Variable Record 018d 00d8 | | Load_Top At_Offset_0 018e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 018f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0190 4800 |H | Short_Literal 0x0 0191 00d0 | | Action Swap_Control 0192 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0193 0129 | ) | Execute Any,Make_Visible 0194 00d9 | | Load_Top At_Offset_1 0195 0322 | " | Declare_Variable Record 0196 00d8 | | Load_Top At_Offset_0 0197 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0198 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0199 4800 |H | Short_Literal 0x0 019a 00d0 | | Action Swap_Control 019b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 019c 0129 | ) | Execute Any,Make_Visible 019d 00da | | Load_Top At_Offset_2 019e 0322 | " | Declare_Variable Record 019f 00d8 | | Load_Top At_Offset_0 01a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a2 4801 |H | Short_Literal 0x1 01a3 00d0 | | Action Swap_Control 01a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a5 0129 | ) | Execute Any,Make_Visible 01a6 0007 | | Action Break_Optional 01a7 e003 | | Load 0x0,0x3 01a8 0266 | f | Execute Discrete,Bounds 01a9 e002 | | Load 0x0,0x2 01aa 02a0 | | Declare_Subprogram Null_Subprogram 01ab 4801 |H | Short_Literal 0x1 01ac 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 01ad 00d8 | | Load_Top At_Offset_0 01ae 02a0 | | Declare_Subprogram Null_Subprogram 01af 4818 |H | Short_Literal 0x18 01b0 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 01b1 00d8 | | Load_Top At_Offset_0 01b2 0221 | ! | Execute Access,Allow_Deallocate 01b3 0007 | | Action Break_Optional 01b4 0007 | | Action Break_Optional 01b5 0007 | | Action Break_Optional 01b6 0007 | | Action Break_Optional 01b7 0007 | | Action Break_Optional 01b8 a004 | | Store_Unchecked 0x0,0x4 01b9 00c6 | | Action Check_Subprogram_Elaborated 01ba 00d9 | | Load_Top At_Offset_1 01bb 0129 | ) | Execute Any,Make_Visible 01bc 00d9 | | Load_Top At_Offset_1 01bd 0129 | ) | Execute Any,Make_Visible 01be e00b | | Load 0x0,0xb 01bf 0129 | ) | Execute Any,Make_Visible 01c0 e00c | | Load 0x0,0xc 01c1 0129 | ) | Execute Any,Make_Visible 01c2 4800 |H | Short_Literal 0x0 01c3 0129 | ) | Execute Any,Make_Visible 01c4 0007 | | Action Break_Optional 01c5 0007 | | Action Break_Optional 01c6 0007 | | Action Break_Optional 01c7 0007 | | Action Break_Optional 01c8 0007 | | Action Break_Optional 01c9 e218 | | Load 0x1,0x18 01ca 02a0 | | Declare_Subprogram Null_Subprogram 01cb 4801 |H | Short_Literal 0x1 01cc 032e | . | Declare_Type Record,Defined,Visible 01cd e003 | | Load 0x0,0x3 01ce 0266 | f | Execute Discrete,Bounds 01cf 00da | | Load_Top At_Offset_2 01d0 02a0 | | Declare_Subprogram Null_Subprogram 01d1 4801 |H | Short_Literal 0x1 01d2 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 01d3 00d8 | | Load_Top At_Offset_0 01d4 02a0 | | Declare_Subprogram Null_Subprogram 01d5 4818 |H | Short_Literal 0x18 01d6 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 01d7 00d8 | | Load_Top At_Offset_0 01d8 0221 | ! | Execute Access,Allow_Deallocate 01d9 0007 | | Action Break_Optional 01da 00da | | Load_Top At_Offset_2 01db 0322 | " | Declare_Variable Record 01dc 00d8 | | Load_Top At_Offset_0 01dd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01de 4800 |H | Short_Literal 0x0 01df 00d0 | | Action Swap_Control 01e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e1 0129 | ) | Execute Any,Make_Visible 01e2 0007 | | Action Break_Optional 01e3 00db | | Load_Top At_Offset_3 01e4 0322 | " | Declare_Variable Record 01e5 00d8 | | Load_Top At_Offset_0 01e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e7 4800 |H | Short_Literal 0x0 01e8 00d0 | | Action Swap_Control 01e9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01ea 0129 | ) | Execute Any,Make_Visible 01eb a004 | | Store_Unchecked 0x0,0x4 01ec 00c6 | | Action Check_Subprogram_Elaborated 01ed 00db | | Load_Top At_Offset_3 01ee 0129 | ) | Execute Any,Make_Visible 01ef 00db | | Load_Top At_Offset_3 01f0 0129 | ) | Execute Any,Make_Visible 01f1 e00d | | Load 0x0,0xd 01f2 0129 | ) | Execute Any,Make_Visible 01f3 e00e | | Load 0x0,0xe 01f4 0129 | ) | Execute Any,Make_Visible 01f5 4800 |H | Short_Literal 0x0 01f6 0129 | ) | Execute Any,Make_Visible 01f7 e218 | | Load 0x1,0x18 01f8 02a0 | | Declare_Subprogram Null_Subprogram 01f9 4801 |H | Short_Literal 0x1 01fa 032e | . | Declare_Type Record,Defined,Visible 01fb 00d8 | | Load_Top At_Offset_0 01fc 0322 | " | Declare_Variable Record 01fd 00d8 | | Load_Top At_Offset_0 01fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ff 4800 |H | Short_Literal 0x0 0200 00d0 | | Action Swap_Control 0201 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0202 0129 | ) | Execute Any,Make_Visible 0203 e218 | | Load 0x1,0x18 0204 02a0 | | Declare_Subprogram Null_Subprogram 0205 4801 |H | Short_Literal 0x1 0206 032e | . | Declare_Type Record,Defined,Visible 0207 00d8 | | Load_Top At_Offset_0 0208 0322 | " | Declare_Variable Record 0209 00d8 | | Load_Top At_Offset_0 020a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 020b 4800 |H | Short_Literal 0x0 020c 00d0 | | Action Swap_Control 020d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 020e 0129 | ) | Execute Any,Make_Visible 020f 0007 | | Action Break_Optional 0210 e218 | | Load 0x1,0x18 0211 02a0 | | Declare_Subprogram Null_Subprogram 0212 4801 |H | Short_Literal 0x1 0213 032e | . | Declare_Type Record,Defined,Visible 0214 00d8 | | Load_Top At_Offset_0 0215 0322 | " | Declare_Variable Record 0216 00d8 | | Load_Top At_Offset_0 0217 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0218 4800 |H | Short_Literal 0x0 0219 00d0 | | Action Swap_Control 021a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 021b 0129 | ) | Execute Any,Make_Visible 021c 4800 |H | Short_Literal 0x0 021d 4801 |H | Short_Literal 0x1 021e 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 0220 03fe | | Declare_Type Discrete,Defined,Visible 0221 e002 | | Load 0x0,0x2 0222 02a0 | | Declare_Subprogram Null_Subprogram 0223 4801 |H | Short_Literal 0x1 0224 032e | . | Declare_Type Record,Defined,Visible 0225 00d8 | | Load_Top At_Offset_0 0226 0322 | " | Declare_Variable Record 0227 4800 |H | Short_Literal 0x0 0228 00d9 | | Load_Top At_Offset_1 0229 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 022a 0129 | ) | Execute Any,Make_Visible 022b 00d9 | | Load_Top At_Offset_1 022c 0322 | " | Declare_Variable Record 022d 4800 |H | Short_Literal 0x0 022e 00d9 | | Load_Top At_Offset_1 022f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0230 0129 | ) | Execute Any,Make_Visible 0231 e21c | | Load 0x1,0x1c 0232 02a0 | | Declare_Subprogram Null_Subprogram 0233 4801 |H | Short_Literal 0x1 0234 032e | . | Declare_Type Record,Defined,Visible 0235 e003 | | Load 0x0,0x3 0236 0266 | f | Execute Discrete,Bounds 0237 00da | | Load_Top At_Offset_2 0238 02a0 | | Declare_Subprogram Null_Subprogram 0239 4801 |H | Short_Literal 0x1 023a 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 023b 00d8 | | Load_Top At_Offset_0 023c 02a0 | | Declare_Subprogram Null_Subprogram 023d 4818 |H | Short_Literal 0x18 023e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 023f 00d8 | | Load_Top At_Offset_0 0240 0221 | ! | Execute Access,Allow_Deallocate 0241 0007 | | Action Break_Optional 0242 00da | | Load_Top At_Offset_2 0243 0322 | " | Declare_Variable Record 0244 00d8 | | Load_Top At_Offset_0 0245 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0246 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0247 4800 |H | Short_Literal 0x0 0248 00d0 | | Action Swap_Control 0249 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 024a 0129 | ) | Execute Any,Make_Visible 024b 00db | | Load_Top At_Offset_3 024c 0322 | " | Declare_Variable Record 024d 00d8 | | Load_Top At_Offset_0 024e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 024f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0250 4801 |H | Short_Literal 0x1 0251 00d0 | | Action Swap_Control 0252 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0253 0129 | ) | Execute Any,Make_Visible 0254 e254 | T | Load 0x1,0x54 0255 0322 | " | Declare_Variable Record 0256 00d8 | | Load_Top At_Offset_0 0257 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0258 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0259 4801 |H | Short_Literal 0x1 025a 00d0 | | Action Swap_Control 025b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 025c 0129 | ) | Execute Any,Make_Visible 025d e254 | T | Load 0x1,0x54 025e 0322 | " | Declare_Variable Record 025f 00d8 | | Load_Top At_Offset_0 0260 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0261 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0262 4800 |H | Short_Literal 0x0 0263 00d0 | | Action Swap_Control 0264 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0265 0129 | ) | Execute Any,Make_Visible 0266 0007 | | Action Break_Optional 0267 a004 | | Store_Unchecked 0x0,0x4 0268 00c6 | | Action Check_Subprogram_Elaborated 0269 e255 | U | Load 0x1,0x55 026a 0129 | ) | Execute Any,Make_Visible 026b e256 | V | Load 0x1,0x56 026c 0129 | ) | Execute Any,Make_Visible 026d e00f | | Load 0x0,0xf 026e 0129 | ) | Execute Any,Make_Visible 026f e010 | | Load 0x0,0x10 0270 0129 | ) | Execute Any,Make_Visible 0271 4800 |H | Short_Literal 0x0 0272 0129 | ) | Execute Any,Make_Visible 0273 00bf | | Action Accept_Activation 0274 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0275 00c7 | | Action Elaborate_Subprogram 0276 BODY_0008: 0276 00bc | | Action Signal_Activated 0277 00bb | | Action Signal_Completion 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 4607 |F | Jump_Case 0x8 027c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 027d 7807 |x | Jump 0x285 ; case 0x1 027e 780a |x | Jump 0x289 ; case 0x2 027f 780e |x | Jump 0x28e ; case 0x3 0280 7811 |x | Jump 0x292 ; case 0x4 0281 7812 |x | Jump 0x294 ; case 0x5 0282 7813 |x | Jump 0x296 ; case 0x6 0283 7816 |x | Jump 0x29a ; case 0x7 0284 4302 |C | .XXX[0x1] 0285 00da | | Load_Top At_Offset_2 0286 0091 02de | | Action Push_String_Extended_Indexed,0x2de ; "XEMI31" 0288 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0289 00db | | Load_Top At_Offset_3 028a 00db | | Load_Top At_Offset_3 028b 00e0 | | Load_Encached Standard_Cache 028c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 028e 00da | | Load_Top At_Offset_2 028f 00e0 | | Load_Encached Standard_Cache 0290 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0291 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0292 00db | | Load_Top At_Offset_3 0293 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0294 00db | | Load_Top At_Offset_3 0295 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0296 e225 | % | Load 0x1,0x25 0297 00dc | | Load_Top At_Offset_4 0298 0267 | g | Execute Discrete,Predecessor 0299 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 029a e225 | % | Load 0x1,0x25 029b 00dc | | Load_Top At_Offset_4 029c 0268 | h | Execute Discrete,Successor 029d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 029e 0000 0000 | | .XXX[0x2] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 4800 |H | Short_Literal 0x0 02a4 480f |H | Short_Literal 0xf 02a5 e226 | & | Load 0x1,0x26 02a6 0334 | 4 | Declare_Variable Array,With_Constraint 02a7 480f |H | Short_Literal 0xf 02a8 4800 |H | Short_Literal 0x0 02a9 4800 |H | Short_Literal 0x0 02aa 00d9 | | Load_Top At_Offset_1 02ab e402 | | Load 0x2,0x2 02ac 01d6 | | Execute Vector,Field_Write 02ad 3ffb |? | Loop_Increasing 0x2a9 02ae 00db | | Load_Top At_Offset_3 02af 01cc | | Execute Vector,Catenate 02b0 e227 | ' | Load 0x1,0x27 02b1 01c7 | | Execute Vector,Convert 02b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 4607 |F | Jump_Case 0x8 02bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02bd 7807 |x | Jump 0x2c5 ; case 0x1 02be 780a |x | Jump 0x2c9 ; case 0x2 02bf 780e |x | Jump 0x2ce ; case 0x3 02c0 7811 |x | Jump 0x2d2 ; case 0x4 02c1 7812 |x | Jump 0x2d4 ; case 0x5 02c2 7813 |x | Jump 0x2d6 ; case 0x6 02c3 7816 |x | Jump 0x2da ; case 0x7 02c4 4302 |C | .XXX[0x1] 02c5 00da | | Load_Top At_Offset_2 02c6 0091 02fe | | Action Push_String_Extended_Indexed,0x2fe ; "FAILED" 02c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c9 00db | | Load_Top At_Offset_3 02ca 00db | | Load_Top At_Offset_3 02cb 00e0 | | Load_Encached Standard_Cache 02cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ce 00da | | Load_Top At_Offset_2 02cf 00e0 | | Load_Encached Standard_Cache 02d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02d2 00db | | Load_Top At_Offset_3 02d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d4 00db | | Load_Top At_Offset_3 02d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d6 e250 | P | Load 0x1,0x50 02d7 00dc | | Load_Top At_Offset_4 02d8 0267 | g | Execute Discrete,Predecessor 02d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02da e250 | P | Load 0x1,0x50 02db 00dc | | Load_Top At_Offset_4 02dc 0268 | h | Execute Discrete,Successor 02dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02de ; -------------------------------------------------------------------------------------- 02de ; STRING TABLE 02de ; -------------------------------------------------------------------------------------- 02de 0046 | F | .STRTAB 0x0046->0x0301 ; "XEMI31" 02df 004a | J | .STRTAB 0x004a->0x0304 ; "XEMI30" 02e0 004e | N | .STRTAB 0x004e->0x0307 ; "XEMI29" 02e1 0052 | R | .STRTAB 0x0052->0x030a ; "XEMI28" 02e2 0056 | V | .STRTAB 0x0056->0x030d ; "XEMI27" 02e3 005a | Z | .STRTAB 0x005a->0x0310 ; "XEMI26" 02e4 005e | ^ | .STRTAB 0x005e->0x0313 ; "XEMI25" 02e5 0062 | b | .STRTAB 0x0062->0x0316 ; "OWNER_GRAB_BUTTON_MASK" 02e6 0076 | v | .STRTAB 0x0076->0x0321 ; "COLORMAP_CHANGE_MASK" 02e7 0088 | | .STRTAB 0x0088->0x032b ; "PROPERTY_CHANGE_MASK" 02e8 009a | | .STRTAB 0x009a->0x0335 ; "FOCUS_CHANGE_MASK" 02e9 00a9 | | .STRTAB 0x00a9->0x033d ; "SUBSTRUCTURE_REDIRECT_MASK" 02ea 00c1 | | .STRTAB 0x00c1->0x034a ; "SUBSTRUCTURE_NOTIFY_MASK" 02eb 00d7 | | .STRTAB 0x00d7->0x0356 ; "RESIZE_REDIRECT_MASK" 02ec 00e9 | | .STRTAB 0x00e9->0x0360 ; "STRUCTURE_NOTIFY_MASK" 02ed 00fc | | .STRTAB 0x00fc->0x036b ; "VISIBILITY_CHANGE_MASK" 02ee 0110 | | .STRTAB 0x0110->0x0376 ; "EXPOSURE_MASK" 02ef 011b | | .STRTAB 0x011b->0x037c ; "KEYMAP_STATE_MASK" 02f0 012a | * | .STRTAB 0x012a->0x0385 ; "BUTTON_MOTION_MASK" 02f1 013a | : | .STRTAB 0x013a->0x038e ; "BUTTON_5_MOTION_MASK" 02f2 014c | L | .STRTAB 0x014c->0x0398 ; "BUTTON_4_MOTION_MASK" 02f3 015e | ^ | .STRTAB 0x015e->0x03a2 ; "BUTTON_3_MOTION_MASK" 02f4 0170 | p | .STRTAB 0x0170->0x03ac ; "BUTTON_2_MOTION_MASK" 02f5 0182 | | .STRTAB 0x0182->0x03b6 ; "BUTTON_1_MOTION_MASK" 02f6 0194 | | .STRTAB 0x0194->0x03c0 ; "POINTER_MOTION_HINT_MASK" 02f7 01aa | | .STRTAB 0x01aa->0x03cc ; "POINTER_MOTION_MASK" 02f8 01bb | | .STRTAB 0x01bb->0x03d5 ; "LEAVE_WINDOW_MASK" 02f9 01ca | | .STRTAB 0x01ca->0x03de ; "ENTER_WINDOW_MASK" 02fa 01d9 | | .STRTAB 0x01d9->0x03e6 ; "BUTTON_RELEASE_MASK" 02fb 01ea | | .STRTAB 0x01ea->0x03f0 ; "BUTTON_PRESS_MASK" 02fc 01f9 | | .STRTAB 0x01f9->0x03f8 ; "KEY_RELEASE_MASK" 02fd 0207 | | .STRTAB 0x0207->0x0400 ; "KEY_PRESS_MASK" 02fe 0213 | | .STRTAB 0x0213->0x0407 ; "FAILED" 02ff 0217 | | .STRTAB 0x0217->0x040a ; "SUCCESSFUL" 0300 021f | | .STREND 0x021f->0x040f 0301 5845 4d49 |XEMI| .STRTAB_STRINGS 0410 ; -------------------------------------------------------------------------------------- 0410 ; Debug Table 0410 ; -------------------------------------------------------------------------------------- 0410 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4909,0x0000,0x0001,0x0005 0416 000b 042a | *| .DBG4T 0x000b,0x042a,0x8000,0x0000 041a 0274 0480 | t | .DBG4T 0x0274,0x0480,0x8000,0x0000 041e 027b 0000 | { | .DBG4T 0x027b,0x0000,0x0005,0x0000 0422 02a3 0483 | | .DBG4T 0x02a3,0x0483,0x0002,0x0000 0426 02bb 0000 | | .DBG4T 0x02bb,0x0000,0x0005,0x0000 042a ; -------------------------------------------------------------------------------------- 042a ; Debug chain 042a ; -------------------------------------------------------------------------------------- 042a 0054 0000 | T | .DBGLEN 0x0054,0x0000 042c 000b 000f | | .DBGLNO 0x000b,0x000f,0x0015,0x001b,0x001c,0x0022,0x0023,0x0029,0x0035,0x0039,0x003a,0x003e,0x0044,0x004a,0x0050,0x0054,0x005c,0x0062,0x0068,0x0069,0x006a,0x0076,0x007b,0x0081,0x0085,0x0089,0x0097,0x00bd,0x00e4,0x0169,0x016b,0x016c,0x0172,0x0178,0x0179,0x017a,0x017b,0x0187,0x018b,0x0194,0x019d,0x01a6,0x01a7,0x01ad,0x01b3,0x01b4,0x01b5,0x01b6,0x01b7,0x01b8,0x01c4,0x01c5,0x01c6,0x01c7,0x01c8,0x01c9,0x01cd,0x01d3,0x01d9,0x01da,0x01e2,0x01e3,0x01eb,0x01f7,0x01fb,0x0203,0x0207,0x020f,0x0210,0x0214,0x021c,0x0221,0x0225,0x022b,0x0231,0x0235,0x023b,0x0241,0x0242,0x024b,0x0254,0x025d,0x0266,0x0267 0480 ; -------------------------------------------------------------------------------------- 0480 ; Debug chain 0480 ; -------------------------------------------------------------------------------------- 0480 0001 0000 | | .DBGLEN 0x0001,0x0000 0482 0274 | t | .DBGLNO 0x0274 0483 ; -------------------------------------------------------------------------------------- 0483 ; Debug chain 0483 ; -------------------------------------------------------------------------------------- 0483 0000 0001 | | .DBGLEN 0x0000,0x0001 0485 02a3 | | .DBGLNO 0x02a3 0486 0000 0000 | | .BLANK 0000[0x17a]