|
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: 11264 (0x2c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 1510 | | .CONST 0x1510 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ba | | .CONST 0x00ba ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0055 | U | .CONST 0x0055 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4806 |H | Short_Literal 0x6 000d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0012 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0014 4800 |H | Short_Literal 0x0 0015 4803 |H | Short_Literal 0x3 0016 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0018 03fe | | Declare_Type Discrete,Defined,Visible 0019 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 001b 4800 |H | Short_Literal 0x0 001c 4802 |H | Short_Literal 0x2 001d 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 001f 03fe | | Declare_Type Discrete,Defined,Visible 0020 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0022 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0024 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0026 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0028 00bf | | Action Accept_Activation 0029 0093 0000 | | push_full_address 0x0 002b 60bc |` | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00010000} 002c 0273 | s | Execute Discrete,Plus 002d 0007 | | Action Break_Optional 002e 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 0030 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 0032 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 0034 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 0036 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call 0038 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003b 00c7 | | Action Elaborate_Subprogram 003c 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call 003e 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call 0040 029d 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call 0042 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call 0044 029b 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Unelaborated 0046 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call 0048 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call 004a 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call 004c 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call 004e 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call 0050 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call 0052 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call 0054 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call 0056 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 0058 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0059 00c7 | | Action Elaborate_Subprogram 005a 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call 005c 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 005e 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call 0060 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call 0062 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call 0064 029d 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call 0066 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call 0068 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call 006a 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 006c 029d 088b | | Declare_Subprogram INIT_0888,For_Outer_Call 006e 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call 0070 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call 0072 029d 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call 0074 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call 0076 029d 09b3 | | Declare_Subprogram INIT_09b0,For_Outer_Call 0078 029d 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call 007a 029d 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call 007c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 007d 00c7 | | Action Elaborate_Subprogram 007e 029d 0aa3 | | Declare_Subprogram INIT_0aa0,For_Outer_Call 0080 029d 0b53 | S| Declare_Subprogram INIT_0b50,For_Outer_Call 0082 029d 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call 0084 029d 0b8b | | Declare_Subprogram INIT_0b88,For_Outer_Call 0086 029d 0ba3 | | Declare_Subprogram INIT_0ba0,For_Outer_Call 0088 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0089 00c7 | | Action Elaborate_Subprogram 008a 029d 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call 008c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 008d 00c7 | | Action Elaborate_Subprogram 008e 029d 0c33 | 3| Declare_Subprogram INIT_0c30,For_Outer_Call 0090 029d 0c53 | S| Declare_Subprogram INIT_0c50,For_Outer_Call 0092 029d 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call 0094 029d 0c93 | | Declare_Subprogram INIT_0c90,For_Outer_Call 0096 029d 0cc3 | | Declare_Subprogram INIT_0cc0,For_Outer_Call 0098 029d 0cdb | | Declare_Subprogram INIT_0cd8,For_Outer_Call 009a 029d 0d13 | | Declare_Subprogram INIT_0d10,For_Outer_Call 009c 029d 0d8b | | Declare_Subprogram INIT_0d88,For_Outer_Call 009e 029d 0dbb | | Declare_Subprogram INIT_0db8,For_Outer_Call 00a0 029d 0ddb | | Declare_Subprogram INIT_0dd8,For_Outer_Call 00a2 029d 0e1b | | Declare_Subprogram INIT_0e18,For_Outer_Call 00a4 029d 0e63 | c| Declare_Subprogram INIT_0e60,For_Outer_Call 00a6 029d 0e8b | | Declare_Subprogram INIT_0e88,For_Outer_Call 00a8 029d 0f13 | | Declare_Subprogram INIT_0f10,For_Outer_Call 00aa 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00ab 00c7 | | Action Elaborate_Subprogram 00ac 029d 0f63 | c| Declare_Subprogram INIT_0f60,For_Outer_Call 00ae 029d 0f73 | s| Declare_Subprogram INIT_0f70,For_Outer_Call 00b0 029d 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call 00b2 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b3 00c7 | | Action Elaborate_Subprogram 00b4 029d 0fc3 | | Declare_Subprogram INIT_0fc0,For_Outer_Call 00b6 029d 0fd3 | | Declare_Subprogram INIT_0fd0,For_Outer_Call 00b8 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00b9 00c7 | | Action Elaborate_Subprogram 00ba BODY_0008: 00ba 00bc | | Action Signal_Activated 00bb 00bb | | Action Signal_Completion 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 4607 |F | Jump_Case 0x8 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7807 |x | Jump 0xcd ; case 0x1 00c6 780a |x | Jump 0xd1 ; case 0x2 00c7 780e |x | Jump 0xd6 ; case 0x3 00c8 7811 |x | Jump 0xda ; case 0x4 00c9 7812 |x | Jump 0xdc ; case 0x5 00ca 7813 |x | Jump 0xde ; case 0x6 00cb 7816 |x | Jump 0xe2 ; case 0x7 00cc 4302 |C | .XXX[0x1] 00cd 00da | | Load_Top At_Offset_2 00ce 0091 10fb | | Action Push_String_Extended_Indexed,0x10fb ; "BREAK" 00d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d1 00db | | Load_Top At_Offset_3 00d2 00db | | Load_Top At_Offset_3 00d3 00e0 | | Load_Encached Standard_Cache 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d6 00da | | Load_Top At_Offset_2 00d7 00e0 | | Load_Encached Standard_Cache 00d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00da 00db | | Load_Top At_Offset_3 00db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dc 00db | | Load_Top At_Offset_3 00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00de e20d | | Load 0x1,0xd 00df 00dc | | Load_Top At_Offset_4 00e0 0267 | g | Execute Discrete,Predecessor 00e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e2 e20d | | Load 0x1,0xd 00e3 00dc | | Load_Top At_Offset_4 00e4 0268 | h | Execute Discrete,Successor 00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e6 0000 0000 | | .XXX[0x2] 00e8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f6 | | .CONST 0x00f6 ; Address of begin 00f1 0118 | | .CONST 0x0118 ; Address of exception handler 00f2 0004 | | .CONST 0x0004 ; Number of locals 00f3 INIT_00f0: 00f3 00ec | | Load_Encached Diana_Tree_Cache 00f4 00e5 | | Load_Encached Long_Integer_Cache 00f5 00e2 | | Load_Encached Integer_Cache 00f6 BODY_00f0: 00f6 e002 | | Load 0x0,0x2 00f7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f8 c5fa | | Store 0x2,-0x6 00f9 e5fb | | Load 0x2,-0x5 00fa 00e2 | | Load_Encached Integer_Cache 00fb 00e5 | | Load_Encached Long_Integer_Cache 00fc 00ec | | Load_Encached Diana_Tree_Cache 00fd 4800 |H | Short_Literal 0x0 00fe e5ff | | Load 0x2,-0x1 00ff 821b | | Call 0x1,0x1b 0100 c402 | | Store 0x2,0x2 0101 c403 | | Store 0x2,0x3 0102 005a | Z | Store_Top Discrete,At_Offset_2 0103 c5fb | | Store 0x2,-0x5 0104 00da | | Load_Top At_Offset_2 0105 00eb | | Load_Encached Diana_Cache 0106 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0107 7008 |p | Jump_Nonzero 0x110 0108 e5fa | | Load 0x2,-0x6 0109 e5fb | | Load 0x2,-0x5 010a e5fc | | Load 0x2,-0x4 010b e5fe | | Load 0x2,-0x2 010c e402 | | Load 0x2,0x2 010d 823c | < | Call 0x1,0x3c 010e c5fb | | Store 0x2,-0x5 010f c5fa | | Store 0x2,-0x6 0110 e5fa | | Load 0x2,-0x6 0111 e5fb | | Load 0x2,-0x5 0112 e5fd | | Load 0x2,-0x3 0113 4801 |H | Short_Literal 0x1 0114 821a | | Call 0x1,0x1a 0115 c5fb | | Store 0x2,-0x5 0116 c5fa | | Store 0x2,-0x6 0117 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0118 TRAP_00f0: 0118 4884 |H | Short_Literal 0x84 0119 010f | | Execute Exception,Equal 011a 7004 |p | Jump_Nonzero 0x11f 011b e003 | | Load 0x0,0x3 011c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 011d 010f | | Execute Exception,Equal 011e 6807 |h | Jump_Zero 0x126 011f e5fa | | Load 0x2,-0x6 0120 0092 1109 | | Action Push_String_Extended,0x1109 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a" 0122 e002 | | Load 0x0,0x2 0123 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0124 c5fa | | Store 0x2,-0x6 0125 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0126 e004 | | Load 0x0,0x4 0127 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d 0128 010f | | Execute Exception,Equal 0129 6806 |h | Jump_Zero 0x130 012a e004 | | Load 0x0,0x4 012b 1b4e | N | Execute Package,Field_Read,Field_Number 0x4e 012c e002 | | Load 0x0,0x2 012d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012e c5fa | | Store 0x2,-0x6 012f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0130 e5fa | | Load 0x2,-0x6 0131 480a |H | Short_Literal 0xa 0132 0092 110a | | Action Push_String_Extended,0x110a ; "Exception raised resolving name: " 0134 e005 | | Load 0x0,0x5 0135 180d | | Execute Package,Field_Execute,Field_Number 0xd 0136 01cc | | Execute Vector,Catenate 0137 01cb | | Execute Vector,Append 0138 e002 | | Load 0x0,0x2 0139 1815 | | Execute Package,Field_Execute,Field_Number 0x15 013a c5fa | | Store 0x2,-0x6 013b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014e | N | .CONST 0x014e ; Address of begin 0141 01b8 | | .CONST 0x01b8 ; Address of exception handler 0142 0008 | | .CONST 0x0008 ; Number of locals 0143 INIT_0140: 0143 00ec | | Load_Encached Diana_Tree_Cache 0144 00e5 | | Load_Encached Long_Integer_Cache 0145 00e2 | | Load_Encached Integer_Cache 0146 00ec | | Load_Encached Diana_Tree_Cache 0147 00ec | | Load_Encached Diana_Tree_Cache 0148 e006 | | Load 0x0,0x6 0149 02c7 | | Declare_Variable Any 014a 00d8 | | Load_Top At_Offset_0 014b 1c00 | | Execute_Immediate Run_Utility,0x0 014c 00e1 | | Load_Encached Boolean_Cache 014d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 014e BODY_0140: 014e e002 | | Load 0x0,0x2 014f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0150 c5f8 | | Store 0x2,-0x8 0151 e007 | | Load 0x0,0x7 0152 c5f9 | | Store 0x2,-0x7 0153 00eb | | Load_Encached Diana_Cache 0154 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0155 a5fb | | Store_Unchecked 0x2,-0x5 0156 e5fa | | Load 0x2,-0x6 0157 00e2 | | Load_Encached Integer_Cache 0158 00e5 | | Load_Encached Long_Integer_Cache 0159 00ec | | Load_Encached Diana_Tree_Cache 015a e5fe | | Load 0x2,-0x2 015b e5ff | | Load 0x2,-0x1 015c 821b | | Call 0x1,0x1b 015d c402 | | Store 0x2,0x2 015e c403 | | Store 0x2,0x3 015f c404 | | Store 0x2,0x4 0160 c5fa | | Store 0x2,-0x6 0161 e402 | | Load 0x2,0x2 0162 00eb | | Load_Encached Diana_Cache 0163 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0164 7012 |p | Jump_Nonzero 0x177 0165 e5f9 | | Load 0x2,-0x7 0166 0120 | | Execute Any,Is_Value 0167 6802 |h | Jump_Zero 0x16a 0168 e008 | | Load 0x0,0x8 0169 7801 |x | Jump 0x16b 016a e5f9 | | Load 0x2,-0x7 016b 00e1 | | Load_Encached Boolean_Cache 016c e5fa | | Load 0x2,-0x6 016d 00ec | | Load_Encached Diana_Tree_Cache 016e e404 | | Load 0x2,0x4 016f e403 | | Load 0x2,0x3 0170 8009 | | Call 0x0,0x9 0171 e402 | | Load 0x2,0x2 0172 8241 | A | Call 0x1,0x41 0173 c5fb | | Store 0x2,-0x5 0174 c5fa | | Store 0x2,-0x6 0175 005a | Z | Store_Top Discrete,At_Offset_2 0176 c5f9 | | Store 0x2,-0x7 0177 e5f8 | | Load 0x2,-0x8 0178 e5fa | | Load 0x2,-0x6 0179 e5fc | | Load 0x2,-0x4 017a 4800 |H | Short_Literal 0x0 017b 821a | | Call 0x1,0x1a 017c c5fa | | Store 0x2,-0x6 017d c5f8 | | Store 0x2,-0x8 017e e5fd | | Load 0x2,-0x3 017f 6837 |h7 | Jump_Zero 0x1b7 0180 e5fb | | Load 0x2,-0x5 0181 00eb | | Load_Encached Diana_Cache 0182 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0183 6823 |h# | Jump_Zero 0x1a7 0184 e5f8 | | Load 0x2,-0x8 0185 00da | | Load_Top At_Offset_2 0186 0120 | | Execute Any,Is_Value 0187 6802 |h | Jump_Zero 0x18a 0188 e006 | | Load 0x0,0x6 0189 7801 |x | Jump 0x18b 018a 00da | | Load_Top At_Offset_2 018b e5f9 | | Load 0x2,-0x7 018c 0120 | | Execute Any,Is_Value 018d 6802 |h | Jump_Zero 0x190 018e e008 | | Load 0x0,0x8 018f 7801 |x | Jump 0x191 0190 e5f9 | | Load 0x2,-0x7 0191 00ec | | Load_Encached Diana_Tree_Cache 0192 00ec | | Load_Encached Diana_Tree_Cache 0193 00e2 | | Load_Encached Integer_Cache 0194 e5fa | | Load 0x2,-0x6 0195 e00a | | Load 0x0,0xa 0196 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0197 800b | | Call 0x0,0xb 0198 c404 | | Store 0x2,0x4 0199 c405 | | Store 0x2,0x5 019a c406 | | Store 0x2,0x6 019b c5f9 | | Store 0x2,-0x7 019c c407 | | Store 0x2,0x7 019d c5f8 | | Store 0x2,-0x8 019e e5f8 | | Load 0x2,-0x8 019f e002 | | Load 0x0,0x2 01a0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01a1 c5f8 | | Store 0x2,-0x8 01a2 e5fa | | Load 0x2,-0x6 01a3 e5f9 | | Load 0x2,-0x7 01a4 8240 | @ | Call 0x1,0x40 01a5 c5fa | | Store 0x2,-0x6 01a6 7806 |x | Jump 0x1ad 01a7 00d8 | | Load_Top At_Offset_0 01a8 6804 |h | Jump_Zero 0x1ad 01a9 e5fa | | Load 0x2,-0x6 01aa e5f9 | | Load 0x2,-0x7 01ab 8240 | @ | Call 0x1,0x40 01ac c5fa | | Store 0x2,-0x6 01ad e5fa | | Load 0x2,-0x6 01ae e00c | | Load 0x0,0xc 01af e5fa | | Load 0x2,-0x6 01b0 e00a | | Load 0x0,0xa 01b1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01b2 e00d | | Load 0x0,0xd 01b3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01b4 e00a | | Load 0x0,0xa 01b5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01b6 c5fa | | Store 0x2,-0x6 01b7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b8 TRAP_0140: 01b8 e004 | | Load 0x0,0x4 01b9 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d 01ba 010f | | Execute Exception,Equal 01bb 6806 |h | Jump_Zero 0x1c2 01bc e004 | | Load 0x0,0x4 01bd 1b4e | N | Execute Package,Field_Read,Field_Number 0x4e 01be e002 | | Load 0x0,0x2 01bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c0 c5f8 | | Store 0x2,-0x8 01c1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01c2 4884 |H | Short_Literal 0x84 01c3 010f | | Execute Exception,Equal 01c4 7004 |p | Jump_Nonzero 0x1c9 01c5 e003 | | Load 0x0,0x3 01c6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01c7 010f | | Execute Exception,Equal 01c8 6807 |h | Jump_Zero 0x1d0 01c9 e5f8 | | Load 0x2,-0x8 01ca 0092 1109 | | Action Push_String_Extended,0x1109 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a" 01cc e002 | | Load 0x0,0x2 01cd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ce c5f8 | | Store 0x2,-0x8 01cf 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01d0 e5f8 | | Load 0x2,-0x8 01d1 480a |H | Short_Literal 0xa 01d2 0092 110a | | Action Push_String_Extended,0x110a ; "Exception raised resolving name: " 01d4 e005 | | Load 0x0,0x5 01d5 180d | | Execute Package,Field_Execute,Field_Number 0xd 01d6 01cc | | Execute Vector,Catenate 01d7 01cb | | Execute Vector,Append 01d8 e002 | | Load 0x0,0x2 01d9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01da c5f8 | | Store 0x2,-0x8 01db 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4607 |F | Jump_Case 0x8 01e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01e5 7807 |x | Jump 0x1ed ; case 0x1 01e6 780a |x | Jump 0x1f1 ; case 0x2 01e7 780e |x | Jump 0x1f6 ; case 0x3 01e8 7811 |x | Jump 0x1fa ; case 0x4 01e9 7812 |x | Jump 0x1fc ; case 0x5 01ea 7813 |x | Jump 0x1fe ; case 0x6 01eb 7816 |x | Jump 0x202 ; case 0x7 01ec 4302 |C | .XXX[0x1] 01ed 00da | | Load_Top At_Offset_2 01ee 0091 1102 | | Action Push_String_Extended_Indexed,0x1102 ; "MODIFY_OPERATION" 01f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01f1 00db | | Load_Top At_Offset_3 01f2 00db | | Load_Top At_Offset_3 01f3 00e0 | | Load_Encached Standard_Cache 01f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f6 00da | | Load_Top At_Offset_2 01f7 00e0 | | Load_Encached Standard_Cache 01f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01fa 00db | | Load_Top At_Offset_3 01fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fc 00db | | Load_Top At_Offset_3 01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fe e210 | | Load 0x1,0x10 01ff 00dc | | Load_Top At_Offset_4 0200 0267 | g | Execute Discrete,Predecessor 0201 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0202 e210 | | Load 0x1,0x10 0203 00dc | | Load_Top At_Offset_4 0204 0268 | h | Execute Discrete,Successor 0205 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020e | | .CONST 0x020e ; Address of begin 0209 0237 | 7 | .CONST 0x0237 ; Address of exception handler 020a 0004 | | .CONST 0x0004 ; Number of locals 020b INIT_0208: 020b 00ec | | Load_Encached Diana_Tree_Cache 020c 00e5 | | Load_Encached Long_Integer_Cache 020d 00e2 | | Load_Encached Integer_Cache 020e BODY_0208: 020e 00eb | | Load_Encached Diana_Cache 020f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0210 a5fc | | Store_Unchecked 0x2,-0x4 0211 e002 | | Load 0x0,0x2 0212 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0213 c5fa | | Store 0x2,-0x6 0214 e5fb | | Load 0x2,-0x5 0215 00e2 | | Load_Encached Integer_Cache 0216 00e5 | | Load_Encached Long_Integer_Cache 0217 00ec | | Load_Encached Diana_Tree_Cache 0218 4800 |H | Short_Literal 0x0 0219 e5ff | | Load 0x2,-0x1 021a 821b | | Call 0x1,0x1b 021b c402 | | Store 0x2,0x2 021c c403 | | Store 0x2,0x3 021d 005a | Z | Store_Top Discrete,At_Offset_2 021e c5fb | | Store 0x2,-0x5 021f 00da | | Load_Top At_Offset_2 0220 00eb | | Load_Encached Diana_Cache 0221 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0222 700c |p | Jump_Nonzero 0x22f 0223 e5fa | | Load 0x2,-0x6 0224 00ec | | Load_Encached Diana_Tree_Cache 0225 e5fb | | Load 0x2,-0x5 0226 e5fe | | Load 0x2,-0x2 0227 e404 | | Load 0x2,0x4 0228 e403 | | Load 0x2,0x3 0229 8009 | | Call 0x0,0x9 022a e402 | | Load 0x2,0x2 022b 8250 | P | Call 0x1,0x50 022c c5fb | | Store 0x2,-0x5 022d c5fc | | Store 0x2,-0x4 022e c5fa | | Store 0x2,-0x6 022f e5fa | | Load 0x2,-0x6 0230 e5fb | | Load 0x2,-0x5 0231 e5fd | | Load 0x2,-0x3 0232 4800 |H | Short_Literal 0x0 0233 821a | | Call 0x1,0x1a 0234 c5fb | | Store 0x2,-0x5 0235 c5fa | | Store 0x2,-0x6 0236 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0237 TRAP_0208: 0237 e004 | | Load 0x0,0x4 0238 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d 0239 010f | | Execute Exception,Equal 023a 6806 |h | Jump_Zero 0x241 023b e004 | | Load 0x0,0x4 023c 1b4e | N | Execute Package,Field_Read,Field_Number 0x4e 023d e002 | | Load 0x0,0x2 023e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 023f c5fa | | Store 0x2,-0x6 0240 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0241 4884 |H | Short_Literal 0x84 0242 010f | | Execute Exception,Equal 0243 7004 |p | Jump_Nonzero 0x248 0244 e003 | | Load 0x0,0x3 0245 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0246 010f | | Execute Exception,Equal 0247 6807 |h | Jump_Zero 0x24f 0248 e5fa | | Load 0x2,-0x6 0249 0092 1109 | | Action Push_String_Extended,0x1109 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a" 024b e002 | | Load 0x0,0x2 024c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 024d c5fa | | Store 0x2,-0x6 024e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 024f e5fa | | Load 0x2,-0x6 0250 480a |H | Short_Literal 0xa 0251 0092 110a | | Action Push_String_Extended,0x110a ; "Exception raised resolving name: " 0253 e005 | | Load 0x0,0x5 0254 180d | | Execute Package,Field_Execute,Field_Number 0xd 0255 01cc | | Execute Vector,Catenate 0256 01cb | | Execute Vector,Append 0257 e002 | | Load 0x0,0x2 0258 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0259 c5fa | | Store 0x2,-0x6 025a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 025b 0000 0000 | | .BLANK 0000[0x5] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 4607 |F | Jump_Case 0x8 0264 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0265 7807 |x | Jump 0x26d ; case 0x1 0266 780a |x | Jump 0x271 ; case 0x2 0267 780e |x | Jump 0x276 ; case 0x3 0268 7811 |x | Jump 0x27a ; case 0x4 0269 7812 |x | Jump 0x27c ; case 0x5 026a 7813 |x | Jump 0x27e ; case 0x6 026b 7816 |x | Jump 0x282 ; case 0x7 026c 4302 |C | .XXX[0x1] 026d 00da | | Load_Top At_Offset_2 026e 0091 1106 | | Action Push_String_Extended_Indexed,0x1106 ; "CATCH" 0270 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0271 00db | | Load_Top At_Offset_3 0272 00db | | Load_Top At_Offset_3 0273 00e0 | | Load_Encached Standard_Cache 0274 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0275 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0276 00da | | Load_Top At_Offset_2 0277 00e0 | | Load_Encached Standard_Cache 0278 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0279 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 027a 00db | | Load_Top At_Offset_3 027b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 027c 00db | | Load_Top At_Offset_3 027d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 027e e212 | | Load 0x1,0x12 027f 00dc | | Load_Top At_Offset_4 0280 0267 | g | Execute Discrete,Predecessor 0281 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0282 e212 | | Load 0x1,0x12 0283 00dc | | Load_Top At_Offset_4 0284 0268 | h | Execute Discrete,Successor 0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0286 0000 0000 | | .XXX[0x2] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028e | | .CONST 0x028e ; Address of begin 0289 02aa | | .CONST 0x02aa ; Address of exception handler 028a 0004 | | .CONST 0x0004 ; Number of locals 028b INIT_0288: 028b 00ec | | Load_Encached Diana_Tree_Cache 028c 00e5 | | Load_Encached Long_Integer_Cache 028d 00e2 | | Load_Encached Integer_Cache 028e BODY_0288: 028e e002 | | Load 0x0,0x2 028f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0290 c5fb | | Store 0x2,-0x5 0291 e5fc | | Load 0x2,-0x4 0292 00e2 | | Load_Encached Integer_Cache 0293 00e5 | | Load_Encached Long_Integer_Cache 0294 00ec | | Load_Encached Diana_Tree_Cache 0295 4800 |H | Short_Literal 0x0 0296 e5ff | | Load 0x2,-0x1 0297 821b | | Call 0x1,0x1b 0298 c402 | | Store 0x2,0x2 0299 c403 | | Store 0x2,0x3 029a 005a | Z | Store_Top Discrete,At_Offset_2 029b c5fc | | Store 0x2,-0x4 029c 00da | | Load_Top At_Offset_2 029d 00eb | | Load_Encached Diana_Cache 029e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 029f 7009 |p | Jump_Nonzero 0x2a9 02a0 e5fb | | Load 0x2,-0x5 02a1 e5fc | | Load 0x2,-0x4 02a2 00ec | | Load_Encached Diana_Tree_Cache 02a3 e5fe | | Load 0x2,-0x2 02a4 e402 | | Load 0x2,0x2 02a5 8253 | S | Call 0x1,0x53 02a6 c5fd | | Store 0x2,-0x3 02a7 c5fc | | Store 0x2,-0x4 02a8 c5fb | | Store 0x2,-0x5 02a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02aa TRAP_0288: 02aa e004 | | Load 0x0,0x4 02ab 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d 02ac 010f | | Execute Exception,Equal 02ad 6806 |h | Jump_Zero 0x2b4 02ae e004 | | Load 0x0,0x4 02af 1b4e | N | Execute Package,Field_Read,Field_Number 0x4e 02b0 e002 | | Load 0x0,0x2 02b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b2 c5fb | | Store 0x2,-0x5 02b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b4 4884 |H | Short_Literal 0x84 02b5 010f | | Execute Exception,Equal 02b6 7004 |p | Jump_Nonzero 0x2bb 02b7 e003 | | Load 0x0,0x3 02b8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02b9 010f | | Execute Exception,Equal 02ba 6807 |h | Jump_Zero 0x2c2 02bb e5fb | | Load 0x2,-0x5 02bc 0092 1109 | | Action Push_String_Extended,0x1109 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a" 02be e002 | | Load 0x0,0x2 02bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c0 c5fb | | Store 0x2,-0x5 02c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02c2 e5fb | | Load 0x2,-0x5 02c3 480a |H | Short_Literal 0xa 02c4 0092 110a | | Action Push_String_Extended,0x110a ; "Exception raised resolving name: " 02c6 e005 | | Load 0x0,0x5 02c7 180d | | Execute Package,Field_Execute,Field_Number 0xd 02c8 01cc | | Execute Vector,Catenate 02c9 01cb | | Execute Vector,Append 02ca e002 | | Load 0x0,0x2 02cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02cc c5fb | | Store 0x2,-0x5 02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 4603 |F | Jump_Case 0x4 02d5 7806 |x | Jump 0x2dc ; case 0x0 02d6 7808 |x | Jump 0x2df ; case 0x1 02d7 780a |x | Jump 0x2e2 ; case 0x2 02d8 7800 |x | Jump 0x2d9 ; case 0x3 02d9 0092 110b | | Action Push_String_Extended,0x110b ; "Set control context to" 02db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02dc 0092 110c | | Action Push_String_Extended,0x110c ; "Modify" 02de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02df 0092 110d | | Action Push_String_Extended,0x110d ; "Put" 02e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e2 0092 110e | | Action Push_String_Extended,0x110e ; "Object_Location" 02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 4801 |H | Short_Literal 0x1 02ec e5fe | | Load 0x2,-0x2 02ed e00e | | Load 0x0,0xe 02ee e5ff | | Load 0x2,-0x1 02ef e004 | | Load 0x0,0x4 02f0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02f1 8216 | | Call 0x1,0x16 02f2 e00f | | Load 0x0,0xf 02f3 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 02f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f5 0000 0000 | | .XXX[0x3] 02f7 0000 | | 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00da | | Load_Top At_Offset_2 02fc 00eb | | Load_Encached Diana_Cache 02fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02fe 00d8 | | Load_Top At_Offset_0 02ff 4821 |H! | Short_Literal 0x21 0300 482c |H, | Short_Literal 0x2c 0301 0262 | b | Execute Discrete,In_Range 0302 6812 |h | Jump_Zero 0x315 0303 00d8 | | Load_Top At_Offset_0 0304 4823 |H# | Short_Literal 0x23 0305 4828 |H( | Short_Literal 0x28 0306 0262 | b | Execute Discrete,In_Range 0307 700d |p | Jump_Nonzero 0x315 0308 482a |H* | Short_Literal 0x2a 0309 482b |H+ | Short_Literal 0x2b 030a 0262 | b | Execute Discrete,In_Range 030b 700a |p | Jump_Nonzero 0x316 030c 7800 |x | Jump 0x30d 030d 00da | | Load_Top At_Offset_2 030e 8254 | T | Call 0x1,0x54 030f 6803 |h | Jump_Zero 0x313 0310 00da | | Load_Top At_Offset_2 0311 8255 | U | Call 0x1,0x55 0312 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0313 00da | | Load_Top At_Offset_2 0314 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0315 00d1 | | Pop_Control Pop_Count_1 0316 00da | | Load_Top At_Offset_2 0317 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031c | | .CONST 0x031c ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c BODY_0318: 031c 00cf | | Action Mark_Auxiliary 031d 7805 |x | Jump 0x323 031e 00d9 | | Load_Top At_Offset_1 031f 00eb | | Load_Encached Diana_Cache 0320 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0321 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0322 00c9 | | Action Pop_Auxiliary_Loop 0323 00d9 | | Load_Top At_Offset_1 0324 00eb | | Load_Encached Diana_Cache 0325 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0326 0f17 | | Execute_Immediate Equal,0x17 0327 77f6 |w | Jump_Nonzero 0x31e 0328 00ce | | Action Pop_Auxiliary 0329 00d8 | | Load_Top At_Offset_0 032a 00eb | | Load_Encached Diana_Cache 032b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 032c 00d8 | | Load_Top At_Offset_0 032d 481f |H | Short_Literal 0x1f 032e 484e |HN | Short_Literal 0x4e 032f 0262 | b | Execute Discrete,In_Range 0330 683c |h< | Jump_Zero 0x36d 0331 0ae1 | | Execute_Immediate Plus,-0x1f 0332 462f |F/ | Jump_Case 0x30 0333 782f |x/ | Jump 0x363 ; case 0x0 0334 7839 |x9 | Jump 0x36e ; case 0x1 0335 782d |x- | Jump 0x363 ; case 0x2 0336 782e |x. | Jump 0x365 ; case 0x3 0337 7836 |x6 | Jump 0x36e ; case 0x4 0338 7835 |x5 | Jump 0x36e ; case 0x5 0339 7834 |x4 | Jump 0x36e ; case 0x6 033a 7833 |x3 | Jump 0x36e ; case 0x7 033b 7832 |x2 | Jump 0x36e ; case 0x8 033c 7831 |x1 | Jump 0x36e ; case 0x9 033d 7830 |x0 | Jump 0x36e ; case 0xa 033e 782f |x/ | Jump 0x36e ; case 0xb 033f 782e |x. | Jump 0x36e ; case 0xc 0340 7822 |x" | Jump 0x363 ; case 0xd 0341 782c |x, | Jump 0x36e ; case 0xe 0342 7820 |x | Jump 0x363 ; case 0xf 0343 782a |x* | Jump 0x36e ; case 0x10 0344 7829 |x) | Jump 0x36e ; case 0x11 0345 7828 |x( | Jump 0x36e ; case 0x12 0346 7827 |x' | Jump 0x36e ; case 0x13 0347 781b |x | Jump 0x363 ; case 0x14 0348 7825 |x% | Jump 0x36e ; case 0x15 0349 7824 |x$ | Jump 0x36e ; case 0x16 034a 7823 |x# | Jump 0x36e ; case 0x17 034b 7822 |x" | Jump 0x36e ; case 0x18 034c 7821 |x! | Jump 0x36e ; case 0x19 034d 7820 |x | Jump 0x36e ; case 0x1a 034e 781f |x | Jump 0x36e ; case 0x1b 034f 781e |x | Jump 0x36e ; case 0x1c 0350 781d |x | Jump 0x36e ; case 0x1d 0351 781c |x | Jump 0x36e ; case 0x1e 0352 781b |x | Jump 0x36e ; case 0x1f 0353 781a |x | Jump 0x36e ; case 0x20 0354 7819 |x | Jump 0x36e ; case 0x21 0355 7818 |x | Jump 0x36e ; case 0x22 0356 7817 |x | Jump 0x36e ; case 0x23 0357 7816 |x | Jump 0x36e ; case 0x24 0358 7815 |x | Jump 0x36e ; case 0x25 0359 7814 |x | Jump 0x36e ; case 0x26 035a 7813 |x | Jump 0x36e ; case 0x27 035b 7812 |x | Jump 0x36e ; case 0x28 035c 7811 |x | Jump 0x36e ; case 0x29 035d 7810 |x | Jump 0x36e ; case 0x2a 035e 780f |x | Jump 0x36e ; case 0x2b 035f 780e |x | Jump 0x36e ; case 0x2c 0360 7802 |x | Jump 0x363 ; case 0x2d 0361 780c |x | Jump 0x36e ; case 0x2e 0362 7800 |x | Jump 0x363 ; case 0x2f 0363 4801 |H | Short_Literal 0x1 0364 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0365 00d8 | | Load_Top At_Offset_0 0366 e004 | | Load 0x0,0x4 0367 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0368 6802 |h | Jump_Zero 0x36b 0369 4800 |H | Short_Literal 0x0 036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036b 4801 |H | Short_Literal 0x1 036c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036d 00d1 | | Pop_Control Pop_Count_1 036e 4800 |H | Short_Literal 0x0 036f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00da | | Load_Top At_Offset_2 0374 e004 | | Load 0x0,0x4 0375 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0376 7004 |p | Jump_Nonzero 0x37b 0377 00da | | Load_Top At_Offset_2 0378 e004 | | Load 0x0,0x4 0379 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 037a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037b 4801 |H | Short_Literal 0x1 037c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037d 0000 0000 | | .XXX[0x3] 037f 0000 | | 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 03a4 | | .CONST 0x03a4 ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 00db | | Load_Top At_Offset_3 0384 6805 |h | Jump_Zero 0x38a 0385 e5fd | | Load 0x2,-0x3 0386 e00a | | Load 0x0,0xa 0387 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0388 7001 |p | Jump_Nonzero 0x38a 0389 4503 |E | Exit_Suprogram New_Top_Offset 0x3 038a 00da | | Load_Top At_Offset_2 038b 680c |h | Jump_Zero 0x398 038c e5fd | | Load 0x2,-0x3 038d e00c | | Load 0x0,0xc 038e e5fd | | Load 0x2,-0x3 038f e00a | | Load 0x0,0xa 0390 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0391 e00d | | Load 0x0,0xd 0392 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0393 8010 | | Call 0x0,0x10 0394 e00a | | Load 0x0,0xa 0395 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0396 c5fd | | Store 0x2,-0x3 0397 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0398 e5fd | | Load 0x2,-0x3 0399 e00c | | Load 0x0,0xc 039a e5fd | | Load 0x2,-0x3 039b e00a | | Load 0x0,0xa 039c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 039d e00d | | Load 0x0,0xd 039e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 039f 8010 | | Call 0x0,0x10 03a0 e00a | | Load 0x0,0xa 03a1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03a2 c5fd | | Store 0x2,-0x3 03a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a4 TRAP_0380: 03a4 e00d | | Load 0x0,0xd 03a5 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 03a6 010f | | Execute Exception,Equal 03a7 680a |h | Jump_Zero 0x3b2 03a8 e5fc | | Load 0x2,-0x4 03a9 00ea | | Load_Encached Null_String_Cache 03aa 0092 110f | | Action Push_String_Extended,0x110f ; "Set your control context to a single task before specifying a frame reference" 03ac 0092 1110 | | Action Push_String_Extended,0x1110 ; "Task not specified" 03ae e002 | | Load 0x0,0x2 03af 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03b0 c5fc | | Store 0x2,-0x4 03b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03b2 0100 | | Execute Exception,Raise 03b3 0000 0000 | | .BLANK 0000[0x5] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03d9 | | .CONST 0x03d9 ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 000b | | .CONST 0x000b ; Number of locals 03bb INIT_03b8: 03bb e011 | | Load 0x0,0x11 03bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03bd e012 | | Load 0x0,0x12 03be 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 03bf e012 | | Load 0x0,0x12 03c0 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 03c1 02c7 | | Declare_Variable Any 03c2 00d8 | | Load_Top At_Offset_0 03c3 1c00 | | Execute_Immediate Run_Utility,0x0 03c4 00eb | | Load_Encached Diana_Cache 03c5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03c6 00e5 | | Load_Encached Long_Integer_Cache 03c7 e013 | | Load 0x0,0x13 03c8 02c7 | | Declare_Variable Any 03c9 00d8 | | Load_Top At_Offset_0 03ca 1c00 | | Execute_Immediate Run_Utility,0x0 03cb 00e1 | | Load_Encached Boolean_Cache 03cc e014 | | Load 0x0,0x14 03cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03cf e5fe | | Load 0x2,-0x2 03d0 6804 |h | Jump_Zero 0x3d5 03d1 e5ff | | Load 0x2,-0x1 03d2 01db | | Execute Vector,Length 03d3 0f00 | | Execute_Immediate Equal,0x0 03d4 7802 |x | Jump 0x3d7 03d5 4800 |H | Short_Literal 0x0 03d6 0007 | | Action Break_Optional 03d7 029f 100b | | Declare_Subprogram INIT_1008,For_Call 03d9 BODY_03b8: 03d9 00eb | | Load_Encached Diana_Cache 03da 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03db a5fd | | Store_Unchecked 0x2,-0x3 03dc 4800 |H | Short_Literal 0x0 03dd a5fc | | Store_Unchecked 0x2,-0x4 03de 4800 |H | Short_Literal 0x0 03df a5fb | | Store_Unchecked 0x2,-0x5 03e0 e5ff | | Load 0x2,-0x1 03e1 e015 | | Load 0x0,0x15 03e2 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e3 7002 |p | Jump_Nonzero 0x3e6 03e4 00d9 | | Load_Top At_Offset_1 03e5 688b |h | Jump_Zero 0x471 03e6 840b | | Call 0x2,0xb 03e7 e015 | | Load 0x0,0x15 03e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03e9 a402 | | Store_Unchecked 0x2,0x2 03ea e404 | | Load 0x2,0x4 03eb 0120 | | Execute Any,Is_Value 03ec 6803 |h | Jump_Zero 0x3f0 03ed e012 | | Load 0x0,0x12 03ee 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 03ef 7801 |x | Jump 0x3f1 03f0 e404 | | Load 0x2,0x4 03f1 e012 | | Load 0x0,0x12 03f2 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 03f3 00e1 | | Load_Encached Boolean_Cache 03f4 e402 | | Load 0x2,0x2 03f5 e012 | | Load 0x0,0x12 03f6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03f7 c408 | | Store 0x2,0x8 03f8 c403 | | Store 0x2,0x3 03f9 c404 | | Store 0x2,0x4 03fa e403 | | Load 0x2,0x3 03fb 460f |F | Jump_Case 0x10 03fc 780f |x | Jump 0x40c ; case 0x0 03fd 783f |x? | Jump 0x43d ; case 0x1 03fe 783e |x> | Jump 0x43d ; case 0x2 03ff 783d |x= | Jump 0x43d ; case 0x3 0400 784e |xN | Jump 0x44f ; case 0x4 0401 780a |x | Jump 0x40c ; case 0x5 0402 7832 |x2 | Jump 0x435 ; case 0x6 0403 7808 |x | Jump 0x40c ; case 0x7 0404 7807 |x | Jump 0x40c ; case 0x8 0405 7806 |x | Jump 0x40c ; case 0x9 0406 7805 |x | Jump 0x40c ; case 0xa 0407 7804 |x | Jump 0x40c ; case 0xb 0408 7803 |x | Jump 0x40c ; case 0xc 0409 7802 |x | Jump 0x40c ; case 0xd 040a 7801 |x | Jump 0x40c ; case 0xe 040b 7800 |x | Jump 0x40c ; case 0xf 040c 00db | | Load_Top At_Offset_3 040d 7002 |p | Jump_Nonzero 0x410 040e 00d9 | | Load_Top At_Offset_1 040f 6804 |h | Jump_Zero 0x414 0410 00eb | | Load_Encached Diana_Cache 0411 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0412 a405 | | Store_Unchecked 0x2,0x5 0413 780c |x | Jump 0x420 0414 e014 | | Load 0x0,0x14 0415 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0416 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0417 e014 | | Load 0x0,0x14 0418 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0419 e016 | | Load 0x0,0x16 041a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 041b e402 | | Load 0x2,0x2 041c e011 | | Load 0x0,0x11 041d 180e | | Execute Package,Field_Execute,Field_Number 0xe 041e c405 | | Store 0x2,0x5 041f 005b | [ | Store_Top Discrete,At_Offset_3 0420 e405 | | Load 0x2,0x5 0421 00eb | | Load_Encached Diana_Cache 0422 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0423 6808 |h | Jump_Zero 0x42c 0424 e5fa | | Load 0x2,-0x6 0425 e5ff | | Load 0x2,-0x1 0426 e015 | | Load 0x0,0x15 0427 180f | | Execute Package,Field_Execute,Field_Number 0xf 0428 e00a | | Load 0x0,0xa 0429 181d | | Execute Package,Field_Execute,Field_Number 0x1d 042a c5fa | | Store 0x2,-0x6 042b 784b |xK | Jump 0x477 042c e5fa | | Load 0x2,-0x6 042d e5ff | | Load 0x2,-0x1 042e 8010 | | Call 0x0,0x10 042f e00a | | Load 0x0,0xa 0430 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0431 c5fa | | Store 0x2,-0x6 0432 e405 | | Load 0x2,0x5 0433 a5fd | | Store_Unchecked 0x2,-0x3 0434 7842 |xB | Jump 0x477 0435 e5fa | | Load 0x2,-0x6 0436 e404 | | Load 0x2,0x4 0437 e015 | | Load 0x0,0x15 0438 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0439 e00a | | Load 0x0,0xa 043a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 043b c5fa | | Store 0x2,-0x6 043c 783a |x: | Jump 0x477 043d 00e2 | | Load_Encached Integer_Cache 043e 00e5 | | Load_Encached Long_Integer_Cache 043f 00ec | | Load_Encached Diana_Tree_Cache 0440 e404 | | Load 0x2,0x4 0441 e012 | | Load 0x0,0x12 0442 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0443 c405 | | Store 0x2,0x5 0444 c5fc | | Store 0x2,-0x4 0445 c5fb | | Store 0x2,-0x5 0446 e5fa | | Load 0x2,-0x6 0447 e5ff | | Load 0x2,-0x1 0448 8010 | | Call 0x0,0x10 0449 e00a | | Load 0x0,0xa 044a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 044b c5fa | | Store 0x2,-0x6 044c e405 | | Load 0x2,0x5 044d a5fd | | Store_Unchecked 0x2,-0x3 044e 7828 |x( | Jump 0x477 044f 00e5 | | Load_Encached Long_Integer_Cache 0450 00ec | | Load_Encached Diana_Tree_Cache 0451 e404 | | Load 0x2,0x4 0452 e012 | | Load 0x0,0x12 0453 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0454 c405 | | Store 0x2,0x5 0455 c406 | | Store 0x2,0x6 0456 e405 | | Load 0x2,0x5 0457 00eb | | Load_Encached Diana_Cache 0458 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0459 681d |h | Jump_Zero 0x477 045a e406 | | Load 0x2,0x6 045b 8017 | | Call 0x0,0x17 045c c407 | | Store 0x2,0x7 045d e407 | | Load 0x2,0x7 045e 8018 | | Call 0x0,0x18 045f 7008 |p | Jump_Nonzero 0x468 0460 e5fa | | Load 0x2,-0x6 0461 4801 |H | Short_Literal 0x1 0462 e407 | | Load 0x2,0x7 0463 8019 | | Call 0x0,0x19 0464 e00a | | Load 0x0,0xa 0465 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0466 c5fa | | Store 0x2,-0x6 0467 7806 |x | Jump 0x46e 0468 e5fa | | Load 0x2,-0x6 0469 e5ff | | Load 0x2,-0x1 046a 8010 | | Call 0x0,0x10 046b e00a | | Load 0x0,0xa 046c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 046d c5fa | | Store 0x2,-0x6 046e e405 | | Load 0x2,0x5 046f a5fd | | Store_Unchecked 0x2,-0x3 0470 7806 |x | Jump 0x477 0471 e5fa | | Load 0x2,-0x6 0472 e5ff | | Load 0x2,-0x1 0473 8010 | | Call 0x0,0x10 0474 e00a | | Load 0x0,0xa 0475 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0476 c5fa | | Store 0x2,-0x6 0477 e5fb | | Load 0x2,-0x5 0478 7004 |p | Jump_Nonzero 0x47d 0479 e5ff | | Load 0x2,-0x1 047a e015 | | Load 0x0,0x15 047b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 047c a5fb | | Store_Unchecked 0x2,-0x5 047d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 047e 0000 0000 | | .XXX[0x2] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00da | | Load_Top At_Offset_2 0484 6803 |h | Jump_Zero 0x488 0485 0092 1111 | | Action Push_String_Extended,0x1111 ; "enable" 0487 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0488 0092 1112 | | Action Push_String_Extended,0x1112 ; "disable" 048a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 048b 0000 0000 | | .BLANK 0000[0x5] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00da | | Load_Top At_Offset_2 0494 4606 |F | Jump_Case 0x7 0495 7809 |x | Jump 0x49f ; case 0x0 0496 7811 |x | Jump 0x4a8 ; case 0x1 0497 7816 |x | Jump 0x4ae ; case 0x2 0498 781b |x | Jump 0x4b4 ; case 0x3 0499 7808 |x | Jump 0x4a2 ; case 0x4 049a 780a |x | Jump 0x4a5 ; case 0x5 049b 7800 |x | Jump 0x49c ; case 0x6 049c 0092 1113 | | Action Push_String_Extended,0x1113 ; "forget exceptions" 049e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 049f 0092 1114 | | Action Push_String_Extended,0x1114 ; "break" 04a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a2 0092 1115 | | Action Push_String_Extended,0x1115 ; "catch exceptions" 04a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a5 0092 1116 | | Action Push_String_Extended,0x1116 ; "propagate exceptions" 04a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a8 00db | | Load_Top At_Offset_3 04a9 821c | | Call 0x1,0x1c 04aa 0092 1117 | | Action Push_String_Extended,0x1117 ; " history-taking" 04ac 01cc | | Execute Vector,Catenate 04ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ae 00db | | Load_Top At_Offset_3 04af 821c | | Call 0x1,0x1c 04b0 0092 1118 | | Action Push_String_Extended,0x1118 ; " tracing" 04b2 01cc | | Execute Vector,Catenate 04b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b4 0092 1119 | | Action Push_String_Extended,0x1119 ; "display the address of the code" 04b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b7 0000 | | .XXX[0x1] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb 4801 |H | Short_Literal 0x1 04bc 4800 |H | Short_Literal 0x0 04bd e00e | | Load 0x0,0xe 04be e5ff | | Load 0x2,-0x1 04bf e00f | | Load 0x0,0xf 04c0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 04c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c2 0000 0000 | | .BLANK 0000[0x6] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 7002 |p | Jump_Nonzero 0x4cf 04cd 00ea | | Load_Encached Null_String_Cache 04ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04cf 00db | | Load_Top At_Offset_3 04d0 0092 111a | | Action Push_String_Extended,0x111a ; "." 04d2 4820 |H | Short_Literal 0x20 04d3 4800 |H | Short_Literal 0x0 04d4 480a |H | Short_Literal 0xa 04d5 e5ff | | Load 0x2,-0x1 04d6 e01a | | Load 0x0,0x1a 04d7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04d8 01cc | | Execute Vector,Catenate 04d9 01cb | | Execute Vector,Append 04da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04db 0000 0000 | | .BLANK 0000[0x5] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e3 | | .CONST 0x04e3 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0001 | | .CONST 0x0001 ; Number of locals 04e3 BODY_04e0: 04e3 INIT_04e0: 04e3 e5fc | | Load 0x2,-0x4 04e4 00db | | Load_Top At_Offset_3 04e5 8215 | | Call 0x1,0x15 04e6 e5fd | | Load 0x2,-0x3 04e7 e5fe | | Load 0x2,-0x2 04e8 821f | | Call 0x1,0x1f 04e9 01cc | | Execute Vector,Catenate 04ea 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04eb 0000 0000 | | .BLANK 0000[0x5] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 00da | | Load_Top At_Offset_2 04f4 821e | | Call 0x1,0x1e 04f5 e5fd | | Load 0x2,-0x3 04f6 e5fe | | Load 0x2,-0x2 04f7 821f | | Call 0x1,0x1f 04f8 01cc | | Execute Vector,Catenate 04f9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04fa 0000 0000 | | .BLANK 0000[0x6] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0506 | | .CONST 0x0506 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0004 | | .CONST 0x0004 ; Number of locals 0503 INIT_0500: 0503 00ec | | Load_Encached Diana_Tree_Cache 0504 039d | | Declare_Variable Heap_Access,Duplicate 0505 00e3 | | Load_Encached Natural_Cache 0506 BODY_0500: 0506 e002 | | Load 0x0,0x2 0507 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0508 c5fa | | Store 0x2,-0x6 0509 e5ff | | Load 0x2,-0x1 050a 00eb | | Load_Encached Diana_Cache 050b 18ec | | Execute Package,Field_Execute,Field_Number 0xec 050c e004 | | Load 0x0,0x4 050d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 050e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 050f e5fa | | Load 0x2,-0x6 0510 e5fe | | Load 0x2,-0x2 0511 0092 111b | | Action Push_String_Extended,0x111b ; "unable to obtain object's enclosing block" 0513 e402 | | Load 0x2,0x2 0514 00eb | | Load_Encached Diana_Cache 0515 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0516 0f00 | | Execute_Immediate Equal,0x0 0517 8229 | ) | Call 0x1,0x29 0518 c5fa | | Store 0x2,-0x6 0519 00da | | Load_Top At_Offset_2 051a 00eb | | Load_Encached Diana_Cache 051b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 051c 0f4e | N | Execute_Immediate Equal,0x4e 051d 6813 |h | Jump_Zero 0x531 051e 00da | | Load_Top At_Offset_2 051f e004 | | Load 0x0,0x4 0520 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0521 700f |p | Jump_Nonzero 0x531 0522 00da | | Load_Top At_Offset_2 0523 e004 | | Load 0x0,0x4 0524 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0525 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0526 e5fa | | Load 0x2,-0x6 0527 e5fe | | Load 0x2,-0x2 0528 0092 111c | | Action Push_String_Extended,0x111c ; "unable to obtain object's enclosing subprogram" 052a e403 | | Load 0x2,0x3 052b 00eb | | Load_Encached Diana_Cache 052c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 052d 0f00 | | Execute_Immediate Equal,0x0 052e 8229 | ) | Call 0x1,0x29 052f c5fa | | Store 0x2,-0x6 0530 7802 |x | Jump 0x533 0531 00da | | Load_Top At_Offset_2 0532 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0533 00d9 | | Load_Top At_Offset_1 0534 a5fd | | Store_Unchecked 0x2,-0x3 0535 4802 |H | Short_Literal 0x2 0536 e5fa | | Load 0x2,-0x6 0537 e002 | | Load 0x0,0x2 0538 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0539 6805 |h | Jump_Zero 0x53f 053a 4820 |H | Short_Literal 0x20 053b a5fb | | Store_Unchecked 0x2,-0x5 053c 4800 |H | Short_Literal 0x0 053d a5fc | | Store_Unchecked 0x2,-0x4 053e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 053f e5ff | | Load 0x2,-0x1 0540 e004 | | Load 0x0,0x4 0541 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0542 6815 |h | Jump_Zero 0x558 0543 4873 |Hs | Short_Literal 0x73 0544 a5fb | | Store_Unchecked 0x2,-0x5 0545 e5ff | | Load 0x2,-0x1 0546 00db | | Load_Top At_Offset_3 0547 801b | | Call 0x0,0x1b 0548 0059 | Y | Store_Top Discrete,At_Offset_1 0549 00d8 | | Load_Top At_Offset_0 054a 700a |p | Jump_Nonzero 0x555 054b e5ff | | Load 0x2,-0x1 054c 801c | | Call 0x0,0x1c 054d 7007 |p | Jump_Nonzero 0x555 054e e5fa | | Load 0x2,-0x6 054f 00ea | | Load_Encached Null_String_Cache 0550 e5fe | | Load 0x2,-0x2 0551 0092 111d | | Action Push_String_Extended,0x111d ; "The specified statement is not numbered" 0553 8228 | ( | Call 0x1,0x28 0554 c5fa | | Store 0x2,-0x6 0555 00d8 | | Load_Top At_Offset_0 0556 a5fc | | Store_Unchecked 0x2,-0x4 0557 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0558 e5ff | | Load 0x2,-0x1 0559 e004 | | Load 0x0,0x4 055a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 055b 6809 |h | Jump_Zero 0x565 055c 4873 |Hs | Short_Literal 0x73 055d a5fb | | Store_Unchecked 0x2,-0x5 055e e5ff | | Load 0x2,-0x1 055f e004 | | Load 0x0,0x4 0560 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0561 00db | | Load_Top At_Offset_3 0562 801b | | Call 0x0,0x1b 0563 c5fc | | Store 0x2,-0x4 0564 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0565 4864 |Hd | Short_Literal 0x64 0566 a5fb | | Store_Unchecked 0x2,-0x5 0567 e5fa | | Load 0x2,-0x6 0568 e5fe | | Load 0x2,-0x2 0569 0092 111e | | Action Push_String_Extended,0x111e ; "the object is in a declaration which is not numbered" 056b e5ff | | Load 0x2,-0x1 056c 801c | | Call 0x0,0x1c 056d 8229 | ) | Call 0x1,0x29 056e c5fa | | Store 0x2,-0x6 056f 4802 |H | Short_Literal 0x2 0570 e5fa | | Load 0x2,-0x6 0571 e002 | | Load 0x0,0x2 0572 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0573 6803 |h | Jump_Zero 0x577 0574 4800 |H | Short_Literal 0x0 0575 a5fc | | Store_Unchecked 0x2,-0x4 0576 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0577 e5ff | | Load 0x2,-0x1 0578 00db | | Load_Top At_Offset_3 0579 801b | | Call 0x0,0x1b 057a 0275 | u | Execute Discrete,Unary_Minus 057b c5fc | | Store 0x2,-0x4 057c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 057d 0000 0000 | | .XXX[0x3] 057f 0000 | | 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 058b | | .CONST 0x058b ; Address of begin 0581 05a7 | | .CONST 0x05a7 ; Address of exception handler 0582 0005 | | .CONST 0x0005 ; Number of locals 0583 INIT_0580: 0583 00ec | | Load_Encached Diana_Tree_Cache 0584 00e2 | | Load_Encached Integer_Cache 0585 00e8 | | Load_Encached Character_Cache 0586 e002 | | Load 0x0,0x2 0587 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0588 02c7 | | Declare_Variable Any 0589 00d8 | | Load_Top At_Offset_0 058a 1c00 | | Execute_Immediate Run_Utility,0x0 058b BODY_0580: 058b e5ff | | Load 0x2,-0x1 058c 8219 | | Call 0x1,0x19 058d 6815 |h | Jump_Zero 0x5a3 058e 00d8 | | Load_Top At_Offset_0 058f 00e8 | | Load_Encached Character_Cache 0590 00e3 | | Load_Encached Natural_Cache 0591 00ec | | Load_Encached Diana_Tree_Cache 0592 4800 |H | Short_Literal 0x0 0593 e5ff | | Load 0x2,-0x1 0594 8222 | " | Call 0x1,0x22 0595 c402 | | Store 0x2,0x2 0596 c403 | | Store 0x2,0x3 0597 005b | [ | Store_Top Discrete,At_Offset_3 0598 c405 | | Store 0x2,0x5 0599 00db | | Load_Top At_Offset_3 059a 00eb | | Load_Encached Diana_Cache 059b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 059c 7006 |p | Jump_Nonzero 0x5a3 059d 4801 |H | Short_Literal 0x1 059e 00da | | Load_Top At_Offset_2 059f e403 | | Load 0x2,0x3 05a0 e402 | | Load 0x2,0x2 05a1 8220 | | Call 0x1,0x20 05a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a3 4801 |H | Short_Literal 0x1 05a4 e5ff | | Load 0x2,-0x1 05a5 8215 | | Call 0x1,0x15 05a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a7 TRAP_0580: 05a7 0007 | | Action Break_Optional 05a8 00ea | | Load_Encached Null_String_Cache 05a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05aa 0000 0000 | | .BLANK 0000[0x6] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 00da | | Load_Top At_Offset_2 05b4 01db | | Execute Vector,Length 05b5 0c01 | | Execute_Immediate Greater_Equal,0x1 05b6 6805 |h | Jump_Zero 0x5bc 05b7 00db | | Load_Top At_Offset_3 05b8 00db | | Load_Top At_Offset_3 05b9 e00a | | Load 0x0,0xa 05ba 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05bb c5fe | | Store 0x2,-0x2 05bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05bd 0000 0000 | | .XXX[0x3] 05bf 0000 | | 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c3 | | .CONST 0x05c3 ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0001 | | .CONST 0x0001 ; Number of locals 05c3 BODY_05c0: 05c3 INIT_05c0: 05c3 00db | | Load_Top At_Offset_3 05c4 00db | | Load_Top At_Offset_3 05c5 8223 | # | Call 0x1,0x23 05c6 8224 | $ | Call 0x1,0x24 05c7 c5fe | | Store 0x2,-0x2 05c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c9 0000 0000 | | .BLANK 0000[0x7] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d3 | | .CONST 0x05d3 ; Address of begin 05d1 05e1 | | .CONST 0x05e1 ; Address of exception handler 05d2 0001 | | .CONST 0x0001 ; Number of locals 05d3 BODY_05d0: 05d3 INIT_05d0: 05d3 00da | | Load_Top At_Offset_2 05d4 00eb | | Load_Encached Diana_Cache 05d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05d6 6803 |h | Jump_Zero 0x5da 05d7 0092 111f | | Action Push_String_Extended,0x111f ; "'s location" 05d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05da 0092 1120 | | Action Push_String_Extended,0x1120 ; " " 05dc 4801 |H | Short_Literal 0x1 05dd e5ff | | Load 0x2,-0x1 05de 8215 | | Call 0x1,0x15 05df 01cc | | Execute Vector,Catenate 05e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e1 TRAP_05d0: 05e1 0007 | | Action Break_Optional 05e2 0092 111f | | Action Push_String_Extended,0x111f ; "'s location" 05e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05e5 0000 0000 | | .XXX[0x3] 05e7 0000 | | 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 00da | | Load_Top At_Offset_2 05ec 01db | | Execute Vector,Length 05ed 7002 |p | Jump_Nonzero 0x5f0 05ee 00da | | Load_Top At_Offset_2 05ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f0 0092 1120 | | Action Push_String_Extended,0x1120 ; " " 05f2 00db | | Load_Top At_Offset_3 05f3 01cc | | Execute Vector,Catenate 05f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05f5 0000 0000 | | .XXX[0x3] 05f7 0000 | | 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb e5fc | | Load 0x2,-0x4 05fc 480a |H | Short_Literal 0xa 05fd 482e |H. | Short_Literal 0x2e 05fe 480a |H | Short_Literal 0xa 05ff 0092 1121 | !| Action Push_String_Extended,0x1121 ; "Cannot " 0601 4801 |H | Short_Literal 0x1 0602 e5fe | | Load 0x2,-0x2 0603 821d | | Call 0x1,0x1d 0604 01cc | | Execute Vector,Catenate 0605 0092 1122 | "| Action Push_String_Extended,0x1122 ; " at the selected object" 0607 01cc | | Execute Vector,Catenate 0608 01cb | | Execute Vector,Append 0609 e5ff | | Load 0x2,-0x1 060a 01cc | | Execute Vector,Catenate 060b 01cb | | Execute Vector,Append 060c 01cb | | Execute Vector,Append 060d e002 | | Load 0x0,0x2 060e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 060f c5fc | | Store 0x2,-0x4 0610 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0611 0000 0000 | | .BLANK 0000[0x7] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061b | | .CONST 0x061b ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0001 | | .CONST 0x0001 ; Number of locals 061b BODY_0618: 061b INIT_0618: 061b 00da | | Load_Top At_Offset_2 061c 6804 |h | Jump_Zero 0x621 061d e002 | | Load 0x0,0x2 061e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 061f c5fc | | Store 0x2,-0x4 0620 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0621 e5fc | | Load 0x2,-0x4 0622 00ea | | Load_Encached Null_String_Cache 0623 e5fd | | Load 0x2,-0x3 0624 e5fe | | Load 0x2,-0x2 0625 8228 | ( | Call 0x1,0x28 0626 c5fc | | Store 0x2,-0x4 0627 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b e5fc | | Load 0x2,-0x4 062c e5fd | | Load 0x2,-0x3 062d 8225 | % | Call 0x1,0x25 062e c5fc | | Store 0x2,-0x4 062f e5fb | | Load 0x2,-0x5 0630 e5fd | | Load 0x2,-0x3 0631 8226 | & | Call 0x1,0x26 0632 e5fe | | Load 0x2,-0x2 0633 e5ff | | Load 0x2,-0x1 0634 8228 | ( | Call 0x1,0x28 0635 c5fb | | Store 0x2,-0x5 0636 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0637 0000 | | .XXX[0x1] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b 00da | | Load_Top At_Offset_2 063c 6804 |h | Jump_Zero 0x641 063d e002 | | Load 0x0,0x2 063e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 063f c5fa | | Store 0x2,-0x6 0640 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0641 e5fa | | Load 0x2,-0x6 0642 e5fb | | Load 0x2,-0x5 0643 e5fc | | Load 0x2,-0x4 0644 e5fd | | Load 0x2,-0x3 0645 e5fe | | Load 0x2,-0x2 0646 822a | * | Call 0x1,0x2a 0647 c5fb | | Store 0x2,-0x5 0648 c5fa | | Store 0x2,-0x6 0649 4505 |E | Exit_Suprogram New_Top_Offset 0x5 064a 0000 0000 | | .BLANK 0000[0x6] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 e01d | | Load 0x0,0x1d 0654 180e | | Execute Package,Field_Execute,Field_Number 0xe 0655 00db | | Load_Top At_Offset_3 0656 801e | | Call 0x0,0x1e 0657 0092 111a | | Action Push_String_Extended,0x111a ; "." 0659 01cc | | Execute Vector,Catenate 065a 01cb | | Execute Vector,Append 065b 4820 |H | Short_Literal 0x20 065c 4800 |H | Short_Literal 0x0 065d 480a |H | Short_Literal 0xa 065e e5fe | | Load 0x2,-0x2 065f e01a | | Load 0x0,0x1a 0660 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0661 01cc | | Execute Vector,Catenate 0662 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0663 0000 0000 | | .BLANK 0000[0x5] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066f | o | .CONST 0x066f ; Address of begin 0669 070d | | .CONST 0x070d ; Address of exception handler 066a 0005 | | .CONST 0x0005 ; Number of locals 066b INIT_0668: 066b 00ec | | Load_Encached Diana_Tree_Cache 066c 00ec | | Load_Encached Diana_Tree_Cache 066d 00ec | | Load_Encached Diana_Tree_Cache 066e 00ec | | Load_Encached Diana_Tree_Cache 066f BODY_0668: 066f e5ff | | Load 0x2,-0x1 0670 00eb | | Load_Encached Diana_Cache 0671 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0672 00d8 | | Load_Top At_Offset_0 0673 0c4f | O | Execute_Immediate Greater_Equal,0x4f 0674 7052 |pR | Jump_Nonzero 0x6c7 0675 464e |FN | Jump_Case 0x4f 0676 7851 |xQ | Jump 0x6c8 ; case 0x0 0677 7850 |xP | Jump 0x6c8 ; case 0x1 0678 784f |xO | Jump 0x6c8 ; case 0x2 0679 784e |xN | Jump 0x6c8 ; case 0x3 067a 784d |xM | Jump 0x6c8 ; case 0x4 067b 784c |xL | Jump 0x6c8 ; case 0x5 067c 784b |xK | Jump 0x6c8 ; case 0x6 067d 784a |xJ | Jump 0x6c8 ; case 0x7 067e 7849 |xI | Jump 0x6c8 ; case 0x8 067f 7848 |xH | Jump 0x6c8 ; case 0x9 0680 7847 |xG | Jump 0x6c8 ; case 0xa 0681 7846 |xF | Jump 0x6c8 ; case 0xb 0682 7845 |xE | Jump 0x6c8 ; case 0xc 0683 7844 |xD | Jump 0x6c8 ; case 0xd 0684 7843 |xC | Jump 0x6c8 ; case 0xe 0685 7842 |xB | Jump 0x6c8 ; case 0xf 0686 7841 |xA | Jump 0x6c8 ; case 0x10 0687 7840 |x@ | Jump 0x6c8 ; case 0x11 0688 783f |x? | Jump 0x6c8 ; case 0x12 0689 783e |x> | Jump 0x6c8 ; case 0x13 068a 783d |x= | Jump 0x6c8 ; case 0x14 068b 783c |x< | Jump 0x6c8 ; case 0x15 068c 783b |x; | Jump 0x6c8 ; case 0x16 068d 783a |x: | Jump 0x6c8 ; case 0x17 068e 7839 |x9 | Jump 0x6c8 ; case 0x18 068f 7838 |x8 | Jump 0x6c8 ; case 0x19 0690 7837 |x7 | Jump 0x6c8 ; case 0x1a 0691 7836 |x6 | Jump 0x6c8 ; case 0x1b 0692 7835 |x5 | Jump 0x6c8 ; case 0x1c 0693 7834 |x4 | Jump 0x6c8 ; case 0x1d 0694 7833 |x3 | Jump 0x6c8 ; case 0x1e 0695 7832 |x2 | Jump 0x6c8 ; case 0x1f 0696 7831 |x1 | Jump 0x6c8 ; case 0x20 0697 7871 |xq | Jump 0x709 ; case 0x21 0698 7843 |xC | Jump 0x6dc ; case 0x22 0699 782e |x. | Jump 0x6c8 ; case 0x23 069a 782d |x- | Jump 0x6c8 ; case 0x24 069b 782c |x, | Jump 0x6c8 ; case 0x25 069c 782b |x+ | Jump 0x6c8 ; case 0x26 069d 782a |x* | Jump 0x6c8 ; case 0x27 069e 7829 |x) | Jump 0x6c8 ; case 0x28 069f 782b |x+ | Jump 0x6cb ; case 0x29 06a0 7827 |x' | Jump 0x6c8 ; case 0x2a 06a1 7826 |x& | Jump 0x6c8 ; case 0x2b 06a2 7866 |xf | Jump 0x709 ; case 0x2c 06a3 7824 |x$ | Jump 0x6c8 ; case 0x2d 06a4 7864 |xd | Jump 0x709 ; case 0x2e 06a5 781f |x | Jump 0x6c5 ; case 0x2f 06a6 7844 |xD | Jump 0x6eb ; case 0x30 06a7 7820 |x | Jump 0x6c8 ; case 0x31 06a8 781f |x | Jump 0x6c8 ; case 0x32 06a9 785f |x_ | Jump 0x709 ; case 0x33 06aa 781d |x | Jump 0x6c8 ; case 0x34 06ab 781c |x | Jump 0x6c8 ; case 0x35 06ac 781b |x | Jump 0x6c8 ; case 0x36 06ad 781a |x | Jump 0x6c8 ; case 0x37 06ae 7819 |x | Jump 0x6c8 ; case 0x38 06af 7818 |x | Jump 0x6c8 ; case 0x39 06b0 7817 |x | Jump 0x6c8 ; case 0x3a 06b1 7816 |x | Jump 0x6c8 ; case 0x3b 06b2 7815 |x | Jump 0x6c8 ; case 0x3c 06b3 7814 |x | Jump 0x6c8 ; case 0x3d 06b4 7813 |x | Jump 0x6c8 ; case 0x3e 06b5 7812 |x | Jump 0x6c8 ; case 0x3f 06b6 7811 |x | Jump 0x6c8 ; case 0x40 06b7 7810 |x | Jump 0x6c8 ; case 0x41 06b8 780f |x | Jump 0x6c8 ; case 0x42 06b9 780e |x | Jump 0x6c8 ; case 0x43 06ba 780d |x | Jump 0x6c8 ; case 0x44 06bb 780c |x | Jump 0x6c8 ; case 0x45 06bc 780b |x | Jump 0x6c8 ; case 0x46 06bd 780a |x | Jump 0x6c8 ; case 0x47 06be 7809 |x | Jump 0x6c8 ; case 0x48 06bf 7808 |x | Jump 0x6c8 ; case 0x49 06c0 7807 |x | Jump 0x6c8 ; case 0x4a 06c1 7806 |x | Jump 0x6c8 ; case 0x4b 06c2 7802 |x | Jump 0x6c5 ; case 0x4c 06c3 7804 |x | Jump 0x6c8 ; case 0x4d 06c4 7800 |x | Jump 0x6c5 ; case 0x4e 06c5 e5ff | | Load 0x2,-0x1 06c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06c7 00d1 | | Pop_Control Pop_Count_1 06c8 00eb | | Load_Encached Diana_Cache 06c9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06cb e5ff | | Load 0x2,-0x1 06cc 00eb | | Load_Encached Diana_Cache 06cd 18ec | | Execute Package,Field_Execute,Field_Number 0xec 06ce 0032 | 2 | Store_Top Heap_Access,At_Offset_2 06cf 00d9 | | Load_Top At_Offset_1 06d0 00eb | | Load_Encached Diana_Cache 06d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06d2 0f3e | > | Execute_Immediate Equal,0x3e 06d3 7004 |p | Jump_Nonzero 0x6d8 06d4 e5ff | | Load 0x2,-0x1 06d5 e00f | | Load 0x0,0xf 06d6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 06d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06d8 00d9 | | Load_Top At_Offset_1 06d9 00eb | | Load_Encached Diana_Cache 06da 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8 06db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06dc e5ff | | Load 0x2,-0x1 06dd e004 | | Load 0x0,0x4 06de 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 06df 0031 | 1 | Store_Top Heap_Access,At_Offset_1 06e0 00d8 | | Load_Top At_Offset_0 06e1 00eb | | Load_Encached Diana_Cache 06e2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06e3 0f7c | | | Execute_Immediate Equal,0x7c 06e4 7004 |p | Jump_Nonzero 0x6e9 06e5 e5ff | | Load 0x2,-0x1 06e6 e00f | | Load 0x0,0xf 06e7 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 06e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06e9 00d8 | | Load_Top At_Offset_0 06ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06eb e5fe | | Load 0x2,-0x2 06ec e5ff | | Load 0x2,-0x1 06ed e00f | | Load 0x0,0xf 06ee 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 06ef a402 | | Store_Unchecked 0x2,0x2 06f0 00db | | Load_Top At_Offset_3 06f1 00eb | | Load_Encached Diana_Cache 06f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06f3 0f73 | s | Execute_Immediate Equal,0x73 06f4 6811 |h | Jump_Zero 0x706 06f5 00db | | Load_Top At_Offset_3 06f6 e5ff | | Load 0x2,-0x1 06f7 e00f | | Load 0x0,0xf 06f8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 06f9 0033 | 3 | Store_Top Heap_Access,At_Offset_3 06fa 00da | | Load_Top At_Offset_2 06fb 00eb | | Load_Encached Diana_Cache 06fc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06fd 0f2e | . | Execute_Immediate Equal,0x2e 06fe 6804 |h | Jump_Zero 0x703 06ff 00da | | Load_Top At_Offset_2 0700 e00f | | Load 0x0,0xf 0701 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0702 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0703 00eb | | Load_Encached Diana_Cache 0704 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0705 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0706 00eb | | Load_Encached Diana_Cache 0707 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0708 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0709 e5ff | | Load 0x2,-0x1 070a e00f | | Load 0x0,0xf 070b 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 070c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 070d TRAP_0668: 070d 0007 | | Action Break_Optional 070e 00eb | | Load_Encached Diana_Cache 070f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0710 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0711 0000 0000 | | .BLANK 0000[0x7] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071d | | .CONST 0x071d ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0003 | | .CONST 0x0003 ; Number of locals 071b INIT_0718: 071b 00ec | | Load_Encached Diana_Tree_Cache 071c 00ec | | Load_Encached Diana_Tree_Cache 071d BODY_0718: 071d e5ff | | Load 0x2,-0x1 071e 801f | | Call 0x0,0x1f 071f 682a |h* | Jump_Zero 0x74a 0720 e5fd | | Load 0x2,-0x3 0721 e5fe | | Load 0x2,-0x2 0722 822d | - | Call 0x1,0x2d 0723 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0724 00d9 | | Load_Top At_Offset_1 0725 00eb | | Load_Encached Diana_Cache 0726 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0727 0f4e | N | Execute_Immediate Equal,0x4e 0728 7005 |p | Jump_Nonzero 0x72e 0729 00d9 | | Load_Top At_Offset_1 072a 00eb | | Load_Encached Diana_Cache 072b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 072c 0f4c | L | Execute_Immediate Equal,0x4c 072d 681c |h | Jump_Zero 0x74a 072e e5ff | | Load 0x2,-0x1 072f 8020 | | Call 0x0,0x20 0730 00d8 | | Load_Top At_Offset_0 0731 00e4 | | Load_Encached Positive_Cache 0732 0260 | ` | Execute Discrete,In_Type 0733 7001 |p | Jump_Nonzero 0x735 0734 0801 | | Execute_Immediate Raise,0x1 0735 00da | | Load_Top At_Offset_2 0736 8021 | ! | Call 0x0,0x21 0737 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0738 00d8 | | Load_Top At_Offset_0 0739 00eb | | Load_Encached Diana_Cache 073a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 073b 700e |p | Jump_Nonzero 0x74a 073c 00d8 | | Load_Top At_Offset_0 073d e004 | | Load 0x0,0x4 073e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 073f 680a |h | Jump_Zero 0x74a 0740 e5fc | | Load 0x2,-0x4 0741 00d8 | | Load_Top At_Offset_0 0742 00eb | | Load_Encached Diana_Cache 0743 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0744 00da | | Load_Top At_Offset_2 0745 e004 | | Load 0x0,0x4 0746 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0747 e5fc | | Load 0x2,-0x4 0748 021f | | Execute Heap_Access,Equal 0749 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 074a 4800 |H | Short_Literal 0x0 074b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 074c 0000 0000 | | .BLANK 0000[0x4] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0753 | S | .CONST 0x0753 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0001 | | .CONST 0x0001 ; Number of locals 0753 BODY_0750: 0753 INIT_0750: 0753 00da | | Load_Top At_Offset_2 0754 680c |h | Jump_Zero 0x761 0755 0092 1123 | #| Action Push_String_Extended,0x1123 ; "the loop with parameter " 0757 e5fe | | Load 0x2,-0x2 0758 00eb | | Load_Encached Diana_Cache 0759 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 075a 00eb | | Load_Encached Diana_Cache 075b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 075c 01cc | | Execute Vector,Catenate 075d 0092 1124 | $| Action Push_String_Extended,0x1124 ; " in " 075f 01cc | | Execute Vector,Catenate 0760 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0761 00ea | | Load_Encached Null_String_Cache 0762 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0763 0000 0000 | | .BLANK 0000[0x5] 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076c | l | .CONST 0x076c ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0002 | | .CONST 0x0002 ; Number of locals 076b INIT_0768: 076b 00ec | | Load_Encached Diana_Tree_Cache 076c BODY_0768: 076c 00db | | Load_Top At_Offset_3 076d 00eb | | Load_Encached Diana_Cache 076e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 076f 00d8 | | Load_Top At_Offset_0 0770 4821 |H! | Short_Literal 0x21 0771 4833 |H3 | Short_Literal 0x33 0772 0262 | b | Execute Discrete,In_Range 0773 6822 |h" | Jump_Zero 0x796 0774 0adf | | Execute_Immediate Plus,-0x21 0775 4612 |F | Jump_Case 0x13 0776 7812 |x | Jump 0x789 ; case 0x0 0777 781f |x | Jump 0x797 ; case 0x1 0778 781e |x | Jump 0x797 ; case 0x2 0779 781d |x | Jump 0x797 ; case 0x3 077a 781c |x | Jump 0x797 ; case 0x4 077b 781b |x | Jump 0x797 ; case 0x5 077c 781a |x | Jump 0x797 ; case 0x6 077d 7819 |x | Jump 0x797 ; case 0x7 077e 780a |x | Jump 0x789 ; case 0x8 077f 7817 |x | Jump 0x797 ; case 0x9 0780 7816 |x | Jump 0x797 ; case 0xa 0781 7807 |x | Jump 0x789 ; case 0xb 0782 7814 |x | Jump 0x797 ; case 0xc 0783 7813 |x | Jump 0x797 ; case 0xd 0784 7812 |x | Jump 0x797 ; case 0xe 0785 7811 |x | Jump 0x797 ; case 0xf 0786 7810 |x | Jump 0x797 ; case 0x10 0787 780f |x | Jump 0x797 ; case 0x11 0788 7800 |x | Jump 0x789 ; case 0x12 0789 00db | | Load_Top At_Offset_3 078a 00eb | | Load_Encached Diana_Cache 078b 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8 078c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 078d 00d8 | | Load_Top At_Offset_0 078e 00eb | | Load_Encached Diana_Cache 078f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0790 0f36 | 6 | Execute_Immediate Equal,0x36 0791 6805 |h | Jump_Zero 0x797 0792 00d8 | | Load_Top At_Offset_0 0793 e00f | | Load 0x0,0xf 0794 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0795 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0796 00d1 | | Pop_Control Pop_Count_1 0797 00eb | | Load_Encached Diana_Cache 0798 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0799 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 079a 0000 0000 | | .BLANK 0000[0x6] 07a0 ; -------------------------------------------------------------------------------------- 07a0 ; SUBPROGRAM 07a0 ; -------------------------------------------------------------------------------------- 07a0 07a3 | | .CONST 0x07a3 ; Address of begin 07a1 0004 | | .CONST 0x0004 ; Address of exception handler 07a2 0001 | | .CONST 0x0001 ; Number of locals 07a3 BODY_07a0: 07a3 INIT_07a0: 07a3 00da | | Load_Top At_Offset_2 07a4 00eb | | Load_Encached Diana_Cache 07a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07a6 0f4c | L | Execute_Immediate Equal,0x4c 07a7 6806 |h | Jump_Zero 0x7ae 07a8 00da | | Load_Top At_Offset_2 07a9 00eb | | Load_Encached Diana_Cache 07aa 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 07ab 00eb | | Load_Encached Diana_Cache 07ac 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 07ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07ae 00eb | | Load_Encached Diana_Cache 07af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07b1 0000 0000 | | .BLANK 0000[0x7] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07bb | | .CONST 0x07bb ; Address of begin 07b9 07dd | | .CONST 0x07dd ; Address of exception handler 07ba 0001 | | .CONST 0x0001 ; Number of locals 07bb BODY_07b8: 07bb INIT_07b8: 07bb 00da | | Load_Top At_Offset_2 07bc e5fe | | Load 0x2,-0x2 07bd 021f | | Execute Heap_Access,Equal 07be 701c |p | Jump_Nonzero 0x7db 07bf 00db | | Load_Top At_Offset_3 07c0 00eb | | Load_Encached Diana_Cache 07c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07c2 0f22 | " | Execute_Immediate Equal,0x22 07c3 6805 |h | Jump_Zero 0x7c9 07c4 00db | | Load_Top At_Offset_3 07c5 00db | | Load_Top At_Offset_3 07c6 8230 | 0 | Call 0x1,0x30 07c7 021f | | Execute Heap_Access,Equal 07c8 7010 |p | Jump_Nonzero 0x7d9 07c9 00da | | Load_Top At_Offset_2 07ca e004 | | Load 0x0,0x4 07cb 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 07cc 6805 |h | Jump_Zero 0x7d2 07cd 00da | | Load_Top At_Offset_2 07ce 8022 | " | Call 0x0,0x22 07cf e5fe | | Load 0x2,-0x2 07d0 021f | | Execute Heap_Access,Equal 07d1 7005 |p | Jump_Nonzero 0x7d7 07d2 00db | | Load_Top At_Offset_3 07d3 00db | | Load_Top At_Offset_3 07d4 8231 | 1 | Call 0x1,0x31 07d5 021f | | Execute Heap_Access,Equal 07d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07d7 4801 |H | Short_Literal 0x1 07d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07d9 4801 |H | Short_Literal 0x1 07da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07db 4801 |H | Short_Literal 0x1 07dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07dd TRAP_07b8: 07dd 0007 | | Action Break_Optional 07de 4800 |H | Short_Literal 0x0 07df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07ed | | .CONST 0x07ed ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0004 | | .CONST 0x0004 ; Number of locals 07e3 INIT_07e0: 07e3 00ec | | Load_Encached Diana_Tree_Cache 07e4 e023 | # | Load 0x0,0x23 07e5 0322 | " | Declare_Variable Record 07e6 00d8 | | Load_Top At_Offset_0 07e7 1c00 | | Execute_Immediate Run_Utility,0x0 07e8 e002 | | Load 0x0,0x2 07e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ea 02c7 | | Declare_Variable Any 07eb 00d8 | | Load_Top At_Offset_0 07ec 1c00 | | Execute_Immediate Run_Utility,0x0 07ed BODY_07e0: 07ed 00d8 | | Load_Top At_Offset_0 07ee 00da | | Load_Top At_Offset_2 07ef e5fe | | Load 0x2,-0x2 07f0 e5ff | | Load 0x2,-0x1 07f1 8024 | $ | Call 0x0,0x24 07f2 00d1 | | Pop_Control Pop_Count_1 07f3 c404 | | Store 0x2,0x4 07f4 4802 |H | Short_Literal 0x2 07f5 00d9 | | Load_Top At_Offset_1 07f6 e002 | | Load 0x0,0x2 07f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07f8 6805 |h | Jump_Zero 0x7fe 07f9 4800 |H | Short_Literal 0x0 07fa a5fa | | Store_Unchecked 0x2,-0x6 07fb 4801 |H | Short_Literal 0x1 07fc a5f9 | | Store_Unchecked 0x2,-0x7 07fd 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07fe 00d9 | | Load_Top At_Offset_1 07ff 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0800 8025 | % | Call 0x0,0x25 0801 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0802 00d9 | | Load_Top At_Offset_1 0803 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0804 a5f9 | | Store_Unchecked 0x2,-0x7 0805 e5fd | | Load 0x2,-0x3 0806 00db | | Load_Top At_Offset_3 0807 e00f | | Load 0x0,0xf 0808 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0809 8232 | 2 | Call 0x1,0x32 080a 680c |h | Jump_Zero 0x817 080b e5fc | | Load 0x2,-0x4 080c 6808 |h | Jump_Zero 0x815 080d e5fb | | Load 0x2,-0x5 080e 00da | | Load_Top At_Offset_2 080f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0810 e402 | | Load 0x2,0x2 0811 e403 | | Load 0x2,0x3 0812 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0813 822e | . | Call 0x1,0x2e 0814 7803 |x | Jump 0x818 0815 4801 |H | Short_Literal 0x1 0816 7801 |x | Jump 0x818 0817 4800 |H | Short_Literal 0x0 0818 a5fa | | Store_Unchecked 0x2,-0x6 0819 4506 |E | Exit_Suprogram New_Top_Offset 0x6 081a 0000 0000 | | .BLANK 0000[0x6] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 083e | > | .CONST 0x083e ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0009 | | .CONST 0x0009 ; Number of locals 0823 INIT_0820: 0823 00da | | Load_Top At_Offset_2 0824 e00f | | Load 0x0,0xf 0825 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0826 480a |H | Short_Literal 0xa 0827 8026 | & | Call 0x0,0x26 0828 00e2 | | Load_Encached Integer_Cache 0829 03f1 | | Declare_Variable Discrete,With_Value 082a 4809 |H | Short_Literal 0x9 082b 8026 | & | Call 0x0,0x26 082c 00e3 | | Load_Encached Natural_Cache 082d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 082e 00d9 | | Load_Top At_Offset_1 082f 00d9 | | Load_Top At_Offset_1 0830 0273 | s | Execute Discrete,Plus 0831 0aff | | Execute_Immediate Plus,-0x1 0832 00e2 | | Load_Encached Integer_Cache 0833 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0834 e5fc | | Load 0x2,-0x4 0835 00eb | | Load_Encached Diana_Cache 0836 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0837 0f26 | & | Execute_Immediate Equal,0x26 0838 00e1 | | Load_Encached Boolean_Cache 0839 03f1 | | Declare_Variable Discrete,With_Value 083a 00e1 | | Load_Encached Boolean_Cache 083b 00e1 | | Load_Encached Boolean_Cache 083c 029f 101b | | Declare_Subprogram INIT_1018,For_Call 083e BODY_0820: 083e 4800 |H | Short_Literal 0x0 083f a5fb | | Store_Unchecked 0x2,-0x5 0840 e5fe | | Load 0x2,-0x2 0841 8027 | ' | Call 0x0,0x27 0842 7007 |p | Jump_Nonzero 0x84a 0843 e5fa | | Load 0x2,-0x6 0844 0092 1125 | %| Action Push_String_Extended,0x1125 ; "Nonexistent task" 0846 e002 | | Load 0x0,0x2 0847 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0848 c5fa | | Store 0x2,-0x6 0849 4505 |E | Exit_Suprogram New_Top_Offset 0x5 084a e5fd | | Load 0x2,-0x3 084b 6805 |h | Jump_Zero 0x851 084c e5fd | | Load 0x2,-0x3 084d 8409 | | Call 0x2,0x9 084e 00da | | Load_Top At_Offset_2 084f 6801 |h | Jump_Zero 0x851 0850 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0851 00cf | | Action Mark_Auxiliary 0852 e405 | | Load 0x2,0x5 0853 e403 | | Load 0x2,0x3 0854 0263 | c | Execute Discrete,Above_Bound 0855 700b |p | Jump_Nonzero 0x861 0856 00d8 | | Load_Top At_Offset_0 0857 8409 | | Call 0x2,0x9 0858 e407 | | Load 0x2,0x7 0859 6801 |h | Jump_Zero 0x85b 085a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 085b e408 | | Load 0x2,0x8 085c 6802 |h | Jump_Zero 0x85f 085d 00d2 | | Pop_Control Pop_Count_2 085e 7802 |x | Jump 0x861 085f 00c8 | | Action Pop_Auxiliary_Range 0860 3ff5 |? | Loop_Increasing 0x856 0861 00ce | | Action Pop_Auxiliary 0862 e5fa | | Load 0x2,-0x6 0863 0092 1126 | &| Action Push_String_Extended,0x1126 ; "There is no activation of " 0865 e5fc | | Load 0x2,-0x4 0866 e406 | | Load 0x2,0x6 0867 822f | / | Call 0x1,0x2f 0868 01cc | | Execute Vector,Catenate 0869 4801 |H | Short_Literal 0x1 086a e402 | | Load 0x2,0x2 086b 8215 | | Call 0x1,0x15 086c 01cc | | Execute Vector,Catenate 086d 0092 1127 | '| Action Push_String_Extended,0x1127 ; " in stack frames" 086f 01cc | | Execute Vector,Catenate 0870 e403 | | Load 0x2,0x3 0871 00e0 | | Load_Encached Standard_Cache 0872 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0873 01cc | | Execute Vector,Catenate 0874 0092 1128 | (| Action Push_String_Extended,0x1128 ; " through" 0876 01cc | | Execute Vector,Catenate 0877 e405 | | Load 0x2,0x5 0878 00e0 | | Load_Encached Standard_Cache 0879 1818 | | Execute Package,Field_Execute,Field_Number 0x18 087a 01cc | | Execute Vector,Catenate 087b 0092 1129 | )| Action Push_String_Extended,0x1129 ; " of task " 087d 01cc | | Execute Vector,Catenate 087e e5fe | | Load 0x2,-0x2 087f 801e | | Call 0x0,0x1e 0880 01cc | | Execute Vector,Catenate 0881 e002 | | Load 0x0,0x2 0882 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0883 c5fa | | Store 0x2,-0x6 0884 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0885 0000 0000 | | .XXX[0x3] 0887 0000 | | 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088f | | .CONST 0x088f ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0003 | | .CONST 0x0003 ; Number of locals 088b INIT_0888: 088b 00db | | Load_Top At_Offset_3 088c e00a | | Load 0x0,0xa 088d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 088e 00e3 | | Load_Encached Natural_Cache 088f BODY_0888: 088f 00cf | | Action Mark_Auxiliary 0890 00da | | Load_Top At_Offset_2 0891 4802 |H | Short_Literal 0x2 0892 0263 | c | Execute Discrete,Above_Bound 0893 700c |p | Jump_Nonzero 0x8a0 0894 00d8 | | Load_Top At_Offset_0 0895 e5fe | | Load 0x2,-0x2 0896 e00a | | Load 0x0,0xa 0897 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0898 0f2e | . | Execute_Immediate Equal,0x2e 0899 6804 |h | Jump_Zero 0x89e 089a 00d8 | | Load_Top At_Offset_0 089b a403 | | Store_Unchecked 0x2,0x3 089c 00d2 | | Pop_Control Pop_Count_2 089d 7802 |x | Jump 0x8a0 089e 00c8 | | Action Pop_Auxiliary_Range 089f 3ff4 |? | Loop_Increasing 0x894 08a0 00ce | | Action Pop_Auxiliary 08a1 00d8 | | Load_Top At_Offset_0 08a2 00da | | Load_Top At_Offset_2 08a3 027a | z | Execute Discrete,Less_Equal 08a4 6816 |h | Jump_Zero 0x8bb 08a5 e5fe | | Load 0x2,-0x2 08a6 0092 112a | *| Action Push_String_Extended,0x112a ; "'N(" 08a8 4820 |H | Short_Literal 0x20 08a9 4800 |H | Short_Literal 0x0 08aa 480a |H | Short_Literal 0xa 08ab e5ff | | Load 0x2,-0x1 08ac e01a | | Load 0x0,0x1a 08ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08ae 01cc | | Execute Vector,Catenate 08af 0092 112b | +| Action Push_String_Extended,0x112b ; ")" 08b1 01cc | | Execute Vector,Catenate 08b2 00da | | Load_Top At_Offset_2 08b3 00d8 | | Load_Top At_Offset_0 08b4 00e4 | | Load_Encached Positive_Cache 08b5 0260 | ` | Execute Discrete,In_Type 08b6 7001 |p | Jump_Nonzero 0x8b8 08b7 0801 | | Execute_Immediate Raise,0x1 08b8 e00a | | Load 0x0,0xa 08b9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 08ba c5fe | | Store 0x2,-0x2 08bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08bc 0000 0000 | | .BLANK 0000[0x4] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08d0 | | .CONST 0x08d0 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 0008 | | .CONST 0x0008 ; Number of locals 08c3 INIT_08c0: 08c3 00da | | Load_Top At_Offset_2 08c4 e004 | | Load 0x0,0x4 08c5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 08c6 e00f | | Load 0x0,0xf 08c7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 08c8 00e3 | | Load_Encached Natural_Cache 08c9 e028 | ( | Load 0x0,0x28 08ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08cb 00e1 | | Load_Encached Boolean_Cache 08cc 00e1 | | Load_Encached Boolean_Cache 08cd 00ec | | Load_Encached Diana_Tree_Cache 08ce 029f 1033 | 3| Declare_Subprogram INIT_1030,For_Call 08d0 BODY_08c0: 08d0 e5fb | | Load 0x2,-0x5 08d1 e5fd | | Load 0x2,-0x3 08d2 e5fe | | Load 0x2,-0x2 08d3 e402 | | Load 0x2,0x2 08d4 8221 | ! | Call 0x1,0x21 08d5 e00a | | Load 0x0,0xa 08d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 08d7 c5fb | | Store 0x2,-0x5 08d8 0092 112c | ,| Action Push_String_Extended,0x112c ; "The object " 08da e5fb | | Load 0x2,-0x5 08db e00a | | Load 0x0,0xa 08dc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 08dd 01cc | | Execute Vector,Catenate 08de 0092 112d | -| Action Push_String_Extended,0x112d ; " is not part of the program being debugged" 08e0 01cc | | Execute Vector,Catenate 08e1 e5fb | | Load 0x2,-0x5 08e2 e00a | | Load 0x0,0xa 08e3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 08e4 0c00 | | Execute_Immediate Greater_Equal,0x0 08e5 6806 |h | Jump_Zero 0x8ec 08e6 4801 |H | Short_Literal 0x1 08e7 e5fb | | Load 0x2,-0x5 08e8 e00a | | Load 0x0,0xa 08e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 08ea 0f2e | . | Execute_Immediate Equal,0x2e 08eb 7801 |x | Jump 0x8ed 08ec 4800 |H | Short_Literal 0x0 08ed 8408 | | Call 0x2,0x8 08ee 4802 |H | Short_Literal 0x2 08ef e5fa | | Load 0x2,-0x6 08f0 e002 | | Load 0x0,0x2 08f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 08f2 6801 |h | Jump_Zero 0x8f4 08f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08f4 4801 |H | Short_Literal 0x1 08f5 e402 | | Load 0x2,0x2 08f6 4975 |Iu | Short_Literal 0x175 08f7 00eb | | Load_Encached Diana_Cache 08f8 0098 | | Execute Package,Field_Read_Dynamic 08f9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 08fa 0032 | 2 | Store_Top Heap_Access,At_Offset_2 08fb e5fa | | Load 0x2,-0x6 08fc 00e1 | | Load_Encached Boolean_Cache 08fd 00e1 | | Load_Encached Boolean_Cache 08fe e028 | ( | Load 0x0,0x28 08ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0900 00e3 | | Load_Encached Natural_Cache 0901 e029 | ) | Load 0x0,0x29 0902 4801 |H | Short_Literal 0x1 0903 00ea | | Load_Encached Null_String_Cache 0904 e407 | | Load 0x2,0x7 0905 802a | * | Call 0x0,0x2a 0906 c029 | ) | Store 0x0,0x29 0907 c403 | | Store 0x2,0x3 0908 c404 | | Store 0x2,0x4 0909 c405 | | Store 0x2,0x5 090a c406 | | Store 0x2,0x6 090b c5fa | | Store 0x2,-0x6 090c 4802 |H | Short_Literal 0x2 090d e5fa | | Load 0x2,-0x6 090e e002 | | Load 0x0,0x2 090f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0910 6817 |h | Jump_Zero 0x928 0911 e5fb | | Load 0x2,-0x5 0912 4800 |H | Short_Literal 0x0 0913 e5fd | | Load 0x2,-0x3 0914 e5fe | | Load 0x2,-0x2 0915 e5ff | | Load 0x2,-0x1 0916 8220 | | Call 0x1,0x20 0917 e00a | | Load 0x0,0xa 0918 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0919 c5fb | | Store 0x2,-0x5 091a 0092 112e | .| Action Push_String_Extended,0x112e ; "Warning: The object " 091c 4800 |H | Short_Literal 0x0 091d 00db | | Load_Top At_Offset_3 091e e00f | | Load 0x0,0xf 091f 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0920 01cc | | Execute Vector,Catenate 0921 0092 112d | -| Action Push_String_Extended,0x112d ; " is not part of the program being debugged" 0923 01cc | | Execute Vector,Catenate 0924 e002 | | Load 0x0,0x2 0925 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0926 c5fa | | Store 0x2,-0x6 0927 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0928 00db | | Load_Top At_Offset_3 0929 7006 |p | Jump_Nonzero 0x930 092a 00da | | Load_Top At_Offset_2 092b 6804 |h | Jump_Zero 0x930 092c e5fb | | Load 0x2,-0x5 092d e403 | | Load 0x2,0x3 092e 8235 | 5 | Call 0x1,0x35 092f c5fb | | Store 0x2,-0x5 0930 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0931 0000 0000 | | .BLANK 0000[0x7] 0938 ; -------------------------------------------------------------------------------------- 0938 ; SUBPROGRAM 0938 ; -------------------------------------------------------------------------------------- 0938 093b | ; | .CONST 0x093b ; Address of begin 0939 0004 | | .CONST 0x0004 ; Address of exception handler 093a 0001 | | .CONST 0x0001 ; Number of locals 093b BODY_0938: 093b INIT_0938: 093b e5fb | | Load 0x2,-0x5 093c e5fc | | Load 0x2,-0x4 093d e5ff | | Load 0x2,-0x1 093e e5fe | | Load 0x2,-0x2 093f 0092 1121 | !| Action Push_String_Extended,0x1121 ; "Cannot " 0941 e5fd | | Load 0x2,-0x3 0942 e5fe | | Load 0x2,-0x2 0943 821d | | Call 0x1,0x1d 0944 01cc | | Execute Vector,Catenate 0945 0092 112f | /| Action Push_String_Extended,0x112f ; " for an entry declaration" 0947 01cc | | Execute Vector,Catenate 0948 e5ff | | Load 0x2,-0x1 0949 e004 | | Load 0x0,0x4 094a 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 094b 0f00 | | Execute_Immediate Equal,0x0 094c 822b | + | Call 0x1,0x2b 094d c5fc | | Store 0x2,-0x4 094e c5fb | | Store 0x2,-0x5 094f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0950 ; -------------------------------------------------------------------------------------- 0950 ; SUBPROGRAM 0950 ; -------------------------------------------------------------------------------------- 0950 0953 | S | .CONST 0x0953 ; Address of begin 0951 0004 | | .CONST 0x0004 ; Address of exception handler 0952 0001 | | .CONST 0x0001 ; Number of locals 0953 BODY_0950: 0953 INIT_0950: 0953 e5fb | | Load 0x2,-0x5 0954 e5fc | | Load 0x2,-0x4 0955 e5fd | | Load 0x2,-0x3 0956 e5fe | | Load 0x2,-0x2 0957 e5ff | | Load 0x2,-0x1 0958 8237 | 7 | Call 0x1,0x37 0959 c5fc | | Store 0x2,-0x4 095a c5fb | | Store 0x2,-0x5 095b 4802 |H | Short_Literal 0x2 095c e5fb | | Load 0x2,-0x5 095d e002 | | Load 0x0,0x2 095e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 095f 7009 |p | Jump_Nonzero 0x969 0960 e5fb | | Load 0x2,-0x5 0961 e5fc | | Load 0x2,-0x4 0962 e5fe | | Load 0x2,-0x2 0963 4820 |H | Short_Literal 0x20 0964 4800 |H | Short_Literal 0x0 0965 e5ff | | Load 0x2,-0x1 0966 8236 | 6 | Call 0x1,0x36 0967 c5fc | | Store 0x2,-0x4 0968 c5fb | | Store 0x2,-0x5 0969 4504 |E | Exit_Suprogram New_Top_Offset 0x4 096a 0000 0000 | | .BLANK 0000[0x6] 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0976 | v | .CONST 0x0976 ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0004 | | .CONST 0x0004 ; Number of locals 0973 INIT_0970: 0973 00ec | | Load_Encached Diana_Tree_Cache 0974 00e3 | | Load_Encached Natural_Cache 0975 00e8 | | Load_Encached Character_Cache 0976 BODY_0970: 0976 e5fb | | Load 0x2,-0x5 0977 e5fc | | Load 0x2,-0x4 0978 e5fd | | Load 0x2,-0x3 0979 e5fe | | Load 0x2,-0x2 097a e5ff | | Load 0x2,-0x1 097b 8237 | 7 | Call 0x1,0x37 097c c5fc | | Store 0x2,-0x4 097d c5fb | | Store 0x2,-0x5 097e 4802 |H | Short_Literal 0x2 097f e5fb | | Load 0x2,-0x5 0980 e002 | | Load 0x0,0x2 0981 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0982 6801 |h | Jump_Zero 0x984 0983 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0984 e5fb | | Load 0x2,-0x5 0985 00e8 | | Load_Encached Character_Cache 0986 00e3 | | Load_Encached Natural_Cache 0987 00ec | | Load_Encached Diana_Tree_Cache 0988 e5fe | | Load 0x2,-0x2 0989 e5ff | | Load 0x2,-0x1 098a 8222 | " | Call 0x1,0x22 098b c402 | | Store 0x2,0x2 098c c403 | | Store 0x2,0x3 098d 005a | Z | Store_Top Discrete,At_Offset_2 098e c5fb | | Store 0x2,-0x5 098f 4802 |H | Short_Literal 0x2 0990 e5fb | | Load 0x2,-0x5 0991 e002 | | Load 0x0,0x2 0992 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0993 6801 |h | Jump_Zero 0x995 0994 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0995 e5fb | | Load 0x2,-0x5 0996 e5fe | | Load 0x2,-0x2 0997 0092 1130 | 0| Action Push_String_Extended,0x1130 ; "unable to obtain object's statement or declaration number" 0999 e403 | | Load 0x2,0x3 099a 0c01 | | Execute_Immediate Greater_Equal,0x1 099b 8229 | ) | Call 0x1,0x29 099c c5fb | | Store 0x2,-0x5 099d 4802 |H | Short_Literal 0x2 099e e5fb | | Load 0x2,-0x5 099f e002 | | Load 0x0,0x2 09a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09a1 6801 |h | Jump_Zero 0x9a3 09a2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09a3 e5fb | | Load 0x2,-0x5 09a4 e5fc | | Load 0x2,-0x4 09a5 e5fe | | Load 0x2,-0x2 09a6 00db | | Load_Top At_Offset_3 09a7 e403 | | Load 0x2,0x3 09a8 e402 | | Load 0x2,0x2 09a9 8236 | 6 | Call 0x1,0x36 09aa c5fc | | Store 0x2,-0x4 09ab c5fb | | Store 0x2,-0x5 09ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09ad 0000 0000 | | .XXX[0x3] 09af 0000 | | 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; SUBPROGRAM 09b0 ; -------------------------------------------------------------------------------------- 09b0 09b9 | | .CONST 0x09b9 ; Address of begin 09b1 0004 | | .CONST 0x0004 ; Address of exception handler 09b2 0005 | | .CONST 0x0005 ; Number of locals 09b3 INIT_09b0: 09b3 00da | | Load_Top At_Offset_2 09b4 00eb | | Load_Encached Diana_Cache 09b5 18ec | | Execute Package,Field_Execute,Field_Number 0xec 09b6 00ec | | Load_Encached Diana_Tree_Cache 09b7 00e3 | | Load_Encached Natural_Cache 09b8 00e8 | | Load_Encached Character_Cache 09b9 BODY_09b0: 09b9 00cf | | Action Mark_Auxiliary 09ba 7826 |x& | Jump 0x9e1 09bb e402 | | Load 0x2,0x2 09bc e004 | | Load 0x0,0x4 09bd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 09be 681d |h | Jump_Zero 0x9dc 09bf e5fc | | Load 0x2,-0x4 09c0 00e8 | | Load_Encached Character_Cache 09c1 00e3 | | Load_Encached Natural_Cache 09c2 00ec | | Load_Encached Diana_Tree_Cache 09c3 e5fe | | Load 0x2,-0x2 09c4 e402 | | Load 0x2,0x2 09c5 8222 | " | Call 0x1,0x22 09c6 c403 | | Store 0x2,0x3 09c7 c404 | | Store 0x2,0x4 09c8 005b | [ | Store_Top Discrete,At_Offset_3 09c9 c5fc | | Store 0x2,-0x4 09ca 4802 |H | Short_Literal 0x2 09cb e5fc | | Load 0x2,-0x4 09cc e002 | | Load 0x0,0x2 09cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09ce 700d |p | Jump_Nonzero 0x9dc 09cf 00da | | Load_Top At_Offset_2 09d0 0c01 | | Execute_Immediate Greater_Equal,0x1 09d1 680a |h | Jump_Zero 0x9dc 09d2 e5fc | | Load 0x2,-0x4 09d3 e5fd | | Load 0x2,-0x3 09d4 e5fe | | Load 0x2,-0x2 09d5 e405 | | Load 0x2,0x5 09d6 e404 | | Load 0x2,0x4 09d7 e403 | | Load 0x2,0x3 09d8 8236 | 6 | Call 0x1,0x36 09d9 c5fd | | Store 0x2,-0x3 09da c5fc | | Store 0x2,-0x4 09db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09dc e402 | | Load 0x2,0x2 09dd 00eb | | Load_Encached Diana_Cache 09de 18ec | | Execute Package,Field_Execute,Field_Number 0xec 09df a402 | | Store_Unchecked 0x2,0x2 09e0 00c9 | | Action Pop_Auxiliary_Loop 09e1 e402 | | Load 0x2,0x2 09e2 00eb | | Load_Encached Diana_Cache 09e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09e4 700a |p | Jump_Nonzero 0x9ef 09e5 e402 | | Load 0x2,0x2 09e6 00eb | | Load_Encached Diana_Cache 09e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 09e8 0f4e | N | Execute_Immediate Equal,0x4e 09e9 7005 |p | Jump_Nonzero 0x9ef 09ea e00e | | Load 0x0,0xe 09eb e402 | | Load 0x2,0x2 09ec e00f | | Load 0x0,0xf 09ed 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 09ee 6fcc |o | Jump_Zero 0x9bb 09ef 00ce | | Action Pop_Auxiliary 09f0 e5fc | | Load 0x2,-0x4 09f1 00ea | | Load_Encached Null_String_Cache 09f2 e5fe | | Load 0x2,-0x2 09f3 0092 1131 | 1| Action Push_String_Extended,0x1131 ; "unable to obtain object's statement number in " 09f5 4801 |H | Short_Literal 0x1 09f6 e403 | | Load 0x2,0x3 09f7 8215 | | Call 0x1,0x15 09f8 01cc | | Execute Vector,Catenate 09f9 8228 | ( | Call 0x1,0x28 09fa c5fc | | Store 0x2,-0x4 09fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09fc 0000 0000 | | .BLANK 0000[0x4] 0a00 ; -------------------------------------------------------------------------------------- 0a00 ; SUBPROGRAM 0a00 ; -------------------------------------------------------------------------------------- 0a00 0a09 | | .CONST 0x0a09 ; Address of begin 0a01 0004 | | .CONST 0x0004 ; Address of exception handler 0a02 0005 | | .CONST 0x0005 ; Number of locals 0a03 INIT_0a00: 0a03 00da | | Load_Top At_Offset_2 0a04 00eb | | Load_Encached Diana_Cache 0a05 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0a06 00ec | | Load_Encached Diana_Tree_Cache 0a07 00e3 | | Load_Encached Natural_Cache 0a08 00e8 | | Load_Encached Character_Cache 0a09 BODY_0a00: 0a09 00cf | | Action Mark_Auxiliary 0a0a 784c |xL | Jump 0xa57 0a0b e402 | | Load 0x2,0x2 0a0c 8219 | | Call 0x1,0x19 0a0d 6836 |h6 | Jump_Zero 0xa44 0a0e e5fb | | Load 0x2,-0x5 0a0f 00e8 | | Load_Encached Character_Cache 0a10 00e3 | | Load_Encached Natural_Cache 0a11 00ec | | Load_Encached Diana_Tree_Cache 0a12 e5fe | | Load 0x2,-0x2 0a13 e402 | | Load 0x2,0x2 0a14 8222 | " | Call 0x1,0x22 0a15 c403 | | Store 0x2,0x3 0a16 c404 | | Store 0x2,0x4 0a17 005b | [ | Store_Top Discrete,At_Offset_3 0a18 c5fb | | Store 0x2,-0x5 0a19 4802 |H | Short_Literal 0x2 0a1a e5fb | | Load 0x2,-0x5 0a1b e002 | | Load 0x0,0x2 0a1c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a1d 6801 |h | Jump_Zero 0xa1f 0a1e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a1f 00da | | Load_Top At_Offset_2 0a20 0c01 | | Execute_Immediate Greater_Equal,0x1 0a21 680a |h | Jump_Zero 0xa2c 0a22 e5fb | | Load 0x2,-0x5 0a23 e5fc | | Load 0x2,-0x4 0a24 e5fe | | Load 0x2,-0x2 0a25 e405 | | Load 0x2,0x5 0a26 e404 | | Load 0x2,0x4 0a27 e403 | | Load 0x2,0x3 0a28 8236 | 6 | Call 0x1,0x36 0a29 c5fc | | Store 0x2,-0x4 0a2a c5fb | | Store 0x2,-0x5 0a2b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a2c e402 | | Load 0x2,0x2 0a2d e004 | | Load 0x0,0x4 0a2e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0a2f 680c |h | Jump_Zero 0xa3c 0a30 e5fb | | Load 0x2,-0x5 0a31 00ea | | Load_Encached Null_String_Cache 0a32 e5fe | | Load 0x2,-0x2 0a33 0092 1132 | 2| Action Push_String_Extended,0x1132 ; "Unable to obtain object's declaration number in " 0a35 4801 |H | Short_Literal 0x1 0a36 e403 | | Load 0x2,0x3 0a37 8215 | | Call 0x1,0x15 0a38 01cc | | Execute Vector,Catenate 0a39 8228 | ( | Call 0x1,0x28 0a3a c5fb | | Store 0x2,-0x5 0a3b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a3c e5fb | | Load 0x2,-0x5 0a3d e5fc | | Load 0x2,-0x4 0a3e e5fe | | Load 0x2,-0x2 0a3f e402 | | Load 0x2,0x2 0a40 823a | : | Call 0x1,0x3a 0a41 c5fc | | Store 0x2,-0x4 0a42 c5fb | | Store 0x2,-0x5 0a43 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a44 e00e | | Load 0x0,0xe 0a45 e402 | | Load 0x2,0x2 0a46 e00f | | Load 0x0,0xf 0a47 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0a48 6809 |h | Jump_Zero 0xa52 0a49 e5fb | | Load 0x2,-0x5 0a4a e5fc | | Load 0x2,-0x4 0a4b e5fd | | Load 0x2,-0x3 0a4c e5fe | | Load 0x2,-0x2 0a4d e402 | | Load 0x2,0x2 0a4e 8238 | 8 | Call 0x1,0x38 0a4f c5fc | | Store 0x2,-0x4 0a50 c5fb | | Store 0x2,-0x5 0a51 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a52 e402 | | Load 0x2,0x2 0a53 00eb | | Load_Encached Diana_Cache 0a54 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0a55 a402 | | Store_Unchecked 0x2,0x2 0a56 00c9 | | Action Pop_Auxiliary_Loop 0a57 e402 | | Load 0x2,0x2 0a58 00eb | | Load_Encached Diana_Cache 0a59 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a5a 6fb0 |o | Jump_Zero 0xa0b 0a5b 00ce | | Action Pop_Auxiliary 0a5c e5fb | | Load 0x2,-0x5 0a5d 00ea | | Load_Encached Null_String_Cache 0a5e e5fe | | Load 0x2,-0x2 0a5f 0092 1133 | 3| Action Push_String_Extended,0x1133 ; "A location selected at which to " 0a61 e5fd | | Load 0x2,-0x3 0a62 e5fe | | Load 0x2,-0x2 0a63 821d | | Call 0x1,0x1d 0a64 01cc | | Execute Vector,Catenate 0a65 0092 1134 | 4| Action Push_String_Extended,0x1134 ; " must be " 0a67 01cc | | Execute Vector,Catenate 0a68 0092 1135 | 5| Action Push_String_Extended,0x1135 ; "a statement, declaration or subprogram" 0a6a 01cc | | Execute Vector,Catenate 0a6b 8228 | ( | Call 0x1,0x28 0a6c c5fb | | Store 0x2,-0x5 0a6d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a6e 0000 0000 | | .XXX[0x2] 0a70 ; -------------------------------------------------------------------------------------- 0a70 ; SUBPROGRAM 0a70 ; -------------------------------------------------------------------------------------- 0a70 0a73 | s | .CONST 0x0a73 ; Address of begin 0a71 0004 | | .CONST 0x0004 ; Address of exception handler 0a72 0001 | | .CONST 0x0001 ; Number of locals 0a73 BODY_0a70: 0a73 INIT_0a70: 0a73 e002 | | Load 0x0,0x2 0a74 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0a75 c5fb | | Store 0x2,-0x5 0a76 00da | | Load_Top At_Offset_2 0a77 8219 | | Call 0x1,0x19 0a78 6809 |h | Jump_Zero 0xa82 0a79 e5fb | | Load 0x2,-0x5 0a7a e5fc | | Load 0x2,-0x4 0a7b e5fd | | Load 0x2,-0x3 0a7c e5fe | | Load 0x2,-0x2 0a7d e5ff | | Load 0x2,-0x1 0a7e 8239 | 9 | Call 0x1,0x39 0a7f c5fc | | Store 0x2,-0x4 0a80 c5fb | | Store 0x2,-0x5 0a81 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a82 e00e | | Load 0x0,0xe 0a83 00db | | Load_Top At_Offset_3 0a84 e00f | | Load 0x0,0xf 0a85 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0a86 6809 |h | Jump_Zero 0xa90 0a87 e5fb | | Load 0x2,-0x5 0a88 e5fc | | Load 0x2,-0x4 0a89 e5fd | | Load 0x2,-0x3 0a8a e5fe | | Load 0x2,-0x2 0a8b e5ff | | Load 0x2,-0x1 0a8c 8238 | 8 | Call 0x1,0x38 0a8d c5fc | | Store 0x2,-0x4 0a8e c5fb | | Store 0x2,-0x5 0a8f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a90 e5fb | | Load 0x2,-0x5 0a91 e5fc | | Load 0x2,-0x4 0a92 e5fd | | Load 0x2,-0x3 0a93 e5fe | | Load 0x2,-0x2 0a94 e5ff | | Load 0x2,-0x1 0a95 823b | ; | Call 0x1,0x3b 0a96 c5fc | | Store 0x2,-0x4 0a97 c5fb | | Store 0x2,-0x5 0a98 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a99 0000 0000 | | .BLANK 0000[0x7] 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 ; SUBPROGRAM 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 0aab | | .CONST 0x0aab ; Address of begin 0aa1 0b49 | I | .CONST 0x0b49 ; Address of exception handler 0aa2 0005 | | .CONST 0x0005 ; Number of locals 0aa3 INIT_0aa0: 0aa3 00e3 | | Load_Encached Natural_Cache 0aa4 00e8 | | Load_Encached Character_Cache 0aa5 00ec | | Load_Encached Diana_Tree_Cache 0aa6 e002 | | Load 0x0,0x2 0aa7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0aa8 02c7 | | Declare_Variable Any 0aa9 00d8 | | Load_Top At_Offset_0 0aaa 1c00 | | Execute_Immediate Run_Utility,0x0 0aab BODY_0aa0: 0aab e5ff | | Load 0x2,-0x1 0aac 00eb | | Load_Encached Diana_Cache 0aad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0aae 6805 |h | Jump_Zero 0xab4 0aaf e5ff | | Load 0x2,-0x1 0ab0 a5fe | | Store_Unchecked 0x2,-0x2 0ab1 e007 | | Load 0x0,0x7 0ab2 c5fd | | Store 0x2,-0x3 0ab3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ab4 e5ff | | Load 0x2,-0x1 0ab5 00eb | | Load_Encached Diana_Cache 0ab6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0ab7 0f9e | | Execute_Immediate Equal,-0x62 0ab8 6810 |h | Jump_Zero 0xac9 0ab9 e5fd | | Load 0x2,-0x3 0aba 0120 | | Execute Any,Is_Value 0abb 6802 |h | Jump_Zero 0xabe 0abc e008 | | Load 0x0,0x8 0abd 7801 |x | Jump 0xabf 0abe e5fd | | Load 0x2,-0x3 0abf 00ec | | Load_Encached Diana_Tree_Cache 0ac0 e5ff | | Load 0x2,-0x1 0ac1 00eb | | Load_Encached Diana_Cache 0ac2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0ac3 00eb | | Load_Encached Diana_Cache 0ac4 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0ac5 823d | = | Call 0x1,0x3d 0ac6 c5fe | | Store 0x2,-0x2 0ac7 c5fd | | Store 0x2,-0x3 0ac8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ac9 e5ff | | Load 0x2,-0x1 0aca e004 | | Load 0x0,0x4 0acb 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0acc 680e |h | Jump_Zero 0xadb 0acd e5fd | | Load 0x2,-0x3 0ace 0120 | | Execute Any,Is_Value 0acf 6802 |h | Jump_Zero 0xad2 0ad0 e008 | | Load 0x0,0x8 0ad1 7801 |x | Jump 0xad3 0ad2 e5fd | | Load 0x2,-0x3 0ad3 00ec | | Load_Encached Diana_Tree_Cache 0ad4 e5ff | | Load 0x2,-0x1 0ad5 e004 | | Load 0x0,0x4 0ad6 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0ad7 823d | = | Call 0x1,0x3d 0ad8 c5fe | | Store 0x2,-0x2 0ad9 c5fd | | Store 0x2,-0x3 0ada 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0adb e5ff | | Load 0x2,-0x1 0adc e004 | | Load 0x0,0x4 0add 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0ade 680d |h | Jump_Zero 0xaec 0adf e5fd | | Load 0x2,-0x3 0ae0 0120 | | Execute Any,Is_Value 0ae1 6802 |h | Jump_Zero 0xae4 0ae2 e008 | | Load 0x0,0x8 0ae3 7801 |x | Jump 0xae5 0ae4 e5fd | | Load 0x2,-0x3 0ae5 00ec | | Load_Encached Diana_Tree_Cache 0ae6 e5ff | | Load 0x2,-0x1 0ae7 802b | + | Call 0x0,0x2b 0ae8 823d | = | Call 0x1,0x3d 0ae9 c5fe | | Store 0x2,-0x2 0aea c5fd | | Store 0x2,-0x3 0aeb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0aec e00e | | Load 0x0,0xe 0aed e5ff | | Load 0x2,-0x1 0aee e00f | | Load 0x0,0xf 0aef 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0af0 6807 |h | Jump_Zero 0xaf8 0af1 e5ff | | Load 0x2,-0x1 0af2 e004 | | Load 0x0,0x4 0af3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0af4 a5fe | | Store_Unchecked 0x2,-0x2 0af5 e007 | | Load 0x0,0x7 0af6 c5fd | | Store 0x2,-0x3 0af7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0af8 e5ff | | Load 0x2,-0x1 0af9 8219 | | Call 0x1,0x19 0afa 682c |h, | Jump_Zero 0xb27 0afb 00d8 | | Load_Top At_Offset_0 0afc 00e8 | | Load_Encached Character_Cache 0afd 00e3 | | Load_Encached Natural_Cache 0afe 00ec | | Load_Encached Diana_Tree_Cache 0aff 4800 |H | Short_Literal 0x0 0b00 e5ff | | Load 0x2,-0x1 0b01 8222 | " | Call 0x1,0x22 0b02 c404 | | Store 0x2,0x4 0b03 c402 | | Store 0x2,0x2 0b04 c403 | | Store 0x2,0x3 0b05 c405 | | Store 0x2,0x5 0b06 4802 |H | Short_Literal 0x2 0b07 00d9 | | Load_Top At_Offset_1 0b08 e002 | | Load 0x0,0x2 0b09 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b0a 7002 |p | Jump_Nonzero 0xb0d 0b0b 00db | | Load_Top At_Offset_3 0b0c 700e |p | Jump_Nonzero 0xb1b 0b0d e5fd | | Load 0x2,-0x3 0b0e 0120 | | Execute Any,Is_Value 0b0f 6802 |h | Jump_Zero 0xb12 0b10 e008 | | Load 0x0,0x8 0b11 7801 |x | Jump 0xb13 0b12 e5fd | | Load 0x2,-0x3 0b13 00ec | | Load_Encached Diana_Tree_Cache 0b14 e5ff | | Load 0x2,-0x1 0b15 00eb | | Load_Encached Diana_Cache 0b16 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0b17 823d | = | Call 0x1,0x3d 0b18 c5fe | | Store 0x2,-0x2 0b19 c5fd | | Store 0x2,-0x3 0b1a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b1b 00d9 | | Load_Top At_Offset_1 0b1c e004 | | Load 0x0,0x4 0b1d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b1e a5fe | | Store_Unchecked 0x2,-0x2 0b1f 00da | | Load_Top At_Offset_2 0b20 e402 | | Load 0x2,0x2 0b21 00e0 | | Load_Encached Standard_Cache 0b22 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b23 01cb | | Execute Vector,Append 0b24 802c | , | Call 0x0,0x2c 0b25 c5fd | | Store 0x2,-0x3 0b26 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b27 e5ff | | Load 0x2,-0x1 0b28 e004 | | Load 0x0,0x4 0b29 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0b2a 6807 |h | Jump_Zero 0xb32 0b2b e5ff | | Load 0x2,-0x1 0b2c e004 | | Load 0x0,0x4 0b2d 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0b2e a5fe | | Store_Unchecked 0x2,-0x2 0b2f e007 | | Load 0x0,0x7 0b30 c5fd | | Store 0x2,-0x3 0b31 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b32 e5ff | | Load 0x2,-0x1 0b33 e004 | | Load 0x0,0x4 0b34 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0b35 6805 |h | Jump_Zero 0xb3b 0b36 e5ff | | Load 0x2,-0x1 0b37 a5fe | | Store_Unchecked 0x2,-0x2 0b38 e007 | | Load 0x0,0x7 0b39 c5fd | | Store 0x2,-0x3 0b3a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b3b e5fd | | Load 0x2,-0x3 0b3c 0120 | | Execute Any,Is_Value 0b3d 6802 |h | Jump_Zero 0xb40 0b3e e008 | | Load 0x0,0x8 0b3f 7801 |x | Jump 0xb41 0b40 e5fd | | Load 0x2,-0x3 0b41 00ec | | Load_Encached Diana_Tree_Cache 0b42 e5ff | | Load 0x2,-0x1 0b43 00eb | | Load_Encached Diana_Cache 0b44 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0b45 823d | = | Call 0x1,0x3d 0b46 c5fe | | Store 0x2,-0x2 0b47 c5fd | | Store 0x2,-0x3 0b48 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b49 TRAP_0aa0: 0b49 0007 | | Action Break_Optional 0b4a e5ff | | Load 0x2,-0x1 0b4b a5fe | | Store_Unchecked 0x2,-0x2 0b4c e007 | | Load 0x0,0x7 0b4d c5fd | | Store 0x2,-0x3 0b4e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b4f 0000 | | .XXX[0x1] 0b50 ; -------------------------------------------------------------------------------------- 0b50 ; SUBPROGRAM 0b50 ; -------------------------------------------------------------------------------------- 0b50 0b55 | U | .CONST 0x0b55 ; Address of begin 0b51 0004 | | .CONST 0x0004 ; Address of exception handler 0b52 0003 | | .CONST 0x0003 ; Number of locals 0b53 INIT_0b50: 0b53 00e1 | | Load_Encached Boolean_Cache 0b54 00e1 | | Load_Encached Boolean_Cache 0b55 BODY_0b50: 0b55 e5fd | | Load 0x2,-0x3 0b56 6809 |h | Jump_Zero 0xb60 0b57 e5ff | | Load 0x2,-0x1 0b58 8218 | | Call 0x1,0x18 0b59 6806 |h | Jump_Zero 0xb60 0b5a e5fe | | Load 0x2,-0x2 0b5b 802d | - | Call 0x0,0x2d 0b5c 7003 |p | Jump_Nonzero 0xb60 0b5d e5fe | | Load 0x2,-0x2 0b5e 8027 | ' | Call 0x0,0x27 0b5f 7002 |p | Jump_Nonzero 0xb62 0b60 4800 |H | Short_Literal 0x0 0b61 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b62 00e1 | | Load_Encached Boolean_Cache 0b63 00e1 | | Load_Encached Boolean_Cache 0b64 00eb | | Load_Encached Diana_Cache 0b65 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b66 4800 |H | Short_Literal 0x0 0b67 e5ff | | Load 0x2,-0x1 0b68 e00f | | Load 0x0,0xf 0b69 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0b6a e5fd | | Load 0x2,-0x3 0b6b e5fe | | Load 0x2,-0x2 0b6c 8233 | 3 | Call 0x1,0x33 0b6d 005b | [ | Store_Top Discrete,At_Offset_3 0b6e 0059 | Y | Store_Top Discrete,At_Offset_1 0b6f 00d9 | | Load_Top At_Offset_1 0b70 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b71 0000 0000 | | .BLANK 0000[0x7] 0b78 ; -------------------------------------------------------------------------------------- 0b78 ; SUBPROGRAM 0b78 ; -------------------------------------------------------------------------------------- 0b78 0b7b | { | .CONST 0x0b7b ; Address of begin 0b79 0004 | | .CONST 0x0004 ; Address of exception handler 0b7a 0001 | | .CONST 0x0001 ; Number of locals 0b7b BODY_0b78: 0b7b INIT_0b78: 0b7b 00da | | Load_Top At_Offset_2 0b7c 802d | - | Call 0x0,0x2d 0b7d 6802 |h | Jump_Zero 0xb80 0b7e 802e | . | Call 0x0,0x2e 0b7f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b80 00da | | Load_Top At_Offset_2 0b81 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b82 0000 0000 | | .BLANK 0000[0x6] 0b88 ; -------------------------------------------------------------------------------------- 0b88 ; SUBPROGRAM 0b88 ; -------------------------------------------------------------------------------------- 0b88 0b8b | | .CONST 0x0b8b ; Address of begin 0b89 0004 | | .CONST 0x0004 ; Address of exception handler 0b8a 0001 | | .CONST 0x0001 ; Number of locals 0b8b BODY_0b88: 0b8b INIT_0b88: 0b8b 00db | | Load_Top At_Offset_3 0b8c e00a | | Load 0x0,0xa 0b8d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b8e 0c01 | | Execute_Immediate Greater_Equal,0x1 0b8f 680c |h | Jump_Zero 0xb9c 0b90 00da | | Load_Top At_Offset_2 0b91 802f | / | Call 0x0,0x2f 0b92 7009 |p | Jump_Nonzero 0xb9c 0b93 00db | | Load_Top At_Offset_3 0b94 0092 111a | | Action Push_String_Extended,0x111a ; "." 0b96 e5ff | | Load 0x2,-0x1 0b97 8030 | 0 | Call 0x0,0x30 0b98 01cc | | Execute Vector,Catenate 0b99 e00a | | Load 0x0,0xa 0b9a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b9b c5fe | | Store 0x2,-0x2 0b9c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b9d 0000 0000 | | .XXX[0x3] 0b9f 0000 | | 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 ; SUBPROGRAM 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 0bb6 | | .CONST 0x0bb6 ; Address of begin 0ba1 0004 | | .CONST 0x0004 ; Address of exception handler 0ba2 0008 | | .CONST 0x0008 ; Number of locals 0ba3 INIT_0ba0: 0ba3 00ec | | Load_Encached Diana_Tree_Cache 0ba4 e031 | 1 | Load 0x0,0x31 0ba5 02c7 | | Declare_Variable Any 0ba6 00d8 | | Load_Top At_Offset_0 0ba7 1c00 | | Execute_Immediate Run_Utility,0x0 0ba8 00e3 | | Load_Encached Natural_Cache 0ba9 e002 | | Load 0x0,0x2 0baa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bab 02c7 | | Declare_Variable Any 0bac 00d8 | | Load_Top At_Offset_0 0bad 1c00 | | Execute_Immediate Run_Utility,0x0 0bae e008 | | Load 0x0,0x8 0baf 02c7 | | Declare_Variable Any 0bb0 00d8 | | Load_Top At_Offset_0 0bb1 1c00 | | Execute_Immediate Run_Utility,0x0 0bb2 029f 1043 | C| Declare_Subprogram INIT_1040,For_Call 0bb4 029f 104b | K| Declare_Subprogram INIT_1048,For_Call 0bb6 BODY_0ba0: 0bb6 4800 |H | Short_Literal 0x0 0bb7 a5fa | | Store_Unchecked 0x2,-0x6 0bb8 00da | | Load_Top At_Offset_2 0bb9 0120 | | Execute Any,Is_Value 0bba 6802 |h | Jump_Zero 0xbbd 0bbb e008 | | Load 0x0,0x8 0bbc 7801 |x | Jump 0xbbe 0bbd 00da | | Load_Top At_Offset_2 0bbe 00ec | | Load_Encached Diana_Tree_Cache 0bbf e5ff | | Load 0x2,-0x1 0bc0 823d | = | Call 0x1,0x3d 0bc1 c402 | | Store 0x2,0x2 0bc2 c406 | | Store 0x2,0x6 0bc3 00da | | Load_Top At_Offset_2 0bc4 c5f9 | | Store 0x2,-0x7 0bc5 e402 | | Load 0x2,0x2 0bc6 8218 | | Call 0x1,0x18 0bc7 682d |h- | Jump_Zero 0xbf5 0bc8 e5fd | | Load 0x2,-0x3 0bc9 e5fe | | Load 0x2,-0x2 0bca e402 | | Load 0x2,0x2 0bcb 823e | > | Call 0x1,0x3e 0bcc 6807 |h | Jump_Zero 0xbd4 0bcd e5fd | | Load 0x2,-0x3 0bce e5fe | | Load 0x2,-0x2 0bcf 822c | , | Call 0x1,0x2c 0bd0 8407 | | Call 0x2,0x7 0bd1 4801 |H | Short_Literal 0x1 0bd2 a5fa | | Store_Unchecked 0x2,-0x6 0bd3 7826 |x& | Jump 0xbfa 0bd4 e5fe | | Load 0x2,-0x2 0bd5 823f | ? | Call 0x1,0x3f 0bd6 c403 | | Store 0x2,0x3 0bd7 00db | | Load_Top At_Offset_3 0bd8 00e3 | | Load_Encached Natural_Cache 0bd9 00eb | | Load_Encached Diana_Cache 0bda 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0bdb e5fd | | Load 0x2,-0x3 0bdc e403 | | Load 0x2,0x3 0bdd e402 | | Load 0x2,0x2 0bde 8234 | 4 | Call 0x1,0x34 0bdf c404 | | Store 0x2,0x4 0be0 c405 | | Store 0x2,0x5 0be1 4802 |H | Short_Literal 0x2 0be2 e405 | | Load 0x2,0x5 0be3 e002 | | Load 0x0,0x2 0be4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0be5 6806 |h | Jump_Zero 0xbec 0be6 8408 | | Call 0x2,0x8 0be7 e5fb | | Load 0x2,-0x5 0be8 00db | | Load_Top At_Offset_3 0be9 8240 | @ | Call 0x1,0x40 0bea c5fb | | Store 0x2,-0x5 0beb 780e |x | Jump 0xbfa 0bec e404 | | Load 0x2,0x4 0bed e403 | | Load 0x2,0x3 0bee 822c | , | Call 0x1,0x2c 0bef 8407 | | Call 0x2,0x7 0bf0 e5fb | | Load 0x2,-0x5 0bf1 00db | | Load_Top At_Offset_3 0bf2 8240 | @ | Call 0x1,0x40 0bf3 c5fb | | Store 0x2,-0x5 0bf4 7805 |x | Jump 0xbfa 0bf5 8408 | | Call 0x2,0x8 0bf6 e5fb | | Load 0x2,-0x5 0bf7 00db | | Load_Top At_Offset_3 0bf8 8240 | @ | Call 0x1,0x40 0bf9 c5fb | | Store 0x2,-0x5 0bfa e402 | | Load 0x2,0x2 0bfb a5fc | | Store_Unchecked 0x2,-0x4 0bfc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bfd 0000 0000 | | .XXX[0x3] 0bff 0000 | | 0c00 ; -------------------------------------------------------------------------------------- 0c00 ; SUBPROGRAM 0c00 ; -------------------------------------------------------------------------------------- 0c00 0c03 | | .CONST 0x0c03 ; Address of begin 0c01 0004 | | .CONST 0x0004 ; Address of exception handler 0c02 0001 | | .CONST 0x0001 ; Number of locals 0c03 BODY_0c00: 0c03 INIT_0c00: 0c03 00da | | Load_Top At_Offset_2 0c04 4603 |F | Jump_Case 0x4 0c05 780b |x | Jump 0xc11 ; case 0x0 0c06 7812 |x | Jump 0xc19 ; case 0x1 0c07 7819 |x | Jump 0xc21 ; case 0x2 0c08 7800 |x | Jump 0xc09 ; case 0x3 0c09 00db | | Load_Top At_Offset_3 0c0a 6803 |h | Jump_Zero 0xc0e 0c0b 0092 1136 | 6| Action Push_String_Extended,0x1136 ; "used as a control context;" 0c0d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c0e 0092 1137 | 7| Action Push_String_Extended,0x1137 ; "set control context to" 0c10 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c11 00db | | Load_Top At_Offset_3 0c12 6803 |h | Jump_Zero 0xc16 0c13 0092 1138 | 8| Action Push_String_Extended,0x1138 ; "modified" 0c15 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c16 0092 1139 | 9| Action Push_String_Extended,0x1139 ; "modify" 0c18 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c19 00db | | Load_Top At_Offset_3 0c1a 6803 |h | Jump_Zero 0xc1e 0c1b 0092 113a | :| Action Push_String_Extended,0x113a ; "displayed" 0c1d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c1e 0092 113b | ;| Action Push_String_Extended,0x113b ; "display" 0c20 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c21 00db | | Load_Top At_Offset_3 0c22 6803 |h | Jump_Zero 0xc26 0c23 0092 113a | :| Action Push_String_Extended,0x113a ; "displayed" 0c25 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c26 0092 113b | ;| Action Push_String_Extended,0x113b ; "display" 0c28 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c29 0000 0000 | | .BLANK 0000[0x7] 0c30 ; -------------------------------------------------------------------------------------- 0c30 ; SUBPROGRAM 0c30 ; -------------------------------------------------------------------------------------- 0c30 0c33 | 3 | .CONST 0x0c33 ; Address of begin 0c31 0004 | | .CONST 0x0004 ; Address of exception handler 0c32 0001 | | .CONST 0x0001 ; Number of locals 0c33 BODY_0c30: 0c33 INIT_0c30: 0c33 e5fc | | Load 0x2,-0x4 0c34 480a |H | Short_Literal 0xa 0c35 482e |H. | Short_Literal 0x2e 0c36 0092 113c | <| Action Push_String_Extended,0x113c ; "The selected object " 0c38 e5fd | | Load 0x2,-0x3 0c39 01cc | | Execute Vector,Catenate 0c3a 0092 113d | =| Action Push_String_Extended,0x113d ; "cannot be " 0c3c 01cc | | Execute Vector,Catenate 0c3d 4801 |H | Short_Literal 0x1 0c3e e5fe | | Load 0x2,-0x2 0c3f 8242 | B | Call 0x1,0x42 0c40 01cc | | Execute Vector,Catenate 0c41 0092 113e | >| Action Push_String_Extended,0x113e ; ": " 0c43 01cc | | Execute Vector,Catenate 0c44 e5ff | | Load 0x2,-0x1 0c45 01cc | | Execute Vector,Catenate 0c46 01cb | | Execute Vector,Append 0c47 01cb | | Execute Vector,Append 0c48 e002 | | Load 0x0,0x2 0c49 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0c4a c5fc | | Store 0x2,-0x4 0c4b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c4c 0000 0000 | | .BLANK 0000[0x4] 0c50 ; -------------------------------------------------------------------------------------- 0c50 ; SUBPROGRAM 0c50 ; -------------------------------------------------------------------------------------- 0c50 0c53 | S | .CONST 0x0c53 ; Address of begin 0c51 0004 | | .CONST 0x0004 ; Address of exception handler 0c52 0001 | | .CONST 0x0001 ; Number of locals 0c53 BODY_0c50: 0c53 INIT_0c50: 0c53 00cf | | Action Mark_Auxiliary 0c54 4801 |H | Short_Literal 0x1 0c55 e5fe | | Load 0x2,-0x2 0c56 0264 | d | Execute Discrete,Below_Bound 0c57 700d |p | Jump_Nonzero 0xc65 0c58 00d8 | | Load_Top At_Offset_0 0c59 e5ff | | Load 0x2,-0x1 0c5a 4975 |Iu | Short_Literal 0x175 0c5b 00eb | | Load_Encached Diana_Cache 0c5c 0098 | | Execute Package,Field_Read_Dynamic 0c5d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0c5e 8218 | | Call 0x1,0x18 0c5f 6803 |h | Jump_Zero 0xc63 0c60 00d8 | | Load_Top At_Offset_0 0c61 a5fd | | Store_Unchecked 0x2,-0x3 0c62 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c63 00c8 | | Action Pop_Auxiliary_Range 0c64 37f3 |7 | Loop_Decreasing 0xc58 0c65 00ce | | Action Pop_Auxiliary 0c66 4800 |H | Short_Literal 0x0 0c67 a5fd | | Store_Unchecked 0x2,-0x3 0c68 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c69 0000 0000 | | .BLANK 0000[0x7] 0c70 ; -------------------------------------------------------------------------------------- 0c70 ; SUBPROGRAM 0c70 ; -------------------------------------------------------------------------------------- 0c70 0c73 | s | .CONST 0x0c73 ; Address of begin 0c71 0004 | | .CONST 0x0004 ; Address of exception handler 0c72 0001 | | .CONST 0x0001 ; Number of locals 0c73 BODY_0c70: 0c73 INIT_0c70: 0c73 00da | | Load_Top At_Offset_2 0c74 01db | | Execute Vector,Length 0c75 0c01 | | Execute_Immediate Greater_Equal,0x1 0c76 6813 |h | Jump_Zero 0xc8a 0c77 00da | | Load_Top At_Offset_2 0c78 01dd | | Execute Vector,First 0c79 00db | | Load_Top At_Offset_3 0c7a 01d7 | | Execute Vector,Field_Read 0c7b 0f2e | . | Execute_Immediate Equal,0x2e 0c7c 680d |h | Jump_Zero 0xc8a 0c7d 00da | | Load_Top At_Offset_2 0c7e 01dd | | Execute Vector,First 0c7f 0a01 | | Execute_Immediate Plus,0x1 0c80 00d8 | | Load_Top At_Offset_0 0c81 00e2 | | Load_Encached Integer_Cache 0c82 0260 | ` | Execute Discrete,In_Type 0c83 7001 |p | Jump_Nonzero 0xc85 0c84 0801 | | Execute_Immediate Raise,0x1 0c85 00db | | Load_Top At_Offset_3 0c86 01dc | | Execute Vector,Last 0c87 e5ff | | Load 0x2,-0x1 0c88 01cf | | Execute Vector,Slice_Read 0c89 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c8a 00da | | Load_Top At_Offset_2 0c8b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c8c 0000 0000 | | .BLANK 0000[0x4] 0c90 ; -------------------------------------------------------------------------------------- 0c90 ; SUBPROGRAM 0c90 ; -------------------------------------------------------------------------------------- 0c90 0c9b | | .CONST 0x0c9b ; Address of begin 0c91 0004 | | .CONST 0x0004 ; Address of exception handler 0c92 0003 | | .CONST 0x0003 ; Number of locals 0c93 INIT_0c90: 0c93 00da | | Load_Top At_Offset_2 0c94 4975 |Iu | Short_Literal 0x175 0c95 00eb | | Load_Encached Diana_Cache 0c96 0098 | | Execute Package,Field_Read_Dynamic 0c97 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0c98 00e2 | | Load_Encached Integer_Cache 0c99 03f1 | | Declare_Variable Discrete,With_Value 0c9a 00ec | | Load_Encached Diana_Tree_Cache 0c9b BODY_0c90: 0c9b e5fe | | Load 0x2,-0x2 0c9c 00da | | Load_Top At_Offset_2 0c9d 027d | } | Execute Discrete,Greater 0c9e 6802 |h | Jump_Zero 0xca1 0c9f 00ea | | Load_Encached Null_String_Cache 0ca0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ca1 e5fe | | Load 0x2,-0x2 0ca2 e5ff | | Load 0x2,-0x1 0ca3 4975 |Iu | Short_Literal 0x175 0ca4 00eb | | Load_Encached Diana_Cache 0ca5 0098 | | Execute Package,Field_Read_Dynamic 0ca6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0ca7 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0ca8 0092 111a | | Action Push_String_Extended,0x111a ; "." 0caa 4800 |H | Short_Literal 0x0 0cab 00da | | Load_Top At_Offset_2 0cac e00f | | Load 0x0,0xf 0cad 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0cae 01cc | | Execute Vector,Catenate 0caf e5fe | | Load 0x2,-0x2 0cb0 0a01 | | Execute_Immediate Plus,0x1 0cb1 00d8 | | Load_Top At_Offset_0 0cb2 00e3 | | Load_Encached Natural_Cache 0cb3 0260 | ` | Execute Discrete,In_Type 0cb4 7001 |p | Jump_Nonzero 0xcb6 0cb5 0801 | | Execute_Immediate Raise,0x1 0cb6 e5ff | | Load 0x2,-0x1 0cb7 8246 | F | Call 0x1,0x46 0cb8 01cc | | Execute Vector,Catenate 0cb9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0cba 0000 0000 | | .BLANK 0000[0x6] 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 ; SUBPROGRAM 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 0cc3 | | .CONST 0x0cc3 ; Address of begin 0cc1 0004 | | .CONST 0x0004 ; Address of exception handler 0cc2 0001 | | .CONST 0x0001 ; Number of locals 0cc3 BODY_0cc0: 0cc3 INIT_0cc0: 0cc3 e5fc | | Load 0x2,-0x4 0cc4 e5fd | | Load 0x2,-0x3 0cc5 822c | , | Call 0x1,0x2c 0cc6 e5fe | | Load 0x2,-0x2 0cc7 0a01 | | Execute_Immediate Plus,0x1 0cc8 00d8 | | Load_Top At_Offset_0 0cc9 00e3 | | Load_Encached Natural_Cache 0cca 0260 | ` | Execute Discrete,In_Type 0ccb 7001 |p | Jump_Nonzero 0xccd 0ccc 0801 | | Execute_Immediate Raise,0x1 0ccd e5ff | | Load 0x2,-0x1 0cce 8246 | F | Call 0x1,0x46 0ccf 01cc | | Execute Vector,Catenate 0cd0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0cd1 0000 0000 | | .BLANK 0000[0x7] 0cd8 ; -------------------------------------------------------------------------------------- 0cd8 ; SUBPROGRAM 0cd8 ; -------------------------------------------------------------------------------------- 0cd8 0ce2 | | .CONST 0x0ce2 ; Address of begin 0cd9 0004 | | .CONST 0x0004 ; Address of exception handler 0cda 0002 | | .CONST 0x0002 ; Number of locals 0cdb INIT_0cd8: 0cdb 00da | | Load_Top At_Offset_2 0cdc 4975 |Iu | Short_Literal 0x175 0cdd 00eb | | Load_Encached Diana_Cache 0cde 0098 | | Execute Package,Field_Read_Dynamic 0cdf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0ce0 00e3 | | Load_Encached Natural_Cache 0ce1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0ce2 BODY_0cd8: 0ce2 e5fe | | Load 0x2,-0x2 0ce3 00d9 | | Load_Top At_Offset_1 0ce4 027c | | | Execute Discrete,Less 0ce5 6810 |h | Jump_Zero 0xcf6 0ce6 e5fe | | Load 0x2,-0x2 0ce7 0a01 | | Execute_Immediate Plus,0x1 0ce8 00d8 | | Load_Top At_Offset_0 0ce9 00e3 | | Load_Encached Natural_Cache 0cea 0260 | ` | Execute Discrete,In_Type 0ceb 7001 |p | Jump_Nonzero 0xced 0cec 0801 | | Execute_Immediate Raise,0x1 0ced e5ff | | Load 0x2,-0x1 0cee 8246 | F | Call 0x1,0x46 0cef 8245 | E | Call 0x1,0x45 0cf0 e5fd | | Load 0x2,-0x3 0cf1 01cc | | Execute Vector,Catenate 0cf2 0092 1120 | | Action Push_String_Extended,0x1120 ; " " 0cf4 01cc | | Execute Vector,Catenate 0cf5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0cf6 e5fe | | Load 0x2,-0x2 0cf7 00d9 | | Load_Top At_Offset_1 0cf8 027f | | Execute Discrete,Equal 0cf9 680f |h | Jump_Zero 0xd09 0cfa 4801 |H | Short_Literal 0x1 0cfb e5fe | | Load 0x2,-0x2 0cfc e5ff | | Load 0x2,-0x1 0cfd 4975 |Iu | Short_Literal 0x175 0cfe 00eb | | Load_Encached Diana_Cache 0cff 0098 | | Execute Package,Field_Read_Dynamic 0d00 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0d01 e00f | | Load 0x0,0xf 0d02 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0d03 e5fd | | Load 0x2,-0x3 0d04 01cc | | Execute Vector,Catenate 0d05 0092 1120 | | Action Push_String_Extended,0x1120 ; " " 0d07 01cc | | Execute Vector,Catenate 0d08 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0d09 00ea | | Load_Encached Null_String_Cache 0d0a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0d0b 0000 0000 | | .BLANK 0000[0x5] 0d10 ; -------------------------------------------------------------------------------------- 0d10 ; SUBPROGRAM 0d10 ; -------------------------------------------------------------------------------------- 0d10 0d20 | | .CONST 0x0d20 ; Address of begin 0d11 0004 | | .CONST 0x0004 ; Address of exception handler 0d12 0009 | | .CONST 0x0009 ; Number of locals 0d13 INIT_0d10: 0d13 00ef | | Load_Encached Diana_Sequence_Cache 0d14 00e3 | | Load_Encached Natural_Cache 0d15 00e3 | | Load_Encached Natural_Cache 0d16 e031 | 1 | Load 0x0,0x31 0d17 02c7 | | Declare_Variable Any 0d18 00d8 | | Load_Top At_Offset_0 0d19 1c00 | | Execute_Immediate Run_Utility,0x0 0d1a 00e2 | | Load_Encached Integer_Cache 0d1b 00ec | | Load_Encached Diana_Tree_Cache 0d1c 029f 1053 | S| Declare_Subprogram INIT_1050,For_Call 0d1e 029f 1063 | c| Declare_Subprogram INIT_1060,For_Call 0d20 BODY_0d10: 0d20 e5ff | | Load 0x2,-0x1 0d21 a5f9 | | Store_Unchecked 0x2,-0x7 0d22 e5fd | | Load 0x2,-0x3 0d23 e5fe | | Load 0x2,-0x2 0d24 e5ff | | Load 0x2,-0x1 0d25 823e | > | Call 0x1,0x3e 0d26 6805 |h | Jump_Zero 0xd2c 0d27 e5fd | | Load 0x2,-0x3 0d28 e5fe | | Load 0x2,-0x2 0d29 822c | , | Call 0x1,0x2c 0d2a 8409 | | Call 0x2,0x9 0d2b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0d2c e5ff | | Load 0x2,-0x1 0d2d 00eb | | Load_Encached Diana_Cache 0d2e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0d2f 0f26 | & | Execute_Immediate Equal,0x26 0d30 6803 |h | Jump_Zero 0xd34 0d31 e5ff | | Load 0x2,-0x1 0d32 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0d33 7803 |x | Jump 0xd37 0d34 00eb | | Load_Encached Diana_Cache 0d35 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d36 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0d37 e5fe | | Load 0x2,-0x2 0d38 823f | ? | Call 0x1,0x3f 0d39 c405 | | Store 0x2,0x5 0d3a e5ff | | Load 0x2,-0x1 0d3b e00f | | Load 0x0,0xf 0d3c 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0d3d a402 | | Store_Unchecked 0x2,0x2 0d3e e402 | | Load 0x2,0x2 0d3f 4975 |Iu | Short_Literal 0x175 0d40 00eb | | Load_Encached Diana_Cache 0d41 0098 | | Execute Package,Field_Read_Dynamic 0d42 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0d43 c404 | | Store 0x2,0x4 0d44 00e3 | | Load_Encached Natural_Cache 0d45 e404 | | Load 0x2,0x4 0d46 e402 | | Load 0x2,0x2 0d47 8244 | D | Call 0x1,0x44 0d48 c403 | | Store 0x2,0x3 0d49 e403 | | Load 0x2,0x3 0d4a 6833 |h3 | Jump_Zero 0xd7e 0d4b e5f8 | | Load 0x2,-0x8 0d4c 00e3 | | Load_Encached Natural_Cache 0d4d e407 | | Load 0x2,0x7 0d4e e5fd | | Load 0x2,-0x3 0d4f e405 | | Load 0x2,0x5 0d50 e403 | | Load 0x2,0x3 0d51 e402 | | Load 0x2,0x2 0d52 4975 |Iu | Short_Literal 0x175 0d53 00eb | | Load_Encached Diana_Cache 0d54 0098 | | Execute Package,Field_Read_Dynamic 0d55 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0d56 8234 | 4 | Call 0x1,0x34 0d57 c406 | | Store 0x2,0x6 0d58 c5f8 | | Store 0x2,-0x8 0d59 4802 |H | Short_Literal 0x2 0d5a e5f8 | | Load 0x2,-0x8 0d5b e002 | | Load 0x0,0x2 0d5c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d5d 6817 |h | Jump_Zero 0xd75 0d5e e5fa | | Load 0x2,-0x6 0d5f 4801 |H | Short_Literal 0x1 0d60 e5ff | | Load 0x2,-0x1 0d61 8215 | | Call 0x1,0x15 0d62 e5fb | | Load 0x2,-0x5 0d63 01cc | | Execute Vector,Catenate 0d64 e00a | | Load 0x0,0xa 0d65 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d66 c5fa | | Store 0x2,-0x6 0d67 e5fb | | Load 0x2,-0x5 0d68 e403 | | Load 0x2,0x3 0d69 00d8 | | Load_Top At_Offset_0 0d6a 00e4 | | Load_Encached Positive_Cache 0d6b 0260 | ` | Execute Discrete,In_Type 0d6c 7001 |p | Jump_Nonzero 0xd6e 0d6d 0801 | | Execute_Immediate Raise,0x1 0d6e e402 | | Load 0x2,0x2 0d6f 8248 | H | Call 0x1,0x48 0d70 e5f8 | | Load 0x2,-0x8 0d71 e002 | | Load 0x0,0x2 0d72 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0d73 8408 | | Call 0x2,0x8 0d74 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0d75 00db | | Load_Top At_Offset_3 0d76 e405 | | Load 0x2,0x5 0d77 e403 | | Load 0x2,0x3 0d78 e402 | | Load 0x2,0x2 0d79 8247 | G | Call 0x1,0x47 0d7a e5fb | | Load 0x2,-0x5 0d7b 01cc | | Execute Vector,Catenate 0d7c 8409 | | Call 0x2,0x9 0d7d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0d7e 4801 |H | Short_Literal 0x1 0d7f e5ff | | Load 0x2,-0x1 0d80 8215 | | Call 0x1,0x15 0d81 e5fb | | Load 0x2,-0x5 0d82 01cc | | Execute Vector,Catenate 0d83 8409 | | Call 0x2,0x9 0d84 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0d85 0000 0000 | | .XXX[0x3] 0d87 0000 | | 0d88 ; -------------------------------------------------------------------------------------- 0d88 ; SUBPROGRAM 0d88 ; -------------------------------------------------------------------------------------- 0d88 0d8b | | .CONST 0x0d8b ; Address of begin 0d89 0004 | | .CONST 0x0004 ; Address of exception handler 0d8a 0001 | | .CONST 0x0001 ; Number of locals 0d8b BODY_0d88: 0d8b INIT_0d88: 0d8b 00da | | Load_Top At_Offset_2 0d8c 00eb | | Load_Encached Diana_Cache 0d8d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0d8e 00d8 | | Load_Top At_Offset_0 0d8f 0c17 | | Execute_Immediate Greater_Equal,0x17 0d90 701e |p | Jump_Nonzero 0xdaf 0d91 4616 |F | Jump_Case 0x17 0d92 781d |x | Jump 0xdb0 ; case 0x0 0d93 781c |x | Jump 0xdb0 ; case 0x1 0d94 781b |x | Jump 0xdb0 ; case 0x2 0d95 781a |x | Jump 0xdb0 ; case 0x3 0d96 7819 |x | Jump 0xdb0 ; case 0x4 0d97 7818 |x | Jump 0xdb0 ; case 0x5 0d98 7817 |x | Jump 0xdb0 ; case 0x6 0d99 7816 |x | Jump 0xdb0 ; case 0x7 0d9a 7817 |x | Jump 0xdb2 ; case 0x8 0d9b 7814 |x | Jump 0xdb0 ; case 0x9 0d9c 7813 |x | Jump 0xdb0 ; case 0xa 0d9d 7812 |x | Jump 0xdb0 ; case 0xb 0d9e 780a |x | Jump 0xda9 ; case 0xc 0d9f 7810 |x | Jump 0xdb0 ; case 0xd 0da0 780f |x | Jump 0xdb0 ; case 0xe 0da1 780e |x | Jump 0xdb0 ; case 0xf 0da2 780d |x | Jump 0xdb0 ; case 0x10 0da3 780c |x | Jump 0xdb0 ; case 0x11 0da4 780b |x | Jump 0xdb0 ; case 0x12 0da5 780a |x | Jump 0xdb0 ; case 0x13 0da6 7809 |x | Jump 0xdb0 ; case 0x14 0da7 7808 |x | Jump 0xdb0 ; case 0x15 0da8 7800 |x | Jump 0xda9 ; case 0x16 0da9 00da | | Load_Top At_Offset_2 0daa 00eb | | Load_Encached Diana_Cache 0dab 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0dac 00eb | | Load_Encached Diana_Cache 0dad 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0dae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0daf 00d1 | | Pop_Control Pop_Count_1 0db0 e217 | | Load 0x1,0x17 0db1 0257 | W | Execute Discrete,Raise 0db2 00da | | Load_Top At_Offset_2 0db3 00eb | | Load_Encached Diana_Cache 0db4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0db5 00eb | | Load_Encached Diana_Cache 0db6 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0db7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0db8 ; -------------------------------------------------------------------------------------- 0db8 ; SUBPROGRAM 0db8 ; -------------------------------------------------------------------------------------- 0db8 0dbb | | .CONST 0x0dbb ; Address of begin 0db9 0004 | | .CONST 0x0004 ; Address of exception handler 0dba 0001 | | .CONST 0x0001 ; Number of locals 0dbb BODY_0db8: 0dbb INIT_0db8: 0dbb 00da | | Load_Top At_Offset_2 0dbc 4975 |Iu | Short_Literal 0x175 0dbd 00eb | | Load_Encached Diana_Cache 0dbe 0098 | | Execute Package,Field_Read_Dynamic 0dbf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0dc0 6805 |h | Jump_Zero 0xdc6 0dc1 00da | | Load_Top At_Offset_2 0dc2 00eb | | Load_Encached Diana_Cache 0dc3 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0dc4 824a | J | Call 0x1,0x4a 0dc5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dc6 482c |H, | Short_Literal 0x2c 0dc7 00db | | Load_Top At_Offset_3 0dc8 00eb | | Load_Encached Diana_Cache 0dc9 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0dca 824a | J | Call 0x1,0x4a 0dcb 01cb | | Execute Vector,Append 0dcc 00db | | Load_Top At_Offset_3 0dcd 00eb | | Load_Encached Diana_Cache 0dce 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0dcf 824b | K | Call 0x1,0x4b 0dd0 01cc | | Execute Vector,Catenate 0dd1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dd2 0000 0000 | | .BLANK 0000[0x6] 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 ; SUBPROGRAM 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 0ddb | | .CONST 0x0ddb ; Address of begin 0dd9 0004 | | .CONST 0x0004 ; Address of exception handler 0dda 0001 | | .CONST 0x0001 ; Number of locals 0ddb BODY_0dd8: 0ddb INIT_0dd8: 0ddb 00da | | Load_Top At_Offset_2 0ddc 0b13 | | Execute_Immediate Case_Compare,0x13 0ddd 7011 |p | Jump_Nonzero 0xdef 0dde 00d8 | | Load_Top At_Offset_0 0ddf 480e |H | Short_Literal 0xe 0de0 480f |H | Short_Literal 0xf 0de1 0262 | b | Execute Discrete,In_Range 0de2 701a |p | Jump_Nonzero 0xdfd 0de3 0f10 | | Execute_Immediate Equal,0x10 0de4 7026 |p& | Jump_Nonzero 0xe0b 0de5 0092 113f | ?| Action Push_String_Extended,0x113f ; "Can't " 0de7 4800 |H | Short_Literal 0x0 0de8 e5fe | | Load 0x2,-0x2 0de9 8242 | B | Call 0x1,0x42 0dea 01cc | | Execute Vector,Catenate 0deb 0092 1140 | @| Action Push_String_Extended,0x1140 ; " this type of selected or indexed object" 0ded 01cc | | Execute Vector,Catenate 0dee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0def 00d1 | | Pop_Control Pop_Count_1 0df0 0092 113f | ?| Action Push_String_Extended,0x113f ; "Can't " 0df2 4800 |H | Short_Literal 0x0 0df3 e5fe | | Load 0x2,-0x2 0df4 8242 | B | Call 0x1,0x42 0df5 01cc | | Execute Vector,Catenate 0df6 0092 1141 | A| Action Push_String_Extended,0x1141 ; " a selected or indexed object containing a " 0df8 01cc | | Execute Vector,Catenate 0df9 0092 1142 | B| Action Push_String_Extended,0x1142 ; "slice" 0dfb 01cc | | Execute Vector,Catenate 0dfc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0dfd 00d1 | | Pop_Control Pop_Count_1 0dfe 0092 113f | ?| Action Push_String_Extended,0x113f ; "Can't " 0e00 4800 |H | Short_Literal 0x0 0e01 e5fe | | Load 0x2,-0x2 0e02 8242 | B | Call 0x1,0x42 0e03 01cc | | Execute Vector,Catenate 0e04 0092 1143 | C| Action Push_String_Extended,0x1143 ; " a selected or indexed object containing " 0e06 01cc | | Execute Vector,Catenate 0e07 0092 1144 | D| Action Push_String_Extended,0x1144 ; "an attribute" 0e09 01cc | | Execute Vector,Catenate 0e0a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e0b 0092 113f | ?| Action Push_String_Extended,0x113f ; "Can't " 0e0d 4800 |H | Short_Literal 0x0 0e0e e5fe | | Load 0x2,-0x2 0e0f 8242 | B | Call 0x1,0x42 0e10 01cc | | Execute Vector,Catenate 0e11 0092 1141 | A| Action Push_String_Extended,0x1141 ; " a selected or indexed object containing a " 0e13 01cc | | Execute Vector,Catenate 0e14 0092 1145 | E| Action Push_String_Extended,0x1145 ; "function call" 0e16 01cc | | Execute Vector,Catenate 0e17 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e18 ; -------------------------------------------------------------------------------------- 0e18 ; SUBPROGRAM 0e18 ; -------------------------------------------------------------------------------------- 0e18 0e20 | | .CONST 0x0e20 ; Address of begin 0e19 0e33 | 3 | .CONST 0x0e33 ; Address of exception handler 0e1a 0004 | | .CONST 0x0004 ; Number of locals 0e1b INIT_0e18: 0e1b 00ec | | Load_Encached Diana_Tree_Cache 0e1c 029f 1073 | s| Declare_Subprogram INIT_1070,For_Call 0e1e 029f 10cb | | Declare_Subprogram INIT_10c8,For_Call 0e20 BODY_0e18: 0e20 0092 1146 | F| Action Push_String_Extended,0x1146 ; "Check_Selected_Or_Indexed_Selection_Context passed node of type " 0e22 e5ff | | Load 0x2,-0x1 0e23 00eb | | Load_Encached Diana_Cache 0e24 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0e25 00eb | | Load_Encached Diana_Cache 0e26 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e27 011c | | Execute Any,Convert_Unchecked 0e28 1c01 | | Execute_Immediate Run_Utility,0x1 0e29 01cc | | Execute Vector,Catenate 0e2a e5ff | | Load 0x2,-0x1 0e2b e004 | | Load 0x0,0x4 0e2c 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0e2d e032 | 2 | Load 0x0,0x32 0e2e 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e2f e5ff | | Load 0x2,-0x1 0e30 8403 | | Call 0x2,0x3 0e31 8404 | | Call 0x2,0x4 0e32 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e33 TRAP_0e18: 0e33 e217 | | Load 0x1,0x17 0e34 010f | | Execute Exception,Equal 0e35 6813 |h | Jump_Zero 0xe49 0e36 e5fb | | Load 0x2,-0x5 0e37 e5ff | | Load 0x2,-0x1 0e38 8225 | % | Call 0x1,0x25 0e39 c5fb | | Store 0x2,-0x5 0e3a e5f9 | | Load 0x2,-0x7 0e3b 00ea | | Load_Encached Null_String_Cache 0e3c e5fc | | Load 0x2,-0x4 0e3d 0092 1147 | G| Action Push_String_Extended,0x1147 ; "Can only " 0e3f 4800 |H | Short_Literal 0x0 0e40 e5fc | | Load 0x2,-0x4 0e41 8242 | B | Call 0x1,0x42 0e42 01cc | | Execute Vector,Catenate 0e43 0092 1148 | H| Action Push_String_Extended,0x1148 ; " an indexed object if its indexes are constants" 0e45 01cc | | Execute Vector,Catenate 0e46 8243 | C | Call 0x1,0x43 0e47 c5f9 | | Store 0x2,-0x7 0e48 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e49 e5fb | | Load 0x2,-0x5 0e4a e5ff | | Load 0x2,-0x1 0e4b 8225 | % | Call 0x1,0x25 0e4c c5fb | | Store 0x2,-0x5 0e4d e5f9 | | Load 0x2,-0x7 0e4e 00ea | | Load_Encached Null_String_Cache 0e4f e5fc | | Load 0x2,-0x4 0e50 0092 113f | ?| Action Push_String_Extended,0x113f ; "Can't " 0e52 4800 |H | Short_Literal 0x0 0e53 e5fc | | Load 0x2,-0x4 0e54 8242 | B | Call 0x1,0x42 0e55 01cc | | Execute Vector,Catenate 0e56 0092 1149 | I| Action Push_String_Extended,0x1149 ; " this kind of selected or indexed object" 0e58 01cc | | Execute Vector,Catenate 0e59 8243 | C | Call 0x1,0x43 0e5a c5f9 | | Store 0x2,-0x7 0e5b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e5c 0000 0000 | | .BLANK 0000[0x4] 0e60 ; -------------------------------------------------------------------------------------- 0e60 ; SUBPROGRAM 0e60 ; -------------------------------------------------------------------------------------- 0e60 0e64 | d | .CONST 0x0e64 ; Address of begin 0e61 0004 | | .CONST 0x0004 ; Address of exception handler 0e62 0002 | | .CONST 0x0002 ; Number of locals 0e63 INIT_0e60: 0e63 00ec | | Load_Encached Diana_Tree_Cache 0e64 BODY_0e60: 0e64 00db | | Load_Top At_Offset_3 0e65 00eb | | Load_Encached Diana_Cache 0e66 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0e67 e004 | | Load 0x0,0x4 0e68 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0e69 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0e6a 00d8 | | Load_Top At_Offset_0 0e6b 00eb | | Load_Encached Diana_Cache 0e6c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e6d 6803 |h | Jump_Zero 0xe71 0e6e 00eb | | Load_Encached Diana_Cache 0e6f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0e70 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e71 00d8 | | Load_Top At_Offset_0 0e72 00eb | | Load_Encached Diana_Cache 0e73 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0e74 0f4e | N | Execute_Immediate Equal,0x4e 0e75 680a |h | Jump_Zero 0xe80 0e76 00d8 | | Load_Top At_Offset_0 0e77 e004 | | Load 0x0,0x4 0e78 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0e79 7006 |p | Jump_Nonzero 0xe80 0e7a 00d8 | | Load_Top At_Offset_0 0e7b e004 | | Load 0x0,0x4 0e7c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0e7d e004 | | Load 0x0,0x4 0e7e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e7f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e80 00d8 | | Load_Top At_Offset_0 0e81 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e82 0000 0000 | | .BLANK 0000[0x6] 0e88 ; -------------------------------------------------------------------------------------- 0e88 ; SUBPROGRAM 0e88 ; -------------------------------------------------------------------------------------- 0e88 0e8e | | .CONST 0x0e8e ; Address of begin 0e89 0004 | | .CONST 0x0004 ; Address of exception handler 0e8a 0003 | | .CONST 0x0003 ; Number of locals 0e8b INIT_0e88: 0e8b 00ec | | Load_Encached Diana_Tree_Cache 0e8c 029f 10db | | Declare_Subprogram INIT_10d8,For_Call 0e8e BODY_0e88: 0e8e e5ff | | Load 0x2,-0x1 0e8f e004 | | Load 0x0,0x4 0e90 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0e91 680f |h | Jump_Zero 0xea1 0e92 e5f9 | | Load 0x2,-0x7 0e93 00ea | | Load_Encached Null_String_Cache 0e94 e5fc | | Load 0x2,-0x4 0e95 0092 113f | ?| Action Push_String_Extended,0x113f ; "Can't " 0e97 4800 |H | Short_Literal 0x0 0e98 e5fc | | Load 0x2,-0x4 0e99 8242 | B | Call 0x1,0x42 0e9a 01cc | | Execute Vector,Catenate 0e9b 0092 114a | J| Action Push_String_Extended,0x114a ; " the value of an entry declaration" 0e9d 01cc | | Execute Vector,Catenate 0e9e 8243 | C | Call 0x1,0x43 0e9f c5f9 | | Store 0x2,-0x7 0ea0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ea1 e5ff | | Load 0x2,-0x1 0ea2 e004 | | Load 0x0,0x4 0ea3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0ea4 6804 |h | Jump_Zero 0xea9 0ea5 e5ff | | Load 0x2,-0x1 0ea6 802b | + | Call 0x0,0x2b 0ea7 8403 | | Call 0x2,0x3 0ea8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ea9 e5ff | | Load 0x2,-0x1 0eaa e004 | | Load 0x0,0x4 0eab 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0eac 6805 |h | Jump_Zero 0xeb2 0ead e5ff | | Load 0x2,-0x1 0eae e004 | | Load 0x0,0x4 0eaf 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0eb0 8403 | | Call 0x2,0x3 0eb1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0eb2 e5ff | | Load 0x2,-0x1 0eb3 e004 | | Load 0x0,0x4 0eb4 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0eb5 6813 |h | Jump_Zero 0xec9 0eb6 e5ff | | Load 0x2,-0x1 0eb7 e004 | | Load 0x0,0x4 0eb8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0eb9 00eb | | Load_Encached Diana_Cache 0eba 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0ebb 0f4c | L | Execute_Immediate Equal,0x4c 0ebc 6805 |h | Jump_Zero 0xec2 0ebd e5ff | | Load 0x2,-0x1 0ebe e004 | | Load 0x0,0x4 0ebf 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0ec0 8403 | | Call 0x2,0x3 0ec1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ec2 e5ff | | Load 0x2,-0x1 0ec3 e004 | | Load 0x0,0x4 0ec4 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0ec5 e00f | | Load 0x0,0xf 0ec6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0ec7 8403 | | Call 0x2,0x3 0ec8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ec9 e00e | | Load 0x0,0xe 0eca e5ff | | Load 0x2,-0x1 0ecb e00f | | Load 0x0,0xf 0ecc 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0ecd 6805 |h | Jump_Zero 0xed3 0ece e5ff | | Load 0x2,-0x1 0ecf e004 | | Load 0x0,0x4 0ed0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0ed1 8403 | | Call 0x2,0x3 0ed2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ed3 e5ff | | Load 0x2,-0x1 0ed4 e004 | | Load 0x0,0x4 0ed5 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0ed6 6812 |h | Jump_Zero 0xee9 0ed7 e5ff | | Load 0x2,-0x1 0ed8 824e | N | Call 0x1,0x4e 0ed9 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0eda 00d9 | | Load_Top At_Offset_1 0edb 00eb | | Load_Encached Diana_Cache 0edc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0edd 6808 |h | Jump_Zero 0xee6 0ede e5f9 | | Load 0x2,-0x7 0edf 00ea | | Load_Encached Null_String_Cache 0ee0 e5fc | | Load 0x2,-0x4 0ee1 0092 114b | K| Action Push_String_Extended,0x114b ; "Unable to obtain statement object's enclosing subprogram" 0ee3 8243 | C | Call 0x1,0x43 0ee4 c5f9 | | Store 0x2,-0x7 0ee5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ee6 00d9 | | Load_Top At_Offset_1 0ee7 8403 | | Call 0x2,0x3 0ee8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ee9 e5ff | | Load 0x2,-0x1 0eea e004 | | Load 0x0,0x4 0eeb 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0eec 6803 |h | Jump_Zero 0xef0 0eed e5ff | | Load 0x2,-0x1 0eee 8403 | | Call 0x2,0x3 0eef 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0ef0 e5ff | | Load 0x2,-0x1 0ef1 e004 | | Load 0x0,0x4 0ef2 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0ef3 680c |h | Jump_Zero 0xf00 0ef4 e5f9 | | Load 0x2,-0x7 0ef5 00ec | | Load_Encached Diana_Tree_Cache 0ef6 e5fb | | Load 0x2,-0x5 0ef7 e5fc | | Load 0x2,-0x4 0ef8 e5fd | | Load 0x2,-0x3 0ef9 e5fe | | Load 0x2,-0x2 0efa e5ff | | Load 0x2,-0x1 0efb 824d | M | Call 0x1,0x4d 0efc c5fb | | Store 0x2,-0x5 0efd c5fa | | Store 0x2,-0x6 0efe c5f9 | | Store 0x2,-0x7 0eff 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f00 e5f9 | | Load 0x2,-0x7 0f01 00ea | | Load_Encached Null_String_Cache 0f02 e5fc | | Load 0x2,-0x4 0f03 0092 114c | L| Action Push_String_Extended,0x114c ; "Can't select and " 0f05 4800 |H | Short_Literal 0x0 0f06 e5fc | | Load 0x2,-0x4 0f07 8242 | B | Call 0x1,0x42 0f08 01cc | | Execute Vector,Catenate 0f09 0092 114d | M| Action Push_String_Extended,0x114d ; " this kind of object" 0f0b 01cc | | Execute Vector,Catenate 0f0c 8243 | C | Call 0x1,0x43 0f0d c5f9 | | Store 0x2,-0x7 0f0e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f0f 0000 | | .XXX[0x1] 0f10 ; -------------------------------------------------------------------------------------- 0f10 ; SUBPROGRAM 0f10 ; -------------------------------------------------------------------------------------- 0f10 0f13 | | .CONST 0x0f13 ; Address of begin 0f11 0004 | | .CONST 0x0004 ; Address of exception handler 0f12 0001 | | .CONST 0x0001 ; Number of locals 0f13 BODY_0f10: 0f13 INIT_0f10: 0f13 00eb | | Load_Encached Diana_Cache 0f14 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0f15 a5fa | | Store_Unchecked 0x2,-0x6 0f16 00da | | Load_Top At_Offset_2 0f17 00eb | | Load_Encached Diana_Cache 0f18 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0f19 00d8 | | Load_Top At_Offset_0 0f1a 0d40 | @ | Execute_Immediate Less,0x40 0f1b 700b |p | Jump_Nonzero 0xf27 0f1c 00d8 | | Load_Top At_Offset_0 0f1d 0c4e | N | Execute_Immediate Greater_Equal,0x4e 0f1e 7005 |p | Jump_Nonzero 0xf24 0f1f 0b40 | @ | Execute_Immediate Case_Compare,0x40 0f20 7021 |p! | Jump_Nonzero 0xf42 0f21 0f4d | M | Execute_Immediate Equal,0x4d 0f22 7011 |p | Jump_Nonzero 0xf34 0f23 7804 |x | Jump 0xf28 0f24 0f5d | ] | Execute_Immediate Equal,0x5d 0f25 702c |p, | Jump_Nonzero 0xf52 0f26 7801 |x | Jump 0xf28 0f27 00d1 | | Pop_Control Pop_Count_1 0f28 e5f9 | | Load 0x2,-0x7 0f29 00ec | | Load_Encached Diana_Tree_Cache 0f2a e5fb | | Load 0x2,-0x5 0f2b e5fc | | Load 0x2,-0x4 0f2c e5fd | | Load 0x2,-0x3 0f2d e5fe | | Load 0x2,-0x2 0f2e e5ff | | Load 0x2,-0x1 0f2f 824f | O | Call 0x1,0x4f 0f30 c5fb | | Store 0x2,-0x5 0f31 c5fa | | Store 0x2,-0x6 0f32 c5f9 | | Store 0x2,-0x7 0f33 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f34 e5f9 | | Load 0x2,-0x7 0f35 00ec | | Load_Encached Diana_Tree_Cache 0f36 e5fb | | Load 0x2,-0x5 0f37 e5fc | | Load 0x2,-0x4 0f38 e5fd | | Load 0x2,-0x3 0f39 e5fe | | Load 0x2,-0x2 0f3a e5ff | | Load 0x2,-0x1 0f3b 00eb | | Load_Encached Diana_Cache 0f3c 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0f3d 824f | O | Call 0x1,0x4f 0f3e c5fb | | Store 0x2,-0x5 0f3f c5fa | | Store 0x2,-0x6 0f40 c5f9 | | Store 0x2,-0x7 0f41 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f42 00d1 | | Pop_Control Pop_Count_1 0f43 e5f9 | | Load 0x2,-0x7 0f44 00ea | | Load_Encached Null_String_Cache 0f45 e5fc | | Load 0x2,-0x4 0f46 0092 113f | ?| Action Push_String_Extended,0x113f ; "Can't " 0f48 4800 |H | Short_Literal 0x0 0f49 e5fc | | Load 0x2,-0x4 0f4a 8242 | B | Call 0x1,0x42 0f4b 01cc | | Execute Vector,Catenate 0f4c 0092 114e | N| Action Push_String_Extended,0x114e ; " the value of a pragma" 0f4e 01cc | | Execute Vector,Catenate 0f4f 8243 | C | Call 0x1,0x43 0f50 c5f9 | | Store 0x2,-0x7 0f51 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f52 e5f9 | | Load 0x2,-0x7 0f53 00ec | | Load_Encached Diana_Tree_Cache 0f54 e5fb | | Load 0x2,-0x5 0f55 e5fc | | Load 0x2,-0x4 0f56 e5fd | | Load 0x2,-0x3 0f57 e5fe | | Load 0x2,-0x2 0f58 e5ff | | Load 0x2,-0x1 0f59 00eb | | Load_Encached Diana_Cache 0f5a 18ca | | Execute Package,Field_Execute,Field_Number 0xca 0f5b 824f | O | Call 0x1,0x4f 0f5c c5fb | | Store 0x2,-0x5 0f5d c5fa | | Store 0x2,-0x6 0f5e c5f9 | | Store 0x2,-0x7 0f5f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f60 ; -------------------------------------------------------------------------------------- 0f60 ; SUBPROGRAM 0f60 ; -------------------------------------------------------------------------------------- 0f60 0f63 | c | .CONST 0x0f63 ; Address of begin 0f61 0004 | | .CONST 0x0004 ; Address of exception handler 0f62 0001 | | .CONST 0x0001 ; Number of locals 0f63 BODY_0f60: 0f63 INIT_0f60: 0f63 00da | | Load_Top At_Offset_2 0f64 e212 | | Load 0x1,0x12 0f65 011c | | Execute Any,Convert_Unchecked 0f66 1c01 | | Execute_Immediate Run_Utility,0x1 0f67 e01a | | Load 0x0,0x1a 0f68 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0f69 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f6a 0000 0000 | | .BLANK 0000[0x6] 0f70 ; -------------------------------------------------------------------------------------- 0f70 ; SUBPROGRAM 0f70 ; -------------------------------------------------------------------------------------- 0f70 0f73 | s | .CONST 0x0f73 ; Address of begin 0f71 0004 | | .CONST 0x0004 ; Address of exception handler 0f72 0001 | | .CONST 0x0001 ; Number of locals 0f73 BODY_0f70: 0f73 INIT_0f70: 0f73 00da | | Load_Top At_Offset_2 0f74 e00a | | Load 0x0,0xa 0f75 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f76 0c0b | | Execute_Immediate Greater_Equal,0xb 0f77 6811 |h | Jump_Zero 0xf89 0f78 480a |H | Short_Literal 0xa 0f79 4801 |H | Short_Literal 0x1 0f7a e5ff | | Load 0x2,-0x1 0f7b e00a | | Load 0x0,0xa 0f7c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f7d e01a | | Load 0x0,0x1a 0f7e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0f7f 0092 114f | O| Action Push_String_Extended,0x114f ; ".STANDARD." 0f81 01df | | Execute Vector,Equal 0f82 6806 |h | Jump_Zero 0xf89 0f83 00da | | Load_Top At_Offset_2 0f84 480a |H | Short_Literal 0xa 0f85 4801 |H | Short_Literal 0x1 0f86 e00a | | Load 0x0,0xa 0f87 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0f88 003b | ; | Store_Top Access,At_Offset_3 0f89 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f8a 0000 0000 | | .BLANK 0000[0x6] 0f90 ; -------------------------------------------------------------------------------------- 0f90 ; SUBPROGRAM 0f90 ; -------------------------------------------------------------------------------------- 0f90 0f96 | | .CONST 0x0f96 ; Address of begin 0f91 0004 | | .CONST 0x0004 ; Address of exception handler 0f92 0002 | | .CONST 0x0002 ; Number of locals 0f93 INIT_0f90: 0f93 00da | | Load_Top At_Offset_2 0f94 e004 | | Load 0x0,0x4 0f95 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0f96 BODY_0f90: 0f96 e5fc | | Load 0x2,-0x4 0f97 00d9 | | Load_Top At_Offset_1 0f98 8225 | % | Call 0x1,0x25 0f99 c5fc | | Store 0x2,-0x4 0f9a e5fc | | Load 0x2,-0x4 0f9b 8252 | R | Call 0x1,0x52 0f9c c5fc | | Store 0x2,-0x4 0f9d 00d8 | | Load_Top At_Offset_0 0f9e 00eb | | Load_Encached Diana_Cache 0f9f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0fa0 0f20 | | Execute_Immediate Equal,0x20 0fa1 6806 |h | Jump_Zero 0xfa8 0fa2 e002 | | Load 0x0,0x2 0fa3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0fa4 c5fb | | Store 0x2,-0x5 0fa5 00d8 | | Load_Top At_Offset_0 0fa6 a5fd | | Store_Unchecked 0x2,-0x3 0fa7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fa8 e5fb | | Load 0x2,-0x5 0fa9 480a |H | Short_Literal 0xa 0faa 0092 1121 | !| Action Push_String_Extended,0x1121 ; "Cannot " 0fac e5fe | | Load 0x2,-0x2 0fad 8251 | Q | Call 0x1,0x51 0fae 01cc | | Execute Vector,Catenate 0faf 0092 1150 | P| Action Push_String_Extended,0x1150 ; " the specified object" 0fb1 01cc | | Execute Vector,Catenate 0fb2 e5fc | | Load 0x2,-0x4 0fb3 e00a | | Load 0x0,0xa 0fb4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0fb5 8227 | ' | Call 0x1,0x27 0fb6 01cc | | Execute Vector,Catenate 0fb7 0092 1151 | Q| Action Push_String_Extended,0x1151 ; "; it does not name an exception" 0fb9 01cc | | Execute Vector,Catenate 0fba 01cb | | Execute Vector,Append 0fbb e002 | | Load 0x0,0x2 0fbc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0fbd c5fb | | Store 0x2,-0x5 0fbe 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fbf 0000 | | .XXX[0x1] 0fc0 ; -------------------------------------------------------------------------------------- 0fc0 ; SUBPROGRAM 0fc0 ; -------------------------------------------------------------------------------------- 0fc0 0fc3 | | .CONST 0x0fc3 ; Address of begin 0fc1 0004 | | .CONST 0x0004 ; Address of exception handler 0fc2 0001 | | .CONST 0x0001 ; Number of locals 0fc3 BODY_0fc0: 0fc3 INIT_0fc0: 0fc3 00da | | Load_Top At_Offset_2 0fc4 4904 |I | Short_Literal 0x104 0fc5 00eb | | Load_Encached Diana_Cache 0fc6 0096 | | Execute Package,Entry 0fc7 00eb | | Load_Encached Diana_Cache 0fc8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fc9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fca 0000 0000 | | .BLANK 0000[0x6] 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 ; SUBPROGRAM 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 0fd8 | | .CONST 0x0fd8 ; Address of begin 0fd1 0004 | | .CONST 0x0004 ; Address of exception handler 0fd2 0004 | | .CONST 0x0004 ; Number of locals 0fd3 INIT_0fd0: 0fd3 00da | | Load_Top At_Offset_2 0fd4 e004 | | Load 0x0,0x4 0fd5 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0fd6 00ec | | Load_Encached Diana_Tree_Cache 0fd7 039d | | Declare_Variable Heap_Access,Duplicate 0fd8 BODY_0fd0: 0fd8 00da | | Load_Top At_Offset_2 0fd9 00eb | | Load_Encached Diana_Cache 0fda 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fdb 6802 |h | Jump_Zero 0xfde 0fdc e5ff | | Load 0x2,-0x1 0fdd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fde 00da | | Load_Top At_Offset_2 0fdf 00eb | | Load_Encached Diana_Cache 0fe0 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0fe1 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0fe2 00d9 | | Load_Top At_Offset_1 0fe3 00eb | | Load_Encached Diana_Cache 0fe4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fe5 6811 |h | Jump_Zero 0xff7 0fe6 00da | | Load_Top At_Offset_2 0fe7 e033 | 3 | Load 0x0,0x33 0fe8 180e | | Execute Package,Field_Execute,Field_Number 0xe 0fe9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0fea 0092 1152 | R| Action Push_String_Extended,0x1152 ; "Sm_Back_Link returned unexpected kind of node" 0fec 00d9 | | Load_Top At_Offset_1 0fed 00eb | | Load_Encached Diana_Cache 0fee 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0fef e5ff | | Load 0x2,-0x1 0ff0 00eb | | Load_Encached Diana_Cache 0ff1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0ff2 027f | | Execute Discrete,Equal 0ff3 e032 | 2 | Load 0x0,0x32 0ff4 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ff5 00d8 | | Load_Top At_Offset_0 0ff6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ff7 00d9 | | Load_Top At_Offset_1 0ff8 e004 | | Load 0x0,0x4 0ff9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0ffa 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0ffb 00d8 | | Load_Top At_Offset_0 0ffc 8254 | T | Call 0x1,0x54 0ffd 6802 |h | Jump_Zero 0x1000 0ffe e5ff | | Load 0x2,-0x1 0fff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1000 00d8 | | Load_Top At_Offset_0 1001 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1002 0000 0000 | | .BLANK 0000[0x6] 1008 ; -------------------------------------------------------------------------------------- 1008 ; SUBPROGRAM 1008 ; -------------------------------------------------------------------------------------- 1008 100b | | .CONST 0x100b ; Address of begin 1009 0004 | | .CONST 0x0004 ; Address of exception handler 100a 0001 | | .CONST 0x0001 ; Number of locals 100b BODY_1008: 100b INIT_1008: 100b e40a | | Load 0x2,0xa 100c 6803 |h | Jump_Zero 0x1010 100d 0092 1153 | S| Action Push_String_Extended,0x1153 ; "<Selection>" 100f 00ca | | Action Exit_Nullary_Function 1010 e5ff | | Load 0x2,-0x1 1011 0335 | 5 | Declare_Variable Array,Duplicate 1012 00cd | | Action Spare6_Action 1013 00ca | | Action Exit_Nullary_Function 1014 0000 0000 | | .BLANK 0000[0x4] 1018 ; -------------------------------------------------------------------------------------- 1018 ; SUBPROGRAM 1018 ; -------------------------------------------------------------------------------------- 1018 101b | | .CONST 0x101b ; Address of begin 1019 0004 | | .CONST 0x0004 ; Address of exception handler 101a 0001 | | .CONST 0x0001 ; Number of locals 101b BODY_1018: 101b INIT_1018: 101b 00e1 | | Load_Encached Boolean_Cache 101c 00e1 | | Load_Encached Boolean_Cache 101d e5fc | | Load 0x2,-0x4 101e e406 | | Load 0x2,0x6 101f e402 | | Load 0x2,0x2 1020 e7ff | | Load 0x3,-0x1 1021 e5fe | | Load 0x2,-0x2 1022 8233 | 3 | Call 0x1,0x33 1023 c407 | | Store 0x2,0x7 1024 c408 | | Store 0x2,0x8 1025 e407 | | Load 0x2,0x7 1026 6805 |h | Jump_Zero 0x102c 1027 e002 | | Load 0x0,0x2 1028 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1029 c5fa | | Store 0x2,-0x6 102a 00da | | Load_Top At_Offset_2 102b c5fb | | Store 0x2,-0x5 102c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 102d 0000 0000 | | .XXX[0x3] 102f 0000 | | 1030 ; -------------------------------------------------------------------------------------- 1030 ; SUBPROGRAM 1030 ; -------------------------------------------------------------------------------------- 1030 1033 | 3 | .CONST 0x1033 ; Address of begin 1031 0004 | | .CONST 0x0004 ; Address of exception handler 1032 0001 | | .CONST 0x0001 ; Number of locals 1033 BODY_1030: 1033 INIT_1030: 1033 00da | | Load_Top At_Offset_2 1034 6804 |h | Jump_Zero 0x1039 1035 e002 | | Load 0x0,0x2 1036 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1037 c5fa | | Store 0x2,-0x6 1038 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1039 e5fa | | Load 0x2,-0x6 103a 00ea | | Load_Encached Null_String_Cache 103b e5fc | | Load 0x2,-0x4 103c e7fe | | Load 0x3,-0x2 103d 8228 | ( | Call 0x1,0x28 103e c5fa | | Store 0x2,-0x6 103f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1040 ; -------------------------------------------------------------------------------------- 1040 ; SUBPROGRAM 1040 ; -------------------------------------------------------------------------------------- 1040 1043 | C | .CONST 0x1043 ; Address of begin 1041 0004 | | .CONST 0x0004 ; Address of exception handler 1042 0001 | | .CONST 0x0001 ; Number of locals 1043 BODY_1040: 1043 INIT_1040: 1043 e5fb | | Load 0x2,-0x5 1044 00db | | Load_Top At_Offset_3 1045 8224 | $ | Call 0x1,0x24 1046 c5fb | | Store 0x2,-0x5 1047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1048 ; -------------------------------------------------------------------------------------- 1048 ; SUBPROGRAM 1048 ; -------------------------------------------------------------------------------------- 1048 104b | K | .CONST 0x104b ; Address of begin 1049 0004 | | .CONST 0x0004 ; Address of exception handler 104a 0001 | | .CONST 0x0001 ; Number of locals 104b BODY_1048: 104b INIT_1048: 104b e5fb | | Load 0x2,-0x5 104c e402 | | Load 0x2,0x2 104d 8225 | % | Call 0x1,0x25 104e c5fb | | Store 0x2,-0x5 104f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1050 ; -------------------------------------------------------------------------------------- 1050 ; SUBPROGRAM 1050 ; -------------------------------------------------------------------------------------- 1050 1053 | S | .CONST 0x1053 ; Address of begin 1051 0004 | | .CONST 0x0004 ; Address of exception handler 1052 0001 | | .CONST 0x0001 ; Number of locals 1053 BODY_1050: 1053 INIT_1050: 1053 e5f8 | | Load 0x2,-0x8 1054 e7fe | | Load 0x3,-0x2 1055 e5fc | | Load 0x2,-0x4 1056 e7ff | | Load 0x3,-0x1 1057 8243 | C | Call 0x1,0x43 1058 c5f8 | | Store 0x2,-0x8 1059 4503 |E | Exit_Suprogram New_Top_Offset 0x3 105a 0000 0000 | | .BLANK 0000[0x6] 1060 ; -------------------------------------------------------------------------------------- 1060 ; SUBPROGRAM 1060 ; -------------------------------------------------------------------------------------- 1060 1063 | c | .CONST 0x1063 ; Address of begin 1061 0004 | | .CONST 0x0004 ; Address of exception handler 1062 0001 | | .CONST 0x0001 ; Number of locals 1063 BODY_1060: 1063 INIT_1060: 1063 e5fa | | Load 0x2,-0x6 1064 00db | | Load_Top At_Offset_3 1065 e00a | | Load 0x0,0xa 1066 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1067 c5fa | | Store 0x2,-0x6 1068 e002 | | Load 0x0,0x2 1069 1819 | | Execute Package,Field_Execute,Field_Number 0x19 106a c5f8 | | Store 0x2,-0x8 106b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 106c 0000 0000 | | .BLANK 0000[0x4] 1070 ; -------------------------------------------------------------------------------------- 1070 ; SUBPROGRAM 1070 ; -------------------------------------------------------------------------------------- 1070 1074 | t | .CONST 0x1074 ; Address of begin 1071 0004 | | .CONST 0x0004 ; Address of exception handler 1072 0002 | | .CONST 0x0002 ; Number of locals 1073 INIT_1070: 1073 00ee | | Load_Encached Diana_Seq_Type_Cache 1074 BODY_1070: 1074 00db | | Load_Top At_Offset_3 1075 e004 | | Load 0x0,0x4 1076 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 1077 7004 |p | Jump_Nonzero 0x107c 1078 00db | | Load_Top At_Offset_3 1079 e004 | | Load 0x0,0x4 107a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 107b 6805 |h | Jump_Zero 0x1081 107c 00db | | Load_Top At_Offset_3 107d 802b | + | Call 0x0,0x2b 107e a402 | | Store_Unchecked 0x2,0x2 107f 00ea | | Load_Encached Null_String_Cache 1080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1081 00db | | Load_Top At_Offset_3 1082 00eb | | Load_Encached Diana_Cache 1083 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1084 0b0d | | Execute_Immediate Case_Compare,0xd 1085 7010 |p | Jump_Nonzero 0x1096 1086 0b12 | | Execute_Immediate Case_Compare,0x12 1087 7019 |p | Jump_Nonzero 0x10a1 1088 0f11 | | Execute_Immediate Equal,0x11 1089 7026 |p& | Jump_Nonzero 0x10b0 108a e5f9 | | Load 0x2,-0x7 108b 00ea | | Load_Encached Null_String_Cache 108c e5fc | | Load 0x2,-0x4 108d 00d8 | | Load_Top At_Offset_0 108e e7ff | | Load 0x3,-0x1 108f 00eb | | Load_Encached Diana_Cache 1090 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1091 824c | L | Call 0x1,0x4c 1092 8243 | C | Call 0x1,0x43 1093 c5f9 | | Store 0x2,-0x7 1094 00ea | | Load_Encached Null_String_Cache 1095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1096 00d1 | | Pop_Control Pop_Count_1 1097 482e |H. | Short_Literal 0x2e 1098 e7ff | | Load 0x3,-0x1 1099 00eb | | Load_Encached Diana_Cache 109a 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 109b 8403 | | Call 0x2,0x3 109c 01cb | | Execute Vector,Append 109d 0092 1154 | T| Action Push_String_Extended,0x1154 ; "all" 109f 01cc | | Execute Vector,Catenate 10a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10a1 00d1 | | Pop_Control Pop_Count_1 10a2 482e |H. | Short_Literal 0x2e 10a3 e7ff | | Load 0x3,-0x1 10a4 00eb | | Load_Encached Diana_Cache 10a5 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 10a6 8403 | | Call 0x2,0x3 10a7 01cb | | Execute Vector,Append 10a8 4800 |H | Short_Literal 0x0 10a9 e7ff | | Load 0x3,-0x1 10aa 00eb | | Load_Encached Diana_Cache 10ab 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 10ac e00f | | Load 0x0,0xf 10ad 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 10ae 01cc | | Execute Vector,Catenate 10af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10b0 00db | | Load_Top At_Offset_3 10b1 00eb | | Load_Encached Diana_Cache 10b2 18c9 | | Execute Package,Field_Execute,Field_Number 0xc9 10b3 00eb | | Load_Encached Diana_Cache 10b4 1888 | | Execute Package,Field_Execute,Field_Number 0x88 10b5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 10b6 4829 |H) | Short_Literal 0x29 10b7 4828 |H( | Short_Literal 0x28 10b8 e7ff | | Load 0x3,-0x1 10b9 00eb | | Load_Encached Diana_Cache 10ba 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 10bb 8403 | | Call 0x2,0x3 10bc 01cb | | Execute Vector,Append 10bd 00da | | Load_Top At_Offset_2 10be 824b | K | Call 0x1,0x4b 10bf 01cc | | Execute Vector,Catenate 10c0 01cb | | Execute Vector,Append 10c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10c2 0000 0000 | | .BLANK 0000[0x6] 10c8 ; -------------------------------------------------------------------------------------- 10c8 ; SUBPROGRAM 10c8 ; -------------------------------------------------------------------------------------- 10c8 10cb | | .CONST 0x10cb ; Address of begin 10c9 0004 | | .CONST 0x0004 ; Address of exception handler 10ca 0001 | | .CONST 0x0001 ; Number of locals 10cb BODY_10c8: 10cb INIT_10c8: 10cb e5f9 | | Load 0x2,-0x7 10cc 00ec | | Load_Encached Diana_Tree_Cache 10cd e5fb | | Load 0x2,-0x5 10ce e7ff | | Load 0x3,-0x1 10cf e5fc | | Load 0x2,-0x4 10d0 e5fd | | Load 0x2,-0x3 10d1 e5fe | | Load 0x2,-0x2 10d2 e402 | | Load 0x2,0x2 10d3 8249 | I | Call 0x1,0x49 10d4 c5fb | | Store 0x2,-0x5 10d5 c5fa | | Store 0x2,-0x6 10d6 c5f9 | | Store 0x2,-0x7 10d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 10d8 ; -------------------------------------------------------------------------------------- 10d8 ; SUBPROGRAM 10d8 ; -------------------------------------------------------------------------------------- 10d8 10db | | .CONST 0x10db ; Address of begin 10d9 0004 | | .CONST 0x0004 ; Address of exception handler 10da 0001 | | .CONST 0x0001 ; Number of locals 10db BODY_10d8: 10db INIT_10d8: 10db 00da | | Load_Top At_Offset_2 10dc 00eb | | Load_Encached Diana_Cache 10dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 10de 680f |h | Jump_Zero 0x10ee 10df e5f9 | | Load 0x2,-0x7 10e0 00ea | | Load_Encached Null_String_Cache 10e1 e5fc | | Load 0x2,-0x4 10e2 0092 114c | L| Action Push_String_Extended,0x114c ; "Can't select and " 10e4 4800 |H | Short_Literal 0x0 10e5 e5fc | | Load 0x2,-0x4 10e6 8242 | B | Call 0x1,0x42 10e7 01cc | | Execute Vector,Catenate 10e8 0092 114d | M| Action Push_String_Extended,0x114d ; " this kind of object" 10ea 01cc | | Execute Vector,Catenate 10eb 8243 | C | Call 0x1,0x43 10ec c5f9 | | Store 0x2,-0x7 10ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2 10ee e5f9 | | Load 0x2,-0x7 10ef 00ec | | Load_Encached Diana_Tree_Cache 10f0 e5fb | | Load 0x2,-0x5 10f1 00ea | | Load_Encached Null_String_Cache 10f2 e5fc | | Load 0x2,-0x4 10f3 e5fd | | Load 0x2,-0x3 10f4 e5fe | | Load 0x2,-0x2 10f5 e7ff | | Load 0x3,-0x1 10f6 8249 | I | Call 0x1,0x49 10f7 c5fb | | Store 0x2,-0x5 10f8 c5fa | | Store 0x2,-0x6 10f9 c5f9 | | Store 0x2,-0x7 10fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 10fb ; -------------------------------------------------------------------------------------- 10fb ; STRING TABLE 10fb ; -------------------------------------------------------------------------------------- 10fb 00b6 | | .STRTAB 0x00b6->0x1156 ; "BREAK" 10fc 00b9 | | .STRTAB 0x00b9->0x1158 ; "TAKE_HISTORY" 10fd 00c3 | | .STRTAB 0x00c3->0x115e ; "TRACE" 10fe 00c6 | | .STRTAB 0x00c6->0x1161 ; "LOCATION_TO_ADDRESS" 10ff 00d7 | | .STRTAB 0x00d7->0x116a ; "CATCH" 1100 00da | | .STRTAB 0x00da->0x116d ; "PROPAGATE" 1101 00e1 | | .STRTAB 0x00e1->0x1171 ; "FORGET" 1102 00e5 | | .STRTAB 0x00e5->0x1174 ; "MODIFY_OPERATION" 1103 00f3 | | .STRTAB 0x00f3->0x117c ; "PUT_OPERATION" 1104 00fe | | .STRTAB 0x00fe->0x1183 ; "OBJECT_LOCATION" 1105 010b | | .STRTAB 0x010b->0x118a ; "CONTROL_CONTEXT_OPERATION" 1106 0122 | " | .STRTAB 0x0122->0x1197 ; "CATCH" 1107 0125 | % | .STRTAB 0x0125->0x1199 ; "PROPAGATE" 1108 012c | , | .STRTAB 0x012c->0x119e ; "FORGET" 1109 0130 | 0 | .STRTAB 0x0130->0x11a1 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a" 110a 0187 | | .STRTAB 0x0187->0x11cd ; "Exception raised resolving name: " 110b 01a6 | | .STRTAB 0x01a6->0x11de ; "Set control context to" 110c 01ba | | .STRTAB 0x01ba->0x11e9 ; "Modify" 110d 01be | | .STRTAB 0x01be->0x11ec ; "Put" 110e 01bf | | .STRTAB 0x01bf->0x11ed ; "Object_Location" 110f 01cc | | .STRTAB 0x01cc->0x11f5 ; "Set your control context to a single task before specifying a frame reference" 1110 0217 | | .STRTAB 0x0217->0x121b ; "Task not specified" 1111 0227 | ' | .STRTAB 0x0227->0x1224 ; "enable" 1112 022b | + | .STRTAB 0x022b->0x1227 ; "disable" 1113 0230 | 0 | .STRTAB 0x0230->0x122b ; "forget exceptions" 1114 023f | ? | .STRTAB 0x023f->0x1233 ; "break" 1115 0242 | B | .STRTAB 0x0242->0x1236 ; "catch exceptions" 1116 0250 | P | .STRTAB 0x0250->0x123e ; "propagate exceptions" 1117 0262 | b | .STRTAB 0x0262->0x1248 ; " history-taking" 1118 026f | o | .STRTAB 0x026f->0x124f ; " tracing" 1119 0275 | u | .STRTAB 0x0275->0x1253 ; "display the address of the code" 111a 0292 | | .STRTAB 0x0292->0x1263 ; "." 111b 0291 | | .STRTAB 0x0291->0x1263 ; "unable to obtain object's enclosing block" 111c 02b8 | | .STRTAB 0x02b8->0x1278 ; "unable to obtain object's enclosing subprogram" 111d 02e4 | | .STRTAB 0x02e4->0x128f ; "The specified statement is not numbered" 111e 0309 | | .STRTAB 0x0309->0x12a2 ; "the object is in a declaration which is not numbered" 111f 033b | ; | .STRTAB 0x033b->0x12bc ; "'s location" 1120 0344 | D | .STRTAB 0x0344->0x12c2 ; " " 1121 0343 | C | .STRTAB 0x0343->0x12c2 ; "Cannot " 1122 0348 | H | .STRTAB 0x0348->0x12c6 ; " at the selected object" 1123 035d | ] | .STRTAB 0x035d->0x12d1 ; "the loop with parameter " 1124 0373 | s | .STRTAB 0x0373->0x12dd ; " in " 1125 0375 | u | .STRTAB 0x0375->0x12df ; "Nonexistent task" 1126 0383 | | .STRTAB 0x0383->0x12e7 ; "There is no activation of " 1127 039b | | .STRTAB 0x039b->0x12f4 ; " in stack frames" 1128 03a9 | | .STRTAB 0x03a9->0x12fc ; " through" 1129 03af | | .STRTAB 0x03af->0x1300 ; " of task " 112a 03b6 | | .STRTAB 0x03b6->0x1305 ; "'N(" 112b 03b7 | | .STRTAB 0x03b7->0x1306 ; ")" 112c 03b6 | | .STRTAB 0x03b6->0x1307 ; "The object " 112d 03bf | | .STRTAB 0x03bf->0x130c ; " is not part of the program being debugged" 112e 03e7 | | .STRTAB 0x03e7->0x1321 ; "Warning: The object " 112f 03f9 | | .STRTAB 0x03f9->0x132b ; " for an entry declaration" 1130 0410 | | .STRTAB 0x0410->0x1338 ; "unable to obtain object's statement or declaration number" 1131 0447 | G | .STRTAB 0x0447->0x1354 ; "unable to obtain object's statement number in " 1132 0473 | s | .STRTAB 0x0473->0x136b ; "Unable to obtain object's declaration number in " 1133 04a1 | | .STRTAB 0x04a1->0x1383 ; "A location selected at which to " 1134 04bf | | .STRTAB 0x04bf->0x1393 ; " must be " 1135 04c6 | | .STRTAB 0x04c6->0x1398 ; "a statement, declaration or subprogram" 1136 04ea | | .STRTAB 0x04ea->0x13ab ; "used as a control context;" 1137 0502 | | .STRTAB 0x0502->0x13b8 ; "set control context to" 1138 0516 | | .STRTAB 0x0516->0x13c3 ; "modified" 1139 051c | | .STRTAB 0x051c->0x13c7 ; "modify" 113a 0520 | | .STRTAB 0x0520->0x13ca ; "displayed" 113b 0527 | ' | .STRTAB 0x0527->0x13ce ; "display" 113c 052c | , | .STRTAB 0x052c->0x13d2 ; "The selected object " 113d 053e | > | .STRTAB 0x053e->0x13dc ; "cannot be " 113e 0546 | F | .STRTAB 0x0546->0x13e1 ; ": " 113f 0547 | G | .STRTAB 0x0547->0x13e2 ; "Can't " 1140 054b | K | .STRTAB 0x054b->0x13e5 ; " this type of selected or indexed object" 1141 0571 | q | .STRTAB 0x0571->0x13f9 ; " a selected or indexed object containing a " 1142 059a | | .STRTAB 0x059a->0x140f ; "slice" 1143 059d | | .STRTAB 0x059d->0x1411 ; " a selected or indexed object containing " 1144 05c4 | | .STRTAB 0x05c4->0x1426 ; "an attribute" 1145 05ce | | .STRTAB 0x05ce->0x142c ; "function call" 1146 05d9 | | .STRTAB 0x05d9->0x1432 ; "Check_Selected_Or_Indexed_Selection_Context passed node of type " 1147 0617 | | .STRTAB 0x0617->0x1452 ; "Can only " 1148 061e | | .STRTAB 0x061e->0x1457 ; " an indexed object if its indexes are constants" 1149 064c | L | .STRTAB 0x064c->0x146f ; " this kind of selected or indexed object" 114a 0672 | r | .STRTAB 0x0672->0x1483 ; " the value of an entry declaration" 114b 0692 | | .STRTAB 0x0692->0x1494 ; "Unable to obtain statement object's enclosing subprogram" 114c 06c8 | | .STRTAB 0x06c8->0x14b0 ; "Can't select and " 114d 06d7 | | .STRTAB 0x06d7->0x14b8 ; " this kind of object" 114e 06e9 | | .STRTAB 0x06e9->0x14c2 ; " the value of a pragma" 114f 06fd | | .STRTAB 0x06fd->0x14cd ; ".STANDARD." 1150 0705 | | .STRTAB 0x0705->0x14d2 ; " the specified object" 1151 0718 | | .STRTAB 0x0718->0x14dd ; "; it does not name an exception" 1152 0735 | 5 | .STRTAB 0x0735->0x14ec ; "Sm_Back_Link returned unexpected kind of node" 1153 0760 | ` | .STRTAB 0x0760->0x1503 ; "<Selection>" 1154 0769 | i | .STRTAB 0x0769->0x1508 ; "all" 1155 076a | j | .STREND 0x076a->0x150a 1156 4252 4541 |BREA| .STRTAB_STRINGS 150a 0000 0000 | | .BLANK 0000[0x6] 1510 ; -------------------------------------------------------------------------------------- 1510 ; Debug Table 1510 ; -------------------------------------------------------------------------------------- 1510 0004 000d | | .DEBUG4 0x0004,0x000d,0x6104,0x0000,0x0001,0x0000 1516 0000 0000 | | .BLANK 0000[0xea]