|
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 - metrics - download
Length: 10240 (0x2800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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 For_Outer_Call,Visible,Unelaborated,INIT_0118
0028 c21d | | Store 0x1,0x1d
0029 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
002b c221 | ! | Store 0x1,0x21
002c 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
002e c21e | | Store 0x1,0x1e
002f 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0031 c21c | | Store 0x1,0x1c
0032 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
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 For_Call,INIT_0330
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 For_Outer_Call,Unelaborated,INIT_0358
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 For_Outer_Call,INIT_0360
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 For_Outer_Call,INIT_03c0
0060 029d 03d3 | | Declare_Subprogram For_Outer_Call,INIT_03d0
0062 029d 03e3 | | Declare_Subprogram For_Outer_Call,INIT_03e0
0064 029d 03f3 | | Declare_Subprogram For_Outer_Call,INIT_03f0
0066 029d 0403 | | Declare_Subprogram For_Outer_Call,INIT_0400
0068 029d 0413 | | Declare_Subprogram For_Outer_Call,INIT_0410
006a 029d 042b | +| Declare_Subprogram For_Outer_Call,INIT_0428
006c 029d 0443 | C| Declare_Subprogram For_Outer_Call,INIT_0440
006e 029d 045b | [| Declare_Subprogram For_Outer_Call,INIT_0458
0070 029d 0473 | s| Declare_Subprogram For_Outer_Call,INIT_0470
0072 029d 048b | | Declare_Subprogram For_Outer_Call,INIT_0488
0074 029d 04cb | | Declare_Subprogram For_Outer_Call,INIT_04c8
0076 029b 051b | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0518
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 For_Outer_Call,Unelaborated,INIT_0560
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 For_Outer_Call,INIT_05b8
00c8 029d 05d3 | | Declare_Subprogram For_Outer_Call,INIT_05d0
00ca 029d 05f3 | | Declare_Subprogram For_Outer_Call,INIT_05f0
00cc 029d 0613 | | Declare_Subprogram For_Outer_Call,INIT_0610
00ce 029d 063b | ;| Declare_Subprogram For_Outer_Call,INIT_0638
00d0 029d 0643 | C| Declare_Subprogram For_Outer_Call,INIT_0640
00d2 029d 06b3 | | Declare_Subprogram For_Outer_Call,INIT_06b0
00d4 029d 06d3 | | Declare_Subprogram For_Outer_Call,INIT_06d0
00d6 029d 06fb | | Declare_Subprogram For_Outer_Call,INIT_06f8
00d8 029d 0723 | #| Declare_Subprogram For_Outer_Call,INIT_0720
00da 029d 07c3 | | Declare_Subprogram For_Outer_Call,INIT_07c0
00dc 029d 07e3 | | Declare_Subprogram For_Outer_Call,INIT_07e0
00de 029d 080b | | Declare_Subprogram For_Outer_Call,INIT_0808
00e0 029d 0823 | #| Declare_Subprogram For_Outer_Call,INIT_0820
00e2 029d 08eb | | Declare_Subprogram For_Outer_Call,INIT_08e8
00e4 029d 091b | | Declare_Subprogram For_Outer_Call,INIT_0918
00e6 029d 093b | ;| Declare_Subprogram For_Outer_Call,INIT_0938
00e8 029d 095b | [| Declare_Subprogram For_Outer_Call,INIT_0958
00ea 029d 0a8b | | Declare_Subprogram For_Outer_Call,INIT_0a88
00ec 029d 0ad3 | | Declare_Subprogram For_Outer_Call,INIT_0ad0
00ee 029d 0aeb | | Declare_Subprogram For_Outer_Call,INIT_0ae8
00f0 029d 0b7b | {| Declare_Subprogram For_Outer_Call,INIT_0b78
00f2 029d 0b93 | | Declare_Subprogram For_Outer_Call,INIT_0b90
00f4 029d 0bfb | | Declare_Subprogram For_Outer_Call,INIT_0bf8
00f6 029d 0ce3 | | Declare_Subprogram For_Outer_Call,INIT_0ce0
00f8 029d 0d4b | K| Declare_Subprogram For_Outer_Call,INIT_0d48
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 For_Outer_Call,INIT_0d58
0104 029d 0d73 | s| Declare_Subprogram For_Outer_Call,INIT_0d70
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 For_Call,INIT_0dd0
0132 029f 0dfb | | Declare_Subprogram For_Call,INIT_0df8
0134 029f 0e4b | K| Declare_Subprogram For_Call,INIT_0e48
0136 029f 0e5b | [| Declare_Subprogram For_Call,INIT_0e58
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Subprogram 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_Subprogram 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 For_Call,INIT_0e68
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0x3
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_Unchecked 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_Unchecked 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_Unchecked 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_Subprogram 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_Unchecked 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_Subprogram 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_Subprogram 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 0x7
0334 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0349 00db | | Load_Top At_Offset_3
034a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
034b 00db | | Load_Top At_Offset_3
034c 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Result,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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 0x3
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_Result,0x1
047c 0092 1199 | | Action Push_String_Extended,0x1199 ; "Undefined"
047e 4401 |D | Exit_Subprogram With_Result,0x1
047f 0092 119a | | Action Push_String_Extended,0x119a ; "object"
0481 4401 |D | Exit_Subprogram With_Result,0x1
0482 0092 119b | | Action Push_String_Extended,0x119b ; "miscellanoues name"
0484 4401 |D | Exit_Subprogram With_Result,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 0x1e
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_Result,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_Result,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 For_Call,INIT_0e80
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_Result,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_Result,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_Unchecked 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_Unchecked 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_Result,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_Result,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_Result,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 0x7ff
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_Result,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_Result,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_Result,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_Result,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 For_Call,INIT_0ea8
05d5 029f 0ec3 | | Declare_Subprogram For_Call,INIT_0ec0
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 For_Call,INIT_0ee8
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 0x59
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_Result,0x1
06a5 00d1 | | Pop_Control Pop_Count_1
06a6 4800 |H | Short_Literal 0x0
06a7 4401 |D | Exit_Subprogram With_Result,0x1
06a8 4803 |H | Short_Literal 0x3
06a9 4401 |D | Exit_Subprogram With_Result,0x1
06aa 4801 |H | Short_Literal 0x1
06ab 4401 |D | Exit_Subprogram With_Result,0x1
06ac 4801 |H | Short_Literal 0x1
06ad 4401 |D | Exit_Subprogram With_Result,0x1
06ae 4802 |H | Short_Literal 0x2
06af 4401 |D | Exit_Subprogram With_Result,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 For_Call,INIT_0f00
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_Result,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_Subprogram 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 0x18
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_Result,0x1
071b 00d1 | | Pop_Control Pop_Count_1
071c 4800 |H | Short_Literal 0x0
071d 4401 |D | Exit_Subprogram With_Result,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 0x13
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_Subprogram 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_Subprogram 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 0x17
0775 4502 |E | Exit_Subprogram 0x2 ; case 0x0
0776 4502 |E | Exit_Subprogram 0x2 ; case 0x1
0777 4502 |E | Exit_Subprogram 0x2 ; case 0x2
0778 4502 |E | Exit_Subprogram 0x2 ; case 0x3
0779 4502 |E | Exit_Subprogram 0x2 ; case 0x4
077a 4502 |E | Exit_Subprogram 0x2 ; case 0x5
077b 4502 |E | Exit_Subprogram 0x2 ; case 0x6
077c 4502 |E | Exit_Subprogram 0x2 ; case 0x7
077d 4502 |E | Exit_Subprogram 0x2 ; case 0x8
077e 4502 |E | Exit_Subprogram 0x2 ; case 0x9
077f 4502 |E | Exit_Subprogram 0x2 ; case 0xa
0780 4502 |E | Exit_Subprogram 0x2 ; case 0xb
0781 7834 |x4 | Jump 0x7b6 ; case 0xc
0782 4502 |E | Exit_Subprogram 0x2 ; case 0xd
0783 4502 |E | Exit_Subprogram 0x2 ; case 0xe
0784 4502 |E | Exit_Subprogram 0x2 ; case 0xf
0785 4502 |E | Exit_Subprogram 0x2 ; case 0x10
0786 4502 |E | Exit_Subprogram 0x2 ; case 0x11
0787 7805 |x | Jump 0x78d ; case 0x12
0788 4502 |E | Exit_Subprogram 0x2 ; case 0x13
0789 7829 |x) | Jump 0x7b3 ; case 0x14
078a 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 0x2
07ae 4802 |H | Short_Literal 0x2
07af a5fd | | Store_Unchecked 0x2,-0x3
07b0 4502 |E | Exit_Subprogram 0x2
07b1 00d1 | | Pop_Control Pop_Count_1
07b2 4502 |E | Exit_Subprogram 0x2
07b3 4802 |H | Short_Literal 0x2
07b4 a5fd | | Store_Unchecked 0x2,-0x3
07b5 4502 |E | Exit_Subprogram 0x2
07b6 4802 |H | Short_Literal 0x2
07b7 a5fd | | Store_Unchecked 0x2,-0x3
07b8 4502 |E | Exit_Subprogram 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 For_Call,INIT_0f28
07c5 029f 0f5b | [| Declare_Subprogram For_Call,INIT_0f58
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0x49
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,0x1
0911 00da | | Load_Top At_Offset_2
0912 4401 |D | Exit_Subprogram With_Result,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_Result,0x1
0933 00db | | Load_Top At_Offset_3
0934 4401 |D | Exit_Subprogram With_Result,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_Result,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_Subprogram 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 0x5
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,Field_Execute_Dynamic
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_Subprogram 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_Unchecked 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,Field_Execute_Dynamic
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_Subprogram 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_Unchecked 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,Field_Execute_Dynamic
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_Unchecked 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,Field_Execute_Dynamic
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_Subprogram 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_Unchecked 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_Subprogram 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 For_Call,INIT_0f88
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_Subprogram 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_Result,0x1
0ae5 00d8 | | Load_Top At_Offset_0
0ae6 4401 |D | Exit_Subprogram With_Result,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 0x30
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_Subprogram 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_Subprogram 0x2
0b2d 4800 |H | Short_Literal 0x0
0b2e a5fe | | Store_Unchecked 0x2,-0x2
0b2f 4502 |E | Exit_Subprogram 0x2
0b30 4801 |H | Short_Literal 0x1
0b31 a5fe | | Store_Unchecked 0x2,-0x2
0b32 4502 |E | Exit_Subprogram 0x2
0b33 4803 |H | Short_Literal 0x3
0b34 a5fe | | Store_Unchecked 0x2,-0x2
0b35 4502 |E | Exit_Subprogram 0x2
0b36 4802 |H | Short_Literal 0x2
0b37 a5fe | | Store_Unchecked 0x2,-0x2
0b38 4502 |E | Exit_Subprogram 0x2
0b39 4804 |H | Short_Literal 0x4
0b3a a5fe | | Store_Unchecked 0x2,-0x2
0b3b 4502 |E | Exit_Subprogram 0x2
0b3c 4805 |H | Short_Literal 0x5
0b3d a5fe | | Store_Unchecked 0x2,-0x2
0b3e 4502 |E | Exit_Subprogram 0x2
0b3f 4806 |H | Short_Literal 0x6
0b40 a5fe | | Store_Unchecked 0x2,-0x2
0b41 4502 |E | Exit_Subprogram 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_Subprogram 0x2
0b4c 4807 |H | Short_Literal 0x7
0b4d a5fe | | Store_Unchecked 0x2,-0x2
0b4e 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 0x2
0b65 4800 |H | Short_Literal 0x0
0b66 a5fe | | Store_Unchecked 0x2,-0x2
0b67 4502 |E | Exit_Subprogram 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_Subprogram 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,Field_Execute_Dynamic
0b87 4401 |D | Exit_Subprogram With_Result,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_Result,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 For_Call,INIT_0fb0
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_Subprogram 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_Subprogram 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 For_Call,INIT_0fc8
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 0x3d
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,0x8f
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_Subprogram 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,0x8f
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0fd8
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_Subprogram 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_Result,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 For_Call,INIT_0ff8
0d7b 029f 103b | ;| Declare_Subprogram For_Call,INIT_1038
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_Subprogram 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 0x2
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_Subprogram 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_Subprogram 0x4
0db1 8404 | | Call 0x2,0x4
0db2 4504 |E | Exit_Subprogram 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_Subprogram 0x4
0dc0 8405 | | Call 0x2,0x5
0dc1 4504 |E | Exit_Subprogram 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_Subprogram 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 For_Call,INIT_1078
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_10a8
0e4d BODY_0e48:
0e4d 8602 | | Call 0x3,0x2
0e4e 4501 |E | Exit_Subprogram 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_Subprogram 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 For_Call,INIT_10c0
0e5d BODY_0e58:
0e5d 8602 | | Call 0x3,0x2
0e5e 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,0x1
0eb8 00ea | | Load_Encached Null_String_Cache
0eb9 4401 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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,0xa8
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 0x4
0ff4 00c8 | | Action Pop_Auxiliary_Range
0ff5 3fef |? | Loop_Increasing 0xfe5
0ff6 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 0x4
1034 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 0x4
1072 4501 |E | Exit_Subprogram 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_Result,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_Result,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 For_Call,INIT_10e0
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_Subprogram 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 For_Call,INIT_10f0
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_Subprogram 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_Subprogram 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 For_Call,INIT_10f8
10e5 BODY_10e0:
10e5 8a02 | | Call 0x5,0x2
10e6 4501 |E | Exit_Subprogram 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_Subprogram 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 For_Call,INIT_1110
10f5 BODY_10f0:
10f5 8a02 | | Call 0x5,0x2
10f6 4501 |E | Exit_Subprogram 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 For_Call,INIT_1168
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 "
; " raised "
; " 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"
; "' 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"
; "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"
; " applied to it"
; " applied to it"
; " 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 "
; " is less than lower bound "
11bc 036a | j | .STRTAB 0x036a->0x1371 ; " is greater than upper bound "
; " 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 000d | | .DEBUG4 0x0004,0x000d,0x507e,0x0000,0x0001,0x0000
139e 0000 0000 | | .BLANK 0000[0x62]