|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 1370 | p | .CONST 0x1370 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 800c | | .CONST 0x800c ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 015e | ^ | .CONST 0x015e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0052 | R | .CONST 0x0052 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 000f 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0011 4800 |H | Short_Literal 0x0 0012 4802 |H | Short_Literal 0x2 0013 029f 018b | | Declare_Subprogram INIT_0188,For_Call 0015 03fe | | Declare_Type Discrete,Defined,Visible 0016 4800 |H | Short_Literal 0x0 0017 4806 |H | Short_Literal 0x6 0018 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 001a 03fe | | Declare_Type Discrete,Defined,Visible 001b 4802 |H | Short_Literal 0x2 001c 032b | + | Declare_Type Record,Incomplete,Visible 001d 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 001f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0021 4800 |H | Short_Literal 0x0 0022 481a |H | Short_Literal 0x1a 0023 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 0025 03fe | | Declare_Type Discrete,Defined,Visible 0026 4800 |H | Short_Literal 0x0 0027 480f |H | Short_Literal 0xf 0028 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 002a 03fe | | Declare_Type Discrete,Defined,Visible 002b 4800 |H | Short_Literal 0x0 002c 4806 |H | Short_Literal 0x6 002d 029f 024b | K| Declare_Subprogram INIT_0248,For_Call 002f 03fe | | Declare_Type Discrete,Defined,Visible 0030 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0032 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0034 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 0036 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0038 4800 |H | Short_Literal 0x0 0039 4804 |H | Short_Literal 0x4 003a 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 003c 03fe | | Declare_Type Discrete,Defined,Visible 003d 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 003f 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 0041 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0043 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 0045 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated 0047 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated 0049 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated 004b 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated 004d 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated 004f 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 0051 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 0053 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 0055 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated 0057 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated 0059 029a 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call,Visible,Unelaborated 005b 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated 005d 029a 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call,Visible,Unelaborated 005f 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated 0061 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated 0063 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated 0065 029a 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call,Visible,Unelaborated 0067 029a 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Visible,Unelaborated 0069 029a 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call,Visible,Unelaborated 006b 480c |H | Short_Literal 0xc 006c 0093 0e6b | k| push_full_address INIT_0e68 006e 02a0 | | Declare_Subprogram Null_Subprogram 006f 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0070 4800 |H | Short_Literal 0x0 0071 4801 |H | Short_Literal 0x1 0072 029f 0703 | | Declare_Subprogram INIT_0700,For_Call 0074 03fe | | Declare_Type Discrete,Defined,Visible 0075 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated 0077 029a 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Visible,Unelaborated 0079 00e3 | | Load_Encached Natural_Cache 007a 0129 | ) | Execute Any,Make_Visible 007b 029a 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call,Visible,Unelaborated 007d 029a 080b | | Declare_Subprogram INIT_0808,For_Outer_Call,Visible,Unelaborated 007f 029a 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call,Visible,Unelaborated 0081 029a 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Visible,Unelaborated 0083 4806 |H | Short_Literal 0x6 0084 032a | * | Declare_Type Record,Incomplete 0085 00d8 | | Load_Top At_Offset_0 0086 02a0 | | Declare_Subprogram Null_Subprogram 0087 03ad | | Declare_Type Heap_Access,Defined 0088 00d8 | | Load_Top At_Offset_0 0089 00e3 | | Load_Encached Natural_Cache 008a 02a0 | | Declare_Subprogram Null_Subprogram 008b e215 | | Load 0x1,0x15 008c 0326 | & | Complete_Type Record,By_Defining 008d 00bf | | Action Accept_Activation 008e 00e3 | | Load_Encached Natural_Cache 008f 00e3 | | Load_Encached Natural_Cache 0090 00ec | | Load_Encached Diana_Tree_Cache 0091 e214 | | Load 0x1,0x14 0092 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call 0094 4804 |H | Short_Literal 0x4 0095 032d | - | Declare_Type Record,Defined 0096 00d8 | | Load_Top At_Offset_0 0097 02a0 | | Declare_Subprogram Null_Subprogram 0098 03ad | | Declare_Type Heap_Access,Defined 0099 e210 | | Load 0x1,0x10 009a 00e2 | | Load_Encached Integer_Cache 009b 00e2 | | Load_Encached Integer_Cache 009c 02a0 | | Declare_Subprogram Null_Subprogram 009d 4803 |H | Short_Literal 0x3 009e 032d | - | Declare_Type Record,Defined 009f 4800 |H | Short_Literal 0x0 00a0 49ff |I | Short_Literal 0x1ff 00a1 00e3 | | Load_Encached Natural_Cache 00a2 03f8 | | Declare_Type Discrete,Constrained 00a3 e001 | | Load 0x0,0x1 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 00d9 | | Load_Top At_Offset_1 00a6 e218 | | Load 0x1,0x18 00a7 00ec | | Load_Encached Diana_Tree_Cache 00a8 00e1 | | Load_Encached Boolean_Cache 00a9 e21a | | Load 0x1,0x1a 00aa 029f 083b | ;| Declare_Subprogram INIT_0838,For_Call 00ac e240 | @ | Load 0x1,0x40 00ad 0326 | & | Complete_Type Record,By_Defining 00ae 00e4 | | Load_Encached Positive_Cache 00af 0266 | f | Execute Discrete,Bounds 00b0 e002 | | Load 0x0,0x2 00b1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00b2 02a0 | | Declare_Subprogram Null_Subprogram 00b3 4801 |H | Short_Literal 0x1 00b4 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 00b5 00d8 | | Load_Top At_Offset_0 00b6 02a0 | | Declare_Subprogram Null_Subprogram 00b7 4818 |H | Short_Literal 0x18 00b8 03d3 | | Declare_Type Access,Defined,Accesses_Protected 00b9 e003 | | Load 0x0,0x3 00ba e004 | | Load 0x0,0x4 00bb e240 | @ | Load 0x1,0x40 00bc e241 | A | Load 0x1,0x41 00bd 00e3 | | Load_Encached Natural_Cache 00be e005 | | Load 0x0,0x5 00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c0 e006 | | Load 0x0,0x6 00c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c2 e007 | | Load 0x0,0x7 00c3 0387 | | Declare_Variable Package 00c4 00d8 | | Load_Top At_Offset_0 00c5 020f | | Execute Module,Activate 00c6 e008 | | Load 0x0,0x8 00c7 e009 | | Load 0x0,0x9 00c8 e240 | @ | Load 0x1,0x40 00c9 e241 | A | Load 0x1,0x41 00ca 00e3 | | Load_Encached Natural_Cache 00cb e005 | | Load 0x0,0x5 00cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cd e006 | | Load 0x0,0x6 00ce 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cf e007 | | Load 0x0,0x7 00d0 0387 | | Declare_Variable Package 00d1 00d8 | | Load_Top At_Offset_0 00d2 020f | | Execute Module,Activate 00d3 e00a | | Load 0x0,0xa 00d4 e00b | | Load 0x0,0xb 00d5 e242 | B | Load 0x1,0x42 00d6 e243 | C | Load 0x1,0x43 00d7 e210 | | Load 0x1,0x10 00d8 e005 | | Load 0x0,0x5 00d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00da e006 | | Load 0x0,0x6 00db 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00dc e007 | | Load 0x0,0x7 00dd 0387 | | Declare_Variable Package 00de 00d8 | | Load_Top At_Offset_0 00df 020f | | Execute Module,Activate 00e0 e00c | | Load 0x0,0xc 00e1 e00d | | Load 0x0,0xd 00e2 e002 | | Load 0x0,0x2 00e3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00e4 e00e | | Load 0x0,0xe 00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e6 00e5 | | Load_Encached Long_Integer_Cache 00e7 e00f | | Load 0x0,0xf 00e8 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00e9 e010 | | Load 0x0,0x10 00ea 0387 | | Declare_Variable Package 00eb 00d8 | | Load_Top At_Offset_0 00ec 020f | | Execute Module,Activate 00ed e001 | | Load 0x0,0x1 00ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ef 02c7 | | Declare_Variable Any 00f0 6087 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00000ffd} 00f1 e001 | | Load 0x0,0x1 00f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f3 a24c | L | Store_Unchecked 0x1,0x4c 00f4 00d9 | | Load_Top At_Offset_1 00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f6 e248 | H | Load 0x1,0x48 00f7 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00f8 0007 | | Action Break_Optional 00f9 e249 | I | Load 0x1,0x49 00fa 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00fb 0007 | | Action Break_Optional 00fc e24a | J | Load 0x1,0x4a 00fd 1913 | | Execute Package,Field_Reference,Field_Number 0x13 00fe 0007 | | Action Break_Optional 00ff e244 | D | Load 0x1,0x44 0100 0322 | " | Declare_Variable Record 0101 4800 |H | Short_Literal 0x0 0102 00d9 | | Load_Top At_Offset_1 0103 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0104 4800 |H | Short_Literal 0x0 0105 00d9 | | Load_Top At_Offset_1 0106 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0107 4800 |H | Short_Literal 0x0 0108 00d9 | | Load_Top At_Offset_1 0109 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 010a 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 010b 00c7 | | Action Elaborate_Subprogram 010c 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 010d 00c7 | | Action Elaborate_Subprogram 010e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 010f 00c7 | | Action Elaborate_Subprogram 0110 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0111 00c7 | | Action Elaborate_Subprogram 0112 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0113 00c7 | | Action Elaborate_Subprogram 0114 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0115 00c7 | | Action Elaborate_Subprogram 0116 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0117 00c7 | | Action Elaborate_Subprogram 0118 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0119 00c7 | | Action Elaborate_Subprogram 011a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 011b 00c7 | | Action Elaborate_Subprogram 011c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 011d 00c7 | | Action Elaborate_Subprogram 011e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 011f 00c7 | | Action Elaborate_Subprogram 0120 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0121 00c7 | | Action Elaborate_Subprogram 0122 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0123 00c7 | | Action Elaborate_Subprogram 0124 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0125 00c7 | | Action Elaborate_Subprogram 0126 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0127 00c7 | | Action Elaborate_Subprogram 0128 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0129 00c7 | | Action Elaborate_Subprogram 012a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 012b 00c7 | | Action Elaborate_Subprogram 012c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 012d 00c7 | | Action Elaborate_Subprogram 012e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 012f 00c7 | | Action Elaborate_Subprogram 0130 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0131 00c7 | | Action Elaborate_Subprogram 0132 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0133 00c7 | | Action Elaborate_Subprogram 0134 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0135 00c7 | | Action Elaborate_Subprogram 0136 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0137 00c7 | | Action Elaborate_Subprogram 0138 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0139 00c7 | | Action Elaborate_Subprogram 013a 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 013b 00c7 | | Action Elaborate_Subprogram 013c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 013d 00c7 | | Action Elaborate_Subprogram 013e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 013f 00c7 | | Action Elaborate_Subprogram 0140 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call 0142 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0143 00c7 | | Action Elaborate_Subprogram 0144 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0145 00c7 | | Action Elaborate_Subprogram 0146 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0147 00c7 | | Action Elaborate_Subprogram 0148 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0149 00c7 | | Action Elaborate_Subprogram 014a 00b6 | | Action Make_Scope 014b 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 014c 4802 |H | Short_Literal 0x2 014d e237 | 7 | Load 0x1,0x37 014e 020e | | Execute Module,Augment_Imports 014f e237 | 7 | Load 0x1,0x37 0150 020d | | Execute Module,Elaborate 0151 0007 | | Action Break_Optional 0152 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0153 00c7 | | Action Elaborate_Subprogram 0154 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0155 00c7 | | Action Elaborate_Subprogram 0156 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 0157 00c7 | | Action Elaborate_Subprogram 0158 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0159 00c7 | | Action Elaborate_Subprogram 015a 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 015b 00c7 | | Action Elaborate_Subprogram 015c 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 015d 00c7 | | Action Elaborate_Subprogram 015e BODY_0008: 015e e24b | K | Load 0x1,0x4b 015f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0160 e005 | | Load 0x0,0x5 0161 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0162 e006 | | Load 0x0,0x6 0163 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0164 e24b | K | Load 0x1,0x4b 0165 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0166 c24d | M | Store 0x1,0x4d 0167 00bc | | Action Signal_Activated 0168 00bb | | Action Signal_Completion 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4800 |H | Short_Literal 0x0 0174 00ca | | Action Exit_Nullary_Function 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 0000 0000 | | .LITERAL {0x00000000, 0x00000ffd} 017c 0000 0000 | | .BLANK 0000[0x4] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 0f00 | | Execute_Immediate Equal,0x0 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 4607 |F | Jump_Case 0x8 018c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 018d 7806 |x | Jump 0x194 ; case 0x1 018e 7809 |x | Jump 0x198 ; case 0x2 018f 780d |x | Jump 0x19d ; case 0x3 0190 7810 |x | Jump 0x1a1 ; case 0x4 0191 7811 |x | Jump 0x1a3 ; case 0x5 0192 7812 |x | Jump 0x1a5 ; case 0x6 0193 7815 |x | Jump 0x1a9 ; case 0x7 0194 00da | | Load_Top At_Offset_2 0195 0091 10e2 | | Action Push_String_Extended_Indexed,0x10e2 ; "REFERRED_TO_ITEM" 0197 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0198 00db | | Load_Top At_Offset_3 0199 00db | | Load_Top At_Offset_3 019a 00e0 | | Load_Encached Standard_Cache 019b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 019c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019d 00da | | Load_Top At_Offset_2 019e 00e0 | | Load_Encached Standard_Cache 019f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a1 00db | | Load_Top At_Offset_3 01a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a3 00db | | Load_Top At_Offset_3 01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a5 e213 | | Load 0x1,0x13 01a6 00dc | | Load_Top At_Offset_4 01a7 0267 | g | Execute Discrete,Predecessor 01a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a9 e213 | | Load 0x1,0x13 01aa 00dc | | Load_Top At_Offset_4 01ab 0268 | h | Execute Discrete,Successor 01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4607 |F | Jump_Case 0x8 01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01b5 7806 |x | Jump 0x1bc ; case 0x1 01b6 7809 |x | Jump 0x1c0 ; case 0x2 01b7 780d |x | Jump 0x1c5 ; case 0x3 01b8 7810 |x | Jump 0x1c9 ; case 0x4 01b9 7811 |x | Jump 0x1cb ; case 0x5 01ba 7812 |x | Jump 0x1cd ; case 0x6 01bb 7815 |x | Jump 0x1d1 ; case 0x7 01bc 00da | | Load_Top At_Offset_2 01bd 0091 10e5 | | Action Push_String_Extended_Indexed,0x10e5 ; "NONE" 01bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c0 00db | | Load_Top At_Offset_3 01c1 00db | | Load_Top At_Offset_3 01c2 00e0 | | Load_Encached Standard_Cache 01c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c5 00da | | Load_Top At_Offset_2 01c6 00e0 | | Load_Encached Standard_Cache 01c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c9 00db | | Load_Top At_Offset_3 01ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01cb 00db | | Load_Top At_Offset_3 01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01cd e214 | | Load 0x1,0x14 01ce 00dc | | Load_Top At_Offset_4 01cf 0267 | g | Execute Discrete,Predecessor 01d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d1 e214 | | Load 0x1,0x14 01d2 00dc | | Load_Top At_Offset_4 01d3 0268 | h | Execute Discrete,Successor 01d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e215 | | Load 0x1,0x15 01dc 0322 | " | Declare_Variable Record 01dd e241 | A | Load 0x1,0x41 01de 00d9 | | Load_Top At_Offset_1 01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e0 4800 |H | Short_Literal 0x0 01e1 00d9 | | Load_Top At_Offset_1 01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e3 00ca | | Action Exit_Nullary_Function 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ed 7002 |p | Jump_Nonzero 0x1f0 01ee 4801 |H | Short_Literal 0x1 01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f0 4800 |H | Short_Literal 0x0 01f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f2 0000 0000 | | .BLANK 0000[0x6] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 4607 |F | Jump_Case 0x8 01fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01fd 7806 |x | Jump 0x204 ; case 0x1 01fe 7809 |x | Jump 0x208 ; case 0x2 01ff 780d |x | Jump 0x20d ; case 0x3 0200 7810 |x | Jump 0x211 ; case 0x4 0201 7811 |x | Jump 0x213 ; case 0x5 0202 7812 |x | Jump 0x215 ; case 0x6 0203 7815 |x | Jump 0x219 ; case 0x7 0204 00da | | Load_Top At_Offset_2 0205 0091 10ec | | Action Push_String_Extended_Indexed,0x10ec ; "ATTRIBUTE_ID" 0207 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0208 00db | | Load_Top At_Offset_3 0209 00db | | Load_Top At_Offset_3 020a 00e0 | | Load_Encached Standard_Cache 020b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 020d 00da | | Load_Top At_Offset_2 020e 00e0 | | Load_Encached Standard_Cache 020f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0210 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0211 00db | | Load_Top At_Offset_3 0212 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0213 00db | | Load_Top At_Offset_3 0214 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0215 e218 | | Load 0x1,0x18 0216 00dc | | Load_Top At_Offset_4 0217 0267 | g | Execute Discrete,Predecessor 0218 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0219 e218 | | Load 0x1,0x18 021a 00dc | | Load_Top At_Offset_4 021b 0268 | h | Execute Discrete,Successor 021c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4607 |F | Jump_Case 0x8 0224 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0225 7806 |x | Jump 0x22c ; case 0x1 0226 7809 |x | Jump 0x230 ; case 0x2 0227 780d |x | Jump 0x235 ; case 0x3 0228 7810 |x | Jump 0x239 ; case 0x4 0229 7811 |x | Jump 0x23b ; case 0x5 022a 7812 |x | Jump 0x23d ; case 0x6 022b 7815 |x | Jump 0x241 ; case 0x7 022c 00da | | Load_Top At_Offset_2 022d 0091 1107 | | Action Push_String_Extended_Indexed,0x1107 ; "ATTRIBUTE_TYPE" 022f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0230 00db | | Load_Top At_Offset_3 0231 00db | | Load_Top At_Offset_3 0232 00e0 | | Load_Encached Standard_Cache 0233 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0234 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0235 00da | | Load_Top At_Offset_2 0236 00e0 | | Load_Encached Standard_Cache 0237 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0238 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0239 00db | | Load_Top At_Offset_3 023a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023b 00db | | Load_Top At_Offset_3 023c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023d e219 | | Load 0x1,0x19 023e 00dc | | Load_Top At_Offset_4 023f 0267 | g | Execute Discrete,Predecessor 0240 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0241 e219 | | Load 0x1,0x19 0242 00dc | | Load_Top At_Offset_4 0243 0268 | h | Execute Discrete,Successor 0244 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4607 |F | Jump_Case 0x8 024c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 024d 7806 |x | Jump 0x254 ; case 0x1 024e 7809 |x | Jump 0x258 ; case 0x2 024f 780d |x | Jump 0x25d ; case 0x3 0250 7810 |x | Jump 0x261 ; case 0x4 0251 7811 |x | Jump 0x263 ; case 0x5 0252 7812 |x | Jump 0x265 ; case 0x6 0253 7815 |x | Jump 0x269 ; case 0x7 0254 00da | | Load_Top At_Offset_2 0255 0091 1117 | | Action Push_String_Extended_Indexed,0x1117 ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART" 0257 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0258 00db | | Load_Top At_Offset_3 0259 00db | | Load_Top At_Offset_3 025a 00e0 | | Load_Encached Standard_Cache 025b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 025c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 025d 00da | | Load_Top At_Offset_2 025e 00e0 | | Load_Encached Standard_Cache 025f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0260 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0261 00db | | Load_Top At_Offset_3 0262 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0263 00db | | Load_Top At_Offset_3 0264 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0265 e21a | | Load 0x1,0x1a 0266 00dc | | Load_Top At_Offset_4 0267 0267 | g | Execute Discrete,Predecessor 0268 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0269 e21a | | Load 0x1,0x1a 026a 00dc | | Load_Top At_Offset_4 026b 0268 | h | Execute Discrete,Successor 026c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 026d 0000 0000 | | .XXX[0x3] 026f 0000 | | 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 461a |F | Jump_Case 0x1b 0275 781c |x | Jump 0x292 ; case 0x0 0276 781f |x | Jump 0x296 ; case 0x1 0277 781c |x | Jump 0x294 ; case 0x2 0278 781f |x | Jump 0x298 ; case 0x3 0279 781c |x | Jump 0x296 ; case 0x4 027a 781f |x | Jump 0x29a ; case 0x5 027b 7820 |x | Jump 0x29c ; case 0x6 027c 7821 |x! | Jump 0x29e ; case 0x7 027d 7826 |x& | Jump 0x2a4 ; case 0x8 027e 7825 |x% | Jump 0x2a4 ; case 0x9 027f 7816 |x | Jump 0x296 ; case 0xa 0280 781f |x | Jump 0x2a0 ; case 0xb 0281 782a |x* | Jump 0x2ac ; case 0xc 0282 781d |x | Jump 0x2a0 ; case 0xd 0283 7812 |x | Jump 0x296 ; case 0xe 0284 781f |x | Jump 0x2a4 ; case 0xf 0285 781c |x | Jump 0x2a2 ; case 0x10 0286 781f |x | Jump 0x2a6 ; case 0x11 0287 781e |x | Jump 0x2a6 ; case 0x12 0288 7823 |x# | Jump 0x2ac ; case 0x13 0289 781e |x | Jump 0x2a8 ; case 0x14 028a 7809 |x | Jump 0x294 ; case 0x15 028b 7820 |x | Jump 0x2ac ; case 0x16 028c 781d |x | Jump 0x2aa ; case 0x17 028d 781e |x | Jump 0x2ac ; case 0x18 028e 781f |x | Jump 0x2ae ; case 0x19 028f 7800 |x | Jump 0x290 ; case 0x1a 0290 480f |H | Short_Literal 0xf 0291 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0292 4800 |H | Short_Literal 0x0 0293 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0294 4801 |H | Short_Literal 0x1 0295 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0296 4802 |H | Short_Literal 0x2 0297 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0298 4803 |H | Short_Literal 0x3 0299 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029a 4804 |H | Short_Literal 0x4 029b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029c 4805 |H | Short_Literal 0x5 029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029e 4806 |H | Short_Literal 0x6 029f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a0 4807 |H | Short_Literal 0x7 02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a2 4808 |H | Short_Literal 0x8 02a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a4 4809 |H | Short_Literal 0x9 02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a6 480a |H | Short_Literal 0xa 02a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a8 480b |H | Short_Literal 0xb 02a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02aa 480c |H | Short_Literal 0xc 02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ac 480d |H | Short_Literal 0xd 02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ae 480e |H | Short_Literal 0xe 02af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 0321 | ! | .CONST 0x0321 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 001e | | .CONST 0x001e ; Number of locals 02b3 INIT_02b0: 02b3 e011 | | Load 0x0,0x11 02b4 e012 | | Load 0x0,0x12 02b5 613a |a: | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x00000ffd} 02b6 00ec | | Load_Encached Diana_Tree_Cache 02b7 00e3 | | Load_Encached Natural_Cache 02b8 00eb | | Load_Encached Diana_Cache 02b9 1917 | | Execute Package,Field_Reference,Field_Number 0x17 02ba e013 | | Load 0x0,0x13 02bb 0387 | | Declare_Variable Package 02bc 00d8 | | Load_Top At_Offset_0 02bd 020f | | Execute Module,Activate 02be 4801 |H | Short_Literal 0x1 02bf e24c | L | Load 0x1,0x4c 02c0 00ea | | Load_Encached Null_String_Cache 02c1 e001 | | Load 0x0,0x1 02c2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02c3 e001 | | Load 0x0,0x1 02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02c5 011e | | Execute Any,Convert 02c6 4801 |H | Short_Literal 0x1 02c7 e24c | L | Load 0x1,0x4c 02c8 0092 1125 | %| Action Push_String_Extended,0x1125 ; "'1" 02ca e001 | | Load 0x0,0x1 02cb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02cc e001 | | Load 0x0,0x1 02cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ce 011e | | Execute Any,Convert 02cf 00ec | | Load_Encached Diana_Tree_Cache 02d0 02c7 | | Declare_Variable Any 02d1 00d8 | | Load_Top At_Offset_0 02d2 1c00 | | Execute_Immediate Run_Utility,0x0 02d3 e014 | | Load 0x0,0x14 02d4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02d6 02c7 | | Declare_Variable Any 02d7 00d8 | | Load_Top At_Offset_0 02d8 1c00 | | Execute_Immediate Run_Utility,0x0 02d9 e014 | | Load 0x0,0x14 02da 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02db 02c7 | | Declare_Variable Any 02dc 00d8 | | Load_Top At_Offset_0 02dd 1c00 | | Execute_Immediate Run_Utility,0x0 02de e014 | | Load 0x0,0x14 02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e0 e015 | | Load 0x0,0x15 02e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02e3 02c7 | | Declare_Variable Any 02e4 00d8 | | Load_Top At_Offset_0 02e5 1c00 | | Execute_Immediate Run_Utility,0x0 02e6 e015 | | Load 0x0,0x15 02e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02e9 02c7 | | Declare_Variable Any 02ea 00d8 | | Load_Top At_Offset_0 02eb 1c00 | | Execute_Immediate Run_Utility,0x0 02ec e015 | | Load 0x0,0x15 02ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02ef 02c7 | | Declare_Variable Any 02f0 00d8 | | Load_Top At_Offset_0 02f1 1c00 | | Execute_Immediate Run_Utility,0x0 02f2 e015 | | Load 0x0,0x15 02f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02f5 02c7 | | Declare_Variable Any 02f6 00d8 | | Load_Top At_Offset_0 02f7 1c00 | | Execute_Immediate Run_Utility,0x0 02f8 e015 | | Load 0x0,0x15 02f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fb 02c7 | | Declare_Variable Any 02fc 00d8 | | Load_Top At_Offset_0 02fd 1c00 | | Execute_Immediate Run_Utility,0x0 02fe e015 | | Load 0x0,0x15 02ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0300 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0301 02c7 | | Declare_Variable Any 0302 00d8 | | Load_Top At_Offset_0 0303 1c00 | | Execute_Immediate Run_Utility,0x0 0304 00e1 | | Load_Encached Boolean_Cache 0305 e402 | | Load 0x2,0x2 0306 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0307 e247 | G | Load 0x1,0x47 0308 0007 | | Action Break_Optional 0309 00d8 | | Load_Top At_Offset_0 030a 0007 | | Action Break_Optional 030b a016 | | Store_Unchecked 0x0,0x16 030c 00c6 | | Action Check_Subprogram_Elaborated 030d e210 | | Load 0x1,0x10 030e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 030f e24a | J | Load 0x1,0x4a 0310 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0311 e017 | | Load 0x0,0x17 0312 e018 | | Load 0x0,0x18 0313 4818 |H | Short_Literal 0x18 0314 0007 | | Action Break_Optional 0315 029f 08b3 | | Declare_Subprogram INIT_08b0,For_Call 0317 029f 0953 | S| Declare_Subprogram INIT_0950,For_Call 0319 029f 0a23 | #| Declare_Subprogram INIT_0a20,For_Call 031b 029f 0aab | | Declare_Subprogram INIT_0aa8,For_Call 031d 029f 0afb | | Declare_Subprogram INIT_0af8,For_Call 031f 029f 0d53 | S| Declare_Subprogram INIT_0d50,For_Call 0321 BODY_02b0: 0321 e244 | D | Load 0x1,0x44 0322 0322 | " | Declare_Variable Record 0323 4800 |H | Short_Literal 0x0 0324 00d9 | | Load_Top At_Offset_1 0325 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0326 4800 |H | Short_Literal 0x0 0327 00d9 | | Load_Top At_Offset_1 0328 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0329 4800 |H | Short_Literal 0x0 032a 00d9 | | Load_Top At_Offset_1 032b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 032c e251 | Q | Load 0x1,0x51 032d 017d | } | Execute Record,Structure_Write 032e e402 | | Load 0x2,0x2 032f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0330 e402 | | Load 0x2,0x2 0331 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0332 c410 | | Store 0x2,0x10 0333 e40b | | Load 0x2,0xb 0334 0120 | | Execute Any,Is_Value 0335 6804 |h | Jump_Zero 0x33a 0336 e015 | | Load 0x0,0x15 0337 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0338 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0339 7801 |x | Jump 0x33b 033a e40b | | Load 0x2,0xb 033b e40a | | Load 0x2,0xa 033c 0120 | | Execute Any,Is_Value 033d 6804 |h | Jump_Zero 0x342 033e e015 | | Load 0x0,0x15 033f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0340 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0341 7801 |x | Jump 0x343 0342 e40a | | Load 0x2,0xa 0343 e409 | | Load 0x2,0x9 0344 0120 | | Execute Any,Is_Value 0345 6804 |h | Jump_Zero 0x34a 0346 e015 | | Load 0x0,0x15 0347 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0348 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0349 7801 |x | Jump 0x34b 034a e409 | | Load 0x2,0x9 034b e5fd | | Load 0x2,-0x3 034c 00d8 | | Load_Top At_Offset_0 034d 0120 | | Execute Any,Is_Value 034e 6803 |h | Jump_Zero 0x352 034f e20f | | Load 0x1,0xf 0350 011e | | Execute Any,Convert 0351 7802 |x | Jump 0x354 0352 e20f | | Load 0x1,0xf 0353 0119 | | Execute Any,Check_In_Formal_Type 0354 85fe | | Call 0x2,-0x2 0355 c5fd | | Store 0x2,-0x3 0356 c409 | | Store 0x2,0x9 0357 c40a | | Store 0x2,0xa 0358 c40b | | Store 0x2,0xb 0359 e247 | G | Load 0x1,0x47 035a e40a | | Load 0x2,0xa 035b 841b | | Call 0x2,0x1b 035c c40a | | Store 0x2,0xa 035d c411 | | Store 0x2,0x11 035e e247 | G | Load 0x1,0x47 035f e40b | | Load 0x2,0xb 0360 841b | | Call 0x2,0x1b 0361 c40b | | Store 0x2,0xb 0362 c412 | | Store 0x2,0x12 0363 e411 | | Load 0x2,0x11 0364 022c | , | Execute Access,Not_Null 0365 e412 | | Load 0x2,0x12 0366 022c | , | Execute Access,Not_Null 0367 0279 | y | Execute Discrete,And 0368 6801 |h | Jump_Zero 0x36a 0369 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036a 4800 |H | Short_Literal 0x0 036b 0092 1126 | &| Action Push_String_Extended,0x1126 ; "?" 036d e015 | | Load 0x0,0x15 036e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 036f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0370 e015 | | Load 0x0,0x15 0371 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0372 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0373 e015 | | Load 0x0,0x15 0374 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0375 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0376 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0377 c40c | | Store 0x2,0xc 0378 00cf | | Action Mark_Auxiliary 0379 786f |xo | Jump 0x3e9 037a e409 | | Load 0x2,0x9 037b e015 | | Load 0x0,0x15 037c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 037e c40d | | Store 0x2,0xd 037f e40d | | Load 0x2,0xd 0380 e40c | | Load 0x2,0xc 0381 e015 | | Load 0x0,0x15 0382 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0383 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0384 6801 |h | Jump_Zero 0x386 0385 785d |x] | Jump 0x3e3 0386 e40d | | Load 0x2,0xd 0387 e015 | | Load 0x0,0x15 0388 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0389 1815 | | Execute Package,Field_Execute,Field_Number 0x15 038a 700d |p | Jump_Nonzero 0x398 038b e019 | | Load 0x0,0x19 038c 180e | | Execute Package,Field_Execute,Field_Number 0xe 038d 4807 |H | Short_Literal 0x7 038e e40d | | Load 0x2,0xd 038f e015 | | Load 0x0,0x15 0390 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0391 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0392 0092 1127 | '| Action Push_String_Extended,0x1127 ; " is not an ada object" 0394 01cc | | Execute Vector,Catenate 0395 e01a | | Load 0x0,0x1a 0396 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0397 784b |xK | Jump 0x3e3 0398 e40d | | Load 0x2,0xd 0399 e015 | | Load 0x0,0x15 039a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 039b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 039c 700d |p | Jump_Nonzero 0x3aa 039d e019 | | Load 0x0,0x19 039e 180e | | Execute Package,Field_Execute,Field_Number 0xe 039f 4807 |H | Short_Literal 0x7 03a0 e40d | | Load 0x2,0xd 03a1 e015 | | Load 0x0,0x15 03a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03a4 0092 1128 | (| Action Push_String_Extended,0x1128 ; " isn't installed or higher" 03a6 01cc | | Execute Vector,Catenate 03a7 e01a | | Load 0x0,0x1a 03a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03a9 7839 |x9 | Jump 0x3e3 03aa e40e | | Load 0x2,0xe 03ab 0120 | | Execute Any,Is_Value 03ac 6804 |h | Jump_Zero 0x3b1 03ad e015 | | Load 0x0,0x15 03ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03af 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 03b0 7801 |x | Jump 0x3b2 03b1 e40e | | Load 0x2,0xe 03b2 e405 | | Load 0x2,0x5 03b3 0120 | | Execute Any,Is_Value 03b4 6804 |h | Jump_Zero 0x3b9 03b5 e015 | | Load 0x0,0x15 03b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b8 7801 |x | Jump 0x3ba 03b9 e405 | | Load 0x2,0x5 03ba 4801 |H | Short_Literal 0x1 03bb e40d | | Load 0x2,0xd 03bc e015 | | Load 0x0,0x15 03bd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03bf c405 | | Store 0x2,0x5 03c0 c40e | | Store 0x2,0xe 03c1 e40e | | Load 0x2,0xe 03c2 e015 | | Load 0x0,0x15 03c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 03c5 6807 |h | Jump_Zero 0x3cd 03c6 e019 | | Load 0x0,0x19 03c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 03c8 e40e | | Load 0x2,0xe 03c9 e015 | | Load 0x0,0x15 03ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03cb 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 03cc 7816 |x | Jump 0x3e3 03cd e251 | Q | Load 0x1,0x51 03ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03cf 0a01 | | Execute_Immediate Plus,0x1 03d0 e251 | Q | Load 0x1,0x51 03d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03d2 e014 | | Load 0x0,0x14 03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d4 e406 | | Load 0x2,0x6 03d5 0120 | | Execute Any,Is_Value 03d6 6804 |h | Jump_Zero 0x3db 03d7 e014 | | Load 0x0,0x14 03d8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03da 7801 |x | Jump 0x3dc 03db e406 | | Load 0x2,0x6 03dc e405 | | Load 0x2,0x5 03dd e014 | | Load 0x0,0x14 03de 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 03df 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03e0 c406 | | Store 0x2,0x6 03e1 c408 | | Store 0x2,0x8 03e2 841e | | Call 0x2,0x1e 03e3 e409 | | Load 0x2,0x9 03e4 e015 | | Load 0x0,0x15 03e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03e7 c409 | | Store 0x2,0x9 03e8 00c9 | | Action Pop_Auxiliary_Loop 03e9 e409 | | Load 0x2,0x9 03ea e015 | | Load 0x0,0x15 03eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ec 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03ed 6f8c |o | Jump_Zero 0x37a 03ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03ef 0000 | | .XXX[0x1] 03f0 0000 0000 | | .LITERAL {0x00000000, 0x00000ffd} 03f4 0000 0000 | | .BLANK 0000[0x4] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0411 | | .CONST 0x0411 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0005 | | .CONST 0x0005 ; Number of locals 03fb INIT_03f8: 03fb 00da | | Load_Top At_Offset_2 03fc 8250 | P | Call 0x1,0x50 03fd e5fe | | Load 0x2,-0x2 03fe 8250 | P | Call 0x1,0x50 03ff 00d9 | | Load_Top At_Offset_1 0400 0217 | | Execute Heap_Access,All_Reference 0401 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0402 824e | N | Call 0x1,0x4e 0403 0217 | | Execute Heap_Access,All_Reference 0404 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0405 e001 | | Load 0x0,0x1 0406 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0407 822e | . | Call 0x1,0x2e 0408 00d9 | | Load_Top At_Offset_1 0409 0217 | | Execute Heap_Access,All_Reference 040a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 040b 824e | N | Call 0x1,0x4e 040c 0217 | | Execute Heap_Access,All_Reference 040d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 040e e001 | | Load 0x0,0x1 040f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0410 822e | . | Call 0x1,0x2e 0411 BODY_03f8: 0411 4800 |H | Short_Literal 0x0 0412 00d9 | | Load_Top At_Offset_1 0413 00db | | Load_Top At_Offset_3 0414 e01b | | Load 0x0,0x1b 0415 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0416 6802 |h | Jump_Zero 0x419 0417 4801 |H | Short_Literal 0x1 0418 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0419 4800 |H | Short_Literal 0x0 041a 00d9 | | Load_Top At_Offset_1 041b 00db | | Load_Top At_Offset_3 041c e01b | | Load 0x0,0x1b 041d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 041e 682e |h. | Jump_Zero 0x44d 041f 00db | | Load_Top At_Offset_3 0420 0217 | | Execute Heap_Access,All_Reference 0421 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0422 00db | | Load_Top At_Offset_3 0423 0217 | | Execute Heap_Access,All_Reference 0424 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0425 027c | | | Execute Discrete,Less 0426 6802 |h | Jump_Zero 0x429 0427 4801 |H | Short_Literal 0x1 0428 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0429 00db | | Load_Top At_Offset_3 042a 0217 | | Execute Heap_Access,All_Reference 042b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 042c 00db | | Load_Top At_Offset_3 042d 0217 | | Execute Heap_Access,All_Reference 042e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 042f 027f | | Execute Discrete,Equal 0430 681c |h | Jump_Zero 0x44d 0431 00db | | Load_Top At_Offset_3 0432 0217 | | Execute Heap_Access,All_Reference 0433 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0434 00db | | Load_Top At_Offset_3 0435 0217 | | Execute Heap_Access,All_Reference 0436 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0437 027c | | | Execute Discrete,Less 0438 6802 |h | Jump_Zero 0x43b 0439 4801 |H | Short_Literal 0x1 043a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 043b 00db | | Load_Top At_Offset_3 043c 0217 | | Execute Heap_Access,All_Reference 043d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 043e 00db | | Load_Top At_Offset_3 043f 0217 | | Execute Heap_Access,All_Reference 0440 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0441 027f | | Execute Discrete,Equal 0442 680a |h | Jump_Zero 0x44d 0443 00db | | Load_Top At_Offset_3 0444 0217 | | Execute Heap_Access,All_Reference 0445 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0446 00db | | Load_Top At_Offset_3 0447 0217 | | Execute Heap_Access,All_Reference 0448 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0449 027c | | | Execute Discrete,Less 044a 6802 |h | Jump_Zero 0x44d 044b 4801 |H | Short_Literal 0x1 044c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044d 4800 |H | Short_Literal 0x0 044e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 044f 0000 | | .XXX[0x1] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 045f | _ | .CONST 0x045f ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0007 | | .CONST 0x0007 ; Number of locals 0453 INIT_0450: 0453 a016 | | Store_Unchecked 0x0,0x16 0454 00c6 | | Action Check_Subprogram_Elaborated 0455 e210 | | Load 0x1,0x10 0456 4ffe |O | Short_Literal -0x2 0457 4802 |H | Short_Literal 0x2 0458 0099 | | Action Reference_Dynamic 0459 e24a | J | Load 0x1,0x4a 045a 1914 | | Execute Package,Field_Reference,Field_Number 0x14 045b e01c | | Load 0x0,0x1c 045c e01d | | Load 0x0,0x1d 045d 4807 |H | Short_Literal 0x7 045e 0007 | | Action Break_Optional 045f BODY_0450: 045f e251 | Q | Load 0x1,0x51 0460 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0461 4801 |H | Short_Literal 0x1 0462 e402 | | Load 0x2,0x2 0463 4803 |H | Short_Literal 0x3 0464 4802 |H | Short_Literal 0x2 0465 0099 | | Action Reference_Dynamic 0466 4804 |H | Short_Literal 0x4 0467 4802 |H | Short_Literal 0x2 0468 0099 | | Action Reference_Dynamic 0469 4805 |H | Short_Literal 0x5 046a 4802 |H | Short_Literal 0x2 046b 0099 | | Action Reference_Dynamic 046c 8016 | | Call 0x0,0x16 046d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 046e 0000 0000 | | .XXX[0x2] 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 4607 |F | Jump_Case 0x8 0474 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0475 7806 |x | Jump 0x47c ; case 0x1 0476 7809 |x | Jump 0x480 ; case 0x2 0477 780d |x | Jump 0x485 ; case 0x3 0478 7810 |x | Jump 0x489 ; case 0x4 0479 7811 |x | Jump 0x48b ; case 0x5 047a 7812 |x | Jump 0x48d ; case 0x6 047b 7815 |x | Jump 0x491 ; case 0x7 047c 00da | | Load_Top At_Offset_2 047d 0091 111e | | Action Push_String_Extended_Indexed,0x111e ; "SUCCESSFUL" 047f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0480 00db | | Load_Top At_Offset_3 0481 00db | | Load_Top At_Offset_3 0482 00e0 | | Load_Encached Standard_Cache 0483 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0484 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0485 00da | | Load_Top At_Offset_2 0486 00e0 | | Load_Encached Standard_Cache 0487 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0488 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0489 00db | | Load_Top At_Offset_3 048a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 048b 00db | | Load_Top At_Offset_3 048c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 048d e21f | | Load 0x1,0x1f 048e 00dc | | Load_Top At_Offset_4 048f 0267 | g | Execute Discrete,Predecessor 0490 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0491 e21f | | Load 0x1,0x1f 0492 00dc | | Load_Top At_Offset_4 0493 0268 | h | Execute Discrete,Successor 0494 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0495 0000 0000 | | .XXX[0x3] 0497 0000 | | 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 04b5 | | .CONST 0x04b5 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 00db | | Load_Top At_Offset_3 049c 0f01 | | Execute_Immediate Equal,0x1 049d 6807 |h | Jump_Zero 0x4a5 049e 00da | | Load_Top At_Offset_2 049f 8250 | P | Call 0x1,0x50 04a0 0217 | | Execute Heap_Access,All_Reference 04a1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04a2 e01e | | Load 0x0,0x1e 04a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04a4 780e |x | Jump 0x4b3 04a5 00db | | Load_Top At_Offset_3 04a6 700a |p | Jump_Nonzero 0x4b1 04a7 00da | | Load_Top At_Offset_2 04a8 8250 | P | Call 0x1,0x50 04a9 0217 | | Execute Heap_Access,All_Reference 04aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ab 824e | N | Call 0x1,0x4e 04ac 0217 | | Execute Heap_Access,All_Reference 04ad 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04ae e01e | | Load 0x0,0x1e 04af 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04b0 7802 |x | Jump 0x4b3 04b1 4803 |H | Short_Literal 0x3 04b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b3 4800 |H | Short_Literal 0x0 04b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04b5 TRAP_0498: 04b5 e01e | | Load 0x0,0x1e 04b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b7 010f | | Execute Exception,Equal 04b8 6802 |h | Jump_Zero 0x4bb 04b9 4801 |H | Short_Literal 0x1 04ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04bb e01e | | Load 0x0,0x1e 04bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04bd 010f | | Execute Exception,Equal 04be 6802 |h | Jump_Zero 0x4c1 04bf 4802 |H | Short_Literal 0x2 04c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04c1 4804 |H | Short_Literal 0x4 04c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04c3 0000 0000 | | .BLANK 0000[0x5] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 8212 | | Call 0x1,0x12 04cd 6802 |h | Jump_Zero 0x4d0 04ce 00ec | | Load_Encached Diana_Tree_Cache 04cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04d0 00db | | Load_Top At_Offset_3 04d1 4602 |F | Jump_Case 0x3 04d2 7804 |x | Jump 0x4d7 ; case 0x0 04d3 7810 |x | Jump 0x4e4 ; case 0x1 04d4 7800 |x | Jump 0x4d5 ; case 0x2 04d5 00ec | | Load_Encached Diana_Tree_Cache 04d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04d7 00da | | Load_Top At_Offset_2 04d8 8250 | P | Call 0x1,0x50 04d9 0217 | | Execute Heap_Access,All_Reference 04da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04db 824e | N | Call 0x1,0x4e 04dc 0217 | | Execute Heap_Access,All_Reference 04dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04de 00d8 | | Load_Top At_Offset_0 04df 0120 | | Execute Any,Is_Value 04e0 7002 |p | Jump_Nonzero 0x4e3 04e1 00d8 | | Load_Top At_Offset_0 04e2 011e | | Execute Any,Convert 04e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e4 00da | | Load_Top At_Offset_2 04e5 8250 | P | Call 0x1,0x50 04e6 0217 | | Execute Heap_Access,All_Reference 04e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04e8 00d8 | | Load_Top At_Offset_0 04e9 0120 | | Execute Any,Is_Value 04ea 7002 |p | Jump_Nonzero 0x4ed 04eb 00d8 | | Load_Top At_Offset_0 04ec 011e | | Execute Any,Convert 04ed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ee 0000 0000 | | .XXX[0x2] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04fa | | .CONST 0x04fa ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0003 | | .CONST 0x0003 ; Number of locals 04f3 INIT_04f0: 04f3 e014 | | Load 0x0,0x14 04f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f5 02ff | | Declare_Variable Variant_Record 04f6 00d8 | | Load_Top At_Offset_0 04f7 1c00 | | Execute_Immediate Run_Utility,0x0 04f8 e014 | | Load 0x0,0x14 04f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04fa BODY_04f0: 04fa e014 | | Load 0x0,0x14 04fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04fc 00da | | Load_Top At_Offset_2 04fd e5ff | | Load 0x2,-0x1 04fe 8250 | P | Call 0x1,0x50 04ff 0217 | | Execute Heap_Access,All_Reference 0500 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0501 824e | N | Call 0x1,0x4e 0502 0217 | | Execute Heap_Access,All_Reference 0503 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0504 e014 | | Load 0x0,0x14 0505 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0506 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0507 00d1 | | Pop_Control Pop_Count_1 0508 0059 | Y | Store_Top Discrete,At_Offset_1 0509 00d8 | | Load_Top At_Offset_0 050a 6804 |h | Jump_Zero 0x50f 050b e015 | | Load 0x0,0x15 050c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050d 180e | | Execute Package,Field_Execute,Field_Number 0xe 050e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 050f e015 | | Load 0x0,0x15 0510 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0511 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0512 180e | | Execute Package,Field_Execute,Field_Number 0xe 0513 00ec | | Load_Encached Diana_Tree_Cache 0514 00ec | | Load_Encached Diana_Tree_Cache 0515 e014 | | Load 0x0,0x14 0516 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0517 e402 | | Load 0x2,0x2 0518 e014 | | Load 0x0,0x14 0519 1810 | | Execute Package,Field_Execute,Field_Number 0x10 051a e402 | | Load 0x2,0x2 051b e014 | | Load 0x0,0x14 051c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 051d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 051e e015 | | Load 0x0,0x15 051f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0520 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0521 e015 | | Load 0x0,0x15 0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0523 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0524 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0525 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0526 0000 0000 | | .XXX[0x2] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0532 | 2 | .CONST 0x0532 ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0003 | | .CONST 0x0003 ; Number of locals 052b INIT_0528: 052b e014 | | Load 0x0,0x14 052c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 052d 02ff | | Declare_Variable Variant_Record 052e 00d8 | | Load_Top At_Offset_0 052f 1c00 | | Execute_Immediate Run_Utility,0x0 0530 e014 | | Load 0x0,0x14 0531 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0532 BODY_0528: 0532 e014 | | Load 0x0,0x14 0533 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0534 00da | | Load_Top At_Offset_2 0535 e5ff | | Load 0x2,-0x1 0536 8250 | P | Call 0x1,0x50 0537 0217 | | Execute Heap_Access,All_Reference 0538 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0539 824f | O | Call 0x1,0x4f 053a 0217 | | Execute Heap_Access,All_Reference 053b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 053c e014 | | Load 0x0,0x14 053d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 053e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 053f 00d1 | | Pop_Control Pop_Count_1 0540 0059 | Y | Store_Top Discrete,At_Offset_1 0541 00d8 | | Load_Top At_Offset_0 0542 6804 |h | Jump_Zero 0x547 0543 e015 | | Load 0x0,0x15 0544 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0545 180e | | Execute Package,Field_Execute,Field_Number 0xe 0546 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0547 e015 | | Load 0x0,0x15 0548 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0549 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 054a 180e | | Execute Package,Field_Execute,Field_Number 0xe 054b 00ec | | Load_Encached Diana_Tree_Cache 054c 00ec | | Load_Encached Diana_Tree_Cache 054d e014 | | Load 0x0,0x14 054e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 054f e402 | | Load 0x2,0x2 0550 e014 | | Load 0x0,0x14 0551 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0552 e402 | | Load 0x2,0x2 0553 e014 | | Load 0x0,0x14 0554 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0555 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0556 e015 | | Load 0x0,0x15 0557 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0558 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0559 e015 | | Load 0x0,0x15 055a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 055b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 055c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 055d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 055e 0000 0000 | | .XXX[0x2] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 e251 | Q | Load 0x1,0x51 0564 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0565 00ca | | Action Exit_Nullary_Function 0566 0000 0000 | | .XXX[0x2] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 00da | | Load_Top At_Offset_2 056c 8212 | | Call 0x1,0x12 056d 6802 |h | Jump_Zero 0x570 056e 4806 |H | Short_Literal 0x6 056f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0570 00da | | Load_Top At_Offset_2 0571 8250 | P | Call 0x1,0x50 0572 0217 | | Execute Heap_Access,All_Reference 0573 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0574 824e | N | Call 0x1,0x4e 0575 0217 | | Execute Heap_Access,All_Reference 0576 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0577 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b 00da | | Load_Top At_Offset_2 057c 8212 | | Call 0x1,0x12 057d 6802 |h | Jump_Zero 0x580 057e 4800 |H | Short_Literal 0x0 057f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0580 00da | | Load_Top At_Offset_2 0581 8250 | P | Call 0x1,0x50 0582 0217 | | Execute Heap_Access,All_Reference 0583 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0584 824e | N | Call 0x1,0x4e 0585 0217 | | Execute Heap_Access,All_Reference 0586 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0587 4800 |H | Short_Literal 0x0 0588 4801 |H | Short_Literal 0x1 0589 0262 | b | Execute Discrete,In_Range 058a 7002 |p | Jump_Nonzero 0x58d 058b 4800 |H | Short_Literal 0x0 058c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058d 4801 |H | Short_Literal 0x1 058e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058f 0000 | | .XXX[0x1] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 00da | | Load_Top At_Offset_2 0594 8212 | | Call 0x1,0x12 0595 6802 |h | Jump_Zero 0x598 0596 4800 |H | Short_Literal 0x0 0597 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0598 00da | | Load_Top At_Offset_2 0599 8250 | P | Call 0x1,0x50 059a 0217 | | Execute Heap_Access,All_Reference 059b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 059c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 059d 0000 0000 | | .XXX[0x3] 059f 0000 | | 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; SUBPROGRAM 05a0 ; -------------------------------------------------------------------------------------- 05a0 05a3 | | .CONST 0x05a3 ; Address of begin 05a1 0004 | | .CONST 0x0004 ; Address of exception handler 05a2 0001 | | .CONST 0x0001 ; Number of locals 05a3 BODY_05a0: 05a3 INIT_05a0: 05a3 00da | | Load_Top At_Offset_2 05a4 8212 | | Call 0x1,0x12 05a5 6802 |h | Jump_Zero 0x5a8 05a6 481a |H | Short_Literal 0x1a 05a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a8 00da | | Load_Top At_Offset_2 05a9 8250 | P | Call 0x1,0x50 05aa 0217 | | Execute Heap_Access,All_Reference 05ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ac 824e | N | Call 0x1,0x4e 05ad 0217 | | Execute Heap_Access,All_Reference 05ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 00da | | Load_Top At_Offset_2 05b4 8212 | | Call 0x1,0x12 05b5 6801 |h | Jump_Zero 0x5b7 05b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05b7 00db | | Load_Top At_Offset_3 05b8 0f00 | | Execute_Immediate Equal,0x0 05b9 e5fe | | Load 0x2,-0x2 05ba 0f02 | | Execute_Immediate Equal,0x2 05bb 0278 | x | Execute Discrete,Or 05bc 6808 |h | Jump_Zero 0x5c5 05bd e5fd | | Load 0x2,-0x3 05be 00db | | Load_Top At_Offset_3 05bf 8250 | P | Call 0x1,0x50 05c0 0217 | | Execute Heap_Access,All_Reference 05c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05c2 824e | N | Call 0x1,0x4e 05c3 0217 | | Execute Heap_Access,All_Reference 05c4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05c5 00db | | Load_Top At_Offset_3 05c6 0f01 | | Execute_Immediate Equal,0x1 05c7 e5fe | | Load 0x2,-0x2 05c8 0f02 | | Execute_Immediate Equal,0x2 05c9 0278 | x | Execute Discrete,Or 05ca 6808 |h | Jump_Zero 0x5d3 05cb e5fd | | Load 0x2,-0x3 05cc 00db | | Load_Top At_Offset_3 05cd 8250 | P | Call 0x1,0x50 05ce 0217 | | Execute Heap_Access,All_Reference 05cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05d0 824f | O | Call 0x1,0x4f 05d1 0217 | | Execute Heap_Access,All_Reference 05d2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 00da | | Load_Top At_Offset_2 05dc 8217 | | Call 0x1,0x17 05dd 6801 |h | Jump_Zero 0x5df 05de 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05df 00db | | Load_Top At_Offset_3 05e0 00db | | Load_Top At_Offset_3 05e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05e2 0217 | | Execute Heap_Access,All_Reference 05e3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05e4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05e5 0000 0000 | | .XXX[0x3] 05e7 0000 | | 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 00da | | Load_Top At_Offset_2 05ec 8212 | | Call 0x1,0x12 05ed 6802 |h | Jump_Zero 0x5f0 05ee 4800 |H | Short_Literal 0x0 05ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f0 00db | | Load_Top At_Offset_3 05f1 7008 |p | Jump_Nonzero 0x5fa 05f2 00da | | Load_Top At_Offset_2 05f3 8250 | P | Call 0x1,0x50 05f4 0217 | | Execute Heap_Access,All_Reference 05f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f6 824e | N | Call 0x1,0x4e 05f7 0217 | | Execute Heap_Access,All_Reference 05f8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05fa 00db | | Load_Top At_Offset_3 05fb 0f01 | | Execute_Immediate Equal,0x1 05fc 6808 |h | Jump_Zero 0x605 05fd 00da | | Load_Top At_Offset_2 05fe 8250 | P | Call 0x1,0x50 05ff 0217 | | Execute Heap_Access,All_Reference 0600 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0601 824f | O | Call 0x1,0x4f 0602 0217 | | Execute Heap_Access,All_Reference 0603 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0604 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0605 4800 |H | Short_Literal 0x0 0606 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0607 0000 | | .XXX[0x1] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060b | | .CONST 0x060b ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0001 | | .CONST 0x0001 ; Number of locals 060b BODY_0608: 060b INIT_0608: 060b 00da | | Load_Top At_Offset_2 060c 8217 | | Call 0x1,0x17 060d 6802 |h | Jump_Zero 0x610 060e 4800 |H | Short_Literal 0x0 060f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0610 00da | | Load_Top At_Offset_2 0611 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0612 0217 | | Execute Heap_Access,All_Reference 0613 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0614 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0615 0000 0000 | | .XXX[0x3] 0617 0000 | | 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 061c | | .CONST 0x061c ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0002 | | .CONST 0x0002 ; Number of locals 061b INIT_0618: 061b 00e3 | | Load_Encached Natural_Cache 061c BODY_0618: 061c 4800 |H | Short_Literal 0x0 061d e5ff | | Load 0x2,-0x1 061e 482e |H. | Short_Literal 0x2e 061f e01b | | Load 0x0,0x1b 0620 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0621 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0622 00d8 | | Load_Top At_Offset_0 0623 6809 |h | Jump_Zero 0x62d 0624 00db | | Load_Top At_Offset_3 0625 01dd | | Execute Vector,First 0626 00d9 | | Load_Top At_Offset_1 0627 0aff | | Execute_Immediate Plus,-0x1 0628 e5ff | | Load 0x2,-0x1 0629 01cf | | Execute Vector,Slice_Read 062a 0335 | 5 | Declare_Variable Array,Duplicate 062b 00cd | | Action Spare6_Action 062c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062d 00ea | | Load_Encached Null_String_Cache 062e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062f 0000 | | .XXX[0x1] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0634 | 4 | .CONST 0x0634 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0002 | | .CONST 0x0002 ; Number of locals 0633 INIT_0630: 0633 00e3 | | Load_Encached Natural_Cache 0634 BODY_0630: 0634 4800 |H | Short_Literal 0x0 0635 e5ff | | Load 0x2,-0x1 0636 482e |H. | Short_Literal 0x2e 0637 e01b | | Load 0x0,0x1b 0638 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0639 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 063a 00d8 | | Load_Top At_Offset_0 063b 680e |h | Jump_Zero 0x64a 063c 00d8 | | Load_Top At_Offset_0 063d 0a01 | | Execute_Immediate Plus,0x1 063e 00d8 | | Load_Top At_Offset_0 063f 00e2 | | Load_Encached Integer_Cache 0640 0260 | ` | Execute Discrete,In_Type 0641 7001 |p | Jump_Nonzero 0x643 0642 0801 | | Execute_Immediate Raise,0x1 0643 e5ff | | Load 0x2,-0x1 0644 01dc | | Execute Vector,Last 0645 e5ff | | Load 0x2,-0x1 0646 01cf | | Execute Vector,Slice_Read 0647 0335 | 5 | Declare_Variable Array,Duplicate 0648 00cd | | Action Spare6_Action 0649 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064a 00db | | Load_Top At_Offset_3 064b 0335 | 5 | Declare_Variable Array,Duplicate 064c 00cd | | Action Spare6_Action 064d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064e 0000 0000 | | .XXX[0x2] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 00da | | Load_Top At_Offset_2 0654 8217 | | Call 0x1,0x17 0655 6802 |h | Jump_Zero 0x658 0656 00ea | | Load_Encached Null_String_Cache 0657 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0658 00da | | Load_Top At_Offset_2 0659 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 065a 0217 | | Execute Heap_Access,All_Reference 065b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 065c e001 | | Load 0x0,0x1 065d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 065e 822e | . | Call 0x1,0x2e 065f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 00da | | Load_Top At_Offset_2 0664 8217 | | Call 0x1,0x17 0665 6802 |h | Jump_Zero 0x668 0666 00ea | | Load_Encached Null_String_Cache 0667 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0668 00da | | Load_Top At_Offset_2 0669 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 066a 0217 | | Execute Heap_Access,All_Reference 066b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 066c e001 | | Load 0x0,0x1 066d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 066e 822d | - | Call 0x1,0x2d 066f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0673 | s | .CONST 0x0673 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0001 | | .CONST 0x0001 ; Number of locals 0673 BODY_0670: 0673 INIT_0670: 0673 00da | | Load_Top At_Offset_2 0674 8217 | | Call 0x1,0x17 0675 6802 |h | Jump_Zero 0x678 0676 4800 |H | Short_Literal 0x0 0677 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0678 00da | | Load_Top At_Offset_2 0679 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 067a 0217 | | Execute Heap_Access,All_Reference 067b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 067c e001 | | Load 0x0,0x1 067d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 067e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 067f 0000 | | .XXX[0x1] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0685 | | .CONST 0x0685 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0002 | | .CONST 0x0002 ; Number of locals 0683 INIT_0680: 0683 e215 | | Load 0x1,0x15 0684 0322 | " | Declare_Variable Record 0685 BODY_0680: 0685 00db | | Load_Top At_Offset_3 0686 8212 | | Call 0x1,0x12 0687 6802 |h | Jump_Zero 0x68a 0688 8216 | | Call 0x1,0x16 0689 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 068a e5fe | | Load 0x2,-0x2 068b 7010 |p | Jump_Nonzero 0x69c 068c e215 | | Load 0x1,0x15 068d 0322 | " | Declare_Variable Record 068e e5ff | | Load 0x2,-0x1 068f 8250 | P | Call 0x1,0x50 0690 0217 | | Execute Heap_Access,All_Reference 0691 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0692 824e | N | Call 0x1,0x4e 0693 00d9 | | Load_Top At_Offset_1 0694 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0695 e5ff | | Load 0x2,-0x1 0696 8250 | P | Call 0x1,0x50 0697 0217 | | Execute Heap_Access,All_Reference 0698 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0699 00d9 | | Load_Top At_Offset_1 069a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 069b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 069c e5fe | | Load 0x2,-0x2 069d 0f01 | | Execute_Immediate Equal,0x1 069e 6810 |h | Jump_Zero 0x6af 069f e215 | | Load 0x1,0x15 06a0 0322 | " | Declare_Variable Record 06a1 e5ff | | Load 0x2,-0x1 06a2 8250 | P | Call 0x1,0x50 06a3 0217 | | Execute Heap_Access,All_Reference 06a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06a5 824f | O | Call 0x1,0x4f 06a6 00d9 | | Load_Top At_Offset_1 06a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06a8 e5ff | | Load 0x2,-0x1 06a9 8250 | P | Call 0x1,0x50 06aa 0217 | | Execute Heap_Access,All_Reference 06ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06ac 00d9 | | Load_Top At_Offset_1 06ad 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06af 8216 | | Call 0x1,0x16 06b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06b1 0000 0000 | | .BLANK 0000[0x7] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bd | | .CONST 0x06bd ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0002 | | .CONST 0x0002 ; Number of locals 06bb INIT_06b8: 06bb 029f 0dab | | Declare_Subprogram INIT_0da8,For_Call 06bd BODY_06b8: 06bd 00db | | Load_Top At_Offset_3 06be 8217 | | Call 0x1,0x17 06bf 6802 |h | Jump_Zero 0x6c2 06c0 00ea | | Load_Encached Null_String_Cache 06c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c2 8402 | | Call 0x2,0x2 06c3 0831 | 1 | Execute_Immediate Raise,0x31 06c4 0000 0000 | | .BLANK 0000[0x4] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06cb | | .CONST 0x06cb ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0001 | | .CONST 0x0001 ; Number of locals 06cb BODY_06c8: 06cb INIT_06c8: 06cb 00da | | Load_Top At_Offset_2 06cc 8217 | | Call 0x1,0x17 06cd 6802 |h | Jump_Zero 0x6d0 06ce 00ea | | Load_Encached Null_String_Cache 06cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d0 00da | | Load_Top At_Offset_2 06d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06d2 0217 | | Execute Heap_Access,All_Reference 06d3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06d4 e001 | | Load 0x0,0x1 06d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06d7 0000 | | .XXX[0x1] 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06db | | .CONST 0x06db ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0001 | | .CONST 0x0001 ; Number of locals 06db BODY_06d8: 06db INIT_06d8: 06db 00da | | Load_Top At_Offset_2 06dc 8217 | | Call 0x1,0x17 06dd 6802 |h | Jump_Zero 0x6e0 06de 6009 |` | Indirect_Literal Discrete,0x6e8,{0x00000000, 0x7fffffff} 06df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e0 00da | | Load_Top At_Offset_2 06e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06e2 00d8 | | Load_Top At_Offset_0 06e3 00e4 | | Load_Encached Positive_Cache 06e4 0260 | ` | Execute Discrete,In_Type 06e5 7001 |p | Jump_Nonzero 0x6e7 06e6 0801 | | Execute_Immediate Raise,0x1 06e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 06ec 0000 0000 | | .BLANK 0000[0x4] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 00da | | Load_Top At_Offset_2 06f4 8217 | | Call 0x1,0x17 06f5 6802 |h | Jump_Zero 0x6f8 06f6 00ea | | Load_Encached Null_String_Cache 06f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06f8 00da | | Load_Top At_Offset_2 06f9 8230 | 0 | Call 0x1,0x30 06fa 822e | . | Call 0x1,0x2e 06fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06fc 0000 0000 | | .BLANK 0000[0x4] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 4607 |F | Jump_Case 0x8 0704 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0705 7806 |x | Jump 0x70c ; case 0x1 0706 7809 |x | Jump 0x710 ; case 0x2 0707 780d |x | Jump 0x715 ; case 0x3 0708 7810 |x | Jump 0x719 ; case 0x4 0709 7811 |x | Jump 0x71b ; case 0x5 070a 7812 |x | Jump 0x71d ; case 0x6 070b 7815 |x | Jump 0x721 ; case 0x7 070c 00da | | Load_Top At_Offset_2 070d 0091 1123 | #| Action Push_String_Extended_Indexed,0x1123 ; "START" 070f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0710 00db | | Load_Top At_Offset_3 0711 00db | | Load_Top At_Offset_3 0712 00e0 | | Load_Encached Standard_Cache 0713 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0714 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0715 00da | | Load_Top At_Offset_2 0716 00e0 | | Load_Encached Standard_Cache 0717 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0718 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0719 00db | | Load_Top At_Offset_3 071a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 071b 00db | | Load_Top At_Offset_3 071c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 071d e238 | 8 | Load 0x1,0x38 071e 00dc | | Load_Top At_Offset_4 071f 0267 | g | Execute Discrete,Predecessor 0720 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0721 e238 | 8 | Load 0x1,0x38 0722 00dc | | Load_Top At_Offset_4 0723 0268 | h | Execute Discrete,Successor 0724 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0725 0000 0000 | | .XXX[0x3] 0727 0000 | | 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 072c | , | .CONST 0x072c ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0002 | | .CONST 0x0002 ; Number of locals 072b INIT_0728: 072b 00e1 | | Load_Encached Boolean_Cache 072c BODY_0728: 072c e5fb | | Load 0x2,-0x5 072d 00d8 | | Load_Top At_Offset_0 072e 0120 | | Execute Any,Is_Value 072f 6803 |h | Jump_Zero 0x733 0730 e20f | | Load 0x1,0xf 0731 011e | | Execute Any,Convert 0732 7802 |x | Jump 0x735 0733 e20f | | Load 0x1,0xf 0734 0119 | | Execute Any,Check_In_Formal_Type 0735 4800 |H | Short_Literal 0x0 0736 85fc | | Call 0x2,-0x4 0737 c5fb | | Store 0x2,-0x5 0738 00cf | | Action Mark_Auxiliary 0739 e251 | Q | Load 0x1,0x51 073a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 073b 4801 |H | Short_Literal 0x1 073c 0263 | c | Execute Discrete,Above_Bound 073d 701e |p | Jump_Nonzero 0x75c 073e 00e1 | | Load_Encached Boolean_Cache 073f e5fb | | Load 0x2,-0x5 0740 00d8 | | Load_Top At_Offset_0 0741 0120 | | Execute Any,Is_Value 0742 6803 |h | Jump_Zero 0x746 0743 e20f | | Load 0x1,0xf 0744 011e | | Execute Any,Convert 0745 7802 |x | Jump 0x748 0746 e20f | | Load 0x1,0xf 0747 0119 | | Execute Any,Check_In_Formal_Type 0748 00da | | Load_Top At_Offset_2 0749 85fd | | Call 0x2,-0x3 074a c5fb | | Store 0x2,-0x5 074b c402 | | Store 0x2,0x2 074c 00db | | Load_Top At_Offset_3 074d 680c |h | Jump_Zero 0x75a 074e e5fb | | Load 0x2,-0x5 074f 00d8 | | Load_Top At_Offset_0 0750 0120 | | Execute Any,Is_Value 0751 6803 |h | Jump_Zero 0x755 0752 e20f | | Load 0x1,0xf 0753 011e | | Execute Any,Convert 0754 7802 |x | Jump 0x757 0755 e20f | | Load 0x1,0xf 0756 0119 | | Execute Any,Check_In_Formal_Type 0757 00d9 | | Load_Top At_Offset_1 0758 85fe | | Call 0x2,-0x2 0759 c5fb | | Store 0x2,-0x5 075a 00c8 | | Action Pop_Auxiliary_Range 075b 3fe2 |? | Loop_Increasing 0x73e 075c 00ce | | Action Pop_Auxiliary 075d e5fb | | Load 0x2,-0x5 075e 00d8 | | Load_Top At_Offset_0 075f 0120 | | Execute Any,Is_Value 0760 6803 |h | Jump_Zero 0x764 0761 e20f | | Load 0x1,0xf 0762 011e | | Execute Any,Convert 0763 7802 |x | Jump 0x766 0764 e20f | | Load 0x1,0xf 0765 0119 | | Execute Any,Check_In_Formal_Type 0766 4801 |H | Short_Literal 0x1 0767 85fc | | Call 0x2,-0x4 0768 c5fb | | Store 0x2,-0x5 0769 4505 |E | Exit_Suprogram New_Top_Offset 0x5 076a 0000 0000 | | .BLANK 0000[0x6] 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0774 | t | .CONST 0x0774 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0002 | | .CONST 0x0002 ; Number of locals 0773 INIT_0770: 0773 00e1 | | Load_Encached Boolean_Cache 0774 BODY_0770: 0774 e5fa | | Load 0x2,-0x6 0775 00d8 | | Load_Top At_Offset_0 0776 0120 | | Execute Any,Is_Value 0777 6803 |h | Jump_Zero 0x77b 0778 e20f | | Load 0x1,0xf 0779 011e | | Execute Any,Convert 077a 7802 |x | Jump 0x77d 077b e20f | | Load 0x1,0xf 077c 0119 | | Execute Any,Check_In_Formal_Type 077d 4800 |H | Short_Literal 0x0 077e 85fc | | Call 0x2,-0x4 077f c5fa | | Store 0x2,-0x6 0780 e5fb | | Load 0x2,-0x5 0781 0f01 | | Execute_Immediate Equal,0x1 0782 6836 |h6 | Jump_Zero 0x7b9 0783 00cf | | Action Mark_Auxiliary 0784 e251 | Q | Load 0x1,0x51 0785 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0786 4801 |H | Short_Literal 0x1 0787 0263 | c | Execute Discrete,Above_Bound 0788 702e |p. | Jump_Nonzero 0x7b7 0789 00e1 | | Load_Encached Boolean_Cache 078a e5fa | | Load 0x2,-0x6 078b 00d8 | | Load_Top At_Offset_0 078c 0120 | | Execute Any,Is_Value 078d 6803 |h | Jump_Zero 0x791 078e e20f | | Load 0x1,0xf 078f 011e | | Execute Any,Convert 0790 7802 |x | Jump 0x793 0791 e20f | | Load 0x1,0xf 0792 0119 | | Execute Any,Check_In_Formal_Type 0793 e215 | | Load 0x1,0x15 0794 0322 | " | Declare_Variable Record 0795 00db | | Load_Top At_Offset_3 0796 824f | O | Call 0x1,0x4f 0797 00d9 | | Load_Top At_Offset_1 0798 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0799 00db | | Load_Top At_Offset_3 079a 00d9 | | Load_Top At_Offset_1 079b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 079c 85fd | | Call 0x2,-0x3 079d c5fa | | Store 0x2,-0x6 079e c402 | | Store 0x2,0x2 079f 00db | | Load_Top At_Offset_3 07a0 6814 |h | Jump_Zero 0x7b5 07a1 e5fa | | Load 0x2,-0x6 07a2 00d8 | | Load_Top At_Offset_0 07a3 0120 | | Execute Any,Is_Value 07a4 6803 |h | Jump_Zero 0x7a8 07a5 e20f | | Load 0x1,0xf 07a6 011e | | Execute Any,Convert 07a7 7802 |x | Jump 0x7aa 07a8 e20f | | Load 0x1,0xf 07a9 0119 | | Execute Any,Check_In_Formal_Type 07aa e215 | | Load 0x1,0x15 07ab 0322 | " | Declare_Variable Record 07ac 00da | | Load_Top At_Offset_2 07ad 824f | O | Call 0x1,0x4f 07ae 00d9 | | Load_Top At_Offset_1 07af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07b0 00da | | Load_Top At_Offset_2 07b1 00d9 | | Load_Top At_Offset_1 07b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07b3 85fe | | Call 0x2,-0x2 07b4 c5fa | | Store 0x2,-0x6 07b5 00c8 | | Action Pop_Auxiliary_Range 07b6 3fd2 |? | Loop_Increasing 0x789 07b7 00ce | | Action Pop_Auxiliary 07b8 7837 |x7 | Jump 0x7f0 07b9 e5fb | | Load 0x2,-0x5 07ba 7035 |p5 | Jump_Nonzero 0x7f0 07bb 00cf | | Action Mark_Auxiliary 07bc e251 | Q | Load 0x1,0x51 07bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07be 4801 |H | Short_Literal 0x1 07bf 0263 | c | Execute Discrete,Above_Bound 07c0 702e |p. | Jump_Nonzero 0x7ef 07c1 00e1 | | Load_Encached Boolean_Cache 07c2 e5fa | | Load 0x2,-0x6 07c3 00d8 | | Load_Top At_Offset_0 07c4 0120 | | Execute Any,Is_Value 07c5 6803 |h | Jump_Zero 0x7c9 07c6 e20f | | Load 0x1,0xf 07c7 011e | | Execute Any,Convert 07c8 7802 |x | Jump 0x7cb 07c9 e20f | | Load 0x1,0xf 07ca 0119 | | Execute Any,Check_In_Formal_Type 07cb e215 | | Load 0x1,0x15 07cc 0322 | " | Declare_Variable Record 07cd 00db | | Load_Top At_Offset_3 07ce 824e | N | Call 0x1,0x4e 07cf 00d9 | | Load_Top At_Offset_1 07d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07d1 00db | | Load_Top At_Offset_3 07d2 00d9 | | Load_Top At_Offset_1 07d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07d4 85fd | | Call 0x2,-0x3 07d5 c5fa | | Store 0x2,-0x6 07d6 c402 | | Store 0x2,0x2 07d7 00db | | Load_Top At_Offset_3 07d8 6814 |h | Jump_Zero 0x7ed 07d9 e5fa | | Load 0x2,-0x6 07da 00d8 | | Load_Top At_Offset_0 07db 0120 | | Execute Any,Is_Value 07dc 6803 |h | Jump_Zero 0x7e0 07dd e20f | | Load 0x1,0xf 07de 011e | | Execute Any,Convert 07df 7802 |x | Jump 0x7e2 07e0 e20f | | Load 0x1,0xf 07e1 0119 | | Execute Any,Check_In_Formal_Type 07e2 e215 | | Load 0x1,0x15 07e3 0322 | " | Declare_Variable Record 07e4 00da | | Load_Top At_Offset_2 07e5 824e | N | Call 0x1,0x4e 07e6 00d9 | | Load_Top At_Offset_1 07e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07e8 00da | | Load_Top At_Offset_2 07e9 00d9 | | Load_Top At_Offset_1 07ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07eb 85fe | | Call 0x2,-0x2 07ec c5fa | | Store 0x2,-0x6 07ed 00c8 | | Action Pop_Auxiliary_Range 07ee 3fd2 |? | Loop_Increasing 0x7c1 07ef 00ce | | Action Pop_Auxiliary 07f0 e5fa | | Load 0x2,-0x6 07f1 00d8 | | Load_Top At_Offset_0 07f2 0120 | | Execute Any,Is_Value 07f3 6803 |h | Jump_Zero 0x7f7 07f4 e20f | | Load 0x1,0xf 07f5 011e | | Execute Any,Convert 07f6 7802 |x | Jump 0x7f9 07f7 e20f | | Load 0x1,0xf 07f8 0119 | | Execute Any,Check_In_Formal_Type 07f9 4801 |H | Short_Literal 0x1 07fa 85fc | | Call 0x2,-0x4 07fb c5fa | | Store 0x2,-0x6 07fc 4506 |E | Exit_Suprogram New_Top_Offset 0x6 07fd 0000 0000 | | .XXX[0x3] 07ff 0000 | | 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0803 | | .CONST 0x0803 ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0001 | | .CONST 0x0001 ; Number of locals 0803 BODY_0800: 0803 INIT_0800: 0803 4801 |H | Short_Literal 0x1 0804 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0805 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0806 0000 0000 | | .XXX[0x2] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 080b | | .CONST 0x080b ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0001 | | .CONST 0x0001 ; Number of locals 080b BODY_0808: 080b INIT_0808: 080b 00da | | Load_Top At_Offset_2 080c 0a01 | | Execute_Immediate Plus,0x1 080d 005b | [ | Store_Top Discrete,At_Offset_3 080e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 080f 0000 | | .XXX[0x1] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 00da | | Load_Top At_Offset_2 0814 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0815 0000 0000 | | .XXX[0x3] 0817 0000 | | 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 081b | | .CONST 0x081b ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0001 | | .CONST 0x0001 ; Number of locals 081b BODY_0818: 081b INIT_0818: 081b 00da | | Load_Top At_Offset_2 081c e251 | Q | Load 0x1,0x51 081d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 081e 027d | } | Execute Discrete,Greater 081f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0823 | # | .CONST 0x0823 ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0001 | | .CONST 0x0001 ; Number of locals 0823 BODY_0820: 0823 INIT_0820: 0823 4608 |F | Jump_Case 0x9 0824 7808 |x | Jump 0x82d ; case 0x0 0825 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0826 780d |x | Jump 0x834 ; case 0x2 0827 780c |x | Jump 0x834 ; case 0x3 0828 780b |x | Jump 0x834 ; case 0x4 0829 780a |x | Jump 0x834 ; case 0x5 082a 7809 |x | Jump 0x834 ; case 0x6 082b 7808 |x | Jump 0x834 ; case 0x7 082c 7807 |x | Jump 0x834 ; case 0x8 082d 00da | | Load_Top At_Offset_2 082e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 082f 0125 | % | Execute Any,Set_Constraint 0830 00da | | Load_Top At_Offset_2 0831 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0832 1c00 | | Execute_Immediate Run_Utility,0x0 0833 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0834 0869 | i | Execute_Immediate Raise,0x69 0835 0000 0000 | | .XXX[0x3] 0837 0000 | | 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b 4608 |F | Jump_Case 0x9 083c 7808 |x | Jump 0x845 ; case 0x0 083d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 083e 7824 |x$ | Jump 0x863 ; case 0x2 083f 7823 |x# | Jump 0x863 ; case 0x3 0840 7822 |x" | Jump 0x863 ; case 0x4 0841 7821 |x! | Jump 0x863 ; case 0x5 0842 7820 |x | Jump 0x863 ; case 0x6 0843 781f |x | Jump 0x863 ; case 0x7 0844 781e |x | Jump 0x863 ; case 0x8 0845 00da | | Load_Top At_Offset_2 0846 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0847 0125 | % | Execute Any,Set_Constraint 0848 00da | | Load_Top At_Offset_2 0849 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 084a 1c00 | | Execute_Immediate Run_Utility,0x0 084b 4800 |H | Short_Literal 0x0 084c 00db | | Load_Top At_Offset_3 084d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 084e 481a |H | Short_Literal 0x1a 084f 00db | | Load_Top At_Offset_3 0850 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0851 00da | | Load_Top At_Offset_2 0852 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0853 0125 | % | Execute Any,Set_Constraint 0854 00ec | | Load_Encached Diana_Tree_Cache 0855 00db | | Load_Top At_Offset_3 0856 00d9 | | Load_Top At_Offset_1 0857 00d9 | | Load_Top At_Offset_1 0858 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 0859 0119 | | Execute Any,Check_In_Formal_Type 085a 00d1 | | Pop_Control Pop_Count_1 085b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 085c 4800 |H | Short_Literal 0x0 085d 00db | | Load_Top At_Offset_3 085e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 085f 4806 |H | Short_Literal 0x6 0860 00db | | Load_Top At_Offset_3 0861 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0862 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0863 0869 | i | Execute_Immediate Raise,0x69 0864 0000 0000 | | .BLANK 0000[0x4] 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 0879 | y | .CONST 0x0879 ; Address of begin 0869 08ad | | .CONST 0x08ad ; Address of exception handler 086a 0006 | | .CONST 0x0006 ; Number of locals 086b INIT_0868: 086b 00ec | | Load_Encached Diana_Tree_Cache 086c 02c7 | | Declare_Variable Any 086d 00d8 | | Load_Top At_Offset_0 086e 1c00 | | Execute_Immediate Run_Utility,0x0 086f e002 | | Load 0x0,0x2 0870 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0871 e00e | | Load 0x0,0xe 0872 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0873 02c7 | | Declare_Variable Any 0874 00d8 | | Load_Top At_Offset_0 0875 1c00 | | Execute_Immediate Run_Utility,0x0 0876 00e1 | | Load_Encached Boolean_Cache 0877 029f 0dcb | | Declare_Subprogram INIT_0dc8,For_Call 0879 BODY_0868: 0879 e5ff | | Load 0x2,-0x1 087a 8212 | | Call 0x1,0x12 087b 6802 |h | Jump_Zero 0x87e 087c 4800 |H | Short_Literal 0x0 087d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 087e e5fe | | Load 0x2,-0x2 087f 7009 |p | Jump_Nonzero 0x889 0880 e5ff | | Load 0x2,-0x1 0881 8250 | P | Call 0x1,0x50 0882 0217 | | Execute Heap_Access,All_Reference 0883 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0884 824e | N | Call 0x1,0x4e 0885 0217 | | Execute Heap_Access,All_Reference 0886 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0887 c402 | | Store 0x2,0x2 0888 780b |x | Jump 0x894 0889 e5fe | | Load 0x2,-0x2 088a 0f01 | | Execute_Immediate Equal,0x1 088b 6806 |h | Jump_Zero 0x892 088c e5ff | | Load 0x2,-0x1 088d 8250 | P | Call 0x1,0x50 088e 0217 | | Execute Heap_Access,All_Reference 088f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0890 c402 | | Store 0x2,0x2 0891 7802 |x | Jump 0x894 0892 4800 |H | Short_Literal 0x0 0893 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0894 e402 | | Load 0x2,0x2 0895 00ec | | Load_Encached Diana_Tree_Cache 0896 012f | / | Execute Any,Equal 0897 7013 |p | Jump_Nonzero 0x8ab 0898 e402 | | Load 0x2,0x2 0899 0210 | | Execute Heap_Access,Get_Segment 089a a403 | | Store_Unchecked 0x2,0x3 089b 00e1 | | Load_Encached Boolean_Cache 089c 00db | | Load_Top At_Offset_3 089d e403 | | Load 0x2,0x3 089e e24d | M | Load 0x1,0x4d 089f e24b | K | Load 0x1,0x4b 08a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 08a1 c404 | | Store 0x2,0x4 08a2 005a | Z | Store_Top Discrete,At_Offset_2 08a3 00d9 | | Load_Top At_Offset_1 08a4 7001 |p | Jump_Nonzero 0x8a6 08a5 8406 | | Call 0x2,0x6 08a6 00da | | Load_Top At_Offset_2 08a7 e402 | | Load 0x2,0x2 08a8 e00e | | Load 0x0,0xe 08a9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 08aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08ab 4800 |H | Short_Literal 0x0 08ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08ad TRAP_0868: 08ad 0007 | | Action Break_Optional 08ae 4800 |H | Short_Literal 0x0 08af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b3 | | .CONST 0x08b3 ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0001 | | .CONST 0x0001 ; Number of locals 08b3 BODY_08b0: 08b3 INIT_08b0: 08b3 00da | | Load_Top At_Offset_2 08b4 00d8 | | Load_Top At_Offset_0 08b5 0c5a | Z | Execute_Immediate Greater_Equal,0x5a 08b6 705d |p] | Jump_Nonzero 0x914 08b7 4659 |FY | Jump_Case 0x5a 08b8 785c |x\ | Jump 0x915 ; case 0x0 08b9 785b |x[ | Jump 0x915 ; case 0x1 08ba 785a |xZ | Jump 0x915 ; case 0x2 08bb 7859 |xY | Jump 0x915 ; case 0x3 08bc 7858 |xX | Jump 0x915 ; case 0x4 08bd 7857 |xW | Jump 0x915 ; case 0x5 08be 7856 |xV | Jump 0x915 ; case 0x6 08bf 7855 |xU | Jump 0x915 ; case 0x7 08c0 7854 |xT | Jump 0x915 ; case 0x8 08c1 7853 |xS | Jump 0x915 ; case 0x9 08c2 7852 |xR | Jump 0x915 ; case 0xa 08c3 7851 |xQ | Jump 0x915 ; case 0xb 08c4 7850 |xP | Jump 0x915 ; case 0xc 08c5 784f |xO | Jump 0x915 ; case 0xd 08c6 784e |xN | Jump 0x915 ; case 0xe 08c7 784d |xM | Jump 0x915 ; case 0xf 08c8 784c |xL | Jump 0x915 ; case 0x10 08c9 784b |xK | Jump 0x915 ; case 0x11 08ca 784a |xJ | Jump 0x915 ; case 0x12 08cb 7849 |xI | Jump 0x915 ; case 0x13 08cc 7848 |xH | Jump 0x915 ; case 0x14 08cd 7847 |xG | Jump 0x915 ; case 0x15 08ce 7846 |xF | Jump 0x915 ; case 0x16 08cf 7845 |xE | Jump 0x915 ; case 0x17 08d0 7844 |xD | Jump 0x915 ; case 0x18 08d1 7845 |xE | Jump 0x917 ; case 0x19 08d2 7866 |xf | Jump 0x939 ; case 0x1a 08d3 7867 |xg | Jump 0x93b ; case 0x1b 08d4 786c |xl | Jump 0x941 ; case 0x1c 08d5 7843 |xC | Jump 0x919 ; case 0x1d 08d6 7846 |xF | Jump 0x91d ; case 0x1e 08d7 7847 |xG | Jump 0x91f ; case 0x1f 08d8 784a |xJ | Jump 0x923 ; case 0x20 08d9 784b |xK | Jump 0x925 ; case 0x21 08da 784c |xL | Jump 0x927 ; case 0x22 08db 784d |xM | Jump 0x929 ; case 0x23 08dc 784e |xN | Jump 0x92b ; case 0x24 08dd 7857 |xW | Jump 0x935 ; case 0x25 08de 784e |xN | Jump 0x92d ; case 0x26 08df 784f |xO | Jump 0x92f ; case 0x27 08e0 7852 |xR | Jump 0x933 ; case 0x28 08e1 7855 |xU | Jump 0x937 ; case 0x29 08e2 785a |xZ | Jump 0x93d ; case 0x2a 08e3 784d |xM | Jump 0x931 ; case 0x2b 08e4 785a |xZ | Jump 0x93f ; case 0x2c 08e5 785d |x] | Jump 0x943 ; case 0x2d 08e6 785e |x^ | Jump 0x945 ; case 0x2e 08e7 785f |x_ | Jump 0x947 ; case 0x2f 08e8 7860 |x` | Jump 0x949 ; case 0x30 08e9 7837 |x7 | Jump 0x921 ; case 0x31 08ea 782a |x* | Jump 0x915 ; case 0x32 08eb 782f |x/ | Jump 0x91b ; case 0x33 08ec 7828 |x( | Jump 0x915 ; case 0x34 08ed 7827 |x' | Jump 0x915 ; case 0x35 08ee 7826 |x& | Jump 0x915 ; case 0x36 08ef 7825 |x% | Jump 0x915 ; case 0x37 08f0 7824 |x$ | Jump 0x915 ; case 0x38 08f1 7823 |x# | Jump 0x915 ; case 0x39 08f2 7822 |x" | Jump 0x915 ; case 0x3a 08f3 7821 |x! | Jump 0x915 ; case 0x3b 08f4 7820 |x | Jump 0x915 ; case 0x3c 08f5 781f |x | Jump 0x915 ; case 0x3d 08f6 781e |x | Jump 0x915 ; case 0x3e 08f7 781d |x | Jump 0x915 ; case 0x3f 08f8 781c |x | Jump 0x915 ; case 0x40 08f9 781b |x | Jump 0x915 ; case 0x41 08fa 781a |x | Jump 0x915 ; case 0x42 08fb 7819 |x | Jump 0x915 ; case 0x43 08fc 7818 |x | Jump 0x915 ; case 0x44 08fd 7817 |x | Jump 0x915 ; case 0x45 08fe 7816 |x | Jump 0x915 ; case 0x46 08ff 7815 |x | Jump 0x915 ; case 0x47 0900 7814 |x | Jump 0x915 ; case 0x48 0901 7813 |x | Jump 0x915 ; case 0x49 0902 7812 |x | Jump 0x915 ; case 0x4a 0903 7811 |x | Jump 0x915 ; case 0x4b 0904 7810 |x | Jump 0x915 ; case 0x4c 0905 780f |x | Jump 0x915 ; case 0x4d 0906 780e |x | Jump 0x915 ; case 0x4e 0907 780d |x | Jump 0x915 ; case 0x4f 0908 780c |x | Jump 0x915 ; case 0x50 0909 780b |x | Jump 0x915 ; case 0x51 090a 780a |x | Jump 0x915 ; case 0x52 090b 7809 |x | Jump 0x915 ; case 0x53 090c 7808 |x | Jump 0x915 ; case 0x54 090d 7807 |x | Jump 0x915 ; case 0x55 090e 7806 |x | Jump 0x915 ; case 0x56 090f 7805 |x | Jump 0x915 ; case 0x57 0910 7804 |x | Jump 0x915 ; case 0x58 0911 7800 |x | Jump 0x912 ; case 0x59 0912 480d |H | Short_Literal 0xd 0913 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0914 00d1 | | Pop_Control Pop_Count_1 0915 481a |H | Short_Literal 0x1a 0916 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0917 4800 |H | Short_Literal 0x0 0918 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0919 4801 |H | Short_Literal 0x1 091a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091b 4806 |H | Short_Literal 0x6 091c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091d 4802 |H | Short_Literal 0x2 091e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091f 4803 |H | Short_Literal 0x3 0920 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0921 4804 |H | Short_Literal 0x4 0922 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0923 4805 |H | Short_Literal 0x5 0924 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0925 4806 |H | Short_Literal 0x6 0926 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0927 4807 |H | Short_Literal 0x7 0928 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0929 4808 |H | Short_Literal 0x8 092a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 092b 4809 |H | Short_Literal 0x9 092c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 092d 480a |H | Short_Literal 0xa 092e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 092f 480b |H | Short_Literal 0xb 0930 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0931 480c |H | Short_Literal 0xc 0932 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0933 480e |H | Short_Literal 0xe 0934 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0935 480f |H | Short_Literal 0xf 0936 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0937 4810 |H | Short_Literal 0x10 0938 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0939 4811 |H | Short_Literal 0x11 093a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 093b 4812 |H | Short_Literal 0x12 093c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 093d 4813 |H | Short_Literal 0x13 093e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 093f 4814 |H | Short_Literal 0x14 0940 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0941 4815 |H | Short_Literal 0x15 0942 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0943 4816 |H | Short_Literal 0x16 0944 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0945 4817 |H | Short_Literal 0x17 0946 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0947 4818 |H | Short_Literal 0x18 0948 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0949 4819 |H | Short_Literal 0x19 094a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 094b 0000 0000 | | .BLANK 0000[0x5] 0950 ; -------------------------------------------------------------------------------------- 0950 ; SUBPROGRAM 0950 ; -------------------------------------------------------------------------------------- 0950 0962 | b | .CONST 0x0962 ; Address of begin 0951 0004 | | .CONST 0x0004 ; Address of exception handler 0952 0006 | | .CONST 0x0006 ; Number of locals 0953 INIT_0950: 0953 00ec | | Load_Encached Diana_Tree_Cache 0954 02c7 | | Declare_Variable Any 0955 00db | | Load_Top At_Offset_3 0956 a602 | | Store_Unchecked 0x3,0x2 0957 00ec | | Load_Encached Diana_Tree_Cache 0958 02c7 | | Declare_Variable Any 0959 00d8 | | Load_Top At_Offset_0 095a 1c00 | | Execute_Immediate Run_Utility,0x0 095b 00ec | | Load_Encached Diana_Tree_Cache 095c 02c7 | | Declare_Variable Any 095d 00d8 | | Load_Top At_Offset_0 095e 1c00 | | Execute_Immediate Run_Utility,0x0 095f 00e1 | | Load_Encached Boolean_Cache 0960 e014 | | Load 0x0,0x14 0961 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0962 BODY_0950: 0962 e014 | | Load 0x0,0x14 0963 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0964 e603 | | Load 0x3,0x3 0965 0120 | | Execute Any,Is_Value 0966 6804 |h | Jump_Zero 0x96b 0967 e014 | | Load 0x0,0x14 0968 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0969 1b16 | | Execute Package,Field_Read,Field_Number 0x16 096a 7801 |x | Jump 0x96c 096b e603 | | Load 0x3,0x3 096c e7ff | | Load 0x3,-0x1 096d e014 | | Load 0x0,0x14 096e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 096f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0970 c603 | | Store 0x3,0x3 0971 0059 | Y | Store_Top Discrete,At_Offset_1 0972 00d8 | | Load_Top At_Offset_0 0973 6802 |h | Jump_Zero 0x976 0974 4806 |H | Short_Literal 0x6 0975 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0976 00db | | Load_Top At_Offset_3 0977 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0978 0fa8 | | Execute_Immediate Equal,-0x58 0979 6824 |h$ | Jump_Zero 0x99e 097a 00db | | Load_Top At_Offset_3 097b 00eb | | Load_Encached Diana_Cache 097c 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 097d 0145 | E | Execute Heap_Access,Diana_Tree_Kind 097e 00d8 | | Load_Top At_Offset_0 097f 0d3d | = | Execute_Immediate Less,0x3d 0980 700f |p | Jump_Nonzero 0x990 0981 00d8 | | Load_Top At_Offset_0 0982 0c41 | A | Execute_Immediate Greater_Equal,0x41 0983 7005 |p | Jump_Nonzero 0x989 0984 0b3d | = | Execute_Immediate Case_Compare,0x3d 0985 700c |p | Jump_Nonzero 0x992 0986 0f3e | > | Execute_Immediate Equal,0x3e 0987 700e |p | Jump_Nonzero 0x996 0988 08e2 | | Execute_Immediate Raise,0xe2 0989 0b41 | A | Execute_Immediate Case_Compare,0x41 098a 700a |p | Jump_Nonzero 0x995 098b 4847 |HG | Short_Literal 0x47 098c 4849 |HI | Short_Literal 0x49 098d 0262 | b | Execute Discrete,In_Range 098e 700a |p | Jump_Nonzero 0x999 098f 7ff8 | | Jump 0x988 0990 680b |h | Jump_Zero 0x99c 0991 7ff6 | | Jump 0x988 0992 00d1 | | Pop_Control Pop_Count_1 0993 4800 |H | Short_Literal 0x0 0994 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0995 00d1 | | Pop_Control Pop_Count_1 0996 4801 |H | Short_Literal 0x1 0997 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0998 7807 |x | Jump 0x9a0 0999 4800 |H | Short_Literal 0x0 099a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 099b 7804 |x | Jump 0x9a0 099c 4806 |H | Short_Literal 0x6 099d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 099e 4800 |H | Short_Literal 0x0 099f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 09a0 00cf | | Action Mark_Auxiliary 09a1 e602 | | Load 0x3,0x2 09a2 c604 | | Store 0x3,0x4 09a3 e602 | | Load 0x3,0x2 09a4 00eb | | Load_Encached Diana_Cache 09a5 18ec | | Execute Package,Field_Execute,Field_Number 0xec 09a6 c602 | | Store 0x3,0x2 09a7 e602 | | Load 0x3,0x2 09a8 0145 | E | Execute Heap_Access,Diana_Tree_Kind 09a9 00d8 | | Load_Top At_Offset_0 09aa 0d3e | > | Execute_Immediate Less,0x3e 09ab 7014 |p | Jump_Nonzero 0x9c0 09ac 00d8 | | Load_Top At_Offset_0 09ad 0c47 | G | Execute_Immediate Greater_Equal,0x47 09ae 7005 |p | Jump_Nonzero 0x9b4 09af 0b3e | > | Execute_Immediate Case_Compare,0x3e 09b0 705f |p_ | Jump_Nonzero 0xa10 09b1 0f41 | A | Execute_Immediate Equal,0x41 09b2 7033 |p3 | Jump_Nonzero 0x9e6 09b3 7863 |xc | Jump 0xa17 09b4 0b47 | G | Execute_Immediate Case_Compare,0x47 09b5 7021 |p! | Jump_Nonzero 0x9d7 09b6 0b48 | H | Execute_Immediate Case_Compare,0x48 09b7 7022 |p" | Jump_Nonzero 0x9da 09b8 00d8 | | Load_Top At_Offset_0 09b9 487a |Hz | Short_Literal 0x7a 09ba 487b |H{ | Short_Literal 0x7b 09bb 0262 | b | Execute Discrete,In_Range 09bc 7026 |p& | Jump_Nonzero 0x9e3 09bd 0f7c | | | Execute_Immediate Equal,0x7c 09be 7006 |p | Jump_Nonzero 0x9c5 09bf 7857 |xW | Jump 0xa17 09c0 4801 |H | Short_Literal 0x1 09c1 483d |H= | Short_Literal 0x3d 09c2 0262 | b | Execute Discrete,In_Range 09c3 7053 |pS | Jump_Nonzero 0xa17 09c4 7818 |x | Jump 0x9dd 09c5 e602 | | Load 0x3,0x2 09c6 00eb | | Load_Encached Diana_Cache 09c7 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 09c8 e604 | | Load 0x3,0x4 09c9 012f | / | Execute Any,Equal 09ca 6806 |h | Jump_Zero 0x9d1 09cb 00da | | Load_Top At_Offset_2 09cc 6802 |h | Jump_Zero 0x9cf 09cd 4801 |H | Short_Literal 0x1 09ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09cf 4803 |H | Short_Literal 0x3 09d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09d1 00da | | Load_Top At_Offset_2 09d2 6802 |h | Jump_Zero 0x9d5 09d3 4802 |H | Short_Literal 0x2 09d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09d5 4804 |H | Short_Literal 0x4 09d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09d7 00d1 | | Pop_Control Pop_Count_1 09d8 4805 |H | Short_Literal 0x5 09d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09da 00d1 | | Pop_Control Pop_Count_1 09db 4806 |H | Short_Literal 0x6 09dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09dd 00da | | Load_Top At_Offset_2 09de 6802 |h | Jump_Zero 0x9e1 09df 4800 |H | Short_Literal 0x0 09e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09e1 4806 |H | Short_Literal 0x6 09e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09e3 00d1 | | Pop_Control Pop_Count_1 09e4 4806 |H | Short_Literal 0x6 09e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09e6 00db | | Load_Top At_Offset_3 09e7 0145 | E | Execute Heap_Access,Diana_Tree_Kind 09e8 0b22 | " | Execute_Immediate Case_Compare,0x22 09e9 7008 |p | Jump_Nonzero 0x9f2 09ea 0b7c | | | Execute_Immediate Case_Compare,0x7c 09eb 701b |p | Jump_Nonzero 0xa07 09ec 487a |Hz | Short_Literal 0x7a 09ed 487b |H{ | Short_Literal 0x7b 09ee 0262 | b | Execute Discrete,In_Range 09ef 701e |p | Jump_Nonzero 0xa0e 09f0 4806 |H | Short_Literal 0x6 09f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09f2 00d1 | | Pop_Control Pop_Count_1 09f3 e602 | | Load 0x3,0x2 09f4 00eb | | Load_Encached Diana_Cache 09f5 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 09f6 0145 | E | Execute Heap_Access,Diana_Tree_Kind 09f7 0b7c | | | Execute_Immediate Case_Compare,0x7c 09f8 7005 |p | Jump_Nonzero 0x9fe 09f9 487a |Hz | Short_Literal 0x7a 09fa 487b |H{ | Short_Literal 0x7b 09fb 0262 | b | Execute Discrete,In_Range 09fc 7004 |p | Jump_Nonzero 0xa01 09fd 08e2 | | Execute_Immediate Raise,0xe2 09fe 00d1 | | Pop_Control Pop_Count_1 09ff 4801 |H | Short_Literal 0x1 0a00 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a01 00da | | Load_Top At_Offset_2 0a02 6802 |h | Jump_Zero 0xa05 0a03 4800 |H | Short_Literal 0x0 0a04 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a05 4806 |H | Short_Literal 0x6 0a06 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a07 00d1 | | Pop_Control Pop_Count_1 0a08 00da | | Load_Top At_Offset_2 0a09 6802 |h | Jump_Zero 0xa0c 0a0a 4801 |H | Short_Literal 0x1 0a0b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a0c 4803 |H | Short_Literal 0x3 0a0d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a0e 4806 |H | Short_Literal 0x6 0a0f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a10 00d1 | | Pop_Control Pop_Count_1 0a11 00da | | Load_Top At_Offset_2 0a12 6802 |h | Jump_Zero 0xa15 0a13 4801 |H | Short_Literal 0x1 0a14 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a15 4803 |H | Short_Literal 0x3 0a16 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a17 00c9 | | Action Pop_Auxiliary_Loop 0a18 7f88 | | Jump 0x9a1 0a19 0000 0000 | | .BLANK 0000[0x7] 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a2c | , | .CONST 0x0a2c ; Address of begin 0a21 0004 | | .CONST 0x0004 ; Address of exception handler 0a22 0005 | | .CONST 0x0005 ; Number of locals 0a23 INIT_0a20: 0a23 00e3 | | Load_Encached Natural_Cache 0a24 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a25 e014 | | Load 0x0,0x14 0a26 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a27 00ec | | Load_Encached Diana_Tree_Cache 0a28 02c7 | | Declare_Variable Any 0a29 00d8 | | Load_Top At_Offset_0 0a2a 1c00 | | Execute_Immediate Run_Utility,0x0 0a2b e247 | G | Load 0x1,0x47 0a2c BODY_0a20: 0a2c 00cf | | Action Mark_Auxiliary 0a2d 7809 |x | Jump 0xa37 0a2e e602 | | Load 0x3,0x2 0a2f 0a01 | | Execute_Immediate Plus,0x1 0a30 c602 | | Store 0x3,0x2 0a31 e7ff | | Load 0x3,-0x1 0a32 e015 | | Load 0x0,0x15 0a33 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a34 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0a35 c7ff | | Store 0x3,-0x1 0a36 00c9 | | Action Pop_Auxiliary_Loop 0a37 e7ff | | Load 0x3,-0x1 0a38 e015 | | Load 0x0,0x15 0a39 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a3a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0a3b 6ff2 |o | Jump_Zero 0xa2e 0a3c 00ce | | Action Pop_Auxiliary 0a3d 00db | | Load_Top At_Offset_3 0a3e 7003 |p | Jump_Nonzero 0xa42 0a3f e247 | G | Load 0x1,0x47 0a40 a7fe | | Store_Unchecked 0x3,-0x2 0a41 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a42 e7ff | | Load 0x3,-0x1 0a43 e015 | | Load 0x0,0x15 0a44 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a45 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0a46 4801 |H | Short_Literal 0x1 0a47 e602 | | Load 0x3,0x2 0a48 e247 | G | Load 0x1,0x47 0a49 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0a4a 0039 | 9 | Store_Top Access,At_Offset_1 0a4b 4800 |H | Short_Literal 0x0 0a4c a602 | | Store_Unchecked 0x3,0x2 0a4d 00cf | | Action Mark_Auxiliary 0a4e 7845 |xE | Jump 0xa94 0a4f e602 | | Load 0x3,0x2 0a50 0a01 | | Execute_Immediate Plus,0x1 0a51 c602 | | Store 0x3,0x2 0a52 e014 | | Load 0x0,0x14 0a53 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a54 00db | | Load_Top At_Offset_3 0a55 0120 | | Execute Any,Is_Value 0a56 6802 |h | Jump_Zero 0xa59 0a57 00ec | | Load_Encached Diana_Tree_Cache 0a58 7801 |x | Jump 0xa5a 0a59 00db | | Load_Top At_Offset_3 0a5a 6045 |`E | Indirect_Literal Discrete,0xaa0,{0x00000000, 0x00004000} 0a5b e01f | | Load 0x0,0x1f 0a5c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a5d e7ff | | Load 0x3,-0x1 0a5e e015 | | Load 0x0,0x15 0a5f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a60 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0a61 e015 | | Load 0x0,0x15 0a62 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a63 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0a64 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a65 c604 | | Store 0x3,0x4 0a66 c603 | | Store 0x3,0x3 0a67 00db | | Load_Top At_Offset_3 0a68 6816 |h | Jump_Zero 0xa7f 0a69 e014 | | Load 0x0,0x14 0a6a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a6b 00db | | Load_Top At_Offset_3 0a6c 0120 | | Execute Any,Is_Value 0a6d 6803 |h | Jump_Zero 0xa71 0a6e e014 | | Load 0x0,0x14 0a6f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a70 7801 |x | Jump 0xa72 0a71 00db | | Load_Top At_Offset_3 0a72 602d |`- | Indirect_Literal Discrete,0xaa0,{0x00000000, 0x00004000} 0a73 e01f | | Load 0x0,0x1f 0a74 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a75 e7ff | | Load 0x3,-0x1 0a76 e015 | | Load 0x0,0x15 0a77 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a78 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0a79 e015 | | Load 0x0,0x15 0a7a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a7b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0a7c 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a7d c604 | | Store 0x3,0x4 0a7e c603 | | Store 0x3,0x3 0a7f 00db | | Load_Top At_Offset_3 0a80 7007 |p | Jump_Nonzero 0xa88 0a81 00da | | Load_Top At_Offset_2 0a82 0210 | | Execute Heap_Access,Get_Segment 0a83 e602 | | Load 0x3,0x2 0a84 00db | | Load_Top At_Offset_3 0a85 0227 | ' | Execute Access,All_Reference 0a86 01d6 | | Execute Vector,Field_Write 0a87 7806 |x | Jump 0xa8e 0a88 e002 | | Load 0x0,0x2 0a89 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0a8a e602 | | Load 0x3,0x2 0a8b 00db | | Load_Top At_Offset_3 0a8c 0227 | ' | Execute Access,All_Reference 0a8d 01d6 | | Execute Vector,Field_Write 0a8e e7ff | | Load 0x3,-0x1 0a8f e015 | | Load 0x0,0x15 0a90 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a91 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0a92 c7ff | | Store 0x3,-0x1 0a93 00c9 | | Action Pop_Auxiliary_Loop 0a94 e7ff | | Load 0x3,-0x1 0a95 e015 | | Load 0x0,0x15 0a96 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a97 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0a98 6fb6 |o | Jump_Zero 0xa4f 0a99 00ce | | Action Pop_Auxiliary 0a9a 00d8 | | Load_Top At_Offset_0 0a9b a7fe | | Store_Unchecked 0x3,-0x2 0a9c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a9d 0000 0000 | | .XXX[0x3] 0a9f 0000 | | 0aa0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0aa4 0000 0000 | | .BLANK 0000[0x4] 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 ; SUBPROGRAM 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 0ab0 | | .CONST 0x0ab0 ; Address of begin 0aa9 0004 | | .CONST 0x0004 ; Address of exception handler 0aaa 0003 | | .CONST 0x0003 ; Number of locals 0aab INIT_0aa8: 0aab 00da | | Load_Top At_Offset_2 0aac 0210 | | Execute Heap_Access,Get_Segment 0aad 0007 | | Action Break_Optional 0aae 00e1 | | Load_Encached Boolean_Cache 0aaf 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0ab0 BODY_0aa8: 0ab0 e411 | | Load 0x2,0x11 0ab1 681f |h | Jump_Zero 0xad1 0ab2 00cf | | Action Mark_Auxiliary 0ab3 e411 | | Load 0x2,0x11 0ab4 0227 | ' | Execute Access,All_Reference 0ab5 01dc | | Execute Vector,Last 0ab6 4801 |H | Short_Literal 0x1 0ab7 0263 | c | Execute Discrete,Above_Bound 0ab8 7015 |p | Jump_Nonzero 0xace 0ab9 00d8 | | Load_Top At_Offset_0 0aba e411 | | Load 0x2,0x11 0abb 0227 | ' | Execute Access,All_Reference 0abc 01d7 | | Execute Vector,Field_Read 0abd e002 | | Load 0x0,0x2 0abe 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0abf 021e | | Execute Heap_Access,Maximum 0ac0 680b |h | Jump_Zero 0xacc 0ac1 4800 |H | Short_Literal 0x0 0ac2 a603 | | Store_Unchecked 0x3,0x3 0ac3 00d8 | | Load_Top At_Offset_0 0ac4 e411 | | Load 0x2,0x11 0ac5 0227 | ' | Execute Access,All_Reference 0ac6 01d7 | | Execute Vector,Field_Read 0ac7 e602 | | Load 0x3,0x2 0ac8 021f | | Execute Heap_Access,Equal 0ac9 6802 |h | Jump_Zero 0xacc 0aca 4801 |H | Short_Literal 0x1 0acb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0acc 00c8 | | Action Pop_Auxiliary_Range 0acd 3feb |? | Loop_Increasing 0xab9 0ace 00ce | | Action Pop_Auxiliary 0acf 00d8 | | Load_Top At_Offset_0 0ad0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ad1 e412 | | Load 0x2,0x12 0ad2 681f |h | Jump_Zero 0xaf2 0ad3 00cf | | Action Mark_Auxiliary 0ad4 e412 | | Load 0x2,0x12 0ad5 0227 | ' | Execute Access,All_Reference 0ad6 01dc | | Execute Vector,Last 0ad7 4801 |H | Short_Literal 0x1 0ad8 0263 | c | Execute Discrete,Above_Bound 0ad9 7016 |p | Jump_Nonzero 0xaf0 0ada 00d8 | | Load_Top At_Offset_0 0adb e411 | | Load 0x2,0x11 0adc 0227 | ' | Execute Access,All_Reference 0add 01d7 | | Execute Vector,Field_Read 0ade e002 | | Load 0x0,0x2 0adf 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0ae0 021e | | Execute Heap_Access,Maximum 0ae1 680b |h | Jump_Zero 0xaed 0ae2 4800 |H | Short_Literal 0x0 0ae3 a603 | | Store_Unchecked 0x3,0x3 0ae4 00d8 | | Load_Top At_Offset_0 0ae5 e412 | | Load 0x2,0x12 0ae6 0227 | ' | Execute Access,All_Reference 0ae7 01d7 | | Execute Vector,Field_Read 0ae8 e602 | | Load 0x3,0x2 0ae9 021f | | Execute Heap_Access,Equal 0aea 6802 |h | Jump_Zero 0xaed 0aeb 4800 |H | Short_Literal 0x0 0aec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aed 00db | | Load_Top At_Offset_3 0aee 0f00 | | Execute_Immediate Equal,0x0 0aef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0af0 00ce | | Action Pop_Auxiliary 0af1 7802 |x | Jump 0xaf4 0af2 4801 |H | Short_Literal 0x1 0af3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0af4 0831 | 1 | Execute_Immediate Raise,0x31 0af5 0000 0000 | | .XXX[0x3] 0af7 0000 | | 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; -------------------------------------------------------------------------------------- 0af8 0b2d | - | .CONST 0x0b2d ; Address of begin 0af9 0004 | | .CONST 0x0004 ; Address of exception handler 0afa 0011 | | .CONST 0x0011 ; Number of locals 0afb INIT_0af8: 0afb 00eb | | Load_Encached Diana_Cache 0afc 1b82 | | Execute Package,Field_Read,Field_Number 0x82 0afd 00eb | | Load_Encached Diana_Cache 0afe 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0aff 00ee | | Load_Encached Diana_Seq_Type_Cache 0b00 02c7 | | Declare_Variable Any 0b01 00d8 | | Load_Top At_Offset_0 0b02 1c00 | | Execute_Immediate Run_Utility,0x0 0b03 00ec | | Load_Encached Diana_Tree_Cache 0b04 02c7 | | Declare_Variable Any 0b05 00d8 | | Load_Top At_Offset_0 0b06 1c00 | | Execute_Immediate Run_Utility,0x0 0b07 e7fe | | Load 0x3,-0x2 0b08 00e3 | | Load_Encached Natural_Cache 0b09 03f1 | | Declare_Variable Discrete,With_Value 0b0a 00e1 | | Load_Encached Boolean_Cache 0b0b e001 | | Load 0x0,0x1 0b0c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b0d 02c7 | | Declare_Variable Any 0b0e 00d8 | | Load_Top At_Offset_0 0b0f 1c00 | | Execute_Immediate Run_Utility,0x0 0b10 e001 | | Load 0x0,0x1 0b11 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b12 02c7 | | Declare_Variable Any 0b13 00d8 | | Load_Top At_Offset_0 0b14 1c00 | | Execute_Immediate Run_Utility,0x0 0b15 00e3 | | Load_Encached Natural_Cache 0b16 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b17 e015 | | Load 0x0,0x15 0b18 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b19 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b1a 02c7 | | Declare_Variable Any 0b1b 00d8 | | Load_Top At_Offset_0 0b1c 1c00 | | Execute_Immediate Run_Utility,0x0 0b1d e7fc | | Load 0x3,-0x4 0b1e e214 | | Load 0x1,0x14 0b1f 03f1 | | Declare_Variable Discrete,With_Value 0b20 00ef | | Load_Encached Diana_Sequence_Cache 0b21 02c7 | | Declare_Variable Any 0b22 00d8 | | Load_Top At_Offset_0 0b23 1c00 | | Execute_Immediate Run_Utility,0x0 0b24 00ef | | Load_Encached Diana_Sequence_Cache 0b25 02c7 | | Declare_Variable Any 0b26 00d8 | | Load_Top At_Offset_0 0b27 1c00 | | Execute_Immediate Run_Utility,0x0 0b28 00e3 | | Load_Encached Natural_Cache 0b29 029f 0e0b | | Declare_Subprogram INIT_0e08,For_Call 0b2b 029f 0e2b | +| Declare_Subprogram INIT_0e28,For_Call 0b2d BODY_0af8: 0b2d e7ff | | Load 0x3,-0x1 0b2e 7001 |p | Jump_Nonzero 0xb30 0b2f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b30 e7ff | | Load 0x3,-0x1 0b31 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0b32 008e | | Action Discrete,Diana_Arity_For_Kind 0b33 a602 | | Store_Unchecked 0x3,0x2 0b34 e7ff | | Load 0x3,-0x1 0b35 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0b36 a603 | | Store_Unchecked 0x3,0x3 0b37 4800 |H | Short_Literal 0x0 0b38 a607 | | Store_Unchecked 0x3,0x7 0b39 e7ff | | Load 0x3,-0x1 0b3a 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0b3b 00d8 | | Load_Top At_Offset_0 0b3c 0d3d | = | Execute_Immediate Less,0x3d 0b3d 701b |p | Jump_Nonzero 0xb59 0b3e 00d8 | | Load_Top At_Offset_0 0b3f 0c49 | I | Execute_Immediate Greater_Equal,0x49 0b40 7015 |p | Jump_Nonzero 0xb56 0b41 0ac3 | | Execute_Immediate Plus,-0x3d 0b42 460b |F | Jump_Case 0xc 0b43 780b |x | Jump 0xb4f ; case 0x0 0b44 7816 |x | Jump 0xb5b ; case 0x1 0b45 783e |x> | Jump 0xb84 ; case 0x2 0b46 783d |x= | Jump 0xb84 ; case 0x3 0b47 7813 |x | Jump 0xb5b ; case 0x4 0b48 783b |x; | Jump 0xb84 ; case 0x5 0b49 783a |x: | Jump 0xb84 ; case 0x6 0b4a 7839 |x9 | Jump 0xb84 ; case 0x7 0b4b 7838 |x8 | Jump 0xb84 ; case 0x8 0b4c 7837 |x7 | Jump 0xb84 ; case 0x9 0b4d 780d |x | Jump 0xb5b ; case 0xa 0b4e 7800 |x | Jump 0xb4f ; case 0xb 0b4f 4801 |H | Short_Literal 0x1 0b50 a607 | | Store_Unchecked 0x3,0x7 0b51 e7ff | | Load 0x3,-0x1 0b52 00eb | | Load_Encached Diana_Cache 0b53 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 0b54 c605 | | Store 0x3,0x5 0b55 782e |x. | Jump 0xb84 0b56 0f77 | w | Execute_Immediate Equal,0x77 0b57 700a |p | Jump_Nonzero 0xb62 0b58 782b |x+ | Jump 0xb84 0b59 00d1 | | Pop_Control Pop_Count_1 0b5a 7829 |x) | Jump 0xb84 0b5b 4801 |H | Short_Literal 0x1 0b5c a607 | | Store_Unchecked 0x3,0x7 0b5d e7ff | | Load 0x3,-0x1 0b5e 00eb | | Load_Encached Diana_Cache 0b5f 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0b60 c605 | | Store 0x3,0x5 0b61 7822 |x" | Jump 0xb84 0b62 e7ff | | Load 0x3,-0x1 0b63 00eb | | Load_Encached Diana_Cache 0b64 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0b65 4976 |Iv | Short_Literal 0x176 0b66 00eb | | Load_Encached Diana_Cache 0b67 0098 | | Execute Package,Field_Read_Dynamic 0b68 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b69 c605 | | Store 0x3,0x5 0b6a 4801 |H | Short_Literal 0x1 0b6b e40d | | Load 0x2,0xd 0b6c e605 | | Load 0x3,0x5 0b6d 00eb | | Load_Encached Diana_Cache 0b6e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0b6f 00eb | | Load_Encached Diana_Cache 0b70 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0b71 e015 | | Load 0x0,0x15 0b72 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b73 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0b74 c60b | | Store 0x3,0xb 0b75 e60b | | Load 0x3,0xb 0b76 e015 | | Load 0x0,0x15 0b77 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b78 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0b79 700a |p | Jump_Nonzero 0xb84 0b7a 00e1 | | Load_Encached Boolean_Cache 0b7b e015 | | Load 0x0,0x15 0b7c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b7d 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b7e e40d | | Load 0x2,0xd 0b7f e409 | | Load 0x2,0x9 0b80 e015 | | Load 0x0,0x15 0b81 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b82 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0b83 c40f | | Store 0x2,0xf 0b84 e607 | | Load 0x3,0x7 0b85 684b |hK | Jump_Zero 0xbd1 0b86 4801 |H | Short_Literal 0x1 0b87 e24c | L | Load 0x1,0x4c 0b88 0092 1129 | )| Action Push_String_Extended,0x1129 ; "'" 0b8a e605 | | Load 0x3,0x5 0b8b e014 | | Load 0x0,0x14 0b8c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0b8d 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0b8e 01cc | | Execute Vector,Catenate 0b8f e001 | | Load 0x0,0x1 0b90 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b91 c608 | | Store 0x3,0x8 0b92 e608 | | Load 0x3,0x8 0b93 e404 | | Load 0x2,0x4 0b94 e001 | | Load 0x0,0x1 0b95 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b96 6802 |h | Jump_Zero 0xb99 0b97 e403 | | Load 0x2,0x3 0b98 c608 | | Store 0x3,0x8 0b99 e251 | Q | Load 0x1,0x51 0b9a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b9b 0a01 | | Execute_Immediate Plus,0x1 0b9c e251 | Q | Load 0x1,0x51 0b9d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b9e e240 | @ | Load 0x1,0x40 0b9f 0322 | " | Declare_Variable Record 0ba0 4801 |H | Short_Literal 0x1 0ba1 e24c | L | Load 0x1,0x4c 0ba2 e605 | | Load 0x3,0x5 0ba3 e014 | | Load 0x0,0x14 0ba4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ba5 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0ba6 e608 | | Load 0x3,0x8 0ba7 e001 | | Load 0x0,0x1 0ba8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0ba9 01cc | | Execute Vector,Catenate 0baa e001 | | Load 0x0,0x1 0bab 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0bac e240 | @ | Load 0x1,0x40 0bad 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0bae 0119 | | Execute Any,Check_In_Formal_Type 0baf 00d9 | | Load_Top At_Offset_1 0bb0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0bb1 e7fd | | Load 0x3,-0x3 0bb2 00d9 | | Load_Top At_Offset_1 0bb3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0bb4 e605 | | Load 0x3,0x5 0bb5 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0bb6 8419 | | Call 0x2,0x19 0bb7 00d9 | | Load_Top At_Offset_1 0bb8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0bb9 e605 | | Load 0x3,0x5 0bba e240 | @ | Load 0x1,0x40 0bbb 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 0bbc 0119 | | Execute Any,Check_In_Formal_Type 0bbd 00d9 | | Load_Top At_Offset_1 0bbe 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0bbf 4800 |H | Short_Literal 0x0 0bc0 00d9 | | Load_Top At_Offset_1 0bc1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0bc2 4806 |H | Short_Literal 0x6 0bc3 00d9 | | Load_Top At_Offset_1 0bc4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0bc5 e251 | Q | Load 0x1,0x51 0bc6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bc7 00d8 | | Load_Top At_Offset_0 0bc8 00e3 | | Load_Encached Natural_Cache 0bc9 0260 | ` | Execute Discrete,In_Type 0bca 7001 |p | Jump_Nonzero 0xbcc 0bcb 0801 | | Execute_Immediate Raise,0x1 0bcc 824f | O | Call 0x1,0x4f 0bcd 0218 | | Execute Heap_Access,All_Write 0bce e251 | Q | Load 0x1,0x51 0bcf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bd0 c606 | | Store 0x3,0x6 0bd1 e7ff | | Load 0x3,-0x1 0bd2 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0bd3 00d8 | | Load_Top At_Offset_0 0bd4 0d0d | | Execute_Immediate Less,0xd 0bd5 709a |p | Jump_Nonzero 0xc70 0bd6 00d8 | | Load_Top At_Offset_0 0bd7 0c18 | | Execute_Immediate Greater_Equal,0x18 0bd8 7092 |p | Jump_Nonzero 0xc6b 0bd9 0af3 | | Execute_Immediate Plus,-0xd 0bda 460a |F | Jump_Case 0xb 0bdb 7944 |yD | Jump 0xd20 ; case 0x0 0bdc 7894 |x | Jump 0xc71 ; case 0x1 0bdd 7893 |x | Jump 0xc71 ; case 0x2 0bde 78db |x | Jump 0xcba ; case 0x3 0bdf 7891 |x | Jump 0xc71 ; case 0x4 0be0 7890 |x | Jump 0xc71 ; case 0x5 0be1 788f |x | Jump 0xc71 ; case 0x6 0be2 7803 |x | Jump 0xbe6 ; case 0x7 0be3 788d |x | Jump 0xc71 ; case 0x8 0be4 7801 |x | Jump 0xbe6 ; case 0x9 0be5 7800 |x | Jump 0xbe6 ; case 0xa 0be6 e7ff | | Load 0x3,-0x1 0be7 00eb | | Load_Encached Diana_Cache 0be8 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0be9 c605 | | Store 0x3,0x5 0bea e605 | | Load 0x3,0x5 0beb 687e |h~ | Jump_Zero 0xc6a 0bec e605 | | Load 0x3,0x5 0bed 841c | | Call 0x2,0x1c 0bee 687b |h{ | Jump_Zero 0xc6a 0bef 00e1 | | Load_Encached Boolean_Cache 0bf0 e60a | | Load 0x3,0xa 0bf1 e605 | | Load 0x3,0x5 0bf2 e410 | | Load 0x2,0x10 0bf3 e402 | | Load 0x2,0x2 0bf4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0bf5 c60a | | Store 0x3,0xa 0bf6 c607 | | Store 0x3,0x7 0bf7 e607 | | Load 0x3,0x7 0bf8 7057 |pW | Jump_Nonzero 0xc50 0bf9 4801 |H | Short_Literal 0x1 0bfa e24c | L | Load 0x1,0x4c 0bfb 0092 1129 | )| Action Push_String_Extended,0x1129 ; "'" 0bfd e605 | | Load 0x3,0x5 0bfe e014 | | Load 0x0,0x14 0bff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c00 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0c01 01cc | | Execute Vector,Catenate 0c02 e001 | | Load 0x0,0x1 0c03 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0c04 c608 | | Store 0x3,0x8 0c05 e608 | | Load 0x3,0x8 0c06 e404 | | Load 0x2,0x4 0c07 e001 | | Load 0x0,0x1 0c08 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0c09 6802 |h | Jump_Zero 0xc0c 0c0a e403 | | Load 0x2,0x3 0c0b c608 | | Store 0x3,0x8 0c0c e251 | Q | Load 0x1,0x51 0c0d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c0e 0a01 | | Execute_Immediate Plus,0x1 0c0f e251 | Q | Load 0x1,0x51 0c10 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c11 4801 |H | Short_Literal 0x1 0c12 e24c | L | Load 0x1,0x4c 0c13 e605 | | Load 0x3,0x5 0c14 8610 | | Call 0x3,0x10 0c15 e608 | | Load 0x3,0x8 0c16 e001 | | Load 0x0,0x1 0c17 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0c18 01cc | | Execute Vector,Catenate 0c19 e001 | | Load 0x0,0x1 0c1a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0c1b c609 | | Store 0x3,0x9 0c1c e609 | | Load 0x3,0x9 0c1d e001 | | Load 0x0,0x1 0c1e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0c1f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0c20 e240 | @ | Load 0x1,0x40 0c21 0322 | " | Declare_Variable Record 0c22 e609 | | Load 0x3,0x9 0c23 e240 | @ | Load 0x1,0x40 0c24 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0c25 0119 | | Execute Any,Check_In_Formal_Type 0c26 00d9 | | Load_Top At_Offset_1 0c27 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c28 00db | | Load_Top At_Offset_3 0c29 00d9 | | Load_Top At_Offset_1 0c2a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c2b e605 | | Load 0x3,0x5 0c2c 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0c2d 8419 | | Call 0x2,0x19 0c2e 00d9 | | Load_Top At_Offset_1 0c2f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c30 e605 | | Load 0x3,0x5 0c31 e240 | @ | Load 0x1,0x40 0c32 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 0c33 0119 | | Execute Any,Check_In_Formal_Type 0c34 00d9 | | Load_Top At_Offset_1 0c35 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0c36 4800 |H | Short_Literal 0x0 0c37 00d9 | | Load_Top At_Offset_1 0c38 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0c39 e605 | | Load 0x3,0x5 0c3a 841a | | Call 0x2,0x1a 0c3b 00d9 | | Load_Top At_Offset_1 0c3c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0c3d e251 | Q | Load 0x1,0x51 0c3e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c3f 00d8 | | Load_Top At_Offset_0 0c40 00e3 | | Load_Encached Natural_Cache 0c41 0260 | ` | Execute Discrete,In_Type 0c42 7001 |p | Jump_Nonzero 0xc44 0c43 0801 | | Execute_Immediate Raise,0x1 0c44 824e | N | Call 0x1,0x4e 0c45 0218 | | Execute Heap_Access,All_Write 0c46 e251 | Q | Load 0x1,0x51 0c47 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c48 c60a | | Store 0x3,0xa 0c49 e410 | | Load 0x2,0x10 0c4a 4800 |H | Short_Literal 0x0 0c4b e60a | | Load 0x3,0xa 0c4c e605 | | Load 0x3,0x5 0c4d e402 | | Load 0x2,0x2 0c4e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0c4f c410 | | Store 0x2,0x10 0c50 e251 | Q | Load 0x1,0x51 0c51 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c52 0a01 | | Execute_Immediate Plus,0x1 0c53 e251 | Q | Load 0x1,0x51 0c54 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c55 e242 | B | Load 0x1,0x42 0c56 0322 | " | Declare_Variable Record 0c57 e60a | | Load 0x3,0xa 0c58 00d9 | | Load_Top At_Offset_1 0c59 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0c5a e606 | | Load 0x3,0x6 0c5b 00d9 | | Load_Top At_Offset_1 0c5c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c5d e7ff | | Load 0x3,-0x1 0c5e e242 | B | Load 0x1,0x42 0c5f 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0c60 0119 | | Execute Any,Check_In_Formal_Type 0c61 00d9 | | Load_Top At_Offset_1 0c62 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c63 e60c | | Load 0x3,0xc 0c64 00d9 | | Load_Top At_Offset_1 0c65 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0c66 e251 | Q | Load 0x1,0x51 0c67 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c68 8250 | P | Call 0x1,0x50 0c69 0218 | | Execute Heap_Access,All_Write 0c6a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0c6b 0b4d | M | Execute_Immediate Case_Compare,0x4d 0c6c 70cc |p | Jump_Nonzero 0xd39 0c6d 0f5b | [ | Execute_Immediate Equal,0x5b 0c6e 704b |pK | Jump_Nonzero 0xcba 0c6f 7801 |x | Jump 0xc71 0c70 00d1 | | Pop_Control Pop_Count_1 0c71 e602 | | Load 0x3,0x2 0c72 4604 |F | Jump_Case 0x5 0c73 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; case 0x0 0c74 783d |x= | Jump 0xcb2 ; case 0x1 0c75 7817 |x | Jump 0xc8d ; case 0x2 0c76 7825 |x% | Jump 0xc9c ; case 0x3 0c77 7800 |x | Jump 0xc78 ; case 0x4 0c78 e7ff | | Load 0x3,-0x1 0c79 00eb | | Load_Encached Diana_Cache 0c7a 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0c7b c604 | | Store 0x3,0x4 0c7c 00cf | | Action Mark_Auxiliary 0c7d 780b |x | Jump 0xc89 0c7e e60c | | Load 0x3,0xc 0c7f e7fd | | Load 0x3,-0x3 0c80 e606 | | Load 0x3,0x6 0c81 e604 | | Load 0x3,0x4 0c82 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 0c83 841d | | Call 0x2,0x1d 0c84 e604 | | Load 0x3,0x4 0c85 0217 | | Execute Heap_Access,All_Reference 0c86 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c87 c604 | | Store 0x3,0x4 0c88 00c9 | | Action Pop_Auxiliary_Loop 0c89 e604 | | Load 0x3,0x4 0c8a 77f3 |w | Jump_Nonzero 0xc7e 0c8b 00ce | | Action Pop_Auxiliary 0c8c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0c8d e60c | | Load 0x3,0xc 0c8e e7fd | | Load 0x3,-0x3 0c8f e606 | | Load 0x3,0x6 0c90 e7ff | | Load 0x3,-0x1 0c91 00eb | | Load_Encached Diana_Cache 0c92 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0c93 841d | | Call 0x2,0x1d 0c94 e60c | | Load 0x3,0xc 0c95 e7fd | | Load 0x3,-0x3 0c96 e606 | | Load 0x3,0x6 0c97 e7ff | | Load 0x3,-0x1 0c98 00eb | | Load_Encached Diana_Cache 0c99 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0c9a 841d | | Call 0x2,0x1d 0c9b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0c9c e60c | | Load 0x3,0xc 0c9d e7fd | | Load 0x3,-0x3 0c9e e606 | | Load 0x3,0x6 0c9f e7ff | | Load 0x3,-0x1 0ca0 00eb | | Load_Encached Diana_Cache 0ca1 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0ca2 841d | | Call 0x2,0x1d 0ca3 e60c | | Load 0x3,0xc 0ca4 e7fd | | Load 0x3,-0x3 0ca5 e606 | | Load 0x3,0x6 0ca6 e7ff | | Load 0x3,-0x1 0ca7 00eb | | Load_Encached Diana_Cache 0ca8 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0ca9 841d | | Call 0x2,0x1d 0caa e60c | | Load 0x3,0xc 0cab e7fd | | Load 0x3,-0x3 0cac e606 | | Load 0x3,0x6 0cad e7ff | | Load 0x3,-0x1 0cae 00eb | | Load_Encached Diana_Cache 0caf 1887 | | Execute Package,Field_Execute,Field_Number 0x87 0cb0 841d | | Call 0x2,0x1d 0cb1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0cb2 e60c | | Load 0x3,0xc 0cb3 e7fd | | Load 0x3,-0x3 0cb4 e606 | | Load 0x3,0x6 0cb5 e7ff | | Load 0x3,-0x1 0cb6 00eb | | Load_Encached Diana_Cache 0cb7 1885 | | Execute Package,Field_Execute,Field_Number 0x85 0cb8 841d | | Call 0x2,0x1d 0cb9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0cba 4801 |H | Short_Literal 0x1 0cbb e7fd | | Load 0x3,-0x3 0cbc e606 | | Load 0x3,0x6 0cbd e7ff | | Load 0x3,-0x1 0cbe 00eb | | Load_Encached Diana_Cache 0cbf 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0cc0 841d | | Call 0x2,0x1d 0cc1 e7ff | | Load 0x3,-0x1 0cc2 00eb | | Load_Encached Diana_Cache 0cc3 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0cc4 8611 | | Call 0x3,0x11 0cc5 c605 | | Store 0x3,0x5 0cc6 e605 | | Load 0x3,0x5 0cc7 7008 |p | Jump_Nonzero 0xcd0 0cc8 4801 |H | Short_Literal 0x1 0cc9 e7fd | | Load 0x3,-0x3 0cca e606 | | Load 0x3,0x6 0ccb e7ff | | Load 0x3,-0x1 0ccc 00eb | | Load_Encached Diana_Cache 0ccd 18d9 | | Execute Package,Field_Execute,Field_Number 0xd9 0cce 841d | | Call 0x2,0x1d 0ccf 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0cd0 e605 | | Load 0x3,0x5 0cd1 4976 |Iv | Short_Literal 0x176 0cd2 00eb | | Load_Encached Diana_Cache 0cd3 0098 | | Execute Package,Field_Read_Dynamic 0cd4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0cd5 c60e | | Store 0x3,0xe 0cd6 e7ff | | Load 0x3,-0x1 0cd7 490c |I | Short_Literal 0x10c 0cd8 00eb | | Load_Encached Diana_Cache 0cd9 0096 | | Execute Package,Entry 0cda 00eb | | Load_Encached Diana_Cache 0cdb 18ed | | Execute Package,Field_Execute,Field_Number 0xed 0cdc c60d | | Store 0x3,0xd 0cdd 00cf | | Action Mark_Auxiliary 0cde 783d |x= | Jump 0xd1c 0cdf e60e | | Load 0x3,0xe 0ce0 00eb | | Load_Encached Diana_Cache 0ce1 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0ce2 c605 | | Store 0x3,0x5 0ce3 e605 | | Load 0x3,0x5 0ce4 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0ce5 0b23 | # | Execute_Immediate Case_Compare,0x23 0ce6 7013 |p | Jump_Nonzero 0xcfa 0ce7 0b24 | $ | Execute_Immediate Case_Compare,0x24 0ce8 701a |p | Jump_Nonzero 0xd03 0ce9 0f25 | % | Execute_Immediate Equal,0x25 0cea 7021 |p! | Jump_Nonzero 0xd0c 0ceb e019 | | Load 0x0,0x19 0cec 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ced 4807 |H | Short_Literal 0x7 0cee 0092 112a | *| Action Push_String_Extended,0x112a ; "Formals contained unexpected node " 0cf0 e605 | | Load 0x3,0x5 0cf1 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0cf2 00eb | | Load_Encached Diana_Cache 0cf3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0cf4 011c | | Execute Any,Convert_Unchecked 0cf5 1c01 | | Execute_Immediate Run_Utility,0x1 0cf6 01cc | | Execute Vector,Catenate 0cf7 e01a | | Load 0x0,0x1a 0cf8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0cf9 7819 |x | Jump 0xd13 0cfa 00d1 | | Pop_Control Pop_Count_1 0cfb 4801 |H | Short_Literal 0x1 0cfc e7fd | | Load 0x3,-0x3 0cfd e606 | | Load 0x3,0x6 0cfe e60d | | Load 0x3,0xd 0cff 00eb | | Load_Encached Diana_Cache 0d00 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0d01 841d | | Call 0x2,0x1d 0d02 7810 |x | Jump 0xd13 0d03 00d1 | | Pop_Control Pop_Count_1 0d04 4803 |H | Short_Literal 0x3 0d05 e7fd | | Load 0x3,-0x3 0d06 e606 | | Load 0x3,0x6 0d07 e60d | | Load 0x3,0xd 0d08 00eb | | Load_Encached Diana_Cache 0d09 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0d0a 841d | | Call 0x2,0x1d 0d0b 7807 |x | Jump 0xd13 0d0c 4802 |H | Short_Literal 0x2 0d0d e7fd | | Load 0x3,-0x3 0d0e e606 | | Load 0x3,0x6 0d0f e60d | | Load 0x3,0xd 0d10 00eb | | Load_Encached Diana_Cache 0d11 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0d12 841d | | Call 0x2,0x1d 0d13 e60d | | Load 0x3,0xd 0d14 0217 | | Execute Heap_Access,All_Reference 0d15 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0d16 c60d | | Store 0x3,0xd 0d17 e60e | | Load 0x3,0xe 0d18 0217 | | Execute Heap_Access,All_Reference 0d19 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0d1a c60e | | Store 0x3,0xe 0d1b 00c9 | | Action Pop_Auxiliary_Loop 0d1c e60e | | Load 0x3,0xe 0d1d 77c1 |w | Jump_Nonzero 0xcdf 0d1e 00ce | | Action Pop_Auxiliary 0d1f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0d20 e60c | | Load 0x3,0xc 0d21 4606 |F | Jump_Case 0x7 0d22 780e |x | Jump 0xd31 ; case 0x0 0d23 780b |x | Jump 0xd2f ; case 0x1 0d24 7804 |x | Jump 0xd29 ; case 0x2 0d25 7806 |x | Jump 0xd2c ; case 0x3 0d26 780a |x | Jump 0xd31 ; case 0x4 0d27 7809 |x | Jump 0xd31 ; case 0x5 0d28 7808 |x | Jump 0xd31 ; case 0x6 0d29 4805 |H | Short_Literal 0x5 0d2a a60c | | Store_Unchecked 0x3,0xc 0d2b 7805 |x | Jump 0xd31 0d2c 4806 |H | Short_Literal 0x6 0d2d a60c | | Store_Unchecked 0x3,0xc 0d2e 7802 |x | Jump 0xd31 0d2f 4804 |H | Short_Literal 0x4 0d30 a60c | | Store_Unchecked 0x3,0xc 0d31 e60c | | Load 0x3,0xc 0d32 e7fd | | Load 0x3,-0x3 0d33 e606 | | Load 0x3,0x6 0d34 e7ff | | Load 0x3,-0x1 0d35 00eb | | Load_Encached Diana_Cache 0d36 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0d37 841d | | Call 0x2,0x1d 0d38 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0d39 00d1 | | Pop_Control Pop_Count_1 0d3a 4802 |H | Short_Literal 0x2 0d3b e7fd | | Load 0x3,-0x3 0d3c e606 | | Load 0x3,0x6 0d3d e7ff | | Load 0x3,-0x1 0d3e 00eb | | Load_Encached Diana_Cache 0d3f 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4 0d40 841d | | Call 0x2,0x1d 0d41 4801 |H | Short_Literal 0x1 0d42 e7fd | | Load 0x3,-0x3 0d43 e606 | | Load 0x3,0x6 0d44 e7ff | | Load 0x3,-0x1 0d45 00eb | | Load_Encached Diana_Cache 0d46 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 0d47 841d | | Call 0x2,0x1d 0d48 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0d49 0000 0000 | | .BLANK 0000[0x7] 0d50 ; -------------------------------------------------------------------------------------- 0d50 ; SUBPROGRAM 0d50 ; -------------------------------------------------------------------------------------- 0d50 0d5a | Z | .CONST 0x0d5a ; Address of begin 0d51 0004 | | .CONST 0x0004 ; Address of exception handler 0d52 0002 | | .CONST 0x0002 ; Number of locals 0d53 INIT_0d50: 0d53 e406 | | Load 0x2,0x6 0d54 e014 | | Load 0x0,0x14 0d55 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0d56 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d57 e014 | | Load 0x0,0x14 0d58 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0d59 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0d5a BODY_0d50: 0d5a 4801 |H | Short_Literal 0x1 0d5b e24c | L | Load 0x1,0x4c 0d5c 00da | | Load_Top At_Offset_2 0d5d 0092 112b | +| Action Push_String_Extended,0x112b ; ".#WITH#" 0d5f 01cc | | Execute Vector,Catenate 0d60 e001 | | Load 0x0,0x1 0d61 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d62 e251 | Q | Load 0x1,0x51 0d63 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0d64 00d8 | | Load_Top At_Offset_0 0d65 00e3 | | Load_Encached Natural_Cache 0d66 0260 | ` | Execute Discrete,In_Type 0d67 7001 |p | Jump_Nonzero 0xd69 0d68 0801 | | Execute_Immediate Raise,0x1 0d69 824f | O | Call 0x1,0x4f 0d6a 0217 | | Execute Heap_Access,All_Reference 0d6b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0d6c 00d8 | | Load_Top At_Offset_0 0d6d 01db | | Execute Vector,Length 0d6e e251 | Q | Load 0x1,0x51 0d6f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0d70 00d8 | | Load_Top At_Offset_0 0d71 00e3 | | Load_Encached Natural_Cache 0d72 0260 | ` | Execute Discrete,In_Type 0d73 7001 |p | Jump_Nonzero 0xd75 0d74 0801 | | Execute_Immediate Raise,0x1 0d75 824f | O | Call 0x1,0x4f 0d76 0217 | | Execute Heap_Access,All_Reference 0d77 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0d78 4801 |H | Short_Literal 0x1 0d79 00d9 | | Load_Top At_Offset_1 0d7a 01db | | Execute Vector,Length 0d7b 00d8 | | Load_Top At_Offset_0 0d7c 00e3 | | Load_Encached Natural_Cache 0d7d 0260 | ` | Execute Discrete,In_Type 0d7e 7001 |p | Jump_Nonzero 0xd80 0d7f 0801 | | Execute_Immediate Raise,0x1 0d80 e251 | Q | Load 0x1,0x51 0d81 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0d82 00d8 | | Load_Top At_Offset_0 0d83 00e3 | | Load_Encached Natural_Cache 0d84 0260 | ` | Execute Discrete,In_Type 0d85 7001 |p | Jump_Nonzero 0xd87 0d86 0801 | | Execute_Immediate Raise,0x1 0d87 e405 | | Load 0x2,0x5 0d88 841d | | Call 0x2,0x1d 0d89 00e1 | | Load_Encached Boolean_Cache 0d8a e015 | | Load 0x0,0x15 0d8b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d8c 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d8d e40d | | Load 0x2,0xd 0d8e e40c | | Load 0x2,0xc 0d8f e015 | | Load 0x0,0x15 0d90 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d91 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0d92 c40f | | Store 0x2,0xf 0d93 e40e | | Load 0x2,0xe 0d94 0120 | | Execute Any,Is_Value 0d95 6804 |h | Jump_Zero 0xd9a 0d96 e015 | | Load 0x0,0x15 0d97 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d98 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0d99 7801 |x | Jump 0xd9b 0d9a e40e | | Load 0x2,0xe 0d9b e40d | | Load 0x2,0xd 0d9c e015 | | Load 0x0,0x15 0d9d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0d9e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0d9f c40e | | Store 0x2,0xe 0da0 e019 | | Load 0x0,0x19 0da1 180e | | Execute Package,Field_Execute,Field_Number 0xe 0da2 e40e | | Load 0x2,0xe 0da3 e015 | | Load 0x0,0x15 0da4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0da5 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0da6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0da7 0000 | | .XXX[0x1] 0da8 ; -------------------------------------------------------------------------------------- 0da8 ; SUBPROGRAM 0da8 ; -------------------------------------------------------------------------------------- 0da8 0db1 | | .CONST 0x0db1 ; Address of begin 0da9 0004 | | .CONST 0x0004 ; Address of exception handler 0daa 0002 | | .CONST 0x0002 ; Number of locals 0dab INIT_0da8: 0dab e5ff | | Load 0x2,-0x1 0dac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0dad 0217 | | Execute Heap_Access,All_Reference 0dae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0daf e001 | | Load 0x0,0x1 0db0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0db1 BODY_0da8: 0db1 00d8 | | Load_Top At_Offset_0 0db2 01dd | | Execute Vector,First 0db3 00d9 | | Load_Top At_Offset_1 0db4 01dd | | Execute Vector,First 0db5 e5ff | | Load 0x2,-0x1 0db6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0db7 0217 | | Execute Heap_Access,All_Reference 0db8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0db9 0273 | s | Execute Discrete,Plus 0dba 0aff | | Execute_Immediate Plus,-0x1 0dbb 00d8 | | Load_Top At_Offset_0 0dbc 00e2 | | Load_Encached Integer_Cache 0dbd 0260 | ` | Execute Discrete,In_Type 0dbe 7001 |p | Jump_Nonzero 0xdc0 0dbf 0801 | | Execute_Immediate Raise,0x1 0dc0 00da | | Load_Top At_Offset_2 0dc1 01cf | | Execute Vector,Slice_Read 0dc2 00cb | | Action Pop_Block_With_Result 0dc3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0dc4 0000 0000 | | .BLANK 0000[0x4] 0dc8 ; -------------------------------------------------------------------------------------- 0dc8 ; SUBPROGRAM 0dc8 ; -------------------------------------------------------------------------------------- 0dc8 0dd7 | | .CONST 0x0dd7 ; Address of begin 0dc9 0004 | | .CONST 0x0004 ; Address of exception handler 0dca 0003 | | .CONST 0x0003 ; Number of locals 0dcb INIT_0dc8: 0dcb e015 | | Load 0x0,0x15 0dcc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dcd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dce 02c7 | | Declare_Variable Any 0dcf 00d8 | | Load_Top At_Offset_0 0dd0 1c00 | | Execute_Immediate Run_Utility,0x0 0dd1 e015 | | Load 0x0,0x15 0dd2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dd3 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0dd4 02c7 | | Declare_Variable Any 0dd5 00d8 | | Load_Top At_Offset_0 0dd6 1c00 | | Execute_Immediate Run_Utility,0x0 0dd7 BODY_0dc8: 0dd7 00d8 | | Load_Top At_Offset_0 0dd8 0120 | | Execute Any,Is_Value 0dd9 6804 |h | Jump_Zero 0xdde 0dda e015 | | Load 0x0,0x15 0ddb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ddc 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0ddd 7801 |x | Jump 0xddf 0dde 00d8 | | Load_Top At_Offset_0 0ddf 00da | | Load_Top At_Offset_2 0de0 0120 | | Execute Any,Is_Value 0de1 6804 |h | Jump_Zero 0xde6 0de2 e015 | | Load 0x0,0x15 0de3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0de4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0de5 7801 |x | Jump 0xde7 0de6 00da | | Load_Top At_Offset_2 0de7 e402 | | Load 0x2,0x2 0de8 e015 | | Load 0x0,0x15 0de9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0dea 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0deb c602 | | Store 0x3,0x2 0dec c603 | | Store 0x3,0x3 0ded 00d8 | | Load_Top At_Offset_0 0dee 0120 | | Execute Any,Is_Value 0def 6804 |h | Jump_Zero 0xdf4 0df0 e015 | | Load 0x0,0x15 0df1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0df2 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0df3 7801 |x | Jump 0xdf5 0df4 00d8 | | Load_Top At_Offset_0 0df5 e404 | | Load 0x2,0x4 0df6 0120 | | Execute Any,Is_Value 0df7 6803 |h | Jump_Zero 0xdfb 0df8 e00e | | Load 0x0,0xe 0df9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dfa 7801 |x | Jump 0xdfc 0dfb e404 | | Load 0x2,0x4 0dfc 00db | | Load_Top At_Offset_3 0dfd e00e | | Load 0x0,0xe 0dfe 180f | | Execute Package,Field_Execute,Field_Number 0xf 0dff c404 | | Store 0x2,0x4 0e00 c603 | | Store 0x3,0x3 0e01 4801 |H | Short_Literal 0x1 0e02 e404 | | Load 0x2,0x4 0e03 e403 | | Load 0x2,0x3 0e04 e24d | M | Load 0x1,0x4d 0e05 e24b | K | Load 0x1,0x4b 0e06 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e07 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e08 ; -------------------------------------------------------------------------------------- 0e08 ; SUBPROGRAM 0e08 ; -------------------------------------------------------------------------------------- 0e08 0e0d | | .CONST 0x0e0d ; Address of begin 0e09 0004 | | .CONST 0x0004 ; Address of exception handler 0e0a 0002 | | .CONST 0x0002 ; Number of locals 0e0b INIT_0e08: 0e0b 029f 0e5b | [| Declare_Subprogram INIT_0e58,For_Call 0e0d BODY_0e08: 0e0d 00db | | Load_Top At_Offset_3 0e0e 7002 |p | Jump_Nonzero 0xe11 0e0f 00ea | | Load_Encached Null_String_Cache 0e10 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e11 00db | | Load_Top At_Offset_3 0e12 e020 | | Load 0x0,0x20 0e13 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0e14 7001 |p | Jump_Nonzero 0xe16 0e15 8802 | | Call 0x4,0x2 0e16 00db | | Load_Top At_Offset_3 0e17 e020 | | Load 0x0,0x20 0e18 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0e19 8610 | | Call 0x3,0x10 0e1a 0092 112c | ,| Action Push_String_Extended,0x112c ; "." 0e1c 01cc | | Execute Vector,Catenate 0e1d e9ff | | Load 0x4,-0x1 0e1e 00eb | | Load_Encached Diana_Cache 0e1f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0e20 00eb | | Load_Encached Diana_Cache 0e21 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0e22 01cc | | Execute Vector,Catenate 0e23 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e24 0000 0000 | | .BLANK 0000[0x4] 0e28 ; -------------------------------------------------------------------------------------- 0e28 ; SUBPROGRAM 0e28 ; -------------------------------------------------------------------------------------- 0e28 0e2f | / | .CONST 0x0e2f ; Address of begin 0e29 0004 | | .CONST 0x0004 ; Address of exception handler 0e2a 0002 | | .CONST 0x0002 ; Number of locals 0e2b INIT_0e28: 0e2b 00ec | | Load_Encached Diana_Tree_Cache 0e2c 02c7 | | Declare_Variable Any 0e2d 00d8 | | Load_Top At_Offset_0 0e2e 1c00 | | Execute_Immediate Run_Utility,0x0 0e2f BODY_0e28: 0e2f 00db | | Load_Top At_Offset_3 0e30 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0e31 0b12 | | Execute_Immediate Case_Compare,0x12 0e32 7004 |p | Jump_Nonzero 0xe37 0e33 0f17 | | Execute_Immediate Equal,0x17 0e34 7008 |p | Jump_Nonzero 0xe3d 0e35 00ec | | Load_Encached Diana_Tree_Cache 0e36 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e37 00d1 | | Pop_Control Pop_Count_1 0e38 00db | | Load_Top At_Offset_3 0e39 00eb | | Load_Encached Diana_Cache 0e3a 18c0 | | Execute Package,Field_Execute,Field_Number 0xc0 0e3b 8611 | | Call 0x3,0x11 0e3c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e3d 00db | | Load_Top At_Offset_3 0e3e 00eb | | Load_Encached Diana_Cache 0e3f 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 0e40 c802 | | Store 0x4,0x2 0e41 00d8 | | Load_Top At_Offset_0 0e42 00eb | | Load_Encached Diana_Cache 0e43 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0e44 c802 | | Store 0x4,0x2 0e45 00d8 | | Load_Top At_Offset_0 0e46 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0e47 0f41 | A | Execute_Immediate Equal,0x41 0e48 6805 |h | Jump_Zero 0xe4e 0e49 00d8 | | Load_Top At_Offset_0 0e4a 00eb | | Load_Encached Diana_Cache 0e4b 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 0e4c c802 | | Store 0x4,0x2 0e4d 7804 |x | Jump 0xe52 0e4e 00d8 | | Load_Top At_Offset_0 0e4f 00eb | | Load_Encached Diana_Cache 0e50 18ce | | Execute Package,Field_Execute,Field_Number 0xce 0e51 c802 | | Store 0x4,0x2 0e52 00d8 | | Load_Top At_Offset_0 0e53 00eb | | Load_Encached Diana_Cache 0e54 18da | | Execute Package,Field_Execute,Field_Number 0xda 0e55 c802 | | Store 0x4,0x2 0e56 00d8 | | Load_Top At_Offset_0 0e57 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e58 ; -------------------------------------------------------------------------------------- 0e58 ; SUBPROGRAM 0e58 ; -------------------------------------------------------------------------------------- 0e58 0e5f | _ | .CONST 0x0e5f ; Address of begin 0e59 0004 | | .CONST 0x0004 ; Address of exception handler 0e5a 0002 | | .CONST 0x0002 ; Number of locals 0e5b INIT_0e58: 0e5b e9ff | | Load 0x4,-0x1 0e5c e014 | | Load 0x0,0x14 0e5d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e5e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0e5f BODY_0e58: 0e5f 00d8 | | Load_Top At_Offset_0 0e60 01db | | Execute Vector,Length 0e61 c60f | | Store 0x3,0xf 0e62 00d8 | | Load_Top At_Offset_0 0e63 00cb | | Action Pop_Block_With_Result 0e64 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e65 0000 0000 | | .XXX[0x3] 0e67 0000 | | 0e68 ; -------------------------------------------------------------------------------------- 0e68 ; SUBPROGRAM 0e68 ; -------------------------------------------------------------------------------------- 0e68 0e8b | | .CONST 0x0e8b ; Address of begin 0e69 0004 | | .CONST 0x0004 ; Address of exception handler 0e6a 0024 | $ | .CONST 0x0024 ; Number of locals 0e6b INIT_0e68: 0e6b 029a 0e9b | | Declare_Subprogram INIT_0e98,For_Outer_Call,Visible,Unelaborated 0e6d 029a 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call,Visible,Unelaborated 0e6f 029a 0fbb | | Declare_Subprogram INIT_0fb8,For_Outer_Call,Visible,Unelaborated 0e71 029a 1003 | | Declare_Subprogram INIT_1000,For_Outer_Call,Visible,Unelaborated 0e73 029a 102b | +| Declare_Subprogram INIT_1028,For_Outer_Call,Visible,Unelaborated 0e75 00bf | | Action Accept_Activation 0e76 00e4 | | Load_Encached Positive_Cache 0e77 00e2 | | Load_Encached Integer_Cache 0e78 00e3 | | Load_Encached Natural_Cache 0e79 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e7a 00e3 | | Load_Encached Natural_Cache 0e7b 029d 1053 | S| Declare_Subprogram INIT_1050,For_Outer_Call 0e7d 029d 1063 | c| Declare_Subprogram INIT_1060,For_Outer_Call 0e7f 029d 107b | {| Declare_Subprogram INIT_1078,For_Outer_Call 0e81 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0e82 00c7 | | Action Elaborate_Subprogram 0e83 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0e84 00c7 | | Action Elaborate_Subprogram 0e85 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0e86 00c7 | | Action Elaborate_Subprogram 0e87 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0e88 00c7 | | Action Elaborate_Subprogram 0e89 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0e8a 00c7 | | Action Elaborate_Subprogram 0e8b BODY_0e68: 0e8b e215 | | Load 0x1,0x15 0e8c e217 | | Load 0x1,0x17 0e8d 8222 | " | Call 0x1,0x22 0e8e 0273 | s | Execute Discrete,Plus 0e8f 0272 | r | Execute Discrete,Minus 0e90 c21e | | Store 0x1,0x1e 0e91 e215 | | Load 0x1,0x15 0e92 0af6 | | Execute_Immediate Plus,-0xa 0e93 a21f | | Store_Unchecked 0x1,0x1f 0e94 00bc | | Action Signal_Activated 0e95 00bb | | Action Signal_Completion 0e96 0000 0000 | | .XXX[0x2] 0e98 ; -------------------------------------------------------------------------------------- 0e98 ; SUBPROGRAM 0e98 ; -------------------------------------------------------------------------------------- 0e98 0ea6 | | .CONST 0x0ea6 ; Address of begin 0e99 0004 | | .CONST 0x0004 ; Address of exception handler 0e9a 0006 | | .CONST 0x0006 ; Number of locals 0e9b INIT_0e98: 0e9b e001 | | Load 0x0,0x1 0e9c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0e9d 0322 | " | Declare_Variable Record 0e9e e001 | | Load 0x0,0x1 0e9f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0ea0 0322 | " | Declare_Variable Record 0ea1 00e1 | | Load_Encached Boolean_Cache 0ea2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ea3 00e3 | | Load_Encached Natural_Cache 0ea4 029f 108b | | Declare_Subprogram INIT_1088,For_Call 0ea6 BODY_0e98: 0ea6 4800 |H | Short_Literal 0x0 0ea7 e5ff | | Load 0x2,-0x1 0ea8 e001 | | Load 0x0,0x1 0ea9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0eaa e402 | | Load 0x2,0x2 0eab 017d | } | Execute Record,Structure_Write 0eac 4800 |H | Short_Literal 0x0 0ead e5fc | | Load 0x2,-0x4 0eae e001 | | Load 0x0,0x1 0eaf 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0eb0 e403 | | Load 0x2,0x3 0eb1 017d | } | Execute Record,Structure_Write 0eb2 00db | | Load_Top At_Offset_3 0eb3 e001 | | Load 0x0,0x1 0eb4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0eb5 e402 | | Load 0x2,0x2 0eb6 e001 | | Load 0x0,0x1 0eb7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0eb8 027e | ~ | Execute Discrete,Not_Equal 0eb9 6825 |h% | Jump_Zero 0xedf 0eba e5fd | | Load 0x2,-0x3 0ebb 00d8 | | Load_Top At_Offset_0 0ebc 0120 | | Execute Any,Is_Value 0ebd 6804 |h | Jump_Zero 0xec2 0ebe e001 | | Load 0x0,0x1 0ebf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ec0 011e | | Execute Any,Convert 0ec1 7803 |x | Jump 0xec5 0ec2 e001 | | Load 0x0,0x1 0ec3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ec4 0119 | | Execute Any,Check_In_Formal_Type 0ec5 e5ff | | Load 0x2,-0x1 0ec6 8211 | | Call 0x1,0x11 0ec7 c5fd | | Store 0x2,-0x3 0ec8 e402 | | Load 0x2,0x2 0ec9 8212 | | Call 0x1,0x12 0eca 820f | | Call 0x1,0xf 0ecb 0092 112d | -| Action Push_String_Extended,0x112d ; " " 0ecd 820f | | Call 0x1,0xf 0ece e216 | | Load 0x1,0x16 0ecf 8210 | | Call 0x1,0x10 0ed0 e402 | | Load 0x2,0x2 0ed1 8213 | | Call 0x1,0x13 0ed2 820f | | Call 0x1,0xf 0ed3 e402 | | Load 0x2,0x2 0ed4 e001 | | Load 0x0,0x1 0ed5 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0ed6 8224 | $ | Call 0x1,0x24 0ed7 4800 |H | Short_Literal 0x0 0ed8 e5ff | | Load 0x2,-0x1 0ed9 8002 | | Call 0x0,0x2 0eda 00e0 | | Load_Encached Standard_Cache 0edb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0edc 820f | | Call 0x1,0xf 0edd 4801 |H | Short_Literal 0x1 0ede 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0edf 4801 |H | Short_Literal 0x1 0ee0 e5ff | | Load 0x2,-0x1 0ee1 e001 | | Load 0x0,0x1 0ee2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0ee3 e402 | | Load 0x2,0x2 0ee4 017d | } | Execute Record,Structure_Write 0ee5 4801 |H | Short_Literal 0x1 0ee6 e5fc | | Load 0x2,-0x4 0ee7 e001 | | Load 0x0,0x1 0ee8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0ee9 e403 | | Load 0x2,0x3 0eea 017d | } | Execute Record,Structure_Write 0eeb 00db | | Load_Top At_Offset_3 0eec e001 | | Load 0x0,0x1 0eed 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0eee e402 | | Load 0x2,0x2 0eef e001 | | Load 0x0,0x1 0ef0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0ef1 027e | ~ | Execute Discrete,Not_Equal 0ef2 e5fc | | Load 0x2,-0x4 0ef3 e001 | | Load 0x0,0x1 0ef4 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0ef5 e5ff | | Load 0x2,-0x1 0ef6 e001 | | Load 0x0,0x1 0ef7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0ef8 027e | ~ | Execute Discrete,Not_Equal 0ef9 e404 | | Load 0x2,0x4 0efa e5fe | | Load 0x2,-0x2 0efb 0278 | x | Execute Discrete,Or 0efc 0278 | x | Execute Discrete,Or 0efd 0278 | x | Execute Discrete,Or 0efe 685e |h^ | Jump_Zero 0xf5d 0eff 00da | | Load_Top At_Offset_2 0f00 700e |p | Jump_Nonzero 0xf0f 0f01 e5fd | | Load 0x2,-0x3 0f02 00d8 | | Load_Top At_Offset_0 0f03 0120 | | Execute Any,Is_Value 0f04 6804 |h | Jump_Zero 0xf09 0f05 e001 | | Load 0x0,0x1 0f06 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f07 011e | | Execute Any,Convert 0f08 7803 |x | Jump 0xf0c 0f09 e001 | | Load 0x0,0x1 0f0a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f0b 0119 | | Execute Any,Check_In_Formal_Type 0f0c e5ff | | Load 0x2,-0x1 0f0d 8211 | | Call 0x1,0x11 0f0e c5fd | | Store 0x2,-0x3 0f0f 4800 |H | Short_Literal 0x0 0f10 a220 | | Store_Unchecked 0x1,0x20 0f11 8406 | | Call 0x2,0x6 0f12 e5ff | | Load 0x2,-0x1 0f13 e001 | | Load 0x0,0x1 0f14 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0f15 4606 |F | Jump_Case 0x7 0f16 780d |x | Jump 0xf24 ; case 0x0 0f17 7813 |x | Jump 0xf2b ; case 0x1 0f18 7819 |x | Jump 0xf32 ; case 0x2 0f19 781f |x | Jump 0xf39 ; case 0x3 0f1a 7825 |x% | Jump 0xf40 ; case 0x4 0f1b 782b |x+ | Jump 0xf47 ; case 0x5 0f1c 7800 |x | Jump 0xf1d ; case 0x6 0f1d 0092 112e | .| Action Push_String_Extended,0x112e ; "(BT)" 0f1f 820f | | Call 0x1,0xf 0f20 e221 | ! | Load 0x1,0x21 0f21 0a04 | | Execute_Immediate Plus,0x4 0f22 c221 | ! | Store 0x1,0x21 0f23 7829 |x) | Jump 0xf4d 0f24 0092 112f | /| Action Push_String_Extended,0x112f ; "(?)" 0f26 820f | | Call 0x1,0xf 0f27 e221 | ! | Load 0x1,0x21 0f28 0a03 | | Execute_Immediate Plus,0x3 0f29 c221 | ! | Store 0x1,0x21 0f2a 7822 |x" | Jump 0xf4d 0f2b 0092 1130 | 0| Action Push_String_Extended,0x1130 ; "(U)" 0f2d 820f | | Call 0x1,0xf 0f2e e221 | ! | Load 0x1,0x21 0f2f 0a03 | | Execute_Immediate Plus,0x3 0f30 c221 | ! | Store 0x1,0x21 0f31 781b |x | Jump 0xf4d 0f32 0092 1131 | 1| Action Push_String_Extended,0x1131 ; "(S)" 0f34 820f | | Call 0x1,0xf 0f35 e221 | ! | Load 0x1,0x21 0f36 0a03 | | Execute_Immediate Plus,0x3 0f37 c221 | ! | Store 0x1,0x21 0f38 7814 |x | Jump 0xf4d 0f39 0092 1132 | 2| Action Push_String_Extended,0x1132 ; "(B)" 0f3b 820f | | Call 0x1,0xf 0f3c e221 | ! | Load 0x1,0x21 0f3d 0a03 | | Execute_Immediate Plus,0x3 0f3e c221 | ! | Store 0x1,0x21 0f3f 780d |x | Jump 0xf4d 0f40 0092 1133 | 3| Action Push_String_Extended,0x1133 ; "(UT)" 0f42 820f | | Call 0x1,0xf 0f43 e221 | ! | Load 0x1,0x21 0f44 0a04 | | Execute_Immediate Plus,0x4 0f45 c221 | ! | Store 0x1,0x21 0f46 7806 |x | Jump 0xf4d 0f47 0092 1134 | 4| Action Push_String_Extended,0x1134 ; "(ST)" 0f49 820f | | Call 0x1,0xf 0f4a e221 | ! | Load 0x1,0x21 0f4b 0a04 | | Execute_Immediate Plus,0x4 0f4c c221 | ! | Store 0x1,0x21 0f4d e402 | | Load 0x2,0x2 0f4e e001 | | Load 0x0,0x1 0f4f 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0f50 8224 | $ | Call 0x1,0x24 0f51 e221 | ! | Load 0x1,0x21 0f52 e402 | | Load 0x2,0x2 0f53 e001 | | Load 0x0,0x1 0f54 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0f55 00e0 | | Load_Encached Standard_Cache 0f56 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f57 01db | | Execute Vector,Length 0f58 0273 | s | Execute Discrete,Plus 0f59 0a01 | | Execute_Immediate Plus,0x1 0f5a c221 | ! | Store 0x1,0x21 0f5b e5ff | | Load 0x2,-0x1 0f5c a5fc | | Store_Unchecked 0x2,-0x4 0f5d 4801 |H | Short_Literal 0x1 0f5e e5ff | | Load 0x2,-0x1 0f5f 8002 | | Call 0x0,0x2 0f60 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0f61 00d9 | | Load_Top At_Offset_1 0f62 e220 | | Load 0x1,0x20 0f63 027e | ~ | Execute Discrete,Not_Equal 0f64 6828 |h( | Jump_Zero 0xf8d 0f65 00d9 | | Load_Top At_Offset_1 0f66 00e0 | | Load_Encached Standard_Cache 0f67 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f68 01db | | Execute Vector,Length 0f69 e221 | ! | Load 0x1,0x21 0f6a 0273 | s | Execute Discrete,Plus 0f6b e215 | | Load 0x1,0x15 0f6c 027d | } | Execute Discrete,Greater 0f6d 6812 |h | Jump_Zero 0xf80 0f6e e5fd | | Load 0x2,-0x3 0f6f 00d8 | | Load_Top At_Offset_0 0f70 0120 | | Execute Any,Is_Value 0f71 6804 |h | Jump_Zero 0xf76 0f72 e001 | | Load 0x0,0x1 0f73 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f74 011e | | Execute Any,Convert 0f75 7803 |x | Jump 0xf79 0f76 e001 | | Load 0x0,0x1 0f77 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f78 0119 | | Execute Any,Check_In_Formal_Type 0f79 e5ff | | Load 0x2,-0x1 0f7a 8211 | | Call 0x1,0x11 0f7b c5fd | | Store 0x2,-0x3 0f7c e217 | | Load 0x1,0x17 0f7d 8210 | | Call 0x1,0x10 0f7e e217 | | Load 0x1,0x17 0f7f a221 | ! | Store_Unchecked 0x1,0x21 0f80 00d9 | | Load_Top At_Offset_1 0f81 00e0 | | Load_Encached Standard_Cache 0f82 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f83 820f | | Call 0x1,0xf 0f84 00d9 | | Load_Top At_Offset_1 0f85 a220 | | Store_Unchecked 0x1,0x20 0f86 e221 | ! | Load 0x1,0x21 0f87 00da | | Load_Top At_Offset_2 0f88 00e0 | | Load_Encached Standard_Cache 0f89 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f8a 01db | | Execute Vector,Length 0f8b 0273 | s | Execute Discrete,Plus 0f8c c221 | ! | Store 0x1,0x21 0f8d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0f8e 0000 0000 | | .XXX[0x2] 0f90 ; -------------------------------------------------------------------------------------- 0f90 ; SUBPROGRAM 0f90 ; -------------------------------------------------------------------------------------- 0f90 0f93 | | .CONST 0x0f93 ; Address of begin 0f91 0004 | | .CONST 0x0004 ; Address of exception handler 0f92 0001 | | .CONST 0x0001 ; Number of locals 0f93 BODY_0f90: 0f93 INIT_0f90: 0f93 0092 1135 | 5| Action Push_String_Extended,0x1135 ; "ITEM" 0f95 820f | | Call 0x1,0xf 0f96 e216 | | Load 0x1,0x16 0f97 8210 | | Call 0x1,0x10 0f98 0092 1136 | 6| Action Push_String_Extended,0x1136 ; "DEFINED IN" 0f9a 820f | | Call 0x1,0xf 0f9b e217 | | Load 0x1,0x17 0f9c 8210 | | Call 0x1,0x10 0f9d 0092 1137 | 7| Action Push_String_Extended,0x1137 ; "IS REFERRED TO BY" 0f9f 820f | | Call 0x1,0xf 0fa0 00da | | Load_Top At_Offset_2 0fa1 00d8 | | Load_Top At_Offset_0 0fa2 0120 | | Execute Any,Is_Value 0fa3 6804 |h | Jump_Zero 0xfa8 0fa4 e001 | | Load 0x0,0x1 0fa5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fa6 011e | | Execute Any,Convert 0fa7 7803 |x | Jump 0xfab 0fa8 e001 | | Load 0x0,0x1 0fa9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0faa 0119 | | Execute Any,Check_In_Formal_Type 0fab e001 | | Load 0x0,0x1 0fac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0fad 8211 | | Call 0x1,0x11 0fae c5ff | | Store 0x2,-0x1 0faf e001 | | Load 0x0,0x1 0fb0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0fb1 a5fe | | Store_Unchecked 0x2,-0x2 0fb2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0fb3 0000 0000 | | .BLANK 0000[0x5] 0fb8 ; -------------------------------------------------------------------------------------- 0fb8 ; SUBPROGRAM 0fb8 ; -------------------------------------------------------------------------------------- 0fb8 0fbe | | .CONST 0x0fbe ; Address of begin 0fb9 0004 | | .CONST 0x0004 ; Address of exception handler 0fba 0002 | | .CONST 0x0002 ; Number of locals 0fbb INIT_0fb8: 0fbb 00da | | Load_Top At_Offset_2 0fbc e001 | | Load 0x0,0x1 0fbd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0fbe BODY_0fb8: 0fbe 00db | | Load_Top At_Offset_3 0fbf e001 | | Load 0x0,0x1 0fc0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0fc1 8223 | # | Call 0x1,0x23 0fc2 820f | | Call 0x1,0xf 0fc3 480a |H | Short_Literal 0xa 0fc4 8210 | | Call 0x1,0x10 0fc5 00d8 | | Load_Top At_Offset_0 0fc6 01db | | Execute Vector,Length 0fc7 e21f | | Load 0x1,0x1f 0fc8 027d | } | Execute Discrete,Greater 0fc9 681e |h | Jump_Zero 0xfe8 0fca 00d8 | | Load_Top At_Offset_0 0fcb 01dc | | Execute Vector,Last 0fcc e21f | | Load 0x1,0x1f 0fcd 0272 | r | Execute Discrete,Minus 0fce 00d8 | | Load_Top At_Offset_0 0fcf 00e2 | | Load_Encached Integer_Cache 0fd0 0260 | ` | Execute Discrete,In_Type 0fd1 7001 |p | Jump_Nonzero 0xfd3 0fd2 0801 | | Execute_Immediate Raise,0x1 0fd3 00d9 | | Load_Top At_Offset_1 0fd4 01dc | | Execute Vector,Last 0fd5 00da | | Load_Top At_Offset_2 0fd6 01cf | | Execute Vector,Slice_Read 0fd7 820f | | Call 0x1,0xf 0fd8 e5fe | | Load 0x2,-0x2 0fd9 00d8 | | Load_Top At_Offset_0 0fda 0120 | | Execute Any,Is_Value 0fdb 6804 |h | Jump_Zero 0xfe0 0fdc e001 | | Load 0x0,0x1 0fdd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fde 011e | | Execute Any,Convert 0fdf 7803 |x | Jump 0xfe3 0fe0 e001 | | Load 0x0,0x1 0fe1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fe2 0119 | | Execute Any,Check_In_Formal_Type 0fe3 e001 | | Load 0x0,0x1 0fe4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0fe5 8211 | | Call 0x1,0x11 0fe6 c5fe | | Store 0x2,-0x2 0fe7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0fe8 00d8 | | Load_Top At_Offset_0 0fe9 820f | | Call 0x1,0xf 0fea e5fe | | Load 0x2,-0x2 0feb 00d8 | | Load_Top At_Offset_0 0fec 0120 | | Execute Any,Is_Value 0fed 6804 |h | Jump_Zero 0xff2 0fee e001 | | Load 0x0,0x1 0fef 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ff0 011e | | Execute Any,Convert 0ff1 7803 |x | Jump 0xff5 0ff2 e001 | | Load 0x0,0x1 0ff3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ff4 0119 | | Execute Any,Check_In_Formal_Type 0ff5 e001 | | Load 0x0,0x1 0ff6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ff7 8211 | | Call 0x1,0x11 0ff8 c5fe | | Store 0x2,-0x2 0ff9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ffa 0000 0000 | | .BLANK 0000[0x6] 1000 ; -------------------------------------------------------------------------------------- 1000 ; SUBPROGRAM 1000 ; -------------------------------------------------------------------------------------- 1000 1003 | | .CONST 0x1003 ; Address of begin 1001 0004 | | .CONST 0x0004 ; Address of exception handler 1002 0001 | | .CONST 0x0001 ; Number of locals 1003 BODY_1000: 1003 INIT_1000: 1003 0092 1138 | 8| Action Push_String_Extended,0x1138 ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS" 1005 820f | | Call 0x1,0xf 1006 00da | | Load_Top At_Offset_2 1007 00d8 | | Load_Top At_Offset_0 1008 0120 | | Execute Any,Is_Value 1009 6804 |h | Jump_Zero 0x100e 100a e001 | | Load 0x0,0x1 100b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 100c 011e | | Execute Any,Convert 100d 7803 |x | Jump 0x1011 100e e001 | | Load 0x0,0x1 100f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1010 0119 | | Execute Any,Check_In_Formal_Type 1011 e001 | | Load 0x0,0x1 1012 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1013 8211 | | Call 0x1,0x11 1014 c5ff | | Store 0x2,-0x1 1015 00da | | Load_Top At_Offset_2 1016 00d8 | | Load_Top At_Offset_0 1017 0120 | | Execute Any,Is_Value 1018 6804 |h | Jump_Zero 0x101d 1019 e001 | | Load 0x0,0x1 101a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 101b 011e | | Execute Any,Convert 101c 7803 |x | Jump 0x1020 101d e001 | | Load 0x0,0x1 101e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 101f 0119 | | Execute Any,Check_In_Formal_Type 1020 e001 | | Load 0x0,0x1 1021 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1022 8211 | | Call 0x1,0x11 1023 c5ff | | Store 0x2,-0x1 1024 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1025 0000 0000 | | .XXX[0x3] 1027 0000 | | 1028 ; -------------------------------------------------------------------------------------- 1028 ; SUBPROGRAM 1028 ; -------------------------------------------------------------------------------------- 1028 102b | + | .CONST 0x102b ; Address of begin 1029 0004 | | .CONST 0x0004 ; Address of exception handler 102a 0001 | | .CONST 0x0001 ; Number of locals 102b BODY_1028: 102b INIT_1028: 102b 0092 1139 | 9| Action Push_String_Extended,0x1139 ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS " 102d 820f | | Call 0x1,0xf 102e 00da | | Load_Top At_Offset_2 102f 00d8 | | Load_Top At_Offset_0 1030 0120 | | Execute Any,Is_Value 1031 6804 |h | Jump_Zero 0x1036 1032 e001 | | Load 0x0,0x1 1033 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1034 011e | | Execute Any,Convert 1035 7803 |x | Jump 0x1039 1036 e001 | | Load 0x0,0x1 1037 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1038 0119 | | Execute Any,Check_In_Formal_Type 1039 e001 | | Load 0x0,0x1 103a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 103b 8211 | | Call 0x1,0x11 103c c5ff | | Store 0x2,-0x1 103d 00da | | Load_Top At_Offset_2 103e 00d8 | | Load_Top At_Offset_0 103f 0120 | | Execute Any,Is_Value 1040 6804 |h | Jump_Zero 0x1045 1041 e001 | | Load 0x0,0x1 1042 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1043 011e | | Execute Any,Convert 1044 7803 |x | Jump 0x1048 1045 e001 | | Load 0x0,0x1 1046 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1047 0119 | | Execute Any,Check_In_Formal_Type 1048 e001 | | Load 0x0,0x1 1049 1811 | | Execute Package,Field_Execute,Field_Number 0x11 104a 8211 | | Call 0x1,0x11 104b c5ff | | Store 0x2,-0x1 104c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 104d 0000 0000 | | .XXX[0x3] 104f 0000 | | 1050 ; -------------------------------------------------------------------------------------- 1050 ; SUBPROGRAM 1050 ; -------------------------------------------------------------------------------------- 1050 1053 | S | .CONST 0x1053 ; Address of begin 1051 0004 | | .CONST 0x0004 ; Address of exception handler 1052 0001 | | .CONST 0x0001 ; Number of locals 1053 BODY_1050: 1053 INIT_1050: 1053 e218 | | Load 0x1,0x18 1054 6802 |h | Jump_Zero 0x1057 1055 4809 |H | Short_Literal 0x9 1056 00ca | | Action Exit_Nullary_Function 1057 4804 |H | Short_Literal 0x4 1058 00ca | | Action Exit_Nullary_Function 1059 0000 0000 | | .BLANK 0000[0x7] 1060 ; -------------------------------------------------------------------------------------- 1060 ; SUBPROGRAM 1060 ; -------------------------------------------------------------------------------------- 1060 1066 | f | .CONST 0x1066 ; Address of begin 1061 0004 | | .CONST 0x0004 ; Address of exception handler 1062 0002 | | .CONST 0x0002 ; Number of locals 1063 INIT_1060: 1063 00da | | Load_Top At_Offset_2 1064 00e0 | | Load_Encached Standard_Cache 1065 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1066 BODY_1060: 1066 00d8 | | Load_Top At_Offset_0 1067 01dd | | Execute Vector,First 1068 0a01 | | Execute_Immediate Plus,0x1 1069 00d8 | | Load_Top At_Offset_0 106a 00e2 | | Load_Encached Integer_Cache 106b 0260 | ` | Execute Discrete,In_Type 106c 7001 |p | Jump_Nonzero 0x106e 106d 0801 | | Execute_Immediate Raise,0x1 106e 00d9 | | Load_Top At_Offset_1 106f 01dc | | Execute Vector,Last 1070 00da | | Load_Top At_Offset_2 1071 01cf | | Execute Vector,Slice_Read 1072 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1073 0000 0000 | | .BLANK 0000[0x5] 1078 ; -------------------------------------------------------------------------------------- 1078 ; SUBPROGRAM 1078 ; -------------------------------------------------------------------------------------- 1078 107b | { | .CONST 0x107b ; Address of begin 1079 0004 | | .CONST 0x0004 ; Address of exception handler 107a 0001 | | .CONST 0x0001 ; Number of locals 107b BODY_1078: 107b INIT_1078: 107b e218 | | Load 0x1,0x18 107c 6809 |h | Jump_Zero 0x1086 107d 0092 113a | :| Action Push_String_Extended,0x113a ; "[" 107f 00db | | Load_Top At_Offset_3 1080 8223 | # | Call 0x1,0x23 1081 01cc | | Execute Vector,Catenate 1082 0092 113b | ;| Action Push_String_Extended,0x113b ; "]" 1084 01cc | | Execute Vector,Catenate 1085 820f | | Call 0x1,0xf 1086 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1087 0000 | | .XXX[0x1] 1088 ; -------------------------------------------------------------------------------------- 1088 ; SUBPROGRAM 1088 ; -------------------------------------------------------------------------------------- 1088 1091 | | .CONST 0x1091 ; Address of begin 1089 0004 | | .CONST 0x0004 ; Address of exception handler 108a 0006 | | .CONST 0x0006 ; Number of locals 108b INIT_1088: 108b 00e2 | | Load_Encached Integer_Cache 108c 03e9 | | Declare_Variable Discrete,Duplicate 108d 03e9 | | Declare_Variable Discrete,Duplicate 108e e402 | | Load 0x2,0x2 108f 8214 | | Call 0x1,0x14 1090 00e1 | | Load_Encached Boolean_Cache 1091 BODY_1088: 1091 e217 | | Load 0x1,0x17 1092 8210 | | Call 0x1,0x10 1093 00d9 | | Load_Top At_Offset_1 1094 01db | | Execute Vector,Length 1095 c602 | | Store 0x3,0x2 1096 e602 | | Load 0x3,0x2 1097 00da | | Load_Top At_Offset_2 1098 01dd | | Execute Vector,First 1099 0273 | s | Execute Discrete,Plus 109a 0aff | | Execute_Immediate Plus,-0x1 109b 005b | [ | Store_Top Discrete,At_Offset_3 109c e602 | | Load 0x3,0x2 109d e21e | | Load 0x1,0x1e 109e 027a | z | Execute Discrete,Less_Equal 109f 6808 |h | Jump_Zero 0x10a8 10a0 00d9 | | Load_Top At_Offset_1 10a1 820f | | Call 0x1,0xf 10a2 e217 | | Load 0x1,0x17 10a3 e602 | | Load 0x3,0x2 10a4 0273 | s | Execute Discrete,Plus 10a5 0a01 | | Execute_Immediate Plus,0x1 10a6 c221 | ! | Store 0x1,0x21 10a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10a8 4800 |H | Short_Literal 0x0 10a9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 10aa 00cf | | Action Mark_Auxiliary 10ab 00db | | Load_Top At_Offset_3 10ac e604 | | Load 0x3,0x4 10ad e21e | | Load 0x1,0x1e 10ae 0272 | r | Execute Discrete,Minus 10af 00d8 | | Load_Top At_Offset_0 10b0 00e2 | | Load_Encached Integer_Cache 10b1 0260 | ` | Execute Discrete,In_Type 10b2 7001 |p | Jump_Nonzero 0x10b4 10b3 0801 | | Execute_Immediate Raise,0x1 10b4 0263 | c | Execute Discrete,Above_Bound 10b5 7016 |p | Jump_Nonzero 0x10cc 10b6 00d8 | | Load_Top At_Offset_0 10b7 e605 | | Load 0x3,0x5 10b8 01d7 | | Execute Vector,Field_Read 10b9 0f2e | . | Execute_Immediate Equal,0x2e 10ba 680f |h | Jump_Zero 0x10ca 10bb 00d8 | | Load_Top At_Offset_0 10bc e604 | | Load 0x3,0x4 10bd e605 | | Load 0x3,0x5 10be 01cf | | Execute Vector,Slice_Read 10bf 820f | | Call 0x1,0xf 10c0 4801 |H | Short_Literal 0x1 10c1 a606 | | Store_Unchecked 0x3,0x6 10c2 e217 | | Load 0x1,0x17 10c3 00d9 | | Load_Top At_Offset_1 10c4 e604 | | Load 0x3,0x4 10c5 0272 | r | Execute Discrete,Minus 10c6 0273 | s | Execute Discrete,Plus 10c7 c221 | ! | Store 0x1,0x21 10c8 00d2 | | Pop_Control Pop_Count_2 10c9 7802 |x | Jump 0x10cc 10ca 00c8 | | Action Pop_Auxiliary_Range 10cb 3fea |? | Loop_Increasing 0x10b6 10cc 00ce | | Action Pop_Auxiliary 10cd 00d8 | | Load_Top At_Offset_0 10ce 7012 |p | Jump_Nonzero 0x10e1 10cf 0092 113c | <| Action Push_String_Extended,0x113c ; "...." 10d1 00db | | Load_Top At_Offset_3 10d2 e21e | | Load 0x1,0x1e 10d3 0272 | r | Execute Discrete,Minus 10d4 00d8 | | Load_Top At_Offset_0 10d5 00e2 | | Load_Encached Integer_Cache 10d6 0260 | ` | Execute Discrete,In_Type 10d7 7001 |p | Jump_Nonzero 0x10d9 10d8 0801 | | Execute_Immediate Raise,0x1 10d9 e604 | | Load 0x3,0x4 10da e605 | | Load 0x3,0x5 10db 01cf | | Execute Vector,Slice_Read 10dc 01cc | | Execute Vector,Catenate 10dd 820f | | Call 0x1,0xf 10de e21e | | Load 0x1,0x1e 10df 0a01 | | Execute_Immediate Plus,0x1 10e0 c221 | ! | Store 0x1,0x21 10e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10e2 ; -------------------------------------------------------------------------------------- 10e2 ; STRING TABLE 10e2 ; -------------------------------------------------------------------------------------- 10e2 00b8 | | .STRTAB 0x00b8->0x113e ; "REFERRED_TO_ITEM" 10e3 00c6 | | .STRTAB 0x00c6->0x1146 ; "REFERRING_TO_ITEM" 10e4 00d5 | | .STRTAB 0x00d5->0x114e ; "BOTH" 10e5 00d7 | | .STRTAB 0x00d7->0x1150 ; "NONE" 10e6 00d9 | | .STRTAB 0x00d9->0x1152 ; "USED" 10e7 00db | | .STRTAB 0x00db->0x1154 ; "SET" 10e8 00dc | | .STRTAB 0x00dc->0x1156 ; "BOTH_USED_AND_SET" 10e9 00eb | | .STRTAB 0x00eb->0x115e ; "USED_THROUGH" 10ea 00f5 | | .STRTAB 0x00f5->0x1164 ; "SET_THROUGH" 10eb 00fe | | .STRTAB 0x00fe->0x116a ; "BOTH_USED_AND_SET_THROUGH" 10ec 0115 | | .STRTAB 0x0115->0x1176 ; "ATTRIBUTE_ID" 10ed 011f | | .STRTAB 0x011f->0x117c ; "CONSTANT_ID" 10ee 0128 | ( | .STRTAB 0x0128->0x1182 ; "DISCRIMINANT_ID" 10ef 0135 | 5 | .STRTAB 0x0135->0x1189 ; "ENTRY_ID" 10f0 013b | ; | .STRTAB 0x013b->0x118d ; "ENUMERATION_ID" 10f1 0147 | G | .STRTAB 0x0147->0x1194 ; "EXCEPTION_ID" 10f2 0151 | Q | .STRTAB 0x0151->0x119a ; "FUNCTION_ID" 10f3 015a | Z | .STRTAB 0x015a->0x11a0 ; "GENERIC_ID" 10f4 0162 | b | .STRTAB 0x0162->0x11a5 ; "IN_ID" 10f5 0165 | e | .STRTAB 0x0165->0x11a7 ; "IN_OUT_ID" 10f6 016c | l | .STRTAB 0x016c->0x11ac ; "ITERATION_ID" 10f7 0176 | v | .STRTAB 0x0176->0x11b2 ; "LABEL_ID" 10f8 017c | | | .STRTAB 0x017c->0x11b6 ; "LIMITED_PRIVATE_TYPE_ID" 10f9 0191 | | .STRTAB 0x0191->0x11c1 ; "NAMED_STATEMENT_ID" 10fa 01a1 | | .STRTAB 0x01a1->0x11ca ; "NUMBER_ID" 10fb 01a8 | | .STRTAB 0x01a8->0x11cf ; "OUT_ID" 10fc 01ac | | .STRTAB 0x01ac->0x11d2 ; "PACKAGE_ID" 10fd 01b4 | | .STRTAB 0x01b4->0x11d7 ; "PRAGMA_ID" 10fe 01bb | | .STRTAB 0x01bb->0x11db ; "PRAGMA_ARGUMENT_ID" 10ff 01cb | | .STRTAB 0x01cb->0x11e4 ; "PRIVATE_TYPE_ID" 1100 01d8 | | .STRTAB 0x01d8->0x11ec ; "PROCEDURE_ID" 1101 01e2 | | .STRTAB 0x01e2->0x11f2 ; "RECORD_COMPONENT_ID" 1102 01f3 | | .STRTAB 0x01f3->0x11fb ; "SUBTYPE_ID" 1103 01fb | | .STRTAB 0x01fb->0x1200 ; "TASK_BODY_ID" 1104 0205 | | .STRTAB 0x0205->0x1206 ; "TYPE_ID" 1105 020a | | .STRTAB 0x020a->0x120a ; "VARIABLE_ID" 1106 0213 | | .STRTAB 0x0213->0x120f ; "UNKNOWN_ID" 1107 021b | | .STRTAB 0x021b->0x1214 ; "ATTRIBUTE_TYPE" 1108 0227 | ' | .STRTAB 0x0227->0x121b ; "COMPONENT_TYPE" 1109 0233 | 3 | .STRTAB 0x0233->0x1222 ; "CONSTANT_TYPE" 110a 023e | > | .STRTAB 0x023e->0x1229 ; "ENTRY_TYPE" 110b 0246 | F | .STRTAB 0x0246->0x122e ; "EXCEPTION_TYPE" 110c 0252 | R | .STRTAB 0x0252->0x1235 ; "FUNCTION_TYPE" 110d 025d | ] | .STRTAB 0x025d->0x123b ; "GENERIC_TYPE" 110e 0267 | g | .STRTAB 0x0267->0x1241 ; "LABEL_TYPE" 110f 026f | o | .STRTAB 0x026f->0x1246 ; "PACKAGE_TYPE" 1110 0279 | y | .STRTAB 0x0279->0x124c ; "PARAMETER_TYPE" 1111 0285 | | .STRTAB 0x0285->0x1253 ; "PRAGMA_TYPE" 1112 028e | | .STRTAB 0x028e->0x1259 ; "PROCEDURE_TYPE" 1113 029a | | .STRTAB 0x029a->0x1260 ; "TASK_BODY_TYPE" 1114 02a6 | | .STRTAB 0x02a6->0x1267 ; "TYPE_TYPE" 1115 02ad | | .STRTAB 0x02ad->0x126b ; "VARIABLE_TYPE" 1116 02b8 | | .STRTAB 0x02b8->0x1272 ; "UNKNOWN_TYPE" 1117 02c2 | | .STRTAB 0x02c2->0x1278 ; "IN_VISIBLE_SUBPROGRAM_SPEC_PART" 1118 02df | | .STRTAB 0x02df->0x1287 ; "IN_VISIBLE_PACKAGE_SPEC_PART" 1119 02f9 | | .STRTAB 0x02f9->0x1295 ; "IN_VISIBLE_PACKAGE_PRIVATE_PART" 111a 0316 | | .STRTAB 0x0316->0x12a5 ; "IN_PACKAGE_SPEC_PART" 111b 0328 | ( | .STRTAB 0x0328->0x12af ; "IN_PACKAGE_PRIVATE_PART" 111c 033d | = | .STRTAB 0x033d->0x12ba ; "IN_PACKAGE_BODY_PART" 111d 034f | O | .STRTAB 0x034f->0x12c4 ; "IN_OTHER_PART" 111e 035a | Z | .STRTAB 0x035a->0x12cb ; "SUCCESSFUL" 111f 0362 | b | .STRTAB 0x0362->0x12d0 ; "ITEM_LOCKED" 1120 036b | k | .STRTAB 0x036b->0x12d5 ; "ITEM_DISAPPEARED" 1121 0379 | y | .STRTAB 0x0379->0x12dd ; "INVALID_WHICH" 1122 0384 | | .STRTAB 0x0384->0x12e4 ; "OTHER_ERROR" 1123 038d | | .STRTAB 0x038d->0x12e9 ; "START" 1124 0390 | | .STRTAB 0x0390->0x12ec ; "FINISH" 1125 0394 | | .STRTAB 0x0394->0x12ef ; "'1" 1126 0394 | | .STRTAB 0x0394->0x12f0 ; "?" 1127 0393 | | .STRTAB 0x0393->0x12f0 ; " is not an ada object" 1128 03a6 | | .STRTAB 0x03a6->0x12fb ; " isn't installed or higher" 1129 03be | | .STRTAB 0x03be->0x1308 ; "'" 112a 03bd | | .STRTAB 0x03bd->0x1308 ; "Formals contained unexpected node " 112b 03dd | | .STRTAB 0x03dd->0x1319 ; ".#WITH#" 112c 03e2 | | .STRTAB 0x03e2->0x131d ; "." 112d 03e1 | | .STRTAB 0x03e1->0x131d ; " " 112e 03e0 | | .STRTAB 0x03e0->0x131e ; "(BT)" 112f 03e2 | | .STRTAB 0x03e2->0x1320 ; "(?)" 1130 03e3 | | .STRTAB 0x03e3->0x1321 ; "(U)" 1131 03e4 | | .STRTAB 0x03e4->0x1323 ; "(S)" 1132 03e5 | | .STRTAB 0x03e5->0x1324 ; "(B)" 1133 03e6 | | .STRTAB 0x03e6->0x1326 ; "(UT)" 1134 03e8 | | .STRTAB 0x03e8->0x1328 ; "(ST)" 1135 03ea | | .STRTAB 0x03ea->0x132a ; "ITEM" 1136 03ec | | .STRTAB 0x03ec->0x132c ; "DEFINED IN" 1137 03f4 | | .STRTAB 0x03f4->0x1331 ; "IS REFERRED TO BY" 1138 0403 | | .STRTAB 0x0403->0x1339 ; " FULL NAMES OF \x22IS REFERRED TO BY\x22 UNITS" 1139 0436 | 6 | .STRTAB 0x0436->0x1354 ; " FULL NAMES OF \x22DEFINED IN\x22 UNITS " 113a 0463 | c | .STRTAB 0x0463->0x136b ; "[" 113b 0462 | b | .STRTAB 0x0462->0x136c ; "]" 113c 0461 | a | .STRTAB 0x0461->0x136c ; "...." 113d 0463 | c | .STREND 0x0463->0x136e 113e 5245 4645 |REFE| .STRTAB_STRINGS 136f 0000 | | .XXX[0x1] 1370 ; -------------------------------------------------------------------------------------- 1370 ; Debug Table 1370 ; -------------------------------------------------------------------------------------- 1370 0004 000e | | .DEBUG4 0x0004,0x000e,0x9590,0x0000,0x0001,0x0000 1376 0004 0000 | | .XXX[0xc] 1378 0100 0000 | | 137a 0880 0000 | | 137c 0004 0000 | | 137e 0029 0000 | ) | 1380 1010 78b0 | x | 1382 0000 0000 | | .BLANK 0000[0x1b] 139d 0c00 01a0 | | .XXX[0x22] 139f cd01 8043 | C| 13a1 1200 001d | | 13a3 bb6c 9901 | l | 13a5 0008 0000 | | 13a7 8000 0000 | | 13a9 60f8 0000 |` | 13ab 4000 0000 |@ | 13ad 5002 8000 |P | 13af 0000 8000 | | 13b1 0020 0000 | | 13b3 0110 0000 | | 13b5 0000 8000 | | 13b7 0005 2000 | | 13b9 0080 b8e8 | | 13bb 2000 0080 | | 13bd b8e8 8000 | | 13bf 0000 0000 | | .BLANK 0000[0x17] 13d6 0180 0034 | 4| .XXX[0x3] 13d8 1a80 | | 13d9 0000 0000 | | .BLANK 0000[0x27]