|
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_043cfb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0518 | | .CONST 0x0518 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0078 | x | .CONST 0x0078 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0027 | ' | .CONST 0x0027 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 0129 | ) | Execute Any,Make_Visible 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0017 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0019 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 001b 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0021 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0023 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0025 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0027 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0029 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 002b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 002d 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 002f 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0031 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0033 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0035 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0037 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0039 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 003b 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 003d 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 003f 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 0041 00bf | | Action Accept_Activation 0042 e001 | | Load 0x0,0x1 0043 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0044 193b | ; | Execute Package,Field_Reference,Field_Number 0x3b 0045 0007 | | Action Break_Optional 0046 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0047 00c7 | | Action Elaborate_Subprogram 0048 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0049 00c7 | | Action Elaborate_Subprogram 004a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004b 00c7 | | Action Elaborate_Subprogram 004c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004d 00c7 | | Action Elaborate_Subprogram 004e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004f 00c7 | | Action Elaborate_Subprogram 0050 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0051 00c7 | | Action Elaborate_Subprogram 0052 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0053 00c7 | | Action Elaborate_Subprogram 0054 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0055 00c7 | | Action Elaborate_Subprogram 0056 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0057 00c7 | | Action Elaborate_Subprogram 0058 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0059 00c7 | | Action Elaborate_Subprogram 005a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005b 00c7 | | Action Elaborate_Subprogram 005c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005d 00c7 | | Action Elaborate_Subprogram 005e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005f 00c7 | | Action Elaborate_Subprogram 0060 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0061 00c7 | | Action Elaborate_Subprogram 0062 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0063 00c7 | | Action Elaborate_Subprogram 0064 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0065 00c7 | | Action Elaborate_Subprogram 0066 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0067 00c7 | | Action Elaborate_Subprogram 0068 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0069 00c7 | | Action Elaborate_Subprogram 006a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 006b 00c7 | | Action Elaborate_Subprogram 006c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 006d 00c7 | | Action Elaborate_Subprogram 006e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 006f 00c7 | | Action Elaborate_Subprogram 0070 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0071 00c7 | | Action Elaborate_Subprogram 0072 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0073 00c7 | | Action Elaborate_Subprogram 0074 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0075 00c7 | | Action Elaborate_Subprogram 0076 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0077 00c7 | | Action Elaborate_Subprogram 0078 BODY_0008: 0078 00bc | | Action Signal_Activated 0079 00bb | | Action Signal_Completion 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 0f00 | | Execute_Immediate Equal,0x0 0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 0f00 | | Execute_Immediate Equal,0x0 008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4801 |H | Short_Literal 0x1 0094 00db | | Load_Top At_Offset_3 0095 e002 | | Load 0x0,0x2 0096 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0097 0f00 | | Execute_Immediate Equal,0x0 0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 00a4 0f00 | | Execute_Immediate Equal,0x0 00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac e001 | | Load 0x0,0x1 00ad 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ae e003 | | Load 0x0,0x3 00af 180d | | Execute Package,Field_Execute,Field_Number 0xd 00b0 012f | / | Execute Any,Equal 00b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b2 0000 0000 | | .BLANK 0000[0x6] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4800 |H | Short_Literal 0x0 00bc 00db | | Load_Top At_Offset_3 00bd e001 | | Load 0x0,0x1 00be 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c0 e001 | | Load 0x0,0x1 00c1 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00c2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e001 | | Load 0x0,0x1 00cd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00ce e004 | | Load 0x0,0x4 00cf 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00d0 027f | | Execute Discrete,Equal 00d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00de | | .CONST 0x00de ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc e001 | | Load 0x0,0x1 00dd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00de BODY_00d8: 00de 00d8 | | Load_Top At_Offset_0 00df e004 | | Load 0x0,0x4 00e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e1 027f | | Execute Discrete,Equal 00e2 700a |p | Jump_Nonzero 0xed 00e3 00d8 | | Load_Top At_Offset_0 00e4 e004 | | Load 0x0,0x4 00e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e6 027f | | Execute Discrete,Equal 00e7 7005 |p | Jump_Nonzero 0xed 00e8 00d8 | | Load_Top At_Offset_0 00e9 e004 | | Load 0x0,0x4 00ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00eb 027f | | Execute Discrete,Equal 00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ed 4801 |H | Short_Literal 0x1 00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ef 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 00f4 e001 | | Load 0x0,0x1 00f5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00f6 e004 | | Load 0x0,0x4 00f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f8 027f | | Execute Discrete,Equal 00f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fa 0000 0000 | | .BLANK 0000[0x6] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0106 | | .CONST 0x0106 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e001 | | Load 0x0,0x1 0105 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0106 BODY_0100: 0106 00d8 | | Load_Top At_Offset_0 0107 e004 | | Load 0x0,0x4 0108 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0109 027f | | Execute Discrete,Equal 010a 7005 |p | Jump_Nonzero 0x110 010b 00d8 | | Load_Top At_Offset_0 010c e004 | | Load 0x0,0x4 010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 010e 027f | | Execute Discrete,Equal 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 4801 |H | Short_Literal 0x1 0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0112 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 011c e001 | | Load 0x0,0x1 011d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 011e e004 | | Load 0x0,0x4 011f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0120 027f | | Execute Discrete,Equal 0121 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c 0c03 | | Execute_Immediate Greater_Equal,0x3 012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 0c04 | | Execute_Immediate Greater_Equal,0x4 0135 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 482e |H. | Short_Literal 0x2e 013c 00db | | Load_Top At_Offset_3 013d e005 | | Load 0x0,0x5 013e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 013f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0140 e001 | | Load 0x0,0x1 0141 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0142 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0143 01cb | | Execute Vector,Append 0144 00db | | Load_Top At_Offset_3 0145 e005 | | Load 0x0,0x5 0146 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0147 01cc | | Execute Vector,Catenate 0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 e006 | | Load 0x0,0x6 0155 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0156 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015d | ] | .CONST 0x015d ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e001 | | Load 0x0,0x1 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d BODY_0158: 015d e001 | | Load 0x0,0x1 015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015f e001 | | Load 0x0,0x1 0160 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0162 601d |` | Indirect_Literal Discrete,0x180,{0x00000000, 0x00004000} 0163 e5fd | | Load 0x2,-0x3 0164 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0165 4800 |H | Short_Literal 0x0 0166 e5ff | | Load 0x2,-0x1 0167 e001 | | Load 0x0,0x1 0168 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016a e001 | | Load 0x0,0x1 016b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 016c 180f | | Execute Package,Field_Execute,Field_Number 0xf 016d c5fe | | Store 0x2,-0x2 016e 0059 | Y | Store_Top Discrete,At_Offset_1 016f 00d8 | | Load_Top At_Offset_0 0170 820e | | Call 0x1,0xe 0171 700a |p | Jump_Nonzero 0x17c 0172 e5fd | | Load 0x2,-0x3 0173 00d9 | | Load_Top At_Offset_1 0174 e5ff | | Load 0x2,-0x1 0175 0092 0464 | d| Action Push_String_Extended,0x464 ; "Could not get unit state for" 0177 e007 | | Load 0x0,0x7 0178 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0179 e008 | | Load 0x0,0x8 017a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 017b 00d1 | | Pop_Control Pop_Count_1 017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018d | | .CONST 0x018d ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e001 | | Load 0x0,0x1 018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018d BODY_0188: 018d e001 | | Load 0x0,0x1 018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018f e5fe | | Load 0x2,-0x2 0190 67ef |g | Indirect_Literal Discrete,0x180,{0x00000000, 0x00004000} 0191 e5fd | | Load 0x2,-0x3 0192 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0193 e5ff | | Load 0x2,-0x1 0194 e001 | | Load 0x0,0x1 0195 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0196 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0197 00d1 | | Pop_Control Pop_Count_1 0198 0059 | Y | Store_Top Discrete,At_Offset_1 0199 00d8 | | Load_Top At_Offset_0 019a 820e | | Call 0x1,0xe 019b 700a |p | Jump_Nonzero 0x1a6 019c e5fd | | Load 0x2,-0x3 019d 00d9 | | Load_Top At_Offset_1 019e e5ff | | Load 0x2,-0x1 019f 0092 0465 | e| Action Push_String_Extended,0x465 ; "Could not get target key for" 01a1 e007 | | Load 0x0,0x7 01a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a3 e008 | | Load 0x0,0x8 01a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01a5 00d1 | | Pop_Control Pop_Count_1 01a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b3 | | .CONST 0x01b3 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e001 | | Load 0x0,0x1 01ac 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01ad 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ae 02c7 | | Declare_Variable Any 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 e001 | | Load 0x0,0x1 01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b3 BODY_01a8: 01b3 e001 | | Load 0x0,0x1 01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b5 00da | | Load_Top At_Offset_2 01b6 0120 | | Execute Any,Is_Value 01b7 6804 |h | Jump_Zero 0x1bc 01b8 e001 | | Load 0x0,0x1 01b9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01ba 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01bb 7801 |x | Jump 0x1bd 01bc 00da | | Load_Top At_Offset_2 01bd e001 | | Load 0x0,0x1 01be 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01bf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01c0 601f |` | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00004000} 01c1 4801 |H | Short_Literal 0x1 01c2 4800 |H | Short_Literal 0x0 01c3 4800 |H | Short_Literal 0x0 01c4 e5fd | | Load 0x2,-0x3 01c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c6 4801 |H | Short_Literal 0x1 01c7 e5ff | | Load 0x2,-0x1 01c8 e001 | | Load 0x0,0x1 01c9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01cb e001 | | Load 0x0,0x1 01cc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01cd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01ce c5fe | | Store 0x2,-0x2 01cf c402 | | Store 0x2,0x2 01d0 0059 | Y | Store_Top Discrete,At_Offset_1 01d1 00d8 | | Load_Top At_Offset_0 01d2 820e | | Call 0x1,0xe 01d3 700a |p | Jump_Nonzero 0x1de 01d4 e5fd | | Load 0x2,-0x3 01d5 00d9 | | Load_Top At_Offset_1 01d6 e5ff | | Load 0x2,-0x1 01d7 0092 0466 | f| Action Push_String_Extended,0x466 ; "Could not get tree for" 01d9 e007 | | Load 0x0,0x7 01da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01db e008 | | Load 0x0,0x8 01dc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01dd 00d1 | | Pop_Control Pop_Count_1 01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01df 0000 | | .XXX[0x1] 01e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f2 | | .CONST 0x01f2 ; Address of begin 01e9 0201 | | .CONST 0x0201 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 8227 | ' | Call 0x1,0x27 01ed e005 | | Load 0x0,0x5 01ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ef 02c7 | | Declare_Variable Any 01f0 00d8 | | Load_Top At_Offset_0 01f1 1c00 | | Execute_Immediate Run_Utility,0x0 01f2 BODY_01e8: 01f2 e5fd | | Load 0x2,-0x3 01f3 00da | | Load_Top At_Offset_2 01f4 e005 | | Load 0x0,0x5 01f5 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 01f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f7 c403 | | Store 0x2,0x3 01f8 00d8 | | Load_Top At_Offset_0 01f9 e005 | | Load 0x0,0x5 01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fb 012f | / | Execute Any,Equal 01fc 6801 |h | Jump_Zero 0x1fe 01fd 0887 | | Execute_Immediate Raise,0x87 01fe 00d8 | | Load_Top At_Offset_0 01ff c5fc | | Store 0x2,-0x4 0200 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0201 TRAP_01e8: 0201 0007 | | Action Break_Optional 0202 e5fb | | Load 0x2,-0x5 0203 e5fe | | Load 0x2,-0x2 0204 0092 0467 | g| Action Push_String_Extended,0x467 ; "Could not find unit " 0206 e402 | | Load 0x2,0x2 0207 01cc | | Execute Vector,Catenate 0208 0092 0468 | h| Action Push_String_Extended,0x468 ; " in code view" 020a 01cc | | Execute Vector,Catenate 020b e007 | | Load 0x0,0x7 020c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 020d e5ff | | Load 0x2,-0x1 020e e008 | | Load 0x0,0x8 020f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0210 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0227 | ' | .CONST 0x0227 ; Address of begin 0219 024b | K | .CONST 0x024b ; Address of exception handler 021a 0004 | | .CONST 0x0004 ; Number of locals 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c 8227 | ' | Call 0x1,0x27 021d e006 | | Load 0x0,0x6 021e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021f 02c7 | | Declare_Variable Any 0220 00d8 | | Load_Top At_Offset_0 0221 1c00 | | Execute_Immediate Run_Utility,0x0 0222 e006 | | Load 0x0,0x6 0223 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0224 02c7 | | Declare_Variable Any 0225 00d8 | | Load_Top At_Offset_0 0226 1c00 | | Execute_Immediate Run_Utility,0x0 0227 BODY_0218: 0227 00d9 | | Load_Top At_Offset_1 0228 0120 | | Execute Any,Is_Value 0229 6803 |h | Jump_Zero 0x22d 022a e006 | | Load 0x0,0x6 022b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022c 7801 |x | Jump 0x22e 022d 00d9 | | Load_Top At_Offset_1 022e 4801 |H | Short_Literal 0x1 022f 4800 |H | Short_Literal 0x0 0230 e5fe | | Load 0x2,-0x2 0231 e5fc | | Load 0x2,-0x4 0232 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0233 e006 | | Load 0x0,0x6 0234 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0235 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0236 e5fc | | Load 0x2,-0x4 0237 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0238 e006 | | Load 0x0,0x6 0239 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023b c403 | | Store 0x2,0x3 023c 00da | | Load_Top At_Offset_2 023d 00da | | Load_Top At_Offset_2 023e e006 | | Load 0x0,0x6 023f 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0240 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0241 c404 | | Store 0x2,0x4 0242 00d8 | | Load_Top At_Offset_0 0243 e006 | | Load 0x0,0x6 0244 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0245 012f | / | Execute Any,Equal 0246 6801 |h | Jump_Zero 0x248 0247 0887 | | Execute_Immediate Raise,0x87 0248 00d8 | | Load_Top At_Offset_0 0249 c5fd | | Store 0x2,-0x3 024a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024b TRAP_0218: 024b 0007 | | Action Break_Optional 024c e5fc | | Load 0x2,-0x4 024d e5fe | | Load 0x2,-0x2 024e 0092 0467 | g| Action Push_String_Extended,0x467 ; "Could not find unit " 0250 e402 | | Load 0x2,0x2 0251 01cc | | Execute Vector,Catenate 0252 0092 0468 | h| Action Push_String_Extended,0x468 ; " in code view" 0254 01cc | | Execute Vector,Catenate 0255 e007 | | Load 0x0,0x7 0256 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0257 e5ff | | Load 0x2,-0x1 0258 e008 | | Load 0x0,0x8 0259 181d | | Execute Package,Field_Execute,Field_Number 0x1d 025a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 025b 0000 0000 | | .BLANK 0000[0x5] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0270 | p | .CONST 0x0270 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0004 | | .CONST 0x0004 ; Number of locals 0263 INIT_0260: 0263 e001 | | Load 0x0,0x1 0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0265 02c7 | | Declare_Variable Any 0266 00d8 | | Load_Top At_Offset_0 0267 1c00 | | Execute_Immediate Run_Utility,0x0 0268 e001 | | Load 0x0,0x1 0269 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 026a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 026b 02c7 | | Declare_Variable Any 026c 00d8 | | Load_Top At_Offset_0 026d 1c00 | | Execute_Immediate Run_Utility,0x0 026e e001 | | Load 0x0,0x1 026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0270 BODY_0260: 0270 e001 | | Load 0x0,0x1 0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0272 00da | | Load_Top At_Offset_2 0273 0120 | | Execute Any,Is_Value 0274 6804 |h | Jump_Zero 0x279 0275 e001 | | Load 0x0,0x1 0276 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0277 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0278 7801 |x | Jump 0x27a 0279 00da | | Load_Top At_Offset_2 027a e5ff | | Load 0x2,-0x1 027b e001 | | Load 0x0,0x1 027c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 027d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 027e c403 | | Store 0x2,0x3 027f 0059 | Y | Store_Top Discrete,At_Offset_1 0280 00d8 | | Load_Top At_Offset_0 0281 820e | | Call 0x1,0xe 0282 700a |p | Jump_Nonzero 0x28d 0283 e5fd | | Load 0x2,-0x3 0284 00d9 | | Load_Top At_Offset_1 0285 e5ff | | Load 0x2,-0x1 0286 0092 0469 | i| Action Push_String_Extended,0x469 ; "Could not get enclosing world for" 0288 e007 | | Load 0x0,0x7 0289 1815 | | Execute Package,Field_Execute,Field_Number 0x15 028a e008 | | Load 0x0,0x8 028b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 028c 00d1 | | Pop_Control Pop_Count_1 028d 00d9 | | Load_Top At_Offset_1 028e e001 | | Load 0x0,0x1 028f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0290 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0291 c402 | | Store 0x2,0x2 0292 00da | | Load_Top At_Offset_2 0293 8215 | | Call 0x1,0x15 0294 7009 |p | Jump_Nonzero 0x29e 0295 e5fd | | Load 0x2,-0x3 0296 0092 046a | j| Action Push_String_Extended,0x46a ; "is not in a view" 0298 e5ff | | Load 0x2,-0x1 0299 e007 | | Load 0x0,0x7 029a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 029b e008 | | Load 0x0,0x8 029c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 029d 00d1 | | Pop_Control Pop_Count_1 029e 00da | | Load_Top At_Offset_2 029f c5fe | | Store 0x2,-0x2 02a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a1 0000 0000 | | .BLANK 0000[0x7] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b7 | | .CONST 0x02b7 ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0004 | | .CONST 0x0004 ; Number of locals 02ab INIT_02a8: 02ab e009 | | Load 0x0,0x9 02ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02ad 0322 | " | Declare_Variable Record 02ae 00d8 | | Load_Top At_Offset_0 02af 1c00 | | Execute_Immediate Run_Utility,0x0 02b0 e00a | | Load 0x0,0xa 02b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b2 e001 | | Load 0x0,0x1 02b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b4 02c7 | | Declare_Variable Any 02b5 00d8 | | Load_Top At_Offset_0 02b6 1c00 | | Execute_Immediate Run_Utility,0x0 02b7 BODY_02a8: 02b7 e00a | | Load 0x0,0xa 02b8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02b9 00db | | Load_Top At_Offset_3 02ba e5fd | | Load 0x2,-0x3 02bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02bc 4800 |H | Short_Literal 0x0 02bd 4800 |H | Short_Literal 0x0 02be e5ff | | Load 0x2,-0x1 02bf e009 | | Load 0x0,0x9 02c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02c1 00d1 | | Pop_Control Pop_Count_1 02c2 005a | Z | Store_Top Discrete,At_Offset_2 02c3 00d9 | | Load_Top At_Offset_1 02c4 8211 | | Call 0x1,0x11 02c5 6817 |h | Jump_Zero 0x2dd 02c6 00da | | Load_Top At_Offset_2 02c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02c8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02c9 e00b | | Load 0x0,0xb 02ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02cb 0162 | b | Execute Variant_Record,Check_In_Type 02cc e001 | | Load 0x0,0x1 02cd 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 02ce 180e | | Execute Package,Field_Execute,Field_Number 0xe 02cf c404 | | Store 0x2,0x4 02d0 e5fd | | Load 0x2,-0x3 02d1 e5fe | | Load 0x2,-0x2 02d2 0120 | | Execute Any,Is_Value 02d3 6803 |h | Jump_Zero 0x2d7 02d4 e001 | | Load 0x0,0x1 02d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02d6 7801 |x | Jump 0x2d8 02d7 e5fe | | Load 0x2,-0x2 02d8 00da | | Load_Top At_Offset_2 02d9 8222 | " | Call 0x1,0x22 02da c5fe | | Store 0x2,-0x2 02db 00d1 | | Pop_Control Pop_Count_1 02dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02dd e5fd | | Load 0x2,-0x3 02de 00da | | Load_Top At_Offset_2 02df e5ff | | Load 0x2,-0x1 02e0 0092 046b | k| Action Push_String_Extended,0x46b ; "Could not get enclosing object for" 02e2 e007 | | Load 0x0,0x7 02e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e4 e008 | | Load 0x0,0x8 02e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02e6 00d1 | | Pop_Control Pop_Count_1 02e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f3 | | .CONST 0x02f3 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0003 | | .CONST 0x0003 ; Number of locals 02eb INIT_02e8: 02eb e001 | | Load 0x0,0x1 02ec 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ee 02c7 | | Declare_Variable Any 02ef 00d8 | | Load_Top At_Offset_0 02f0 1c00 | | Execute_Immediate Run_Utility,0x0 02f1 e001 | | Load 0x0,0x1 02f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f3 BODY_02e8: 02f3 e001 | | Load 0x0,0x1 02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f5 00da | | Load_Top At_Offset_2 02f6 0120 | | Execute Any,Is_Value 02f7 6804 |h | Jump_Zero 0x2fc 02f8 e001 | | Load 0x0,0x1 02f9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02fb 7801 |x | Jump 0x2fd 02fc 00da | | Load_Top At_Offset_2 02fd e5ff | | Load 0x2,-0x1 02fe e001 | | Load 0x0,0x1 02ff 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0300 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0301 c402 | | Store 0x2,0x2 0302 0059 | Y | Store_Top Discrete,At_Offset_1 0303 00d8 | | Load_Top At_Offset_0 0304 820e | | Call 0x1,0xe 0305 700a |p | Jump_Nonzero 0x310 0306 e5fd | | Load 0x2,-0x3 0307 00d9 | | Load_Top At_Offset_1 0308 e5ff | | Load 0x2,-0x1 0309 0092 046c | l| Action Push_String_Extended,0x46c ; "Could not get enclosing subsystem for" 030b e007 | | Load 0x0,0x7 030c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 030d e008 | | Load 0x0,0x8 030e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 030f 00d1 | | Pop_Control Pop_Count_1 0310 00d9 | | Load_Top At_Offset_1 0311 e001 | | Load 0x0,0x1 0312 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0313 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0314 c5fe | | Store 0x2,-0x2 0315 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0316 0000 0000 | | .XXX[0x2] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0334 | 4 | .CONST 0x0334 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0008 | | .CONST 0x0008 ; Number of locals 031b INIT_0318: 031b e00c | | Load 0x0,0xc 031c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031d e001 | | Load 0x0,0x1 031e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 031f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0320 e001 | | Load 0x0,0x1 0321 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0322 e001 | | Load 0x0,0x1 0323 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0324 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0325 e001 | | Load 0x0,0x1 0326 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0327 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0328 02c7 | | Declare_Variable Any 0329 00d8 | | Load_Top At_Offset_0 032a 1c00 | | Execute_Immediate Run_Utility,0x0 032b e001 | | Load 0x0,0x1 032c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 032d 02c7 | | Declare_Variable Any 032e 00d8 | | Load_Top At_Offset_0 032f 1c00 | | Execute_Immediate Run_Utility,0x0 0330 00e1 | | Load_Encached Boolean_Cache 0331 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0332 029f 041b | | Declare_Subprogram INIT_0418,For_Call 0334 BODY_0318: 0334 e5fb | | Load 0x2,-0x5 0335 e001 | | Load 0x0,0x1 0336 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0337 701c |p | Jump_Nonzero 0x354 0338 e001 | | Load 0x0,0x1 0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033a e001 | | Load 0x0,0x1 033b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 033c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 033d 606a |`j | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x00004000} 033e e5fa | | Load 0x2,-0x6 033f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0340 4800 |H | Short_Literal 0x0 0341 e5fb | | Load 0x2,-0x5 0342 e001 | | Load 0x0,0x1 0343 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0344 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0345 c402 | | Store 0x2,0x2 0346 c403 | | Store 0x2,0x3 0347 e403 | | Load 0x2,0x3 0348 820e | | Call 0x1,0xe 0349 700a |p | Jump_Nonzero 0x354 034a e5fa | | Load 0x2,-0x6 034b e403 | | Load 0x2,0x3 034c e5fb | | Load 0x2,-0x5 034d 0092 046d | m| Action Push_String_Extended,0x46d ; "Could not establish naming context for" 034f e007 | | Load 0x0,0x7 0350 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0351 e008 | | Load 0x0,0x8 0352 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0353 00d1 | | Pop_Control Pop_Count_1 0354 e001 | | Load 0x0,0x1 0355 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0357 e405 | | Load 0x2,0x5 0358 604f |`O | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x00004000} 0359 e5fa | | Load 0x2,-0x6 035a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 035b e00c | | Load 0x0,0xc 035c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 035d e00d | | Load 0x0,0xd 035e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 035f 4801 |H | Short_Literal 0x1 0360 4800 |H | Short_Literal 0x0 0361 e402 | | Load 0x2,0x2 0362 e5fc | | Load 0x2,-0x4 0363 e001 | | Load 0x0,0x1 0364 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0365 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0366 c405 | | Store 0x2,0x5 0367 c404 | | Store 0x2,0x4 0368 e404 | | Load 0x2,0x4 0369 820f | | Call 0x1,0xf 036a 7021 |p! | Jump_Nonzero 0x38c 036b 00db | | Load_Top At_Offset_3 036c e001 | | Load 0x0,0x1 036d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 036e 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 036f c405 | | Store 0x2,0x5 0370 e5fa | | Load 0x2,-0x6 0371 4820 |H | Short_Literal 0x20 0372 e5fe | | Load 0x2,-0x2 0373 01cb | | Execute Vector,Append 0374 e5fc | | Load 0x2,-0x4 0375 01cc | | Execute Vector,Catenate 0376 0092 046e | n| Action Push_String_Extended,0x46e ; " because " 0378 01cc | | Execute Vector,Catenate 0379 602e |`. | Indirect_Literal Discrete,0x3a8,{0x00000000, 0x00004000} 037a e5fa | | Load 0x2,-0x6 037b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 037c e00c | | Load 0x0,0xc 037d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 037e e00d | | Load 0x0,0xd 037f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0380 4801 |H | Short_Literal 0x1 0381 4800 |H | Short_Literal 0x0 0382 e402 | | Load 0x2,0x2 0383 e5fc | | Load 0x2,-0x4 0384 e404 | | Load 0x2,0x4 0385 e001 | | Load 0x0,0x1 0386 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0387 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0388 01cc | | Execute Vector,Catenate 0389 e008 | | Load 0x0,0x8 038a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 038b 00d1 | | Pop_Control Pop_Count_1 038c 00cf | | Action Mark_Auxiliary 038d 7807 |x | Jump 0x395 038e 8408 | | Call 0x2,0x8 038f e405 | | Load 0x2,0x5 0390 e001 | | Load 0x0,0x1 0391 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0392 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0393 c405 | | Store 0x2,0x5 0394 00c9 | | Action Pop_Auxiliary_Loop 0395 e405 | | Load 0x2,0x5 0396 e001 | | Load 0x0,0x1 0397 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0398 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0399 6ff4 |o | Jump_Zero 0x38e 039a 00ce | | Action Pop_Auxiliary 039b 00db | | Load_Top At_Offset_3 039c e001 | | Load 0x0,0x1 039d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 039e 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 039f c405 | | Store 0x2,0x5 03a0 00d9 | | Load_Top At_Offset_1 03a1 7002 |p | Jump_Nonzero 0x3a4 03a2 e00e | | Load 0x0,0xe 03a3 0257 | W | Execute Discrete,Raise 03a4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03a5 0000 0000 | | .XXX[0x3] 03a7 0000 | | 03a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03ac 0000 0000 | | .BLANK 0000[0x4] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03c5 | | .CONST 0x03c5 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0007 | | .CONST 0x0007 ; Number of locals 03b3 INIT_03b0: 03b3 e00f | | Load 0x0,0xf 03b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03b5 e00f | | Load 0x0,0xf 03b6 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 03b7 02c7 | | Declare_Variable Any 03b8 00d8 | | Load_Top At_Offset_0 03b9 1c00 | | Execute_Immediate Run_Utility,0x0 03ba e001 | | Load 0x0,0x1 03bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03bc 02c7 | | Declare_Variable Any 03bd 00d8 | | Load_Top At_Offset_0 03be 1c00 | | Execute_Immediate Run_Utility,0x0 03bf e001 | | Load 0x0,0x1 03c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c1 00e1 | | Load_Encached Boolean_Cache 03c2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 03c3 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 03c5 BODY_03b0: 03c5 00be | | Action Activate_Tasks 03c6 e00f | | Load 0x0,0xf 03c7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03c8 0124 | $ | Execute Any,Is_Constrained 03c9 700b |p | Jump_Nonzero 0x3d5 03ca e00f | | Load 0x0,0xf 03cb 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03cc 1c09 | | Execute_Immediate Run_Utility,0x9 03cd e00f | | Load 0x0,0xf 03ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03cf e00c | | Load 0x0,0xc 03d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03d1 e00d | | Load 0x0,0xd 03d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03d3 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype 03d4 7807 |x | Jump 0x3dc 03d5 e00f | | Load 0x0,0xf 03d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d7 e00c | | Load 0x0,0xc 03d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03d9 e00d | | Load 0x0,0xd 03da 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03db 039c | | Declare_Variable Heap_Access,By_Allocation 03dc a402 | | Store_Unchecked 0x2,0x2 03dd e402 | | Load 0x2,0x2 03de e001 | | Load 0x0,0x1 03df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e0 00d9 | | Load_Top At_Offset_1 03e1 0219 | | Execute Heap_Access,All_Read 03e2 4800 |H | Short_Literal 0x0 03e3 4800 |H | Short_Literal 0x0 03e4 e5fc | | Load 0x2,-0x4 03e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03e6 e5fd | | Load 0x2,-0x3 03e7 e00f | | Load 0x0,0xf 03e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03e9 00da | | Load_Top At_Offset_2 03ea 0218 | | Execute Heap_Access,All_Write 03eb c405 | | Store 0x2,0x5 03ec 00d1 | | Pop_Control Pop_Count_1 03ed 00da | | Load_Top At_Offset_2 03ee 820e | | Call 0x1,0xe 03ef 700a |p | Jump_Nonzero 0x3fa 03f0 e5fc | | Load 0x2,-0x4 03f1 00db | | Load_Top At_Offset_3 03f2 e5fd | | Load 0x2,-0x3 03f3 0092 046f | o| Action Push_String_Extended,0x46f ; "Could not open activity" 03f5 e007 | | Load 0x0,0x7 03f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f7 e008 | | Load 0x0,0x8 03f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03f9 00d1 | | Pop_Control Pop_Count_1 03fa e403 | | Load 0x2,0x3 03fb 0120 | | Execute Any,Is_Value 03fc 6803 |h | Jump_Zero 0x400 03fd e00f | | Load 0x0,0xf 03fe 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 03ff 7801 |x | Jump 0x401 0400 e403 | | Load 0x2,0x3 0401 e402 | | Load 0x2,0x2 0402 e00f | | Load 0x0,0xf 0403 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0404 c403 | | Store 0x2,0x3 0405 00cf | | Action Mark_Auxiliary 0406 7806 |x | Jump 0x40d 0407 8407 | | Call 0x2,0x7 0408 e403 | | Load 0x2,0x3 0409 e00f | | Load 0x0,0xf 040a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 040b c403 | | Store 0x2,0x3 040c 00c9 | | Action Pop_Auxiliary_Loop 040d e403 | | Load 0x2,0x3 040e e00f | | Load 0x0,0xf 040f 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0410 6ff6 |o | Jump_Zero 0x407 0411 00ce | | Action Pop_Auxiliary 0412 00d9 | | Load_Top At_Offset_1 0413 7002 |p | Jump_Nonzero 0x416 0414 e00e | | Load 0x0,0xe 0415 0257 | W | Execute Discrete,Raise 0416 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0417 0000 | | .XXX[0x1] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 043d | = | .CONST 0x043d ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b e001 | | Load 0x0,0x1 041c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041d e406 | | Load 0x2,0x6 041e 0120 | | Execute Any,Is_Value 041f 6803 |h | Jump_Zero 0x423 0420 e001 | | Load 0x0,0x1 0421 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0422 7801 |x | Jump 0x424 0423 e406 | | Load 0x2,0x6 0424 e405 | | Load 0x2,0x5 0425 e001 | | Load 0x0,0x1 0426 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0427 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0428 c406 | | Store 0x2,0x6 0429 c403 | | Store 0x2,0x3 042a e403 | | Load 0x2,0x3 042b 820e | | Call 0x1,0xe 042c 6805 |h | Jump_Zero 0x432 042d e5fa | | Load 0x2,-0x6 042e e406 | | Load 0x2,0x6 042f 85fd | | Call 0x2,-0x3 0430 00d1 | | Pop_Control Pop_Count_1 0431 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0432 e5fa | | Load 0x2,-0x6 0433 e403 | | Load 0x2,0x3 0434 e405 | | Load 0x2,0x5 0435 0092 0470 | p| Action Push_String_Extended,0x470 ; "Could not get object" 0437 e007 | | Load 0x0,0x7 0438 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0439 e008 | | Load 0x0,0x8 043a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 043b 00d1 | | Pop_Control Pop_Count_1 043c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 043d TRAP_0418: 043d e00e | | Load 0x0,0xe 043e 010f | | Execute Exception,Equal 043f 6803 |h | Jump_Zero 0x443 0440 4800 |H | Short_Literal 0x0 0441 a407 | | Store_Unchecked 0x2,0x7 0442 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0443 0100 | | Execute Exception,Raise 0444 0000 0000 | | .BLANK 0000[0x4] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 045d | ] | .CONST 0x045d ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b e403 | | Load 0x2,0x3 044c e00f | | Load 0x0,0xf 044d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 044e c404 | | Store 0x2,0x4 044f e5fc | | Load 0x2,-0x4 0450 e402 | | Load 0x2,0x2 0451 0219 | | Execute Heap_Access,All_Read 0452 e404 | | Load 0x2,0x4 0453 e00f | | Load 0x0,0xf 0454 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0455 e402 | | Load 0x2,0x2 0456 0219 | | Execute Heap_Access,All_Read 0457 e404 | | Load 0x2,0x4 0458 e00f | | Load 0x0,0xf 0459 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 045a e404 | | Load 0x2,0x4 045b 85fe | | Call 0x2,-0x2 045c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 045d TRAP_0448: 045d e00e | | Load 0x0,0xe 045e 010f | | Execute Exception,Equal 045f 6803 |h | Jump_Zero 0x463 0460 4800 |H | Short_Literal 0x0 0461 a406 | | Store_Unchecked 0x2,0x6 0462 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0463 0100 | | Execute Exception,Raise 0464 ; -------------------------------------------------------------------------------------- 0464 ; STRING TABLE 0464 ; -------------------------------------------------------------------------------------- 0464 001c | | .STRTAB 0x001c->0x0472 ; "Could not get unit state for" 0465 0036 | 6 | .STRTAB 0x0036->0x0480 ; "Could not get target key for" 0466 0050 | P | .STRTAB 0x0050->0x048e ; "Could not get tree for" 0467 0064 | d | .STRTAB 0x0064->0x0499 ; "Could not find unit " 0468 0076 | v | .STRTAB 0x0076->0x04a3 ; " in code view" 0469 0081 | | .STRTAB 0x0081->0x04a9 ; "Could not get enclosing world for" 046a 00a0 | | .STRTAB 0x00a0->0x04ba ; "is not in a view" 046b 00ae | | .STRTAB 0x00ae->0x04c2 ; "Could not get enclosing object for" 046c 00ce | | .STRTAB 0x00ce->0x04d3 ; "Could not get enclosing subsystem for" 046d 00f1 | | .STRTAB 0x00f1->0x04e5 ; "Could not establish naming context for" 046e 0115 | | .STRTAB 0x0115->0x04f8 ; " because " 046f 011c | | .STRTAB 0x011c->0x04fd ; "Could not open activity" 0470 0131 | 1 | .STRTAB 0x0131->0x0508 ; "Could not get object" 0471 0143 | C | .STREND 0x0143->0x0512 0472 436f 756c |Coul| .STRTAB_STRINGS 0513 0000 0000 | | .BLANK 0000[0x5] 0518 ; -------------------------------------------------------------------------------------- 0518 ; Debug Table 0518 ; -------------------------------------------------------------------------------------- 0518 0004 0012 | | .DEBUG4 0x0004,0x0012,0xa535,0x0000,0x0001,0x0000 051e 0000 0000 | | .BLANK 0000[0x4] 0522 01ff d000 | | .XXX[0x2] 0524 0000 0000 | | .BLANK 0000[0x7] 052b 07ff 4000 | @ | .XXX[0x2] 052d 0000 0000 | | .BLANK 0000[0x7] 0534 1ffd | | .XXX[0x1] 0535 0000 0000 | | .BLANK 0000[0x8] 053d 7ff4 | | .XXX[0x1] 053e 0000 0000 | | .BLANK 0000[0x7] 0545 0001 ffd0 | | .XXX[0x2] 0547 0000 0000 | | .BLANK 0000[0x7] 054e 0007 ff40 | @| .XXX[0x2] 0550 0000 0000 | | .BLANK 0000[0x7] 0557 001f fd00 | | .XXX[0x2] 0559 0000 0000 | | .BLANK 0000[0x7] 0560 007f f400 | | .XXX[0x2] 0562 0000 0000 | | .BLANK 0000[0x7] 0569 01ff d000 | | .XXX[0x2] 056b 0000 0000 | | .BLANK 0000[0x7] 0572 07ff 4000 | @ | .XXX[0x2] 0574 0000 0000 | | .BLANK 0000[0x7] 057b 1ffd | | .XXX[0x1] 057c 0000 0000 | | .BLANK 0000[0x8] 0584 7ff4 | | .XXX[0x1] 0585 0000 0000 | | .BLANK 0000[0x7] 058c 0001 ffd0 | | .XXX[0x2] 058e 0000 0000 | | .BLANK 0000[0x7] 0595 0007 ff40 | @| .XXX[0x2] 0597 0000 0000 | | .BLANK 0000[0x7] 059e 001f fd00 | | .XXX[0x2] 05a0 0000 0000 | | .BLANK 0000[0x7] 05a7 007f f400 | | .XXX[0x2] 05a9 0000 0000 | | .BLANK 0000[0x7] 05b0 01ff d000 | | .XXX[0x2] 05b2 0000 0000 | | .BLANK 0000[0x7] 05b9 07ff 4000 | @ | .XXX[0x2] 05bb 0000 0000 | | .BLANK 0000[0x7] 05c2 1ffd | | .XXX[0x1] 05c3 0000 0000 | | .BLANK 0000[0x8] 05cb 7ff4 | | .XXX[0x1] 05cc 0000 0000 | | .BLANK 0000[0x7] 05d3 0001 ffd0 | | .XXX[0x2] 05d5 0000 0000 | | .BLANK 0000[0x7] 05dc 0007 ff40 | @| .XXX[0x2] 05de 0000 0000 | | .BLANK 0000[0x7] 05e5 001f fd00 | | .XXX[0x2] 05e7 0000 0000 | | .BLANK 0000[0x7] 05ee 007f f400 | | .XXX[0x2] 05f0 0000 0000 | | .BLANK 0000[0x7] 05f7 01ff d000 | | .XXX[0x2] 05f9 0000 0000 | | .BLANK 0000[0x7]