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