|
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: 10240 (0x2800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 1398 | | .CONST 0x1398 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 800c | | .CONST 0x800c ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 010a | | .CONST 0x010a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0074 | t | .CONST 0x0074 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 000d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000f 0129 | ) | Execute Any,Make_Visible 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0028 c21d | | Store 0x1,0x1d 0029 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002b c221 | ! | Store 0x1,0x21 002c 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 002e c21e | | Store 0x1,0x1e 002f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0031 c21c | | Store 0x1,0x1c 0032 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0034 c223 | # | Store 0x1,0x23 0035 00bf | | Action Accept_Activation 0036 4800 |H | Short_Literal 0x0 0037 4803 |H | Short_Literal 0x3 0038 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call 003a 03fd | | Declare_Type Discrete,Defined 003b e002 | | Load 0x0,0x2 003c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 003d e003 | | Load 0x0,0x3 003e e004 | | Load 0x0,0x4 003f 4900 |I | Short_Literal 0x100 0040 00ec | | Load_Encached Diana_Tree_Cache 0041 e005 | | Load 0x0,0x5 0042 0387 | | Declare_Variable Package 0043 00d8 | | Load_Top At_Offset_0 0044 020f | | Execute Module,Activate 0045 029b 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Unelaborated 0047 e006 | | Load 0x0,0x6 0048 e007 | | Load 0x0,0x7 0049 4900 |I | Short_Literal 0x100 004a 00e3 | | Load_Encached Natural_Cache 004b e226 | & | Load 0x1,0x26 004c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 004d 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 004e e008 | | Load 0x0,0x8 004f 0387 | | Declare_Variable Package 0050 00d8 | | Load_Top At_Offset_0 0051 020f | | Execute Module,Activate 0052 00d8 | | Load_Top At_Offset_0 0053 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0054 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0055 00c7 | | Action Elaborate_Subprogram 0056 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0058 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 005b 00c7 | | Action Elaborate_Subprogram 005c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 005d 00c7 | | Action Elaborate_Subprogram 005e 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 0060 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call 0062 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call 0064 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 0066 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 0068 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 006a 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call 006c 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call 006e 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 0070 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call 0072 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call 0074 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call 0076 029b 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Unelaborated 0078 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0079 00c7 | | Action Elaborate_Subprogram 007a 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 007b 00c6 | | Action Check_Subprogram_Elaborated 007c e009 | | Load 0x0,0x9 007d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 007e 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 007f e00a | | Load 0x0,0xa 0080 e00b | | Load 0x0,0xb 0081 4800 |H | Short_Literal 0x0 0082 0007 | | Action Break_Optional 0083 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0084 00c6 | | Action Check_Subprogram_Elaborated 0085 e009 | | Load 0x0,0x9 0086 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0087 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0088 e00c | | Load 0x0,0xc 0089 e00d | | Load 0x0,0xd 008a 4800 |H | Short_Literal 0x0 008b 0007 | | Action Break_Optional 008c 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 008d 00c6 | | Action Check_Subprogram_Elaborated 008e e009 | | Load 0x0,0x9 008f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0091 e00e | | Load 0x0,0xe 0092 e00f | | Load 0x0,0xf 0093 4800 |H | Short_Literal 0x0 0094 0007 | | Action Break_Optional 0095 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0096 00c6 | | Action Check_Subprogram_Elaborated 0097 e009 | | Load 0x0,0x9 0098 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0099 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009a e010 | | Load 0x0,0x10 009b e011 | | Load 0x0,0x11 009c 4800 |H | Short_Literal 0x0 009d 0007 | | Action Break_Optional 009e 029b 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Unelaborated 00a0 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 00a3 00c6 | | Action Check_Subprogram_Elaborated 00a4 e009 | | Load 0x0,0x9 00a5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00a6 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 00a7 e009 | | Load 0x0,0x9 00a8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00a9 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 00aa e012 | | Load 0x0,0x12 00ab e013 | | Load 0x0,0x13 00ac 4800 |H | Short_Literal 0x0 00ad 0007 | | Action Break_Optional 00ae 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 00af 00c6 | | Action Check_Subprogram_Elaborated 00b0 e009 | | Load 0x0,0x9 00b1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b3 e009 | | Load 0x0,0x9 00b4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b6 e014 | | Load 0x0,0x14 00b7 e015 | | Load 0x0,0x15 00b8 4800 |H | Short_Literal 0x0 00b9 0007 | | Action Break_Optional 00ba 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 00bb 00c6 | | Action Check_Subprogram_Elaborated 00bc e009 | | Load 0x0,0x9 00bd 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00be 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 00bf e009 | | Load 0x0,0x9 00c0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00c1 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 00c2 e016 | | Load 0x0,0x16 00c3 e017 | | Load 0x0,0x17 00c4 4800 |H | Short_Literal 0x0 00c5 0007 | | Action Break_Optional 00c6 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call 00c8 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call 00ca 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call 00cc 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call 00ce 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 00d0 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call 00d2 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call 00d4 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call 00d6 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call 00d8 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call 00da 029d 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call 00dc 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call 00de 029d 080b | | Declare_Subprogram INIT_0808,For_Outer_Call 00e0 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 00e2 029d 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call 00e4 029d 091b | | Declare_Subprogram INIT_0918,For_Outer_Call 00e6 029d 093b | ;| Declare_Subprogram INIT_0938,For_Outer_Call 00e8 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call 00ea 029d 0a8b | | Declare_Subprogram INIT_0a88,For_Outer_Call 00ec 029d 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call 00ee 029d 0aeb | | Declare_Subprogram INIT_0ae8,For_Outer_Call 00f0 029d 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call 00f2 029d 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call 00f4 029d 0bfb | | Declare_Subprogram INIT_0bf8,For_Outer_Call 00f6 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call 00f8 029d 0d4b | K| Declare_Subprogram INIT_0d48,For_Outer_Call 00fa e018 | | Load 0x0,0x18 00fb e019 | | Load 0x0,0x19 00fc 00e6 | | Load_Encached Float_Cache 00fd e01a | | Load 0x0,0x1a 00fe 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 00ff 0387 | | Declare_Variable Package 0100 00d8 | | Load_Top At_Offset_0 0101 020f | | Execute Module,Activate 0102 029d 0d5b | [| Declare_Subprogram INIT_0d58,For_Outer_Call 0104 029d 0d73 | s| Declare_Subprogram INIT_0d70,For_Outer_Call 0106 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0107 00c7 | | Action Elaborate_Subprogram 0108 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0109 00c7 | | Action Elaborate_Subprogram 010a BODY_0008: 010a e01b | | Load 0x0,0x1b 010b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010c e01c | | Load 0x0,0x1c 010d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010e a225 | % | Store_Unchecked 0x1,0x25 010f e228 | ( | Load 0x1,0x28 0110 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0111 4900 |I | Short_Literal 0x100 0112 e225 | % | Load 0x1,0x25 0113 e228 | ( | Load 0x1,0x28 0114 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0115 c229 | ) | Store 0x1,0x29 0116 00bc | | Action Signal_Activated 0117 00bb | | Action Signal_Completion 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0138 | 8 | .CONST 0x0138 ; Address of begin 0119 017e | ~ | .CONST 0x017e ; Address of exception handler 011a 000c | | .CONST 0x000c ; Number of locals 011b INIT_0118: 011b e226 | & | Load 0x1,0x26 011c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 011d 00ec | | Load_Encached Diana_Tree_Cache 011e 02c7 | | Declare_Variable Any 011f 00d8 | | Load_Top At_Offset_0 0120 1c00 | | Execute_Immediate Run_Utility,0x0 0121 00e1 | | Load_Encached Boolean_Cache 0122 00ec | | Load_Encached Diana_Tree_Cache 0123 02c7 | | Declare_Variable Any 0124 00d8 | | Load_Top At_Offset_0 0125 1c00 | | Execute_Immediate Run_Utility,0x0 0126 00ef | | Load_Encached Diana_Sequence_Cache 0127 02c7 | | Declare_Variable Any 0128 00d8 | | Load_Top At_Offset_0 0129 1c00 | | Execute_Immediate Run_Utility,0x0 012a 00ec | | Load_Encached Diana_Tree_Cache 012b 02c7 | | Declare_Variable Any 012c 00d8 | | Load_Top At_Offset_0 012d 1c00 | | Execute_Immediate Run_Utility,0x0 012e 00e3 | | Load_Encached Natural_Cache 012f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0130 029f 0dd3 | | Declare_Subprogram INIT_0dd0,For_Call 0132 029f 0dfb | | Declare_Subprogram INIT_0df8,For_Call 0134 029f 0e4b | K| Declare_Subprogram INIT_0e48,For_Call 0136 029f 0e5b | [| Declare_Subprogram INIT_0e58,For_Call 0138 BODY_0118: 0138 e226 | & | Load 0x1,0x26 0139 1b12 | | Execute Package,Field_Read,Field_Number 0x12 013a 4900 |I | Short_Literal 0x100 013b e225 | % | Load 0x1,0x25 013c e226 | & | Load 0x1,0x26 013d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013e c402 | | Store 0x2,0x2 013f e229 | ) | Load 0x1,0x29 0140 4800 |H | Short_Literal 0x0 0141 e402 | | Load 0x2,0x2 0142 e5ff | | Load 0x2,-0x1 0143 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0144 e228 | ( | Load 0x1,0x28 0145 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0146 c229 | ) | Store 0x1,0x29 0147 e5ff | | Load 0x2,-0x1 0148 e01d | | Load 0x0,0x1d 0149 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 014a c405 | | Store 0x2,0x5 014b e405 | | Load 0x2,0x5 014c 00eb | | Load_Encached Diana_Cache 014d 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 014e 00eb | | Load_Encached Diana_Cache 014f 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8 0150 00eb | | Load_Encached Diana_Cache 0151 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 0152 00eb | | Load_Encached Diana_Cache 0153 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0154 4974 |It | Short_Literal 0x174 0155 00eb | | Load_Encached Diana_Cache 0156 0098 | | Execute Package,Field_Read_Dynamic 0157 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0158 c406 | | Store 0x2,0x6 0159 00cf | | Action Mark_Auxiliary 015a 780e |x | Jump 0x169 015b e406 | | Load 0x2,0x6 015c 00eb | | Load_Encached Diana_Cache 015d 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 015e c407 | | Store 0x2,0x7 015f e407 | | Load 0x2,0x7 0160 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0161 0f3b | ; | Execute_Immediate Equal,0x3b 0162 6801 |h | Jump_Zero 0x164 0163 840a | | Call 0x2,0xa 0164 e406 | | Load 0x2,0x6 0165 0217 | | Execute Heap_Access,All_Reference 0166 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0167 c406 | | Store 0x2,0x6 0168 00c9 | | Action Pop_Auxiliary_Loop 0169 e406 | | Load 0x2,0x6 016a 021d | | Execute Heap_Access,Is_Null 016b 0f00 | | Execute_Immediate Equal,0x0 016c e408 | | Load 0x2,0x8 016d 0e03 | | Execute_Immediate Not_Equal,0x3 016e 0279 | y | Execute Discrete,And 016f 77eb |w | Jump_Nonzero 0x15b 0170 00ce | | Action Pop_Auxiliary 0171 e408 | | Load 0x2,0x8 0172 0e03 | | Execute_Immediate Not_Equal,0x3 0173 6807 |h | Jump_Zero 0x17b 0174 e01e | | Load 0x0,0x1e 0175 180e | | Execute Package,Field_Execute,Field_Number 0xe 0176 4806 |H | Short_Literal 0x6 0177 0092 1187 | | Action Push_String_Extended,0x1187 ; "Could not find all universal types in Standard" 0179 e01f | | Load 0x0,0x1f 017a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017b 840b | | Call 0x2,0xb 017c 840c | | Call 0x2,0xc 017d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017e TRAP_0118: 017e e020 | | Load 0x0,0x20 017f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0180 010f | | Execute Exception,Equal 0181 6808 |h | Jump_Zero 0x18a 0182 e01e | | Load 0x0,0x1e 0183 180e | | Execute Package,Field_Execute,Field_Number 0xe 0184 4806 |H | Short_Literal 0x6 0185 0092 1188 | | Action Push_String_Extended,0x1188 ; "Target not registered" 0187 e01f | | Load 0x0,0x1f 0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018a e228 | ( | Load 0x1,0x28 018b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 018c 010f | | Execute Exception,Equal 018d 6808 |h | Jump_Zero 0x196 018e e01e | | Load 0x0,0x1e 018f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0190 4806 |H | Short_Literal 0x6 0191 0092 1189 | | Action Push_String_Extended,0x1189 ; "Multiply defined target" 0193 e01f | | Load 0x0,0x1f 0194 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0196 e009 | | Load 0x0,0x9 0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0198 010f | | Execute Exception,Equal 0199 6801 |h | Jump_Zero 0x19b 019a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019b 0100 | | Execute Exception,Raise 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a8 | | .CONST 0x01a8 ; Address of begin 01a1 01b3 | | .CONST 0x01b3 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 e226 | & | Load 0x1,0x26 01a4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01a5 e5fe | | Load 0x2,-0x2 01a6 e021 | ! | Load 0x0,0x21 01a7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a8 BODY_01a0: 01a8 e5ff | | Load 0x2,-0x1 01a9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01aa e229 | ) | Load 0x1,0x29 01ab e228 | ( | Load 0x1,0x28 01ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01ad 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01ae 00d8 | | Load_Top At_Offset_0 01af 00da | | Load_Top At_Offset_2 01b0 e226 | & | Load 0x1,0x26 01b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b3 TRAP_01a0: 01b3 e226 | & | Load 0x1,0x26 01b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01b5 010f | | Execute Exception,Equal 01b6 680e |h | Jump_Zero 0x1c5 01b7 e01e | | Load 0x0,0x1e 01b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b9 4806 |H | Short_Literal 0x6 01ba 0092 118a | | Action Push_String_Extended,0x118a ; "Undefined type '" 01bc e5fe | | Load 0x2,-0x2 01bd 01cc | | Execute Vector,Catenate 01be 0092 118b | | Action Push_String_Extended,0x118b ; "' discovered in object checking." 01c0 01cc | | Execute Vector,Catenate 01c1 e01f | | Load 0x0,0x1f 01c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c3 00ec | | Load_Encached Diana_Tree_Cache 01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c5 e228 | ( | Load 0x1,0x28 01c6 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 01c7 010f | | Execute Exception,Equal 01c8 6808 |h | Jump_Zero 0x1d1 01c9 e01e | | Load 0x0,0x1e 01ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 01cb 4802 |H | Short_Literal 0x2 01cc 0092 118c | | Action Push_String_Extended,0x118c ; "Undefined target found in object_checking" 01ce e01f | | Load 0x0,0x1f 01cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d0 0831 | 1 | Execute_Immediate Raise,0x31 01d1 0100 | | Execute Exception,Raise 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 01e2 | | .CONST 0x01e2 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e229 | ) | Load 0x1,0x29 01dc 00db | | Load_Top At_Offset_3 01dd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01de e228 | ( | Load 0x1,0x28 01df 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01e0 c229 | ) | Store 0x1,0x29 01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e2 TRAP_01d8: 01e2 e228 | ( | Load 0x1,0x28 01e3 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 01e4 010f | | Execute Exception,Equal 01e5 6808 |h | Jump_Zero 0x1ee 01e6 e01e | | Load 0x0,0x1e 01e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e8 4806 |H | Short_Literal 0x6 01e9 0092 118d | | Action Push_String_Extended,0x118d ; "Target already undefined" 01eb e01f | | Load 0x0,0x1f 01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ee 0100 | | Execute Exception,Raise 01ef 0000 | | .XXX[0x1] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 0215 | | .CONST 0x0215 ; Address of begin 01f1 023b | ; | .CONST 0x023b ; Address of exception handler 01f2 000a | | .CONST 0x000a ; Number of locals 01f3 INIT_01f0: 01f3 00ec | | Load_Encached Diana_Tree_Cache 01f4 02c7 | | Declare_Variable Any 01f5 00d8 | | Load_Top At_Offset_0 01f6 1c00 | | Execute_Immediate Run_Utility,0x0 01f7 00ec | | Load_Encached Diana_Tree_Cache 01f8 02c7 | | Declare_Variable Any 01f9 00d8 | | Load_Top At_Offset_0 01fa 1c00 | | Execute_Immediate Run_Utility,0x0 01fb 00e1 | | Load_Encached Boolean_Cache 01fc e5ff | | Load 0x2,-0x1 01fd e009 | | Load 0x0,0x9 01fe 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01ff 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0200 e009 | | Load 0x0,0x9 0201 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0202 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 0203 02c7 | | Declare_Variable Any 0204 e5ff | | Load 0x2,-0x1 0205 e009 | | Load 0x0,0x9 0206 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0207 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0208 a406 | | Store_Unchecked 0x2,0x6 0209 e009 | | Load 0x0,0x9 020a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 020b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 020c 02c7 | | Declare_Variable Any 020d 00d8 | | Load_Top At_Offset_0 020e 1c00 | | Execute_Immediate Run_Utility,0x0 020f 00e1 | | Load_Encached Boolean_Cache 0210 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0211 00e1 | | Load_Encached Boolean_Cache 0212 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0213 029f 0e6b | k| Declare_Subprogram INIT_0e68,For_Call 0215 BODY_01f0: 0215 e405 | | Load 0x2,0x5 0216 e5fe | | Load 0x2,-0x2 0217 e001 | | Load 0x0,0x1 0218 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0219 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 021b 8221 | ! | Call 0x1,0x21 021c c403 | | Store 0x2,0x3 021d 840a | | Call 0x2,0xa 021e e402 | | Load 0x2,0x2 021f 7003 |p | Jump_Nonzero 0x223 0220 4800 |H | Short_Literal 0x0 0221 a5fc | | Store_Unchecked 0x2,-0x4 0222 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0223 e406 | | Load 0x2,0x6 0224 e009 | | Load 0x0,0x9 0225 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0226 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0227 7003 |p | Jump_Nonzero 0x22b 0228 4801 |H | Short_Literal 0x1 0229 a5fc | | Store_Unchecked 0x2,-0x4 022a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 022b e406 | | Load 0x2,0x6 022c e009 | | Load 0x0,0x9 022d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 022e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 022f c407 | | Store 0x2,0x7 0230 00e1 | | Load_Encached Boolean_Cache 0231 e5fe | | Load 0x2,-0x2 0232 e407 | | Load 0x2,0x7 0233 e5fd | | Load 0x2,-0x3 0234 8274 | t | Call 0x1,0x74 0235 005a | Z | Store_Top Discrete,At_Offset_2 0236 00d9 | | Load_Top At_Offset_1 0237 00db | | Load_Top At_Offset_3 0238 0279 | y | Execute Discrete,And 0239 a5fc | | Store_Unchecked 0x2,-0x4 023a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 023b TRAP_01f0: 023b e009 | | Load 0x0,0x9 023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023d 010f | | Execute Exception,Equal 023e 7004 |p | Jump_Nonzero 0x243 023f e020 | | Load 0x0,0x20 0240 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0241 010f | | Execute Exception,Equal 0242 6802 |h | Jump_Zero 0x245 0243 00d8 | | Load_Top At_Offset_0 0244 0101 | | Execute Exception,Reraise 0245 0092 118e | | Action Push_String_Extended,0x118e ; " raised " 0247 4800 |H | Short_Literal 0x0 0248 4801 |H | Short_Literal 0x1 0249 e022 | " | Load 0x0,0x22 024a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 024b 01cc | | Execute Vector,Catenate 024c e5fd | | Load 0x2,-0x3 024d e5fe | | Load 0x2,-0x2 024e 822c | , | Call 0x1,0x2c 024f 4800 |H | Short_Literal 0x0 0250 a5fc | | Store_Unchecked 0x2,-0x4 0251 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0252 0000 0000 | | .BLANK 0000[0x6] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0269 | i | .CONST 0x0269 ; Address of begin 0259 0315 | | .CONST 0x0315 ; Address of exception handler 025a 0006 | | .CONST 0x0006 ; Number of locals 025b INIT_0258: 025b e224 | $ | Load 0x1,0x24 025c 0007 | | Action Break_Optional 025d 00f1 | | Load_Encached Diana_Temp_Seq 025e 02c7 | | Declare_Variable Any 025f 00d8 | | Load_Top At_Offset_0 0260 1c00 | | Execute_Immediate Run_Utility,0x0 0261 00e1 | | Load_Encached Boolean_Cache 0262 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0263 00e1 | | Load_Encached Boolean_Cache 0264 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0265 00ec | | Load_Encached Diana_Tree_Cache 0266 02c7 | | Declare_Variable Any 0267 00d8 | | Load_Top At_Offset_0 0268 1c00 | | Execute_Immediate Run_Utility,0x0 0269 BODY_0258: 0269 e5f9 | | Load 0x2,-0x7 026a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 026b 0f0b | | Execute_Immediate Equal,0xb 026c 6805 |h | Jump_Zero 0x272 026d e5f9 | | Load 0x2,-0x7 026e 4814 |H | Short_Literal 0x14 026f e023 | # | Load 0x0,0x23 0270 180e | | Execute Package,Field_Execute,Field_Number 0xe 0271 c5f9 | | Store 0x2,-0x7 0272 e5fa | | Load 0x2,-0x6 0273 6803 |h | Jump_Zero 0x277 0274 e5f9 | | Load 0x2,-0x7 0275 c406 | | Store 0x2,0x6 0276 7802 |x | Jump 0x279 0277 00ec | | Load_Encached Diana_Tree_Cache 0278 c406 | | Store 0x2,0x6 0279 e5fc | | Load 0x2,-0x4 027a 01db | | Execute Vector,Length 027b 0c01 | | Execute_Immediate Greater_Equal,0x1 027c 680b |h | Jump_Zero 0x288 027d 00e1 | | Load_Encached Boolean_Cache 027e e5fb | | Load 0x2,-0x5 027f e5f9 | | Load 0x2,-0x7 0280 e5fc | | Load 0x2,-0x4 0281 8271 | q | Call 0x1,0x71 0282 005b | [ | Store_Top Discrete,At_Offset_3 0283 00da | | Load_Top At_Offset_2 0284 6803 |h | Jump_Zero 0x288 0285 4801 |H | Short_Literal 0x1 0286 a5f7 | | Store_Unchecked 0x2,-0x9 0287 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0288 00db | | Load_Top At_Offset_3 0289 0120 | | Execute Any,Is_Value 028a 6802 |h | Jump_Zero 0x28d 028b 00f1 | | Load_Encached Diana_Temp_Seq 028c 7801 |x | Jump 0x28e 028d 00db | | Load_Top At_Offset_3 028e e224 | $ | Load 0x1,0x24 028f e5f9 | | Load 0x2,-0x7 0290 e5fb | | Load 0x2,-0x5 0291 8261 | a | Call 0x1,0x61 0292 c5f9 | | Store 0x2,-0x7 0293 c402 | | Store 0x2,0x2 0294 c403 | | Store 0x2,0x3 0295 e402 | | Load 0x2,0x2 0296 4603 |F | Jump_Case 0x4 0297 7861 |xa | Jump 0x2f9 ; case 0x0 0298 781c |x | Jump 0x2b5 ; case 0x1 0299 7833 |x3 | Jump 0x2cd ; case 0x2 029a 7800 |x | Jump 0x29b ; case 0x3 029b e5ff | | Load 0x2,-0x1 029c e009 | | Load 0x0,0x9 029d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 029e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 029f 012f | / | Execute Any,Equal 02a0 6805 |h | Jump_Zero 0x2a6 02a1 4801 |H | Short_Literal 0x1 02a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02a3 4800 |H | Short_Literal 0x0 02a4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02a5 785c |x\ | Jump 0x302 02a6 00e1 | | Load_Encached Boolean_Cache 02a7 00e1 | | Load_Encached Boolean_Cache 02a8 00da | | Load_Top At_Offset_2 02a9 e5fb | | Load 0x2,-0x5 02aa 4801 |H | Short_Literal 0x1 02ab 4800 |H | Short_Literal 0x0 02ac e403 | | Load 0x2,0x3 02ad 0217 | | Execute Heap_Access,All_Reference 02ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02af e5ff | | Load 0x2,-0x1 02b0 8269 | i | Call 0x1,0x69 02b1 c406 | | Store 0x2,0x6 02b2 005b | [ | Store_Top Discrete,At_Offset_3 02b3 005b | [ | Store_Top Discrete,At_Offset_3 02b4 784d |xM | Jump 0x302 02b5 e5fd | | Load 0x2,-0x3 02b6 e009 | | Load 0x0,0x9 02b7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02b8 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 02b9 012f | / | Execute Any,Equal 02ba 6805 |h | Jump_Zero 0x2c0 02bb 4801 |H | Short_Literal 0x1 02bc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02bd 4800 |H | Short_Literal 0x0 02be 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02bf 7842 |xB | Jump 0x302 02c0 00e1 | | Load_Encached Boolean_Cache 02c1 00e1 | | Load_Encached Boolean_Cache 02c2 00da | | Load_Top At_Offset_2 02c3 e5fb | | Load 0x2,-0x5 02c4 e403 | | Load 0x2,0x3 02c5 0217 | | Execute Heap_Access,All_Reference 02c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c7 e5fd | | Load 0x2,-0x3 02c8 826e | n | Call 0x1,0x6e 02c9 c406 | | Store 0x2,0x6 02ca 005b | [ | Store_Top Discrete,At_Offset_3 02cb 005b | [ | Store_Top Discrete,At_Offset_3 02cc 7835 |x5 | Jump 0x302 02cd e5fe | | Load 0x2,-0x2 02ce e009 | | Load 0x0,0x9 02cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02d0 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 02d1 012f | / | Execute Any,Equal 02d2 6805 |h | Jump_Zero 0x2d8 02d3 4801 |H | Short_Literal 0x1 02d4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02d5 4800 |H | Short_Literal 0x0 02d6 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02d7 782a |x* | Jump 0x302 02d8 00e1 | | Load_Encached Boolean_Cache 02d9 00e1 | | Load_Encached Boolean_Cache 02da e403 | | Load 0x2,0x3 02db 00db | | Load_Top At_Offset_3 02dc e5fb | | Load 0x2,-0x5 02dd e5fe | | Load 0x2,-0x2 02de 8270 | p | Call 0x1,0x70 02df c406 | | Store 0x2,0x6 02e0 c403 | | Store 0x2,0x3 02e1 005b | [ | Store_Top Discrete,At_Offset_3 02e2 005b | [ | Store_Top Discrete,At_Offset_3 02e3 00db | | Load_Top At_Offset_3 02e4 4975 |Iu | Short_Literal 0x175 02e5 00eb | | Load_Encached Diana_Cache 02e6 0098 | | Execute Package,Field_Read_Dynamic 02e7 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02e8 0c02 | | Execute_Immediate Greater_Equal,0x2 02e9 6818 |h | Jump_Zero 0x302 02ea e5fe | | Load 0x2,-0x2 02eb e009 | | Load 0x0,0x9 02ec 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02ed 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 02ee 7013 |p | Jump_Nonzero 0x302 02ef 00f1 | | Load_Encached Diana_Temp_Seq 02f0 c5f8 | | Store 0x2,-0x8 02f1 4800 |H | Short_Literal 0x0 02f2 a5f7 | | Store_Unchecked 0x2,-0x9 02f3 0092 118f | | Action Push_String_Extended,0x118f ; " is ambiguous" 02f5 e5f9 | | Load 0x2,-0x7 02f6 e5fb | | Load 0x2,-0x5 02f7 822c | , | Call 0x1,0x2c 02f8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 02f9 0092 1190 | | Action Push_String_Extended,0x1190 ; " is not a defined operator or identifier" 02fb 00d9 | | Load_Top At_Offset_1 02fc e5fb | | Load 0x2,-0x5 02fd 822c | , | Call 0x1,0x2c 02fe 4801 |H | Short_Literal 0x1 02ff 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0300 4800 |H | Short_Literal 0x0 0301 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0302 00d9 | | Load_Top At_Offset_1 0303 680c |h | Jump_Zero 0x310 0304 0092 1191 | | Action Push_String_Extended,0x1191 ; " is not " 0306 e5fc | | Load 0x2,-0x4 0307 e5fd | | Load 0x2,-0x3 0308 e5ff | | Load 0x2,-0x1 0309 e5fe | | Load 0x2,-0x2 030a e402 | | Load 0x2,0x2 030b 825c | \ | Call 0x1,0x5c 030c 01cc | | Execute Vector,Catenate 030d 00d9 | | Load_Top At_Offset_1 030e e5fb | | Load 0x2,-0x5 030f 822c | , | Call 0x1,0x2c 0310 00db | | Load_Top At_Offset_3 0311 c5f8 | | Store 0x2,-0x8 0312 00da | | Load_Top At_Offset_2 0313 a5f7 | | Store_Unchecked 0x2,-0x9 0314 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0315 TRAP_0258: 0315 e009 | | Load 0x0,0x9 0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0317 010f | | Execute Exception,Equal 0318 6802 |h | Jump_Zero 0x31b 0319 00d8 | | Load_Top At_Offset_0 031a 0101 | | Execute Exception,Reraise 031b 0092 118e | | Action Push_String_Extended,0x118e ; " raised " 031d 4800 |H | Short_Literal 0x0 031e 4801 |H | Short_Literal 0x1 031f e022 | " | Load 0x0,0x22 0320 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0321 01cc | | Execute Vector,Catenate 0322 00da | | Load_Top At_Offset_2 0323 e5fb | | Load 0x2,-0x5 0324 822c | , | Call 0x1,0x2c 0325 00f1 | | Load_Encached Diana_Temp_Seq 0326 c5f8 | | Store 0x2,-0x8 0327 4800 |H | Short_Literal 0x0 0328 a5f7 | | Store_Unchecked 0x2,-0x9 0329 4507 |E | Exit_Suprogram New_Top_Offset 0x7 032a 0000 0000 | | .BLANK 0000[0x6] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 4607 |F | Jump_Case 0x8 0334 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0335 7806 |x | Jump 0x33c ; case 0x1 0336 7809 |x | Jump 0x340 ; case 0x2 0337 780d |x | Jump 0x345 ; case 0x3 0338 7810 |x | Jump 0x349 ; case 0x4 0339 7811 |x | Jump 0x34b ; case 0x5 033a 7812 |x | Jump 0x34d ; case 0x6 033b 7815 |x | Jump 0x351 ; case 0x7 033c 00da | | Load_Top At_Offset_2 033d 0091 1183 | | Action Push_String_Extended_Indexed,0x1183 ; "UNDEFINED" 033f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0340 00db | | Load_Top At_Offset_3 0341 00db | | Load_Top At_Offset_3 0342 00e0 | | Load_Encached Standard_Cache 0343 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0344 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0345 00da | | Load_Top At_Offset_2 0346 00e0 | | Load_Encached Standard_Cache 0347 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0348 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0349 00db | | Load_Top At_Offset_3 034a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 034b 00db | | Load_Top At_Offset_3 034c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 034d e224 | $ | Load 0x1,0x24 034e 00dc | | Load_Top At_Offset_4 034f 0267 | g | Execute Discrete,Predecessor 0350 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0351 e224 | $ | Load 0x1,0x24 0352 00dc | | Load_Top At_Offset_4 0353 0268 | h | Execute Discrete,Successor 0354 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0355 0000 0000 | | .XXX[0x3] 0357 0000 | | 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 00da | | Load_Top At_Offset_2 035c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035d 0000 0000 | | .XXX[0x3] 035f 0000 | | 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 036a | j | .CONST 0x036a ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0003 | | .CONST 0x0003 ; Number of locals 0363 INIT_0360: 0363 00ec | | Load_Encached Diana_Tree_Cache 0364 02c7 | | Declare_Variable Any 0365 00d8 | | Load_Top At_Offset_0 0366 1c00 | | Execute_Immediate Run_Utility,0x0 0367 e024 | $ | Load 0x0,0x24 0368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0369 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036a BODY_0360: 036a e024 | $ | Load 0x0,0x24 036b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 036c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036d 00da | | Load_Top At_Offset_2 036e 0120 | | Execute Any,Is_Value 036f 6803 |h | Jump_Zero 0x373 0370 e024 | $ | Load 0x0,0x24 0371 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0372 7801 |x | Jump 0x374 0373 00da | | Load_Top At_Offset_2 0374 6047 |`G | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00004000} 0375 e025 | % | Load 0x0,0x25 0376 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0377 e5ff | | Load 0x2,-0x1 0378 e01d | | Load 0x0,0x1d 0379 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 037a 0092 1192 | | Action Push_String_Extended,0x1192 ; "[]`" 037c e5fe | | Load 0x2,-0x2 037d 01cc | | Execute Vector,Catenate 037e e024 | $ | Load 0x0,0x24 037f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0380 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0381 c402 | | Store 0x2,0x2 0382 0059 | Y | Store_Top Discrete,At_Offset_1 0383 00d8 | | Load_Top At_Offset_0 0384 7002 |p | Jump_Nonzero 0x387 0385 00d9 | | Load_Top At_Offset_1 0386 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0387 e024 | $ | Load 0x0,0x24 0388 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0389 1b0f | | Execute Package,Field_Read,Field_Number 0xf 038a 00da | | Load_Top At_Offset_2 038b 0120 | | Execute Any,Is_Value 038c 6803 |h | Jump_Zero 0x390 038d e024 | $ | Load 0x0,0x24 038e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 038f 7801 |x | Jump 0x391 0390 00da | | Load_Top At_Offset_2 0391 602a |`* | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00004000} 0392 e025 | % | Load 0x0,0x25 0393 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0394 e5ff | | Load 0x2,-0x1 0395 e01d | | Load 0x0,0x1d 0396 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0397 0092 1193 | | Action Push_String_Extended,0x1193 ; "`" 0399 e5fe | | Load 0x2,-0x2 039a 01cc | | Execute Vector,Catenate 039b e024 | $ | Load 0x0,0x24 039c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 039d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 039e c402 | | Store 0x2,0x2 039f 0059 | Y | Store_Top Discrete,At_Offset_1 03a0 00d8 | | Load_Top At_Offset_0 03a1 7002 |p | Jump_Nonzero 0x3a4 03a2 00d9 | | Load_Top At_Offset_1 03a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a4 e01e | | Load 0x0,0x1e 03a5 180e | | Execute Package,Field_Execute,Field_Number 0xe 03a6 4802 |H | Short_Literal 0x2 03a7 0092 1194 | | Action Push_String_Extended,0x1194 ; "Name resolution failure for type '" 03a9 e5fe | | Load 0x2,-0x2 03aa 01cc | | Execute Vector,Catenate 03ab 0092 1195 | | Action Push_String_Extended,0x1195 ; "': " 03ad 01cc | | Execute Vector,Catenate 03ae 00db | | Load_Top At_Offset_3 03af e024 | $ | Load 0x0,0x24 03b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b2 011c | | Execute Any,Convert_Unchecked 03b3 1c01 | | Execute_Immediate Run_Utility,0x1 03b4 01cc | | Execute Vector,Catenate 03b5 e01f | | Load 0x0,0x1f 03b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b7 00ec | | Load_Encached Diana_Tree_Cache 03b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b9 0000 0000 | | .XXX[0x3] 03bb 0000 | | 03bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00db | | Load_Top At_Offset_3 03c4 6808 |h | Jump_Zero 0x3cd 03c5 00ea | | Load_Encached Null_String_Cache 03c6 e5fd | | Load 0x2,-0x3 03c7 e5fe | | Load 0x2,-0x2 03c8 e5ff | | Load 0x2,-0x1 03c9 e001 | | Load 0x0,0x1 03ca 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03cb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03cc 180f | | Execute Package,Field_Execute,Field_Number 0xf 03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00db | | Load_Top At_Offset_3 03d4 6808 |h | Jump_Zero 0x3dd 03d5 00ea | | Load_Encached Null_String_Cache 03d6 e5fd | | Load 0x2,-0x3 03d7 e5fe | | Load 0x2,-0x2 03d8 e5ff | | Load 0x2,-0x1 03d9 e001 | | Load 0x0,0x1 03da 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03db 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03dd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00db | | Load_Top At_Offset_3 03e4 6809 |h | Jump_Zero 0x3ee 03e5 00ea | | Load_Encached Null_String_Cache 03e6 e5fc | | Load 0x2,-0x4 03e7 e5fd | | Load 0x2,-0x3 03e8 e5fe | | Load 0x2,-0x2 03e9 e5ff | | Load 0x2,-0x1 03ea e001 | | Load 0x0,0x1 03eb 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03ed 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03ee 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 0092 1196 | | Action Push_String_Extended,0x1196 ; " is an unexpected node" 03f5 e5fe | | Load 0x2,-0x2 03f6 e5ff | | Load 0x2,-0x1 03f7 822c | , | Call 0x1,0x2c 03f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03f9 0000 0000 | | .BLANK 0000[0x7] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 e5fd | | Load 0x2,-0x3 0404 0092 1197 | | Action Push_String_Extended,0x1197 ; " led to unexpected node " 0406 e5fe | | Load 0x2,-0x2 0407 e5ff | | Load 0x2,-0x1 0408 822d | - | Call 0x1,0x2d 0409 4504 |E | Exit_Suprogram New_Top_Offset 0x4 040a 0000 0000 | | .BLANK 0000[0x6] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00da | | Load_Top At_Offset_2 0414 e009 | | Load 0x0,0x9 0415 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0416 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0417 6804 |h | Jump_Zero 0x41c 0418 e009 | | Load 0x0,0x9 0419 1b12 | | Execute Package,Field_Read,Field_Number 0x12 041a 1b42 | B | Execute Package,Field_Read,Field_Number 0x42 041b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 041c 00da | | Load_Top At_Offset_2 041d e009 | | Load 0x0,0x9 041e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 041f 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0420 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0421 0000 0000 | | .BLANK 0000[0x7] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 00da | | Load_Top At_Offset_2 042c e009 | | Load 0x0,0x9 042d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 042e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 042f 6804 |h | Jump_Zero 0x434 0430 e009 | | Load 0x0,0x9 0431 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0432 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0433 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0434 00da | | Load_Top At_Offset_2 0435 e009 | | Load 0x0,0x9 0436 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0437 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0438 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0439 0000 0000 | | .BLANK 0000[0x7] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 00da | | Load_Top At_Offset_2 0444 e009 | | Load 0x0,0x9 0445 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0446 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0447 6806 |h | Jump_Zero 0x44e 0448 e009 | | Load 0x0,0x9 0449 1b12 | | Execute Package,Field_Read,Field_Number 0x12 044a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 044b 0335 | 5 | Declare_Variable Array,Duplicate 044c 00cd | | Action Spare6_Action 044d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 044e 00da | | Load_Top At_Offset_2 044f e009 | | Load 0x0,0x9 0450 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0451 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0452 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0453 0000 0000 | | .BLANK 0000[0x5] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 00da | | Load_Top At_Offset_2 045c e009 | | Load 0x0,0x9 045d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 045e 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 045f 6804 |h | Jump_Zero 0x464 0460 e009 | | Load 0x0,0x9 0461 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0462 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0463 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0464 00da | | Load_Top At_Offset_2 0465 e009 | | Load 0x0,0x9 0466 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0467 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0468 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0469 0000 0000 | | .BLANK 0000[0x7] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00da | | Load_Top At_Offset_2 0474 4603 |F | Jump_Case 0x4 0475 7806 |x | Jump 0x47c ; case 0x0 0476 7808 |x | Jump 0x47f ; case 0x1 0477 780a |x | Jump 0x482 ; case 0x2 0478 7800 |x | Jump 0x479 ; case 0x3 0479 0092 1198 | | Action Push_String_Extended,0x1198 ; "type" 047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047c 0092 1199 | | Action Push_String_Extended,0x1199 ; "Undefined" 047e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047f 0092 119a | | Action Push_String_Extended,0x119a ; "object" 0481 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0482 0092 119b | | Action Push_String_Extended,0x119b ; "miscellanoues name" 0484 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0485 0000 0000 | | .XXX[0x3] 0487 0000 | | 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 00da | | Load_Top At_Offset_2 048c 01dd | | Execute Vector,First 048d 00db | | Load_Top At_Offset_3 048e 01d7 | | Execute Vector,Field_Read 048f e021 | ! | Load 0x0,0x21 0490 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0491 00d8 | | Load_Top At_Offset_0 0492 0d61 | a | Execute_Immediate Less,0x61 0493 7026 |p& | Jump_Nonzero 0x4ba 0494 0a9f | | Execute_Immediate Plus,-0x61 0495 461e |F | Jump_Case 0x1f 0496 7825 |x% | Jump 0x4bc ; case 0x0 0497 781d |x | Jump 0x4b5 ; case 0x1 0498 781c |x | Jump 0x4b5 ; case 0x2 0499 781b |x | Jump 0x4b5 ; case 0x3 049a 7821 |x! | Jump 0x4bc ; case 0x4 049b 7819 |x | Jump 0x4b5 ; case 0x5 049c 7818 |x | Jump 0x4b5 ; case 0x6 049d 7817 |x | Jump 0x4b5 ; case 0x7 049e 781d |x | Jump 0x4bc ; case 0x8 049f 7815 |x | Jump 0x4b5 ; case 0x9 04a0 7814 |x | Jump 0x4b5 ; case 0xa 04a1 7813 |x | Jump 0x4b5 ; case 0xb 04a2 7812 |x | Jump 0x4b5 ; case 0xc 04a3 7811 |x | Jump 0x4b5 ; case 0xd 04a4 7817 |x | Jump 0x4bc ; case 0xe 04a5 780f |x | Jump 0x4b5 ; case 0xf 04a6 780e |x | Jump 0x4b5 ; case 0x10 04a7 780d |x | Jump 0x4b5 ; case 0x11 04a8 780c |x | Jump 0x4b5 ; case 0x12 04a9 780b |x | Jump 0x4b5 ; case 0x13 04aa 7811 |x | Jump 0x4bc ; case 0x14 04ab 7809 |x | Jump 0x4b5 ; case 0x15 04ac 7808 |x | Jump 0x4b5 ; case 0x16 04ad 7807 |x | Jump 0x4b5 ; case 0x17 04ae 7806 |x | Jump 0x4b5 ; case 0x18 04af 7805 |x | Jump 0x4b5 ; case 0x19 04b0 7804 |x | Jump 0x4b5 ; case 0x1a 04b1 7803 |x | Jump 0x4b5 ; case 0x1b 04b2 7802 |x | Jump 0x4b5 ; case 0x1c 04b3 7801 |x | Jump 0x4b5 ; case 0x1d 04b4 7800 |x | Jump 0x4b5 ; case 0x1e 04b5 0092 119c | | Action Push_String_Extended,0x119c ; "a " 04b7 00db | | Load_Top At_Offset_3 04b8 01cc | | Execute Vector,Catenate 04b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ba 00d1 | | Pop_Control Pop_Count_1 04bb 7ff9 | | Jump 0x4b5 04bc 0092 119d | | Action Push_String_Extended,0x119d ; "an " 04be 00db | | Load_Top At_Offset_3 04bf 01cc | | Execute Vector,Catenate 04c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c1 0000 0000 | | .BLANK 0000[0x7] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04d3 | | .CONST 0x04d3 ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0004 | | .CONST 0x0004 ; Number of locals 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 01dd | | Execute Vector,First 04cd 00e3 | | Load_Encached Natural_Cache 04ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 04cf 00e3 | | Load_Encached Natural_Cache 04d0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04d1 029f 0e83 | | Declare_Subprogram INIT_0e80,For_Call 04d3 BODY_04c8: 04d3 00cf | | Action Mark_Auxiliary 04d4 4800 |H | Short_Literal 0x0 04d5 e402 | | Load 0x2,0x2 04d6 0a01 | | Execute_Immediate Plus,0x1 04d7 00d8 | | Load_Top At_Offset_0 04d8 00e2 | | Load_Encached Integer_Cache 04d9 0260 | ` | Execute Discrete,In_Type 04da 7001 |p | Jump_Nonzero 0x4dc 04db 0801 | | Execute_Immediate Raise,0x1 04dc e5ff | | Load 0x2,-0x1 04dd 01dc | | Execute Vector,Last 04de e5ff | | Load 0x2,-0x1 04df 01cf | | Execute Vector,Slice_Read 04e0 482c |H, | Short_Literal 0x2c 04e1 e021 | ! | Load 0x0,0x21 04e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04e3 a402 | | Store_Unchecked 0x2,0x2 04e4 00db | | Load_Top At_Offset_3 04e5 6805 |h | Jump_Zero 0x4eb 04e6 00da | | Load_Top At_Offset_2 04e7 0a01 | | Execute_Immediate Plus,0x1 04e8 005b | [ | Store_Top Discrete,At_Offset_3 04e9 00c9 | | Action Pop_Auxiliary_Loop 04ea 7fe9 | | Jump 0x4d4 04eb 00ce | | Action Pop_Auxiliary 04ec 00d9 | | Load_Top At_Offset_1 04ed 7002 |p | Jump_Nonzero 0x4f0 04ee 00ea | | Load_Encached Null_String_Cache 04ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f0 00d9 | | Load_Top At_Offset_1 04f1 0f01 | | Execute_Immediate Equal,0x1 04f2 680d |h | Jump_Zero 0x500 04f3 e5ff | | Load 0x2,-0x1 04f4 01dd | | Execute Vector,First 04f5 e5ff | | Load 0x2,-0x1 04f6 01dc | | Execute Vector,Last 04f7 0afe | | Execute_Immediate Plus,-0x2 04f8 00d8 | | Load_Top At_Offset_0 04f9 00e2 | | Load_Encached Integer_Cache 04fa 0260 | ` | Execute Discrete,In_Type 04fb 7001 |p | Jump_Nonzero 0x4fd 04fc 0801 | | Execute_Immediate Raise,0x1 04fd e5ff | | Load 0x2,-0x1 04fe 01cf | | Execute Vector,Slice_Read 04ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0500 4800 |H | Short_Literal 0x0 0501 e5ff | | Load 0x2,-0x1 0502 482c |H, | Short_Literal 0x2c 0503 e021 | ! | Load 0x0,0x21 0504 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0505 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0506 4800 |H | Short_Literal 0x0 0507 e5ff | | Load 0x2,-0x1 0508 01dd | | Execute Vector,First 0509 e402 | | Load 0x2,0x2 050a 0aff | | Execute_Immediate Plus,-0x1 050b e5ff | | Load 0x2,-0x1 050c 01cf | | Execute Vector,Slice_Read 050d 482c |H, | Short_Literal 0x2c 050e e021 | ! | Load 0x0,0x21 050f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0510 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0511 8404 | | Call 0x2,0x4 0512 0831 | 1 | Execute_Immediate Raise,0x31 0513 0000 0000 | | .BLANK 0000[0x5] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 0528 | ( | .CONST 0x0528 ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0003 | | .CONST 0x0003 ; Number of locals 051b INIT_0518: 051b e5fd | | Load 0x2,-0x3 051c e5fe | | Load 0x2,-0x2 051d 0122 | " | Execute Any,Make_Root_Type 051e 011c | | Execute Any,Convert_Unchecked 051f 1c01 | | Execute_Immediate Run_Utility,0x1 0520 00d8 | | Load_Top At_Offset_0 0521 01da | | Execute Vector,Bounds 0522 00e9 | | Load_Encached String_Cache 0523 035b | [ | Declare_Type Array,Constrained 0524 0337 | 7 | Declare_Variable Array 0525 00d9 | | Load_Top At_Offset_1 0526 00d9 | | Load_Top At_Offset_1 0527 01d4 | | Execute Vector,Structure_Write 0528 BODY_0518: 0528 00cf | | Action Mark_Auxiliary 0529 00d9 | | Load_Top At_Offset_1 052a 01d9 | | Execute Vector,Reverse_Bounds 052b 0263 | c | Execute Discrete,Above_Bound 052c 700b |p | Jump_Nonzero 0x538 052d 00d8 | | Load_Top At_Offset_0 052e e403 | | Load 0x2,0x3 052f 01d7 | | Execute Vector,Field_Read 0530 0f5f | _ | Execute_Immediate Equal,0x5f 0531 6804 |h | Jump_Zero 0x536 0532 4820 |H | Short_Literal 0x20 0533 00d9 | | Load_Top At_Offset_1 0534 e403 | | Load 0x2,0x3 0535 01d6 | | Execute Vector,Field_Write 0536 00c8 | | Action Pop_Auxiliary_Range 0537 3ff5 |? | Loop_Increasing 0x52d 0538 00ce | | Action Pop_Auxiliary 0539 4801 |H | Short_Literal 0x1 053a 0092 119e | | Action Push_String_Extended,0x119e ; " Kind" 053c 00da | | Load_Top At_Offset_2 053d 01dc | | Execute Vector,Last 053e 0afc | | Execute_Immediate Plus,-0x4 053f 00d8 | | Load_Top At_Offset_0 0540 00e2 | | Load_Encached Integer_Cache 0541 0260 | ` | Execute Discrete,In_Type 0542 7001 |p | Jump_Nonzero 0x544 0543 0801 | | Execute_Immediate Raise,0x1 0544 00db | | Load_Top At_Offset_3 0545 01dc | | Execute Vector,Last 0546 e403 | | Load 0x2,0x3 0547 01cf | | Execute Vector,Slice_Read 0548 e021 | ! | Load 0x0,0x21 0549 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 054a 680f |h | Jump_Zero 0x55a 054b 00d8 | | Load_Top At_Offset_0 054c 01dd | | Execute Vector,First 054d 00d9 | | Load_Top At_Offset_1 054e 01dc | | Execute Vector,Last 054f 0afb | | Execute_Immediate Plus,-0x5 0550 00d8 | | Load_Top At_Offset_0 0551 00e2 | | Load_Encached Integer_Cache 0552 0260 | ` | Execute Discrete,In_Type 0553 7001 |p | Jump_Nonzero 0x555 0554 0801 | | Execute_Immediate Raise,0x1 0555 00da | | Load_Top At_Offset_2 0556 01cf | | Execute Vector,Slice_Read 0557 00e9 | | Load_Encached String_Cache 0558 01c6 | | Execute Vector,Convert_To_Formal 0559 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 055a 00d8 | | Load_Top At_Offset_0 055b 00e9 | | Load_Encached String_Cache 055c 01c6 | | Execute Vector,Convert_To_Formal 055d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 055e 0000 0000 | | .XXX[0x2] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0569 | i | .CONST 0x0569 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0005 | | .CONST 0x0005 ; Number of locals 0563 INIT_0560: 0563 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0564 00c6 | | Action Check_Subprogram_Elaborated 0565 e5fd | | Load 0x2,-0x3 0566 e026 | & | Load 0x0,0x26 0567 e027 | ' | Load 0x0,0x27 0568 4805 |H | Short_Literal 0x5 0569 BODY_0560: 0569 00cf | | Action Mark_Auxiliary 056a e5fd | | Load 0x2,-0x3 056b 0269 | i | Execute Discrete,Last 056c e5fc | | Load 0x2,-0x4 056d 0263 | c | Execute Discrete,Above_Bound 056e 7042 |pB | Jump_Nonzero 0x5b1 056f 00d8 | | Load_Top At_Offset_0 0570 e5fb | | Load 0x2,-0x5 0571 01d7 | | Execute Vector,Field_Read 0572 683c |h< | Jump_Zero 0x5af 0573 00d8 | | Load_Top At_Offset_0 0574 e5fd | | Load 0x2,-0x3 0575 0269 | i | Execute Discrete,Last 0576 027f | | Execute Discrete,Equal 0577 6812 |h | Jump_Zero 0x58a 0578 00d8 | | Load_Top At_Offset_0 0579 00d8 | | Load_Top At_Offset_0 057a e5fd | | Load 0x2,-0x3 057b 0260 | ` | Execute Discrete,In_Type 057c 7001 |p | Jump_Nonzero 0x57e 057d 0801 | | Execute_Immediate Raise,0x1 057e e402 | | Load 0x2,0x2 057f 4803 |H | Short_Literal 0x3 0580 4802 |H | Short_Literal 0x2 0581 0099 | | Action Reference_Dynamic 0582 8237 | 7 | Call 0x1,0x37 0583 8235 | 5 | Call 0x1,0x35 0584 0092 119f | | Action Push_String_Extended,0x119f ; ", " 0586 01cc | | Execute Vector,Catenate 0587 00e9 | | Load_Encached String_Cache 0588 01c6 | | Execute Vector,Convert_To_Formal 0589 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 058a 00d8 | | Load_Top At_Offset_0 058b 00d8 | | Load_Top At_Offset_0 058c e5fd | | Load 0x2,-0x3 058d 0260 | ` | Execute Discrete,In_Type 058e 7001 |p | Jump_Nonzero 0x590 058f 0801 | | Execute_Immediate Raise,0x1 0590 e402 | | Load 0x2,0x2 0591 4803 |H | Short_Literal 0x3 0592 4802 |H | Short_Literal 0x2 0593 0099 | | Action Reference_Dynamic 0594 8237 | 7 | Call 0x1,0x37 0595 8235 | 5 | Call 0x1,0x35 0596 0092 119f | | Action Push_String_Extended,0x119f ; ", " 0598 01cc | | Execute Vector,Catenate 0599 e5fb | | Load 0x2,-0x5 059a e5fe | | Load 0x2,-0x2 059b 01c3 | | Execute Vector,Check_In_Type 059c e5fd | | Load 0x2,-0x3 059d 0122 | " | Execute Any,Make_Root_Type 059e 00db | | Load_Top At_Offset_3 059f 0268 | h | Execute Discrete,Successor 05a0 00d8 | | Load_Top At_Offset_0 05a1 e5fd | | Load 0x2,-0x3 05a2 0260 | ` | Execute Discrete,In_Type 05a3 7001 |p | Jump_Nonzero 0x5a5 05a4 0801 | | Execute_Immediate Raise,0x1 05a5 e5fd | | Load 0x2,-0x3 05a6 e5fe | | Load 0x2,-0x2 05a7 4fff |O | Short_Literal -0x1 05a8 4802 |H | Short_Literal 0x2 05a9 0099 | | Action Reference_Dynamic 05aa 8248 | H | Call 0x1,0x48 05ab 01cc | | Execute Vector,Catenate 05ac 00e9 | | Load_Encached String_Cache 05ad 01c6 | | Execute Vector,Convert_To_Formal 05ae 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 05af 00c8 | | Action Pop_Auxiliary_Range 05b0 3fbe |? | Loop_Increasing 0x56f 05b1 00ce | | Action Pop_Auxiliary 05b2 00ea | | Load_Encached Null_String_Cache 05b3 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 05b4 0000 0000 | | .BLANK 0000[0x4] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb 00db | | Load_Top At_Offset_3 05bc e009 | | Load 0x0,0x9 05bd 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05be 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 05bf 6802 |h | Jump_Zero 0x5c2 05c0 00ea | | Load_Encached Null_String_Cache 05c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c2 00db | | Load_Top At_Offset_3 05c3 e009 | | Load 0x0,0x9 05c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05c5 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 05c6 4800 |H | Short_Literal 0x0 05c7 e249 | I | Load 0x1,0x49 05c8 e24a | J | Load 0x1,0x4a 05c9 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 05ca 8248 | H | Call 0x1,0x48 05cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05cc 0000 0000 | | .BLANK 0000[0x4] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d7 | | .CONST 0x05d7 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0003 | | .CONST 0x0003 ; Number of locals 05d3 INIT_05d0: 05d3 029f 0eab | | Declare_Subprogram INIT_0ea8,For_Call 05d5 029f 0ec3 | | Declare_Subprogram INIT_0ec0,For_Call 05d7 BODY_05d0: 05d7 e5fe | | Load 0x2,-0x2 05d8 e009 | | Load 0x0,0x9 05d9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05da 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05db 6802 |h | Jump_Zero 0x5de 05dc 00ea | | Load_Encached Null_String_Cache 05dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05de e5ff | | Load 0x2,-0x1 05df 0e03 | | Execute_Immediate Not_Equal,0x3 05e0 6803 |h | Jump_Zero 0x5e4 05e1 0092 11a0 | | Action Push_String_Extended,0x11a0 ; "a type, " 05e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e4 e5fe | | Load 0x2,-0x2 05e5 e009 | | Load 0x0,0x9 05e6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05e8 8403 | | Call 0x2,0x3 05e9 e5fe | | Load 0x2,-0x2 05ea e009 | | Load 0x0,0x9 05eb 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05ec 181f | | Execute Package,Field_Execute,Field_Number 0x1f 05ed 8402 | | Call 0x2,0x2 05ee 01cc | | Execute Vector,Catenate 05ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 00db | | Load_Top At_Offset_3 05f4 e009 | | Load 0x0,0x9 05f5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05f6 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 05f7 6802 |h | Jump_Zero 0x5fa 05f8 00ea | | Load_Encached Null_String_Cache 05f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05fa 00da | | Load_Top At_Offset_2 05fb 0e01 | | Execute_Immediate Not_Equal,0x1 05fc 6803 |h | Jump_Zero 0x600 05fd 0092 11a1 | | Action Push_String_Extended,0x11a1 ; "an object, " 05ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0600 00db | | Load_Top At_Offset_3 0601 e009 | | Load 0x0,0x9 0602 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0603 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0604 4800 |H | Short_Literal 0x0 0605 e253 | S | Load 0x1,0x53 0606 e254 | T | Load 0x1,0x54 0607 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 0608 8248 | H | Call 0x1,0x48 0609 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 060a 0000 0000 | | .BLANK 0000[0x6] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0613 | | .CONST 0x0613 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0001 | | .CONST 0x0001 ; Number of locals 0613 BODY_0610: 0613 INIT_0610: 0613 00da | | Load_Top At_Offset_2 0614 01db | | Execute Vector,Length 0615 7002 |p | Jump_Nonzero 0x618 0616 00ea | | Load_Encached Null_String_Cache 0617 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0618 0092 11a2 | | Action Push_String_Extended,0x11a2 ; "identifier '" 061a 00db | | Load_Top At_Offset_3 061b 01dd | | Execute Vector,First 061c e5ff | | Load 0x2,-0x1 061d 01d7 | | Execute Vector,Field_Read 061e e009 | | Load 0x0,0x9 061f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0620 180f | | Execute Package,Field_Execute,Field_Number 0xf 0621 e021 | ! | Load 0x0,0x21 0622 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0623 01cc | | Execute Vector,Catenate 0624 0092 11a3 | | Action Push_String_Extended,0x11a3 ; "', " 0626 01cc | | Execute Vector,Catenate 0627 00db | | Load_Top At_Offset_3 0628 01dd | | Execute Vector,First 0629 0a01 | | Execute_Immediate Plus,0x1 062a 00d8 | | Load_Top At_Offset_0 062b 00e2 | | Load_Encached Integer_Cache 062c 0260 | ` | Execute Discrete,In_Type 062d 7001 |p | Jump_Nonzero 0x62f 062e 0801 | | Execute_Immediate Raise,0x1 062f e5ff | | Load 0x2,-0x1 0630 01dc | | Execute Vector,Last 0631 e5ff | | Load 0x2,-0x1 0632 01cf | | Execute Vector,Slice_Read 0633 825b | [ | Call 0x1,0x5b 0634 01cc | | Execute Vector,Catenate 0635 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0636 0000 0000 | | .XXX[0x2] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063d | = | .CONST 0x063d ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0002 | | .CONST 0x0002 ; Number of locals 063b INIT_0638: 063b 029f 0eeb | | Declare_Subprogram INIT_0ee8,For_Call 063d BODY_0638: 063d 8402 | | Call 0x2,0x2 063e 0831 | 1 | Execute_Immediate Raise,0x31 063f 0000 | | .XXX[0x1] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0643 | C | .CONST 0x0643 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0001 | | .CONST 0x0001 ; Number of locals 0643 BODY_0640: 0643 INIT_0640: 0643 00da | | Load_Top At_Offset_2 0644 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0645 00d8 | | Load_Top At_Offset_0 0646 0c5a | Z | Execute_Immediate Greater_Equal,0x5a 0647 705d |p] | Jump_Nonzero 0x6a5 0648 4659 |FY | Jump_Case 0x5a 0649 785c |x\ | Jump 0x6a6 ; case 0x0 064a 785b |x[ | Jump 0x6a6 ; case 0x1 064b 785a |xZ | Jump 0x6a6 ; case 0x2 064c 7859 |xY | Jump 0x6a6 ; case 0x3 064d 7858 |xX | Jump 0x6a6 ; case 0x4 064e 7857 |xW | Jump 0x6a6 ; case 0x5 064f 7856 |xV | Jump 0x6a6 ; case 0x6 0650 7855 |xU | Jump 0x6a6 ; case 0x7 0651 7854 |xT | Jump 0x6a6 ; case 0x8 0652 7853 |xS | Jump 0x6a6 ; case 0x9 0653 7852 |xR | Jump 0x6a6 ; case 0xa 0654 7851 |xQ | Jump 0x6a6 ; case 0xb 0655 7850 |xP | Jump 0x6a6 ; case 0xc 0656 784f |xO | Jump 0x6a6 ; case 0xd 0657 784e |xN | Jump 0x6a6 ; case 0xe 0658 784d |xM | Jump 0x6a6 ; case 0xf 0659 784c |xL | Jump 0x6a6 ; case 0x10 065a 784b |xK | Jump 0x6a6 ; case 0x11 065b 784a |xJ | Jump 0x6a6 ; case 0x12 065c 7849 |xI | Jump 0x6a6 ; case 0x13 065d 7848 |xH | Jump 0x6a6 ; case 0x14 065e 7847 |xG | Jump 0x6a6 ; case 0x15 065f 7846 |xF | Jump 0x6a6 ; case 0x16 0660 7845 |xE | Jump 0x6a6 ; case 0x17 0661 7844 |xD | Jump 0x6a6 ; case 0x18 0662 7843 |xC | Jump 0x6a6 ; case 0x19 0663 7842 |xB | Jump 0x6a6 ; case 0x1a 0664 7841 |xA | Jump 0x6a6 ; case 0x1b 0665 783d |x= | Jump 0x6a3 ; case 0x1c 0666 7843 |xC | Jump 0x6aa ; case 0x1d 0667 7842 |xB | Jump 0x6aa ; case 0x1e 0668 783a |x: | Jump 0x6a3 ; case 0x1f 0669 7839 |x9 | Jump 0x6a3 ; case 0x20 066a 7838 |x8 | Jump 0x6a3 ; case 0x21 066b 7837 |x7 | Jump 0x6a3 ; case 0x22 066c 783d |x= | Jump 0x6aa ; case 0x23 066d 783c |x< | Jump 0x6aa ; case 0x24 066e 783b |x; | Jump 0x6aa ; case 0x25 066f 783a |x: | Jump 0x6aa ; case 0x26 0670 7832 |x2 | Jump 0x6a3 ; case 0x27 0671 7838 |x8 | Jump 0x6aa ; case 0x28 0672 7830 |x0 | Jump 0x6a3 ; case 0x29 0673 7834 |x4 | Jump 0x6a8 ; case 0x2a 0674 7833 |x3 | Jump 0x6a8 ; case 0x2b 0675 782d |x- | Jump 0x6a3 ; case 0x2c 0676 7831 |x1 | Jump 0x6a8 ; case 0x2d 0677 782b |x+ | Jump 0x6a3 ; case 0x2e 0678 782f |x/ | Jump 0x6a8 ; case 0x2f 0679 7830 |x0 | Jump 0x6aa ; case 0x30 067a 7828 |x( | Jump 0x6a3 ; case 0x31 067b 7830 |x0 | Jump 0x6ac ; case 0x32 067c 7831 |x1 | Jump 0x6ae ; case 0x33 067d 7828 |x( | Jump 0x6a6 ; case 0x34 067e 7827 |x' | Jump 0x6a6 ; case 0x35 067f 7826 |x& | Jump 0x6a6 ; case 0x36 0680 7825 |x% | Jump 0x6a6 ; case 0x37 0681 7824 |x$ | Jump 0x6a6 ; case 0x38 0682 7823 |x# | Jump 0x6a6 ; case 0x39 0683 7822 |x" | Jump 0x6a6 ; case 0x3a 0684 7821 |x! | Jump 0x6a6 ; case 0x3b 0685 7820 |x | Jump 0x6a6 ; case 0x3c 0686 781f |x | Jump 0x6a6 ; case 0x3d 0687 781e |x | Jump 0x6a6 ; case 0x3e 0688 781d |x | Jump 0x6a6 ; case 0x3f 0689 781c |x | Jump 0x6a6 ; case 0x40 068a 781b |x | Jump 0x6a6 ; case 0x41 068b 781a |x | Jump 0x6a6 ; case 0x42 068c 7819 |x | Jump 0x6a6 ; case 0x43 068d 7818 |x | Jump 0x6a6 ; case 0x44 068e 7817 |x | Jump 0x6a6 ; case 0x45 068f 7816 |x | Jump 0x6a6 ; case 0x46 0690 7815 |x | Jump 0x6a6 ; case 0x47 0691 7814 |x | Jump 0x6a6 ; case 0x48 0692 7813 |x | Jump 0x6a6 ; case 0x49 0693 7812 |x | Jump 0x6a6 ; case 0x4a 0694 7811 |x | Jump 0x6a6 ; case 0x4b 0695 7810 |x | Jump 0x6a6 ; case 0x4c 0696 780f |x | Jump 0x6a6 ; case 0x4d 0697 780e |x | Jump 0x6a6 ; case 0x4e 0698 780d |x | Jump 0x6a6 ; case 0x4f 0699 780c |x | Jump 0x6a6 ; case 0x50 069a 780b |x | Jump 0x6a6 ; case 0x51 069b 780a |x | Jump 0x6a6 ; case 0x52 069c 7809 |x | Jump 0x6a6 ; case 0x53 069d 7808 |x | Jump 0x6a6 ; case 0x54 069e 7807 |x | Jump 0x6a6 ; case 0x55 069f 7806 |x | Jump 0x6a6 ; case 0x56 06a0 7805 |x | Jump 0x6a6 ; case 0x57 06a1 7804 |x | Jump 0x6a6 ; case 0x58 06a2 7800 |x | Jump 0x6a3 ; case 0x59 06a3 4802 |H | Short_Literal 0x2 06a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06a5 00d1 | | Pop_Control Pop_Count_1 06a6 4800 |H | Short_Literal 0x0 06a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06a8 4803 |H | Short_Literal 0x3 06a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06aa 4801 |H | Short_Literal 0x1 06ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ac 4801 |H | Short_Literal 0x1 06ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ae 4802 |H | Short_Literal 0x2 06af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b9 | | .CONST 0x06b9 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0003 | | .CONST 0x0003 ; Number of locals 06b3 INIT_06b0: 06b3 00f1 | | Load_Encached Diana_Temp_Seq 06b4 02c7 | | Declare_Variable Any 06b5 00d8 | | Load_Top At_Offset_0 06b6 1c00 | | Execute_Immediate Run_Utility,0x0 06b7 029f 0f03 | | Declare_Subprogram INIT_0f00,For_Call 06b9 BODY_06b0: 06b9 e5fe | | Load 0x2,-0x2 06ba e5ff | | Load 0x2,-0x1 06bb e001 | | Load 0x0,0x1 06bc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06bd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06be 180d | | Execute Package,Field_Execute,Field_Number 0xd 06bf c402 | | Store 0x2,0x2 06c0 00d9 | | Load_Top At_Offset_1 06c1 7005 |p | Jump_Nonzero 0x6c7 06c2 e5fe | | Load 0x2,-0x2 06c3 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06c4 0e12 | | Execute_Immediate Not_Equal,0x12 06c5 6801 |h | Jump_Zero 0x6c7 06c6 8403 | | Call 0x2,0x3 06c7 00d9 | | Load_Top At_Offset_1 06c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06c9 0000 0000 | | .BLANK 0000[0x7] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d7 | | .CONST 0x06d7 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0002 | | .CONST 0x0002 ; Number of locals 06d3 INIT_06d0: 06d3 00ec | | Load_Encached Diana_Tree_Cache 06d4 02c7 | | Declare_Variable Any 06d5 00d8 | | Load_Top At_Offset_0 06d6 1c00 | | Execute_Immediate Run_Utility,0x0 06d7 BODY_06d0: 06d7 4800 |H | Short_Literal 0x0 06d8 a5fd | | Store_Unchecked 0x2,-0x3 06d9 e5fe | | Load 0x2,-0x2 06da 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06db 0f12 | | Execute_Immediate Equal,0x12 06dc 6819 |h | Jump_Zero 0x6f6 06dd e5fe | | Load 0x2,-0x2 06de e5ff | | Load 0x2,-0x1 06df e001 | | Load 0x0,0x1 06e0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 06e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06e2 180d | | Execute Package,Field_Execute,Field_Number 0xd 06e3 c5fe | | Store 0x2,-0x2 06e4 e5fe | | Load 0x2,-0x2 06e5 00eb | | Load_Encached Diana_Cache 06e6 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 06e7 4976 |Iv | Short_Literal 0x176 06e8 00eb | | Load_Encached Diana_Cache 06e9 0098 | | Execute Package,Field_Read_Dynamic 06ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06eb c402 | | Store 0x2,0x2 06ec 00d8 | | Load_Top At_Offset_0 06ed 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06ee 0f1c | | Execute_Immediate Equal,0x1c 06ef 7004 |p | Jump_Nonzero 0x6f4 06f0 00d8 | | Load_Top At_Offset_0 06f1 0145 | E | Execute Heap_Access,Diana_Tree_Kind 06f2 0f1e | | Execute_Immediate Equal,0x1e 06f3 6802 |h | Jump_Zero 0x6f6 06f4 4801 |H | Short_Literal 0x1 06f5 a5fd | | Store_Unchecked 0x2,-0x3 06f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06f7 0000 | | .XXX[0x1] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 06fb | | .CONST 0x06fb ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0001 | | .CONST 0x0001 ; Number of locals 06fb BODY_06f8: 06fb INIT_06f8: 06fb 00da | | Load_Top At_Offset_2 06fc 00d8 | | Load_Top At_Offset_0 06fd 0c19 | | Execute_Immediate Greater_Equal,0x19 06fe 701c |p | Jump_Nonzero 0x71b 06ff 4618 |F | Jump_Case 0x19 0700 781b |x | Jump 0x71c ; case 0x0 0701 781a |x | Jump 0x71c ; case 0x1 0702 7819 |x | Jump 0x71c ; case 0x2 0703 7818 |x | Jump 0x71c ; case 0x3 0704 7817 |x | Jump 0x71c ; case 0x4 0705 7816 |x | Jump 0x71c ; case 0x5 0706 7815 |x | Jump 0x71c ; case 0x6 0707 7814 |x | Jump 0x71c ; case 0x7 0708 7813 |x | Jump 0x71c ; case 0x8 0709 7812 |x | Jump 0x71c ; case 0x9 070a 7811 |x | Jump 0x71c ; case 0xa 070b 7810 |x | Jump 0x71c ; case 0xb 070c 780c |x | Jump 0x719 ; case 0xc 070d 780e |x | Jump 0x71c ; case 0xd 070e 780d |x | Jump 0x71c ; case 0xe 070f 780c |x | Jump 0x71c ; case 0xf 0710 780b |x | Jump 0x71c ; case 0x10 0711 780a |x | Jump 0x71c ; case 0x11 0712 7806 |x | Jump 0x719 ; case 0x12 0713 7808 |x | Jump 0x71c ; case 0x13 0714 7804 |x | Jump 0x719 ; case 0x14 0715 7803 |x | Jump 0x719 ; case 0x15 0716 7802 |x | Jump 0x719 ; case 0x16 0717 7801 |x | Jump 0x719 ; case 0x17 0718 7800 |x | Jump 0x719 ; case 0x18 0719 4801 |H | Short_Literal 0x1 071a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 071b 00d1 | | Pop_Control Pop_Count_1 071c 4800 |H | Short_Literal 0x0 071d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 071e 0000 0000 | | .XXX[0x2] 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 072d | - | .CONST 0x072d ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0005 | | .CONST 0x0005 ; Number of locals 0723 INIT_0720: 0723 00e3 | | Load_Encached Natural_Cache 0724 00ec | | Load_Encached Diana_Tree_Cache 0725 02c7 | | Declare_Variable Any 0726 00d8 | | Load_Top At_Offset_0 0727 1c00 | | Execute_Immediate Run_Utility,0x0 0728 00f1 | | Load_Encached Diana_Temp_Seq 0729 02c7 | | Declare_Variable Any 072a 00d8 | | Load_Top At_Offset_0 072b 1c00 | | Execute_Immediate Run_Utility,0x0 072c 00e1 | | Load_Encached Boolean_Cache 072d BODY_0720: 072d 4800 |H | Short_Literal 0x0 072e a5fd | | Store_Unchecked 0x2,-0x3 072f e5fe | | Load 0x2,-0x2 0730 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0731 8260 | ` | Call 0x1,0x60 0732 6807 |h | Jump_Zero 0x73a 0733 e5fe | | Load 0x2,-0x2 0734 e5ff | | Load 0x2,-0x1 0735 825e | ^ | Call 0x1,0x5e 0736 c404 | | Store 0x2,0x4 0737 00d9 | | Load_Top At_Offset_1 0738 c5fc | | Store 0x2,-0x4 0739 7835 |x5 | Jump 0x76f 073a e5fe | | Load 0x2,-0x2 073b 0145 | E | Execute Heap_Access,Diana_Tree_Kind 073c 00d8 | | Load_Top At_Offset_0 073d 0c14 | | Execute_Immediate Greater_Equal,0x14 073e 7026 |p& | Jump_Nonzero 0x765 073f 4613 |F | Jump_Case 0x14 0740 7825 |x% | Jump 0x766 ; case 0x0 0741 7824 |x$ | Jump 0x766 ; case 0x1 0742 7823 |x# | Jump 0x766 ; case 0x2 0743 7822 |x" | Jump 0x766 ; case 0x3 0744 7821 |x! | Jump 0x766 ; case 0x4 0745 7820 |x | Jump 0x766 ; case 0x5 0746 781f |x | Jump 0x766 ; case 0x6 0747 781e |x | Jump 0x766 ; case 0x7 0748 781d |x | Jump 0x766 ; case 0x8 0749 781c |x | Jump 0x766 ; case 0x9 074a 781b |x | Jump 0x766 ; case 0xa 074b 781a |x | Jump 0x766 ; case 0xb 074c 7819 |x | Jump 0x766 ; case 0xc 074d 7806 |x | Jump 0x754 ; case 0xd 074e 7817 |x | Jump 0x766 ; case 0xe 074f 7816 |x | Jump 0x766 ; case 0xf 0750 7803 |x | Jump 0x754 ; case 0x10 0751 7802 |x | Jump 0x754 ; case 0x11 0752 7813 |x | Jump 0x766 ; case 0x12 0753 7800 |x | Jump 0x754 ; case 0x13 0754 4801 |H | Short_Literal 0x1 0755 a5fd | | Store_Unchecked 0x2,-0x3 0756 e5fe | | Load 0x2,-0x2 0757 e5ff | | Load 0x2,-0x1 0758 e001 | | Load 0x0,0x1 0759 1b13 | | Execute Package,Field_Read,Field_Number 0x13 075a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 075b 180d | | Execute Package,Field_Execute,Field_Number 0xd 075c c5fe | | Store 0x2,-0x2 075d 00f1 | | Load_Encached Diana_Temp_Seq 075e e5fe | | Load 0x2,-0x2 075f 00eb | | Load_Encached Diana_Cache 0760 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0761 c404 | | Store 0x2,0x4 0762 00d9 | | Load_Top At_Offset_1 0763 c5fc | | Store 0x2,-0x4 0764 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0765 00d1 | | Pop_Control Pop_Count_1 0766 00f1 | | Load_Encached Diana_Temp_Seq 0767 e5fe | | Load 0x2,-0x2 0768 00eb | | Load_Encached Diana_Cache 0769 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 076a c5fc | | Store 0x2,-0x4 076b e5fe | | Load 0x2,-0x2 076c 825d | ] | Call 0x1,0x5d 076d a5fd | | Store_Unchecked 0x2,-0x3 076e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 076f e5fe | | Load 0x2,-0x2 0770 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0771 00d8 | | Load_Top At_Offset_0 0772 0c18 | | Execute_Immediate Greater_Equal,0x18 0773 703d |p= | Jump_Nonzero 0x7b1 0774 4617 |F | Jump_Case 0x18 0775 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 0776 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 0777 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2 0778 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3 0779 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4 077a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5 077b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6 077c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7 077d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8 077e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9 077f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa 0780 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb 0781 7834 |x4 | Jump 0x7b6 ; case 0xc 0782 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xd 0783 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe 0784 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf 0785 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10 0786 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11 0787 7805 |x | Jump 0x78d ; case 0x12 0788 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13 0789 7829 |x) | Jump 0x7b3 ; case 0x14 078a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x15 078b 7801 |x | Jump 0x78d ; case 0x16 078c 7800 |x | Jump 0x78d ; case 0x17 078d 00d9 | | Load_Top At_Offset_1 078e 4975 |Iu | Short_Literal 0x175 078f 00eb | | Load_Encached Diana_Cache 0790 0098 | | Execute Package,Field_Read_Dynamic 0791 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0792 c402 | | Store 0x2,0x2 0793 00db | | Load_Top At_Offset_3 0794 7010 |p | Jump_Nonzero 0x7a5 0795 00e1 | | Load_Encached Boolean_Cache 0796 e5fe | | Load 0x2,-0x2 0797 e5ff | | Load 0x2,-0x1 0798 825f | _ | Call 0x1,0x5f 0799 c5fe | | Store 0x2,-0x2 079a 0059 | Y | Store_Top Discrete,At_Offset_1 079b 00d8 | | Load_Top At_Offset_0 079c 6807 |h | Jump_Zero 0x7a4 079d 4801 |H | Short_Literal 0x1 079e a5fd | | Store_Unchecked 0x2,-0x3 079f 00f1 | | Load_Encached Diana_Temp_Seq 07a0 e5fe | | Load 0x2,-0x2 07a1 00eb | | Load_Encached Diana_Cache 07a2 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 07a3 c5fc | | Store 0x2,-0x4 07a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07a5 00db | | Load_Top At_Offset_3 07a6 0f01 | | Execute_Immediate Equal,0x1 07a7 6806 |h | Jump_Zero 0x7ae 07a8 00d9 | | Load_Top At_Offset_1 07a9 0217 | | Execute Heap_Access,All_Reference 07aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07ab 825d | ] | Call 0x1,0x5d 07ac a5fd | | Store_Unchecked 0x2,-0x3 07ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07ae 4802 |H | Short_Literal 0x2 07af a5fd | | Store_Unchecked 0x2,-0x3 07b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b1 00d1 | | Pop_Control Pop_Count_1 07b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b3 4802 |H | Short_Literal 0x2 07b4 a5fd | | Store_Unchecked 0x2,-0x3 07b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b6 4802 |H | Short_Literal 0x2 07b7 a5fd | | Store_Unchecked 0x2,-0x3 07b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b9 0000 0000 | | .BLANK 0000[0x7] 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07c7 | | .CONST 0x07c7 ; Address of begin 07c1 0004 | | .CONST 0x0004 ; Address of exception handler 07c2 0003 | | .CONST 0x0003 ; Number of locals 07c3 INIT_07c0: 07c3 029f 0f2b | +| Declare_Subprogram INIT_0f28,For_Call 07c5 029f 0f5b | [| Declare_Subprogram INIT_0f58,For_Call 07c7 BODY_07c0: 07c7 4801 |H | Short_Literal 0x1 07c8 a5f8 | | Store_Unchecked 0x2,-0x8 07c9 00cf | | Action Mark_Auxiliary 07ca e5fc | | Load 0x2,-0x4 07cb 01d9 | | Execute Vector,Reverse_Bounds 07cc 0263 | c | Execute Discrete,Above_Bound 07cd 7003 |p | Jump_Nonzero 0x7d1 07ce 8402 | | Call 0x2,0x2 07cf 00c8 | | Action Pop_Auxiliary_Range 07d0 3ffd |? | Loop_Increasing 0x7ce 07d1 00c9 | | Action Pop_Auxiliary_Loop 07d2 e5fb | | Load 0x2,-0x5 07d3 01d9 | | Execute Vector,Reverse_Bounds 07d4 0263 | c | Execute Discrete,Above_Bound 07d5 7003 |p | Jump_Nonzero 0x7d9 07d6 8403 | | Call 0x2,0x3 07d7 00c8 | | Action Pop_Auxiliary_Range 07d8 3ffd |? | Loop_Increasing 0x7d6 07d9 4508 |E | Exit_Suprogram New_Top_Offset 0x8 07da 0000 0000 | | .BLANK 0000[0x6] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e3 | | .CONST 0x07e3 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0001 | | .CONST 0x0001 ; Number of locals 07e3 BODY_07e0: 07e3 INIT_07e0: 07e3 e5fc | | Load 0x2,-0x4 07e4 680e |h | Jump_Zero 0x7f3 07e5 0092 11a4 | | Action Push_String_Extended,0x11a4 ; " violates the '" 07e7 e5fd | | Load 0x2,-0x3 07e8 e244 | D | Load 0x1,0x44 07e9 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 07ea 8237 | 7 | Call 0x1,0x37 07eb 01cc | | Execute Vector,Catenate 07ec 0092 11a5 | | Action Push_String_Extended,0x11a5 ; "' restriction" 07ee 01cc | | Execute Vector,Catenate 07ef 00db | | Load_Top At_Offset_3 07f0 e5fb | | Load 0x2,-0x5 07f1 822c | , | Call 0x1,0x2c 07f2 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07f3 0092 11a6 | | Action Push_String_Extended,0x11a6 ; "'s type violates the '" 07f5 e5fd | | Load 0x2,-0x3 07f6 e244 | D | Load 0x1,0x44 07f7 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 07f8 8237 | 7 | Call 0x1,0x37 07f9 01cc | | Execute Vector,Catenate 07fa 0092 11a5 | | Action Push_String_Extended,0x11a5 ; "' restriction" 07fc 01cc | | Execute Vector,Catenate 07fd 00db | | Load_Top At_Offset_3 07fe e5fb | | Load 0x2,-0x5 07ff 822c | , | Call 0x1,0x2c 0800 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0801 0000 0000 | | .BLANK 0000[0x7] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 0815 | | .CONST 0x0815 ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0002 | | .CONST 0x0002 ; Number of locals 080b INIT_0808: 080b e009 | | Load 0x0,0x9 080c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 080d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 080e 0337 | 7 | Declare_Variable Array 080f 00db | | Load_Top At_Offset_3 0810 e009 | | Load 0x0,0x9 0811 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0812 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0813 00d9 | | Load_Top At_Offset_1 0814 01d4 | | Execute Vector,Structure_Write 0815 BODY_0808: 0815 e5fe | | Load 0x2,-0x2 0816 00d9 | | Load_Top At_Offset_1 0817 01d7 | | Execute Vector,Field_Read 0818 a5fd | | Store_Unchecked 0x2,-0x3 0819 4503 |E | Exit_Suprogram New_Top_Offset 0x3 081a 0000 0000 | | .BLANK 0000[0x6] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0823 | # | .CONST 0x0823 ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0001 | | .CONST 0x0001 ; Number of locals 0823 BODY_0820: 0823 INIT_0820: 0823 4801 |H | Short_Literal 0x1 0824 a5fb | | Store_Unchecked 0x2,-0x5 0825 e5fd | | Load 0x2,-0x3 0826 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0827 00d8 | | Load_Top At_Offset_0 0828 0d64 | d | Execute_Immediate Less,0x64 0829 7053 |pS | Jump_Nonzero 0x87d 082a 0a9c | | Execute_Immediate Plus,-0x64 082b 4649 |FI | Jump_Case 0x4a 082c 7864 |xd | Jump 0x891 ; case 0x0 082d 7869 |xi | Jump 0x897 ; case 0x1 082e 7847 |xG | Jump 0x876 ; case 0x2 082f 786d |xm | Jump 0x89d ; case 0x3 0830 7872 |xr | Jump 0x8a3 ; case 0x4 0831 7877 |xw | Jump 0x8a9 ; case 0x5 0832 787c |x| | Jump 0x8af ; case 0x6 0833 784b |xK | Jump 0x87f ; case 0x7 0834 7850 |xP | Jump 0x885 ; case 0x8 0835 7840 |x@ | Jump 0x876 ; case 0x9 0836 7854 |xT | Jump 0x88b ; case 0xa 0837 787d |x} | Jump 0x8b5 ; case 0xb 0838 7882 |x | Jump 0x8bb ; case 0xc 0839 7888 |x | Jump 0x8c2 ; case 0xd 083a 788e |x | Jump 0x8c9 ; case 0xe 083b 7893 |x | Jump 0x8cf ; case 0xf 083c 7898 |x | Jump 0x8d5 ; case 0x10 083d 789d |x | Jump 0x8db ; case 0x11 083e 78a2 |x | Jump 0x8e1 ; case 0x12 083f 7836 |x6 | Jump 0x876 ; case 0x13 0840 7835 |x5 | Jump 0x876 ; case 0x14 0841 7834 |x4 | Jump 0x876 ; case 0x15 0842 7833 |x3 | Jump 0x876 ; case 0x16 0843 7832 |x2 | Jump 0x876 ; case 0x17 0844 7831 |x1 | Jump 0x876 ; case 0x18 0845 7830 |x0 | Jump 0x876 ; case 0x19 0846 782f |x/ | Jump 0x876 ; case 0x1a 0847 782e |x. | Jump 0x876 ; case 0x1b 0848 782d |x- | Jump 0x876 ; case 0x1c 0849 782c |x, | Jump 0x876 ; case 0x1d 084a 782b |x+ | Jump 0x876 ; case 0x1e 084b 782a |x* | Jump 0x876 ; case 0x1f 084c 7829 |x) | Jump 0x876 ; case 0x20 084d 7828 |x( | Jump 0x876 ; case 0x21 084e 7827 |x' | Jump 0x876 ; case 0x22 084f 7826 |x& | Jump 0x876 ; case 0x23 0850 7825 |x% | Jump 0x876 ; case 0x24 0851 7824 |x$ | Jump 0x876 ; case 0x25 0852 7823 |x# | Jump 0x876 ; case 0x26 0853 7822 |x" | Jump 0x876 ; case 0x27 0854 7821 |x! | Jump 0x876 ; case 0x28 0855 7820 |x | Jump 0x876 ; case 0x29 0856 781f |x | Jump 0x876 ; case 0x2a 0857 781e |x | Jump 0x876 ; case 0x2b 0858 781d |x | Jump 0x876 ; case 0x2c 0859 781c |x | Jump 0x876 ; case 0x2d 085a 781b |x | Jump 0x876 ; case 0x2e 085b 781a |x | Jump 0x876 ; case 0x2f 085c 7819 |x | Jump 0x876 ; case 0x30 085d 7818 |x | Jump 0x876 ; case 0x31 085e 7817 |x | Jump 0x876 ; case 0x32 085f 7816 |x | Jump 0x876 ; case 0x33 0860 7815 |x | Jump 0x876 ; case 0x34 0861 7814 |x | Jump 0x876 ; case 0x35 0862 7813 |x | Jump 0x876 ; case 0x36 0863 7812 |x | Jump 0x876 ; case 0x37 0864 7811 |x | Jump 0x876 ; case 0x38 0865 7810 |x | Jump 0x876 ; case 0x39 0866 780f |x | Jump 0x876 ; case 0x3a 0867 780e |x | Jump 0x876 ; case 0x3b 0868 780d |x | Jump 0x876 ; case 0x3c 0869 780c |x | Jump 0x876 ; case 0x3d 086a 780b |x | Jump 0x876 ; case 0x3e 086b 780a |x | Jump 0x876 ; case 0x3f 086c 7809 |x | Jump 0x876 ; case 0x40 086d 7808 |x | Jump 0x876 ; case 0x41 086e 7807 |x | Jump 0x876 ; case 0x42 086f 7806 |x | Jump 0x876 ; case 0x43 0870 7805 |x | Jump 0x876 ; case 0x44 0871 7804 |x | Jump 0x876 ; case 0x45 0872 7803 |x | Jump 0x876 ; case 0x46 0873 7802 |x | Jump 0x876 ; case 0x47 0874 7801 |x | Jump 0x876 ; case 0x48 0875 7800 |x | Jump 0x876 ; case 0x49 0876 e5fd | | Load 0x2,-0x3 0877 e5fe | | Load 0x2,-0x2 0878 e5fc | | Load 0x2,-0x4 0879 822f | / | Call 0x1,0x2f 087a 4800 |H | Short_Literal 0x0 087b a5fb | | Store_Unchecked 0x2,-0x5 087c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 087d 00d1 | | Pop_Control Pop_Count_1 087e 7ff7 | | Jump 0x876 087f 00e1 | | Load_Encached Boolean_Cache 0880 4800 |H | Short_Literal 0x0 0881 e5ff | | Load 0x2,-0x1 0882 8264 | d | Call 0x1,0x64 0883 c5fb | | Store 0x2,-0x5 0884 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0885 00e1 | | Load_Encached Boolean_Cache 0886 4801 |H | Short_Literal 0x1 0887 e5ff | | Load 0x2,-0x1 0888 8264 | d | Call 0x1,0x64 0889 c5fb | | Store 0x2,-0x5 088a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 088b 00e1 | | Load_Encached Boolean_Cache 088c 4802 |H | Short_Literal 0x2 088d e5ff | | Load 0x2,-0x1 088e 8264 | d | Call 0x1,0x64 088f c5fb | | Store 0x2,-0x5 0890 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0891 00e1 | | Load_Encached Boolean_Cache 0892 4804 |H | Short_Literal 0x4 0893 e5ff | | Load 0x2,-0x1 0894 8264 | d | Call 0x1,0x64 0895 c5fb | | Store 0x2,-0x5 0896 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0897 00e1 | | Load_Encached Boolean_Cache 0898 4805 |H | Short_Literal 0x5 0899 e5ff | | Load 0x2,-0x1 089a 8264 | d | Call 0x1,0x64 089b c5fb | | Store 0x2,-0x5 089c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 089d 00e1 | | Load_Encached Boolean_Cache 089e 4806 |H | Short_Literal 0x6 089f e5ff | | Load 0x2,-0x1 08a0 8264 | d | Call 0x1,0x64 08a1 c5fb | | Store 0x2,-0x5 08a2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08a3 00e1 | | Load_Encached Boolean_Cache 08a4 4807 |H | Short_Literal 0x7 08a5 e5ff | | Load 0x2,-0x1 08a6 8264 | d | Call 0x1,0x64 08a7 c5fb | | Store 0x2,-0x5 08a8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08a9 00e1 | | Load_Encached Boolean_Cache 08aa 4808 |H | Short_Literal 0x8 08ab e5ff | | Load 0x2,-0x1 08ac 8264 | d | Call 0x1,0x64 08ad c5fb | | Store 0x2,-0x5 08ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08af 00e1 | | Load_Encached Boolean_Cache 08b0 4809 |H | Short_Literal 0x9 08b1 e5ff | | Load 0x2,-0x1 08b2 8264 | d | Call 0x1,0x64 08b3 c5fb | | Store 0x2,-0x5 08b4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08b5 00e1 | | Load_Encached Boolean_Cache 08b6 4803 |H | Short_Literal 0x3 08b7 e5ff | | Load 0x2,-0x1 08b8 8264 | d | Call 0x1,0x64 08b9 c5fb | | Store 0x2,-0x5 08ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08bb e5fd | | Load 0x2,-0x3 08bc e5fe | | Load 0x2,-0x2 08bd e5fc | | Load 0x2,-0x4 08be 822f | / | Call 0x1,0x2f 08bf 4800 |H | Short_Literal 0x0 08c0 a5fb | | Store_Unchecked 0x2,-0x5 08c1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08c2 e5fd | | Load 0x2,-0x3 08c3 e5fe | | Load 0x2,-0x2 08c4 e5fc | | Load 0x2,-0x4 08c5 822f | / | Call 0x1,0x2f 08c6 4800 |H | Short_Literal 0x0 08c7 a5fb | | Store_Unchecked 0x2,-0x5 08c8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08c9 00e1 | | Load_Encached Boolean_Cache 08ca 480a |H | Short_Literal 0xa 08cb e5ff | | Load 0x2,-0x1 08cc 8264 | d | Call 0x1,0x64 08cd c5fb | | Store 0x2,-0x5 08ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08cf 00e1 | | Load_Encached Boolean_Cache 08d0 480b |H | Short_Literal 0xb 08d1 e5ff | | Load 0x2,-0x1 08d2 8264 | d | Call 0x1,0x64 08d3 c5fb | | Store 0x2,-0x5 08d4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08d5 00e1 | | Load_Encached Boolean_Cache 08d6 480c |H | Short_Literal 0xc 08d7 e5ff | | Load 0x2,-0x1 08d8 8264 | d | Call 0x1,0x64 08d9 c5fb | | Store 0x2,-0x5 08da 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08db 00e1 | | Load_Encached Boolean_Cache 08dc 480d |H | Short_Literal 0xd 08dd e5ff | | Load 0x2,-0x1 08de 8264 | d | Call 0x1,0x64 08df c5fb | | Store 0x2,-0x5 08e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08e1 00e1 | | Load_Encached Boolean_Cache 08e2 480e |H | Short_Literal 0xe 08e3 e5ff | | Load 0x2,-0x1 08e4 8264 | d | Call 0x1,0x64 08e5 c5fb | | Store 0x2,-0x5 08e6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08e7 0000 | | .XXX[0x1] 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08f1 | | .CONST 0x08f1 ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0004 | | .CONST 0x0004 ; Number of locals 08eb INIT_08e8: 08eb 00da | | Load_Top At_Offset_2 08ec e024 | $ | Load 0x0,0x24 08ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 08ee 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 08ef 00e3 | | Load_Encached Natural_Cache 08f0 00e3 | | Load_Encached Natural_Cache 08f1 BODY_08e8: 08f1 4800 |H | Short_Literal 0x0 08f2 00db | | Load_Top At_Offset_3 08f3 0092 11a7 | | Action Push_String_Extended,0x11a7 ; "<*" 08f5 e021 | ! | Load 0x0,0x21 08f6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 08f7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 08f8 4800 |H | Short_Literal 0x0 08f9 00db | | Load_Top At_Offset_3 08fa 482e |H. | Short_Literal 0x2e 08fb e021 | ! | Load 0x0,0x21 08fc 181e | | Execute Package,Field_Execute,Field_Number 0x1e 08fd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 08fe 00d9 | | Load_Top At_Offset_1 08ff 0c01 | | Execute_Immediate Greater_Equal,0x1 0900 6810 |h | Jump_Zero 0x911 0901 00d8 | | Load_Top At_Offset_0 0902 00da | | Load_Top At_Offset_2 0903 027d | } | Execute Discrete,Greater 0904 680c |h | Jump_Zero 0x911 0905 00d8 | | Load_Top At_Offset_0 0906 0a01 | | Execute_Immediate Plus,0x1 0907 00d8 | | Load_Top At_Offset_0 0908 00e2 | | Load_Encached Integer_Cache 0909 0260 | ` | Execute Discrete,In_Type 090a 7001 |p | Jump_Nonzero 0x90c 090b 0801 | | Execute_Immediate Raise,0x1 090c 00db | | Load_Top At_Offset_3 090d 01dc | | Execute Vector,Last 090e e402 | | Load 0x2,0x2 090f 01cf | | Execute Vector,Slice_Read 0910 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0911 00da | | Load_Top At_Offset_2 0912 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0913 0000 0000 | | .BLANK 0000[0x5] 0918 ; -------------------------------------------------------------------------------------- 0918 ; SUBPROGRAM 0918 ; -------------------------------------------------------------------------------------- 0918 091c | | .CONST 0x091c ; Address of begin 0919 0004 | | .CONST 0x0004 ; Address of exception handler 091a 0002 | | .CONST 0x0002 ; Number of locals 091b INIT_0918: 091b 00e3 | | Load_Encached Natural_Cache 091c BODY_0918: 091c 4801 |H | Short_Literal 0x1 091d e5ff | | Load 0x2,-0x1 091e 0092 11a8 | | Action Push_String_Extended,0x11a8 ; "standard." 0920 e021 | ! | Load 0x0,0x21 0921 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0922 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0923 00d8 | | Load_Top At_Offset_0 0924 0f01 | | Execute_Immediate Equal,0x1 0925 680d |h | Jump_Zero 0x933 0926 00db | | Load_Top At_Offset_3 0927 01dd | | Execute Vector,First 0928 0a09 | | Execute_Immediate Plus,0x9 0929 00d8 | | Load_Top At_Offset_0 092a 00e2 | | Load_Encached Integer_Cache 092b 0260 | ` | Execute Discrete,In_Type 092c 7001 |p | Jump_Nonzero 0x92e 092d 0801 | | Execute_Immediate Raise,0x1 092e e5ff | | Load 0x2,-0x1 092f 01dc | | Execute Vector,Last 0930 e5ff | | Load 0x2,-0x1 0931 01cf | | Execute Vector,Slice_Read 0932 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0933 00db | | Load_Top At_Offset_3 0934 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0935 0000 0000 | | .XXX[0x3] 0937 0000 | | 0938 ; -------------------------------------------------------------------------------------- 0938 ; SUBPROGRAM 0938 ; -------------------------------------------------------------------------------------- 0938 094a | J | .CONST 0x094a ; Address of begin 0939 0004 | | .CONST 0x0004 ; Address of exception handler 093a 0005 | | .CONST 0x0005 ; Number of locals 093b INIT_0938: 093b e024 | $ | Load 0x0,0x24 093c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 093d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 093e e024 | $ | Load 0x0,0x24 093f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0940 e024 | $ | Load 0x0,0x24 0941 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0942 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0943 02c7 | | Declare_Variable Any 0944 00d8 | | Load_Top At_Offset_0 0945 1c00 | | Execute_Immediate Run_Utility,0x0 0946 00ec | | Load_Encached Diana_Tree_Cache 0947 02c7 | | Declare_Variable Any 0948 00d8 | | Load_Top At_Offset_0 0949 1c00 | | Execute_Immediate Run_Utility,0x0 094a BODY_0938: 094a 4801 |H | Short_Literal 0x1 094b e5fd | | Load 0x2,-0x3 094c 8267 | g | Call 0x1,0x67 094d e5fc | | Load 0x2,-0x4 094e 8266 | f | Call 0x1,0x66 094f e021 | ! | Load 0x0,0x21 0950 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0951 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0952 0000 0000 | | .BLANK 0000[0x6] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 0977 | w | .CONST 0x0977 ; Address of begin 0959 0004 | | .CONST 0x0004 ; Address of exception handler 095a 000a | | .CONST 0x000a ; Number of locals 095b INIT_0958: 095b 00ec | | Load_Encached Diana_Tree_Cache 095c 02c7 | | Declare_Variable Any 095d 00d8 | | Load_Top At_Offset_0 095e 1c00 | | Execute_Immediate Run_Utility,0x0 095f e009 | | Load 0x0,0x9 0960 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0961 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0962 0337 | 7 | Declare_Variable Array 0963 e5ff | | Load 0x2,-0x1 0964 e009 | | Load 0x0,0x9 0965 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0966 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0967 00ec | | Load_Encached Diana_Tree_Cache 0968 02c7 | | Declare_Variable Any 0969 00d8 | | Load_Top At_Offset_0 096a 1c00 | | Execute_Immediate Run_Utility,0x0 096b 00ec | | Load_Encached Diana_Tree_Cache 096c 02c7 | | Declare_Variable Any 096d 00d8 | | Load_Top At_Offset_0 096e 1c00 | | Execute_Immediate Run_Utility,0x0 096f 00e1 | | Load_Encached Boolean_Cache 0970 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0971 00e1 | | Load_Encached Boolean_Cache 0972 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0973 00e1 | | Load_Encached Boolean_Cache 0974 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0975 00e1 | | Load_Encached Boolean_Cache 0976 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0977 BODY_0958: 0977 4801 |H | Short_Literal 0x1 0978 a5f8 | | Store_Unchecked 0x2,-0x8 0979 4800 |H | Short_Literal 0x0 097a a5f9 | | Store_Unchecked 0x2,-0x7 097b e5fe | | Load 0x2,-0x2 097c 4976 |Iv | Short_Literal 0x176 097d 00eb | | Load_Encached Diana_Cache 097e 0098 | | Execute Package,Field_Read_Dynamic 097f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0980 c405 | | Store 0x2,0x5 0981 e404 | | Load 0x2,0x4 0982 01db | | Execute Vector,Length 0983 0c01 | | Execute_Immediate Greater_Equal,0x1 0984 6816 |h | Jump_Zero 0x99b 0985 00cf | | Action Mark_Auxiliary 0986 e404 | | Load 0x2,0x4 0987 01d9 | | Execute Vector,Reverse_Bounds 0988 0263 | c | Execute Discrete,Above_Bound 0989 7010 |p | Jump_Nonzero 0x99a 098a e405 | | Load 0x2,0x5 098b 00d9 | | Load_Top At_Offset_1 098c e404 | | Load 0x2,0x4 098d 01d7 | | Execute Vector,Field_Read 098e e009 | | Load 0x0,0x9 098f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0990 180f | | Execute Package,Field_Execute,Field_Number 0xf 0991 e5fa | | Load 0x2,-0x6 0992 e5fb | | Load 0x2,-0x5 0993 8268 | h | Call 0x1,0x68 0994 6803 |h | Jump_Zero 0x998 0995 4801 |H | Short_Literal 0x1 0996 a5f8 | | Store_Unchecked 0x2,-0x8 0997 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0998 00c8 | | Action Pop_Auxiliary_Range 0999 3ff0 |? | Loop_Increasing 0x98a 099a 00ce | | Action Pop_Auxiliary 099b e5ff | | Load 0x2,-0x1 099c e009 | | Load 0x0,0x9 099d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 099e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 099f e403 | | Load 0x2,0x3 09a0 01d4 | | Execute Vector,Structure_Write 09a1 e405 | | Load 0x2,0x5 09a2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 09a3 00d8 | | Load_Top At_Offset_0 09a4 482a |H* | Short_Literal 0x2a 09a5 482f |H/ | Short_Literal 0x2f 09a6 0262 | b | Execute Discrete,In_Range 09a7 6870 |hp | Jump_Zero 0xa18 09a8 0ad6 | | Execute_Immediate Plus,-0x2a 09a9 4605 |F | Jump_Case 0x6 09aa 7833 |x3 | Jump 0x9de ; case 0x0 09ab 780a |x | Jump 0x9b6 ; case 0x1 09ac 786c |xl | Jump 0xa19 ; case 0x2 09ad 7858 |xX | Jump 0xa06 ; case 0x3 09ae 786a |xj | Jump 0xa19 ; case 0x4 09af 7800 |x | Jump 0x9b0 ; case 0x5 09b0 e405 | | Load 0x2,0x5 09b1 4907 |I | Short_Literal 0x107 09b2 00eb | | Load_Encached Diana_Cache 09b3 0096 | | Execute Package,Entry 09b4 c406 | | Store 0x2,0x6 09b5 786c |xl | Jump 0xa22 09b6 e405 | | Load 0x2,0x5 09b7 e5fb | | Load 0x2,-0x5 09b8 e001 | | Load 0x0,0x1 09b9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 09ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09bb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09bc e5fb | | Load 0x2,-0x5 09bd e001 | | Load 0x0,0x1 09be 1b13 | | Execute Package,Field_Read,Field_Number 0x13 09bf 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09c0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 09c1 700a |p | Jump_Nonzero 0x9cc 09c2 0092 11a9 | | Action Push_String_Extended,0x11a9 ; "0625**SMTYPE" 09c4 e5fa | | Load 0x2,-0x6 09c5 e5fb | | Load 0x2,-0x5 09c6 822b | + | Call 0x1,0x2b 09c7 4800 |H | Short_Literal 0x0 09c8 a5f8 | | Store_Unchecked 0x2,-0x8 09c9 4800 |H | Short_Literal 0x0 09ca a5f9 | | Store_Unchecked 0x2,-0x7 09cb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 09cc 4802 |H | Short_Literal 0x2 09cd e403 | | Load 0x2,0x3 09ce 01d7 | | Execute Vector,Field_Read 09cf 6808 |h | Jump_Zero 0x9d8 09d0 4800 |H | Short_Literal 0x0 09d1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 09d2 e5fb | | Load 0x2,-0x5 09d3 e5fd | | Load 0x2,-0x3 09d4 4802 |H | Short_Literal 0x2 09d5 e405 | | Load 0x2,0x5 09d6 e5fa | | Load 0x2,-0x6 09d7 8263 | c | Call 0x1,0x63 09d8 e405 | | Load 0x2,0x5 09d9 4907 |I | Short_Literal 0x107 09da 00eb | | Load_Encached Diana_Cache 09db 0096 | | Execute Package,Entry 09dc c406 | | Store 0x2,0x6 09dd 7844 |xD | Jump 0xa22 09de e405 | | Load 0x2,0x5 09df e5fb | | Load 0x2,-0x5 09e0 e001 | | Load 0x0,0x1 09e1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 09e2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09e3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 09e4 e5fb | | Load 0x2,-0x5 09e5 e001 | | Load 0x0,0x1 09e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 09e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 09e8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 09e9 700a |p | Jump_Nonzero 0x9f4 09ea 0092 11a9 | | Action Push_String_Extended,0x11a9 ; "0625**SMTYPE" 09ec e5fa | | Load 0x2,-0x6 09ed e5fb | | Load 0x2,-0x5 09ee 822b | + | Call 0x1,0x2b 09ef 4800 |H | Short_Literal 0x0 09f0 a5f8 | | Store_Unchecked 0x2,-0x8 09f1 4800 |H | Short_Literal 0x0 09f2 a5f9 | | Store_Unchecked 0x2,-0x7 09f3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 09f4 4801 |H | Short_Literal 0x1 09f5 e403 | | Load 0x2,0x3 09f6 01d7 | | Execute Vector,Field_Read 09f7 6808 |h | Jump_Zero 0xa00 09f8 4800 |H | Short_Literal 0x0 09f9 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 09fa e5fb | | Load 0x2,-0x5 09fb e5fd | | Load 0x2,-0x3 09fc 4801 |H | Short_Literal 0x1 09fd e405 | | Load 0x2,0x5 09fe e5fa | | Load 0x2,-0x6 09ff 8263 | c | Call 0x1,0x63 0a00 e405 | | Load 0x2,0x5 0a01 4907 |I | Short_Literal 0x107 0a02 00eb | | Load_Encached Diana_Cache 0a03 0096 | | Execute Package,Entry 0a04 c406 | | Store 0x2,0x6 0a05 781c |x | Jump 0xa22 0a06 4800 |H | Short_Literal 0x0 0a07 e403 | | Load 0x2,0x3 0a08 01d7 | | Execute Vector,Field_Read 0a09 6808 |h | Jump_Zero 0xa12 0a0a 4800 |H | Short_Literal 0x0 0a0b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0a0c e5fb | | Load 0x2,-0x5 0a0d e5fd | | Load 0x2,-0x3 0a0e 4800 |H | Short_Literal 0x0 0a0f e405 | | Load 0x2,0x5 0a10 e5fa | | Load 0x2,-0x6 0a11 8263 | c | Call 0x1,0x63 0a12 e405 | | Load 0x2,0x5 0a13 4907 |I | Short_Literal 0x107 0a14 00eb | | Load_Encached Diana_Cache 0a15 0096 | | Execute Package,Entry 0a16 c406 | | Store 0x2,0x6 0a17 780a |x | Jump 0xa22 0a18 00d1 | | Pop_Control Pop_Count_1 0a19 e405 | | Load 0x2,0x5 0a1a e5fa | | Load 0x2,-0x6 0a1b e5fb | | Load 0x2,-0x5 0a1c 822f | / | Call 0x1,0x2f 0a1d 4800 |H | Short_Literal 0x0 0a1e a5f8 | | Store_Unchecked 0x2,-0x8 0a1f 4800 |H | Short_Literal 0x0 0a20 a5f9 | | Store_Unchecked 0x2,-0x7 0a21 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a22 e406 | | Load 0x2,0x6 0a23 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0a24 0b66 | f | Execute_Immediate Case_Compare,0x66 0a25 700d |p | Jump_Nonzero 0xa33 0a26 0f6d | m | Execute_Immediate Equal,0x6d 0a27 7021 |p! | Jump_Nonzero 0xa49 0a28 00e1 | | Load_Encached Boolean_Cache 0a29 e5fb | | Load 0x2,-0x5 0a2a e406 | | Load 0x2,0x6 0a2b e5fa | | Load 0x2,-0x6 0a2c e5ff | | Load 0x2,-0x1 0a2d 8265 | e | Call 0x1,0x65 0a2e 0059 | Y | Store_Top Discrete,At_Offset_1 0a2f 00d8 | | Load_Top At_Offset_0 0a30 0f00 | | Execute_Immediate Equal,0x0 0a31 a5f9 | | Store_Unchecked 0x2,-0x7 0a32 7838 |x8 | Jump 0xa6b 0a33 00d1 | | Pop_Control Pop_Count_1 0a34 e406 | | Load 0x2,0x6 0a35 00eb | | Load_Encached Diana_Cache 0a36 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0a37 4976 |Iv | Short_Literal 0x176 0a38 00eb | | Load_Encached Diana_Cache 0a39 0098 | | Execute Package,Field_Read_Dynamic 0a3a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a3b c402 | | Store 0x2,0x2 0a3c 00e1 | | Load_Encached Boolean_Cache 0a3d 00e1 | | Load_Encached Boolean_Cache 0a3e e5fa | | Load 0x2,-0x6 0a3f e5fb | | Load 0x2,-0x5 0a40 4800 |H | Short_Literal 0x0 0a41 e5fd | | Load 0x2,-0x3 0a42 e402 | | Load 0x2,0x2 0a43 e5ff | | Load 0x2,-0x1 0a44 8269 | i | Call 0x1,0x69 0a45 c5fa | | Store 0x2,-0x6 0a46 c5f9 | | Store 0x2,-0x7 0a47 c407 | | Store 0x2,0x7 0a48 7822 |x" | Jump 0xa6b 0a49 4803 |H | Short_Literal 0x3 0a4a e403 | | Load 0x2,0x3 0a4b 01d7 | | Execute Vector,Field_Read 0a4c 6808 |h | Jump_Zero 0xa55 0a4d 4800 |H | Short_Literal 0x0 0a4e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0a4f e5fb | | Load 0x2,-0x5 0a50 e5fd | | Load 0x2,-0x3 0a51 4803 |H | Short_Literal 0x3 0a52 e405 | | Load 0x2,0x5 0a53 e5fa | | Load 0x2,-0x6 0a54 8263 | c | Call 0x1,0x63 0a55 e406 | | Load 0x2,0x6 0a56 00eb | | Load_Encached Diana_Cache 0a57 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 0a58 00eb | | Load_Encached Diana_Cache 0a59 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0a5a 4976 |Iv | Short_Literal 0x176 0a5b 00eb | | Load_Encached Diana_Cache 0a5c 0098 | | Execute Package,Field_Read_Dynamic 0a5d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a5e c402 | | Store 0x2,0x2 0a5f 00e1 | | Load_Encached Boolean_Cache 0a60 00e1 | | Load_Encached Boolean_Cache 0a61 e5fa | | Load 0x2,-0x6 0a62 e5fb | | Load 0x2,-0x5 0a63 4800 |H | Short_Literal 0x0 0a64 e5fd | | Load 0x2,-0x3 0a65 e402 | | Load 0x2,0x2 0a66 e5ff | | Load 0x2,-0x1 0a67 8269 | i | Call 0x1,0x69 0a68 c5fa | | Store 0x2,-0x6 0a69 c5f9 | | Store 0x2,-0x7 0a6a c407 | | Store 0x2,0x7 0a6b e5fc | | Load 0x2,-0x4 0a6c 6810 |h | Jump_Zero 0xa7d 0a6d 00e1 | | Load_Encached Boolean_Cache 0a6e 4801 |H | Short_Literal 0x1 0a6f e5fd | | Load 0x2,-0x3 0a70 e5ff | | Load 0x2,-0x1 0a71 e009 | | Load 0x0,0x9 0a72 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0a73 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0a74 e5ff | | Load 0x2,-0x1 0a75 e009 | | Load 0x0,0x9 0a76 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0a77 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0a78 e405 | | Load 0x2,0x5 0a79 e5fa | | Load 0x2,-0x6 0a7a e5fb | | Load 0x2,-0x5 0a7b 8262 | b | Call 0x1,0x62 0a7c 005a | Z | Store_Top Discrete,At_Offset_2 0a7d 00d8 | | Load_Top At_Offset_0 0a7e 00db | | Load_Top At_Offset_3 0a7f 0279 | y | Execute Discrete,And 0a80 e407 | | Load 0x2,0x7 0a81 0279 | y | Execute Discrete,And 0a82 00da | | Load_Top At_Offset_2 0a83 0279 | y | Execute Discrete,And 0a84 a5f8 | | Store_Unchecked 0x2,-0x8 0a85 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a86 0000 0000 | | .XXX[0x2] 0a88 ; -------------------------------------------------------------------------------------- 0a88 ; SUBPROGRAM 0a88 ; -------------------------------------------------------------------------------------- 0a88 0a92 | | .CONST 0x0a92 ; Address of begin 0a89 0004 | | .CONST 0x0004 ; Address of exception handler 0a8a 0004 | | .CONST 0x0004 ; Number of locals 0a8b INIT_0a88: 0a8b 00e1 | | Load_Encached Boolean_Cache 0a8c 00ec | | Load_Encached Diana_Tree_Cache 0a8d 02c7 | | Declare_Variable Any 0a8e 00d8 | | Load_Top At_Offset_0 0a8f 1c00 | | Execute_Immediate Run_Utility,0x0 0a90 029f 0f8b | | Declare_Subprogram INIT_0f88,For_Call 0a92 BODY_0a88: 0a92 4801 |H | Short_Literal 0x1 0a93 a5fa | | Store_Unchecked 0x2,-0x6 0a94 4800 |H | Short_Literal 0x0 0a95 a5fb | | Store_Unchecked 0x2,-0x5 0a96 e5fe | | Load 0x2,-0x2 0a97 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0a98 0b66 | f | Execute_Immediate Case_Compare,0x66 0a99 7004 |p | Jump_Nonzero 0xa9e 0a9a 0f61 | a | Execute_Immediate Equal,0x61 0a9b 7025 |p% | Jump_Nonzero 0xac1 0a9c 8404 | | Call 0x2,0x4 0a9d 782f |x/ | Jump 0xacd 0a9e 00d1 | | Pop_Control Pop_Count_1 0a9f e5fe | | Load 0x2,-0x2 0aa0 00eb | | Load_Encached Diana_Cache 0aa1 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0aa2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0aa3 0f3c | < | Execute_Immediate Equal,0x3c 0aa4 6807 |h | Jump_Zero 0xaac 0aa5 e5fe | | Load 0x2,-0x2 0aa6 00eb | | Load_Encached Diana_Cache 0aa7 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0aa8 00eb | | Load_Encached Diana_Cache 0aa9 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0aaa c403 | | Store 0x2,0x3 0aab 7808 |x | Jump 0xab4 0aac e5fe | | Load 0x2,-0x2 0aad 00eb | | Load_Encached Diana_Cache 0aae 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0aaf 4976 |Iv | Short_Literal 0x176 0ab0 00eb | | Load_Encached Diana_Cache 0ab1 0098 | | Execute Package,Field_Read_Dynamic 0ab2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ab3 c403 | | Store 0x2,0x3 0ab4 00e1 | | Load_Encached Boolean_Cache 0ab5 00e1 | | Load_Encached Boolean_Cache 0ab6 e5fc | | Load 0x2,-0x4 0ab7 e5fd | | Load 0x2,-0x3 0ab8 4801 |H | Short_Literal 0x1 0ab9 4801 |H | Short_Literal 0x1 0aba e403 | | Load 0x2,0x3 0abb e5ff | | Load 0x2,-0x1 0abc 8269 | i | Call 0x1,0x69 0abd c5fc | | Store 0x2,-0x4 0abe c5fb | | Store 0x2,-0x5 0abf 005b | [ | Store_Top Discrete,At_Offset_3 0ac0 780c |x | Jump 0xacd 0ac1 00e1 | | Load_Encached Boolean_Cache 0ac2 e5fd | | Load 0x2,-0x3 0ac3 e5fe | | Load 0x2,-0x2 0ac4 00eb | | Load_Encached Diana_Cache 0ac5 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7 0ac6 e5fc | | Load 0x2,-0x4 0ac7 e5ff | | Load 0x2,-0x1 0ac8 8265 | e | Call 0x1,0x65 0ac9 005b | [ | Store_Top Discrete,At_Offset_3 0aca 00da | | Load_Top At_Offset_2 0acb 0f00 | | Execute_Immediate Equal,0x0 0acc a5fb | | Store_Unchecked 0x2,-0x5 0acd 00da | | Load_Top At_Offset_2 0ace a5fa | | Store_Unchecked 0x2,-0x6 0acf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 ; SUBPROGRAM 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 0add | | .CONST 0x0add ; Address of begin 0ad1 0004 | | .CONST 0x0004 ; Address of exception handler 0ad2 0002 | | .CONST 0x0002 ; Number of locals 0ad3 INIT_0ad0: 0ad3 00ec | | Load_Encached Diana_Tree_Cache 0ad4 02c7 | | Declare_Variable Any 0ad5 00db | | Load_Top At_Offset_3 0ad6 00eb | | Load_Encached Diana_Cache 0ad7 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 0ad8 4976 |Iv | Short_Literal 0x176 0ad9 00eb | | Load_Encached Diana_Cache 0ada 0098 | | Execute Package,Field_Read_Dynamic 0adb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0adc a402 | | Store_Unchecked 0x2,0x2 0add BODY_0ad0: 0add 00d8 | | Load_Top At_Offset_0 0ade 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0adf 0f1c | | Execute_Immediate Equal,0x1c 0ae0 6804 |h | Jump_Zero 0xae5 0ae1 00db | | Load_Top At_Offset_3 0ae2 00eb | | Load_Encached Diana_Cache 0ae3 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0ae4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ae5 00d8 | | Load_Top At_Offset_0 0ae6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ae7 0000 | | .XXX[0x1] 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 ; SUBPROGRAM 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 0aeb | | .CONST 0x0aeb ; Address of begin 0ae9 0004 | | .CONST 0x0004 ; Address of exception handler 0aea 0001 | | .CONST 0x0001 ; Number of locals 0aeb BODY_0ae8: 0aeb INIT_0ae8: 0aeb 4801 |H | Short_Literal 0x1 0aec a5fd | | Store_Unchecked 0x2,-0x3 0aed 00da | | Load_Top At_Offset_2 0aee 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0aef 00d8 | | Load_Top At_Offset_0 0af0 0c31 | 1 | Execute_Immediate Greater_Equal,0x31 0af1 7035 |p5 | Jump_Nonzero 0xb27 0af2 4630 |F0 | Jump_Case 0x31 0af3 7834 |x4 | Jump 0xb28 ; case 0x0 0af4 7833 |x3 | Jump 0xb28 ; case 0x1 0af5 7832 |x2 | Jump 0xb28 ; case 0x2 0af6 7831 |x1 | Jump 0xb28 ; case 0x3 0af7 7830 |x0 | Jump 0xb28 ; case 0x4 0af8 782f |x/ | Jump 0xb28 ; case 0x5 0af9 782e |x. | Jump 0xb28 ; case 0x6 0afa 782d |x- | Jump 0xb28 ; case 0x7 0afb 782c |x, | Jump 0xb28 ; case 0x8 0afc 782b |x+ | Jump 0xb28 ; case 0x9 0afd 782a |x* | Jump 0xb28 ; case 0xa 0afe 7829 |x) | Jump 0xb28 ; case 0xb 0aff 7828 |x( | Jump 0xb28 ; case 0xc 0b00 784b |xK | Jump 0xb4c ; case 0xd 0b01 7826 |x& | Jump 0xb28 ; case 0xe 0b02 7825 |x% | Jump 0xb28 ; case 0xf 0b03 7861 |xa | Jump 0xb65 ; case 0x10 0b04 784a |xJ | Jump 0xb4f ; case 0x11 0b05 783c |x< | Jump 0xb42 ; case 0x12 0b06 7853 |xS | Jump 0xb5a ; case 0x13 0b07 7820 |x | Jump 0xb28 ; case 0x14 0b08 781f |x | Jump 0xb28 ; case 0x15 0b09 785e |x^ | Jump 0xb68 ; case 0x16 0b0a 785d |x] | Jump 0xb68 ; case 0x17 0b0b 781c |x | Jump 0xb28 ; case 0x18 0b0c 781b |x | Jump 0xb28 ; case 0x19 0b0d 781a |x | Jump 0xb28 ; case 0x1a 0b0e 7819 |x | Jump 0xb28 ; case 0x1b 0b0f 7818 |x | Jump 0xb28 ; case 0x1c 0b10 781c |x | Jump 0xb2d ; case 0x1d 0b11 781e |x | Jump 0xb30 ; case 0x1e 0b12 7815 |x | Jump 0xb28 ; case 0x1f 0b13 7814 |x | Jump 0xb28 ; case 0x20 0b14 7813 |x | Jump 0xb28 ; case 0x21 0b15 7812 |x | Jump 0xb28 ; case 0x22 0b16 781c |x | Jump 0xb33 ; case 0x23 0b17 781e |x | Jump 0xb36 ; case 0x24 0b18 7826 |x& | Jump 0xb3f ; case 0x25 0b19 781f |x | Jump 0xb39 ; case 0x26 0b1a 780d |x | Jump 0xb28 ; case 0x27 0b1b 7820 |x | Jump 0xb3c ; case 0x28 0b1c 780b |x | Jump 0xb28 ; case 0x29 0b1d 780a |x | Jump 0xb28 ; case 0x2a 0b1e 7809 |x | Jump 0xb28 ; case 0x2b 0b1f 7808 |x | Jump 0xb28 ; case 0x2c 0b20 7807 |x | Jump 0xb28 ; case 0x2d 0b21 7806 |x | Jump 0xb28 ; case 0x2e 0b22 7805 |x | Jump 0xb28 ; case 0x2f 0b23 7800 |x | Jump 0xb24 ; case 0x30 0b24 4807 |H | Short_Literal 0x7 0b25 a5fe | | Store_Unchecked 0x2,-0x2 0b26 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b27 00d1 | | Pop_Control Pop_Count_1 0b28 4800 |H | Short_Literal 0x0 0b29 a5fe | | Store_Unchecked 0x2,-0x2 0b2a 4800 |H | Short_Literal 0x0 0b2b a5fd | | Store_Unchecked 0x2,-0x3 0b2c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b2d 4800 |H | Short_Literal 0x0 0b2e a5fe | | Store_Unchecked 0x2,-0x2 0b2f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b30 4801 |H | Short_Literal 0x1 0b31 a5fe | | Store_Unchecked 0x2,-0x2 0b32 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b33 4803 |H | Short_Literal 0x3 0b34 a5fe | | Store_Unchecked 0x2,-0x2 0b35 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b36 4802 |H | Short_Literal 0x2 0b37 a5fe | | Store_Unchecked 0x2,-0x2 0b38 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b39 4804 |H | Short_Literal 0x4 0b3a a5fe | | Store_Unchecked 0x2,-0x2 0b3b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b3c 4805 |H | Short_Literal 0x5 0b3d a5fe | | Store_Unchecked 0x2,-0x2 0b3e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b3f 4806 |H | Short_Literal 0x6 0b40 a5fe | | Store_Unchecked 0x2,-0x2 0b41 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b42 00e1 | | Load_Encached Boolean_Cache 0b43 e009 | | Load 0x0,0x9 0b44 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0b45 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0b46 e5ff | | Load 0x2,-0x1 0b47 826b | k | Call 0x1,0x6b 0b48 826c | l | Call 0x1,0x6c 0b49 c5fe | | Store 0x2,-0x2 0b4a c5fd | | Store 0x2,-0x3 0b4b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b4c 4807 |H | Short_Literal 0x7 0b4d a5fe | | Store_Unchecked 0x2,-0x2 0b4e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b4f 00e1 | | Load_Encached Boolean_Cache 0b50 e009 | | Load 0x0,0x9 0b51 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0b52 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0b53 e5ff | | Load 0x2,-0x1 0b54 00eb | | Load_Encached Diana_Cache 0b55 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0b56 826c | l | Call 0x1,0x6c 0b57 c5fe | | Store 0x2,-0x2 0b58 c5fd | | Store 0x2,-0x3 0b59 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b5a 00e1 | | Load_Encached Boolean_Cache 0b5b e009 | | Load 0x0,0x9 0b5c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0b5d 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0b5e e5ff | | Load 0x2,-0x1 0b5f 00eb | | Load_Encached Diana_Cache 0b60 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0b61 826c | l | Call 0x1,0x6c 0b62 c5fe | | Store 0x2,-0x2 0b63 c5fd | | Store 0x2,-0x3 0b64 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b65 4800 |H | Short_Literal 0x0 0b66 a5fe | | Store_Unchecked 0x2,-0x2 0b67 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b68 00e1 | | Load_Encached Boolean_Cache 0b69 e009 | | Load 0x0,0x9 0b6a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0b6b 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0b6c e5ff | | Load 0x2,-0x1 0b6d 00eb | | Load_Encached Diana_Cache 0b6e 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0b6f 826c | l | Call 0x1,0x6c 0b70 c5fe | | Store 0x2,-0x2 0b71 c5fd | | Store 0x2,-0x3 0b72 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b73 0000 0000 | | .BLANK 0000[0x5] 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 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0b7d 0b0d | | Execute_Immediate Case_Compare,0xd 0b7e 7009 |p | Jump_Nonzero 0xb88 0b7f 4811 |H | Short_Literal 0x11 0b80 4813 |H | Short_Literal 0x13 0b81 0262 | b | Execute Discrete,In_Range 0b82 7006 |p | Jump_Nonzero 0xb89 0b83 00da | | Load_Top At_Offset_2 0b84 4902 |I | Short_Literal 0x102 0b85 00eb | | Load_Encached Diana_Cache 0b86 0096 | | Execute Package,Entry 0b87 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b88 00d1 | | Pop_Control Pop_Count_1 0b89 00da | | Load_Top At_Offset_2 0b8a 00eb | | Load_Encached Diana_Cache 0b8b 18fc | | Execute Package,Field_Execute,Field_Number 0xfc 0b8c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b8d 0000 0000 | | .XXX[0x3] 0b8f 0000 | | 0b90 ; -------------------------------------------------------------------------------------- 0b90 ; SUBPROGRAM 0b90 ; -------------------------------------------------------------------------------------- 0b90 0bb3 | | .CONST 0x0bb3 ; Address of begin 0b91 0004 | | .CONST 0x0004 ; Address of exception handler 0b92 000a | | .CONST 0x000a ; Number of locals 0b93 INIT_0b90: 0b93 e009 | | Load 0x0,0x9 0b94 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0b95 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 0b96 0337 | 7 | Declare_Variable Array 0b97 00db | | Load_Top At_Offset_3 0b98 e009 | | Load 0x0,0x9 0b99 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0b9a 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0b9b 00d9 | | Load_Top At_Offset_1 0b9c 01d4 | | Execute Vector,Structure_Write 0b9d 00ec | | Load_Encached Diana_Tree_Cache 0b9e 02c7 | | Declare_Variable Any 0b9f e5fe | | Load 0x2,-0x2 0ba0 826d | m | Call 0x1,0x6d 0ba1 a403 | | Store_Unchecked 0x2,0x3 0ba2 e009 | | Load 0x0,0x9 0ba3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0ba4 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0ba5 00e1 | | Load_Encached Boolean_Cache 0ba6 00e1 | | Load_Encached Boolean_Cache 0ba7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ba8 00e1 | | Load_Encached Boolean_Cache 0ba9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0baa e009 | | Load 0x0,0x9 0bab 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0bac 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0bad 02c7 | | Declare_Variable Any 0bae 00d8 | | Load_Top At_Offset_0 0baf 1c00 | | Execute_Immediate Run_Utility,0x0 0bb0 00e1 | | Load_Encached Boolean_Cache 0bb1 029f 0fb3 | | Declare_Subprogram INIT_0fb0,For_Call 0bb3 BODY_0b90: 0bb3 4801 |H | Short_Literal 0x1 0bb4 a5fa | | Store_Unchecked 0x2,-0x6 0bb5 4800 |H | Short_Literal 0x0 0bb6 a5fb | | Store_Unchecked 0x2,-0x5 0bb7 e5ff | | Load 0x2,-0x1 0bb8 e009 | | Load 0x0,0x9 0bb9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0bba 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0bbb c408 | | Store 0x2,0x8 0bbc 00e1 | | Load_Encached Boolean_Cache 0bbd e009 | | Load 0x0,0x9 0bbe 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0bbf 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0bc0 e5fe | | Load 0x2,-0x2 0bc1 826c | l | Call 0x1,0x6c 0bc2 c404 | | Store 0x2,0x4 0bc3 c405 | | Store 0x2,0x5 0bc4 e405 | | Load 0x2,0x5 0bc5 6807 |h | Jump_Zero 0xbcd 0bc6 e404 | | Load 0x2,0x4 0bc7 e402 | | Load 0x2,0x2 0bc8 01d7 | | Execute Vector,Field_Read 0bc9 680c |h | Jump_Zero 0xbd6 0bca 4801 |H | Short_Literal 0x1 0bcb a406 | | Store_Unchecked 0x2,0x6 0bcc 7809 |x | Jump 0xbd6 0bcd e5fe | | Load 0x2,-0x2 0bce e5fc | | Load 0x2,-0x4 0bcf e5fd | | Load 0x2,-0x3 0bd0 822f | / | Call 0x1,0x2f 0bd1 4800 |H | Short_Literal 0x0 0bd2 a5fa | | Store_Unchecked 0x2,-0x6 0bd3 4800 |H | Short_Literal 0x0 0bd4 a5fb | | Store_Unchecked 0x2,-0x5 0bd5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bd6 e406 | | Load 0x2,0x6 0bd7 0f00 | | Execute_Immediate Equal,0x0 0bd8 a5fb | | Store_Unchecked 0x2,-0x5 0bd9 840a | | Call 0x2,0xa 0bda 00d9 | | Load_Top At_Offset_1 0bdb 6812 |h | Jump_Zero 0xbee 0bdc 0092 11aa | | Action Push_String_Extended,0x11aa ; " is not an object of " 0bde e009 | | Load 0x0,0x9 0bdf 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0be0 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0be1 e009 | | Load 0x0,0x9 0be2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0be3 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0be4 e408 | | Load 0x2,0x8 0be5 e009 | | Load 0x0,0x9 0be6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0be7 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0be8 4803 |H | Short_Literal 0x3 0be9 825c | \ | Call 0x1,0x5c 0bea 01cc | | Execute Vector,Catenate 0beb e5fc | | Load 0x2,-0x4 0bec e5fd | | Load 0x2,-0x3 0bed 822c | , | Call 0x1,0x2c 0bee e406 | | Load 0x2,0x6 0bef e407 | | Load 0x2,0x7 0bf0 0279 | y | Execute Discrete,And 0bf1 a5fa | | Store_Unchecked 0x2,-0x6 0bf2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bf3 0000 0000 | | .BLANK 0000[0x5] 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 ; SUBPROGRAM 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 0c09 | | .CONST 0x0c09 ; Address of begin 0bf9 0004 | | .CONST 0x0004 ; Address of exception handler 0bfa 0005 | | .CONST 0x0005 ; Number of locals 0bfb INIT_0bf8: 0bfb 00f1 | | Load_Encached Diana_Temp_Seq 0bfc 02c7 | | Declare_Variable Any 0bfd 00f1 | | Load_Encached Diana_Temp_Seq 0bfe a402 | | Store_Unchecked 0x2,0x2 0bff 00f1 | | Load_Encached Diana_Temp_Seq 0c00 02c7 | | Declare_Variable Any 0c01 e5fc | | Load 0x2,-0x4 0c02 a403 | | Store_Unchecked 0x2,0x3 0c03 00ec | | Load_Encached Diana_Tree_Cache 0c04 02c7 | | Declare_Variable Any 0c05 00d8 | | Load_Top At_Offset_0 0c06 1c00 | | Execute_Immediate Run_Utility,0x0 0c07 029f 0fcb | | Declare_Subprogram INIT_0fc8,For_Call 0c09 BODY_0bf8: 0c09 00cf | | Action Mark_Auxiliary 0c0a 78cc |x | Jump 0xcd7 0c0b 00db | | Load_Top At_Offset_3 0c0c 0217 | | Execute Heap_Access,All_Reference 0c0d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c0e c404 | | Store 0x2,0x4 0c0f 00da | | Load_Top At_Offset_2 0c10 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0c11 00d8 | | Load_Top At_Offset_0 0c12 481c |H | Short_Literal 0x1c 0c13 4859 |HY | Short_Literal 0x59 0c14 0262 | b | Execute Discrete,In_Range 0c15 68b4 |h | Jump_Zero 0xcca 0c16 0ae4 | | Execute_Immediate Plus,-0x1c 0c17 463d |F= | Jump_Case 0x3e 0c18 7842 |xB | Jump 0xc5b ; case 0x0 0c19 78b1 |x | Jump 0xccb ; case 0x1 0c1a 78b0 |x | Jump 0xccb ; case 0x2 0c1b 7844 |xD | Jump 0xc60 ; case 0x3 0c1c 784d |xM | Jump 0xc6a ; case 0x4 0c1d 7851 |xQ | Jump 0xc6f ; case 0x5 0c1e 7862 |xb | Jump 0xc81 ; case 0x6 0c1f 78ab |x | Jump 0xccb ; case 0x7 0c20 78aa |x | Jump 0xccb ; case 0x8 0c21 78a9 |x | Jump 0xccb ; case 0x9 0c22 78a8 |x | Jump 0xccb ; case 0xa 0c23 7885 |x | Jump 0xca9 ; case 0xb 0c24 78a6 |x | Jump 0xccb ; case 0xc 0c25 7888 |x | Jump 0xcae ; case 0xd 0c26 78a4 |x | Jump 0xccb ; case 0xe 0c27 78a3 |x | Jump 0xccb ; case 0xf 0c28 788a |x | Jump 0xcb3 ; case 0x10 0c29 78a1 |x | Jump 0xccb ; case 0x11 0c2a 78a0 |x | Jump 0xccb ; case 0x12 0c2b 789f |x | Jump 0xccb ; case 0x13 0c2c 789e |x | Jump 0xccb ; case 0x14 0c2d 7837 |x7 | Jump 0xc65 ; case 0x15 0c2e 7836 |x6 | Jump 0xc65 ; case 0x16 0c2f 7895 |x | Jump 0xcc5 ; case 0x17 0c30 789a |x | Jump 0xccb ; case 0x18 0c31 7899 |x | Jump 0xccb ; case 0x19 0c32 7898 |x | Jump 0xccb ; case 0x1a 0c33 7897 |x | Jump 0xccb ; case 0x1b 0c34 7896 |x | Jump 0xccb ; case 0x1c 0c35 7895 |x | Jump 0xccb ; case 0x1d 0c36 7894 |x | Jump 0xccb ; case 0x1e 0c37 7893 |x | Jump 0xccb ; case 0x1f 0c38 7892 |x | Jump 0xccb ; case 0x20 0c39 7891 |x | Jump 0xccb ; case 0x21 0c3a 7890 |x | Jump 0xccb ; case 0x22 0c3b 788f |x | Jump 0xccb ; case 0x23 0c3c 788e |x | Jump 0xccb ; case 0x24 0c3d 788d |x | Jump 0xccb ; case 0x25 0c3e 788c |x | Jump 0xccb ; case 0x26 0c3f 788b |x | Jump 0xccb ; case 0x27 0c40 788a |x | Jump 0xccb ; case 0x28 0c41 7889 |x | Jump 0xccb ; case 0x29 0c42 7888 |x | Jump 0xccb ; case 0x2a 0c43 7887 |x | Jump 0xccb ; case 0x2b 0c44 7886 |x | Jump 0xccb ; case 0x2c 0c45 7885 |x | Jump 0xccb ; case 0x2d 0c46 7884 |x | Jump 0xccb ; case 0x2e 0c47 7883 |x | Jump 0xccb ; case 0x2f 0c48 7882 |x | Jump 0xccb ; case 0x30 0c49 7881 |x | Jump 0xccb ; case 0x31 0c4a 7880 |x | Jump 0xccb ; case 0x32 0c4b 787f |x | Jump 0xccb ; case 0x33 0c4c 787e |x~ | Jump 0xccb ; case 0x34 0c4d 787d |x} | Jump 0xccb ; case 0x35 0c4e 787c |x| | Jump 0xccb ; case 0x36 0c4f 787b |x{ | Jump 0xccb ; case 0x37 0c50 787a |xz | Jump 0xccb ; case 0x38 0c51 7879 |xy | Jump 0xccb ; case 0x39 0c52 7878 |xx | Jump 0xccb ; case 0x3a 0c53 7877 |xw | Jump 0xccb ; case 0x3b 0c54 7876 |xv | Jump 0xccb ; case 0x3c 0c55 7800 |x | Jump 0xc56 ; case 0x3d 0c56 480e |H | Short_Literal 0xe 0c57 e5ff | | Load 0x2,-0x1 0c58 01d7 | | Execute Vector,Field_Read 0c59 8405 | | Call 0x2,0x5 0c5a 7877 |xw | Jump 0xcd2 0c5b 4807 |H | Short_Literal 0x7 0c5c e5ff | | Load 0x2,-0x1 0c5d 01d7 | | Execute Vector,Field_Read 0c5e 8405 | | Call 0x2,0x5 0c5f 7872 |xr | Jump 0xcd2 0c60 4804 |H | Short_Literal 0x4 0c61 e5ff | | Load 0x2,-0x1 0c62 01d7 | | Execute Vector,Field_Read 0c63 8405 | | Call 0x2,0x5 0c64 786d |xm | Jump 0xcd2 0c65 4806 |H | Short_Literal 0x6 0c66 e5ff | | Load 0x2,-0x1 0c67 01d7 | | Execute Vector,Field_Read 0c68 8405 | | Call 0x2,0x5 0c69 7868 |xh | Jump 0xcd2 0c6a 4805 |H | Short_Literal 0x5 0c6b e5ff | | Load 0x2,-0x1 0c6c 01d7 | | Execute Vector,Field_Read 0c6d 8405 | | Call 0x2,0x5 0c6e 7863 |xc | Jump 0xcd2 0c6f 00da | | Load_Top At_Offset_2 0c70 00eb | | Load_Encached Diana_Cache 0c71 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0c72 00eb | | Load_Encached Diana_Cache 0c73 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0c74 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0c75 0f8f | | Execute_Immediate Equal,-0x71 0c76 6805 |h | Jump_Zero 0xc7c 0c77 480c |H | Short_Literal 0xc 0c78 e5ff | | Load 0x2,-0x1 0c79 01d7 | | Execute Vector,Field_Read 0c7a 8405 | | Call 0x2,0x5 0c7b 7856 |xV | Jump 0xcd2 0c7c 4800 |H | Short_Literal 0x0 0c7d e5ff | | Load 0x2,-0x1 0c7e 01d7 | | Execute Vector,Field_Read 0c7f 8405 | | Call 0x2,0x5 0c80 7851 |xQ | Jump 0xcd2 0c81 00da | | Load_Top At_Offset_2 0c82 00eb | | Load_Encached Diana_Cache 0c83 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0c84 00eb | | Load_Encached Diana_Cache 0c85 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 0c86 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0c87 0b7a | z | Execute_Immediate Case_Compare,0x7a 0c88 700f |p | Jump_Nonzero 0xc98 0c89 0b7b | { | Execute_Immediate Case_Compare,0x7b 0c8a 7013 |p | Jump_Nonzero 0xc9e 0c8b 0f7c | | | Execute_Immediate Equal,0x7c 0c8c 7017 |p | Jump_Nonzero 0xca4 0c8d 00da | | Load_Top At_Offset_2 0c8e 00eb | | Load_Encached Diana_Cache 0c8f 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0c90 00eb | | Load_Encached Diana_Cache 0c91 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 0c92 e5fe | | Load 0x2,-0x2 0c93 e5fd | | Load 0x2,-0x3 0c94 822f | / | Call 0x1,0x2f 0c95 00f1 | | Load_Encached Diana_Temp_Seq 0c96 c5fc | | Store 0x2,-0x4 0c97 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c98 00d1 | | Pop_Control Pop_Count_1 0c99 480a |H | Short_Literal 0xa 0c9a e5ff | | Load 0x2,-0x1 0c9b 01d7 | | Execute Vector,Field_Read 0c9c 8405 | | Call 0x2,0x5 0c9d 7834 |x4 | Jump 0xcd2 0c9e 00d1 | | Pop_Control Pop_Count_1 0c9f 4809 |H | Short_Literal 0x9 0ca0 e5ff | | Load 0x2,-0x1 0ca1 01d7 | | Execute Vector,Field_Read 0ca2 8405 | | Call 0x2,0x5 0ca3 782e |x. | Jump 0xcd2 0ca4 4808 |H | Short_Literal 0x8 0ca5 e5ff | | Load 0x2,-0x1 0ca6 01d7 | | Execute Vector,Field_Read 0ca7 8405 | | Call 0x2,0x5 0ca8 7829 |x) | Jump 0xcd2 0ca9 480d |H | Short_Literal 0xd 0caa e5ff | | Load 0x2,-0x1 0cab 01d7 | | Execute Vector,Field_Read 0cac 8405 | | Call 0x2,0x5 0cad 7824 |x$ | Jump 0xcd2 0cae 4801 |H | Short_Literal 0x1 0caf e5ff | | Load 0x2,-0x1 0cb0 01d7 | | Execute Vector,Field_Read 0cb1 8405 | | Call 0x2,0x5 0cb2 781f |x | Jump 0xcd2 0cb3 00da | | Load_Top At_Offset_2 0cb4 00eb | | Load_Encached Diana_Cache 0cb5 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0cb6 00eb | | Load_Encached Diana_Cache 0cb7 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0cb8 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0cb9 0f8f | | Execute_Immediate Equal,-0x71 0cba 6805 |h | Jump_Zero 0xcc0 0cbb 480b |H | Short_Literal 0xb 0cbc e5ff | | Load 0x2,-0x1 0cbd 01d7 | | Execute Vector,Field_Read 0cbe 8405 | | Call 0x2,0x5 0cbf 7812 |x | Jump 0xcd2 0cc0 4802 |H | Short_Literal 0x2 0cc1 e5ff | | Load 0x2,-0x1 0cc2 01d7 | | Execute Vector,Field_Read 0cc3 8405 | | Call 0x2,0x5 0cc4 780d |x | Jump 0xcd2 0cc5 4800 |H | Short_Literal 0x0 0cc6 e5ff | | Load 0x2,-0x1 0cc7 01d7 | | Execute Vector,Field_Read 0cc8 8405 | | Call 0x2,0x5 0cc9 7808 |x | Jump 0xcd2 0cca 00d1 | | Pop_Control Pop_Count_1 0ccb 00da | | Load_Top At_Offset_2 0ccc e5fe | | Load 0x2,-0x2 0ccd e5fd | | Load 0x2,-0x3 0cce 822f | / | Call 0x1,0x2f 0ccf 00f1 | | Load_Encached Diana_Temp_Seq 0cd0 c5fc | | Store 0x2,-0x4 0cd1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0cd2 00db | | Load_Top At_Offset_3 0cd3 0217 | | Execute Heap_Access,All_Reference 0cd4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0cd5 c403 | | Store 0x2,0x3 0cd6 00c9 | | Action Pop_Auxiliary_Loop 0cd7 00db | | Load_Top At_Offset_3 0cd8 7732 |w2 | Jump_Nonzero 0xc0b 0cd9 00ce | | Action Pop_Auxiliary 0cda 00db | | Load_Top At_Offset_3 0cdb c5fc | | Store 0x2,-0x4 0cdc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0cdd 0000 0000 | | .XXX[0x3] 0cdf 0000 | | 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0ced | | .CONST 0x0ced ; Address of begin 0ce1 0004 | | .CONST 0x0004 ; Address of exception handler 0ce2 0005 | | .CONST 0x0005 ; Number of locals 0ce3 INIT_0ce0: 0ce3 00e3 | | Load_Encached Natural_Cache 0ce4 00ec | | Load_Encached Diana_Tree_Cache 0ce5 02c7 | | Declare_Variable Any 0ce6 00d8 | | Load_Top At_Offset_0 0ce7 1c00 | | Execute_Immediate Run_Utility,0x0 0ce8 00e1 | | Load_Encached Boolean_Cache 0ce9 00f1 | | Load_Encached Diana_Temp_Seq 0cea 02c7 | | Declare_Variable Any 0ceb 00f1 | | Load_Encached Diana_Temp_Seq 0cec a405 | | Store_Unchecked 0x2,0x5 0ced BODY_0ce0: 0ced 4800 |H | Short_Literal 0x0 0cee a5fb | | Store_Unchecked 0x2,-0x5 0cef e5fc | | Load 0x2,-0x4 0cf0 e5fe | | Load 0x2,-0x2 0cf1 e5fd | | Load 0x2,-0x3 0cf2 e5ff | | Load 0x2,-0x1 0cf3 e009 | | Load 0x0,0x9 0cf4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0cf5 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0cf6 826f | o | Call 0x1,0x6f 0cf7 c5fc | | Store 0x2,-0x4 0cf8 e5fc | | Load 0x2,-0x4 0cf9 4975 |Iu | Short_Literal 0x175 0cfa 00eb | | Load_Encached Diana_Cache 0cfb 0098 | | Execute Package,Field_Read_Dynamic 0cfc 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0cfd c402 | | Store 0x2,0x2 0cfe 00db | | Load_Top At_Offset_3 0cff 7005 |p | Jump_Nonzero 0xd05 0d00 4801 |H | Short_Literal 0x1 0d01 a5fb | | Store_Unchecked 0x2,-0x5 0d02 4800 |H | Short_Literal 0x0 0d03 a5fa | | Store_Unchecked 0x2,-0x6 0d04 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d05 00db | | Load_Top At_Offset_3 0d06 0f01 | | Execute_Immediate Equal,0x1 0d07 6813 |h | Jump_Zero 0xd1b 0d08 00e1 | | Load_Encached Boolean_Cache 0d09 4801 |H | Short_Literal 0x1 0d0a 4800 |H | Short_Literal 0x0 0d0b e5ff | | Load 0x2,-0x1 0d0c e009 | | Load 0x0,0x9 0d0d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0d0e 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0d0f e5ff | | Load 0x2,-0x1 0d10 e009 | | Load 0x0,0x9 0d11 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0d12 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0d13 e5fc | | Load 0x2,-0x4 0d14 0217 | | Execute Heap_Access,All_Reference 0d15 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d16 e5fd | | Load 0x2,-0x3 0d17 e5fe | | Load 0x2,-0x2 0d18 8262 | b | Call 0x1,0x62 0d19 c5fa | | Store 0x2,-0x6 0d1a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d1b 4800 |H | Short_Literal 0x0 0d1c a5fa | | Store_Unchecked 0x2,-0x6 0d1d 00cf | | Action Mark_Auxiliary 0d1e 7822 |x" | Jump 0xd41 0d1f 00e1 | | Load_Encached Boolean_Cache 0d20 4800 |H | Short_Literal 0x0 0d21 4800 |H | Short_Literal 0x0 0d22 e5ff | | Load 0x2,-0x1 0d23 e009 | | Load 0x0,0x9 0d24 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0d25 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0d26 e5ff | | Load 0x2,-0x1 0d27 e009 | | Load 0x0,0x9 0d28 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0d29 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0d2a e5fc | | Load 0x2,-0x4 0d2b 0217 | | Execute Heap_Access,All_Reference 0d2c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d2d e5fd | | Load 0x2,-0x3 0d2e e5fe | | Load 0x2,-0x2 0d2f 8262 | b | Call 0x1,0x62 0d30 005b | [ | Store_Top Discrete,At_Offset_3 0d31 00da | | Load_Top At_Offset_2 0d32 6809 |h | Jump_Zero 0xd3c 0d33 00d9 | | Load_Top At_Offset_1 0d34 e5fc | | Load 0x2,-0x4 0d35 0217 | | Execute Heap_Access,All_Reference 0d36 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d37 00eb | | Load_Encached Diana_Cache 0d38 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0d39 c405 | | Store 0x2,0x5 0d3a 4801 |H | Short_Literal 0x1 0d3b a5fa | | Store_Unchecked 0x2,-0x6 0d3c e5fc | | Load 0x2,-0x4 0d3d 0217 | | Execute Heap_Access,All_Reference 0d3e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0d3f c5fc | | Store 0x2,-0x4 0d40 00c9 | | Action Pop_Auxiliary_Loop 0d41 e5fc | | Load 0x2,-0x4 0d42 77dc |w | Jump_Nonzero 0xd1f 0d43 00ce | | Action Pop_Auxiliary 0d44 00d8 | | Load_Top At_Offset_0 0d45 c5fc | | Store 0x2,-0x4 0d46 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d47 0000 | | .XXX[0x1] 0d48 ; -------------------------------------------------------------------------------------- 0d48 ; SUBPROGRAM 0d48 ; -------------------------------------------------------------------------------------- 0d48 0d4d | M | .CONST 0x0d4d ; Address of begin 0d49 0004 | | .CONST 0x0004 ; Address of exception handler 0d4a 0002 | | .CONST 0x0002 ; Number of locals 0d4b INIT_0d48: 0d4b 029f 0fdb | | Declare_Subprogram INIT_0fd8,For_Call 0d4d BODY_0d48: 0d4d 4800 |H | Short_Literal 0x0 0d4e a5fc | | Store_Unchecked 0x2,-0x4 0d4f e5fe | | Load 0x2,-0x2 0d50 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0d51 0f17 | | Execute_Immediate Equal,0x17 0d52 6801 |h | Jump_Zero 0xd54 0d53 8402 | | Call 0x2,0x2 0d54 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d55 0000 0000 | | .XXX[0x3] 0d57 0000 | | 0d58 ; -------------------------------------------------------------------------------------- 0d58 ; SUBPROGRAM 0d58 ; -------------------------------------------------------------------------------------- 0d58 0d60 | ` | .CONST 0x0d60 ; Address of begin 0d59 0004 | | .CONST 0x0004 ; Address of exception handler 0d5a 0002 | | .CONST 0x0002 ; Number of locals 0d5b INIT_0d58: 0d5b 4801 |H | Short_Literal 0x1 0d5c 4815 |H | Short_Literal 0x15 0d5d 00e9 | | Load_Encached String_Cache 0d5e 035b | [ | Declare_Type Array,Constrained 0d5f 0337 | 7 | Declare_Variable Array 0d60 BODY_0d58: 0d60 00d8 | | Load_Top At_Offset_0 0d61 e272 | r | Load 0x1,0x72 0d62 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0d63 e272 | r | Load 0x1,0x72 0d64 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0d65 e5ff | | Load 0x2,-0x1 0d66 e272 | r | Load 0x1,0x72 0d67 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0d68 00d1 | | Pop_Control Pop_Count_1 0d69 00d8 | | Load_Top At_Offset_0 0d6a 00e9 | | Load_Encached String_Cache 0d6b 01c6 | | Execute Vector,Convert_To_Formal 0d6c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d6d 0000 0000 | | .XXX[0x3] 0d6f 0000 | | 0d70 ; -------------------------------------------------------------------------------------- 0d70 ; SUBPROGRAM 0d70 ; -------------------------------------------------------------------------------------- 0d70 0d7d | } | .CONST 0x0d7d ; Address of begin 0d71 0dc2 | | .CONST 0x0dc2 ; Address of exception handler 0d72 0005 | | .CONST 0x0005 ; Number of locals 0d73 INIT_0d70: 0d73 00e1 | | Load_Encached Boolean_Cache 0d74 00eb | | Load_Encached Diana_Cache 0d75 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0d76 02c7 | | Declare_Variable Any 0d77 00d8 | | Load_Top At_Offset_0 0d78 1c00 | | Execute_Immediate Run_Utility,0x0 0d79 029f 0ffb | | Declare_Subprogram INIT_0ff8,For_Call 0d7b 029f 103b | ;| Declare_Subprogram INIT_1038,For_Call 0d7d BODY_0d70: 0d7d 4801 |H | Short_Literal 0x1 0d7e a5fc | | Store_Unchecked 0x2,-0x4 0d7f 00da | | Load_Top At_Offset_2 0d80 0120 | | Execute Any,Is_Value 0d81 6803 |h | Jump_Zero 0xd85 0d82 00eb | | Load_Encached Diana_Cache 0d83 1b96 | | Execute Package,Field_Read,Field_Number 0x96 0d84 7801 |x | Jump 0xd86 0d85 00da | | Load_Top At_Offset_2 0d86 00e1 | | Load_Encached Boolean_Cache 0d87 e5ff | | Load 0x2,-0x1 0d88 e028 | ( | Load 0x0,0x28 0d89 180d | | Execute Package,Field_Execute,Field_Number 0xd 0d8a c402 | | Store 0x2,0x2 0d8b c403 | | Store 0x2,0x3 0d8c 00db | | Load_Top At_Offset_3 0d8d 7008 |p | Jump_Nonzero 0xd96 0d8e 0092 11ab | | Action Push_String_Extended,0x11ab ; " is not static" 0d90 e5ff | | Load 0x2,-0x1 0d91 e5fd | | Load 0x2,-0x3 0d92 822c | , | Call 0x1,0x2c 0d93 4800 |H | Short_Literal 0x0 0d94 a5fc | | Store_Unchecked 0x2,-0x4 0d95 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d96 e5ff | | Load 0x2,-0x1 0d97 e028 | ( | Load 0x0,0x28 0d98 180f | | Execute Package,Field_Execute,Field_Number 0xf 0d99 c403 | | Store 0x2,0x3 0d9a e5fe | | Load 0x2,-0x2 0d9b e009 | | Load 0x0,0x9 0d9c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0d9d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0d9e 4602 |F | Jump_Case 0x3 0d9f 7805 |x | Jump 0xda5 ; case 0x0 0da0 7812 |x | Jump 0xdb3 ; case 0x1 0da1 7800 |x | Jump 0xda2 ; case 0x2 0da2 4801 |H | Short_Literal 0x1 0da3 a5fc | | Store_Unchecked 0x2,-0x4 0da4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0da5 00da | | Load_Top At_Offset_2 0da6 00eb | | Load_Encached Diana_Cache 0da7 1898 | | Execute Package,Field_Execute,Field_Number 0x98 0da8 6808 |h | Jump_Zero 0xdb1 0da9 0092 11ac | | Action Push_String_Extended,0x11ac ; " is not integer valued" 0dab e5ff | | Load 0x2,-0x1 0dac e5fd | | Load 0x2,-0x3 0dad 822c | , | Call 0x1,0x2c 0dae 4800 |H | Short_Literal 0x0 0daf a5fc | | Store_Unchecked 0x2,-0x4 0db0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0db1 8404 | | Call 0x2,0x4 0db2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0db3 00da | | Load_Top At_Offset_2 0db4 00eb | | Load_Encached Diana_Cache 0db5 1898 | | Execute Package,Field_Execute,Field_Number 0x98 0db6 0e01 | | Execute_Immediate Not_Equal,0x1 0db7 6808 |h | Jump_Zero 0xdc0 0db8 0092 11ad | | Action Push_String_Extended,0x11ad ; " is not float valued" 0dba e5ff | | Load 0x2,-0x1 0dbb e5fd | | Load 0x2,-0x3 0dbc 822c | , | Call 0x1,0x2c 0dbd 4800 |H | Short_Literal 0x0 0dbe a5fc | | Store_Unchecked 0x2,-0x4 0dbf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0dc0 8405 | | Call 0x2,0x5 0dc1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0dc2 TRAP_0d70: 0dc2 0007 | | Action Break_Optional 0dc3 0092 118e | | Action Push_String_Extended,0x118e ; " raised " 0dc5 4800 |H | Short_Literal 0x0 0dc6 4801 |H | Short_Literal 0x1 0dc7 e022 | " | Load 0x0,0x22 0dc8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0dc9 01cc | | Execute Vector,Catenate 0dca e5ff | | Load 0x2,-0x1 0dcb e5fd | | Load 0x2,-0x3 0dcc 822c | , | Call 0x1,0x2c 0dcd 4800 |H | Short_Literal 0x0 0dce a5fc | | Store_Unchecked 0x2,-0x4 0dcf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 ; SUBPROGRAM 0dd0 ; -------------------------------------------------------------------------------------- 0dd0 0dd8 | | .CONST 0x0dd8 ; Address of begin 0dd1 0004 | | .CONST 0x0004 ; Address of exception handler 0dd2 0003 | | .CONST 0x0003 ; Number of locals 0dd3 INIT_0dd0: 0dd3 00da | | Load_Top At_Offset_2 0dd4 e021 | ! | Load 0x0,0x21 0dd5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0dd6 029f 107b | {| Declare_Subprogram INIT_1078,For_Call 0dd8 BODY_0dd0: 0dd8 00e1 | | Load_Encached Boolean_Cache 0dd9 e403 | | Load 0x2,0x3 0dda 00db | | Load_Top At_Offset_3 0ddb e402 | | Load 0x2,0x2 0ddc e226 | & | Load 0x1,0x26 0ddd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0dde c403 | | Store 0x2,0x3 0ddf c404 | | Store 0x2,0x4 0de0 e404 | | Load 0x2,0x4 0de1 700e |p | Jump_Nonzero 0xdf0 0de2 00d9 | | Load_Top At_Offset_1 0de3 e5ff | | Load 0x2,-0x1 0de4 822a | * | Call 0x1,0x2a 0de5 c403 | | Store 0x2,0x3 0de6 e403 | | Load 0x2,0x3 0de7 6808 |h | Jump_Zero 0xdf0 0de8 e402 | | Load 0x2,0x2 0de9 4800 |H | Short_Literal 0x0 0dea e403 | | Load 0x2,0x3 0deb 8603 | | Call 0x3,0x3 0dec e602 | | Load 0x3,0x2 0ded e226 | & | Load 0x1,0x26 0dee 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0def c402 | | Store 0x2,0x2 0df0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0df1 0000 0000 | | .BLANK 0000[0x7] 0df8 ; -------------------------------------------------------------------------------------- 0df8 ; SUBPROGRAM 0df8 ; -------------------------------------------------------------------------------------- 0df8 0e02 | | .CONST 0x0e02 ; Address of begin 0df9 0004 | | .CONST 0x0004 ; Address of exception handler 0dfa 0002 | | .CONST 0x0002 ; Number of locals 0dfb INIT_0df8: 0dfb e407 | | Load 0x2,0x7 0dfc 00eb | | Load_Encached Diana_Cache 0dfd 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0dfe 00eb | | Load_Encached Diana_Cache 0dff 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0e00 00eb | | Load_Encached Diana_Cache 0e01 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0e02 BODY_0df8: 0e02 4800 |H | Short_Literal 0x0 0e03 0092 11ae | | Action Push_String_Extended,0x11ae ; "*UNIVERSAL_INTEGER*" 0e05 00da | | Load_Top At_Offset_2 0e06 e021 | ! | Load 0x0,0x21 0e07 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e08 680e |h | Jump_Zero 0xe17 0e09 e402 | | Load 0x2,0x2 0e0a 4800 |H | Short_Literal 0x0 0e0b e407 | | Load 0x2,0x7 0e0c 00eb | | Load_Encached Diana_Cache 0e0d 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 0e0e 0092 11af | | Action Push_String_Extended,0x11af ; "UNIVERSAL_INTEGER" 0e10 e226 | & | Load 0x1,0x26 0e11 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e12 c402 | | Store 0x2,0x2 0e13 e408 | | Load 0x2,0x8 0e14 0a01 | | Execute_Immediate Plus,0x1 0e15 c408 | | Store 0x2,0x8 0e16 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e17 4800 |H | Short_Literal 0x0 0e18 0092 11b0 | | Action Push_String_Extended,0x11b0 ; "*UNIVERSAL_REAL*" 0e1a 00da | | Load_Top At_Offset_2 0e1b e021 | ! | Load 0x0,0x21 0e1c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e1d 680e |h | Jump_Zero 0xe2c 0e1e e402 | | Load 0x2,0x2 0e1f 4800 |H | Short_Literal 0x0 0e20 e407 | | Load 0x2,0x7 0e21 00eb | | Load_Encached Diana_Cache 0e22 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 0e23 0092 11b1 | | Action Push_String_Extended,0x11b1 ; "UNIVERSAL_REAL" 0e25 e226 | & | Load 0x1,0x26 0e26 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e27 c402 | | Store 0x2,0x2 0e28 e408 | | Load 0x2,0x8 0e29 0a01 | | Execute_Immediate Plus,0x1 0e2a c408 | | Store 0x2,0x8 0e2b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e2c 4800 |H | Short_Literal 0x0 0e2d 0092 11b2 | | Action Push_String_Extended,0x11b2 ; "*UNIVERSAL_FIXED*" 0e2f 00da | | Load_Top At_Offset_2 0e30 e021 | ! | Load 0x0,0x21 0e31 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e32 680d |h | Jump_Zero 0xe40 0e33 e402 | | Load 0x2,0x2 0e34 4800 |H | Short_Literal 0x0 0e35 e407 | | Load 0x2,0x7 0e36 00eb | | Load_Encached Diana_Cache 0e37 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 0e38 0092 11b3 | | Action Push_String_Extended,0x11b3 ; "UNIVERSAL_FIXED" 0e3a e226 | & | Load 0x1,0x26 0e3b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e3c c402 | | Store 0x2,0x2 0e3d e408 | | Load 0x2,0x8 0e3e 0a01 | | Execute_Immediate Plus,0x1 0e3f c408 | | Store 0x2,0x8 0e40 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e41 0000 0000 | | .BLANK 0000[0x7] 0e48 ; -------------------------------------------------------------------------------------- 0e48 ; SUBPROGRAM 0e48 ; -------------------------------------------------------------------------------------- 0e48 0e4d | M | .CONST 0x0e4d ; Address of begin 0e49 0e4f | O | .CONST 0x0e4f ; Address of exception handler 0e4a 0002 | | .CONST 0x0002 ; Number of locals 0e4b INIT_0e48: 0e4b 029f 10ab | | Declare_Subprogram INIT_10a8,For_Call 0e4d BODY_0e48: 0e4d 8602 | | Call 0x3,0x2 0e4e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e4f TRAP_0e48: 0e4f e009 | | Load 0x0,0x9 0e50 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e51 010f | | Execute Exception,Equal 0e52 6801 |h | Jump_Zero 0xe54 0e53 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e54 0100 | | Execute Exception,Raise 0e55 0000 0000 | | .XXX[0x3] 0e57 0000 | | 0e58 ; -------------------------------------------------------------------------------------- 0e58 ; SUBPROGRAM 0e58 ; -------------------------------------------------------------------------------------- 0e58 0e5d | ] | .CONST 0x0e5d ; Address of begin 0e59 0e5f | _ | .CONST 0x0e5f ; Address of exception handler 0e5a 0002 | | .CONST 0x0002 ; Number of locals 0e5b INIT_0e58: 0e5b 029f 10c3 | | Declare_Subprogram INIT_10c0,For_Call 0e5d BODY_0e58: 0e5d 8602 | | Call 0x3,0x2 0e5e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e5f TRAP_0e58: 0e5f e009 | | Load 0x0,0x9 0e60 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e61 010f | | Execute Exception,Equal 0e62 6801 |h | Jump_Zero 0xe64 0e63 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e64 0100 | | Execute Exception,Raise 0e65 0000 0000 | | .XXX[0x3] 0e67 0000 | | 0e68 ; -------------------------------------------------------------------------------------- 0e68 ; SUBPROGRAM 0e68 ; -------------------------------------------------------------------------------------- 0e68 0e6b | k | .CONST 0x0e6b ; Address of begin 0e69 0e78 | x | .CONST 0x0e78 ; Address of exception handler 0e6a 0001 | | .CONST 0x0001 ; Number of locals 0e6b BODY_0e68: 0e6b INIT_0e68: 0e6b e5fd | | Load 0x2,-0x3 0e6c e403 | | Load 0x2,0x3 0e6d e5fe | | Load 0x2,-0x2 0e6e e001 | | Load 0x0,0x1 0e6f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0e70 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e71 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e72 c5fd | | Store 0x2,-0x3 0e73 e5fd | | Load 0x2,-0x3 0e74 00eb | | Load_Encached Diana_Cache 0e75 18fc | | Execute Package,Field_Execute,Field_Number 0xfc 0e76 c402 | | Store 0x2,0x2 0e77 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e78 TRAP_0e68: 0e78 010e | | Execute Exception,Is_Constraint_Error 0e79 6804 |h | Jump_Zero 0xe7e 0e7a 4800 |H | Short_Literal 0x0 0e7b a5fc | | Store_Unchecked 0x2,-0x4 0e7c 00cc | | Action Pop_Block 0e7d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e7e 0100 | | Execute Exception,Raise 0e7f 0000 | | .XXX[0x1] 0e80 ; -------------------------------------------------------------------------------------- 0e80 ; SUBPROGRAM 0e80 ; -------------------------------------------------------------------------------------- 0e80 0e9f | | .CONST 0x0e9f ; Address of begin 0e81 0004 | | .CONST 0x0004 ; Address of exception handler 0e82 0002 | | .CONST 0x0002 ; Number of locals 0e83 INIT_0e80: 0e83 e5ff | | Load 0x2,-0x1 0e84 01dd | | Execute Vector,First 0e85 e402 | | Load 0x2,0x2 0e86 0aff | | Execute_Immediate Plus,-0x1 0e87 e5ff | | Load 0x2,-0x1 0e88 01cf | | Execute Vector,Slice_Read 0e89 0092 11b4 | | Action Push_String_Extended,0x11b4 ; " or " 0e8b 01cc | | Execute Vector,Catenate 0e8c e402 | | Load 0x2,0x2 0e8d 0a02 | | Execute_Immediate Plus,0x2 0e8e 00d8 | | Load_Top At_Offset_0 0e8f 00e2 | | Load_Encached Integer_Cache 0e90 0260 | ` | Execute Discrete,In_Type 0e91 7001 |p | Jump_Nonzero 0xe93 0e92 0801 | | Execute_Immediate Raise,0x1 0e93 e5ff | | Load 0x2,-0x1 0e94 01dc | | Execute Vector,Last 0e95 0afe | | Execute_Immediate Plus,-0x2 0e96 00d8 | | Load_Top At_Offset_0 0e97 00e2 | | Load_Encached Integer_Cache 0e98 0260 | ` | Execute Discrete,In_Type 0e99 7001 |p | Jump_Nonzero 0xe9b 0e9a 0801 | | Execute_Immediate Raise,0x1 0e9b e5ff | | Load 0x2,-0x1 0e9c 01cf | | Execute Vector,Slice_Read 0e9d 01cc | | Execute Vector,Catenate 0e9e 0007 | | Action Break_Optional 0e9f BODY_0e80: 0e9f 00d8 | | Load_Top At_Offset_0 0ea0 00cb | | Action Pop_Block_With_Result 0ea1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ea2 0000 0000 | | .BLANK 0000[0x6] 0ea8 ; -------------------------------------------------------------------------------------- 0ea8 ; SUBPROGRAM 0ea8 ; -------------------------------------------------------------------------------------- 0ea8 0eab | | .CONST 0x0eab ; Address of begin 0ea9 0004 | | .CONST 0x0004 ; Address of exception handler 0eaa 0001 | | .CONST 0x0001 ; Number of locals 0eab BODY_0ea8: 0eab INIT_0ea8: 0eab 00da | | Load_Top At_Offset_2 0eac e009 | | Load 0x0,0x9 0ead 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0eae 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0eaf 01de | | Execute Vector,Not_Equal 0eb0 6807 |h | Jump_Zero 0xeb8 0eb1 00da | | Load_Top At_Offset_2 0eb2 4800 |H | Short_Literal 0x0 0eb3 e24e | N | Load 0x1,0x4e 0eb4 e24f | O | Load 0x1,0x4f 0eb5 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0eb6 8248 | H | Call 0x1,0x48 0eb7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0eb8 00ea | | Load_Encached Null_String_Cache 0eb9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0eba 0000 0000 | | .BLANK 0000[0x6] 0ec0 ; -------------------------------------------------------------------------------------- 0ec0 ; SUBPROGRAM 0ec0 ; -------------------------------------------------------------------------------------- 0ec0 0ec3 | | .CONST 0x0ec3 ; Address of begin 0ec1 0004 | | .CONST 0x0004 ; Address of exception handler 0ec2 0001 | | .CONST 0x0001 ; Number of locals 0ec3 BODY_0ec0: 0ec3 INIT_0ec0: 0ec3 00da | | Load_Top At_Offset_2 0ec4 01db | | Execute Vector,Length 0ec5 7002 |p | Jump_Nonzero 0xec8 0ec6 00ea | | Load_Encached Null_String_Cache 0ec7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ec8 0092 11b5 | | Action Push_String_Extended,0x11b5 ; "type " 0eca 00db | | Load_Top At_Offset_3 0ecb 01dd | | Execute Vector,First 0ecc e7ff | | Load 0x3,-0x1 0ecd 01d7 | | Execute Vector,Field_Read 0ece e009 | | Load 0x0,0x9 0ecf 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0ed0 180f | | Execute Package,Field_Execute,Field_Number 0xf 0ed1 e021 | ! | Load 0x0,0x21 0ed2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0ed3 01cc | | Execute Vector,Catenate 0ed4 0092 119f | | Action Push_String_Extended,0x119f ; ", " 0ed6 01cc | | Execute Vector,Catenate 0ed7 00db | | Load_Top At_Offset_3 0ed8 01dd | | Execute Vector,First 0ed9 0a01 | | Execute_Immediate Plus,0x1 0eda 00d8 | | Load_Top At_Offset_0 0edb 00e2 | | Load_Encached Integer_Cache 0edc 0260 | ` | Execute Discrete,In_Type 0edd 7001 |p | Jump_Nonzero 0xedf 0ede 0801 | | Execute_Immediate Raise,0x1 0edf e7ff | | Load 0x3,-0x1 0ee0 01dc | | Execute Vector,Last 0ee1 e7ff | | Load 0x3,-0x1 0ee2 01cf | | Execute Vector,Slice_Read 0ee3 8403 | | Call 0x2,0x3 0ee4 01cc | | Execute Vector,Catenate 0ee5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ee6 0000 0000 | | .XXX[0x2] 0ee8 ; -------------------------------------------------------------------------------------- 0ee8 ; SUBPROGRAM 0ee8 ; -------------------------------------------------------------------------------------- 0ee8 0efa | | .CONST 0x0efa ; Address of begin 0ee9 0004 | | .CONST 0x0004 ; Address of exception handler 0eea 0002 | | .CONST 0x0002 ; Number of locals 0eeb INIT_0ee8: 0eeb e5fc | | Load 0x2,-0x4 0eec e5ff | | Load 0x2,-0x1 0eed 825a | Z | Call 0x1,0x5a 0eee e5fd | | Load 0x2,-0x3 0eef e5ff | | Load 0x2,-0x1 0ef0 8259 | Y | Call 0x1,0x59 0ef1 01cc | | Execute Vector,Catenate 0ef2 e5fe | | Load 0x2,-0x2 0ef3 e5ff | | Load 0x2,-0x1 0ef4 8258 | X | Call 0x1,0x58 0ef5 01cc | | Execute Vector,Catenate 0ef6 e5fb | | Load 0x2,-0x5 0ef7 825b | [ | Call 0x1,0x5b 0ef8 01cc | | Execute Vector,Catenate 0ef9 0007 | | Action Break_Optional 0efa BODY_0ee8: 0efa 00d8 | | Load_Top At_Offset_0 0efb 8236 | 6 | Call 0x1,0x36 0efc 00cb | | Action Pop_Block_With_Result 0efd 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0efe 0000 0000 | | .XXX[0x2] 0f00 ; -------------------------------------------------------------------------------------- 0f00 ; SUBPROGRAM 0f00 ; -------------------------------------------------------------------------------------- 0f00 0f0f | | .CONST 0x0f0f ; Address of begin 0f01 0004 | | .CONST 0x0004 ; Address of exception handler 0f02 0003 | | .CONST 0x0003 ; Number of locals 0f03 INIT_0f00: 0f03 00ec | | Load_Encached Diana_Tree_Cache 0f04 02c7 | | Declare_Variable Any 0f05 e5fe | | Load 0x2,-0x2 0f06 4974 |It | Short_Literal 0x174 0f07 00eb | | Load_Encached Diana_Cache 0f08 0098 | | Execute Package,Field_Read_Dynamic 0f09 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0f0a a602 | | Store_Unchecked 0x3,0x2 0f0b 00ec | | Load_Encached Diana_Tree_Cache 0f0c 02c7 | | Declare_Variable Any 0f0d 00d8 | | Load_Top At_Offset_0 0f0e 1c00 | | Execute_Immediate Run_Utility,0x0 0f0f BODY_0f00: 0f0f 00d9 | | Load_Top At_Offset_1 0f10 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0f11 0fa8 | | Execute_Immediate Equal,-0x58 0f12 6814 |h | Jump_Zero 0xf27 0f13 00d9 | | Load_Top At_Offset_1 0f14 4976 |Iv | Short_Literal 0x176 0f15 00eb | | Load_Encached Diana_Cache 0f16 0098 | | Execute Package,Field_Read_Dynamic 0f17 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f18 c603 | | Store 0x3,0x3 0f19 e5fe | | Load 0x2,-0x2 0f1a 00eb | | Load_Encached Diana_Cache 0f1b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0f1c 00d9 | | Load_Top At_Offset_1 0f1d 00eb | | Load_Encached Diana_Cache 0f1e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0f1f 00eb | | Load_Encached Diana_Cache 0f20 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0f21 6805 |h | Jump_Zero 0xf27 0f22 00f1 | | Load_Encached Diana_Temp_Seq 0f23 00d9 | | Load_Top At_Offset_1 0f24 00eb | | Load_Encached Diana_Cache 0f25 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0f26 c402 | | Store 0x2,0x2 0f27 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f28 ; -------------------------------------------------------------------------------------- 0f28 ; SUBPROGRAM 0f28 ; -------------------------------------------------------------------------------------- 0f28 0f33 | 3 | .CONST 0x0f33 ; Address of begin 0f29 0004 | | .CONST 0x0004 ; Address of exception handler 0f2a 0002 | | .CONST 0x0002 ; Number of locals 0f2b INIT_0f28: 0f2b e406 | | Load 0x2,0x6 0f2c e5fc | | Load 0x2,-0x4 0f2d 01d7 | | Execute Vector,Field_Read 0f2e e009 | | Load 0x0,0x9 0f2f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0f30 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f31 e021 | ! | Load 0x0,0x21 0f32 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0f33 BODY_0f28: 0f33 00d8 | | Load_Top At_Offset_0 0f34 e5fd | | Load 0x2,-0x3 0f35 e029 | ) | Load 0x0,0x29 0f36 180e | | Execute Package,Field_Execute,Field_Number 0xe 0f37 701b |p | Jump_Nonzero 0xf53 0f38 4800 |H | Short_Literal 0x0 0f39 a5f8 | | Store_Unchecked 0x2,-0x8 0f3a e5f9 | | Load 0x2,-0x7 0f3b 6817 |h | Jump_Zero 0xf53 0f3c e5fa | | Load 0x2,-0x6 0f3d 680b |h | Jump_Zero 0xf49 0f3e 0092 11b6 | | Action Push_String_Extended,0x11b6 ; "'s type does not have pragma " 0f40 00d9 | | Load_Top At_Offset_1 0f41 01cc | | Execute Vector,Catenate 0f42 0092 11b7 | | Action Push_String_Extended,0x11b7 ; " applied to it" 0f44 01cc | | Execute Vector,Catenate 0f45 e5fe | | Load 0x2,-0x2 0f46 e5ff | | Load 0x2,-0x1 0f47 822c | , | Call 0x1,0x2c 0f48 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f49 0092 11b8 | | Action Push_String_Extended,0x11b8 ; " does not have pragma " 0f4b 00d9 | | Load_Top At_Offset_1 0f4c 01cc | | Execute Vector,Catenate 0f4d 0092 11b7 | | Action Push_String_Extended,0x11b7 ; " applied to it" 0f4f 01cc | | Execute Vector,Catenate 0f50 e5fe | | Load 0x2,-0x2 0f51 e5ff | | Load 0x2,-0x1 0f52 822c | , | Call 0x1,0x2c 0f53 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f54 0000 0000 | | .BLANK 0000[0x4] 0f58 ; -------------------------------------------------------------------------------------- 0f58 ; SUBPROGRAM 0f58 ; -------------------------------------------------------------------------------------- 0f58 0f61 | a | .CONST 0x0f61 ; Address of begin 0f59 0004 | | .CONST 0x0004 ; Address of exception handler 0f5a 0002 | | .CONST 0x0002 ; Number of locals 0f5b INIT_0f58: 0f5b e406 | | Load 0x2,0x6 0f5c e5fb | | Load 0x2,-0x5 0f5d 01d7 | | Execute Vector,Field_Read 0f5e e009 | | Load 0x0,0x9 0f5f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0f60 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f61 BODY_0f58: 0f61 00d8 | | Load_Top At_Offset_0 0f62 e5fd | | Load 0x2,-0x3 0f63 e029 | ) | Load 0x0,0x29 0f64 180e | | Execute Package,Field_Execute,Field_Number 0xe 0f65 681b |h | Jump_Zero 0xf81 0f66 4800 |H | Short_Literal 0x0 0f67 a5f8 | | Store_Unchecked 0x2,-0x8 0f68 e5f9 | | Load 0x2,-0x7 0f69 6817 |h | Jump_Zero 0xf81 0f6a e5fa | | Load 0x2,-0x6 0f6b 680b |h | Jump_Zero 0xf77 0f6c 0092 11b9 | | Action Push_String_Extended,0x11b9 ; "'s type has pragma " 0f6e 00d9 | | Load_Top At_Offset_1 0f6f 01cc | | Execute Vector,Catenate 0f70 0092 11b7 | | Action Push_String_Extended,0x11b7 ; " applied to it" 0f72 01cc | | Execute Vector,Catenate 0f73 e5fe | | Load 0x2,-0x2 0f74 e5ff | | Load 0x2,-0x1 0f75 822c | , | Call 0x1,0x2c 0f76 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f77 0092 11ba | | Action Push_String_Extended,0x11ba ; " has pragma " 0f79 00d9 | | Load_Top At_Offset_1 0f7a 01cc | | Execute Vector,Catenate 0f7b 0092 11b7 | | Action Push_String_Extended,0x11b7 ; " applied to it" 0f7d 01cc | | Execute Vector,Catenate 0f7e e5fe | | Load 0x2,-0x2 0f7f e5ff | | Load 0x2,-0x1 0f80 822c | , | Call 0x1,0x2c 0f81 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f82 0000 0000 | | .BLANK 0000[0x6] 0f88 ; -------------------------------------------------------------------------------------- 0f88 ; SUBPROGRAM 0f88 ; -------------------------------------------------------------------------------------- 0f88 0f91 | | .CONST 0x0f91 ; Address of begin 0f89 0004 | | .CONST 0x0004 ; Address of exception handler 0f8a 0002 | | .CONST 0x0002 ; Number of locals 0f8b INIT_0f88: 0f8b 00ec | | Load_Encached Diana_Tree_Cache 0f8c 02c7 | | Declare_Variable Any 0f8d e5fe | | Load 0x2,-0x2 0f8e 00eb | | Load_Encached Diana_Cache 0f8f 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0f90 a602 | | Store_Unchecked 0x3,0x2 0f91 BODY_0f88: 0f91 00d8 | | Load_Top At_Offset_0 0f92 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0f93 0f3b | ; | Execute_Immediate Equal,0x3b 0f94 680f |h | Jump_Zero 0xfa4 0f95 00e1 | | Load_Encached Boolean_Cache 0f96 00e1 | | Load_Encached Boolean_Cache 0f97 e5fc | | Load 0x2,-0x4 0f98 e5fd | | Load 0x2,-0x3 0f99 4801 |H | Short_Literal 0x1 0f9a 4801 |H | Short_Literal 0x1 0f9b e602 | | Load 0x3,0x2 0f9c 00eb | | Load_Encached Diana_Cache 0f9d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0f9e e5ff | | Load 0x2,-0x1 0f9f 8269 | i | Call 0x1,0x69 0fa0 c5fc | | Store 0x2,-0x4 0fa1 c5fb | | Store 0x2,-0x5 0fa2 c402 | | Store 0x2,0x2 0fa3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0fa4 00e1 | | Load_Encached Boolean_Cache 0fa5 e5fd | | Load 0x2,-0x3 0fa6 e5fe | | Load 0x2,-0x2 0fa7 e5fc | | Load 0x2,-0x4 0fa8 e5ff | | Load 0x2,-0x1 0fa9 8265 | e | Call 0x1,0x65 0faa c402 | | Store 0x2,0x2 0fab e402 | | Load 0x2,0x2 0fac 0f00 | | Execute_Immediate Equal,0x0 0fad a5fb | | Store_Unchecked 0x2,-0x5 0fae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0faf 0000 | | .XXX[0x1] 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 ; SUBPROGRAM 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 0fb3 | | .CONST 0x0fb3 ; Address of begin 0fb1 0fbe | | .CONST 0x0fbe ; Address of exception handler 0fb2 0001 | | .CONST 0x0001 ; Number of locals 0fb3 BODY_0fb0: 0fb3 INIT_0fb0: 0fb3 00e1 | | Load_Encached Boolean_Cache 0fb4 00e1 | | Load_Encached Boolean_Cache 0fb5 e5fc | | Load 0x2,-0x4 0fb6 e5fd | | Load 0x2,-0x3 0fb7 e403 | | Load 0x2,0x3 0fb8 e408 | | Load 0x2,0x8 0fb9 826a | j | Call 0x1,0x6a 0fba c5fc | | Store 0x2,-0x4 0fbb c409 | | Store 0x2,0x9 0fbc c407 | | Store 0x2,0x7 0fbd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0fbe TRAP_0fb0: 0fbe e009 | | Load 0x0,0x9 0fbf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fc0 010f | | Execute Exception,Equal 0fc1 6805 |h | Jump_Zero 0xfc7 0fc2 4801 |H | Short_Literal 0x1 0fc3 a407 | | Store_Unchecked 0x2,0x7 0fc4 4800 |H | Short_Literal 0x0 0fc5 a409 | | Store_Unchecked 0x2,0x9 0fc6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0fc7 0100 | | Execute Exception,Raise 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 ; SUBPROGRAM 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 0fcb | | .CONST 0x0fcb ; Address of begin 0fc9 0004 | | .CONST 0x0004 ; Address of exception handler 0fca 0001 | | .CONST 0x0001 ; Number of locals 0fcb BODY_0fc8: 0fcb INIT_0fc8: 0fcb 00da | | Load_Top At_Offset_2 0fcc 6805 |h | Jump_Zero 0xfd2 0fcd e402 | | Load 0x2,0x2 0fce e404 | | Load 0x2,0x4 0fcf 00eb | | Load_Encached Diana_Cache 0fd0 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0fd1 c402 | | Store 0x2,0x2 0fd2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0fd3 0000 0000 | | .BLANK 0000[0x5] 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 ; SUBPROGRAM 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 0fe0 | | .CONST 0x0fe0 ; Address of begin 0fd9 0004 | | .CONST 0x0004 ; Address of exception handler 0fda 0002 | | .CONST 0x0002 ; Number of locals 0fdb INIT_0fd8: 0fdb e5fe | | Load 0x2,-0x2 0fdc 00eb | | Load_Encached Diana_Cache 0fdd 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0fde 00eb | | Load_Encached Diana_Cache 0fdf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0fe0 BODY_0fd8: 0fe0 00cf | | Action Mark_Auxiliary 0fe1 e5ff | | Load 0x2,-0x1 0fe2 01d9 | | Execute Vector,Reverse_Bounds 0fe3 0263 | c | Execute Discrete,Above_Bound 0fe4 7011 |p | Jump_Nonzero 0xff6 0fe5 4801 |H | Short_Literal 0x1 0fe6 00d9 | | Load_Top At_Offset_1 0fe7 e5ff | | Load 0x2,-0x1 0fe8 01d7 | | Execute Vector,Field_Read 0fe9 e009 | | Load 0x0,0x9 0fea 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0feb 180f | | Execute Package,Field_Execute,Field_Number 0xf 0fec e602 | | Load 0x3,0x2 0fed e021 | ! | Load 0x0,0x21 0fee 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0fef 6804 |h | Jump_Zero 0xff4 0ff0 4801 |H | Short_Literal 0x1 0ff1 a5fc | | Store_Unchecked 0x2,-0x4 0ff2 00cc | | Action Pop_Block 0ff3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ff4 00c8 | | Action Pop_Auxiliary_Range 0ff5 3fef |? | Loop_Increasing 0xfe5 0ff6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ff7 0000 | | .XXX[0x1] 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 ; SUBPROGRAM 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 1012 | | .CONST 0x1012 ; Address of begin 0ff9 0004 | | .CONST 0x0004 ; Address of exception handler 0ffa 0004 | | .CONST 0x0004 ; Number of locals 0ffb INIT_0ff8: 0ffb e02a | * | Load 0x0,0x2a 0ffc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ffd 02c7 | | Declare_Variable Any 0ffe e403 | | Load 0x2,0x3 0fff 00eb | | Load_Encached Diana_Cache 1000 189f | | Execute Package,Field_Execute,Field_Number 0x9f 1001 a602 | | Store_Unchecked 0x3,0x2 1002 e02a | * | Load 0x0,0x2a 1003 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1004 02c7 | | Declare_Variable Any 1005 e5fe | | Load 0x2,-0x2 1006 e009 | | Load 0x0,0x9 1007 1b12 | | Execute Package,Field_Read,Field_Number 0x12 1008 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 1009 a603 | | Store_Unchecked 0x3,0x3 100a e02a | * | Load 0x0,0x2a 100b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 100c 02c7 | | Declare_Variable Any 100d e5fe | | Load 0x2,-0x2 100e e009 | | Load 0x0,0x9 100f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 1010 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 1011 a604 | | Store_Unchecked 0x3,0x4 1012 BODY_0ff8: 1012 00d9 | | Load_Top At_Offset_1 1013 00db | | Load_Top At_Offset_3 1014 027d | } | Execute Discrete,Greater 1015 680d |h | Jump_Zero 0x1023 1016 0092 11bb | | Action Push_String_Extended,0x11bb ; " is less than lower bound " 1018 00da | | Load_Top At_Offset_2 1019 e02a | * | Load 0x0,0x2a 101a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 101b 01cc | | Execute Vector,Catenate 101c e5ff | | Load 0x2,-0x1 101d e5fd | | Load 0x2,-0x3 101e 822c | , | Call 0x1,0x2c 101f 4800 |H | Short_Literal 0x0 1020 a5fc | | Store_Unchecked 0x2,-0x4 1021 00cc | | Action Pop_Block 1022 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1023 00d8 | | Load_Top At_Offset_0 1024 00db | | Load_Top At_Offset_3 1025 027c | | | Execute Discrete,Less 1026 680d |h | Jump_Zero 0x1034 1027 0092 11bc | | Action Push_String_Extended,0x11bc ; " is greater than upper bound " 1029 00d9 | | Load_Top At_Offset_1 102a e02a | * | Load 0x0,0x2a 102b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 102c 01cc | | Execute Vector,Catenate 102d e5ff | | Load 0x2,-0x1 102e e5fd | | Load 0x2,-0x3 102f 822c | , | Call 0x1,0x2c 1030 4800 |H | Short_Literal 0x0 1031 a5fc | | Store_Unchecked 0x2,-0x4 1032 00cc | | Action Pop_Block 1033 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1034 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1035 0000 0000 | | .XXX[0x3] 1037 0000 | | 1038 ; -------------------------------------------------------------------------------------- 1038 ; SUBPROGRAM 1038 ; -------------------------------------------------------------------------------------- 1038 1052 | R | .CONST 0x1052 ; Address of begin 1039 0004 | | .CONST 0x0004 ; Address of exception handler 103a 0004 | | .CONST 0x0004 ; Number of locals 103b INIT_1038: 103b e02a | * | Load 0x0,0x2a 103c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 103d 02c7 | | Declare_Variable Any 103e e403 | | Load 0x2,0x3 103f 00eb | | Load_Encached Diana_Cache 1040 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0 1041 a602 | | Store_Unchecked 0x3,0x2 1042 e02a | * | Load 0x0,0x2a 1043 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1044 02c7 | | Declare_Variable Any 1045 e5fe | | Load 0x2,-0x2 1046 e009 | | Load 0x0,0x9 1047 1b12 | | Execute Package,Field_Read,Field_Number 0x12 1048 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1049 a603 | | Store_Unchecked 0x3,0x3 104a e02a | * | Load 0x0,0x2a 104b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 104c 02c7 | | Declare_Variable Any 104d e5fe | | Load 0x2,-0x2 104e e009 | | Load 0x0,0x9 104f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 1050 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1051 a604 | | Store_Unchecked 0x3,0x4 1052 BODY_1038: 1052 00da | | Load_Top At_Offset_2 1053 00da | | Load_Top At_Offset_2 1054 0245 | E | Execute Float,Greater 1055 680c |h | Jump_Zero 0x1062 1056 0092 11bb | | Action Push_String_Extended,0x11bb ; " is less than lower bound " 1058 00da | | Load_Top At_Offset_2 1059 8273 | s | Call 0x1,0x73 105a 01cc | | Execute Vector,Catenate 105b e5ff | | Load 0x2,-0x1 105c e5fd | | Load 0x2,-0x3 105d 822c | , | Call 0x1,0x2c 105e 4800 |H | Short_Literal 0x0 105f a5fc | | Store_Unchecked 0x2,-0x4 1060 00cc | | Action Pop_Block 1061 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1062 00da | | Load_Top At_Offset_2 1063 00d9 | | Load_Top At_Offset_1 1064 0244 | D | Execute Float,Less 1065 680c |h | Jump_Zero 0x1072 1066 0092 11bc | | Action Push_String_Extended,0x11bc ; " is greater than upper bound " 1068 00d9 | | Load_Top At_Offset_1 1069 8273 | s | Call 0x1,0x73 106a 01cc | | Execute Vector,Catenate 106b e5ff | | Load 0x2,-0x1 106c e5fd | | Load 0x2,-0x3 106d 822c | , | Call 0x1,0x2c 106e 4800 |H | Short_Literal 0x0 106f a5fc | | Store_Unchecked 0x2,-0x4 1070 00cc | | Action Pop_Block 1071 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1072 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1073 0000 0000 | | .BLANK 0000[0x5] 1078 ; -------------------------------------------------------------------------------------- 1078 ; SUBPROGRAM 1078 ; -------------------------------------------------------------------------------------- 1078 107b | { | .CONST 0x107b ; Address of begin 1079 0004 | | .CONST 0x0004 ; Address of exception handler 107a 0001 | | .CONST 0x0001 ; Number of locals 107b BODY_1078: 107b INIT_1078: 107b 00da | | Load_Top At_Offset_2 107c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 107d 00d8 | | Load_Top At_Offset_0 107e 482a |H* | Short_Literal 0x2a 107f 482f |H/ | Short_Literal 0x2f 1080 0262 | b | Execute Discrete,In_Range 1081 6816 |h | Jump_Zero 0x1098 1082 00d8 | | Load_Top At_Offset_0 1083 0c2c | , | Execute_Immediate Greater_Equal,0x2c 1084 680c |h | Jump_Zero 0x1091 1085 0b2d | - | Execute_Immediate Case_Compare,0x2d 1086 7003 |p | Jump_Nonzero 0x108a 1087 0f2f | / | Execute_Immediate Equal,0x2f 1088 7009 |p | Jump_Nonzero 0x1092 1089 780f |x | Jump 0x1099 108a 00d1 | | Pop_Control Pop_Count_1 108b 00da | | Load_Top At_Offset_2 108c 00eb | | Load_Encached Diana_Cache 108d 18ec | | Execute Package,Field_Execute,Field_Number 0xec 108e 00eb | | Load_Encached Diana_Cache 108f 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9 1090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1091 00d1 | | Pop_Control Pop_Count_1 1092 00da | | Load_Top At_Offset_2 1093 00eb | | Load_Encached Diana_Cache 1094 18ec | | Execute Package,Field_Execute,Field_Number 0xec 1095 00eb | | Load_Encached Diana_Cache 1096 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 1097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1098 00d1 | | Pop_Control Pop_Count_1 1099 e01e | | Load 0x0,0x1e 109a 180e | | Execute Package,Field_Execute,Field_Number 0xe 109b 4806 |H | Short_Literal 0x6 109c 0092 11bd | | Action Push_String_Extended,0x11bd ; "Unexpected type spec node for type " 109e e9ff | | Load 0x4,-0x1 109f 00eb | | Load_Encached Diana_Cache 10a0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 10a1 00eb | | Load_Encached Diana_Cache 10a2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 10a3 01cc | | Execute Vector,Catenate 10a4 e01f | | Load 0x0,0x1f 10a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 10a6 0831 | 1 | Execute_Immediate Raise,0x31 10a7 0000 | | .XXX[0x1] 10a8 ; -------------------------------------------------------------------------------------- 10a8 ; SUBPROGRAM 10a8 ; -------------------------------------------------------------------------------------- 10a8 10b3 | | .CONST 0x10b3 ; Address of begin 10a9 0004 | | .CONST 0x0004 ; Address of exception handler 10aa 0003 | | .CONST 0x0003 ; Number of locals 10ab INIT_10a8: 10ab e5ff | | Load 0x2,-0x1 10ac e020 | | Load 0x0,0x20 10ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 10ae e009 | | Load 0x0,0x9 10af 1b14 | | Execute Package,Field_Read,Field_Number 0x14 10b0 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 10b1 029f 10e3 | | Declare_Subprogram INIT_10e0,For_Call 10b3 BODY_10a8: 10b3 00cf | | Action Mark_Auxiliary 10b4 00da | | Load_Top At_Offset_2 10b5 01d9 | | Execute Vector,Reverse_Bounds 10b6 0263 | c | Execute Discrete,Above_Bound 10b7 7003 |p | Jump_Nonzero 0x10bb 10b8 8803 | | Call 0x4,0x3 10b9 00c8 | | Action Pop_Auxiliary_Range 10ba 3ffd |? | Loop_Increasing 0x10b8 10bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10bc 0000 0000 | | .BLANK 0000[0x4] 10c0 ; -------------------------------------------------------------------------------------- 10c0 ; SUBPROGRAM 10c0 ; -------------------------------------------------------------------------------------- 10c0 10cb | | .CONST 0x10cb ; Address of begin 10c1 10d4 | | .CONST 0x10d4 ; Address of exception handler 10c2 0003 | | .CONST 0x0003 ; Number of locals 10c3 INIT_10c0: 10c3 e5ff | | Load 0x2,-0x1 10c4 e020 | | Load 0x0,0x20 10c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 10c6 e009 | | Load 0x0,0x9 10c7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 10c8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 10c9 029f 10f3 | | Declare_Subprogram INIT_10f0,For_Call 10cb BODY_10c0: 10cb 00cf | | Action Mark_Auxiliary 10cc 00da | | Load_Top At_Offset_2 10cd 01d9 | | Execute Vector,Reverse_Bounds 10ce 0263 | c | Execute Discrete,Above_Bound 10cf 7003 |p | Jump_Nonzero 0x10d3 10d0 8803 | | Call 0x4,0x3 10d1 00c8 | | Action Pop_Auxiliary_Range 10d2 3ffd |? | Loop_Increasing 0x10d0 10d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10d4 TRAP_10c0: 10d4 e009 | | Load 0x0,0x9 10d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10d6 010f | | Execute Exception,Equal 10d7 6801 |h | Jump_Zero 0x10d9 10d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10d9 0100 | | Execute Exception,Raise 10da 0000 0000 | | .BLANK 0000[0x6] 10e0 ; -------------------------------------------------------------------------------------- 10e0 ; SUBPROGRAM 10e0 ; -------------------------------------------------------------------------------------- 10e0 10e5 | | .CONST 0x10e5 ; Address of begin 10e1 10e7 | | .CONST 0x10e7 ; Address of exception handler 10e2 0002 | | .CONST 0x0002 ; Number of locals 10e3 INIT_10e0: 10e3 029f 10fb | | Declare_Subprogram INIT_10f8,For_Call 10e5 BODY_10e0: 10e5 8a02 | | Call 0x5,0x2 10e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10e7 TRAP_10e0: 10e7 e009 | | Load 0x0,0x9 10e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10e9 010f | | Execute Exception,Equal 10ea 6801 |h | Jump_Zero 0x10ec 10eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10ec 0100 | | Execute Exception,Raise 10ed 0000 0000 | | .XXX[0x3] 10ef 0000 | | 10f0 ; -------------------------------------------------------------------------------------- 10f0 ; SUBPROGRAM 10f0 ; -------------------------------------------------------------------------------------- 10f0 10f5 | | .CONST 0x10f5 ; Address of begin 10f1 0004 | | .CONST 0x0004 ; Address of exception handler 10f2 0002 | | .CONST 0x0002 ; Number of locals 10f3 INIT_10f0: 10f3 029f 1113 | | Declare_Subprogram INIT_1110,For_Call 10f5 BODY_10f0: 10f5 8a02 | | Call 0x5,0x2 10f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10f7 0000 | | .XXX[0x1] 10f8 ; -------------------------------------------------------------------------------------- 10f8 ; SUBPROGRAM 10f8 ; -------------------------------------------------------------------------------------- 10f8 1103 | | .CONST 0x1103 ; Address of begin 10f9 0004 | | .CONST 0x0004 ; Address of exception handler 10fa 0003 | | .CONST 0x0003 ; Number of locals 10fb INIT_10f8: 10fb e806 | | Load 0x4,0x6 10fc e802 | | Load 0x4,0x2 10fd 01d7 | | Execute Vector,Field_Read 10fe e009 | | Load 0x0,0x9 10ff 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1100 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1101 029f 116b | k| Declare_Subprogram INIT_1168,For_Call 1103 BODY_10f8: 1103 00cf | | Action Mark_Auxiliary 1104 00da | | Load_Top At_Offset_2 1105 01d9 | | Execute Vector,Reverse_Bounds 1106 0263 | c | Execute Discrete,Above_Bound 1107 7003 |p | Jump_Nonzero 0x110b 1108 8c03 | | Call 0x6,0x3 1109 00c8 | | Action Pop_Auxiliary_Range 110a 3ffd |? | Loop_Increasing 0x1108 110b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 110c 0000 0000 | | .BLANK 0000[0x4] 1110 ; -------------------------------------------------------------------------------------- 1110 ; SUBPROGRAM 1110 ; -------------------------------------------------------------------------------------- 1110 1133 | 3 | .CONST 0x1133 ; Address of begin 1111 115c | \ | .CONST 0x115c ; Address of exception handler 1112 0005 | | .CONST 0x0005 ; Number of locals 1113 INIT_1110: 1113 e009 | | Load 0x0,0x9 1114 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1115 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 1116 02c7 | | Declare_Variable Any 1117 e806 | | Load 0x4,0x6 1118 e802 | | Load 0x4,0x2 1119 01d7 | | Execute Vector,Field_Read 111a ac02 | | Store_Unchecked 0x6,0x2 111b e009 | | Load 0x0,0x9 111c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 111d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 111e 02c7 | | Declare_Variable Any 111f 00d9 | | Load_Top At_Offset_1 1120 e009 | | Load 0x0,0x9 1121 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1122 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1123 ac03 | | Store_Unchecked 0x6,0x3 1124 e009 | | Load 0x0,0x9 1125 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1126 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1127 02c7 | | Declare_Variable Any 1128 00da | | Load_Top At_Offset_2 1129 e009 | | Load 0x0,0x9 112a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 112b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 112c ac04 | | Store_Unchecked 0x6,0x4 112d e009 | | Load 0x0,0x9 112e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 112f 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 1130 02c7 | | Declare_Variable Any 1131 00d8 | | Load_Top At_Offset_0 1132 1c00 | | Execute_Immediate Run_Utility,0x0 1133 BODY_1110: 1133 00da | | Load_Top At_Offset_2 1134 e009 | | Load 0x0,0x9 1135 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1136 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1137 7014 |p | Jump_Nonzero 0x114c 1138 00da | | Load_Top At_Offset_2 1139 e009 | | Load 0x0,0x9 113a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 113b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 113c 700f |p | Jump_Nonzero 0x114c 113d 00da | | Load_Top At_Offset_2 113e e009 | | Load 0x0,0x9 113f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1140 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1141 cc05 | | Store 0x6,0x5 1142 00d8 | | Load_Top At_Offset_0 1143 e009 | | Load 0x0,0x9 1144 1b12 | | Execute Package,Field_Read,Field_Number 0x12 1145 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 1146 7005 |p | Jump_Nonzero 0x114c 1147 00d8 | | Load_Top At_Offset_0 1148 e009 | | Load 0x0,0x9 1149 1b12 | | Execute Package,Field_Read,Field_Number 0x12 114a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 114b 8409 | | Call 0x2,0x9 114c 00d9 | | Load_Top At_Offset_1 114d e009 | | Load 0x0,0x9 114e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 114f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1150 700a |p | Jump_Nonzero 0x115b 1151 00d9 | | Load_Top At_Offset_1 1152 e009 | | Load 0x0,0x9 1153 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1154 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1155 7005 |p | Jump_Nonzero 0x115b 1156 00d9 | | Load_Top At_Offset_1 1157 e009 | | Load 0x0,0x9 1158 1b15 | | Execute Package,Field_Read,Field_Number 0x15 1159 181d | | Execute Package,Field_Execute,Field_Number 0x1d 115a 8409 | | Call 0x2,0x9 115b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 115c TRAP_1110: 115c e009 | | Load 0x0,0x9 115d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 115e 010f | | Execute Exception,Equal 115f 6801 |h | Jump_Zero 0x1161 1160 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1161 0100 | | Execute Exception,Raise 1162 0000 0000 | | .BLANK 0000[0x6] 1168 ; -------------------------------------------------------------------------------------- 1168 ; SUBPROGRAM 1168 ; -------------------------------------------------------------------------------------- 1168 116b | k | .CONST 0x116b ; Address of begin 1169 117d | } | .CONST 0x117d ; Address of exception handler 116a 0001 | | .CONST 0x0001 ; Number of locals 116b BODY_1168: 116b INIT_1168: 116b ec06 | | Load 0x6,0x6 116c ec02 | | Load 0x6,0x2 116d 01d7 | | Execute Vector,Field_Read 116e e009 | | Load 0x0,0x9 116f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1170 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1171 700a |p | Jump_Nonzero 0x117c 1172 ec06 | | Load 0x6,0x6 1173 ec02 | | Load 0x6,0x2 1174 01d7 | | Execute Vector,Field_Read 1175 e009 | | Load 0x0,0x9 1176 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1177 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1178 e009 | | Load 0x0,0x9 1179 1b12 | | Execute Package,Field_Read,Field_Number 0x12 117a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 117b 8409 | | Call 0x2,0x9 117c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 117d TRAP_1168: 117d e009 | | Load 0x0,0x9 117e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 117f 010f | | Execute Exception,Equal 1180 6801 |h | Jump_Zero 0x1182 1181 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1182 0100 | | Execute Exception,Raise 1183 ; -------------------------------------------------------------------------------------- 1183 ; STRING TABLE 1183 ; -------------------------------------------------------------------------------------- 1183 0078 | x | .STRTAB 0x0078->0x11bf ; "UNDEFINED" 1184 007f | | .STRTAB 0x007f->0x11c3 ; "OBJECT_NAME" 1185 0088 | | .STRTAB 0x0088->0x11c9 ; "MISCELLANEOUS_NAME" 1186 0098 | | .STRTAB 0x0098->0x11d2 ; "TYPE_NAME" 1187 009f | | .STRTAB 0x009f->0x11d6 ; "Could not find all universal types in Standard" 1188 00cb | | .STRTAB 0x00cb->0x11ed ; "Target not registered" 1189 00de | | .STRTAB 0x00de->0x11f8 ; "Multiply defined target" 118a 00f3 | | .STRTAB 0x00f3->0x1203 ; "Undefined type '" 118b 0101 | | .STRTAB 0x0101->0x120b ; "' discovered in object checking." 118c 011f | | .STRTAB 0x011f->0x121b ; "Undefined target found in object_checking" 118d 0146 | F | .STRTAB 0x0146->0x1230 ; "Target already undefined" 118e 015c | \ | .STRTAB 0x015c->0x123c ; " raised " 118f 0162 | b | .STRTAB 0x0162->0x1240 ; " is ambiguous" 1190 016d | m | .STRTAB 0x016d->0x1246 ; " is not a defined operator or identifier" 1191 0193 | | .STRTAB 0x0193->0x125a ; " is not " 1192 0199 | | .STRTAB 0x0199->0x125e ; "[]`" 1193 019a | | .STRTAB 0x019a->0x1260 ; "`" 1194 0199 | | .STRTAB 0x0199->0x1260 ; "Name resolution failure for type '" 1195 01b9 | | .STRTAB 0x01b9->0x1271 ; "': " 1196 01ba | | .STRTAB 0x01ba->0x1273 ; " is an unexpected node" 1197 01ce | | .STRTAB 0x01ce->0x127e ; " led to unexpected node " 1198 01e4 | | .STRTAB 0x01e4->0x128a ; "type" 1199 01e6 | | .STRTAB 0x01e6->0x128c ; "Undefined" 119a 01ed | | .STRTAB 0x01ed->0x1290 ; "object" 119b 01f1 | | .STRTAB 0x01f1->0x1293 ; "miscellanoues name" 119c 0201 | | .STRTAB 0x0201->0x129c ; "a " 119d 0201 | | .STRTAB 0x0201->0x129d ; "an " 119e 0202 | | .STRTAB 0x0202->0x129f ; " Kind" 119f 0205 | | .STRTAB 0x0205->0x12a1 ; ", " 11a0 0205 | | .STRTAB 0x0205->0x12a2 ; "a type, " 11a1 020b | | .STRTAB 0x020b->0x12a6 ; "an object, " 11a2 0214 | | .STRTAB 0x0214->0x12ac ; "identifier '" 11a3 021e | | .STRTAB 0x021e->0x12b2 ; "', " 11a4 021f | | .STRTAB 0x021f->0x12b3 ; " violates the '" 11a5 022c | , | .STRTAB 0x022c->0x12bb ; "' restriction" 11a6 0237 | 7 | .STRTAB 0x0237->0x12c1 ; "'s type violates the '" 11a7 024b | K | .STRTAB 0x024b->0x12cc ; "<*" 11a8 024b | K | .STRTAB 0x024b->0x12cd ; "standard." 11a9 0252 | R | .STRTAB 0x0252->0x12d2 ; "0625**SMTYPE" 11aa 025c | \ | .STRTAB 0x025c->0x12d8 ; " is not an object of " 11ab 026f | o | .STRTAB 0x026f->0x12e2 ; " is not static" 11ac 027b | { | .STRTAB 0x027b->0x12e9 ; " is not integer valued" 11ad 028f | | .STRTAB 0x028f->0x12f4 ; " is not float valued" 11ae 02a1 | | .STRTAB 0x02a1->0x12fe ; "*UNIVERSAL_INTEGER*" 11af 02b2 | | .STRTAB 0x02b2->0x1308 ; "UNIVERSAL_INTEGER" 11b0 02c1 | | .STRTAB 0x02c1->0x1310 ; "*UNIVERSAL_REAL*" 11b1 02cf | | .STRTAB 0x02cf->0x1318 ; "UNIVERSAL_REAL" 11b2 02db | | .STRTAB 0x02db->0x131f ; "*UNIVERSAL_FIXED*" 11b3 02ea | | .STRTAB 0x02ea->0x1328 ; "UNIVERSAL_FIXED" 11b4 02f7 | | .STRTAB 0x02f7->0x132f ; " or " 11b5 02f9 | | .STRTAB 0x02f9->0x1331 ; "type " 11b6 02fc | | .STRTAB 0x02fc->0x1334 ; "'s type does not have pragma " 11b7 0317 | | .STRTAB 0x0317->0x1342 ; " applied to it" 11b8 0323 | # | .STRTAB 0x0323->0x1349 ; " does not have pragma " 11b9 0337 | 7 | .STRTAB 0x0337->0x1354 ; "'s type has pragma " 11ba 0348 | H | .STRTAB 0x0348->0x135e ; " has pragma " 11bb 0352 | R | .STRTAB 0x0352->0x1364 ; " is less than lower bound " 11bc 036a | j | .STRTAB 0x036a->0x1371 ; " is greater than upper bound " 11bd 0385 | | .STRTAB 0x0385->0x137f ; "Unexpected type spec node for type " 11be 03a6 | | .STREND 0x03a6->0x1391 11bf 554e 4445 |UNDE| .STRTAB_STRINGS 1391 0000 0000 | | .BLANK 0000[0x7] 1398 ; -------------------------------------------------------------------------------------- 1398 ; Debug Table 1398 ; -------------------------------------------------------------------------------------- 1398 0004 000e | | .DEBUG4 0x0004,0x000e,0x942d,0x0000,0x0001,0x0000 139e 4543 8000 |EC | .XXX[0x4a] 13a0 0340 800d | @ | 13a2 0000 0000 | | 13a4 1000 0001 | | 13a6 24c4 9425 |$ %| 13a8 2415 2595 |$ % | 13aa f455 8544 | U D| 13ac 54e5 3494 |T 4 | 13ae f4e5 3800 | 8 | 13b0 0034 0803 | 4 | 13b2 4800 0007 |H | 13b4 a000 0000 | | 13b6 6121 5441 |a!TA| 13b8 5247 4554 |RGET| 13ba 532e 494d |S.IM| 13bc 504c 454d |PLEM| 13be 454e 5441 |ENTA| 13c0 5449 4f4e |TION| 13c2 2e52 4349 |.RCI| 13c4 5f43 5553 |_CUS| 13c6 544f 4d49 |TOMI| 13c8 5a41 5449 |ZATI| 13ca 4f4e 2e54 |ON.T| 13cc 454d 504c |EMPL| 13ce 4154 452e |ATE.| 13d0 5245 5632 |REV2| 13d2 5f57 4f52 |_WOR| 13d4 4b49 4e47 |KING| 13d6 2e55 4e49 |.UNI| 13d8 5453 2e43 |TS.C| 13da 4f4d 5049 |OMPI| 13dc 4c41 5449 |LATI| 13de 4f4e 5f45 |ON_E| 13e0 5854 454e |XTEN| 13e2 5349 4f4e |SION| 13e4 5327 5350 |S'SP| 13e6 4543 8000 |EC | 13e8 0000 0000 | | .BLANK 0000[0x4] 13ec 00d1 10b3 | | .XXX[0x14] 13ee 0000 0000 | | 13f0 0001 0404 | | 13f2 0000 0700 | | 13f4 0000 0000 | | 13f6 0000 0024 | $| 13f8 ff33 0038 | 3 8| 13fa 0800 0001 | | 13fc 0000 0000 | | 13fe 0000 0008 | |