|
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|