|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10240 (0x2800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1230 | 0 | .CONST 0x1230 ; 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 800b | | .CONST 0x800b ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0105 | | .CONST 0x0105 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0070 | p | .CONST 0x0070 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
000d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000f 0129 | ) | Execute Any,Make_Visible
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0028 c21d | | Store 0x1,0x1d
0029 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
002b c221 | ! | Store 0x1,0x21
002c 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
002e c21e | | Store 0x1,0x1e
002f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0031 c21c | | Store 0x1,0x1c
0032 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0034 c223 | # | Store 0x1,0x23
0035 00bf | | Action Accept_Activation
0036 4800 |H | Short_Literal 0x0
0037 4803 |H | Short_Literal 0x3
0038 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
003a 03fd | | Declare_Type Discrete,Defined
003b e002 | | Load 0x0,0x2
003c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
003d 4814 |H | Short_Literal 0x14
003e 4818 |H | Short_Literal 0x18
003f 00eb | | Load_Encached Diana_Cache
0040 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0041 03f8 | | Declare_Type Discrete,Constrained
0042 e003 | | Load 0x0,0x3
0043 e004 | | Load 0x0,0x4
0044 4900 |I | Short_Literal 0x100
0045 00ec | | Load_Encached Diana_Tree_Cache
0046 e005 | | Load 0x0,0x5
0047 0387 | | Declare_Variable Package
0048 00d8 | | Load_Top At_Offset_0
0049 020f | | Execute Module,Activate
004a 029b 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Unelaborated
004c e006 | | Load 0x0,0x6
004d e007 | | Load 0x0,0x7
004e 4900 |I | Short_Literal 0x100
004f 00e3 | | Load_Encached Natural_Cache
0050 e227 | ' | Load 0x1,0x27
0051 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0052 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0053 e008 | | Load 0x0,0x8
0054 0387 | | Declare_Variable Package
0055 00d8 | | Load_Top At_Offset_0
0056 020f | | Execute Module,Activate
0057 00d8 | | Load_Top At_Offset_0
0058 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0059 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
005a 00c7 | | Action Elaborate_Subprogram
005b 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
005d 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
005e 00c7 | | Action Elaborate_Subprogram
005f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0060 00c7 | | Action Elaborate_Subprogram
0061 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0062 00c7 | | Action Elaborate_Subprogram
0063 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
0065 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call
0067 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call
0069 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call
006b 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
006d 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
006f 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
0071 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
0073 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
0075 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call
0077 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
0079 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call
007b 029b 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Unelaborated
007d 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
007e 00c7 | | Action Elaborate_Subprogram
007f 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0080 00c6 | | Action Check_Subprogram_Elaborated
0081 e009 | | Load 0x0,0x9
0082 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0083 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
0084 e00a | | Load 0x0,0xa
0085 e00b | | Load 0x0,0xb
0086 4800 |H | Short_Literal 0x0
0087 0007 | | Action Break_Optional
0088 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0089 00c6 | | Action Check_Subprogram_Elaborated
008a e009 | | Load 0x0,0x9
008b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
008c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
008d e00c | | Load 0x0,0xc
008e e00d | | Load 0x0,0xd
008f 4800 |H | Short_Literal 0x0
0090 0007 | | Action Break_Optional
0091 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0092 00c6 | | Action Check_Subprogram_Elaborated
0093 e009 | | Load 0x0,0x9
0094 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 e00e | | Load 0x0,0xe
0097 e00f | | Load 0x0,0xf
0098 4800 |H | Short_Literal 0x0
0099 0007 | | Action Break_Optional
009a 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
009b 00c6 | | Action Check_Subprogram_Elaborated
009c e009 | | Load 0x0,0x9
009d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
009e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009f e010 | | Load 0x0,0x10
00a0 e011 | | Load 0x0,0x11
00a1 4800 |H | Short_Literal 0x0
00a2 0007 | | Action Break_Optional
00a3 029b 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Unelaborated
00a5 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00a8 00c6 | | Action Check_Subprogram_Elaborated
00a9 e009 | | Load 0x0,0x9
00aa 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ab 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
00ac e009 | | Load 0x0,0x9
00ad 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ae 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
00af e012 | | Load 0x0,0x12
00b0 e013 | | Load 0x0,0x13
00b1 4800 |H | Short_Literal 0x0
00b2 0007 | | Action Break_Optional
00b3 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00b4 00c6 | | Action Check_Subprogram_Elaborated
00b5 e009 | | Load 0x0,0x9
00b6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b8 e009 | | Load 0x0,0x9
00b9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bb e014 | | Load 0x0,0x14
00bc e015 | | Load 0x0,0x15
00bd 4800 |H | Short_Literal 0x0
00be 0007 | | Action Break_Optional
00bf 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
00c0 00c6 | | Action Check_Subprogram_Elaborated
00c1 e009 | | Load 0x0,0x9
00c2 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00c3 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
00c4 e009 | | Load 0x0,0x9
00c5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00c6 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e
00c7 e016 | | Load 0x0,0x16
00c8 e017 | | Load 0x0,0x17
00c9 4800 |H | Short_Literal 0x0
00ca 0007 | | Action Break_Optional
00cb 029d 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call
00cd 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
00cf 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
00d1 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
00d3 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call
00d5 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call
00d7 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call
00d9 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call
00db 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
00dd 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
00df 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call
00e1 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call
00e3 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call
00e5 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call
00e7 029d 088b | | Declare_Subprogram INIT_0888,For_Outer_Call
00e9 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call
00eb 029d 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call
00ed 029d 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call
00ef 029d 0ae3 | | Declare_Subprogram INIT_0ae0,For_Outer_Call
00f1 029d 0bc3 | | Declare_Subprogram INIT_0bc0,For_Outer_Call
00f3 029d 0c2b | +| Declare_Subprogram INIT_0c28,For_Outer_Call
00f5 e018 | | Load 0x0,0x18
00f6 e019 | | Load 0x0,0x19
00f7 00e6 | | Load_Encached Float_Cache
00f8 e01a | | Load 0x0,0x1a
00f9 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
00fa 0387 | | Declare_Variable Package
00fb 00d8 | | Load_Top At_Offset_0
00fc 020f | | Execute Module,Activate
00fd 029d 0c3b | ;| Declare_Subprogram INIT_0c38,For_Outer_Call
00ff 029d 0c53 | S| Declare_Subprogram INIT_0c50,For_Outer_Call
0101 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0102 00c7 | | Action Elaborate_Subprogram
0103 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0104 00c7 | | Action Elaborate_Subprogram
0105 BODY_0008:
0105 e01b | | Load 0x0,0x1b
0106 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0107 e01c | | Load 0x0,0x1c
0108 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0109 a225 | % | Store_Unchecked 0x1,0x25
010a e229 | ) | Load 0x1,0x29
010b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
010c 4900 |I | Short_Literal 0x100
010d e225 | % | Load 0x1,0x25
010e e229 | ) | Load 0x1,0x29
010f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0110 c22a | * | Store 0x1,0x2a
0111 00bc | | Action Signal_Activated
0112 00bb | | Action Signal_Completion
0113 0000 0000 | | .BLANK 0000[0x5]
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 e227 | ' | Load 0x1,0x27
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 0cb3 | | Declare_Subprogram INIT_0cb0,For_Call
0132 029f 0cdb | | Declare_Subprogram INIT_0cd8,For_Call
0134 029f 0d2b | +| Declare_Subprogram INIT_0d28,For_Call
0136 029f 0d3b | ;| Declare_Subprogram INIT_0d38,For_Call
0138 BODY_0118:
0138 e227 | ' | Load 0x1,0x27
0139 1b12 | | Execute Package,Field_Read,Field_Number 0x12
013a 4900 |I | Short_Literal 0x100
013b e225 | % | Load 0x1,0x25
013c e227 | ' | Load 0x1,0x27
013d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
013e c402 | | Store 0x2,0x2
013f e22a | * | Load 0x1,0x2a
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 e229 | ) | Load 0x1,0x29
0145 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0146 c22a | * | Store 0x1,0x2a
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 1037 | 7| Action Push_String_Extended,0x1037 ; "Could not find all universal types in Standard"
0179 e01f | | Load 0x0,0x1f
017a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017b 840b | | Call 0x2,0xb
017c 840c | | Call 0x2,0xc
017d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017e TRAP_0118:
017e e020 | | Load 0x0,0x20
017f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0180 010f | | Execute Exception,Equal
0181 6808 |h | Jump_Zero 0x18a
0182 e01e | | Load 0x0,0x1e
0183 180e | | Execute Package,Field_Execute,Field_Number 0xe
0184 4806 |H | Short_Literal 0x6
0185 0092 1038 | 8| Action Push_String_Extended,0x1038 ; "Target not registered"
0187 e01f | | Load 0x0,0x1f
0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018a e229 | ) | Load 0x1,0x29
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 1039 | 9| Action Push_String_Extended,0x1039 ; "Multiply defined target"
0193 e01f | | Load 0x0,0x1f
0194 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0196 e009 | | Load 0x0,0x9
0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0198 010f | | Execute Exception,Equal
0199 6801 |h | Jump_Zero 0x19b
019a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019b 0100 | | Execute Exception,Raise
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a8 | | .CONST 0x01a8 ; Address of begin
01a1 01b3 | | .CONST 0x01b3 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e227 | ' | Load 0x1,0x27
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 e22a | * | Load 0x1,0x2a
01ab e229 | ) | Load 0x1,0x29
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 e227 | ' | Load 0x1,0x27
01b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b3 TRAP_01a0:
01b3 e227 | ' | Load 0x1,0x27
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 103a | :| Action Push_String_Extended,0x103a ; "Undefined type '"
01bc e5fe | | Load 0x2,-0x2
01bd 01cc | | Execute Vector,Catenate
01be 0092 103b | ;| Action Push_String_Extended,0x103b ; "' discovered in object checking."
01c0 01cc | | Execute Vector,Catenate
01c1 e01f | | Load 0x0,0x1f
01c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c3 00ec | | Load_Encached Diana_Tree_Cache
01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c5 e229 | ) | Load 0x1,0x29
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 103c | <| Action Push_String_Extended,0x103c ; "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 e22a | * | Load 0x1,0x2a
01dc 00db | | Load_Top At_Offset_3
01dd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01de e229 | ) | Load 0x1,0x29
01df 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e0 c22a | * | Store 0x1,0x2a
01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e2 TRAP_01d8:
01e2 e229 | ) | Load 0x1,0x29
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 103d | =| Action Push_String_Extended,0x103d ; "Target already undefined"
01eb e01f | | Load 0x0,0x1f
01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ee 0100 | | Execute Exception,Raise
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0215 | | .CONST 0x0215 ; Address of begin
01f1 023b | ; | .CONST 0x023b ; Address of exception handler
01f2 000a | | .CONST 0x000a ; Number of locals
01f3 INIT_01f0:
01f3 00ec | | Load_Encached Diana_Tree_Cache
01f4 02c7 | | Declare_Variable Any
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 00ec | | Load_Encached Diana_Tree_Cache
01f8 02c7 | | Declare_Variable Any
01f9 00d8 | | Load_Top At_Offset_0
01fa 1c00 | | Execute_Immediate Run_Utility,0x0
01fb 00e1 | | Load_Encached Boolean_Cache
01fc e5ff | | Load 0x2,-0x1
01fd e009 | | Load 0x0,0x9
01fe 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01ff 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0200 e009 | | Load 0x0,0x9
0201 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0202 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0203 02c7 | | Declare_Variable Any
0204 e5ff | | Load 0x2,-0x1
0205 e009 | | Load 0x0,0x9
0206 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0207 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0208 a406 | | Store_Unchecked 0x2,0x6
0209 e009 | | Load 0x0,0x9
020a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
020b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
020c 02c7 | | Declare_Variable Any
020d 00d8 | | Load_Top At_Offset_0
020e 1c00 | | Execute_Immediate Run_Utility,0x0
020f 00e1 | | Load_Encached Boolean_Cache
0210 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0211 00e1 | | Load_Encached Boolean_Cache
0212 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0213 029f 0d4b | K| Declare_Subprogram INIT_0d48,For_Call
0215 BODY_01f0:
0215 e405 | | Load 0x2,0x5
0216 e5fe | | Load 0x2,-0x2
0217 e001 | | Load 0x0,0x1
0218 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0219 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021b 8221 | ! | Call 0x1,0x21
021c c403 | | Store 0x2,0x3
021d 840a | | Call 0x2,0xa
021e e402 | | Load 0x2,0x2
021f 7003 |p | Jump_Nonzero 0x223
0220 4800 |H | Short_Literal 0x0
0221 a5fc | | Store_Unchecked 0x2,-0x4
0222 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0223 e406 | | Load 0x2,0x6
0224 e009 | | Load 0x0,0x9
0225 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0226 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0227 7003 |p | Jump_Nonzero 0x22b
0228 4801 |H | Short_Literal 0x1
0229 a5fc | | Store_Unchecked 0x2,-0x4
022a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
022b e406 | | Load 0x2,0x6
022c e009 | | Load 0x0,0x9
022d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
022e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
022f c407 | | Store 0x2,0x7
0230 00e1 | | Load_Encached Boolean_Cache
0231 e5fe | | Load 0x2,-0x2
0232 e407 | | Load 0x2,0x7
0233 e5fd | | Load 0x2,-0x3
0234 8270 | p | Call 0x1,0x70
0235 005a | Z | Store_Top Discrete,At_Offset_2
0236 00d9 | | Load_Top At_Offset_1
0237 00db | | Load_Top At_Offset_3
0238 0279 | y | Execute Discrete,And
0239 a5fc | | Store_Unchecked 0x2,-0x4
023a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
023b TRAP_01f0:
023b e009 | | Load 0x0,0x9
023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023d 010f | | Execute Exception,Equal
023e 7004 |p | Jump_Nonzero 0x243
023f e020 | | Load 0x0,0x20
0240 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0241 010f | | Execute Exception,Equal
0242 6802 |h | Jump_Zero 0x245
0243 00d8 | | Load_Top At_Offset_0
0244 0101 | | Execute Exception,Reraise
0245 0092 103e | >| Action Push_String_Extended,0x103e ; " 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 822d | - | Call 0x1,0x2d
024f 4800 |H | Short_Literal 0x0
0250 a5fc | | Store_Unchecked 0x2,-0x4
0251 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0269 | i | .CONST 0x0269 ; Address of begin
0259 0315 | | .CONST 0x0315 ; Address of exception handler
025a 0006 | | .CONST 0x0006 ; Number of locals
025b INIT_0258:
025b e224 | $ | Load 0x1,0x24
025c 0007 | | Action Break_Optional
025d 00f1 | | Load_Encached Diana_Temp_Seq
025e 02c7 | | Declare_Variable Any
025f 00d8 | | Load_Top At_Offset_0
0260 1c00 | | Execute_Immediate Run_Utility,0x0
0261 00e1 | | Load_Encached Boolean_Cache
0262 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0263 00e1 | | Load_Encached Boolean_Cache
0264 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0265 00ec | | Load_Encached Diana_Tree_Cache
0266 02c7 | | Declare_Variable Any
0267 00d8 | | Load_Top At_Offset_0
0268 1c00 | | Execute_Immediate Run_Utility,0x0
0269 BODY_0258:
0269 e5f9 | | Load 0x2,-0x7
026a 0145 | E | Execute Heap_Access,Diana_Tree_Kind
026b 0f0b | | Execute_Immediate Equal,0xb
026c 6805 |h | Jump_Zero 0x272
026d e5f9 | | Load 0x2,-0x7
026e 4816 |H | Short_Literal 0x16
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 826d | m | Call 0x1,0x6d
0282 005b | [ | Store_Top Discrete,At_Offset_3
0283 00da | | Load_Top At_Offset_2
0284 6803 |h | Jump_Zero 0x288
0285 4801 |H | Short_Literal 0x1
0286 a5f7 | | Store_Unchecked 0x2,-0x9
0287 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0288 00db | | Load_Top At_Offset_3
0289 0120 | | Execute Any,Is_Value
028a 6802 |h | Jump_Zero 0x28d
028b 00f1 | | Load_Encached Diana_Temp_Seq
028c 7801 |x | Jump 0x28e
028d 00db | | Load_Top At_Offset_3
028e e224 | $ | Load 0x1,0x24
028f e5f9 | | Load 0x2,-0x7
0290 e5fb | | Load 0x2,-0x5
0291 8260 | ` | Call 0x1,0x60
0292 c5f9 | | Store 0x2,-0x7
0293 c402 | | Store 0x2,0x2
0294 c403 | | Store 0x2,0x3
0295 e402 | | Load 0x2,0x2
0296 4603 |F | Jump_Case 0x4
0297 7861 |xa | Jump 0x2f9 ; case 0x0
0298 781c |x | Jump 0x2b5 ; case 0x1
0299 7833 |x3 | Jump 0x2cd ; case 0x2
029a 7800 |x | Jump 0x29b ; case 0x3
029b e5ff | | Load 0x2,-0x1
029c e009 | | Load 0x0,0x9
029d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
029e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
029f 012f | / | Execute Any,Equal
02a0 6805 |h | Jump_Zero 0x2a6
02a1 4801 |H | Short_Literal 0x1
02a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02a3 4800 |H | Short_Literal 0x0
02a4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02a5 785c |x\ | Jump 0x302
02a6 00e1 | | Load_Encached Boolean_Cache
02a7 00e1 | | Load_Encached Boolean_Cache
02a8 00da | | Load_Top At_Offset_2
02a9 e5fb | | Load 0x2,-0x5
02aa 4801 |H | Short_Literal 0x1
02ab 4800 |H | Short_Literal 0x0
02ac e403 | | Load 0x2,0x3
02ad 0217 | | Execute Heap_Access,All_Reference
02ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02af e5ff | | Load 0x2,-0x1
02b0 8268 | h | Call 0x1,0x68
02b1 c406 | | Store 0x2,0x6
02b2 005b | [ | Store_Top Discrete,At_Offset_3
02b3 005b | [ | Store_Top Discrete,At_Offset_3
02b4 784d |xM | Jump 0x302
02b5 e5fd | | Load 0x2,-0x3
02b6 e009 | | Load 0x0,0x9
02b7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02b8 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
02b9 012f | / | Execute Any,Equal
02ba 6805 |h | Jump_Zero 0x2c0
02bb 4801 |H | Short_Literal 0x1
02bc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02bd 4800 |H | Short_Literal 0x0
02be 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02bf 7842 |xB | Jump 0x302
02c0 00e1 | | Load_Encached Boolean_Cache
02c1 00e1 | | Load_Encached Boolean_Cache
02c2 00da | | Load_Top At_Offset_2
02c3 e5fb | | Load 0x2,-0x5
02c4 e403 | | Load 0x2,0x3
02c5 0217 | | Execute Heap_Access,All_Reference
02c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c7 e5fd | | Load 0x2,-0x3
02c8 826a | j | Call 0x1,0x6a
02c9 c406 | | Store 0x2,0x6
02ca 005b | [ | Store_Top Discrete,At_Offset_3
02cb 005b | [ | Store_Top Discrete,At_Offset_3
02cc 7835 |x5 | Jump 0x302
02cd e5fe | | Load 0x2,-0x2
02ce e009 | | Load 0x0,0x9
02cf 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02d0 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
02d1 012f | / | Execute Any,Equal
02d2 6805 |h | Jump_Zero 0x2d8
02d3 4801 |H | Short_Literal 0x1
02d4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02d5 4800 |H | Short_Literal 0x0
02d6 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02d7 782a |x* | Jump 0x302
02d8 00e1 | | Load_Encached Boolean_Cache
02d9 00e1 | | Load_Encached Boolean_Cache
02da e403 | | Load 0x2,0x3
02db 00db | | Load_Top At_Offset_3
02dc e5fb | | Load 0x2,-0x5
02dd e5fe | | Load 0x2,-0x2
02de 826c | l | Call 0x1,0x6c
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 103f | ?| Action Push_String_Extended,0x103f ; " is ambiguous"
02f5 e5f9 | | Load 0x2,-0x7
02f6 e5fb | | Load 0x2,-0x5
02f7 822d | - | Call 0x1,0x2d
02f8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02f9 0092 1040 | @| Action Push_String_Extended,0x1040 ; " is not a defined operator or identifier"
02fb 00d9 | | Load_Top At_Offset_1
02fc e5fb | | Load 0x2,-0x5
02fd 822d | - | Call 0x1,0x2d
02fe 4801 |H | Short_Literal 0x1
02ff 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0300 4800 |H | Short_Literal 0x0
0301 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0302 00d9 | | Load_Top At_Offset_1
0303 680c |h | Jump_Zero 0x310
0304 0092 1041 | A| Action Push_String_Extended,0x1041 ; " 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 825d | ] | Call 0x1,0x5d
030c 01cc | | Execute Vector,Catenate
030d 00d9 | | Load_Top At_Offset_1
030e e5fb | | Load 0x2,-0x5
030f 822d | - | Call 0x1,0x2d
0310 00db | | Load_Top At_Offset_3
0311 c5f8 | | Store 0x2,-0x8
0312 00da | | Load_Top At_Offset_2
0313 a5f7 | | Store_Unchecked 0x2,-0x9
0314 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0315 TRAP_0258:
0315 e009 | | Load 0x0,0x9
0316 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0317 010f | | Execute Exception,Equal
0318 6802 |h | Jump_Zero 0x31b
0319 00d8 | | Load_Top At_Offset_0
031a 0101 | | Execute Exception,Reraise
031b 0092 103e | >| Action Push_String_Extended,0x103e ; " 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 822d | - | Call 0x1,0x2d
0325 00f1 | | Load_Encached Diana_Temp_Seq
0326 c5f8 | | Store 0x2,-0x8
0327 4800 |H | Short_Literal 0x0
0328 a5f7 | | Store_Unchecked 0x2,-0x9
0329 4507 |E | Exit_Suprogram New_Top_Offset 0x7
032a 0000 0000 | | .BLANK 0000[0x6]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 4607 |F | Jump_Case 0x8
0334 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0335 7806 |x | Jump 0x33c ; case 0x1
0336 7809 |x | Jump 0x340 ; case 0x2
0337 780d |x | Jump 0x345 ; case 0x3
0338 7810 |x | Jump 0x349 ; case 0x4
0339 7811 |x | Jump 0x34b ; case 0x5
033a 7812 |x | Jump 0x34d ; case 0x6
033b 7815 |x | Jump 0x351 ; case 0x7
033c 00da | | Load_Top At_Offset_2
033d 0091 1033 | 3| Action Push_String_Extended_Indexed,0x1033 ; "UNDEFINED"
033f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0340 00db | | Load_Top At_Offset_3
0341 00db | | Load_Top At_Offset_3
0342 00e0 | | Load_Encached Standard_Cache
0343 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0344 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0345 00da | | Load_Top At_Offset_2
0346 00e0 | | Load_Encached Standard_Cache
0347 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0348 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0349 00db | | Load_Top At_Offset_3
034a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
034b 00db | | Load_Top At_Offset_3
034c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
034d e224 | $ | Load 0x1,0x24
034e 00dc | | Load_Top At_Offset_4
034f 0267 | g | Execute Discrete,Predecessor
0350 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0351 e224 | $ | Load 0x1,0x24
0352 00dc | | Load_Top At_Offset_4
0353 0268 | h | Execute Discrete,Successor
0354 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035d 0000 0000 | | .XXX[0x3]
035f 0000 | |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036a | j | .CONST 0x036a ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0003 | | .CONST 0x0003 ; Number of locals
0363 INIT_0360:
0363 00ec | | Load_Encached Diana_Tree_Cache
0364 02c7 | | Declare_Variable Any
0365 00d8 | | Load_Top At_Offset_0
0366 1c00 | | Execute_Immediate Run_Utility,0x0
0367 e024 | $ | Load 0x0,0x24
0368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0369 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036a BODY_0360:
036a e024 | $ | Load 0x0,0x24
036b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
036c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036d 00da | | Load_Top At_Offset_2
036e 0120 | | Execute Any,Is_Value
036f 6803 |h | Jump_Zero 0x373
0370 e024 | $ | Load 0x0,0x24
0371 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0372 7801 |x | Jump 0x374
0373 00da | | Load_Top At_Offset_2
0374 6047 |`G | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00004000}
0375 e025 | % | Load 0x0,0x25
0376 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0377 e5ff | | Load 0x2,-0x1
0378 e01d | | Load 0x0,0x1d
0379 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
037a 0092 1042 | B| Action Push_String_Extended,0x1042 ; "[]`"
037c e5fe | | Load 0x2,-0x2
037d 01cc | | Execute Vector,Catenate
037e e024 | $ | Load 0x0,0x24
037f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0380 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0381 c402 | | Store 0x2,0x2
0382 0059 | Y | Store_Top Discrete,At_Offset_1
0383 00d8 | | Load_Top At_Offset_0
0384 7002 |p | Jump_Nonzero 0x387
0385 00d9 | | Load_Top At_Offset_1
0386 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0387 e024 | $ | Load 0x0,0x24
0388 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0389 1b0f | | Execute Package,Field_Read,Field_Number 0xf
038a 00da | | Load_Top At_Offset_2
038b 0120 | | Execute Any,Is_Value
038c 6803 |h | Jump_Zero 0x390
038d e024 | $ | Load 0x0,0x24
038e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038f 7801 |x | Jump 0x391
0390 00da | | Load_Top At_Offset_2
0391 602a |`* | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00004000}
0392 e025 | % | Load 0x0,0x25
0393 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0394 e5ff | | Load 0x2,-0x1
0395 e01d | | Load 0x0,0x1d
0396 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0397 0092 1043 | C| Action Push_String_Extended,0x1043 ; "`"
0399 e5fe | | Load 0x2,-0x2
039a 01cc | | Execute Vector,Catenate
039b e024 | $ | Load 0x0,0x24
039c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
039d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
039e c402 | | Store 0x2,0x2
039f 0059 | Y | Store_Top Discrete,At_Offset_1
03a0 00d8 | | Load_Top At_Offset_0
03a1 7002 |p | Jump_Nonzero 0x3a4
03a2 00d9 | | Load_Top At_Offset_1
03a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a4 e01e | | Load 0x0,0x1e
03a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a6 4802 |H | Short_Literal 0x2
03a7 0092 1044 | D| Action Push_String_Extended,0x1044 ; "Name resolution failure for type '"
03a9 e5fe | | Load 0x2,-0x2
03aa 01cc | | Execute Vector,Catenate
03ab 0092 1045 | E| Action Push_String_Extended,0x1045 ; "': "
03ad 01cc | | Execute Vector,Catenate
03ae 00db | | Load_Top At_Offset_3
03af e024 | $ | Load 0x0,0x24
03b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b2 011c | | Execute Any,Convert_Unchecked
03b3 1c01 | | Execute_Immediate Run_Utility,0x1
03b4 01cc | | Execute Vector,Catenate
03b5 e01f | | Load 0x0,0x1f
03b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b7 00ec | | Load_Encached Diana_Tree_Cache
03b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03b9 0000 0000 | | .XXX[0x3]
03bb 0000 | |
03bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00db | | Load_Top At_Offset_3
03c4 6808 |h | Jump_Zero 0x3cd
03c5 00ea | | Load_Encached Null_String_Cache
03c6 e5fd | | Load 0x2,-0x3
03c7 e5fe | | Load 0x2,-0x2
03c8 e5ff | | Load 0x2,-0x1
03c9 e001 | | Load 0x0,0x1
03ca 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03cb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03cc 180f | | Execute Package,Field_Execute,Field_Number 0xf
03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ce 0000 0000 | | .XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00db | | Load_Top At_Offset_3
03d4 6808 |h | Jump_Zero 0x3dd
03d5 00ea | | Load_Encached Null_String_Cache
03d6 e5fd | | Load 0x2,-0x3
03d7 e5fe | | Load 0x2,-0x2
03d8 e5ff | | Load 0x2,-0x1
03d9 e001 | | Load 0x0,0x1
03da 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03db 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03dd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03de 0000 0000 | | .XXX[0x2]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00db | | Load_Top At_Offset_3
03e4 6809 |h | Jump_Zero 0x3ee
03e5 00ea | | Load_Encached Null_String_Cache
03e6 e5fc | | Load 0x2,-0x4
03e7 e5fd | | Load 0x2,-0x3
03e8 e5fe | | Load 0x2,-0x2
03e9 e5ff | | Load 0x2,-0x1
03ea e001 | | Load 0x0,0x1
03eb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03ed 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03ee 4505 |E | Exit_Suprogram New_Top_Offset 0x5
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 0092 1046 | F| Action Push_String_Extended,0x1046 ; " is an unexpected node"
03f5 e5fe | | Load 0x2,-0x2
03f6 e5ff | | Load 0x2,-0x1
03f7 822d | - | Call 0x1,0x2d
03f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f9 0000 0000 | | .BLANK 0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 e5fd | | Load 0x2,-0x3
0404 0092 1047 | G| Action Push_String_Extended,0x1047 ; " led to unexpected node "
0406 e5fe | | Load 0x2,-0x2
0407 e5ff | | Load 0x2,-0x1
0408 822e | . | Call 0x1,0x2e
0409 4504 |E | Exit_Suprogram New_Top_Offset 0x4
040a 0000 0000 | | .BLANK 0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 e009 | | Load 0x0,0x9
0415 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0416 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0417 6804 |h | Jump_Zero 0x41c
0418 e009 | | Load 0x0,0x9
0419 1b12 | | Execute Package,Field_Read,Field_Number 0x12
041a 1b42 | B | Execute Package,Field_Read,Field_Number 0x42
041b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
041c 00da | | Load_Top At_Offset_2
041d e009 | | Load 0x0,0x9
041e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
041f 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0420 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0421 0000 0000 | | .BLANK 0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c e009 | | Load 0x0,0x9
042d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
042e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
042f 6804 |h | Jump_Zero 0x434
0430 e009 | | Load 0x0,0x9
0431 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0432 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0433 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0434 00da | | Load_Top At_Offset_2
0435 e009 | | Load 0x0,0x9
0436 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0437 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0438 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0439 0000 0000 | | .BLANK 0000[0x7]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 e009 | | Load 0x0,0x9
0445 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0446 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0447 6806 |h | Jump_Zero 0x44e
0448 e009 | | Load 0x0,0x9
0449 1b12 | | Execute Package,Field_Read,Field_Number 0x12
044a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
044b 0335 | 5 | Declare_Variable Array,Duplicate
044c 00cd | | Action Spare6_Action
044d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044e 00da | | Load_Top At_Offset_2
044f e009 | | Load 0x0,0x9
0450 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0451 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0452 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0453 0000 0000 | | .BLANK 0000[0x5]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c e009 | | Load 0x0,0x9
045d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
045e 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
045f 6804 |h | Jump_Zero 0x464
0460 e009 | | Load 0x0,0x9
0461 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0462 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0463 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0464 00da | | Load_Top At_Offset_2
0465 e009 | | Load 0x0,0x9
0466 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0467 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0468 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0469 0000 0000 | | .BLANK 0000[0x7]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 4603 |F | Jump_Case 0x4
0475 7806 |x | Jump 0x47c ; case 0x0
0476 7808 |x | Jump 0x47f ; case 0x1
0477 780a |x | Jump 0x482 ; case 0x2
0478 7800 |x | Jump 0x479 ; case 0x3
0479 0092 1048 | H| Action Push_String_Extended,0x1048 ; "type"
047b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047c 0092 1049 | I| Action Push_String_Extended,0x1049 ; "Undefined"
047e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047f 0092 104a | J| Action Push_String_Extended,0x104a ; "object"
0481 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0482 0092 104b | K| Action Push_String_Extended,0x104b ; "miscellanoues name"
0484 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 00da | | Load_Top At_Offset_2
048c 01dd | | Execute Vector,First
048d 00db | | Load_Top At_Offset_3
048e 01d7 | | Execute Vector,Field_Read
048f e021 | ! | Load 0x0,0x21
0490 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0491 00d8 | | Load_Top At_Offset_0
0492 0d61 | a | Execute_Immediate Less,0x61
0493 7026 |p& | Jump_Nonzero 0x4ba
0494 0a9f | | Execute_Immediate Plus,-0x61
0495 461e |F | Jump_Case 0x1f
0496 7825 |x% | Jump 0x4bc ; case 0x0
0497 781d |x | Jump 0x4b5 ; case 0x1
0498 781c |x | Jump 0x4b5 ; case 0x2
0499 781b |x | Jump 0x4b5 ; case 0x3
049a 7821 |x! | Jump 0x4bc ; case 0x4
049b 7819 |x | Jump 0x4b5 ; case 0x5
049c 7818 |x | Jump 0x4b5 ; case 0x6
049d 7817 |x | Jump 0x4b5 ; case 0x7
049e 781d |x | Jump 0x4bc ; case 0x8
049f 7815 |x | Jump 0x4b5 ; case 0x9
04a0 7814 |x | Jump 0x4b5 ; case 0xa
04a1 7813 |x | Jump 0x4b5 ; case 0xb
04a2 7812 |x | Jump 0x4b5 ; case 0xc
04a3 7811 |x | Jump 0x4b5 ; case 0xd
04a4 7817 |x | Jump 0x4bc ; case 0xe
04a5 780f |x | Jump 0x4b5 ; case 0xf
04a6 780e |x | Jump 0x4b5 ; case 0x10
04a7 780d |x | Jump 0x4b5 ; case 0x11
04a8 780c |x | Jump 0x4b5 ; case 0x12
04a9 780b |x | Jump 0x4b5 ; case 0x13
04aa 7811 |x | Jump 0x4bc ; case 0x14
04ab 7809 |x | Jump 0x4b5 ; case 0x15
04ac 7808 |x | Jump 0x4b5 ; case 0x16
04ad 7807 |x | Jump 0x4b5 ; case 0x17
04ae 7806 |x | Jump 0x4b5 ; case 0x18
04af 7805 |x | Jump 0x4b5 ; case 0x19
04b0 7804 |x | Jump 0x4b5 ; case 0x1a
04b1 7803 |x | Jump 0x4b5 ; case 0x1b
04b2 7802 |x | Jump 0x4b5 ; case 0x1c
04b3 7801 |x | Jump 0x4b5 ; case 0x1d
04b4 7800 |x | Jump 0x4b5 ; case 0x1e
04b5 0092 104c | L| Action Push_String_Extended,0x104c ; "a "
04b7 00db | | Load_Top At_Offset_3
04b8 01cc | | Execute Vector,Catenate
04b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ba 00d1 | | Pop_Control Pop_Count_1
04bb 7ff9 | | Jump 0x4b5
04bc 0092 104d | M| Action Push_String_Extended,0x104d ; "an "
04be 00db | | Load_Top At_Offset_3
04bf 01cc | | Execute Vector,Catenate
04c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c1 0000 0000 | | .BLANK 0000[0x7]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d3 | | .CONST 0x04d3 ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0004 | | .CONST 0x0004 ; Number of locals
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 01dd | | Execute Vector,First
04cd 00e3 | | Load_Encached Natural_Cache
04ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
04cf 00e3 | | Load_Encached Natural_Cache
04d0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04d1 029f 0d63 | c| Declare_Subprogram INIT_0d60,For_Call
04d3 BODY_04c8:
04d3 00cf | | Action Mark_Auxiliary
04d4 4800 |H | Short_Literal 0x0
04d5 e402 | | Load 0x2,0x2
04d6 0a01 | | Execute_Immediate Plus,0x1
04d7 00d8 | | Load_Top At_Offset_0
04d8 00e2 | | Load_Encached Integer_Cache
04d9 0260 | ` | Execute Discrete,In_Type
04da 7001 |p | Jump_Nonzero 0x4dc
04db 0801 | | Execute_Immediate Raise,0x1
04dc e5ff | | Load 0x2,-0x1
04dd 01dc | | Execute Vector,Last
04de e5ff | | Load 0x2,-0x1
04df 01cf | | Execute Vector,Slice_Read
04e0 482c |H, | Short_Literal 0x2c
04e1 e021 | ! | Load 0x0,0x21
04e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04e3 a402 | | Store_Unchecked 0x2,0x2
04e4 00db | | Load_Top At_Offset_3
04e5 6805 |h | Jump_Zero 0x4eb
04e6 00da | | Load_Top At_Offset_2
04e7 0a01 | | Execute_Immediate Plus,0x1
04e8 005b | [ | Store_Top Discrete,At_Offset_3
04e9 00c9 | | Action Pop_Auxiliary_Loop
04ea 7fe9 | | Jump 0x4d4
04eb 00ce | | Action Pop_Auxiliary
04ec 00d9 | | Load_Top At_Offset_1
04ed 7002 |p | Jump_Nonzero 0x4f0
04ee 00ea | | Load_Encached Null_String_Cache
04ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f0 00d9 | | Load_Top At_Offset_1
04f1 0f01 | | Execute_Immediate Equal,0x1
04f2 680d |h | Jump_Zero 0x500
04f3 e5ff | | Load 0x2,-0x1
04f4 01dd | | Execute Vector,First
04f5 e5ff | | Load 0x2,-0x1
04f6 01dc | | Execute Vector,Last
04f7 0afe | | Execute_Immediate Plus,-0x2
04f8 00d8 | | Load_Top At_Offset_0
04f9 00e2 | | Load_Encached Integer_Cache
04fa 0260 | ` | Execute Discrete,In_Type
04fb 7001 |p | Jump_Nonzero 0x4fd
04fc 0801 | | Execute_Immediate Raise,0x1
04fd e5ff | | Load 0x2,-0x1
04fe 01cf | | Execute Vector,Slice_Read
04ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0500 4800 |H | Short_Literal 0x0
0501 e5ff | | Load 0x2,-0x1
0502 482c |H, | Short_Literal 0x2c
0503 e021 | ! | Load 0x0,0x21
0504 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0505 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0506 4800 |H | Short_Literal 0x0
0507 e5ff | | Load 0x2,-0x1
0508 01dd | | Execute Vector,First
0509 e402 | | Load 0x2,0x2
050a 0aff | | Execute_Immediate Plus,-0x1
050b e5ff | | Load 0x2,-0x1
050c 01cf | | Execute Vector,Slice_Read
050d 482c |H, | Short_Literal 0x2c
050e e021 | ! | Load 0x0,0x21
050f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0510 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0511 8404 | | Call 0x2,0x4
0512 0831 | 1 | Execute_Immediate Raise,0x31
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0528 | ( | .CONST 0x0528 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0003 | | .CONST 0x0003 ; Number of locals
051b INIT_0518:
051b e5fd | | Load 0x2,-0x3
051c e5fe | | Load 0x2,-0x2
051d 0122 | " | Execute Any,Make_Root_Type
051e 011c | | Execute Any,Convert_Unchecked
051f 1c01 | | Execute_Immediate Run_Utility,0x1
0520 00d8 | | Load_Top At_Offset_0
0521 01da | | Execute Vector,Bounds
0522 00e9 | | Load_Encached String_Cache
0523 035b | [ | Declare_Type Array,Constrained
0524 0337 | 7 | Declare_Variable Array
0525 00d9 | | Load_Top At_Offset_1
0526 00d9 | | Load_Top At_Offset_1
0527 01d4 | | Execute Vector,Structure_Write
0528 BODY_0518:
0528 00cf | | Action Mark_Auxiliary
0529 00d9 | | Load_Top At_Offset_1
052a 01d9 | | Execute Vector,Reverse_Bounds
052b 0263 | c | Execute Discrete,Above_Bound
052c 700b |p | Jump_Nonzero 0x538
052d 00d8 | | Load_Top At_Offset_0
052e e403 | | Load 0x2,0x3
052f 01d7 | | Execute Vector,Field_Read
0530 0f5f | _ | Execute_Immediate Equal,0x5f
0531 6804 |h | Jump_Zero 0x536
0532 4820 |H | Short_Literal 0x20
0533 00d9 | | Load_Top At_Offset_1
0534 e403 | | Load 0x2,0x3
0535 01d6 | | Execute Vector,Field_Write
0536 00c8 | | Action Pop_Auxiliary_Range
0537 3ff5 |? | Loop_Increasing 0x52d
0538 00ce | | Action Pop_Auxiliary
0539 4801 |H | Short_Literal 0x1
053a 0092 104e | N| Action Push_String_Extended,0x104e ; " Kind"
053c 00da | | Load_Top At_Offset_2
053d 01dc | | Execute Vector,Last
053e 0afc | | Execute_Immediate Plus,-0x4
053f 00d8 | | Load_Top At_Offset_0
0540 00e2 | | Load_Encached Integer_Cache
0541 0260 | ` | Execute Discrete,In_Type
0542 7001 |p | Jump_Nonzero 0x544
0543 0801 | | Execute_Immediate Raise,0x1
0544 00db | | Load_Top At_Offset_3
0545 01dc | | Execute Vector,Last
0546 e403 | | Load 0x2,0x3
0547 01cf | | Execute Vector,Slice_Read
0548 e021 | ! | Load 0x0,0x21
0549 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
054a 680f |h | Jump_Zero 0x55a
054b 00d8 | | Load_Top At_Offset_0
054c 01dd | | Execute Vector,First
054d 00d9 | | Load_Top At_Offset_1
054e 01dc | | Execute Vector,Last
054f 0afb | | Execute_Immediate Plus,-0x5
0550 00d8 | | Load_Top At_Offset_0
0551 00e2 | | Load_Encached Integer_Cache
0552 0260 | ` | Execute Discrete,In_Type
0553 7001 |p | Jump_Nonzero 0x555
0554 0801 | | Execute_Immediate Raise,0x1
0555 00da | | Load_Top At_Offset_2
0556 01cf | | Execute Vector,Slice_Read
0557 00e9 | | Load_Encached String_Cache
0558 01c6 | | Execute Vector,Convert_To_Formal
0559 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
055a 00d8 | | Load_Top At_Offset_0
055b 00e9 | | Load_Encached String_Cache
055c 01c6 | | Execute Vector,Convert_To_Formal
055d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
055e 0000 0000 | | .XXX[0x2]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0569 | i | .CONST 0x0569 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0005 | | .CONST 0x0005 ; Number of locals
0563 INIT_0560:
0563 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
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 8238 | 8 | Call 0x1,0x38
0583 8236 | 6 | Call 0x1,0x36
0584 0092 104f | O| Action Push_String_Extended,0x104f ; ", "
0586 01cc | | Execute Vector,Catenate
0587 00e9 | | Load_Encached String_Cache
0588 01c6 | | Execute Vector,Convert_To_Formal
0589 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
058a 00d8 | | Load_Top At_Offset_0
058b 00d8 | | Load_Top At_Offset_0
058c e5fd | | Load 0x2,-0x3
058d 0260 | ` | Execute Discrete,In_Type
058e 7001 |p | Jump_Nonzero 0x590
058f 0801 | | Execute_Immediate Raise,0x1
0590 e402 | | Load 0x2,0x2
0591 4803 |H | Short_Literal 0x3
0592 4802 |H | Short_Literal 0x2
0593 0099 | | Action Reference_Dynamic
0594 8238 | 8 | Call 0x1,0x38
0595 8236 | 6 | Call 0x1,0x36
0596 0092 104f | O| Action Push_String_Extended,0x104f ; ", "
0598 01cc | | Execute Vector,Catenate
0599 e5fb | | Load 0x2,-0x5
059a e5fe | | Load 0x2,-0x2
059b 01c3 | | Execute Vector,Check_In_Type
059c e5fd | | Load 0x2,-0x3
059d 0122 | " | Execute Any,Make_Root_Type
059e 00db | | Load_Top At_Offset_3
059f 0268 | h | Execute Discrete,Successor
05a0 00d8 | | Load_Top At_Offset_0
05a1 e5fd | | Load 0x2,-0x3
05a2 0260 | ` | Execute Discrete,In_Type
05a3 7001 |p | Jump_Nonzero 0x5a5
05a4 0801 | | Execute_Immediate Raise,0x1
05a5 e5fd | | Load 0x2,-0x3
05a6 e5fe | | Load 0x2,-0x2
05a7 4fff |O | Short_Literal -0x1
05a8 4802 |H | Short_Literal 0x2
05a9 0099 | | Action Reference_Dynamic
05aa 8249 | I | Call 0x1,0x49
05ab 01cc | | Execute Vector,Catenate
05ac 00e9 | | Load_Encached String_Cache
05ad 01c6 | | Execute Vector,Convert_To_Formal
05ae 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
05af 00c8 | | Action Pop_Auxiliary_Range
05b0 3fbe |? | Loop_Increasing 0x56f
05b1 00ce | | Action Pop_Auxiliary
05b2 00ea | | Load_Encached Null_String_Cache
05b3 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
05b4 0000 0000 | | .BLANK 0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00db | | Load_Top At_Offset_3
05bc e009 | | Load 0x0,0x9
05bd 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05be 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
05bf 6802 |h | Jump_Zero 0x5c2
05c0 00ea | | Load_Encached Null_String_Cache
05c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c2 00db | | Load_Top At_Offset_3
05c3 e009 | | Load 0x0,0x9
05c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05c5 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
05c6 4800 |H | Short_Literal 0x0
05c7 e24a | J | Load 0x1,0x4a
05c8 e24b | K | Load 0x1,0x4b
05c9 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
05ca 8249 | I | Call 0x1,0x49
05cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05cc 0000 0000 | | .BLANK 0000[0x4]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d7 | | .CONST 0x05d7 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0003 | | .CONST 0x0003 ; Number of locals
05d3 INIT_05d0:
05d3 029f 0d8b | | Declare_Subprogram INIT_0d88,For_Call
05d5 029f 0da3 | | Declare_Subprogram INIT_0da0,For_Call
05d7 BODY_05d0:
05d7 e5fe | | Load 0x2,-0x2
05d8 e009 | | Load 0x0,0x9
05d9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05da 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05db 6802 |h | Jump_Zero 0x5de
05dc 00ea | | Load_Encached Null_String_Cache
05dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05de e5ff | | Load 0x2,-0x1
05df 0e03 | | Execute_Immediate Not_Equal,0x3
05e0 6803 |h | Jump_Zero 0x5e4
05e1 0092 1050 | P| Action Push_String_Extended,0x1050 ; "a type, "
05e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e4 e5fe | | Load 0x2,-0x2
05e5 e009 | | Load 0x0,0x9
05e6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
05e8 8403 | | Call 0x2,0x3
05e9 e5fe | | Load 0x2,-0x2
05ea e009 | | Load 0x0,0x9
05eb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05ec 181f | | Execute Package,Field_Execute,Field_Number 0x1f
05ed 8402 | | Call 0x2,0x2
05ee 01cc | | Execute Vector,Catenate
05ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00db | | Load_Top At_Offset_3
05f4 e009 | | Load 0x0,0x9
05f5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05f6 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
05f7 6802 |h | Jump_Zero 0x5fa
05f8 00ea | | Load_Encached Null_String_Cache
05f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05fa 00da | | Load_Top At_Offset_2
05fb 0e01 | | Execute_Immediate Not_Equal,0x1
05fc 6803 |h | Jump_Zero 0x600
05fd 0092 1051 | Q| Action Push_String_Extended,0x1051 ; "an object, "
05ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0600 00db | | Load_Top At_Offset_3
0601 e009 | | Load 0x0,0x9
0602 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0603 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0604 4800 |H | Short_Literal 0x0
0605 e254 | T | Load 0x1,0x54
0606 e255 | U | Load 0x1,0x55
0607 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
0608 8249 | I | Call 0x1,0x49
0609 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
060a 0000 0000 | | .BLANK 0000[0x6]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613 | | .CONST 0x0613 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0001 | | .CONST 0x0001 ; Number of locals
0613 BODY_0610:
0613 INIT_0610:
0613 00da | | Load_Top At_Offset_2
0614 01db | | Execute Vector,Length
0615 7002 |p | Jump_Nonzero 0x618
0616 00ea | | Load_Encached Null_String_Cache
0617 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0618 0092 1052 | R| Action Push_String_Extended,0x1052 ; "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 1053 | S| Action Push_String_Extended,0x1053 ; "', "
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 825c | \ | Call 0x1,0x5c
0634 01cc | | Execute Vector,Catenate
0635 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0636 0000 0000 | | .XXX[0x2]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063d | = | .CONST 0x063d ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0002 | | .CONST 0x0002 ; Number of locals
063b INIT_0638:
063b 029f 0dcb | | Declare_Subprogram INIT_0dc8,For_Call
063d BODY_0638:
063d 8402 | | Call 0x2,0x2
063e 0831 | 1 | Execute_Immediate Raise,0x31
063f 0000 | | .XXX[0x1]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 00da | | Load_Top At_Offset_2
0644 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0645 00d8 | | Load_Top At_Offset_0
0646 481c |H | Short_Literal 0x1c
0647 4859 |HY | Short_Literal 0x59
0648 0262 | b | Execute Discrete,In_Range
0649 6846 |hF | Jump_Zero 0x690
064a 0ae4 | | Execute_Immediate Plus,-0x1c
064b 463d |F= | Jump_Case 0x3e
064c 783d |x= | Jump 0x68a ; case 0x0
064d 7840 |x@ | Jump 0x68e ; case 0x1
064e 783f |x? | Jump 0x68e ; case 0x2
064f 783a |x: | Jump 0x68a ; case 0x3
0650 7839 |x9 | Jump 0x68a ; case 0x4
0651 7838 |x8 | Jump 0x68a ; case 0x5
0652 7837 |x7 | Jump 0x68a ; case 0x6
0653 783a |x: | Jump 0x68e ; case 0x7
0654 7839 |x9 | Jump 0x68e ; case 0x8
0655 7838 |x8 | Jump 0x68e ; case 0x9
0656 7837 |x7 | Jump 0x68e ; case 0xa
0657 7832 |x2 | Jump 0x68a ; case 0xb
0658 7835 |x5 | Jump 0x68e ; case 0xc
0659 7830 |x0 | Jump 0x68a ; case 0xd
065a 7831 |x1 | Jump 0x68c ; case 0xe
065b 7830 |x0 | Jump 0x68c ; case 0xf
065c 782d |x- | Jump 0x68a ; case 0x10
065d 782e |x. | Jump 0x68c ; case 0x11
065e 782b |x+ | Jump 0x68a ; case 0x12
065f 782c |x, | Jump 0x68c ; case 0x13
0660 782d |x- | Jump 0x68e ; case 0x14
0661 7828 |x( | Jump 0x68a ; case 0x15
0662 782e |x. | Jump 0x691 ; case 0x16
0663 782d |x- | Jump 0x691 ; case 0x17
0664 782c |x, | Jump 0x691 ; case 0x18
0665 782b |x+ | Jump 0x691 ; case 0x19
0666 782a |x* | Jump 0x691 ; case 0x1a
0667 7829 |x) | Jump 0x691 ; case 0x1b
0668 7828 |x( | Jump 0x691 ; case 0x1c
0669 7827 |x' | Jump 0x691 ; case 0x1d
066a 7826 |x& | Jump 0x691 ; case 0x1e
066b 7825 |x% | Jump 0x691 ; case 0x1f
066c 7824 |x$ | Jump 0x691 ; case 0x20
066d 7823 |x# | Jump 0x691 ; case 0x21
066e 7822 |x" | Jump 0x691 ; case 0x22
066f 7821 |x! | Jump 0x691 ; case 0x23
0670 7820 |x | Jump 0x691 ; case 0x24
0671 781f |x | Jump 0x691 ; case 0x25
0672 781e |x | Jump 0x691 ; case 0x26
0673 781d |x | Jump 0x691 ; case 0x27
0674 781c |x | Jump 0x691 ; case 0x28
0675 781b |x | Jump 0x691 ; case 0x29
0676 781a |x | Jump 0x691 ; case 0x2a
0677 7819 |x | Jump 0x691 ; case 0x2b
0678 7818 |x | Jump 0x691 ; case 0x2c
0679 7817 |x | Jump 0x691 ; case 0x2d
067a 7816 |x | Jump 0x691 ; case 0x2e
067b 7815 |x | Jump 0x691 ; case 0x2f
067c 7814 |x | Jump 0x691 ; case 0x30
067d 7813 |x | Jump 0x691 ; case 0x31
067e 7812 |x | Jump 0x691 ; case 0x32
067f 7811 |x | Jump 0x691 ; case 0x33
0680 7810 |x | Jump 0x691 ; case 0x34
0681 780f |x | Jump 0x691 ; case 0x35
0682 780e |x | Jump 0x691 ; case 0x36
0683 780d |x | Jump 0x691 ; case 0x37
0684 780c |x | Jump 0x691 ; case 0x38
0685 780b |x | Jump 0x691 ; case 0x39
0686 780a |x | Jump 0x691 ; case 0x3a
0687 7809 |x | Jump 0x691 ; case 0x3b
0688 7808 |x | Jump 0x691 ; case 0x3c
0689 7800 |x | Jump 0x68a ; case 0x3d
068a 4802 |H | Short_Literal 0x2
068b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
068c 4803 |H | Short_Literal 0x3
068d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
068e 4801 |H | Short_Literal 0x1
068f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0690 00d1 | | Pop_Control Pop_Count_1
0691 4800 |H | Short_Literal 0x0
0692 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0693 0000 0000 | | .BLANK 0000[0x5]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06a1 | | .CONST 0x06a1 ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0003 | | .CONST 0x0003 ; Number of locals
069b INIT_0698:
069b 00f1 | | Load_Encached Diana_Temp_Seq
069c 02c7 | | Declare_Variable Any
069d 00d8 | | Load_Top At_Offset_0
069e 1c00 | | Execute_Immediate Run_Utility,0x0
069f 029f 0de3 | | Declare_Subprogram INIT_0de0,For_Call
06a1 BODY_0698:
06a1 e5fe | | Load 0x2,-0x2
06a2 e5ff | | Load 0x2,-0x1
06a3 e001 | | Load 0x0,0x1
06a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06a6 180d | | Execute Package,Field_Execute,Field_Number 0xd
06a7 c402 | | Store 0x2,0x2
06a8 00d9 | | Load_Top At_Offset_1
06a9 7001 |p | Jump_Nonzero 0x6ab
06aa 8403 | | Call 0x2,0x3
06ab 00d9 | | Load_Top At_Offset_1
06ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06ad 0000 0000 | | .XXX[0x3]
06af 0000 | |
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06bc | | .CONST 0x06bc ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0004 | | .CONST 0x0004 ; Number of locals
06b3 INIT_06b0:
06b3 00e3 | | Load_Encached Natural_Cache
06b4 00ec | | Load_Encached Diana_Tree_Cache
06b5 02c7 | | Declare_Variable Any
06b6 00d8 | | Load_Top At_Offset_0
06b7 1c00 | | Execute_Immediate Run_Utility,0x0
06b8 00f1 | | Load_Encached Diana_Temp_Seq
06b9 02c7 | | Declare_Variable Any
06ba 00d8 | | Load_Top At_Offset_0
06bb 1c00 | | Execute_Immediate Run_Utility,0x0
06bc BODY_06b0:
06bc 4800 |H | Short_Literal 0x0
06bd a5fd | | Store_Unchecked 0x2,-0x3
06be e5fe | | Load 0x2,-0x2
06bf 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06c0 e226 | & | Load 0x1,0x26
06c1 0260 | ` | Execute Discrete,In_Type
06c2 6807 |h | Jump_Zero 0x6ca
06c3 e5fe | | Load 0x2,-0x2
06c4 e5ff | | Load 0x2,-0x1
06c5 825f | _ | Call 0x1,0x5f
06c6 c404 | | Store 0x2,0x4
06c7 00d8 | | Load_Top At_Offset_0
06c8 c5fc | | Store 0x2,-0x4
06c9 7809 |x | Jump 0x6d3
06ca 00f1 | | Load_Encached Diana_Temp_Seq
06cb e5fe | | Load 0x2,-0x2
06cc 00eb | | Load_Encached Diana_Cache
06cd 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
06ce c5fc | | Store 0x2,-0x4
06cf e5fe | | Load 0x2,-0x2
06d0 825e | ^ | Call 0x1,0x5e
06d1 a5fd | | Store_Unchecked 0x2,-0x3
06d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06d3 e5fe | | Load 0x2,-0x2
06d4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
06d5 00d8 | | Load_Top At_Offset_0
06d6 0c18 | | Execute_Immediate Greater_Equal,0x18
06d7 702e |p. | Jump_Nonzero 0x706
06d8 4617 |F | Jump_Case 0x18
06d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
06da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
06db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
06dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
06dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4
06de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
06df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x6
06e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
06e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8
06e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
06e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xa
06e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb
06e5 7825 |x% | Jump 0x70b ; case 0xc
06e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xd
06e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe
06e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf
06e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10
06ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11
06eb 7805 |x | Jump 0x6f1 ; case 0x12
06ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13
06ed 781a |x | Jump 0x708 ; case 0x14
06ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x15
06ef 7801 |x | Jump 0x6f1 ; case 0x16
06f0 7800 |x | Jump 0x6f1 ; case 0x17
06f1 00d8 | | Load_Top At_Offset_0
06f2 4975 |Iu | Short_Literal 0x175
06f3 00eb | | Load_Encached Diana_Cache
06f4 0098 | | Execute Package,Field_Read_Dynamic
06f5 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
06f6 005b | [ | Store_Top Discrete,At_Offset_3
06f7 00da | | Load_Top At_Offset_2
06f8 7001 |p | Jump_Nonzero 0x6fa
06f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06fa 00da | | Load_Top At_Offset_2
06fb 0f01 | | Execute_Immediate Equal,0x1
06fc 6806 |h | Jump_Zero 0x703
06fd 00d8 | | Load_Top At_Offset_0
06fe 0217 | | Execute Heap_Access,All_Reference
06ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0700 825e | ^ | Call 0x1,0x5e
0701 a5fd | | Store_Unchecked 0x2,-0x3
0702 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0703 4802 |H | Short_Literal 0x2
0704 a5fd | | Store_Unchecked 0x2,-0x3
0705 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0706 00d1 | | Pop_Control Pop_Count_1
0707 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0708 4802 |H | Short_Literal 0x2
0709 a5fd | | Store_Unchecked 0x2,-0x3
070a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
070b 4802 |H | Short_Literal 0x2
070c a5fd | | Store_Unchecked 0x2,-0x3
070d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
070e 0000 0000 | | .XXX[0x2]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0717 | | .CONST 0x0717 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0003 | | .CONST 0x0003 ; Number of locals
0713 INIT_0710:
0713 029f 0e0b | | Declare_Subprogram INIT_0e08,For_Call
0715 029f 0e3b | ;| Declare_Subprogram INIT_0e38,For_Call
0717 BODY_0710:
0717 4801 |H | Short_Literal 0x1
0718 a5f8 | | Store_Unchecked 0x2,-0x8
0719 00cf | | Action Mark_Auxiliary
071a e5fc | | Load 0x2,-0x4
071b 01d9 | | Execute Vector,Reverse_Bounds
071c 0263 | c | Execute Discrete,Above_Bound
071d 7003 |p | Jump_Nonzero 0x721
071e 8402 | | Call 0x2,0x2
071f 00c8 | | Action Pop_Auxiliary_Range
0720 3ffd |? | Loop_Increasing 0x71e
0721 00c9 | | Action Pop_Auxiliary_Loop
0722 e5fb | | Load 0x2,-0x5
0723 01d9 | | Execute Vector,Reverse_Bounds
0724 0263 | c | Execute Discrete,Above_Bound
0725 7003 |p | Jump_Nonzero 0x729
0726 8403 | | Call 0x2,0x3
0727 00c8 | | Action Pop_Auxiliary_Range
0728 3ffd |? | Loop_Increasing 0x726
0729 4508 |E | Exit_Suprogram New_Top_Offset 0x8
072a 0000 0000 | | .BLANK 0000[0x6]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 e5fc | | Load 0x2,-0x4
0734 680e |h | Jump_Zero 0x743
0735 0092 1054 | T| Action Push_String_Extended,0x1054 ; " violates the '"
0737 e5fd | | Load 0x2,-0x3
0738 e245 | E | Load 0x1,0x45
0739 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
073a 8238 | 8 | Call 0x1,0x38
073b 01cc | | Execute Vector,Catenate
073c 0092 1055 | U| Action Push_String_Extended,0x1055 ; "' restriction"
073e 01cc | | Execute Vector,Catenate
073f 00db | | Load_Top At_Offset_3
0740 e5fb | | Load 0x2,-0x5
0741 822d | - | Call 0x1,0x2d
0742 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0743 0092 1056 | V| Action Push_String_Extended,0x1056 ; "'s type violates the '"
0745 e5fd | | Load 0x2,-0x3
0746 e245 | E | Load 0x1,0x45
0747 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
0748 8238 | 8 | Call 0x1,0x38
0749 01cc | | Execute Vector,Catenate
074a 0092 1055 | U| Action Push_String_Extended,0x1055 ; "' restriction"
074c 01cc | | Execute Vector,Catenate
074d 00db | | Load_Top At_Offset_3
074e e5fb | | Load 0x2,-0x5
074f 822d | - | Call 0x1,0x2d
0750 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0751 0000 0000 | | .BLANK 0000[0x7]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 0765 | e | .CONST 0x0765 ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0002 | | .CONST 0x0002 ; Number of locals
075b INIT_0758:
075b e009 | | Load 0x0,0x9
075c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
075d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
075e 0337 | 7 | Declare_Variable Array
075f 00db | | Load_Top At_Offset_3
0760 e009 | | Load 0x0,0x9
0761 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0762 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0763 00d9 | | Load_Top At_Offset_1
0764 01d4 | | Execute Vector,Structure_Write
0765 BODY_0758:
0765 e5fe | | Load 0x2,-0x2
0766 00d9 | | Load_Top At_Offset_1
0767 01d7 | | Execute Vector,Field_Read
0768 a5fd | | Store_Unchecked 0x2,-0x3
0769 4503 |E | Exit_Suprogram New_Top_Offset 0x3
076a 0000 0000 | | .BLANK 0000[0x6]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 4801 |H | Short_Literal 0x1
0774 a5fb | | Store_Unchecked 0x2,-0x5
0775 e5fd | | Load 0x2,-0x3
0776 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0777 00d8 | | Load_Top At_Offset_0
0778 0d64 | d | Execute_Immediate Less,0x64
0779 7053 |pS | Jump_Nonzero 0x7cd
077a 0a9c | | Execute_Immediate Plus,-0x64
077b 4649 |FI | Jump_Case 0x4a
077c 7864 |xd | Jump 0x7e1 ; case 0x0
077d 7869 |xi | Jump 0x7e7 ; case 0x1
077e 7847 |xG | Jump 0x7c6 ; case 0x2
077f 786d |xm | Jump 0x7ed ; case 0x3
0780 7872 |xr | Jump 0x7f3 ; case 0x4
0781 7877 |xw | Jump 0x7f9 ; case 0x5
0782 787c |x| | Jump 0x7ff ; case 0x6
0783 784b |xK | Jump 0x7cf ; case 0x7
0784 7850 |xP | Jump 0x7d5 ; case 0x8
0785 7840 |x@ | Jump 0x7c6 ; case 0x9
0786 7854 |xT | Jump 0x7db ; case 0xa
0787 787d |x} | Jump 0x805 ; case 0xb
0788 7882 |x | Jump 0x80b ; case 0xc
0789 7888 |x | Jump 0x812 ; case 0xd
078a 788e |x | Jump 0x819 ; case 0xe
078b 7893 |x | Jump 0x81f ; case 0xf
078c 7898 |x | Jump 0x825 ; case 0x10
078d 789d |x | Jump 0x82b ; case 0x11
078e 78a2 |x | Jump 0x831 ; case 0x12
078f 7836 |x6 | Jump 0x7c6 ; case 0x13
0790 7835 |x5 | Jump 0x7c6 ; case 0x14
0791 7834 |x4 | Jump 0x7c6 ; case 0x15
0792 7833 |x3 | Jump 0x7c6 ; case 0x16
0793 7832 |x2 | Jump 0x7c6 ; case 0x17
0794 7831 |x1 | Jump 0x7c6 ; case 0x18
0795 7830 |x0 | Jump 0x7c6 ; case 0x19
0796 782f |x/ | Jump 0x7c6 ; case 0x1a
0797 782e |x. | Jump 0x7c6 ; case 0x1b
0798 782d |x- | Jump 0x7c6 ; case 0x1c
0799 782c |x, | Jump 0x7c6 ; case 0x1d
079a 782b |x+ | Jump 0x7c6 ; case 0x1e
079b 782a |x* | Jump 0x7c6 ; case 0x1f
079c 7829 |x) | Jump 0x7c6 ; case 0x20
079d 7828 |x( | Jump 0x7c6 ; case 0x21
079e 7827 |x' | Jump 0x7c6 ; case 0x22
079f 7826 |x& | Jump 0x7c6 ; case 0x23
07a0 7825 |x% | Jump 0x7c6 ; case 0x24
07a1 7824 |x$ | Jump 0x7c6 ; case 0x25
07a2 7823 |x# | Jump 0x7c6 ; case 0x26
07a3 7822 |x" | Jump 0x7c6 ; case 0x27
07a4 7821 |x! | Jump 0x7c6 ; case 0x28
07a5 7820 |x | Jump 0x7c6 ; case 0x29
07a6 781f |x | Jump 0x7c6 ; case 0x2a
07a7 781e |x | Jump 0x7c6 ; case 0x2b
07a8 781d |x | Jump 0x7c6 ; case 0x2c
07a9 781c |x | Jump 0x7c6 ; case 0x2d
07aa 781b |x | Jump 0x7c6 ; case 0x2e
07ab 781a |x | Jump 0x7c6 ; case 0x2f
07ac 7819 |x | Jump 0x7c6 ; case 0x30
07ad 7818 |x | Jump 0x7c6 ; case 0x31
07ae 7817 |x | Jump 0x7c6 ; case 0x32
07af 7816 |x | Jump 0x7c6 ; case 0x33
07b0 7815 |x | Jump 0x7c6 ; case 0x34
07b1 7814 |x | Jump 0x7c6 ; case 0x35
07b2 7813 |x | Jump 0x7c6 ; case 0x36
07b3 7812 |x | Jump 0x7c6 ; case 0x37
07b4 7811 |x | Jump 0x7c6 ; case 0x38
07b5 7810 |x | Jump 0x7c6 ; case 0x39
07b6 780f |x | Jump 0x7c6 ; case 0x3a
07b7 780e |x | Jump 0x7c6 ; case 0x3b
07b8 780d |x | Jump 0x7c6 ; case 0x3c
07b9 780c |x | Jump 0x7c6 ; case 0x3d
07ba 780b |x | Jump 0x7c6 ; case 0x3e
07bb 780a |x | Jump 0x7c6 ; case 0x3f
07bc 7809 |x | Jump 0x7c6 ; case 0x40
07bd 7808 |x | Jump 0x7c6 ; case 0x41
07be 7807 |x | Jump 0x7c6 ; case 0x42
07bf 7806 |x | Jump 0x7c6 ; case 0x43
07c0 7805 |x | Jump 0x7c6 ; case 0x44
07c1 7804 |x | Jump 0x7c6 ; case 0x45
07c2 7803 |x | Jump 0x7c6 ; case 0x46
07c3 7802 |x | Jump 0x7c6 ; case 0x47
07c4 7801 |x | Jump 0x7c6 ; case 0x48
07c5 7800 |x | Jump 0x7c6 ; case 0x49
07c6 e5fd | | Load 0x2,-0x3
07c7 e5fe | | Load 0x2,-0x2
07c8 e5fc | | Load 0x2,-0x4
07c9 8230 | 0 | Call 0x1,0x30
07ca 4800 |H | Short_Literal 0x0
07cb a5fb | | Store_Unchecked 0x2,-0x5
07cc 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07cd 00d1 | | Pop_Control Pop_Count_1
07ce 7ff7 | | Jump 0x7c6
07cf 00e1 | | Load_Encached Boolean_Cache
07d0 4800 |H | Short_Literal 0x0
07d1 e5ff | | Load 0x2,-0x1
07d2 8263 | c | Call 0x1,0x63
07d3 c5fb | | Store 0x2,-0x5
07d4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07d5 00e1 | | Load_Encached Boolean_Cache
07d6 4801 |H | Short_Literal 0x1
07d7 e5ff | | Load 0x2,-0x1
07d8 8263 | c | Call 0x1,0x63
07d9 c5fb | | Store 0x2,-0x5
07da 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07db 00e1 | | Load_Encached Boolean_Cache
07dc 4802 |H | Short_Literal 0x2
07dd e5ff | | Load 0x2,-0x1
07de 8263 | c | Call 0x1,0x63
07df c5fb | | Store 0x2,-0x5
07e0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07e1 00e1 | | Load_Encached Boolean_Cache
07e2 4804 |H | Short_Literal 0x4
07e3 e5ff | | Load 0x2,-0x1
07e4 8263 | c | Call 0x1,0x63
07e5 c5fb | | Store 0x2,-0x5
07e6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07e7 00e1 | | Load_Encached Boolean_Cache
07e8 4805 |H | Short_Literal 0x5
07e9 e5ff | | Load 0x2,-0x1
07ea 8263 | c | Call 0x1,0x63
07eb c5fb | | Store 0x2,-0x5
07ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07ed 00e1 | | Load_Encached Boolean_Cache
07ee 4806 |H | Short_Literal 0x6
07ef e5ff | | Load 0x2,-0x1
07f0 8263 | c | Call 0x1,0x63
07f1 c5fb | | Store 0x2,-0x5
07f2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07f3 00e1 | | Load_Encached Boolean_Cache
07f4 4807 |H | Short_Literal 0x7
07f5 e5ff | | Load 0x2,-0x1
07f6 8263 | c | Call 0x1,0x63
07f7 c5fb | | Store 0x2,-0x5
07f8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07f9 00e1 | | Load_Encached Boolean_Cache
07fa 4808 |H | Short_Literal 0x8
07fb e5ff | | Load 0x2,-0x1
07fc 8263 | c | Call 0x1,0x63
07fd c5fb | | Store 0x2,-0x5
07fe 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07ff 00e1 | | Load_Encached Boolean_Cache
0800 4809 |H | Short_Literal 0x9
0801 e5ff | | Load 0x2,-0x1
0802 8263 | c | Call 0x1,0x63
0803 c5fb | | Store 0x2,-0x5
0804 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0805 00e1 | | Load_Encached Boolean_Cache
0806 4803 |H | Short_Literal 0x3
0807 e5ff | | Load 0x2,-0x1
0808 8263 | c | Call 0x1,0x63
0809 c5fb | | Store 0x2,-0x5
080a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
080b e5fd | | Load 0x2,-0x3
080c e5fe | | Load 0x2,-0x2
080d e5fc | | Load 0x2,-0x4
080e 8230 | 0 | Call 0x1,0x30
080f 4800 |H | Short_Literal 0x0
0810 a5fb | | Store_Unchecked 0x2,-0x5
0811 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0812 e5fd | | Load 0x2,-0x3
0813 e5fe | | Load 0x2,-0x2
0814 e5fc | | Load 0x2,-0x4
0815 8230 | 0 | Call 0x1,0x30
0816 4800 |H | Short_Literal 0x0
0817 a5fb | | Store_Unchecked 0x2,-0x5
0818 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0819 00e1 | | Load_Encached Boolean_Cache
081a 480a |H | Short_Literal 0xa
081b e5ff | | Load 0x2,-0x1
081c 8263 | c | Call 0x1,0x63
081d c5fb | | Store 0x2,-0x5
081e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
081f 00e1 | | Load_Encached Boolean_Cache
0820 480b |H | Short_Literal 0xb
0821 e5ff | | Load 0x2,-0x1
0822 8263 | c | Call 0x1,0x63
0823 c5fb | | Store 0x2,-0x5
0824 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0825 00e1 | | Load_Encached Boolean_Cache
0826 480c |H | Short_Literal 0xc
0827 e5ff | | Load 0x2,-0x1
0828 8263 | c | Call 0x1,0x63
0829 c5fb | | Store 0x2,-0x5
082a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
082b 00e1 | | Load_Encached Boolean_Cache
082c 480d |H | Short_Literal 0xd
082d e5ff | | Load 0x2,-0x1
082e 8263 | c | Call 0x1,0x63
082f c5fb | | Store 0x2,-0x5
0830 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0831 00e1 | | Load_Encached Boolean_Cache
0832 480e |H | Short_Literal 0xe
0833 e5ff | | Load 0x2,-0x1
0834 8263 | c | Call 0x1,0x63
0835 c5fb | | Store 0x2,-0x5
0836 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0837 0000 | | .XXX[0x1]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 0841 | A | .CONST 0x0841 ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0004 | | .CONST 0x0004 ; Number of locals
083b INIT_0838:
083b 00da | | Load_Top At_Offset_2
083c e024 | $ | Load 0x0,0x24
083d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
083e 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
083f 00e3 | | Load_Encached Natural_Cache
0840 00e3 | | Load_Encached Natural_Cache
0841 BODY_0838:
0841 4800 |H | Short_Literal 0x0
0842 00db | | Load_Top At_Offset_3
0843 0092 1057 | W| Action Push_String_Extended,0x1057 ; "<*"
0845 e021 | ! | Load 0x0,0x21
0846 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0847 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0848 4800 |H | Short_Literal 0x0
0849 00db | | Load_Top At_Offset_3
084a 482e |H. | Short_Literal 0x2e
084b e021 | ! | Load 0x0,0x21
084c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
084d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
084e 00d9 | | Load_Top At_Offset_1
084f 0c01 | | Execute_Immediate Greater_Equal,0x1
0850 6810 |h | Jump_Zero 0x861
0851 00d8 | | Load_Top At_Offset_0
0852 00da | | Load_Top At_Offset_2
0853 027d | } | Execute Discrete,Greater
0854 680c |h | Jump_Zero 0x861
0855 00d8 | | Load_Top At_Offset_0
0856 0a01 | | Execute_Immediate Plus,0x1
0857 00d8 | | Load_Top At_Offset_0
0858 00e2 | | Load_Encached Integer_Cache
0859 0260 | ` | Execute Discrete,In_Type
085a 7001 |p | Jump_Nonzero 0x85c
085b 0801 | | Execute_Immediate Raise,0x1
085c 00db | | Load_Top At_Offset_3
085d 01dc | | Execute Vector,Last
085e e402 | | Load 0x2,0x2
085f 01cf | | Execute Vector,Slice_Read
0860 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0861 00da | | Load_Top At_Offset_2
0862 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0863 0000 0000 | | .BLANK 0000[0x5]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086c | l | .CONST 0x086c ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0002 | | .CONST 0x0002 ; Number of locals
086b INIT_0868:
086b 00e3 | | Load_Encached Natural_Cache
086c BODY_0868:
086c 4801 |H | Short_Literal 0x1
086d e5ff | | Load 0x2,-0x1
086e 0092 1058 | X| Action Push_String_Extended,0x1058 ; "standard."
0870 e021 | ! | Load 0x0,0x21
0871 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0872 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0873 00d8 | | Load_Top At_Offset_0
0874 0f01 | | Execute_Immediate Equal,0x1
0875 680d |h | Jump_Zero 0x883
0876 00db | | Load_Top At_Offset_3
0877 01dd | | Execute Vector,First
0878 0a09 | | Execute_Immediate Plus,0x9
0879 00d8 | | Load_Top At_Offset_0
087a 00e2 | | Load_Encached Integer_Cache
087b 0260 | ` | Execute Discrete,In_Type
087c 7001 |p | Jump_Nonzero 0x87e
087d 0801 | | Execute_Immediate Raise,0x1
087e e5ff | | Load 0x2,-0x1
087f 01dc | | Execute Vector,Last
0880 e5ff | | Load 0x2,-0x1
0881 01cf | | Execute Vector,Slice_Read
0882 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0883 00db | | Load_Top At_Offset_3
0884 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0885 0000 0000 | | .XXX[0x3]
0887 0000 | |
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 089a | | .CONST 0x089a ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0005 | | .CONST 0x0005 ; Number of locals
088b INIT_0888:
088b e024 | $ | Load 0x0,0x24
088c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
088d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
088e e024 | $ | Load 0x0,0x24
088f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0890 e024 | $ | Load 0x0,0x24
0891 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0892 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0893 02c7 | | Declare_Variable Any
0894 00d8 | | Load_Top At_Offset_0
0895 1c00 | | Execute_Immediate Run_Utility,0x0
0896 00ec | | Load_Encached Diana_Tree_Cache
0897 02c7 | | Declare_Variable Any
0898 00d8 | | Load_Top At_Offset_0
0899 1c00 | | Execute_Immediate Run_Utility,0x0
089a BODY_0888:
089a 4801 |H | Short_Literal 0x1
089b e5fd | | Load 0x2,-0x3
089c 8266 | f | Call 0x1,0x66
089d e5fc | | Load 0x2,-0x4
089e 8265 | e | Call 0x1,0x65
089f e021 | ! | Load 0x0,0x21
08a0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
08a1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
08a2 0000 0000 | | .BLANK 0000[0x6]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08c7 | | .CONST 0x08c7 ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 000a | | .CONST 0x000a ; Number of locals
08ab INIT_08a8:
08ab 00ec | | Load_Encached Diana_Tree_Cache
08ac 02c7 | | Declare_Variable Any
08ad 00d8 | | Load_Top At_Offset_0
08ae 1c00 | | Execute_Immediate Run_Utility,0x0
08af e009 | | Load 0x0,0x9
08b0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08b1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08b2 0337 | 7 | Declare_Variable Array
08b3 e5ff | | Load 0x2,-0x1
08b4 e009 | | Load 0x0,0x9
08b5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08b6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
08b7 00ec | | Load_Encached Diana_Tree_Cache
08b8 02c7 | | Declare_Variable Any
08b9 00d8 | | Load_Top At_Offset_0
08ba 1c00 | | Execute_Immediate Run_Utility,0x0
08bb 00ec | | Load_Encached Diana_Tree_Cache
08bc 02c7 | | Declare_Variable Any
08bd 00d8 | | Load_Top At_Offset_0
08be 1c00 | | Execute_Immediate Run_Utility,0x0
08bf 00e1 | | Load_Encached Boolean_Cache
08c0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
08c1 00e1 | | Load_Encached Boolean_Cache
08c2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
08c3 00e1 | | Load_Encached Boolean_Cache
08c4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
08c5 00e1 | | Load_Encached Boolean_Cache
08c6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
08c7 BODY_08a8:
08c7 4801 |H | Short_Literal 0x1
08c8 a5f8 | | Store_Unchecked 0x2,-0x8
08c9 4800 |H | Short_Literal 0x0
08ca a5f9 | | Store_Unchecked 0x2,-0x7
08cb e5fe | | Load 0x2,-0x2
08cc 4976 |Iv | Short_Literal 0x176
08cd 00eb | | Load_Encached Diana_Cache
08ce 0098 | | Execute Package,Field_Read_Dynamic
08cf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
08d0 c405 | | Store 0x2,0x5
08d1 e404 | | Load 0x2,0x4
08d2 01db | | Execute Vector,Length
08d3 0c01 | | Execute_Immediate Greater_Equal,0x1
08d4 6816 |h | Jump_Zero 0x8eb
08d5 00cf | | Action Mark_Auxiliary
08d6 e404 | | Load 0x2,0x4
08d7 01d9 | | Execute Vector,Reverse_Bounds
08d8 0263 | c | Execute Discrete,Above_Bound
08d9 7010 |p | Jump_Nonzero 0x8ea
08da e405 | | Load 0x2,0x5
08db 00d9 | | Load_Top At_Offset_1
08dc e404 | | Load 0x2,0x4
08dd 01d7 | | Execute Vector,Field_Read
08de e009 | | Load 0x0,0x9
08df 1b11 | | Execute Package,Field_Read,Field_Number 0x11
08e0 180f | | Execute Package,Field_Execute,Field_Number 0xf
08e1 e5fa | | Load 0x2,-0x6
08e2 e5fb | | Load 0x2,-0x5
08e3 8267 | g | Call 0x1,0x67
08e4 6803 |h | Jump_Zero 0x8e8
08e5 4801 |H | Short_Literal 0x1
08e6 a5f8 | | Store_Unchecked 0x2,-0x8
08e7 4506 |E | Exit_Suprogram New_Top_Offset 0x6
08e8 00c8 | | Action Pop_Auxiliary_Range
08e9 3ff0 |? | Loop_Increasing 0x8da
08ea 00ce | | Action Pop_Auxiliary
08eb e5ff | | Load 0x2,-0x1
08ec e009 | | Load 0x0,0x9
08ed 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08ee 181e | | Execute Package,Field_Execute,Field_Number 0x1e
08ef e403 | | Load 0x2,0x3
08f0 01d4 | | Execute Vector,Structure_Write
08f1 e405 | | Load 0x2,0x5
08f2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
08f3 00d8 | | Load_Top At_Offset_0
08f4 482a |H* | Short_Literal 0x2a
08f5 482f |H/ | Short_Literal 0x2f
08f6 0262 | b | Execute Discrete,In_Range
08f7 6870 |hp | Jump_Zero 0x968
08f8 0ad6 | | Execute_Immediate Plus,-0x2a
08f9 4605 |F | Jump_Case 0x6
08fa 7833 |x3 | Jump 0x92e ; case 0x0
08fb 780a |x | Jump 0x906 ; case 0x1
08fc 786c |xl | Jump 0x969 ; case 0x2
08fd 7858 |xX | Jump 0x956 ; case 0x3
08fe 786a |xj | Jump 0x969 ; case 0x4
08ff 7800 |x | Jump 0x900 ; case 0x5
0900 e405 | | Load 0x2,0x5
0901 4907 |I | Short_Literal 0x107
0902 00eb | | Load_Encached Diana_Cache
0903 0096 | | Execute Package,Entry
0904 c406 | | Store 0x2,0x6
0905 786c |xl | Jump 0x972
0906 e405 | | Load 0x2,0x5
0907 e5fb | | Load 0x2,-0x5
0908 e001 | | Load 0x0,0x1
0909 1b13 | | Execute Package,Field_Read,Field_Number 0x13
090a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
090b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
090c e5fb | | Load 0x2,-0x5
090d e001 | | Load 0x0,0x1
090e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
090f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0910 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0911 700a |p | Jump_Nonzero 0x91c
0912 0092 1059 | Y| Action Push_String_Extended,0x1059 ; "0625**SMTYPE"
0914 e5fa | | Load 0x2,-0x6
0915 e5fb | | Load 0x2,-0x5
0916 822c | , | Call 0x1,0x2c
0917 4800 |H | Short_Literal 0x0
0918 a5f8 | | Store_Unchecked 0x2,-0x8
0919 4800 |H | Short_Literal 0x0
091a a5f9 | | Store_Unchecked 0x2,-0x7
091b 4506 |E | Exit_Suprogram New_Top_Offset 0x6
091c 4802 |H | Short_Literal 0x2
091d e403 | | Load 0x2,0x3
091e 01d7 | | Execute Vector,Field_Read
091f 6808 |h | Jump_Zero 0x928
0920 4800 |H | Short_Literal 0x0
0921 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0922 e5fb | | Load 0x2,-0x5
0923 e5fd | | Load 0x2,-0x3
0924 4802 |H | Short_Literal 0x2
0925 e405 | | Load 0x2,0x5
0926 e5fa | | Load 0x2,-0x6
0927 8262 | b | Call 0x1,0x62
0928 e405 | | Load 0x2,0x5
0929 4907 |I | Short_Literal 0x107
092a 00eb | | Load_Encached Diana_Cache
092b 0096 | | Execute Package,Entry
092c c406 | | Store 0x2,0x6
092d 7844 |xD | Jump 0x972
092e e405 | | Load 0x2,0x5
092f e5fb | | Load 0x2,-0x5
0930 e001 | | Load 0x0,0x1
0931 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0932 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0933 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0934 e5fb | | Load 0x2,-0x5
0935 e001 | | Load 0x0,0x1
0936 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0937 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0938 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0939 700a |p | Jump_Nonzero 0x944
093a 0092 1059 | Y| Action Push_String_Extended,0x1059 ; "0625**SMTYPE"
093c e5fa | | Load 0x2,-0x6
093d e5fb | | Load 0x2,-0x5
093e 822c | , | Call 0x1,0x2c
093f 4800 |H | Short_Literal 0x0
0940 a5f8 | | Store_Unchecked 0x2,-0x8
0941 4800 |H | Short_Literal 0x0
0942 a5f9 | | Store_Unchecked 0x2,-0x7
0943 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0944 4801 |H | Short_Literal 0x1
0945 e403 | | Load 0x2,0x3
0946 01d7 | | Execute Vector,Field_Read
0947 6808 |h | Jump_Zero 0x950
0948 4800 |H | Short_Literal 0x0
0949 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
094a e5fb | | Load 0x2,-0x5
094b e5fd | | Load 0x2,-0x3
094c 4801 |H | Short_Literal 0x1
094d e405 | | Load 0x2,0x5
094e e5fa | | Load 0x2,-0x6
094f 8262 | b | Call 0x1,0x62
0950 e405 | | Load 0x2,0x5
0951 4907 |I | Short_Literal 0x107
0952 00eb | | Load_Encached Diana_Cache
0953 0096 | | Execute Package,Entry
0954 c406 | | Store 0x2,0x6
0955 781c |x | Jump 0x972
0956 4800 |H | Short_Literal 0x0
0957 e403 | | Load 0x2,0x3
0958 01d7 | | Execute Vector,Field_Read
0959 6808 |h | Jump_Zero 0x962
095a 4800 |H | Short_Literal 0x0
095b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
095c e5fb | | Load 0x2,-0x5
095d e5fd | | Load 0x2,-0x3
095e 4800 |H | Short_Literal 0x0
095f e405 | | Load 0x2,0x5
0960 e5fa | | Load 0x2,-0x6
0961 8262 | b | Call 0x1,0x62
0962 e405 | | Load 0x2,0x5
0963 4907 |I | Short_Literal 0x107
0964 00eb | | Load_Encached Diana_Cache
0965 0096 | | Execute Package,Entry
0966 c406 | | Store 0x2,0x6
0967 780a |x | Jump 0x972
0968 00d1 | | Pop_Control Pop_Count_1
0969 e405 | | Load 0x2,0x5
096a e5fa | | Load 0x2,-0x6
096b e5fb | | Load 0x2,-0x5
096c 8230 | 0 | Call 0x1,0x30
096d 4800 |H | Short_Literal 0x0
096e a5f8 | | Store_Unchecked 0x2,-0x8
096f 4800 |H | Short_Literal 0x0
0970 a5f9 | | Store_Unchecked 0x2,-0x7
0971 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0972 e406 | | Load 0x2,0x6
0973 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0974 0b66 | f | Execute_Immediate Case_Compare,0x66
0975 700d |p | Jump_Nonzero 0x983
0976 0f6d | m | Execute_Immediate Equal,0x6d
0977 7021 |p! | Jump_Nonzero 0x999
0978 00e1 | | Load_Encached Boolean_Cache
0979 e5fb | | Load 0x2,-0x5
097a e406 | | Load 0x2,0x6
097b e5fa | | Load 0x2,-0x6
097c e5ff | | Load 0x2,-0x1
097d 8264 | d | Call 0x1,0x64
097e 0059 | Y | Store_Top Discrete,At_Offset_1
097f 00d8 | | Load_Top At_Offset_0
0980 0f00 | | Execute_Immediate Equal,0x0
0981 a5f9 | | Store_Unchecked 0x2,-0x7
0982 7838 |x8 | Jump 0x9bb
0983 00d1 | | Pop_Control Pop_Count_1
0984 e406 | | Load 0x2,0x6
0985 00eb | | Load_Encached Diana_Cache
0986 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
0987 4976 |Iv | Short_Literal 0x176
0988 00eb | | Load_Encached Diana_Cache
0989 0098 | | Execute Package,Field_Read_Dynamic
098a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
098b c402 | | Store 0x2,0x2
098c 00e1 | | Load_Encached Boolean_Cache
098d 00e1 | | Load_Encached Boolean_Cache
098e e5fa | | Load 0x2,-0x6
098f e5fb | | Load 0x2,-0x5
0990 4800 |H | Short_Literal 0x0
0991 e5fd | | Load 0x2,-0x3
0992 e402 | | Load 0x2,0x2
0993 e5ff | | Load 0x2,-0x1
0994 8268 | h | Call 0x1,0x68
0995 c5fa | | Store 0x2,-0x6
0996 c5f9 | | Store 0x2,-0x7
0997 c407 | | Store 0x2,0x7
0998 7822 |x" | Jump 0x9bb
0999 4803 |H | Short_Literal 0x3
099a e403 | | Load 0x2,0x3
099b 01d7 | | Execute Vector,Field_Read
099c 6808 |h | Jump_Zero 0x9a5
099d 4800 |H | Short_Literal 0x0
099e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
099f e5fb | | Load 0x2,-0x5
09a0 e5fd | | Load 0x2,-0x3
09a1 4803 |H | Short_Literal 0x3
09a2 e405 | | Load 0x2,0x5
09a3 e5fa | | Load 0x2,-0x6
09a4 8262 | b | Call 0x1,0x62
09a5 e406 | | Load 0x2,0x6
09a6 00eb | | Load_Encached Diana_Cache
09a7 18b9 | | Execute Package,Field_Execute,Field_Number 0xb9
09a8 00eb | | Load_Encached Diana_Cache
09a9 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
09aa 4976 |Iv | Short_Literal 0x176
09ab 00eb | | Load_Encached Diana_Cache
09ac 0098 | | Execute Package,Field_Read_Dynamic
09ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09ae c402 | | Store 0x2,0x2
09af 00e1 | | Load_Encached Boolean_Cache
09b0 00e1 | | Load_Encached Boolean_Cache
09b1 e5fa | | Load 0x2,-0x6
09b2 e5fb | | Load 0x2,-0x5
09b3 4800 |H | Short_Literal 0x0
09b4 e5fd | | Load 0x2,-0x3
09b5 e402 | | Load 0x2,0x2
09b6 e5ff | | Load 0x2,-0x1
09b7 8268 | h | Call 0x1,0x68
09b8 c5fa | | Store 0x2,-0x6
09b9 c5f9 | | Store 0x2,-0x7
09ba c407 | | Store 0x2,0x7
09bb e5fc | | Load 0x2,-0x4
09bc 6810 |h | Jump_Zero 0x9cd
09bd 00e1 | | Load_Encached Boolean_Cache
09be 4801 |H | Short_Literal 0x1
09bf e5fd | | Load 0x2,-0x3
09c0 e5ff | | Load 0x2,-0x1
09c1 e009 | | Load 0x0,0x9
09c2 1b12 | | Execute Package,Field_Read,Field_Number 0x12
09c3 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
09c4 e5ff | | Load 0x2,-0x1
09c5 e009 | | Load 0x0,0x9
09c6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
09c7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
09c8 e405 | | Load 0x2,0x5
09c9 e5fa | | Load 0x2,-0x6
09ca e5fb | | Load 0x2,-0x5
09cb 8261 | a | Call 0x1,0x61
09cc 005a | Z | Store_Top Discrete,At_Offset_2
09cd 00d8 | | Load_Top At_Offset_0
09ce 00db | | Load_Top At_Offset_3
09cf 0279 | y | Execute Discrete,And
09d0 e407 | | Load 0x2,0x7
09d1 0279 | y | Execute Discrete,And
09d2 00da | | Load_Top At_Offset_2
09d3 0279 | y | Execute Discrete,And
09d4 a5f8 | | Store_Unchecked 0x2,-0x8
09d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
09d6 0000 0000 | | .XXX[0x2]
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09e2 | | .CONST 0x09e2 ; Address of begin
09d9 0004 | | .CONST 0x0004 ; Address of exception handler
09da 0004 | | .CONST 0x0004 ; Number of locals
09db INIT_09d8:
09db 00e1 | | Load_Encached Boolean_Cache
09dc 00ec | | Load_Encached Diana_Tree_Cache
09dd 02c7 | | Declare_Variable Any
09de 00d8 | | Load_Top At_Offset_0
09df 1c00 | | Execute_Immediate Run_Utility,0x0
09e0 029f 0e6b | k| Declare_Subprogram INIT_0e68,For_Call
09e2 BODY_09d8:
09e2 4801 |H | Short_Literal 0x1
09e3 a5fa | | Store_Unchecked 0x2,-0x6
09e4 4800 |H | Short_Literal 0x0
09e5 a5fb | | Store_Unchecked 0x2,-0x5
09e6 e5fe | | Load 0x2,-0x2
09e7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09e8 0b66 | f | Execute_Immediate Case_Compare,0x66
09e9 7004 |p | Jump_Nonzero 0x9ee
09ea 0f61 | a | Execute_Immediate Equal,0x61
09eb 7025 |p% | Jump_Nonzero 0xa11
09ec 8404 | | Call 0x2,0x4
09ed 782f |x/ | Jump 0xa1d
09ee 00d1 | | Pop_Control Pop_Count_1
09ef e5fe | | Load 0x2,-0x2
09f0 00eb | | Load_Encached Diana_Cache
09f1 18ec | | Execute Package,Field_Execute,Field_Number 0xec
09f2 0145 | E | Execute Heap_Access,Diana_Tree_Kind
09f3 0f3c | < | Execute_Immediate Equal,0x3c
09f4 6807 |h | Jump_Zero 0x9fc
09f5 e5fe | | Load 0x2,-0x2
09f6 00eb | | Load_Encached Diana_Cache
09f7 18ec | | Execute Package,Field_Execute,Field_Number 0xec
09f8 00eb | | Load_Encached Diana_Cache
09f9 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
09fa c403 | | Store 0x2,0x3
09fb 7808 |x | Jump 0xa04
09fc e5fe | | Load 0x2,-0x2
09fd 00eb | | Load_Encached Diana_Cache
09fe 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
09ff 4976 |Iv | Short_Literal 0x176
0a00 00eb | | Load_Encached Diana_Cache
0a01 0098 | | Execute Package,Field_Read_Dynamic
0a02 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a03 c403 | | Store 0x2,0x3
0a04 00e1 | | Load_Encached Boolean_Cache
0a05 00e1 | | Load_Encached Boolean_Cache
0a06 e5fc | | Load 0x2,-0x4
0a07 e5fd | | Load 0x2,-0x3
0a08 4801 |H | Short_Literal 0x1
0a09 4801 |H | Short_Literal 0x1
0a0a e403 | | Load 0x2,0x3
0a0b e5ff | | Load 0x2,-0x1
0a0c 8268 | h | Call 0x1,0x68
0a0d c5fc | | Store 0x2,-0x4
0a0e c5fb | | Store 0x2,-0x5
0a0f 005b | [ | Store_Top Discrete,At_Offset_3
0a10 780c |x | Jump 0xa1d
0a11 00e1 | | Load_Encached Boolean_Cache
0a12 e5fd | | Load 0x2,-0x3
0a13 e5fe | | Load 0x2,-0x2
0a14 00eb | | Load_Encached Diana_Cache
0a15 18f7 | | Execute Package,Field_Execute,Field_Number 0xf7
0a16 e5fc | | Load 0x2,-0x4
0a17 e5ff | | Load 0x2,-0x1
0a18 8264 | d | Call 0x1,0x64
0a19 005b | [ | Store_Top Discrete,At_Offset_3
0a1a 00da | | Load_Top At_Offset_2
0a1b 0f00 | | Execute_Immediate Equal,0x0
0a1c a5fb | | Store_Unchecked 0x2,-0x5
0a1d 00da | | Load_Top At_Offset_2
0a1e a5fa | | Store_Unchecked 0x2,-0x6
0a1f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a41 | A | .CONST 0x0a41 ; Address of begin
0a21 0004 | | .CONST 0x0004 ; Address of exception handler
0a22 0008 | | .CONST 0x0008 ; Number of locals
0a23 INIT_0a20:
0a23 e009 | | Load 0x0,0x9
0a24 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a25 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e
0a26 0337 | 7 | Declare_Variable Array
0a27 00db | | Load_Top At_Offset_3
0a28 e009 | | Load 0x0,0x9
0a29 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a2a 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0a2b 00d9 | | Load_Top At_Offset_1
0a2c 01d4 | | Execute Vector,Structure_Write
0a2d 00ec | | Load_Encached Diana_Tree_Cache
0a2e 02c7 | | Declare_Variable Any
0a2f e5fe | | Load 0x2,-0x2
0a30 4902 |I | Short_Literal 0x102
0a31 00eb | | Load_Encached Diana_Cache
0a32 0096 | | Execute Package,Entry
0a33 a403 | | Store_Unchecked 0x2,0x3
0a34 00e1 | | Load_Encached Boolean_Cache
0a35 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a36 00e1 | | Load_Encached Boolean_Cache
0a37 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a38 e009 | | Load 0x0,0x9
0a39 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a3a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0a3b 02c7 | | Declare_Variable Any
0a3c 00d8 | | Load_Top At_Offset_0
0a3d 1c00 | | Execute_Immediate Run_Utility,0x0
0a3e 00e1 | | Load_Encached Boolean_Cache
0a3f 029f 0e93 | | Declare_Subprogram INIT_0e90,For_Call
0a41 BODY_0a20:
0a41 4801 |H | Short_Literal 0x1
0a42 a5fa | | Store_Unchecked 0x2,-0x6
0a43 4800 |H | Short_Literal 0x0
0a44 a5fb | | Store_Unchecked 0x2,-0x5
0a45 e5ff | | Load 0x2,-0x1
0a46 e009 | | Load 0x0,0x9
0a47 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a48 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0a49 c406 | | Store 0x2,0x6
0a4a e5fe | | Load 0x2,-0x2
0a4b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0a4c 00d8 | | Load_Top At_Offset_0
0a4d 0c31 | 1 | Execute_Immediate Greater_Equal,0x31
0a4e 7039 |p9 | Jump_Nonzero 0xa88
0a4f 4630 |F0 | Jump_Case 0x31
0a50 7838 |x8 | Jump 0xa89 ; case 0x0
0a51 7837 |x7 | Jump 0xa89 ; case 0x1
0a52 7836 |x6 | Jump 0xa89 ; case 0x2
0a53 7835 |x5 | Jump 0xa89 ; case 0x3
0a54 7834 |x4 | Jump 0xa89 ; case 0x4
0a55 7833 |x3 | Jump 0xa89 ; case 0x5
0a56 7832 |x2 | Jump 0xa89 ; case 0x6
0a57 7831 |x1 | Jump 0xa89 ; case 0x7
0a58 7830 |x0 | Jump 0xa89 ; case 0x8
0a59 782f |x/ | Jump 0xa89 ; case 0x9
0a5a 782e |x. | Jump 0xa89 ; case 0xa
0a5b 782d |x- | Jump 0xa89 ; case 0xb
0a5c 782c |x, | Jump 0xa89 ; case 0xc
0a5d 782b |x+ | Jump 0xa89 ; case 0xd
0a5e 782a |x* | Jump 0xa89 ; case 0xe
0a5f 7829 |x) | Jump 0xa89 ; case 0xf
0a60 7828 |x( | Jump 0xa89 ; case 0x10
0a61 7827 |x' | Jump 0xa89 ; case 0x11
0a62 7826 |x& | Jump 0xa89 ; case 0x12
0a63 7825 |x% | Jump 0xa89 ; case 0x13
0a64 7824 |x$ | Jump 0xa89 ; case 0x14
0a65 7823 |x# | Jump 0xa89 ; case 0x15
0a66 7822 |x" | Jump 0xa89 ; case 0x16
0a67 7821 |x! | Jump 0xa89 ; case 0x17
0a68 7820 |x | Jump 0xa89 ; case 0x18
0a69 781f |x | Jump 0xa89 ; case 0x19
0a6a 781e |x | Jump 0xa89 ; case 0x1a
0a6b 781d |x | Jump 0xa89 ; case 0x1b
0a6c 781c |x | Jump 0xa89 ; case 0x1c
0a6d 7824 |x$ | Jump 0xa92 ; case 0x1d
0a6e 782a |x* | Jump 0xa99 ; case 0x1e
0a6f 7819 |x | Jump 0xa89 ; case 0x1f
0a70 7818 |x | Jump 0xa89 ; case 0x20
0a71 7817 |x | Jump 0xa89 ; case 0x21
0a72 7816 |x | Jump 0xa89 ; case 0x22
0a73 782c |x, | Jump 0xaa0 ; case 0x23
0a74 7832 |x2 | Jump 0xaa7 ; case 0x24
0a75 7846 |xF | Jump 0xabc ; case 0x25
0a76 7837 |x7 | Jump 0xaae ; case 0x26
0a77 7811 |x | Jump 0xa89 ; case 0x27
0a78 783c |x< | Jump 0xab5 ; case 0x28
0a79 780f |x | Jump 0xa89 ; case 0x29
0a7a 780e |x | Jump 0xa89 ; case 0x2a
0a7b 780d |x | Jump 0xa89 ; case 0x2b
0a7c 780c |x | Jump 0xa89 ; case 0x2c
0a7d 780b |x | Jump 0xa89 ; case 0x2d
0a7e 780a |x | Jump 0xa89 ; case 0x2e
0a7f 7809 |x | Jump 0xa89 ; case 0x2f
0a80 7800 |x | Jump 0xa81 ; case 0x30
0a81 4807 |H | Short_Literal 0x7
0a82 e402 | | Load 0x2,0x2
0a83 01d7 | | Execute Vector,Field_Read
0a84 683d |h= | Jump_Zero 0xac2
0a85 4801 |H | Short_Literal 0x1
0a86 a404 | | Store_Unchecked 0x2,0x4
0a87 783a |x: | Jump 0xac2
0a88 00d1 | | Pop_Control Pop_Count_1
0a89 e5fe | | Load 0x2,-0x2
0a8a e5fc | | Load 0x2,-0x4
0a8b e5fd | | Load 0x2,-0x3
0a8c 8230 | 0 | Call 0x1,0x30
0a8d 4800 |H | Short_Literal 0x0
0a8e a5fa | | Store_Unchecked 0x2,-0x6
0a8f 4800 |H | Short_Literal 0x0
0a90 a5fb | | Store_Unchecked 0x2,-0x5
0a91 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a92 4800 |H | Short_Literal 0x0
0a93 e402 | | Load 0x2,0x2
0a94 01d7 | | Execute Vector,Field_Read
0a95 682c |h, | Jump_Zero 0xac2
0a96 4801 |H | Short_Literal 0x1
0a97 a404 | | Store_Unchecked 0x2,0x4
0a98 7829 |x) | Jump 0xac2
0a99 4801 |H | Short_Literal 0x1
0a9a e402 | | Load 0x2,0x2
0a9b 01d7 | | Execute Vector,Field_Read
0a9c 6825 |h% | Jump_Zero 0xac2
0a9d 4801 |H | Short_Literal 0x1
0a9e a404 | | Store_Unchecked 0x2,0x4
0a9f 7822 |x" | Jump 0xac2
0aa0 4803 |H | Short_Literal 0x3
0aa1 e402 | | Load 0x2,0x2
0aa2 01d7 | | Execute Vector,Field_Read
0aa3 681e |h | Jump_Zero 0xac2
0aa4 4801 |H | Short_Literal 0x1
0aa5 a404 | | Store_Unchecked 0x2,0x4
0aa6 781b |x | Jump 0xac2
0aa7 4802 |H | Short_Literal 0x2
0aa8 e402 | | Load 0x2,0x2
0aa9 01d7 | | Execute Vector,Field_Read
0aaa 6817 |h | Jump_Zero 0xac2
0aab 4801 |H | Short_Literal 0x1
0aac a404 | | Store_Unchecked 0x2,0x4
0aad 7814 |x | Jump 0xac2
0aae 4804 |H | Short_Literal 0x4
0aaf e402 | | Load 0x2,0x2
0ab0 01d7 | | Execute Vector,Field_Read
0ab1 6810 |h | Jump_Zero 0xac2
0ab2 4801 |H | Short_Literal 0x1
0ab3 a404 | | Store_Unchecked 0x2,0x4
0ab4 780d |x | Jump 0xac2
0ab5 4805 |H | Short_Literal 0x5
0ab6 e402 | | Load 0x2,0x2
0ab7 01d7 | | Execute Vector,Field_Read
0ab8 6809 |h | Jump_Zero 0xac2
0ab9 4801 |H | Short_Literal 0x1
0aba a404 | | Store_Unchecked 0x2,0x4
0abb 7806 |x | Jump 0xac2
0abc 4806 |H | Short_Literal 0x6
0abd e402 | | Load 0x2,0x2
0abe 01d7 | | Execute Vector,Field_Read
0abf 6802 |h | Jump_Zero 0xac2
0ac0 4801 |H | Short_Literal 0x1
0ac1 a404 | | Store_Unchecked 0x2,0x4
0ac2 e404 | | Load 0x2,0x4
0ac3 0f00 | | Execute_Immediate Equal,0x0
0ac4 a5fb | | Store_Unchecked 0x2,-0x5
0ac5 8408 | | Call 0x2,0x8
0ac6 00d9 | | Load_Top At_Offset_1
0ac7 6812 |h | Jump_Zero 0xada
0ac8 0092 105a | Z| Action Push_String_Extended,0x105a ; " is not an object of "
0aca e009 | | Load 0x0,0x9
0acb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0acc 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0acd e009 | | Load 0x0,0x9
0ace 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0acf 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0ad0 e406 | | Load 0x2,0x6
0ad1 e009 | | Load 0x0,0x9
0ad2 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ad3 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0ad4 4803 |H | Short_Literal 0x3
0ad5 825d | ] | Call 0x1,0x5d
0ad6 01cc | | Execute Vector,Catenate
0ad7 e5fc | | Load 0x2,-0x4
0ad8 e5fd | | Load 0x2,-0x3
0ad9 822d | - | Call 0x1,0x2d
0ada e404 | | Load 0x2,0x4
0adb e405 | | Load 0x2,0x5
0adc 0279 | y | Execute Discrete,And
0add a5fa | | Store_Unchecked 0x2,-0x6
0ade 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0adf 0000 | | .XXX[0x1]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0af1 | | .CONST 0x0af1 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0005 | | .CONST 0x0005 ; Number of locals
0ae3 INIT_0ae0:
0ae3 00f1 | | Load_Encached Diana_Temp_Seq
0ae4 02c7 | | Declare_Variable Any
0ae5 00f1 | | Load_Encached Diana_Temp_Seq
0ae6 a402 | | Store_Unchecked 0x2,0x2
0ae7 00f1 | | Load_Encached Diana_Temp_Seq
0ae8 02c7 | | Declare_Variable Any
0ae9 e5fc | | Load 0x2,-0x4
0aea a403 | | Store_Unchecked 0x2,0x3
0aeb 00ec | | Load_Encached Diana_Tree_Cache
0aec 02c7 | | Declare_Variable Any
0aed 00d8 | | Load_Top At_Offset_0
0aee 1c00 | | Execute_Immediate Run_Utility,0x0
0aef 029f 0eab | | Declare_Subprogram INIT_0ea8,For_Call
0af1 BODY_0ae0:
0af1 00cf | | Action Mark_Auxiliary
0af2 78c7 |x | Jump 0xbba
0af3 00db | | Load_Top At_Offset_3
0af4 0217 | | Execute Heap_Access,All_Reference
0af5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0af6 c404 | | Store 0x2,0x4
0af7 00da | | Load_Top At_Offset_2
0af8 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0af9 00d8 | | Load_Top At_Offset_0
0afa 481c |H | Short_Literal 0x1c
0afb 4859 |HY | Short_Literal 0x59
0afc 0262 | b | Execute Discrete,In_Range
0afd 68af |h | Jump_Zero 0xbad
0afe 0ae4 | | Execute_Immediate Plus,-0x1c
0aff 463d |F= | Jump_Case 0x3e
0b00 7842 |xB | Jump 0xb43 ; case 0x0
0b01 78ac |x | Jump 0xbae ; case 0x1
0b02 78ab |x | Jump 0xbae ; case 0x2
0b03 7844 |xD | Jump 0xb48 ; case 0x3
0b04 784d |xM | Jump 0xb52 ; case 0x4
0b05 7851 |xQ | Jump 0xb57 ; case 0x5
0b06 7862 |xb | Jump 0xb69 ; case 0x6
0b07 78a6 |x | Jump 0xbae ; case 0x7
0b08 78a5 |x | Jump 0xbae ; case 0x8
0b09 78a4 |x | Jump 0xbae ; case 0x9
0b0a 78a3 |x | Jump 0xbae ; case 0xa
0b0b 7885 |x | Jump 0xb91 ; case 0xb
0b0c 78a1 |x | Jump 0xbae ; case 0xc
0b0d 7888 |x | Jump 0xb96 ; case 0xd
0b0e 789f |x | Jump 0xbae ; case 0xe
0b0f 789e |x | Jump 0xbae ; case 0xf
0b10 788a |x | Jump 0xb9b ; case 0x10
0b11 789c |x | Jump 0xbae ; case 0x11
0b12 789b |x | Jump 0xbae ; case 0x12
0b13 789a |x | Jump 0xbae ; case 0x13
0b14 7899 |x | Jump 0xbae ; case 0x14
0b15 7837 |x7 | Jump 0xb4d ; case 0x15
0b16 7897 |x | Jump 0xbae ; case 0x16
0b17 7896 |x | Jump 0xbae ; case 0x17
0b18 7895 |x | Jump 0xbae ; case 0x18
0b19 7894 |x | Jump 0xbae ; case 0x19
0b1a 7893 |x | Jump 0xbae ; case 0x1a
0b1b 7892 |x | Jump 0xbae ; case 0x1b
0b1c 7891 |x | Jump 0xbae ; case 0x1c
0b1d 7890 |x | Jump 0xbae ; case 0x1d
0b1e 788f |x | Jump 0xbae ; case 0x1e
0b1f 788e |x | Jump 0xbae ; case 0x1f
0b20 788d |x | Jump 0xbae ; case 0x20
0b21 788c |x | Jump 0xbae ; case 0x21
0b22 788b |x | Jump 0xbae ; case 0x22
0b23 788a |x | Jump 0xbae ; case 0x23
0b24 7889 |x | Jump 0xbae ; case 0x24
0b25 7888 |x | Jump 0xbae ; case 0x25
0b26 7887 |x | Jump 0xbae ; case 0x26
0b27 7886 |x | Jump 0xbae ; case 0x27
0b28 7885 |x | Jump 0xbae ; case 0x28
0b29 7884 |x | Jump 0xbae ; case 0x29
0b2a 7883 |x | Jump 0xbae ; case 0x2a
0b2b 7882 |x | Jump 0xbae ; case 0x2b
0b2c 7881 |x | Jump 0xbae ; case 0x2c
0b2d 7880 |x | Jump 0xbae ; case 0x2d
0b2e 787f |x | Jump 0xbae ; case 0x2e
0b2f 787e |x~ | Jump 0xbae ; case 0x2f
0b30 787d |x} | Jump 0xbae ; case 0x30
0b31 787c |x| | Jump 0xbae ; case 0x31
0b32 787b |x{ | Jump 0xbae ; case 0x32
0b33 787a |xz | Jump 0xbae ; case 0x33
0b34 7879 |xy | Jump 0xbae ; case 0x34
0b35 7878 |xx | Jump 0xbae ; case 0x35
0b36 7877 |xw | Jump 0xbae ; case 0x36
0b37 7876 |xv | Jump 0xbae ; case 0x37
0b38 7875 |xu | Jump 0xbae ; case 0x38
0b39 7874 |xt | Jump 0xbae ; case 0x39
0b3a 7873 |xs | Jump 0xbae ; case 0x3a
0b3b 7872 |xr | Jump 0xbae ; case 0x3b
0b3c 7871 |xq | Jump 0xbae ; case 0x3c
0b3d 7800 |x | Jump 0xb3e ; case 0x3d
0b3e 480e |H | Short_Literal 0xe
0b3f e5ff | | Load 0x2,-0x1
0b40 01d7 | | Execute Vector,Field_Read
0b41 8405 | | Call 0x2,0x5
0b42 7872 |xr | Jump 0xbb5
0b43 4807 |H | Short_Literal 0x7
0b44 e5ff | | Load 0x2,-0x1
0b45 01d7 | | Execute Vector,Field_Read
0b46 8405 | | Call 0x2,0x5
0b47 786d |xm | Jump 0xbb5
0b48 4804 |H | Short_Literal 0x4
0b49 e5ff | | Load 0x2,-0x1
0b4a 01d7 | | Execute Vector,Field_Read
0b4b 8405 | | Call 0x2,0x5
0b4c 7868 |xh | Jump 0xbb5
0b4d 4806 |H | Short_Literal 0x6
0b4e e5ff | | Load 0x2,-0x1
0b4f 01d7 | | Execute Vector,Field_Read
0b50 8405 | | Call 0x2,0x5
0b51 7863 |xc | Jump 0xbb5
0b52 4805 |H | Short_Literal 0x5
0b53 e5ff | | Load 0x2,-0x1
0b54 01d7 | | Execute Vector,Field_Read
0b55 8405 | | Call 0x2,0x5
0b56 785e |x^ | Jump 0xbb5
0b57 00da | | Load_Top At_Offset_2
0b58 00eb | | Load_Encached Diana_Cache
0b59 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0b5a 00eb | | Load_Encached Diana_Cache
0b5b 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0b5c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b5d 0f8f | | Execute_Immediate Equal,-0x71
0b5e 6805 |h | Jump_Zero 0xb64
0b5f 480c |H | Short_Literal 0xc
0b60 e5ff | | Load 0x2,-0x1
0b61 01d7 | | Execute Vector,Field_Read
0b62 8405 | | Call 0x2,0x5
0b63 7851 |xQ | Jump 0xbb5
0b64 4800 |H | Short_Literal 0x0
0b65 e5ff | | Load 0x2,-0x1
0b66 01d7 | | Execute Vector,Field_Read
0b67 8405 | | Call 0x2,0x5
0b68 784c |xL | Jump 0xbb5
0b69 00da | | Load_Top At_Offset_2
0b6a 00eb | | Load_Encached Diana_Cache
0b6b 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0b6c 00eb | | Load_Encached Diana_Cache
0b6d 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0b6e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0b6f 0b7a | z | Execute_Immediate Case_Compare,0x7a
0b70 700f |p | Jump_Nonzero 0xb80
0b71 0b7b | { | Execute_Immediate Case_Compare,0x7b
0b72 7013 |p | Jump_Nonzero 0xb86
0b73 0f7c | | | Execute_Immediate Equal,0x7c
0b74 7017 |p | Jump_Nonzero 0xb8c
0b75 00da | | Load_Top At_Offset_2
0b76 00eb | | Load_Encached Diana_Cache
0b77 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0b78 00eb | | Load_Encached Diana_Cache
0b79 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0b7a e5fe | | Load 0x2,-0x2
0b7b e5fd | | Load 0x2,-0x3
0b7c 8230 | 0 | Call 0x1,0x30
0b7d 00f1 | | Load_Encached Diana_Temp_Seq
0b7e c5fc | | Store 0x2,-0x4
0b7f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0b80 00d1 | | Pop_Control Pop_Count_1
0b81 480a |H | Short_Literal 0xa
0b82 e5ff | | Load 0x2,-0x1
0b83 01d7 | | Execute Vector,Field_Read
0b84 8405 | | Call 0x2,0x5
0b85 782f |x/ | Jump 0xbb5
0b86 00d1 | | Pop_Control Pop_Count_1
0b87 4809 |H | Short_Literal 0x9
0b88 e5ff | | Load 0x2,-0x1
0b89 01d7 | | Execute Vector,Field_Read
0b8a 8405 | | Call 0x2,0x5
0b8b 7829 |x) | Jump 0xbb5
0b8c 4808 |H | Short_Literal 0x8
0b8d e5ff | | Load 0x2,-0x1
0b8e 01d7 | | Execute Vector,Field_Read
0b8f 8405 | | Call 0x2,0x5
0b90 7824 |x$ | Jump 0xbb5
0b91 480d |H | Short_Literal 0xd
0b92 e5ff | | Load 0x2,-0x1
0b93 01d7 | | Execute Vector,Field_Read
0b94 8405 | | Call 0x2,0x5
0b95 781f |x | Jump 0xbb5
0b96 4801 |H | Short_Literal 0x1
0b97 e5ff | | Load 0x2,-0x1
0b98 01d7 | | Execute Vector,Field_Read
0b99 8405 | | Call 0x2,0x5
0b9a 781a |x | Jump 0xbb5
0b9b 00da | | Load_Top At_Offset_2
0b9c 00eb | | Load_Encached Diana_Cache
0b9d 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0b9e 00eb | | Load_Encached Diana_Cache
0b9f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0ba0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0ba1 0f8f | | Execute_Immediate Equal,-0x71
0ba2 6805 |h | Jump_Zero 0xba8
0ba3 480b |H | Short_Literal 0xb
0ba4 e5ff | | Load 0x2,-0x1
0ba5 01d7 | | Execute Vector,Field_Read
0ba6 8405 | | Call 0x2,0x5
0ba7 780d |x | Jump 0xbb5
0ba8 4802 |H | Short_Literal 0x2
0ba9 e5ff | | Load 0x2,-0x1
0baa 01d7 | | Execute Vector,Field_Read
0bab 8405 | | Call 0x2,0x5
0bac 7808 |x | Jump 0xbb5
0bad 00d1 | | Pop_Control Pop_Count_1
0bae 00da | | Load_Top At_Offset_2
0baf e5fe | | Load 0x2,-0x2
0bb0 e5fd | | Load 0x2,-0x3
0bb1 8230 | 0 | Call 0x1,0x30
0bb2 00f1 | | Load_Encached Diana_Temp_Seq
0bb3 c5fc | | Store 0x2,-0x4
0bb4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0bb5 00db | | Load_Top At_Offset_3
0bb6 0217 | | Execute Heap_Access,All_Reference
0bb7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bb8 c403 | | Store 0x2,0x3
0bb9 00c9 | | Action Pop_Auxiliary_Loop
0bba 00db | | Load_Top At_Offset_3
0bbb 7737 |w7 | Jump_Nonzero 0xaf3
0bbc 00ce | | Action Pop_Auxiliary
0bbd 00db | | Load_Top At_Offset_3
0bbe c5fc | | Store 0x2,-0x4
0bbf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bcd | | .CONST 0x0bcd ; Address of begin
0bc1 0004 | | .CONST 0x0004 ; Address of exception handler
0bc2 0005 | | .CONST 0x0005 ; Number of locals
0bc3 INIT_0bc0:
0bc3 00e3 | | Load_Encached Natural_Cache
0bc4 00ec | | Load_Encached Diana_Tree_Cache
0bc5 02c7 | | Declare_Variable Any
0bc6 00d8 | | Load_Top At_Offset_0
0bc7 1c00 | | Execute_Immediate Run_Utility,0x0
0bc8 00e1 | | Load_Encached Boolean_Cache
0bc9 00f1 | | Load_Encached Diana_Temp_Seq
0bca 02c7 | | Declare_Variable Any
0bcb 00f1 | | Load_Encached Diana_Temp_Seq
0bcc a405 | | Store_Unchecked 0x2,0x5
0bcd BODY_0bc0:
0bcd 4800 |H | Short_Literal 0x0
0bce a5fb | | Store_Unchecked 0x2,-0x5
0bcf e5fc | | Load 0x2,-0x4
0bd0 e5fe | | Load 0x2,-0x2
0bd1 e5fd | | Load 0x2,-0x3
0bd2 e5ff | | Load 0x2,-0x1
0bd3 e009 | | Load 0x0,0x9
0bd4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0bd5 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0bd6 826b | k | Call 0x1,0x6b
0bd7 c5fc | | Store 0x2,-0x4
0bd8 e5fc | | Load 0x2,-0x4
0bd9 4975 |Iu | Short_Literal 0x175
0bda 00eb | | Load_Encached Diana_Cache
0bdb 0098 | | Execute Package,Field_Read_Dynamic
0bdc 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0bdd c402 | | Store 0x2,0x2
0bde 00db | | Load_Top At_Offset_3
0bdf 7005 |p | Jump_Nonzero 0xbe5
0be0 4801 |H | Short_Literal 0x1
0be1 a5fb | | Store_Unchecked 0x2,-0x5
0be2 4800 |H | Short_Literal 0x0
0be3 a5fa | | Store_Unchecked 0x2,-0x6
0be4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0be5 00db | | Load_Top At_Offset_3
0be6 0f01 | | Execute_Immediate Equal,0x1
0be7 6813 |h | Jump_Zero 0xbfb
0be8 00e1 | | Load_Encached Boolean_Cache
0be9 4801 |H | Short_Literal 0x1
0bea 4800 |H | Short_Literal 0x0
0beb e5ff | | Load 0x2,-0x1
0bec e009 | | Load 0x0,0x9
0bed 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0bee 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
0bef e5ff | | Load 0x2,-0x1
0bf0 e009 | | Load 0x0,0x9
0bf1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0bf2 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0bf3 e5fc | | Load 0x2,-0x4
0bf4 0217 | | Execute Heap_Access,All_Reference
0bf5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0bf6 e5fd | | Load 0x2,-0x3
0bf7 e5fe | | Load 0x2,-0x2
0bf8 8261 | a | Call 0x1,0x61
0bf9 c5fa | | Store 0x2,-0x6
0bfa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0bfb 4800 |H | Short_Literal 0x0
0bfc a5fa | | Store_Unchecked 0x2,-0x6
0bfd 00cf | | Action Mark_Auxiliary
0bfe 7822 |x" | Jump 0xc21
0bff 00e1 | | Load_Encached Boolean_Cache
0c00 4800 |H | Short_Literal 0x0
0c01 4800 |H | Short_Literal 0x0
0c02 e5ff | | Load 0x2,-0x1
0c03 e009 | | Load 0x0,0x9
0c04 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0c05 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
0c06 e5ff | | Load 0x2,-0x1
0c07 e009 | | Load 0x0,0x9
0c08 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0c09 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0c0a e5fc | | Load 0x2,-0x4
0c0b 0217 | | Execute Heap_Access,All_Reference
0c0c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c0d e5fd | | Load 0x2,-0x3
0c0e e5fe | | Load 0x2,-0x2
0c0f 8261 | a | Call 0x1,0x61
0c10 005b | [ | Store_Top Discrete,At_Offset_3
0c11 00da | | Load_Top At_Offset_2
0c12 6809 |h | Jump_Zero 0xc1c
0c13 00d9 | | Load_Top At_Offset_1
0c14 e5fc | | Load 0x2,-0x4
0c15 0217 | | Execute Heap_Access,All_Reference
0c16 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c17 00eb | | Load_Encached Diana_Cache
0c18 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0c19 c405 | | Store 0x2,0x5
0c1a 4801 |H | Short_Literal 0x1
0c1b a5fa | | Store_Unchecked 0x2,-0x6
0c1c e5fc | | Load 0x2,-0x4
0c1d 0217 | | Execute Heap_Access,All_Reference
0c1e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0c1f c5fc | | Store 0x2,-0x4
0c20 00c9 | | Action Pop_Auxiliary_Loop
0c21 e5fc | | Load 0x2,-0x4
0c22 77dc |w | Jump_Nonzero 0xbff
0c23 00ce | | Action Pop_Auxiliary
0c24 00d8 | | Load_Top At_Offset_0
0c25 c5fc | | Store 0x2,-0x4
0c26 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c27 0000 | | .XXX[0x1]
0c28 ; --------------------------------------------------------------------------------------
0c28 ; SUBPROGRAM
0c28 ; --------------------------------------------------------------------------------------
0c28 0c2d | - | .CONST 0x0c2d ; Address of begin
0c29 0004 | | .CONST 0x0004 ; Address of exception handler
0c2a 0002 | | .CONST 0x0002 ; Number of locals
0c2b INIT_0c28:
0c2b 029f 0ebb | | Declare_Subprogram INIT_0eb8,For_Call
0c2d BODY_0c28:
0c2d 4800 |H | Short_Literal 0x0
0c2e a5fc | | Store_Unchecked 0x2,-0x4
0c2f e5fe | | Load 0x2,-0x2
0c30 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0c31 0f17 | | Execute_Immediate Equal,0x17
0c32 6801 |h | Jump_Zero 0xc34
0c33 8402 | | Call 0x2,0x2
0c34 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c35 0000 0000 | | .XXX[0x3]
0c37 0000 | |
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c40 | @ | .CONST 0x0c40 ; Address of begin
0c39 0004 | | .CONST 0x0004 ; Address of exception handler
0c3a 0002 | | .CONST 0x0002 ; Number of locals
0c3b INIT_0c38:
0c3b 4801 |H | Short_Literal 0x1
0c3c 4815 |H | Short_Literal 0x15
0c3d 00e9 | | Load_Encached String_Cache
0c3e 035b | [ | Declare_Type Array,Constrained
0c3f 0337 | 7 | Declare_Variable Array
0c40 BODY_0c38:
0c40 00d8 | | Load_Top At_Offset_0
0c41 e26e | n | Load 0x1,0x6e
0c42 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0c43 e26e | n | Load 0x1,0x6e
0c44 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0c45 e5ff | | Load 0x2,-0x1
0c46 e26e | n | Load 0x1,0x6e
0c47 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0c48 00d1 | | Pop_Control Pop_Count_1
0c49 00d8 | | Load_Top At_Offset_0
0c4a 00e9 | | Load_Encached String_Cache
0c4b 01c6 | | Execute Vector,Convert_To_Formal
0c4c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c4d 0000 0000 | | .XXX[0x3]
0c4f 0000 | |
0c50 ; --------------------------------------------------------------------------------------
0c50 ; SUBPROGRAM
0c50 ; --------------------------------------------------------------------------------------
0c50 0c5d | ] | .CONST 0x0c5d ; Address of begin
0c51 0ca2 | | .CONST 0x0ca2 ; Address of exception handler
0c52 0005 | | .CONST 0x0005 ; Number of locals
0c53 INIT_0c50:
0c53 00e1 | | Load_Encached Boolean_Cache
0c54 00eb | | Load_Encached Diana_Cache
0c55 1b96 | | Execute Package,Field_Read,Field_Number 0x96
0c56 02c7 | | Declare_Variable Any
0c57 00d8 | | Load_Top At_Offset_0
0c58 1c00 | | Execute_Immediate Run_Utility,0x0
0c59 029f 0edb | | Declare_Subprogram INIT_0ed8,For_Call
0c5b 029f 0f1b | | Declare_Subprogram INIT_0f18,For_Call
0c5d BODY_0c50:
0c5d 4801 |H | Short_Literal 0x1
0c5e a5fc | | Store_Unchecked 0x2,-0x4
0c5f 00da | | Load_Top At_Offset_2
0c60 0120 | | Execute Any,Is_Value
0c61 6803 |h | Jump_Zero 0xc65
0c62 00eb | | Load_Encached Diana_Cache
0c63 1b96 | | Execute Package,Field_Read,Field_Number 0x96
0c64 7801 |x | Jump 0xc66
0c65 00da | | Load_Top At_Offset_2
0c66 00e1 | | Load_Encached Boolean_Cache
0c67 e5ff | | Load 0x2,-0x1
0c68 e028 | ( | Load 0x0,0x28
0c69 180d | | Execute Package,Field_Execute,Field_Number 0xd
0c6a c402 | | Store 0x2,0x2
0c6b c403 | | Store 0x2,0x3
0c6c 00db | | Load_Top At_Offset_3
0c6d 7008 |p | Jump_Nonzero 0xc76
0c6e 0092 105b | [| Action Push_String_Extended,0x105b ; " is not static"
0c70 e5ff | | Load 0x2,-0x1
0c71 e5fd | | Load 0x2,-0x3
0c72 822d | - | Call 0x1,0x2d
0c73 4800 |H | Short_Literal 0x0
0c74 a5fc | | Store_Unchecked 0x2,-0x4
0c75 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c76 e5ff | | Load 0x2,-0x1
0c77 e028 | ( | Load 0x0,0x28
0c78 180f | | Execute Package,Field_Execute,Field_Number 0xf
0c79 c403 | | Store 0x2,0x3
0c7a e5fe | | Load 0x2,-0x2
0c7b e009 | | Load 0x0,0x9
0c7c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0c7d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0c7e 4602 |F | Jump_Case 0x3
0c7f 7805 |x | Jump 0xc85 ; case 0x0
0c80 7812 |x | Jump 0xc93 ; case 0x1
0c81 7800 |x | Jump 0xc82 ; case 0x2
0c82 4801 |H | Short_Literal 0x1
0c83 a5fc | | Store_Unchecked 0x2,-0x4
0c84 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c85 00da | | Load_Top At_Offset_2
0c86 00eb | | Load_Encached Diana_Cache
0c87 1898 | | Execute Package,Field_Execute,Field_Number 0x98
0c88 6808 |h | Jump_Zero 0xc91
0c89 0092 105c | \| Action Push_String_Extended,0x105c ; " is not integer valued"
0c8b e5ff | | Load 0x2,-0x1
0c8c e5fd | | Load 0x2,-0x3
0c8d 822d | - | Call 0x1,0x2d
0c8e 4800 |H | Short_Literal 0x0
0c8f a5fc | | Store_Unchecked 0x2,-0x4
0c90 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c91 8404 | | Call 0x2,0x4
0c92 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0c93 00da | | Load_Top At_Offset_2
0c94 00eb | | Load_Encached Diana_Cache
0c95 1898 | | Execute Package,Field_Execute,Field_Number 0x98
0c96 0e01 | | Execute_Immediate Not_Equal,0x1
0c97 6808 |h | Jump_Zero 0xca0
0c98 0092 105d | ]| Action Push_String_Extended,0x105d ; " is not float valued"
0c9a e5ff | | Load 0x2,-0x1
0c9b e5fd | | Load 0x2,-0x3
0c9c 822d | - | Call 0x1,0x2d
0c9d 4800 |H | Short_Literal 0x0
0c9e a5fc | | Store_Unchecked 0x2,-0x4
0c9f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ca0 8405 | | Call 0x2,0x5
0ca1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ca2 TRAP_0c50:
0ca2 0007 | | Action Break_Optional
0ca3 0092 103e | >| Action Push_String_Extended,0x103e ; " raised "
0ca5 4800 |H | Short_Literal 0x0
0ca6 4801 |H | Short_Literal 0x1
0ca7 e022 | " | Load 0x0,0x22
0ca8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0ca9 01cc | | Execute Vector,Catenate
0caa e5ff | | Load 0x2,-0x1
0cab e5fd | | Load 0x2,-0x3
0cac 822d | - | Call 0x1,0x2d
0cad 4800 |H | Short_Literal 0x0
0cae a5fc | | Store_Unchecked 0x2,-0x4
0caf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cb6 | | .CONST 0x0cb6 ; Address of begin
0cb1 0004 | | .CONST 0x0004 ; Address of exception handler
0cb2 0002 | | .CONST 0x0002 ; Number of locals
0cb3 INIT_0cb0:
0cb3 00da | | Load_Top At_Offset_2
0cb4 e021 | ! | Load 0x0,0x21
0cb5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cb6 BODY_0cb0:
0cb6 00e1 | | Load_Encached Boolean_Cache
0cb7 e403 | | Load 0x2,0x3
0cb8 00da | | Load_Top At_Offset_2
0cb9 e402 | | Load 0x2,0x2
0cba e227 | ' | Load 0x1,0x27
0cbb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cbc c403 | | Store 0x2,0x3
0cbd c404 | | Store 0x2,0x4
0cbe e404 | | Load 0x2,0x4
0cbf 7010 |p | Jump_Nonzero 0xcd0
0cc0 00d8 | | Load_Top At_Offset_0
0cc1 e5ff | | Load 0x2,-0x1
0cc2 822b | + | Call 0x1,0x2b
0cc3 c403 | | Store 0x2,0x3
0cc4 e403 | | Load 0x2,0x3
0cc5 680a |h | Jump_Zero 0xcd0
0cc6 e402 | | Load 0x2,0x2
0cc7 4800 |H | Short_Literal 0x0
0cc8 e403 | | Load 0x2,0x3
0cc9 4907 |I | Short_Literal 0x107
0cca 00eb | | Load_Encached Diana_Cache
0ccb 0096 | | Execute Package,Entry
0ccc 00db | | Load_Top At_Offset_3
0ccd e227 | ' | Load 0x1,0x27
0cce 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0ccf c402 | | Store 0x2,0x2
0cd0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cd1 0000 0000 | | .BLANK 0000[0x7]
0cd8 ; --------------------------------------------------------------------------------------
0cd8 ; SUBPROGRAM
0cd8 ; --------------------------------------------------------------------------------------
0cd8 0ce2 | | .CONST 0x0ce2 ; Address of begin
0cd9 0004 | | .CONST 0x0004 ; Address of exception handler
0cda 0002 | | .CONST 0x0002 ; Number of locals
0cdb INIT_0cd8:
0cdb e407 | | Load 0x2,0x7
0cdc 00eb | | Load_Encached Diana_Cache
0cdd 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0cde 00eb | | Load_Encached Diana_Cache
0cdf 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0ce0 00eb | | Load_Encached Diana_Cache
0ce1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0ce2 BODY_0cd8:
0ce2 4800 |H | Short_Literal 0x0
0ce3 0092 105e | ^| Action Push_String_Extended,0x105e ; "*UNIVERSAL_INTEGER*"
0ce5 00da | | Load_Top At_Offset_2
0ce6 e021 | ! | Load 0x0,0x21
0ce7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0ce8 680e |h | Jump_Zero 0xcf7
0ce9 e402 | | Load 0x2,0x2
0cea 4800 |H | Short_Literal 0x0
0ceb e407 | | Load 0x2,0x7
0cec 00eb | | Load_Encached Diana_Cache
0ced 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0cee 0092 105f | _| Action Push_String_Extended,0x105f ; "UNIVERSAL_INTEGER"
0cf0 e227 | ' | Load 0x1,0x27
0cf1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0cf2 c402 | | Store 0x2,0x2
0cf3 e408 | | Load 0x2,0x8
0cf4 0a01 | | Execute_Immediate Plus,0x1
0cf5 c408 | | Store 0x2,0x8
0cf6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cf7 4800 |H | Short_Literal 0x0
0cf8 0092 1060 | `| Action Push_String_Extended,0x1060 ; "*UNIVERSAL_REAL*"
0cfa 00da | | Load_Top At_Offset_2
0cfb e021 | ! | Load 0x0,0x21
0cfc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0cfd 680e |h | Jump_Zero 0xd0c
0cfe e402 | | Load 0x2,0x2
0cff 4800 |H | Short_Literal 0x0
0d00 e407 | | Load 0x2,0x7
0d01 00eb | | Load_Encached Diana_Cache
0d02 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0d03 0092 1061 | a| Action Push_String_Extended,0x1061 ; "UNIVERSAL_REAL"
0d05 e227 | ' | Load 0x1,0x27
0d06 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0d07 c402 | | Store 0x2,0x2
0d08 e408 | | Load 0x2,0x8
0d09 0a01 | | Execute_Immediate Plus,0x1
0d0a c408 | | Store 0x2,0x8
0d0b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d0c 4800 |H | Short_Literal 0x0
0d0d 0092 1062 | b| Action Push_String_Extended,0x1062 ; "*UNIVERSAL_FIXED*"
0d0f 00da | | Load_Top At_Offset_2
0d10 e021 | ! | Load 0x0,0x21
0d11 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0d12 680d |h | Jump_Zero 0xd20
0d13 e402 | | Load 0x2,0x2
0d14 4800 |H | Short_Literal 0x0
0d15 e407 | | Load 0x2,0x7
0d16 00eb | | Load_Encached Diana_Cache
0d17 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
0d18 0092 1063 | c| Action Push_String_Extended,0x1063 ; "UNIVERSAL_FIXED"
0d1a e227 | ' | Load 0x1,0x27
0d1b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0d1c c402 | | Store 0x2,0x2
0d1d e408 | | Load 0x2,0x8
0d1e 0a01 | | Execute_Immediate Plus,0x1
0d1f c408 | | Store 0x2,0x8
0d20 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d21 0000 0000 | | .BLANK 0000[0x7]
0d28 ; --------------------------------------------------------------------------------------
0d28 ; SUBPROGRAM
0d28 ; --------------------------------------------------------------------------------------
0d28 0d2d | - | .CONST 0x0d2d ; Address of begin
0d29 0d2f | / | .CONST 0x0d2f ; Address of exception handler
0d2a 0002 | | .CONST 0x0002 ; Number of locals
0d2b INIT_0d28:
0d2b 029f 0f5b | [| Declare_Subprogram INIT_0f58,For_Call
0d2d BODY_0d28:
0d2d 8602 | | Call 0x3,0x2
0d2e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d2f TRAP_0d28:
0d2f e009 | | Load 0x0,0x9
0d30 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d31 010f | | Execute Exception,Equal
0d32 6801 |h | Jump_Zero 0xd34
0d33 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d34 0100 | | Execute Exception,Raise
0d35 0000 0000 | | .XXX[0x3]
0d37 0000 | |
0d38 ; --------------------------------------------------------------------------------------
0d38 ; SUBPROGRAM
0d38 ; --------------------------------------------------------------------------------------
0d38 0d3d | = | .CONST 0x0d3d ; Address of begin
0d39 0d3f | ? | .CONST 0x0d3f ; Address of exception handler
0d3a 0002 | | .CONST 0x0002 ; Number of locals
0d3b INIT_0d38:
0d3b 029f 0f73 | s| Declare_Subprogram INIT_0f70,For_Call
0d3d BODY_0d38:
0d3d 8602 | | Call 0x3,0x2
0d3e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d3f TRAP_0d38:
0d3f e009 | | Load 0x0,0x9
0d40 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d41 010f | | Execute Exception,Equal
0d42 6801 |h | Jump_Zero 0xd44
0d43 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d44 0100 | | Execute Exception,Raise
0d45 0000 0000 | | .XXX[0x3]
0d47 0000 | |
0d48 ; --------------------------------------------------------------------------------------
0d48 ; SUBPROGRAM
0d48 ; --------------------------------------------------------------------------------------
0d48 0d4b | K | .CONST 0x0d4b ; Address of begin
0d49 0d58 | X | .CONST 0x0d58 ; Address of exception handler
0d4a 0001 | | .CONST 0x0001 ; Number of locals
0d4b BODY_0d48:
0d4b INIT_0d48:
0d4b e5fd | | Load 0x2,-0x3
0d4c e403 | | Load 0x2,0x3
0d4d e5fe | | Load 0x2,-0x2
0d4e e001 | | Load 0x0,0x1
0d4f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0d50 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0d51 180e | | Execute Package,Field_Execute,Field_Number 0xe
0d52 c5fd | | Store 0x2,-0x3
0d53 e5fd | | Load 0x2,-0x3
0d54 00eb | | Load_Encached Diana_Cache
0d55 18fc | | Execute Package,Field_Execute,Field_Number 0xfc
0d56 c402 | | Store 0x2,0x2
0d57 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d58 TRAP_0d48:
0d58 010e | | Execute Exception,Is_Constraint_Error
0d59 6804 |h | Jump_Zero 0xd5e
0d5a 4800 |H | Short_Literal 0x0
0d5b a5fc | | Store_Unchecked 0x2,-0x4
0d5c 00cc | | Action Pop_Block
0d5d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0d5e 0100 | | Execute Exception,Raise
0d5f 0000 | | .XXX[0x1]
0d60 ; --------------------------------------------------------------------------------------
0d60 ; SUBPROGRAM
0d60 ; --------------------------------------------------------------------------------------
0d60 0d7f | | .CONST 0x0d7f ; Address of begin
0d61 0004 | | .CONST 0x0004 ; Address of exception handler
0d62 0002 | | .CONST 0x0002 ; Number of locals
0d63 INIT_0d60:
0d63 e5ff | | Load 0x2,-0x1
0d64 01dd | | Execute Vector,First
0d65 e402 | | Load 0x2,0x2
0d66 0aff | | Execute_Immediate Plus,-0x1
0d67 e5ff | | Load 0x2,-0x1
0d68 01cf | | Execute Vector,Slice_Read
0d69 0092 1064 | d| Action Push_String_Extended,0x1064 ; " or "
0d6b 01cc | | Execute Vector,Catenate
0d6c e402 | | Load 0x2,0x2
0d6d 0a02 | | Execute_Immediate Plus,0x2
0d6e 00d8 | | Load_Top At_Offset_0
0d6f 00e2 | | Load_Encached Integer_Cache
0d70 0260 | ` | Execute Discrete,In_Type
0d71 7001 |p | Jump_Nonzero 0xd73
0d72 0801 | | Execute_Immediate Raise,0x1
0d73 e5ff | | Load 0x2,-0x1
0d74 01dc | | Execute Vector,Last
0d75 0afe | | Execute_Immediate Plus,-0x2
0d76 00d8 | | Load_Top At_Offset_0
0d77 00e2 | | Load_Encached Integer_Cache
0d78 0260 | ` | Execute Discrete,In_Type
0d79 7001 |p | Jump_Nonzero 0xd7b
0d7a 0801 | | Execute_Immediate Raise,0x1
0d7b e5ff | | Load 0x2,-0x1
0d7c 01cf | | Execute Vector,Slice_Read
0d7d 01cc | | Execute Vector,Catenate
0d7e 0007 | | Action Break_Optional
0d7f BODY_0d60:
0d7f 00d8 | | Load_Top At_Offset_0
0d80 00cb | | Action Pop_Block_With_Result
0d81 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d82 0000 0000 | | .BLANK 0000[0x6]
0d88 ; --------------------------------------------------------------------------------------
0d88 ; SUBPROGRAM
0d88 ; --------------------------------------------------------------------------------------
0d88 0d8b | | .CONST 0x0d8b ; Address of begin
0d89 0004 | | .CONST 0x0004 ; Address of exception handler
0d8a 0001 | | .CONST 0x0001 ; Number of locals
0d8b BODY_0d88:
0d8b INIT_0d88:
0d8b 00da | | Load_Top At_Offset_2
0d8c e009 | | Load 0x0,0x9
0d8d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0d8e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0d8f 01de | | Execute Vector,Not_Equal
0d90 6807 |h | Jump_Zero 0xd98
0d91 00da | | Load_Top At_Offset_2
0d92 4800 |H | Short_Literal 0x0
0d93 e24f | O | Load 0x1,0x4f
0d94 e250 | P | Load 0x1,0x50
0d95 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
0d96 8249 | I | Call 0x1,0x49
0d97 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d98 00ea | | Load_Encached Null_String_Cache
0d99 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d9a 0000 0000 | | .BLANK 0000[0x6]
0da0 ; --------------------------------------------------------------------------------------
0da0 ; SUBPROGRAM
0da0 ; --------------------------------------------------------------------------------------
0da0 0da3 | | .CONST 0x0da3 ; Address of begin
0da1 0004 | | .CONST 0x0004 ; Address of exception handler
0da2 0001 | | .CONST 0x0001 ; Number of locals
0da3 BODY_0da0:
0da3 INIT_0da0:
0da3 00da | | Load_Top At_Offset_2
0da4 01db | | Execute Vector,Length
0da5 7002 |p | Jump_Nonzero 0xda8
0da6 00ea | | Load_Encached Null_String_Cache
0da7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0da8 0092 1065 | e| Action Push_String_Extended,0x1065 ; "type "
0daa 00db | | Load_Top At_Offset_3
0dab 01dd | | Execute Vector,First
0dac e7ff | | Load 0x3,-0x1
0dad 01d7 | | Execute Vector,Field_Read
0dae e009 | | Load 0x0,0x9
0daf 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0db0 180f | | Execute Package,Field_Execute,Field_Number 0xf
0db1 e021 | ! | Load 0x0,0x21
0db2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0db3 01cc | | Execute Vector,Catenate
0db4 0092 104f | O| Action Push_String_Extended,0x104f ; ", "
0db6 01cc | | Execute Vector,Catenate
0db7 00db | | Load_Top At_Offset_3
0db8 01dd | | Execute Vector,First
0db9 0a01 | | Execute_Immediate Plus,0x1
0dba 00d8 | | Load_Top At_Offset_0
0dbb 00e2 | | Load_Encached Integer_Cache
0dbc 0260 | ` | Execute Discrete,In_Type
0dbd 7001 |p | Jump_Nonzero 0xdbf
0dbe 0801 | | Execute_Immediate Raise,0x1
0dbf e7ff | | Load 0x3,-0x1
0dc0 01dc | | Execute Vector,Last
0dc1 e7ff | | Load 0x3,-0x1
0dc2 01cf | | Execute Vector,Slice_Read
0dc3 8403 | | Call 0x2,0x3
0dc4 01cc | | Execute Vector,Catenate
0dc5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dc6 0000 0000 | | .XXX[0x2]
0dc8 ; --------------------------------------------------------------------------------------
0dc8 ; SUBPROGRAM
0dc8 ; --------------------------------------------------------------------------------------
0dc8 0dda | | .CONST 0x0dda ; Address of begin
0dc9 0004 | | .CONST 0x0004 ; Address of exception handler
0dca 0002 | | .CONST 0x0002 ; Number of locals
0dcb INIT_0dc8:
0dcb e5fc | | Load 0x2,-0x4
0dcc e5ff | | Load 0x2,-0x1
0dcd 825b | [ | Call 0x1,0x5b
0dce e5fd | | Load 0x2,-0x3
0dcf e5ff | | Load 0x2,-0x1
0dd0 825a | Z | Call 0x1,0x5a
0dd1 01cc | | Execute Vector,Catenate
0dd2 e5fe | | Load 0x2,-0x2
0dd3 e5ff | | Load 0x2,-0x1
0dd4 8259 | Y | Call 0x1,0x59
0dd5 01cc | | Execute Vector,Catenate
0dd6 e5fb | | Load 0x2,-0x5
0dd7 825c | \ | Call 0x1,0x5c
0dd8 01cc | | Execute Vector,Catenate
0dd9 0007 | | Action Break_Optional
0dda BODY_0dc8:
0dda 00d8 | | Load_Top At_Offset_0
0ddb 8237 | 7 | Call 0x1,0x37
0ddc 00cb | | Action Pop_Block_With_Result
0ddd 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0dde 0000 0000 | | .XXX[0x2]
0de0 ; --------------------------------------------------------------------------------------
0de0 ; SUBPROGRAM
0de0 ; --------------------------------------------------------------------------------------
0de0 0def | | .CONST 0x0def ; Address of begin
0de1 0004 | | .CONST 0x0004 ; Address of exception handler
0de2 0003 | | .CONST 0x0003 ; Number of locals
0de3 INIT_0de0:
0de3 00ec | | Load_Encached Diana_Tree_Cache
0de4 02c7 | | Declare_Variable Any
0de5 e5fe | | Load 0x2,-0x2
0de6 4974 |It | Short_Literal 0x174
0de7 00eb | | Load_Encached Diana_Cache
0de8 0098 | | Execute Package,Field_Read_Dynamic
0de9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0dea a602 | | Store_Unchecked 0x3,0x2
0deb 00ec | | Load_Encached Diana_Tree_Cache
0dec 02c7 | | Declare_Variable Any
0ded 00d8 | | Load_Top At_Offset_0
0dee 1c00 | | Execute_Immediate Run_Utility,0x0
0def BODY_0de0:
0def 00d9 | | Load_Top At_Offset_1
0df0 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0df1 0fa8 | | Execute_Immediate Equal,-0x58
0df2 6814 |h | Jump_Zero 0xe07
0df3 00d9 | | Load_Top At_Offset_1
0df4 4976 |Iv | Short_Literal 0x176
0df5 00eb | | Load_Encached Diana_Cache
0df6 0098 | | Execute Package,Field_Read_Dynamic
0df7 180f | | Execute Package,Field_Execute,Field_Number 0xf
0df8 c603 | | Store 0x3,0x3
0df9 e5fe | | Load 0x2,-0x2
0dfa 00eb | | Load_Encached Diana_Cache
0dfb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0dfc 00d9 | | Load_Top At_Offset_1
0dfd 00eb | | Load_Encached Diana_Cache
0dfe 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0dff 00eb | | Load_Encached Diana_Cache
0e00 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0e01 6805 |h | Jump_Zero 0xe07
0e02 00f1 | | Load_Encached Diana_Temp_Seq
0e03 00d9 | | Load_Top At_Offset_1
0e04 00eb | | Load_Encached Diana_Cache
0e05 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0e06 c402 | | Store 0x2,0x2
0e07 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e08 ; --------------------------------------------------------------------------------------
0e08 ; SUBPROGRAM
0e08 ; --------------------------------------------------------------------------------------
0e08 0e13 | | .CONST 0x0e13 ; Address of begin
0e09 0004 | | .CONST 0x0004 ; Address of exception handler
0e0a 0002 | | .CONST 0x0002 ; Number of locals
0e0b INIT_0e08:
0e0b e406 | | Load 0x2,0x6
0e0c e5fc | | Load 0x2,-0x4
0e0d 01d7 | | Execute Vector,Field_Read
0e0e e009 | | Load 0x0,0x9
0e0f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0e10 180f | | Execute Package,Field_Execute,Field_Number 0xf
0e11 e021 | ! | Load 0x0,0x21
0e12 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0e13 BODY_0e08:
0e13 00d8 | | Load_Top At_Offset_0
0e14 e5fd | | Load 0x2,-0x3
0e15 e029 | ) | Load 0x0,0x29
0e16 180e | | Execute Package,Field_Execute,Field_Number 0xe
0e17 701b |p | Jump_Nonzero 0xe33
0e18 4800 |H | Short_Literal 0x0
0e19 a5f8 | | Store_Unchecked 0x2,-0x8
0e1a e5f9 | | Load 0x2,-0x7
0e1b 6817 |h | Jump_Zero 0xe33
0e1c e5fa | | Load 0x2,-0x6
0e1d 680b |h | Jump_Zero 0xe29
0e1e 0092 1066 | f| Action Push_String_Extended,0x1066 ; "'s type does not have pragma "
0e20 00d9 | | Load_Top At_Offset_1
0e21 01cc | | Execute Vector,Catenate
0e22 0092 1067 | g| Action Push_String_Extended,0x1067 ; " applied to it"
0e24 01cc | | Execute Vector,Catenate
0e25 e5fe | | Load 0x2,-0x2
0e26 e5ff | | Load 0x2,-0x1
0e27 822d | - | Call 0x1,0x2d
0e28 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e29 0092 1068 | h| Action Push_String_Extended,0x1068 ; " does not have pragma "
0e2b 00d9 | | Load_Top At_Offset_1
0e2c 01cc | | Execute Vector,Catenate
0e2d 0092 1067 | g| Action Push_String_Extended,0x1067 ; " applied to it"
0e2f 01cc | | Execute Vector,Catenate
0e30 e5fe | | Load 0x2,-0x2
0e31 e5ff | | Load 0x2,-0x1
0e32 822d | - | Call 0x1,0x2d
0e33 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e34 0000 0000 | | .BLANK 0000[0x4]
0e38 ; --------------------------------------------------------------------------------------
0e38 ; SUBPROGRAM
0e38 ; --------------------------------------------------------------------------------------
0e38 0e41 | A | .CONST 0x0e41 ; Address of begin
0e39 0004 | | .CONST 0x0004 ; Address of exception handler
0e3a 0002 | | .CONST 0x0002 ; Number of locals
0e3b INIT_0e38:
0e3b e406 | | Load 0x2,0x6
0e3c e5fb | | Load 0x2,-0x5
0e3d 01d7 | | Execute Vector,Field_Read
0e3e e009 | | Load 0x0,0x9
0e3f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0e40 180f | | Execute Package,Field_Execute,Field_Number 0xf
0e41 BODY_0e38:
0e41 00d8 | | Load_Top At_Offset_0
0e42 e5fd | | Load 0x2,-0x3
0e43 e029 | ) | Load 0x0,0x29
0e44 180e | | Execute Package,Field_Execute,Field_Number 0xe
0e45 681b |h | Jump_Zero 0xe61
0e46 4800 |H | Short_Literal 0x0
0e47 a5f8 | | Store_Unchecked 0x2,-0x8
0e48 e5f9 | | Load 0x2,-0x7
0e49 6817 |h | Jump_Zero 0xe61
0e4a e5fa | | Load 0x2,-0x6
0e4b 680b |h | Jump_Zero 0xe57
0e4c 0092 1069 | i| Action Push_String_Extended,0x1069 ; "'s type has pragma "
0e4e 00d9 | | Load_Top At_Offset_1
0e4f 01cc | | Execute Vector,Catenate
0e50 0092 1067 | g| Action Push_String_Extended,0x1067 ; " applied to it"
0e52 01cc | | Execute Vector,Catenate
0e53 e5fe | | Load 0x2,-0x2
0e54 e5ff | | Load 0x2,-0x1
0e55 822d | - | Call 0x1,0x2d
0e56 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e57 0092 106a | j| Action Push_String_Extended,0x106a ; " has pragma "
0e59 00d9 | | Load_Top At_Offset_1
0e5a 01cc | | Execute Vector,Catenate
0e5b 0092 1067 | g| Action Push_String_Extended,0x1067 ; " applied to it"
0e5d 01cc | | Execute Vector,Catenate
0e5e e5fe | | Load 0x2,-0x2
0e5f e5ff | | Load 0x2,-0x1
0e60 822d | - | Call 0x1,0x2d
0e61 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e62 0000 0000 | | .BLANK 0000[0x6]
0e68 ; --------------------------------------------------------------------------------------
0e68 ; SUBPROGRAM
0e68 ; --------------------------------------------------------------------------------------
0e68 0e71 | q | .CONST 0x0e71 ; Address of begin
0e69 0004 | | .CONST 0x0004 ; Address of exception handler
0e6a 0002 | | .CONST 0x0002 ; Number of locals
0e6b INIT_0e68:
0e6b 00ec | | Load_Encached Diana_Tree_Cache
0e6c 02c7 | | Declare_Variable Any
0e6d e5fe | | Load 0x2,-0x2
0e6e 00eb | | Load_Encached Diana_Cache
0e6f 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0e70 a602 | | Store_Unchecked 0x3,0x2
0e71 BODY_0e68:
0e71 00d8 | | Load_Top At_Offset_0
0e72 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0e73 0f3b | ; | Execute_Immediate Equal,0x3b
0e74 680f |h | Jump_Zero 0xe84
0e75 00e1 | | Load_Encached Boolean_Cache
0e76 00e1 | | Load_Encached Boolean_Cache
0e77 e5fc | | Load 0x2,-0x4
0e78 e5fd | | Load 0x2,-0x3
0e79 4801 |H | Short_Literal 0x1
0e7a 4801 |H | Short_Literal 0x1
0e7b e602 | | Load 0x3,0x2
0e7c 00eb | | Load_Encached Diana_Cache
0e7d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0e7e e5ff | | Load 0x2,-0x1
0e7f 8268 | h | Call 0x1,0x68
0e80 c5fc | | Store 0x2,-0x4
0e81 c5fb | | Store 0x2,-0x5
0e82 c402 | | Store 0x2,0x2
0e83 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e84 00e1 | | Load_Encached Boolean_Cache
0e85 e5fd | | Load 0x2,-0x3
0e86 e5fe | | Load 0x2,-0x2
0e87 e5fc | | Load 0x2,-0x4
0e88 e5ff | | Load 0x2,-0x1
0e89 8264 | d | Call 0x1,0x64
0e8a c402 | | Store 0x2,0x2
0e8b e402 | | Load 0x2,0x2
0e8c 0f00 | | Execute_Immediate Equal,0x0
0e8d a5fb | | Store_Unchecked 0x2,-0x5
0e8e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e8f 0000 | | .XXX[0x1]
0e90 ; --------------------------------------------------------------------------------------
0e90 ; SUBPROGRAM
0e90 ; --------------------------------------------------------------------------------------
0e90 0e93 | | .CONST 0x0e93 ; Address of begin
0e91 0e9e | | .CONST 0x0e9e ; Address of exception handler
0e92 0001 | | .CONST 0x0001 ; Number of locals
0e93 BODY_0e90:
0e93 INIT_0e90:
0e93 00e1 | | Load_Encached Boolean_Cache
0e94 00e1 | | Load_Encached Boolean_Cache
0e95 e5fc | | Load 0x2,-0x4
0e96 e5fd | | Load 0x2,-0x3
0e97 e403 | | Load 0x2,0x3
0e98 e406 | | Load 0x2,0x6
0e99 8269 | i | Call 0x1,0x69
0e9a c5fc | | Store 0x2,-0x4
0e9b c407 | | Store 0x2,0x7
0e9c c405 | | Store 0x2,0x5
0e9d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e9e TRAP_0e90:
0e9e e009 | | Load 0x0,0x9
0e9f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ea0 010f | | Execute Exception,Equal
0ea1 6805 |h | Jump_Zero 0xea7
0ea2 4801 |H | Short_Literal 0x1
0ea3 a405 | | Store_Unchecked 0x2,0x5
0ea4 4800 |H | Short_Literal 0x0
0ea5 a407 | | Store_Unchecked 0x2,0x7
0ea6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ea7 0100 | | Execute Exception,Raise
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 6805 |h | Jump_Zero 0xeb2
0ead e402 | | Load 0x2,0x2
0eae e404 | | Load 0x2,0x4
0eaf 00eb | | Load_Encached Diana_Cache
0eb0 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
0eb1 c402 | | Store 0x2,0x2
0eb2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0eb3 0000 0000 | | .BLANK 0000[0x5]
0eb8 ; --------------------------------------------------------------------------------------
0eb8 ; SUBPROGRAM
0eb8 ; --------------------------------------------------------------------------------------
0eb8 0ec0 | | .CONST 0x0ec0 ; Address of begin
0eb9 0004 | | .CONST 0x0004 ; Address of exception handler
0eba 0002 | | .CONST 0x0002 ; Number of locals
0ebb INIT_0eb8:
0ebb e5fe | | Load 0x2,-0x2
0ebc 00eb | | Load_Encached Diana_Cache
0ebd 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0ebe 00eb | | Load_Encached Diana_Cache
0ebf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0ec0 BODY_0eb8:
0ec0 00cf | | Action Mark_Auxiliary
0ec1 e5ff | | Load 0x2,-0x1
0ec2 01d9 | | Execute Vector,Reverse_Bounds
0ec3 0263 | c | Execute Discrete,Above_Bound
0ec4 7011 |p | Jump_Nonzero 0xed6
0ec5 4801 |H | Short_Literal 0x1
0ec6 00d9 | | Load_Top At_Offset_1
0ec7 e5ff | | Load 0x2,-0x1
0ec8 01d7 | | Execute Vector,Field_Read
0ec9 e009 | | Load 0x0,0x9
0eca 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0ecb 180f | | Execute Package,Field_Execute,Field_Number 0xf
0ecc e602 | | Load 0x3,0x2
0ecd e021 | ! | Load 0x0,0x21
0ece 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0ecf 6804 |h | Jump_Zero 0xed4
0ed0 4801 |H | Short_Literal 0x1
0ed1 a5fc | | Store_Unchecked 0x2,-0x4
0ed2 00cc | | Action Pop_Block
0ed3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ed4 00c8 | | Action Pop_Auxiliary_Range
0ed5 3fef |? | Loop_Increasing 0xec5
0ed6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ed7 0000 | | .XXX[0x1]
0ed8 ; --------------------------------------------------------------------------------------
0ed8 ; SUBPROGRAM
0ed8 ; --------------------------------------------------------------------------------------
0ed8 0ef2 | | .CONST 0x0ef2 ; Address of begin
0ed9 0004 | | .CONST 0x0004 ; Address of exception handler
0eda 0004 | | .CONST 0x0004 ; Number of locals
0edb INIT_0ed8:
0edb e02a | * | Load 0x0,0x2a
0edc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0edd 02c7 | | Declare_Variable Any
0ede e403 | | Load 0x2,0x3
0edf 00eb | | Load_Encached Diana_Cache
0ee0 189f | | Execute Package,Field_Execute,Field_Number 0x9f
0ee1 a602 | | Store_Unchecked 0x3,0x2
0ee2 e02a | * | Load 0x0,0x2a
0ee3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ee4 02c7 | | Declare_Variable Any
0ee5 e5fe | | Load 0x2,-0x2
0ee6 e009 | | Load 0x0,0x9
0ee7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ee8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0ee9 a603 | | Store_Unchecked 0x3,0x3
0eea e02a | * | Load 0x0,0x2a
0eeb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eec 02c7 | | Declare_Variable Any
0eed e5fe | | Load 0x2,-0x2
0eee e009 | | Load 0x0,0x9
0eef 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ef0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0ef1 a604 | | Store_Unchecked 0x3,0x4
0ef2 BODY_0ed8:
0ef2 00d9 | | Load_Top At_Offset_1
0ef3 00db | | Load_Top At_Offset_3
0ef4 027d | } | Execute Discrete,Greater
0ef5 680d |h | Jump_Zero 0xf03
0ef6 0092 106b | k| Action Push_String_Extended,0x106b ; " is less than lower bound "
0ef8 00da | | Load_Top At_Offset_2
0ef9 e02a | * | Load 0x0,0x2a
0efa 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0efb 01cc | | Execute Vector,Catenate
0efc e5ff | | Load 0x2,-0x1
0efd e5fd | | Load 0x2,-0x3
0efe 822d | - | Call 0x1,0x2d
0eff 4800 |H | Short_Literal 0x0
0f00 a5fc | | Store_Unchecked 0x2,-0x4
0f01 00cc | | Action Pop_Block
0f02 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f03 00d8 | | Load_Top At_Offset_0
0f04 00db | | Load_Top At_Offset_3
0f05 027c | | | Execute Discrete,Less
0f06 680d |h | Jump_Zero 0xf14
0f07 0092 106c | l| Action Push_String_Extended,0x106c ; " is greater than upper bound "
0f09 00d9 | | Load_Top At_Offset_1
0f0a e02a | * | Load 0x0,0x2a
0f0b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0f0c 01cc | | Execute Vector,Catenate
0f0d e5ff | | Load 0x2,-0x1
0f0e e5fd | | Load 0x2,-0x3
0f0f 822d | - | Call 0x1,0x2d
0f10 4800 |H | Short_Literal 0x0
0f11 a5fc | | Store_Unchecked 0x2,-0x4
0f12 00cc | | Action Pop_Block
0f13 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f14 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f15 0000 0000 | | .XXX[0x3]
0f17 0000 | |
0f18 ; --------------------------------------------------------------------------------------
0f18 ; SUBPROGRAM
0f18 ; --------------------------------------------------------------------------------------
0f18 0f32 | 2 | .CONST 0x0f32 ; Address of begin
0f19 0004 | | .CONST 0x0004 ; Address of exception handler
0f1a 0004 | | .CONST 0x0004 ; Number of locals
0f1b INIT_0f18:
0f1b e02a | * | Load 0x0,0x2a
0f1c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f1d 02c7 | | Declare_Variable Any
0f1e e403 | | Load 0x2,0x3
0f1f 00eb | | Load_Encached Diana_Cache
0f20 18a0 | | Execute Package,Field_Execute,Field_Number 0xa0
0f21 a602 | | Store_Unchecked 0x3,0x2
0f22 e02a | * | Load 0x0,0x2a
0f23 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f24 02c7 | | Declare_Variable Any
0f25 e5fe | | Load 0x2,-0x2
0f26 e009 | | Load 0x0,0x9
0f27 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0f28 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0f29 a603 | | Store_Unchecked 0x3,0x3
0f2a e02a | * | Load 0x0,0x2a
0f2b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f2c 02c7 | | Declare_Variable Any
0f2d e5fe | | Load 0x2,-0x2
0f2e e009 | | Load 0x0,0x9
0f2f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0f30 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0f31 a604 | | Store_Unchecked 0x3,0x4
0f32 BODY_0f18:
0f32 00da | | Load_Top At_Offset_2
0f33 00da | | Load_Top At_Offset_2
0f34 0245 | E | Execute Float,Greater
0f35 680c |h | Jump_Zero 0xf42
0f36 0092 106b | k| Action Push_String_Extended,0x106b ; " is less than lower bound "
0f38 00da | | Load_Top At_Offset_2
0f39 826f | o | Call 0x1,0x6f
0f3a 01cc | | Execute Vector,Catenate
0f3b e5ff | | Load 0x2,-0x1
0f3c e5fd | | Load 0x2,-0x3
0f3d 822d | - | Call 0x1,0x2d
0f3e 4800 |H | Short_Literal 0x0
0f3f a5fc | | Store_Unchecked 0x2,-0x4
0f40 00cc | | Action Pop_Block
0f41 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f42 00da | | Load_Top At_Offset_2
0f43 00d9 | | Load_Top At_Offset_1
0f44 0244 | D | Execute Float,Less
0f45 680c |h | Jump_Zero 0xf52
0f46 0092 106c | l| Action Push_String_Extended,0x106c ; " is greater than upper bound "
0f48 00d9 | | Load_Top At_Offset_1
0f49 826f | o | Call 0x1,0x6f
0f4a 01cc | | Execute Vector,Catenate
0f4b e5ff | | Load 0x2,-0x1
0f4c e5fd | | Load 0x2,-0x3
0f4d 822d | - | Call 0x1,0x2d
0f4e 4800 |H | Short_Literal 0x0
0f4f a5fc | | Store_Unchecked 0x2,-0x4
0f50 00cc | | Action Pop_Block
0f51 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0f52 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f53 0000 0000 | | .BLANK 0000[0x5]
0f58 ; --------------------------------------------------------------------------------------
0f58 ; SUBPROGRAM
0f58 ; --------------------------------------------------------------------------------------
0f58 0f63 | c | .CONST 0x0f63 ; Address of begin
0f59 0004 | | .CONST 0x0004 ; Address of exception handler
0f5a 0003 | | .CONST 0x0003 ; Number of locals
0f5b INIT_0f58:
0f5b e5ff | | Load 0x2,-0x1
0f5c e020 | | Load 0x0,0x20
0f5d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f5e e009 | | Load 0x0,0x9
0f5f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0f60 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0f61 029f 0f93 | | Declare_Subprogram INIT_0f90,For_Call
0f63 BODY_0f58:
0f63 00cf | | Action Mark_Auxiliary
0f64 00da | | Load_Top At_Offset_2
0f65 01d9 | | Execute Vector,Reverse_Bounds
0f66 0263 | c | Execute Discrete,Above_Bound
0f67 7003 |p | Jump_Nonzero 0xf6b
0f68 8803 | | Call 0x4,0x3
0f69 00c8 | | Action Pop_Auxiliary_Range
0f6a 3ffd |? | Loop_Increasing 0xf68
0f6b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f6c 0000 0000 | | .BLANK 0000[0x4]
0f70 ; --------------------------------------------------------------------------------------
0f70 ; SUBPROGRAM
0f70 ; --------------------------------------------------------------------------------------
0f70 0f7b | { | .CONST 0x0f7b ; Address of begin
0f71 0f84 | | .CONST 0x0f84 ; Address of exception handler
0f72 0003 | | .CONST 0x0003 ; Number of locals
0f73 INIT_0f70:
0f73 e5ff | | Load 0x2,-0x1
0f74 e020 | | Load 0x0,0x20
0f75 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0f76 e009 | | Load 0x0,0x9
0f77 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0f78 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0f79 029f 0fa3 | | Declare_Subprogram INIT_0fa0,For_Call
0f7b BODY_0f70:
0f7b 00cf | | Action Mark_Auxiliary
0f7c 00da | | Load_Top At_Offset_2
0f7d 01d9 | | Execute Vector,Reverse_Bounds
0f7e 0263 | c | Execute Discrete,Above_Bound
0f7f 7003 |p | Jump_Nonzero 0xf83
0f80 8803 | | Call 0x4,0x3
0f81 00c8 | | Action Pop_Auxiliary_Range
0f82 3ffd |? | Loop_Increasing 0xf80
0f83 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f84 TRAP_0f70:
0f84 e009 | | Load 0x0,0x9
0f85 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f86 010f | | Execute Exception,Equal
0f87 6801 |h | Jump_Zero 0xf89
0f88 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f89 0100 | | Execute Exception,Raise
0f8a 0000 0000 | | .BLANK 0000[0x6]
0f90 ; --------------------------------------------------------------------------------------
0f90 ; SUBPROGRAM
0f90 ; --------------------------------------------------------------------------------------
0f90 0f95 | | .CONST 0x0f95 ; Address of begin
0f91 0f97 | | .CONST 0x0f97 ; Address of exception handler
0f92 0002 | | .CONST 0x0002 ; Number of locals
0f93 INIT_0f90:
0f93 029f 0fab | | Declare_Subprogram INIT_0fa8,For_Call
0f95 BODY_0f90:
0f95 8a02 | | Call 0x5,0x2
0f96 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f97 TRAP_0f90:
0f97 e009 | | Load 0x0,0x9
0f98 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f99 010f | | Execute Exception,Equal
0f9a 6801 |h | Jump_Zero 0xf9c
0f9b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0f9c 0100 | | Execute Exception,Raise
0f9d 0000 0000 | | .XXX[0x3]
0f9f 0000 | |
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; SUBPROGRAM
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0fa5 | | .CONST 0x0fa5 ; Address of begin
0fa1 0004 | | .CONST 0x0004 ; Address of exception handler
0fa2 0002 | | .CONST 0x0002 ; Number of locals
0fa3 INIT_0fa0:
0fa3 029f 0fc3 | | Declare_Subprogram INIT_0fc0,For_Call
0fa5 BODY_0fa0:
0fa5 8a02 | | Call 0x5,0x2
0fa6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0fa7 0000 | | .XXX[0x1]
0fa8 ; --------------------------------------------------------------------------------------
0fa8 ; SUBPROGRAM
0fa8 ; --------------------------------------------------------------------------------------
0fa8 0fb3 | | .CONST 0x0fb3 ; Address of begin
0fa9 0004 | | .CONST 0x0004 ; Address of exception handler
0faa 0003 | | .CONST 0x0003 ; Number of locals
0fab INIT_0fa8:
0fab e806 | | Load 0x4,0x6
0fac e802 | | Load 0x4,0x2
0fad 01d7 | | Execute Vector,Field_Read
0fae e009 | | Load 0x0,0x9
0faf 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0fb0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0fb1 029f 101b | | Declare_Subprogram INIT_1018,For_Call
0fb3 BODY_0fa8:
0fb3 00cf | | Action Mark_Auxiliary
0fb4 00da | | Load_Top At_Offset_2
0fb5 01d9 | | Execute Vector,Reverse_Bounds
0fb6 0263 | c | Execute Discrete,Above_Bound
0fb7 7003 |p | Jump_Nonzero 0xfbb
0fb8 8c03 | | Call 0x6,0x3
0fb9 00c8 | | Action Pop_Auxiliary_Range
0fba 3ffd |? | Loop_Increasing 0xfb8
0fbb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0fbc 0000 0000 | | .BLANK 0000[0x4]
0fc0 ; --------------------------------------------------------------------------------------
0fc0 ; SUBPROGRAM
0fc0 ; --------------------------------------------------------------------------------------
0fc0 0fe3 | | .CONST 0x0fe3 ; Address of begin
0fc1 100c | | .CONST 0x100c ; Address of exception handler
0fc2 0005 | | .CONST 0x0005 ; Number of locals
0fc3 INIT_0fc0:
0fc3 e009 | | Load 0x0,0x9
0fc4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fc5 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0fc6 02c7 | | Declare_Variable Any
0fc7 e806 | | Load 0x4,0x6
0fc8 e802 | | Load 0x4,0x2
0fc9 01d7 | | Execute Vector,Field_Read
0fca ac02 | | Store_Unchecked 0x6,0x2
0fcb e009 | | Load 0x0,0x9
0fcc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fcd 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0fce 02c7 | | Declare_Variable Any
0fcf 00d9 | | Load_Top At_Offset_1
0fd0 e009 | | Load 0x0,0x9
0fd1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fd2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0fd3 ac03 | | Store_Unchecked 0x6,0x3
0fd4 e009 | | Load 0x0,0x9
0fd5 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fd6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0fd7 02c7 | | Declare_Variable Any
0fd8 00da | | Load_Top At_Offset_2
0fd9 e009 | | Load 0x0,0x9
0fda 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fdb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0fdc ac04 | | Store_Unchecked 0x6,0x4
0fdd e009 | | Load 0x0,0x9
0fde 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0fdf 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0fe0 02c7 | | Declare_Variable Any
0fe1 00d8 | | Load_Top At_Offset_0
0fe2 1c00 | | Execute_Immediate Run_Utility,0x0
0fe3 BODY_0fc0:
0fe3 00da | | Load_Top At_Offset_2
0fe4 e009 | | Load 0x0,0x9
0fe5 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fe6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0fe7 7014 |p | Jump_Nonzero 0xffc
0fe8 00da | | Load_Top At_Offset_2
0fe9 e009 | | Load 0x0,0x9
0fea 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0feb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0fec 700f |p | Jump_Nonzero 0xffc
0fed 00da | | Load_Top At_Offset_2
0fee e009 | | Load 0x0,0x9
0fef 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0ff0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0ff1 cc05 | | Store 0x6,0x5
0ff2 00d8 | | Load_Top At_Offset_0
0ff3 e009 | | Load 0x0,0x9
0ff4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ff5 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0ff6 7005 |p | Jump_Nonzero 0xffc
0ff7 00d8 | | Load_Top At_Offset_0
0ff8 e009 | | Load 0x0,0x9
0ff9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ffa 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0ffb 8409 | | Call 0x2,0x9
0ffc 00d9 | | Load_Top At_Offset_1
0ffd e009 | | Load 0x0,0x9
0ffe 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fff 181b | | Execute Package,Field_Execute,Field_Number 0x1b
1000 700a |p | Jump_Nonzero 0x100b
1001 00d9 | | Load_Top At_Offset_1
1002 e009 | | Load 0x0,0x9
1003 1b15 | | Execute Package,Field_Read,Field_Number 0x15
1004 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1005 7005 |p | Jump_Nonzero 0x100b
1006 00d9 | | Load_Top At_Offset_1
1007 e009 | | Load 0x0,0x9
1008 1b15 | | Execute Package,Field_Read,Field_Number 0x15
1009 181d | | Execute Package,Field_Execute,Field_Number 0x1d
100a 8409 | | Call 0x2,0x9
100b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
100c TRAP_0fc0:
100c e009 | | Load 0x0,0x9
100d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
100e 010f | | Execute Exception,Equal
100f 6801 |h | Jump_Zero 0x1011
1010 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1011 0100 | | Execute Exception,Raise
1012 0000 0000 | | .BLANK 0000[0x6]
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 101b | | .CONST 0x101b ; Address of begin
1019 102d | - | .CONST 0x102d ; Address of exception handler
101a 0001 | | .CONST 0x0001 ; Number of locals
101b BODY_1018:
101b INIT_1018:
101b ec06 | | Load 0x6,0x6
101c ec02 | | Load 0x6,0x2
101d 01d7 | | Execute Vector,Field_Read
101e e009 | | Load 0x0,0x9
101f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1020 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1021 700a |p | Jump_Nonzero 0x102c
1022 ec06 | | Load 0x6,0x6
1023 ec02 | | Load 0x6,0x2
1024 01d7 | | Execute Vector,Field_Read
1025 e009 | | Load 0x0,0x9
1026 1b14 | | Execute Package,Field_Read,Field_Number 0x14
1027 181f | | Execute Package,Field_Execute,Field_Number 0x1f
1028 e009 | | Load 0x0,0x9
1029 1b12 | | Execute Package,Field_Read,Field_Number 0x12
102a 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
102b 8409 | | Call 0x2,0x9
102c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
102d TRAP_1018:
102d e009 | | Load 0x0,0x9
102e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
102f 010f | | Execute Exception,Equal
1030 6801 |h | Jump_Zero 0x1032
1031 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1032 0100 | | Execute Exception,Raise
1033 ; --------------------------------------------------------------------------------------
1033 ; STRING TABLE
1033 ; --------------------------------------------------------------------------------------
1033 0076 | v | .STRTAB 0x0076->0x106e ; "UNDEFINED"
1034 007d | } | .STRTAB 0x007d->0x1072 ; "OBJECT_NAME"
1035 0086 | | .STRTAB 0x0086->0x1078 ; "MISCELLANEOUS_NAME"
1036 0096 | | .STRTAB 0x0096->0x1081 ; "TYPE_NAME"
1037 009d | | .STRTAB 0x009d->0x1085 ; "Could not find all universal types in Standard"
1038 00c9 | | .STRTAB 0x00c9->0x109c ; "Target not registered"
1039 00dc | | .STRTAB 0x00dc->0x10a7 ; "Multiply defined target"
103a 00f1 | | .STRTAB 0x00f1->0x10b2 ; "Undefined type '"
103b 00ff | | .STRTAB 0x00ff->0x10ba ; "' discovered in object checking."
103c 011d | | .STRTAB 0x011d->0x10ca ; "Undefined target found in object_checking"
103d 0144 | D | .STRTAB 0x0144->0x10df ; "Target already undefined"
103e 015a | Z | .STRTAB 0x015a->0x10eb ; " raised "
103f 0160 | ` | .STRTAB 0x0160->0x10ef ; " is ambiguous"
1040 016b | k | .STRTAB 0x016b->0x10f5 ; " is not a defined operator or identifier"
1041 0191 | | .STRTAB 0x0191->0x1109 ; " is not "
1042 0197 | | .STRTAB 0x0197->0x110d ; "[]`"
1043 0198 | | .STRTAB 0x0198->0x110f ; "`"
1044 0197 | | .STRTAB 0x0197->0x110f ; "Name resolution failure for type '"
1045 01b7 | | .STRTAB 0x01b7->0x1120 ; "': "
1046 01b8 | | .STRTAB 0x01b8->0x1122 ; " is an unexpected node"
1047 01cc | | .STRTAB 0x01cc->0x112d ; " led to unexpected node "
1048 01e2 | | .STRTAB 0x01e2->0x1139 ; "type"
1049 01e4 | | .STRTAB 0x01e4->0x113b ; "Undefined"
104a 01eb | | .STRTAB 0x01eb->0x113f ; "object"
104b 01ef | | .STRTAB 0x01ef->0x1142 ; "miscellanoues name"
104c 01ff | | .STRTAB 0x01ff->0x114b ; "a "
104d 01ff | | .STRTAB 0x01ff->0x114c ; "an "
104e 0200 | | .STRTAB 0x0200->0x114e ; " Kind"
104f 0203 | | .STRTAB 0x0203->0x1150 ; ", "
1050 0203 | | .STRTAB 0x0203->0x1151 ; "a type, "
1051 0209 | | .STRTAB 0x0209->0x1155 ; "an object, "
1052 0212 | | .STRTAB 0x0212->0x115b ; "identifier '"
1053 021c | | .STRTAB 0x021c->0x1161 ; "', "
1054 021d | | .STRTAB 0x021d->0x1162 ; " violates the '"
1055 022a | * | .STRTAB 0x022a->0x116a ; "' restriction"
1056 0235 | 5 | .STRTAB 0x0235->0x1170 ; "'s type violates the '"
1057 0249 | I | .STRTAB 0x0249->0x117b ; "<*"
1058 0249 | I | .STRTAB 0x0249->0x117c ; "standard."
1059 0250 | P | .STRTAB 0x0250->0x1181 ; "0625**SMTYPE"
105a 025a | Z | .STRTAB 0x025a->0x1187 ; " is not an object of "
105b 026d | m | .STRTAB 0x026d->0x1191 ; " is not static"
105c 0279 | y | .STRTAB 0x0279->0x1198 ; " is not integer valued"
105d 028d | | .STRTAB 0x028d->0x11a3 ; " is not float valued"
105e 029f | | .STRTAB 0x029f->0x11ad ; "*UNIVERSAL_INTEGER*"
105f 02b0 | | .STRTAB 0x02b0->0x11b7 ; "UNIVERSAL_INTEGER"
1060 02bf | | .STRTAB 0x02bf->0x11bf ; "*UNIVERSAL_REAL*"
1061 02cd | | .STRTAB 0x02cd->0x11c7 ; "UNIVERSAL_REAL"
1062 02d9 | | .STRTAB 0x02d9->0x11ce ; "*UNIVERSAL_FIXED*"
1063 02e8 | | .STRTAB 0x02e8->0x11d7 ; "UNIVERSAL_FIXED"
1064 02f5 | | .STRTAB 0x02f5->0x11de ; " or "
1065 02f7 | | .STRTAB 0x02f7->0x11e0 ; "type "
1066 02fa | | .STRTAB 0x02fa->0x11e3 ; "'s type does not have pragma "
1067 0315 | | .STRTAB 0x0315->0x11f1 ; " applied to it"
1068 0321 | ! | .STRTAB 0x0321->0x11f8 ; " does not have pragma "
1069 0335 | 5 | .STRTAB 0x0335->0x1203 ; "'s type has pragma "
106a 0346 | F | .STRTAB 0x0346->0x120d ; " has pragma "
106b 0350 | P | .STRTAB 0x0350->0x1213 ; " is less than lower bound "
106c 0368 | h | .STRTAB 0x0368->0x1220 ; " is greater than upper bound "
106d 0383 | | .STREND 0x0383->0x122e
106e 554e 4445 |UNDE| .STRTAB_STRINGS
122f 0000 | | .XXX[0x1]
1230 ; --------------------------------------------------------------------------------------
1230 ; Debug Table
1230 ; --------------------------------------------------------------------------------------
1230 0004 000c | | .DEBUG4 0x0004,0x000c,0x000a,0x0000,0x0001,0x0000
1236 6803 4801 |h H | .XXX[0x5]
1238 e001 1840 | @|
123a 4504 |E |
123b 0000 0000 | | .BLANK 0000[0x5]
1240 0043 0004 | C | .XXX[0x4]
1242 0001 4501 | E |
1244 0000 0000 | | .BLANK 0000[0x4]
1248 0004 000b | | .XXX[0x1b8]
124a ea48 0000 | H |
124c 0001 0000 | |
124e 7d1d 1539 |} 9|
1250 1549 250d | I% |
1252 7d25 397d |}%9}|
1254 4d05 3515 |M 5 |
1256 7d0d 3d35 |} =5|
1258 4125 3105 |A%1 |
125a 5125 3d38 |Q%=8|
125c 0054 6125 | Ta%|
125e 3541 3115 |5A1 |
1260 3515 3951 |5 9Q|
1262 4d7d 4149 |M}AI|
1264 051d 3505 | 5 |
1266 7d25 3931 |}%91|
1268 2539 1400 |%9 |
126a 0c85 4d15 | M |
126c 4105 4905 |A I |
126e 5115 7d4d |Q }M|
1270 5509 5539 |U U9|
1272 2551 4d7d |%QM}|
1274 0549 157d | I }|
1276 2539 1519 |%9 |
1278 1925 0d25 | % %|
127a 1539 5002 | 9P |
127c 0459 0d3d | Y =|
127e 3541 2531 |5A%1|
1280 1549 7d41 | I}A|
1282 493d 4115 |I=A |
1284 4951 657d |IQe}|
1286 3125 4d50 |1%MP|
1288 0180 3519 | 5 |
128a 2531 1539 |%1 9|
128c 0535 157d | 5 }|
128e 5165 4114 |QeA |
1290 0208 2105 | ! |
1292 1105 7d39 | }9|
1294 0535 1401 | 5 |
1296 2425 1925 |$% %|
1298 3115 7d39 |1 }9|
129a 0535 1400 | 5 |
129c c029 1925 | ) %|
129e 6115 117d |a }|
12a0 3905 3514 |9 5 |
12a2 00f0 2519 | % |
12a4 2531 157d |%1 }|
12a6 5165 4114 |QeA |
12a8 014c 1151 | L Q|
12aa 1561 5000 | aP |
12ac 5c19 0925 |\ %|
12ae 3905 4964 |9 Id|
12b0 020c 2539 | %9|
12b2 0535 157d | 5 }|
12b4 0d05 4d14 | M |
12b6 0040 1555 | @ U|
12b8 4141 1548 |AA H|
12ba 0044 1531 | D 1|
12bc 3d5d 1548 |=] H|
12be 00e0 290d | ) |
12c0 0541 2551 | A%Q|
12c2 0531 2569 | 1%i|
12c4 1400 d425 | %|
12c6 113d 3951 | =9Q|
12c8 7d0d 0549 |} I|
12ca 1402 1041 | A|
12cc 3d41 1549 |=A I|
12ce 0551 2539 | Q%9|
12d0 1d7d 4d65 | }Me|
12d2 4d51 1534 |MQ 4|
12d4 0144 1155 | D U|
12d6 3925 6000 |9%` |
12d8 840d 5935 | Y5|
12da 4c01 3819 |L 8 |
12dc 5531 5149 |U1QI|
12de 2560 00b4 |%` |
12e0 0959 3401 | Y4 |
12e2 9c0d 3559 | 5Y|
12e4 4c02 140d |L |
12e6 3d4c c801 |=L |
12e8 980d 113d | =|
12ea 4c00 f419 |L |
12ec 4d41 0549 |MA I|
12ee 14c4 00e4 | |
12f0 194d 4105 | MA |
12f2 4914 c802 |I |
12f4 1819 4d41 | MA|
12f6 0549 14cc | I |
12f8 0008 194d | M|
12fa 4105 4914 |A I |
12fc d001 401d | @ |
12fe 5539 2d39 |U9-9|
1300 3d5d 3802 |=]8 |
1302 1c49 4915 | II |
1304 5149 2515 |QI% |
1306 5915 7d0d |Y } |
1308 3d39 1125 |=9 %|
130a 5125 3d38 |Q%=8|
130c 0010 253d | %=|
130e 397d 393d |9}9=|
1310 4935 0530 |I5 0|
1312 0220 213d | !=|
1314 397d 1549 |9} I|
1316 493d 4802 |I=H |
1318 2429 3d39 |$)=9|
131a 7d5d 0549 |}] I|
131c 3925 391c |9%9 |
131e 01b4 1905 | |
1320 315d 0565 |1] e|
1322 4c02 2835 |L (5|
1324 5149 0539 |QI 9|
1326 4d19 1549 |M I|
1328 7d51 6541 |}QeA|
132a 1401 a011 | |
132c 1151 2504 | Q% |
132e 0074 0d19 | t |
1330 5140 00ac |Q@ |
1332 3925 3959 |9%9Y|
1334 0531 2511 | 1% |
1336 7d05 0d0d |} |
1338 154d 4c00 | ML |
133a 3431 0955 |41 U|
133c 2531 117d |%1 }|
133e 1905 2531 | %1|
1340 1510 00bc | |
1342 5151 0549 |QQ I|
1344 1d15 517d | Q}|
1346 254d 7d49 |%M}I|
1348 151d 254d | %M|
134a 5115 4915 |Q I |
134c 1001 1859 | Y|
134e 5105 491d |Q I |
1350 1551 7d39 | Q}9|
1352 3d51 7d25 |=Q}%|
1354 3925 5125 |9%Q%|
1356 0531 2569 | 1%i|
1358 1510 022c | ,|
135a 2d3d 4151 |-=AQ|
135c 253d 397d |%=9}|
135e 2539 193c |%9 <|
1360 003c 4139 | <A9|
1362 5531 317d |U11}|
1364 3d41 5125 |=AQ%|
1366 3d39 7d25 |=9}%|
1368 3919 3c02 |9 < |
136a 3015 0955 |0 U|
136c 2531 1002 |%1 |
136e 342d 3d41 |4-=A|
1370 5125 3d39 |Q%=9|
1372 7d39 0535 |}9 5|
1374 1400 2c19 | , |
1376 4d51 4925 |MQI%|
1378 391c 0128 |9 (|
137a 3505 0d51 |5 Q|
137c 2559 157d |%Y }|
137e 4121 054d |A! M|
1380 154c 009c | L |
1382 414d 5d25 |AM]%|
1384 510d 217d |Q !}|
1386 1115 4115 | A |
1388 3911 1539 |9 9|
138a 5001 942d |P -|
138c 4d5d 2551 |M]%Q|
138e 0d21 7d39 | !}9|
1390 0535 1402 | 5 |
1392 3835 1115 |85 |
1394 1905 5531 | U1|
1396 517d 5905 |Q}Y |
1398 3155 1401 |1U |
139a c841 3d41 | A=A|
139c 5125 3d39 |Q%=9|
139e 7d51 052d |}Q -|
13a0 154d 7d05 | M} |
13a2 491c 00cc |I |
13a4 3525 4d7d |5%M}|
13a6 4149 157d |AI }|
13a8 3d41 5125 |=AQ%|
13aa 3d38 0030 |=8 0|
13ac 1121 1531 | ! 1|
13ae 4001 e000 |@ |
13b0 01c0 2919 | ) |
13b2 3d49 7d51 |=I}Q|
13b4 0549 1d15 | I |
13b6 5001 881d |P |
13b8 254d 7d39 |%M}9|
13ba 5531 3001 |U10 |
13bc 483d 5121 |H=Q!|
13be 157d 3d41 | }=A|
13c0 5125 3d39 |Q%=9|
13c2 7d25 3919 |}%9 |
13c4 3c02 3c3d |< <=|
13c6 1d15 517d | Q}|
13c8 3d41 5125 |=AQ%|
13ca 3d39 7d39 |=9}9|
13cc 0535 1400 | 5 |
13ce b845 1d15 | E |
13d0 517d 050d |Q} |
13d2 5125 5915 |Q%Y |
13d4 7d41 2105 |}A! |
13d6 4d15 4c02 |M L |
13d8 403d 1d15 |@= |
13da 517d 4d5d |Q}M]|
13dc 2551 0d21 |%Q !|
13de 7d39 0535 |}9 5|
13e0 1400 c421 | !|
13e2 1d15 517d | Q}|
13e4 2115 3140 |! 1@|
13e6 0244 2d3d | D-=|
13e8 4151 253d |AQ%=|
13ea 397d 3125 |9}1%|
13ec 4d50 0120 |MP |
13ee 1d39 0551 | 9 Q|
13f0 5549 0530 |UI 0|
13f2 0184 5105 | Q |
13f4 4d4d 3d0d |MM= |
13f6 2505 5115 |% Q |
13f8 117d 1925 | } %|
13fa 3115 7d25 |1 }%|
13fc 3919 3c01 |9 < |
13fe b065 3955 | e9U|