|
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_03bcfe
└─⟦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 0500 | | .CONST 0x0500 ; 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 0070 | p | .CONST 0x0070 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0017 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0019 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0021 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0023 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0025 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0027 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0029 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 002b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 002d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0031 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0033 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0035 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0037 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0039 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 003b 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 003d 00bf | | Action Accept_Activation 003e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003f 00c7 | | Action Elaborate_Subprogram 0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0041 00c7 | | Action Elaborate_Subprogram 0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0043 00c7 | | Action Elaborate_Subprogram 0044 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0045 00c7 | | Action Elaborate_Subprogram 0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0047 00c7 | | Action Elaborate_Subprogram 0048 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0049 00c7 | | Action Elaborate_Subprogram 004a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004b 00c7 | | Action Elaborate_Subprogram 004c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004d 00c7 | | Action Elaborate_Subprogram 004e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004f 00c7 | | Action Elaborate_Subprogram 0050 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0051 00c7 | | Action Elaborate_Subprogram 0052 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0053 00c7 | | Action Elaborate_Subprogram 0054 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0055 00c7 | | Action Elaborate_Subprogram 0056 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0057 00c7 | | Action Elaborate_Subprogram 0058 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0059 00c7 | | Action Elaborate_Subprogram 005a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005b 00c7 | | Action Elaborate_Subprogram 005c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005d 00c7 | | Action Elaborate_Subprogram 005e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 005f 00c7 | | Action Elaborate_Subprogram 0060 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0061 00c7 | | Action Elaborate_Subprogram 0062 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0063 00c7 | | Action Elaborate_Subprogram 0064 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0065 00c7 | | Action Elaborate_Subprogram 0066 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0067 00c7 | | Action Elaborate_Subprogram 0068 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0069 00c7 | | Action Elaborate_Subprogram 006a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 006b 00c7 | | Action Elaborate_Subprogram 006c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 006d 00c7 | | Action Elaborate_Subprogram 006e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 006f 00c7 | | Action Elaborate_Subprogram 0070 BODY_0008: 0070 00bc | | Action Signal_Activated 0071 00bb | | Action Signal_Completion 0072 0000 0000 | | .BLANK 0000[0x6] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c 0f00 | | Execute_Immediate Equal,0x0 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e 0000 0000 | | .XXX[0x2] 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 4801 |H | Short_Literal 0x1 008c 00db | | Load_Top At_Offset_3 008d e003 | | Load 0x0,0x3 008e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008f 0f00 | | Execute_Immediate Equal,0x0 0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 0f00 | | Execute_Immediate Equal,0x0 009d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009e 0000 0000 | | .XXX[0x2] 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 e004 | | Load 0x0,0x4 00a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a6 e005 | | Load 0x0,0x5 00a7 180d | | Execute Package,Field_Execute,Field_Number 0xd 00a8 012f | / | Execute Any,Equal 00a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4800 |H | Short_Literal 0x0 00b4 00db | | Load_Top At_Offset_3 00b5 e004 | | Load 0x0,0x4 00b6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b8 e004 | | Load 0x0,0x4 00b9 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00ba 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 e004 | | Load 0x0,0x4 00c5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00c6 e006 | | Load 0x0,0x6 00c7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00c8 027f | | Execute Discrete,Equal 00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d6 | | .CONST 0x00d6 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 e004 | | Load 0x0,0x4 00d5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00d6 BODY_00d0: 00d6 00d8 | | Load_Top At_Offset_0 00d7 e006 | | Load 0x0,0x6 00d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d9 027f | | Execute Discrete,Equal 00da 700c |p | Jump_Nonzero 0xe7 00db 00d8 | | Load_Top At_Offset_0 00dc e006 | | Load 0x0,0x6 00dd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00de 027f | | Execute Discrete,Equal 00df 7005 |p | Jump_Nonzero 0xe5 00e0 00d8 | | Load_Top At_Offset_0 00e1 e006 | | Load 0x0,0x6 00e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e3 027f | | Execute Discrete,Equal 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e5 4801 |H | Short_Literal 0x1 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 4801 |H | Short_Literal 0x1 00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e9 0000 0000 | | .BLANK 0000[0x7] 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 e004 | | Load 0x0,0x4 00f5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00f6 e006 | | Load 0x0,0x6 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 e004 | | Load 0x0,0x4 0105 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0106 BODY_0100: 0106 00d8 | | Load_Top At_Offset_0 0107 e006 | | Load 0x0,0x6 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 e006 | | Load 0x0,0x6 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 e004 | | Load 0x0,0x4 011d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 011e e006 | | Load 0x0,0x6 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 e007 | | Load 0x0,0x7 013e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 013f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0140 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 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 e008 | | Load 0x0,0x8 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 e004 | | Load 0x0,0x4 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d BODY_0158: 015d e004 | | Load 0x0,0x4 015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015f e004 | | Load 0x0,0x4 0160 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0162 6019 |` | Indirect_Literal Discrete,0x17c,{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 e004 | | Load 0x0,0x4 0168 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016a e004 | | Load 0x0,0x4 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 820d | | Call 0x1,0xd 0171 7008 |p | Jump_Nonzero 0x17a 0172 e5fd | | Load 0x2,-0x3 0173 00d9 | | Load_Top At_Offset_1 0174 e5ff | | Load 0x2,-0x1 0175 0092 044c | L| Action Push_String_Extended,0x44c ; "Could not get unit state for" 0177 8009 | | Call 0x0,0x9 0178 800a | | Call 0x0,0xa 0179 00d1 | | Pop_Control Pop_Count_1 017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017b 0000 | | .XXX[0x1] 017c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0185 | | .CONST 0x0185 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 e004 | | Load 0x0,0x4 0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0185 BODY_0180: 0185 e004 | | Load 0x0,0x4 0186 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0187 e5fe | | Load 0x2,-0x2 0188 67f3 |g | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00004000} 0189 e5fd | | Load 0x2,-0x3 018a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018b e5ff | | Load 0x2,-0x1 018c e004 | | Load 0x0,0x4 018d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 018e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 018f 00d1 | | Pop_Control Pop_Count_1 0190 0059 | Y | Store_Top Discrete,At_Offset_1 0191 00d8 | | Load_Top At_Offset_0 0192 820d | | Call 0x1,0xd 0193 7008 |p | Jump_Nonzero 0x19c 0194 e5fd | | Load 0x2,-0x3 0195 00d9 | | Load_Top At_Offset_1 0196 e5ff | | Load 0x2,-0x1 0197 0092 044d | M| Action Push_String_Extended,0x44d ; "Could not get target key for" 0199 8009 | | Call 0x0,0x9 019a 800a | | Call 0x0,0xa 019b 00d1 | | Pop_Control Pop_Count_1 019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ab | | .CONST 0x01ab ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 e004 | | Load 0x0,0x4 01a4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01a5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01a6 02c7 | | Declare_Variable Any 01a7 00d8 | | Load_Top At_Offset_0 01a8 1c00 | | Execute_Immediate Run_Utility,0x0 01a9 e004 | | Load 0x0,0x4 01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ab BODY_01a0: 01ab e004 | | Load 0x0,0x4 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 00da | | Load_Top At_Offset_2 01ae 0120 | | Execute Any,Is_Value 01af 6804 |h | Jump_Zero 0x1b4 01b0 e004 | | Load 0x0,0x4 01b1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01b2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01b3 7801 |x | Jump 0x1b5 01b4 00da | | Load_Top At_Offset_2 01b5 e004 | | Load 0x0,0x4 01b6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01b8 601f |` | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00004000} 01b9 4801 |H | Short_Literal 0x1 01ba 4800 |H | Short_Literal 0x0 01bb 4800 |H | Short_Literal 0x0 01bc e5fd | | Load 0x2,-0x3 01bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01be 4801 |H | Short_Literal 0x1 01bf e5ff | | Load 0x2,-0x1 01c0 e004 | | Load 0x0,0x4 01c1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c3 e004 | | Load 0x0,0x4 01c4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01c5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01c6 c5fe | | Store 0x2,-0x2 01c7 c402 | | Store 0x2,0x2 01c8 0059 | Y | Store_Top Discrete,At_Offset_1 01c9 00d8 | | Load_Top At_Offset_0 01ca 820d | | Call 0x1,0xd 01cb 7008 |p | Jump_Nonzero 0x1d4 01cc e5fd | | Load 0x2,-0x3 01cd 00d9 | | Load_Top At_Offset_1 01ce e5ff | | Load 0x2,-0x1 01cf 0092 044e | N| Action Push_String_Extended,0x44e ; "Could not get tree for" 01d1 8009 | | Call 0x0,0x9 01d2 800a | | Call 0x0,0xa 01d3 00d1 | | Pop_Control Pop_Count_1 01d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ec | | .CONST 0x01ec ; Address of begin 01e1 01fb | | .CONST 0x01fb ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 e004 | | Load 0x0,0x4 01e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01e6 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 01e7 e007 | | Load 0x0,0x7 01e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e9 02c7 | | Declare_Variable Any 01ea 00d8 | | Load_Top At_Offset_0 01eb 1c00 | | Execute_Immediate Run_Utility,0x0 01ec BODY_01e0: 01ec e5fd | | Load 0x2,-0x3 01ed 00da | | Load_Top At_Offset_2 01ee e007 | | Load 0x0,0x7 01ef 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f1 c403 | | Store 0x2,0x3 01f2 00d8 | | Load_Top At_Offset_0 01f3 e007 | | Load 0x0,0x7 01f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f5 012f | / | Execute Any,Equal 01f6 6801 |h | Jump_Zero 0x1f8 01f7 0887 | | Execute_Immediate Raise,0x87 01f8 00d8 | | Load_Top At_Offset_0 01f9 c5fc | | Store 0x2,-0x4 01fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01fb TRAP_01e0: 01fb 0007 | | Action Break_Optional 01fc e5fb | | Load 0x2,-0x5 01fd e5fe | | Load 0x2,-0x2 01fe 0092 044f | O| Action Push_String_Extended,0x44f ; "Could not find unit " 0200 e402 | | Load 0x2,0x2 0201 01cc | | Execute Vector,Catenate 0202 0092 0450 | P| Action Push_String_Extended,0x450 ; " in code view" 0204 01cc | | Execute Vector,Catenate 0205 800b | | Call 0x0,0xb 0206 e5ff | | Load 0x2,-0x1 0207 800c | | Call 0x0,0xc 0208 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0221 | ! | .CONST 0x0221 ; Address of begin 0211 0245 | E | .CONST 0x0245 ; Address of exception handler 0212 0004 | | .CONST 0x0004 ; Number of locals 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 e004 | | Load 0x0,0x4 0215 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0216 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0217 e008 | | Load 0x0,0x8 0218 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0219 02c7 | | Declare_Variable Any 021a 00d8 | | Load_Top At_Offset_0 021b 1c00 | | Execute_Immediate Run_Utility,0x0 021c e008 | | Load 0x0,0x8 021d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 021e 02c7 | | Declare_Variable Any 021f 00d8 | | Load_Top At_Offset_0 0220 1c00 | | Execute_Immediate Run_Utility,0x0 0221 BODY_0210: 0221 00d9 | | Load_Top At_Offset_1 0222 0120 | | Execute Any,Is_Value 0223 6803 |h | Jump_Zero 0x227 0224 e008 | | Load 0x0,0x8 0225 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0226 7801 |x | Jump 0x228 0227 00d9 | | Load_Top At_Offset_1 0228 4801 |H | Short_Literal 0x1 0229 4800 |H | Short_Literal 0x0 022a e5fe | | Load 0x2,-0x2 022b e5fc | | Load 0x2,-0x4 022c 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 022d e008 | | Load 0x0,0x8 022e 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 022f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0230 e5fc | | Load 0x2,-0x4 0231 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0232 e008 | | Load 0x0,0x8 0233 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0234 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0235 c403 | | Store 0x2,0x3 0236 00da | | Load_Top At_Offset_2 0237 00da | | Load_Top At_Offset_2 0238 e008 | | Load 0x0,0x8 0239 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 023a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023b c404 | | Store 0x2,0x4 023c 00d8 | | Load_Top At_Offset_0 023d e008 | | Load 0x0,0x8 023e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 023f 012f | / | Execute Any,Equal 0240 6801 |h | Jump_Zero 0x242 0241 0887 | | Execute_Immediate Raise,0x87 0242 00d8 | | Load_Top At_Offset_0 0243 c5fd | | Store 0x2,-0x3 0244 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0245 TRAP_0210: 0245 0007 | | Action Break_Optional 0246 e5fc | | Load 0x2,-0x4 0247 e5fe | | Load 0x2,-0x2 0248 0092 044f | O| Action Push_String_Extended,0x44f ; "Could not find unit " 024a e402 | | Load 0x2,0x2 024b 01cc | | Execute Vector,Catenate 024c 0092 0450 | P| Action Push_String_Extended,0x450 ; " in code view" 024e 01cc | | Execute Vector,Catenate 024f 800b | | Call 0x0,0xb 0250 e5ff | | Load 0x2,-0x1 0251 800c | | Call 0x0,0xc 0252 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0253 0000 0000 | | .BLANK 0000[0x5] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0268 | h | .CONST 0x0268 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0004 | | .CONST 0x0004 ; Number of locals 025b INIT_0258: 025b e004 | | Load 0x0,0x4 025c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025d 02c7 | | Declare_Variable Any 025e 00d8 | | Load_Top At_Offset_0 025f 1c00 | | Execute_Immediate Run_Utility,0x0 0260 e004 | | Load 0x0,0x4 0261 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0262 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0263 02c7 | | Declare_Variable Any 0264 00d8 | | Load_Top At_Offset_0 0265 1c00 | | Execute_Immediate Run_Utility,0x0 0266 e004 | | Load 0x0,0x4 0267 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0268 BODY_0258: 0268 e004 | | Load 0x0,0x4 0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd 026a 00da | | Load_Top At_Offset_2 026b 0120 | | Execute Any,Is_Value 026c 6804 |h | Jump_Zero 0x271 026d e004 | | Load 0x0,0x4 026e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0270 7801 |x | Jump 0x272 0271 00da | | Load_Top At_Offset_2 0272 e5ff | | Load 0x2,-0x1 0273 e004 | | Load 0x0,0x4 0274 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0275 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0276 c403 | | Store 0x2,0x3 0277 0059 | Y | Store_Top Discrete,At_Offset_1 0278 00d8 | | Load_Top At_Offset_0 0279 820d | | Call 0x1,0xd 027a 7008 |p | Jump_Nonzero 0x283 027b e5fd | | Load 0x2,-0x3 027c 00d9 | | Load_Top At_Offset_1 027d e5ff | | Load 0x2,-0x1 027e 0092 0451 | Q| Action Push_String_Extended,0x451 ; "Could not get enclosing world for" 0280 8009 | | Call 0x0,0x9 0281 800a | | Call 0x0,0xa 0282 00d1 | | Pop_Control Pop_Count_1 0283 00d9 | | Load_Top At_Offset_1 0284 e004 | | Load 0x0,0x4 0285 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0286 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0287 c402 | | Store 0x2,0x2 0288 00da | | Load_Top At_Offset_2 0289 8214 | | Call 0x1,0x14 028a 7007 |p | Jump_Nonzero 0x292 028b e5fd | | Load 0x2,-0x3 028c 0092 0452 | R| Action Push_String_Extended,0x452 ; "is not in a view" 028e e5ff | | Load 0x2,-0x1 028f 800d | | Call 0x0,0xd 0290 800a | | Call 0x0,0xa 0291 00d1 | | Pop_Control Pop_Count_1 0292 00da | | Load_Top At_Offset_2 0293 c5fe | | Store 0x2,-0x2 0294 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a7 | | .CONST 0x02a7 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0004 | | .CONST 0x0004 ; Number of locals 029b INIT_0298: 029b e00e | | Load 0x0,0xe 029c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 029d 0322 | " | Declare_Variable Record 029e 00d8 | | Load_Top At_Offset_0 029f 1c00 | | Execute_Immediate Run_Utility,0x0 02a0 e00f | | Load 0x0,0xf 02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a2 e004 | | Load 0x0,0x4 02a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02a4 02c7 | | Declare_Variable Any 02a5 00d8 | | Load_Top At_Offset_0 02a6 1c00 | | Execute_Immediate Run_Utility,0x0 02a7 BODY_0298: 02a7 e00f | | Load 0x0,0xf 02a8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02a9 00db | | Load_Top At_Offset_3 02aa e5fd | | Load 0x2,-0x3 02ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ac 4800 |H | Short_Literal 0x0 02ad 4800 |H | Short_Literal 0x0 02ae e5ff | | Load 0x2,-0x1 02af e00e | | Load 0x0,0xe 02b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02b1 00d1 | | Pop_Control Pop_Count_1 02b2 005a | Z | Store_Top Discrete,At_Offset_2 02b3 00d9 | | Load_Top At_Offset_1 02b4 8210 | | Call 0x1,0x10 02b5 6817 |h | Jump_Zero 0x2cd 02b6 00da | | Load_Top At_Offset_2 02b7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02b8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02b9 e010 | | Load 0x0,0x10 02ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bb 0162 | b | Execute Variant_Record,Check_In_Type 02bc e004 | | Load 0x0,0x4 02bd 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 02be 180e | | Execute Package,Field_Execute,Field_Number 0xe 02bf c404 | | Store 0x2,0x4 02c0 e5fd | | Load 0x2,-0x3 02c1 e5fe | | Load 0x2,-0x2 02c2 0120 | | Execute Any,Is_Value 02c3 6803 |h | Jump_Zero 0x2c7 02c4 e004 | | Load 0x0,0x4 02c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02c6 7801 |x | Jump 0x2c8 02c7 e5fe | | Load 0x2,-0x2 02c8 00da | | Load_Top At_Offset_2 02c9 8221 | ! | Call 0x1,0x21 02ca c5fe | | Store 0x2,-0x2 02cb 00d1 | | Pop_Control Pop_Count_1 02cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02cd e5fd | | Load 0x2,-0x3 02ce 00da | | Load_Top At_Offset_2 02cf e5ff | | Load 0x2,-0x1 02d0 0092 0453 | S| Action Push_String_Extended,0x453 ; "Could not get enclosing object for" 02d2 8011 | | Call 0x0,0x11 02d3 800a | | Call 0x0,0xa 02d4 00d1 | | Pop_Control Pop_Count_1 02d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e3 | | .CONST 0x02e3 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0003 | | .CONST 0x0003 ; Number of locals 02db INIT_02d8: 02db e004 | | Load 0x0,0x4 02dc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02de 02c7 | | Declare_Variable Any 02df 00d8 | | Load_Top At_Offset_0 02e0 1c00 | | Execute_Immediate Run_Utility,0x0 02e1 e004 | | Load 0x0,0x4 02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e3 BODY_02d8: 02e3 e004 | | Load 0x0,0x4 02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e5 00da | | Load_Top At_Offset_2 02e6 0120 | | Execute Any,Is_Value 02e7 6804 |h | Jump_Zero 0x2ec 02e8 e004 | | Load 0x0,0x4 02e9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02eb 7801 |x | Jump 0x2ed 02ec 00da | | Load_Top At_Offset_2 02ed e5ff | | Load 0x2,-0x1 02ee e004 | | Load 0x0,0x4 02ef 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 02f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f1 c402 | | Store 0x2,0x2 02f2 0059 | Y | Store_Top Discrete,At_Offset_1 02f3 00d8 | | Load_Top At_Offset_0 02f4 820d | | Call 0x1,0xd 02f5 7008 |p | Jump_Nonzero 0x2fe 02f6 e5fd | | Load 0x2,-0x3 02f7 00d9 | | Load_Top At_Offset_1 02f8 e5ff | | Load 0x2,-0x1 02f9 0092 0454 | T| Action Push_String_Extended,0x454 ; "Could not get enclosing subsystem for" 02fb 8009 | | Call 0x0,0x9 02fc 800a | | Call 0x0,0xa 02fd 00d1 | | Pop_Control Pop_Count_1 02fe 00d9 | | Load_Top At_Offset_1 02ff e004 | | Load 0x0,0x4 0300 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0301 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0302 c5fe | | Store 0x2,-0x2 0303 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0324 | $ | .CONST 0x0324 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0008 | | .CONST 0x0008 ; Number of locals 030b INIT_0308: 030b e012 | | Load 0x0,0x12 030c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 030d e004 | | Load 0x0,0x4 030e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 030f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0310 e004 | | Load 0x0,0x4 0311 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0312 e004 | | Load 0x0,0x4 0313 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0314 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0315 e004 | | Load 0x0,0x4 0316 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0317 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0318 02c7 | | Declare_Variable Any 0319 00d8 | | Load_Top At_Offset_0 031a 1c00 | | Execute_Immediate Run_Utility,0x0 031b e004 | | Load 0x0,0x4 031c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 031d 02c7 | | Declare_Variable Any 031e 00d8 | | Load_Top At_Offset_0 031f 1c00 | | Execute_Immediate Run_Utility,0x0 0320 00e1 | | Load_Encached Boolean_Cache 0321 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0322 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 0324 BODY_0308: 0324 e5fb | | Load 0x2,-0x5 0325 e004 | | Load 0x0,0x4 0326 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0327 701a |p | Jump_Nonzero 0x342 0328 e004 | | Load 0x0,0x4 0329 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032a e004 | | Load 0x0,0x4 032b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 032c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 032d 6066 |`f | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000} 032e e5fa | | Load 0x2,-0x6 032f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0330 4800 |H | Short_Literal 0x0 0331 e5fb | | Load 0x2,-0x5 0332 e004 | | Load 0x0,0x4 0333 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0334 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0335 c402 | | Store 0x2,0x2 0336 c403 | | Store 0x2,0x3 0337 e403 | | Load 0x2,0x3 0338 820d | | Call 0x1,0xd 0339 7008 |p | Jump_Nonzero 0x342 033a e5fa | | Load 0x2,-0x6 033b e403 | | Load 0x2,0x3 033c e5fb | | Load 0x2,-0x5 033d 0092 0455 | U| Action Push_String_Extended,0x455 ; "Could not establish naming context for" 033f 8009 | | Call 0x0,0x9 0340 800a | | Call 0x0,0xa 0341 00d1 | | Pop_Control Pop_Count_1 0342 e004 | | Load 0x0,0x4 0343 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0344 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0345 e405 | | Load 0x2,0x5 0346 604d |`M | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000} 0347 e5fa | | Load 0x2,-0x6 0348 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0349 e012 | | Load 0x0,0x12 034a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 034b e013 | | Load 0x0,0x13 034c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 034d 4801 |H | Short_Literal 0x1 034e 4800 |H | Short_Literal 0x0 034f e402 | | Load 0x2,0x2 0350 e5fc | | Load 0x2,-0x4 0351 e004 | | Load 0x0,0x4 0352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0353 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0354 c405 | | Store 0x2,0x5 0355 c404 | | Store 0x2,0x4 0356 e404 | | Load 0x2,0x4 0357 820e | | Call 0x1,0xe 0358 7020 |p | Jump_Nonzero 0x379 0359 00db | | Load_Top At_Offset_3 035a e004 | | Load 0x0,0x4 035b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 035c 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 035d c405 | | Store 0x2,0x5 035e e5fa | | Load 0x2,-0x6 035f 4820 |H | Short_Literal 0x20 0360 e5fe | | Load 0x2,-0x2 0361 01cb | | Execute Vector,Append 0362 e5fc | | Load 0x2,-0x4 0363 01cc | | Execute Vector,Catenate 0364 0092 0456 | V| Action Push_String_Extended,0x456 ; " because " 0366 01cc | | Execute Vector,Catenate 0367 602c |`, | Indirect_Literal Discrete,0x394,{0x00000000, 0x00004000} 0368 e5fa | | Load 0x2,-0x6 0369 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 036a e012 | | Load 0x0,0x12 036b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 036c e013 | | Load 0x0,0x13 036d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 036e 4801 |H | Short_Literal 0x1 036f 4800 |H | Short_Literal 0x0 0370 e402 | | Load 0x2,0x2 0371 e5fc | | Load 0x2,-0x4 0372 e404 | | Load 0x2,0x4 0373 e004 | | Load 0x0,0x4 0374 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0375 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0376 01cc | | Execute Vector,Catenate 0377 800a | | Call 0x0,0xa 0378 00d1 | | Pop_Control Pop_Count_1 0379 00cf | | Action Mark_Auxiliary 037a 7807 |x | Jump 0x382 037b 8408 | | Call 0x2,0x8 037c e405 | | Load 0x2,0x5 037d e004 | | Load 0x0,0x4 037e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 037f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0380 c405 | | Store 0x2,0x5 0381 00c9 | | Action Pop_Auxiliary_Loop 0382 e405 | | Load 0x2,0x5 0383 e004 | | Load 0x0,0x4 0384 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0385 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0386 6ff4 |o | Jump_Zero 0x37b 0387 00ce | | Action Pop_Auxiliary 0388 00db | | Load_Top At_Offset_3 0389 e004 | | Load 0x0,0x4 038a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 038b 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 038c c405 | | Store 0x2,0x5 038d 00d9 | | Load_Top At_Offset_1 038e 7002 |p | Jump_Nonzero 0x391 038f e014 | | Load 0x0,0x14 0390 0257 | W | Execute Discrete,Raise 0391 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0392 0000 0000 | | .XXX[0x2] 0394 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03ad | | .CONST 0x03ad ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0007 | | .CONST 0x0007 ; Number of locals 039b INIT_0398: 039b e015 | | Load 0x0,0x15 039c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 039d e015 | | Load 0x0,0x15 039e 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 039f 02c7 | | Declare_Variable Any 03a0 00d8 | | Load_Top At_Offset_0 03a1 1c00 | | Execute_Immediate Run_Utility,0x0 03a2 e004 | | Load 0x0,0x4 03a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03a4 02c7 | | Declare_Variable Any 03a5 00d8 | | Load_Top At_Offset_0 03a6 1c00 | | Execute_Immediate Run_Utility,0x0 03a7 e004 | | Load 0x0,0x4 03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a9 00e1 | | Load_Encached Boolean_Cache 03aa 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 03ab 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call 03ad BODY_0398: 03ad 00be | | Action Activate_Tasks 03ae e015 | | Load 0x0,0x15 03af 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03b0 0124 | $ | Execute Any,Is_Constrained 03b1 700b |p | Jump_Nonzero 0x3bd 03b2 e015 | | Load 0x0,0x15 03b3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03b4 1c09 | | Execute_Immediate Run_Utility,0x9 03b5 e015 | | Load 0x0,0x15 03b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03b7 e012 | | Load 0x0,0x12 03b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b9 e013 | | Load 0x0,0x13 03ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03bb 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype 03bc 7807 |x | Jump 0x3c4 03bd e015 | | Load 0x0,0x15 03be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03bf e012 | | Load 0x0,0x12 03c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03c1 e013 | | Load 0x0,0x13 03c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03c3 039c | | Declare_Variable Heap_Access,By_Allocation 03c4 a402 | | Store_Unchecked 0x2,0x2 03c5 e402 | | Load 0x2,0x2 03c6 e004 | | Load 0x0,0x4 03c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c8 00d9 | | Load_Top At_Offset_1 03c9 0219 | | Execute Heap_Access,All_Read 03ca 4800 |H | Short_Literal 0x0 03cb 4800 |H | Short_Literal 0x0 03cc e5fc | | Load 0x2,-0x4 03cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03ce e5fd | | Load 0x2,-0x3 03cf e015 | | Load 0x0,0x15 03d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03d1 00da | | Load_Top At_Offset_2 03d2 0218 | | Execute Heap_Access,All_Write 03d3 c405 | | Store 0x2,0x5 03d4 00d1 | | Pop_Control Pop_Count_1 03d5 00da | | Load_Top At_Offset_2 03d6 820d | | Call 0x1,0xd 03d7 7008 |p | Jump_Nonzero 0x3e0 03d8 e5fc | | Load 0x2,-0x4 03d9 00db | | Load_Top At_Offset_3 03da e5fd | | Load 0x2,-0x3 03db 0092 0457 | W| Action Push_String_Extended,0x457 ; "Could not open activity" 03dd 8009 | | Call 0x0,0x9 03de 800a | | Call 0x0,0xa 03df 00d1 | | Pop_Control Pop_Count_1 03e0 e403 | | Load 0x2,0x3 03e1 0120 | | Execute Any,Is_Value 03e2 6803 |h | Jump_Zero 0x3e6 03e3 e015 | | Load 0x0,0x15 03e4 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 03e5 7801 |x | Jump 0x3e7 03e6 e403 | | Load 0x2,0x3 03e7 e402 | | Load 0x2,0x2 03e8 e015 | | Load 0x0,0x15 03e9 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 03ea c403 | | Store 0x2,0x3 03eb 00cf | | Action Mark_Auxiliary 03ec 7806 |x | Jump 0x3f3 03ed 8407 | | Call 0x2,0x7 03ee e403 | | Load 0x2,0x3 03ef e015 | | Load 0x0,0x15 03f0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 03f1 c403 | | Store 0x2,0x3 03f2 00c9 | | Action Pop_Auxiliary_Loop 03f3 e403 | | Load 0x2,0x3 03f4 e015 | | Load 0x0,0x15 03f5 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 03f6 6ff6 |o | Jump_Zero 0x3ed 03f7 00ce | | Action Pop_Auxiliary 03f8 00d9 | | Load_Top At_Offset_1 03f9 7002 |p | Jump_Nonzero 0x3fc 03fa e014 | | Load 0x0,0x14 03fb 0257 | W | Execute Discrete,Raise 03fc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03fd 0000 0000 | | .XXX[0x3] 03ff 0000 | | 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0423 | # | .CONST 0x0423 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 e004 | | Load 0x0,0x4 0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0405 e406 | | Load 0x2,0x6 0406 0120 | | Execute Any,Is_Value 0407 6803 |h | Jump_Zero 0x40b 0408 e004 | | Load 0x0,0x4 0409 1b0f | | Execute Package,Field_Read,Field_Number 0xf 040a 7801 |x | Jump 0x40c 040b e406 | | Load 0x2,0x6 040c e405 | | Load 0x2,0x5 040d e004 | | Load 0x0,0x4 040e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 040f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0410 c406 | | Store 0x2,0x6 0411 c403 | | Store 0x2,0x3 0412 e403 | | Load 0x2,0x3 0413 820d | | Call 0x1,0xd 0414 6805 |h | Jump_Zero 0x41a 0415 e5fa | | Load 0x2,-0x6 0416 e406 | | Load 0x2,0x6 0417 85fd | | Call 0x2,-0x3 0418 00d1 | | Pop_Control Pop_Count_1 0419 4501 |E | Exit_Suprogram New_Top_Offset 0x1 041a e5fa | | Load 0x2,-0x6 041b e403 | | Load 0x2,0x3 041c e405 | | Load 0x2,0x5 041d 0092 0458 | X| Action Push_String_Extended,0x458 ; "Could not get object" 041f 8016 | | Call 0x0,0x16 0420 800a | | Call 0x0,0xa 0421 00d1 | | Pop_Control Pop_Count_1 0422 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0423 TRAP_0400: 0423 e014 | | Load 0x0,0x14 0424 010f | | Execute Exception,Equal 0425 6803 |h | Jump_Zero 0x429 0426 4800 |H | Short_Literal 0x0 0427 a407 | | Store_Unchecked 0x2,0x7 0428 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0429 0100 | | Execute Exception,Raise 042a 0000 0000 | | .BLANK 0000[0x6] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0445 | E | .CONST 0x0445 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 e403 | | Load 0x2,0x3 0434 e015 | | Load 0x0,0x15 0435 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0436 c404 | | Store 0x2,0x4 0437 e5fc | | Load 0x2,-0x4 0438 e402 | | Load 0x2,0x2 0439 0219 | | Execute Heap_Access,All_Read 043a e404 | | Load 0x2,0x4 043b e015 | | Load 0x0,0x15 043c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 043d e402 | | Load 0x2,0x2 043e 0219 | | Execute Heap_Access,All_Read 043f e404 | | Load 0x2,0x4 0440 e015 | | Load 0x0,0x15 0441 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0442 e404 | | Load 0x2,0x4 0443 85fe | | Call 0x2,-0x2 0444 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0445 TRAP_0430: 0445 e014 | | Load 0x0,0x14 0446 010f | | Execute Exception,Equal 0447 6803 |h | Jump_Zero 0x44b 0448 4800 |H | Short_Literal 0x0 0449 a406 | | Store_Unchecked 0x2,0x6 044a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 044b 0100 | | Execute Exception,Raise 044c ; -------------------------------------------------------------------------------------- 044c ; STRING TABLE 044c ; -------------------------------------------------------------------------------------- 044c 001c | | .STRTAB 0x001c->0x045a ; "Could not get unit state for" 044d 0036 | 6 | .STRTAB 0x0036->0x0468 ; "Could not get target key for" 044e 0050 | P | .STRTAB 0x0050->0x0476 ; "Could not get tree for" 044f 0064 | d | .STRTAB 0x0064->0x0481 ; "Could not find unit " 0450 0076 | v | .STRTAB 0x0076->0x048b ; " in code view" 0451 0081 | | .STRTAB 0x0081->0x0491 ; "Could not get enclosing world for" 0452 00a0 | | .STRTAB 0x00a0->0x04a2 ; "is not in a view" 0453 00ae | | .STRTAB 0x00ae->0x04aa ; "Could not get enclosing object for" 0454 00ce | | .STRTAB 0x00ce->0x04bb ; "Could not get enclosing subsystem for" 0455 00f1 | | .STRTAB 0x00f1->0x04cd ; "Could not establish naming context for" 0456 0115 | | .STRTAB 0x0115->0x04e0 ; " because " 0457 011c | | .STRTAB 0x011c->0x04e5 ; "Could not open activity" 0458 0131 | 1 | .STRTAB 0x0131->0x04f0 ; "Could not get object" 0459 0143 | C | .STREND 0x0143->0x04fa 045a 436f 756c |Coul| .STRTAB_STRINGS 04fb 0000 0000 | | .BLANK 0000[0x5] 0500 ; -------------------------------------------------------------------------------------- 0500 ; Debug Table 0500 ; -------------------------------------------------------------------------------------- 0500 0004 0007 | | .DEBUG4 0x0004,0x0007,0x45eb,0x0000,0x0001,0x0000 0506 eb2e 0807 | . | .XXX[0x38] 0508 8c46 c000 | F | 050a 0000 1b81 | | 050c 4003 087c |@ || 050e 1200 0000 | | 0510 03c6 0cf0 | | 0512 8930 78bb | 0x | 0514 d400 0000 | | 0516 078c 39a0 | 9 | 0518 0000 003c | <| 051a 5deb 0893 |] | 051c 078a e900 | | 051e 0000 0078 | x| 0520 c5ea 132e | .| 0522 0f14 0600 | | 0524 0000 00f1 | | 0526 5c48 0004 |\H | 0528 0f1d 28c1 | ( | 052a 27c1 ef9c |' | 052c 7000 0000 |p | 052e 1e35 b707 | 5 | 0530 8e78 4000 | x@ | 0532 53a0 c078 |S x| 0534 d6dc 1e33 | 3| 0536 c501 4412 | D | 0538 014e cd02 | N | 053a 4054 ad5f |@T _| 053c e426 0030 | & 0| 053e 0000 0000 | | .BLANK 0000[0x4] 0542 0002 2283 | " | .XXX[0x11] 0544 c6b0 40f1 | @ | 0546 991c e830 | 0| 0548 1e35 b707 | 5 | 054a 8d43 c024 | C $| 054c 0480 5e82 | ^ | 054e a090 152b | +| 0550 57f9 0980 |W | 0552 0c00 | | 0553 0000 0000 | | .BLANK 0000[0x4] 0557 0098 a000 | | .XXX[0x64] 0559 0000 3c68 | <h| 055b db08 8a07 | | 055d 8ca6 4000 | @ | 055f 0000 78d0 | x | 0561 e000 0000 | | 0563 4196 c1e3 |A | 0565 9e10 0000 | | 0567 001e 36d5 | 6 | 0569 078e 6082 | ` | 056b 618e c000 |a | 056d 0ccc 481e | H | 056f 3631 0000 |61 | 0571 0001 e377 | w| 0573 9078 e42c | x ,| 0575 0000 0000 | | 0577 004c c481 | L | 0579 e36d 5000 | mP | 057b 0000 1e38 | 8| 057d 1d07 8e25 | %| 057f 0000 0000 | | 0581 0004 ec5c | \| 0583 1e37 7900 | 7y | 0585 0000 0013 | | 0587 0200 0cf5 | | 0589 09d8 b83c | <| 058b 6ef2 0000 |n | 058d 0000 d304 | | 058f 0071 6df3 | qm | 0591 b170 78db | px | 0593 5400 0000 |T | 0595 00a8 0800 | | 0597 e982 6112 | a | 0599 60f1 b188 |` | 059b 0000 0000 | | 059d 0000 4265 | Be| 059f c1e3 2990 | ) | 05a1 0000 001e | | 05a3 3616 0000 |6 | 05a5 81e4 4228 | B(| 05a7 24f8 3df3 |$ = | 05a9 8e00 0000 | | 05ab 03c7 da80 | | 05ad f21d 9000 | | 05af 0a74 180f | t | 05b1 1f6a 03c7 | j | 05b3 7300 3102 |s 1 | 05b5 402a 5128 |@*Q(| 05b7 480a 95ab |H | 05b9 fc84 c006 | | 05bb 0000 0000 | | .BLANK 0000[0x5] 05c0 45d0 78f5 |E x | .XXX[0x10] 05c2 541e 3af6 |T : | 05c4 9d06 03c7 | | 05c6 da80 f1e7 | | 05c8 1019 7090 | p | 05ca 0bda 4a12 | J | 05cc 02a5 6aff | j | 05ce 2130 0180 |!0 | 05d0 0000 0000 | | .BLANK 0000[0x4] 05d4 0013 341e | 4 | .XXX[0x11] 05d6 3e9f 078f |> | 05d8 1027 42c0 | 'B | 05da f1f6 a03c | <| 05dc 7c58 0660 ||X `| 05de 2402 f74b |$ K| 05e0 0480 a95a | Z| 05e2 bfc8 4c00 | L | 05e4 6000 |` | 05e5 0000 0000 | | .BLANK 0000[0x4] 05e9 04cf 0000 | | .XXX[0x17] 05eb 0001 e3d8 | | 05ed a844 503c | DP<| 05ef 74d8 0000 |t | 05f1 0003 c781 | | 05f3 6000 0002 |` | 05f5 0cb6 0f21 | !| 05f7 d900 0000 | | 05f9 00f1 ff90 | | 05fb 3c86 a613 |< | 05fd 0cd1 0000 | | 05ff 6662 |fb |