|
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_06e8fd
└─⟦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 1498 | | .CONST 0x1498 ; 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 800c | | .CONST 0x800c ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b8 | | .CONST 0x00b8 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0054 | T | .CONST 0x0054 ; 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 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0014 4800 |H | Short_Literal 0x0
0015 4803 |H | Short_Literal 0x3
0016 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0018 03fe | | Declare_Type Discrete,Defined,Visible
0019 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
001b 4800 |H | Short_Literal 0x0
001c 4802 |H | Short_Literal 0x2
001d 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
001f 03fe | | Declare_Type Discrete,Defined,Visible
0020 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0022 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0024 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0026 029a 02db | | Declare_Subprogram INIT_02d8,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 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
0030 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
0032 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
0034 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call
0036 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
0038 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003b 00c7 | | Action Elaborate_Subprogram
003c 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call
003e 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
0040 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call
0042 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call
0044 029b 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Unelaborated
0046 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call
0048 029d 058b | | Declare_Subprogram INIT_0588,For_Outer_Call
004a 029d 059b | | Declare_Subprogram INIT_0598,For_Outer_Call
004c 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call
004e 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
0050 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
0052 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
0054 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call
0056 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
0058 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0059 00c7 | | Action Elaborate_Subprogram
005a 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
005c 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call
005e 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
0060 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call
0062 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call
0064 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call
0066 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call
0068 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call
006a 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call
006c 029d 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call
006e 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call
0070 029d 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call
0072 029d 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call
0074 029d 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call
0076 029d 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call
0078 029d 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call
007a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007b 00c7 | | Action Elaborate_Subprogram
007c 029d 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call
007e 029d 0ae3 | | Declare_Subprogram INIT_0ae0,For_Outer_Call
0080 029d 0b0b | | Declare_Subprogram INIT_0b08,For_Outer_Call
0082 029d 0b1b | | Declare_Subprogram INIT_0b18,For_Outer_Call
0084 029d 0b33 | 3| Declare_Subprogram INIT_0b30,For_Outer_Call
0086 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0087 00c7 | | Action Elaborate_Subprogram
0088 029d 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call
008a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
008b 00c7 | | Action Elaborate_Subprogram
008c 029d 0bc3 | | Declare_Subprogram INIT_0bc0,For_Outer_Call
008e 029d 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call
0090 029d 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call
0092 029d 0c23 | #| Declare_Subprogram INIT_0c20,For_Outer_Call
0094 029d 0c53 | S| Declare_Subprogram INIT_0c50,For_Outer_Call
0096 029d 0c6b | k| Declare_Subprogram INIT_0c68,For_Outer_Call
0098 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call
009a 029d 0d1b | | Declare_Subprogram INIT_0d18,For_Outer_Call
009c 029d 0d4b | K| Declare_Subprogram INIT_0d48,For_Outer_Call
009e 029d 0d6b | k| Declare_Subprogram INIT_0d68,For_Outer_Call
00a0 029d 0dab | | Declare_Subprogram INIT_0da8,For_Outer_Call
00a2 029d 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call
00a4 029d 0e1b | | Declare_Subprogram INIT_0e18,For_Outer_Call
00a6 029d 0ea3 | | Declare_Subprogram INIT_0ea0,For_Outer_Call
00a8 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a9 00c7 | | Action Elaborate_Subprogram
00aa 029d 0ef3 | | Declare_Subprogram INIT_0ef0,For_Outer_Call
00ac 029d 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call
00ae 029d 0f23 | #| Declare_Subprogram INIT_0f20,For_Outer_Call
00b0 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00b1 00c7 | | Action Elaborate_Subprogram
00b2 029d 0f53 | S| Declare_Subprogram INIT_0f50,For_Outer_Call
00b4 029d 0f63 | c| Declare_Subprogram INIT_0f60,For_Outer_Call
00b6 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00b7 00c7 | | Action Elaborate_Subprogram
00b8 BODY_0008:
00b8 00bc | | Action Signal_Activated
00b9 00bb | | Action Signal_Completion
00ba 0000 0000 | | .BLANK 0000[0x6]
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 108b | | Action Push_String_Extended_Indexed,0x108b ; "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 823b | ; | Call 0x1,0x3b
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 1099 | | Action Push_String_Extended,0x1099 ; "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 e5fa | | Load 0x2,-0x6
0127 480a |H | Short_Literal 0xa
0128 0092 109a | | Action Push_String_Extended,0x109a ; "Exception raised resolving name: "
012a e004 | | Load 0x0,0x4
012b 180d | | Execute Package,Field_Execute,Field_Number 0xd
012c 01cc | | Execute Vector,Catenate
012d 01cb | | Execute Vector,Append
012e e002 | | Load 0x0,0x2
012f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0130 c5fa | | Store 0x2,-0x6
0131 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0146 | F | .CONST 0x0146 ; Address of begin
0139 01b0 | | .CONST 0x01b0 ; Address of exception handler
013a 0008 | | .CONST 0x0008 ; Number of locals
013b INIT_0138:
013b 00ec | | Load_Encached Diana_Tree_Cache
013c 00e5 | | Load_Encached Long_Integer_Cache
013d 00e2 | | Load_Encached Integer_Cache
013e 00ec | | Load_Encached Diana_Tree_Cache
013f 00ec | | Load_Encached Diana_Tree_Cache
0140 e005 | | Load 0x0,0x5
0141 02c7 | | Declare_Variable Any
0142 00d8 | | Load_Top At_Offset_0
0143 1c00 | | Execute_Immediate Run_Utility,0x0
0144 00e1 | | Load_Encached Boolean_Cache
0145 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0146 BODY_0138:
0146 e002 | | Load 0x0,0x2
0147 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0148 c5f8 | | Store 0x2,-0x8
0149 e006 | | Load 0x0,0x6
014a c5f9 | | Store 0x2,-0x7
014b 00eb | | Load_Encached Diana_Cache
014c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014d a5fb | | Store_Unchecked 0x2,-0x5
014e e5fa | | Load 0x2,-0x6
014f 00e2 | | Load_Encached Integer_Cache
0150 00e5 | | Load_Encached Long_Integer_Cache
0151 00ec | | Load_Encached Diana_Tree_Cache
0152 e5fe | | Load 0x2,-0x2
0153 e5ff | | Load 0x2,-0x1
0154 821b | | Call 0x1,0x1b
0155 c402 | | Store 0x2,0x2
0156 c403 | | Store 0x2,0x3
0157 c404 | | Store 0x2,0x4
0158 c5fa | | Store 0x2,-0x6
0159 e402 | | Load 0x2,0x2
015a 00eb | | Load_Encached Diana_Cache
015b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015c 7012 |p | Jump_Nonzero 0x16f
015d e5f9 | | Load 0x2,-0x7
015e 0120 | | Execute Any,Is_Value
015f 6802 |h | Jump_Zero 0x162
0160 e007 | | Load 0x0,0x7
0161 7801 |x | Jump 0x163
0162 e5f9 | | Load 0x2,-0x7
0163 00e1 | | Load_Encached Boolean_Cache
0164 e5fa | | Load 0x2,-0x6
0165 00ec | | Load_Encached Diana_Tree_Cache
0166 e404 | | Load 0x2,0x4
0167 e403 | | Load 0x2,0x3
0168 8008 | | Call 0x0,0x8
0169 e402 | | Load 0x2,0x2
016a 8240 | @ | Call 0x1,0x40
016b c5fb | | Store 0x2,-0x5
016c c5fa | | Store 0x2,-0x6
016d 005a | Z | Store_Top Discrete,At_Offset_2
016e c5f9 | | Store 0x2,-0x7
016f e5f8 | | Load 0x2,-0x8
0170 e5fa | | Load 0x2,-0x6
0171 e5fc | | Load 0x2,-0x4
0172 4800 |H | Short_Literal 0x0
0173 821a | | Call 0x1,0x1a
0174 c5fa | | Store 0x2,-0x6
0175 c5f8 | | Store 0x2,-0x8
0176 e5fd | | Load 0x2,-0x3
0177 6837 |h7 | Jump_Zero 0x1af
0178 e5fb | | Load 0x2,-0x5
0179 00eb | | Load_Encached Diana_Cache
017a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017b 6823 |h# | Jump_Zero 0x19f
017c e5f8 | | Load 0x2,-0x8
017d 00da | | Load_Top At_Offset_2
017e 0120 | | Execute Any,Is_Value
017f 6802 |h | Jump_Zero 0x182
0180 e005 | | Load 0x0,0x5
0181 7801 |x | Jump 0x183
0182 00da | | Load_Top At_Offset_2
0183 e5f9 | | Load 0x2,-0x7
0184 0120 | | Execute Any,Is_Value
0185 6802 |h | Jump_Zero 0x188
0186 e007 | | Load 0x0,0x7
0187 7801 |x | Jump 0x189
0188 e5f9 | | Load 0x2,-0x7
0189 00ec | | Load_Encached Diana_Tree_Cache
018a 00ec | | Load_Encached Diana_Tree_Cache
018b 00e2 | | Load_Encached Integer_Cache
018c e5fa | | Load 0x2,-0x6
018d e009 | | Load 0x0,0x9
018e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
018f 800a | | Call 0x0,0xa
0190 c404 | | Store 0x2,0x4
0191 c405 | | Store 0x2,0x5
0192 c406 | | Store 0x2,0x6
0193 c5f9 | | Store 0x2,-0x7
0194 c407 | | Store 0x2,0x7
0195 c5f8 | | Store 0x2,-0x8
0196 e5f8 | | Load 0x2,-0x8
0197 e002 | | Load 0x0,0x2
0198 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0199 c5f8 | | Store 0x2,-0x8
019a e5fa | | Load 0x2,-0x6
019b e5f9 | | Load 0x2,-0x7
019c 823f | ? | Call 0x1,0x3f
019d c5fa | | Store 0x2,-0x6
019e 7806 |x | Jump 0x1a5
019f 00d8 | | Load_Top At_Offset_0
01a0 6804 |h | Jump_Zero 0x1a5
01a1 e5fa | | Load 0x2,-0x6
01a2 e5f9 | | Load 0x2,-0x7
01a3 823f | ? | Call 0x1,0x3f
01a4 c5fa | | Store 0x2,-0x6
01a5 e5fa | | Load 0x2,-0x6
01a6 e00b | | Load 0x0,0xb
01a7 e5fa | | Load 0x2,-0x6
01a8 e009 | | Load 0x0,0x9
01a9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01aa e00c | | Load 0x0,0xc
01ab 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01ac e009 | | Load 0x0,0x9
01ad 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01ae c5fa | | Store 0x2,-0x6
01af 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01b0 TRAP_0138:
01b0 4884 |H | Short_Literal 0x84
01b1 010f | | Execute Exception,Equal
01b2 7004 |p | Jump_Nonzero 0x1b7
01b3 e003 | | Load 0x0,0x3
01b4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01b5 010f | | Execute Exception,Equal
01b6 6807 |h | Jump_Zero 0x1be
01b7 e5f8 | | Load 0x2,-0x8
01b8 0092 1099 | | Action Push_String_Extended,0x1099 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a"
01ba e002 | | Load 0x0,0x2
01bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01bc c5f8 | | Store 0x2,-0x8
01bd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01be e5f8 | | Load 0x2,-0x8
01bf 480a |H | Short_Literal 0xa
01c0 0092 109a | | Action Push_String_Extended,0x109a ; "Exception raised resolving name: "
01c2 e004 | | Load 0x0,0x4
01c3 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c4 01cc | | Execute Vector,Catenate
01c5 01cb | | Execute Vector,Append
01c6 e002 | | Load 0x0,0x2
01c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c8 c5f8 | | Store 0x2,-0x8
01c9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4607 |F | Jump_Case 0x8
01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01d5 7807 |x | Jump 0x1dd ; case 0x1
01d6 780a |x | Jump 0x1e1 ; case 0x2
01d7 780e |x | Jump 0x1e6 ; case 0x3
01d8 7811 |x | Jump 0x1ea ; case 0x4
01d9 7812 |x | Jump 0x1ec ; case 0x5
01da 7813 |x | Jump 0x1ee ; case 0x6
01db 7816 |x | Jump 0x1f2 ; case 0x7
01dc 4302 |C | .XXX[0x1]
01dd 00da | | Load_Top At_Offset_2
01de 0091 1092 | | Action Push_String_Extended_Indexed,0x1092 ; "MODIFY_OPERATION"
01e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e1 00db | | Load_Top At_Offset_3
01e2 00db | | Load_Top At_Offset_3
01e3 00e0 | | Load_Encached Standard_Cache
01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e6 00da | | Load_Top At_Offset_2
01e7 00e0 | | Load_Encached Standard_Cache
01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ea 00db | | Load_Top At_Offset_3
01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ec 00db | | Load_Top At_Offset_3
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee e210 | | Load 0x1,0x10
01ef 00dc | | Load_Top At_Offset_4
01f0 0267 | g | Execute Discrete,Predecessor
01f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f2 e210 | | Load 0x1,0x10
01f3 00dc | | Load_Top At_Offset_4
01f4 0268 | h | Execute Discrete,Successor
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fe | | .CONST 0x01fe ; Address of begin
01f9 0227 | ' | .CONST 0x0227 ; Address of exception handler
01fa 0004 | | .CONST 0x0004 ; Number of locals
01fb INIT_01f8:
01fb 00ec | | Load_Encached Diana_Tree_Cache
01fc 00e5 | | Load_Encached Long_Integer_Cache
01fd 00e2 | | Load_Encached Integer_Cache
01fe BODY_01f8:
01fe 00eb | | Load_Encached Diana_Cache
01ff 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0200 a5fc | | Store_Unchecked 0x2,-0x4
0201 e002 | | Load 0x0,0x2
0202 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0203 c5fa | | Store 0x2,-0x6
0204 e5fb | | Load 0x2,-0x5
0205 00e2 | | Load_Encached Integer_Cache
0206 00e5 | | Load_Encached Long_Integer_Cache
0207 00ec | | Load_Encached Diana_Tree_Cache
0208 4800 |H | Short_Literal 0x0
0209 e5ff | | Load 0x2,-0x1
020a 821b | | Call 0x1,0x1b
020b c402 | | Store 0x2,0x2
020c c403 | | Store 0x2,0x3
020d 005a | Z | Store_Top Discrete,At_Offset_2
020e c5fb | | Store 0x2,-0x5
020f 00da | | Load_Top At_Offset_2
0210 00eb | | Load_Encached Diana_Cache
0211 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0212 700c |p | Jump_Nonzero 0x21f
0213 e5fa | | Load 0x2,-0x6
0214 00ec | | Load_Encached Diana_Tree_Cache
0215 e5fb | | Load 0x2,-0x5
0216 e5fe | | Load 0x2,-0x2
0217 e404 | | Load 0x2,0x4
0218 e403 | | Load 0x2,0x3
0219 8008 | | Call 0x0,0x8
021a e402 | | Load 0x2,0x2
021b 824f | O | Call 0x1,0x4f
021c c5fb | | Store 0x2,-0x5
021d c5fc | | Store 0x2,-0x4
021e c5fa | | Store 0x2,-0x6
021f e5fa | | Load 0x2,-0x6
0220 e5fb | | Load 0x2,-0x5
0221 e5fd | | Load 0x2,-0x3
0222 4800 |H | Short_Literal 0x0
0223 821a | | Call 0x1,0x1a
0224 c5fb | | Store 0x2,-0x5
0225 c5fa | | Store 0x2,-0x6
0226 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0227 TRAP_01f8:
0227 4884 |H | Short_Literal 0x84
0228 010f | | Execute Exception,Equal
0229 7004 |p | Jump_Nonzero 0x22e
022a e003 | | Load 0x0,0x3
022b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
022c 010f | | Execute Exception,Equal
022d 6807 |h | Jump_Zero 0x235
022e e5fa | | Load 0x2,-0x6
022f 0092 1099 | | Action Push_String_Extended,0x1099 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a"
0231 e002 | | Load 0x0,0x2
0232 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0233 c5fa | | Store 0x2,-0x6
0234 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0235 e5fa | | Load 0x2,-0x6
0236 480a |H | Short_Literal 0xa
0237 0092 109a | | Action Push_String_Extended,0x109a ; "Exception raised resolving name: "
0239 e004 | | Load 0x0,0x4
023a 180d | | Execute Package,Field_Execute,Field_Number 0xd
023b 01cc | | Execute Vector,Catenate
023c 01cb | | Execute Vector,Append
023d e002 | | Load 0x0,0x2
023e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
023f c5fa | | Store 0x2,-0x6
0240 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0241 0000 0000 | | .BLANK 0000[0x7]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4607 |F | Jump_Case 0x8
024c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
024d 7807 |x | Jump 0x255 ; case 0x1
024e 780a |x | Jump 0x259 ; case 0x2
024f 780e |x | Jump 0x25e ; case 0x3
0250 7811 |x | Jump 0x262 ; case 0x4
0251 7812 |x | Jump 0x264 ; case 0x5
0252 7813 |x | Jump 0x266 ; case 0x6
0253 7816 |x | Jump 0x26a ; case 0x7
0254 4302 |C | .XXX[0x1]
0255 00da | | Load_Top At_Offset_2
0256 0091 1096 | | Action Push_String_Extended_Indexed,0x1096 ; "CATCH"
0258 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0259 00db | | Load_Top At_Offset_3
025a 00db | | Load_Top At_Offset_3
025b 00e0 | | Load_Encached Standard_Cache
025c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
025e 00da | | Load_Top At_Offset_2
025f 00e0 | | Load_Encached Standard_Cache
0260 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0261 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0262 00db | | Load_Top At_Offset_3
0263 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0264 00db | | Load_Top At_Offset_3
0265 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0266 e212 | | Load 0x1,0x12
0267 00dc | | Load_Top At_Offset_4
0268 0267 | g | Execute Discrete,Predecessor
0269 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026a e212 | | Load 0x1,0x12
026b 00dc | | Load_Top At_Offset_4
026c 0268 | h | Execute Discrete,Successor
026d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026e 0000 0000 | | .XXX[0x2]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0276 | v | .CONST 0x0276 ; Address of begin
0271 0292 | | .CONST 0x0292 ; Address of exception handler
0272 0004 | | .CONST 0x0004 ; Number of locals
0273 INIT_0270:
0273 00ec | | Load_Encached Diana_Tree_Cache
0274 00e5 | | Load_Encached Long_Integer_Cache
0275 00e2 | | Load_Encached Integer_Cache
0276 BODY_0270:
0276 e002 | | Load 0x0,0x2
0277 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0278 c5fb | | Store 0x2,-0x5
0279 e5fc | | Load 0x2,-0x4
027a 00e2 | | Load_Encached Integer_Cache
027b 00e5 | | Load_Encached Long_Integer_Cache
027c 00ec | | Load_Encached Diana_Tree_Cache
027d 4800 |H | Short_Literal 0x0
027e e5ff | | Load 0x2,-0x1
027f 821b | | Call 0x1,0x1b
0280 c402 | | Store 0x2,0x2
0281 c403 | | Store 0x2,0x3
0282 005a | Z | Store_Top Discrete,At_Offset_2
0283 c5fc | | Store 0x2,-0x4
0284 00da | | Load_Top At_Offset_2
0285 00eb | | Load_Encached Diana_Cache
0286 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0287 7009 |p | Jump_Nonzero 0x291
0288 e5fb | | Load 0x2,-0x5
0289 e5fc | | Load 0x2,-0x4
028a 00ec | | Load_Encached Diana_Tree_Cache
028b e5fe | | Load 0x2,-0x2
028c e402 | | Load 0x2,0x2
028d 8252 | R | Call 0x1,0x52
028e c5fd | | Store 0x2,-0x3
028f c5fc | | Store 0x2,-0x4
0290 c5fb | | Store 0x2,-0x5
0291 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0292 TRAP_0270:
0292 4884 |H | Short_Literal 0x84
0293 010f | | Execute Exception,Equal
0294 7004 |p | Jump_Nonzero 0x299
0295 e003 | | Load 0x0,0x3
0296 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0297 010f | | Execute Exception,Equal
0298 6807 |h | Jump_Zero 0x2a0
0299 e5fb | | Load 0x2,-0x5
029a 0092 1099 | | Action Push_String_Extended,0x1099 ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a"
029c e002 | | Load 0x0,0x2
029d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
029e c5fb | | Store 0x2,-0x5
029f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a0 e5fb | | Load 0x2,-0x5
02a1 480a |H | Short_Literal 0xa
02a2 0092 109a | | Action Push_String_Extended,0x109a ; "Exception raised resolving name: "
02a4 e004 | | Load 0x0,0x4
02a5 180d | | Execute Package,Field_Execute,Field_Number 0xd
02a6 01cc | | Execute Vector,Catenate
02a7 01cb | | Execute Vector,Append
02a8 e002 | | Load 0x0,0x2
02a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02aa c5fb | | Store 0x2,-0x5
02ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 4603 |F | Jump_Case 0x4
02b5 7806 |x | Jump 0x2bc ; case 0x0
02b6 7808 |x | Jump 0x2bf ; case 0x1
02b7 780a |x | Jump 0x2c2 ; case 0x2
02b8 7800 |x | Jump 0x2b9 ; case 0x3
02b9 0092 109b | | Action Push_String_Extended,0x109b ; "Set control context to"
02bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bc 0092 109c | | Action Push_String_Extended,0x109c ; "Modify"
02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bf 0092 109d | | Action Push_String_Extended,0x109d ; "Put"
02c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c2 0092 109e | | Action Push_String_Extended,0x109e ; "Object_Location"
02c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c5 0000 0000 | | .XXX[0x3]
02c7 0000 | |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 4801 |H | Short_Literal 0x1
02cc e5fe | | Load 0x2,-0x2
02cd e00d | | Load 0x0,0xd
02ce e5ff | | Load 0x2,-0x1
02cf e00e | | Load 0x0,0xe
02d0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02d1 8216 | | Call 0x1,0x16
02d2 e00f | | Load 0x0,0xf
02d3 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d5 0000 0000 | | .XXX[0x3]
02d7 0000 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00da | | Load_Top At_Offset_2
02dc 00eb | | Load_Encached Diana_Cache
02dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02de 00d8 | | Load_Top At_Offset_0
02df 4821 |H! | Short_Literal 0x21
02e0 482c |H, | Short_Literal 0x2c
02e1 0262 | b | Execute Discrete,In_Range
02e2 6812 |h | Jump_Zero 0x2f5
02e3 00d8 | | Load_Top At_Offset_0
02e4 4823 |H# | Short_Literal 0x23
02e5 4828 |H( | Short_Literal 0x28
02e6 0262 | b | Execute Discrete,In_Range
02e7 700d |p | Jump_Nonzero 0x2f5
02e8 482a |H* | Short_Literal 0x2a
02e9 482b |H+ | Short_Literal 0x2b
02ea 0262 | b | Execute Discrete,In_Range
02eb 700a |p | Jump_Nonzero 0x2f6
02ec 7800 |x | Jump 0x2ed
02ed 00da | | Load_Top At_Offset_2
02ee 8253 | S | Call 0x1,0x53
02ef 6803 |h | Jump_Zero 0x2f3
02f0 00da | | Load_Top At_Offset_2
02f1 8254 | T | Call 0x1,0x54
02f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f3 00da | | Load_Top At_Offset_2
02f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f5 00d1 | | Pop_Control Pop_Count_1
02f6 00da | | Load_Top At_Offset_2
02f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 481f |H | Short_Literal 0x1f
0300 484e |HN | Short_Literal 0x4e
0301 0262 | b | Execute Discrete,In_Range
0302 683c |h< | Jump_Zero 0x33f
0303 0ae1 | | Execute_Immediate Plus,-0x1f
0304 462f |F/ | Jump_Case 0x30
0305 782f |x/ | Jump 0x335 ; case 0x0
0306 7839 |x9 | Jump 0x340 ; case 0x1
0307 782d |x- | Jump 0x335 ; case 0x2
0308 782e |x. | Jump 0x337 ; case 0x3
0309 7836 |x6 | Jump 0x340 ; case 0x4
030a 7835 |x5 | Jump 0x340 ; case 0x5
030b 7834 |x4 | Jump 0x340 ; case 0x6
030c 7833 |x3 | Jump 0x340 ; case 0x7
030d 7832 |x2 | Jump 0x340 ; case 0x8
030e 7831 |x1 | Jump 0x340 ; case 0x9
030f 7830 |x0 | Jump 0x340 ; case 0xa
0310 782f |x/ | Jump 0x340 ; case 0xb
0311 782e |x. | Jump 0x340 ; case 0xc
0312 7822 |x" | Jump 0x335 ; case 0xd
0313 782c |x, | Jump 0x340 ; case 0xe
0314 7820 |x | Jump 0x335 ; case 0xf
0315 782a |x* | Jump 0x340 ; case 0x10
0316 7829 |x) | Jump 0x340 ; case 0x11
0317 7828 |x( | Jump 0x340 ; case 0x12
0318 7827 |x' | Jump 0x340 ; case 0x13
0319 781b |x | Jump 0x335 ; case 0x14
031a 7825 |x% | Jump 0x340 ; case 0x15
031b 7824 |x$ | Jump 0x340 ; case 0x16
031c 7823 |x# | Jump 0x340 ; case 0x17
031d 7822 |x" | Jump 0x340 ; case 0x18
031e 7821 |x! | Jump 0x340 ; case 0x19
031f 7820 |x | Jump 0x340 ; case 0x1a
0320 781f |x | Jump 0x340 ; case 0x1b
0321 781e |x | Jump 0x340 ; case 0x1c
0322 781d |x | Jump 0x340 ; case 0x1d
0323 781c |x | Jump 0x340 ; case 0x1e
0324 781b |x | Jump 0x340 ; case 0x1f
0325 781a |x | Jump 0x340 ; case 0x20
0326 7819 |x | Jump 0x340 ; case 0x21
0327 7818 |x | Jump 0x340 ; case 0x22
0328 7817 |x | Jump 0x340 ; case 0x23
0329 7816 |x | Jump 0x340 ; case 0x24
032a 7815 |x | Jump 0x340 ; case 0x25
032b 7814 |x | Jump 0x340 ; case 0x26
032c 7813 |x | Jump 0x340 ; case 0x27
032d 7812 |x | Jump 0x340 ; case 0x28
032e 7811 |x | Jump 0x340 ; case 0x29
032f 7810 |x | Jump 0x340 ; case 0x2a
0330 780f |x | Jump 0x340 ; case 0x2b
0331 780e |x | Jump 0x340 ; case 0x2c
0332 7802 |x | Jump 0x335 ; case 0x2d
0333 780c |x | Jump 0x340 ; case 0x2e
0334 7800 |x | Jump 0x335 ; case 0x2f
0335 4801 |H | Short_Literal 0x1
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 00da | | Load_Top At_Offset_2
0338 e00e | | Load 0x0,0xe
0339 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
033a 6802 |h | Jump_Zero 0x33d
033b 4800 |H | Short_Literal 0x0
033c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033d 4801 |H | Short_Literal 0x1
033e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033f 00d1 | | Pop_Control Pop_Count_1
0340 4800 |H | Short_Literal 0x0
0341 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c e00e | | Load 0x0,0xe
034d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
034e 7004 |p | Jump_Nonzero 0x353
034f 00da | | Load_Top At_Offset_2
0350 e00e | | Load 0x0,0xe
0351 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0353 4801 |H | Short_Literal 0x1
0354 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 037c | | | .CONST 0x037c ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00db | | Load_Top At_Offset_3
035c 6805 |h | Jump_Zero 0x362
035d e5fd | | Load 0x2,-0x3
035e e009 | | Load 0x0,0x9
035f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0360 7001 |p | Jump_Nonzero 0x362
0361 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0362 00da | | Load_Top At_Offset_2
0363 680c |h | Jump_Zero 0x370
0364 e5fd | | Load 0x2,-0x3
0365 e00b | | Load 0x0,0xb
0366 e5fd | | Load 0x2,-0x3
0367 e009 | | Load 0x0,0x9
0368 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0369 e00c | | Load 0x0,0xc
036a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
036b 8010 | | Call 0x0,0x10
036c e009 | | Load 0x0,0x9
036d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
036e c5fd | | Store 0x2,-0x3
036f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0370 e5fd | | Load 0x2,-0x3
0371 e00b | | Load 0x0,0xb
0372 e5fd | | Load 0x2,-0x3
0373 e009 | | Load 0x0,0x9
0374 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0375 e00c | | Load 0x0,0xc
0376 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0377 8010 | | Call 0x0,0x10
0378 e009 | | Load 0x0,0x9
0379 181d | | Execute Package,Field_Execute,Field_Number 0x1d
037a c5fd | | Store 0x2,-0x3
037b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
037c TRAP_0358:
037c e00c | | Load 0x0,0xc
037d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
037e 010f | | Execute Exception,Equal
037f 680a |h | Jump_Zero 0x38a
0380 e5fc | | Load 0x2,-0x4
0381 00ea | | Load_Encached Null_String_Cache
0382 0092 109f | | Action Push_String_Extended,0x109f ; "Set your control context to a single task before specifying a frame reference"
0384 0092 10a0 | | Action Push_String_Extended,0x10a0 ; "Task not specified"
0386 e002 | | Load 0x0,0x2
0387 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0388 c5fc | | Store 0x2,-0x4
0389 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038a 0100 | | Execute Exception,Raise
038b 0000 0000 | | .BLANK 0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03b1 | | .CONST 0x03b1 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 000b | | .CONST 0x000b ; Number of locals
0393 INIT_0390:
0393 e011 | | Load 0x0,0x11
0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0395 e012 | | Load 0x0,0x12
0396 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0397 e012 | | Load 0x0,0x12
0398 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0399 02c7 | | Declare_Variable Any
039a 00d8 | | Load_Top At_Offset_0
039b 1c00 | | Execute_Immediate Run_Utility,0x0
039c 00eb | | Load_Encached Diana_Cache
039d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
039e 00e5 | | Load_Encached Long_Integer_Cache
039f e013 | | Load 0x0,0x13
03a0 02c7 | | Declare_Variable Any
03a1 00d8 | | Load_Top At_Offset_0
03a2 1c00 | | Execute_Immediate Run_Utility,0x0
03a3 00e1 | | Load_Encached Boolean_Cache
03a4 e014 | | Load 0x0,0x14
03a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a7 e5fe | | Load 0x2,-0x2
03a8 6804 |h | Jump_Zero 0x3ad
03a9 e5ff | | Load 0x2,-0x1
03aa 01db | | Execute Vector,Length
03ab 0f00 | | Execute_Immediate Equal,0x0
03ac 7802 |x | Jump 0x3af
03ad 4800 |H | Short_Literal 0x0
03ae 0007 | | Action Break_Optional
03af 029f 0f9b | | Declare_Subprogram INIT_0f98,For_Call
03b1 BODY_0390:
03b1 00eb | | Load_Encached Diana_Cache
03b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03b3 a5fd | | Store_Unchecked 0x2,-0x3
03b4 4800 |H | Short_Literal 0x0
03b5 a5fc | | Store_Unchecked 0x2,-0x4
03b6 4800 |H | Short_Literal 0x0
03b7 a5fb | | Store_Unchecked 0x2,-0x5
03b8 e5ff | | Load 0x2,-0x1
03b9 e015 | | Load 0x0,0x15
03ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bb 7002 |p | Jump_Nonzero 0x3be
03bc 00d9 | | Load_Top At_Offset_1
03bd 6891 |h | Jump_Zero 0x44f
03be 840b | | Call 0x2,0xb
03bf e015 | | Load 0x0,0x15
03c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03c1 a402 | | Store_Unchecked 0x2,0x2
03c2 e404 | | Load 0x2,0x4
03c3 0120 | | Execute Any,Is_Value
03c4 6803 |h | Jump_Zero 0x3c8
03c5 e012 | | Load 0x0,0x12
03c6 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
03c7 7801 |x | Jump 0x3c9
03c8 e404 | | Load 0x2,0x4
03c9 e012 | | Load 0x0,0x12
03ca 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
03cb 00e1 | | Load_Encached Boolean_Cache
03cc e402 | | Load 0x2,0x2
03cd e012 | | Load 0x0,0x12
03ce 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03cf c408 | | Store 0x2,0x8
03d0 c403 | | Store 0x2,0x3
03d1 c404 | | Store 0x2,0x4
03d2 e403 | | Load 0x2,0x3
03d3 460f |F | Jump_Case 0x10
03d4 780f |x | Jump 0x3e4 ; case 0x0
03d5 783f |x? | Jump 0x415 ; case 0x1
03d6 783e |x> | Jump 0x415 ; case 0x2
03d7 783d |x= | Jump 0x415 ; case 0x3
03d8 7854 |xT | Jump 0x42d ; case 0x4
03d9 780a |x | Jump 0x3e4 ; case 0x5
03da 7832 |x2 | Jump 0x40d ; case 0x6
03db 7808 |x | Jump 0x3e4 ; case 0x7
03dc 7807 |x | Jump 0x3e4 ; case 0x8
03dd 7806 |x | Jump 0x3e4 ; case 0x9
03de 7805 |x | Jump 0x3e4 ; case 0xa
03df 7804 |x | Jump 0x3e4 ; case 0xb
03e0 7803 |x | Jump 0x3e4 ; case 0xc
03e1 7802 |x | Jump 0x3e4 ; case 0xd
03e2 7801 |x | Jump 0x3e4 ; case 0xe
03e3 7800 |x | Jump 0x3e4 ; case 0xf
03e4 00db | | Load_Top At_Offset_3
03e5 7002 |p | Jump_Nonzero 0x3e8
03e6 00d9 | | Load_Top At_Offset_1
03e7 6804 |h | Jump_Zero 0x3ec
03e8 00eb | | Load_Encached Diana_Cache
03e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03ea a405 | | Store_Unchecked 0x2,0x5
03eb 780c |x | Jump 0x3f8
03ec e014 | | Load 0x0,0x14
03ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ef e014 | | Load 0x0,0x14
03f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f1 e016 | | Load 0x0,0x16
03f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f3 e402 | | Load 0x2,0x2
03f4 e011 | | Load 0x0,0x11
03f5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f6 c405 | | Store 0x2,0x5
03f7 005b | [ | Store_Top Discrete,At_Offset_3
03f8 e405 | | Load 0x2,0x5
03f9 00eb | | Load_Encached Diana_Cache
03fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03fb 6808 |h | Jump_Zero 0x404
03fc e5fa | | Load 0x2,-0x6
03fd e5ff | | Load 0x2,-0x1
03fe e015 | | Load 0x0,0x15
03ff 180f | | Execute Package,Field_Execute,Field_Number 0xf
0400 e009 | | Load 0x0,0x9
0401 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0402 c5fa | | Store 0x2,-0x6
0403 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0404 e5fa | | Load 0x2,-0x6
0405 e5ff | | Load 0x2,-0x1
0406 8010 | | Call 0x0,0x10
0407 e009 | | Load 0x0,0x9
0408 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0409 c5fa | | Store 0x2,-0x6
040a e405 | | Load 0x2,0x5
040b a5fd | | Store_Unchecked 0x2,-0x3
040c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040d e5fa | | Load 0x2,-0x6
040e e404 | | Load 0x2,0x4
040f e015 | | Load 0x0,0x15
0410 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0411 e009 | | Load 0x0,0x9
0412 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0413 c5fa | | Store 0x2,-0x6
0414 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0415 00e2 | | Load_Encached Integer_Cache
0416 00e5 | | Load_Encached Long_Integer_Cache
0417 00ec | | Load_Encached Diana_Tree_Cache
0418 e404 | | Load 0x2,0x4
0419 e012 | | Load 0x0,0x12
041a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
041b c405 | | Store 0x2,0x5
041c c5fc | | Store 0x2,-0x4
041d c5fb | | Store 0x2,-0x5
041e e5fb | | Load 0x2,-0x5
041f 7004 |p | Jump_Nonzero 0x424
0420 e5ff | | Load 0x2,-0x1
0421 e015 | | Load 0x0,0x15
0422 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0423 a5fb | | Store_Unchecked 0x2,-0x5
0424 e5fa | | Load 0x2,-0x6
0425 e5ff | | Load 0x2,-0x1
0426 8010 | | Call 0x0,0x10
0427 e009 | | Load 0x0,0x9
0428 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0429 c5fa | | Store 0x2,-0x6
042a e405 | | Load 0x2,0x5
042b a5fd | | Store_Unchecked 0x2,-0x3
042c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
042d 00e5 | | Load_Encached Long_Integer_Cache
042e 00ec | | Load_Encached Diana_Tree_Cache
042f e404 | | Load 0x2,0x4
0430 e012 | | Load 0x0,0x12
0431 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0432 c405 | | Store 0x2,0x5
0433 c406 | | Store 0x2,0x6
0434 e405 | | Load 0x2,0x5
0435 00eb | | Load_Encached Diana_Cache
0436 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0437 6816 |h | Jump_Zero 0x44e
0438 e406 | | Load 0x2,0x6
0439 8017 | | Call 0x0,0x17
043a c407 | | Store 0x2,0x7
043b e407 | | Load 0x2,0x7
043c 8018 | | Call 0x0,0x18
043d 7008 |p | Jump_Nonzero 0x446
043e e5fa | | Load 0x2,-0x6
043f 4801 |H | Short_Literal 0x1
0440 e407 | | Load 0x2,0x7
0441 8019 | | Call 0x0,0x19
0442 e009 | | Load 0x0,0x9
0443 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0444 c5fa | | Store 0x2,-0x6
0445 7806 |x | Jump 0x44c
0446 e5fa | | Load 0x2,-0x6
0447 e5ff | | Load 0x2,-0x1
0448 8010 | | Call 0x0,0x10
0449 e009 | | Load 0x0,0x9
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 4503 |E | Exit_Suprogram New_Top_Offset 0x3
044f e5fa | | Load 0x2,-0x6
0450 e5ff | | Load 0x2,-0x1
0451 8010 | | Call 0x0,0x10
0452 e009 | | Load 0x0,0x9
0453 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0454 c5fa | | Store 0x2,-0x6
0455 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0456 0000 0000 | | .XXX[0x2]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c 6803 |h | Jump_Zero 0x460
045d 0092 10a1 | | Action Push_String_Extended,0x10a1 ; "enable"
045f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0460 0092 10a2 | | Action Push_String_Extended,0x10a2 ; "disable"
0462 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0463 0000 0000 | | .BLANK 0000[0x5]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 00da | | Load_Top At_Offset_2
046c 4606 |F | Jump_Case 0x7
046d 7809 |x | Jump 0x477 ; case 0x0
046e 7811 |x | Jump 0x480 ; case 0x1
046f 7816 |x | Jump 0x486 ; case 0x2
0470 781b |x | Jump 0x48c ; case 0x3
0471 7808 |x | Jump 0x47a ; case 0x4
0472 780a |x | Jump 0x47d ; case 0x5
0473 7800 |x | Jump 0x474 ; case 0x6
0474 0092 10a3 | | Action Push_String_Extended,0x10a3 ; "forget exceptions"
0476 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0477 0092 10a4 | | Action Push_String_Extended,0x10a4 ; "break"
0479 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
047a 0092 10a5 | | Action Push_String_Extended,0x10a5 ; "catch exceptions"
047c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
047d 0092 10a6 | | Action Push_String_Extended,0x10a6 ; "propagate exceptions"
047f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0480 00db | | Load_Top At_Offset_3
0481 821c | | Call 0x1,0x1c
0482 0092 10a7 | | Action Push_String_Extended,0x10a7 ; " history-taking"
0484 01cc | | Execute Vector,Catenate
0485 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0486 00db | | Load_Top At_Offset_3
0487 821c | | Call 0x1,0x1c
0488 0092 10a8 | | Action Push_String_Extended,0x10a8 ; " tracing"
048a 01cc | | Execute Vector,Catenate
048b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
048c 0092 10a9 | | Action Push_String_Extended,0x10a9 ; "display the address of the code"
048e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
048f 0000 | | .XXX[0x1]
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 4801 |H | Short_Literal 0x1
0494 4800 |H | Short_Literal 0x0
0495 e00d | | Load 0x0,0xd
0496 e5ff | | Load 0x2,-0x1
0497 e00f | | Load 0x0,0xf
0498 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0499 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
049a 0000 0000 | | .BLANK 0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00da | | Load_Top At_Offset_2
04a4 7002 |p | Jump_Nonzero 0x4a7
04a5 00ea | | Load_Encached Null_String_Cache
04a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04a7 00db | | Load_Top At_Offset_3
04a8 0092 10aa | | Action Push_String_Extended,0x10aa ; "."
04aa 4820 |H | Short_Literal 0x20
04ab 4800 |H | Short_Literal 0x0
04ac 480a |H | Short_Literal 0xa
04ad e5ff | | Load 0x2,-0x1
04ae e01a | | Load 0x0,0x1a
04af 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b0 01cc | | Execute Vector,Catenate
04b1 01cb | | Execute Vector,Append
04b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04b3 0000 0000 | | .BLANK 0000[0x5]
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 e5fc | | Load 0x2,-0x4
04bc 00db | | Load_Top At_Offset_3
04bd 8215 | | Call 0x1,0x15
04be e5fd | | Load 0x2,-0x3
04bf e5fe | | Load 0x2,-0x2
04c0 821f | | Call 0x1,0x1f
04c1 01cc | | Execute Vector,Catenate
04c2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04c3 0000 0000 | | .BLANK 0000[0x5]
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 821e | | Call 0x1,0x1e
04cd e5fd | | Load 0x2,-0x3
04ce e5fe | | Load 0x2,-0x2
04cf 821f | | Call 0x1,0x1f
04d0 01cc | | Execute Vector,Catenate
04d1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04d2 0000 0000 | | .BLANK 0000[0x6]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04de | | .CONST 0x04de ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0004 | | .CONST 0x0004 ; Number of locals
04db INIT_04d8:
04db 00ec | | Load_Encached Diana_Tree_Cache
04dc 039d | | Declare_Variable Heap_Access,Duplicate
04dd 00e3 | | Load_Encached Natural_Cache
04de BODY_04d8:
04de e002 | | Load 0x0,0x2
04df 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04e0 c5fa | | Store 0x2,-0x6
04e1 e5ff | | Load 0x2,-0x1
04e2 00eb | | Load_Encached Diana_Cache
04e3 18ec | | Execute Package,Field_Execute,Field_Number 0xec
04e4 e00e | | Load 0x0,0xe
04e5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04e6 0033 | 3 | Store_Top Heap_Access,At_Offset_3
04e7 e5fa | | Load 0x2,-0x6
04e8 e5fe | | Load 0x2,-0x2
04e9 0092 10ab | | Action Push_String_Extended,0x10ab ; "unable to obtain object's enclosing block"
04eb e402 | | Load 0x2,0x2
04ec 00eb | | Load_Encached Diana_Cache
04ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ee 0f00 | | Execute_Immediate Equal,0x0
04ef 8229 | ) | Call 0x1,0x29
04f0 c5fa | | Store 0x2,-0x6
04f1 00da | | Load_Top At_Offset_2
04f2 00eb | | Load_Encached Diana_Cache
04f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04f4 0f4e | N | Execute_Immediate Equal,0x4e
04f5 6813 |h | Jump_Zero 0x509
04f6 00da | | Load_Top At_Offset_2
04f7 e00e | | Load 0x0,0xe
04f8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04f9 700f |p | Jump_Nonzero 0x509
04fa 00da | | Load_Top At_Offset_2
04fb e00e | | Load 0x0,0xe
04fc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04fd 0032 | 2 | Store_Top Heap_Access,At_Offset_2
04fe e5fa | | Load 0x2,-0x6
04ff e5fe | | Load 0x2,-0x2
0500 0092 10ac | | Action Push_String_Extended,0x10ac ; "unable to obtain object's enclosing subprogram"
0502 e403 | | Load 0x2,0x3
0503 00eb | | Load_Encached Diana_Cache
0504 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0505 0f00 | | Execute_Immediate Equal,0x0
0506 8229 | ) | Call 0x1,0x29
0507 c5fa | | Store 0x2,-0x6
0508 7802 |x | Jump 0x50b
0509 00da | | Load_Top At_Offset_2
050a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
050b 00d9 | | Load_Top At_Offset_1
050c a5fd | | Store_Unchecked 0x2,-0x3
050d 4802 |H | Short_Literal 0x2
050e e5fa | | Load 0x2,-0x6
050f e002 | | Load 0x0,0x2
0510 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0511 6805 |h | Jump_Zero 0x517
0512 4820 |H | Short_Literal 0x20
0513 a5fb | | Store_Unchecked 0x2,-0x5
0514 4800 |H | Short_Literal 0x0
0515 a5fc | | Store_Unchecked 0x2,-0x4
0516 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0517 e5ff | | Load 0x2,-0x1
0518 e00e | | Load 0x0,0xe
0519 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
051a 6815 |h | Jump_Zero 0x530
051b 4873 |Hs | Short_Literal 0x73
051c a5fb | | Store_Unchecked 0x2,-0x5
051d e5ff | | Load 0x2,-0x1
051e 00db | | Load_Top At_Offset_3
051f 801b | | Call 0x0,0x1b
0520 0059 | Y | Store_Top Discrete,At_Offset_1
0521 00d8 | | Load_Top At_Offset_0
0522 700a |p | Jump_Nonzero 0x52d
0523 e5ff | | Load 0x2,-0x1
0524 801c | | Call 0x0,0x1c
0525 7007 |p | Jump_Nonzero 0x52d
0526 e5fa | | Load 0x2,-0x6
0527 00ea | | Load_Encached Null_String_Cache
0528 e5fe | | Load 0x2,-0x2
0529 0092 10ad | | Action Push_String_Extended,0x10ad ; "The specified statement is not numbered"
052b 8228 | ( | Call 0x1,0x28
052c c5fa | | Store 0x2,-0x6
052d 00d8 | | Load_Top At_Offset_0
052e a5fc | | Store_Unchecked 0x2,-0x4
052f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0530 e5ff | | Load 0x2,-0x1
0531 e00e | | Load 0x0,0xe
0532 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0533 6809 |h | Jump_Zero 0x53d
0534 4873 |Hs | Short_Literal 0x73
0535 a5fb | | Store_Unchecked 0x2,-0x5
0536 e5ff | | Load 0x2,-0x1
0537 e00e | | Load 0x0,0xe
0538 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0539 00db | | Load_Top At_Offset_3
053a 801b | | Call 0x0,0x1b
053b c5fc | | Store 0x2,-0x4
053c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
053d 4864 |Hd | Short_Literal 0x64
053e a5fb | | Store_Unchecked 0x2,-0x5
053f e5fa | | Load 0x2,-0x6
0540 e5fe | | Load 0x2,-0x2
0541 0092 10ae | | Action Push_String_Extended,0x10ae ; "the object is in a declaration which is not numbered"
0543 e5ff | | Load 0x2,-0x1
0544 801c | | Call 0x0,0x1c
0545 8229 | ) | Call 0x1,0x29
0546 c5fa | | Store 0x2,-0x6
0547 4802 |H | Short_Literal 0x2
0548 e5fa | | Load 0x2,-0x6
0549 e002 | | Load 0x0,0x2
054a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
054b 6803 |h | Jump_Zero 0x54f
054c 4800 |H | Short_Literal 0x0
054d a5fc | | Store_Unchecked 0x2,-0x4
054e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
054f e5ff | | Load 0x2,-0x1
0550 00db | | Load_Top At_Offset_3
0551 801b | | Call 0x0,0x1b
0552 0275 | u | Execute Discrete,Unary_Minus
0553 c5fc | | Store 0x2,-0x4
0554 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0555 0000 0000 | | .XXX[0x3]
0557 0000 | |
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0563 | c | .CONST 0x0563 ; Address of begin
0559 057f | | .CONST 0x057f ; Address of exception handler
055a 0005 | | .CONST 0x0005 ; Number of locals
055b INIT_0558:
055b 00ec | | Load_Encached Diana_Tree_Cache
055c 00e2 | | Load_Encached Integer_Cache
055d 00e8 | | Load_Encached Character_Cache
055e e002 | | Load 0x0,0x2
055f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0560 02c7 | | Declare_Variable Any
0561 00d8 | | Load_Top At_Offset_0
0562 1c00 | | Execute_Immediate Run_Utility,0x0
0563 BODY_0558:
0563 e5ff | | Load 0x2,-0x1
0564 8219 | | Call 0x1,0x19
0565 6815 |h | Jump_Zero 0x57b
0566 00d8 | | Load_Top At_Offset_0
0567 00e8 | | Load_Encached Character_Cache
0568 00e3 | | Load_Encached Natural_Cache
0569 00ec | | Load_Encached Diana_Tree_Cache
056a 4800 |H | Short_Literal 0x0
056b e5ff | | Load 0x2,-0x1
056c 8222 | " | Call 0x1,0x22
056d c402 | | Store 0x2,0x2
056e c403 | | Store 0x2,0x3
056f 005b | [ | Store_Top Discrete,At_Offset_3
0570 c405 | | Store 0x2,0x5
0571 00db | | Load_Top At_Offset_3
0572 00eb | | Load_Encached Diana_Cache
0573 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0574 7006 |p | Jump_Nonzero 0x57b
0575 4801 |H | Short_Literal 0x1
0576 00da | | Load_Top At_Offset_2
0577 e403 | | Load 0x2,0x3
0578 e402 | | Load 0x2,0x2
0579 8220 | | Call 0x1,0x20
057a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
057b 4801 |H | Short_Literal 0x1
057c e5ff | | Load 0x2,-0x1
057d 8215 | | Call 0x1,0x15
057e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
057f TRAP_0558:
057f 0007 | | Action Break_Optional
0580 00ea | | Load_Encached Null_String_Cache
0581 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0582 0000 0000 | | .BLANK 0000[0x6]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b | | .CONST 0x058b ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0001 | | .CONST 0x0001 ; Number of locals
058b BODY_0588:
058b INIT_0588:
058b 00da | | Load_Top At_Offset_2
058c 01db | | Execute Vector,Length
058d 0c01 | | Execute_Immediate Greater_Equal,0x1
058e 6805 |h | Jump_Zero 0x594
058f 00db | | Load_Top At_Offset_3
0590 00db | | Load_Top At_Offset_3
0591 e009 | | Load 0x0,0x9
0592 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0593 c5fe | | Store 0x2,-0x2
0594 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0595 0000 0000 | | .XXX[0x3]
0597 0000 | |
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b | | .CONST 0x059b ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0001 | | .CONST 0x0001 ; Number of locals
059b BODY_0598:
059b INIT_0598:
059b 00db | | Load_Top At_Offset_3
059c 00db | | Load_Top At_Offset_3
059d 8223 | # | Call 0x1,0x23
059e 8224 | $ | Call 0x1,0x24
059f c5fe | | Store 0x2,-0x2
05a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05a1 0000 0000 | | .BLANK 0000[0x7]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 05b9 | | .CONST 0x05b9 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac 00eb | | Load_Encached Diana_Cache
05ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ae 6803 |h | Jump_Zero 0x5b2
05af 0092 10af | | Action Push_String_Extended,0x10af ; "'s location"
05b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b2 0092 10b0 | | Action Push_String_Extended,0x10b0 ; " "
05b4 4801 |H | Short_Literal 0x1
05b5 e5ff | | Load 0x2,-0x1
05b6 8215 | | Call 0x1,0x15
05b7 01cc | | Execute Vector,Catenate
05b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b9 TRAP_05a8:
05b9 0007 | | Action Break_Optional
05ba 0092 10af | | Action Push_String_Extended,0x10af ; "'s location"
05bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
05c4 01db | | Execute Vector,Length
05c5 7002 |p | Jump_Nonzero 0x5c8
05c6 00da | | Load_Top At_Offset_2
05c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c8 0092 10b0 | | Action Push_String_Extended,0x10b0 ; " "
05ca 00db | | Load_Top At_Offset_3
05cb 01cc | | Execute Vector,Catenate
05cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05cd 0000 0000 | | .XXX[0x3]
05cf 0000 | |
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 e5fc | | Load 0x2,-0x4
05d4 480a |H | Short_Literal 0xa
05d5 482e |H. | Short_Literal 0x2e
05d6 480a |H | Short_Literal 0xa
05d7 0092 10b1 | | Action Push_String_Extended,0x10b1 ; "Cannot "
05d9 4801 |H | Short_Literal 0x1
05da e5fe | | Load 0x2,-0x2
05db 821d | | Call 0x1,0x1d
05dc 01cc | | Execute Vector,Catenate
05dd 0092 10b2 | | Action Push_String_Extended,0x10b2 ; " at the selected object"
05df 01cc | | Execute Vector,Catenate
05e0 01cb | | Execute Vector,Append
05e1 e5ff | | Load 0x2,-0x1
05e2 01cc | | Execute Vector,Catenate
05e3 01cb | | Execute Vector,Append
05e4 01cb | | Execute Vector,Append
05e5 e002 | | Load 0x0,0x2
05e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05e7 c5fc | | Store 0x2,-0x4
05e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05e9 0000 0000 | | .BLANK 0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00da | | Load_Top At_Offset_2
05f4 6804 |h | Jump_Zero 0x5f9
05f5 e002 | | Load 0x0,0x2
05f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05f7 c5fc | | Store 0x2,-0x4
05f8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05f9 e5fc | | Load 0x2,-0x4
05fa 00ea | | Load_Encached Null_String_Cache
05fb e5fd | | Load 0x2,-0x3
05fc e5fe | | Load 0x2,-0x2
05fd 8228 | ( | Call 0x1,0x28
05fe c5fc | | Store 0x2,-0x4
05ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 e5fc | | Load 0x2,-0x4
0604 e5fd | | Load 0x2,-0x3
0605 8225 | % | Call 0x1,0x25
0606 c5fc | | Store 0x2,-0x4
0607 e5fb | | Load 0x2,-0x5
0608 e5fd | | Load 0x2,-0x3
0609 8226 | & | Call 0x1,0x26
060a e5fe | | Load 0x2,-0x2
060b e5ff | | Load 0x2,-0x1
060c 8228 | ( | Call 0x1,0x28
060d c5fb | | Store 0x2,-0x5
060e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
060f 0000 | | .XXX[0x1]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 00da | | Load_Top At_Offset_2
0614 6804 |h | Jump_Zero 0x619
0615 e002 | | Load 0x0,0x2
0616 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0617 c5fa | | Store 0x2,-0x6
0618 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0619 e5fa | | Load 0x2,-0x6
061a e5fb | | Load 0x2,-0x5
061b e5fc | | Load 0x2,-0x4
061c e5fd | | Load 0x2,-0x3
061d e5fe | | Load 0x2,-0x2
061e 822a | * | Call 0x1,0x2a
061f c5fb | | Store 0x2,-0x5
0620 c5fa | | Store 0x2,-0x6
0621 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0622 0000 0000 | | .BLANK 0000[0x6]
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 e01d | | Load 0x0,0x1d
062c 180e | | Execute Package,Field_Execute,Field_Number 0xe
062d 00db | | Load_Top At_Offset_3
062e 801e | | Call 0x0,0x1e
062f 0092 10aa | | Action Push_String_Extended,0x10aa ; "."
0631 01cc | | Execute Vector,Catenate
0632 01cb | | Execute Vector,Append
0633 4820 |H | Short_Literal 0x20
0634 4800 |H | Short_Literal 0x0
0635 480a |H | Short_Literal 0xa
0636 e5fe | | Load 0x2,-0x2
0637 e01a | | Load 0x0,0x1a
0638 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0639 01cc | | Execute Vector,Catenate
063a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
063b 0000 0000 | | .BLANK 0000[0x5]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0647 | G | .CONST 0x0647 ; Address of begin
0641 06e5 | | .CONST 0x06e5 ; Address of exception handler
0642 0005 | | .CONST 0x0005 ; Number of locals
0643 INIT_0640:
0643 00ec | | Load_Encached Diana_Tree_Cache
0644 00ec | | Load_Encached Diana_Tree_Cache
0645 00ec | | Load_Encached Diana_Tree_Cache
0646 00ec | | Load_Encached Diana_Tree_Cache
0647 BODY_0640:
0647 e5ff | | Load 0x2,-0x1
0648 00eb | | Load_Encached Diana_Cache
0649 1814 | | Execute Package,Field_Execute,Field_Number 0x14
064a 00d8 | | Load_Top At_Offset_0
064b 0c4f | O | Execute_Immediate Greater_Equal,0x4f
064c 7052 |pR | Jump_Nonzero 0x69f
064d 464e |FN | Jump_Case 0x4f
064e 7851 |xQ | Jump 0x6a0 ; case 0x0
064f 7850 |xP | Jump 0x6a0 ; case 0x1
0650 784f |xO | Jump 0x6a0 ; case 0x2
0651 784e |xN | Jump 0x6a0 ; case 0x3
0652 784d |xM | Jump 0x6a0 ; case 0x4
0653 784c |xL | Jump 0x6a0 ; case 0x5
0654 784b |xK | Jump 0x6a0 ; case 0x6
0655 784a |xJ | Jump 0x6a0 ; case 0x7
0656 7849 |xI | Jump 0x6a0 ; case 0x8
0657 7848 |xH | Jump 0x6a0 ; case 0x9
0658 7847 |xG | Jump 0x6a0 ; case 0xa
0659 7846 |xF | Jump 0x6a0 ; case 0xb
065a 7845 |xE | Jump 0x6a0 ; case 0xc
065b 7844 |xD | Jump 0x6a0 ; case 0xd
065c 7843 |xC | Jump 0x6a0 ; case 0xe
065d 7842 |xB | Jump 0x6a0 ; case 0xf
065e 7841 |xA | Jump 0x6a0 ; case 0x10
065f 7840 |x@ | Jump 0x6a0 ; case 0x11
0660 783f |x? | Jump 0x6a0 ; case 0x12
0661 783e |x> | Jump 0x6a0 ; case 0x13
0662 783d |x= | Jump 0x6a0 ; case 0x14
0663 783c |x< | Jump 0x6a0 ; case 0x15
0664 783b |x; | Jump 0x6a0 ; case 0x16
0665 783a |x: | Jump 0x6a0 ; case 0x17
0666 7839 |x9 | Jump 0x6a0 ; case 0x18
0667 7838 |x8 | Jump 0x6a0 ; case 0x19
0668 7837 |x7 | Jump 0x6a0 ; case 0x1a
0669 7836 |x6 | Jump 0x6a0 ; case 0x1b
066a 7835 |x5 | Jump 0x6a0 ; case 0x1c
066b 7834 |x4 | Jump 0x6a0 ; case 0x1d
066c 7833 |x3 | Jump 0x6a0 ; case 0x1e
066d 7832 |x2 | Jump 0x6a0 ; case 0x1f
066e 7831 |x1 | Jump 0x6a0 ; case 0x20
066f 7871 |xq | Jump 0x6e1 ; case 0x21
0670 7843 |xC | Jump 0x6b4 ; case 0x22
0671 782e |x. | Jump 0x6a0 ; case 0x23
0672 782d |x- | Jump 0x6a0 ; case 0x24
0673 782c |x, | Jump 0x6a0 ; case 0x25
0674 782b |x+ | Jump 0x6a0 ; case 0x26
0675 782a |x* | Jump 0x6a0 ; case 0x27
0676 7829 |x) | Jump 0x6a0 ; case 0x28
0677 782b |x+ | Jump 0x6a3 ; case 0x29
0678 7827 |x' | Jump 0x6a0 ; case 0x2a
0679 7826 |x& | Jump 0x6a0 ; case 0x2b
067a 7866 |xf | Jump 0x6e1 ; case 0x2c
067b 7824 |x$ | Jump 0x6a0 ; case 0x2d
067c 7864 |xd | Jump 0x6e1 ; case 0x2e
067d 781f |x | Jump 0x69d ; case 0x2f
067e 7844 |xD | Jump 0x6c3 ; case 0x30
067f 7820 |x | Jump 0x6a0 ; case 0x31
0680 781f |x | Jump 0x6a0 ; case 0x32
0681 785f |x_ | Jump 0x6e1 ; case 0x33
0682 781d |x | Jump 0x6a0 ; case 0x34
0683 781c |x | Jump 0x6a0 ; case 0x35
0684 781b |x | Jump 0x6a0 ; case 0x36
0685 781a |x | Jump 0x6a0 ; case 0x37
0686 7819 |x | Jump 0x6a0 ; case 0x38
0687 7818 |x | Jump 0x6a0 ; case 0x39
0688 7817 |x | Jump 0x6a0 ; case 0x3a
0689 7816 |x | Jump 0x6a0 ; case 0x3b
068a 7815 |x | Jump 0x6a0 ; case 0x3c
068b 7814 |x | Jump 0x6a0 ; case 0x3d
068c 7813 |x | Jump 0x6a0 ; case 0x3e
068d 7812 |x | Jump 0x6a0 ; case 0x3f
068e 7811 |x | Jump 0x6a0 ; case 0x40
068f 7810 |x | Jump 0x6a0 ; case 0x41
0690 780f |x | Jump 0x6a0 ; case 0x42
0691 780e |x | Jump 0x6a0 ; case 0x43
0692 780d |x | Jump 0x6a0 ; case 0x44
0693 780c |x | Jump 0x6a0 ; case 0x45
0694 780b |x | Jump 0x6a0 ; case 0x46
0695 780a |x | Jump 0x6a0 ; case 0x47
0696 7809 |x | Jump 0x6a0 ; case 0x48
0697 7808 |x | Jump 0x6a0 ; case 0x49
0698 7807 |x | Jump 0x6a0 ; case 0x4a
0699 7806 |x | Jump 0x6a0 ; case 0x4b
069a 7802 |x | Jump 0x69d ; case 0x4c
069b 7804 |x | Jump 0x6a0 ; case 0x4d
069c 7800 |x | Jump 0x69d ; case 0x4e
069d e5ff | | Load 0x2,-0x1
069e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
069f 00d1 | | Pop_Control Pop_Count_1
06a0 00eb | | Load_Encached Diana_Cache
06a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06a3 e5ff | | Load 0x2,-0x1
06a4 00eb | | Load_Encached Diana_Cache
06a5 18ec | | Execute Package,Field_Execute,Field_Number 0xec
06a6 0032 | 2 | Store_Top Heap_Access,At_Offset_2
06a7 00d9 | | Load_Top At_Offset_1
06a8 00eb | | Load_Encached Diana_Cache
06a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06aa 0f3e | > | Execute_Immediate Equal,0x3e
06ab 7004 |p | Jump_Nonzero 0x6b0
06ac e5ff | | Load 0x2,-0x1
06ad e00f | | Load 0x0,0xf
06ae 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06b0 00d9 | | Load_Top At_Offset_1
06b1 00eb | | Load_Encached Diana_Cache
06b2 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
06b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06b4 e5ff | | Load 0x2,-0x1
06b5 e00e | | Load 0x0,0xe
06b6 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
06b7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06b8 00d8 | | Load_Top At_Offset_0
06b9 00eb | | Load_Encached Diana_Cache
06ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06bb 0f7c | | | Execute_Immediate Equal,0x7c
06bc 7004 |p | Jump_Nonzero 0x6c1
06bd e5ff | | Load 0x2,-0x1
06be e00f | | Load 0x0,0xf
06bf 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06c1 00d8 | | Load_Top At_Offset_0
06c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06c3 e5fe | | Load 0x2,-0x2
06c4 e5ff | | Load 0x2,-0x1
06c5 e00f | | Load 0x0,0xf
06c6 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
06c7 a402 | | Store_Unchecked 0x2,0x2
06c8 00db | | Load_Top At_Offset_3
06c9 00eb | | Load_Encached Diana_Cache
06ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06cb 0f73 | s | Execute_Immediate Equal,0x73
06cc 6811 |h | Jump_Zero 0x6de
06cd 00db | | Load_Top At_Offset_3
06ce e5ff | | Load 0x2,-0x1
06cf e00f | | Load 0x0,0xf
06d0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
06d1 0033 | 3 | Store_Top Heap_Access,At_Offset_3
06d2 00da | | Load_Top At_Offset_2
06d3 00eb | | Load_Encached Diana_Cache
06d4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06d5 0f2e | . | Execute_Immediate Equal,0x2e
06d6 6804 |h | Jump_Zero 0x6db
06d7 00da | | Load_Top At_Offset_2
06d8 e00f | | Load 0x0,0xf
06d9 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06db 00eb | | Load_Encached Diana_Cache
06dc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06de 00eb | | Load_Encached Diana_Cache
06df 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06e1 e5ff | | Load 0x2,-0x1
06e2 e00f | | Load 0x0,0xf
06e3 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
06e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06e5 TRAP_0640:
06e5 0007 | | Action Break_Optional
06e6 00eb | | Load_Encached Diana_Cache
06e7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06e9 0000 0000 | | .BLANK 0000[0x7]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f5 | | .CONST 0x06f5 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0003 | | .CONST 0x0003 ; Number of locals
06f3 INIT_06f0:
06f3 00ec | | Load_Encached Diana_Tree_Cache
06f4 00ec | | Load_Encached Diana_Tree_Cache
06f5 BODY_06f0:
06f5 e5ff | | Load 0x2,-0x1
06f6 801f | | Call 0x0,0x1f
06f7 682a |h* | Jump_Zero 0x722
06f8 e5fd | | Load 0x2,-0x3
06f9 e5fe | | Load 0x2,-0x2
06fa 822d | - | Call 0x1,0x2d
06fb 0032 | 2 | Store_Top Heap_Access,At_Offset_2
06fc 00d9 | | Load_Top At_Offset_1
06fd 00eb | | Load_Encached Diana_Cache
06fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06ff 0f4e | N | Execute_Immediate Equal,0x4e
0700 7005 |p | Jump_Nonzero 0x706
0701 00d9 | | Load_Top At_Offset_1
0702 00eb | | Load_Encached Diana_Cache
0703 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0704 0f4c | L | Execute_Immediate Equal,0x4c
0705 681c |h | Jump_Zero 0x722
0706 e5ff | | Load 0x2,-0x1
0707 8020 | | Call 0x0,0x20
0708 00d8 | | Load_Top At_Offset_0
0709 00e4 | | Load_Encached Positive_Cache
070a 0260 | ` | Execute Discrete,In_Type
070b 7001 |p | Jump_Nonzero 0x70d
070c 0801 | | Execute_Immediate Raise,0x1
070d 00da | | Load_Top At_Offset_2
070e 8021 | ! | Call 0x0,0x21
070f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0710 00d8 | | Load_Top At_Offset_0
0711 00eb | | Load_Encached Diana_Cache
0712 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0713 700e |p | Jump_Nonzero 0x722
0714 00d8 | | Load_Top At_Offset_0
0715 e00e | | Load 0x0,0xe
0716 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0717 680a |h | Jump_Zero 0x722
0718 e5fc | | Load 0x2,-0x4
0719 00d8 | | Load_Top At_Offset_0
071a 00eb | | Load_Encached Diana_Cache
071b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
071c 00da | | Load_Top At_Offset_2
071d e00e | | Load 0x0,0xe
071e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
071f e5fc | | Load 0x2,-0x4
0720 021f | | Execute Heap_Access,Equal
0721 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0722 4800 |H | Short_Literal 0x0
0723 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0724 0000 0000 | | .BLANK 0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b 00da | | Load_Top At_Offset_2
072c 680c |h | Jump_Zero 0x739
072d 0092 10b3 | | Action Push_String_Extended,0x10b3 ; "the loop with parameter "
072f e5fe | | Load 0x2,-0x2
0730 00eb | | Load_Encached Diana_Cache
0731 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0732 00eb | | Load_Encached Diana_Cache
0733 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0734 01cc | | Execute Vector,Catenate
0735 0092 10b4 | | Action Push_String_Extended,0x10b4 ; " in "
0737 01cc | | Execute Vector,Catenate
0738 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0739 00ea | | Load_Encached Null_String_Cache
073a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
073b 0000 0000 | | .BLANK 0000[0x5]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0744 | D | .CONST 0x0744 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0002 | | .CONST 0x0002 ; Number of locals
0743 INIT_0740:
0743 00ec | | Load_Encached Diana_Tree_Cache
0744 BODY_0740:
0744 00db | | Load_Top At_Offset_3
0745 00eb | | Load_Encached Diana_Cache
0746 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0747 00d8 | | Load_Top At_Offset_0
0748 4821 |H! | Short_Literal 0x21
0749 4833 |H3 | Short_Literal 0x33
074a 0262 | b | Execute Discrete,In_Range
074b 6822 |h" | Jump_Zero 0x76e
074c 0adf | | Execute_Immediate Plus,-0x21
074d 4612 |F | Jump_Case 0x13
074e 7812 |x | Jump 0x761 ; case 0x0
074f 781f |x | Jump 0x76f ; case 0x1
0750 781e |x | Jump 0x76f ; case 0x2
0751 781d |x | Jump 0x76f ; case 0x3
0752 781c |x | Jump 0x76f ; case 0x4
0753 781b |x | Jump 0x76f ; case 0x5
0754 781a |x | Jump 0x76f ; case 0x6
0755 7819 |x | Jump 0x76f ; case 0x7
0756 780a |x | Jump 0x761 ; case 0x8
0757 7817 |x | Jump 0x76f ; case 0x9
0758 7816 |x | Jump 0x76f ; case 0xa
0759 7807 |x | Jump 0x761 ; case 0xb
075a 7814 |x | Jump 0x76f ; case 0xc
075b 7813 |x | Jump 0x76f ; case 0xd
075c 7812 |x | Jump 0x76f ; case 0xe
075d 7811 |x | Jump 0x76f ; case 0xf
075e 7810 |x | Jump 0x76f ; case 0x10
075f 780f |x | Jump 0x76f ; case 0x11
0760 7800 |x | Jump 0x761 ; case 0x12
0761 00db | | Load_Top At_Offset_3
0762 00eb | | Load_Encached Diana_Cache
0763 18f8 | | Execute Package,Field_Execute,Field_Number 0xf8
0764 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0765 00d8 | | Load_Top At_Offset_0
0766 00eb | | Load_Encached Diana_Cache
0767 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0768 0f36 | 6 | Execute_Immediate Equal,0x36
0769 6805 |h | Jump_Zero 0x76f
076a 00d8 | | Load_Top At_Offset_0
076b e00f | | Load 0x0,0xf
076c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
076d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
076e 00d1 | | Pop_Control Pop_Count_1
076f 00eb | | Load_Encached Diana_Cache
0770 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0771 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0772 0000 0000 | | .BLANK 0000[0x6]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b | { | .CONST 0x077b ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0001 | | .CONST 0x0001 ; Number of locals
077b BODY_0778:
077b INIT_0778:
077b 00da | | Load_Top At_Offset_2
077c 00eb | | Load_Encached Diana_Cache
077d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
077e 0f4c | L | Execute_Immediate Equal,0x4c
077f 6806 |h | Jump_Zero 0x786
0780 00da | | Load_Top At_Offset_2
0781 00eb | | Load_Encached Diana_Cache
0782 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0783 00eb | | Load_Encached Diana_Cache
0784 18fa | | Execute Package,Field_Execute,Field_Number 0xfa
0785 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0786 00eb | | Load_Encached Diana_Cache
0787 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0788 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0789 0000 0000 | | .BLANK 0000[0x7]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793 | | .CONST 0x0793 ; Address of begin
0791 07b5 | | .CONST 0x07b5 ; Address of exception handler
0792 0001 | | .CONST 0x0001 ; Number of locals
0793 BODY_0790:
0793 INIT_0790:
0793 00da | | Load_Top At_Offset_2
0794 e5fe | | Load 0x2,-0x2
0795 021f | | Execute Heap_Access,Equal
0796 701c |p | Jump_Nonzero 0x7b3
0797 00db | | Load_Top At_Offset_3
0798 00eb | | Load_Encached Diana_Cache
0799 1814 | | Execute Package,Field_Execute,Field_Number 0x14
079a 0f22 | " | Execute_Immediate Equal,0x22
079b 6805 |h | Jump_Zero 0x7a1
079c 00db | | Load_Top At_Offset_3
079d 00db | | Load_Top At_Offset_3
079e 8230 | 0 | Call 0x1,0x30
079f 021f | | Execute Heap_Access,Equal
07a0 7010 |p | Jump_Nonzero 0x7b1
07a1 00da | | Load_Top At_Offset_2
07a2 e00e | | Load 0x0,0xe
07a3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
07a4 6805 |h | Jump_Zero 0x7aa
07a5 00da | | Load_Top At_Offset_2
07a6 8022 | " | Call 0x0,0x22
07a7 e5fe | | Load 0x2,-0x2
07a8 021f | | Execute Heap_Access,Equal
07a9 7005 |p | Jump_Nonzero 0x7af
07aa 00db | | Load_Top At_Offset_3
07ab 00db | | Load_Top At_Offset_3
07ac 8231 | 1 | Call 0x1,0x31
07ad 021f | | Execute Heap_Access,Equal
07ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07af 4801 |H | Short_Literal 0x1
07b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07b1 4801 |H | Short_Literal 0x1
07b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07b3 4801 |H | Short_Literal 0x1
07b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07b5 TRAP_0790:
07b5 0007 | | Action Break_Optional
07b6 4800 |H | Short_Literal 0x0
07b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07c5 | | .CONST 0x07c5 ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0004 | | .CONST 0x0004 ; Number of locals
07bb INIT_07b8:
07bb 00ec | | Load_Encached Diana_Tree_Cache
07bc e023 | # | Load 0x0,0x23
07bd 0322 | " | Declare_Variable Record
07be 00d8 | | Load_Top At_Offset_0
07bf 1c00 | | Execute_Immediate Run_Utility,0x0
07c0 e002 | | Load 0x0,0x2
07c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c2 02c7 | | Declare_Variable Any
07c3 00d8 | | Load_Top At_Offset_0
07c4 1c00 | | Execute_Immediate Run_Utility,0x0
07c5 BODY_07b8:
07c5 00d8 | | Load_Top At_Offset_0
07c6 00da | | Load_Top At_Offset_2
07c7 e5fe | | Load 0x2,-0x2
07c8 e5ff | | Load 0x2,-0x1
07c9 8024 | $ | Call 0x0,0x24
07ca 00d1 | | Pop_Control Pop_Count_1
07cb c404 | | Store 0x2,0x4
07cc 4802 |H | Short_Literal 0x2
07cd 00d9 | | Load_Top At_Offset_1
07ce e002 | | Load 0x0,0x2
07cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07d0 6805 |h | Jump_Zero 0x7d6
07d1 4800 |H | Short_Literal 0x0
07d2 a5fa | | Store_Unchecked 0x2,-0x6
07d3 4801 |H | Short_Literal 0x1
07d4 a5f9 | | Store_Unchecked 0x2,-0x7
07d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07d6 00d9 | | Load_Top At_Offset_1
07d7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
07d8 8025 | % | Call 0x0,0x25
07d9 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07da 00d9 | | Load_Top At_Offset_1
07db 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
07dc a5f9 | | Store_Unchecked 0x2,-0x7
07dd e5fd | | Load 0x2,-0x3
07de 00db | | Load_Top At_Offset_3
07df e00f | | Load 0x0,0xf
07e0 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07e1 8232 | 2 | Call 0x1,0x32
07e2 680c |h | Jump_Zero 0x7ef
07e3 e5fc | | Load 0x2,-0x4
07e4 6808 |h | Jump_Zero 0x7ed
07e5 e5fb | | Load 0x2,-0x5
07e6 00da | | Load_Top At_Offset_2
07e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07e8 e402 | | Load 0x2,0x2
07e9 e403 | | Load 0x2,0x3
07ea 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
07eb 822e | . | Call 0x1,0x2e
07ec 7803 |x | Jump 0x7f0
07ed 4801 |H | Short_Literal 0x1
07ee 7801 |x | Jump 0x7f0
07ef 4800 |H | Short_Literal 0x0
07f0 a5fa | | Store_Unchecked 0x2,-0x6
07f1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
07f2 0000 0000 | | .BLANK 0000[0x6]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 0816 | | .CONST 0x0816 ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0009 | | .CONST 0x0009 ; Number of locals
07fb INIT_07f8:
07fb 00da | | Load_Top At_Offset_2
07fc e00f | | Load 0x0,0xf
07fd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07fe 480a |H | Short_Literal 0xa
07ff 8026 | & | Call 0x0,0x26
0800 00e2 | | Load_Encached Integer_Cache
0801 03f1 | | Declare_Variable Discrete,With_Value
0802 4809 |H | Short_Literal 0x9
0803 8026 | & | Call 0x0,0x26
0804 00e3 | | Load_Encached Natural_Cache
0805 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0806 00d9 | | Load_Top At_Offset_1
0807 00d9 | | Load_Top At_Offset_1
0808 0273 | s | Execute Discrete,Plus
0809 0aff | | Execute_Immediate Plus,-0x1
080a 00e2 | | Load_Encached Integer_Cache
080b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
080c e5fc | | Load 0x2,-0x4
080d 00eb | | Load_Encached Diana_Cache
080e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
080f 0f26 | & | Execute_Immediate Equal,0x26
0810 00e1 | | Load_Encached Boolean_Cache
0811 03f1 | | Declare_Variable Discrete,With_Value
0812 00e1 | | Load_Encached Boolean_Cache
0813 00e1 | | Load_Encached Boolean_Cache
0814 029f 0fab | | Declare_Subprogram INIT_0fa8,For_Call
0816 BODY_07f8:
0816 4800 |H | Short_Literal 0x0
0817 a5fb | | Store_Unchecked 0x2,-0x5
0818 e5fe | | Load 0x2,-0x2
0819 8027 | ' | Call 0x0,0x27
081a 7007 |p | Jump_Nonzero 0x822
081b e5fa | | Load 0x2,-0x6
081c 0092 10b5 | | Action Push_String_Extended,0x10b5 ; "Nonexistent task"
081e e002 | | Load 0x0,0x2
081f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0820 c5fa | | Store 0x2,-0x6
0821 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0822 e5fd | | Load 0x2,-0x3
0823 6805 |h | Jump_Zero 0x829
0824 e5fd | | Load 0x2,-0x3
0825 8409 | | Call 0x2,0x9
0826 00da | | Load_Top At_Offset_2
0827 6801 |h | Jump_Zero 0x829
0828 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0829 00cf | | Action Mark_Auxiliary
082a e405 | | Load 0x2,0x5
082b e403 | | Load 0x2,0x3
082c 0263 | c | Execute Discrete,Above_Bound
082d 700b |p | Jump_Nonzero 0x839
082e 00d8 | | Load_Top At_Offset_0
082f 8409 | | Call 0x2,0x9
0830 e407 | | Load 0x2,0x7
0831 6801 |h | Jump_Zero 0x833
0832 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0833 e408 | | Load 0x2,0x8
0834 6802 |h | Jump_Zero 0x837
0835 00d2 | | Pop_Control Pop_Count_2
0836 7802 |x | Jump 0x839
0837 00c8 | | Action Pop_Auxiliary_Range
0838 3ff5 |? | Loop_Increasing 0x82e
0839 00ce | | Action Pop_Auxiliary
083a e5fa | | Load 0x2,-0x6
083b 0092 10b6 | | Action Push_String_Extended,0x10b6 ; "There is no activation of "
083d e5fc | | Load 0x2,-0x4
083e e406 | | Load 0x2,0x6
083f 822f | / | Call 0x1,0x2f
0840 01cc | | Execute Vector,Catenate
0841 4801 |H | Short_Literal 0x1
0842 e402 | | Load 0x2,0x2
0843 8215 | | Call 0x1,0x15
0844 01cc | | Execute Vector,Catenate
0845 0092 10b7 | | Action Push_String_Extended,0x10b7 ; " in stack frames"
0847 01cc | | Execute Vector,Catenate
0848 e403 | | Load 0x2,0x3
0849 00e0 | | Load_Encached Standard_Cache
084a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
084b 01cc | | Execute Vector,Catenate
084c 0092 10b8 | | Action Push_String_Extended,0x10b8 ; " through"
084e 01cc | | Execute Vector,Catenate
084f e405 | | Load 0x2,0x5
0850 00e0 | | Load_Encached Standard_Cache
0851 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0852 01cc | | Execute Vector,Catenate
0853 0092 10b9 | | Action Push_String_Extended,0x10b9 ; " of task "
0855 01cc | | Execute Vector,Catenate
0856 e5fe | | Load 0x2,-0x2
0857 801e | | Call 0x0,0x1e
0858 01cc | | Execute Vector,Catenate
0859 e002 | | Load 0x0,0x2
085a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
085b c5fa | | Store 0x2,-0x6
085c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
085d 0000 0000 | | .XXX[0x3]
085f 0000 | |
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 086f | o | .CONST 0x086f ; Address of begin
0861 0004 | | .CONST 0x0004 ; Address of exception handler
0862 0007 | | .CONST 0x0007 ; Number of locals
0863 INIT_0860:
0863 00da | | Load_Top At_Offset_2
0864 e00e | | Load 0x0,0xe
0865 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0866 e00f | | Load 0x0,0xf
0867 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0868 00e3 | | Load_Encached Natural_Cache
0869 e028 | ( | Load 0x0,0x28
086a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
086b 00e1 | | Load_Encached Boolean_Cache
086c 00ec | | Load_Encached Diana_Tree_Cache
086d 029f 0fc3 | | Declare_Subprogram INIT_0fc0,For_Call
086f BODY_0860:
086f e5fb | | Load 0x2,-0x5
0870 e5fd | | Load 0x2,-0x3
0871 e5fe | | Load 0x2,-0x2
0872 e402 | | Load 0x2,0x2
0873 8221 | ! | Call 0x1,0x21
0874 e009 | | Load 0x0,0x9
0875 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0876 c5fb | | Store 0x2,-0x5
0877 0092 10ba | | Action Push_String_Extended,0x10ba ; "The object "
0879 e5fb | | Load 0x2,-0x5
087a e009 | | Load 0x0,0x9
087b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
087c 01cc | | Execute Vector,Catenate
087d 0092 10bb | | Action Push_String_Extended,0x10bb ; " is not part of the program being debugged"
087f 01cc | | Execute Vector,Catenate
0880 e5fb | | Load 0x2,-0x5
0881 e009 | | Load 0x0,0x9
0882 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0883 0c00 | | Execute_Immediate Greater_Equal,0x0
0884 6806 |h | Jump_Zero 0x88b
0885 4801 |H | Short_Literal 0x1
0886 e5fb | | Load 0x2,-0x5
0887 e009 | | Load 0x0,0x9
0888 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0889 0f2e | . | Execute_Immediate Equal,0x2e
088a 7801 |x | Jump 0x88c
088b 4800 |H | Short_Literal 0x0
088c 8407 | | Call 0x2,0x7
088d 4802 |H | Short_Literal 0x2
088e e5fa | | Load 0x2,-0x6
088f e002 | | Load 0x0,0x2
0890 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0891 6801 |h | Jump_Zero 0x893
0892 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0893 4801 |H | Short_Literal 0x1
0894 e402 | | Load 0x2,0x2
0895 4975 |Iu | Short_Literal 0x175
0896 00eb | | Load_Encached Diana_Cache
0897 0098 | | Execute Package,Field_Read_Dynamic
0898 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0899 0032 | 2 | Store_Top Heap_Access,At_Offset_2
089a e5fa | | Load 0x2,-0x6
089b 00e1 | | Load_Encached Boolean_Cache
089c e028 | ( | Load 0x0,0x28
089d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
089e 00e3 | | Load_Encached Natural_Cache
089f e029 | ) | Load 0x0,0x29
08a0 4801 |H | Short_Literal 0x1
08a1 00ea | | Load_Encached Null_String_Cache
08a2 e406 | | Load 0x2,0x6
08a3 802a | * | Call 0x0,0x2a
08a4 c029 | ) | Store 0x0,0x29
08a5 c403 | | Store 0x2,0x3
08a6 c404 | | Store 0x2,0x4
08a7 c405 | | Store 0x2,0x5
08a8 c5fa | | Store 0x2,-0x6
08a9 4802 |H | Short_Literal 0x2
08aa e5fa | | Load 0x2,-0x6
08ab e002 | | Load 0x0,0x2
08ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08ad 6816 |h | Jump_Zero 0x8c4
08ae e5fb | | Load 0x2,-0x5
08af 4800 |H | Short_Literal 0x0
08b0 e5fd | | Load 0x2,-0x3
08b1 e5fe | | Load 0x2,-0x2
08b2 e5ff | | Load 0x2,-0x1
08b3 8220 | | Call 0x1,0x20
08b4 e009 | | Load 0x0,0x9
08b5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
08b6 c5fb | | Store 0x2,-0x5
08b7 0092 10bc | | Action Push_String_Extended,0x10bc ; "Warning: The object "
08b9 4800 |H | Short_Literal 0x0
08ba 00db | | Load_Top At_Offset_3
08bb e00f | | Load 0x0,0xf
08bc 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
08bd 01cc | | Execute Vector,Catenate
08be 0092 10bb | | Action Push_String_Extended,0x10bb ; " is not part of the program being debugged"
08c0 01cc | | Execute Vector,Catenate
08c1 e002 | | Load 0x0,0x2
08c2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
08c3 c5fa | | Store 0x2,-0x6
08c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
08c5 0000 0000 | | .XXX[0x3]
08c7 0000 | |
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb | | .CONST 0x08cb ; Address of begin
08c9 0004 | | .CONST 0x0004 ; Address of exception handler
08ca 0001 | | .CONST 0x0001 ; Number of locals
08cb BODY_08c8:
08cb INIT_08c8:
08cb e5fb | | Load 0x2,-0x5
08cc e5fc | | Load 0x2,-0x4
08cd e5ff | | Load 0x2,-0x1
08ce e5fe | | Load 0x2,-0x2
08cf 0092 10b1 | | Action Push_String_Extended,0x10b1 ; "Cannot "
08d1 e5fd | | Load 0x2,-0x3
08d2 e5fe | | Load 0x2,-0x2
08d3 821d | | Call 0x1,0x1d
08d4 01cc | | Execute Vector,Catenate
08d5 0092 10bd | | Action Push_String_Extended,0x10bd ; " for an entry declaration"
08d7 01cc | | Execute Vector,Catenate
08d8 e5ff | | Load 0x2,-0x1
08d9 e00e | | Load 0x0,0xe
08da 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
08db 0f00 | | Execute_Immediate Equal,0x0
08dc 822b | + | Call 0x1,0x2b
08dd c5fc | | Store 0x2,-0x4
08de c5fb | | Store 0x2,-0x5
08df 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3 | | .CONST 0x08e3 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0001 | | .CONST 0x0001 ; Number of locals
08e3 BODY_08e0:
08e3 INIT_08e0:
08e3 e5fb | | Load 0x2,-0x5
08e4 e5fc | | Load 0x2,-0x4
08e5 e5fd | | Load 0x2,-0x3
08e6 e5fe | | Load 0x2,-0x2
08e7 e5ff | | Load 0x2,-0x1
08e8 8236 | 6 | Call 0x1,0x36
08e9 c5fc | | Store 0x2,-0x4
08ea c5fb | | Store 0x2,-0x5
08eb 4802 |H | Short_Literal 0x2
08ec e5fb | | Load 0x2,-0x5
08ed e002 | | Load 0x0,0x2
08ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08ef 7009 |p | Jump_Nonzero 0x8f9
08f0 e5fb | | Load 0x2,-0x5
08f1 e5fc | | Load 0x2,-0x4
08f2 e5fe | | Load 0x2,-0x2
08f3 4820 |H | Short_Literal 0x20
08f4 4800 |H | Short_Literal 0x0
08f5 e5ff | | Load 0x2,-0x1
08f6 8235 | 5 | Call 0x1,0x35
08f7 c5fc | | Store 0x2,-0x4
08f8 c5fb | | Store 0x2,-0x5
08f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
08fa 0000 0000 | | .BLANK 0000[0x6]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0906 | | .CONST 0x0906 ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0004 | | .CONST 0x0004 ; Number of locals
0903 INIT_0900:
0903 00ec | | Load_Encached Diana_Tree_Cache
0904 00e3 | | Load_Encached Natural_Cache
0905 00e8 | | Load_Encached Character_Cache
0906 BODY_0900:
0906 e5fb | | Load 0x2,-0x5
0907 e5fc | | Load 0x2,-0x4
0908 e5fd | | Load 0x2,-0x3
0909 e5fe | | Load 0x2,-0x2
090a e5ff | | Load 0x2,-0x1
090b 8236 | 6 | Call 0x1,0x36
090c c5fc | | Store 0x2,-0x4
090d c5fb | | Store 0x2,-0x5
090e 4802 |H | Short_Literal 0x2
090f e5fb | | Load 0x2,-0x5
0910 e002 | | Load 0x0,0x2
0911 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0912 6801 |h | Jump_Zero 0x914
0913 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0914 e5fb | | Load 0x2,-0x5
0915 00e8 | | Load_Encached Character_Cache
0916 00e3 | | Load_Encached Natural_Cache
0917 00ec | | Load_Encached Diana_Tree_Cache
0918 e5fe | | Load 0x2,-0x2
0919 e5ff | | Load 0x2,-0x1
091a 8222 | " | Call 0x1,0x22
091b c402 | | Store 0x2,0x2
091c c403 | | Store 0x2,0x3
091d 005a | Z | Store_Top Discrete,At_Offset_2
091e c5fb | | Store 0x2,-0x5
091f 4802 |H | Short_Literal 0x2
0920 e5fb | | Load 0x2,-0x5
0921 e002 | | Load 0x0,0x2
0922 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0923 6801 |h | Jump_Zero 0x925
0924 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0925 e5fb | | Load 0x2,-0x5
0926 e5fe | | Load 0x2,-0x2
0927 0092 10be | | Action Push_String_Extended,0x10be ; "unable to obtain object's statement or declaration number"
0929 e403 | | Load 0x2,0x3
092a 0c01 | | Execute_Immediate Greater_Equal,0x1
092b 8229 | ) | Call 0x1,0x29
092c c5fb | | Store 0x2,-0x5
092d 4802 |H | Short_Literal 0x2
092e e5fb | | Load 0x2,-0x5
092f e002 | | Load 0x0,0x2
0930 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0931 6801 |h | Jump_Zero 0x933
0932 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0933 e5fb | | Load 0x2,-0x5
0934 e5fc | | Load 0x2,-0x4
0935 e5fe | | Load 0x2,-0x2
0936 00db | | Load_Top At_Offset_3
0937 e403 | | Load 0x2,0x3
0938 e402 | | Load 0x2,0x2
0939 8235 | 5 | Call 0x1,0x35
093a c5fc | | Store 0x2,-0x4
093b c5fb | | Store 0x2,-0x5
093c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
093d 0000 0000 | | .XXX[0x3]
093f 0000 | |
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0949 | I | .CONST 0x0949 ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0005 | | .CONST 0x0005 ; Number of locals
0943 INIT_0940:
0943 00da | | Load_Top At_Offset_2
0944 00eb | | Load_Encached Diana_Cache
0945 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0946 00ec | | Load_Encached Diana_Tree_Cache
0947 00e3 | | Load_Encached Natural_Cache
0948 00e8 | | Load_Encached Character_Cache
0949 BODY_0940:
0949 00cf | | Action Mark_Auxiliary
094a 7826 |x& | Jump 0x971
094b e402 | | Load 0x2,0x2
094c e00e | | Load 0x0,0xe
094d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
094e 681d |h | Jump_Zero 0x96c
094f e5fc | | Load 0x2,-0x4
0950 00e8 | | Load_Encached Character_Cache
0951 00e3 | | Load_Encached Natural_Cache
0952 00ec | | Load_Encached Diana_Tree_Cache
0953 e5fe | | Load 0x2,-0x2
0954 e402 | | Load 0x2,0x2
0955 8222 | " | Call 0x1,0x22
0956 c403 | | Store 0x2,0x3
0957 c404 | | Store 0x2,0x4
0958 005b | [ | Store_Top Discrete,At_Offset_3
0959 c5fc | | Store 0x2,-0x4
095a 4802 |H | Short_Literal 0x2
095b e5fc | | Load 0x2,-0x4
095c e002 | | Load 0x0,0x2
095d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
095e 700d |p | Jump_Nonzero 0x96c
095f 00da | | Load_Top At_Offset_2
0960 0c01 | | Execute_Immediate Greater_Equal,0x1
0961 680a |h | Jump_Zero 0x96c
0962 e5fc | | Load 0x2,-0x4
0963 e5fd | | Load 0x2,-0x3
0964 e5fe | | Load 0x2,-0x2
0965 e405 | | Load 0x2,0x5
0966 e404 | | Load 0x2,0x4
0967 e403 | | Load 0x2,0x3
0968 8235 | 5 | Call 0x1,0x35
0969 c5fd | | Store 0x2,-0x3
096a c5fc | | Store 0x2,-0x4
096b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
096c e402 | | Load 0x2,0x2
096d 00eb | | Load_Encached Diana_Cache
096e 18ec | | Execute Package,Field_Execute,Field_Number 0xec
096f a402 | | Store_Unchecked 0x2,0x2
0970 00c9 | | Action Pop_Auxiliary_Loop
0971 e402 | | Load 0x2,0x2
0972 00eb | | Load_Encached Diana_Cache
0973 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0974 700a |p | Jump_Nonzero 0x97f
0975 e402 | | Load 0x2,0x2
0976 00eb | | Load_Encached Diana_Cache
0977 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0978 0f4e | N | Execute_Immediate Equal,0x4e
0979 7005 |p | Jump_Nonzero 0x97f
097a e00d | | Load 0x0,0xd
097b e402 | | Load 0x2,0x2
097c e00f | | Load 0x0,0xf
097d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
097e 6fcc |o | Jump_Zero 0x94b
097f 00ce | | Action Pop_Auxiliary
0980 e5fc | | Load 0x2,-0x4
0981 00ea | | Load_Encached Null_String_Cache
0982 e5fe | | Load 0x2,-0x2
0983 0092 10bf | | Action Push_String_Extended,0x10bf ; "unable to obtain object's statement number in "
0985 4801 |H | Short_Literal 0x1
0986 e403 | | Load 0x2,0x3
0987 8215 | | Call 0x1,0x15
0988 01cc | | Execute Vector,Catenate
0989 8228 | ( | Call 0x1,0x28
098a c5fc | | Store 0x2,-0x4
098b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
098c 0000 0000 | | .BLANK 0000[0x4]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0999 | | .CONST 0x0999 ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0005 | | .CONST 0x0005 ; Number of locals
0993 INIT_0990:
0993 00da | | Load_Top At_Offset_2
0994 00eb | | Load_Encached Diana_Cache
0995 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0996 00ec | | Load_Encached Diana_Tree_Cache
0997 00e3 | | Load_Encached Natural_Cache
0998 00e8 | | Load_Encached Character_Cache
0999 BODY_0990:
0999 00cf | | Action Mark_Auxiliary
099a 784c |xL | Jump 0x9e7
099b e402 | | Load 0x2,0x2
099c 8219 | | Call 0x1,0x19
099d 6836 |h6 | Jump_Zero 0x9d4
099e e5fb | | Load 0x2,-0x5
099f 00e8 | | Load_Encached Character_Cache
09a0 00e3 | | Load_Encached Natural_Cache
09a1 00ec | | Load_Encached Diana_Tree_Cache
09a2 e5fe | | Load 0x2,-0x2
09a3 e402 | | Load 0x2,0x2
09a4 8222 | " | Call 0x1,0x22
09a5 c403 | | Store 0x2,0x3
09a6 c404 | | Store 0x2,0x4
09a7 005b | [ | Store_Top Discrete,At_Offset_3
09a8 c5fb | | Store 0x2,-0x5
09a9 4802 |H | Short_Literal 0x2
09aa e5fb | | Load 0x2,-0x5
09ab e002 | | Load 0x0,0x2
09ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09ad 6801 |h | Jump_Zero 0x9af
09ae 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09af 00da | | Load_Top At_Offset_2
09b0 0c01 | | Execute_Immediate Greater_Equal,0x1
09b1 680a |h | Jump_Zero 0x9bc
09b2 e5fb | | Load 0x2,-0x5
09b3 e5fc | | Load 0x2,-0x4
09b4 e5fe | | Load 0x2,-0x2
09b5 e405 | | Load 0x2,0x5
09b6 e404 | | Load 0x2,0x4
09b7 e403 | | Load 0x2,0x3
09b8 8235 | 5 | Call 0x1,0x35
09b9 c5fc | | Store 0x2,-0x4
09ba c5fb | | Store 0x2,-0x5
09bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09bc e402 | | Load 0x2,0x2
09bd e00e | | Load 0x0,0xe
09be 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
09bf 680c |h | Jump_Zero 0x9cc
09c0 e5fb | | Load 0x2,-0x5
09c1 00ea | | Load_Encached Null_String_Cache
09c2 e5fe | | Load 0x2,-0x2
09c3 0092 10c0 | | Action Push_String_Extended,0x10c0 ; "Unable to obtain object's declaration number in "
09c5 4801 |H | Short_Literal 0x1
09c6 e403 | | Load 0x2,0x3
09c7 8215 | | Call 0x1,0x15
09c8 01cc | | Execute Vector,Catenate
09c9 8228 | ( | Call 0x1,0x28
09ca c5fb | | Store 0x2,-0x5
09cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09cc e5fb | | Load 0x2,-0x5
09cd e5fc | | Load 0x2,-0x4
09ce e5fe | | Load 0x2,-0x2
09cf e402 | | Load 0x2,0x2
09d0 8239 | 9 | Call 0x1,0x39
09d1 c5fc | | Store 0x2,-0x4
09d2 c5fb | | Store 0x2,-0x5
09d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09d4 e00d | | Load 0x0,0xd
09d5 e402 | | Load 0x2,0x2
09d6 e00f | | Load 0x0,0xf
09d7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
09d8 6809 |h | Jump_Zero 0x9e2
09d9 e5fb | | Load 0x2,-0x5
09da e5fc | | Load 0x2,-0x4
09db e5fd | | Load 0x2,-0x3
09dc e5fe | | Load 0x2,-0x2
09dd e402 | | Load 0x2,0x2
09de 8237 | 7 | Call 0x1,0x37
09df c5fc | | Store 0x2,-0x4
09e0 c5fb | | Store 0x2,-0x5
09e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09e2 e402 | | Load 0x2,0x2
09e3 00eb | | Load_Encached Diana_Cache
09e4 18ec | | Execute Package,Field_Execute,Field_Number 0xec
09e5 a402 | | Store_Unchecked 0x2,0x2
09e6 00c9 | | Action Pop_Auxiliary_Loop
09e7 e402 | | Load 0x2,0x2
09e8 00eb | | Load_Encached Diana_Cache
09e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09ea 6fb0 |o | Jump_Zero 0x99b
09eb 00ce | | Action Pop_Auxiliary
09ec e5fb | | Load 0x2,-0x5
09ed 00ea | | Load_Encached Null_String_Cache
09ee e5fe | | Load 0x2,-0x2
09ef 0092 10c1 | | Action Push_String_Extended,0x10c1 ; "A location selected at which to "
09f1 e5fd | | Load 0x2,-0x3
09f2 e5fe | | Load 0x2,-0x2
09f3 821d | | Call 0x1,0x1d
09f4 01cc | | Execute Vector,Catenate
09f5 0092 10c2 | | Action Push_String_Extended,0x10c2 ; " must be "
09f7 01cc | | Execute Vector,Catenate
09f8 0092 10c3 | | Action Push_String_Extended,0x10c3 ; "a statement, declaration or subprogram"
09fa 01cc | | Execute Vector,Catenate
09fb 8228 | ( | Call 0x1,0x28
09fc c5fb | | Store 0x2,-0x5
09fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09fe 0000 0000 | | .XXX[0x2]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a03 | | .CONST 0x0a03 ; Address of begin
0a01 0004 | | .CONST 0x0004 ; Address of exception handler
0a02 0001 | | .CONST 0x0001 ; Number of locals
0a03 BODY_0a00:
0a03 INIT_0a00:
0a03 e002 | | Load 0x0,0x2
0a04 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0a05 c5fb | | Store 0x2,-0x5
0a06 00da | | Load_Top At_Offset_2
0a07 8219 | | Call 0x1,0x19
0a08 6809 |h | Jump_Zero 0xa12
0a09 e5fb | | Load 0x2,-0x5
0a0a e5fc | | Load 0x2,-0x4
0a0b e5fd | | Load 0x2,-0x3
0a0c e5fe | | Load 0x2,-0x2
0a0d e5ff | | Load 0x2,-0x1
0a0e 8238 | 8 | Call 0x1,0x38
0a0f c5fc | | Store 0x2,-0x4
0a10 c5fb | | Store 0x2,-0x5
0a11 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a12 e00d | | Load 0x0,0xd
0a13 00db | | Load_Top At_Offset_3
0a14 e00f | | Load 0x0,0xf
0a15 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0a16 6809 |h | Jump_Zero 0xa20
0a17 e5fb | | Load 0x2,-0x5
0a18 e5fc | | Load 0x2,-0x4
0a19 e5fd | | Load 0x2,-0x3
0a1a e5fe | | Load 0x2,-0x2
0a1b e5ff | | Load 0x2,-0x1
0a1c 8237 | 7 | Call 0x1,0x37
0a1d c5fc | | Store 0x2,-0x4
0a1e c5fb | | Store 0x2,-0x5
0a1f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a20 e5fb | | Load 0x2,-0x5
0a21 e5fc | | Load 0x2,-0x4
0a22 e5fd | | Load 0x2,-0x3
0a23 e5fe | | Load 0x2,-0x2
0a24 e5ff | | Load 0x2,-0x1
0a25 823a | : | Call 0x1,0x3a
0a26 c5fc | | Store 0x2,-0x4
0a27 c5fb | | Store 0x2,-0x5
0a28 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a29 0000 0000 | | .BLANK 0000[0x7]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a3b | ; | .CONST 0x0a3b ; Address of begin
0a31 0ad9 | | .CONST 0x0ad9 ; Address of exception handler
0a32 0005 | | .CONST 0x0005 ; Number of locals
0a33 INIT_0a30:
0a33 00e3 | | Load_Encached Natural_Cache
0a34 00e8 | | Load_Encached Character_Cache
0a35 00ec | | Load_Encached Diana_Tree_Cache
0a36 e002 | | Load 0x0,0x2
0a37 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a38 02c7 | | Declare_Variable Any
0a39 00d8 | | Load_Top At_Offset_0
0a3a 1c00 | | Execute_Immediate Run_Utility,0x0
0a3b BODY_0a30:
0a3b e5ff | | Load 0x2,-0x1
0a3c 00eb | | Load_Encached Diana_Cache
0a3d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a3e 6805 |h | Jump_Zero 0xa44
0a3f e5ff | | Load 0x2,-0x1
0a40 a5fe | | Store_Unchecked 0x2,-0x2
0a41 e006 | | Load 0x0,0x6
0a42 c5fd | | Store 0x2,-0x3
0a43 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a44 e5ff | | Load 0x2,-0x1
0a45 00eb | | Load_Encached Diana_Cache
0a46 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a47 0f9e | | Execute_Immediate Equal,-0x62
0a48 6810 |h | Jump_Zero 0xa59
0a49 e5fd | | Load 0x2,-0x3
0a4a 0120 | | Execute Any,Is_Value
0a4b 6802 |h | Jump_Zero 0xa4e
0a4c e007 | | Load 0x0,0x7
0a4d 7801 |x | Jump 0xa4f
0a4e e5fd | | Load 0x2,-0x3
0a4f 00ec | | Load_Encached Diana_Tree_Cache
0a50 e5ff | | Load 0x2,-0x1
0a51 00eb | | Load_Encached Diana_Cache
0a52 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0a53 00eb | | Load_Encached Diana_Cache
0a54 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0a55 823c | < | Call 0x1,0x3c
0a56 c5fe | | Store 0x2,-0x2
0a57 c5fd | | Store 0x2,-0x3
0a58 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a59 e5ff | | Load 0x2,-0x1
0a5a e00e | | Load 0x0,0xe
0a5b 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0a5c 680e |h | Jump_Zero 0xa6b
0a5d e5fd | | Load 0x2,-0x3
0a5e 0120 | | Execute Any,Is_Value
0a5f 6802 |h | Jump_Zero 0xa62
0a60 e007 | | Load 0x0,0x7
0a61 7801 |x | Jump 0xa63
0a62 e5fd | | Load 0x2,-0x3
0a63 00ec | | Load_Encached Diana_Tree_Cache
0a64 e5ff | | Load 0x2,-0x1
0a65 e00e | | Load 0x0,0xe
0a66 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0a67 823c | < | Call 0x1,0x3c
0a68 c5fe | | Store 0x2,-0x2
0a69 c5fd | | Store 0x2,-0x3
0a6a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a6b e5ff | | Load 0x2,-0x1
0a6c e00e | | Load 0x0,0xe
0a6d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0a6e 680d |h | Jump_Zero 0xa7c
0a6f e5fd | | Load 0x2,-0x3
0a70 0120 | | Execute Any,Is_Value
0a71 6802 |h | Jump_Zero 0xa74
0a72 e007 | | Load 0x0,0x7
0a73 7801 |x | Jump 0xa75
0a74 e5fd | | Load 0x2,-0x3
0a75 00ec | | Load_Encached Diana_Tree_Cache
0a76 e5ff | | Load 0x2,-0x1
0a77 802b | + | Call 0x0,0x2b
0a78 823c | < | Call 0x1,0x3c
0a79 c5fe | | Store 0x2,-0x2
0a7a c5fd | | Store 0x2,-0x3
0a7b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a7c e00d | | Load 0x0,0xd
0a7d e5ff | | Load 0x2,-0x1
0a7e e00f | | Load 0x0,0xf
0a7f 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0a80 6807 |h | Jump_Zero 0xa88
0a81 e5ff | | Load 0x2,-0x1
0a82 e00e | | Load 0x0,0xe
0a83 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0a84 a5fe | | Store_Unchecked 0x2,-0x2
0a85 e006 | | Load 0x0,0x6
0a86 c5fd | | Store 0x2,-0x3
0a87 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0a88 e5ff | | Load 0x2,-0x1
0a89 8219 | | Call 0x1,0x19
0a8a 682c |h, | Jump_Zero 0xab7
0a8b 00d8 | | Load_Top At_Offset_0
0a8c 00e8 | | Load_Encached Character_Cache
0a8d 00e3 | | Load_Encached Natural_Cache
0a8e 00ec | | Load_Encached Diana_Tree_Cache
0a8f 4800 |H | Short_Literal 0x0
0a90 e5ff | | Load 0x2,-0x1
0a91 8222 | " | Call 0x1,0x22
0a92 c404 | | Store 0x2,0x4
0a93 c402 | | Store 0x2,0x2
0a94 c403 | | Store 0x2,0x3
0a95 c405 | | Store 0x2,0x5
0a96 4802 |H | Short_Literal 0x2
0a97 00d9 | | Load_Top At_Offset_1
0a98 e002 | | Load 0x0,0x2
0a99 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a9a 7002 |p | Jump_Nonzero 0xa9d
0a9b 00db | | Load_Top At_Offset_3
0a9c 700e |p | Jump_Nonzero 0xaab
0a9d e5fd | | Load 0x2,-0x3
0a9e 0120 | | Execute Any,Is_Value
0a9f 6802 |h | Jump_Zero 0xaa2
0aa0 e007 | | Load 0x0,0x7
0aa1 7801 |x | Jump 0xaa3
0aa2 e5fd | | Load 0x2,-0x3
0aa3 00ec | | Load_Encached Diana_Tree_Cache
0aa4 e5ff | | Load 0x2,-0x1
0aa5 00eb | | Load_Encached Diana_Cache
0aa6 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0aa7 823c | < | Call 0x1,0x3c
0aa8 c5fe | | Store 0x2,-0x2
0aa9 c5fd | | Store 0x2,-0x3
0aaa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0aab 00d9 | | Load_Top At_Offset_1
0aac e00e | | Load 0x0,0xe
0aad 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0aae a5fe | | Store_Unchecked 0x2,-0x2
0aaf 00da | | Load_Top At_Offset_2
0ab0 e402 | | Load 0x2,0x2
0ab1 00e0 | | Load_Encached Standard_Cache
0ab2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0ab3 01cb | | Execute Vector,Append
0ab4 802c | , | Call 0x0,0x2c
0ab5 c5fd | | Store 0x2,-0x3
0ab6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ab7 e5ff | | Load 0x2,-0x1
0ab8 e00e | | Load 0x0,0xe
0ab9 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0aba 6807 |h | Jump_Zero 0xac2
0abb e5ff | | Load 0x2,-0x1
0abc e00e | | Load 0x0,0xe
0abd 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0abe a5fe | | Store_Unchecked 0x2,-0x2
0abf e006 | | Load 0x0,0x6
0ac0 c5fd | | Store 0x2,-0x3
0ac1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ac2 e5ff | | Load 0x2,-0x1
0ac3 e00e | | Load 0x0,0xe
0ac4 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0ac5 6805 |h | Jump_Zero 0xacb
0ac6 e5ff | | Load 0x2,-0x1
0ac7 a5fe | | Store_Unchecked 0x2,-0x2
0ac8 e006 | | Load 0x0,0x6
0ac9 c5fd | | Store 0x2,-0x3
0aca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0acb e5fd | | Load 0x2,-0x3
0acc 0120 | | Execute Any,Is_Value
0acd 6802 |h | Jump_Zero 0xad0
0ace e007 | | Load 0x0,0x7
0acf 7801 |x | Jump 0xad1
0ad0 e5fd | | Load 0x2,-0x3
0ad1 00ec | | Load_Encached Diana_Tree_Cache
0ad2 e5ff | | Load 0x2,-0x1
0ad3 00eb | | Load_Encached Diana_Cache
0ad4 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0ad5 823c | < | Call 0x1,0x3c
0ad6 c5fe | | Store 0x2,-0x2
0ad7 c5fd | | Store 0x2,-0x3
0ad8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ad9 TRAP_0a30:
0ad9 0007 | | Action Break_Optional
0ada e5ff | | Load 0x2,-0x1
0adb a5fe | | Store_Unchecked 0x2,-0x2
0adc e006 | | Load 0x0,0x6
0add c5fd | | Store 0x2,-0x3
0ade 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0adf 0000 | | .XXX[0x1]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae5 | | .CONST 0x0ae5 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0003 | | .CONST 0x0003 ; Number of locals
0ae3 INIT_0ae0:
0ae3 00e1 | | Load_Encached Boolean_Cache
0ae4 00e1 | | Load_Encached Boolean_Cache
0ae5 BODY_0ae0:
0ae5 e5fd | | Load 0x2,-0x3
0ae6 6809 |h | Jump_Zero 0xaf0
0ae7 e5ff | | Load 0x2,-0x1
0ae8 8218 | | Call 0x1,0x18
0ae9 6806 |h | Jump_Zero 0xaf0
0aea e5fe | | Load 0x2,-0x2
0aeb 802d | - | Call 0x0,0x2d
0aec 7003 |p | Jump_Nonzero 0xaf0
0aed e5fe | | Load 0x2,-0x2
0aee 8027 | ' | Call 0x0,0x27
0aef 7002 |p | Jump_Nonzero 0xaf2
0af0 4800 |H | Short_Literal 0x0
0af1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0af2 00e1 | | Load_Encached Boolean_Cache
0af3 00e1 | | Load_Encached Boolean_Cache
0af4 00eb | | Load_Encached Diana_Cache
0af5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0af6 4800 |H | Short_Literal 0x0
0af7 e5ff | | Load 0x2,-0x1
0af8 e00f | | Load 0x0,0xf
0af9 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0afa e5fd | | Load 0x2,-0x3
0afb e5fe | | Load 0x2,-0x2
0afc 8233 | 3 | Call 0x1,0x33
0afd 005b | [ | Store_Top Discrete,At_Offset_3
0afe 0059 | Y | Store_Top Discrete,At_Offset_1
0aff 00d9 | | Load_Top At_Offset_1
0b00 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b01 0000 0000 | | .BLANK 0000[0x7]
0b08 ; --------------------------------------------------------------------------------------
0b08 ; SUBPROGRAM
0b08 ; --------------------------------------------------------------------------------------
0b08 0b0b | | .CONST 0x0b0b ; Address of begin
0b09 0004 | | .CONST 0x0004 ; Address of exception handler
0b0a 0001 | | .CONST 0x0001 ; Number of locals
0b0b BODY_0b08:
0b0b INIT_0b08:
0b0b 00da | | Load_Top At_Offset_2
0b0c 802d | - | Call 0x0,0x2d
0b0d 6802 |h | Jump_Zero 0xb10
0b0e 802e | . | Call 0x0,0x2e
0b0f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b10 00da | | Load_Top At_Offset_2
0b11 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b12 0000 0000 | | .BLANK 0000[0x6]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1b | | .CONST 0x0b1b ; Address of begin
0b19 0004 | | .CONST 0x0004 ; Address of exception handler
0b1a 0001 | | .CONST 0x0001 ; Number of locals
0b1b BODY_0b18:
0b1b INIT_0b18:
0b1b 00db | | Load_Top At_Offset_3
0b1c e009 | | Load 0x0,0x9
0b1d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0b1e 0c01 | | Execute_Immediate Greater_Equal,0x1
0b1f 680c |h | Jump_Zero 0xb2c
0b20 00da | | Load_Top At_Offset_2
0b21 802f | / | Call 0x0,0x2f
0b22 7009 |p | Jump_Nonzero 0xb2c
0b23 00db | | Load_Top At_Offset_3
0b24 0092 10aa | | Action Push_String_Extended,0x10aa ; "."
0b26 e5ff | | Load 0x2,-0x1
0b27 8030 | 0 | Call 0x0,0x30
0b28 01cc | | Execute Vector,Catenate
0b29 e009 | | Load 0x0,0x9
0b2a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0b2b c5fe | | Store 0x2,-0x2
0b2c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b2d 0000 0000 | | .XXX[0x3]
0b2f 0000 | |
0b30 ; --------------------------------------------------------------------------------------
0b30 ; SUBPROGRAM
0b30 ; --------------------------------------------------------------------------------------
0b30 0b46 | F | .CONST 0x0b46 ; Address of begin
0b31 0004 | | .CONST 0x0004 ; Address of exception handler
0b32 0008 | | .CONST 0x0008 ; Number of locals
0b33 INIT_0b30:
0b33 00ec | | Load_Encached Diana_Tree_Cache
0b34 e031 | 1 | Load 0x0,0x31
0b35 02c7 | | Declare_Variable Any
0b36 00d8 | | Load_Top At_Offset_0
0b37 1c00 | | Execute_Immediate Run_Utility,0x0
0b38 00e3 | | Load_Encached Natural_Cache
0b39 e002 | | Load 0x0,0x2
0b3a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b3b 02c7 | | Declare_Variable Any
0b3c 00d8 | | Load_Top At_Offset_0
0b3d 1c00 | | Execute_Immediate Run_Utility,0x0
0b3e e007 | | Load 0x0,0x7
0b3f 02c7 | | Declare_Variable Any
0b40 00d8 | | Load_Top At_Offset_0
0b41 1c00 | | Execute_Immediate Run_Utility,0x0
0b42 029f 0fd3 | | Declare_Subprogram INIT_0fd0,For_Call
0b44 029f 0fdb | | Declare_Subprogram INIT_0fd8,For_Call
0b46 BODY_0b30:
0b46 4800 |H | Short_Literal 0x0
0b47 a5fa | | Store_Unchecked 0x2,-0x6
0b48 00da | | Load_Top At_Offset_2
0b49 0120 | | Execute Any,Is_Value
0b4a 6802 |h | Jump_Zero 0xb4d
0b4b e007 | | Load 0x0,0x7
0b4c 7801 |x | Jump 0xb4e
0b4d 00da | | Load_Top At_Offset_2
0b4e 00ec | | Load_Encached Diana_Tree_Cache
0b4f e5ff | | Load 0x2,-0x1
0b50 823c | < | Call 0x1,0x3c
0b51 c402 | | Store 0x2,0x2
0b52 c406 | | Store 0x2,0x6
0b53 00da | | Load_Top At_Offset_2
0b54 c5f9 | | Store 0x2,-0x7
0b55 e402 | | Load 0x2,0x2
0b56 8218 | | Call 0x1,0x18
0b57 682d |h- | Jump_Zero 0xb85
0b58 e5fd | | Load 0x2,-0x3
0b59 e5fe | | Load 0x2,-0x2
0b5a e402 | | Load 0x2,0x2
0b5b 823d | = | Call 0x1,0x3d
0b5c 6807 |h | Jump_Zero 0xb64
0b5d e5fd | | Load 0x2,-0x3
0b5e e5fe | | Load 0x2,-0x2
0b5f 822c | , | Call 0x1,0x2c
0b60 8407 | | Call 0x2,0x7
0b61 4801 |H | Short_Literal 0x1
0b62 a5fa | | Store_Unchecked 0x2,-0x6
0b63 7826 |x& | Jump 0xb8a
0b64 e5fe | | Load 0x2,-0x2
0b65 823e | > | Call 0x1,0x3e
0b66 c403 | | Store 0x2,0x3
0b67 00db | | Load_Top At_Offset_3
0b68 00e3 | | Load_Encached Natural_Cache
0b69 00eb | | Load_Encached Diana_Cache
0b6a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b6b e5fd | | Load 0x2,-0x3
0b6c e403 | | Load 0x2,0x3
0b6d e402 | | Load 0x2,0x2
0b6e 8234 | 4 | Call 0x1,0x34
0b6f c404 | | Store 0x2,0x4
0b70 c405 | | Store 0x2,0x5
0b71 4802 |H | Short_Literal 0x2
0b72 e405 | | Load 0x2,0x5
0b73 e002 | | Load 0x0,0x2
0b74 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b75 6806 |h | Jump_Zero 0xb7c
0b76 8408 | | Call 0x2,0x8
0b77 e5fb | | Load 0x2,-0x5
0b78 00db | | Load_Top At_Offset_3
0b79 823f | ? | Call 0x1,0x3f
0b7a c5fb | | Store 0x2,-0x5
0b7b 780e |x | Jump 0xb8a
0b7c e404 | | Load 0x2,0x4
0b7d e403 | | Load 0x2,0x3
0b7e 822c | , | Call 0x1,0x2c
0b7f 8407 | | Call 0x2,0x7
0b80 e5fb | | Load 0x2,-0x5
0b81 00db | | Load_Top At_Offset_3
0b82 823f | ? | Call 0x1,0x3f
0b83 c5fb | | Store 0x2,-0x5
0b84 7805 |x | Jump 0xb8a
0b85 8408 | | Call 0x2,0x8
0b86 e5fb | | Load 0x2,-0x5
0b87 00db | | Load_Top At_Offset_3
0b88 823f | ? | Call 0x1,0x3f
0b89 c5fb | | Store 0x2,-0x5
0b8a e402 | | Load 0x2,0x2
0b8b a5fc | | Store_Unchecked 0x2,-0x4
0b8c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0b8d 0000 0000 | | .XXX[0x3]
0b8f 0000 | |
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b93 | | .CONST 0x0b93 ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0001 | | .CONST 0x0001 ; Number of locals
0b93 BODY_0b90:
0b93 INIT_0b90:
0b93 00da | | Load_Top At_Offset_2
0b94 4603 |F | Jump_Case 0x4
0b95 780b |x | Jump 0xba1 ; case 0x0
0b96 7812 |x | Jump 0xba9 ; case 0x1
0b97 7819 |x | Jump 0xbb1 ; case 0x2
0b98 7800 |x | Jump 0xb99 ; case 0x3
0b99 00db | | Load_Top At_Offset_3
0b9a 6803 |h | Jump_Zero 0xb9e
0b9b 0092 10c4 | | Action Push_String_Extended,0x10c4 ; "used as a control context;"
0b9d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0b9e 0092 10c5 | | Action Push_String_Extended,0x10c5 ; "set control context to"
0ba0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ba1 00db | | Load_Top At_Offset_3
0ba2 6803 |h | Jump_Zero 0xba6
0ba3 0092 10c6 | | Action Push_String_Extended,0x10c6 ; "modified"
0ba5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ba6 0092 10c7 | | Action Push_String_Extended,0x10c7 ; "modify"
0ba8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ba9 00db | | Load_Top At_Offset_3
0baa 6803 |h | Jump_Zero 0xbae
0bab 0092 10c8 | | Action Push_String_Extended,0x10c8 ; "displayed"
0bad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bae 0092 10c9 | | Action Push_String_Extended,0x10c9 ; "display"
0bb0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bb1 00db | | Load_Top At_Offset_3
0bb2 6803 |h | Jump_Zero 0xbb6
0bb3 0092 10c8 | | Action Push_String_Extended,0x10c8 ; "displayed"
0bb5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bb6 0092 10c9 | | Action Push_String_Extended,0x10c9 ; "display"
0bb8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bb9 0000 0000 | | .BLANK 0000[0x7]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bc3 | | .CONST 0x0bc3 ; Address of begin
0bc1 0004 | | .CONST 0x0004 ; Address of exception handler
0bc2 0001 | | .CONST 0x0001 ; Number of locals
0bc3 BODY_0bc0:
0bc3 INIT_0bc0:
0bc3 e5fc | | Load 0x2,-0x4
0bc4 480a |H | Short_Literal 0xa
0bc5 482e |H. | Short_Literal 0x2e
0bc6 0092 10ca | | Action Push_String_Extended,0x10ca ; "The selected object "
0bc8 e5fd | | Load 0x2,-0x3
0bc9 01cc | | Execute Vector,Catenate
0bca 0092 10cb | | Action Push_String_Extended,0x10cb ; "cannot be "
0bcc 01cc | | Execute Vector,Catenate
0bcd 4801 |H | Short_Literal 0x1
0bce e5fe | | Load 0x2,-0x2
0bcf 8241 | A | Call 0x1,0x41
0bd0 01cc | | Execute Vector,Catenate
0bd1 0092 10cc | | Action Push_String_Extended,0x10cc ; ": "
0bd3 01cc | | Execute Vector,Catenate
0bd4 e5ff | | Load 0x2,-0x1
0bd5 01cc | | Execute Vector,Catenate
0bd6 01cb | | Execute Vector,Append
0bd7 01cb | | Execute Vector,Append
0bd8 e002 | | Load 0x0,0x2
0bd9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0bda c5fc | | Store 0x2,-0x4
0bdb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0bdc 0000 0000 | | .BLANK 0000[0x4]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be3 | | .CONST 0x0be3 ; Address of begin
0be1 0004 | | .CONST 0x0004 ; Address of exception handler
0be2 0001 | | .CONST 0x0001 ; Number of locals
0be3 BODY_0be0:
0be3 INIT_0be0:
0be3 00cf | | Action Mark_Auxiliary
0be4 4801 |H | Short_Literal 0x1
0be5 e5fe | | Load 0x2,-0x2
0be6 0264 | d | Execute Discrete,Below_Bound
0be7 700d |p | Jump_Nonzero 0xbf5
0be8 00d8 | | Load_Top At_Offset_0
0be9 e5ff | | Load 0x2,-0x1
0bea 4975 |Iu | Short_Literal 0x175
0beb 00eb | | Load_Encached Diana_Cache
0bec 0098 | | Execute Package,Field_Read_Dynamic
0bed 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0bee 8218 | | Call 0x1,0x18
0bef 6803 |h | Jump_Zero 0xbf3
0bf0 00d8 | | Load_Top At_Offset_0
0bf1 a5fd | | Store_Unchecked 0x2,-0x3
0bf2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bf3 00c8 | | Action Pop_Auxiliary_Range
0bf4 37f3 |7 | Loop_Decreasing 0xbe8
0bf5 00ce | | Action Pop_Auxiliary
0bf6 4800 |H | Short_Literal 0x0
0bf7 a5fd | | Store_Unchecked 0x2,-0x3
0bf8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bf9 0000 0000 | | .BLANK 0000[0x7]
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 01db | | Execute Vector,Length
0c05 0c01 | | Execute_Immediate Greater_Equal,0x1
0c06 6813 |h | Jump_Zero 0xc1a
0c07 00da | | Load_Top At_Offset_2
0c08 01dd | | Execute Vector,First
0c09 00db | | Load_Top At_Offset_3
0c0a 01d7 | | Execute Vector,Field_Read
0c0b 0f2e | . | Execute_Immediate Equal,0x2e
0c0c 680d |h | Jump_Zero 0xc1a
0c0d 00da | | Load_Top At_Offset_2
0c0e 01dd | | Execute Vector,First
0c0f 0a01 | | Execute_Immediate Plus,0x1
0c10 00d8 | | Load_Top At_Offset_0
0c11 00e2 | | Load_Encached Integer_Cache
0c12 0260 | ` | Execute Discrete,In_Type
0c13 7001 |p | Jump_Nonzero 0xc15
0c14 0801 | | Execute_Immediate Raise,0x1
0c15 00db | | Load_Top At_Offset_3
0c16 01dc | | Execute Vector,Last
0c17 e5ff | | Load 0x2,-0x1
0c18 01cf | | Execute Vector,Slice_Read
0c19 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c1a 00da | | Load_Top At_Offset_2
0c1b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c1c 0000 0000 | | .BLANK 0000[0x4]
0c20 ; --------------------------------------------------------------------------------------
0c20 ; SUBPROGRAM
0c20 ; --------------------------------------------------------------------------------------
0c20 0c2b | + | .CONST 0x0c2b ; Address of begin
0c21 0004 | | .CONST 0x0004 ; Address of exception handler
0c22 0003 | | .CONST 0x0003 ; Number of locals
0c23 INIT_0c20:
0c23 00da | | Load_Top At_Offset_2
0c24 4975 |Iu | Short_Literal 0x175
0c25 00eb | | Load_Encached Diana_Cache
0c26 0098 | | Execute Package,Field_Read_Dynamic
0c27 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0c28 00e2 | | Load_Encached Integer_Cache
0c29 03f1 | | Declare_Variable Discrete,With_Value
0c2a 00ec | | Load_Encached Diana_Tree_Cache
0c2b BODY_0c20:
0c2b e5fe | | Load 0x2,-0x2
0c2c 00da | | Load_Top At_Offset_2
0c2d 027d | } | Execute Discrete,Greater
0c2e 6802 |h | Jump_Zero 0xc31
0c2f 00ea | | Load_Encached Null_String_Cache
0c30 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c31 e5fe | | Load 0x2,-0x2
0c32 e5ff | | Load 0x2,-0x1
0c33 4975 |Iu | Short_Literal 0x175
0c34 00eb | | Load_Encached Diana_Cache
0c35 0098 | | Execute Package,Field_Read_Dynamic
0c36 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0c37 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0c38 0092 10aa | | Action Push_String_Extended,0x10aa ; "."
0c3a 4800 |H | Short_Literal 0x0
0c3b 00da | | Load_Top At_Offset_2
0c3c e00f | | Load 0x0,0xf
0c3d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0c3e 01cc | | Execute Vector,Catenate
0c3f e5fe | | Load 0x2,-0x2
0c40 0a01 | | Execute_Immediate Plus,0x1
0c41 00d8 | | Load_Top At_Offset_0
0c42 00e3 | | Load_Encached Natural_Cache
0c43 0260 | ` | Execute Discrete,In_Type
0c44 7001 |p | Jump_Nonzero 0xc46
0c45 0801 | | Execute_Immediate Raise,0x1
0c46 e5ff | | Load 0x2,-0x1
0c47 8245 | E | Call 0x1,0x45
0c48 01cc | | Execute Vector,Catenate
0c49 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0c4a 0000 0000 | | .BLANK 0000[0x6]
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 e5fc | | Load 0x2,-0x4
0c54 e5fd | | Load 0x2,-0x3
0c55 822c | , | Call 0x1,0x2c
0c56 e5fe | | Load 0x2,-0x2
0c57 0a01 | | Execute_Immediate Plus,0x1
0c58 00d8 | | Load_Top At_Offset_0
0c59 00e3 | | Load_Encached Natural_Cache
0c5a 0260 | ` | Execute Discrete,In_Type
0c5b 7001 |p | Jump_Nonzero 0xc5d
0c5c 0801 | | Execute_Immediate Raise,0x1
0c5d e5ff | | Load 0x2,-0x1
0c5e 8245 | E | Call 0x1,0x45
0c5f 01cc | | Execute Vector,Catenate
0c60 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0c61 0000 0000 | | .BLANK 0000[0x7]
0c68 ; --------------------------------------------------------------------------------------
0c68 ; SUBPROGRAM
0c68 ; --------------------------------------------------------------------------------------
0c68 0c72 | r | .CONST 0x0c72 ; Address of begin
0c69 0004 | | .CONST 0x0004 ; Address of exception handler
0c6a 0002 | | .CONST 0x0002 ; Number of locals
0c6b INIT_0c68:
0c6b 00da | | Load_Top At_Offset_2
0c6c 4975 |Iu | Short_Literal 0x175
0c6d 00eb | | Load_Encached Diana_Cache
0c6e 0098 | | Execute Package,Field_Read_Dynamic
0c6f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0c70 00e3 | | Load_Encached Natural_Cache
0c71 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0c72 BODY_0c68:
0c72 e5fe | | Load 0x2,-0x2
0c73 00d9 | | Load_Top At_Offset_1
0c74 027c | | | Execute Discrete,Less
0c75 6810 |h | Jump_Zero 0xc86
0c76 e5fe | | Load 0x2,-0x2
0c77 0a01 | | Execute_Immediate Plus,0x1
0c78 00d8 | | Load_Top At_Offset_0
0c79 00e3 | | Load_Encached Natural_Cache
0c7a 0260 | ` | Execute Discrete,In_Type
0c7b 7001 |p | Jump_Nonzero 0xc7d
0c7c 0801 | | Execute_Immediate Raise,0x1
0c7d e5ff | | Load 0x2,-0x1
0c7e 8245 | E | Call 0x1,0x45
0c7f 8244 | D | Call 0x1,0x44
0c80 e5fd | | Load 0x2,-0x3
0c81 01cc | | Execute Vector,Catenate
0c82 0092 10b0 | | Action Push_String_Extended,0x10b0 ; " "
0c84 01cc | | Execute Vector,Catenate
0c85 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0c86 e5fe | | Load 0x2,-0x2
0c87 00d9 | | Load_Top At_Offset_1
0c88 027f | | Execute Discrete,Equal
0c89 680f |h | Jump_Zero 0xc99
0c8a 4801 |H | Short_Literal 0x1
0c8b e5fe | | Load 0x2,-0x2
0c8c e5ff | | Load 0x2,-0x1
0c8d 4975 |Iu | Short_Literal 0x175
0c8e 00eb | | Load_Encached Diana_Cache
0c8f 0098 | | Execute Package,Field_Read_Dynamic
0c90 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0c91 e00f | | Load 0x0,0xf
0c92 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0c93 e5fd | | Load 0x2,-0x3
0c94 01cc | | Execute Vector,Catenate
0c95 0092 10b0 | | Action Push_String_Extended,0x10b0 ; " "
0c97 01cc | | Execute Vector,Catenate
0c98 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0c99 00ea | | Load_Encached Null_String_Cache
0c9a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0c9b 0000 0000 | | .BLANK 0000[0x5]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0cb0 | | .CONST 0x0cb0 ; Address of begin
0ca1 0004 | | .CONST 0x0004 ; Address of exception handler
0ca2 0009 | | .CONST 0x0009 ; Number of locals
0ca3 INIT_0ca0:
0ca3 00ef | | Load_Encached Diana_Sequence_Cache
0ca4 00e3 | | Load_Encached Natural_Cache
0ca5 00e3 | | Load_Encached Natural_Cache
0ca6 e031 | 1 | Load 0x0,0x31
0ca7 02c7 | | Declare_Variable Any
0ca8 00d8 | | Load_Top At_Offset_0
0ca9 1c00 | | Execute_Immediate Run_Utility,0x0
0caa 00e2 | | Load_Encached Integer_Cache
0cab 00ec | | Load_Encached Diana_Tree_Cache
0cac 029f 0fe3 | | Declare_Subprogram INIT_0fe0,For_Call
0cae 029f 0ff3 | | Declare_Subprogram INIT_0ff0,For_Call
0cb0 BODY_0ca0:
0cb0 e5ff | | Load 0x2,-0x1
0cb1 a5f9 | | Store_Unchecked 0x2,-0x7
0cb2 e5fd | | Load 0x2,-0x3
0cb3 e5fe | | Load 0x2,-0x2
0cb4 e5ff | | Load 0x2,-0x1
0cb5 823d | = | Call 0x1,0x3d
0cb6 6805 |h | Jump_Zero 0xcbc
0cb7 e5fd | | Load 0x2,-0x3
0cb8 e5fe | | Load 0x2,-0x2
0cb9 822c | , | Call 0x1,0x2c
0cba 8409 | | Call 0x2,0x9
0cbb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0cbc e5ff | | Load 0x2,-0x1
0cbd 00eb | | Load_Encached Diana_Cache
0cbe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cbf 0f26 | & | Execute_Immediate Equal,0x26
0cc0 6803 |h | Jump_Zero 0xcc4
0cc1 e5ff | | Load 0x2,-0x1
0cc2 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0cc3 7803 |x | Jump 0xcc7
0cc4 00eb | | Load_Encached Diana_Cache
0cc5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0cc6 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0cc7 e5fe | | Load 0x2,-0x2
0cc8 823e | > | Call 0x1,0x3e
0cc9 c405 | | Store 0x2,0x5
0cca e5ff | | Load 0x2,-0x1
0ccb e00f | | Load 0x0,0xf
0ccc 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0ccd a402 | | Store_Unchecked 0x2,0x2
0cce e402 | | Load 0x2,0x2
0ccf 4975 |Iu | Short_Literal 0x175
0cd0 00eb | | Load_Encached Diana_Cache
0cd1 0098 | | Execute Package,Field_Read_Dynamic
0cd2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0cd3 c404 | | Store 0x2,0x4
0cd4 00e3 | | Load_Encached Natural_Cache
0cd5 e404 | | Load 0x2,0x4
0cd6 e402 | | Load 0x2,0x2
0cd7 8243 | C | Call 0x1,0x43
0cd8 c403 | | Store 0x2,0x3
0cd9 e403 | | Load 0x2,0x3
0cda 6833 |h3 | Jump_Zero 0xd0e
0cdb e5f8 | | Load 0x2,-0x8
0cdc 00e3 | | Load_Encached Natural_Cache
0cdd e407 | | Load 0x2,0x7
0cde e5fd | | Load 0x2,-0x3
0cdf e405 | | Load 0x2,0x5
0ce0 e403 | | Load 0x2,0x3
0ce1 e402 | | Load 0x2,0x2
0ce2 4975 |Iu | Short_Literal 0x175
0ce3 00eb | | Load_Encached Diana_Cache
0ce4 0098 | | Execute Package,Field_Read_Dynamic
0ce5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0ce6 8234 | 4 | Call 0x1,0x34
0ce7 c406 | | Store 0x2,0x6
0ce8 c5f8 | | Store 0x2,-0x8
0ce9 4802 |H | Short_Literal 0x2
0cea e5f8 | | Load 0x2,-0x8
0ceb e002 | | Load 0x0,0x2
0cec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ced 6817 |h | Jump_Zero 0xd05
0cee e5fa | | Load 0x2,-0x6
0cef 4801 |H | Short_Literal 0x1
0cf0 e5ff | | Load 0x2,-0x1
0cf1 8215 | | Call 0x1,0x15
0cf2 e5fb | | Load 0x2,-0x5
0cf3 01cc | | Execute Vector,Catenate
0cf4 e009 | | Load 0x0,0x9
0cf5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0cf6 c5fa | | Store 0x2,-0x6
0cf7 e5fb | | Load 0x2,-0x5
0cf8 e403 | | Load 0x2,0x3
0cf9 00d8 | | Load_Top At_Offset_0
0cfa 00e4 | | Load_Encached Positive_Cache
0cfb 0260 | ` | Execute Discrete,In_Type
0cfc 7001 |p | Jump_Nonzero 0xcfe
0cfd 0801 | | Execute_Immediate Raise,0x1
0cfe e402 | | Load 0x2,0x2
0cff 8247 | G | Call 0x1,0x47
0d00 e5f8 | | Load 0x2,-0x8
0d01 e002 | | Load 0x0,0x2
0d02 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0d03 8408 | | Call 0x2,0x8
0d04 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d05 00db | | Load_Top At_Offset_3
0d06 e405 | | Load 0x2,0x5
0d07 e403 | | Load 0x2,0x3
0d08 e402 | | Load 0x2,0x2
0d09 8246 | F | Call 0x1,0x46
0d0a e5fb | | Load 0x2,-0x5
0d0b 01cc | | Execute Vector,Catenate
0d0c 8409 | | Call 0x2,0x9
0d0d 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d0e 4801 |H | Short_Literal 0x1
0d0f e5ff | | Load 0x2,-0x1
0d10 8215 | | Call 0x1,0x15
0d11 e5fb | | Load 0x2,-0x5
0d12 01cc | | Execute Vector,Catenate
0d13 8409 | | Call 0x2,0x9
0d14 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0d15 0000 0000 | | .XXX[0x3]
0d17 0000 | |
0d18 ; --------------------------------------------------------------------------------------
0d18 ; SUBPROGRAM
0d18 ; --------------------------------------------------------------------------------------
0d18 0d1b | | .CONST 0x0d1b ; Address of begin
0d19 0004 | | .CONST 0x0004 ; Address of exception handler
0d1a 0001 | | .CONST 0x0001 ; Number of locals
0d1b BODY_0d18:
0d1b INIT_0d18:
0d1b 00da | | Load_Top At_Offset_2
0d1c 00eb | | Load_Encached Diana_Cache
0d1d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d1e 00d8 | | Load_Top At_Offset_0
0d1f 0c17 | | Execute_Immediate Greater_Equal,0x17
0d20 701e |p | Jump_Nonzero 0xd3f
0d21 4616 |F | Jump_Case 0x17
0d22 781d |x | Jump 0xd40 ; case 0x0
0d23 781c |x | Jump 0xd40 ; case 0x1
0d24 781b |x | Jump 0xd40 ; case 0x2
0d25 781a |x | Jump 0xd40 ; case 0x3
0d26 7819 |x | Jump 0xd40 ; case 0x4
0d27 7818 |x | Jump 0xd40 ; case 0x5
0d28 7817 |x | Jump 0xd40 ; case 0x6
0d29 7816 |x | Jump 0xd40 ; case 0x7
0d2a 7817 |x | Jump 0xd42 ; case 0x8
0d2b 7814 |x | Jump 0xd40 ; case 0x9
0d2c 7813 |x | Jump 0xd40 ; case 0xa
0d2d 7812 |x | Jump 0xd40 ; case 0xb
0d2e 780a |x | Jump 0xd39 ; case 0xc
0d2f 7810 |x | Jump 0xd40 ; case 0xd
0d30 780f |x | Jump 0xd40 ; case 0xe
0d31 780e |x | Jump 0xd40 ; case 0xf
0d32 780d |x | Jump 0xd40 ; case 0x10
0d33 780c |x | Jump 0xd40 ; case 0x11
0d34 780b |x | Jump 0xd40 ; case 0x12
0d35 780a |x | Jump 0xd40 ; case 0x13
0d36 7809 |x | Jump 0xd40 ; case 0x14
0d37 7808 |x | Jump 0xd40 ; case 0x15
0d38 7800 |x | Jump 0xd39 ; case 0x16
0d39 00da | | Load_Top At_Offset_2
0d3a 00eb | | Load_Encached Diana_Cache
0d3b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0d3c 00eb | | Load_Encached Diana_Cache
0d3d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0d3e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d3f 00d1 | | Pop_Control Pop_Count_1
0d40 e217 | | Load 0x1,0x17
0d41 0257 | W | Execute Discrete,Raise
0d42 00da | | Load_Top At_Offset_2
0d43 00eb | | Load_Encached Diana_Cache
0d44 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0d45 00eb | | Load_Encached Diana_Cache
0d46 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0d47 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d48 ; --------------------------------------------------------------------------------------
0d48 ; SUBPROGRAM
0d48 ; --------------------------------------------------------------------------------------
0d48 0d4b | K | .CONST 0x0d4b ; Address of begin
0d49 0004 | | .CONST 0x0004 ; Address of exception handler
0d4a 0001 | | .CONST 0x0001 ; Number of locals
0d4b BODY_0d48:
0d4b INIT_0d48:
0d4b 00da | | Load_Top At_Offset_2
0d4c 4975 |Iu | Short_Literal 0x175
0d4d 00eb | | Load_Encached Diana_Cache
0d4e 0098 | | Execute Package,Field_Read_Dynamic
0d4f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d50 6805 |h | Jump_Zero 0xd56
0d51 00da | | Load_Top At_Offset_2
0d52 00eb | | Load_Encached Diana_Cache
0d53 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0d54 8249 | I | Call 0x1,0x49
0d55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d56 482c |H, | Short_Literal 0x2c
0d57 00db | | Load_Top At_Offset_3
0d58 00eb | | Load_Encached Diana_Cache
0d59 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0d5a 8249 | I | Call 0x1,0x49
0d5b 01cb | | Execute Vector,Append
0d5c 00db | | Load_Top At_Offset_3
0d5d 00eb | | Load_Encached Diana_Cache
0d5e 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0d5f 824a | J | Call 0x1,0x4a
0d60 01cc | | Execute Vector,Catenate
0d61 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d62 0000 0000 | | .BLANK 0000[0x6]
0d68 ; --------------------------------------------------------------------------------------
0d68 ; SUBPROGRAM
0d68 ; --------------------------------------------------------------------------------------
0d68 0d6b | k | .CONST 0x0d6b ; Address of begin
0d69 0004 | | .CONST 0x0004 ; Address of exception handler
0d6a 0001 | | .CONST 0x0001 ; Number of locals
0d6b BODY_0d68:
0d6b INIT_0d68:
0d6b 00da | | Load_Top At_Offset_2
0d6c 0b13 | | Execute_Immediate Case_Compare,0x13
0d6d 7011 |p | Jump_Nonzero 0xd7f
0d6e 00d8 | | Load_Top At_Offset_0
0d6f 480e |H | Short_Literal 0xe
0d70 480f |H | Short_Literal 0xf
0d71 0262 | b | Execute Discrete,In_Range
0d72 701a |p | Jump_Nonzero 0xd8d
0d73 0f10 | | Execute_Immediate Equal,0x10
0d74 7026 |p& | Jump_Nonzero 0xd9b
0d75 0092 10cd | | Action Push_String_Extended,0x10cd ; "Can't "
0d77 4800 |H | Short_Literal 0x0
0d78 e5fe | | Load 0x2,-0x2
0d79 8241 | A | Call 0x1,0x41
0d7a 01cc | | Execute Vector,Catenate
0d7b 0092 10ce | | Action Push_String_Extended,0x10ce ; " this type of selected or indexed object"
0d7d 01cc | | Execute Vector,Catenate
0d7e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0d7f 00d1 | | Pop_Control Pop_Count_1
0d80 0092 10cd | | Action Push_String_Extended,0x10cd ; "Can't "
0d82 4800 |H | Short_Literal 0x0
0d83 e5fe | | Load 0x2,-0x2
0d84 8241 | A | Call 0x1,0x41
0d85 01cc | | Execute Vector,Catenate
0d86 0092 10cf | | Action Push_String_Extended,0x10cf ; " a selected or indexed object containing a "
0d88 01cc | | Execute Vector,Catenate
0d89 0092 10d0 | | Action Push_String_Extended,0x10d0 ; "slice"
0d8b 01cc | | Execute Vector,Catenate
0d8c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0d8d 00d1 | | Pop_Control Pop_Count_1
0d8e 0092 10cd | | Action Push_String_Extended,0x10cd ; "Can't "
0d90 4800 |H | Short_Literal 0x0
0d91 e5fe | | Load 0x2,-0x2
0d92 8241 | A | Call 0x1,0x41
0d93 01cc | | Execute Vector,Catenate
0d94 0092 10d1 | | Action Push_String_Extended,0x10d1 ; " a selected or indexed object containing "
0d96 01cc | | Execute Vector,Catenate
0d97 0092 10d2 | | Action Push_String_Extended,0x10d2 ; "an attribute"
0d99 01cc | | Execute Vector,Catenate
0d9a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0d9b 0092 10cd | | Action Push_String_Extended,0x10cd ; "Can't "
0d9d 4800 |H | Short_Literal 0x0
0d9e e5fe | | Load 0x2,-0x2
0d9f 8241 | A | Call 0x1,0x41
0da0 01cc | | Execute Vector,Catenate
0da1 0092 10cf | | Action Push_String_Extended,0x10cf ; " a selected or indexed object containing a "
0da3 01cc | | Execute Vector,Catenate
0da4 0092 10d3 | | Action Push_String_Extended,0x10d3 ; "function call"
0da6 01cc | | Execute Vector,Catenate
0da7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0da8 ; --------------------------------------------------------------------------------------
0da8 ; SUBPROGRAM
0da8 ; --------------------------------------------------------------------------------------
0da8 0db0 | | .CONST 0x0db0 ; Address of begin
0da9 0dc3 | | .CONST 0x0dc3 ; Address of exception handler
0daa 0004 | | .CONST 0x0004 ; Number of locals
0dab INIT_0da8:
0dab 00ec | | Load_Encached Diana_Tree_Cache
0dac 029f 1003 | | Declare_Subprogram INIT_1000,For_Call
0dae 029f 105b | [| Declare_Subprogram INIT_1058,For_Call
0db0 BODY_0da8:
0db0 0092 10d4 | | Action Push_String_Extended,0x10d4 ; "Check_Selected_Or_Indexed_Selection_Context passed node of type "
0db2 e5ff | | Load 0x2,-0x1
0db3 00eb | | Load_Encached Diana_Cache
0db4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0db5 00eb | | Load_Encached Diana_Cache
0db6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0db7 011c | | Execute Any,Convert_Unchecked
0db8 1c01 | | Execute_Immediate Run_Utility,0x1
0db9 01cc | | Execute Vector,Catenate
0dba e5ff | | Load 0x2,-0x1
0dbb e00e | | Load 0x0,0xe
0dbc 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0dbd e032 | 2 | Load 0x0,0x32
0dbe 180e | | Execute Package,Field_Execute,Field_Number 0xe
0dbf e5ff | | Load 0x2,-0x1
0dc0 8403 | | Call 0x2,0x3
0dc1 8404 | | Call 0x2,0x4
0dc2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0dc3 TRAP_0da8:
0dc3 e217 | | Load 0x1,0x17
0dc4 010f | | Execute Exception,Equal
0dc5 6813 |h | Jump_Zero 0xdd9
0dc6 e5fb | | Load 0x2,-0x5
0dc7 e5ff | | Load 0x2,-0x1
0dc8 8225 | % | Call 0x1,0x25
0dc9 c5fb | | Store 0x2,-0x5
0dca e5f9 | | Load 0x2,-0x7
0dcb 00ea | | Load_Encached Null_String_Cache
0dcc e5fc | | Load 0x2,-0x4
0dcd 0092 10d5 | | Action Push_String_Extended,0x10d5 ; "Can only "
0dcf 4800 |H | Short_Literal 0x0
0dd0 e5fc | | Load 0x2,-0x4
0dd1 8241 | A | Call 0x1,0x41
0dd2 01cc | | Execute Vector,Catenate
0dd3 0092 10d6 | | Action Push_String_Extended,0x10d6 ; " an indexed object if its indexes are constants"
0dd5 01cc | | Execute Vector,Catenate
0dd6 8242 | B | Call 0x1,0x42
0dd7 c5f9 | | Store 0x2,-0x7
0dd8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0dd9 e5fb | | Load 0x2,-0x5
0dda e5ff | | Load 0x2,-0x1
0ddb 8225 | % | Call 0x1,0x25
0ddc c5fb | | Store 0x2,-0x5
0ddd e5f9 | | Load 0x2,-0x7
0dde 00ea | | Load_Encached Null_String_Cache
0ddf e5fc | | Load 0x2,-0x4
0de0 0092 10cd | | Action Push_String_Extended,0x10cd ; "Can't "
0de2 4800 |H | Short_Literal 0x0
0de3 e5fc | | Load 0x2,-0x4
0de4 8241 | A | Call 0x1,0x41
0de5 01cc | | Execute Vector,Catenate
0de6 0092 10d7 | | Action Push_String_Extended,0x10d7 ; " this kind of selected or indexed object"
0de8 01cc | | Execute Vector,Catenate
0de9 8242 | B | Call 0x1,0x42
0dea c5f9 | | Store 0x2,-0x7
0deb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0dec 0000 0000 | | .BLANK 0000[0x4]
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df4 | | .CONST 0x0df4 ; Address of begin
0df1 0004 | | .CONST 0x0004 ; Address of exception handler
0df2 0002 | | .CONST 0x0002 ; Number of locals
0df3 INIT_0df0:
0df3 00ec | | Load_Encached Diana_Tree_Cache
0df4 BODY_0df0:
0df4 00db | | Load_Top At_Offset_3
0df5 00eb | | Load_Encached Diana_Cache
0df6 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0df7 e00e | | Load 0x0,0xe
0df8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0df9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0dfa 00d8 | | Load_Top At_Offset_0
0dfb 00eb | | Load_Encached Diana_Cache
0dfc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0dfd 6803 |h | Jump_Zero 0xe01
0dfe 00eb | | Load_Encached Diana_Cache
0dff 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0e00 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e01 00d8 | | Load_Top At_Offset_0
0e02 00eb | | Load_Encached Diana_Cache
0e03 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0e04 0f4e | N | Execute_Immediate Equal,0x4e
0e05 680a |h | Jump_Zero 0xe10
0e06 00d8 | | Load_Top At_Offset_0
0e07 e00e | | Load 0x0,0xe
0e08 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0e09 7006 |p | Jump_Nonzero 0xe10
0e0a 00d8 | | Load_Top At_Offset_0
0e0b e00e | | Load 0x0,0xe
0e0c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0e0d e00e | | Load 0x0,0xe
0e0e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0e0f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e10 00d8 | | Load_Top At_Offset_0
0e11 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e12 0000 0000 | | .BLANK 0000[0x6]
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e1e | | .CONST 0x0e1e ; Address of begin
0e19 0004 | | .CONST 0x0004 ; Address of exception handler
0e1a 0003 | | .CONST 0x0003 ; Number of locals
0e1b INIT_0e18:
0e1b 00ec | | Load_Encached Diana_Tree_Cache
0e1c 029f 106b | k| Declare_Subprogram INIT_1068,For_Call
0e1e BODY_0e18:
0e1e e5ff | | Load 0x2,-0x1
0e1f e00e | | Load 0x0,0xe
0e20 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0e21 680f |h | Jump_Zero 0xe31
0e22 e5f9 | | Load 0x2,-0x7
0e23 00ea | | Load_Encached Null_String_Cache
0e24 e5fc | | Load 0x2,-0x4
0e25 0092 10cd | | Action Push_String_Extended,0x10cd ; "Can't "
0e27 4800 |H | Short_Literal 0x0
0e28 e5fc | | Load 0x2,-0x4
0e29 8241 | A | Call 0x1,0x41
0e2a 01cc | | Execute Vector,Catenate
0e2b 0092 10d8 | | Action Push_String_Extended,0x10d8 ; " the value of an entry declaration"
0e2d 01cc | | Execute Vector,Catenate
0e2e 8242 | B | Call 0x1,0x42
0e2f c5f9 | | Store 0x2,-0x7
0e30 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e31 e5ff | | Load 0x2,-0x1
0e32 e00e | | Load 0x0,0xe
0e33 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0e34 6804 |h | Jump_Zero 0xe39
0e35 e5ff | | Load 0x2,-0x1
0e36 802b | + | Call 0x0,0x2b
0e37 8403 | | Call 0x2,0x3
0e38 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e39 e5ff | | Load 0x2,-0x1
0e3a e00e | | Load 0x0,0xe
0e3b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0e3c 6805 |h | Jump_Zero 0xe42
0e3d e5ff | | Load 0x2,-0x1
0e3e e00e | | Load 0x0,0xe
0e3f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0e40 8403 | | Call 0x2,0x3
0e41 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e42 e5ff | | Load 0x2,-0x1
0e43 e00e | | Load 0x0,0xe
0e44 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0e45 6813 |h | Jump_Zero 0xe59
0e46 e5ff | | Load 0x2,-0x1
0e47 e00e | | Load 0x0,0xe
0e48 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0e49 00eb | | Load_Encached Diana_Cache
0e4a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0e4b 0f4c | L | Execute_Immediate Equal,0x4c
0e4c 6805 |h | Jump_Zero 0xe52
0e4d e5ff | | Load 0x2,-0x1
0e4e e00e | | Load 0x0,0xe
0e4f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0e50 8403 | | Call 0x2,0x3
0e51 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e52 e5ff | | Load 0x2,-0x1
0e53 e00e | | Load 0x0,0xe
0e54 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0e55 e00f | | Load 0x0,0xf
0e56 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0e57 8403 | | Call 0x2,0x3
0e58 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e59 e00d | | Load 0x0,0xd
0e5a e5ff | | Load 0x2,-0x1
0e5b e00f | | Load 0x0,0xf
0e5c 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0e5d 6805 |h | Jump_Zero 0xe63
0e5e e5ff | | Load 0x2,-0x1
0e5f e00e | | Load 0x0,0xe
0e60 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0e61 8403 | | Call 0x2,0x3
0e62 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e63 e5ff | | Load 0x2,-0x1
0e64 e00e | | Load 0x0,0xe
0e65 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0e66 6812 |h | Jump_Zero 0xe79
0e67 e5ff | | Load 0x2,-0x1
0e68 824d | M | Call 0x1,0x4d
0e69 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0e6a 00d9 | | Load_Top At_Offset_1
0e6b 00eb | | Load_Encached Diana_Cache
0e6c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e6d 6808 |h | Jump_Zero 0xe76
0e6e e5f9 | | Load 0x2,-0x7
0e6f 00ea | | Load_Encached Null_String_Cache
0e70 e5fc | | Load 0x2,-0x4
0e71 0092 10d9 | | Action Push_String_Extended,0x10d9 ; "Unable to obtain statement object's enclosing subprogram"
0e73 8242 | B | Call 0x1,0x42
0e74 c5f9 | | Store 0x2,-0x7
0e75 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e76 00d9 | | Load_Top At_Offset_1
0e77 8403 | | Call 0x2,0x3
0e78 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e79 e5ff | | Load 0x2,-0x1
0e7a e00e | | Load 0x0,0xe
0e7b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0e7c 6803 |h | Jump_Zero 0xe80
0e7d e5ff | | Load 0x2,-0x1
0e7e 8403 | | Call 0x2,0x3
0e7f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e80 e5ff | | Load 0x2,-0x1
0e81 e00e | | Load 0x0,0xe
0e82 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0e83 680c |h | Jump_Zero 0xe90
0e84 e5f9 | | Load 0x2,-0x7
0e85 00ec | | Load_Encached Diana_Tree_Cache
0e86 e5fb | | Load 0x2,-0x5
0e87 e5fc | | Load 0x2,-0x4
0e88 e5fd | | Load 0x2,-0x3
0e89 e5fe | | Load 0x2,-0x2
0e8a e5ff | | Load 0x2,-0x1
0e8b 824c | L | Call 0x1,0x4c
0e8c c5fb | | Store 0x2,-0x5
0e8d c5fa | | Store 0x2,-0x6
0e8e c5f9 | | Store 0x2,-0x7
0e8f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e90 e5f9 | | Load 0x2,-0x7
0e91 00ea | | Load_Encached Null_String_Cache
0e92 e5fc | | Load 0x2,-0x4
0e93 0092 10da | | Action Push_String_Extended,0x10da ; "Can't select and "
0e95 4800 |H | Short_Literal 0x0
0e96 e5fc | | Load 0x2,-0x4
0e97 8241 | A | Call 0x1,0x41
0e98 01cc | | Execute Vector,Catenate
0e99 0092 10db | | Action Push_String_Extended,0x10db ; " this kind of object"
0e9b 01cc | | Execute Vector,Catenate
0e9c 8242 | B | Call 0x1,0x42
0e9d c5f9 | | Store 0x2,-0x7
0e9e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0e9f 0000 | | .XXX[0x1]
0ea0 ; --------------------------------------------------------------------------------------
0ea0 ; SUBPROGRAM
0ea0 ; --------------------------------------------------------------------------------------
0ea0 0ea3 | | .CONST 0x0ea3 ; Address of begin
0ea1 0004 | | .CONST 0x0004 ; Address of exception handler
0ea2 0001 | | .CONST 0x0001 ; Number of locals
0ea3 BODY_0ea0:
0ea3 INIT_0ea0:
0ea3 00eb | | Load_Encached Diana_Cache
0ea4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ea5 a5fa | | Store_Unchecked 0x2,-0x6
0ea6 00da | | Load_Top At_Offset_2
0ea7 00eb | | Load_Encached Diana_Cache
0ea8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0ea9 00d8 | | Load_Top At_Offset_0
0eaa 0d40 | @ | Execute_Immediate Less,0x40
0eab 700b |p | Jump_Nonzero 0xeb7
0eac 00d8 | | Load_Top At_Offset_0
0ead 0c4e | N | Execute_Immediate Greater_Equal,0x4e
0eae 7005 |p | Jump_Nonzero 0xeb4
0eaf 0b40 | @ | Execute_Immediate Case_Compare,0x40
0eb0 7021 |p! | Jump_Nonzero 0xed2
0eb1 0f4d | M | Execute_Immediate Equal,0x4d
0eb2 7011 |p | Jump_Nonzero 0xec4
0eb3 7804 |x | Jump 0xeb8
0eb4 0f5d | ] | Execute_Immediate Equal,0x5d
0eb5 702c |p, | Jump_Nonzero 0xee2
0eb6 7801 |x | Jump 0xeb8
0eb7 00d1 | | Pop_Control Pop_Count_1
0eb8 e5f9 | | Load 0x2,-0x7
0eb9 00ec | | Load_Encached Diana_Tree_Cache
0eba e5fb | | Load 0x2,-0x5
0ebb e5fc | | Load 0x2,-0x4
0ebc e5fd | | Load 0x2,-0x3
0ebd e5fe | | Load 0x2,-0x2
0ebe e5ff | | Load 0x2,-0x1
0ebf 824e | N | Call 0x1,0x4e
0ec0 c5fb | | Store 0x2,-0x5
0ec1 c5fa | | Store 0x2,-0x6
0ec2 c5f9 | | Store 0x2,-0x7
0ec3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ec4 e5f9 | | Load 0x2,-0x7
0ec5 00ec | | Load_Encached Diana_Tree_Cache
0ec6 e5fb | | Load 0x2,-0x5
0ec7 e5fc | | Load 0x2,-0x4
0ec8 e5fd | | Load 0x2,-0x3
0ec9 e5fe | | Load 0x2,-0x2
0eca e5ff | | Load 0x2,-0x1
0ecb 00eb | | Load_Encached Diana_Cache
0ecc 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0ecd 824e | N | Call 0x1,0x4e
0ece c5fb | | Store 0x2,-0x5
0ecf c5fa | | Store 0x2,-0x6
0ed0 c5f9 | | Store 0x2,-0x7
0ed1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ed2 00d1 | | Pop_Control Pop_Count_1
0ed3 e5f9 | | Load 0x2,-0x7
0ed4 00ea | | Load_Encached Null_String_Cache
0ed5 e5fc | | Load 0x2,-0x4
0ed6 0092 10cd | | Action Push_String_Extended,0x10cd ; "Can't "
0ed8 4800 |H | Short_Literal 0x0
0ed9 e5fc | | Load 0x2,-0x4
0eda 8241 | A | Call 0x1,0x41
0edb 01cc | | Execute Vector,Catenate
0edc 0092 10dc | | Action Push_String_Extended,0x10dc ; " the value of a pragma"
0ede 01cc | | Execute Vector,Catenate
0edf 8242 | B | Call 0x1,0x42
0ee0 c5f9 | | Store 0x2,-0x7
0ee1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ee2 e5f9 | | Load 0x2,-0x7
0ee3 00ec | | Load_Encached Diana_Tree_Cache
0ee4 e5fb | | Load 0x2,-0x5
0ee5 e5fc | | Load 0x2,-0x4
0ee6 e5fd | | Load 0x2,-0x3
0ee7 e5fe | | Load 0x2,-0x2
0ee8 e5ff | | Load 0x2,-0x1
0ee9 00eb | | Load_Encached Diana_Cache
0eea 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0eeb 824e | N | Call 0x1,0x4e
0eec c5fb | | Store 0x2,-0x5
0eed c5fa | | Store 0x2,-0x6
0eee c5f9 | | Store 0x2,-0x7
0eef 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0ef0 ; --------------------------------------------------------------------------------------
0ef0 ; SUBPROGRAM
0ef0 ; --------------------------------------------------------------------------------------
0ef0 0ef3 | | .CONST 0x0ef3 ; Address of begin
0ef1 0004 | | .CONST 0x0004 ; Address of exception handler
0ef2 0001 | | .CONST 0x0001 ; Number of locals
0ef3 BODY_0ef0:
0ef3 INIT_0ef0:
0ef3 00da | | Load_Top At_Offset_2
0ef4 e212 | | Load 0x1,0x12
0ef5 011c | | Execute Any,Convert_Unchecked
0ef6 1c01 | | Execute_Immediate Run_Utility,0x1
0ef7 e01a | | Load 0x0,0x1a
0ef8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0ef9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0efa 0000 0000 | | .BLANK 0000[0x6]
0f00 ; --------------------------------------------------------------------------------------
0f00 ; SUBPROGRAM
0f00 ; --------------------------------------------------------------------------------------
0f00 0f03 | | .CONST 0x0f03 ; Address of begin
0f01 0004 | | .CONST 0x0004 ; Address of exception handler
0f02 0001 | | .CONST 0x0001 ; Number of locals
0f03 BODY_0f00:
0f03 INIT_0f00:
0f03 00da | | Load_Top At_Offset_2
0f04 e009 | | Load 0x0,0x9
0f05 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f06 0c0b | | Execute_Immediate Greater_Equal,0xb
0f07 6811 |h | Jump_Zero 0xf19
0f08 480a |H | Short_Literal 0xa
0f09 4801 |H | Short_Literal 0x1
0f0a e5ff | | Load 0x2,-0x1
0f0b e009 | | Load 0x0,0x9
0f0c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f0d e01a | | Load 0x0,0x1a
0f0e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f0f 0092 10dd | | Action Push_String_Extended,0x10dd ; ".STANDARD."
0f11 01df | | Execute Vector,Equal
0f12 6806 |h | Jump_Zero 0xf19
0f13 00da | | Load_Top At_Offset_2
0f14 480a |H | Short_Literal 0xa
0f15 4801 |H | Short_Literal 0x1
0f16 e009 | | Load 0x0,0x9
0f17 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0f18 003b | ; | Store_Top Access,At_Offset_3
0f19 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f1a 0000 0000 | | .BLANK 0000[0x6]
0f20 ; --------------------------------------------------------------------------------------
0f20 ; SUBPROGRAM
0f20 ; --------------------------------------------------------------------------------------
0f20 0f26 | & | .CONST 0x0f26 ; Address of begin
0f21 0004 | | .CONST 0x0004 ; Address of exception handler
0f22 0002 | | .CONST 0x0002 ; Number of locals
0f23 INIT_0f20:
0f23 00da | | Load_Top At_Offset_2
0f24 e00e | | Load 0x0,0xe
0f25 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0f26 BODY_0f20:
0f26 e5fc | | Load 0x2,-0x4
0f27 00d9 | | Load_Top At_Offset_1
0f28 8225 | % | Call 0x1,0x25
0f29 c5fc | | Store 0x2,-0x4
0f2a e5fc | | Load 0x2,-0x4
0f2b 8251 | Q | Call 0x1,0x51
0f2c c5fc | | Store 0x2,-0x4
0f2d 00d8 | | Load_Top At_Offset_0
0f2e 00eb | | Load_Encached Diana_Cache
0f2f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f30 0f20 | | Execute_Immediate Equal,0x20
0f31 6806 |h | Jump_Zero 0xf38
0f32 e002 | | Load 0x0,0x2
0f33 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f34 c5fb | | Store 0x2,-0x5
0f35 00d8 | | Load_Top At_Offset_0
0f36 a5fd | | Store_Unchecked 0x2,-0x3
0f37 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f38 e5fb | | Load 0x2,-0x5
0f39 480a |H | Short_Literal 0xa
0f3a 0092 10b1 | | Action Push_String_Extended,0x10b1 ; "Cannot "
0f3c e5fe | | Load 0x2,-0x2
0f3d 8250 | P | Call 0x1,0x50
0f3e 01cc | | Execute Vector,Catenate
0f3f 0092 10de | | Action Push_String_Extended,0x10de ; " the specified object"
0f41 01cc | | Execute Vector,Catenate
0f42 e5fc | | Load 0x2,-0x4
0f43 e009 | | Load 0x0,0x9
0f44 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0f45 8227 | ' | Call 0x1,0x27
0f46 01cc | | Execute Vector,Catenate
0f47 0092 10df | | Action Push_String_Extended,0x10df ; "; it does not name an exception"
0f49 01cc | | Execute Vector,Catenate
0f4a 01cb | | Execute Vector,Append
0f4b e002 | | Load 0x0,0x2
0f4c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0f4d c5fb | | Store 0x2,-0x5
0f4e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0f4f 0000 | | .XXX[0x1]
0f50 ; --------------------------------------------------------------------------------------
0f50 ; SUBPROGRAM
0f50 ; --------------------------------------------------------------------------------------
0f50 0f53 | S | .CONST 0x0f53 ; Address of begin
0f51 0004 | | .CONST 0x0004 ; Address of exception handler
0f52 0001 | | .CONST 0x0001 ; Number of locals
0f53 BODY_0f50:
0f53 INIT_0f50:
0f53 00da | | Load_Top At_Offset_2
0f54 4904 |I | Short_Literal 0x104
0f55 00eb | | Load_Encached Diana_Cache
0f56 0096 | | Execute Package,Entry
0f57 00eb | | Load_Encached Diana_Cache
0f58 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f59 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0f5a 0000 0000 | | .BLANK 0000[0x6]
0f60 ; --------------------------------------------------------------------------------------
0f60 ; SUBPROGRAM
0f60 ; --------------------------------------------------------------------------------------
0f60 0f68 | h | .CONST 0x0f68 ; Address of begin
0f61 0004 | | .CONST 0x0004 ; Address of exception handler
0f62 0004 | | .CONST 0x0004 ; Number of locals
0f63 INIT_0f60:
0f63 00da | | Load_Top At_Offset_2
0f64 e00e | | Load 0x0,0xe
0f65 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0f66 00ec | | Load_Encached Diana_Tree_Cache
0f67 039d | | Declare_Variable Heap_Access,Duplicate
0f68 BODY_0f60:
0f68 00da | | Load_Top At_Offset_2
0f69 00eb | | Load_Encached Diana_Cache
0f6a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f6b 6802 |h | Jump_Zero 0xf6e
0f6c e5ff | | Load 0x2,-0x1
0f6d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0f6e 00da | | Load_Top At_Offset_2
0f6f 00eb | | Load_Encached Diana_Cache
0f70 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0f71 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0f72 00d9 | | Load_Top At_Offset_1
0f73 00eb | | Load_Encached Diana_Cache
0f74 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f75 6811 |h | Jump_Zero 0xf87
0f76 00da | | Load_Top At_Offset_2
0f77 e033 | 3 | Load 0x0,0x33
0f78 180e | | Execute Package,Field_Execute,Field_Number 0xe
0f79 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0f7a 0092 10e0 | | Action Push_String_Extended,0x10e0 ; "Sm_Back_Link returned unexpected kind of node"
0f7c 00d9 | | Load_Top At_Offset_1
0f7d 00eb | | Load_Encached Diana_Cache
0f7e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f7f e5ff | | Load 0x2,-0x1
0f80 00eb | | Load_Encached Diana_Cache
0f81 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f82 027f | | Execute Discrete,Equal
0f83 e032 | 2 | Load 0x0,0x32
0f84 180e | | Execute Package,Field_Execute,Field_Number 0xe
0f85 00d8 | | Load_Top At_Offset_0
0f86 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0f87 00d9 | | Load_Top At_Offset_1
0f88 e00e | | Load 0x0,0xe
0f89 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0f8a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0f8b 00d8 | | Load_Top At_Offset_0
0f8c 8253 | S | Call 0x1,0x53
0f8d 6802 |h | Jump_Zero 0xf90
0f8e e5ff | | Load 0x2,-0x1
0f8f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0f90 00d8 | | Load_Top At_Offset_0
0f91 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0f92 0000 0000 | | .BLANK 0000[0x6]
0f98 ; --------------------------------------------------------------------------------------
0f98 ; SUBPROGRAM
0f98 ; --------------------------------------------------------------------------------------
0f98 0f9b | | .CONST 0x0f9b ; Address of begin
0f99 0004 | | .CONST 0x0004 ; Address of exception handler
0f9a 0001 | | .CONST 0x0001 ; Number of locals
0f9b BODY_0f98:
0f9b INIT_0f98:
0f9b e40a | | Load 0x2,0xa
0f9c 6803 |h | Jump_Zero 0xfa0
0f9d 0092 10e1 | | Action Push_String_Extended,0x10e1 ; "<Selection>"
0f9f 00ca | | Action Exit_Nullary_Function
0fa0 e5ff | | Load 0x2,-0x1
0fa1 0335 | 5 | Declare_Variable Array,Duplicate
0fa2 00cd | | Action Spare6_Action
0fa3 00ca | | Action Exit_Nullary_Function
0fa4 0000 0000 | | .BLANK 0000[0x4]
0fa8 ; --------------------------------------------------------------------------------------
0fa8 ; SUBPROGRAM
0fa8 ; --------------------------------------------------------------------------------------
0fa8 0fab | | .CONST 0x0fab ; Address of begin
0fa9 0004 | | .CONST 0x0004 ; Address of exception handler
0faa 0001 | | .CONST 0x0001 ; Number of locals
0fab BODY_0fa8:
0fab INIT_0fa8:
0fab 00e1 | | Load_Encached Boolean_Cache
0fac 00e1 | | Load_Encached Boolean_Cache
0fad e5fc | | Load 0x2,-0x4
0fae e406 | | Load 0x2,0x6
0faf e402 | | Load 0x2,0x2
0fb0 e7ff | | Load 0x3,-0x1
0fb1 e5fe | | Load 0x2,-0x2
0fb2 8233 | 3 | Call 0x1,0x33
0fb3 c407 | | Store 0x2,0x7
0fb4 c408 | | Store 0x2,0x8
0fb5 e407 | | Load 0x2,0x7
0fb6 6805 |h | Jump_Zero 0xfbc
0fb7 e002 | | Load 0x0,0x2
0fb8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fb9 c5fa | | Store 0x2,-0x6
0fba 00da | | Load_Top At_Offset_2
0fbb c5fb | | Store 0x2,-0x5
0fbc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0fbd 0000 0000 | | .XXX[0x3]
0fbf 0000 | |
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 6804 |h | Jump_Zero 0xfc9
0fc5 e002 | | Load 0x0,0x2
0fc6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fc7 c5fa | | Store 0x2,-0x6
0fc8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0fc9 e5fa | | Load 0x2,-0x6
0fca 00ea | | Load_Encached Null_String_Cache
0fcb e5fc | | Load 0x2,-0x4
0fcc e7fe | | Load 0x3,-0x2
0fcd 8228 | ( | Call 0x1,0x28
0fce c5fa | | Store 0x2,-0x6
0fcf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0fd0 ; --------------------------------------------------------------------------------------
0fd0 ; SUBPROGRAM
0fd0 ; --------------------------------------------------------------------------------------
0fd0 0fd3 | | .CONST 0x0fd3 ; Address of begin
0fd1 0004 | | .CONST 0x0004 ; Address of exception handler
0fd2 0001 | | .CONST 0x0001 ; Number of locals
0fd3 BODY_0fd0:
0fd3 INIT_0fd0:
0fd3 e5fb | | Load 0x2,-0x5
0fd4 00db | | Load_Top At_Offset_3
0fd5 8224 | $ | Call 0x1,0x24
0fd6 c5fb | | Store 0x2,-0x5
0fd7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0fd8 ; --------------------------------------------------------------------------------------
0fd8 ; SUBPROGRAM
0fd8 ; --------------------------------------------------------------------------------------
0fd8 0fdb | | .CONST 0x0fdb ; Address of begin
0fd9 0004 | | .CONST 0x0004 ; Address of exception handler
0fda 0001 | | .CONST 0x0001 ; Number of locals
0fdb BODY_0fd8:
0fdb INIT_0fd8:
0fdb e5fb | | Load 0x2,-0x5
0fdc e402 | | Load 0x2,0x2
0fdd 8225 | % | Call 0x1,0x25
0fde c5fb | | Store 0x2,-0x5
0fdf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0fe0 ; --------------------------------------------------------------------------------------
0fe0 ; SUBPROGRAM
0fe0 ; --------------------------------------------------------------------------------------
0fe0 0fe3 | | .CONST 0x0fe3 ; Address of begin
0fe1 0004 | | .CONST 0x0004 ; Address of exception handler
0fe2 0001 | | .CONST 0x0001 ; Number of locals
0fe3 BODY_0fe0:
0fe3 INIT_0fe0:
0fe3 e5f8 | | Load 0x2,-0x8
0fe4 e7fe | | Load 0x3,-0x2
0fe5 e5fc | | Load 0x2,-0x4
0fe6 e7ff | | Load 0x3,-0x1
0fe7 8242 | B | Call 0x1,0x42
0fe8 c5f8 | | Store 0x2,-0x8
0fe9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0fea 0000 0000 | | .BLANK 0000[0x6]
0ff0 ; --------------------------------------------------------------------------------------
0ff0 ; SUBPROGRAM
0ff0 ; --------------------------------------------------------------------------------------
0ff0 0ff3 | | .CONST 0x0ff3 ; Address of begin
0ff1 0004 | | .CONST 0x0004 ; Address of exception handler
0ff2 0001 | | .CONST 0x0001 ; Number of locals
0ff3 BODY_0ff0:
0ff3 INIT_0ff0:
0ff3 e5fa | | Load 0x2,-0x6
0ff4 00db | | Load_Top At_Offset_3
0ff5 e009 | | Load 0x0,0x9
0ff6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0ff7 c5fa | | Store 0x2,-0x6
0ff8 e002 | | Load 0x0,0x2
0ff9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ffa c5f8 | | Store 0x2,-0x8
0ffb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ffc 0000 0000 | | .BLANK 0000[0x4]
1000 ; --------------------------------------------------------------------------------------
1000 ; SUBPROGRAM
1000 ; --------------------------------------------------------------------------------------
1000 1004 | | .CONST 0x1004 ; Address of begin
1001 0004 | | .CONST 0x0004 ; Address of exception handler
1002 0002 | | .CONST 0x0002 ; Number of locals
1003 INIT_1000:
1003 00ee | | Load_Encached Diana_Seq_Type_Cache
1004 BODY_1000:
1004 00db | | Load_Top At_Offset_3
1005 e00e | | Load 0x0,0xe
1006 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
1007 7004 |p | Jump_Nonzero 0x100c
1008 00db | | Load_Top At_Offset_3
1009 e00e | | Load 0x0,0xe
100a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
100b 6805 |h | Jump_Zero 0x1011
100c 00db | | Load_Top At_Offset_3
100d 802b | + | Call 0x0,0x2b
100e a402 | | Store_Unchecked 0x2,0x2
100f 00ea | | Load_Encached Null_String_Cache
1010 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1011 00db | | Load_Top At_Offset_3
1012 00eb | | Load_Encached Diana_Cache
1013 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1014 0b0d | | Execute_Immediate Case_Compare,0xd
1015 7010 |p | Jump_Nonzero 0x1026
1016 0b12 | | Execute_Immediate Case_Compare,0x12
1017 7019 |p | Jump_Nonzero 0x1031
1018 0f11 | | Execute_Immediate Equal,0x11
1019 7026 |p& | Jump_Nonzero 0x1040
101a e5f9 | | Load 0x2,-0x7
101b 00ea | | Load_Encached Null_String_Cache
101c e5fc | | Load 0x2,-0x4
101d 00d8 | | Load_Top At_Offset_0
101e e7ff | | Load 0x3,-0x1
101f 00eb | | Load_Encached Diana_Cache
1020 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1021 824b | K | Call 0x1,0x4b
1022 8242 | B | Call 0x1,0x42
1023 c5f9 | | Store 0x2,-0x7
1024 00ea | | Load_Encached Null_String_Cache
1025 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1026 00d1 | | Pop_Control Pop_Count_1
1027 482e |H. | Short_Literal 0x2e
1028 e7ff | | Load 0x3,-0x1
1029 00eb | | Load_Encached Diana_Cache
102a 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
102b 8403 | | Call 0x2,0x3
102c 01cb | | Execute Vector,Append
102d 0092 10e2 | | Action Push_String_Extended,0x10e2 ; "all"
102f 01cc | | Execute Vector,Catenate
1030 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1031 00d1 | | Pop_Control Pop_Count_1
1032 482e |H. | Short_Literal 0x2e
1033 e7ff | | Load 0x3,-0x1
1034 00eb | | Load_Encached Diana_Cache
1035 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
1036 8403 | | Call 0x2,0x3
1037 01cb | | Execute Vector,Append
1038 4800 |H | Short_Literal 0x0
1039 e7ff | | Load 0x3,-0x1
103a 00eb | | Load_Encached Diana_Cache
103b 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0
103c e00f | | Load 0x0,0xf
103d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
103e 01cc | | Execute Vector,Catenate
103f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1040 00db | | Load_Top At_Offset_3
1041 00eb | | Load_Encached Diana_Cache
1042 18c9 | | Execute Package,Field_Execute,Field_Number 0xc9
1043 00eb | | Load_Encached Diana_Cache
1044 1888 | | Execute Package,Field_Execute,Field_Number 0x88
1045 0031 | 1 | Store_Top Heap_Access,At_Offset_1
1046 4829 |H) | Short_Literal 0x29
1047 4828 |H( | Short_Literal 0x28
1048 e7ff | | Load 0x3,-0x1
1049 00eb | | Load_Encached Diana_Cache
104a 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
104b 8403 | | Call 0x2,0x3
104c 01cb | | Execute Vector,Append
104d 00da | | Load_Top At_Offset_2
104e 824a | J | Call 0x1,0x4a
104f 01cc | | Execute Vector,Catenate
1050 01cb | | Execute Vector,Append
1051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1052 0000 0000 | | .BLANK 0000[0x6]
1058 ; --------------------------------------------------------------------------------------
1058 ; SUBPROGRAM
1058 ; --------------------------------------------------------------------------------------
1058 105b | [ | .CONST 0x105b ; Address of begin
1059 0004 | | .CONST 0x0004 ; Address of exception handler
105a 0001 | | .CONST 0x0001 ; Number of locals
105b BODY_1058:
105b INIT_1058:
105b e5f9 | | Load 0x2,-0x7
105c 00ec | | Load_Encached Diana_Tree_Cache
105d e5fb | | Load 0x2,-0x5
105e e7ff | | Load 0x3,-0x1
105f e5fc | | Load 0x2,-0x4
1060 e5fd | | Load 0x2,-0x3
1061 e5fe | | Load 0x2,-0x2
1062 e402 | | Load 0x2,0x2
1063 8248 | H | Call 0x1,0x48
1064 c5fb | | Store 0x2,-0x5
1065 c5fa | | Store 0x2,-0x6
1066 c5f9 | | Store 0x2,-0x7
1067 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1068 ; --------------------------------------------------------------------------------------
1068 ; SUBPROGRAM
1068 ; --------------------------------------------------------------------------------------
1068 106b | k | .CONST 0x106b ; Address of begin
1069 0004 | | .CONST 0x0004 ; Address of exception handler
106a 0001 | | .CONST 0x0001 ; Number of locals
106b BODY_1068:
106b INIT_1068:
106b 00da | | Load_Top At_Offset_2
106c 00eb | | Load_Encached Diana_Cache
106d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
106e 680f |h | Jump_Zero 0x107e
106f e5f9 | | Load 0x2,-0x7
1070 00ea | | Load_Encached Null_String_Cache
1071 e5fc | | Load 0x2,-0x4
1072 0092 10da | | Action Push_String_Extended,0x10da ; "Can't select and "
1074 4800 |H | Short_Literal 0x0
1075 e5fc | | Load 0x2,-0x4
1076 8241 | A | Call 0x1,0x41
1077 01cc | | Execute Vector,Catenate
1078 0092 10db | | Action Push_String_Extended,0x10db ; " this kind of object"
107a 01cc | | Execute Vector,Catenate
107b 8242 | B | Call 0x1,0x42
107c c5f9 | | Store 0x2,-0x7
107d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
107e e5f9 | | Load 0x2,-0x7
107f 00ec | | Load_Encached Diana_Tree_Cache
1080 e5fb | | Load 0x2,-0x5
1081 00ea | | Load_Encached Null_String_Cache
1082 e5fc | | Load 0x2,-0x4
1083 e5fd | | Load 0x2,-0x3
1084 e5fe | | Load 0x2,-0x2
1085 e7ff | | Load 0x3,-0x1
1086 8248 | H | Call 0x1,0x48
1087 c5fb | | Store 0x2,-0x5
1088 c5fa | | Store 0x2,-0x6
1089 c5f9 | | Store 0x2,-0x7
108a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
108b ; --------------------------------------------------------------------------------------
108b ; STRING TABLE
108b ; --------------------------------------------------------------------------------------
108b 00b2 | | .STRTAB 0x00b2->0x10e4 ; "BREAK"
108c 00b5 | | .STRTAB 0x00b5->0x10e6 ; "TAKE_HISTORY"
108d 00bf | | .STRTAB 0x00bf->0x10ec ; "TRACE"
108e 00c2 | | .STRTAB 0x00c2->0x10ef ; "LOCATION_TO_ADDRESS"
108f 00d3 | | .STRTAB 0x00d3->0x10f8 ; "CATCH"
1090 00d6 | | .STRTAB 0x00d6->0x10fb ; "PROPAGATE"
1091 00dd | | .STRTAB 0x00dd->0x10ff ; "FORGET"
1092 00e1 | | .STRTAB 0x00e1->0x1102 ; "MODIFY_OPERATION"
1093 00ef | | .STRTAB 0x00ef->0x110a ; "PUT_OPERATION"
1094 00fa | | .STRTAB 0x00fa->0x1111 ; "OBJECT_LOCATION"
1095 0107 | | .STRTAB 0x0107->0x1118 ; "CONTROL_CONTEXT_OPERATION"
1096 011e | | .STRTAB 0x011e->0x1125 ; "CATCH"
1097 0121 | ! | .STRTAB 0x0121->0x1127 ; "PROPAGATE"
1098 0128 | ( | .STRTAB 0x0128->0x112c ; "FORGET"
1099 012c | , | .STRTAB 0x012c->0x112f ; "Problem encountered resolving name: \x0aProgram has been recompiled since debugger started.\x0a"
109a 0183 | | .STRTAB 0x0183->0x115b ; "Exception raised resolving name: "
109b 01a2 | | .STRTAB 0x01a2->0x116c ; "Set control context to"
109c 01b6 | | .STRTAB 0x01b6->0x1177 ; "Modify"
109d 01ba | | .STRTAB 0x01ba->0x117a ; "Put"
109e 01bb | | .STRTAB 0x01bb->0x117b ; "Object_Location"
109f 01c8 | | .STRTAB 0x01c8->0x1183 ; "Set your control context to a single task before specifying a frame reference"
10a0 0213 | | .STRTAB 0x0213->0x11a9 ; "Task not specified"
10a1 0223 | # | .STRTAB 0x0223->0x11b2 ; "enable"
10a2 0227 | ' | .STRTAB 0x0227->0x11b5 ; "disable"
10a3 022c | , | .STRTAB 0x022c->0x11b9 ; "forget exceptions"
10a4 023b | ; | .STRTAB 0x023b->0x11c1 ; "break"
10a5 023e | > | .STRTAB 0x023e->0x11c4 ; "catch exceptions"
10a6 024c | L | .STRTAB 0x024c->0x11cc ; "propagate exceptions"
10a7 025e | ^ | .STRTAB 0x025e->0x11d6 ; " history-taking"
10a8 026b | k | .STRTAB 0x026b->0x11dd ; " tracing"
10a9 0271 | q | .STRTAB 0x0271->0x11e1 ; "display the address of the code"
10aa 028e | | .STRTAB 0x028e->0x11f1 ; "."
10ab 028d | | .STRTAB 0x028d->0x11f1 ; "unable to obtain object's enclosing block"
10ac 02b4 | | .STRTAB 0x02b4->0x1206 ; "unable to obtain object's enclosing subprogram"
10ad 02e0 | | .STRTAB 0x02e0->0x121d ; "The specified statement is not numbered"
10ae 0305 | | .STRTAB 0x0305->0x1230 ; "the object is in a declaration which is not numbered"
10af 0337 | 7 | .STRTAB 0x0337->0x124a ; "'s location"
10b0 0340 | @ | .STRTAB 0x0340->0x1250 ; " "
10b1 033f | ? | .STRTAB 0x033f->0x1250 ; "Cannot "
10b2 0344 | D | .STRTAB 0x0344->0x1254 ; " at the selected object"
10b3 0359 | Y | .STRTAB 0x0359->0x125f ; "the loop with parameter "
10b4 036f | o | .STRTAB 0x036f->0x126b ; " in "
10b5 0371 | q | .STRTAB 0x0371->0x126d ; "Nonexistent task"
10b6 037f | | .STRTAB 0x037f->0x1275 ; "There is no activation of "
10b7 0397 | | .STRTAB 0x0397->0x1282 ; " in stack frames"
10b8 03a5 | | .STRTAB 0x03a5->0x128a ; " through"
10b9 03ab | | .STRTAB 0x03ab->0x128e ; " of task "
10ba 03b2 | | .STRTAB 0x03b2->0x1293 ; "The object "
10bb 03bb | | .STRTAB 0x03bb->0x1298 ; " is not part of the program being debugged"
10bc 03e3 | | .STRTAB 0x03e3->0x12ad ; "Warning: The object "
10bd 03f5 | | .STRTAB 0x03f5->0x12b7 ; " for an entry declaration"
10be 040c | | .STRTAB 0x040c->0x12c4 ; "unable to obtain object's statement or declaration number"
10bf 0443 | C | .STRTAB 0x0443->0x12e0 ; "unable to obtain object's statement number in "
10c0 046f | o | .STRTAB 0x046f->0x12f7 ; "Unable to obtain object's declaration number in "
10c1 049d | | .STRTAB 0x049d->0x130f ; "A location selected at which to "
10c2 04bb | | .STRTAB 0x04bb->0x131f ; " must be "
10c3 04c2 | | .STRTAB 0x04c2->0x1324 ; "a statement, declaration or subprogram"
10c4 04e6 | | .STRTAB 0x04e6->0x1337 ; "used as a control context;"
10c5 04fe | | .STRTAB 0x04fe->0x1344 ; "set control context to"
10c6 0512 | | .STRTAB 0x0512->0x134f ; "modified"
10c7 0518 | | .STRTAB 0x0518->0x1353 ; "modify"
10c8 051c | | .STRTAB 0x051c->0x1356 ; "displayed"
10c9 0523 | # | .STRTAB 0x0523->0x135a ; "display"
10ca 0528 | ( | .STRTAB 0x0528->0x135e ; "The selected object "
10cb 053a | : | .STRTAB 0x053a->0x1368 ; "cannot be "
10cc 0542 | B | .STRTAB 0x0542->0x136d ; ": "
10cd 0543 | C | .STRTAB 0x0543->0x136e ; "Can't "
10ce 0547 | G | .STRTAB 0x0547->0x1371 ; " this type of selected or indexed object"
10cf 056d | m | .STRTAB 0x056d->0x1385 ; " a selected or indexed object containing a "
10d0 0596 | | .STRTAB 0x0596->0x139b ; "slice"
10d1 0599 | | .STRTAB 0x0599->0x139d ; " a selected or indexed object containing "
10d2 05c0 | | .STRTAB 0x05c0->0x13b2 ; "an attribute"
10d3 05ca | | .STRTAB 0x05ca->0x13b8 ; "function call"
10d4 05d5 | | .STRTAB 0x05d5->0x13be ; "Check_Selected_Or_Indexed_Selection_Context passed node of type "
10d5 0613 | | .STRTAB 0x0613->0x13de ; "Can only "
10d6 061a | | .STRTAB 0x061a->0x13e3 ; " an indexed object if its indexes are constants"
10d7 0648 | H | .STRTAB 0x0648->0x13fb ; " this kind of selected or indexed object"
10d8 066e | n | .STRTAB 0x066e->0x140f ; " the value of an entry declaration"
10d9 068e | | .STRTAB 0x068e->0x1420 ; "Unable to obtain statement object's enclosing subprogram"
10da 06c4 | | .STRTAB 0x06c4->0x143c ; "Can't select and "
10db 06d3 | | .STRTAB 0x06d3->0x1444 ; " this kind of object"
10dc 06e5 | | .STRTAB 0x06e5->0x144e ; " the value of a pragma"
10dd 06f9 | | .STRTAB 0x06f9->0x1459 ; ".STANDARD."
10de 0701 | | .STRTAB 0x0701->0x145e ; " the specified object"
10df 0714 | | .STRTAB 0x0714->0x1469 ; "; it does not name an exception"
10e0 0731 | 1 | .STRTAB 0x0731->0x1478 ; "Sm_Back_Link returned unexpected kind of node"
10e1 075c | \ | .STRTAB 0x075c->0x148f ; "<Selection>"
10e2 0765 | e | .STRTAB 0x0765->0x1494 ; "all"
10e3 0766 | f | .STREND 0x0766->0x1496
10e4 4252 4541 |BREA| .STRTAB_STRINGS
1496 0000 0000 | | .XXX[0x2]
1498 ; --------------------------------------------------------------------------------------
1498 ; Debug Table
1498 ; --------------------------------------------------------------------------------------
1498 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1642,0x0000,0x0001,0x0000
149e 0000 0000 | | .BLANK 0000[0x162]