|
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: 12288 (0x3000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1610 | | .CONST 0x1610 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0223 | # | .CONST 0x0223 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0077 | w | .CONST 0x0077 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0010 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0012 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0014 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0016 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0018 00e3 | | Load_Encached Natural_Cache
0019 0266 | f | Execute Discrete,Bounds
001a e20d | | Load 0x1,0xd
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4801 |H | Short_Literal 0x1
001d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001e 00e3 | | Load_Encached Natural_Cache
001f e002 | | Load 0x0,0x2
0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0021 4801 |H | Short_Literal 0x1
0022 620d |b | Indirect_Literal Discrete,0x230,{0x00000000, 0x7fffffff}
0023 e213 | | Load 0x1,0x13
0024 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0025 029f 14f3 | | Declare_Subprogram INIT_14f0,For_Call
0027 4800 |H | Short_Literal 0x0
0028 4801 |H | Short_Literal 0x1
0029 4801 |H | Short_Literal 0x1
002a 4800 |H | Short_Literal 0x0
002b 4801 |H | Short_Literal 0x1
002c 4801 |H | Short_Literal 0x1
002d 031e | | Declare_Type Variant_Record,Defined,Visible
002e 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 00c4 | | Action Make_Default
0055 00c4 | | Action Make_Default
0056 00c4 | | Action Make_Default
0057 00c4 | | Action Make_Default
0058 00c4 | | Action Make_Default
0059 00c4 | | Action Make_Default
005a 00c4 | | Action Make_Default
005b 00c4 | | Action Make_Default
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 00c4 | | Action Make_Default
0061 00c4 | | Action Make_Default
0062 00c4 | | Action Make_Default
0063 00c4 | | Action Make_Default
0064 00c4 | | Action Make_Default
0065 00c4 | | Action Make_Default
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 00c4 | | Action Make_Default
0069 00c4 | | Action Make_Default
006a 00c4 | | Action Make_Default
006b 00c4 | | Action Make_Default
006c 00c4 | | Action Make_Default
006d 00c4 | | Action Make_Default
006e 00c4 | | Action Make_Default
006f 00c4 | | Action Make_Default
0070 00c4 | | Action Make_Default
0071 00c4 | | Action Make_Default
0072 00c4 | | Action Make_Default
0073 00c4 | | Action Make_Default
0074 00c4 | | Action Make_Default
0075 00c4 | | Action Make_Default
0076 00c4 | | Action Make_Default
0077 00c4 | | Action Make_Default
0078 00c4 | | Action Make_Default
0079 e003 | | Load 0x0,0x3
007a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007b e003 | | Load 0x0,0x3
007c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007d 029f 151b | | Declare_Subprogram INIT_1518,For_Call
007f 4802 |H | Short_Literal 0x2
0080 032e | . | Declare_Type Record,Defined,Visible
0081 c257 | W | Store 0x1,0x57
0082 00e3 | | Load_Encached Natural_Cache
0083 0266 | f | Execute Discrete,Bounds
0084 e257 | W | Load 0x1,0x57
0085 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0087 4801 |H | Short_Literal 0x1
0088 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0089 c258 | X | Store 0x1,0x58
008a 4801 |H | Short_Literal 0x1
008b 4801 |H | Short_Literal 0x1
008c e258 | X | Load 0x1,0x58
008d 035b | [ | Declare_Type Array,Constrained
008e 0336 | 6 | Declare_Variable Array,Visible
008f 00d8 | | Load_Top At_Offset_0
0090 0335 | 5 | Declare_Variable Array,Duplicate
0091 00cd | | Action Spare6_Action
0092 e257 | W | Load 0x1,0x57
0093 0322 | " | Declare_Variable Record
0094 e003 | | Load 0x0,0x3
0095 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0096 e257 | W | Load 0x1,0x57
0097 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0098 0119 | | Execute Any,Check_In_Formal_Type
0099 00d9 | | Load_Top At_Offset_1
009a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009b e003 | | Load 0x0,0x3
009c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009d e257 | W | Load 0x1,0x57
009e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
009f 0119 | | Execute Any,Check_In_Formal_Type
00a0 00d9 | | Load_Top At_Offset_1
00a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a2 4801 |H | Short_Literal 0x1
00a3 00da | | Load_Top At_Offset_2
00a4 01d6 | | Execute Vector,Field_Write
00a5 00d9 | | Load_Top At_Offset_1
00a6 01d4 | | Execute Vector,Structure_Write
00a7 c259 | Y | Store 0x1,0x59
00a8 e004 | | Load 0x0,0x4
00a9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00aa 0129 | ) | Execute Any,Make_Visible
00ab c24b | K | Store 0x1,0x4b
00ac 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
00ae c25a | Z | Store 0x1,0x5a
00af 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
00b1 c25b | [ | Store 0x1,0x5b
00b2 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
00b4 c218 | | Store 0x1,0x18
00b5 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
00b7 c219 | | Store 0x1,0x19
00b8 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
00ba c24e | N | Store 0x1,0x4e
00bb 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
00bd c24f | O | Store 0x1,0x4f
00be 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
00c0 c21c | | Store 0x1,0x1c
00c1 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
00c3 c21d | | Store 0x1,0x1d
00c4 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
00c6 c21e | | Store 0x1,0x1e
00c7 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
00c9 c21f | | Store 0x1,0x1f
00ca 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
00cc c220 | | Store 0x1,0x20
00cd 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
00cf c221 | ! | Store 0x1,0x21
00d0 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
00d2 c222 | " | Store 0x1,0x22
00d3 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
00d5 c223 | # | Store 0x1,0x23
00d6 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
00d8 c224 | $ | Store 0x1,0x24
00d9 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
00db c225 | % | Store 0x1,0x25
00dc 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated
00de c226 | & | Store 0x1,0x26
00df 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
00e1 c227 | ' | Store 0x1,0x27
00e2 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated
00e4 c228 | ( | Store 0x1,0x28
00e5 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
00e7 c250 | P | Store 0x1,0x50
00e8 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
00ea c251 | Q | Store 0x1,0x51
00eb 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated
00ed c252 | R | Store 0x1,0x52
00ee 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
00f0 c253 | S | Store 0x1,0x53
00f1 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated
00f3 c254 | T | Store 0x1,0x54
00f4 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
00f6 c255 | U | Store 0x1,0x55
00f7 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated
00f9 c229 | ) | Store 0x1,0x29
00fa 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
00fc c22a | * | Store 0x1,0x2a
00fd 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
00ff c22b | + | Store 0x1,0x2b
0100 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated
0102 c22c | , | Store 0x1,0x2c
0103 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated
0105 c22d | - | Store 0x1,0x2d
0106 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated
0108 c22e | . | Store 0x1,0x2e
0109 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated
010b c22f | / | Store 0x1,0x2f
010c 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated
010e c230 | 0 | Store 0x1,0x30
010f 029a 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call,Visible,Unelaborated
0111 c231 | 1 | Store 0x1,0x31
0112 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated
0114 c256 | V | Store 0x1,0x56
0115 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated
0117 c233 | 3 | Store 0x1,0x33
0118 029a 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call,Visible,Unelaborated
011a c234 | 4 | Store 0x1,0x34
011b 029a 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call,Visible,Unelaborated
011d c235 | 5 | Store 0x1,0x35
011e 029a 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call,Visible,Unelaborated
0120 c236 | 6 | Store 0x1,0x36
0121 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated
0123 c237 | 7 | Store 0x1,0x37
0124 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated
0126 c238 | 8 | Store 0x1,0x38
0127 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated
0129 c239 | 9 | Store 0x1,0x39
012a 029a 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call,Visible,Unelaborated
012c c23a | : | Store 0x1,0x3a
012d 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated
012f c23b | ; | Store 0x1,0x3b
0130 029a 08fb | | Declare_Subprogram INIT_08f8,For_Outer_Call,Visible,Unelaborated
0132 c23c | < | Store 0x1,0x3c
0133 029a 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call,Visible,Unelaborated
0135 c23d | = | Store 0x1,0x3d
0136 029a 098b | | Declare_Subprogram INIT_0988,For_Outer_Call,Visible,Unelaborated
0138 c23e | > | Store 0x1,0x3e
0139 029a 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call,Visible,Unelaborated
013b c23f | ? | Store 0x1,0x3f
013c 029a 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call,Visible,Unelaborated
013e c240 | @ | Store 0x1,0x40
013f 029a 0a7b | {| Declare_Subprogram INIT_0a78,For_Outer_Call,Visible,Unelaborated
0141 c241 | A | Store 0x1,0x41
0142 029a 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call,Visible,Unelaborated
0144 c242 | B | Store 0x1,0x42
0145 029a 0b13 | | Declare_Subprogram INIT_0b10,For_Outer_Call,Visible,Unelaborated
0147 c243 | C | Store 0x1,0x43
0148 029a 0b53 | S| Declare_Subprogram INIT_0b50,For_Outer_Call,Visible,Unelaborated
014a c244 | D | Store 0x1,0x44
014b 029a 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call,Visible,Unelaborated
014d c245 | E | Store 0x1,0x45
014e 029a 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call,Visible,Unelaborated
0150 c246 | F | Store 0x1,0x46
0151 029a 0beb | | Declare_Subprogram INIT_0be8,For_Outer_Call,Visible,Unelaborated
0153 c247 | G | Store 0x1,0x47
0154 029a 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call,Visible,Unelaborated
0156 c248 | H | Store 0x1,0x48
0157 029a 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call,Visible,Unelaborated
0159 c249 | I | Store 0x1,0x49
015a 4808 |H | Short_Literal 0x8
015b 0093 153b | ;| push_full_address INIT_1538
015d 02a0 | | Declare_Subprogram Null_Subprogram
015e 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
015f c24a | J | Store 0x1,0x4a
0160 029a 0c23 | #| Declare_Subprogram INIT_0c20,For_Outer_Call,Visible,Unelaborated
0162 c25c | \ | Store 0x1,0x5c
0163 029a 0c33 | 3| Declare_Subprogram INIT_0c30,For_Outer_Call,Visible,Unelaborated
0165 c25d | ] | Store 0x1,0x5d
0166 00bf | | Action Accept_Activation
0167 029d 0c3b | ;| Declare_Subprogram INIT_0c38,For_Outer_Call
0169 029d 0c4b | K| Declare_Subprogram INIT_0c48,For_Outer_Call
016b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
016c 00c7 | | Action Elaborate_Subprogram
016d 029d 0c5b | [| Declare_Subprogram INIT_0c58,For_Outer_Call
016f 029d 0d23 | #| Declare_Subprogram INIT_0d20,For_Outer_Call
0171 029d 0e1b | | Declare_Subprogram INIT_0e18,For_Outer_Call
0173 029d 0e43 | C| Declare_Subprogram INIT_0e40,For_Outer_Call
0175 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0176 00c7 | | Action Elaborate_Subprogram
0177 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0178 00c7 | | Action Elaborate_Subprogram
0179 e005 | | Load 0x0,0x5
017a 193c | < | Execute Package,Field_Reference,Field_Number 0x3c
017b 00c6 | | Action Check_Subprogram_Elaborated
017c e20d | | Load 0x1,0xd
017d 480f |H | Short_Literal 0xf
017e e006 | | Load 0x0,0x6
017f 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0180 e006 | | Load 0x0,0x6
0181 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0182 e007 | | Load 0x0,0x7
0183 e008 | | Load 0x0,0x8
0184 4800 |H | Short_Literal 0x0
0185 0007 | | Action Break_Optional
0186 029d 0e6b | k| Declare_Subprogram INIT_0e68,For_Outer_Call
0188 e005 | | Load 0x0,0x5
0189 193d | = | Execute Package,Field_Reference,Field_Number 0x3d
018a 00c6 | | Action Check_Subprogram_Elaborated
018b e20d | | Load 0x1,0xd
018c 480f |H | Short_Literal 0xf
018d 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
018e e001 | | Load 0x0,0x1
018f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0190 e009 | | Load 0x0,0x9
0191 e00a | | Load 0x0,0xa
0192 4800 |H | Short_Literal 0x0
0193 0007 | | Action Break_Optional
0194 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0195 00c7 | | Action Elaborate_Subprogram
0196 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0197 00c7 | | Action Elaborate_Subprogram
0198 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0199 00c7 | | Action Elaborate_Subprogram
019a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
019b 00c7 | | Action Elaborate_Subprogram
019c 029d 0e83 | | Declare_Subprogram INIT_0e80,For_Outer_Call
019e 029d 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call
01a0 029d 101b | | Declare_Subprogram INIT_1018,For_Outer_Call
01a2 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
01a3 00c7 | | Action Elaborate_Subprogram
01a4 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
01a5 00c7 | | Action Elaborate_Subprogram
01a6 1d18 | | Execute_Immediate Reference_Lex_1,0x18
01a7 00c7 | | Action Elaborate_Subprogram
01a8 1d19 | | Execute_Immediate Reference_Lex_1,0x19
01a9 00c7 | | Action Elaborate_Subprogram
01aa 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
01ab 00c7 | | Action Elaborate_Subprogram
01ac 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
01ad 00c7 | | Action Elaborate_Subprogram
01ae 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
01af 00c7 | | Action Elaborate_Subprogram
01b0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
01b1 00c7 | | Action Elaborate_Subprogram
01b2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
01b3 00c7 | | Action Elaborate_Subprogram
01b4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
01b5 00c7 | | Action Elaborate_Subprogram
01b6 1d20 | | Execute_Immediate Reference_Lex_1,0x20
01b7 00c7 | | Action Elaborate_Subprogram
01b8 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
01b9 00c7 | | Action Elaborate_Subprogram
01ba 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
01bb 00c7 | | Action Elaborate_Subprogram
01bc 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
01bd 00c7 | | Action Elaborate_Subprogram
01be 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
01bf 00c7 | | Action Elaborate_Subprogram
01c0 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
01c1 00c7 | | Action Elaborate_Subprogram
01c2 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
01c3 00c7 | | Action Elaborate_Subprogram
01c4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
01c5 00c7 | | Action Elaborate_Subprogram
01c6 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01c7 00c7 | | Action Elaborate_Subprogram
01c8 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
01c9 00c7 | | Action Elaborate_Subprogram
01ca 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
01cb 00c7 | | Action Elaborate_Subprogram
01cc 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
01cd 00c7 | | Action Elaborate_Subprogram
01ce 029d 1043 | C| Declare_Subprogram INIT_1040,For_Outer_Call
01d0 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
01d1 00c7 | | Action Elaborate_Subprogram
01d2 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
01d3 00c7 | | Action Elaborate_Subprogram
01d4 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
01d5 00c7 | | Action Elaborate_Subprogram
01d6 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
01d7 00c7 | | Action Elaborate_Subprogram
01d8 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
01d9 00c7 | | Action Elaborate_Subprogram
01da 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
01db 00c7 | | Action Elaborate_Subprogram
01dc 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
01dd 00c7 | | Action Elaborate_Subprogram
01de 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
01df 00c7 | | Action Elaborate_Subprogram
01e0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
01e1 00c7 | | Action Elaborate_Subprogram
01e2 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
01e3 00c7 | | Action Elaborate_Subprogram
01e4 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
01e5 00c7 | | Action Elaborate_Subprogram
01e6 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
01e7 00c7 | | Action Elaborate_Subprogram
01e8 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
01e9 00c7 | | Action Elaborate_Subprogram
01ea 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
01eb 00c7 | | Action Elaborate_Subprogram
01ec 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
01ed 00c7 | | Action Elaborate_Subprogram
01ee 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
01ef 00c7 | | Action Elaborate_Subprogram
01f0 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
01f1 00c7 | | Action Elaborate_Subprogram
01f2 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
01f3 00c7 | | Action Elaborate_Subprogram
01f4 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
01f5 00c7 | | Action Elaborate_Subprogram
01f6 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
01f7 00c7 | | Action Elaborate_Subprogram
01f8 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
01f9 00c7 | | Action Elaborate_Subprogram
01fa 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
01fb 00c7 | | Action Elaborate_Subprogram
01fc 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
01fd 00c7 | | Action Elaborate_Subprogram
01fe 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
01ff 00c7 | | Action Elaborate_Subprogram
0200 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0201 00c7 | | Action Elaborate_Subprogram
0202 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
0203 00c7 | | Action Elaborate_Subprogram
0204 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
0205 00c7 | | Action Elaborate_Subprogram
0206 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0207 00c7 | | Action Elaborate_Subprogram
0208 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0209 00c7 | | Action Elaborate_Subprogram
020a 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
020b 00c7 | | Action Elaborate_Subprogram
020c 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
020d 00c7 | | Action Elaborate_Subprogram
020e 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
020f 00c7 | | Action Elaborate_Subprogram
0210 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
0211 00c7 | | Action Elaborate_Subprogram
0212 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
0213 00c7 | | Action Elaborate_Subprogram
0214 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
0215 00c7 | | Action Elaborate_Subprogram
0216 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c
0217 00c7 | | Action Elaborate_Subprogram
0218 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d
0219 00c7 | | Action Elaborate_Subprogram
021a e00b | | Load 0x0,0xb
021b e00c | | Load 0x0,0xc
021c e00d | | Load 0x0,0xd
021d 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
021e 4804 |H | Short_Literal 0x4
021f e24a | J | Load 0x1,0x4a
0220 020e | | Execute Module,Augment_Imports
0221 e24a | J | Load 0x1,0x4a
0222 020d | | Execute Module,Elaborate
0223 BODY_0008:
0223 00bc | | Action Signal_Activated
0224 00bb | | Action Signal_Completion
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e001 | | Load 0x0,0x1
022c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
022d 00ca | | Action Exit_Nullary_Function
022e 0000 0000 | | .XXX[0x2]
0230 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c 021d | | Execute Heap_Access,Is_Null
023d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 e265 | e | Load 0x1,0x65
0245 e266 | f | Load 0x1,0x66
0246 1d67 | g | Execute_Immediate Reference_Lex_1,0x67
0247 1d68 | h | Execute_Immediate Reference_Lex_1,0x68
0248 1d69 | i | Execute_Immediate Reference_Lex_1,0x69
0249 e005 | | Load 0x0,0x5
024a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 e26d | m | Load 0x1,0x6d
0255 e26e | n | Load 0x1,0x6e
0256 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f
0257 e270 | p | Load 0x1,0x70
0258 1d71 | q | Execute_Immediate Reference_Lex_1,0x71
0259 e005 | | Load 0x0,0x5
025a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
025b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 821c | | Call 0x1,0x1c
0265 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 4800 |H | Short_Literal 0x0
026c e214 | | Load 0x1,0x14
026d 1c08 | | Execute_Immediate Run_Utility,0x8
026e 4800 |H | Short_Literal 0x0
026f 00d9 | | Load_Top At_Offset_1
0270 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0271 4801 |H | Short_Literal 0x1
0272 4800 |H | Short_Literal 0x0
0273 e213 | | Load 0x1,0x13
0274 035b | [ | Declare_Type Array,Constrained
0275 0337 | 7 | Declare_Variable Array
0276 00d9 | | Load_Top At_Offset_1
0277 00d8 | | Load_Top At_Offset_0
0278 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0279 00da | | Load_Top At_Offset_2
027a 01da | | Execute Vector,Bounds
027b 00da | | Load_Top At_Offset_2
027c 01da | | Execute Vector,Bounds
027d 00da | | Load_Top At_Offset_2
027e 027f | | Execute Discrete,Equal
027f 7001 |p | Jump_Nonzero 0x281
0280 08e0 | | Execute_Immediate Raise,0xe0
0281 00cd | | Action Spare6_Action
0282 027f | | Execute Discrete,Equal
0283 7001 |p | Jump_Nonzero 0x285
0284 08e0 | | Execute_Immediate Raise,0xe0
0285 00d2 | | Pop_Control Pop_Count_2
0286 00d9 | | Load_Top At_Offset_1
0287 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0288 00ca | | Action Exit_Nullary_Function
0289 0000 0000 | | .BLANK 0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00d1 | | Pop_Control Pop_Count_1
0294 00da | | Load_Top At_Offset_2
0295 01dc | | Execute Vector,Last
0296 00db | | Load_Top At_Offset_3
0297 01dd | | Execute Vector,First
0298 0263 | c | Execute Discrete,Above_Bound
0299 7006 |p | Jump_Nonzero 0x2a0
029a 00d8 | | Load_Top At_Offset_0
029b e5ff | | Load 0x2,-0x1
029c 01d5 | | Execute Vector,Field_Reference
029d 1c00 | | Execute_Immediate Run_Utility,0x0
029e 0a01 | | Execute_Immediate Plus,0x1
029f 7ff8 | | Jump 0x298
02a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02a1 0000 0000 | | .BLANK 0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b9 | | .CONST 0x02b9 ; Address of begin
02a9 0327 | ' | .CONST 0x0327 ; Address of exception handler
02aa 0004 | | .CONST 0x0004 ; Number of locals
02ab INIT_02a8:
02ab e00e | | Load 0x0,0xe
02ac 0322 | " | Declare_Variable Record
02ad 00d8 | | Load_Top At_Offset_0
02ae 1c00 | | Execute_Immediate Run_Utility,0x0
02af e00f | | Load 0x0,0xf
02b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b1 02c7 | | Declare_Variable Any
02b2 00d8 | | Load_Top At_Offset_0
02b3 1c00 | | Execute_Immediate Run_Utility,0x0
02b4 e00f | | Load 0x0,0xf
02b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b6 02c7 | | Declare_Variable Any
02b7 00d8 | | Load_Top At_Offset_0
02b8 1c00 | | Execute_Immediate Run_Utility,0x0
02b9 BODY_02a8:
02b9 e5fd | | Load 0x2,-0x3
02ba 686b |hk | Jump_Zero 0x326
02bb 0092 157b | {| Action Push_String_Extended,0x157b ; "Refreshing unit "
02bd e5ff | | Load 0x2,-0x1
02be 0217 | | Execute Heap_Access,All_Reference
02bf 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
02c0 e010 | | Load 0x0,0x10
02c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02c2 01cc | | Execute Vector,Catenate
02c3 8011 | | Call 0x0,0x11
02c4 e5fc | | Load 0x2,-0x4
02c5 00db | | Load_Top At_Offset_3
02c6 e5ff | | Load 0x2,-0x1
02c7 8261 | a | Call 0x1,0x61
02c8 00d1 | | Pop_Control Pop_Count_1
02c9 c5fc | | Store 0x2,-0x4
02ca 4800 |H | Short_Literal 0x0
02cb e5fc | | Load 0x2,-0x4
02cc e002 | | Load 0x0,0x2
02cd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02ce 6857 |hW | Jump_Zero 0x326
02cf e5fc | | Load 0x2,-0x4
02d0 00d9 | | Load_Top At_Offset_1
02d1 0120 | | Execute Any,Is_Value
02d2 6803 |h | Jump_Zero 0x2d6
02d3 e00f | | Load 0x0,0xf
02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d5 7801 |x | Jump 0x2d7
02d6 00d9 | | Load_Top At_Offset_1
02d7 00db | | Load_Top At_Offset_3
02d8 0120 | | Execute Any,Is_Value
02d9 6803 |h | Jump_Zero 0x2dd
02da e00f | | Load 0x0,0xf
02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02dc 7801 |x | Jump 0x2de
02dd 00db | | Load_Top At_Offset_3
02de e5ff | | Load 0x2,-0x1
02df 8262 | b | Call 0x1,0x62
02e0 c403 | | Store 0x2,0x3
02e1 c404 | | Store 0x2,0x4
02e2 c5fc | | Store 0x2,-0x4
02e3 4800 |H | Short_Literal 0x0
02e4 e5fc | | Load 0x2,-0x4
02e5 e002 | | Load 0x0,0x2
02e6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02e7 683e |h> | Jump_Zero 0x326
02e8 4801 |H | Short_Literal 0x1
02e9 e5ff | | Load 0x2,-0x1
02ea 0217 | | Execute Heap_Access,All_Reference
02eb 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
02ec e00f | | Load 0x0,0xf
02ed 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02ee e5ff | | Load 0x2,-0x1
02ef 0217 | | Execute Heap_Access,All_Reference
02f0 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
02f1 e5fd | | Load 0x2,-0x3
02f2 0f02 | | Execute_Immediate Equal,0x2
02f3 6832 |h2 | Jump_Zero 0x326
02f4 00da | | Load_Top At_Offset_2
02f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f6 e003 | | Load 0x0,0x3
02f7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02f9 012f | / | Execute Any,Equal
02fa 6822 |h" | Jump_Zero 0x31d
02fb e5ff | | Load 0x2,-0x1
02fc 0217 | | Execute Heap_Access,All_Reference
02fd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02fe 681e |h | Jump_Zero 0x31d
02ff e5ff | | Load 0x2,-0x1
0300 0217 | | Execute Heap_Access,All_Reference
0301 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0302 0e02 | | Execute_Immediate Not_Equal,0x2
0303 7007 |p | Jump_Nonzero 0x30b
0304 e5ff | | Load 0x2,-0x1
0305 0217 | | Execute Heap_Access,All_Reference
0306 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0307 00da | | Load_Top At_Offset_2
0308 e00f | | Load 0x0,0xf
0309 181f | | Execute Package,Field_Execute,Field_Number 0x1f
030a 6808 |h | Jump_Zero 0x313
030b e5ff | | Load 0x2,-0x1
030c 8276 | v | Call 0x1,0x76
030d 6805 |h | Jump_Zero 0x313
030e e5fc | | Load 0x2,-0x4
030f e5fe | | Load 0x2,-0x2
0310 e5ff | | Load 0x2,-0x1
0311 8275 | u | Call 0x1,0x75
0312 c5fc | | Store 0x2,-0x4
0313 4802 |H | Short_Literal 0x2
0314 e5ff | | Load 0x2,-0x1
0315 0217 | | Execute Heap_Access,All_Reference
0316 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0317 e00f | | Load 0x0,0xf
0318 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0319 e5ff | | Load 0x2,-0x1
031a 0217 | | Execute Heap_Access,All_Reference
031b 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
031c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
031d 4802 |H | Short_Literal 0x2
031e e5ff | | Load 0x2,-0x1
031f 0217 | | Execute Heap_Access,All_Reference
0320 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0321 e00f | | Load 0x0,0xf
0322 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0323 e5ff | | Load 0x2,-0x1
0324 0217 | | Execute Heap_Access,All_Reference
0325 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0326 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0327 TRAP_02a8:
0327 4885 |H | Short_Literal 0x85
0328 010f | | Execute Exception,Equal
0329 6812 |h | Jump_Zero 0x33c
032a e002 | | Load 0x0,0x2
032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032c 4801 |H | Short_Literal 0x1
032d 4801 |H | Short_Literal 0x1
032e e005 | | Load 0x0,0x5
032f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0330 035b | [ | Declare_Type Array,Constrained
0331 0337 | 7 | Declare_Variable Array
0332 e5ff | | Load 0x2,-0x1
0333 8210 | | Call 0x1,0x10
0334 4801 |H | Short_Literal 0x1
0335 00da | | Load_Top At_Offset_2
0336 01d6 | | Execute Vector,Field_Write
0337 6008 |` | Indirect_Literal Discrete,0x340,{0x00000000, 0x0000200e}
0338 e002 | | Load 0x0,0x2
0339 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
033a c5fc | | Store 0x2,-0x4
033b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
033c 0100 | | Execute Exception,Raise
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 0000 0000 | | .LITERAL {0x00000000, 0x0000200e}
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00cf | | Action Mark_Auxiliary
034c 00db | | Load_Top At_Offset_3
034d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
034e 4801 |H | Short_Literal 0x1
034f 0263 | c | Execute Discrete,Above_Bound
0350 700b |p | Jump_Nonzero 0x35c
0351 e5fc | | Load 0x2,-0x4
0352 e5fd | | Load 0x2,-0x3
0353 e5fe | | Load 0x2,-0x2
0354 00db | | Load_Top At_Offset_3
0355 e5ff | | Load 0x2,-0x1
0356 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0357 01d7 | | Execute Vector,Field_Read
0358 825a | Z | Call 0x1,0x5a
0359 c5fc | | Store 0x2,-0x4
035a 00c8 | | Action Pop_Auxiliary_Range
035b 3ff5 |? | Loop_Increasing 0x351
035c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
035d 0000 0000 | | .XXX[0x3]
035f 0000 | |
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 6804 |h | Jump_Zero 0x369
0365 00da | | Load_Top At_Offset_2
0366 0217 | | Execute Heap_Access,All_Reference
0367 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0369 4800 |H | Short_Literal 0x0
036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00db | | Load_Top At_Offset_3
0374 00db | | Load_Top At_Offset_3
0375 0217 | | Execute Heap_Access,All_Reference
0376 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0377 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 6806 |h | Jump_Zero 0x383
037d 00da | | Load_Top At_Offset_2
037e 0217 | | Execute Heap_Access,All_Reference
037f 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0380 e5fe | | Load 0x2,-0x2
0381 027b | { | Execute Discrete,Greater_Equal
0382 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0383 4800 |H | Short_Literal 0x0
0384 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00db | | Load_Top At_Offset_3
038c 00db | | Load_Top At_Offset_3
038d 824e | N | Call 0x1,0x4e
038e 6809 |h | Jump_Zero 0x398
038f 00da | | Load_Top At_Offset_2
0390 0217 | | Execute Heap_Access,All_Reference
0391 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0392 00d8 | | Load_Top At_Offset_0
0393 0120 | | Execute Any,Is_Value
0394 7002 |p | Jump_Nonzero 0x397
0395 00d8 | | Load_Top At_Offset_0
0396 011e | | Execute Any,Convert
0397 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0398 e004 | | Load 0x0,0x4
0399 180f | | Execute Package,Field_Execute,Field_Number 0xf
039a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
039b 0000 0000 | | .BLANK 0000[0x5]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 6806 |h | Jump_Zero 0x3ab
03a5 00da | | Load_Top At_Offset_2
03a6 0217 | | Execute Heap_Access,All_Reference
03a7 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
03a8 e010 | | Load 0x0,0x10
03a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ab 00ea | | Load_Encached Null_String_Cache
03ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03bf | | .CONST 0x03bf ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0003 | | .CONST 0x0003 ; Number of locals
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 0217 | | Execute Heap_Access,All_Reference
03b5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
03b6 e010 | | Load 0x0,0x10
03b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03b8 4800 |H | Short_Literal 0x0
03b9 00d9 | | Load_Top At_Offset_1
03ba 4827 |H' | Short_Literal 0x27
03bb e012 | | Load 0x0,0x12
03bc 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03bd 00e2 | | Load_Encached Integer_Cache
03be 03f1 | | Declare_Variable Discrete,With_Value
03bf BODY_03b0:
03bf 00d8 | | Load_Top At_Offset_0
03c0 680e |h | Jump_Zero 0x3cf
03c1 e5ff | | Load 0x2,-0x1
03c2 0217 | | Execute Heap_Access,All_Reference
03c3 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
03c4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03c5 e003 | | Load 0x0,0x3
03c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03c7 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
03c8 00d9 | | Load_Top At_Offset_1
03c9 00db | | Load_Top At_Offset_3
03ca 01dc | | Execute Vector,Last
03cb e402 | | Load 0x2,0x2
03cc 01cf | | Execute Vector,Slice_Read
03cd 01cc | | Execute Vector,Catenate
03ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03cf e5ff | | Load 0x2,-0x1
03d0 0217 | | Execute Heap_Access,All_Reference
03d1 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
03d2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d3 e003 | | Load 0x0,0x3
03d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03d5 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
03d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d7 0000 | | .XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03df | | .CONST 0x03df ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0003 | | .CONST 0x0003 ; Number of locals
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 821c | | Call 0x1,0x1c
03dd 00db | | Load_Top At_Offset_3
03de 821d | | Call 0x1,0x1d
03df BODY_03d8:
03df 00d9 | | Load_Top At_Offset_1
03e0 01dd | | Execute Vector,First
03e1 00da | | Load_Top At_Offset_2
03e2 01dc | | Execute Vector,Last
03e3 00da | | Load_Top At_Offset_2
03e4 01db | | Execute Vector,Length
03e5 0272 | r | Execute Discrete,Minus
03e6 0aff | | Execute_Immediate Plus,-0x1
03e7 00d8 | | Load_Top At_Offset_0
03e8 00e2 | | Load_Encached Integer_Cache
03e9 0260 | ` | Execute Discrete,In_Type
03ea 7001 |p | Jump_Nonzero 0x3ec
03eb 0801 | | Execute_Immediate Raise,0x1
03ec 00db | | Load_Top At_Offset_3
03ed 01cf | | Execute Vector,Slice_Read
03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 680b |h | Jump_Zero 0x400
03f5 00da | | Load_Top At_Offset_2
03f6 0217 | | Execute Heap_Access,All_Reference
03f7 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
03f8 e001 | | Load 0x0,0x1
03f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fa 00d9 | | Load_Top At_Offset_1
03fb 00d0 | | Action Swap_Control
03fc 0260 | ` | Execute Discrete,In_Type
03fd 7001 |p | Jump_Nonzero 0x3ff
03fe 0801 | | Execute_Immediate Raise,0x1
03ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0400 4800 |H | Short_Literal 0x0
0401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0402 0000 0000 | | .BLANK 0000[0x6]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00db | | Load_Top At_Offset_3
040c 00db | | Load_Top At_Offset_3
040d 0217 | | Execute Heap_Access,All_Reference
040e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
040f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 6804 |h | Jump_Zero 0x419
0415 00da | | Load_Top At_Offset_2
0416 0217 | | Execute Heap_Access,All_Reference
0417 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0418 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0419 4800 |H | Short_Literal 0x0
041a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
041b 0000 0000 | | .BLANK 0000[0x5]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0427 | ' | .CONST 0x0427 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0002 | | .CONST 0x0002 ; Number of locals
0423 INIT_0420:
0423 e00e | | Load 0x0,0xe
0424 0322 | " | Declare_Variable Record
0425 00d8 | | Load_Top At_Offset_0
0426 1c00 | | Execute_Immediate Run_Utility,0x0
0427 BODY_0420:
0427 00db | | Load_Top At_Offset_3
0428 0217 | | Execute Heap_Access,All_Reference
0429 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
042a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
042b e003 | | Load 0x0,0x3
042c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
042d 680a |h | Jump_Zero 0x438
042e e5fd | | Load 0x2,-0x3
042f 00d9 | | Load_Top At_Offset_1
0430 e5ff | | Load 0x2,-0x1
0431 8261 | a | Call 0x1,0x61
0432 00d1 | | Pop_Control Pop_Count_1
0433 c5fd | | Store 0x2,-0x3
0434 00d8 | | Load_Top At_Offset_0
0435 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0436 c5fe | | Store 0x2,-0x2
0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0438 00db | | Load_Top At_Offset_3
0439 0217 | | Execute Heap_Access,All_Reference
043a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
043b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
043c c5fe | | Store 0x2,-0x2
043d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
043e 0000 0000 | | .XXX[0x2]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0447 | G | .CONST 0x0447 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0002 | | .CONST 0x0002 ; Number of locals
0443 INIT_0440:
0443 e00e | | Load 0x0,0xe
0444 0322 | " | Declare_Variable Record
0445 00d8 | | Load_Top At_Offset_0
0446 1c00 | | Execute_Immediate Run_Utility,0x0
0447 BODY_0440:
0447 00db | | Load_Top At_Offset_3
0448 0217 | | Execute Heap_Access,All_Reference
0449 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
044a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
044b e003 | | Load 0x0,0x3
044c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
044d 680a |h | Jump_Zero 0x458
044e e5fd | | Load 0x2,-0x3
044f 00d9 | | Load_Top At_Offset_1
0450 e5ff | | Load 0x2,-0x1
0451 8261 | a | Call 0x1,0x61
0452 00d1 | | Pop_Control Pop_Count_1
0453 c5fd | | Store 0x2,-0x3
0454 00d8 | | Load_Top At_Offset_0
0455 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0456 a5fe | | Store_Unchecked 0x2,-0x2
0457 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0458 00db | | Load_Top At_Offset_3
0459 0217 | | Execute Heap_Access,All_Reference
045a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
045b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
045c a5fe | | Store_Unchecked 0x2,-0x2
045d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
045e 0000 0000 | | .XXX[0x2]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 046a | j | .CONST 0x046a ; Address of begin
0461 047d | } | .CONST 0x047d ; Address of exception handler
0462 0003 | | .CONST 0x0003 ; Number of locals
0463 INIT_0460:
0463 e003 | | Load 0x0,0x3
0464 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0465 02c7 | | Declare_Variable Any
0466 00d8 | | Load_Top At_Offset_0
0467 1c00 | | Execute_Immediate Run_Utility,0x0
0468 029f 1073 | s| Declare_Subprogram INIT_1070,For_Call
046a BODY_0460:
046a e5ff | | Load 0x2,-0x1
046b 0217 | | Execute Heap_Access,All_Reference
046c 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
046d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
046e e003 | | Load 0x0,0x3
046f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0470 6806 |h | Jump_Zero 0x477
0471 8403 | | Call 0x2,0x3
0472 00d9 | | Load_Top At_Offset_1
0473 e5ff | | Load 0x2,-0x1
0474 0217 | | Execute Heap_Access,All_Reference
0475 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
0476 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0477 e5ff | | Load 0x2,-0x1
0478 0217 | | Execute Heap_Access,All_Reference
0479 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
047a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
047b c5fe | | Store 0x2,-0x2
047c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
047d TRAP_0460:
047d 4885 |H | Short_Literal 0x85
047e 010f | | Execute Exception,Equal
047f 6806 |h | Jump_Zero 0x486
0480 e5ff | | Load 0x2,-0x1
0481 0217 | | Execute Heap_Access,All_Reference
0482 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
0483 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0484 c5fe | | Store 0x2,-0x2
0485 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0486 0100 | | Execute Exception,Raise
0487 0000 | | .XXX[0x1]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048f | | .CONST 0x048f ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0002 | | .CONST 0x0002 ; Number of locals
048b INIT_0488:
048b e00e | | Load 0x0,0xe
048c 0322 | " | Declare_Variable Record
048d 00d8 | | Load_Top At_Offset_0
048e 1c00 | | Execute_Immediate Run_Utility,0x0
048f BODY_0488:
048f e5fd | | Load 0x2,-0x3
0490 00d9 | | Load_Top At_Offset_1
0491 e5ff | | Load 0x2,-0x1
0492 8261 | a | Call 0x1,0x61
0493 00d1 | | Pop_Control Pop_Count_1
0494 c5fd | | Store 0x2,-0x3
0495 00d8 | | Load_Top At_Offset_0
0496 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0497 e5fe | | Load 0x2,-0x2
0498 016d | m | Execute Variant_Record,Structure_Write
0499 4502 |E | Exit_Suprogram New_Top_Offset 0x2
049a 0000 0000 | | .BLANK 0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04aa | | .CONST 0x04aa ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0003 | | .CONST 0x0003 ; Number of locals
04a3 INIT_04a0:
04a3 e003 | | Load 0x0,0x3
04a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a5 e003 | | Load 0x0,0x3
04a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a7 02c7 | | Declare_Variable Any
04a8 00d8 | | Load_Top At_Offset_0
04a9 1c00 | | Execute_Immediate Run_Utility,0x0
04aa BODY_04a0:
04aa e5fd | | Load 0x2,-0x3
04ab 00d9 | | Load_Top At_Offset_1
04ac 0120 | | Execute Any,Is_Value
04ad 6803 |h | Jump_Zero 0x4b1
04ae e003 | | Load 0x0,0x3
04af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04b0 7801 |x | Jump 0x4b2
04b1 00d9 | | Load_Top At_Offset_1
04b2 e5ff | | Load 0x2,-0x1
04b3 8224 | $ | Call 0x1,0x24
04b4 c403 | | Store 0x2,0x3
04b5 c5fd | | Store 0x2,-0x3
04b6 4800 |H | Short_Literal 0x0
04b7 e5fd | | Load 0x2,-0x3
04b8 e002 | | Load 0x0,0x2
04b9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04ba 6827 |h' | Jump_Zero 0x4e2
04bb e003 | | Load 0x0,0x3
04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bd e5fe | | Load 0x2,-0x2
04be 0120 | | Execute Any,Is_Value
04bf 6803 |h | Jump_Zero 0x4c3
04c0 e003 | | Load 0x0,0x3
04c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c2 7801 |x | Jump 0x4c4
04c3 e5fe | | Load 0x2,-0x2
04c4 6023 |`# | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000}
04c5 e013 | | Load 0x0,0x13
04c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c7 4800 |H | Short_Literal 0x0
04c8 e403 | | Load 0x2,0x3
04c9 e003 | | Load 0x0,0x3
04ca 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
04cb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04cc c5fe | | Store 0x2,-0x2
04cd 005a | Z | Store_Top Discrete,At_Offset_2
04ce 00d9 | | Load_Top At_Offset_1
04cf 6812 |h | Jump_Zero 0x4e2
04d0 e002 | | Load 0x0,0x2
04d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04d2 4801 |H | Short_Literal 0x1
04d3 4801 |H | Short_Literal 0x1
04d4 e005 | | Load 0x0,0x5
04d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d6 035b | [ | Declare_Type Array,Constrained
04d7 0337 | 7 | Declare_Variable Array
04d8 00da | | Load_Top At_Offset_2
04d9 e005 | | Load 0x0,0x5
04da 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04db 4801 |H | Short_Literal 0x1
04dc 00da | | Load_Top At_Offset_2
04dd 01d6 | | Execute Vector,Field_Write
04de 6005 |` | Indirect_Literal Discrete,0x4e4,{0x00000000, 0x00002001}
04df e002 | | Load 0x0,0x2
04e0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04e1 c5fd | | Store 0x2,-0x3
04e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04e3 0000 | | .XXX[0x1]
04e4 0000 0000 | | .LITERAL {0x00000000, 0x00002001}
04e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 00da | | Load_Top At_Offset_2
04f4 6804 |h | Jump_Zero 0x4f9
04f5 00da | | Load_Top At_Offset_2
04f6 0217 | | Execute Heap_Access,All_Reference
04f7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f9 4800 |H | Short_Literal 0x0
04fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04fb 0000 0000 | | .BLANK 0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 00db | | Load_Top At_Offset_3
0504 00db | | Load_Top At_Offset_3
0505 0217 | | Execute Heap_Access,All_Reference
0506 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0507 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 6804 |h | Jump_Zero 0x511
050d 00da | | Load_Top At_Offset_2
050e 0217 | | Execute Heap_Access,All_Reference
050f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0510 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0511 4800 |H | Short_Literal 0x0
0512 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00db | | Load_Top At_Offset_3
051c 00db | | Load_Top At_Offset_3
051d 0217 | | Execute Heap_Access,All_Reference
051e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
051f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 00da | | Load_Top At_Offset_2
0524 6806 |h | Jump_Zero 0x52b
0525 00da | | Load_Top At_Offset_2
0526 0217 | | Execute Heap_Access,All_Reference
0527 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0528 e010 | | Load 0x0,0x10
0529 1812 | | Execute Package,Field_Execute,Field_Number 0x12
052a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052b 00ea | | Load_Encached Null_String_Cache
052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052d 0000 0000 | | .XXX[0x3]
052f 0000 | |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 8260 | ` | Call 0x1,0x60
0535 e5fe | | Load 0x2,-0x2
0536 e010 | | Load 0x0,0x10
0537 180f | | Execute Package,Field_Execute,Field_Number 0xf
0538 00db | | Load_Top At_Offset_3
0539 0217 | | Execute Heap_Access,All_Reference
053a 380c |8 | Execute Record,Field_Write,Field_Number 0xc
053b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
053c 0000 0000 | | .BLANK 0000[0x4]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0548 | H | .CONST 0x0548 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0003 | | .CONST 0x0003 ; Number of locals
0543 INIT_0540:
0543 e00d | | Load 0x0,0xd
0544 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0545 e002 | | Load 0x0,0x2
0546 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0547 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0548 BODY_0540:
0548 00d8 | | Load_Top At_Offset_0
0549 e00d | | Load 0x0,0xd
054a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
054b 4800 |H | Short_Literal 0x0
054c e5fe | | Load 0x2,-0x2
054d e5ff | | Load 0x2,-0x1
054e 8277 | w | Call 0x1,0x77
054f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0550 0059 | Y | Store_Top Discrete,At_Offset_1
0551 00d8 | | Load_Top At_Offset_0
0552 7006 |p | Jump_Nonzero 0x559
0553 00d9 | | Load_Top At_Offset_1
0554 0217 | | Execute Heap_Access,All_Reference
0555 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0556 e010 | | Load 0x0,0x10
0557 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0558 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0559 00d8 | | Load_Top At_Offset_0
055a 6019 |` | Indirect_Literal Discrete,0x574,{0x00000000, 0x00002009}
055b 027f | | Execute Discrete,Equal
055c 6802 |h | Jump_Zero 0x55f
055d 00ea | | Load_Encached Null_String_Cache
055e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
055f 4801 |H | Short_Literal 0x1
0560 4802 |H | Short_Literal 0x2
0561 e005 | | Load 0x0,0x5
0562 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0563 035b | [ | Declare_Type Array,Constrained
0564 0337 | 7 | Declare_Variable Array
0565 e5ff | | Load 0x2,-0x1
0566 8210 | | Call 0x1,0x10
0567 4801 |H | Short_Literal 0x1
0568 00da | | Load_Top At_Offset_2
0569 01d6 | | Execute Vector,Field_Write
056a e5fe | | Load 0x2,-0x2
056b e014 | | Load 0x0,0x14
056c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
056d 4802 |H | Short_Literal 0x2
056e 00da | | Load_Top At_Offset_2
056f 01d6 | | Execute Vector,Field_Write
0570 00d9 | | Load_Top At_Offset_1
0571 e002 | | Load 0x0,0x2
0572 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0573 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0574 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0580 | | .CONST 0x0580 ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0003 | | .CONST 0x0003 ; Number of locals
057b INIT_0578:
057b e00d | | Load 0x0,0xd
057c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
057d e002 | | Load 0x0,0x2
057e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
057f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0580 BODY_0578:
0580 00d8 | | Load_Top At_Offset_0
0581 e00d | | Load 0x0,0xd
0582 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0583 4801 |H | Short_Literal 0x1
0584 e5fd | | Load 0x2,-0x3
0585 e5ff | | Load 0x2,-0x1
0586 8277 | w | Call 0x1,0x77
0587 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0588 0059 | Y | Store_Top Discrete,At_Offset_1
0589 00d8 | | Load_Top At_Offset_0
058a 7009 |p | Jump_Nonzero 0x594
058b e5ff | | Load 0x2,-0x1
058c 8260 | ` | Call 0x1,0x60
058d e5fe | | Load 0x2,-0x2
058e e010 | | Load 0x0,0x10
058f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0590 00da | | Load_Top At_Offset_2
0591 0217 | | Execute Heap_Access,All_Reference
0592 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0593 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0594 e002 | | Load 0x0,0x2
0595 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0596 4801 |H | Short_Literal 0x1
0597 4802 |H | Short_Literal 0x2
0598 e005 | | Load 0x0,0x5
0599 1b0f | | Execute Package,Field_Read,Field_Number 0xf
059a 035b | [ | Declare_Type Array,Constrained
059b 0337 | 7 | Declare_Variable Array
059c e5ff | | Load 0x2,-0x1
059d 8210 | | Call 0x1,0x10
059e 4801 |H | Short_Literal 0x1
059f 00da | | Load_Top At_Offset_2
05a0 01d6 | | Execute Vector,Field_Write
05a1 e5fd | | Load 0x2,-0x3
05a2 e014 | | Load 0x0,0x14
05a3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05a4 4802 |H | Short_Literal 0x2
05a5 00da | | Load_Top At_Offset_2
05a6 01d6 | | Execute Vector,Field_Write
05a7 00da | | Load_Top At_Offset_2
05a8 e002 | | Load 0x0,0x2
05a9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
05aa c5fc | | Store 0x2,-0x4
05ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05ac 0000 0000 | | .BLANK 0000[0x4]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b8 | | .CONST 0x05b8 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0003 | | .CONST 0x0003 ; Number of locals
05b3 INIT_05b0:
05b3 e00d | | Load 0x0,0xd
05b4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
05b5 e002 | | Load 0x0,0x2
05b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05b8 BODY_05b0:
05b8 00d8 | | Load_Top At_Offset_0
05b9 e00d | | Load 0x0,0xd
05ba 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
05bb 4800 |H | Short_Literal 0x0
05bc e5fe | | Load 0x2,-0x2
05bd e5ff | | Load 0x2,-0x1
05be 8277 | w | Call 0x1,0x77
05bf 0033 | 3 | Store_Top Heap_Access,At_Offset_3
05c0 0059 | Y | Store_Top Discrete,At_Offset_1
05c1 00d8 | | Load_Top At_Offset_0
05c2 7004 |p | Jump_Nonzero 0x5c7
05c3 00d9 | | Load_Top At_Offset_1
05c4 0217 | | Execute Heap_Access,All_Reference
05c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c7 00d8 | | Load_Top At_Offset_0
05c8 601b |` | Indirect_Literal Discrete,0x5e4,{0x00000000, 0x00002009}
05c9 027f | | Execute Discrete,Equal
05ca 6802 |h | Jump_Zero 0x5cd
05cb 4800 |H | Short_Literal 0x0
05cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05cd 4801 |H | Short_Literal 0x1
05ce 4802 |H | Short_Literal 0x2
05cf e005 | | Load 0x0,0x5
05d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05d1 035b | [ | Declare_Type Array,Constrained
05d2 0337 | 7 | Declare_Variable Array
05d3 e5ff | | Load 0x2,-0x1
05d4 8210 | | Call 0x1,0x10
05d5 4801 |H | Short_Literal 0x1
05d6 00da | | Load_Top At_Offset_2
05d7 01d6 | | Execute Vector,Field_Write
05d8 e5fe | | Load 0x2,-0x2
05d9 e014 | | Load 0x0,0x14
05da 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05db 4802 |H | Short_Literal 0x2
05dc 00da | | Load_Top At_Offset_2
05dd 01d6 | | Execute Vector,Field_Write
05de 00d9 | | Load_Top At_Offset_1
05df e002 | | Load 0x0,0x2
05e0 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
05e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e2 0000 0000 | | .XXX[0x2]
05e4 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f0 | | .CONST 0x05f0 ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0003 | | .CONST 0x0003 ; Number of locals
05eb INIT_05e8:
05eb e002 | | Load 0x0,0x2
05ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05ed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05ee e00d | | Load 0x0,0xd
05ef 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
05f0 BODY_05e8:
05f0 00d9 | | Load_Top At_Offset_1
05f1 e00d | | Load 0x0,0xd
05f2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
05f3 4801 |H | Short_Literal 0x1
05f4 e5fd | | Load 0x2,-0x3
05f5 e5ff | | Load 0x2,-0x1
05f6 8277 | w | Call 0x1,0x77
05f7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05f8 005a | Z | Store_Top Discrete,At_Offset_2
05f9 00d9 | | Load_Top At_Offset_1
05fa 7005 |p | Jump_Nonzero 0x600
05fb e5fe | | Load 0x2,-0x2
05fc 00d9 | | Load_Top At_Offset_1
05fd 0217 | | Execute Heap_Access,All_Reference
05fe 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0600 e002 | | Load 0x0,0x2
0601 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0602 4801 |H | Short_Literal 0x1
0603 4802 |H | Short_Literal 0x2
0604 e005 | | Load 0x0,0x5
0605 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0606 035b | [ | Declare_Type Array,Constrained
0607 0337 | 7 | Declare_Variable Array
0608 e5ff | | Load 0x2,-0x1
0609 8210 | | Call 0x1,0x10
060a 4801 |H | Short_Literal 0x1
060b 00da | | Load_Top At_Offset_2
060c 01d6 | | Execute Vector,Field_Write
060d e5fd | | Load 0x2,-0x3
060e e014 | | Load 0x0,0x14
060f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0610 4802 |H | Short_Literal 0x2
0611 00da | | Load_Top At_Offset_2
0612 01d6 | | Execute Vector,Field_Write
0613 00db | | Load_Top At_Offset_3
0614 e002 | | Load 0x0,0x2
0615 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0616 c5fc | | Store 0x2,-0x4
0617 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0620 | | .CONST 0x0620 ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0003 | | .CONST 0x0003 ; Number of locals
061b INIT_0618:
061b e00d | | Load 0x0,0xd
061c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
061d e002 | | Load 0x0,0x2
061e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
061f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0620 BODY_0618:
0620 00d8 | | Load_Top At_Offset_0
0621 e00d | | Load 0x0,0xd
0622 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0623 4800 |H | Short_Literal 0x0
0624 e5fe | | Load 0x2,-0x2
0625 e5ff | | Load 0x2,-0x1
0626 8277 | w | Call 0x1,0x77
0627 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0628 0059 | Y | Store_Top Discrete,At_Offset_1
0629 00d8 | | Load_Top At_Offset_0
062a 7004 |p | Jump_Nonzero 0x62f
062b 00d9 | | Load_Top At_Offset_1
062c 0217 | | Execute Heap_Access,All_Reference
062d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
062e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
062f 00d8 | | Load_Top At_Offset_0
0630 601b |` | Indirect_Literal Discrete,0x64c,{0x00000000, 0x00002009}
0631 027f | | Execute Discrete,Equal
0632 6802 |h | Jump_Zero 0x635
0633 4800 |H | Short_Literal 0x0
0634 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0635 4801 |H | Short_Literal 0x1
0636 4802 |H | Short_Literal 0x2
0637 e005 | | Load 0x0,0x5
0638 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0639 035b | [ | Declare_Type Array,Constrained
063a 0337 | 7 | Declare_Variable Array
063b e5ff | | Load 0x2,-0x1
063c 8210 | | Call 0x1,0x10
063d 4801 |H | Short_Literal 0x1
063e 00da | | Load_Top At_Offset_2
063f 01d6 | | Execute Vector,Field_Write
0640 e5fe | | Load 0x2,-0x2
0641 e014 | | Load 0x0,0x14
0642 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0643 4802 |H | Short_Literal 0x2
0644 00da | | Load_Top At_Offset_2
0645 01d6 | | Execute Vector,Field_Write
0646 00d9 | | Load_Top At_Offset_1
0647 e002 | | Load 0x0,0x2
0648 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0649 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
064a 0000 0000 | | .XXX[0x2]
064c 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0658 | X | .CONST 0x0658 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0003 | | .CONST 0x0003 ; Number of locals
0653 INIT_0650:
0653 e002 | | Load 0x0,0x2
0654 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0655 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0656 e00d | | Load 0x0,0xd
0657 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0658 BODY_0650:
0658 00d9 | | Load_Top At_Offset_1
0659 e00d | | Load 0x0,0xd
065a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
065b 4801 |H | Short_Literal 0x1
065c e5fd | | Load 0x2,-0x3
065d e5ff | | Load 0x2,-0x1
065e 8277 | w | Call 0x1,0x77
065f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0660 005a | Z | Store_Top Discrete,At_Offset_2
0661 00d9 | | Load_Top At_Offset_1
0662 7005 |p | Jump_Nonzero 0x668
0663 e5fe | | Load 0x2,-0x2
0664 00d9 | | Load_Top At_Offset_1
0665 0217 | | Execute Heap_Access,All_Reference
0666 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0667 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0668 e002 | | Load 0x0,0x2
0669 1b0d | | Execute Package,Field_Read,Field_Number 0xd
066a 4801 |H | Short_Literal 0x1
066b 4802 |H | Short_Literal 0x2
066c e005 | | Load 0x0,0x5
066d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
066e 035b | [ | Declare_Type Array,Constrained
066f 0337 | 7 | Declare_Variable Array
0670 e5ff | | Load 0x2,-0x1
0671 8210 | | Call 0x1,0x10
0672 4801 |H | Short_Literal 0x1
0673 00da | | Load_Top At_Offset_2
0674 01d6 | | Execute Vector,Field_Write
0675 e5fd | | Load 0x2,-0x3
0676 e014 | | Load 0x0,0x14
0677 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0678 4802 |H | Short_Literal 0x2
0679 00da | | Load_Top At_Offset_2
067a 01d6 | | Execute Vector,Field_Write
067b 00db | | Load_Top At_Offset_3
067c e002 | | Load 0x0,0x2
067d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
067e c5fc | | Store 0x2,-0x4
067f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0688 | | .CONST 0x0688 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0003 | | .CONST 0x0003 ; Number of locals
0683 INIT_0680:
0683 e00d | | Load 0x0,0xd
0684 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0685 e002 | | Load 0x0,0x2
0686 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0687 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0688 BODY_0680:
0688 00d8 | | Load_Top At_Offset_0
0689 e00d | | Load 0x0,0xd
068a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
068b 4800 |H | Short_Literal 0x0
068c e5fe | | Load 0x2,-0x2
068d e5ff | | Load 0x2,-0x1
068e 8277 | w | Call 0x1,0x77
068f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0690 0059 | Y | Store_Top Discrete,At_Offset_1
0691 00d8 | | Load_Top At_Offset_0
0692 7006 |p | Jump_Nonzero 0x699
0693 00d9 | | Load_Top At_Offset_1
0694 0217 | | Execute Heap_Access,All_Reference
0695 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0696 e010 | | Load 0x0,0x10
0697 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0698 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0699 00d8 | | Load_Top At_Offset_0
069a 6019 |` | Indirect_Literal Discrete,0x6b4,{0x00000000, 0x00002009}
069b 027f | | Execute Discrete,Equal
069c 6802 |h | Jump_Zero 0x69f
069d 00ea | | Load_Encached Null_String_Cache
069e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
069f 4801 |H | Short_Literal 0x1
06a0 4802 |H | Short_Literal 0x2
06a1 e005 | | Load 0x0,0x5
06a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06a3 035b | [ | Declare_Type Array,Constrained
06a4 0337 | 7 | Declare_Variable Array
06a5 e5ff | | Load 0x2,-0x1
06a6 8210 | | Call 0x1,0x10
06a7 4801 |H | Short_Literal 0x1
06a8 00da | | Load_Top At_Offset_2
06a9 01d6 | | Execute Vector,Field_Write
06aa e5fe | | Load 0x2,-0x2
06ab e014 | | Load 0x0,0x14
06ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06ad 4802 |H | Short_Literal 0x2
06ae 00da | | Load_Top At_Offset_2
06af 01d6 | | Execute Vector,Field_Write
06b0 00d9 | | Load_Top At_Offset_1
06b1 e002 | | Load 0x0,0x2
06b2 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
06b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06b4 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06c0 | | .CONST 0x06c0 ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0003 | | .CONST 0x0003 ; Number of locals
06bb INIT_06b8:
06bb e002 | | Load 0x0,0x2
06bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
06bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06be e00d | | Load 0x0,0xd
06bf 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
06c0 BODY_06b8:
06c0 00d9 | | Load_Top At_Offset_1
06c1 e00d | | Load 0x0,0xd
06c2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
06c3 4801 |H | Short_Literal 0x1
06c4 e5fd | | Load 0x2,-0x3
06c5 e5ff | | Load 0x2,-0x1
06c6 8277 | w | Call 0x1,0x77
06c7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
06c8 005a | Z | Store_Top Discrete,At_Offset_2
06c9 00d9 | | Load_Top At_Offset_1
06ca 701d |p | Jump_Nonzero 0x6e8
06cb e5ff | | Load 0x2,-0x1
06cc 8260 | ` | Call 0x1,0x60
06cd e5fe | | Load 0x2,-0x2
06ce e010 | | Load 0x0,0x10
06cf 180f | | Execute Package,Field_Execute,Field_Number 0xf
06d0 00d9 | | Load_Top At_Offset_1
06d1 0217 | | Execute Heap_Access,All_Reference
06d2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
06d3 e5fe | | Load 0x2,-0x2
06d4 01db | | Execute Vector,Length
06d5 0e00 | | Execute_Immediate Not_Equal,0x0
06d6 00d9 | | Load_Top At_Offset_1
06d7 0217 | | Execute Heap_Access,All_Reference
06d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06d9 0092 157c | || Action Push_String_Extended,0x157c ; "Target name for "
06db e5ff | | Load 0x2,-0x1
06dc 821d | | Call 0x1,0x1d
06dd 01cc | | Execute Vector,Catenate
06de 0092 157d | }| Action Push_String_Extended,0x157d ; " has been set to "
06e0 01cc | | Execute Vector,Catenate
06e1 e5fe | | Load 0x2,-0x2
06e2 01cc | | Execute Vector,Catenate
06e3 0092 157e | ~| Action Push_String_Extended,0x157e ; "."
06e5 01cc | | Execute Vector,Catenate
06e6 8011 | | Call 0x0,0x11
06e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
06e8 e002 | | Load 0x0,0x2
06e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ea 4801 |H | Short_Literal 0x1
06eb 4802 |H | Short_Literal 0x2
06ec e005 | | Load 0x0,0x5
06ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06ee 035b | [ | Declare_Type Array,Constrained
06ef 0337 | 7 | Declare_Variable Array
06f0 e5ff | | Load 0x2,-0x1
06f1 8210 | | Call 0x1,0x10
06f2 4801 |H | Short_Literal 0x1
06f3 00da | | Load_Top At_Offset_2
06f4 01d6 | | Execute Vector,Field_Write
06f5 e5fd | | Load 0x2,-0x3
06f6 e014 | | Load 0x0,0x14
06f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06f8 4802 |H | Short_Literal 0x2
06f9 00da | | Load_Top At_Offset_2
06fa 01d6 | | Execute Vector,Field_Write
06fb 00db | | Load_Top At_Offset_3
06fc e002 | | Load 0x0,0x2
06fd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
06fe c5fc | | Store 0x2,-0x4
06ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0708 | | .CONST 0x0708 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0003 | | .CONST 0x0003 ; Number of locals
0703 INIT_0700:
0703 e00d | | Load 0x0,0xd
0704 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0705 e002 | | Load 0x0,0x2
0706 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0707 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0708 BODY_0700:
0708 00d8 | | Load_Top At_Offset_0
0709 e00d | | Load 0x0,0xd
070a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
070b 4800 |H | Short_Literal 0x0
070c e5fe | | Load 0x2,-0x2
070d e5ff | | Load 0x2,-0x1
070e 8277 | w | Call 0x1,0x77
070f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0710 0059 | Y | Store_Top Discrete,At_Offset_1
0711 00d8 | | Load_Top At_Offset_0
0712 7004 |p | Jump_Nonzero 0x717
0713 00d9 | | Load_Top At_Offset_1
0714 0217 | | Execute Heap_Access,All_Reference
0715 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0716 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0717 00d8 | | Load_Top At_Offset_0
0718 601b |` | Indirect_Literal Discrete,0x734,{0x00000000, 0x00002009}
0719 027f | | Execute Discrete,Equal
071a 6802 |h | Jump_Zero 0x71d
071b 4800 |H | Short_Literal 0x0
071c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
071d 4801 |H | Short_Literal 0x1
071e 4802 |H | Short_Literal 0x2
071f e005 | | Load 0x0,0x5
0720 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0721 035b | [ | Declare_Type Array,Constrained
0722 0337 | 7 | Declare_Variable Array
0723 e5ff | | Load 0x2,-0x1
0724 8210 | | Call 0x1,0x10
0725 4801 |H | Short_Literal 0x1
0726 00da | | Load_Top At_Offset_2
0727 01d6 | | Execute Vector,Field_Write
0728 e5fe | | Load 0x2,-0x2
0729 e014 | | Load 0x0,0x14
072a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
072b 4802 |H | Short_Literal 0x2
072c 00da | | Load_Top At_Offset_2
072d 01d6 | | Execute Vector,Field_Write
072e 00d9 | | Load_Top At_Offset_1
072f e002 | | Load 0x0,0x2
0730 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0731 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0732 0000 0000 | | .XXX[0x2]
0734 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0740 | @ | .CONST 0x0740 ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0003 | | .CONST 0x0003 ; Number of locals
073b INIT_0738:
073b e002 | | Load 0x0,0x2
073c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
073d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
073e e00d | | Load 0x0,0xd
073f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0740 BODY_0738:
0740 00d9 | | Load_Top At_Offset_1
0741 e00d | | Load 0x0,0xd
0742 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0743 4801 |H | Short_Literal 0x1
0744 e5fd | | Load 0x2,-0x3
0745 e5ff | | Load 0x2,-0x1
0746 8277 | w | Call 0x1,0x77
0747 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0748 005a | Z | Store_Top Discrete,At_Offset_2
0749 00d9 | | Load_Top At_Offset_1
074a 7005 |p | Jump_Nonzero 0x750
074b e5fe | | Load 0x2,-0x2
074c 00d9 | | Load_Top At_Offset_1
074d 0217 | | Execute Heap_Access,All_Reference
074e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
074f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0750 e002 | | Load 0x0,0x2
0751 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0752 4801 |H | Short_Literal 0x1
0753 4802 |H | Short_Literal 0x2
0754 e005 | | Load 0x0,0x5
0755 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0756 035b | [ | Declare_Type Array,Constrained
0757 0337 | 7 | Declare_Variable Array
0758 e5ff | | Load 0x2,-0x1
0759 8210 | | Call 0x1,0x10
075a 4801 |H | Short_Literal 0x1
075b 00da | | Load_Top At_Offset_2
075c 01d6 | | Execute Vector,Field_Write
075d e5fd | | Load 0x2,-0x3
075e e014 | | Load 0x0,0x14
075f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0760 4802 |H | Short_Literal 0x2
0761 00da | | Load_Top At_Offset_2
0762 01d6 | | Execute Vector,Field_Write
0763 00db | | Load_Top At_Offset_3
0764 e002 | | Load 0x0,0x2
0765 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0766 c5fc | | Store 0x2,-0x4
0767 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 0770 | p | .CONST 0x0770 ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0003 | | .CONST 0x0003 ; Number of locals
076b INIT_0768:
076b e00d | | Load 0x0,0xd
076c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
076d e002 | | Load 0x0,0x2
076e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
076f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0770 BODY_0768:
0770 00d8 | | Load_Top At_Offset_0
0771 e00d | | Load 0x0,0xd
0772 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0773 4800 |H | Short_Literal 0x0
0774 e5fe | | Load 0x2,-0x2
0775 e5ff | | Load 0x2,-0x1
0776 8277 | w | Call 0x1,0x77
0777 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0778 0059 | Y | Store_Top Discrete,At_Offset_1
0779 00d8 | | Load_Top At_Offset_0
077a 7009 |p | Jump_Nonzero 0x784
077b 00d9 | | Load_Top At_Offset_1
077c 0217 | | Execute Heap_Access,All_Reference
077d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
077e 00d8 | | Load_Top At_Offset_0
077f 0120 | | Execute Any,Is_Value
0780 7002 |p | Jump_Nonzero 0x783
0781 00d8 | | Load_Top At_Offset_0
0782 011e | | Execute Any,Convert
0783 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0784 00d8 | | Load_Top At_Offset_0
0785 601a |` | Indirect_Literal Discrete,0x7a0,{0x00000000, 0x00002009}
0786 027f | | Execute Discrete,Equal
0787 6803 |h | Jump_Zero 0x78b
0788 e004 | | Load 0x0,0x4
0789 180f | | Execute Package,Field_Execute,Field_Number 0xf
078a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
078b 4801 |H | Short_Literal 0x1
078c 4802 |H | Short_Literal 0x2
078d e005 | | Load 0x0,0x5
078e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
078f 035b | [ | Declare_Type Array,Constrained
0790 0337 | 7 | Declare_Variable Array
0791 e5ff | | Load 0x2,-0x1
0792 8210 | | Call 0x1,0x10
0793 4801 |H | Short_Literal 0x1
0794 00da | | Load_Top At_Offset_2
0795 01d6 | | Execute Vector,Field_Write
0796 e5fe | | Load 0x2,-0x2
0797 e014 | | Load 0x0,0x14
0798 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0799 4802 |H | Short_Literal 0x2
079a 00da | | Load_Top At_Offset_2
079b 01d6 | | Execute Vector,Field_Write
079c 00d9 | | Load_Top At_Offset_1
079d e002 | | Load 0x0,0x2
079e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
079f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07a0 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
07a4 0000 0000 | | .BLANK 0000[0x4]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b0 | | .CONST 0x07b0 ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0003 | | .CONST 0x0003 ; Number of locals
07ab INIT_07a8:
07ab e002 | | Load 0x0,0x2
07ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10
07ad 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07ae e00d | | Load 0x0,0xd
07af 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
07b0 BODY_07a8:
07b0 00d9 | | Load_Top At_Offset_1
07b1 e00d | | Load 0x0,0xd
07b2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
07b3 4801 |H | Short_Literal 0x1
07b4 e5fc | | Load 0x2,-0x4
07b5 e5ff | | Load 0x2,-0x1
07b6 8277 | w | Call 0x1,0x77
07b7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
07b8 005a | Z | Store_Top Discrete,At_Offset_2
07b9 00d9 | | Load_Top At_Offset_1
07ba 7005 |p | Jump_Nonzero 0x7c0
07bb e5fe | | Load 0x2,-0x2
07bc 00d9 | | Load_Top At_Offset_1
07bd 0217 | | Execute Heap_Access,All_Reference
07be 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07bf 7817 |x | Jump 0x7d7
07c0 e002 | | Load 0x0,0x2
07c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c2 4801 |H | Short_Literal 0x1
07c3 4802 |H | Short_Literal 0x2
07c4 e005 | | Load 0x0,0x5
07c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
07c6 035b | [ | Declare_Type Array,Constrained
07c7 0337 | 7 | Declare_Variable Array
07c8 e5ff | | Load 0x2,-0x1
07c9 8210 | | Call 0x1,0x10
07ca 4801 |H | Short_Literal 0x1
07cb 00da | | Load_Top At_Offset_2
07cc 01d6 | | Execute Vector,Field_Write
07cd e5fc | | Load 0x2,-0x4
07ce e014 | | Load 0x0,0x14
07cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
07d0 4802 |H | Short_Literal 0x2
07d1 00da | | Load_Top At_Offset_2
07d2 01d6 | | Execute Vector,Field_Write
07d3 00db | | Load_Top At_Offset_3
07d4 e002 | | Load 0x0,0x2
07d5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
07d6 c5fb | | Store 0x2,-0x5
07d7 e5fd | | Load 0x2,-0x3
07d8 6806 |h | Jump_Zero 0x7df
07d9 e5ff | | Load 0x2,-0x1
07da 0217 | | Execute Heap_Access,All_Reference
07db 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
07dc 00d9 | | Load_Top At_Offset_1
07dd 0217 | | Execute Heap_Access,All_Reference
07de 380b |8 | Execute Record,Field_Write,Field_Number 0xb
07df 4505 |E | Exit_Suprogram New_Top_Offset 0x5
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e8 | | .CONST 0x07e8 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0003 | | .CONST 0x0003 ; Number of locals
07e3 INIT_07e0:
07e3 e00d | | Load 0x0,0xd
07e4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
07e5 e002 | | Load 0x0,0x2
07e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
07e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07e8 BODY_07e0:
07e8 00d8 | | Load_Top At_Offset_0
07e9 e00d | | Load 0x0,0xd
07ea 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
07eb 4800 |H | Short_Literal 0x0
07ec e5fe | | Load 0x2,-0x2
07ed e5ff | | Load 0x2,-0x1
07ee 8277 | w | Call 0x1,0x77
07ef 0033 | 3 | Store_Top Heap_Access,At_Offset_3
07f0 0059 | Y | Store_Top Discrete,At_Offset_1
07f1 00d8 | | Load_Top At_Offset_0
07f2 7009 |p | Jump_Nonzero 0x7fc
07f3 00d9 | | Load_Top At_Offset_1
07f4 0217 | | Execute Heap_Access,All_Reference
07f5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
07f6 00d8 | | Load_Top At_Offset_0
07f7 0120 | | Execute Any,Is_Value
07f8 7002 |p | Jump_Nonzero 0x7fb
07f9 00d8 | | Load_Top At_Offset_0
07fa 011e | | Execute Any,Convert
07fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07fc 00d8 | | Load_Top At_Offset_0
07fd 601a |` | Indirect_Literal Discrete,0x818,{0x00000000, 0x00002009}
07fe 027f | | Execute Discrete,Equal
07ff 6803 |h | Jump_Zero 0x803
0800 e004 | | Load 0x0,0x4
0801 180f | | Execute Package,Field_Execute,Field_Number 0xf
0802 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0803 4801 |H | Short_Literal 0x1
0804 4802 |H | Short_Literal 0x2
0805 e005 | | Load 0x0,0x5
0806 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0807 035b | [ | Declare_Type Array,Constrained
0808 0337 | 7 | Declare_Variable Array
0809 e5ff | | Load 0x2,-0x1
080a 8210 | | Call 0x1,0x10
080b 4801 |H | Short_Literal 0x1
080c 00da | | Load_Top At_Offset_2
080d 01d6 | | Execute Vector,Field_Write
080e e5fe | | Load 0x2,-0x2
080f e014 | | Load 0x0,0x14
0810 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0811 4802 |H | Short_Literal 0x2
0812 00da | | Load_Top At_Offset_2
0813 01d6 | | Execute Vector,Field_Write
0814 00d9 | | Load_Top At_Offset_1
0815 e002 | | Load 0x0,0x2
0816 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0817 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0818 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
081c 0000 0000 | | .BLANK 0000[0x4]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0828 | ( | .CONST 0x0828 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0003 | | .CONST 0x0003 ; Number of locals
0823 INIT_0820:
0823 e002 | | Load 0x0,0x2
0824 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0825 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0826 e00d | | Load 0x0,0xd
0827 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0828 BODY_0820:
0828 00d9 | | Load_Top At_Offset_1
0829 e00d | | Load 0x0,0xd
082a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
082b 4801 |H | Short_Literal 0x1
082c e5fd | | Load 0x2,-0x3
082d e5ff | | Load 0x2,-0x1
082e 8277 | w | Call 0x1,0x77
082f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0830 005a | Z | Store_Top Discrete,At_Offset_2
0831 00d9 | | Load_Top At_Offset_1
0832 7005 |p | Jump_Nonzero 0x838
0833 e5fe | | Load 0x2,-0x2
0834 00d9 | | Load_Top At_Offset_1
0835 0217 | | Execute Heap_Access,All_Reference
0836 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0837 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0838 e002 | | Load 0x0,0x2
0839 1b0d | | Execute Package,Field_Read,Field_Number 0xd
083a 4801 |H | Short_Literal 0x1
083b 4802 |H | Short_Literal 0x2
083c e005 | | Load 0x0,0x5
083d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
083e 035b | [ | Declare_Type Array,Constrained
083f 0337 | 7 | Declare_Variable Array
0840 e5ff | | Load 0x2,-0x1
0841 8210 | | Call 0x1,0x10
0842 4801 |H | Short_Literal 0x1
0843 00da | | Load_Top At_Offset_2
0844 01d6 | | Execute Vector,Field_Write
0845 e5fd | | Load 0x2,-0x3
0846 e014 | | Load 0x0,0x14
0847 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0848 4802 |H | Short_Literal 0x2
0849 00da | | Load_Top At_Offset_2
084a 01d6 | | Execute Vector,Field_Write
084b 00db | | Load_Top At_Offset_3
084c e002 | | Load 0x0,0x2
084d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
084e c5fc | | Store 0x2,-0x4
084f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853 | S | .CONST 0x0853 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0001 | | .CONST 0x0001 ; Number of locals
0853 BODY_0850:
0853 INIT_0850:
0853 00da | | Load_Top At_Offset_2
0854 6809 |h | Jump_Zero 0x85e
0855 00da | | Load_Top At_Offset_2
0856 0217 | | Execute Heap_Access,All_Reference
0857 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0858 00d8 | | Load_Top At_Offset_0
0859 0120 | | Execute Any,Is_Value
085a 7002 |p | Jump_Nonzero 0x85d
085b 00d8 | | Load_Top At_Offset_0
085c 011e | | Execute Any,Convert
085d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
085e e004 | | Load 0x0,0x4
085f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0860 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0861 0000 0000 | | .BLANK 0000[0x7]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b 00db | | Load_Top At_Offset_3
086c 00db | | Load_Top At_Offset_3
086d 0217 | | Execute Heap_Access,All_Reference
086e 380e |8 | Execute Record,Field_Write,Field_Number 0xe
086f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0873 | s | .CONST 0x0873 ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0001 | | .CONST 0x0001 ; Number of locals
0873 BODY_0870:
0873 INIT_0870:
0873 00da | | Load_Top At_Offset_2
0874 6804 |h | Jump_Zero 0x879
0875 00da | | Load_Top At_Offset_2
0876 0217 | | Execute Heap_Access,All_Reference
0877 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0878 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0879 4800 |H | Short_Literal 0x0
087a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
087b 0000 0000 | | .BLANK 0000[0x5]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883 | | .CONST 0x0883 ; Address of begin
0881 0004 | | .CONST 0x0004 ; Address of exception handler
0882 0001 | | .CONST 0x0001 ; Number of locals
0883 BODY_0880:
0883 INIT_0880:
0883 00da | | Load_Top At_Offset_2
0884 6814 |h | Jump_Zero 0x899
0885 00da | | Load_Top At_Offset_2
0886 0217 | | Execute Heap_Access,All_Reference
0887 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0888 700e |p | Jump_Nonzero 0x897
0889 00da | | Load_Top At_Offset_2
088a 0217 | | Execute Heap_Access,All_Reference
088b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
088c 6808 |h | Jump_Zero 0x895
088d 00da | | Load_Top At_Offset_2
088e 0217 | | Execute Heap_Access,All_Reference
088f 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
0890 e001 | | Load 0x0,0x1
0891 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0892 0216 | | Execute Heap_Access,Convert
0893 021c | | Execute Heap_Access,Not_Null
0894 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0895 4800 |H | Short_Literal 0x0
0896 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0897 4801 |H | Short_Literal 0x1
0898 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0899 4800 |H | Short_Literal 0x0
089a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
089b 0000 0000 | | .BLANK 0000[0x5]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 00da | | Load_Top At_Offset_2
08a4 7002 |p | Jump_Nonzero 0x8a7
08a5 00da | | Load_Top At_Offset_2
08a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a7 00da | | Load_Top At_Offset_2
08a8 0217 | | Execute Heap_Access,All_Reference
08a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08aa 6807 |h | Jump_Zero 0x8b2
08ab 00da | | Load_Top At_Offset_2
08ac 0217 | | Execute Heap_Access,All_Reference
08ad 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
08ae e001 | | Load 0x0,0x1
08af 1b10 | | Execute Package,Field_Read,Field_Number 0x10
08b0 0216 | | Execute Heap_Access,Convert
08b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08b2 00da | | Load_Top At_Offset_2
08b3 0217 | | Execute Heap_Access,All_Reference
08b4 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
08b5 e001 | | Load 0x0,0x1
08b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
08b7 0216 | | Execute Heap_Access,Convert
08b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08b9 0000 0000 | | .BLANK 0000[0x7]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c7 | | .CONST 0x08c7 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0002 | | .CONST 0x0002 ; Number of locals
08c3 INIT_08c0:
08c3 00da | | Load_Top At_Offset_2
08c4 e001 | | Load 0x0,0x1
08c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08c6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
08c7 BODY_08c0:
08c7 00d8 | | Load_Top At_Offset_0
08c8 e5fe | | Load 0x2,-0x2
08c9 e001 | | Load 0x0,0x1
08ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08cb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
08cc 00db | | Load_Top At_Offset_3
08cd e00d | | Load 0x0,0xd
08ce 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
08cf 0216 | | Execute Heap_Access,Convert
08d0 e5fe | | Load 0x2,-0x2
08d1 0217 | | Execute Heap_Access,All_Reference
08d2 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
08d3 4801 |H | Short_Literal 0x1
08d4 e5fe | | Load 0x2,-0x2
08d5 0217 | | Execute Heap_Access,All_Reference
08d6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
08d7 00d8 | | Load_Top At_Offset_0
08d8 e5fe | | Load 0x2,-0x2
08d9 e001 | | Load 0x0,0x1
08da 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08db 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08dd 0000 0000 | | .XXX[0x3]
08df 0000 | |
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e7 | | .CONST 0x08e7 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0002 | | .CONST 0x0002 ; Number of locals
08e3 INIT_08e0:
08e3 00da | | Load_Top At_Offset_2
08e4 e001 | | Load 0x0,0x1
08e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08e6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
08e7 BODY_08e0:
08e7 00d8 | | Load_Top At_Offset_0
08e8 e5fe | | Load 0x2,-0x2
08e9 e001 | | Load 0x0,0x1
08ea 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08eb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
08ec 00d8 | | Load_Top At_Offset_0
08ed e5fe | | Load 0x2,-0x2
08ee e001 | | Load 0x0,0x1
08ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08f0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08f2 0000 0000 | | .BLANK 0000[0x6]
08f8 ; --------------------------------------------------------------------------------------
08f8 ; SUBPROGRAM
08f8 ; --------------------------------------------------------------------------------------
08f8 08fb | | .CONST 0x08fb ; Address of begin
08f9 0004 | | .CONST 0x0004 ; Address of exception handler
08fa 0001 | | .CONST 0x0001 ; Number of locals
08fb BODY_08f8:
08fb INIT_08f8:
08fb 00da | | Load_Top At_Offset_2
08fc 680b |h | Jump_Zero 0x908
08fd 00da | | Load_Top At_Offset_2
08fe 0217 | | Execute Heap_Access,All_Reference
08ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0900 6807 |h | Jump_Zero 0x908
0901 00da | | Load_Top At_Offset_2
0902 0217 | | Execute Heap_Access,All_Reference
0903 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0904 e001 | | Load 0x0,0x1
0905 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0906 0216 | | Execute Heap_Access,Convert
0907 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0908 00da | | Load_Top At_Offset_2
0909 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
090a 0000 0000 | | .BLANK 0000[0x6]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 091e | | .CONST 0x091e ; Address of begin
0911 0004 | | .CONST 0x0004 ; Address of exception handler
0912 0006 | | .CONST 0x0006 ; Number of locals
0913 INIT_0910:
0913 e015 | | Load 0x0,0x15
0914 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0915 e00d | | Load 0x0,0xd
0916 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0917 e00d | | Load 0x0,0xd
0918 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0919 e00d | | Load 0x0,0xd
091a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
091b e002 | | Load 0x0,0x2
091c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
091d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
091e BODY_0910:
091e 00d8 | | Load_Top At_Offset_0
091f e00d | | Load 0x0,0xd
0920 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0921 4800 |H | Short_Literal 0x0
0922 e5fe | | Load 0x2,-0x2
0923 e5ff | | Load 0x2,-0x1
0924 8277 | w | Call 0x1,0x77
0925 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0926 0059 | Y | Store_Top Discrete,At_Offset_1
0927 00d8 | | Load_Top At_Offset_0
0928 7034 |p4 | Jump_Nonzero 0x95d
0929 00d9 | | Load_Top At_Offset_1
092a 0217 | | Execute Heap_Access,All_Reference
092b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
092c a403 | | Store_Unchecked 0x2,0x3
092d 00db | | Load_Top At_Offset_3
092e 7002 |p | Jump_Nonzero 0x931
092f e402 | | Load 0x2,0x2
0930 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0931 00db | | Load_Top At_Offset_3
0932 0217 | | Execute Heap_Access,All_Reference
0933 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0934 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0935 00cf | | Action Mark_Auxiliary
0936 e403 | | Load 0x2,0x3
0937 0217 | | Execute Heap_Access,All_Reference
0938 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0939 4801 |H | Short_Literal 0x1
093a 0263 | c | Execute Discrete,Above_Bound
093b 701f |p | Jump_Nonzero 0x95b
093c e404 | | Load 0x2,0x4
093d 0217 | | Execute Heap_Access,All_Reference
093e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
093f e00f | | Load 0x0,0xf
0940 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0941 e5ff | | Load 0x2,-0x1
0942 e006 | | Load 0x0,0x6
0943 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0944 e404 | | Load 0x2,0x4
0945 0217 | | Execute Heap_Access,All_Reference
0946 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0947 e005 | | Load 0x0,0x5
0948 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0949 e404 | | Load 0x2,0x4
094a 0217 | | Execute Heap_Access,All_Reference
094b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
094c e402 | | Load 0x2,0x2
094d e015 | | Load 0x0,0x15
094e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
094f e402 | | Load 0x2,0x2
0950 e015 | | Load 0x0,0x15
0951 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0952 7002 |p | Jump_Nonzero 0x955
0953 00d2 | | Pop_Control Pop_Count_2
0954 7806 |x | Jump 0x95b
0955 e404 | | Load 0x2,0x4
0956 0217 | | Execute Heap_Access,All_Reference
0957 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0958 a404 | | Store_Unchecked 0x2,0x4
0959 00c8 | | Action Pop_Auxiliary_Range
095a 3fe1 |? | Loop_Increasing 0x93c
095b 00ce | | Action Pop_Auxiliary
095c 781d |x | Jump 0x97a
095d 00d8 | | Load_Top At_Offset_0
095e 6021 |`! | Indirect_Literal Discrete,0x980,{0x00000000, 0x00002009}
095f 027f | | Execute Discrete,Equal
0960 6802 |h | Jump_Zero 0x963
0961 e402 | | Load 0x2,0x2
0962 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0963 4801 |H | Short_Literal 0x1
0964 4802 |H | Short_Literal 0x2
0965 e005 | | Load 0x0,0x5
0966 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0967 035b | [ | Declare_Type Array,Constrained
0968 0337 | 7 | Declare_Variable Array
0969 e5ff | | Load 0x2,-0x1
096a 8210 | | Call 0x1,0x10
096b 4801 |H | Short_Literal 0x1
096c 00da | | Load_Top At_Offset_2
096d 01d6 | | Execute Vector,Field_Write
096e e5fe | | Load 0x2,-0x2
096f e014 | | Load 0x0,0x14
0970 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0971 4802 |H | Short_Literal 0x2
0972 00da | | Load_Top At_Offset_2
0973 01d6 | | Execute Vector,Field_Write
0974 6007 |` | Indirect_Literal Discrete,0x97c,{0x00000000, 0x0000200c}
0975 e002 | | Load 0x0,0x2
0976 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0977 e402 | | Load 0x2,0x2
0978 e015 | | Load 0x0,0x15
0979 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
097a e402 | | Load 0x2,0x2
097b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
097c 0000 0000 | | .LITERAL {0x00000000, 0x0000200c}
0980 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
0984 0000 0000 | | .BLANK 0000[0x4]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 099e | | .CONST 0x099e ; Address of begin
0989 0004 | | .CONST 0x0004 ; Address of exception handler
098a 0009 | | .CONST 0x0009 ; Number of locals
098b INIT_0988:
098b e015 | | Load 0x0,0x15
098c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
098d e00d | | Load 0x0,0xd
098e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
098f e00d | | Load 0x0,0xd
0990 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0991 e00d | | Load 0x0,0xd
0992 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0993 e00d | | Load 0x0,0xd
0994 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0995 e5ff | | Load 0x2,-0x1
0996 e001 | | Load 0x0,0x1
0997 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0998 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0999 e002 | | Load 0x0,0x2
099a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
099b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
099c 029f 10e3 | | Declare_Subprogram INIT_10e0,For_Call
099e BODY_0988:
099e 00d9 | | Load_Top At_Offset_1
099f e00d | | Load 0x0,0xd
09a0 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
09a1 4801 |H | Short_Literal 0x1
09a2 e5fd | | Load 0x2,-0x3
09a3 e5ff | | Load 0x2,-0x1
09a4 8277 | w | Call 0x1,0x77
09a5 c405 | | Store 0x2,0x5
09a6 005a | Z | Store_Top Discrete,At_Offset_2
09a7 00d9 | | Load_Top At_Offset_1
09a8 7039 |p9 | Jump_Nonzero 0x9e2
09a9 e405 | | Load 0x2,0x5
09aa 0217 | | Execute Heap_Access,All_Reference
09ab 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
09ac a403 | | Store_Unchecked 0x2,0x3
09ad e403 | | Load 0x2,0x3
09ae 6824 |h$ | Jump_Zero 0x9d3
09af 0092 157f | | Action Push_String_Extended,0x157f ; "Releasing old special build instructions."
09b1 8011 | | Call 0x0,0x11
09b2 e403 | | Load 0x2,0x3
09b3 0217 | | Execute Heap_Access,All_Reference
09b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09b5 a404 | | Store_Unchecked 0x2,0x4
09b6 00cf | | Action Mark_Auxiliary
09b7 e403 | | Load 0x2,0x3
09b8 0217 | | Execute Heap_Access,All_Reference
09b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
09ba 4801 |H | Short_Literal 0x1
09bb 0263 | c | Execute Discrete,Above_Bound
09bc 700c |p | Jump_Nonzero 0x9c9
09bd e404 | | Load 0x2,0x4
09be 0217 | | Execute Heap_Access,All_Reference
09bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
09c0 a406 | | Store_Unchecked 0x2,0x6
09c1 e404 | | Load 0x2,0x4
09c2 e00d | | Load 0x0,0xd
09c3 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
09c4 c404 | | Store 0x2,0x4
09c5 e406 | | Load 0x2,0x6
09c6 a404 | | Store_Unchecked 0x2,0x4
09c7 00c8 | | Action Pop_Auxiliary_Range
09c8 3ff4 |? | Loop_Increasing 0x9bd
09c9 00ce | | Action Pop_Auxiliary
09ca e403 | | Load 0x2,0x3
09cb e00d | | Load 0x0,0xd
09cc 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
09cd c403 | | Store 0x2,0x3
09ce e00d | | Load 0x0,0xd
09cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
09d0 e405 | | Load 0x2,0x5
09d1 0217 | | Execute Heap_Access,All_Reference
09d2 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
09d3 e5fe | | Load 0x2,-0x2
09d4 e015 | | Load 0x0,0x15
09d5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
09d6 6801 |h | Jump_Zero 0x9d8
09d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09d8 00da | | Load_Top At_Offset_2
09d9 e00d | | Load 0x0,0xd
09da 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
09db a403 | | Store_Unchecked 0x2,0x3
09dc 8409 | | Call 0x2,0x9
09dd e403 | | Load 0x2,0x3
09de e405 | | Load 0x2,0x5
09df 0217 | | Execute Heap_Access,All_Reference
09e0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
09e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09e2 e002 | | Load 0x0,0x2
09e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09e4 4801 |H | Short_Literal 0x1
09e5 4802 |H | Short_Literal 0x2
09e6 e005 | | Load 0x0,0x5
09e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
09e8 035b | [ | Declare_Type Array,Constrained
09e9 0337 | 7 | Declare_Variable Array
09ea e5ff | | Load 0x2,-0x1
09eb 8210 | | Call 0x1,0x10
09ec 4801 |H | Short_Literal 0x1
09ed 00da | | Load_Top At_Offset_2
09ee 01d6 | | Execute Vector,Field_Write
09ef e5fd | | Load 0x2,-0x3
09f0 e014 | | Load 0x0,0x14
09f1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
09f2 4802 |H | Short_Literal 0x2
09f3 00da | | Load_Top At_Offset_2
09f4 01d6 | | Execute Vector,Field_Write
09f5 00db | | Load_Top At_Offset_3
09f6 e002 | | Load 0x0,0x2
09f7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
09f8 c5fc | | Store 0x2,-0x4
09f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
09fa 0000 0000 | | .BLANK 0000[0x6]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a08 | | .CONST 0x0a08 ; Address of begin
0a01 0004 | | .CONST 0x0004 ; Address of exception handler
0a02 0003 | | .CONST 0x0003 ; Number of locals
0a03 INIT_0a00:
0a03 e00d | | Load 0x0,0xd
0a04 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0a05 e002 | | Load 0x0,0x2
0a06 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0a07 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a08 BODY_0a00:
0a08 00d8 | | Load_Top At_Offset_0
0a09 e00d | | Load 0x0,0xd
0a0a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0a0b 4800 |H | Short_Literal 0x0
0a0c e5fe | | Load 0x2,-0x2
0a0d e5ff | | Load 0x2,-0x1
0a0e 8277 | w | Call 0x1,0x77
0a0f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0a10 0059 | Y | Store_Top Discrete,At_Offset_1
0a11 00d8 | | Load_Top At_Offset_0
0a12 7006 |p | Jump_Nonzero 0xa19
0a13 00d9 | | Load_Top At_Offset_1
0a14 0217 | | Execute Heap_Access,All_Reference
0a15 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a16 021d | | Execute Heap_Access,Is_Null
0a17 0f00 | | Execute_Immediate Equal,0x0
0a18 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a19 00d8 | | Load_Top At_Offset_0
0a1a 6019 |` | Indirect_Literal Discrete,0xa34,{0x00000000, 0x00002009}
0a1b 027f | | Execute Discrete,Equal
0a1c 6802 |h | Jump_Zero 0xa1f
0a1d 4800 |H | Short_Literal 0x0
0a1e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a1f 4801 |H | Short_Literal 0x1
0a20 4802 |H | Short_Literal 0x2
0a21 e005 | | Load 0x0,0x5
0a22 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a23 035b | [ | Declare_Type Array,Constrained
0a24 0337 | 7 | Declare_Variable Array
0a25 e5ff | | Load 0x2,-0x1
0a26 8210 | | Call 0x1,0x10
0a27 4801 |H | Short_Literal 0x1
0a28 00da | | Load_Top At_Offset_2
0a29 01d6 | | Execute Vector,Field_Write
0a2a e5fe | | Load 0x2,-0x2
0a2b e014 | | Load 0x0,0x14
0a2c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a2d 4802 |H | Short_Literal 0x2
0a2e 00da | | Load_Top At_Offset_2
0a2f 01d6 | | Execute Vector,Field_Write
0a30 00d9 | | Load_Top At_Offset_1
0a31 e002 | | Load 0x0,0x2
0a32 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0a33 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a34 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a40 | @ | .CONST 0x0a40 ; Address of begin
0a39 0004 | | .CONST 0x0004 ; Address of exception handler
0a3a 0003 | | .CONST 0x0003 ; Number of locals
0a3b INIT_0a38:
0a3b e00d | | Load 0x0,0xd
0a3c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0a3d e002 | | Load 0x0,0x2
0a3e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0a3f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a40 BODY_0a38:
0a40 00d8 | | Load_Top At_Offset_0
0a41 e00d | | Load 0x0,0xd
0a42 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0a43 4800 |H | Short_Literal 0x0
0a44 e5fe | | Load 0x2,-0x2
0a45 e5ff | | Load 0x2,-0x1
0a46 8277 | w | Call 0x1,0x77
0a47 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0a48 0059 | Y | Store_Top Discrete,At_Offset_1
0a49 00d8 | | Load_Top At_Offset_0
0a4a 7013 |p | Jump_Nonzero 0xa5e
0a4b 00d9 | | Load_Top At_Offset_1
0a4c 0217 | | Execute Heap_Access,All_Reference
0a4d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a4e 6806 |h | Jump_Zero 0xa55
0a4f 00d9 | | Load_Top At_Offset_1
0a50 0217 | | Execute Heap_Access,All_Reference
0a51 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a52 e016 | | Load 0x0,0x16
0a53 180f | | Execute Package,Field_Execute,Field_Number 0xf
0a54 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a55 e5fe | | Load 0x2,-0x2
0a56 e5ff | | Load 0x2,-0x1
0a57 e001 | | Load 0x0,0x1
0a58 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0a59 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0a5a e001 | | Load 0x0,0x1
0a5b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0a5c 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0a5d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a5e 4801 |H | Short_Literal 0x1
0a5f 4802 |H | Short_Literal 0x2
0a60 e005 | | Load 0x0,0x5
0a61 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a62 035b | [ | Declare_Type Array,Constrained
0a63 0337 | 7 | Declare_Variable Array
0a64 e5ff | | Load 0x2,-0x1
0a65 8210 | | Call 0x1,0x10
0a66 4801 |H | Short_Literal 0x1
0a67 00da | | Load_Top At_Offset_2
0a68 01d6 | | Execute Vector,Field_Write
0a69 e5fe | | Load 0x2,-0x2
0a6a e014 | | Load 0x0,0x14
0a6b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a6c 4802 |H | Short_Literal 0x2
0a6d 00da | | Load_Top At_Offset_2
0a6e 01d6 | | Execute Vector,Field_Write
0a6f 00d9 | | Load_Top At_Offset_1
0a70 e002 | | Load 0x0,0x2
0a71 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0a72 00d8 | | Load_Top At_Offset_0
0a73 00e3 | | Load_Encached Natural_Cache
0a74 0260 | ` | Execute Discrete,In_Type
0a75 7001 |p | Jump_Nonzero 0xa77
0a76 0801 | | Execute_Immediate Raise,0x1
0a77 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0a80 | | .CONST 0x0a80 ; Address of begin
0a79 0004 | | .CONST 0x0004 ; Address of exception handler
0a7a 0003 | | .CONST 0x0003 ; Number of locals
0a7b INIT_0a78:
0a7b e002 | | Load 0x0,0x2
0a7c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0a7d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0a7e e00d | | Load 0x0,0xd
0a7f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0a80 BODY_0a78:
0a80 00d9 | | Load_Top At_Offset_1
0a81 e00d | | Load 0x0,0xd
0a82 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0a83 4801 |H | Short_Literal 0x1
0a84 e5fd | | Load 0x2,-0x3
0a85 e5ff | | Load 0x2,-0x1
0a86 8277 | w | Call 0x1,0x77
0a87 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0a88 005a | Z | Store_Top Discrete,At_Offset_2
0a89 00d9 | | Load_Top At_Offset_1
0a8a 700f |p | Jump_Nonzero 0xa9a
0a8b 00d8 | | Load_Top At_Offset_0
0a8c 0219 | | Execute Heap_Access,All_Read
0a8d 00da | | Load_Top At_Offset_2
0a8e 00d9 | | Load_Top At_Offset_1
0a8f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0a90 e5fe | | Load 0x2,-0x2
0a91 e016 | | Load 0x0,0x16
0a92 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a93 00da | | Load_Top At_Offset_2
0a94 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0a95 005b | [ | Store_Top Discrete,At_Offset_3
0a96 00d1 | | Pop_Control Pop_Count_1
0a97 00d9 | | Load_Top At_Offset_1
0a98 7001 |p | Jump_Nonzero 0xa9a
0a99 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0a9a e002 | | Load 0x0,0x2
0a9b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a9c 4801 |H | Short_Literal 0x1
0a9d 4802 |H | Short_Literal 0x2
0a9e e005 | | Load 0x0,0x5
0a9f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0aa0 035b | [ | Declare_Type Array,Constrained
0aa1 0337 | 7 | Declare_Variable Array
0aa2 e5ff | | Load 0x2,-0x1
0aa3 8210 | | Call 0x1,0x10
0aa4 4801 |H | Short_Literal 0x1
0aa5 00da | | Load_Top At_Offset_2
0aa6 01d6 | | Execute Vector,Field_Write
0aa7 e5fd | | Load 0x2,-0x3
0aa8 e014 | | Load 0x0,0x14
0aa9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0aaa 4802 |H | Short_Literal 0x2
0aab 00da | | Load_Top At_Offset_2
0aac 01d6 | | Execute Vector,Field_Write
0aad 00db | | Load_Top At_Offset_3
0aae e002 | | Load 0x0,0x2
0aaf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0ab0 c5fc | | Store 0x2,-0x4
0ab1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0ab2 0000 0000 | | .BLANK 0000[0x6]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0ac5 | | .CONST 0x0ac5 ; Address of begin
0ab9 0004 | | .CONST 0x0004 ; Address of exception handler
0aba 0004 | | .CONST 0x0004 ; Number of locals
0abb INIT_0ab8:
0abb e00d | | Load 0x0,0xd
0abc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0abd e002 | | Load 0x0,0x2
0abe 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0abf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0ac0 e00f | | Load 0x0,0xf
0ac1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ac2 02c7 | | Declare_Variable Any
0ac3 00d8 | | Load_Top At_Offset_0
0ac4 1c00 | | Execute_Immediate Run_Utility,0x0
0ac5 BODY_0ab8:
0ac5 00d9 | | Load_Top At_Offset_1
0ac6 e00d | | Load 0x0,0xd
0ac7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0ac8 4800 |H | Short_Literal 0x0
0ac9 e5fd | | Load 0x2,-0x3
0aca e5ff | | Load 0x2,-0x1
0acb 8277 | w | Call 0x1,0x77
0acc c402 | | Store 0x2,0x2
0acd 005a | Z | Store_Top Discrete,At_Offset_2
0ace 00d9 | | Load_Top At_Offset_1
0acf 7029 |p) | Jump_Nonzero 0xaf9
0ad0 00da | | Load_Top At_Offset_2
0ad1 0217 | | Execute Heap_Access,All_Reference
0ad2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0ad3 681b |h | Jump_Zero 0xaef
0ad4 00da | | Load_Top At_Offset_2
0ad5 0219 | | Execute Heap_Access,All_Read
0ad6 00da | | Load_Top At_Offset_2
0ad7 00da | | Load_Top At_Offset_2
0ad8 0120 | | Execute Any,Is_Value
0ad9 6803 |h | Jump_Zero 0xadd
0ada e00f | | Load 0x0,0xf
0adb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0adc 7801 |x | Jump 0xade
0add 00da | | Load_Top At_Offset_2
0ade 00da | | Load_Top At_Offset_2
0adf 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0ae0 e5fe | | Load 0x2,-0x2
0ae1 e016 | | Load 0x0,0x16
0ae2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0ae3 00db | | Load_Top At_Offset_3
0ae4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0ae5 c404 | | Store 0x2,0x4
0ae6 005b | [ | Store_Top Discrete,At_Offset_3
0ae7 00d1 | | Pop_Control Pop_Count_1
0ae8 00d9 | | Load_Top At_Offset_1
0ae9 7002 |p | Jump_Nonzero 0xaec
0aea 00d8 | | Load_Top At_Offset_0
0aeb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0aec e004 | | Load 0x0,0x4
0aed 180f | | Execute Package,Field_Execute,Field_Number 0xf
0aee 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0aef e5fd | | Load 0x2,-0x3
0af0 e5fe | | Load 0x2,-0x2
0af1 e5ff | | Load 0x2,-0x1
0af2 e001 | | Load 0x0,0x1
0af3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0af4 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0af5 e001 | | Load 0x0,0x1
0af6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0af7 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0af8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0af9 4801 |H | Short_Literal 0x1
0afa 4802 |H | Short_Literal 0x2
0afb e005 | | Load 0x0,0x5
0afc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0afd 035b | [ | Declare_Type Array,Constrained
0afe 0337 | 7 | Declare_Variable Array
0aff e5ff | | Load 0x2,-0x1
0b00 8210 | | Call 0x1,0x10
0b01 4801 |H | Short_Literal 0x1
0b02 00da | | Load_Top At_Offset_2
0b03 01d6 | | Execute Vector,Field_Write
0b04 e5fd | | Load 0x2,-0x3
0b05 e014 | | Load 0x0,0x14
0b06 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b07 4802 |H | Short_Literal 0x2
0b08 00da | | Load_Top At_Offset_2
0b09 01d6 | | Execute Vector,Field_Write
0b0a 00da | | Load_Top At_Offset_2
0b0b e002 | | Load 0x0,0x2
0b0c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0b0d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b0e 0000 0000 | | .XXX[0x2]
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; --------------------------------------------------------------------------------------
0b10 0b18 | | .CONST 0x0b18 ; Address of begin
0b11 0004 | | .CONST 0x0004 ; Address of exception handler
0b12 0003 | | .CONST 0x0003 ; Number of locals
0b13 INIT_0b10:
0b13 e00d | | Load 0x0,0xd
0b14 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0b15 e002 | | Load 0x0,0x2
0b16 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b17 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b18 BODY_0b10:
0b18 00d8 | | Load_Top At_Offset_0
0b19 e00d | | Load 0x0,0xd
0b1a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0b1b 4801 |H | Short_Literal 0x1
0b1c e5fc | | Load 0x2,-0x4
0b1d e5ff | | Load 0x2,-0x1
0b1e 8277 | w | Call 0x1,0x77
0b1f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0b20 0059 | Y | Store_Top Discrete,At_Offset_1
0b21 00d8 | | Load_Top At_Offset_0
0b22 7010 |p | Jump_Nonzero 0xb33
0b23 00d9 | | Load_Top At_Offset_1
0b24 0219 | | Execute Heap_Access,All_Read
0b25 00d9 | | Load_Top At_Offset_1
0b26 00d9 | | Load_Top At_Offset_1
0b27 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0b28 e5fe | | Load 0x2,-0x2
0b29 e5fd | | Load 0x2,-0x3
0b2a e016 | | Load 0x0,0x16
0b2b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0b2c 00da | | Load_Top At_Offset_2
0b2d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0b2e 005a | Z | Store_Top Discrete,At_Offset_2
0b2f 00d1 | | Pop_Control Pop_Count_1
0b30 00d8 | | Load_Top At_Offset_0
0b31 7001 |p | Jump_Nonzero 0xb33
0b32 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b33 e002 | | Load 0x0,0x2
0b34 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b35 4801 |H | Short_Literal 0x1
0b36 4802 |H | Short_Literal 0x2
0b37 e005 | | Load 0x0,0x5
0b38 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b39 035b | [ | Declare_Type Array,Constrained
0b3a 0337 | 7 | Declare_Variable Array
0b3b e5ff | | Load 0x2,-0x1
0b3c 8210 | | Call 0x1,0x10
0b3d 4801 |H | Short_Literal 0x1
0b3e 00da | | Load_Top At_Offset_2
0b3f 01d6 | | Execute Vector,Field_Write
0b40 e5fc | | Load 0x2,-0x4
0b41 e014 | | Load 0x0,0x14
0b42 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b43 4802 |H | Short_Literal 0x2
0b44 00da | | Load_Top At_Offset_2
0b45 01d6 | | Execute Vector,Field_Write
0b46 00da | | Load_Top At_Offset_2
0b47 e002 | | Load 0x0,0x2
0b48 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0b49 c5fb | | Store 0x2,-0x5
0b4a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0b4b 0000 0000 | | .BLANK 0000[0x5]
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; --------------------------------------------------------------------------------------
0b50 0b58 | X | .CONST 0x0b58 ; Address of begin
0b51 0004 | | .CONST 0x0004 ; Address of exception handler
0b52 0003 | | .CONST 0x0003 ; Number of locals
0b53 INIT_0b50:
0b53 e00d | | Load 0x0,0xd
0b54 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0b55 e002 | | Load 0x0,0x2
0b56 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b57 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b58 BODY_0b50:
0b58 00d8 | | Load_Top At_Offset_0
0b59 e00d | | Load 0x0,0xd
0b5a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0b5b 4801 |H | Short_Literal 0x1
0b5c e5fd | | Load 0x2,-0x3
0b5d e5ff | | Load 0x2,-0x1
0b5e 8277 | w | Call 0x1,0x77
0b5f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0b60 0059 | Y | Store_Top Discrete,At_Offset_1
0b61 00d8 | | Load_Top At_Offset_0
0b62 700f |p | Jump_Nonzero 0xb72
0b63 00d9 | | Load_Top At_Offset_1
0b64 0219 | | Execute Heap_Access,All_Read
0b65 00d9 | | Load_Top At_Offset_1
0b66 00d9 | | Load_Top At_Offset_1
0b67 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0b68 e5fe | | Load 0x2,-0x2
0b69 e016 | | Load 0x0,0x16
0b6a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b6b 00da | | Load_Top At_Offset_2
0b6c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0b6d 005a | Z | Store_Top Discrete,At_Offset_2
0b6e 00d1 | | Pop_Control Pop_Count_1
0b6f 00d8 | | Load_Top At_Offset_0
0b70 7001 |p | Jump_Nonzero 0xb72
0b71 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0b72 e002 | | Load 0x0,0x2
0b73 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b74 4801 |H | Short_Literal 0x1
0b75 4802 |H | Short_Literal 0x2
0b76 e005 | | Load 0x0,0x5
0b77 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b78 035b | [ | Declare_Type Array,Constrained
0b79 0337 | 7 | Declare_Variable Array
0b7a e5ff | | Load 0x2,-0x1
0b7b 8210 | | Call 0x1,0x10
0b7c 4801 |H | Short_Literal 0x1
0b7d 00da | | Load_Top At_Offset_2
0b7e 01d6 | | Execute Vector,Field_Write
0b7f e5fd | | Load 0x2,-0x3
0b80 e014 | | Load 0x0,0x14
0b81 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b82 4802 |H | Short_Literal 0x2
0b83 00da | | Load_Top At_Offset_2
0b84 01d6 | | Execute Vector,Field_Write
0b85 00da | | Load_Top At_Offset_2
0b86 e002 | | Load 0x0,0x2
0b87 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0b88 c5fc | | Store 0x2,-0x4
0b89 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0b8a 0000 0000 | | .BLANK 0000[0x6]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b98 | | .CONST 0x0b98 ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0003 | | .CONST 0x0003 ; Number of locals
0b93 INIT_0b90:
0b93 e00d | | Load 0x0,0xd
0b94 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0b95 e002 | | Load 0x0,0x2
0b96 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0b97 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0b98 BODY_0b90:
0b98 00d8 | | Load_Top At_Offset_0
0b99 e00d | | Load 0x0,0xd
0b9a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0b9b 4801 |H | Short_Literal 0x1
0b9c e5fd | | Load 0x2,-0x3
0b9d e5ff | | Load 0x2,-0x1
0b9e 8277 | w | Call 0x1,0x77
0b9f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0ba0 0059 | Y | Store_Top Discrete,At_Offset_1
0ba1 00d8 | | Load_Top At_Offset_0
0ba2 700f |p | Jump_Nonzero 0xbb2
0ba3 00d9 | | Load_Top At_Offset_1
0ba4 0219 | | Execute Heap_Access,All_Read
0ba5 00d9 | | Load_Top At_Offset_1
0ba6 00d9 | | Load_Top At_Offset_1
0ba7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0ba8 e5fe | | Load 0x2,-0x2
0ba9 e016 | | Load 0x0,0x16
0baa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0bab 00da | | Load_Top At_Offset_2
0bac 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0bad 005a | Z | Store_Top Discrete,At_Offset_2
0bae 00d1 | | Pop_Control Pop_Count_1
0baf 00d8 | | Load_Top At_Offset_0
0bb0 7001 |p | Jump_Nonzero 0xbb2
0bb1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0bb2 e002 | | Load 0x0,0x2
0bb3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0bb4 4801 |H | Short_Literal 0x1
0bb5 4802 |H | Short_Literal 0x2
0bb6 e005 | | Load 0x0,0x5
0bb7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0bb8 035b | [ | Declare_Type Array,Constrained
0bb9 0337 | 7 | Declare_Variable Array
0bba e5ff | | Load 0x2,-0x1
0bbb 8210 | | Call 0x1,0x10
0bbc 4801 |H | Short_Literal 0x1
0bbd 00da | | Load_Top At_Offset_2
0bbe 01d6 | | Execute Vector,Field_Write
0bbf e5fd | | Load 0x2,-0x3
0bc0 e014 | | Load 0x0,0x14
0bc1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0bc2 4802 |H | Short_Literal 0x2
0bc3 00da | | Load_Top At_Offset_2
0bc4 01d6 | | Execute Vector,Field_Write
0bc5 00da | | Load_Top At_Offset_2
0bc6 e002 | | Load 0x0,0x2
0bc7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0bc8 c5fc | | Store 0x2,-0x4
0bc9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0bca 0000 0000 | | .BLANK 0000[0x6]
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bd3 | | .CONST 0x0bd3 ; Address of begin
0bd1 0004 | | .CONST 0x0004 ; Address of exception handler
0bd2 0001 | | .CONST 0x0001 ; Number of locals
0bd3 BODY_0bd0:
0bd3 INIT_0bd0:
0bd3 00da | | Load_Top At_Offset_2
0bd4 680b |h | Jump_Zero 0xbe0
0bd5 00da | | Load_Top At_Offset_2
0bd6 0217 | | Execute Heap_Access,All_Reference
0bd7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0bd8 6807 |h | Jump_Zero 0xbe0
0bd9 00da | | Load_Top At_Offset_2
0bda 0217 | | Execute Heap_Access,All_Reference
0bdb 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
0bdc e001 | | Load 0x0,0x1
0bdd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0bde 0216 | | Execute Heap_Access,Convert
0bdf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0be0 00da | | Load_Top At_Offset_2
0be1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0be2 0000 0000 | | .BLANK 0000[0x6]
0be8 ; --------------------------------------------------------------------------------------
0be8 ; SUBPROGRAM
0be8 ; --------------------------------------------------------------------------------------
0be8 0beb | | .CONST 0x0beb ; Address of begin
0be9 0004 | | .CONST 0x0004 ; Address of exception handler
0bea 0001 | | .CONST 0x0001 ; Number of locals
0beb BODY_0be8:
0beb INIT_0be8:
0beb 00da | | Load_Top At_Offset_2
0bec 7002 |p | Jump_Nonzero 0xbef
0bed 00da | | Load_Top At_Offset_2
0bee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bef 00da | | Load_Top At_Offset_2
0bf0 0217 | | Execute Heap_Access,All_Reference
0bf1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0bf2 6802 |h | Jump_Zero 0xbf5
0bf3 00da | | Load_Top At_Offset_2
0bf4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bf5 00da | | Load_Top At_Offset_2
0bf6 0217 | | Execute Heap_Access,All_Reference
0bf7 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
0bf8 e001 | | Load 0x0,0x1
0bf9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0bfa 0216 | | Execute Heap_Access,Convert
0bfb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bfc 0000 0000 | | .BLANK 0000[0x4]
0c00 ; --------------------------------------------------------------------------------------
0c00 ; SUBPROGRAM
0c00 ; --------------------------------------------------------------------------------------
0c00 0c03 | | .CONST 0x0c03 ; Address of begin
0c01 0004 | | .CONST 0x0004 ; Address of exception handler
0c02 0001 | | .CONST 0x0001 ; Number of locals
0c03 BODY_0c00:
0c03 INIT_0c00:
0c03 00da | | Load_Top At_Offset_2
0c04 6805 |h | Jump_Zero 0xc0a
0c05 00da | | Load_Top At_Offset_2
0c06 0217 | | Execute Heap_Access,All_Reference
0c07 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
0c08 8264 | d | Call 0x1,0x64
0c09 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c0a 8215 | | Call 0x1,0x15
0c0b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c0c 0000 0000 | | .BLANK 0000[0x4]
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c13 | | .CONST 0x0c13 ; Address of begin
0c11 0004 | | .CONST 0x0004 ; Address of exception handler
0c12 0001 | | .CONST 0x0001 ; Number of locals
0c13 BODY_0c10:
0c13 INIT_0c10:
0c13 00da | | Load_Top At_Offset_2
0c14 7002 |p | Jump_Nonzero 0xc17
0c15 00da | | Load_Top At_Offset_2
0c16 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c17 00da | | Load_Top At_Offset_2
0c18 0217 | | Execute Heap_Access,All_Reference
0c19 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
0c1a e001 | | Load 0x0,0x1
0c1b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c1c 0216 | | Execute Heap_Access,Convert
0c1d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c1e 0000 0000 | | .XXX[0x2]
0c20 ; --------------------------------------------------------------------------------------
0c20 ; SUBPROGRAM
0c20 ; --------------------------------------------------------------------------------------
0c20 0c23 | # | .CONST 0x0c23 ; Address of begin
0c21 0004 | | .CONST 0x0004 ; Address of exception handler
0c22 0001 | | .CONST 0x0001 ; Number of locals
0c23 BODY_0c20:
0c23 INIT_0c20:
0c23 00da | | Load_Top At_Offset_2
0c24 6804 |h | Jump_Zero 0xc29
0c25 00da | | Load_Top At_Offset_2
0c26 0217 | | Execute Heap_Access,All_Reference
0c27 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0c28 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c29 4800 |H | Short_Literal 0x0
0c2a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c2b 0000 0000 | | .BLANK 0000[0x5]
0c30 ; --------------------------------------------------------------------------------------
0c30 ; SUBPROGRAM
0c30 ; --------------------------------------------------------------------------------------
0c30 0c33 | 3 | .CONST 0x0c33 ; Address of begin
0c31 0004 | | .CONST 0x0004 ; Address of exception handler
0c32 0001 | | .CONST 0x0001 ; Number of locals
0c33 BODY_0c30:
0c33 INIT_0c30:
0c33 00db | | Load_Top At_Offset_3
0c34 00db | | Load_Top At_Offset_3
0c35 0217 | | Execute Heap_Access,All_Reference
0c36 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0c37 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c3b | ; | .CONST 0x0c3b ; Address of begin
0c39 0004 | | .CONST 0x0004 ; Address of exception handler
0c3a 0001 | | .CONST 0x0001 ; Number of locals
0c3b BODY_0c38:
0c3b INIT_0c38:
0c3b 00da | | Load_Top At_Offset_2
0c3c e017 | | Load 0x0,0x17
0c3d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c3e 011c | | Execute Any,Convert_Unchecked
0c3f 1c01 | | Execute_Immediate Run_Utility,0x1
0c40 e005 | | Load 0x0,0x5
0c41 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c42 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c43 0000 0000 | | .BLANK 0000[0x5]
0c48 ; --------------------------------------------------------------------------------------
0c48 ; SUBPROGRAM
0c48 ; --------------------------------------------------------------------------------------
0c48 0c4b | K | .CONST 0x0c4b ; Address of begin
0c49 0004 | | .CONST 0x0004 ; Address of exception handler
0c4a 0001 | | .CONST 0x0001 ; Number of locals
0c4b BODY_0c48:
0c4b INIT_0c48:
0c4b 00da | | Load_Top At_Offset_2
0c4c e006 | | Load 0x0,0x6
0c4d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0c4e e00d | | Load 0x0,0xd
0c4f 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0c50 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c51 0000 0000 | | .BLANK 0000[0x7]
0c58 ; --------------------------------------------------------------------------------------
0c58 ; SUBPROGRAM
0c58 ; --------------------------------------------------------------------------------------
0c58 0c6c | l | .CONST 0x0c6c ; Address of begin
0c59 0d0e | | .CONST 0x0d0e ; Address of exception handler
0c5a 0005 | | .CONST 0x0005 ; Number of locals
0c5b INIT_0c58:
0c5b e003 | | Load 0x0,0x3
0c5c 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0c5d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c5e 02c7 | | Declare_Variable Any
0c5f 00d8 | | Load_Top At_Offset_0
0c60 1c00 | | Execute_Immediate Run_Utility,0x0
0c61 e003 | | Load 0x0,0x3
0c62 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c63 e00e | | Load 0x0,0xe
0c64 0322 | " | Declare_Variable Record
0c65 00d8 | | Load_Top At_Offset_0
0c66 1c00 | | Execute_Immediate Run_Utility,0x0
0c67 e003 | | Load 0x0,0x3
0c68 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c69 02c7 | | Declare_Variable Any
0c6a 00d8 | | Load_Top At_Offset_0
0c6b 1c00 | | Execute_Immediate Run_Utility,0x0
0c6c BODY_0c58:
0c6c e5fd | | Load 0x2,-0x3
0c6d 00d9 | | Load_Top At_Offset_1
0c6e 0120 | | Execute Any,Is_Value
0c6f 6803 |h | Jump_Zero 0xc73
0c70 e003 | | Load 0x0,0x3
0c71 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0c72 7801 |x | Jump 0xc74
0c73 00d9 | | Load_Top At_Offset_1
0c74 e5ff | | Load 0x2,-0x1
0c75 8224 | $ | Call 0x1,0x24
0c76 c405 | | Store 0x2,0x5
0c77 c5fd | | Store 0x2,-0x3
0c78 4800 |H | Short_Literal 0x0
0c79 e5fd | | Load 0x2,-0x3
0c7a e002 | | Load 0x0,0x2
0c7b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0c7c 6890 |h | Jump_Zero 0xd0d
0c7d e003 | | Load 0x0,0x3
0c7e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0c7f e402 | | Load 0x2,0x2
0c80 0120 | | Execute Any,Is_Value
0c81 6804 |h | Jump_Zero 0xc86
0c82 e003 | | Load 0x0,0x3
0c83 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0c84 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0c85 7801 |x | Jump 0xc87
0c86 e402 | | Load 0x2,0x2
0c87 6090 |` | Indirect_Literal Discrete,0xd18,{0x00000000, 0x00004000}
0c88 e013 | | Load 0x0,0x13
0c89 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0c8a 4800 |H | Short_Literal 0x0
0c8b e405 | | Load 0x2,0x5
0c8c e003 | | Load 0x0,0x3
0c8d 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0c8e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0c8f c402 | | Store 0x2,0x2
0c90 005b | [ | Store_Top Discrete,At_Offset_3
0c91 00da | | Load_Top At_Offset_2
0c92 460e |F | Jump_Case 0xf
0c93 7839 |x9 | Jump 0xccd ; case 0x0
0c94 7838 |x8 | Jump 0xccd ; case 0x1
0c95 780c |x | Jump 0xca2 ; case 0x2
0c96 780b |x | Jump 0xca2 ; case 0x3
0c97 780a |x | Jump 0xca2 ; case 0x4
0c98 7809 |x | Jump 0xca2 ; case 0x5
0c99 7808 |x | Jump 0xca2 ; case 0x6
0c9a 7807 |x | Jump 0xca2 ; case 0x7
0c9b 7806 |x | Jump 0xca2 ; case 0x8
0c9c 7805 |x | Jump 0xca2 ; case 0x9
0c9d 782f |x/ | Jump 0xccd ; case 0xa
0c9e 7803 |x | Jump 0xca2 ; case 0xb
0c9f 7802 |x | Jump 0xca2 ; case 0xc
0ca0 7801 |x | Jump 0xca2 ; case 0xd
0ca1 7800 |x | Jump 0xca2 ; case 0xe
0ca2 e003 | | Load 0x0,0x3
0ca3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ca4 e5ff | | Load 0x2,-0x1
0ca5 0217 | | Execute Heap_Access,All_Reference
0ca6 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
0ca7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0ca8 e5fd | | Load 0x2,-0x3
0ca9 00d9 | | Load_Top At_Offset_1
0caa 0120 | | Execute Any,Is_Value
0cab 6803 |h | Jump_Zero 0xcaf
0cac e003 | | Load 0x0,0x3
0cad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cae 7801 |x | Jump 0xcb0
0caf 00d9 | | Load_Top At_Offset_1
0cb0 e5ff | | Load 0x2,-0x1
0cb1 8224 | $ | Call 0x1,0x24
0cb2 c405 | | Store 0x2,0x5
0cb3 c5fd | | Store 0x2,-0x3
0cb4 4800 |H | Short_Literal 0x0
0cb5 e5fd | | Load 0x2,-0x3
0cb6 e002 | | Load 0x0,0x2
0cb7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0cb8 6814 |h | Jump_Zero 0xccd
0cb9 e003 | | Load 0x0,0x3
0cba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cbb e402 | | Load 0x2,0x2
0cbc 0120 | | Execute Any,Is_Value
0cbd 6804 |h | Jump_Zero 0xcc2
0cbe e003 | | Load 0x0,0x3
0cbf 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0cc0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0cc1 7801 |x | Jump 0xcc3
0cc2 e402 | | Load 0x2,0x2
0cc3 6054 |`T | Indirect_Literal Discrete,0xd18,{0x00000000, 0x00004000}
0cc4 e013 | | Load 0x0,0x13
0cc5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0cc6 4800 |H | Short_Literal 0x0
0cc7 e405 | | Load 0x2,0x5
0cc8 e003 | | Load 0x0,0x3
0cc9 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0cca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0ccb c402 | | Store 0x2,0x2
0ccc 005b | [ | Store_Top Discrete,At_Offset_3
0ccd 00da | | Load_Top At_Offset_2
0cce 7027 |p' | Jump_Nonzero 0xcf6
0ccf 00d8 | | Load_Top At_Offset_0
0cd0 00da | | Load_Top At_Offset_2
0cd1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0cd2 00db | | Load_Top At_Offset_3
0cd3 e003 | | Load 0x0,0x3
0cd4 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0cd5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0cd6 00da | | Load_Top At_Offset_2
0cd7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0cd8 00db | | Load_Top At_Offset_3
0cd9 e003 | | Load 0x0,0x3
0cda 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0cdb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0cdc 00da | | Load_Top At_Offset_2
0cdd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0cde 00db | | Load_Top At_Offset_3
0cdf e003 | | Load 0x0,0x3
0ce0 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0ce1 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0ce2 00da | | Load_Top At_Offset_2
0ce3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0ce4 00db | | Load_Top At_Offset_3
0ce5 e003 | | Load 0x0,0x3
0ce6 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0ce7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0ce8 00da | | Load_Top At_Offset_2
0ce9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0cea 00d9 | | Load_Top At_Offset_1
0ceb e5fe | | Load 0x2,-0x2
0cec 017d | } | Execute Record,Structure_Write
0ced 00d9 | | Load_Top At_Offset_1
0cee e5ff | | Load 0x2,-0x1
0cef 0217 | | Execute Heap_Access,All_Reference
0cf0 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0cf1 4801 |H | Short_Literal 0x1
0cf2 e5ff | | Load 0x2,-0x1
0cf3 0217 | | Execute Heap_Access,All_Reference
0cf4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0cf5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cf6 e002 | | Load 0x0,0x2
0cf7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0cf8 4801 |H | Short_Literal 0x1
0cf9 4802 |H | Short_Literal 0x2
0cfa e005 | | Load 0x0,0x5
0cfb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0cfc 035b | [ | Declare_Type Array,Constrained
0cfd 0337 | 7 | Declare_Variable Array
0cfe e5ff | | Load 0x2,-0x1
0cff 8210 | | Call 0x1,0x10
0d00 4801 |H | Short_Literal 0x1
0d01 00da | | Load_Top At_Offset_2
0d02 01d6 | | Execute Vector,Field_Write
0d03 e403 | | Load 0x2,0x3
0d04 e005 | | Load 0x0,0x5
0d05 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0d06 4802 |H | Short_Literal 0x2
0d07 00da | | Load_Top At_Offset_2
0d08 01d6 | | Execute Vector,Field_Write
0d09 600a |` | Indirect_Literal Discrete,0xd14,{0x00000000, 0x00002006}
0d0a e002 | | Load 0x0,0x2
0d0b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0d0c c5fd | | Store 0x2,-0x3
0d0d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d0e TRAP_0c58:
0d0e 4885 |H | Short_Literal 0x85
0d0f 010f | | Execute Exception,Equal
0d10 6801 |h | Jump_Zero 0xd12
0d11 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d12 0100 | | Execute Exception,Raise
0d13 0000 | | .XXX[0x1]
0d14 0000 0000 | | .LITERAL {0x00000000, 0x00002006}
0d18 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0d1c 0000 0000 | | .BLANK 0000[0x4]
0d20 ; --------------------------------------------------------------------------------------
0d20 ; SUBPROGRAM
0d20 ; --------------------------------------------------------------------------------------
0d20 0d48 | H | .CONST 0x0d48 ; Address of begin
0d21 0e00 | | .CONST 0x0e00 ; Address of exception handler
0d22 0009 | | .CONST 0x0009 ; Number of locals
0d23 INIT_0d20:
0d23 e018 | | Load 0x0,0x18
0d24 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d25 0322 | " | Declare_Variable Record
0d26 00d8 | | Load_Top At_Offset_0
0d27 1c00 | | Execute_Immediate Run_Utility,0x0
0d28 e017 | | Load 0x0,0x17
0d29 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d2a e003 | | Load 0x0,0x3
0d2b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0d2c 02ff | | Declare_Variable Variant_Record
0d2d 00d8 | | Load_Top At_Offset_0
0d2e 1c00 | | Execute_Immediate Run_Utility,0x0
0d2f e018 | | Load 0x0,0x18
0d30 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d31 0322 | " | Declare_Variable Record
0d32 00d8 | | Load_Top At_Offset_0
0d33 1c00 | | Execute_Immediate Run_Utility,0x0
0d34 e00e | | Load 0x0,0xe
0d35 0322 | " | Declare_Variable Record
0d36 00d8 | | Load_Top At_Offset_0
0d37 1c00 | | Execute_Immediate Run_Utility,0x0
0d38 e013 | | Load 0x0,0x13
0d39 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d3a 02c7 | | Declare_Variable Any
0d3b e013 | | Load 0x0,0x13
0d3c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d3d a407 | | Store_Unchecked 0x2,0x7
0d3e e00f | | Load 0x0,0xf
0d3f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d40 02c7 | | Declare_Variable Any
0d41 00d8 | | Load_Top At_Offset_0
0d42 1c00 | | Execute_Immediate Run_Utility,0x0
0d43 e00f | | Load 0x0,0xf
0d44 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d45 02c7 | | Declare_Variable Any
0d46 00d8 | | Load_Top At_Offset_0
0d47 1c00 | | Execute_Immediate Run_Utility,0x0
0d48 BODY_0d20:
0d48 e004 | | Load 0x0,0x4
0d49 180f | | Execute Package,Field_Execute,Field_Number 0xf
0d4a c5fe | | Store 0x2,-0x2
0d4b e004 | | Load 0x0,0x4
0d4c 180f | | Execute Package,Field_Execute,Field_Number 0xf
0d4d c5fd | | Store 0x2,-0x3
0d4e e5fc | | Load 0x2,-0x4
0d4f e406 | | Load 0x2,0x6
0d50 e5ff | | Load 0x2,-0x1
0d51 8261 | a | Call 0x1,0x61
0d52 00d1 | | Pop_Control Pop_Count_1
0d53 c5fc | | Store 0x2,-0x4
0d54 4800 |H | Short_Literal 0x0
0d55 e5fc | | Load 0x2,-0x4
0d56 e002 | | Load 0x0,0x2
0d57 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0d58 68a6 |h | Jump_Zero 0xdff
0d59 e017 | | Load 0x0,0x17
0d5a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d5b e402 | | Load 0x2,0x2
0d5c e013 | | Load 0x0,0x13
0d5d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d5e 4800 |H | Short_Literal 0x0
0d5f 4800 |H | Short_Literal 0x0
0d60 e406 | | Load 0x2,0x6
0d61 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0d62 e018 | | Load 0x0,0x18
0d63 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d64 00d1 | | Pop_Control Pop_Count_1
0d65 c403 | | Store 0x2,0x3
0d66 e403 | | Load 0x2,0x3
0d67 706b |pk | Jump_Nonzero 0xdd3
0d68 e402 | | Load 0x2,0x2
0d69 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0d6a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0d6b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d6c c409 | | Store 0x2,0x9
0d6d 00db | | Load_Top At_Offset_3
0d6e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d6f e003 | | Load 0x0,0x3
0d70 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0d71 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0d72 012f | / | Execute Any,Equal
0d73 685c |h\ | Jump_Zero 0xdd0
0d74 e017 | | Load 0x0,0x17
0d75 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d76 e404 | | Load 0x2,0x4
0d77 4800 |H | Short_Literal 0x0
0d78 e407 | | Load 0x2,0x7
0d79 e406 | | Load 0x2,0x6
0d7a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0d7b e019 | | Load 0x0,0x19
0d7c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d7d 0162 | b | Execute Variant_Record,Check_In_Type
0d7e e019 | | Load 0x0,0x19
0d7f 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0d80 00d1 | | Pop_Control Pop_Count_1
0d81 c403 | | Store 0x2,0x3
0d82 e403 | | Load 0x2,0x3
0d83 7030 |p0 | Jump_Nonzero 0xdb4
0d84 e017 | | Load 0x0,0x17
0d85 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0d86 e405 | | Load 0x2,0x5
0d87 e013 | | Load 0x0,0x13
0d88 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d89 4800 |H | Short_Literal 0x0
0d8a 4800 |H | Short_Literal 0x0
0d8b e404 | | Load 0x2,0x4
0d8c e018 | | Load 0x0,0x18
0d8d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d8e 00d1 | | Pop_Control Pop_Count_1
0d8f c403 | | Store 0x2,0x3
0d90 e403 | | Load 0x2,0x3
0d91 7006 |p | Jump_Nonzero 0xd98
0d92 e405 | | Load 0x2,0x5
0d93 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0d94 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0d95 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d96 c408 | | Store 0x2,0x8
0d97 7856 |xV | Jump 0xdee
0d98 e002 | | Load 0x0,0x2
0d99 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d9a 4801 |H | Short_Literal 0x1
0d9b 4802 |H | Short_Literal 0x2
0d9c e005 | | Load 0x0,0x5
0d9d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0d9e 035b | [ | Declare_Type Array,Constrained
0d9f 0337 | 7 | Declare_Variable Array
0da0 e5ff | | Load 0x2,-0x1
0da1 8210 | | Call 0x1,0x10
0da2 4801 |H | Short_Literal 0x1
0da3 00da | | Load_Top At_Offset_2
0da4 01d6 | | Execute Vector,Field_Write
0da5 e403 | | Load 0x2,0x3
0da6 e017 | | Load 0x0,0x17
0da7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0da8 011c | | Execute Any,Convert_Unchecked
0da9 1c01 | | Execute_Immediate Run_Utility,0x1
0daa e005 | | Load 0x0,0x5
0dab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dac 4802 |H | Short_Literal 0x2
0dad 00da | | Load_Top At_Offset_2
0dae 01d6 | | Execute Vector,Field_Write
0daf 6060 |`` | Indirect_Literal Discrete,0xe10,{0x00000000, 0x00002005}
0db0 e002 | | Load 0x0,0x2
0db1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0db2 c5fc | | Store 0x2,-0x4
0db3 783a |x: | Jump 0xdee
0db4 e002 | | Load 0x0,0x2
0db5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0db6 4801 |H | Short_Literal 0x1
0db7 4802 |H | Short_Literal 0x2
0db8 e005 | | Load 0x0,0x5
0db9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0dba 035b | [ | Declare_Type Array,Constrained
0dbb 0337 | 7 | Declare_Variable Array
0dbc e5ff | | Load 0x2,-0x1
0dbd 8210 | | Call 0x1,0x10
0dbe 4801 |H | Short_Literal 0x1
0dbf 00da | | Load_Top At_Offset_2
0dc0 01d6 | | Execute Vector,Field_Write
0dc1 e403 | | Load 0x2,0x3
0dc2 e017 | | Load 0x0,0x17
0dc3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dc4 011c | | Execute Any,Convert_Unchecked
0dc5 1c01 | | Execute_Immediate Run_Utility,0x1
0dc6 e005 | | Load 0x0,0x5
0dc7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dc8 4802 |H | Short_Literal 0x2
0dc9 00da | | Load_Top At_Offset_2
0dca 01d6 | | Execute Vector,Field_Write
0dcb 6040 |`@ | Indirect_Literal Discrete,0xe0c,{0x00000000, 0x00002004}
0dcc e002 | | Load 0x0,0x2
0dcd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0dce c5fc | | Store 0x2,-0x4
0dcf 781e |x | Jump 0xdee
0dd0 00d8 | | Load_Top At_Offset_0
0dd1 c408 | | Store 0x2,0x8
0dd2 781b |x | Jump 0xdee
0dd3 e002 | | Load 0x0,0x2
0dd4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0dd5 4801 |H | Short_Literal 0x1
0dd6 4802 |H | Short_Literal 0x2
0dd7 e005 | | Load 0x0,0x5
0dd8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0dd9 035b | [ | Declare_Type Array,Constrained
0dda 0337 | 7 | Declare_Variable Array
0ddb e5ff | | Load 0x2,-0x1
0ddc 8210 | | Call 0x1,0x10
0ddd 4801 |H | Short_Literal 0x1
0dde 00da | | Load_Top At_Offset_2
0ddf 01d6 | | Execute Vector,Field_Write
0de0 e403 | | Load 0x2,0x3
0de1 e017 | | Load 0x0,0x17
0de2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0de3 011c | | Execute Any,Convert_Unchecked
0de4 1c01 | | Execute_Immediate Run_Utility,0x1
0de5 e005 | | Load 0x0,0x5
0de6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0de7 4802 |H | Short_Literal 0x2
0de8 00da | | Load_Top At_Offset_2
0de9 01d6 | | Execute Vector,Field_Write
0dea 601d |` | Indirect_Literal Discrete,0xe08,{0x00000000, 0x00002007}
0deb e002 | | Load 0x0,0x2
0dec 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0ded c5fc | | Store 0x2,-0x4
0dee 4800 |H | Short_Literal 0x0
0def e5fc | | Load 0x2,-0x4
0df0 e002 | | Load 0x0,0x2
0df1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0df2 680c |h | Jump_Zero 0xdff
0df3 00d8 | | Load_Top At_Offset_0
0df4 c5fe | | Store 0x2,-0x2
0df5 00d9 | | Load_Top At_Offset_1
0df6 c5fd | | Store 0x2,-0x3
0df7 00d8 | | Load_Top At_Offset_0
0df8 e5ff | | Load 0x2,-0x1
0df9 0217 | | Execute Heap_Access,All_Reference
0dfa 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0dfb 00d9 | | Load_Top At_Offset_1
0dfc e5ff | | Load 0x2,-0x1
0dfd 0217 | | Execute Heap_Access,All_Reference
0dfe 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0dff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0e00 TRAP_0d20:
0e00 4885 |H | Short_Literal 0x85
0e01 010f | | Execute Exception,Equal
0e02 6801 |h | Jump_Zero 0xe04
0e03 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0e04 0100 | | Execute Exception,Raise
0e05 0000 0000 | | .XXX[0x3]
0e07 0000 | |
0e08 0000 0000 | | .LITERAL {0x00000000, 0x00002007}
0e0c 0000 0000 | | .LITERAL {0x00000000, 0x00002004}
0e10 0000 0000 | | .LITERAL {0x00000000, 0x00002005}
0e14 0000 0000 | | .BLANK 0000[0x4]
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e1e | | .CONST 0x0e1e ; Address of begin
0e19 0004 | | .CONST 0x0004 ; Address of exception handler
0e1a 0003 | | .CONST 0x0003 ; Number of locals
0e1b INIT_0e18:
0e1b 00e2 | | Load_Encached Integer_Cache
0e1c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0e1d 00db | | Load_Top At_Offset_3
0e1e BODY_0e18:
0e1e 00cf | | Action Mark_Auxiliary
0e1f 7808 |x | Jump 0xe28
0e20 00da | | Load_Top At_Offset_2
0e21 0a01 | | Execute_Immediate Plus,0x1
0e22 005b | [ | Store_Top Discrete,At_Offset_3
0e23 00d9 | | Load_Top At_Offset_1
0e24 0217 | | Execute Heap_Access,All_Reference
0e25 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
0e26 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0e27 00c9 | | Action Pop_Auxiliary_Loop
0e28 00d9 | | Load_Top At_Offset_1
0e29 77f6 |w | Jump_Nonzero 0xe20
0e2a 00ce | | Action Pop_Auxiliary
0e2b e5ff | | Load 0x2,-0x1
0e2c 680b |h | Jump_Zero 0xe38
0e2d 00d9 | | Load_Top At_Offset_1
0e2e 7009 |p | Jump_Nonzero 0xe38
0e2f 0092 1580 | | Action Push_String_Extended,0x1580 ; "No siblings for "
0e31 e5ff | | Load 0x2,-0x1
0e32 0217 | | Execute Heap_Access,All_Reference
0e33 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0e34 e010 | | Load 0x0,0x10
0e35 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0e36 01cc | | Execute Vector,Catenate
0e37 8011 | | Call 0x0,0x11
0e38 00d9 | | Load_Top At_Offset_1
0e39 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e3a 0000 0000 | | .BLANK 0000[0x6]
0e40 ; --------------------------------------------------------------------------------------
0e40 ; SUBPROGRAM
0e40 ; --------------------------------------------------------------------------------------
0e40 0e49 | I | .CONST 0x0e49 ; Address of begin
0e41 0004 | | .CONST 0x0004 ; Address of exception handler
0e42 0003 | | .CONST 0x0003 ; Number of locals
0e43 INIT_0e40:
0e43 00da | | Load_Top At_Offset_2
0e44 8263 | c | Call 0x1,0x63
0e45 e214 | | Load 0x1,0x14
0e46 1c08 | | Execute_Immediate Run_Utility,0x8
0e47 00db | | Load_Top At_Offset_3
0e48 0007 | | Action Break_Optional
0e49 BODY_0e40:
0e49 4800 |H | Short_Literal 0x0
0e4a 00da | | Load_Top At_Offset_2
0e4b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0e4c 00cf | | Action Mark_Auxiliary
0e4d 00da | | Load_Top At_Offset_2
0e4e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e4f 01d9 | | Execute Vector,Reverse_Bounds
0e50 0263 | c | Execute Discrete,Above_Bound
0e51 700e |p | Jump_Nonzero 0xe60
0e52 00db | | Load_Top At_Offset_3
0e53 e001 | | Load 0x0,0x1
0e54 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0e55 0216 | | Execute Heap_Access,Convert
0e56 00d9 | | Load_Top At_Offset_1
0e57 e402 | | Load 0x2,0x2
0e58 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e59 01d6 | | Execute Vector,Field_Write
0e5a 00db | | Load_Top At_Offset_3
0e5b 0217 | | Execute Heap_Access,All_Reference
0e5c 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
0e5d a403 | | Store_Unchecked 0x2,0x3
0e5e 00c8 | | Action Pop_Auxiliary_Range
0e5f 3ff2 |? | Loop_Increasing 0xe52
0e60 00ce | | Action Pop_Auxiliary
0e61 00d9 | | Load_Top At_Offset_1
0e62 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e63 0000 0000 | | .BLANK 0000[0x5]
0e68 ; --------------------------------------------------------------------------------------
0e68 ; SUBPROGRAM
0e68 ; --------------------------------------------------------------------------------------
0e68 0e6b | k | .CONST 0x0e6b ; Address of begin
0e69 0004 | | .CONST 0x0004 ; Address of exception handler
0e6a 0001 | | .CONST 0x0001 ; Number of locals
0e6b BODY_0e68:
0e6b INIT_0e68:
0e6b 00db | | Load_Top At_Offset_3
0e6c e01a | | Load 0x0,0x1a
0e6d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0e6e 00d9 | | Load_Top At_Offset_1
0e6f 00d0 | | Action Swap_Control
0e70 0260 | ` | Execute Discrete,In_Type
0e71 7001 |p | Jump_Nonzero 0xe73
0e72 0801 | | Execute_Immediate Raise,0x1
0e73 00db | | Load_Top At_Offset_3
0e74 e01b | | Load 0x0,0x1b
0e75 e01c | | Load 0x0,0x1c
0e76 a01d | | Store_Unchecked 0x0,0x1d
0e77 e01e | | Load 0x0,0x1e
0e78 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0e79 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0e7a 0000 0000 | | .BLANK 0000[0x6]
0e80 ; --------------------------------------------------------------------------------------
0e80 ; SUBPROGRAM
0e80 ; --------------------------------------------------------------------------------------
0e80 0e97 | | .CONST 0x0e97 ; Address of begin
0e81 0004 | | .CONST 0x0004 ; Address of exception handler
0e82 0006 | | .CONST 0x0006 ; Number of locals
0e83 INIT_0e80:
0e83 e003 | | Load 0x0,0x3
0e84 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e85 02c7 | | Declare_Variable Any
0e86 00d8 | | Load_Top At_Offset_0
0e87 1c00 | | Execute_Immediate Run_Utility,0x0
0e88 e003 | | Load 0x0,0x3
0e89 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0e8a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e8b 02c7 | | Declare_Variable Any
0e8c 00d8 | | Load_Top At_Offset_0
0e8d 1c00 | | Execute_Immediate Run_Utility,0x0
0e8e e003 | | Load 0x0,0x3
0e8f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0e90 02c7 | | Declare_Variable Any
0e91 00d8 | | Load_Top At_Offset_0
0e92 1c00 | | Execute_Immediate Run_Utility,0x0
0e93 e003 | | Load 0x0,0x3
0e94 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0e95 029f 118b | | Declare_Subprogram INIT_1188,For_Call
0e97 BODY_0e80:
0e97 e003 | | Load 0x0,0x3
0e98 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0e99 e403 | | Load 0x2,0x3
0e9a 0120 | | Execute Any,Is_Value
0e9b 6804 |h | Jump_Zero 0xea0
0e9c e003 | | Load 0x0,0x3
0e9d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0e9e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e9f 7801 |x | Jump 0xea1
0ea0 e403 | | Load 0x2,0x3
0ea1 e5ff | | Load 0x2,-0x1
0ea2 e003 | | Load 0x0,0x3
0ea3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0ea4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0ea5 c403 | | Store 0x2,0x3
0ea6 005a | Z | Store_Top Discrete,At_Offset_2
0ea7 00db | | Load_Top At_Offset_3
0ea8 e003 | | Load 0x0,0x3
0ea9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0eaa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0eab c402 | | Store 0x2,0x2
0eac e003 | | Load 0x0,0x3
0ead 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0eae 00db | | Load_Top At_Offset_3
0eaf 0120 | | Execute Any,Is_Value
0eb0 6803 |h | Jump_Zero 0xeb4
0eb1 e003 | | Load 0x0,0x3
0eb2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0eb3 7801 |x | Jump 0xeb5
0eb4 00db | | Load_Top At_Offset_3
0eb5 e402 | | Load 0x2,0x2
0eb6 e003 | | Load 0x0,0x3
0eb7 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0eb8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0eb9 c404 | | Store 0x2,0x4
0eba 005a | Z | Store_Top Discrete,At_Offset_2
0ebb 00d9 | | Load_Top At_Offset_1
0ebc 6825 |h% | Jump_Zero 0xee2
0ebd 4801 |H | Short_Literal 0x1
0ebe 4804 |H | Short_Literal 0x4
0ebf e005 | | Load 0x0,0x5
0ec0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ec1 035b | [ | Declare_Type Array,Constrained
0ec2 0337 | 7 | Declare_Variable Array
0ec3 e402 | | Load 0x2,0x2
0ec4 e005 | | Load 0x0,0x5
0ec5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0ec6 4801 |H | Short_Literal 0x1
0ec7 00da | | Load_Top At_Offset_2
0ec8 01d6 | | Execute Vector,Field_Write
0ec9 00db | | Load_Top At_Offset_3
0eca e005 | | Load 0x0,0x5
0ecb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0ecc 4802 |H | Short_Literal 0x2
0ecd 00da | | Load_Top At_Offset_2
0ece 01d6 | | Execute Vector,Field_Write
0ecf 00db | | Load_Top At_Offset_3
0ed0 e005 | | Load 0x0,0x5
0ed1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0ed2 4803 |H | Short_Literal 0x3
0ed3 00da | | Load_Top At_Offset_2
0ed4 01d6 | | Execute Vector,Field_Write
0ed5 00da | | Load_Top At_Offset_2
0ed6 e003 | | Load 0x0,0x3
0ed7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ed8 011c | | Execute Any,Convert_Unchecked
0ed9 1c01 | | Execute_Immediate Run_Utility,0x1
0eda e005 | | Load 0x0,0x5
0edb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0edc 4804 |H | Short_Literal 0x4
0edd 00da | | Load_Top At_Offset_2
0ede 01d6 | | Execute Vector,Field_Write
0edf 601c |` | Indirect_Literal Discrete,0xefc,{0x00000000, 0x0000200a}
0ee0 e002 | | Load 0x0,0x2
0ee1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0ee2 00da | | Load_Top At_Offset_2
0ee3 e003 | | Load 0x0,0x3
0ee4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0ee5 e01f | | Load 0x0,0x1f
0ee6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0ee7 027e | ~ | Execute Discrete,Not_Equal
0ee8 6807 |h | Jump_Zero 0xef0
0ee9 e013 | | Load 0x0,0x13
0eea 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0eeb 600c |` | Indirect_Literal Discrete,0xef8,{0x00007fff, 0xffffffff}
0eec e5ff | | Load 0x2,-0x1
0eed e020 | | Load 0x0,0x20
0eee 180e | | Execute Package,Field_Execute,Field_Number 0xe
0eef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ef0 e013 | | Load 0x0,0x13
0ef1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ef2 6005 |` | Indirect_Literal Discrete,0xef8,{0x00007fff, 0xffffffff}
0ef3 e5ff | | Load 0x2,-0x1
0ef4 8406 | | Call 0x2,0x6
0ef5 e020 | | Load 0x0,0x20
0ef6 180e | | Execute Package,Field_Execute,Field_Number 0xe
0ef7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ef8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0efc 0000 0000 | | .LITERAL {0x00000000, 0x0000200a}
0f00 ; --------------------------------------------------------------------------------------
0f00 ; SUBPROGRAM
0f00 ; --------------------------------------------------------------------------------------
0f00 0f48 | H | .CONST 0x0f48 ; Address of begin
0f01 0ff8 | | .CONST 0x0ff8 ; Address of exception handler
0f02 0016 | | .CONST 0x0016 ; Number of locals
0f03 INIT_0f00:
0f03 00e2 | | Load_Encached Integer_Cache
0f04 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f05 4801 |H | Short_Literal 0x1
0f06 4a00 |J | Short_Literal 0x200
0f07 e001 | | Load 0x0,0x1
0f08 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0f09 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0f0a 035b | [ | Declare_Type Array,Constrained
0f0b 0337 | 7 | Declare_Variable Array
0f0c 00d8 | | Load_Top At_Offset_0
0f0d 1c00 | | Execute_Immediate Run_Utility,0x0
0f0e e019 | | Load 0x0,0x19
0f0f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0f10 02c7 | | Declare_Variable Any
0f11 00d8 | | Load_Top At_Offset_0
0f12 1c00 | | Execute_Immediate Run_Utility,0x0
0f13 e017 | | Load 0x0,0x17
0f14 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f15 e013 | | Load 0x0,0x13
0f16 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f17 02c7 | | Declare_Variable Any
0f18 e013 | | Load 0x0,0x13
0f19 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f1a a406 | | Store_Unchecked 0x2,0x6
0f1b e20d | | Load 0x1,0xd
0f1c 0007 | | Action Break_Optional
0f1d 00e1 | | Load_Encached Boolean_Cache
0f1e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0f1f e004 | | Load 0x0,0x4
0f20 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0f21 0337 | 7 | Declare_Variable Array
0f22 e5ff | | Load 0x2,-0x1
0f23 e001 | | Load 0x0,0x1
0f24 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0f25 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0f26 e001 | | Load 0x0,0x1
0f27 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0f28 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0f29 e014 | | Load 0x0,0x14
0f2a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f2b 00d9 | | Load_Top At_Offset_1
0f2c 01d4 | | Execute Vector,Structure_Write
0f2d 029f 1203 | | Declare_Subprogram INIT_1200,For_Call
0f2f 029f 12a3 | | Declare_Subprogram INIT_12a0,For_Call
0f31 a021 | ! | Store_Unchecked 0x0,0x21
0f32 00c6 | | Action Check_Subprogram_Elaborated
0f33 00e2 | | Load_Encached Integer_Cache
0f34 480b |H | Short_Literal 0xb
0f35 4802 |H | Short_Literal 0x2
0f36 0099 | | Action Reference_Dynamic
0f37 e022 | " | Load 0x0,0x22
0f38 e023 | # | Load 0x0,0x23
0f39 4810 |H | Short_Literal 0x10
0f3a 0007 | | Action Break_Optional
0f3b 029f 1353 | S| Declare_Subprogram INIT_1350,For_Call
0f3d e024 | $ | Load 0x0,0x24
0f3e 190d | | Execute Package,Field_Reference,Field_Number 0xd
0f3f 00c6 | | Action Check_Subprogram_Elaborated
0f40 00e1 | | Load_Encached Boolean_Cache
0f41 4811 |H | Short_Literal 0x11
0f42 4802 |H | Short_Literal 0x2
0f43 0099 | | Action Reference_Dynamic
0f44 e025 | % | Load 0x0,0x25
0f45 e026 | & | Load 0x0,0x26
0f46 4816 |H | Short_Literal 0x16
0f47 0007 | | Action Break_Optional
0f48 BODY_0f00:
0f48 4807 |H | Short_Literal 0x7
0f49 e409 | | Load 0x2,0x9
0f4a 01d7 | | Execute Vector,Field_Read
0f4b c027 | ' | Store 0x0,0x27
0f4c e017 | | Load 0x0,0x17
0f4d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0f4e e404 | | Load 0x2,0x4
0f4f 0120 | | Execute Any,Is_Value
0f50 6804 |h | Jump_Zero 0xf55
0f51 e019 | | Load 0x0,0x19
0f52 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0f53 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f54 7801 |x | Jump 0xf56
0f55 e404 | | Load 0x2,0x4
0f56 e406 | | Load 0x2,0x6
0f57 4800 |H | Short_Literal 0x0
0f58 4800 |H | Short_Literal 0x0
0f59 e5ff | | Load 0x2,-0x1
0f5a 0217 | | Execute Heap_Access,All_Reference
0f5b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
0f5c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0f5d e019 | | Load 0x0,0x19
0f5e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f5f 0162 | b | Execute Variant_Record,Check_In_Type
0f60 e019 | | Load 0x0,0x19
0f61 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0f62 c404 | | Store 0x2,0x4
0f63 c405 | | Store 0x2,0x5
0f64 e405 | | Load 0x2,0x5
0f65 707b |p{ | Jump_Nonzero 0xfe1
0f66 e402 | | Load 0x2,0x2
0f67 e001 | | Load 0x0,0x1
0f68 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0f69 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0f6a 0337 | 7 | Declare_Variable Array
0f6b 4801 |H | Short_Literal 0x1
0f6c 4802 |H | Short_Literal 0x2
0f6d 00da | | Load_Top At_Offset_2
0f6e 01d6 | | Execute Vector,Field_Write
0f6f 4800 |H | Short_Literal 0x0
0f70 e409 | | Load 0x2,0x9
0f71 01d7 | | Execute Vector,Field_Read
0f72 0f00 | | Execute_Immediate Equal,0x0
0f73 4803 |H | Short_Literal 0x3
0f74 00da | | Load_Top At_Offset_2
0f75 01d6 | | Execute Vector,Field_Write
0f76 4803 |H | Short_Literal 0x3
0f77 e409 | | Load 0x2,0x9
0f78 01d7 | | Execute Vector,Field_Read
0f79 4804 |H | Short_Literal 0x4
0f7a 00da | | Load_Top At_Offset_2
0f7b 01d6 | | Execute Vector,Field_Write
0f7c 4800 |H | Short_Literal 0x0
0f7d 4800 |H | Short_Literal 0x0
0f7e 00da | | Load_Top At_Offset_2
0f7f 01d6 | | Execute Vector,Field_Write
0f80 4800 |H | Short_Literal 0x0
0f81 4801 |H | Short_Literal 0x1
0f82 00da | | Load_Top At_Offset_2
0f83 01d6 | | Execute Vector,Field_Write
0f84 4800 |H | Short_Literal 0x0
0f85 4805 |H | Short_Literal 0x5
0f86 00da | | Load_Top At_Offset_2
0f87 01d6 | | Execute Vector,Field_Write
0f88 e001 | | Load 0x0,0x1
0f89 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0f8a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0f8b 01c3 | | Execute Vector,Check_In_Type
0f8c e404 | | Load 0x2,0x4
0f8d e019 | | Load 0x0,0x19
0f8e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0f8f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0f90 e40c | | Load 0x2,0xc
0f91 480d |H | Short_Literal 0xd
0f92 4802 |H | Short_Literal 0x2
0f93 0099 | | Action Reference_Dynamic
0f94 480e |H | Short_Literal 0xe
0f95 4802 |H | Short_Literal 0x2
0f96 0099 | | Action Reference_Dynamic
0f97 8021 | ! | Call 0x0,0x21
0f98 e5ff | | Load 0x2,-0x1
0f99 0217 | | Execute Heap_Access,All_Reference
0f9a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0f9b 6813 |h | Jump_Zero 0xfaf
0f9c e408 | | Load 0x2,0x8
0f9d e404 | | Load 0x2,0x4
0f9e e019 | | Load 0x0,0x19
0f9f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0fa0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0fa1 e412 | | Load 0x2,0x12
0fa2 4813 |H | Short_Literal 0x13
0fa3 4802 |H | Short_Literal 0x2
0fa4 0099 | | Action Reference_Dynamic
0fa5 4814 |H | Short_Literal 0x14
0fa6 4802 |H | Short_Literal 0x2
0fa7 0099 | | Action Reference_Dynamic
0fa8 e024 | $ | Load 0x0,0x24
0fa9 180d | | Execute Package,Field_Execute,Field_Number 0xd
0faa c408 | | Store 0x2,0x8
0fab e408 | | Load 0x2,0x8
0fac e5ff | | Load 0x2,-0x1
0fad 0217 | | Execute Heap_Access,All_Reference
0fae 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0faf e017 | | Load 0x0,0x17
0fb0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0fb1 4800 |H | Short_Literal 0x0
0fb2 4801 |H | Short_Literal 0x1
0fb3 e406 | | Load 0x2,0x6
0fb4 e5ff | | Load 0x2,-0x1
0fb5 0217 | | Execute Heap_Access,All_Reference
0fb6 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
0fb7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0fb8 e019 | | Load 0x0,0x19
0fb9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fba 0162 | b | Execute Variant_Record,Check_In_Type
0fbb e019 | | Load 0x0,0x19
0fbc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0fbd c405 | | Store 0x2,0x5
0fbe 840a | | Call 0x2,0xa
0fbf e5fd | | Load 0x2,-0x3
0fc0 e001 | | Load 0x0,0x1
0fc1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fc2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0fc3 0337 | 7 | Declare_Variable Array
0fc4 4800 |H | Short_Literal 0x0
0fc5 4800 |H | Short_Literal 0x0
0fc6 00da | | Load_Top At_Offset_2
0fc7 01d6 | | Execute Vector,Field_Write
0fc8 4800 |H | Short_Literal 0x0
0fc9 4805 |H | Short_Literal 0x5
0fca 00da | | Load_Top At_Offset_2
0fcb 01d6 | | Execute Vector,Field_Write
0fcc 4804 |H | Short_Literal 0x4
0fcd 4801 |H | Short_Literal 0x1
0fce 4801 |H | Short_Literal 0x1
0fcf 00d9 | | Load_Top At_Offset_1
0fd0 e418 | | Load 0x2,0x18
0fd1 01d6 | | Execute Vector,Field_Write
0fd2 3ffb |? | Loop_Increasing 0xfce
0fd3 e001 | | Load 0x0,0x1
0fd4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fd5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0fd6 01c3 | | Execute Vector,Check_In_Type
0fd7 e5ff | | Load 0x2,-0x1
0fd8 4801 |H | Short_Literal 0x1
0fd9 e402 | | Load 0x2,0x2
0fda e403 | | Load 0x2,0x3
0fdb 01cf | | Execute Vector,Slice_Read
0fdc e001 | | Load 0x0,0x1
0fdd 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0fde 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0fdf c5fd | | Store 0x2,-0x3
0fe0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0fe1 e002 | | Load 0x0,0x2
0fe2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0fe3 4801 |H | Short_Literal 0x1
0fe4 4802 |H | Short_Literal 0x2
0fe5 e005 | | Load 0x0,0x5
0fe6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fe7 035b | [ | Declare_Type Array,Constrained
0fe8 0337 | 7 | Declare_Variable Array
0fe9 e5ff | | Load 0x2,-0x1
0fea 8210 | | Call 0x1,0x10
0feb 4801 |H | Short_Literal 0x1
0fec 00da | | Load_Top At_Offset_2
0fed 01d6 | | Execute Vector,Field_Write
0fee e405 | | Load 0x2,0x5
0fef 825f | _ | Call 0x1,0x5f
0ff0 4802 |H | Short_Literal 0x2
0ff1 00da | | Load_Top At_Offset_2
0ff2 01d6 | | Execute Vector,Field_Write
0ff3 6020 |` | Indirect_Literal Discrete,0x1014,{0x00000000, 0x00002008}
0ff4 e002 | | Load 0x0,0x2
0ff5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0ff6 c5fd | | Store 0x2,-0x3
0ff7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0ff8 TRAP_0f00:
0ff8 4885 |H | Short_Literal 0x85
0ff9 010f | | Execute Exception,Equal
0ffa 6812 |h | Jump_Zero 0x100d
0ffb e002 | | Load 0x0,0x2
0ffc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ffd 4801 |H | Short_Literal 0x1
0ffe 4801 |H | Short_Literal 0x1
0fff e005 | | Load 0x0,0x5
1000 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1001 035b | [ | Declare_Type Array,Constrained
1002 0337 | 7 | Declare_Variable Array
1003 e5ff | | Load 0x2,-0x1
1004 8210 | | Call 0x1,0x10
1005 4801 |H | Short_Literal 0x1
1006 00da | | Load_Top At_Offset_2
1007 01d6 | | Execute Vector,Field_Write
1008 6007 |` | Indirect_Literal Discrete,0x1010,{0x00000000, 0x0000200e}
1009 e002 | | Load 0x0,0x2
100a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
100b c5fd | | Store 0x2,-0x3
100c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
100d 0100 | | Execute Exception,Raise
100e 0000 0000 | | .XXX[0x2]
1010 0000 0000 | | .LITERAL {0x00000000, 0x0000200e}
1014 0000 0000 | | .LITERAL {0x00000000, 0x00002008}
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 1020 | | .CONST 0x1020 ; Address of begin
1019 0004 | | .CONST 0x0004 ; Address of exception handler
101a 0003 | | .CONST 0x0003 ; Number of locals
101b INIT_1018:
101b e003 | | Load 0x0,0x3
101c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
101d e003 | | Load 0x0,0x3
101e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
101f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1020 BODY_1018:
1020 e5ff | | Load 0x2,-0x1
1021 7002 |p | Jump_Nonzero 0x1024
1022 4800 |H | Short_Literal 0x0
1023 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1024 e003 | | Load 0x0,0x3
1025 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1026 e003 | | Load 0x0,0x3
1027 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
1028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1029 6012 |` | Indirect_Literal Discrete,0x103c,{0x00000000, 0x00004000}
102a e013 | | Load 0x0,0x13
102b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
102c 4800 |H | Short_Literal 0x0
102d e5ff | | Load 0x2,-0x1
102e 0217 | | Execute Heap_Access,All_Reference
102f 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
1030 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1031 e003 | | Load 0x0,0x3
1032 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1033 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1034 e003 | | Load 0x0,0x3
1035 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
1036 180f | | Execute Package,Field_Execute,Field_Number 0xf
1037 005a | Z | Store_Top Discrete,At_Offset_2
1038 005a | Z | Store_Top Discrete,At_Offset_2
1039 00d8 | | Load_Top At_Offset_0
103a 0c03 | | Execute_Immediate Greater_Equal,0x3
103b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
103c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1040 ; --------------------------------------------------------------------------------------
1040 ; SUBPROGRAM
1040 ; --------------------------------------------------------------------------------------
1040 1047 | G | .CONST 0x1047 ; Address of begin
1041 0004 | | .CONST 0x0004 ; Address of exception handler
1042 0003 | | .CONST 0x0003 ; Number of locals
1043 INIT_1040:
1043 e00d | | Load 0x0,0xd
1044 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
1045 029f 1363 | c| Declare_Subprogram INIT_1360,For_Call
1047 BODY_1040:
1047 e5ff | | Load 0x2,-0x1
1048 7003 |p | Jump_Nonzero 0x104c
1049 6022 |`" | Indirect_Literal Discrete,0x106c,{0x00000000, 0x00002009}
104a a5fb | | Store_Unchecked 0x2,-0x5
104b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
104c e5ff | | Load 0x2,-0x1
104d 0217 | | Execute Heap_Access,All_Reference
104e 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b
104f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
1050 00cf | | Action Mark_Auxiliary
1051 780e |x | Jump 0x1060
1052 00da | | Load_Top At_Offset_2
1053 0217 | | Execute Heap_Access,All_Reference
1054 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1055 e5fe | | Load 0x2,-0x2
1056 027f | | Execute Discrete,Equal
1057 6803 |h | Jump_Zero 0x105b
1058 00da | | Load_Top At_Offset_2
1059 a5fc | | Store_Unchecked 0x2,-0x4
105a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
105b 00da | | Load_Top At_Offset_2
105c 0217 | | Execute Heap_Access,All_Reference
105d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
105e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
105f 00c9 | | Action Pop_Auxiliary_Loop
1060 00da | | Load_Top At_Offset_2
1061 77f0 |w | Jump_Nonzero 0x1052
1062 00ce | | Action Pop_Auxiliary
1063 e5fd | | Load 0x2,-0x3
1064 6802 |h | Jump_Zero 0x1067
1065 8403 | | Call 0x2,0x3
1066 7802 |x | Jump 0x1069
1067 6004 |` | Indirect_Literal Discrete,0x106c,{0x00000000, 0x00002009}
1068 a5fb | | Store_Unchecked 0x2,-0x5
1069 00d9 | | Load_Top At_Offset_1
106a a5fc | | Store_Unchecked 0x2,-0x4
106b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
106c 0000 0000 | | .LITERAL {0x00000000, 0x00002009}
1070 ; --------------------------------------------------------------------------------------
1070 ; SUBPROGRAM
1070 ; --------------------------------------------------------------------------------------
1070 1083 | | .CONST 0x1083 ; Address of begin
1071 0004 | | .CONST 0x0004 ; Address of exception handler
1072 0004 | | .CONST 0x0004 ; Number of locals
1073 INIT_1070:
1073 e5ff | | Load 0x2,-0x1
1074 8260 | ` | Call 0x1,0x60
1075 00d8 | | Load_Top At_Offset_0
1076 e001 | | Load 0x0,0x1
1077 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1078 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
1079 e5ff | | Load 0x2,-0x1
107a 0217 | | Execute Heap_Access,All_Reference
107b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
107c e010 | | Load 0x0,0x10
107d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
107e 01cc | | Execute Vector,Catenate
107f 0007 | | Action Break_Optional
1080 e003 | | Load 0x0,0x3
1081 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1082 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1083 BODY_1070:
1083 e003 | | Load 0x0,0x3
1084 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1085 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1086 e402 | | Load 0x2,0x2
1087 0120 | | Execute Any,Is_Value
1088 6803 |h | Jump_Zero 0x108c
1089 e003 | | Load 0x0,0x3
108a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
108b 7801 |x | Jump 0x108d
108c e402 | | Load 0x2,0x2
108d 604a |`J | Indirect_Literal Discrete,0x10d8,{0x00000000, 0x00004000}
108e e013 | | Load 0x0,0x13
108f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1090 e028 | ( | Load 0x0,0x28
1091 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1092 e003 | | Load 0x0,0x3
1093 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1094 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1095 e603 | | Load 0x3,0x3
1096 e003 | | Load 0x0,0x3
1097 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1098 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
1099 c402 | | Store 0x2,0x2
109a 0059 | Y | Store_Top Discrete,At_Offset_1
109b 00d8 | | Load_Top At_Offset_0
109c 460e |F | Jump_Case 0xf
109d 7822 |x" | Jump 0x10c0 ; case 0x0
109e 780d |x | Jump 0x10ac ; case 0x1
109f 780c |x | Jump 0x10ac ; case 0x2
10a0 782c |x, | Jump 0x10cd ; case 0x3
10a1 780a |x | Jump 0x10ac ; case 0x4
10a2 7809 |x | Jump 0x10ac ; case 0x5
10a3 7808 |x | Jump 0x10ac ; case 0x6
10a4 7807 |x | Jump 0x10ac ; case 0x7
10a5 7806 |x | Jump 0x10ac ; case 0x8
10a6 7805 |x | Jump 0x10ac ; case 0x9
10a7 7804 |x | Jump 0x10ac ; case 0xa
10a8 7803 |x | Jump 0x10ac ; case 0xb
10a9 7802 |x | Jump 0x10ac ; case 0xc
10aa 7801 |x | Jump 0x10ac ; case 0xd
10ab 7800 |x | Jump 0x10ac ; case 0xe
10ac e002 | | Load 0x0,0x2
10ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10ae 4801 |H | Short_Literal 0x1
10af 4801 |H | Short_Literal 0x1
10b0 e005 | | Load 0x0,0x5
10b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
10b2 035b | [ | Declare_Type Array,Constrained
10b3 0337 | 7 | Declare_Variable Array
10b4 00db | | Load_Top At_Offset_3
10b5 00db | | Load_Top At_Offset_3
10b6 e005 | | Load 0x0,0x5
10b7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
10b8 4801 |H | Short_Literal 0x1
10b9 00da | | Load_Top At_Offset_2
10ba 01d6 | | Execute Vector,Field_Write
10bb 6018 |` | Indirect_Literal Discrete,0x10d4,{0x00000000, 0x00002002}
10bc e002 | | Load 0x0,0x2
10bd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
10be c5fd | | Store 0x2,-0x3
10bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
10c0 0092 1581 | | Action Push_String_Extended,0x1581 ; "Created directory object for \x22"
10c2 00da | | Load_Top At_Offset_2
10c3 01cc | | Execute Vector,Catenate
10c4 0092 1582 | | Action Push_String_Extended,0x1582 ; "\x22."
10c6 01cc | | Execute Vector,Catenate
10c7 8011 | | Call 0x0,0x11
10c8 4801 |H | Short_Literal 0x1
10c9 e5ff | | Load 0x2,-0x1
10ca 0217 | | Execute Heap_Access,All_Reference
10cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
10cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
10cd 4800 |H | Short_Literal 0x0
10ce e5ff | | Load 0x2,-0x1
10cf 0217 | | Execute Heap_Access,All_Reference
10d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
10d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
10d2 0000 0000 | | .XXX[0x2]
10d4 0000 0000 | | .LITERAL {0x00000000, 0x00002002}
10d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
10dc 0000 0000 | | .BLANK 0000[0x4]
10e0 ; --------------------------------------------------------------------------------------
10e0 ; SUBPROGRAM
10e0 ; --------------------------------------------------------------------------------------
10e0 10e9 | | .CONST 0x10e9 ; Address of begin
10e1 0004 | | .CONST 0x0004 ; Address of exception handler
10e2 0004 | | .CONST 0x0004 ; Number of locals
10e3 INIT_10e0:
10e3 e5fe | | Load 0x2,-0x2
10e4 e015 | | Load 0x0,0x15
10e5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
10e6 e00d | | Load 0x0,0xd
10e7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
10e8 00e1 | | Load_Encached Boolean_Cache
10e9 BODY_10e0:
10e9 00cf | | Action Mark_Auxiliary
10ea 00db | | Load_Top At_Offset_3
10eb 01d9 | | Execute Vector,Reverse_Bounds
10ec 0263 | c | Execute Discrete,Above_Bound
10ed 708f |p | Jump_Nonzero 0x117d
10ee e407 | | Load 0x2,0x7
10ef e00d | | Load 0x0,0xd
10f0 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
10f1 a404 | | Store_Unchecked 0x2,0x4
10f2 00d8 | | Load_Top At_Offset_0
10f3 e602 | | Load 0x3,0x2
10f4 01d7 | | Execute Vector,Field_Read
10f5 a402 | | Store_Unchecked 0x2,0x2
10f6 e402 | | Load 0x2,0x2
10f7 e015 | | Load 0x0,0x15
10f8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
10f9 7025 |p% | Jump_Nonzero 0x111f
10fa e002 | | Load 0x0,0x2
10fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
10fc 4801 |H | Short_Literal 0x1
10fd 4804 |H | Short_Literal 0x4
10fe e005 | | Load 0x0,0x5
10ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1100 035b | [ | Declare_Type Array,Constrained
1101 0337 | 7 | Declare_Variable Array
1102 00da | | Load_Top At_Offset_2
1103 e005 | | Load 0x0,0x5
1104 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1105 4801 |H | Short_Literal 0x1
1106 00da | | Load_Top At_Offset_2
1107 01d6 | | Execute Vector,Field_Write
1108 e402 | | Load 0x2,0x2
1109 e015 | | Load 0x0,0x15
110a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
110b 4802 |H | Short_Literal 0x2
110c 00da | | Load_Top At_Offset_2
110d 01d6 | | Execute Vector,Field_Write
110e e5ff | | Load 0x2,-0x1
110f 8210 | | Call 0x1,0x10
1110 4803 |H | Short_Literal 0x3
1111 00da | | Load_Top At_Offset_2
1112 01d6 | | Execute Vector,Field_Write
1113 e5fd | | Load 0x2,-0x3
1114 e014 | | Load 0x0,0x14
1115 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1116 4804 |H | Short_Literal 0x4
1117 00da | | Load_Top At_Offset_2
1118 01d6 | | Execute Vector,Field_Write
1119 606a |`j | Indirect_Literal Discrete,0x1184,{0x00000000, 0x0000200b}
111a e002 | | Load 0x0,0x2
111b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
111c c5fc | | Store 0x2,-0x4
111d 00cc | | Action Pop_Block
111e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
111f e402 | | Load 0x2,0x2
1120 e015 | | Load 0x0,0x15
1121 1816 | | Execute Package,Field_Execute,Field_Number 0x16
1122 e404 | | Load 0x2,0x4
1123 0217 | | Execute Heap_Access,All_Reference
1124 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1125 e402 | | Load 0x2,0x2
1126 e015 | | Load 0x0,0x15
1127 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1128 e404 | | Load 0x2,0x4
1129 0217 | | Execute Heap_Access,All_Reference
112a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
112b e404 | | Load 0x2,0x4
112c 0219 | | Execute Heap_Access,All_Read
112d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
112e 00e1 | | Load_Encached Boolean_Cache
112f 00d9 | | Load_Top At_Offset_1
1130 e5ff | | Load 0x2,-0x1
1131 e006 | | Load 0x0,0x6
1132 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1133 e402 | | Load 0x2,0x2
1134 e015 | | Load 0x0,0x15
1135 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1136 e005 | | Load 0x0,0x5
1137 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
1138 00d1 | | Pop_Control Pop_Count_1
1139 c604 | | Store 0x3,0x4
113a 00d1 | | Pop_Control Pop_Count_1
113b 00db | | Load_Top At_Offset_3
113c 6819 |h | Jump_Zero 0x1156
113d e403 | | Load 0x2,0x3
113e 0217 | | Execute Heap_Access,All_Reference
113f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1140 7009 |p | Jump_Nonzero 0x114a
1141 e404 | | Load 0x2,0x4
1142 e403 | | Load 0x2,0x3
1143 0217 | | Execute Heap_Access,All_Reference
1144 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1145 4801 |H | Short_Literal 0x1
1146 e403 | | Load 0x2,0x3
1147 0217 | | Execute Heap_Access,All_Reference
1148 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
1149 782f |x/ | Jump 0x1179
114a e404 | | Load 0x2,0x4
114b e603 | | Load 0x3,0x3
114c 0217 | | Execute Heap_Access,All_Reference
114d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
114e e403 | | Load 0x2,0x3
114f 0217 | | Execute Heap_Access,All_Reference
1150 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1151 0a01 | | Execute_Immediate Plus,0x1
1152 e403 | | Load 0x2,0x3
1153 0217 | | Execute Heap_Access,All_Reference
1154 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
1155 7823 |x# | Jump 0x1179
1156 e002 | | Load 0x0,0x2
1157 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1158 4801 |H | Short_Literal 0x1
1159 4804 |H | Short_Literal 0x4
115a e005 | | Load 0x0,0x5
115b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
115c 035b | [ | Declare_Type Array,Constrained
115d 0337 | 7 | Declare_Variable Array
115e 00da | | Load_Top At_Offset_2
115f e005 | | Load 0x0,0x5
1160 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1161 4801 |H | Short_Literal 0x1
1162 00da | | Load_Top At_Offset_2
1163 01d6 | | Execute Vector,Field_Write
1164 e402 | | Load 0x2,0x2
1165 e015 | | Load 0x0,0x15
1166 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1167 4802 |H | Short_Literal 0x2
1168 00da | | Load_Top At_Offset_2
1169 01d6 | | Execute Vector,Field_Write
116a e5ff | | Load 0x2,-0x1
116b 8210 | | Call 0x1,0x10
116c 4803 |H | Short_Literal 0x3
116d 00da | | Load_Top At_Offset_2
116e 01d6 | | Execute Vector,Field_Write
116f e5fd | | Load 0x2,-0x3
1170 e014 | | Load 0x0,0x14
1171 181c | | Execute Package,Field_Execute,Field_Number 0x1c
1172 4804 |H | Short_Literal 0x4
1173 00da | | Load_Top At_Offset_2
1174 01d6 | | Execute Vector,Field_Write
1175 600a |` | Indirect_Literal Discrete,0x1180,{0x00000000, 0x0000200d}
1176 e002 | | Load 0x0,0x2
1177 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
1178 c5fc | | Store 0x2,-0x4
1179 e404 | | Load 0x2,0x4
117a a603 | | Store_Unchecked 0x3,0x3
117b 00c8 | | Action Pop_Auxiliary_Range
117c 3f71 |?q | Loop_Increasing 0x10ee
117d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
117e 0000 0000 | | .XXX[0x2]
1180 0000 0000 | | .LITERAL {0x00000000, 0x0000200d}
1184 0000 0000 | | .LITERAL {0x00000000, 0x0000200b}
1188 ; --------------------------------------------------------------------------------------
1188 ; SUBPROGRAM
1188 ; --------------------------------------------------------------------------------------
1188 11a4 | | .CONST 0x11a4 ; Address of begin
1189 0004 | | .CONST 0x0004 ; Address of exception handler
118a 0007 | | .CONST 0x0007 ; Number of locals
118b INIT_1188:
118b e003 | | Load 0x0,0x3
118c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
118d 02c7 | | Declare_Variable Any
118e 00d8 | | Load_Top At_Offset_0
118f 1c00 | | Execute_Immediate Run_Utility,0x0
1190 e003 | | Load 0x0,0x3
1191 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1192 02c7 | | Declare_Variable Any
1193 00d8 | | Load_Top At_Offset_0
1194 1c00 | | Execute_Immediate Run_Utility,0x0
1195 e003 | | Load 0x0,0x3
1196 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1197 02c7 | | Declare_Variable Any
1198 00d8 | | Load_Top At_Offset_0
1199 1c00 | | Execute_Immediate Run_Utility,0x0
119a e003 | | Load 0x0,0x3
119b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
119c 02c7 | | Declare_Variable Any
119d 00d8 | | Load_Top At_Offset_0
119e 1c00 | | Execute_Immediate Run_Utility,0x0
119f e003 | | Load 0x0,0x3
11a0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
11a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11a2 029f 13bb | | Declare_Subprogram INIT_13b8,For_Call
11a4 BODY_1188:
11a4 e003 | | Load 0x0,0x3
11a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11a6 00db | | Load_Top At_Offset_3
11a7 0120 | | Execute Any,Is_Value
11a8 6803 |h | Jump_Zero 0x11ac
11a9 e003 | | Load 0x0,0x3
11aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11ab 7801 |x | Jump 0x11ad
11ac 00db | | Load_Top At_Offset_3
11ad e404 | | Load 0x2,0x4
11ae e003 | | Load 0x0,0x3
11af 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
11b0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
11b1 c605 | | Store 0x3,0x5
11b2 c405 | | Store 0x2,0x5
11b3 e405 | | Load 0x2,0x5
11b4 6825 |h% | Jump_Zero 0x11da
11b5 4801 |H | Short_Literal 0x1
11b6 4804 |H | Short_Literal 0x4
11b7 e005 | | Load 0x0,0x5
11b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
11b9 035b | [ | Declare_Type Array,Constrained
11ba 0337 | 7 | Declare_Variable Array
11bb e402 | | Load 0x2,0x2
11bc e005 | | Load 0x0,0x5
11bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
11be 4801 |H | Short_Literal 0x1
11bf 00da | | Load_Top At_Offset_2
11c0 01d6 | | Execute Vector,Field_Write
11c1 e404 | | Load 0x2,0x4
11c2 e005 | | Load 0x0,0x5
11c3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
11c4 4802 |H | Short_Literal 0x2
11c5 00da | | Load_Top At_Offset_2
11c6 01d6 | | Execute Vector,Field_Write
11c7 e602 | | Load 0x3,0x2
11c8 e005 | | Load 0x0,0x5
11c9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
11ca 4803 |H | Short_Literal 0x3
11cb 00da | | Load_Top At_Offset_2
11cc 01d6 | | Execute Vector,Field_Write
11cd e405 | | Load 0x2,0x5
11ce e003 | | Load 0x0,0x3
11cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
11d0 011c | | Execute Any,Convert_Unchecked
11d1 1c01 | | Execute_Immediate Run_Utility,0x1
11d2 e005 | | Load 0x0,0x5
11d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
11d4 4804 |H | Short_Literal 0x4
11d5 00da | | Load_Top At_Offset_2
11d6 01d6 | | Execute Vector,Field_Write
11d7 6024 |`$ | Indirect_Literal Discrete,0x11fc,{0x00000000, 0x0000200a}
11d8 e002 | | Load 0x0,0x2
11d9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
11da 00cf | | Action Mark_Auxiliary
11db e5fe | | Load 0x2,-0x2
11dc 01dc | | Execute Vector,Last
11dd e5fe | | Load 0x2,-0x2
11de 01dd | | Execute Vector,First
11df 0263 | c | Execute Discrete,Above_Bound
11e0 7010 |p | Jump_Nonzero 0x11f1
11e1 e605 | | Load 0x3,0x5
11e2 00d9 | | Load_Top At_Offset_1
11e3 e5fe | | Load 0x2,-0x2
11e4 01d5 | | Execute Vector,Field_Reference
11e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
11e6 012f | / | Execute Any,Equal
11e7 6807 |h | Jump_Zero 0x11ef
11e8 00d8 | | Load_Top At_Offset_0
11e9 e5fe | | Load 0x2,-0x2
11ea 01d5 | | Execute Vector,Field_Reference
11eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
11ec c602 | | Store 0x3,0x2
11ed 00d2 | | Pop_Control Pop_Count_2
11ee 7802 |x | Jump 0x11f1
11ef 00c8 | | Action Pop_Auxiliary_Range
11f0 3ff0 |? | Loop_Increasing 0x11e1
11f1 00ce | | Action Pop_Auxiliary
11f2 e602 | | Load 0x3,0x2
11f3 e003 | | Load 0x0,0x3
11f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
11f5 7002 |p | Jump_Nonzero 0x11f8
11f6 8607 | | Call 0x3,0x7
11f7 7802 |x | Jump 0x11fa
11f8 00ec | | Load_Encached Diana_Tree_Cache
11f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
11fa 0831 | 1 | Execute_Immediate Raise,0x31
11fb 0000 | | .XXX[0x1]
11fc 0000 0000 | | .LITERAL {0x00000000, 0x0000200a}
1200 ; --------------------------------------------------------------------------------------
1200 ; SUBPROGRAM
1200 ; --------------------------------------------------------------------------------------
1200 1205 | | .CONST 0x1205 ; Address of begin
1201 0004 | | .CONST 0x0004 ; Address of exception handler
1202 0002 | | .CONST 0x0002 ; Number of locals
1203 INIT_1200:
1203 e20d | | Load 0x1,0xd
1204 0007 | | Action Break_Optional
1205 BODY_1200:
1205 e5ff | | Load 0x2,-0x1
1206 0217 | | Execute Heap_Access,All_Reference
1207 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
1208 7092 |p | Jump_Nonzero 0x129b
1209 e5ff | | Load 0x2,-0x1
120a 0217 | | Execute Heap_Access,All_Reference
120b 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
120c e001 | | Load 0x0,0x1
120d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
120e 0216 | | Execute Heap_Access,Convert
120f a407 | | Store_Unchecked 0x2,0x7
1210 e5ff | | Load 0x2,-0x1
1211 0031 | 1 | Store_Top Heap_Access,At_Offset_1
1212 00cf | | Action Mark_Auxiliary
1213 783c |x< | Jump 0x1250
1214 e027 | ' | Load 0x0,0x27
1215 680b |h | Jump_Zero 0x1221
1216 0092 1583 | | Action Push_String_Extended,0x1583 ; "Structural_Suppliers (Parent) "
1218 e407 | | Load 0x2,0x7
1219 0217 | | Execute Heap_Access,All_Reference
121a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
121b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
121c e003 | | Load 0x0,0x3
121d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
121e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
121f 01cc | | Execute Vector,Catenate
1220 8011 | | Call 0x0,0x11
1221 e402 | | Load 0x2,0x2
1222 0a01 | | Execute_Immediate Plus,0x1
1223 c402 | | Store 0x2,0x2
1224 e407 | | Load 0x2,0x7
1225 0217 | | Execute Heap_Access,All_Reference
1226 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
1227 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1228 e402 | | Load 0x2,0x2
1229 e403 | | Load 0x2,0x3
122a 01d5 | | Execute Vector,Field_Reference
122b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
122c e402 | | Load 0x2,0x2
122d e403 | | Load 0x2,0x3
122e 01d5 | | Execute Vector,Field_Reference
122f 00d8 | | Load_Top At_Offset_0
1230 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1231 00d8 | | Load_Top At_Offset_0
1232 0335 | 5 | Declare_Variable Array,Duplicate
1233 00cd | | Action Spare6_Action
1234 4805 |H | Short_Literal 0x5
1235 4800 |H | Short_Literal 0x0
1236 4800 |H | Short_Literal 0x0
1237 00d9 | | Load_Top At_Offset_1
1238 e606 | | Load 0x3,0x6
1239 01d6 | | Execute Vector,Field_Write
123a 3ffb |? | Loop_Increasing 0x1236
123b 00cd | | Action Spare6_Action
123c 00d9 | | Load_Top At_Offset_1
123d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
123e 00d1 | | Pop_Control Pop_Count_1
123f 4801 |H | Short_Literal 0x1
1240 4801 |H | Short_Literal 0x1
1241 e402 | | Load 0x2,0x2
1242 e403 | | Load 0x2,0x3
1243 01d5 | | Execute Vector,Field_Reference
1244 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1245 01d6 | | Execute Vector,Field_Write
1246 e407 | | Load 0x2,0x7
1247 0032 | 2 | Store_Top Heap_Access,At_Offset_2
1248 e407 | | Load 0x2,0x7
1249 0217 | | Execute Heap_Access,All_Reference
124a 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
124b e001 | | Load 0x0,0x1
124c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
124d 0216 | | Execute Heap_Access,Convert
124e a407 | | Store_Unchecked 0x2,0x7
124f 00c9 | | Action Pop_Auxiliary_Loop
1250 e407 | | Load 0x2,0x7
1251 820f | | Call 0x1,0xf
1252 7004 |p | Jump_Nonzero 0x1257
1253 e407 | | Load 0x2,0x7
1254 0217 | | Execute Heap_Access,All_Reference
1255 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
1256 6fbd |o | Jump_Zero 0x1214
1257 00ce | | Action Pop_Auxiliary
1258 00d8 | | Load_Top At_Offset_0
1259 0217 | | Execute Heap_Access,All_Reference
125a 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
125b 683f |h? | Jump_Zero 0x129b
125c 00d8 | | Load_Top At_Offset_0
125d 0217 | | Execute Heap_Access,All_Reference
125e 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
125f e001 | | Load 0x0,0x1
1260 1b10 | | Execute Package,Field_Read,Field_Number 0x10
1261 0216 | | Execute Heap_Access,Convert
1262 e5ff | | Load 0x2,-0x1
1263 021e | | Execute Heap_Access,Maximum
1264 6836 |h6 | Jump_Zero 0x129b
1265 e027 | ' | Load 0x0,0x27
1266 680d |h | Jump_Zero 0x1274
1267 0092 1584 | | Action Push_String_Extended,0x1584 ; "Structural_Suppliers (Other) "
1269 00d9 | | Load_Top At_Offset_1
126a 0217 | | Execute Heap_Access,All_Reference
126b 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
126c 0217 | | Execute Heap_Access,All_Reference
126d 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
126e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
126f e003 | | Load 0x0,0x3
1270 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1271 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1272 01cc | | Execute Vector,Catenate
1273 8011 | | Call 0x0,0x11
1274 e402 | | Load 0x2,0x2
1275 0a01 | | Execute_Immediate Plus,0x1
1276 c402 | | Store 0x2,0x2
1277 00d8 | | Load_Top At_Offset_0
1278 0217 | | Execute Heap_Access,All_Reference
1279 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
127a 0217 | | Execute Heap_Access,All_Reference
127b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
127c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
127d e402 | | Load 0x2,0x2
127e e403 | | Load 0x2,0x3
127f 01d5 | | Execute Vector,Field_Reference
1280 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
1281 e402 | | Load 0x2,0x2
1282 e403 | | Load 0x2,0x3
1283 01d5 | | Execute Vector,Field_Reference
1284 00d8 | | Load_Top At_Offset_0
1285 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1286 00d8 | | Load_Top At_Offset_0
1287 0335 | 5 | Declare_Variable Array,Duplicate
1288 00cd | | Action Spare6_Action
1289 4805 |H | Short_Literal 0x5
128a 4800 |H | Short_Literal 0x0
128b 4800 |H | Short_Literal 0x0
128c 00d9 | | Load_Top At_Offset_1
128d e605 | | Load 0x3,0x5
128e 01d6 | | Execute Vector,Field_Write
128f 3ffb |? | Loop_Increasing 0x128b
1290 00cd | | Action Spare6_Action
1291 00d9 | | Load_Top At_Offset_1
1292 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1293 00d1 | | Pop_Control Pop_Count_1
1294 4801 |H | Short_Literal 0x1
1295 4801 |H | Short_Literal 0x1
1296 e402 | | Load 0x2,0x2
1297 e403 | | Load 0x2,0x3
1298 01d5 | | Execute Vector,Field_Reference
1299 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
129a 01d6 | | Execute Vector,Field_Write
129b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
129c 0000 0000 | | .BLANK 0000[0x4]
12a0 ; --------------------------------------------------------------------------------------
12a0 ; SUBPROGRAM
12a0 ; --------------------------------------------------------------------------------------
12a0 12c2 | | .CONST 0x12c2 ; Address of begin
12a1 0004 | | .CONST 0x0004 ; Address of exception handler
12a2 0009 | | .CONST 0x0009 ; Number of locals
12a3 INIT_12a0:
12a3 00ec | | Load_Encached Diana_Tree_Cache
12a4 02c7 | | Declare_Variable Any
12a5 00d8 | | Load_Top At_Offset_0
12a6 1c00 | | Execute_Immediate Run_Utility,0x0
12a7 e003 | | Load 0x0,0x3
12a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12a9 02c7 | | Declare_Variable Any
12aa e003 | | Load 0x0,0x3
12ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
12ac a603 | | Store_Unchecked 0x3,0x3
12ad e003 | | Load 0x0,0x3
12ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
12af 1b0f | | Execute Package,Field_Read,Field_Number 0xf
12b0 e003 | | Load 0x0,0x3
12b1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
12b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12b3 02c7 | | Declare_Variable Any
12b4 00d8 | | Load_Top At_Offset_0
12b5 1c00 | | Execute_Immediate Run_Utility,0x0
12b6 e003 | | Load 0x0,0x3
12b7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
12b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12b9 02c7 | | Declare_Variable Any
12ba 00d8 | | Load_Top At_Offset_0
12bb 1c00 | | Execute_Immediate Run_Utility,0x0
12bc e003 | | Load 0x0,0x3
12bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12be 029f 1463 | c| Declare_Subprogram INIT_1460,For_Call
12c0 029f 148b | | Declare_Subprogram INIT_1488,For_Call
12c2 BODY_12a0:
12c2 e7fe | | Load 0x3,-0x2
12c3 4605 |F | Jump_Case 0x6
12c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
12c5 7804 |x | Jump 0x12ca ; case 0x1
12c6 7803 |x | Jump 0x12ca ; case 0x2
12c7 7805 |x | Jump 0x12cd ; case 0x3
12c8 7804 |x | Jump 0x12cd ; case 0x4
12c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5
12ca e7ff | | Load 0x3,-0x1
12cb c602 | | Store 0x3,0x2
12cc 7804 |x | Jump 0x12d1
12cd e5fe | | Load 0x2,-0x2
12ce e7ff | | Load 0x3,-0x1
12cf 8274 | t | Call 0x1,0x74
12d0 c602 | | Store 0x3,0x2
12d1 e602 | | Load 0x3,0x2
12d2 6816 |h | Jump_Zero 0x12e9
12d3 e003 | | Load 0x0,0x3
12d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12d5 e605 | | Load 0x3,0x5
12d6 0120 | | Execute Any,Is_Value
12d7 6804 |h | Jump_Zero 0x12dc
12d8 e003 | | Load 0x0,0x3
12d9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
12da 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12db 7801 |x | Jump 0x12dd
12dc e605 | | Load 0x3,0x5
12dd e602 | | Load 0x3,0x2
12de e003 | | Load 0x0,0x3
12df 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
12e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
12e1 c605 | | Store 0x3,0x5
12e2 005b | [ | Store_Top Discrete,At_Offset_3
12e3 e605 | | Load 0x3,0x5
12e4 e003 | | Load 0x0,0x3
12e5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
12e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
12e7 c603 | | Store 0x3,0x3
12e8 7830 |x0 | Jump 0x1319
12e9 e7fe | | Load 0x3,-0x2
12ea 0f03 | | Execute_Immediate Equal,0x3
12eb e7fe | | Load 0x3,-0x2
12ec 0f04 | | Execute_Immediate Equal,0x4
12ed 0278 | x | Execute Discrete,Or
12ee 682a |h* | Jump_Zero 0x1319
12ef e003 | | Load 0x0,0x3
12f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
12f1 e605 | | Load 0x3,0x5
12f2 0120 | | Execute Any,Is_Value
12f3 6804 |h | Jump_Zero 0x12f8
12f4 e003 | | Load 0x0,0x3
12f5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
12f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12f7 7801 |x | Jump 0x12f9
12f8 e605 | | Load 0x3,0x5
12f9 e7ff | | Load 0x3,-0x1
12fa e003 | | Load 0x0,0x3
12fb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
12fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
12fd c605 | | Store 0x3,0x5
12fe 005b | [ | Store_Top Discrete,At_Offset_3
12ff e003 | | Load 0x0,0x3
1300 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1301 e606 | | Load 0x3,0x6
1302 0120 | | Execute Any,Is_Value
1303 6804 |h | Jump_Zero 0x1308
1304 e003 | | Load 0x0,0x3
1305 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1306 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1307 7801 |x | Jump 0x1309
1308 e606 | | Load 0x3,0x6
1309 6042 |`B | Indirect_Literal Discrete,0x134c,{0x00000000, 0x00004000}
130a e013 | | Load 0x0,0x13
130b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
130c e605 | | Load 0x3,0x5
130d e003 | | Load 0x0,0x3
130e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
130f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
1310 c606 | | Store 0x3,0x6
1311 005b | [ | Store_Top Discrete,At_Offset_3
1312 00db | | Load_Top At_Offset_3
1313 e003 | | Load 0x0,0x3
1314 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1315 1812 | | Execute Package,Field_Execute,Field_Number 0x12
1316 c603 | | Store 0x3,0x3
1317 00db | | Load_Top At_Offset_3
1318 8609 | | Call 0x3,0x9
1319 e603 | | Load 0x3,0x3
131a e003 | | Load 0x0,0x3
131b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
131c 702c |p, | Jump_Nonzero 0x1349
131d e027 | ' | Load 0x0,0x27
131e 6808 |h | Jump_Zero 0x1327
131f 0092 1585 | | Action Push_String_Extended,0x1585 ; "Add_Supplier "
1321 e603 | | Load 0x3,0x3
1322 e003 | | Load 0x0,0x3
1323 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
1324 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
1325 01cc | | Execute Vector,Catenate
1326 8011 | | Call 0x0,0x11
1327 00cf | | Action Mark_Auxiliary
1328 e402 | | Load 0x2,0x2
1329 4801 |H | Short_Literal 0x1
132a 0263 | c | Execute Discrete,Above_Bound
132b 701a |p | Jump_Nonzero 0x1346
132c 00d8 | | Load_Top At_Offset_0
132d e403 | | Load 0x2,0x3
132e 01d5 | | Execute Vector,Field_Reference
132f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1330 e603 | | Load 0x3,0x3
1331 012f | / | Execute Any,Equal
1332 6811 |h | Jump_Zero 0x1344
1333 e027 | ' | Load 0x0,0x27
1334 6807 |h | Jump_Zero 0x133c
1335 0092 1586 | | Action Push_String_Extended,0x1586 ; "Changing Kinds for object"
1337 00d9 | | Load_Top At_Offset_1
1338 00e0 | | Load_Encached Standard_Cache
1339 1818 | | Execute Package,Field_Execute,Field_Number 0x18
133a 01cc | | Execute Vector,Catenate
133b 8011 | | Call 0x0,0x11
133c 4801 |H | Short_Literal 0x1
133d e7fe | | Load 0x3,-0x2
133e 00da | | Load_Top At_Offset_2
133f e403 | | Load 0x2,0x3
1340 01d5 | | Execute Vector,Field_Reference
1341 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1342 01d6 | | Execute Vector,Field_Write
1343 4504 |E | Exit_Suprogram New_Top_Offset 0x4
1344 00c8 | | Action Pop_Auxiliary_Range
1345 3fe6 |? | Loop_Increasing 0x132c
1346 00ce | | Action Pop_Auxiliary
1347 e603 | | Load 0x3,0x3
1348 8608 | | Call 0x3,0x8
1349 4504 |E | Exit_Suprogram New_Top_Offset 0x4
134a 0000 0000 | | .XXX[0x2]
134c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 1353 | S | .CONST 0x1353 ; Address of begin
1351 0004 | | .CONST 0x0004 ; Address of exception handler
1352 0001 | | .CONST 0x0001 ; Number of locals
1353 BODY_1350:
1353 INIT_1350:
1353 00da | | Load_Top At_Offset_2
1354 0145 | E | Execute Heap_Access,Diana_Tree_Kind
1355 0f41 | A | Execute_Immediate Equal,0x41
1356 6802 |h | Jump_Zero 0x1359
1357 4801 |H | Short_Literal 0x1
1358 a7fe | | Store_Unchecked 0x3,-0x2
1359 4502 |E | Exit_Suprogram New_Top_Offset 0x2
135a 0000 0000 | | .BLANK 0000[0x6]
1360 ; --------------------------------------------------------------------------------------
1360 ; SUBPROGRAM
1360 ; --------------------------------------------------------------------------------------
1360 1367 | g | .CONST 0x1367 ; Address of begin
1361 0004 | | .CONST 0x0004 ; Address of exception handler
1362 0002 | | .CONST 0x0002 ; Number of locals
1363 INIT_1360:
1363 e5ff | | Load 0x2,-0x1
1364 e001 | | Load 0x0,0x1
1365 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1366 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
1367 BODY_1360:
1367 0092 1587 | | Action Push_String_Extended,0x1587 ; "Creating Machine_Data record."
1369 8011 | | Call 0x0,0x11
136a e5ff | | Load 0x2,-0x1
136b e00d | | Load 0x0,0xd
136c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
136d a402 | | Store_Unchecked 0x2,0x2
136e e5fe | | Load 0x2,-0x2
136f e402 | | Load 0x2,0x2
1370 0217 | | Execute Heap_Access,All_Reference
1371 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
1372 e5ff | | Load 0x2,-0x1
1373 0217 | | Execute Heap_Access,All_Reference
1374 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b
1375 e402 | | Load 0x2,0x2
1376 0217 | | Execute Heap_Access,All_Reference
1377 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
1378 4800 |H | Short_Literal 0x0
1379 e402 | | Load 0x2,0x2
137a 0217 | | Execute Heap_Access,All_Reference
137b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
137c 4800 |H | Short_Literal 0x0
137d e402 | | Load 0x2,0x2
137e 0217 | | Execute Heap_Access,All_Reference
137f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
1380 4801 |H | Short_Literal 0x1
1381 e402 | | Load 0x2,0x2
1382 0217 | | Execute Heap_Access,All_Reference
1383 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
1384 00d8 | | Load_Top At_Offset_0
1385 e001 | | Load 0x0,0x1
1386 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1387 1886 | | Execute Package,Field_Execute,Field_Number 0x86
1388 7016 |p | Jump_Nonzero 0x139f
1389 e5fe | | Load 0x2,-0x2
138a 00d9 | | Load_Top At_Offset_1
138b e001 | | Load 0x0,0x1
138c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
138d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
138e 6810 |h | Jump_Zero 0x139f
138f e402 | | Load 0x2,0x2
1390 0219 | | Execute Heap_Access,All_Read
1391 00d8 | | Load_Top At_Offset_0
1392 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1393 00da | | Load_Top At_Offset_2
1394 e5fe | | Load 0x2,-0x2
1395 e602 | | Load 0x3,0x2
1396 e001 | | Load 0x0,0x1
1397 1b16 | | Execute Package,Field_Read,Field_Number 0x16
1398 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
1399 e016 | | Load 0x0,0x16
139a 180e | | Execute Package,Field_Execute,Field_Number 0xe
139b 00d9 | | Load_Top At_Offset_1
139c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
139d 00d1 | | Pop_Control Pop_Count_1
139e 7805 |x | Jump 0x13a4
139f e00d | | Load 0x0,0xd
13a0 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
13a1 e402 | | Load 0x2,0x2
13a2 0217 | | Execute Heap_Access,All_Reference
13a3 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
13a4 4800 |H | Short_Literal 0x0
13a5 e402 | | Load 0x2,0x2
13a6 0217 | | Execute Heap_Access,All_Reference
13a7 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
13a8 e004 | | Load 0x0,0x4
13a9 180f | | Execute Package,Field_Execute,Field_Number 0xf
13aa e402 | | Load 0x2,0x2
13ab 0217 | | Execute Heap_Access,All_Reference
13ac 380a |8 | Execute Record,Field_Write,Field_Number 0xa
13ad e004 | | Load 0x0,0x4
13ae 180f | | Execute Package,Field_Execute,Field_Number 0xf
13af e402 | | Load 0x2,0x2
13b0 0217 | | Execute Heap_Access,All_Reference
13b1 380b |8 | Execute Record,Field_Write,Field_Number 0xb
13b2 e402 | | Load 0x2,0x2
13b3 e5ff | | Load 0x2,-0x1
13b4 0217 | | Execute Heap_Access,All_Reference
13b5 381b |8 | Execute Record,Field_Write,Field_Number 0x1b
13b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
13b7 0000 | | .XXX[0x1]
13b8 ; --------------------------------------------------------------------------------------
13b8 ; SUBPROGRAM
13b8 ; --------------------------------------------------------------------------------------
13b8 13d8 | | .CONST 0x13d8 ; Address of begin
13b9 0004 | | .CONST 0x0004 ; Address of exception handler
13ba 0005 | | .CONST 0x0005 ; Number of locals
13bb INIT_13b8:
13bb e404 | | Load 0x2,0x4
13bc e003 | | Load 0x0,0x3
13bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13be 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
13bf e602 | | Load 0x3,0x2
13c0 e003 | | Load 0x0,0x3
13c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13c2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
13c3 e402 | | Load 0x2,0x2
13c4 e003 | | Load 0x0,0x3
13c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13c6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
13c7 00d9 | | Load_Top At_Offset_1
13c8 00d9 | | Load_Top At_Offset_1
13c9 01dd | | Execute Vector,First
13ca e802 | | Load 0x4,0x2
13cb 01db | | Execute Vector,Length
13cc 0273 | s | Execute Discrete,Plus
13cd 00d8 | | Load_Top At_Offset_0
13ce 00e2 | | Load_Encached Integer_Cache
13cf 0260 | ` | Execute Discrete,In_Type
13d0 7001 |p | Jump_Nonzero 0x13d2
13d1 0801 | | Execute_Immediate Raise,0x1
13d2 00da | | Load_Top At_Offset_2
13d3 01dc | | Execute Vector,Last
13d4 00db | | Load_Top At_Offset_3
13d5 01cf | | Execute Vector,Slice_Read
13d6 01cc | | Execute Vector,Catenate
13d7 0007 | | Action Break_Optional
13d8 BODY_13b8:
13d8 e003 | | Load 0x0,0x3
13d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13da 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13db e603 | | Load 0x3,0x3
13dc 0120 | | Execute Any,Is_Value
13dd 6803 |h | Jump_Zero 0x13e1
13de e003 | | Load 0x0,0x3
13df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13e0 7801 |x | Jump 0x13e2
13e1 e603 | | Load 0x3,0x3
13e2 6075 |`u | Indirect_Literal Discrete,0x1458,{0x00000000, 0x00004000}
13e3 e013 | | Load 0x0,0x13
13e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
13e5 e028 | ( | Load 0x0,0x28
13e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
13e7 e003 | | Load 0x0,0x3
13e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
13ea e805 | | Load 0x4,0x5
13eb e003 | | Load 0x0,0x3
13ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
13ed 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
13ee c603 | | Store 0x3,0x3
13ef c606 | | Store 0x3,0x6
13f0 e606 | | Load 0x3,0x6
13f1 6825 |h% | Jump_Zero 0x1417
13f2 4801 |H | Short_Literal 0x1
13f3 4804 |H | Short_Literal 0x4
13f4 e005 | | Load 0x0,0x5
13f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
13f6 035b | [ | Declare_Type Array,Constrained
13f7 0337 | 7 | Declare_Variable Array
13f8 00d9 | | Load_Top At_Offset_1
13f9 e005 | | Load 0x0,0x5
13fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
13fb 4801 |H | Short_Literal 0x1
13fc 00da | | Load_Top At_Offset_2
13fd 01d6 | | Execute Vector,Field_Write
13fe e404 | | Load 0x2,0x4
13ff e005 | | Load 0x0,0x5
1400 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1401 4802 |H | Short_Literal 0x2
1402 00da | | Load_Top At_Offset_2
1403 01d6 | | Execute Vector,Field_Write
1404 e602 | | Load 0x3,0x2
1405 e005 | | Load 0x0,0x5
1406 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1407 4803 |H | Short_Literal 0x3
1408 00da | | Load_Top At_Offset_2
1409 01d6 | | Execute Vector,Field_Write
140a e405 | | Load 0x2,0x5
140b e003 | | Load 0x0,0x3
140c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
140d 011c | | Execute Any,Convert_Unchecked
140e 1c01 | | Execute_Immediate Run_Utility,0x1
140f e005 | | Load 0x0,0x5
1410 1810 | | Execute Package,Field_Execute,Field_Number 0x10
1411 4804 |H | Short_Literal 0x4
1412 00da | | Load_Top At_Offset_2
1413 01d6 | | Execute Vector,Field_Write
1414 603f |`? | Indirect_Literal Discrete,0x1454,{0x00000000, 0x0000200a}
1415 e002 | | Load 0x0,0x2
1416 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1417 e003 | | Load 0x0,0x3
1418 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1419 e604 | | Load 0x3,0x4
141a 0120 | | Execute Any,Is_Value
141b 6803 |h | Jump_Zero 0x141f
141c e003 | | Load 0x0,0x3
141d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
141e 7801 |x | Jump 0x1420
141f e604 | | Load 0x3,0x4
1420 6037 |`7 | Indirect_Literal Discrete,0x1458,{0x00000000, 0x00004000}
1421 e013 | | Load 0x0,0x13
1422 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1423 4800 |H | Short_Literal 0x0
1424 e603 | | Load 0x3,0x3
1425 e003 | | Load 0x0,0x3
1426 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
1427 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1428 c604 | | Store 0x3,0x4
1429 c405 | | Store 0x2,0x5
142a e405 | | Load 0x2,0x5
142b 6825 |h% | Jump_Zero 0x1451
142c 4801 |H | Short_Literal 0x1
142d 4804 |H | Short_Literal 0x4
142e e005 | | Load 0x0,0x5
142f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
1430 035b | [ | Declare_Type Array,Constrained
1431 0337 | 7 | Declare_Variable Array
1432 e603 | | Load 0x3,0x3
1433 e005 | | Load 0x0,0x5
1434 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1435 4801 |H | Short_Literal 0x1
1436 00da | | Load_Top At_Offset_2
1437 01d6 | | Execute Vector,Field_Write
1438 e404 | | Load 0x2,0x4
1439 e005 | | Load 0x0,0x5
143a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
143b 4802 |H | Short_Literal 0x2
143c 00da | | Load_Top At_Offset_2
143d 01d6 | | Execute Vector,Field_Write
143e e602 | | Load 0x3,0x2
143f e005 | | Load 0x0,0x5
1440 181a | | Execute Package,Field_Execute,Field_Number 0x1a
1441 4803 |H | Short_Literal 0x3
1442 00da | | Load_Top At_Offset_2
1443 01d6 | | Execute Vector,Field_Write
1444 e405 | | Load 0x2,0x5
1445 e003 | | Load 0x0,0x3
1446 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1447 011c | | Execute Any,Convert_Unchecked
1448 1c01 | | Execute_Immediate Run_Utility,0x1
1449 e005 | | Load 0x0,0x5
144a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
144b 4804 |H | Short_Literal 0x4
144c 00da | | Load_Top At_Offset_2
144d 01d6 | | Execute Vector,Field_Write
144e 6005 |` | Indirect_Literal Discrete,0x1454,{0x00000000, 0x0000200a}
144f e002 | | Load 0x0,0x2
1450 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1451 e604 | | Load 0x3,0x4
1452 00cb | | Action Pop_Block_With_Result
1453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1454 0000 0000 | | .LITERAL {0x00000000, 0x0000200a}
1458 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
145c 0000 0000 | | .BLANK 0000[0x4]
1460 ; --------------------------------------------------------------------------------------
1460 ; SUBPROGRAM
1460 ; --------------------------------------------------------------------------------------
1460 1463 | c | .CONST 0x1463 ; Address of begin
1461 0004 | | .CONST 0x0004 ; Address of exception handler
1462 0001 | | .CONST 0x0001 ; Number of locals
1463 BODY_1460:
1463 INIT_1460:
1463 e402 | | Load 0x2,0x2
1464 0a01 | | Execute_Immediate Plus,0x1
1465 c402 | | Store 0x2,0x2
1466 00da | | Load_Top At_Offset_2
1467 e402 | | Load 0x2,0x2
1468 e403 | | Load 0x2,0x3
1469 01d5 | | Execute Vector,Field_Reference
146a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
146b e402 | | Load 0x2,0x2
146c e403 | | Load 0x2,0x3
146d 01d5 | | Execute Vector,Field_Reference
146e 00d8 | | Load_Top At_Offset_0
146f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1470 00d8 | | Load_Top At_Offset_0
1471 0335 | 5 | Declare_Variable Array,Duplicate
1472 00cd | | Action Spare6_Action
1473 4805 |H | Short_Literal 0x5
1474 4800 |H | Short_Literal 0x0
1475 4800 |H | Short_Literal 0x0
1476 00d9 | | Load_Top At_Offset_1
1477 e804 | | Load 0x4,0x4
1478 01d6 | | Execute Vector,Field_Write
1479 3ffb |? | Loop_Increasing 0x1475
147a 00cd | | Action Spare6_Action
147b 00d9 | | Load_Top At_Offset_1
147c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
147d 00d1 | | Pop_Control Pop_Count_1
147e 4801 |H | Short_Literal 0x1
147f e7fe | | Load 0x3,-0x2
1480 e402 | | Load 0x2,0x2
1481 e403 | | Load 0x2,0x3
1482 01d5 | | Execute Vector,Field_Reference
1483 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1484 01d6 | | Execute Vector,Field_Write
1485 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1486 0000 0000 | | .XXX[0x2]
1488 ; --------------------------------------------------------------------------------------
1488 ; SUBPROGRAM
1488 ; --------------------------------------------------------------------------------------
1488 1495 | | .CONST 0x1495 ; Address of begin
1489 0004 | | .CONST 0x0004 ; Address of exception handler
148a 0004 | | .CONST 0x0004 ; Number of locals
148b INIT_1488:
148b e003 | | Load 0x0,0x3
148c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
148d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
148e 02c7 | | Declare_Variable Any
148f 00d8 | | Load_Top At_Offset_0
1490 1c00 | | Execute_Immediate Run_Utility,0x0
1491 e003 | | Load 0x0,0x3
1492 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1493 029f 14b3 | | Declare_Subprogram INIT_14b0,For_Call
1495 BODY_1488:
1495 e003 | | Load 0x0,0x3
1496 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1497 00db | | Load_Top At_Offset_3
1498 0120 | | Execute Any,Is_Value
1499 6804 |h | Jump_Zero 0x149e
149a e003 | | Load 0x0,0x3
149b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
149c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
149d 7801 |x | Jump 0x149f
149e 00db | | Load_Top At_Offset_3
149f 600c |` | Indirect_Literal Discrete,0x14ac,{0x00000000, 0x00004000}
14a0 e013 | | Load 0x0,0x13
14a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
14a2 e9ff | | Load 0x4,-0x1
14a3 e003 | | Load 0x0,0x3
14a4 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
14a5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
14a6 c802 | | Store 0x4,0x2
14a7 005a | Z | Store_Top Discrete,At_Offset_2
14a8 00da | | Load_Top At_Offset_2
14a9 8804 | | Call 0x4,0x4
14aa c802 | | Store 0x4,0x2
14ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
14ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
14b0 ; --------------------------------------------------------------------------------------
14b0 ; SUBPROGRAM
14b0 ; --------------------------------------------------------------------------------------
14b0 14bf | | .CONST 0x14bf ; Address of begin
14b1 0004 | | .CONST 0x0004 ; Address of exception handler
14b2 0003 | | .CONST 0x0003 ; Number of locals
14b3 INIT_14b0:
14b3 e003 | | Load 0x0,0x3
14b4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
14b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
14b6 02c7 | | Declare_Variable Any
14b7 00d8 | | Load_Top At_Offset_0
14b8 1c00 | | Execute_Immediate Run_Utility,0x0
14b9 e003 | | Load 0x0,0x3
14ba 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
14bb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
14bc 02c7 | | Declare_Variable Any
14bd 00d8 | | Load_Top At_Offset_0
14be 1c00 | | Execute_Immediate Run_Utility,0x0
14bf BODY_14b0:
14bf 00cf | | Action Mark_Auxiliary
14c0 7826 |x& | Jump 0x14e7
14c1 ebff | | Load 0x5,-0x1
14c2 e003 | | Load 0x0,0x3
14c3 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
14c4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
14c5 ca02 | | Store 0x5,0x2
14c6 00da | | Load_Top At_Offset_2
14c7 e003 | | Load 0x0,0x3
14c8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
14c9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
14ca 8608 | | Call 0x3,0x8
14cb e003 | | Load 0x0,0x3
14cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
14cd 00da | | Load_Top At_Offset_2
14ce 0120 | | Execute Any,Is_Value
14cf 6804 |h | Jump_Zero 0x14d4
14d0 e003 | | Load 0x0,0x3
14d1 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
14d2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
14d3 7801 |x | Jump 0x14d5
14d4 00da | | Load_Top At_Offset_2
14d5 67d6 |g | Indirect_Literal Discrete,0x14ac,{0x00000000, 0x00004000}
14d6 e013 | | Load 0x0,0x13
14d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
14d8 ea02 | | Load 0x5,0x2
14d9 e003 | | Load 0x0,0x3
14da 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
14db 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
14dc ca03 | | Store 0x5,0x3
14dd c803 | | Store 0x4,0x3
14de 00d9 | | Load_Top At_Offset_1
14df 8804 | | Call 0x4,0x4
14e0 ca03 | | Store 0x5,0x3
14e1 ebff | | Load 0x5,-0x1
14e2 e003 | | Load 0x0,0x3
14e3 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
14e4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
14e5 cbff | | Store 0x5,-0x1
14e6 00c9 | | Action Pop_Auxiliary_Loop
14e7 ebff | | Load 0x5,-0x1
14e8 e003 | | Load 0x0,0x3
14e9 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
14ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
14eb 6fd5 |o | Jump_Zero 0x14c1
14ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
14ed 0000 0000 | | .XXX[0x3]
14ef 0000 | |
14f0 ; --------------------------------------------------------------------------------------
14f0 ; SUBPROGRAM
14f0 ; --------------------------------------------------------------------------------------
14f0 14f3 | | .CONST 0x14f3 ; Address of begin
14f1 0004 | | .CONST 0x0004 ; Address of exception handler
14f2 0001 | | .CONST 0x0001 ; Number of locals
14f3 BODY_14f0:
14f3 INIT_14f0:
14f3 4608 |F | Jump_Case 0x9
14f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
14f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
14f6 7819 |x | Jump 0x1510 ; case 0x2
14f7 7818 |x | Jump 0x1510 ; case 0x3
14f8 7817 |x | Jump 0x1510 ; case 0x4
14f9 7816 |x | Jump 0x1510 ; case 0x5
14fa 7815 |x | Jump 0x1510 ; case 0x6
14fb 7801 |x | Jump 0x14fd ; case 0x7
14fc 7809 |x | Jump 0x1506 ; case 0x8
14fd 00db | | Load_Top At_Offset_3
14fe 4801 |H | Short_Literal 0x1
14ff e5fe | | Load 0x2,-0x2
1500 e213 | | Load 0x1,0x13
1501 035b | [ | Declare_Type Array,Constrained
1502 4801 |H | Short_Literal 0x1
1503 e5ff | | Load 0x2,-0x1
1504 031b | | Declare_Type Variant_Record,Constrained
1505 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
1506 00db | | Load_Top At_Offset_3
1507 00db | | Load_Top At_Offset_3
1508 02fc | | Declare_Variable Variant_Record,With_Constraint
1509 4801 |H | Short_Literal 0x1
150a e5fe | | Load 0x2,-0x2
150b e213 | | Load 0x1,0x13
150c 0334 | 4 | Declare_Variable Array,With_Constraint
150d 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
150e 016a | j | QQ_execute Variant_Record,XXX
150f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
1510 0869 | i | Execute_Immediate Raise,0x69
1511 0000 0000 | | .BLANK 0000[0x7]
1518 ; --------------------------------------------------------------------------------------
1518 ; SUBPROGRAM
1518 ; --------------------------------------------------------------------------------------
1518 151b | | .CONST 0x151b ; Address of begin
1519 0004 | | .CONST 0x0004 ; Address of exception handler
151a 0001 | | .CONST 0x0001 ; Number of locals
151b BODY_1518:
151b INIT_1518:
151b 4608 |F | Jump_Case 0x9
151c 7808 |x | Jump 0x1525 ; case 0x0
151d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
151e 7813 |x | Jump 0x1532 ; case 0x2
151f 7812 |x | Jump 0x1532 ; case 0x3
1520 7811 |x | Jump 0x1532 ; case 0x4
1521 7810 |x | Jump 0x1532 ; case 0x5
1522 780f |x | Jump 0x1532 ; case 0x6
1523 780e |x | Jump 0x1532 ; case 0x7
1524 780d |x | Jump 0x1532 ; case 0x8
1525 00da | | Load_Top At_Offset_2
1526 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1527 0125 | % | Execute Any,Set_Constraint
1528 00da | | Load_Top At_Offset_2
1529 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
152a 1c00 | | Execute_Immediate Run_Utility,0x0
152b 00da | | Load_Top At_Offset_2
152c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
152d 0125 | % | Execute Any,Set_Constraint
152e 00da | | Load_Top At_Offset_2
152f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
1530 1c00 | | Execute_Immediate Run_Utility,0x0
1531 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
1532 0869 | i | Execute_Immediate Raise,0x69
1533 0000 0000 | | .BLANK 0000[0x5]
1538 ; --------------------------------------------------------------------------------------
1538 ; SUBPROGRAM
1538 ; --------------------------------------------------------------------------------------
1538 154d | M | .CONST 0x154d ; Address of begin
1539 0004 | | .CONST 0x0004 ; Address of exception handler
153a 0017 | | .CONST 0x0017 ; Number of locals
153b INIT_1538:
153b 029a 1553 | S| Declare_Subprogram INIT_1550,For_Outer_Call,Visible,Unelaborated
153d 029a 156b | k| Declare_Subprogram INIT_1568,For_Outer_Call,Visible,Unelaborated
153f 00bf | | Action Accept_Activation
1540 e001 | | Load 0x0,0x1
1541 e002 | | Load 0x0,0x2
1542 e20f | | Load 0x1,0xf
1543 e210 | | Load 0x1,0x10
1544 e003 | | Load 0x0,0x3
1545 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
1546 0387 | | Declare_Variable Package
1547 00d8 | | Load_Top At_Offset_0
1548 020f | | Execute Module,Activate
1549 1d15 | | Execute_Immediate Reference_Lex_1,0x15
154a 00c7 | | Action Elaborate_Subprogram
154b 1d16 | | Execute_Immediate Reference_Lex_1,0x16
154c 00c7 | | Action Elaborate_Subprogram
154d BODY_1538:
154d 00bc | | Action Signal_Activated
154e 00bb | | Action Signal_Completion
154f 0000 | | .XXX[0x1]
1550 ; --------------------------------------------------------------------------------------
1550 ; SUBPROGRAM
1550 ; --------------------------------------------------------------------------------------
1550 1553 | S | .CONST 0x1553 ; Address of begin
1551 0004 | | .CONST 0x0004 ; Address of exception handler
1552 0001 | | .CONST 0x0001 ; Number of locals
1553 BODY_1550:
1553 INIT_1550:
1553 00da | | Load_Top At_Offset_2
1554 0219 | | Execute Heap_Access,All_Read
1555 00d8 | | Load_Top At_Offset_0
1556 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
1557 e5ff | | Load 0x2,-0x1
1558 8004 | | Call 0x0,0x4
1559 e5fe | | Load 0x2,-0x2
155a e20f | | Load 0x1,0xf
155b 0119 | | Execute Any,Check_In_Formal_Type
155c e217 | | Load 0x1,0x17
155d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
155e 00d9 | | Load_Top At_Offset_1
155f 381c |8 | Execute Record,Field_Write,Field_Number 0x1c
1560 4503 |E | Exit_Suprogram New_Top_Offset 0x3
1561 0000 0000 | | .BLANK 0000[0x7]
1568 ; --------------------------------------------------------------------------------------
1568 ; SUBPROGRAM
1568 ; --------------------------------------------------------------------------------------
1568 156b | k | .CONST 0x156b ; Address of begin
1569 1575 | u | .CONST 0x1575 ; Address of exception handler
156a 0001 | | .CONST 0x0001 ; Number of locals
156b BODY_1568:
156b INIT_1568:
156b 00da | | Load_Top At_Offset_2
156c 0217 | | Execute Heap_Access,All_Reference
156d 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
156e 00db | | Load_Top At_Offset_3
156f 8004 | | Call 0x0,0x4
1570 e217 | | Load 0x1,0x17
1571 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1572 e210 | | Load 0x1,0x10
1573 0213 | | Execute Heap_Access,Check_In_Type
1574 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1575 TRAP_1568:
1575 486b |Hk | Short_Literal 0x6b
1576 010f | | Execute Exception,Equal
1577 6802 |h | Jump_Zero 0x157a
1578 e210 | | Load 0x1,0x10
1579 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
157a 0100 | | Execute Exception,Raise
157b ; --------------------------------------------------------------------------------------
157b ; STRING TABLE
157b ; --------------------------------------------------------------------------------------
157b 001c | | .STRTAB 0x001c->0x1589 ; "Refreshing unit "
157c 002a | * | .STRTAB 0x002a->0x1591 ; "Target name for "
157d 0038 | 8 | .STRTAB 0x0038->0x1599 ; " has been set to "
157e 0047 | G | .STRTAB 0x0047->0x15a1 ; "."
157f 0046 | F | .STRTAB 0x0046->0x15a2 ; "Releasing old special build instructions."
1580 006d | m | .STRTAB 0x006d->0x15b6 ; "No siblings for "
1581 007b | { | .STRTAB 0x007b->0x15be ; "Created directory object for \x22"
1582 0097 | | .STRTAB 0x0097->0x15cd ; "\x22."
1583 0097 | | .STRTAB 0x0097->0x15ce ; "Structural_Suppliers (Parent) "
1584 00b3 | | .STRTAB 0x00b3->0x15dd ; "Structural_Suppliers (Other) "
1585 00ce | | .STRTAB 0x00ce->0x15ec ; "Add_Supplier "
1586 00d9 | | .STRTAB 0x00d9->0x15f2 ; "Changing Kinds for object"
1587 00f0 | | .STRTAB 0x00f0->0x15ff ; "Creating Machine_Data record."
1588 010b | | .STREND 0x010b->0x160d
1589 5265 6672 |Refr| .STRTAB_STRINGS
160e 0000 0000 | | .XXX[0x2]
1610 ; --------------------------------------------------------------------------------------
1610 ; Debug Table
1610 ; --------------------------------------------------------------------------------------
1610 0004 000d | | .DEBUG4 0x0004,0x000d,0xd930,0x0000,0x0001,0x0000
1616 0000 0000 | | .BLANK 0000[0xcf]
16e5 0276 2e00 | v. | .XXX[0x30]
16e7 678e 8000 |g |
16e9 0000 1f40 | @|
16eb 2006 7a84 | z |
16ed 0000 0000 | |
16ef 3395 8000 |3 |
16f1 0004 2614 | & |
16f3 00cf d000 | |
16f5 33e3 400c |3 @ |
16f7 ecd0 0014 | |
16f9 1d81 6800 | h |
16fb 0000 fffe | |
16fd 84c2 0015 | |
16ff a240 0000 | @ |
1701 0001 9e04 | |
1703 0002 821f | |
1705 0015 a240 | @|
1707 0000 0001 | |
1709 a194 0069 | i|
170b 2f80 1c23 |/ #|
170d 0520 0682 | |
170f 0001 a418 | |
1711 0178 0000 | x |
1713 692f 8000 |i/ |
1715 0000 0000 | | .BLANK 0000[0x4]
1719 0034 3280 | 42 | .XXX[0xe7]
171b 0041 8c18 | A |
171d 8000 0000 | |
171f 0000 0028 | (|
1721 3182 3801 |1 8 |
1723 a372 0000 | r |
1725 0003 047c | ||
1727 0034 1000 | 4 |
1729 2d7f d00a |- |
172b 1030 02d7 | 0 |
172d 6d00 3680 |m 6 |
172f 0d7b 9831 | { 1|
1731 c005 0818 | |
1733 0000 0000 | |
1735 1aa8 0006 | |
1737 acf8 01ad | |
1739 f000 0189 | |
173b 8e80 1aa8 | |
173d 0006 a5c0 | |
173f 06e0 0356 | V|
1741 7c00 d6f8 || |
1743 0000 1a75 | u|
1745 0000 6020 | ` |
1747 0380 0000 | |
1749 0000 00d0 | |
174b ca83 1823 | #|
174d 801a 8c40 | @|
174f 0000 0050 | P|
1751 0000 0000 | |
1753 d3a8 8448 | H|
1755 001a 6080 | ` |
1757 0000 0001 | |
1759 aa17 1666 | f|
175b 0034 c100 | 4 |
175d 0000 0003 | |
175f 5a04 0000 |Z |
1761 0001 004a | J|
1763 72e0 2009 |r |
1765 4e5c 0401 |N\ |
1767 271a cec5 |' |
1769 c00d 59f0 | Y |
176b 0000 0003 | |
176d 8808 024c | L|
176f cb97 0400 | |
1771 1a60 8006 | ` |
1773 bbb8 07c0 | |
1775 1004 a72f | /|
1777 fb0a 900d | |
1779 0000 0000 | |
177b 3600 0dc8 |6 |
177d 9831 c005 | 1 |
177f 0818 0000 | |
1781 0000 1b42 | B|
1783 0006 d378 | x|
1785 01b7 9000 | |
1787 0189 8e80 | |
1789 1b42 0006 | B |
178b cc40 0160 | @ `|
178d 0369 bc00 | i |
178f dbc8 0000 | |
1791 1b0f 0000 | |
1793 a020 0380 | |
1795 0000 0000 | |
1797 00d0 ca83 | |
1799 1823 801b | # |
179b 2640 0000 |&@ |
179d 0070 0000 | p |
179f 0000 d878 | x|
17a1 8448 001a | H |
17a3 fa80 0000 | |
17a5 0001 b3b7 | |
17a7 1666 0035 | f 5|
17a9 f500 0000 | |
17ab 0003 6d44 | mD|
17ad 0000 0001 | |
17af 004a 72e0 | Jr |
17b1 2009 4e5c | N\|
17b3 0401 271a | ' |
17b5 cec5 c00d | |
17b7 a6f0 0000 | |
17b9 0003 8808 | |
17bb 024c cb97 | L |
17bd 0400 1afa | |
17bf 8006 e238 | 8|
17c1 02a0 1004 | |
17c3 a72f fb0a | / |
17c5 900d 0000 | |
17c7 0000 2600 | & |
17c9 0e15 9831 | 1|
17cb c005 0818 | |
17cd 0000 0000 | |
17cf 1bdc 0006 | |
17d1 f9f8 01c1 | |
17d3 3000 0189 |0 |
17d5 8e80 1bdc | |
17d7 0006 f2c0 | |
17d9 00d0 037c | ||
17db fc00 e098 | |
17dd 0000 1ba9 | |
17df 0000 e020 | |
17e1 0380 0000 | |
17e3 0000 00d0 | |
17e5 ca83 1823 | #|
17e7 801b c040 | @|
17e9 0000 0090 | |
17eb 0000 0000 | |
17ed dd48 8448 | H H|
17ef 001b 9480 | |
17f1 0000 0001 | |
17f3 bd57 1666 | W f|
17f5 0037 2900 | 7) |
17f7 0000 0003 | |
17f9 8084 0000 | |
17fb 0001 004a | J|
17fd 72e0 2009 |r |
17ff 4e5c |N\ |