DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a2048eb08⟧

    Length: 24576 (0x6000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 2e70       |.p  |		.CONST	0x2e70								; 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 801d       |    |		.CONST	0x801d								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0458       | X  |		.CONST	0x0458								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 00e9       |    |		.CONST	0x00e9								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
000d 0129       | )  |		Execute	Any,Make_Visible
000e 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
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 00c4       |    |		Action	Make_Default
007a 00c4       |    |		Action	Make_Default
007b 00c4       |    |		Action	Make_Default
007c 00c4       |    |		Action	Make_Default
007d 00c4       |    |		Action	Make_Default
007e 00c4       |    |		Action	Make_Default
007f 00c4       |    |		Action	Make_Default
0080 00c4       |    |		Action	Make_Default
0081 00c4       |    |		Action	Make_Default
0082 00c4       |    |		Action	Make_Default
0083 00c4       |    |		Action	Make_Default
0084 00c4       |    |		Action	Make_Default
0085 00c4       |    |		Action	Make_Default
0086 00c4       |    |		Action	Make_Default
0087 00c4       |    |		Action	Make_Default
0088 00c4       |    |		Action	Make_Default
0089 00c4       |    |		Action	Make_Default
008a 00c4       |    |		Action	Make_Default
008b 00c4       |    |		Action	Make_Default
008c 00c4       |    |		Action	Make_Default
008d 00c4       |    |		Action	Make_Default
008e 00c4       |    |		Action	Make_Default
008f 00c4       |    |		Action	Make_Default
0090 00c4       |    |		Action	Make_Default
0091 00c4       |    |		Action	Make_Default
0092 00c4       |    |		Action	Make_Default
0093 00c4       |    |		Action	Make_Default
0094 00c4       |    |		Action	Make_Default
0095 00c4       |    |		Action	Make_Default
0096 00c4       |    |		Action	Make_Default
0097 00c4       |    |		Action	Make_Default
0098 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
009a c286       |    |		Store	0x1,0x86
009b 00e3       |    |		Load_Encached	Natural_Cache
009c 0266       | f  |		Execute	Discrete,Bounds
009d e20d       |    |		Load	0x1,0xd
009e 02a0       |    |		Declare_Subprogram	Null_Subprogram
009f 4801       |H   |		Short_Literal	0x1
00a0 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00a1 c20f       |    |		Store	0x1,0xf
00a2 00e3       |    |		Load_Encached	Natural_Cache
00a3 e002       |    |		Load	0x0,0x2
00a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a5 4801       |H   |		Short_Literal	0x1
00a6 63b5       |c   |		Indirect_Literal	Discrete,0x45c,{0x00000000, 0x7fffffff}
00a7 e20f       |    |		Load	0x1,0xf
00a8 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
00a9 029f 2b4b  |  +K|		Declare_Subprogram	INIT_2b48,For_Call
00ab 4800       |H   |		Short_Literal	0x0
00ac 4801       |H   |		Short_Literal	0x1
00ad 4801       |H   |		Short_Literal	0x1
00ae 4800       |H   |		Short_Literal	0x0
00af 4801       |H   |		Short_Literal	0x1
00b0 4801       |H   |		Short_Literal	0x1
00b1 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00b2 c210       |    |		Store	0x1,0x10
00b3 e003       |    |		Load	0x0,0x3
00b4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00b5 0129       | )  |		Execute	Any,Make_Visible
00b6 c211       |    |		Store	0x1,0x11
00b7 00e9       |    |		Load_Encached	String_Cache
00b8 0129       | )  |		Execute	Any,Make_Visible
00b9 c265       | e  |		Store	0x1,0x65
00ba 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
00bc c292       |    |		Store	0x1,0x92
00bd 029a 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call,Visible,Unelaborated
00bf c213       |    |		Store	0x1,0x13
00c0 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
00c2 c291       |    |		Store	0x1,0x91
00c3 029a 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call,Visible,Unelaborated
00c5 c27e       | ~  |		Store	0x1,0x7e
00c6 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
00c8 c214       |    |		Store	0x1,0x14
00c9 029a 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call,Visible,Unelaborated
00cb c215       |    |		Store	0x1,0x15
00cc 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
00ce c216       |    |		Store	0x1,0x16
00cf 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
00d1 c217       |    |		Store	0x1,0x17
00d2 029a 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call,Visible,Unelaborated
00d4 c218       |    |		Store	0x1,0x18
00d5 029a 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Visible,Unelaborated
00d7 c219       |    |		Store	0x1,0x19
00d8 029a 063b  |   ;|		Declare_Subprogram	INIT_0638,For_Outer_Call,Visible,Unelaborated
00da c27a       | z  |		Store	0x1,0x7a
00db 029a 064b  |   K|		Declare_Subprogram	INIT_0648,For_Outer_Call,Visible,Unelaborated
00dd c27b       | {  |		Store	0x1,0x7b
00de 029a 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call,Visible,Unelaborated
00e0 c27c       | |  |		Store	0x1,0x7c
00e1 029a 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call,Visible,Unelaborated
00e3 c27d       | }  |		Store	0x1,0x7d
00e4 029a 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call,Visible,Unelaborated
00e6 c28b       |    |		Store	0x1,0x8b
00e7 029a 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call,Visible,Unelaborated
00e9 c28c       |    |		Store	0x1,0x8c
00ea 029a 070b  |    |		Declare_Subprogram	INIT_0708,For_Outer_Call,Visible,Unelaborated
00ec c28d       |    |		Store	0x1,0x8d
00ed 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
00ef c28e       |    |		Store	0x1,0x8e
00f0 029a 075b  |   [|		Declare_Subprogram	INIT_0758,For_Outer_Call,Visible,Unelaborated
00f2 c28f       |    |		Store	0x1,0x8f
00f3 029a 07bb  |    |		Declare_Subprogram	INIT_07b8,For_Outer_Call,Visible,Unelaborated
00f5 c290       |    |		Store	0x1,0x90
00f6 029a 0843  |   C|		Declare_Subprogram	INIT_0840,For_Outer_Call,Visible,Unelaborated
00f8 c221       | !  |		Store	0x1,0x21
00f9 029a 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call,Visible,Unelaborated
00fb c222       | "  |		Store	0x1,0x22
00fc 029a 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Outer_Call,Visible,Unelaborated
00fe c26e       | n  |		Store	0x1,0x6e
00ff 029a 08fb  |    |		Declare_Subprogram	INIT_08f8,For_Outer_Call,Visible,Unelaborated
0101 c224       | $  |		Store	0x1,0x24
0102 029a 090b  |    |		Declare_Subprogram	INIT_0908,For_Outer_Call,Visible,Unelaborated
0104 c225       | %  |		Store	0x1,0x25
0105 029a 0913  |    |		Declare_Subprogram	INIT_0910,For_Outer_Call,Visible,Unelaborated
0107 c226       | &  |		Store	0x1,0x26
0108 029a 091b  |    |		Declare_Subprogram	INIT_0918,For_Outer_Call,Visible,Unelaborated
010a c227       | '  |		Store	0x1,0x27
010b e001       |    |		Load	0x0,0x1
010c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
010d 0129       | )  |		Execute	Any,Make_Visible
010e c228       | (  |		Store	0x1,0x28
010f 00e3       |    |		Load_Encached	Natural_Cache
0110 0266       | f  |		Execute	Discrete,Bounds
0111 e001       |    |		Load	0x0,0x1
0112 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0113 02a0       |    |		Declare_Subprogram	Null_Subprogram
0114 4801       |H   |		Short_Literal	0x1
0115 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0116 c229       | )  |		Store	0x1,0x29
0117 00e3       |    |		Load_Encached	Natural_Cache
0118 e002       |    |		Load	0x0,0x2
0119 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011a 4801       |H   |		Short_Literal	0x1
011b 6340       |c@  |		Indirect_Literal	Discrete,0x45c,{0x00000000, 0x7fffffff}
011c e229       | )  |		Load	0x1,0x29
011d 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
011e 029f 2b73  |  +s|		Declare_Subprogram	INIT_2b70,For_Call
0120 4800       |H   |		Short_Literal	0x0
0121 4801       |H   |		Short_Literal	0x1
0122 4801       |H   |		Short_Literal	0x1
0123 4800       |H   |		Short_Literal	0x0
0124 4801       |H   |		Short_Literal	0x1
0125 4801       |H   |		Short_Literal	0x1
0126 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0127 c22a       | *  |		Store	0x1,0x2a
0128 029a 092b  |   +|		Declare_Subprogram	INIT_0928,For_Outer_Call,Visible,Unelaborated
012a c22b       | +  |		Store	0x1,0x2b
012b 029a 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call,Visible,Unelaborated
012d c22c       | ,  |		Store	0x1,0x2c
012e 029a 098b  |    |		Declare_Subprogram	INIT_0988,For_Outer_Call,Visible,Unelaborated
0130 c22d       | -  |		Store	0x1,0x2d
0131 029a 09a3  |    |		Declare_Subprogram	INIT_09a0,For_Outer_Call,Visible,Unelaborated
0133 c22e       | .  |		Store	0x1,0x2e
0134 029a 09cb  |    |		Declare_Subprogram	INIT_09c8,For_Outer_Call,Visible,Unelaborated
0136 c22f       | /  |		Store	0x1,0x2f
0137 029a 0a43  |   C|		Declare_Subprogram	INIT_0a40,For_Outer_Call,Visible,Unelaborated
0139 c230       | 0  |		Store	0x1,0x30
013a 029a 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Outer_Call,Visible,Unelaborated
013c c231       | 1  |		Store	0x1,0x31
013d 029a 0b13  |    |		Declare_Subprogram	INIT_0b10,For_Outer_Call,Visible,Unelaborated
013f c232       | 2  |		Store	0x1,0x32
0140 029a 0b8b  |    |		Declare_Subprogram	INIT_0b88,For_Outer_Call,Visible,Unelaborated
0142 c233       | 3  |		Store	0x1,0x33
0143 029a 0bab  |    |		Declare_Subprogram	INIT_0ba8,For_Outer_Call,Visible,Unelaborated
0145 c234       | 4  |		Store	0x1,0x34
0146 029a 0bbb  |    |		Declare_Subprogram	INIT_0bb8,For_Outer_Call,Visible,Unelaborated
0148 c235       | 5  |		Store	0x1,0x35
0149 029a 0cbb  |    |		Declare_Subprogram	INIT_0cb8,For_Outer_Call,Visible,Unelaborated
014b c236       | 6  |		Store	0x1,0x36
014c 029a 0d33  |   3|		Declare_Subprogram	INIT_0d30,For_Outer_Call,Visible,Unelaborated
014e c237       | 7  |		Store	0x1,0x37
014f 029a 0d43  |   C|		Declare_Subprogram	INIT_0d40,For_Outer_Call,Visible,Unelaborated
0151 c238       | 8  |		Store	0x1,0x38
0152 029a 0d53  |   S|		Declare_Subprogram	INIT_0d50,For_Outer_Call,Visible,Unelaborated
0154 c239       | 9  |		Store	0x1,0x39
0155 029a 0dcb  |    |		Declare_Subprogram	INIT_0dc8,For_Outer_Call,Visible,Unelaborated
0157 c23a       | :  |		Store	0x1,0x3a
0158 029a 0e6b  |   k|		Declare_Subprogram	INIT_0e68,For_Outer_Call,Visible,Unelaborated
015a c284       |    |		Store	0x1,0x84
015b 029a 0e7b  |   {|		Declare_Subprogram	INIT_0e78,For_Outer_Call,Visible,Unelaborated
015d c285       |    |		Store	0x1,0x85
015e 029a 0e93  |    |		Declare_Subprogram	INIT_0e90,For_Outer_Call,Visible,Unelaborated
0160 c23b       | ;  |		Store	0x1,0x3b
0161 029a 0ea3  |    |		Declare_Subprogram	INIT_0ea0,For_Outer_Call,Visible,Unelaborated
0163 c23c       | <  |		Store	0x1,0x3c
0164 029a 0eb3  |    |		Declare_Subprogram	INIT_0eb0,For_Outer_Call,Visible,Unelaborated
0166 c23d       | =  |		Store	0x1,0x3d
0167 029a 0ec3  |    |		Declare_Subprogram	INIT_0ec0,For_Outer_Call,Visible,Unelaborated
0169 c23e       | >  |		Store	0x1,0x3e
016a 029a 0ed3  |    |		Declare_Subprogram	INIT_0ed0,For_Outer_Call,Visible,Unelaborated
016c c287       |    |		Store	0x1,0x87
016d 029a 0edb  |    |		Declare_Subprogram	INIT_0ed8,For_Outer_Call,Visible,Unelaborated
016f c288       |    |		Store	0x1,0x88
0170 029a 0ee3  |    |		Declare_Subprogram	INIT_0ee0,For_Outer_Call,Visible,Unelaborated
0172 c23f       | ?  |		Store	0x1,0x3f
0173 029a 0f0b  |    |		Declare_Subprogram	INIT_0f08,For_Outer_Call,Visible,Unelaborated
0175 c240       | @  |		Store	0x1,0x40
0176 029a 0f43  |   C|		Declare_Subprogram	INIT_0f40,For_Outer_Call,Visible,Unelaborated
0178 c241       | A  |		Store	0x1,0x41
0179 029a 0f73  |   s|		Declare_Subprogram	INIT_0f70,For_Outer_Call,Visible,Unelaborated
017b c242       | B  |		Store	0x1,0x42
017c 029a 0f83  |    |		Declare_Subprogram	INIT_0f80,For_Outer_Call,Visible,Unelaborated
017e c243       | C  |		Store	0x1,0x43
017f 029a 0f93  |    |		Declare_Subprogram	INIT_0f90,For_Outer_Call,Visible,Unelaborated
0181 c244       | D  |		Store	0x1,0x44
0182 029a 0fab  |    |		Declare_Subprogram	INIT_0fa8,For_Outer_Call,Visible,Unelaborated
0184 c283       |    |		Store	0x1,0x83
0185 029a 0fdb  |    |		Declare_Subprogram	INIT_0fd8,For_Outer_Call,Visible,Unelaborated
0187 c28a       |    |		Store	0x1,0x8a
0188 029a 100b  |    |		Declare_Subprogram	INIT_1008,For_Outer_Call,Visible,Unelaborated
018a c245       | E  |		Store	0x1,0x45
018b 029a 101b  |    |		Declare_Subprogram	INIT_1018,For_Outer_Call,Visible,Unelaborated
018d c246       | F  |		Store	0x1,0x46
018e 029a 1023  |   #|		Declare_Subprogram	INIT_1020,For_Outer_Call,Visible,Unelaborated
0190 c247       | G  |		Store	0x1,0x47
0191 029a 106b  |   k|		Declare_Subprogram	INIT_1068,For_Outer_Call,Visible,Unelaborated
0193 c248       | H  |		Store	0x1,0x48
0194 029a 1073  |   s|		Declare_Subprogram	INIT_1070,For_Outer_Call,Visible,Unelaborated
0196 c249       | I  |		Store	0x1,0x49
0197 029a 1083  |    |		Declare_Subprogram	INIT_1080,For_Outer_Call,Visible,Unelaborated
0199 c24a       | J  |		Store	0x1,0x4a
019a 029a 108b  |    |		Declare_Subprogram	INIT_1088,For_Outer_Call,Visible,Unelaborated
019c c24b       | K  |		Store	0x1,0x4b
019d 029a 109b  |    |		Declare_Subprogram	INIT_1098,For_Outer_Call,Visible,Unelaborated
019f c24c       | L  |		Store	0x1,0x4c
01a0 029a 10a3  |    |		Declare_Subprogram	INIT_10a0,For_Outer_Call,Visible,Unelaborated
01a2 c24d       | M  |		Store	0x1,0x4d
01a3 029a 10b3  |    |		Declare_Subprogram	INIT_10b0,For_Outer_Call,Visible,Unelaborated
01a5 c24e       | N  |		Store	0x1,0x4e
01a6 029a 10bb  |    |		Declare_Subprogram	INIT_10b8,For_Outer_Call,Visible,Unelaborated
01a8 c24f       | O  |		Store	0x1,0x4f
01a9 029a 10cb  |    |		Declare_Subprogram	INIT_10c8,For_Outer_Call,Visible,Unelaborated
01ab c27f       |    |		Store	0x1,0x7f
01ac 029a 10d3  |    |		Declare_Subprogram	INIT_10d0,For_Outer_Call,Visible,Unelaborated
01ae c280       |    |		Store	0x1,0x80
01af 029a 10db  |    |		Declare_Subprogram	INIT_10d8,For_Outer_Call,Visible,Unelaborated
01b1 c281       |    |		Store	0x1,0x81
01b2 029a 10e3  |    |		Declare_Subprogram	INIT_10e0,For_Outer_Call,Visible,Unelaborated
01b4 c282       |    |		Store	0x1,0x82
01b5 029a 10f3  |    |		Declare_Subprogram	INIT_10f0,For_Outer_Call,Visible,Unelaborated
01b7 c271       | q  |		Store	0x1,0x71
01b8 029a 1103  |    |		Declare_Subprogram	INIT_1100,For_Outer_Call,Visible,Unelaborated
01ba c272       | r  |		Store	0x1,0x72
01bb 029a 1113  |    |		Declare_Subprogram	INIT_1110,For_Outer_Call,Visible,Unelaborated
01bd c273       | s  |		Store	0x1,0x73
01be 029a 111b  |    |		Declare_Subprogram	INIT_1118,For_Outer_Call,Visible,Unelaborated
01c0 c274       | t  |		Store	0x1,0x74
01c1 029a 112b  |   +|		Declare_Subprogram	INIT_1128,For_Outer_Call,Visible,Unelaborated
01c3 c250       | P  |		Store	0x1,0x50
01c4 029a 1133  |   3|		Declare_Subprogram	INIT_1130,For_Outer_Call,Visible,Unelaborated
01c6 c251       | Q  |		Store	0x1,0x51
01c7 029a 11b3  |    |		Declare_Subprogram	INIT_11b0,For_Outer_Call,Visible,Unelaborated
01c9 c252       | R  |		Store	0x1,0x52
01ca 029a 11fb  |    |		Declare_Subprogram	INIT_11f8,For_Outer_Call,Visible,Unelaborated
01cc c253       | S  |		Store	0x1,0x53
01cd 029a 124b  |   K|		Declare_Subprogram	INIT_1248,For_Outer_Call,Visible,Unelaborated
01cf c254       | T  |		Store	0x1,0x54
01d0 029a 1293  |    |		Declare_Subprogram	INIT_1290,For_Outer_Call,Visible,Unelaborated
01d2 c293       |    |		Store	0x1,0x93
01d3 029a 12e3  |    |		Declare_Subprogram	INIT_12e0,For_Outer_Call,Visible,Unelaborated
01d5 c256       | V  |		Store	0x1,0x56
01d6 029a 1343  |   C|		Declare_Subprogram	INIT_1340,For_Outer_Call,Visible,Unelaborated
01d8 c294       |    |		Store	0x1,0x94
01d9 029a 1393  |    |		Declare_Subprogram	INIT_1390,For_Outer_Call,Visible,Unelaborated
01db c295       |    |		Store	0x1,0x95
01dc 029a 13e3  |    |		Declare_Subprogram	INIT_13e0,For_Outer_Call,Visible,Unelaborated
01de c296       |    |		Store	0x1,0x96
01df 029a 1433  |   3|		Declare_Subprogram	INIT_1430,For_Outer_Call,Visible,Unelaborated
01e1 c25a       | Z  |		Store	0x1,0x5a
01e2 029a 1443  |   C|		Declare_Subprogram	INIT_1440,For_Outer_Call,Visible,Unelaborated
01e4 c25b       | [  |		Store	0x1,0x5b
01e5 029a 1453  |   S|		Declare_Subprogram	INIT_1450,For_Outer_Call,Visible,Unelaborated
01e7 c25c       | \  |		Store	0x1,0x5c
01e8 029a 1463  |   c|		Declare_Subprogram	INIT_1460,For_Outer_Call,Visible,Unelaborated
01ea c275       | u  |		Store	0x1,0x75
01eb 029a 14ab  |    |		Declare_Subprogram	INIT_14a8,For_Outer_Call,Visible,Unelaborated
01ed c276       | v  |		Store	0x1,0x76
01ee 029a 14fb  |    |		Declare_Subprogram	INIT_14f8,For_Outer_Call,Visible,Unelaborated
01f0 c25f       | _  |		Store	0x1,0x5f
01f1 029a 150b  |    |		Declare_Subprogram	INIT_1508,For_Outer_Call,Visible,Unelaborated
01f3 c260       | `  |		Store	0x1,0x60
01f4 029a 151b  |    |		Declare_Subprogram	INIT_1518,For_Outer_Call,Visible,Unelaborated
01f6 c261       | a  |		Store	0x1,0x61
01f7 4808       |H   |		Short_Literal	0x8
01f8 0093 2b9b  |  + |		push_full_address	INIT_2b98
01fa 02a0       |    |		Declare_Subprogram	Null_Subprogram
01fb 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
01fc c262       | b  |		Store	0x1,0x62
01fd 029a 152b  |   +|		Declare_Subprogram	INIT_1528,For_Outer_Call,Visible,Unelaborated
01ff c263       | c  |		Store	0x1,0x63
0200 029a 15a3  |    |		Declare_Subprogram	INIT_15a0,For_Outer_Call,Visible,Unelaborated
0202 c264       | d  |		Store	0x1,0x64
0203 00bf       |    |		Action	Accept_Activation
0204 4800       |H   |		Short_Literal	0x0
0205 4806       |H   |		Short_Literal	0x6
0206 029f 15eb  |    |		Declare_Subprogram	INIT_15e8,For_Call
0208 03fd       |    |		Declare_Type	Discrete,Defined
0209 00e1       |    |		Load_Encached	Boolean_Cache
020a 0266       | f  |		Execute	Discrete,Bounds
020b e001       |    |		Load	0x0,0x1
020c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
020d 02a0       |    |		Declare_Subprogram	Null_Subprogram
020e 4801       |H   |		Short_Literal	0x1
020f 035d       | ]  |		Declare_Type	Array,Defined
0210 00d8       |    |		Load_Top	At_Offset_0
0211 0337       | 7  |		Declare_Variable	Array
0212 00d8       |    |		Load_Top	At_Offset_0
0213 0335       | 5  |		Declare_Variable	Array,Duplicate
0214 00cd       |    |		Action	Spare6_Action
0215 4800       |H   |		Short_Literal	0x0
0216 4800       |H   |		Short_Literal	0x0
0217 00da       |    |		Load_Top	At_Offset_2
0218 01d6       |    |		Execute	Vector,Field_Write
0219 4802       |H   |		Short_Literal	0x2
021a 4801       |H   |		Short_Literal	0x1
021b 00da       |    |		Load_Top	At_Offset_2
021c 01d6       |    |		Execute	Vector,Field_Write
021d 00d9       |    |		Load_Top	At_Offset_1
021e 01d4       |    |		Execute	Vector,Structure_Write
021f e004       |    |		Load	0x0,0x4
0220 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0221 0007       |    |		Action	Break_Optional
0222 4800       |H   |		Short_Literal	0x0
0223 4812       |H   |		Short_Literal	0x12
0224 029f 1613  |    |		Declare_Subprogram	INIT_1610,For_Call
0226 03fd       |    |		Declare_Type	Discrete,Defined
0227 4800       |H   |		Short_Literal	0x0
0228 4803       |H   |		Short_Literal	0x3
0229 00da       |    |		Load_Top	At_Offset_2
022a 03f8       |    |		Declare_Type	Discrete,Constrained
022b 4808       |H   |		Short_Literal	0x8
022c 480c       |H   |		Short_Literal	0xc
022d 00db       |    |		Load_Top	At_Offset_3
022e 03f8       |    |		Declare_Type	Discrete,Constrained
022f 480d       |H   |		Short_Literal	0xd
0230 4810       |H   |		Short_Literal	0x10
0231 e29b       |    |		Load	0x1,0x9b
0232 03f8       |    |		Declare_Type	Discrete,Constrained
0233 4811       |H   |		Short_Literal	0x11
0234 4812       |H   |		Short_Literal	0x12
0235 e29b       |    |		Load	0x1,0x9b
0236 03f8       |    |		Declare_Type	Discrete,Constrained
0237 4800       |H   |		Short_Literal	0x0
0238 4804       |H   |		Short_Literal	0x4
0239 029f 163b  |   ;|		Declare_Subprogram	INIT_1638,For_Call
023b 03fd       |    |		Declare_Type	Discrete,Defined
023c 4800       |H   |		Short_Literal	0x0
023d 4803       |H   |		Short_Literal	0x3
023e 029f 1663  |   c|		Declare_Subprogram	INIT_1660,For_Call
0240 03fd       |    |		Declare_Type	Discrete,Defined
0241 e005       |    |		Load	0x0,0x5
0242 e006       |    |		Load	0x0,0x6
0243 e29b       |    |		Load	0x1,0x9b
0244 e007       |    |		Load	0x0,0x7
0245 0387       |    |		Declare_Variable	Package
0246 00d8       |    |		Load_Top	At_Offset_0
0247 020f       |    |		Execute	Module,Activate
0248 e008       |    |		Load	0x0,0x8
0249 e009       |    |		Load	0x0,0x9
024a e2a0       |    |		Load	0x1,0xa0
024b e007       |    |		Load	0x0,0x7
024c 0387       |    |		Declare_Variable	Package
024d 00d8       |    |		Load_Top	At_Offset_0
024e 020f       |    |		Execute	Module,Activate
024f e00a       |    |		Load	0x0,0xa
0250 e00b       |    |		Load	0x0,0xb
0251 e2a1       |    |		Load	0x1,0xa1
0252 e007       |    |		Load	0x0,0x7
0253 0387       |    |		Declare_Variable	Package
0254 00d8       |    |		Load_Top	At_Offset_0
0255 020f       |    |		Execute	Module,Activate
0256 4800       |H   |		Short_Literal	0x0
0257 4815       |H   |		Short_Literal	0x15
0258 029f 168b  |    |		Declare_Subprogram	INIT_1688,For_Call
025a 03fd       |    |		Declare_Type	Discrete,Defined
025b 480a       |H   |		Short_Literal	0xa
025c 480e       |H   |		Short_Literal	0xe
025d 00da       |    |		Load_Top	At_Offset_2
025e 03f8       |    |		Declare_Type	Discrete,Constrained
025f 480f       |H   |		Short_Literal	0xf
0260 4812       |H   |		Short_Literal	0x12
0261 00db       |    |		Load_Top	At_Offset_3
0262 03f8       |    |		Declare_Type	Discrete,Constrained
0263 4813       |H   |		Short_Literal	0x13
0264 4814       |H   |		Short_Literal	0x14
0265 e2a5       |    |		Load	0x1,0xa5
0266 03f8       |    |		Declare_Type	Discrete,Constrained
0267 e29b       |    |		Load	0x1,0x9b
0268 0266       | f  |		Execute	Discrete,Bounds
0269 e2a5       |    |		Load	0x1,0xa5
026a 02a0       |    |		Declare_Subprogram	Null_Subprogram
026b 4801       |H   |		Short_Literal	0x1
026c 035d       | ]  |		Declare_Type	Array,Defined
026d 00d8       |    |		Load_Top	At_Offset_0
026e 0337       | 7  |		Declare_Variable	Array
026f 00d8       |    |		Load_Top	At_Offset_0
0270 0335       | 5  |		Declare_Variable	Array,Duplicate
0271 00cd       |    |		Action	Spare6_Action
0272 4800       |H   |		Short_Literal	0x0
0273 4800       |H   |		Short_Literal	0x0
0274 00da       |    |		Load_Top	At_Offset_2
0275 01d6       |    |		Execute	Vector,Field_Write
0276 4806       |H   |		Short_Literal	0x6
0277 4801       |H   |		Short_Literal	0x1
0278 00da       |    |		Load_Top	At_Offset_2
0279 01d6       |    |		Execute	Vector,Field_Write
027a 4815       |H   |		Short_Literal	0x15
027b 4802       |H   |		Short_Literal	0x2
027c 00da       |    |		Load_Top	At_Offset_2
027d 01d6       |    |		Execute	Vector,Field_Write
027e 4815       |H   |		Short_Literal	0x15
027f 4803       |H   |		Short_Literal	0x3
0280 00da       |    |		Load_Top	At_Offset_2
0281 01d6       |    |		Execute	Vector,Field_Write
0282 4800       |H   |		Short_Literal	0x0
0283 4804       |H   |		Short_Literal	0x4
0284 00da       |    |		Load_Top	At_Offset_2
0285 01d6       |    |		Execute	Vector,Field_Write
0286 4807       |H   |		Short_Literal	0x7
0287 4805       |H   |		Short_Literal	0x5
0288 00da       |    |		Load_Top	At_Offset_2
0289 01d6       |    |		Execute	Vector,Field_Write
028a 4808       |H   |		Short_Literal	0x8
028b 4806       |H   |		Short_Literal	0x6
028c 00da       |    |		Load_Top	At_Offset_2
028d 01d6       |    |		Execute	Vector,Field_Write
028e 4809       |H   |		Short_Literal	0x9
028f 4807       |H   |		Short_Literal	0x7
0290 00da       |    |		Load_Top	At_Offset_2
0291 01d6       |    |		Execute	Vector,Field_Write
0292 480a       |H   |		Short_Literal	0xa
0293 4808       |H   |		Short_Literal	0x8
0294 00da       |    |		Load_Top	At_Offset_2
0295 01d6       |    |		Execute	Vector,Field_Write
0296 480b       |H   |		Short_Literal	0xb
0297 4809       |H   |		Short_Literal	0x9
0298 00da       |    |		Load_Top	At_Offset_2
0299 01d6       |    |		Execute	Vector,Field_Write
029a 480c       |H   |		Short_Literal	0xc
029b 480a       |H   |		Short_Literal	0xa
029c 00da       |    |		Load_Top	At_Offset_2
029d 01d6       |    |		Execute	Vector,Field_Write
029e 480d       |H   |		Short_Literal	0xd
029f 480b       |H   |		Short_Literal	0xb
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 01d6       |    |		Execute	Vector,Field_Write
02a2 480e       |H   |		Short_Literal	0xe
02a3 480c       |H   |		Short_Literal	0xc
02a4 00da       |    |		Load_Top	At_Offset_2
02a5 01d6       |    |		Execute	Vector,Field_Write
02a6 480f       |H   |		Short_Literal	0xf
02a7 480d       |H   |		Short_Literal	0xd
02a8 00da       |    |		Load_Top	At_Offset_2
02a9 01d6       |    |		Execute	Vector,Field_Write
02aa 4810       |H   |		Short_Literal	0x10
02ab 480e       |H   |		Short_Literal	0xe
02ac 00da       |    |		Load_Top	At_Offset_2
02ad 01d6       |    |		Execute	Vector,Field_Write
02ae 4811       |H   |		Short_Literal	0x11
02af 480f       |H   |		Short_Literal	0xf
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 01d6       |    |		Execute	Vector,Field_Write
02b2 4812       |H   |		Short_Literal	0x12
02b3 4810       |H   |		Short_Literal	0x10
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 01d6       |    |		Execute	Vector,Field_Write
02b6 4813       |H   |		Short_Literal	0x13
02b7 4811       |H   |		Short_Literal	0x11
02b8 00da       |    |		Load_Top	At_Offset_2
02b9 01d6       |    |		Execute	Vector,Field_Write
02ba 4814       |H   |		Short_Literal	0x14
02bb 4812       |H   |		Short_Literal	0x12
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d6       |    |		Execute	Vector,Field_Write
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 01d4       |    |		Execute	Vector,Structure_Write
02c0 e2a5       |    |		Load	0x1,0xa5
02c1 e00c       |    |		Load	0x0,0xc
02c2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c3 480b       |H   |		Short_Literal	0xb
02c4 4801       |H   |		Short_Literal	0x1
02c5 4802       |H   |		Short_Literal	0x2
02c6 4811       |H   |		Short_Literal	0x11
02c7 0318       |    |		Declare_Type	Variant_Record,Incomplete
02c8 029f 16b3  |    |		Declare_Subprogram	INIT_16b0,For_Call
02ca 00d9       |    |		Load_Top	At_Offset_1
02cb 012a       | *  |		Execute	Any,Change_Utility
02cc 0007       |    |		Action	Break_Optional
02cd 00d8       |    |		Load_Top	At_Offset_0
02ce 02a0       |    |		Declare_Subprogram	Null_Subprogram
02cf 4818       |H   |		Short_Literal	0x18
02d0 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
02d1 00d8       |    |		Load_Top	At_Offset_0
02d2 e00c       |    |		Load	0x0,0xc
02d3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02d4 4801       |H   |		Short_Literal	0x1
02d5 4801       |H   |		Short_Literal	0x1
02d6 e2ac       |    |		Load	0x1,0xac
02d7 4801       |H   |		Short_Literal	0x1
02d8 4801       |H   |		Short_Literal	0x1
02d9 e00d       |    |		Load	0x0,0xd
02da 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
02db 4801       |H   |		Short_Literal	0x1
02dc 4801       |H   |		Short_Literal	0x1
02dd e00d       |    |		Load	0x0,0xd
02de 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02df 4801       |H   |		Short_Literal	0x1
02e0 4801       |H   |		Short_Literal	0x1
02e1 e00d       |    |		Load	0x0,0xd
02e2 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
02e3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e4 4801       |H   |		Short_Literal	0x1
02e5 4801       |H   |		Short_Literal	0x1
02e6 e2a0       |    |		Load	0x1,0xa0
02e7 4801       |H   |		Short_Literal	0x1
02e8 4801       |H   |		Short_Literal	0x1
02e9 e2a1       |    |		Load	0x1,0xa1
02ea 4801       |H   |		Short_Literal	0x1
02eb 4801       |H   |		Short_Literal	0x1
02ec e001       |    |		Load	0x0,0x1
02ed 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ef 4802       |H   |		Short_Literal	0x2
02f0 4802       |H   |		Short_Literal	0x2
02f1 e004       |    |		Load	0x0,0x4
02f2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f3 e004       |    |		Load	0x0,0x4
02f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f5 4801       |H   |		Short_Literal	0x1
02f6 4801       |H   |		Short_Literal	0x1
02f7 e001       |    |		Load	0x0,0x1
02f8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fa 4802       |H   |		Short_Literal	0x2
02fb 4802       |H   |		Short_Literal	0x2
02fc 00e2       |    |		Load_Encached	Integer_Cache
02fd 00e2       |    |		Load_Encached	Integer_Cache
02fe 4801       |H   |		Short_Literal	0x1
02ff 4801       |H   |		Short_Literal	0x1
0300 00e1       |    |		Load_Encached	Boolean_Cache
0301 029f 16b3  |    |		Declare_Subprogram	INIT_16b0,For_Call
0303 480d       |H   |		Short_Literal	0xd
0304 4801       |H   |		Short_Literal	0x1
0305 4801       |H   |		Short_Literal	0x1
0306 e2ab       |    |		Load	0x1,0xab
0307 0307       |    |		Complete_Type	Variant_Record,By_Defining
0308 00e3       |    |		Load_Encached	Natural_Cache
0309 e002       |    |		Load	0x0,0x2
030a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030b 00da       |    |		Load_Top	At_Offset_2
030c 00e9       |    |		Load_Encached	String_Cache
030d 029f 178b  |    |		Declare_Subprogram	INIT_1788,For_Call
030f 4800       |H   |		Short_Literal	0x0
0310 4801       |H   |		Short_Literal	0x1
0311 4802       |H   |		Short_Literal	0x2
0312 4800       |H   |		Short_Literal	0x0
0313 4801       |H   |		Short_Literal	0x1
0314 4801       |H   |		Short_Literal	0x1
0315 031d       |    |		Declare_Type	Variant_Record,Defined
0316 0092 2c0b  |  , |		Action	Push_String_Extended,0x2c0b					; ":MONDAY     :TUESDAY    :WEDNESDAY  :THURSDAY   :FRIDAY     :SATURDAY   :SUNDAY     :TODAY      :YESTERDAY  :JANUARY    :FEBRUARY   :MARCH      :APRIL      :MAY        :JUNE       :JULY       :AUGUST     :SEPTEMBER  :OCTOBER    :NOVEMBER   :DECEMBER   :NOON       :MIDNIGHT   :AM         :PM         :"
0318 029d 17b3  |    |		Declare_Subprogram	INIT_17b0,For_Outer_Call
031a 029d 1823  |   #|		Declare_Subprogram	INIT_1820,For_Outer_Call
031c 029d 194b  |   K|		Declare_Subprogram	INIT_1948,For_Outer_Call
031e 029d 19f3  |    |		Declare_Subprogram	INIT_19f0,For_Outer_Call
0320 029d 1a5b  |   [|		Declare_Subprogram	INIT_1a58,For_Outer_Call
0322 029d 1a9b  |    |		Declare_Subprogram	INIT_1a98,For_Outer_Call
0324 029d 1c6b  |   k|		Declare_Subprogram	INIT_1c68,For_Outer_Call
0326 029d 1d1b  |    |		Declare_Subprogram	INIT_1d18,For_Outer_Call
0328 029d 1d9b  |    |		Declare_Subprogram	INIT_1d98,For_Outer_Call
032a 029d 1f83  |    |		Declare_Subprogram	INIT_1f80,For_Outer_Call
032c 029d 1f9b  |    |		Declare_Subprogram	INIT_1f98,For_Outer_Call
032e 029d 1fb3  |    |		Declare_Subprogram	INIT_1fb0,For_Outer_Call
0330 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0331 00c7       |    |		Action	Elaborate_Subprogram
0332 1d86       |    |		Execute_Immediate	Reference_Lex_1,0x86
0333 00c7       |    |		Action	Elaborate_Subprogram
0334 029d 226b  |  "k|		Declare_Subprogram	INIT_2268,For_Outer_Call
0336 1d92       |    |		Execute_Immediate	Reference_Lex_1,0x92
0337 00c7       |    |		Action	Elaborate_Subprogram
0338 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0339 00c7       |    |		Action	Elaborate_Subprogram
033a 1d91       |    |		Execute_Immediate	Reference_Lex_1,0x91
033b 00c7       |    |		Action	Elaborate_Subprogram
033c 1d7e       | ~  |		Execute_Immediate	Reference_Lex_1,0x7e
033d 00c7       |    |		Action	Elaborate_Subprogram
033e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
033f 00c7       |    |		Action	Elaborate_Subprogram
0340 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0341 00c7       |    |		Action	Elaborate_Subprogram
0342 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0343 00c7       |    |		Action	Elaborate_Subprogram
0344 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0345 00c7       |    |		Action	Elaborate_Subprogram
0346 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0347 00c7       |    |		Action	Elaborate_Subprogram
0348 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0349 00c7       |    |		Action	Elaborate_Subprogram
034a 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
034b 00c7       |    |		Action	Elaborate_Subprogram
034c 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
034d 00c7       |    |		Action	Elaborate_Subprogram
034e 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
034f 00c7       |    |		Action	Elaborate_Subprogram
0350 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
0351 00c7       |    |		Action	Elaborate_Subprogram
0352 1d63       | c  |		Execute_Immediate	Reference_Lex_1,0x63
0353 00c7       |    |		Action	Elaborate_Subprogram
0354 1d64       | d  |		Execute_Immediate	Reference_Lex_1,0x64
0355 00c7       |    |		Action	Elaborate_Subprogram
0356 029d 22e3  |  " |		Declare_Subprogram	INIT_22e0,For_Outer_Call
0358 029d 2333  |  #3|		Declare_Subprogram	INIT_2330,For_Outer_Call
035a 029d 23bb  |  # |		Declare_Subprogram	INIT_23b8,For_Outer_Call
035c 029d 23db  |  # |		Declare_Subprogram	INIT_23d8,For_Outer_Call
035e 1d8e       |    |		Execute_Immediate	Reference_Lex_1,0x8e
035f 00c7       |    |		Action	Elaborate_Subprogram
0360 1d8f       |    |		Execute_Immediate	Reference_Lex_1,0x8f
0361 00c7       |    |		Action	Elaborate_Subprogram
0362 1d8c       |    |		Execute_Immediate	Reference_Lex_1,0x8c
0363 00c7       |    |		Action	Elaborate_Subprogram
0364 1d8d       |    |		Execute_Immediate	Reference_Lex_1,0x8d
0365 00c7       |    |		Action	Elaborate_Subprogram
0366 1d8b       |    |		Execute_Immediate	Reference_Lex_1,0x8b
0367 00c7       |    |		Action	Elaborate_Subprogram
0368 029d 25db  |  % |		Declare_Subprogram	INIT_25d8,For_Outer_Call
036a 1d90       |    |		Execute_Immediate	Reference_Lex_1,0x90
036b 00c7       |    |		Action	Elaborate_Subprogram
036c 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
036d 00c7       |    |		Action	Elaborate_Subprogram
036e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
036f 00c7       |    |		Action	Elaborate_Subprogram
0370 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
0371 00c7       |    |		Action	Elaborate_Subprogram
0372 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0373 00c7       |    |		Action	Elaborate_Subprogram
0374 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0375 00c7       |    |		Action	Elaborate_Subprogram
0376 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0377 00c7       |    |		Action	Elaborate_Subprogram
0378 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0379 00c7       |    |		Action	Elaborate_Subprogram
037a 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
037b 00c7       |    |		Action	Elaborate_Subprogram
037c 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
037d 00c7       |    |		Action	Elaborate_Subprogram
037e 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
037f 00c7       |    |		Action	Elaborate_Subprogram
0380 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0381 00c7       |    |		Action	Elaborate_Subprogram
0382 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0383 00c7       |    |		Action	Elaborate_Subprogram
0384 029d 2613  |  & |		Declare_Subprogram	INIT_2610,For_Outer_Call
0386 1d85       |    |		Execute_Immediate	Reference_Lex_1,0x85
0387 00c7       |    |		Action	Elaborate_Subprogram
0388 1d84       |    |		Execute_Immediate	Reference_Lex_1,0x84
0389 00c7       |    |		Action	Elaborate_Subprogram
038a 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
038b 00c7       |    |		Action	Elaborate_Subprogram
038c 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
038d 00c7       |    |		Action	Elaborate_Subprogram
038e 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
038f 00c7       |    |		Action	Elaborate_Subprogram
0390 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0391 00c7       |    |		Action	Elaborate_Subprogram
0392 029d 264b  |  &K|		Declare_Subprogram	INIT_2648,For_Outer_Call
0394 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0395 00c7       |    |		Action	Elaborate_Subprogram
0396 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0397 00c7       |    |		Action	Elaborate_Subprogram
0398 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0399 00c7       |    |		Action	Elaborate_Subprogram
039a 029d 2663  |  &c|		Declare_Subprogram	INIT_2660,For_Outer_Call
039c 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
039d 00c7       |    |		Action	Elaborate_Subprogram
039e 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
039f 00c7       |    |		Action	Elaborate_Subprogram
03a0 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
03a1 00c7       |    |		Action	Elaborate_Subprogram
03a2 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
03a3 00c7       |    |		Action	Elaborate_Subprogram
03a4 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
03a5 00c7       |    |		Action	Elaborate_Subprogram
03a6 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
03a7 00c7       |    |		Action	Elaborate_Subprogram
03a8 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
03a9 00c7       |    |		Action	Elaborate_Subprogram
03aa 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
03ab 00c7       |    |		Action	Elaborate_Subprogram
03ac 1d87       |    |		Execute_Immediate	Reference_Lex_1,0x87
03ad 00c7       |    |		Action	Elaborate_Subprogram
03ae 1d88       |    |		Execute_Immediate	Reference_Lex_1,0x88
03af 00c7       |    |		Action	Elaborate_Subprogram
03b0 029d 267b  |  &{|		Declare_Subprogram	INIT_2678,For_Outer_Call
03b2 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
03b3 00c7       |    |		Action	Elaborate_Subprogram
03b4 029d 2693  |  & |		Declare_Subprogram	INIT_2690,For_Outer_Call
03b6 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
03b7 00c7       |    |		Action	Elaborate_Subprogram
03b8 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
03b9 00c7       |    |		Action	Elaborate_Subprogram
03ba e00e       |    |		Load	0x0,0xe
03bb 193c       | <  |		Execute	Package,Field_Reference,Field_Number 0x3c
03bc 00c6       |    |		Action	Check_Subprogram_Elaborated
03bd e228       | (  |		Load	0x1,0x28
03be 4812       |H   |		Short_Literal	0x12
03bf e00f       |    |		Load	0x0,0xf
03c0 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
03c1 e00f       |    |		Load	0x0,0xf
03c2 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
03c3 e010       |    |		Load	0x0,0x10
03c4 e011       |    |		Load	0x0,0x11
03c5 4800       |H   |		Short_Literal	0x0
03c6 0007       |    |		Action	Break_Optional
03c7 029d 26d3  |  & |		Declare_Subprogram	INIT_26d0,For_Outer_Call
03c9 e00e       |    |		Load	0x0,0xe
03ca 193d       | =  |		Execute	Package,Field_Reference,Field_Number 0x3d
03cb 00c6       |    |		Action	Check_Subprogram_Elaborated
03cc e228       | (  |		Load	0x1,0x28
03cd 4812       |H   |		Short_Literal	0x12
03ce 1dcd       |    |		Execute_Immediate	Reference_Lex_1,0xcd
03cf e001       |    |		Load	0x0,0x1
03d0 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03d1 e012       |    |		Load	0x0,0x12
03d2 e013       |    |		Load	0x0,0x13
03d3 4800       |H   |		Short_Literal	0x0
03d4 0007       |    |		Action	Break_Optional
03d5 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
03d6 00c7       |    |		Action	Elaborate_Subprogram
03d7 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
03d8 00c7       |    |		Action	Elaborate_Subprogram
03d9 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
03da 00c7       |    |		Action	Elaborate_Subprogram
03db 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
03dc 00c7       |    |		Action	Elaborate_Subprogram
03dd 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
03de 00c7       |    |		Action	Elaborate_Subprogram
03df 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
03e0 00c7       |    |		Action	Elaborate_Subprogram
03e1 029d 26eb  |  & |		Declare_Subprogram	INIT_26e8,For_Outer_Call
03e3 029d 2733  |  '3|		Declare_Subprogram	INIT_2730,For_Outer_Call
03e5 029d 2743  |  'C|		Declare_Subprogram	INIT_2740,For_Outer_Call
03e7 029d 27a3  |  ' |		Declare_Subprogram	INIT_27a0,For_Outer_Call
03e9 029d 283b  |  (;|		Declare_Subprogram	INIT_2838,For_Outer_Call
03eb 029d 2883  |  ( |		Declare_Subprogram	INIT_2880,For_Outer_Call
03ed 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
03ee 00c7       |    |		Action	Elaborate_Subprogram
03ef 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
03f0 00c7       |    |		Action	Elaborate_Subprogram
03f1 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
03f2 00c7       |    |		Action	Elaborate_Subprogram
03f3 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
03f4 00c7       |    |		Action	Elaborate_Subprogram
03f5 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
03f6 00c7       |    |		Action	Elaborate_Subprogram
03f7 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
03f8 00c7       |    |		Action	Elaborate_Subprogram
03f9 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
03fa 00c7       |    |		Action	Elaborate_Subprogram
03fb 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
03fc 00c7       |    |		Action	Elaborate_Subprogram
03fd 1d7f       |    |		Execute_Immediate	Reference_Lex_1,0x7f
03fe 00c7       |    |		Action	Elaborate_Subprogram
03ff 1d80       |    |		Execute_Immediate	Reference_Lex_1,0x80
0400 00c7       |    |		Action	Elaborate_Subprogram
0401 1d81       |    |		Execute_Immediate	Reference_Lex_1,0x81
0402 00c7       |    |		Action	Elaborate_Subprogram
0403 1d82       |    |		Execute_Immediate	Reference_Lex_1,0x82
0404 00c7       |    |		Action	Elaborate_Subprogram
0405 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
0406 00c7       |    |		Action	Elaborate_Subprogram
0407 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
0408 00c7       |    |		Action	Elaborate_Subprogram
0409 1d73       | s  |		Execute_Immediate	Reference_Lex_1,0x73
040a 00c7       |    |		Action	Elaborate_Subprogram
040b 1d74       | t  |		Execute_Immediate	Reference_Lex_1,0x74
040c 00c7       |    |		Action	Elaborate_Subprogram
040d 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
040e 00c7       |    |		Action	Elaborate_Subprogram
040f 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
0410 00c7       |    |		Action	Elaborate_Subprogram
0411 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0412 00c7       |    |		Action	Elaborate_Subprogram
0413 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0414 00c7       |    |		Action	Elaborate_Subprogram
0415 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
0416 00c7       |    |		Action	Elaborate_Subprogram
0417 1d93       |    |		Execute_Immediate	Reference_Lex_1,0x93
0418 00c7       |    |		Action	Elaborate_Subprogram
0419 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
041a 00c7       |    |		Action	Elaborate_Subprogram
041b 1d94       |    |		Execute_Immediate	Reference_Lex_1,0x94
041c 00c7       |    |		Action	Elaborate_Subprogram
041d 1d95       |    |		Execute_Immediate	Reference_Lex_1,0x95
041e 00c7       |    |		Action	Elaborate_Subprogram
041f 1d96       |    |		Execute_Immediate	Reference_Lex_1,0x96
0420 00c7       |    |		Action	Elaborate_Subprogram
0421 e00e       |    |		Load	0x0,0xe
0422 193c       | <  |		Execute	Package,Field_Reference,Field_Number 0x3c
0423 00c6       |    |		Action	Check_Subprogram_Elaborated
0424 e20d       |    |		Load	0x1,0xd
0425 4811       |H   |		Short_Literal	0x11
0426 e014       |    |		Load	0x0,0x14
0427 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
0428 e014       |    |		Load	0x0,0x14
0429 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
042a e015       |    |		Load	0x0,0x15
042b e016       |    |		Load	0x0,0x16
042c 4800       |H   |		Short_Literal	0x0
042d 0007       |    |		Action	Break_Optional
042e 029d 28d3  |  ( |		Declare_Subprogram	INIT_28d0,For_Outer_Call
0430 e00e       |    |		Load	0x0,0xe
0431 193d       | =  |		Execute	Package,Field_Reference,Field_Number 0x3d
0432 00c6       |    |		Action	Check_Subprogram_Elaborated
0433 e20d       |    |		Load	0x1,0xd
0434 4811       |H   |		Short_Literal	0x11
0435 1de2       |    |		Execute_Immediate	Reference_Lex_1,0xe2
0436 e001       |    |		Load	0x0,0x1
0437 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0438 e017       |    |		Load	0x0,0x17
0439 e018       |    |		Load	0x0,0x18
043a 4800       |H   |		Short_Literal	0x0
043b 0007       |    |		Action	Break_Optional
043c 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
043d 00c7       |    |		Action	Elaborate_Subprogram
043e 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
043f 00c7       |    |		Action	Elaborate_Subprogram
0440 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
0441 00c7       |    |		Action	Elaborate_Subprogram
0442 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
0443 00c7       |    |		Action	Elaborate_Subprogram
0444 1d83       |    |		Execute_Immediate	Reference_Lex_1,0x83
0445 00c7       |    |		Action	Elaborate_Subprogram
0446 1d8a       |    |		Execute_Immediate	Reference_Lex_1,0x8a
0447 00c7       |    |		Action	Elaborate_Subprogram
0448 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
0449 00c7       |    |		Action	Elaborate_Subprogram
044a 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
044b 00c7       |    |		Action	Elaborate_Subprogram
044c 1d60       | `  |		Execute_Immediate	Reference_Lex_1,0x60
044d 00c7       |    |		Action	Elaborate_Subprogram
044e 1d61       | a  |		Execute_Immediate	Reference_Lex_1,0x61
044f 00c7       |    |		Action	Elaborate_Subprogram
0450 e019       |    |		Load	0x0,0x19
0451 e01a       |    |		Load	0x0,0x1a
0452 e01b       |    |		Load	0x0,0x1b
0453 4803       |H   |		Short_Literal	0x3
0454 e262       | b  |		Load	0x1,0x62
0455 020e       |    |		Execute	Module,Augment_Imports
0456 e262       | b  |		Load	0x1,0x62
0457 020d       |    |		Execute	Module,Elaborate
0458			BODY_0008:
0458 00bc       |    |		Action	Signal_Activated
0459 00bb       |    |		Action	Signal_Completion
045a 0000 0000  |    |		.XXX[0x2]
045c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 e001       |    |		Load	0x0,0x1
0464 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0465 00ca       |    |		Action	Exit_Nullary_Function
0466 0000 0000  |    |		.XXX[0x2]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 00da       |    |		Load_Top	At_Offset_2
046c 021d       |    |		Execute	Heap_Access,Is_Null
046d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046e 0000 0000  |    |		.XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0482       |    |		.CONST	0x0482								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0005       |    |		.CONST	0x0005								; Number of locals
0473			INIT_0470:
0473 e00d       |    |		Load	0x0,0xd
0474 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0475 02c7       |    |		Declare_Variable	Any
0476 00d8       |    |		Load_Top	At_Offset_0
0477 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0478 e00d       |    |		Load	0x0,0xd
0479 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
047a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
047b 02c7       |    |		Declare_Variable	Any
047c 00d8       |    |		Load_Top	At_Offset_0
047d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
047e e00d       |    |		Load	0x0,0xd
047f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0480 029f 28eb  |  ( |		Declare_Subprogram	INIT_28e8,For_Call
0482			BODY_0470:
0482 e5f9       |    |		Load	0x2,-0x7
0483 00db       |    |		Load_Top	At_Offset_3
0484 6063       |`c  |		Indirect_Literal	Discrete,0x4e8,{0x00000000, 0x00002817}
0485 605e       |`^  |		Indirect_Literal	Discrete,0x4e4,{0x00000000, 0x00002803}
0486 e5ff       |    |		Load	0x2,-0x1
0487 801c       |    |		Call	0x0,0x1c
0488 c403       |    |		Store	0x2,0x3
0489 c5f9       |    |		Store	0x2,-0x7
048a 4800       |H   |		Short_Literal	0x0
048b e5f9       |    |		Load	0x2,-0x7
048c e002       |    |		Load	0x0,0x2
048d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
048e 684d       |hM  |		Jump_Zero	0x4dc
048f 00cf       |    |		Action	Mark_Auxiliary
0490 7840       |x@  |		Jump	0x4d1
0491 e00d       |    |		Load	0x0,0xd
0492 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0493 e402       |    |		Load	0x2,0x2
0494 0120       |    |		Execute	Any,Is_Value
0495 6803       |h   |		Jump_Zero	0x499
0496 e00d       |    |		Load	0x0,0xd
0497 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0498 7801       |x   |		Jump	0x49a
0499 e402       |    |		Load	0x2,0x2
049a e403       |    |		Load	0x2,0x3
049b e00d       |    |		Load	0x0,0xd
049c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
049d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
049e c402       |    |		Store	0x2,0x2
049f 005b       | [  |		Store_Top	Discrete,At_Offset_3
04a0 00da       |    |		Load_Top	At_Offset_2
04a1 681c       |h   |		Jump_Zero	0x4be
04a2 e002       |    |		Load	0x0,0x2
04a3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a4 4801       |H   |		Short_Literal	0x1
04a5 4802       |H   |		Short_Literal	0x2
04a6 e00e       |    |		Load	0x0,0xe
04a7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04a8 035b       | [  |		Declare_Type	Array,Constrained
04a9 0337       | 7  |		Declare_Variable	Array
04aa e403       |    |		Load	0x2,0x3
04ab e00d       |    |		Load	0x0,0xd
04ac 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ad 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04ae e00e       |    |		Load	0x0,0xe
04af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b0 4801       |H   |		Short_Literal	0x1
04b1 00da       |    |		Load_Top	At_Offset_2
04b2 01d6       |    |		Execute	Vector,Field_Write
04b3 e404       |    |		Load	0x2,0x4
04b4 e00e       |    |		Load	0x0,0xe
04b5 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
04b6 4802       |H   |		Short_Literal	0x2
04b7 00da       |    |		Load_Top	At_Offset_2
04b8 01d6       |    |		Execute	Vector,Field_Write
04b9 6026       |`&  |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x00002808}
04ba e002       |    |		Load	0x0,0x2
04bb 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
04bc c5f9       |    |		Store	0x2,-0x7
04bd 7802       |x   |		Jump	0x4c0
04be e402       |    |		Load	0x2,0x2
04bf 8405       |    |		Call	0x2,0x5
04c0 0092 2c0c  |  , |		Action	Push_String_Extended,0x2c0c					; "Created state file for world \x22"
04c2 e403       |    |		Load	0x2,0x3
04c3 e00d       |    |		Load	0x0,0xd
04c4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04c5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04c6 01cc       |    |		Execute	Vector,Catenate
04c7 0092 2c0d  |  , |		Action	Push_String_Extended,0x2c0d					; "\x22."
04c9 01cc       |    |		Execute	Vector,Catenate
04ca 801d       |    |		Call	0x0,0x1d
04cb 00db       |    |		Load_Top	At_Offset_3
04cc e00d       |    |		Load	0x0,0xd
04cd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ce 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04cf c403       |    |		Store	0x2,0x3
04d0 00c9       |    |		Action	Pop_Auxiliary_Loop
04d1 00db       |    |		Load_Top	At_Offset_3
04d2 e00d       |    |		Load	0x0,0xd
04d3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04d4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04d5 6fbb       |o   |		Jump_Zero	0x491
04d6 00ce       |    |		Action	Pop_Auxiliary
04d7 00da       |    |		Load_Top	At_Offset_2
04d8 e00d       |    |		Load	0x0,0xd
04d9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04da 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
04db c403       |    |		Store	0x2,0x3
04dc 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
04dd 0000 0000  |    |		.XXX[0x3]
04df 0000       |    |
04e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002808}
04e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002803}
04e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002817}
04ec 0000 0000  |    |		.BLANK	0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 0500       |    |		.CONST	0x0500								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0004       |    |		.CONST	0x0004								; Number of locals
04f3			INIT_04f0:
04f3 e00d       |    |		Load	0x0,0xd
04f4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04f5 02c7       |    |		Declare_Variable	Any
04f6 00d8       |    |		Load_Top	At_Offset_0
04f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f8 e00d       |    |		Load	0x0,0xd
04f9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04fa 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04fb 02c7       |    |		Declare_Variable	Any
04fc 00d8       |    |		Load_Top	At_Offset_0
04fd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04fe e00d       |    |		Load	0x0,0xd
04ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0500			BODY_04f0:
0500 e5fd       |    |		Load	0x2,-0x3
0501 00da       |    |		Load_Top	At_Offset_2
0502 6055       |`U  |		Indirect_Literal	Discrete,0x558,{0x00000000, 0x00002818}
0503 6050       |`P  |		Indirect_Literal	Discrete,0x554,{0x00000000, 0x00002806}
0504 e5ff       |    |		Load	0x2,-0x1
0505 801c       |    |		Call	0x0,0x1c
0506 c403       |    |		Store	0x2,0x3
0507 c5fd       |    |		Store	0x2,-0x3
0508 4800       |H   |		Short_Literal	0x0
0509 e5fd       |    |		Load	0x2,-0x3
050a e002       |    |		Load	0x0,0x2
050b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
050c 6846       |hF  |		Jump_Zero	0x553
050d 00cf       |    |		Action	Mark_Auxiliary
050e 7839       |x9  |		Jump	0x548
050f e00d       |    |		Load	0x0,0xd
0510 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0511 e402       |    |		Load	0x2,0x2
0512 0120       |    |		Execute	Any,Is_Value
0513 6803       |h   |		Jump_Zero	0x517
0514 e00d       |    |		Load	0x0,0xd
0515 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0516 7801       |x   |		Jump	0x518
0517 e402       |    |		Load	0x2,0x2
0518 e403       |    |		Load	0x2,0x3
0519 e00d       |    |		Load	0x0,0xd
051a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
051b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
051c c402       |    |		Store	0x2,0x2
051d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
051e 00d9       |    |		Load_Top	At_Offset_1
051f 681c       |h   |		Jump_Zero	0x53c
0520 e002       |    |		Load	0x0,0x2
0521 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0522 4801       |H   |		Short_Literal	0x1
0523 4802       |H   |		Short_Literal	0x2
0524 e00e       |    |		Load	0x0,0xe
0525 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0526 035b       | [  |		Declare_Type	Array,Constrained
0527 0337       | 7  |		Declare_Variable	Array
0528 e403       |    |		Load	0x2,0x3
0529 e00d       |    |		Load	0x0,0xd
052a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
052b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
052c e00e       |    |		Load	0x0,0xe
052d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
052e 4801       |H   |		Short_Literal	0x1
052f 00da       |    |		Load_Top	At_Offset_2
0530 01d6       |    |		Execute	Vector,Field_Write
0531 00db       |    |		Load_Top	At_Offset_3
0532 e00e       |    |		Load	0x0,0xe
0533 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0534 4802       |H   |		Short_Literal	0x2
0535 00da       |    |		Load_Top	At_Offset_2
0536 01d6       |    |		Execute	Vector,Field_Write
0537 67a8       |g   |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x00002808}
0538 e002       |    |		Load	0x0,0x2
0539 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
053a c5fd       |    |		Store	0x2,-0x3
053b 7806       |x   |		Jump	0x542
053c e5fd       |    |		Load	0x2,-0x3
053d e5fe       |    |		Load	0x2,-0x2
053e e402       |    |		Load	0x2,0x2
053f e01b       |    |		Load	0x0,0x1b
0540 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0541 c5fd       |    |		Store	0x2,-0x3
0542 00da       |    |		Load_Top	At_Offset_2
0543 e00d       |    |		Load	0x0,0xd
0544 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0545 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0546 c403       |    |		Store	0x2,0x3
0547 00c9       |    |		Action	Pop_Auxiliary_Loop
0548 00da       |    |		Load_Top	At_Offset_2
0549 e00d       |    |		Load	0x0,0xd
054a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
054b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
054c 6fc2       |o   |		Jump_Zero	0x50f
054d 00ce       |    |		Action	Pop_Auxiliary
054e 00d9       |    |		Load_Top	At_Offset_1
054f e00d       |    |		Load	0x0,0xd
0550 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0551 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0552 c403       |    |		Store	0x2,0x3
0553 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0554 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002806}
0558 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002818}
055c 0000 0000  |    |		.BLANK	0000[0x4]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 056f       | o  |		.CONST	0x056f								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0004       |    |		.CONST	0x0004								; Number of locals
0563			INIT_0560:
0563 e20d       |    |		Load	0x1,0xd
0564 0007       |    |		Action	Break_Optional
0565 e001       |    |		Load	0x0,0x1
0566 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0567 02c7       |    |		Declare_Variable	Any
0568 00d8       |    |		Load_Top	At_Offset_0
0569 1c00       |    |		Execute_Immediate	Run_Utility,0x0
056a 6039       |`9  |		Indirect_Literal	Discrete,0x5a4,{0x00000000, 0x0000282a}
056b 6034       |`4  |		Indirect_Literal	Discrete,0x5a0,{0x00000000, 0x00002829}
056c 602f       |`/  |		Indirect_Literal	Discrete,0x59c,{0x00000000, 0x00002828}
056d e5ff       |    |		Load	0x2,-0x1
056e 801e       |    |		Call	0x0,0x1e
056f			BODY_0560:
056f 00be       |    |		Action	Activate_Tasks
0570 00d8       |    |		Load_Top	At_Offset_0
0571 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0572 a5fc       |    |		Store_Unchecked	0x2,-0x4
0573 4800       |H   |		Short_Literal	0x0
0574 00d9       |    |		Load_Top	At_Offset_1
0575 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0576 e002       |    |		Load	0x0,0x2
0577 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0578 6822       |h"  |		Jump_Zero	0x59b
0579 00cf       |    |		Action	Mark_Auxiliary
057a 00d9       |    |		Load_Top	At_Offset_1
057b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
057c 01d9       |    |		Execute	Vector,Reverse_Bounds
057d 0263       | c  |		Execute	Discrete,Above_Bound
057e 701b       |p   |		Jump_Nonzero	0x59a
057f e5fc       |    |		Load	0x2,-0x4
0580 e403       |    |		Load	0x2,0x3
0581 e20d       |    |		Load	0x1,0xd
0582 4801       |H   |		Short_Literal	0x1
0583 e5fd       |    |		Load	0x2,-0x3
0584 e407       |    |		Load	0x2,0x7
0585 e404       |    |		Load	0x2,0x4
0586 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0587 01d7       |    |		Execute	Vector,Field_Read
0588 4802       |H   |		Short_Literal	0x2
0589 e5fe       |    |		Load	0x2,-0x2
058a e001       |    |		Load	0x0,0x1
058b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
058c c402       |    |		Store	0x2,0x2
058d c403       |    |		Store	0x2,0x3
058e c5fc       |    |		Store	0x2,-0x4
058f e5fc       |    |		Load	0x2,-0x4
0590 e403       |    |		Load	0x2,0x3
0591 e402       |    |		Load	0x2,0x2
0592 4800       |H   |		Short_Literal	0x0
0593 e001       |    |		Load	0x0,0x1
0594 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0595 c402       |    |		Store	0x2,0x2
0596 c403       |    |		Store	0x2,0x3
0597 c5fc       |    |		Store	0x2,-0x4
0598 00c8       |    |		Action	Pop_Auxiliary_Range
0599 3fe5       |?   |		Loop_Increasing	0x57f
059a 00ce       |    |		Action	Pop_Auxiliary
059b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
059c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002828}
05a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002829}
05a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282a}
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05be       |    |		.CONST	0x05be								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0006       |    |		.CONST	0x0006								; Number of locals
05ab			INIT_05a8:
05ab e20d       |    |		Load	0x1,0xd
05ac 0007       |    |		Action	Break_Optional
05ad e001       |    |		Load	0x0,0x1
05ae 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05af 02c7       |    |		Declare_Variable	Any
05b0 00d8       |    |		Load_Top	At_Offset_0
05b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b2 67f1       |g   |		Indirect_Literal	Discrete,0x5a4,{0x00000000, 0x0000282a}
05b3 67ec       |g   |		Indirect_Literal	Discrete,0x5a0,{0x00000000, 0x00002829}
05b4 67e7       |g   |		Indirect_Literal	Discrete,0x59c,{0x00000000, 0x00002828}
05b5 e5ff       |    |		Load	0x2,-0x1
05b6 801e       |    |		Call	0x0,0x1e
05b7 00d8       |    |		Load_Top	At_Offset_0
05b8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05b9 e002       |    |		Load	0x0,0x2
05ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05bb 03f1       |    |		Declare_Variable	Discrete,With_Value
05bc 00e1       |    |		Load_Encached	Boolean_Cache
05bd 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05be			BODY_05a8:
05be 00be       |    |		Action	Activate_Tasks
05bf 4800       |H   |		Short_Literal	0x0
05c0 00da       |    |		Load_Top	At_Offset_2
05c1 e002       |    |		Load	0x0,0x2
05c2 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
05c3 682b       |h+  |		Jump_Zero	0x5ef
05c4 00cf       |    |		Action	Mark_Auxiliary
05c5 00db       |    |		Load_Top	At_Offset_3
05c6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05c7 01d9       |    |		Execute	Vector,Reverse_Bounds
05c8 0263       | c  |		Execute	Discrete,Above_Bound
05c9 7024       |p$  |		Jump_Nonzero	0x5ee
05ca e405       |    |		Load	0x2,0x5
05cb e403       |    |		Load	0x2,0x3
05cc e20d       |    |		Load	0x1,0xd
05cd e5fe       |    |		Load	0x2,-0x2
05ce e409       |    |		Load	0x2,0x9
05cf e404       |    |		Load	0x2,0x4
05d0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05d1 01d7       |    |		Execute	Vector,Field_Read
05d2 4800       |H   |		Short_Literal	0x0
05d3 e01b       |    |		Load	0x0,0x1b
05d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05d5 c402       |    |		Store	0x2,0x2
05d6 c403       |    |		Store	0x2,0x3
05d7 c405       |    |		Store	0x2,0x5
05d8 00d8       |    |		Load_Top	At_Offset_0
05d9 e404       |    |		Load	0x2,0x4
05da 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05db 01d7       |    |		Execute	Vector,Field_Read
05dc e402       |    |		Load	0x2,0x2
05dd 801f       |    |		Call	0x0,0x1f
05de a406       |    |		Store_Unchecked	0x2,0x6
05df e405       |    |		Load	0x2,0x5
05e0 e403       |    |		Load	0x2,0x3
05e1 e402       |    |		Load	0x2,0x2
05e2 4800       |H   |		Short_Literal	0x0
05e3 e001       |    |		Load	0x0,0x1
05e4 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05e5 c402       |    |		Store	0x2,0x2
05e6 c403       |    |		Store	0x2,0x3
05e7 c405       |    |		Store	0x2,0x5
05e8 00db       |    |		Load_Top	At_Offset_3
05e9 7002       |p   |		Jump_Nonzero	0x5ec
05ea 00d2       |    |		Pop_Control	Pop_Count_2
05eb 7802       |x   |		Jump	0x5ee
05ec 00c8       |    |		Action	Pop_Auxiliary_Range
05ed 3fdc       |?   |		Loop_Increasing	0x5ca
05ee 00ce       |    |		Action	Pop_Auxiliary
05ef 00d8       |    |		Load_Top	At_Offset_0
05f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f1 0000 0000  |    |		.BLANK	0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 08e2       |    |		Execute_Immediate	Raise,0xe2
05fc 0000 0000  |    |		.BLANK	0000[0x4]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603       |    |		.CONST	0x0603								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0001       |    |		.CONST	0x0001								; Number of locals
0603			BODY_0600:
0603			INIT_0600:
0603 08e2       |    |		Execute_Immediate	Raise,0xe2
0604 0000 0000  |    |		.BLANK	0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 060e       |    |		.CONST	0x060e								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b 00da       |    |		Load_Top	At_Offset_2
060c 021c       |    |		Execute	Heap_Access,Not_Null
060d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060e			TRAP_0608:
060e 0007       |    |		Action	Break_Optional
060f 4800       |H   |		Short_Literal	0x0
0610 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0611 0000 0000  |    |		.BLANK	0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b       |    |		.CONST	0x061b								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0001       |    |		.CONST	0x0001								; Number of locals
061b			BODY_0618:
061b			INIT_0618:
061b 00da       |    |		Load_Top	At_Offset_2
061c 0217       |    |		Execute	Heap_Access,All_Reference
061d 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
061e 0217       |    |		Execute	Heap_Access,All_Reference
061f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0620 c5fe       |    |		Store	0x2,-0x2
0621 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0622 0000 0000  |    |		.BLANK	0000[0x6]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b       | +  |		.CONST	0x062b								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0001       |    |		.CONST	0x0001								; Number of locals
062b			BODY_0628:
062b			INIT_0628:
062b 00da       |    |		Load_Top	At_Offset_2
062c 0217       |    |		Execute	Heap_Access,All_Reference
062d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
062e c5fe       |    |		Store	0x2,-0x2
062f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 00db       |    |		Load_Top	At_Offset_3
0634 00db       |    |		Load_Top	At_Offset_3
0635 0217       |    |		Execute	Heap_Access,All_Reference
0636 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0637 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b       | ;  |		.CONST	0x063b								; Address of begin
0639 0004       |    |		.CONST	0x0004								; Address of exception handler
063a 0001       |    |		.CONST	0x0001								; Number of locals
063b			BODY_0638:
063b			INIT_0638:
063b 00da       |    |		Load_Top	At_Offset_2
063c 0217       |    |		Execute	Heap_Access,All_Reference
063d 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
063e e020       |    |		Load	0x0,0x20
063f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0640 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0641 0000 0000  |    |		.BLANK	0000[0x7]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b       | K  |		.CONST	0x064b								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0001       |    |		.CONST	0x0001								; Number of locals
064b			BODY_0648:
064b			INIT_0648:
064b 00da       |    |		Load_Top	At_Offset_2
064c e5fe       |    |		Load	0x2,-0x2
064d e020       |    |		Load	0x0,0x20
064e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
064f 00db       |    |		Load_Top	At_Offset_3
0650 0217       |    |		Execute	Heap_Access,All_Reference
0651 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0652 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0653 0000 0000  |    |		.BLANK	0000[0x5]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 00da       |    |		Load_Top	At_Offset_2
065c 0217       |    |		Execute	Heap_Access,All_Reference
065d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
065e e020       |    |		Load	0x0,0x20
065f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0660 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0661 0000 0000  |    |		.BLANK	0000[0x7]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b       | k  |		.CONST	0x066b								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			BODY_0668:
066b			INIT_0668:
066b 00da       |    |		Load_Top	At_Offset_2
066c e5fe       |    |		Load	0x2,-0x2
066d e020       |    |		Load	0x0,0x20
066e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
066f 00db       |    |		Load_Top	At_Offset_3
0670 0217       |    |		Execute	Heap_Access,All_Reference
0671 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0672 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0673 0000 0000  |    |		.BLANK	0000[0x5]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 0680       |    |		.CONST	0x0680								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0003       |    |		.CONST	0x0003								; Number of locals
067b			INIT_0678:
067b e001       |    |		Load	0x0,0x1
067c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
067d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
067e 00e2       |    |		Load_Encached	Integer_Cache
067f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0680			BODY_0678:
0680 00d8       |    |		Load_Top	At_Offset_0
0681 e5fb       |    |		Load	0x2,-0x5
0682 e001       |    |		Load	0x0,0x1
0683 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0684 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0685 e5fc       |    |		Load	0x2,-0x4
0686 e5fd       |    |		Load	0x2,-0x3
0687 e5fe       |    |		Load	0x2,-0x2
0688 e5ff       |    |		Load	0x2,-0x1
0689 82bf       |    |		Call	0x1,0xbf
068a c402       |    |		Store	0x2,0x2
068b c5fb       |    |		Store	0x2,-0x5
068c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
068d e5fb       |    |		Load	0x2,-0x5
068e e5fd       |    |		Load	0x2,-0x3
068f 00da       |    |		Load_Top	At_Offset_2
0690 4801       |H   |		Short_Literal	0x1
0691 e5fe       |    |		Load	0x2,-0x2
0692 82bd       |    |		Call	0x1,0xbd
0693 c5fb       |    |		Store	0x2,-0x5
0694 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0695 0000 0000  |    |		.XXX[0x3]
0697 0000       |    |
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06a9       |    |		.CONST	0x06a9								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0006       |    |		.CONST	0x0006								; Number of locals
069b			INIT_0698:
069b e00d       |    |		Load	0x0,0xd
069c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
069d 02c7       |    |		Declare_Variable	Any
069e 00d8       |    |		Load_Top	At_Offset_0
069f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06a0 e00d       |    |		Load	0x0,0xd
06a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a2 e001       |    |		Load	0x0,0x1
06a3 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
06a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a5 00e2       |    |		Load_Encached	Integer_Cache
06a6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
06a7 00e2       |    |		Load_Encached	Integer_Cache
06a8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
06a9			BODY_0698:
06a9 00cf       |    |		Action	Mark_Auxiliary
06aa 7843       |xC  |		Jump	0x6ee
06ab e00d       |    |		Load	0x0,0xd
06ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06ad e402       |    |		Load	0x2,0x2
06ae 0120       |    |		Execute	Any,Is_Value
06af 6803       |h   |		Jump_Zero	0x6b3
06b0 e00d       |    |		Load	0x0,0xd
06b1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06b2 7801       |x   |		Jump	0x6b4
06b3 e402       |    |		Load	0x2,0x2
06b4 e5fc       |    |		Load	0x2,-0x4
06b5 e00d       |    |		Load	0x0,0xd
06b6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06b7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06b8 c402       |    |		Store	0x2,0x2
06b9 c403       |    |		Store	0x2,0x3
06ba e403       |    |		Load	0x2,0x3
06bb 7011       |p   |		Jump_Nonzero	0x6cd
06bc 00da       |    |		Load_Top	At_Offset_2
06bd e5fb       |    |		Load	0x2,-0x5
06be e001       |    |		Load	0x0,0x1
06bf 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
06c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06c1 e5fd       |    |		Load	0x2,-0x3
06c2 e5fe       |    |		Load	0x2,-0x2
06c3 e5ff       |    |		Load	0x2,-0x1
06c4 e402       |    |		Load	0x2,0x2
06c5 82bf       |    |		Call	0x1,0xbf
06c6 c404       |    |		Store	0x2,0x4
06c7 c5fb       |    |		Store	0x2,-0x5
06c8 005b       | [  |		Store_Top	Discrete,At_Offset_3
06c9 00d9       |    |		Load_Top	At_Offset_1
06ca 0a01       |    |		Execute_Immediate	Plus,0x1
06cb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
06cc 781b       |x   |		Jump	0x6e8
06cd e002       |    |		Load	0x0,0x2
06ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06cf 4801       |H   |		Short_Literal	0x1
06d0 4802       |H   |		Short_Literal	0x2
06d1 e00e       |    |		Load	0x0,0xe
06d2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06d3 035b       | [  |		Declare_Type	Array,Constrained
06d4 0337       | 7  |		Declare_Variable	Array
06d5 e5fc       |    |		Load	0x2,-0x4
06d6 e00d       |    |		Load	0x0,0xd
06d7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06d8 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
06d9 e00e       |    |		Load	0x0,0xe
06da 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06db 4801       |H   |		Short_Literal	0x1
06dc 00da       |    |		Load_Top	At_Offset_2
06dd 01d6       |    |		Execute	Vector,Field_Write
06de e403       |    |		Load	0x2,0x3
06df e00e       |    |		Load	0x0,0xe
06e0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06e1 4802       |H   |		Short_Literal	0x2
06e2 00da       |    |		Load_Top	At_Offset_2
06e3 01d6       |    |		Execute	Vector,Field_Write
06e4 601f       |`   |		Indirect_Literal	Discrete,0x704,{0x00000000, 0x00002808}
06e5 e002       |    |		Load	0x0,0x2
06e6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06e7 c5fb       |    |		Store	0x2,-0x5
06e8 e5fc       |    |		Load	0x2,-0x4
06e9 e00d       |    |		Load	0x0,0xd
06ea 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06eb 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06ec c5fc       |    |		Store	0x2,-0x4
06ed 00c9       |    |		Action	Pop_Auxiliary_Loop
06ee e5fc       |    |		Load	0x2,-0x4
06ef e00d       |    |		Load	0x0,0xd
06f0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06f1 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06f2 6fb8       |o   |		Jump_Zero	0x6ab
06f3 00ce       |    |		Action	Pop_Auxiliary
06f4 e5fb       |    |		Load	0x2,-0x5
06f5 e5fe       |    |		Load	0x2,-0x2
06f6 00db       |    |		Load_Top	At_Offset_3
06f7 00db       |    |		Load_Top	At_Offset_3
06f8 e5ff       |    |		Load	0x2,-0x1
06f9 82bd       |    |		Call	0x1,0xbd
06fa c5fb       |    |		Store	0x2,-0x5
06fb e5fc       |    |		Load	0x2,-0x4
06fc e00d       |    |		Load	0x0,0xd
06fd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06fe 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06ff c5fc       |    |		Store	0x2,-0x4
0700 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0701 0000 0000  |    |		.XXX[0x3]
0703 0000       |    |
0704 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002808}
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0711       |    |		.CONST	0x0711								; Address of begin
0709 0004       |    |		.CONST	0x0004								; Address of exception handler
070a 0002       |    |		.CONST	0x0002								; Number of locals
070b			INIT_0708:
070b e00d       |    |		Load	0x0,0xd
070c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
070d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
070e 02c7       |    |		Declare_Variable	Any
070f 00d8       |    |		Load_Top	At_Offset_0
0710 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0711			BODY_0708:
0711 e5fb       |    |		Load	0x2,-0x5
0712 00d9       |    |		Load_Top	At_Offset_1
0713 601c       |`   |		Indirect_Literal	Discrete,0x730,{0x00000000, 0x0000281b}
0714 6017       |`   |		Indirect_Literal	Discrete,0x72c,{0x00000000, 0x00002809}
0715 e5ff       |    |		Load	0x2,-0x1
0716 e5fe       |    |		Load	0x2,-0x2
0717 8021       | !  |		Call	0x0,0x21
0718 801c       |    |		Call	0x0,0x1c
0719 c402       |    |		Store	0x2,0x2
071a c5fb       |    |		Store	0x2,-0x5
071b 4800       |H   |		Short_Literal	0x0
071c e5fb       |    |		Load	0x2,-0x5
071d e002       |    |		Load	0x0,0x2
071e 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
071f 6808       |h   |		Jump_Zero	0x728
0720 e5fb       |    |		Load	0x2,-0x5
0721 00d9       |    |		Load_Top	At_Offset_1
0722 e5fc       |    |		Load	0x2,-0x4
0723 e5fd       |    |		Load	0x2,-0x3
0724 e5fe       |    |		Load	0x2,-0x2
0725 828c       |    |		Call	0x1,0x8c
0726 c402       |    |		Store	0x2,0x2
0727 c5fb       |    |		Store	0x2,-0x5
0728 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0729 0000 0000  |    |		.XXX[0x3]
072b 0000       |    |
072c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002809}
0730 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281b}
0734 0000 0000  |    |		.BLANK	0000[0x4]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073d       | =  |		.CONST	0x073d								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0002       |    |		.CONST	0x0002								; Number of locals
073b			INIT_0738:
073b 00e2       |    |		Load_Encached	Integer_Cache
073c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
073d			BODY_0738:
073d 00d8       |    |		Load_Top	At_Offset_0
073e e5fa       |    |		Load	0x2,-0x6
073f e001       |    |		Load	0x0,0x1
0740 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0741 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0742 e5fc       |    |		Load	0x2,-0x4
0743 e5fd       |    |		Load	0x2,-0x3
0744 e5fe       |    |		Load	0x2,-0x2
0745 e5ff       |    |		Load	0x2,-0x1
0746 82bf       |    |		Call	0x1,0xbf
0747 c5fb       |    |		Store	0x2,-0x5
0748 c5fa       |    |		Store	0x2,-0x6
0749 0059       | Y  |		Store_Top	Discrete,At_Offset_1
074a e5fa       |    |		Load	0x2,-0x6
074b e5fd       |    |		Load	0x2,-0x3
074c 00da       |    |		Load_Top	At_Offset_2
074d 4801       |H   |		Short_Literal	0x1
074e e5fe       |    |		Load	0x2,-0x2
074f 82bd       |    |		Call	0x1,0xbd
0750 c5fa       |    |		Store	0x2,-0x6
0751 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0752 0000 0000  |    |		.BLANK	0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 0765       | e  |		.CONST	0x0765								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0004       |    |		.CONST	0x0004								; Number of locals
075b			INIT_0758:
075b e00d       |    |		Load	0x0,0xd
075c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
075d 02c7       |    |		Declare_Variable	Any
075e 00d8       |    |		Load_Top	At_Offset_0
075f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0760 e00d       |    |		Load	0x0,0xd
0761 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0762 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0763 00e2       |    |		Load_Encached	Integer_Cache
0764 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0765			BODY_0758:
0765 e00d       |    |		Load	0x0,0xd
0766 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0767 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0768 00db       |    |		Load_Top	At_Offset_3
0769 0120       |    |		Execute	Any,Is_Value
076a 6803       |h   |		Jump_Zero	0x76e
076b e00d       |    |		Load	0x0,0xd
076c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
076d 7801       |x   |		Jump	0x76f
076e 00db       |    |		Load_Top	At_Offset_3
076f 6040       |`@  |		Indirect_Literal	Discrete,0x7b0,{0x00000000, 0x00004000}
0770 e022       | "  |		Load	0x0,0x22
0771 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0772 e023       | #  |		Load	0x0,0x23
0773 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0774 e00d       |    |		Load	0x0,0xd
0775 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0776 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0777 e5ff       |    |		Load	0x2,-0x1
0778 e5fe       |    |		Load	0x2,-0x2
0779 8021       | !  |		Call	0x0,0x21
077a e00d       |    |		Load	0x0,0xd
077b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
077c 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
077d c402       |    |		Store	0x2,0x2
077e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
077f 00d9       |    |		Load_Top	At_Offset_1
0780 7015       |p   |		Jump_Nonzero	0x796
0781 00d8       |    |		Load_Top	At_Offset_0
0782 e5fa       |    |		Load	0x2,-0x6
0783 e001       |    |		Load	0x0,0x1
0784 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0785 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0786 e5fc       |    |		Load	0x2,-0x4
0787 e5fd       |    |		Load	0x2,-0x3
0788 e5fe       |    |		Load	0x2,-0x2
0789 e402       |    |		Load	0x2,0x2
078a 82bf       |    |		Call	0x1,0xbf
078b c5fb       |    |		Store	0x2,-0x5
078c c5fa       |    |		Store	0x2,-0x6
078d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
078e e5fa       |    |		Load	0x2,-0x6
078f e5fd       |    |		Load	0x2,-0x3
0790 00da       |    |		Load_Top	At_Offset_2
0791 4801       |H   |		Short_Literal	0x1
0792 e5fe       |    |		Load	0x2,-0x2
0793 82bd       |    |		Call	0x1,0xbd
0794 c5fa       |    |		Store	0x2,-0x6
0795 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0796 e002       |    |		Load	0x0,0x2
0797 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0798 4801       |H   |		Short_Literal	0x1
0799 4801       |H   |		Short_Literal	0x1
079a e00e       |    |		Load	0x0,0xe
079b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
079c 035b       | [  |		Declare_Type	Array,Constrained
079d 0337       | 7  |		Declare_Variable	Array
079e e5ff       |    |		Load	0x2,-0x1
079f e403       |    |		Load	0x2,0x3
07a0 e00e       |    |		Load	0x0,0xe
07a1 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
07a2 4801       |H   |		Short_Literal	0x1
07a3 00da       |    |		Load_Top	At_Offset_2
07a4 01d6       |    |		Execute	Vector,Field_Write
07a5 6006       |`   |		Indirect_Literal	Discrete,0x7ac,{0x00000000, 0x00002809}
07a6 e002       |    |		Load	0x0,0x2
07a7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07a8 c5fa       |    |		Store	0x2,-0x6
07a9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
07aa 0000 0000  |    |		.XXX[0x2]
07ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002809}
07b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
07b4 0000 0000  |    |		.BLANK	0000[0x4]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07d3       |    |		.CONST	0x07d3								; Address of begin
07b9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ba 0008       |    |		.CONST	0x0008								; Number of locals
07bb			INIT_07b8:
07bb e00d       |    |		Load	0x0,0xd
07bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07bd e00d       |    |		Load	0x0,0xd
07be 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07bf 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
07c0 02c7       |    |		Declare_Variable	Any
07c1 00d8       |    |		Load_Top	At_Offset_0
07c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07c3 4800       |H   |		Short_Literal	0x0
07c4 e001       |    |		Load	0x0,0x1
07c5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
07c6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
07c7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
07c8 00e2       |    |		Load_Encached	Integer_Cache
07c9 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
07ca e00d       |    |		Load	0x0,0xd
07cb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07cc 02c7       |    |		Declare_Variable	Any
07cd 00d8       |    |		Load_Top	At_Offset_0
07ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07cf 00e2       |    |		Load_Encached	Integer_Cache
07d0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
07d1 029f 298b  |  ) |		Declare_Subprogram	INIT_2988,For_Call
07d3			BODY_07b8:
07d3 e404       |    |		Load	0x2,0x4
07d4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07d5 e403       |    |		Load	0x2,0x3
07d6 6061       |`a  |		Indirect_Literal	Discrete,0x838,{0x00000000, 0x0000281b}
07d7 67d4       |g   |		Indirect_Literal	Discrete,0x7ac,{0x00000000, 0x00002809}
07d8 e5ff       |    |		Load	0x2,-0x1
07d9 e5fe       |    |		Load	0x2,-0x2
07da 8021       | !  |		Call	0x0,0x21
07db 801c       |    |		Call	0x0,0x1c
07dc c403       |    |		Store	0x2,0x3
07dd e404       |    |		Load	0x2,0x4
07de 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07df 4800       |H   |		Short_Literal	0x0
07e0 e404       |    |		Load	0x2,0x4
07e1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07e2 e002       |    |		Load	0x0,0x2
07e3 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
07e4 6845       |hE  |		Jump_Zero	0x82a
07e5 00cf       |    |		Action	Mark_Auxiliary
07e6 7837       |x7  |		Jump	0x81e
07e7 e00d       |    |		Load	0x0,0xd
07e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07e9 e406       |    |		Load	0x2,0x6
07ea 0120       |    |		Execute	Any,Is_Value
07eb 6803       |h   |		Jump_Zero	0x7ef
07ec e00d       |    |		Load	0x0,0xd
07ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07ee 7801       |x   |		Jump	0x7f0
07ef e406       |    |		Load	0x2,0x6
07f0 e403       |    |		Load	0x2,0x3
07f1 e00d       |    |		Load	0x0,0xd
07f2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07f3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07f4 c406       |    |		Store	0x2,0x6
07f5 c402       |    |		Store	0x2,0x2
07f6 e402       |    |		Load	0x2,0x2
07f7 7004       |p   |		Jump_Nonzero	0x7fc
07f8 e405       |    |		Load	0x2,0x5
07f9 0a01       |    |		Execute_Immediate	Plus,0x1
07fa c405       |    |		Store	0x2,0x5
07fb 781c       |x   |		Jump	0x818
07fc e002       |    |		Load	0x0,0x2
07fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07fe 4801       |H   |		Short_Literal	0x1
07ff 4802       |H   |		Short_Literal	0x2
0800 e00e       |    |		Load	0x0,0xe
0801 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0802 035b       | [  |		Declare_Type	Array,Constrained
0803 0337       | 7  |		Declare_Variable	Array
0804 e403       |    |		Load	0x2,0x3
0805 e00d       |    |		Load	0x0,0xd
0806 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0807 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0808 e00e       |    |		Load	0x0,0xe
0809 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
080a 4801       |H   |		Short_Literal	0x1
080b 00da       |    |		Load_Top	At_Offset_2
080c 01d6       |    |		Execute	Vector,Field_Write
080d e402       |    |		Load	0x2,0x2
080e e00e       |    |		Load	0x0,0xe
080f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0810 4802       |H   |		Short_Literal	0x2
0811 00da       |    |		Load_Top	At_Offset_2
0812 01d6       |    |		Execute	Vector,Field_Write
0813 6020       |`   |		Indirect_Literal	Discrete,0x834,{0x00000000, 0x00002808}
0814 e002       |    |		Load	0x0,0x2
0815 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0816 e404       |    |		Load	0x2,0x4
0817 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0818 e403       |    |		Load	0x2,0x3
0819 e00d       |    |		Load	0x0,0xd
081a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
081b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
081c c403       |    |		Store	0x2,0x3
081d 00c9       |    |		Action	Pop_Auxiliary_Loop
081e e403       |    |		Load	0x2,0x3
081f e00d       |    |		Load	0x0,0xd
0820 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0821 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0822 6fc4       |o   |		Jump_Zero	0x7e7
0823 00ce       |    |		Action	Pop_Auxiliary
0824 e403       |    |		Load	0x2,0x3
0825 e00d       |    |		Load	0x0,0xd
0826 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0827 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0828 c403       |    |		Store	0x2,0x3
0829 8408       |    |		Call	0x2,0x8
082a e403       |    |		Load	0x2,0x3
082b e00d       |    |		Load	0x0,0xd
082c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
082d 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
082e c403       |    |		Store	0x2,0x3
082f e404       |    |		Load	0x2,0x4
0830 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0831 0000 0000  |    |		.XXX[0x3]
0833 0000       |    |
0834 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002808}
0838 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281b}
083c 0000 0000  |    |		.BLANK	0000[0x4]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843       | C  |		.CONST	0x0843								; Address of begin
0841 0004       |    |		.CONST	0x0004								; Address of exception handler
0842 0001       |    |		.CONST	0x0001								; Number of locals
0843			BODY_0840:
0843			INIT_0840:
0843 00da       |    |		Load_Top	At_Offset_2
0844 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0845 a5fd       |    |		Store_Unchecked	0x2,-0x3
0846 00cf       |    |		Action	Mark_Auxiliary
0847 00db       |    |		Load_Top	At_Offset_3
0848 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0849 01d9       |    |		Execute	Vector,Reverse_Bounds
084a 0263       | c  |		Execute	Discrete,Above_Bound
084b 700a       |p   |		Jump_Nonzero	0x856
084c e5fd       |    |		Load	0x2,-0x3
084d e5fe       |    |		Load	0x2,-0x2
084e 00da       |    |		Load_Top	At_Offset_2
084f e5ff       |    |		Load	0x2,-0x1
0850 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0851 01d7       |    |		Execute	Vector,Field_Read
0852 8222       | "  |		Call	0x1,0x22
0853 c5fd       |    |		Store	0x2,-0x3
0854 00c8       |    |		Action	Pop_Auxiliary_Range
0855 3ff6       |?   |		Loop_Increasing	0x84c
0856 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0857 0000       |    |		.XXX[0x1]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 0865       | e  |		.CONST	0x0865								; Address of begin
0859 0004       |    |		.CONST	0x0004								; Address of exception handler
085a 0005       |    |		.CONST	0x0005								; Number of locals
085b			INIT_0858:
085b e01b       |    |		Load	0x0,0x1b
085c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
085d e01b       |    |		Load	0x0,0x1b
085e 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
085f e5ff       |    |		Load	0x2,-0x1
0860 0217       |    |		Execute	Heap_Access,All_Reference
0861 3c1b       |<   |		Execute	Record,Field_Read,Field_Number 0x1b
0862 0007       |    |		Action	Break_Optional
0863 e01b       |    |		Load	0x0,0x1b
0864 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0865			BODY_0858:
0865 e024       | $  |		Load	0x0,0x24
0866 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0867 e5ff       |    |		Load	0x2,-0x1
0868 0217       |    |		Execute	Heap_Access,All_Reference
0869 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
086a e020       |    |		Load	0x0,0x20
086b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
086c 4801       |H   |		Short_Literal	0x1
086d 6076       |`v  |		Indirect_Literal	Discrete,0x8e4,{0x00000000, 0x00002822}
086e e002       |    |		Load	0x0,0x2
086f 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0870 e5ff       |    |		Load	0x2,-0x1
0871 0217       |    |		Execute	Heap_Access,All_Reference
0872 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
0873 a402       |    |		Store_Unchecked	0x2,0x2
0874 00cf       |    |		Action	Mark_Auxiliary
0875 780f       |x   |		Jump	0x885
0876 e402       |    |		Load	0x2,0x2
0877 0217       |    |		Execute	Heap_Access,All_Reference
0878 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0879 a403       |    |		Store_Unchecked	0x2,0x3
087a e5fd       |    |		Load	0x2,-0x3
087b e5fe       |    |		Load	0x2,-0x2
087c e402       |    |		Load	0x2,0x2
087d e001       |    |		Load	0x0,0x1
087e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
087f 0216       |    |		Execute	Heap_Access,Convert
0880 8222       | "  |		Call	0x1,0x22
0881 c5fd       |    |		Store	0x2,-0x3
0882 00db       |    |		Load_Top	At_Offset_3
0883 a402       |    |		Store_Unchecked	0x2,0x2
0884 00c9       |    |		Action	Pop_Auxiliary_Loop
0885 e402       |    |		Load	0x2,0x2
0886 77ef       |w   |		Jump_Nonzero	0x876
0887 00ce       |    |		Action	Pop_Auxiliary
0888 e5ff       |    |		Load	0x2,-0x1
0889 0217       |    |		Execute	Heap_Access,All_Reference
088a 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
088b a402       |    |		Store_Unchecked	0x2,0x2
088c 00cf       |    |		Action	Mark_Auxiliary
088d 780f       |x   |		Jump	0x89d
088e e402       |    |		Load	0x2,0x2
088f 0217       |    |		Execute	Heap_Access,All_Reference
0890 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0891 a403       |    |		Store_Unchecked	0x2,0x3
0892 e5fd       |    |		Load	0x2,-0x3
0893 e5fe       |    |		Load	0x2,-0x2
0894 e402       |    |		Load	0x2,0x2
0895 e001       |    |		Load	0x0,0x1
0896 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0897 0216       |    |		Execute	Heap_Access,Convert
0898 8222       | "  |		Call	0x1,0x22
0899 c5fd       |    |		Store	0x2,-0x3
089a 00db       |    |		Load_Top	At_Offset_3
089b a402       |    |		Store_Unchecked	0x2,0x2
089c 00c9       |    |		Action	Pop_Auxiliary_Loop
089d e402       |    |		Load	0x2,0x2
089e 77ef       |w   |		Jump_Nonzero	0x88e
089f 00c9       |    |		Action	Pop_Auxiliary_Loop
08a0 780b       |x   |		Jump	0x8ac
08a1 00da       |    |		Load_Top	At_Offset_2
08a2 0217       |    |		Execute	Heap_Access,All_Reference
08a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08a4 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
08a5 00da       |    |		Load_Top	At_Offset_2
08a6 e01b       |    |		Load	0x0,0x1b
08a7 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
08a8 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
08a9 00d9       |    |		Load_Top	At_Offset_1
08aa 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
08ab 00c9       |    |		Action	Pop_Auxiliary_Loop
08ac 00da       |    |		Load_Top	At_Offset_2
08ad 77f3       |w   |		Jump_Nonzero	0x8a1
08ae 00ce       |    |		Action	Pop_Auxiliary
08af e5fd       |    |		Load	0x2,-0x3
08b0 e001       |    |		Load	0x0,0x1
08b1 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
08b2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
08b3 e5ff       |    |		Load	0x2,-0x1
08b4 e001       |    |		Load	0x0,0x1
08b5 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
08b6 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
08b7 e001       |    |		Load	0x0,0x1
08b8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
08b9 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
08ba c5fd       |    |		Store	0x2,-0x3
08bb e5ff       |    |		Load	0x2,-0x1
08bc 0217       |    |		Execute	Heap_Access,All_Reference
08bd 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
08be 6807       |h   |		Jump_Zero	0x8c6
08bf e01b       |    |		Load	0x0,0x1b
08c0 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
08c1 e5ff       |    |		Load	0x2,-0x1
08c2 0217       |    |		Execute	Heap_Access,All_Reference
08c3 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
08c4 0217       |    |		Execute	Heap_Access,All_Reference
08c5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
08c6 e5ff       |    |		Load	0x2,-0x1
08c7 0217       |    |		Execute	Heap_Access,All_Reference
08c8 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
08c9 6807       |h   |		Jump_Zero	0x8d1
08ca e01b       |    |		Load	0x0,0x1b
08cb 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
08cc e5ff       |    |		Load	0x2,-0x1
08cd 0217       |    |		Execute	Heap_Access,All_Reference
08ce 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
08cf 0217       |    |		Execute	Heap_Access,All_Reference
08d0 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
08d1 e5fe       |    |		Load	0x2,-0x2
08d2 e5ff       |    |		Load	0x2,-0x1
08d3 8263       | c  |		Call	0x1,0x63
08d4 e5ff       |    |		Load	0x2,-0x1
08d5 e01b       |    |		Load	0x0,0x1b
08d6 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
08d7 0216       |    |		Execute	Heap_Access,Convert
08d8 a402       |    |		Store_Unchecked	0x2,0x2
08d9 e5fe       |    |		Load	0x2,-0x2
08da e402       |    |		Load	0x2,0x2
08db 0217       |    |		Execute	Heap_Access,All_Reference
08dc 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
08dd e025       | %  |		Load	0x0,0x25
08de 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08df 00db       |    |		Load_Top	At_Offset_3
08e0 e01b       |    |		Load	0x0,0x1b
08e1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
08e2 c402       |    |		Store	0x2,0x2
08e3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002822}
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb       |    |		.CONST	0x08eb								; Address of begin
08e9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ea 0001       |    |		.CONST	0x0001								; Number of locals
08eb			BODY_08e8:
08eb			INIT_08e8:
08eb e5fd       |    |		Load	0x2,-0x3
08ec e5fe       |    |		Load	0x2,-0x2
08ed 00d8       |    |		Load_Top	At_Offset_0
08ee e5ff       |    |		Load	0x2,-0x1
08ef e5fe       |    |		Load	0x2,-0x2
08f0 8021       | !  |		Call	0x0,0x21
08f1 8276       | v  |		Call	0x1,0x76
08f2 8221       | !  |		Call	0x1,0x21
08f3 c5fd       |    |		Store	0x2,-0x3
08f4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08f5 0000 0000  |    |		.XXX[0x3]
08f7 0000       |    |
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 0217       |    |		Execute	Heap_Access,All_Reference
08fd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
08fe e001       |    |		Load	0x0,0x1
08ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0900 00d9       |    |		Load_Top	At_Offset_1
0901 00d0       |    |		Action	Swap_Control
0902 0260       | `  |		Execute	Discrete,In_Type
0903 7001       |p   |		Jump_Nonzero	0x905
0904 0801       |    |		Execute_Immediate	Raise,0x1
0905 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0906 0000 0000  |    |		.XXX[0x2]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b       |    |		.CONST	0x090b								; Address of begin
0909 0004       |    |		.CONST	0x0004								; Address of exception handler
090a 0001       |    |		.CONST	0x0001								; Number of locals
090b			BODY_0908:
090b			INIT_0908:
090b 00da       |    |		Load_Top	At_Offset_2
090c 0217       |    |		Execute	Heap_Access,All_Reference
090d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
090e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
090f 0000       |    |		.XXX[0x1]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913       |    |		.CONST	0x0913								; Address of begin
0911 0004       |    |		.CONST	0x0004								; Address of exception handler
0912 0001       |    |		.CONST	0x0001								; Number of locals
0913			BODY_0910:
0913			INIT_0910:
0913 00da       |    |		Load_Top	At_Offset_2
0914 0217       |    |		Execute	Heap_Access,All_Reference
0915 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0916 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0917 0000       |    |		.XXX[0x1]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091b       |    |		.CONST	0x091b								; Address of begin
0919 0004       |    |		.CONST	0x0004								; Address of exception handler
091a 0001       |    |		.CONST	0x0001								; Number of locals
091b			BODY_0918:
091b			INIT_0918:
091b 00da       |    |		Load_Top	At_Offset_2
091c 0217       |    |		Execute	Heap_Access,All_Reference
091d 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
091e 0217       |    |		Execute	Heap_Access,All_Reference
091f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0920 e020       |    |		Load	0x0,0x20
0921 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0922 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0923 0000 0000  |    |		.BLANK	0000[0x5]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092e       | .  |		.CONST	0x092e								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0002       |    |		.CONST	0x0002								; Number of locals
092b			INIT_0928:
092b e002       |    |		Load	0x0,0x2
092c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
092d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
092e			BODY_0928:
092e 00d8       |    |		Load_Top	At_Offset_0
092f 4800       |H   |		Short_Literal	0x0
0930 e5ff       |    |		Load	0x2,-0x1
0931 e01b       |    |		Load	0x0,0x1b
0932 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0933 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0934 00d8       |    |		Load_Top	At_Offset_0
0935 7004       |p   |		Jump_Nonzero	0x93a
0936 00db       |    |		Load_Top	At_Offset_3
0937 0217       |    |		Execute	Heap_Access,All_Reference
0938 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0939 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
093a e00e       |    |		Load	0x0,0xe
093b 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
093c 00d9       |    |		Load_Top	At_Offset_1
093d e002       |    |		Load	0x0,0x2
093e 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
093f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0948       | H  |		.CONST	0x0948								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0003       |    |		.CONST	0x0003								; Number of locals
0943			INIT_0940:
0943 e002       |    |		Load	0x0,0x2
0944 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0945 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0946 e01b       |    |		Load	0x0,0x1b
0947 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0948			BODY_0940:
0948 00d9       |    |		Load_Top	At_Offset_1
0949 4802       |H   |		Short_Literal	0x2
094a e5ff       |    |		Load	0x2,-0x1
094b e01b       |    |		Load	0x0,0x1b
094c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
094d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
094e 00d9       |    |		Load_Top	At_Offset_1
094f 7024       |p$  |		Jump_Nonzero	0x974
0950 e5fe       |    |		Load	0x2,-0x2
0951 e5ff       |    |		Load	0x2,-0x1
0952 0217       |    |		Execute	Heap_Access,All_Reference
0953 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0954 e5fe       |    |		Load	0x2,-0x2
0955 701d       |p   |		Jump_Nonzero	0x973
0956 e5ff       |    |		Load	0x2,-0x1
0957 0217       |    |		Execute	Heap_Access,All_Reference
0958 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0959 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
095a 00cf       |    |		Action	Mark_Auxiliary
095b 7814       |x   |		Jump	0x970
095c 00d9       |    |		Load_Top	At_Offset_1
095d 0217       |    |		Execute	Heap_Access,All_Reference
095e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
095f e5ff       |    |		Load	0x2,-0x1
0960 0217       |    |		Execute	Heap_Access,All_Reference
0961 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0962 0217       |    |		Execute	Heap_Access,All_Reference
0963 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0964 012e       | .  |		Execute	Any,Not_Equal
0965 6805       |h   |		Jump_Zero	0x96b
0966 e00d       |    |		Load	0x0,0xd
0967 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0968 00da       |    |		Load_Top	At_Offset_2
0969 0217       |    |		Execute	Heap_Access,All_Reference
096a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
096b 00d9       |    |		Load_Top	At_Offset_1
096c 0217       |    |		Execute	Heap_Access,All_Reference
096d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
096e 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
096f 00c9       |    |		Action	Pop_Auxiliary_Loop
0970 00d9       |    |		Load_Top	At_Offset_1
0971 77ea       |w   |		Jump_Nonzero	0x95c
0972 00ce       |    |		Action	Pop_Auxiliary
0973 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0974 e002       |    |		Load	0x0,0x2
0975 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0976 4801       |H   |		Short_Literal	0x1
0977 4801       |H   |		Short_Literal	0x1
0978 e00e       |    |		Load	0x0,0xe
0979 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
097a 035b       | [  |		Declare_Type	Array,Constrained
097b 0337       | 7  |		Declare_Variable	Array
097c e5ff       |    |		Load	0x2,-0x1
097d 825a       | Z  |		Call	0x1,0x5a
097e 4801       |H   |		Short_Literal	0x1
097f 00da       |    |		Load_Top	At_Offset_2
0980 01d6       |    |		Execute	Vector,Field_Write
0981 00db       |    |		Load_Top	At_Offset_3
0982 e002       |    |		Load	0x0,0x2
0983 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0984 c5fd       |    |		Store	0x2,-0x3
0985 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0986 0000 0000  |    |		.XXX[0x2]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 098e       |    |		.CONST	0x098e								; Address of begin
0989 0004       |    |		.CONST	0x0004								; Address of exception handler
098a 0002       |    |		.CONST	0x0002								; Number of locals
098b			INIT_0988:
098b e002       |    |		Load	0x0,0x2
098c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
098d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
098e			BODY_0988:
098e 00d8       |    |		Load_Top	At_Offset_0
098f 4800       |H   |		Short_Literal	0x0
0990 e5ff       |    |		Load	0x2,-0x1
0991 e01b       |    |		Load	0x0,0x1b
0992 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0993 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0994 00d8       |    |		Load_Top	At_Offset_0
0995 7004       |p   |		Jump_Nonzero	0x99a
0996 00db       |    |		Load_Top	At_Offset_3
0997 0217       |    |		Execute	Heap_Access,All_Reference
0998 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0999 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
099a e00e       |    |		Load	0x0,0xe
099b 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
099c 00d9       |    |		Load_Top	At_Offset_1
099d e002       |    |		Load	0x0,0x2
099e 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
099f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09a6       |    |		.CONST	0x09a6								; Address of begin
09a1 0004       |    |		.CONST	0x0004								; Address of exception handler
09a2 0002       |    |		.CONST	0x0002								; Number of locals
09a3			INIT_09a0:
09a3 e002       |    |		Load	0x0,0x2
09a4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
09a5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
09a6			BODY_09a0:
09a6 00d8       |    |		Load_Top	At_Offset_0
09a7 4802       |H   |		Short_Literal	0x2
09a8 e5ff       |    |		Load	0x2,-0x1
09a9 e01b       |    |		Load	0x0,0x1b
09aa 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
09ab 0059       | Y  |		Store_Top	Discrete,At_Offset_1
09ac 00d8       |    |		Load_Top	At_Offset_0
09ad 7005       |p   |		Jump_Nonzero	0x9b3
09ae e5fe       |    |		Load	0x2,-0x2
09af e5ff       |    |		Load	0x2,-0x1
09b0 0217       |    |		Execute	Heap_Access,All_Reference
09b1 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
09b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09b3 e002       |    |		Load	0x0,0x2
09b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09b5 4801       |H   |		Short_Literal	0x1
09b6 4801       |H   |		Short_Literal	0x1
09b7 e00e       |    |		Load	0x0,0xe
09b8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09b9 035b       | [  |		Declare_Type	Array,Constrained
09ba 0337       | 7  |		Declare_Variable	Array
09bb e5ff       |    |		Load	0x2,-0x1
09bc 825a       | Z  |		Call	0x1,0x5a
09bd 4801       |H   |		Short_Literal	0x1
09be 00da       |    |		Load_Top	At_Offset_2
09bf 01d6       |    |		Execute	Vector,Field_Write
09c0 00da       |    |		Load_Top	At_Offset_2
09c1 e002       |    |		Load	0x0,0x2
09c2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
09c3 c5fd       |    |		Store	0x2,-0x3
09c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09c5 0000 0000  |    |		.XXX[0x3]
09c7 0000       |    |
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09d5       |    |		.CONST	0x09d5								; Address of begin
09c9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ca 0004       |    |		.CONST	0x0004								; Number of locals
09cb			INIT_09c8:
09cb e002       |    |		Load	0x0,0x2
09cc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
09cd 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
09ce 4801       |H   |		Short_Literal	0x1
09cf 4a00       |J   |		Short_Literal	0x200
09d0 e229       | )  |		Load	0x1,0x29
09d1 035b       | [  |		Declare_Type	Array,Constrained
09d2 0337       | 7  |		Declare_Variable	Array
09d3 e01b       |    |		Load	0x0,0x1b
09d4 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
09d5			BODY_09c8:
09d5 00da       |    |		Load_Top	At_Offset_2
09d6 4800       |H   |		Short_Literal	0x0
09d7 e5ff       |    |		Load	0x2,-0x1
09d8 e01b       |    |		Load	0x0,0x1b
09d9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
09da 005b       | [  |		Store_Top	Discrete,At_Offset_3
09db 00da       |    |		Load_Top	At_Offset_2
09dc 7037       |p7  |		Jump_Nonzero	0xa14
09dd e5ff       |    |		Load	0x2,-0x1
09de 0217       |    |		Execute	Heap_Access,All_Reference
09df 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
09e0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
09e1 00cf       |    |		Action	Mark_Auxiliary
09e2 00da       |    |		Load_Top	At_Offset_2
09e3 01d9       |    |		Execute	Vector,Reverse_Bounds
09e4 0007       |    |		Action	Break_Optional
09e5 00db       |    |		Load_Top	At_Offset_3
09e6 701f       |p   |		Jump_Nonzero	0xa06
09e7 00d8       |    |		Load_Top	At_Offset_0
09e8 0aff       |    |		Execute_Immediate	Plus,-0x1
09e9 e22a       | *  |		Load	0x1,0x2a
09ea 1c08       |    |		Execute_Immediate	Run_Utility,0x8
09eb 4800       |H   |		Short_Literal	0x0
09ec 00d9       |    |		Load_Top	At_Offset_1
09ed 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09ee 4801       |H   |		Short_Literal	0x1
09ef 00da       |    |		Load_Top	At_Offset_2
09f0 0aff       |    |		Execute_Immediate	Plus,-0x1
09f1 e403       |    |		Load	0x2,0x3
09f2 01cf       |    |		Execute	Vector,Slice_Read
09f3 00d9       |    |		Load_Top	At_Offset_1
09f4 00d8       |    |		Load_Top	At_Offset_0
09f5 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09f6 00da       |    |		Load_Top	At_Offset_2
09f7 01da       |    |		Execute	Vector,Bounds
09f8 00da       |    |		Load_Top	At_Offset_2
09f9 01da       |    |		Execute	Vector,Bounds
09fa 00da       |    |		Load_Top	At_Offset_2
09fb 027f       |    |		Execute	Discrete,Equal
09fc 7001       |p   |		Jump_Nonzero	0x9fe
09fd 08e0       |    |		Execute_Immediate	Raise,0xe0
09fe 00cd       |    |		Action	Spare6_Action
09ff 027f       |    |		Execute	Discrete,Equal
0a00 7001       |p   |		Jump_Nonzero	0xa02
0a01 08e0       |    |		Execute_Immediate	Raise,0xe0
0a02 00d2       |    |		Pop_Control	Pop_Count_2
0a03 00d9       |    |		Load_Top	At_Offset_1
0a04 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0a05 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a06 00db       |    |		Load_Top	At_Offset_3
0a07 e001       |    |		Load	0x0,0x1
0a08 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0a09 0216       |    |		Execute	Heap_Access,Convert
0a0a 00d9       |    |		Load_Top	At_Offset_1
0a0b e403       |    |		Load	0x2,0x3
0a0c 01d6       |    |		Execute	Vector,Field_Write
0a0d 00db       |    |		Load_Top	At_Offset_3
0a0e 0217       |    |		Execute	Heap_Access,All_Reference
0a0f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0a10 a404       |    |		Store_Unchecked	0x2,0x4
0a11 00c8       |    |		Action	Pop_Auxiliary_Range
0a12 3fd2       |?   |		Loop_Increasing	0x9e5
0a13 00ce       |    |		Action	Pop_Auxiliary
0a14 4800       |H   |		Short_Literal	0x0
0a15 e22a       | *  |		Load	0x1,0x2a
0a16 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a17 4801       |H   |		Short_Literal	0x1
0a18 4801       |H   |		Short_Literal	0x1
0a19 e00e       |    |		Load	0x0,0xe
0a1a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a1b 035b       | [  |		Declare_Type	Array,Constrained
0a1c 0337       | 7  |		Declare_Variable	Array
0a1d e5ff       |    |		Load	0x2,-0x1
0a1e 825a       | Z  |		Call	0x1,0x5a
0a1f 4801       |H   |		Short_Literal	0x1
0a20 00da       |    |		Load_Top	At_Offset_2
0a21 01d6       |    |		Execute	Vector,Field_Write
0a22 e402       |    |		Load	0x2,0x2
0a23 e002       |    |		Load	0x0,0x2
0a24 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a25 00d9       |    |		Load_Top	At_Offset_1
0a26 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a27 4801       |H   |		Short_Literal	0x1
0a28 4800       |H   |		Short_Literal	0x0
0a29 e229       | )  |		Load	0x1,0x29
0a2a 035b       | [  |		Declare_Type	Array,Constrained
0a2b 0337       | 7  |		Declare_Variable	Array
0a2c 00d9       |    |		Load_Top	At_Offset_1
0a2d 00d8       |    |		Load_Top	At_Offset_0
0a2e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a2f 00da       |    |		Load_Top	At_Offset_2
0a30 01da       |    |		Execute	Vector,Bounds
0a31 00da       |    |		Load_Top	At_Offset_2
0a32 01da       |    |		Execute	Vector,Bounds
0a33 00da       |    |		Load_Top	At_Offset_2
0a34 027f       |    |		Execute	Discrete,Equal
0a35 7001       |p   |		Jump_Nonzero	0xa37
0a36 08e0       |    |		Execute_Immediate	Raise,0xe0
0a37 00cd       |    |		Action	Spare6_Action
0a38 027f       |    |		Execute	Discrete,Equal
0a39 7001       |p   |		Jump_Nonzero	0xa3b
0a3a 08e0       |    |		Execute_Immediate	Raise,0xe0
0a3b 00d2       |    |		Pop_Control	Pop_Count_2
0a3c 00d9       |    |		Load_Top	At_Offset_1
0a3d 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0a3e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a3f 0000       |    |		.XXX[0x1]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a43       | C  |		.CONST	0x0a43								; Address of begin
0a41 0004       |    |		.CONST	0x0004								; Address of exception handler
0a42 0001       |    |		.CONST	0x0001								; Number of locals
0a43			BODY_0a40:
0a43			INIT_0a40:
0a43 e5fd       |    |		Load	0x2,-0x3
0a44 e5fe       |    |		Load	0x2,-0x2
0a45 e5ff       |    |		Load	0x2,-0x1
0a46 0217       |    |		Execute	Heap_Access,All_Reference
0a47 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0a48 0217       |    |		Execute	Heap_Access,All_Reference
0a49 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a4a 8231       | 1  |		Call	0x1,0x31
0a4b c5fd       |    |		Store	0x2,-0x3
0a4c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a4d 0000 0000  |    |		.XXX[0x3]
0a4f 0000       |    |
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a65       | e  |		.CONST	0x0a65								; Address of begin
0a51 0af3       |    |		.CONST	0x0af3								; Address of exception handler
0a52 0006       |    |		.CONST	0x0006								; Number of locals
0a53			INIT_0a50:
0a53 00da       |    |		Load_Top	At_Offset_2
0a54 8026       | &  |		Call	0x0,0x26
0a55 e027       | '  |		Load	0x0,0x27
0a56 03f1       |    |		Declare_Variable	Discrete,With_Value
0a57 e00d       |    |		Load	0x0,0xd
0a58 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a59 02c7       |    |		Declare_Variable	Any
0a5a 00d8       |    |		Load_Top	At_Offset_0
0a5b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a5c e00d       |    |		Load	0x0,0xd
0a5d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a5e 02c7       |    |		Declare_Variable	Any
0a5f 00d8       |    |		Load_Top	At_Offset_0
0a60 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a61 e01b       |    |		Load	0x0,0x1b
0a62 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0a63 e01b       |    |		Load	0x0,0x1b
0a64 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0a65			BODY_0a50:
0a65 e402       |    |		Load	0x2,0x2
0a66 4604       |F   |		Jump_Case	0x5
0a67 781c       |x   |		Jump	0xa84								; case 0x0
0a68 780f       |x   |		Jump	0xa78								; case 0x1
0a69 780b       |x   |		Jump	0xa75								; case 0x2
0a6a 7814       |x   |		Jump	0xa7f								; case 0x3
0a6b 7800       |x   |		Jump	0xa6c								; case 0x4
0a6c e5fd       |    |		Load	0x2,-0x3
0a6d e5fe       |    |		Load	0x2,-0x2
0a6e 6099       |`   |		Indirect_Literal	Discrete,0xb08,{0x00000000, 0x0000280c}
0a6f 4801       |H   |		Short_Literal	0x1
0a70 e5ff       |    |		Load	0x2,-0x1
0a71 8028       | (  |		Call	0x0,0x28
0a72 82c2       |    |		Call	0x1,0xc2
0a73 c5fd       |    |		Store	0x2,-0x3
0a74 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a75 e5ff       |    |		Load	0x2,-0x1
0a76 c403       |    |		Store	0x2,0x3
0a77 7814       |x   |		Jump	0xa8c
0a78 e5ff       |    |		Load	0x2,-0x1
0a79 c404       |    |		Store	0x2,0x4
0a7a 6089       |`   |		Indirect_Literal	Discrete,0xb04,{0x00000000, 0x0000280b}
0a7b 00db       |    |		Load_Top	At_Offset_3
0a7c 8029       | )  |		Call	0x0,0x29
0a7d c403       |    |		Store	0x2,0x3
0a7e 780d       |x   |		Jump	0xa8c
0a7f e5ff       |    |		Load	0x2,-0x1
0a80 c403       |    |		Store	0x2,0x3
0a81 e5ff       |    |		Load	0x2,-0x1
0a82 c404       |    |		Store	0x2,0x4
0a83 7808       |x   |		Jump	0xa8c
0a84 e5fd       |    |		Load	0x2,-0x3
0a85 e5fe       |    |		Load	0x2,-0x2
0a86 6079       |`y  |		Indirect_Literal	Discrete,0xb00,{0x00000000, 0x00002815}
0a87 e5ff       |    |		Load	0x2,-0x1
0a88 8029       | )  |		Call	0x0,0x29
0a89 8231       | 1  |		Call	0x1,0x31
0a8a c5fd       |    |		Store	0x2,-0x3
0a8b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a8c e5fd       |    |		Load	0x2,-0x3
0a8d e01b       |    |		Load	0x0,0x1b
0a8e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0a8f e5fe       |    |		Load	0x2,-0x2
0a90 e403       |    |		Load	0x2,0x3
0a91 82c1       |    |		Call	0x1,0xc1
0a92 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0a93 c5fd       |    |		Store	0x2,-0x3
0a94 4800       |H   |		Short_Literal	0x0
0a95 e5fd       |    |		Load	0x2,-0x3
0a96 e002       |    |		Load	0x0,0x2
0a97 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0a98 6859       |hY  |		Jump_Zero	0xaf2
0a99 00d9       |    |		Load_Top	At_Offset_1
0a9a 7005       |p   |		Jump_Nonzero	0xaa0
0a9b e5fe       |    |		Load	0x2,-0x2
0a9c 00db       |    |		Load_Top	At_Offset_3
0a9d e403       |    |		Load	0x2,0x3
0a9e 82bb       |    |		Call	0x1,0xbb
0a9f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0aa0 e5fe       |    |		Load	0x2,-0x2
0aa1 0217       |    |		Execute	Heap_Access,All_Reference
0aa2 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0aa3 684e       |hN  |		Jump_Zero	0xaf2
0aa4 00da       |    |		Load_Top	At_Offset_2
0aa5 e00d       |    |		Load	0x0,0xd
0aa6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0aa7 6818       |h   |		Jump_Zero	0xac0
0aa8 e002       |    |		Load	0x0,0x2
0aa9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0aaa 4801       |H   |		Short_Literal	0x1
0aab 4802       |H   |		Short_Literal	0x2
0aac e00e       |    |		Load	0x0,0xe
0aad 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0aae 035b       | [  |		Declare_Type	Array,Constrained
0aaf 0337       | 7  |		Declare_Variable	Array
0ab0 e403       |    |		Load	0x2,0x3
0ab1 e00e       |    |		Load	0x0,0xe
0ab2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ab3 4801       |H   |		Short_Literal	0x1
0ab4 00da       |    |		Load_Top	At_Offset_2
0ab5 01d6       |    |		Execute	Vector,Field_Write
0ab6 e5fe       |    |		Load	0x2,-0x2
0ab7 825a       | Z  |		Call	0x1,0x5a
0ab8 4802       |H   |		Short_Literal	0x2
0ab9 00da       |    |		Load_Top	At_Offset_2
0aba 01d6       |    |		Execute	Vector,Field_Write
0abb 6040       |`@  |		Indirect_Literal	Discrete,0xafc,{0x00000000, 0x00002816}
0abc e002       |    |		Load	0x0,0x2
0abd 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0abe c5fd       |    |		Store	0x2,-0x3
0abf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ac0 00da       |    |		Load_Top	At_Offset_2
0ac1 00da       |    |		Load_Top	At_Offset_2
0ac2 0217       |    |		Execute	Heap_Access,All_Reference
0ac3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0ac4 012e       | .  |		Execute	Any,Not_Equal
0ac5 682c       |h,  |		Jump_Zero	0xaf2
0ac6 00da       |    |		Load_Top	At_Offset_2
0ac7 00da       |    |		Load_Top	At_Offset_2
0ac8 0217       |    |		Execute	Heap_Access,All_Reference
0ac9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0aca 00db       |    |		Load_Top	At_Offset_3
0acb 00db       |    |		Load_Top	At_Offset_3
0acc 012e       | .  |		Execute	Any,Not_Equal
0acd 680b       |h   |		Jump_Zero	0xad9
0ace e5fe       |    |		Load	0x2,-0x2
0acf 00db       |    |		Load_Top	At_Offset_3
0ad0 e00d       |    |		Load	0x0,0xd
0ad1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ad2 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0ad3 e020       |    |		Load	0x0,0x20
0ad4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0ad5 00da       |    |		Load_Top	At_Offset_2
0ad6 0217       |    |		Execute	Heap_Access,All_Reference
0ad7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0ad8 7806       |x   |		Jump	0xadf
0ad9 00d9       |    |		Load_Top	At_Offset_1
0ada 0217       |    |		Execute	Heap_Access,All_Reference
0adb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0adc 00da       |    |		Load_Top	At_Offset_2
0add 0217       |    |		Execute	Heap_Access,All_Reference
0ade 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0adf 00d9       |    |		Load_Top	At_Offset_1
0ae0 0217       |    |		Execute	Heap_Access,All_Reference
0ae1 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0ae2 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0ae3 00cf       |    |		Action	Mark_Auxiliary
0ae4 780a       |x   |		Jump	0xaef
0ae5 e003       |    |		Load	0x0,0x3
0ae6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0ae7 00da       |    |		Load_Top	At_Offset_2
0ae8 0217       |    |		Execute	Heap_Access,All_Reference
0ae9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0aea 00d9       |    |		Load_Top	At_Offset_1
0aeb 0217       |    |		Execute	Heap_Access,All_Reference
0aec 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0aed 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0aee 00c9       |    |		Action	Pop_Auxiliary_Loop
0aef 00d9       |    |		Load_Top	At_Offset_1
0af0 77f4       |w   |		Jump_Nonzero	0xae5
0af1 00ce       |    |		Action	Pop_Auxiliary
0af2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0af3			TRAP_0a50:
0af3 e002       |    |		Load	0x0,0x2
0af4 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0af5 010f       |    |		Execute	Exception,Equal
0af6 6804       |h   |		Jump_Zero	0xafb
0af7 e002       |    |		Load	0x0,0x2
0af8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0af9 a5fd       |    |		Store_Unchecked	0x2,-0x3
0afa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0afb 0100       |    |		Execute	Exception,Raise
0afc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002816}
0b00 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002815}
0b04 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280b}
0b08 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280c}
0b0c 0000 0000  |    |		.BLANK	0000[0x4]
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; --------------------------------------------------------------------------------------
0b10 0b20       |    |		.CONST	0x0b20								; Address of begin
0b11 0b73       | s  |		.CONST	0x0b73								; Address of exception handler
0b12 0004       |    |		.CONST	0x0004								; Number of locals
0b13			INIT_0b10:
0b13 e00d       |    |		Load	0x0,0xd
0b14 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b15 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0b16 02c7       |    |		Declare_Variable	Any
0b17 00d8       |    |		Load_Top	At_Offset_0
0b18 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b19 e00d       |    |		Load	0x0,0xd
0b1a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b1b 02c7       |    |		Declare_Variable	Any
0b1c 00d8       |    |		Load_Top	At_Offset_0
0b1d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b1e e00d       |    |		Load	0x0,0xd
0b1f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b20			BODY_0b10:
0b20 e5fd       |    |		Load	0x2,-0x3
0b21 00db       |    |		Load_Top	At_Offset_3
0b22 6061       |`a  |		Indirect_Literal	Discrete,0xb84,{0x00000000, 0x00002819}
0b23 605c       |`\  |		Indirect_Literal	Discrete,0xb80,{0x00000000, 0x00002807}
0b24 e5ff       |    |		Load	0x2,-0x1
0b25 801c       |    |		Call	0x0,0x1c
0b26 c402       |    |		Store	0x2,0x2
0b27 c5fd       |    |		Store	0x2,-0x3
0b28 4800       |H   |		Short_Literal	0x0
0b29 e5fd       |    |		Load	0x2,-0x3
0b2a e002       |    |		Load	0x0,0x2
0b2b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0b2c 6840       |h@  |		Jump_Zero	0xb6d
0b2d 00cf       |    |		Action	Mark_Auxiliary
0b2e 7838       |x8  |		Jump	0xb67
0b2f e00d       |    |		Load	0x0,0xd
0b30 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b31 00db       |    |		Load_Top	At_Offset_3
0b32 0120       |    |		Execute	Any,Is_Value
0b33 6803       |h   |		Jump_Zero	0xb37
0b34 e00d       |    |		Load	0x0,0xd
0b35 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b36 7801       |x   |		Jump	0xb38
0b37 00db       |    |		Load_Top	At_Offset_3
0b38 e402       |    |		Load	0x2,0x2
0b39 e00d       |    |		Load	0x0,0xd
0b3a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b3b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0b3c c403       |    |		Store	0x2,0x3
0b3d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0b3e 00d9       |    |		Load_Top	At_Offset_1
0b3f 7006       |p   |		Jump_Nonzero	0xb46
0b40 e5fd       |    |		Load	0x2,-0x3
0b41 e5fe       |    |		Load	0x2,-0x2
0b42 e403       |    |		Load	0x2,0x3
0b43 8231       | 1  |		Call	0x1,0x31
0b44 c5fd       |    |		Store	0x2,-0x3
0b45 781b       |x   |		Jump	0xb61
0b46 e002       |    |		Load	0x0,0x2
0b47 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b48 4801       |H   |		Short_Literal	0x1
0b49 4802       |H   |		Short_Literal	0x2
0b4a e00e       |    |		Load	0x0,0xe
0b4b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b4c 035b       | [  |		Declare_Type	Array,Constrained
0b4d 0337       | 7  |		Declare_Variable	Array
0b4e e402       |    |		Load	0x2,0x2
0b4f e00d       |    |		Load	0x0,0xd
0b50 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b51 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0b52 e00e       |    |		Load	0x0,0xe
0b53 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b54 4801       |H   |		Short_Literal	0x1
0b55 00da       |    |		Load_Top	At_Offset_2
0b56 01d6       |    |		Execute	Vector,Field_Write
0b57 00db       |    |		Load_Top	At_Offset_3
0b58 e00e       |    |		Load	0x0,0xe
0b59 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0b5a 4802       |H   |		Short_Literal	0x2
0b5b 00da       |    |		Load_Top	At_Offset_2
0b5c 01d6       |    |		Execute	Vector,Field_Write
0b5d 601e       |`   |		Indirect_Literal	Discrete,0xb7c,{0x00000000, 0x00002812}
0b5e e002       |    |		Load	0x0,0x2
0b5f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0b60 c5fd       |    |		Store	0x2,-0x3
0b61 00db       |    |		Load_Top	At_Offset_3
0b62 e00d       |    |		Load	0x0,0xd
0b63 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b64 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0b65 c402       |    |		Store	0x2,0x2
0b66 00c9       |    |		Action	Pop_Auxiliary_Loop
0b67 00db       |    |		Load_Top	At_Offset_3
0b68 e00d       |    |		Load	0x0,0xd
0b69 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b6a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0b6b 6fc3       |o   |		Jump_Zero	0xb2f
0b6c 00ce       |    |		Action	Pop_Auxiliary
0b6d 00da       |    |		Load_Top	At_Offset_2
0b6e e00d       |    |		Load	0x0,0xd
0b6f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b70 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0b71 c402       |    |		Store	0x2,0x2
0b72 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b73			TRAP_0b10:
0b73 0007       |    |		Action	Break_Optional
0b74 00db       |    |		Load_Top	At_Offset_3
0b75 e00d       |    |		Load	0x0,0xd
0b76 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b77 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0b78 c402       |    |		Store	0x2,0x2
0b79 00d8       |    |		Load_Top	At_Offset_0
0b7a 0101       |    |		Execute	Exception,Reraise
0b7b 0000       |    |		.XXX[0x1]
0b7c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002812}
0b80 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002807}
0b84 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002819}
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; --------------------------------------------------------------------------------------
0b88 0b8b       |    |		.CONST	0x0b8b								; Address of begin
0b89 0004       |    |		.CONST	0x0004								; Address of exception handler
0b8a 0001       |    |		.CONST	0x0001								; Number of locals
0b8b			BODY_0b88:
0b8b			INIT_0b88:
0b8b 00da       |    |		Load_Top	At_Offset_2
0b8c 0217       |    |		Execute	Heap_Access,All_Reference
0b8d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0b8e e00d       |    |		Load	0x0,0xd
0b8f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b90 6808       |h   |		Jump_Zero	0xb99
0b91 e5fd       |    |		Load	0x2,-0x3
0b92 e5fe       |    |		Load	0x2,-0x2
0b93 e5ff       |    |		Load	0x2,-0x1
0b94 0217       |    |		Execute	Heap_Access,All_Reference
0b95 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b96 8231       | 1  |		Call	0x1,0x31
0b97 c5fd       |    |		Store	0x2,-0x3
0b98 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b99 e5fd       |    |		Load	0x2,-0x3
0b9a e5fe       |    |		Load	0x2,-0x2
0b9b e5ff       |    |		Load	0x2,-0x1
0b9c 0217       |    |		Execute	Heap_Access,All_Reference
0b9d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0b9e 8231       | 1  |		Call	0x1,0x31
0b9f c5fd       |    |		Store	0x2,-0x3
0ba0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ba1 0000 0000  |    |		.BLANK	0000[0x7]
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bab       |    |		.CONST	0x0bab								; Address of begin
0ba9 0004       |    |		.CONST	0x0004								; Address of exception handler
0baa 0001       |    |		.CONST	0x0001								; Number of locals
0bab			BODY_0ba8:
0bab			INIT_0ba8:
0bab e5fd       |    |		Load	0x2,-0x3
0bac e5fe       |    |		Load	0x2,-0x2
0bad e5ff       |    |		Load	0x2,-0x1
0bae 0217       |    |		Execute	Heap_Access,All_Reference
0baf 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0bb0 0217       |    |		Execute	Heap_Access,All_Reference
0bb1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0bb2 8235       | 5  |		Call	0x1,0x35
0bb3 c5fd       |    |		Store	0x2,-0x3
0bb4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bb5 0000 0000  |    |		.XXX[0x3]
0bb7 0000       |    |
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bde       |    |		.CONST	0x0bde								; Address of begin
0bb9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bba 000e       |    |		.CONST	0x000e								; Number of locals
0bbb			INIT_0bb8:
0bbb 00da       |    |		Load_Top	At_Offset_2
0bbc 8026       | &  |		Call	0x0,0x26
0bbd e027       | '  |		Load	0x0,0x27
0bbe 03f1       |    |		Declare_Variable	Discrete,With_Value
0bbf e00d       |    |		Load	0x0,0xd
0bc0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0bc1 02c7       |    |		Declare_Variable	Any
0bc2 00d8       |    |		Load_Top	At_Offset_0
0bc3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0bc4 e5fe       |    |		Load	0x2,-0x2
0bc5 0217       |    |		Execute	Heap_Access,All_Reference
0bc6 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0bc7 0007       |    |		Action	Break_Optional
0bc8 00d8       |    |		Load_Top	At_Offset_0
0bc9 0217       |    |		Execute	Heap_Access,All_Reference
0bca 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0bcb 0007       |    |		Action	Break_Optional
0bcc e01b       |    |		Load	0x0,0x1b
0bcd 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0bce e01b       |    |		Load	0x0,0x1b
0bcf 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0bd0 e01b       |    |		Load	0x0,0x1b
0bd1 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0bd2 e01b       |    |		Load	0x0,0x1b
0bd3 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0bd4 e01b       |    |		Load	0x0,0x1b
0bd5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0bd6 e01b       |    |		Load	0x0,0x1b
0bd7 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0bd8 e01b       |    |		Load	0x0,0x1b
0bd9 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0bda e01b       |    |		Load	0x0,0x1b
0bdb 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0bdc e01b       |    |		Load	0x0,0x1b
0bdd 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0bde			BODY_0bb8:
0bde e402       |    |		Load	0x2,0x2
0bdf 4604       |F   |		Jump_Case	0x5
0be0 7815       |x   |		Jump	0xbf6								; case 0x0
0be1 780f       |x   |		Jump	0xbf1								; case 0x1
0be2 780b       |x   |		Jump	0xbee								; case 0x2
0be3 780a       |x   |		Jump	0xbee								; case 0x3
0be4 7800       |x   |		Jump	0xbe5								; case 0x4
0be5 e5fd       |    |		Load	0x2,-0x3
0be6 e5fe       |    |		Load	0x2,-0x2
0be7 60c8       |`   |		Indirect_Literal	Discrete,0xcb0,{0x00000000, 0x0000280d}
0be8 4800       |H   |		Short_Literal	0x0
0be9 e5ff       |    |		Load	0x2,-0x1
0bea 8028       | (  |		Call	0x0,0x28
0beb 82c3       |    |		Call	0x1,0xc3
0bec c5fd       |    |		Store	0x2,-0x3
0bed 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bee e5ff       |    |		Load	0x2,-0x1
0bef c403       |    |		Store	0x2,0x3
0bf0 780d       |x   |		Jump	0xbfe
0bf1 60ba       |`   |		Indirect_Literal	Discrete,0xcac,{0x00000000, 0x0000280b}
0bf2 e5ff       |    |		Load	0x2,-0x1
0bf3 8029       | )  |		Call	0x0,0x29
0bf4 c403       |    |		Store	0x2,0x3
0bf5 7808       |x   |		Jump	0xbfe
0bf6 e5fd       |    |		Load	0x2,-0x3
0bf7 e5fe       |    |		Load	0x2,-0x2
0bf8 60af       |`   |		Indirect_Literal	Discrete,0xca8,{0x00000000, 0x00002815}
0bf9 e5ff       |    |		Load	0x2,-0x1
0bfa 8029       | )  |		Call	0x0,0x29
0bfb 8235       | 5  |		Call	0x1,0x35
0bfc c5fd       |    |		Store	0x2,-0x3
0bfd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bfe 00cf       |    |		Action	Mark_Auxiliary
0bff 789f       |x   |		Jump	0xc9f
0c00 e404       |    |		Load	0x2,0x4
0c01 0217       |    |		Execute	Heap_Access,All_Reference
0c02 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c03 e403       |    |		Load	0x2,0x3
0c04 012f       | /  |		Execute	Any,Equal
0c05 6890       |h   |		Jump_Zero	0xc96
0c06 e404       |    |		Load	0x2,0x4
0c07 e5fe       |    |		Load	0x2,-0x2
0c08 0217       |    |		Execute	Heap_Access,All_Reference
0c09 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0c0a 021e       |    |		Execute	Heap_Access,Maximum
0c0b 6895       |h   |		Jump_Zero	0xca1
0c0c e406       |    |		Load	0x2,0x6
0c0d 7007       |p   |		Jump_Nonzero	0xc15
0c0e e404       |    |		Load	0x2,0x4
0c0f 0217       |    |		Execute	Heap_Access,All_Reference
0c10 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c11 e5fe       |    |		Load	0x2,-0x2
0c12 0217       |    |		Execute	Heap_Access,All_Reference
0c13 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0c14 7806       |x   |		Jump	0xc1b
0c15 e404       |    |		Load	0x2,0x4
0c16 0217       |    |		Execute	Heap_Access,All_Reference
0c17 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c18 e406       |    |		Load	0x2,0x6
0c19 0217       |    |		Execute	Heap_Access,All_Reference
0c1a 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0c1b e404       |    |		Load	0x2,0x4
0c1c 0217       |    |		Execute	Heap_Access,All_Reference
0c1d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0c1e a407       |    |		Store_Unchecked	0x2,0x7
0c1f 00cf       |    |		Action	Mark_Auxiliary
0c20 7859       |xY  |		Jump	0xc7a
0c21 e407       |    |		Load	0x2,0x7
0c22 0217       |    |		Execute	Heap_Access,All_Reference
0c23 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0c24 a408       |    |		Store_Unchecked	0x2,0x8
0c25 e407       |    |		Load	0x2,0x7
0c26 0217       |    |		Execute	Heap_Access,All_Reference
0c27 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0c28 a409       |    |		Store_Unchecked	0x2,0x9
0c29 00cf       |    |		Action	Mark_Auxiliary
0c2a 783f       |x?  |		Jump	0xc6a
0c2b e409       |    |		Load	0x2,0x9
0c2c 0217       |    |		Execute	Heap_Access,All_Reference
0c2d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c2e a40a       |    |		Store_Unchecked	0x2,0xa
0c2f e409       |    |		Load	0x2,0x9
0c30 0217       |    |		Execute	Heap_Access,All_Reference
0c31 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c32 0217       |    |		Execute	Heap_Access,All_Reference
0c33 3c19       |<   |		Execute	Record,Field_Read,Field_Number 0x19
0c34 a40d       |    |		Store_Unchecked	0x2,0xd
0c35 00cf       |    |		Action	Mark_Auxiliary
0c36 7829       |x)  |		Jump	0xc60
0c37 e40d       |    |		Load	0x2,0xd
0c38 0217       |    |		Execute	Heap_Access,All_Reference
0c39 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0c3a e407       |    |		Load	0x2,0x7
0c3b 021f       |    |		Execute	Heap_Access,Equal
0c3c 681c       |h   |		Jump_Zero	0xc59
0c3d e40e       |    |		Load	0x2,0xe
0c3e 7009       |p   |		Jump_Nonzero	0xc48
0c3f e40d       |    |		Load	0x2,0xd
0c40 0217       |    |		Execute	Heap_Access,All_Reference
0c41 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c42 e409       |    |		Load	0x2,0x9
0c43 0217       |    |		Execute	Heap_Access,All_Reference
0c44 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c45 0217       |    |		Execute	Heap_Access,All_Reference
0c46 3819       |8   |		Execute	Record,Field_Write,Field_Number 0x19
0c47 7806       |x   |		Jump	0xc4e
0c48 e40d       |    |		Load	0x2,0xd
0c49 0217       |    |		Execute	Heap_Access,All_Reference
0c4a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c4b e40e       |    |		Load	0x2,0xe
0c4c 0217       |    |		Execute	Heap_Access,All_Reference
0c4d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0c4e e40d       |    |		Load	0x2,0xd
0c4f e01b       |    |		Load	0x0,0x1b
0c50 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0c51 c40d       |    |		Store	0x2,0xd
0c52 4800       |H   |		Short_Literal	0x0
0c53 e409       |    |		Load	0x2,0x9
0c54 0217       |    |		Execute	Heap_Access,All_Reference
0c55 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c56 0217       |    |		Execute	Heap_Access,All_Reference
0c57 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0c58 7809       |x   |		Jump	0xc62
0c59 e40d       |    |		Load	0x2,0xd
0c5a a40e       |    |		Store_Unchecked	0x2,0xe
0c5b e40d       |    |		Load	0x2,0xd
0c5c 0217       |    |		Execute	Heap_Access,All_Reference
0c5d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c5e a40d       |    |		Store_Unchecked	0x2,0xd
0c5f 00c9       |    |		Action	Pop_Auxiliary_Loop
0c60 e40d       |    |		Load	0x2,0xd
0c61 77d5       |w   |		Jump_Nonzero	0xc37
0c62 00ce       |    |		Action	Pop_Auxiliary
0c63 e409       |    |		Load	0x2,0x9
0c64 e01b       |    |		Load	0x0,0x1b
0c65 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0c66 c409       |    |		Store	0x2,0x9
0c67 e40a       |    |		Load	0x2,0xa
0c68 a409       |    |		Store_Unchecked	0x2,0x9
0c69 00c9       |    |		Action	Pop_Auxiliary_Loop
0c6a e409       |    |		Load	0x2,0x9
0c6b 77bf       |w   |		Jump_Nonzero	0xc2b
0c6c 00ce       |    |		Action	Pop_Auxiliary
0c6d e5fe       |    |		Load	0x2,-0x2
0c6e e407       |    |		Load	0x2,0x7
0c6f 0217       |    |		Execute	Heap_Access,All_Reference
0c70 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c71 e02a       | *  |		Load	0x0,0x2a
0c72 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0c73 e407       |    |		Load	0x2,0x7
0c74 e01b       |    |		Load	0x0,0x1b
0c75 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0c76 c407       |    |		Store	0x2,0x7
0c77 e408       |    |		Load	0x2,0x8
0c78 a407       |    |		Store_Unchecked	0x2,0x7
0c79 00c9       |    |		Action	Pop_Auxiliary_Loop
0c7a e407       |    |		Load	0x2,0x7
0c7b 77a5       |w   |		Jump_Nonzero	0xc21
0c7c 00ce       |    |		Action	Pop_Auxiliary
0c7d e404       |    |		Load	0x2,0x4
0c7e 0217       |    |		Execute	Heap_Access,All_Reference
0c7f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0c80 a40b       |    |		Store_Unchecked	0x2,0xb
0c81 00cf       |    |		Action	Mark_Auxiliary
0c82 780b       |x   |		Jump	0xc8e
0c83 e40b       |    |		Load	0x2,0xb
0c84 0217       |    |		Execute	Heap_Access,All_Reference
0c85 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c86 a40c       |    |		Store_Unchecked	0x2,0xc
0c87 e40b       |    |		Load	0x2,0xb
0c88 e01b       |    |		Load	0x0,0x1b
0c89 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0c8a c40b       |    |		Store	0x2,0xb
0c8b e40c       |    |		Load	0x2,0xc
0c8c a40b       |    |		Store_Unchecked	0x2,0xb
0c8d 00c9       |    |		Action	Pop_Auxiliary_Loop
0c8e e40b       |    |		Load	0x2,0xb
0c8f 77f3       |w   |		Jump_Nonzero	0xc83
0c90 00ce       |    |		Action	Pop_Auxiliary
0c91 e404       |    |		Load	0x2,0x4
0c92 e01b       |    |		Load	0x0,0x1b
0c93 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0c94 c404       |    |		Store	0x2,0x4
0c95 780b       |x   |		Jump	0xca1
0c96 e404       |    |		Load	0x2,0x4
0c97 a406       |    |		Store_Unchecked	0x2,0x6
0c98 e405       |    |		Load	0x2,0x5
0c99 a404       |    |		Store_Unchecked	0x2,0x4
0c9a e404       |    |		Load	0x2,0x4
0c9b 0217       |    |		Execute	Heap_Access,All_Reference
0c9c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c9d a405       |    |		Store_Unchecked	0x2,0x5
0c9e 00c9       |    |		Action	Pop_Auxiliary_Loop
0c9f e404       |    |		Load	0x2,0x4
0ca0 775f       |w_  |		Jump_Nonzero	0xc00
0ca1 00ce       |    |		Action	Pop_Auxiliary
0ca2 e5fe       |    |		Load	0x2,-0x2
0ca3 e403       |    |		Load	0x2,0x3
0ca4 e02a       | *  |		Load	0x0,0x2a
0ca5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0ca6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ca7 0000       |    |		.XXX[0x1]
0ca8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002815}
0cac 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280b}
0cb0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280d}
0cb4 0000 0000  |    |		.BLANK	0000[0x4]
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; SUBPROGRAM
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0cc8       |    |		.CONST	0x0cc8								; Address of begin
0cb9 0d1b       |    |		.CONST	0x0d1b								; Address of exception handler
0cba 0004       |    |		.CONST	0x0004								; Number of locals
0cbb			INIT_0cb8:
0cbb e00d       |    |		Load	0x0,0xd
0cbc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0cbd 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0cbe 02c7       |    |		Declare_Variable	Any
0cbf 00d8       |    |		Load_Top	At_Offset_0
0cc0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0cc1 e00d       |    |		Load	0x0,0xd
0cc2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cc3 e00d       |    |		Load	0x0,0xd
0cc4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0cc5 02c7       |    |		Declare_Variable	Any
0cc6 00d8       |    |		Load_Top	At_Offset_0
0cc7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0cc8			BODY_0cb8:
0cc8 e5fd       |    |		Load	0x2,-0x3
0cc9 00db       |    |		Load_Top	At_Offset_3
0cca 6061       |`a  |		Indirect_Literal	Discrete,0xd2c,{0x00000000, 0x00002819}
0ccb 605c       |`\  |		Indirect_Literal	Discrete,0xd28,{0x00000000, 0x00002807}
0ccc e5ff       |    |		Load	0x2,-0x1
0ccd 801c       |    |		Call	0x0,0x1c
0cce c402       |    |		Store	0x2,0x2
0ccf c5fd       |    |		Store	0x2,-0x3
0cd0 4800       |H   |		Short_Literal	0x0
0cd1 e5fd       |    |		Load	0x2,-0x3
0cd2 e002       |    |		Load	0x0,0x2
0cd3 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0cd4 6840       |h@  |		Jump_Zero	0xd15
0cd5 00cf       |    |		Action	Mark_Auxiliary
0cd6 7838       |x8  |		Jump	0xd0f
0cd7 e00d       |    |		Load	0x0,0xd
0cd8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cd9 00da       |    |		Load_Top	At_Offset_2
0cda 0120       |    |		Execute	Any,Is_Value
0cdb 6803       |h   |		Jump_Zero	0xcdf
0cdc e00d       |    |		Load	0x0,0xd
0cdd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0cde 7801       |x   |		Jump	0xce0
0cdf 00da       |    |		Load_Top	At_Offset_2
0ce0 e402       |    |		Load	0x2,0x2
0ce1 e00d       |    |		Load	0x0,0xd
0ce2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ce3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0ce4 c404       |    |		Store	0x2,0x4
0ce5 005b       | [  |		Store_Top	Discrete,At_Offset_3
0ce6 00da       |    |		Load_Top	At_Offset_2
0ce7 7006       |p   |		Jump_Nonzero	0xcee
0ce8 e5fd       |    |		Load	0x2,-0x3
0ce9 e5fe       |    |		Load	0x2,-0x2
0cea 00db       |    |		Load_Top	At_Offset_3
0ceb 8235       | 5  |		Call	0x1,0x35
0cec c5fd       |    |		Store	0x2,-0x3
0ced 781b       |x   |		Jump	0xd09
0cee e002       |    |		Load	0x0,0x2
0cef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cf0 4801       |H   |		Short_Literal	0x1
0cf1 4802       |H   |		Short_Literal	0x2
0cf2 e00e       |    |		Load	0x0,0xe
0cf3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0cf4 035b       | [  |		Declare_Type	Array,Constrained
0cf5 0337       | 7  |		Declare_Variable	Array
0cf6 e402       |    |		Load	0x2,0x2
0cf7 e00d       |    |		Load	0x0,0xd
0cf8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0cf9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0cfa e00e       |    |		Load	0x0,0xe
0cfb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0cfc 4801       |H   |		Short_Literal	0x1
0cfd 00da       |    |		Load_Top	At_Offset_2
0cfe 01d6       |    |		Execute	Vector,Field_Write
0cff e403       |    |		Load	0x2,0x3
0d00 e00e       |    |		Load	0x0,0xe
0d01 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0d02 4802       |H   |		Short_Literal	0x2
0d03 00da       |    |		Load_Top	At_Offset_2
0d04 01d6       |    |		Execute	Vector,Field_Write
0d05 601e       |`   |		Indirect_Literal	Discrete,0xd24,{0x00000000, 0x00002812}
0d06 e002       |    |		Load	0x0,0x2
0d07 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0d08 c5fd       |    |		Store	0x2,-0x3
0d09 00db       |    |		Load_Top	At_Offset_3
0d0a e00d       |    |		Load	0x0,0xd
0d0b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d0c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0d0d c402       |    |		Store	0x2,0x2
0d0e 00c9       |    |		Action	Pop_Auxiliary_Loop
0d0f 00db       |    |		Load_Top	At_Offset_3
0d10 e00d       |    |		Load	0x0,0xd
0d11 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d12 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0d13 6fc3       |o   |		Jump_Zero	0xcd7
0d14 00ce       |    |		Action	Pop_Auxiliary
0d15 00da       |    |		Load_Top	At_Offset_2
0d16 e00d       |    |		Load	0x0,0xd
0d17 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d18 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0d19 c402       |    |		Store	0x2,0x2
0d1a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d1b			TRAP_0cb8:
0d1b 0007       |    |		Action	Break_Optional
0d1c 00db       |    |		Load_Top	At_Offset_3
0d1d e00d       |    |		Load	0x0,0xd
0d1e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d1f 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0d20 c402       |    |		Store	0x2,0x2
0d21 00d8       |    |		Load_Top	At_Offset_0
0d22 0101       |    |		Execute	Exception,Reraise
0d23 0000       |    |		.XXX[0x1]
0d24 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002812}
0d28 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002807}
0d2c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002819}
0d30 ; --------------------------------------------------------------------------------------
0d30 ; SUBPROGRAM
0d30 ; --------------------------------------------------------------------------------------
0d30 0d33       | 3  |		.CONST	0x0d33								; Address of begin
0d31 0004       |    |		.CONST	0x0004								; Address of exception handler
0d32 0001       |    |		.CONST	0x0001								; Number of locals
0d33			BODY_0d30:
0d33			INIT_0d30:
0d33 e5fd       |    |		Load	0x2,-0x3
0d34 e5fe       |    |		Load	0x2,-0x2
0d35 e5ff       |    |		Load	0x2,-0x1
0d36 0217       |    |		Execute	Heap_Access,All_Reference
0d37 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0d38 8235       | 5  |		Call	0x1,0x35
0d39 c5fd       |    |		Store	0x2,-0x3
0d3a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d3b 0000 0000  |    |		.BLANK	0000[0x5]
0d40 ; --------------------------------------------------------------------------------------
0d40 ; SUBPROGRAM
0d40 ; --------------------------------------------------------------------------------------
0d40 0d43       | C  |		.CONST	0x0d43								; Address of begin
0d41 0004       |    |		.CONST	0x0004								; Address of exception handler
0d42 0001       |    |		.CONST	0x0001								; Number of locals
0d43			BODY_0d40:
0d43			INIT_0d40:
0d43 e5fc       |    |		Load	0x2,-0x4
0d44 e228       | (  |		Load	0x1,0x28
0d45 e5fe       |    |		Load	0x2,-0x2
0d46 e5ff       |    |		Load	0x2,-0x1
0d47 0217       |    |		Execute	Heap_Access,All_Reference
0d48 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0d49 0217       |    |		Execute	Heap_Access,All_Reference
0d4a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0d4b 8239       | 9  |		Call	0x1,0x39
0d4c c5fd       |    |		Store	0x2,-0x3
0d4d c5fc       |    |		Store	0x2,-0x4
0d4e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d4f 0000       |    |		.XXX[0x1]
0d50 ; --------------------------------------------------------------------------------------
0d50 ; SUBPROGRAM
0d50 ; --------------------------------------------------------------------------------------
0d50 0d5e       | ^  |		.CONST	0x0d5e								; Address of begin
0d51 0004       |    |		.CONST	0x0004								; Address of exception handler
0d52 0004       |    |		.CONST	0x0004								; Number of locals
0d53			INIT_0d50:
0d53 00da       |    |		Load_Top	At_Offset_2
0d54 8026       | &  |		Call	0x0,0x26
0d55 e027       | '  |		Load	0x0,0x27
0d56 03f1       |    |		Declare_Variable	Discrete,With_Value
0d57 e00d       |    |		Load	0x0,0xd
0d58 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d59 02c7       |    |		Declare_Variable	Any
0d5a 00d8       |    |		Load_Top	At_Offset_0
0d5b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d5c e01b       |    |		Load	0x0,0x1b
0d5d 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0d5e			BODY_0d50:
0d5e 00da       |    |		Load_Top	At_Offset_2
0d5f 4604       |F   |		Jump_Case	0x5
0d60 781f       |x   |		Jump	0xd80								; case 0x0
0d61 7819       |x   |		Jump	0xd7b								; case 0x1
0d62 7815       |x   |		Jump	0xd78								; case 0x2
0d63 7814       |x   |		Jump	0xd78								; case 0x3
0d64 7800       |x   |		Jump	0xd65								; case 0x4
0d65 e002       |    |		Load	0x0,0x2
0d66 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d67 4801       |H   |		Short_Literal	0x1
0d68 4801       |H   |		Short_Literal	0x1
0d69 e00e       |    |		Load	0x0,0xe
0d6a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d6b 035b       | [  |		Declare_Type	Array,Constrained
0d6c 0337       | 7  |		Declare_Variable	Array
0d6d e5ff       |    |		Load	0x2,-0x1
0d6e e00e       |    |		Load	0x0,0xe
0d6f 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0d70 4801       |H   |		Short_Literal	0x1
0d71 00da       |    |		Load_Top	At_Offset_2
0d72 01d6       |    |		Execute	Vector,Field_Write
0d73 604c       |`L  |		Indirect_Literal	Discrete,0xdc0,{0x00000000, 0x00002801}
0d74 e002       |    |		Load	0x0,0x2
0d75 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0d76 c5fc       |    |		Store	0x2,-0x4
0d77 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d78 e5ff       |    |		Load	0x2,-0x1
0d79 c403       |    |		Store	0x2,0x3
0d7a 780f       |x   |		Jump	0xd8a
0d7b 6040       |`@  |		Indirect_Literal	Discrete,0xdbc,{0x00000000, 0x0000280b}
0d7c e5ff       |    |		Load	0x2,-0x1
0d7d 8029       | )  |		Call	0x0,0x29
0d7e c403       |    |		Store	0x2,0x3
0d7f 780a       |x   |		Jump	0xd8a
0d80 e5fc       |    |		Load	0x2,-0x4
0d81 e228       | (  |		Load	0x1,0x28
0d82 e5fe       |    |		Load	0x2,-0x2
0d83 6034       |`4  |		Indirect_Literal	Discrete,0xdb8,{0x00000000, 0x00002815}
0d84 e5ff       |    |		Load	0x2,-0x1
0d85 8029       | )  |		Call	0x0,0x29
0d86 8239       | 9  |		Call	0x1,0x39
0d87 c5fd       |    |		Store	0x2,-0x3
0d88 c5fc       |    |		Store	0x2,-0x4
0d89 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d8a e5fc       |    |		Load	0x2,-0x4
0d8b e01b       |    |		Load	0x0,0x1b
0d8c 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0d8d e5fe       |    |		Load	0x2,-0x2
0d8e e403       |    |		Load	0x2,0x3
0d8f 82c1       |    |		Call	0x1,0xc1
0d90 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0d91 c5fc       |    |		Store	0x2,-0x4
0d92 00d8       |    |		Load_Top	At_Offset_0
0d93 7018       |p   |		Jump_Nonzero	0xdac
0d94 e002       |    |		Load	0x0,0x2
0d95 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d96 4801       |H   |		Short_Literal	0x1
0d97 4802       |H   |		Short_Literal	0x2
0d98 e00e       |    |		Load	0x0,0xe
0d99 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d9a 035b       | [  |		Declare_Type	Array,Constrained
0d9b 0337       | 7  |		Declare_Variable	Array
0d9c 00db       |    |		Load_Top	At_Offset_3
0d9d e00e       |    |		Load	0x0,0xe
0d9e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0d9f 4801       |H   |		Short_Literal	0x1
0da0 00da       |    |		Load_Top	At_Offset_2
0da1 01d6       |    |		Execute	Vector,Field_Write
0da2 e5ff       |    |		Load	0x2,-0x1
0da3 e00e       |    |		Load	0x0,0xe
0da4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0da5 4802       |H   |		Short_Literal	0x2
0da6 00da       |    |		Load_Top	At_Offset_2
0da7 01d6       |    |		Execute	Vector,Field_Write
0da8 600b       |`   |		Indirect_Literal	Discrete,0xdb4,{0x00000000, 0x00002814}
0da9 e002       |    |		Load	0x0,0x2
0daa 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0dab c5fc       |    |		Store	0x2,-0x4
0dac 00d8       |    |		Load_Top	At_Offset_0
0dad e001       |    |		Load	0x0,0x1
0dae 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0daf 0216       |    |		Execute	Heap_Access,Convert
0db0 a5fd       |    |		Store_Unchecked	0x2,-0x3
0db1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0db2 0000 0000  |    |		.XXX[0x2]
0db4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002814}
0db8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002815}
0dbc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280b}
0dc0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002801}
0dc4 0000 0000  |    |		.BLANK	0000[0x4]
0dc8 ; --------------------------------------------------------------------------------------
0dc8 ; SUBPROGRAM
0dc8 ; --------------------------------------------------------------------------------------
0dc8 0dd8       |    |		.CONST	0x0dd8								; Address of begin
0dc9 0e4e       | N  |		.CONST	0x0e4e								; Address of exception handler
0dca 0004       |    |		.CONST	0x0004								; Number of locals
0dcb			INIT_0dc8:
0dcb e00d       |    |		Load	0x0,0xd
0dcc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0dcd 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0dce 02c7       |    |		Declare_Variable	Any
0dcf 00d8       |    |		Load_Top	At_Offset_0
0dd0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0dd1 e00d       |    |		Load	0x0,0xd
0dd2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0dd3 02c7       |    |		Declare_Variable	Any
0dd4 00d8       |    |		Load_Top	At_Offset_0
0dd5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0dd6 e00d       |    |		Load	0x0,0xd
0dd7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0dd8			BODY_0dc8:
0dd8 e5fc       |    |		Load	0x2,-0x4
0dd9 00db       |    |		Load_Top	At_Offset_3
0dda 6089       |`   |		Indirect_Literal	Discrete,0xe64,{0x00000000, 0x00002819}
0ddb 6084       |`   |		Indirect_Literal	Discrete,0xe60,{0x00000000, 0x00002807}
0ddc e5ff       |    |		Load	0x2,-0x1
0ddd 801c       |    |		Call	0x0,0x1c
0dde c402       |    |		Store	0x2,0x2
0ddf c5fc       |    |		Store	0x2,-0x4
0de0 4800       |H   |		Short_Literal	0x0
0de1 e5fc       |    |		Load	0x2,-0x4
0de2 e002       |    |		Load	0x0,0x2
0de3 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0de4 6863       |hc  |		Jump_Zero	0xe48
0de5 e00d       |    |		Load	0x0,0xd
0de6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0de7 00da       |    |		Load_Top	At_Offset_2
0de8 0120       |    |		Execute	Any,Is_Value
0de9 6803       |h   |		Jump_Zero	0xded
0dea e00d       |    |		Load	0x0,0xd
0deb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0dec 7801       |x   |		Jump	0xdee
0ded 00da       |    |		Load_Top	At_Offset_2
0dee e402       |    |		Load	0x2,0x2
0def e00d       |    |		Load	0x0,0xd
0df0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0df1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0df2 c403       |    |		Store	0x2,0x3
0df3 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0df4 00d8       |    |		Load_Top	At_Offset_0
0df5 7037       |p7  |		Jump_Nonzero	0xe2d
0df6 00da       |    |		Load_Top	At_Offset_2
0df7 e00d       |    |		Load	0x0,0xd
0df8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0df9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0dfa c402       |    |		Store	0x2,0x2
0dfb 00da       |    |		Load_Top	At_Offset_2
0dfc e00d       |    |		Load	0x0,0xd
0dfd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0dfe 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0dff 7025       |p%  |		Jump_Nonzero	0xe25
0e00 e002       |    |		Load	0x0,0x2
0e01 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e02 4801       |H   |		Short_Literal	0x1
0e03 4803       |H   |		Short_Literal	0x3
0e04 e00e       |    |		Load	0x0,0xe
0e05 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e06 035b       | [  |		Declare_Type	Array,Constrained
0e07 0337       | 7  |		Declare_Variable	Array
0e08 e5ff       |    |		Load	0x2,-0x1
0e09 e00e       |    |		Load	0x0,0xe
0e0a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e0b 4801       |H   |		Short_Literal	0x1
0e0c 00da       |    |		Load_Top	At_Offset_2
0e0d 01d6       |    |		Execute	Vector,Field_Write
0e0e 00db       |    |		Load_Top	At_Offset_3
0e0f e00d       |    |		Load	0x0,0xd
0e10 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e11 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0e12 e00e       |    |		Load	0x0,0xe
0e13 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e14 4802       |H   |		Short_Literal	0x2
0e15 00da       |    |		Load_Top	At_Offset_2
0e16 01d6       |    |		Execute	Vector,Field_Write
0e17 e402       |    |		Load	0x2,0x2
0e18 e00d       |    |		Load	0x0,0xd
0e19 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e1a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0e1b e00e       |    |		Load	0x0,0xe
0e1c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e1d 4803       |H   |		Short_Literal	0x3
0e1e 00da       |    |		Load_Top	At_Offset_2
0e1f 01d6       |    |		Execute	Vector,Field_Write
0e20 603b       |`;  |		Indirect_Literal	Discrete,0xe5c,{0x00000000, 0x00002813}
0e21 e002       |    |		Load	0x0,0x2
0e22 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e23 c5fc       |    |		Store	0x2,-0x4
0e24 7823       |x#  |		Jump	0xe48
0e25 e5fc       |    |		Load	0x2,-0x4
0e26 e228       | (  |		Load	0x1,0x28
0e27 e5fe       |    |		Load	0x2,-0x2
0e28 e403       |    |		Load	0x2,0x3
0e29 8239       | 9  |		Call	0x1,0x39
0e2a c5fd       |    |		Store	0x2,-0x3
0e2b c5fc       |    |		Store	0x2,-0x4
0e2c 781b       |x   |		Jump	0xe48
0e2d e002       |    |		Load	0x0,0x2
0e2e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e2f 4801       |H   |		Short_Literal	0x1
0e30 4802       |H   |		Short_Literal	0x2
0e31 e00e       |    |		Load	0x0,0xe
0e32 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e33 035b       | [  |		Declare_Type	Array,Constrained
0e34 0337       | 7  |		Declare_Variable	Array
0e35 e402       |    |		Load	0x2,0x2
0e36 e00d       |    |		Load	0x0,0xd
0e37 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e38 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0e39 e00e       |    |		Load	0x0,0xe
0e3a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e3b 4801       |H   |		Short_Literal	0x1
0e3c 00da       |    |		Load_Top	At_Offset_2
0e3d 01d6       |    |		Execute	Vector,Field_Write
0e3e 00da       |    |		Load_Top	At_Offset_2
0e3f e00e       |    |		Load	0x0,0xe
0e40 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e41 4802       |H   |		Short_Literal	0x2
0e42 00da       |    |		Load_Top	At_Offset_2
0e43 01d6       |    |		Execute	Vector,Field_Write
0e44 6013       |`   |		Indirect_Literal	Discrete,0xe58,{0x00000000, 0x00002812}
0e45 e002       |    |		Load	0x0,0x2
0e46 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e47 c5fc       |    |		Store	0x2,-0x4
0e48 00da       |    |		Load_Top	At_Offset_2
0e49 e00d       |    |		Load	0x0,0xd
0e4a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e4b 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0e4c c402       |    |		Store	0x2,0x2
0e4d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e4e			TRAP_0dc8:
0e4e 0007       |    |		Action	Break_Optional
0e4f 00db       |    |		Load_Top	At_Offset_3
0e50 e00d       |    |		Load	0x0,0xd
0e51 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e52 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0e53 c402       |    |		Store	0x2,0x2
0e54 00d8       |    |		Load_Top	At_Offset_0
0e55 0101       |    |		Execute	Exception,Reraise
0e56 0000 0000  |    |		.XXX[0x2]
0e58 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002812}
0e5c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002813}
0e60 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002807}
0e64 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002819}
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 00db       |    |		Load_Top	At_Offset_3
0e6d 0217       |    |		Execute	Heap_Access,All_Reference
0e6e 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0e6f 0217       |    |		Execute	Heap_Access,All_Reference
0e70 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e71 8285       |    |		Call	0x1,0x85
0e72 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e73 0000 0000  |    |		.BLANK	0000[0x5]
0e78 ; --------------------------------------------------------------------------------------
0e78 ; SUBPROGRAM
0e78 ; --------------------------------------------------------------------------------------
0e78 0e85       |    |		.CONST	0x0e85								; Address of begin
0e79 0004       |    |		.CONST	0x0004								; Address of exception handler
0e7a 0002       |    |		.CONST	0x0002								; Number of locals
0e7b			INIT_0e78:
0e7b e02a       | *  |		Load	0x0,0x2a
0e7c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e7d 02ff       |    |		Declare_Variable	Variant_Record
0e7e 4801       |H   |		Short_Literal	0x1
0e7f e5fe       |    |		Load	0x2,-0x2
0e80 e5ff       |    |		Load	0x2,-0x1
0e81 e02a       | *  |		Load	0x0,0x2a
0e82 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0e83 00d9       |    |		Load_Top	At_Offset_1
0e84 016d       | m  |		Execute	Variant_Record,Structure_Write
0e85			BODY_0e78:
0e85 00d8       |    |		Load_Top	At_Offset_0
0e86 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e87 0f01       |    |		Execute_Immediate	Equal,0x1
0e88 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e89 0000 0000  |    |		.BLANK	0000[0x7]
0e90 ; --------------------------------------------------------------------------------------
0e90 ; SUBPROGRAM
0e90 ; --------------------------------------------------------------------------------------
0e90 0e93       |    |		.CONST	0x0e93								; Address of begin
0e91 0004       |    |		.CONST	0x0004								; Address of exception handler
0e92 0001       |    |		.CONST	0x0001								; Number of locals
0e93			BODY_0e90:
0e93			INIT_0e90:
0e93 00da       |    |		Load_Top	At_Offset_2
0e94 0217       |    |		Execute	Heap_Access,All_Reference
0e95 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e96 00d8       |    |		Load_Top	At_Offset_0
0e97 0120       |    |		Execute	Any,Is_Value
0e98 7002       |p   |		Jump_Nonzero	0xe9b
0e99 00d8       |    |		Load_Top	At_Offset_0
0e9a 011e       |    |		Execute	Any,Convert
0e9b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e9c 0000 0000  |    |		.BLANK	0000[0x4]
0ea0 ; --------------------------------------------------------------------------------------
0ea0 ; SUBPROGRAM
0ea0 ; --------------------------------------------------------------------------------------
0ea0 0ea3       |    |		.CONST	0x0ea3								; Address of begin
0ea1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ea2 0001       |    |		.CONST	0x0001								; Number of locals
0ea3			BODY_0ea0:
0ea3			INIT_0ea0:
0ea3 00da       |    |		Load_Top	At_Offset_2
0ea4 0217       |    |		Execute	Heap_Access,All_Reference
0ea5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ea6 e020       |    |		Load	0x0,0x20
0ea7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ea8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ea9 0000 0000  |    |		.BLANK	0000[0x7]
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; SUBPROGRAM
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0eb3       |    |		.CONST	0x0eb3								; Address of begin
0eb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0eb2 0001       |    |		.CONST	0x0001								; Number of locals
0eb3			BODY_0eb0:
0eb3			INIT_0eb0:
0eb3 00da       |    |		Load_Top	At_Offset_2
0eb4 0217       |    |		Execute	Heap_Access,All_Reference
0eb5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0eb6 00d8       |    |		Load_Top	At_Offset_0
0eb7 0120       |    |		Execute	Any,Is_Value
0eb8 7002       |p   |		Jump_Nonzero	0xebb
0eb9 00d8       |    |		Load_Top	At_Offset_0
0eba 011e       |    |		Execute	Any,Convert
0ebb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ebc 0000 0000  |    |		.BLANK	0000[0x4]
0ec0 ; --------------------------------------------------------------------------------------
0ec0 ; SUBPROGRAM
0ec0 ; --------------------------------------------------------------------------------------
0ec0 0ec3       |    |		.CONST	0x0ec3								; Address of begin
0ec1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ec2 0001       |    |		.CONST	0x0001								; Number of locals
0ec3			BODY_0ec0:
0ec3			INIT_0ec0:
0ec3 00da       |    |		Load_Top	At_Offset_2
0ec4 0217       |    |		Execute	Heap_Access,All_Reference
0ec5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0ec6 e00d       |    |		Load	0x0,0xd
0ec7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ec8 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0ec9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0eca 0000 0000  |    |		.BLANK	0000[0x6]
0ed0 ; --------------------------------------------------------------------------------------
0ed0 ; SUBPROGRAM
0ed0 ; --------------------------------------------------------------------------------------
0ed0 0ed3       |    |		.CONST	0x0ed3								; Address of begin
0ed1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ed2 0001       |    |		.CONST	0x0001								; Number of locals
0ed3			BODY_0ed0:
0ed3			INIT_0ed0:
0ed3 00da       |    |		Load_Top	At_Offset_2
0ed4 0217       |    |		Execute	Heap_Access,All_Reference
0ed5 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0ed6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ed7 0000       |    |		.XXX[0x1]
0ed8 ; --------------------------------------------------------------------------------------
0ed8 ; SUBPROGRAM
0ed8 ; --------------------------------------------------------------------------------------
0ed8 0edb       |    |		.CONST	0x0edb								; Address of begin
0ed9 0004       |    |		.CONST	0x0004								; Address of exception handler
0eda 0001       |    |		.CONST	0x0001								; Number of locals
0edb			BODY_0ed8:
0edb			INIT_0ed8:
0edb 00da       |    |		Load_Top	At_Offset_2
0edc 0217       |    |		Execute	Heap_Access,All_Reference
0edd 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0ede 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0edf 0000       |    |		.XXX[0x1]
0ee0 ; --------------------------------------------------------------------------------------
0ee0 ; SUBPROGRAM
0ee0 ; --------------------------------------------------------------------------------------
0ee0 0eed       |    |		.CONST	0x0eed								; Address of begin
0ee1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ee2 0003       |    |		.CONST	0x0003								; Number of locals
0ee3			INIT_0ee0:
0ee3 00da       |    |		Load_Top	At_Offset_2
0ee4 0217       |    |		Execute	Heap_Access,All_Reference
0ee5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0ee6 0007       |    |		Action	Break_Optional
0ee7 00db       |    |		Load_Top	At_Offset_3
0ee8 82c4       |    |		Call	0x1,0xc4
0ee9 e001       |    |		Load	0x0,0x1
0eea 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0eeb 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0eec 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0eed			BODY_0ee0:
0eed 4800       |H   |		Short_Literal	0x0
0eee 00d9       |    |		Load_Top	At_Offset_1
0eef 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0ef0 00cf       |    |		Action	Mark_Auxiliary
0ef1 00d9       |    |		Load_Top	At_Offset_1
0ef2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ef3 01d9       |    |		Execute	Vector,Reverse_Bounds
0ef4 0263       | c  |		Execute	Discrete,Above_Bound
0ef5 700b       |p   |		Jump_Nonzero	0xf01
0ef6 e402       |    |		Load	0x2,0x2
0ef7 00d9       |    |		Load_Top	At_Offset_1
0ef8 e403       |    |		Load	0x2,0x3
0ef9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0efa 01d6       |    |		Execute	Vector,Field_Write
0efb e402       |    |		Load	0x2,0x2
0efc 0217       |    |		Execute	Heap_Access,All_Reference
0efd 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0efe a402       |    |		Store_Unchecked	0x2,0x2
0eff 00c8       |    |		Action	Pop_Auxiliary_Range
0f00 3ff5       |?   |		Loop_Increasing	0xef6
0f01 00ce       |    |		Action	Pop_Auxiliary
0f02 00d8       |    |		Load_Top	At_Offset_0
0f03 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f04 0000 0000  |    |		.BLANK	0000[0x4]
0f08 ; --------------------------------------------------------------------------------------
0f08 ; SUBPROGRAM
0f08 ; --------------------------------------------------------------------------------------
0f08 0f10       |    |		.CONST	0x0f10								; Address of begin
0f09 0004       |    |		.CONST	0x0004								; Address of exception handler
0f0a 0003       |    |		.CONST	0x0003								; Number of locals
0f0b			INIT_0f08:
0f0b e01b       |    |		Load	0x0,0x1b
0f0c 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0f0d e002       |    |		Load	0x0,0x2
0f0e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0f0f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f10			BODY_0f08:
0f10 00d8       |    |		Load_Top	At_Offset_0
0f11 e01b       |    |		Load	0x0,0x1b
0f12 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0f13 4800       |H   |		Short_Literal	0x0
0f14 e5fe       |    |		Load	0x2,-0x2
0f15 e5ff       |    |		Load	0x2,-0x1
0f16 82c5       |    |		Call	0x1,0xc5
0f17 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0f18 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0f19 00d8       |    |		Load_Top	At_Offset_0
0f1a 7009       |p   |		Jump_Nonzero	0xf24
0f1b 00d9       |    |		Load_Top	At_Offset_1
0f1c 0217       |    |		Execute	Heap_Access,All_Reference
0f1d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0f1e 00d8       |    |		Load_Top	At_Offset_0
0f1f 0120       |    |		Execute	Any,Is_Value
0f20 7002       |p   |		Jump_Nonzero	0xf23
0f21 00d8       |    |		Load_Top	At_Offset_0
0f22 011e       |    |		Execute	Any,Convert
0f23 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f24 00d8       |    |		Load_Top	At_Offset_0
0f25 6016       |`   |		Indirect_Literal	Discrete,0xf3c,{0x00000000, 0x0000281a}
0f26 027f       |    |		Execute	Discrete,Equal
0f27 6803       |h   |		Jump_Zero	0xf2b
0f28 e003       |    |		Load	0x0,0x3
0f29 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0f2a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f2b 4801       |H   |		Short_Literal	0x1
0f2c 4801       |H   |		Short_Literal	0x1
0f2d e00e       |    |		Load	0x0,0xe
0f2e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0f2f 035b       | [  |		Declare_Type	Array,Constrained
0f30 0337       | 7  |		Declare_Variable	Array
0f31 e5ff       |    |		Load	0x2,-0x1
0f32 8242       | B  |		Call	0x1,0x42
0f33 4801       |H   |		Short_Literal	0x1
0f34 00da       |    |		Load_Top	At_Offset_2
0f35 01d6       |    |		Execute	Vector,Field_Write
0f36 00d9       |    |		Load_Top	At_Offset_1
0f37 e002       |    |		Load	0x0,0x2
0f38 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0f39 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f3a 0000 0000  |    |		.XXX[0x2]
0f3c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281a}
0f40 ; --------------------------------------------------------------------------------------
0f40 ; SUBPROGRAM
0f40 ; --------------------------------------------------------------------------------------
0f40 0f48       | H  |		.CONST	0x0f48								; Address of begin
0f41 0004       |    |		.CONST	0x0004								; Address of exception handler
0f42 0003       |    |		.CONST	0x0003								; Number of locals
0f43			INIT_0f40:
0f43 e01b       |    |		Load	0x0,0x1b
0f44 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0f45 e002       |    |		Load	0x0,0x2
0f46 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0f47 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f48			BODY_0f40:
0f48 00d8       |    |		Load_Top	At_Offset_0
0f49 e01b       |    |		Load	0x0,0x1b
0f4a 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0f4b 4800       |H   |		Short_Literal	0x0
0f4c e5fd       |    |		Load	0x2,-0x3
0f4d e5ff       |    |		Load	0x2,-0x1
0f4e 82c5       |    |		Call	0x1,0xc5
0f4f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0f50 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0f51 00d8       |    |		Load_Top	At_Offset_0
0f52 7005       |p   |		Jump_Nonzero	0xf58
0f53 e5fe       |    |		Load	0x2,-0x2
0f54 00da       |    |		Load_Top	At_Offset_2
0f55 0217       |    |		Execute	Heap_Access,All_Reference
0f56 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0f57 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f58 e002       |    |		Load	0x0,0x2
0f59 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f5a 4801       |H   |		Short_Literal	0x1
0f5b 4801       |H   |		Short_Literal	0x1
0f5c e00e       |    |		Load	0x0,0xe
0f5d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0f5e 035b       | [  |		Declare_Type	Array,Constrained
0f5f 0337       | 7  |		Declare_Variable	Array
0f60 e5ff       |    |		Load	0x2,-0x1
0f61 8242       | B  |		Call	0x1,0x42
0f62 4801       |H   |		Short_Literal	0x1
0f63 00da       |    |		Load_Top	At_Offset_2
0f64 01d6       |    |		Execute	Vector,Field_Write
0f65 00da       |    |		Load_Top	At_Offset_2
0f66 e002       |    |		Load	0x0,0x2
0f67 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0f68 c5fc       |    |		Store	0x2,-0x4
0f69 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f6a 0000 0000  |    |		.BLANK	0000[0x6]
0f70 ; --------------------------------------------------------------------------------------
0f70 ; SUBPROGRAM
0f70 ; --------------------------------------------------------------------------------------
0f70 0f73       | s  |		.CONST	0x0f73								; Address of begin
0f71 0004       |    |		.CONST	0x0004								; Address of exception handler
0f72 0001       |    |		.CONST	0x0001								; Number of locals
0f73			BODY_0f70:
0f73			INIT_0f70:
0f73 00da       |    |		Load_Top	At_Offset_2
0f74 e2c6       |    |		Load	0x1,0xc6
0f75 e2c7       |    |		Load	0x1,0xc7
0f76 1dc8       |    |		Execute_Immediate	Reference_Lex_1,0xc8
0f77 1dc9       |    |		Execute_Immediate	Reference_Lex_1,0xc9
0f78 1dca       |    |		Execute_Immediate	Reference_Lex_1,0xca
0f79 e00e       |    |		Load	0x0,0xe
0f7a 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0f7b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f7c 0000 0000  |    |		.BLANK	0000[0x4]
0f80 ; --------------------------------------------------------------------------------------
0f80 ; SUBPROGRAM
0f80 ; --------------------------------------------------------------------------------------
0f80 0f83       |    |		.CONST	0x0f83								; Address of begin
0f81 0004       |    |		.CONST	0x0004								; Address of exception handler
0f82 0001       |    |		.CONST	0x0001								; Number of locals
0f83			BODY_0f80:
0f83			INIT_0f80:
0f83 00da       |    |		Load_Top	At_Offset_2
0f84 e2ce       |    |		Load	0x1,0xce
0f85 e2cf       |    |		Load	0x1,0xcf
0f86 1dd0       |    |		Execute_Immediate	Reference_Lex_1,0xd0
0f87 e2d1       |    |		Load	0x1,0xd1
0f88 1dd2       |    |		Execute_Immediate	Reference_Lex_1,0xd2
0f89 e00e       |    |		Load	0x0,0xe
0f8a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0f8b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f8c 0000 0000  |    |		.BLANK	0000[0x4]
0f90 ; --------------------------------------------------------------------------------------
0f90 ; SUBPROGRAM
0f90 ; --------------------------------------------------------------------------------------
0f90 0f93       |    |		.CONST	0x0f93								; Address of begin
0f91 0004       |    |		.CONST	0x0004								; Address of exception handler
0f92 0001       |    |		.CONST	0x0001								; Number of locals
0f93			BODY_0f90:
0f93			INIT_0f90:
0f93 00da       |    |		Load_Top	At_Offset_2
0f94 0217       |    |		Execute	Heap_Access,All_Reference
0f95 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f96 e020       |    |		Load	0x0,0x20
0f97 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0f98 7006       |p   |		Jump_Nonzero	0xf9f
0f99 00da       |    |		Load_Top	At_Offset_2
0f9a 0217       |    |		Execute	Heap_Access,All_Reference
0f9b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f9c e020       |    |		Load	0x0,0x20
0f9d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f9e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f9f 00da       |    |		Load_Top	At_Offset_2
0fa0 0217       |    |		Execute	Heap_Access,All_Reference
0fa1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0fa2 e020       |    |		Load	0x0,0x20
0fa3 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0fa4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0fa5 0000 0000  |    |		.XXX[0x3]
0fa7 0000       |    |
0fa8 ; --------------------------------------------------------------------------------------
0fa8 ; SUBPROGRAM
0fa8 ; --------------------------------------------------------------------------------------
0fa8 0fad       |    |		.CONST	0x0fad								; Address of begin
0fa9 0004       |    |		.CONST	0x0004								; Address of exception handler
0faa 0002       |    |		.CONST	0x0002								; Number of locals
0fab			INIT_0fa8:
0fab e020       |    |		Load	0x0,0x20
0fac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fad			BODY_0fa8:
0fad 00db       |    |		Load_Top	At_Offset_3
0fae 0217       |    |		Execute	Heap_Access,All_Reference
0faf 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0fb0 e001       |    |		Load	0x0,0x1
0fb1 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0fb2 0216       |    |		Execute	Heap_Access,Convert
0fb3 e001       |    |		Load	0x0,0x1
0fb4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0fb5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0fb6 7007       |p   |		Jump_Nonzero	0xfbe
0fb7 00db       |    |		Load_Top	At_Offset_3
0fb8 0217       |    |		Execute	Heap_Access,All_Reference
0fb9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0fba e001       |    |		Load	0x0,0x1
0fbb 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0fbc 0216       |    |		Execute	Heap_Access,Convert
0fbd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0fbe e5fe       |    |		Load	0x2,-0x2
0fbf e5ff       |    |		Load	0x2,-0x1
0fc0 e001       |    |		Load	0x0,0x1
0fc1 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0fc2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0fc3 e020       |    |		Load	0x0,0x20
0fc4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0fc5 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0fc6 00d8       |    |		Load_Top	At_Offset_0
0fc7 e020       |    |		Load	0x0,0x20
0fc8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0fc9 7008       |p   |		Jump_Nonzero	0xfd2
0fca e5fe       |    |		Load	0x2,-0x2
0fcb 00d9       |    |		Load_Top	At_Offset_1
0fcc e025       | %  |		Load	0x0,0x25
0fcd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0fce e001       |    |		Load	0x0,0x1
0fcf 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0fd0 0216       |    |		Execute	Heap_Access,Convert
0fd1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0fd2 e001       |    |		Load	0x0,0x1
0fd3 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0fd4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0fd5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0fd6 0000 0000  |    |		.XXX[0x2]
0fd8 ; --------------------------------------------------------------------------------------
0fd8 ; SUBPROGRAM
0fd8 ; --------------------------------------------------------------------------------------
0fd8 0fe2       |    |		.CONST	0x0fe2								; Address of begin
0fd9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fda 0004       |    |		.CONST	0x0004								; Number of locals
0fdb			INIT_0fd8:
0fdb e228       | (  |		Load	0x1,0x28
0fdc 0007       |    |		Action	Break_Optional
0fdd e002       |    |		Load	0x0,0x2
0fde 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fdf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0fe0 e01b       |    |		Load	0x0,0x1b
0fe1 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0fe2			BODY_0fd8:
0fe2 00d9       |    |		Load_Top	At_Offset_1
0fe3 e228       | (  |		Load	0x1,0x28
0fe4 e5ff       |    |		Load	0x2,-0x1
0fe5 e5fe       |    |		Load	0x2,-0x2
0fe6 825f       | _  |		Call	0x1,0x5f
0fe7 8238       | 8  |		Call	0x1,0x38
0fe8 c402       |    |		Store	0x2,0x2
0fe9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0fea 00da       |    |		Load_Top	At_Offset_2
0feb 0217       |    |		Execute	Heap_Access,All_Reference
0fec 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0fed 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0fee 00cf       |    |		Action	Mark_Auxiliary
0fef 780d       |x   |		Jump	0xffd
0ff0 e5fe       |    |		Load	0x2,-0x2
0ff1 0217       |    |		Execute	Heap_Access,All_Reference
0ff2 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0ff3 00da       |    |		Load_Top	At_Offset_2
0ff4 0217       |    |		Execute	Heap_Access,All_Reference
0ff5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ff6 021f       |    |		Execute	Heap_Access,Equal
0ff7 7007       |p   |		Jump_Nonzero	0xfff
0ff8 00d9       |    |		Load_Top	At_Offset_1
0ff9 0217       |    |		Execute	Heap_Access,All_Reference
0ffa 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0ffb 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0ffc 00c9       |    |		Action	Pop_Auxiliary_Loop
0ffd 00d9       |    |		Load_Top	At_Offset_1
0ffe 77f1       |w   |		Jump_Nonzero	0xff0
0fff 00ce       |    |		Action	Pop_Auxiliary
1000 00d8       |    |		Load_Top	At_Offset_0
1001 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1002 0000 0000  |    |		.BLANK	0000[0x6]
1008 ; --------------------------------------------------------------------------------------
1008 ; SUBPROGRAM
1008 ; --------------------------------------------------------------------------------------
1008 100b       |    |		.CONST	0x100b								; Address of begin
1009 0004       |    |		.CONST	0x0004								; Address of exception handler
100a 0001       |    |		.CONST	0x0001								; Number of locals
100b			BODY_1008:
100b			INIT_1008:
100b 00da       |    |		Load_Top	At_Offset_2
100c 0217       |    |		Execute	Heap_Access,All_Reference
100d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
100e e001       |    |		Load	0x0,0x1
100f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1010 00d9       |    |		Load_Top	At_Offset_1
1011 00d0       |    |		Action	Swap_Control
1012 0260       | `  |		Execute	Discrete,In_Type
1013 7001       |p   |		Jump_Nonzero	0x1015
1014 0801       |    |		Execute_Immediate	Raise,0x1
1015 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1016 0000 0000  |    |		.XXX[0x2]
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 101b       |    |		.CONST	0x101b								; Address of begin
1019 0004       |    |		.CONST	0x0004								; Address of exception handler
101a 0001       |    |		.CONST	0x0001								; Number of locals
101b			BODY_1018:
101b			INIT_1018:
101b 00db       |    |		Load_Top	At_Offset_3
101c 00db       |    |		Load_Top	At_Offset_3
101d 0217       |    |		Execute	Heap_Access,All_Reference
101e 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
101f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1020 ; --------------------------------------------------------------------------------------
1020 ; SUBPROGRAM
1020 ; --------------------------------------------------------------------------------------
1020 102e       | .  |		.CONST	0x102e								; Address of begin
1021 0004       |    |		.CONST	0x0004								; Address of exception handler
1022 0005       |    |		.CONST	0x0005								; Number of locals
1023			INIT_1020:
1023 e00c       |    |		Load	0x0,0xc
1024 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1025 06ff       |    |		Execute_Immediate	Set_Value_Unchecked,0xff
1026 e00c       |    |		Load	0x0,0xc
1027 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1028 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1029 e5ff       |    |		Load	0x2,-0x1
102a 0217       |    |		Execute	Heap_Access,All_Reference
102b 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
102c 029f 2a0b  |  * |		Declare_Subprogram	INIT_2a08,For_Call
102e			BODY_1020:
102e 00cf       |    |		Action	Mark_Auxiliary
102f 7819       |x   |		Jump	0x1049
1030 00da       |    |		Load_Top	At_Offset_2
1031 0217       |    |		Execute	Heap_Access,All_Reference
1032 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1033 e402       |    |		Load	0x2,0x2
1034 027c       | |  |		Execute	Discrete,Less
1035 6804       |h   |		Jump_Zero	0x103a
1036 00da       |    |		Load_Top	At_Offset_2
1037 0217       |    |		Execute	Heap_Access,All_Reference
1038 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1039 a402       |    |		Store_Unchecked	0x2,0x2
103a 00da       |    |		Load_Top	At_Offset_2
103b 0217       |    |		Execute	Heap_Access,All_Reference
103c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
103d e403       |    |		Load	0x2,0x3
103e 027d       | }  |		Execute	Discrete,Greater
103f 6804       |h   |		Jump_Zero	0x1044
1040 00da       |    |		Load_Top	At_Offset_2
1041 0217       |    |		Execute	Heap_Access,All_Reference
1042 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1043 a403       |    |		Store_Unchecked	0x2,0x3
1044 00da       |    |		Load_Top	At_Offset_2
1045 0217       |    |		Execute	Heap_Access,All_Reference
1046 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1047 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1048 00c9       |    |		Action	Pop_Auxiliary_Loop
1049 00da       |    |		Load_Top	At_Offset_2
104a 77e5       |w   |		Jump_Nonzero	0x1030
104b 00ce       |    |		Action	Pop_Auxiliary
104c 00db       |    |		Load_Top	At_Offset_3
104d 00db       |    |		Load_Top	At_Offset_3
104e 027c       | |  |		Execute	Discrete,Less
104f 6802       |h   |		Jump_Zero	0x1052
1050 8405       |    |		Call	0x2,0x5
1051 7813       |x   |		Jump	0x1065
1052 00db       |    |		Load_Top	At_Offset_3
1053 00db       |    |		Load_Top	At_Offset_3
1054 e00c       |    |		Load	0x0,0xc
1055 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1056 035b       | [  |		Declare_Type	Array,Constrained
1057 0337       | 7  |		Declare_Variable	Array
1058 00d8       |    |		Load_Top	At_Offset_0
1059 01d9       |    |		Execute	Vector,Reverse_Bounds
105a 0263       | c  |		Execute	Discrete,Above_Bound
105b 7005       |p   |		Jump_Nonzero	0x1061
105c 4801       |H   |		Short_Literal	0x1
105d 00d9       |    |		Load_Top	At_Offset_1
105e e406       |    |		Load	0x2,0x6
105f 01d6       |    |		Execute	Vector,Field_Write
1060 3ffb       |?   |		Loop_Increasing	0x105c
1061 e00c       |    |		Load	0x0,0xc
1062 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1063 01c6       |    |		Execute	Vector,Convert_To_Formal
1064 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1065 0831       | 1  |		Execute_Immediate	Raise,0x31
1066 0000 0000  |    |		.XXX[0x2]
1068 ; --------------------------------------------------------------------------------------
1068 ; SUBPROGRAM
1068 ; --------------------------------------------------------------------------------------
1068 106b       | k  |		.CONST	0x106b								; Address of begin
1069 0004       |    |		.CONST	0x0004								; Address of exception handler
106a 0001       |    |		.CONST	0x0001								; Number of locals
106b			BODY_1068:
106b			INIT_1068:
106b 00db       |    |		Load_Top	At_Offset_3
106c 4800       |H   |		Short_Literal	0x0
106d e5ff       |    |		Load	0x2,-0x1
106e 82d7       |    |		Call	0x1,0xd7
106f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1070 ; --------------------------------------------------------------------------------------
1070 ; SUBPROGRAM
1070 ; --------------------------------------------------------------------------------------
1070 1073       | s  |		.CONST	0x1073								; Address of begin
1071 0004       |    |		.CONST	0x0004								; Address of exception handler
1072 0001       |    |		.CONST	0x0001								; Number of locals
1073			BODY_1070:
1073			INIT_1070:
1073 e5fc       |    |		Load	0x2,-0x4
1074 e5fd       |    |		Load	0x2,-0x3
1075 e5fe       |    |		Load	0x2,-0x2
1076 4800       |H   |		Short_Literal	0x0
1077 e5ff       |    |		Load	0x2,-0x1
1078 82d8       |    |		Call	0x1,0xd8
1079 c5fc       |    |		Store	0x2,-0x4
107a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
107b 0000 0000  |    |		.BLANK	0000[0x5]
1080 ; --------------------------------------------------------------------------------------
1080 ; SUBPROGRAM
1080 ; --------------------------------------------------------------------------------------
1080 1083       |    |		.CONST	0x1083								; Address of begin
1081 0004       |    |		.CONST	0x0004								; Address of exception handler
1082 0001       |    |		.CONST	0x0001								; Number of locals
1083			BODY_1080:
1083			INIT_1080:
1083 00db       |    |		Load_Top	At_Offset_3
1084 4801       |H   |		Short_Literal	0x1
1085 e5ff       |    |		Load	0x2,-0x1
1086 82d7       |    |		Call	0x1,0xd7
1087 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1088 ; --------------------------------------------------------------------------------------
1088 ; SUBPROGRAM
1088 ; --------------------------------------------------------------------------------------
1088 108b       |    |		.CONST	0x108b								; Address of begin
1089 0004       |    |		.CONST	0x0004								; Address of exception handler
108a 0001       |    |		.CONST	0x0001								; Number of locals
108b			BODY_1088:
108b			INIT_1088:
108b e5fc       |    |		Load	0x2,-0x4
108c e5fd       |    |		Load	0x2,-0x3
108d e5fe       |    |		Load	0x2,-0x2
108e 4801       |H   |		Short_Literal	0x1
108f e5ff       |    |		Load	0x2,-0x1
1090 82d8       |    |		Call	0x1,0xd8
1091 c5fc       |    |		Store	0x2,-0x4
1092 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1093 0000 0000  |    |		.BLANK	0000[0x5]
1098 ; --------------------------------------------------------------------------------------
1098 ; SUBPROGRAM
1098 ; --------------------------------------------------------------------------------------
1098 109b       |    |		.CONST	0x109b								; Address of begin
1099 0004       |    |		.CONST	0x0004								; Address of exception handler
109a 0001       |    |		.CONST	0x0001								; Number of locals
109b			BODY_1098:
109b			INIT_1098:
109b 00db       |    |		Load_Top	At_Offset_3
109c 4802       |H   |		Short_Literal	0x2
109d e5ff       |    |		Load	0x2,-0x1
109e 82d7       |    |		Call	0x1,0xd7
109f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10a0 ; --------------------------------------------------------------------------------------
10a0 ; SUBPROGRAM
10a0 ; --------------------------------------------------------------------------------------
10a0 10a3       |    |		.CONST	0x10a3								; Address of begin
10a1 0004       |    |		.CONST	0x0004								; Address of exception handler
10a2 0001       |    |		.CONST	0x0001								; Number of locals
10a3			BODY_10a0:
10a3			INIT_10a0:
10a3 e5fc       |    |		Load	0x2,-0x4
10a4 e5fd       |    |		Load	0x2,-0x3
10a5 e5fe       |    |		Load	0x2,-0x2
10a6 4802       |H   |		Short_Literal	0x2
10a7 e5ff       |    |		Load	0x2,-0x1
10a8 82d8       |    |		Call	0x1,0xd8
10a9 c5fc       |    |		Store	0x2,-0x4
10aa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
10ab 0000 0000  |    |		.BLANK	0000[0x5]
10b0 ; --------------------------------------------------------------------------------------
10b0 ; SUBPROGRAM
10b0 ; --------------------------------------------------------------------------------------
10b0 10b3       |    |		.CONST	0x10b3								; Address of begin
10b1 0004       |    |		.CONST	0x0004								; Address of exception handler
10b2 0001       |    |		.CONST	0x0001								; Number of locals
10b3			BODY_10b0:
10b3			INIT_10b0:
10b3 00db       |    |		Load_Top	At_Offset_3
10b4 4803       |H   |		Short_Literal	0x3
10b5 e5ff       |    |		Load	0x2,-0x1
10b6 82d7       |    |		Call	0x1,0xd7
10b7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10b8 ; --------------------------------------------------------------------------------------
10b8 ; SUBPROGRAM
10b8 ; --------------------------------------------------------------------------------------
10b8 10bb       |    |		.CONST	0x10bb								; Address of begin
10b9 0004       |    |		.CONST	0x0004								; Address of exception handler
10ba 0001       |    |		.CONST	0x0001								; Number of locals
10bb			BODY_10b8:
10bb			INIT_10b8:
10bb e5fc       |    |		Load	0x2,-0x4
10bc e5fd       |    |		Load	0x2,-0x3
10bd e5fe       |    |		Load	0x2,-0x2
10be 4803       |H   |		Short_Literal	0x3
10bf e5ff       |    |		Load	0x2,-0x1
10c0 82d8       |    |		Call	0x1,0xd8
10c1 c5fc       |    |		Store	0x2,-0x4
10c2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
10c3 0000 0000  |    |		.BLANK	0000[0x5]
10c8 ; --------------------------------------------------------------------------------------
10c8 ; SUBPROGRAM
10c8 ; --------------------------------------------------------------------------------------
10c8 10cb       |    |		.CONST	0x10cb								; Address of begin
10c9 0004       |    |		.CONST	0x0004								; Address of exception handler
10ca 0001       |    |		.CONST	0x0001								; Number of locals
10cb			BODY_10c8:
10cb			INIT_10c8:
10cb 00da       |    |		Load_Top	At_Offset_2
10cc 0217       |    |		Execute	Heap_Access,All_Reference
10cd 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
10ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
10cf 0000       |    |		.XXX[0x1]
10d0 ; --------------------------------------------------------------------------------------
10d0 ; SUBPROGRAM
10d0 ; --------------------------------------------------------------------------------------
10d0 10d3       |    |		.CONST	0x10d3								; Address of begin
10d1 0004       |    |		.CONST	0x0004								; Address of exception handler
10d2 0001       |    |		.CONST	0x0001								; Number of locals
10d3			BODY_10d0:
10d3			INIT_10d0:
10d3 00db       |    |		Load_Top	At_Offset_3
10d4 00db       |    |		Load_Top	At_Offset_3
10d5 0217       |    |		Execute	Heap_Access,All_Reference
10d6 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
10d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
10d8 ; --------------------------------------------------------------------------------------
10d8 ; SUBPROGRAM
10d8 ; --------------------------------------------------------------------------------------
10d8 10db       |    |		.CONST	0x10db								; Address of begin
10d9 0004       |    |		.CONST	0x0004								; Address of exception handler
10da 0001       |    |		.CONST	0x0001								; Number of locals
10db			BODY_10d8:
10db			INIT_10d8:
10db 00db       |    |		Load_Top	At_Offset_3
10dc 4805       |H   |		Short_Literal	0x5
10dd e5ff       |    |		Load	0x2,-0x1
10de 82d9       |    |		Call	0x1,0xd9
10df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10e0 ; --------------------------------------------------------------------------------------
10e0 ; SUBPROGRAM
10e0 ; --------------------------------------------------------------------------------------
10e0 10e3       |    |		.CONST	0x10e3								; Address of begin
10e1 0004       |    |		.CONST	0x0004								; Address of exception handler
10e2 0001       |    |		.CONST	0x0001								; Number of locals
10e3			BODY_10e0:
10e3			INIT_10e0:
10e3 e5fc       |    |		Load	0x2,-0x4
10e4 e5fd       |    |		Load	0x2,-0x3
10e5 e5fe       |    |		Load	0x2,-0x2
10e6 4805       |H   |		Short_Literal	0x5
10e7 e5ff       |    |		Load	0x2,-0x1
10e8 82da       |    |		Call	0x1,0xda
10e9 c5fc       |    |		Store	0x2,-0x4
10ea 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
10eb 0000 0000  |    |		.BLANK	0000[0x5]
10f0 ; --------------------------------------------------------------------------------------
10f0 ; SUBPROGRAM
10f0 ; --------------------------------------------------------------------------------------
10f0 10f3       |    |		.CONST	0x10f3								; Address of begin
10f1 0004       |    |		.CONST	0x0004								; Address of exception handler
10f2 0001       |    |		.CONST	0x0001								; Number of locals
10f3			BODY_10f0:
10f3			INIT_10f0:
10f3 00da       |    |		Load_Top	At_Offset_2
10f4 0217       |    |		Execute	Heap_Access,All_Reference
10f5 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
10f6 e020       |    |		Load	0x0,0x20
10f7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
10f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
10f9 0000 0000  |    |		.BLANK	0000[0x7]
1100 ; --------------------------------------------------------------------------------------
1100 ; SUBPROGRAM
1100 ; --------------------------------------------------------------------------------------
1100 1103       |    |		.CONST	0x1103								; Address of begin
1101 0004       |    |		.CONST	0x0004								; Address of exception handler
1102 0001       |    |		.CONST	0x0001								; Number of locals
1103			BODY_1100:
1103			INIT_1100:
1103 00da       |    |		Load_Top	At_Offset_2
1104 e5fe       |    |		Load	0x2,-0x2
1105 e020       |    |		Load	0x0,0x20
1106 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1107 00db       |    |		Load_Top	At_Offset_3
1108 0217       |    |		Execute	Heap_Access,All_Reference
1109 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
110a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
110b 0000 0000  |    |		.BLANK	0000[0x5]
1110 ; --------------------------------------------------------------------------------------
1110 ; SUBPROGRAM
1110 ; --------------------------------------------------------------------------------------
1110 1113       |    |		.CONST	0x1113								; Address of begin
1111 0004       |    |		.CONST	0x0004								; Address of exception handler
1112 0001       |    |		.CONST	0x0001								; Number of locals
1113			BODY_1110:
1113			INIT_1110:
1113 00db       |    |		Load_Top	At_Offset_3
1114 4804       |H   |		Short_Literal	0x4
1115 e5ff       |    |		Load	0x2,-0x1
1116 82d7       |    |		Call	0x1,0xd7
1117 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1118 ; --------------------------------------------------------------------------------------
1118 ; SUBPROGRAM
1118 ; --------------------------------------------------------------------------------------
1118 111b       |    |		.CONST	0x111b								; Address of begin
1119 0004       |    |		.CONST	0x0004								; Address of exception handler
111a 0001       |    |		.CONST	0x0001								; Number of locals
111b			BODY_1118:
111b			INIT_1118:
111b e5fc       |    |		Load	0x2,-0x4
111c e5fd       |    |		Load	0x2,-0x3
111d e5fe       |    |		Load	0x2,-0x2
111e 4804       |H   |		Short_Literal	0x4
111f e5ff       |    |		Load	0x2,-0x1
1120 82d8       |    |		Call	0x1,0xd8
1121 c5fc       |    |		Store	0x2,-0x4
1122 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1123 0000 0000  |    |		.BLANK	0000[0x5]
1128 ; --------------------------------------------------------------------------------------
1128 ; SUBPROGRAM
1128 ; --------------------------------------------------------------------------------------
1128 112b       | +  |		.CONST	0x112b								; Address of begin
1129 0004       |    |		.CONST	0x0004								; Address of exception handler
112a 0001       |    |		.CONST	0x0001								; Number of locals
112b			BODY_1128:
112b			INIT_1128:
112b 00db       |    |		Load_Top	At_Offset_3
112c 4806       |H   |		Short_Literal	0x6
112d e5ff       |    |		Load	0x2,-0x1
112e 82d9       |    |		Call	0x1,0xd9
112f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1130 ; --------------------------------------------------------------------------------------
1130 ; SUBPROGRAM
1130 ; --------------------------------------------------------------------------------------
1130 1138       | 8  |		.CONST	0x1138								; Address of begin
1131 0004       |    |		.CONST	0x0004								; Address of exception handler
1132 0003       |    |		.CONST	0x0003								; Number of locals
1133			INIT_1130:
1133 e01b       |    |		Load	0x0,0x1b
1134 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1135 e002       |    |		Load	0x0,0x2
1136 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1137 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1138			BODY_1130:
1138 00d8       |    |		Load_Top	At_Offset_0
1139 e01b       |    |		Load	0x0,0x1b
113a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
113b 4801       |H   |		Short_Literal	0x1
113c e5fd       |    |		Load	0x2,-0x3
113d e5ff       |    |		Load	0x2,-0x1
113e 82d5       |    |		Call	0x1,0xd5
113f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1140 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1141 00d8       |    |		Load_Top	At_Offset_0
1142 704a       |pJ  |		Jump_Nonzero	0x118d
1143 e5fe       |    |		Load	0x2,-0x2
1144 00da       |    |		Load_Top	At_Offset_2
1145 0217       |    |		Execute	Heap_Access,All_Reference
1146 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1147 027e       | ~  |		Execute	Discrete,Not_Equal
1148 6843       |hC  |		Jump_Zero	0x118c
1149 e5ff       |    |		Load	0x2,-0x1
114a 8224       | $  |		Call	0x1,0x24
114b 7022       |p"  |		Jump_Nonzero	0x116e
114c e5fe       |    |		Load	0x2,-0x2
114d 00da       |    |		Load_Top	At_Offset_2
114e 0217       |    |		Execute	Heap_Access,All_Reference
114f 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
1150 00d9       |    |		Load_Top	At_Offset_1
1151 0217       |    |		Execute	Heap_Access,All_Reference
1152 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1153 680c       |h   |		Jump_Zero	0x1160
1154 00d9       |    |		Load_Top	At_Offset_1
1155 0219       |    |		Execute	Heap_Access,All_Read
1156 00d8       |    |		Load_Top	At_Offset_0
1157 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1158 e5ff       |    |		Load	0x2,-0x1
1159 4800       |H   |		Short_Literal	0x0
115a e02b       | +  |		Load	0x0,0x2b
115b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
115c 00d9       |    |		Load_Top	At_Offset_1
115d 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
115e 00d1       |    |		Pop_Control	Pop_Count_1
115f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1160 00d9       |    |		Load_Top	At_Offset_1
1161 0219       |    |		Execute	Heap_Access,All_Read
1162 00d8       |    |		Load_Top	At_Offset_0
1163 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1164 e5ff       |    |		Load	0x2,-0x1
1165 e402       |    |		Load	0x2,0x2
1166 0217       |    |		Execute	Heap_Access,All_Reference
1167 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
1168 e02b       | +  |		Load	0x0,0x2b
1169 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
116a 00d9       |    |		Load_Top	At_Offset_1
116b 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
116c 00d1       |    |		Pop_Control	Pop_Count_1
116d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
116e e002       |    |		Load	0x0,0x2
116f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1170 4801       |H   |		Short_Literal	0x1
1171 4803       |H   |		Short_Literal	0x3
1172 e00e       |    |		Load	0x0,0xe
1173 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1174 035b       | [  |		Declare_Type	Array,Constrained
1175 0337       | 7  |		Declare_Variable	Array
1176 e5ff       |    |		Load	0x2,-0x1
1177 825a       | Z  |		Call	0x1,0x5a
1178 4801       |H   |		Short_Literal	0x1
1179 00da       |    |		Load_Top	At_Offset_2
117a 01d6       |    |		Execute	Vector,Field_Write
117b e5fd       |    |		Load	0x2,-0x3
117c e00c       |    |		Load	0x0,0xc
117d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
117e 4802       |H   |		Short_Literal	0x2
117f 00da       |    |		Load_Top	At_Offset_2
1180 01d6       |    |		Execute	Vector,Field_Write
1181 e5ff       |    |		Load	0x2,-0x1
1182 8224       | $  |		Call	0x1,0x24
1183 e00e       |    |		Load	0x0,0xe
1184 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1185 4803       |H   |		Short_Literal	0x3
1186 00da       |    |		Load_Top	At_Offset_2
1187 01d6       |    |		Execute	Vector,Field_Write
1188 601f       |`   |		Indirect_Literal	Discrete,0x11a8,{0x00000000, 0x00002835}
1189 e002       |    |		Load	0x0,0x2
118a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
118b c5fc       |    |		Store	0x2,-0x4
118c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
118d e002       |    |		Load	0x0,0x2
118e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
118f 4801       |H   |		Short_Literal	0x1
1190 4802       |H   |		Short_Literal	0x2
1191 e00e       |    |		Load	0x0,0xe
1192 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1193 035b       | [  |		Declare_Type	Array,Constrained
1194 0337       | 7  |		Declare_Variable	Array
1195 e5ff       |    |		Load	0x2,-0x1
1196 825a       | Z  |		Call	0x1,0x5a
1197 4801       |H   |		Short_Literal	0x1
1198 00da       |    |		Load_Top	At_Offset_2
1199 01d6       |    |		Execute	Vector,Field_Write
119a e5fd       |    |		Load	0x2,-0x3
119b e00c       |    |		Load	0x0,0xc
119c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
119d 4802       |H   |		Short_Literal	0x2
119e 00da       |    |		Load_Top	At_Offset_2
119f 01d6       |    |		Execute	Vector,Field_Write
11a0 00da       |    |		Load_Top	At_Offset_2
11a1 e002       |    |		Load	0x0,0x2
11a2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
11a3 c5fc       |    |		Store	0x2,-0x4
11a4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
11a5 0000 0000  |    |		.XXX[0x3]
11a7 0000       |    |
11a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002835}
11ac 0000 0000  |    |		.BLANK	0000[0x4]
11b0 ; --------------------------------------------------------------------------------------
11b0 ; SUBPROGRAM
11b0 ; --------------------------------------------------------------------------------------
11b0 11b8       |    |		.CONST	0x11b8								; Address of begin
11b1 0004       |    |		.CONST	0x0004								; Address of exception handler
11b2 0003       |    |		.CONST	0x0003								; Number of locals
11b3			INIT_11b0:
11b3 e01b       |    |		Load	0x0,0x1b
11b4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
11b5 e002       |    |		Load	0x0,0x2
11b6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
11b7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
11b8			BODY_11b0:
11b8 00d8       |    |		Load_Top	At_Offset_0
11b9 e01b       |    |		Load	0x0,0x1b
11ba 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
11bb 4800       |H   |		Short_Literal	0x0
11bc e5fe       |    |		Load	0x2,-0x2
11bd e5ff       |    |		Load	0x2,-0x1
11be 82d5       |    |		Call	0x1,0xd5
11bf 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
11c0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
11c1 00d8       |    |		Load_Top	At_Offset_0
11c2 7009       |p   |		Jump_Nonzero	0x11cc
11c3 00d9       |    |		Load_Top	At_Offset_1
11c4 0217       |    |		Execute	Heap_Access,All_Reference
11c5 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
11c6 00d8       |    |		Load_Top	At_Offset_0
11c7 00e4       |    |		Load_Encached	Positive_Cache
11c8 0260       | `  |		Execute	Discrete,In_Type
11c9 7001       |p   |		Jump_Nonzero	0x11cb
11ca 0801       |    |		Execute_Immediate	Raise,0x1
11cb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
11cc 00d8       |    |		Load_Top	At_Offset_0
11cd 6026       |`&  |		Indirect_Literal	Discrete,0x11f4,{0x00000000, 0x0000281c}
11ce 027f       |    |		Execute	Discrete,Equal
11cf 6807       |h   |		Jump_Zero	0x11d7
11d0 4800       |H   |		Short_Literal	0x0
11d1 00d8       |    |		Load_Top	At_Offset_0
11d2 00e4       |    |		Load_Encached	Positive_Cache
11d3 0260       | `  |		Execute	Discrete,In_Type
11d4 7001       |p   |		Jump_Nonzero	0x11d6
11d5 0801       |    |		Execute_Immediate	Raise,0x1
11d6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
11d7 4801       |H   |		Short_Literal	0x1
11d8 4802       |H   |		Short_Literal	0x2
11d9 e00e       |    |		Load	0x0,0xe
11da 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
11db 035b       | [  |		Declare_Type	Array,Constrained
11dc 0337       | 7  |		Declare_Variable	Array
11dd e5ff       |    |		Load	0x2,-0x1
11de 825a       | Z  |		Call	0x1,0x5a
11df 4801       |H   |		Short_Literal	0x1
11e0 00da       |    |		Load_Top	At_Offset_2
11e1 01d6       |    |		Execute	Vector,Field_Write
11e2 e5fe       |    |		Load	0x2,-0x2
11e3 e00c       |    |		Load	0x0,0xc
11e4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
11e5 4802       |H   |		Short_Literal	0x2
11e6 00da       |    |		Load_Top	At_Offset_2
11e7 01d6       |    |		Execute	Vector,Field_Write
11e8 00d9       |    |		Load_Top	At_Offset_1
11e9 e002       |    |		Load	0x0,0x2
11ea 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
11eb 00d8       |    |		Load_Top	At_Offset_0
11ec 00e4       |    |		Load_Encached	Positive_Cache
11ed 0260       | `  |		Execute	Discrete,In_Type
11ee 7001       |p   |		Jump_Nonzero	0x11f0
11ef 0801       |    |		Execute_Immediate	Raise,0x1
11f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
11f1 0000 0000  |    |		.XXX[0x3]
11f3 0000       |    |
11f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
11f8 ; --------------------------------------------------------------------------------------
11f8 ; SUBPROGRAM
11f8 ; --------------------------------------------------------------------------------------
11f8 1200       |    |		.CONST	0x1200								; Address of begin
11f9 0004       |    |		.CONST	0x0004								; Address of exception handler
11fa 0003       |    |		.CONST	0x0003								; Number of locals
11fb			INIT_11f8:
11fb e01b       |    |		Load	0x0,0x1b
11fc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
11fd e002       |    |		Load	0x0,0x2
11fe 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
11ff 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1200			BODY_11f8:
1200 00d8       |    |		Load_Top	At_Offset_0
1201 4802       |H   |		Short_Literal	0x2
1202 e5ff       |    |		Load	0x2,-0x1
1203 e01b       |    |		Load	0x0,0x1b
1204 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1205 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1206 00d8       |    |		Load_Top	At_Offset_0
1207 7021       |p!  |		Jump_Nonzero	0x1229
1208 00d8       |    |		Load_Top	At_Offset_0
1209 e01b       |    |		Load	0x0,0x1b
120a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
120b 4801       |H   |		Short_Literal	0x1
120c e5fd       |    |		Load	0x2,-0x3
120d e5ff       |    |		Load	0x2,-0x1
120e 82d5       |    |		Call	0x1,0xd5
120f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1210 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1211 00d8       |    |		Load_Top	At_Offset_0
1212 7016       |p   |		Jump_Nonzero	0x1229
1213 00d9       |    |		Load_Top	At_Offset_1
1214 0217       |    |		Execute	Heap_Access,All_Reference
1215 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1216 6803       |h   |		Jump_Zero	0x121a
1217 602c       |`,  |		Indirect_Literal	Discrete,0x1244,{0x00000000, 0x0000282f}
1218 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1219 780f       |x   |		Jump	0x1229
121a e5fe       |    |		Load	0x2,-0x2
121b 00da       |    |		Load_Top	At_Offset_2
121c 0217       |    |		Execute	Heap_Access,All_Reference
121d 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
121e 00d9       |    |		Load_Top	At_Offset_1
121f 0219       |    |		Execute	Heap_Access,All_Read
1220 00d8       |    |		Load_Top	At_Offset_0
1221 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1222 e5ff       |    |		Load	0x2,-0x1
1223 e5fe       |    |		Load	0x2,-0x2
1224 e02b       | +  |		Load	0x0,0x2b
1225 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1226 00d9       |    |		Load_Top	At_Offset_1
1227 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
1228 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1229 e002       |    |		Load	0x0,0x2
122a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
122b 4801       |H   |		Short_Literal	0x1
122c 4802       |H   |		Short_Literal	0x2
122d e00e       |    |		Load	0x0,0xe
122e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
122f 035b       | [  |		Declare_Type	Array,Constrained
1230 0337       | 7  |		Declare_Variable	Array
1231 e5ff       |    |		Load	0x2,-0x1
1232 825a       | Z  |		Call	0x1,0x5a
1233 4801       |H   |		Short_Literal	0x1
1234 00da       |    |		Load_Top	At_Offset_2
1235 01d6       |    |		Execute	Vector,Field_Write
1236 e5fd       |    |		Load	0x2,-0x3
1237 e00c       |    |		Load	0x0,0xc
1238 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1239 4802       |H   |		Short_Literal	0x2
123a 00da       |    |		Load_Top	At_Offset_2
123b 01d6       |    |		Execute	Vector,Field_Write
123c 00da       |    |		Load_Top	At_Offset_2
123d e002       |    |		Load	0x0,0x2
123e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
123f c5fc       |    |		Store	0x2,-0x4
1240 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1241 0000 0000  |    |		.XXX[0x3]
1243 0000       |    |
1244 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282f}
1248 ; --------------------------------------------------------------------------------------
1248 ; SUBPROGRAM
1248 ; --------------------------------------------------------------------------------------
1248 1250       | P  |		.CONST	0x1250								; Address of begin
1249 0004       |    |		.CONST	0x0004								; Address of exception handler
124a 0003       |    |		.CONST	0x0003								; Number of locals
124b			INIT_1248:
124b e01b       |    |		Load	0x0,0x1b
124c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
124d e002       |    |		Load	0x0,0x2
124e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
124f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1250			BODY_1248:
1250 00d8       |    |		Load_Top	At_Offset_0
1251 4800       |H   |		Short_Literal	0x0
1252 e5ff       |    |		Load	0x2,-0x1
1253 e01b       |    |		Load	0x0,0x1b
1254 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1255 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1256 00d8       |    |		Load_Top	At_Offset_0
1257 7017       |p   |		Jump_Nonzero	0x126f
1258 00d8       |    |		Load_Top	At_Offset_0
1259 e01b       |    |		Load	0x0,0x1b
125a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
125b 4800       |H   |		Short_Literal	0x0
125c e5fe       |    |		Load	0x2,-0x2
125d e5ff       |    |		Load	0x2,-0x1
125e 82d5       |    |		Call	0x1,0xd5
125f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1260 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1261 00d8       |    |		Load_Top	At_Offset_0
1262 7006       |p   |		Jump_Nonzero	0x1269
1263 00d9       |    |		Load_Top	At_Offset_1
1264 0217       |    |		Execute	Heap_Access,All_Reference
1265 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1266 e02b       | +  |		Load	0x0,0x2b
1267 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1268 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1269 00d8       |    |		Load_Top	At_Offset_0
126a 6021       |`!  |		Indirect_Literal	Discrete,0x128c,{0x00000000, 0x0000281c}
126b 027f       |    |		Execute	Discrete,Equal
126c 6802       |h   |		Jump_Zero	0x126f
126d 4800       |H   |		Short_Literal	0x0
126e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
126f 4801       |H   |		Short_Literal	0x1
1270 4802       |H   |		Short_Literal	0x2
1271 e00e       |    |		Load	0x0,0xe
1272 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1273 035b       | [  |		Declare_Type	Array,Constrained
1274 0337       | 7  |		Declare_Variable	Array
1275 e5ff       |    |		Load	0x2,-0x1
1276 825a       | Z  |		Call	0x1,0x5a
1277 4801       |H   |		Short_Literal	0x1
1278 00da       |    |		Load_Top	At_Offset_2
1279 01d6       |    |		Execute	Vector,Field_Write
127a e5fe       |    |		Load	0x2,-0x2
127b e00c       |    |		Load	0x0,0xc
127c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
127d 4802       |H   |		Short_Literal	0x2
127e 00da       |    |		Load_Top	At_Offset_2
127f 01d6       |    |		Execute	Vector,Field_Write
1280 00d9       |    |		Load_Top	At_Offset_1
1281 e002       |    |		Load	0x0,0x2
1282 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
1283 00d8       |    |		Load_Top	At_Offset_0
1284 00e3       |    |		Load_Encached	Natural_Cache
1285 0260       | `  |		Execute	Discrete,In_Type
1286 7001       |p   |		Jump_Nonzero	0x1288
1287 0801       |    |		Execute_Immediate	Raise,0x1
1288 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1289 0000 0000  |    |		.XXX[0x3]
128b 0000       |    |
128c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
1290 ; --------------------------------------------------------------------------------------
1290 ; SUBPROGRAM
1290 ; --------------------------------------------------------------------------------------
1290 129a       |    |		.CONST	0x129a								; Address of begin
1291 0004       |    |		.CONST	0x0004								; Address of exception handler
1292 0004       |    |		.CONST	0x0004								; Number of locals
1293			INIT_1290:
1293 e01b       |    |		Load	0x0,0x1b
1294 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1295 e002       |    |		Load	0x0,0x2
1296 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1297 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1298 029f 2a43  |  *C|		Declare_Subprogram	INIT_2a40,For_Call
129a			BODY_1290:
129a 00d9       |    |		Load_Top	At_Offset_1
129b 4802       |H   |		Short_Literal	0x2
129c e5ff       |    |		Load	0x2,-0x1
129d e01b       |    |		Load	0x0,0x1b
129e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
129f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
12a0 00d9       |    |		Load_Top	At_Offset_1
12a1 7020       |p   |		Jump_Nonzero	0x12c2
12a2 00d9       |    |		Load_Top	At_Offset_1
12a3 e01b       |    |		Load	0x0,0x1b
12a4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
12a5 4801       |H   |		Short_Literal	0x1
12a6 e5fc       |    |		Load	0x2,-0x4
12a7 e5ff       |    |		Load	0x2,-0x1
12a8 82d5       |    |		Call	0x1,0xd5
12a9 c402       |    |		Store	0x2,0x2
12aa 005a       | Z  |		Store_Top	Discrete,At_Offset_2
12ab 00d9       |    |		Load_Top	At_Offset_1
12ac 7015       |p   |		Jump_Nonzero	0x12c2
12ad 00da       |    |		Load_Top	At_Offset_2
12ae 0217       |    |		Execute	Heap_Access,All_Reference
12af 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
12b0 6802       |h   |		Jump_Zero	0x12b3
12b1 8404       |    |		Call	0x2,0x4
12b2 780f       |x   |		Jump	0x12c2
12b3 00da       |    |		Load_Top	At_Offset_2
12b4 0219       |    |		Execute	Heap_Access,All_Read
12b5 00da       |    |		Load_Top	At_Offset_2
12b6 00d9       |    |		Load_Top	At_Offset_1
12b7 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
12b8 e5fe       |    |		Load	0x2,-0x2
12b9 e02b       | +  |		Load	0x0,0x2b
12ba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
12bb 00da       |    |		Load_Top	At_Offset_2
12bc 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
12bd 005b       | [  |		Store_Top	Discrete,At_Offset_3
12be 00d1       |    |		Pop_Control	Pop_Count_1
12bf 00d9       |    |		Load_Top	At_Offset_1
12c0 7001       |p   |		Jump_Nonzero	0x12c2
12c1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
12c2 e002       |    |		Load	0x0,0x2
12c3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12c4 4801       |H   |		Short_Literal	0x1
12c5 4802       |H   |		Short_Literal	0x2
12c6 e00e       |    |		Load	0x0,0xe
12c7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
12c8 035b       | [  |		Declare_Type	Array,Constrained
12c9 0337       | 7  |		Declare_Variable	Array
12ca e5ff       |    |		Load	0x2,-0x1
12cb 825a       | Z  |		Call	0x1,0x5a
12cc 4801       |H   |		Short_Literal	0x1
12cd 00da       |    |		Load_Top	At_Offset_2
12ce 01d6       |    |		Execute	Vector,Field_Write
12cf e5fc       |    |		Load	0x2,-0x4
12d0 e00c       |    |		Load	0x0,0xc
12d1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
12d2 4802       |H   |		Short_Literal	0x2
12d3 00da       |    |		Load_Top	At_Offset_2
12d4 01d6       |    |		Execute	Vector,Field_Write
12d5 00db       |    |		Load_Top	At_Offset_3
12d6 e002       |    |		Load	0x0,0x2
12d7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
12d8 c5fb       |    |		Store	0x2,-0x5
12d9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
12da 0000 0000  |    |		.BLANK	0000[0x6]
12e0 ; --------------------------------------------------------------------------------------
12e0 ; SUBPROGRAM
12e0 ; --------------------------------------------------------------------------------------
12e0 12ed       |    |		.CONST	0x12ed								; Address of begin
12e1 0004       |    |		.CONST	0x0004								; Address of exception handler
12e2 0004       |    |		.CONST	0x0004								; Number of locals
12e3			INIT_12e0:
12e3 e01b       |    |		Load	0x0,0x1b
12e4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
12e5 e002       |    |		Load	0x0,0x2
12e6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
12e7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
12e8 e004       |    |		Load	0x0,0x4
12e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12ea 02c7       |    |		Declare_Variable	Any
12eb 00d8       |    |		Load_Top	At_Offset_0
12ec 1c00       |    |		Execute_Immediate	Run_Utility,0x0
12ed			BODY_12e0:
12ed 00d9       |    |		Load_Top	At_Offset_1
12ee 4800       |H   |		Short_Literal	0x0
12ef e5ff       |    |		Load	0x2,-0x1
12f0 e01b       |    |		Load	0x0,0x1b
12f1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12f2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
12f3 00d9       |    |		Load_Top	At_Offset_1
12f4 702d       |p-  |		Jump_Nonzero	0x1322
12f5 00d9       |    |		Load_Top	At_Offset_1
12f6 e01b       |    |		Load	0x0,0x1b
12f7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
12f8 4800       |H   |		Short_Literal	0x0
12f9 e5fd       |    |		Load	0x2,-0x3
12fa e5ff       |    |		Load	0x2,-0x1
12fb 82d5       |    |		Call	0x1,0xd5
12fc c402       |    |		Store	0x2,0x2
12fd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
12fe 00d9       |    |		Load_Top	At_Offset_1
12ff 701b       |p   |		Jump_Nonzero	0x131b
1300 00da       |    |		Load_Top	At_Offset_2
1301 0219       |    |		Execute	Heap_Access,All_Read
1302 00da       |    |		Load_Top	At_Offset_2
1303 00da       |    |		Load_Top	At_Offset_2
1304 0120       |    |		Execute	Any,Is_Value
1305 6803       |h   |		Jump_Zero	0x1309
1306 e004       |    |		Load	0x0,0x4
1307 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1308 7801       |x   |		Jump	0x130a
1309 00da       |    |		Load_Top	At_Offset_2
130a 00da       |    |		Load_Top	At_Offset_2
130b 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
130c e5fe       |    |		Load	0x2,-0x2
130d e02b       | +  |		Load	0x0,0x2b
130e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
130f 00db       |    |		Load_Top	At_Offset_3
1310 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
1311 c404       |    |		Store	0x2,0x4
1312 005b       | [  |		Store_Top	Discrete,At_Offset_3
1313 00d1       |    |		Pop_Control	Pop_Count_1
1314 00d9       |    |		Load_Top	At_Offset_1
1315 7002       |p   |		Jump_Nonzero	0x1318
1316 00d8       |    |		Load_Top	At_Offset_0
1317 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1318 e003       |    |		Load	0x0,0x3
1319 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
131a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
131b 00d9       |    |		Load_Top	At_Offset_1
131c 601b       |`   |		Indirect_Literal	Discrete,0x1338,{0x00000000, 0x0000281c}
131d 027f       |    |		Execute	Discrete,Equal
131e 6803       |h   |		Jump_Zero	0x1322
131f e003       |    |		Load	0x0,0x3
1320 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1321 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1322 4801       |H   |		Short_Literal	0x1
1323 4802       |H   |		Short_Literal	0x2
1324 e00e       |    |		Load	0x0,0xe
1325 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1326 035b       | [  |		Declare_Type	Array,Constrained
1327 0337       | 7  |		Declare_Variable	Array
1328 e5ff       |    |		Load	0x2,-0x1
1329 825a       | Z  |		Call	0x1,0x5a
132a 4801       |H   |		Short_Literal	0x1
132b 00da       |    |		Load_Top	At_Offset_2
132c 01d6       |    |		Execute	Vector,Field_Write
132d e5fd       |    |		Load	0x2,-0x3
132e e00c       |    |		Load	0x0,0xc
132f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1330 4802       |H   |		Short_Literal	0x2
1331 00da       |    |		Load_Top	At_Offset_2
1332 01d6       |    |		Execute	Vector,Field_Write
1333 00da       |    |		Load_Top	At_Offset_2
1334 e002       |    |		Load	0x0,0x2
1335 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
1336 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1337 0000       |    |		.XXX[0x1]
1338 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
133c 0000 0000  |    |		.BLANK	0000[0x4]
1340 ; --------------------------------------------------------------------------------------
1340 ; SUBPROGRAM
1340 ; --------------------------------------------------------------------------------------
1340 134a       | J  |		.CONST	0x134a								; Address of begin
1341 0004       |    |		.CONST	0x0004								; Address of exception handler
1342 0004       |    |		.CONST	0x0004								; Number of locals
1343			INIT_1340:
1343 e01b       |    |		Load	0x0,0x1b
1344 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1345 e002       |    |		Load	0x0,0x2
1346 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1347 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1348 029f 2a6b  |  *k|		Declare_Subprogram	INIT_2a68,For_Call
134a			BODY_1340:
134a 00d9       |    |		Load_Top	At_Offset_1
134b 4802       |H   |		Short_Literal	0x2
134c e5ff       |    |		Load	0x2,-0x1
134d e01b       |    |		Load	0x0,0x1b
134e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
134f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1350 00d9       |    |		Load_Top	At_Offset_1
1351 7021       |p!  |		Jump_Nonzero	0x1373
1352 00d9       |    |		Load_Top	At_Offset_1
1353 e01b       |    |		Load	0x0,0x1b
1354 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1355 4801       |H   |		Short_Literal	0x1
1356 e5fb       |    |		Load	0x2,-0x5
1357 e5ff       |    |		Load	0x2,-0x1
1358 82d5       |    |		Call	0x1,0xd5
1359 c402       |    |		Store	0x2,0x2
135a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
135b 00d9       |    |		Load_Top	At_Offset_1
135c 7016       |p   |		Jump_Nonzero	0x1373
135d 00da       |    |		Load_Top	At_Offset_2
135e 0217       |    |		Execute	Heap_Access,All_Reference
135f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1360 6802       |h   |		Jump_Zero	0x1363
1361 8404       |    |		Call	0x2,0x4
1362 7810       |x   |		Jump	0x1373
1363 00da       |    |		Load_Top	At_Offset_2
1364 0219       |    |		Execute	Heap_Access,All_Read
1365 00da       |    |		Load_Top	At_Offset_2
1366 00d9       |    |		Load_Top	At_Offset_1
1367 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1368 e5fe       |    |		Load	0x2,-0x2
1369 e5fd       |    |		Load	0x2,-0x3
136a e02b       | +  |		Load	0x0,0x2b
136b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
136c 00da       |    |		Load_Top	At_Offset_2
136d 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
136e 005b       | [  |		Store_Top	Discrete,At_Offset_3
136f 00d1       |    |		Pop_Control	Pop_Count_1
1370 00d9       |    |		Load_Top	At_Offset_1
1371 7001       |p   |		Jump_Nonzero	0x1373
1372 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
1373 e002       |    |		Load	0x0,0x2
1374 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1375 4801       |H   |		Short_Literal	0x1
1376 4802       |H   |		Short_Literal	0x2
1377 e00e       |    |		Load	0x0,0xe
1378 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1379 035b       | [  |		Declare_Type	Array,Constrained
137a 0337       | 7  |		Declare_Variable	Array
137b e5ff       |    |		Load	0x2,-0x1
137c 825a       | Z  |		Call	0x1,0x5a
137d 4801       |H   |		Short_Literal	0x1
137e 00da       |    |		Load_Top	At_Offset_2
137f 01d6       |    |		Execute	Vector,Field_Write
1380 e5fb       |    |		Load	0x2,-0x5
1381 e00c       |    |		Load	0x0,0xc
1382 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1383 4802       |H   |		Short_Literal	0x2
1384 00da       |    |		Load_Top	At_Offset_2
1385 01d6       |    |		Execute	Vector,Field_Write
1386 00db       |    |		Load_Top	At_Offset_3
1387 e002       |    |		Load	0x0,0x2
1388 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1389 c5fa       |    |		Store	0x2,-0x6
138a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
138b 0000 0000  |    |		.BLANK	0000[0x5]
1390 ; --------------------------------------------------------------------------------------
1390 ; SUBPROGRAM
1390 ; --------------------------------------------------------------------------------------
1390 139a       |    |		.CONST	0x139a								; Address of begin
1391 0004       |    |		.CONST	0x0004								; Address of exception handler
1392 0004       |    |		.CONST	0x0004								; Number of locals
1393			INIT_1390:
1393 e01b       |    |		Load	0x0,0x1b
1394 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1395 e002       |    |		Load	0x0,0x2
1396 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1397 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1398 029f 2a93  |  * |		Declare_Subprogram	INIT_2a90,For_Call
139a			BODY_1390:
139a 00d9       |    |		Load_Top	At_Offset_1
139b 4802       |H   |		Short_Literal	0x2
139c e5ff       |    |		Load	0x2,-0x1
139d e01b       |    |		Load	0x0,0x1b
139e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
139f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
13a0 00d9       |    |		Load_Top	At_Offset_1
13a1 7020       |p   |		Jump_Nonzero	0x13c2
13a2 00d9       |    |		Load_Top	At_Offset_1
13a3 e01b       |    |		Load	0x0,0x1b
13a4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
13a5 4801       |H   |		Short_Literal	0x1
13a6 e5fc       |    |		Load	0x2,-0x4
13a7 e5ff       |    |		Load	0x2,-0x1
13a8 82d5       |    |		Call	0x1,0xd5
13a9 c402       |    |		Store	0x2,0x2
13aa 005a       | Z  |		Store_Top	Discrete,At_Offset_2
13ab 00d9       |    |		Load_Top	At_Offset_1
13ac 7015       |p   |		Jump_Nonzero	0x13c2
13ad 00da       |    |		Load_Top	At_Offset_2
13ae 0217       |    |		Execute	Heap_Access,All_Reference
13af 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
13b0 6802       |h   |		Jump_Zero	0x13b3
13b1 8404       |    |		Call	0x2,0x4
13b2 780f       |x   |		Jump	0x13c2
13b3 00da       |    |		Load_Top	At_Offset_2
13b4 0219       |    |		Execute	Heap_Access,All_Read
13b5 00da       |    |		Load_Top	At_Offset_2
13b6 00d9       |    |		Load_Top	At_Offset_1
13b7 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
13b8 e5fe       |    |		Load	0x2,-0x2
13b9 e02b       | +  |		Load	0x0,0x2b
13ba 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
13bb 00da       |    |		Load_Top	At_Offset_2
13bc 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
13bd 005b       | [  |		Store_Top	Discrete,At_Offset_3
13be 00d1       |    |		Pop_Control	Pop_Count_1
13bf 00d9       |    |		Load_Top	At_Offset_1
13c0 7001       |p   |		Jump_Nonzero	0x13c2
13c1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
13c2 e002       |    |		Load	0x0,0x2
13c3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
13c4 4801       |H   |		Short_Literal	0x1
13c5 4802       |H   |		Short_Literal	0x2
13c6 e00e       |    |		Load	0x0,0xe
13c7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13c8 035b       | [  |		Declare_Type	Array,Constrained
13c9 0337       | 7  |		Declare_Variable	Array
13ca e5ff       |    |		Load	0x2,-0x1
13cb 825a       | Z  |		Call	0x1,0x5a
13cc 4801       |H   |		Short_Literal	0x1
13cd 00da       |    |		Load_Top	At_Offset_2
13ce 01d6       |    |		Execute	Vector,Field_Write
13cf e5fc       |    |		Load	0x2,-0x4
13d0 e00c       |    |		Load	0x0,0xc
13d1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
13d2 4802       |H   |		Short_Literal	0x2
13d3 00da       |    |		Load_Top	At_Offset_2
13d4 01d6       |    |		Execute	Vector,Field_Write
13d5 00db       |    |		Load_Top	At_Offset_3
13d6 e002       |    |		Load	0x0,0x2
13d7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
13d8 c5fb       |    |		Store	0x2,-0x5
13d9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
13da 0000 0000  |    |		.BLANK	0000[0x6]
13e0 ; --------------------------------------------------------------------------------------
13e0 ; SUBPROGRAM
13e0 ; --------------------------------------------------------------------------------------
13e0 13ea       |    |		.CONST	0x13ea								; Address of begin
13e1 0004       |    |		.CONST	0x0004								; Address of exception handler
13e2 0004       |    |		.CONST	0x0004								; Number of locals
13e3			INIT_13e0:
13e3 e01b       |    |		Load	0x0,0x1b
13e4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
13e5 e002       |    |		Load	0x0,0x2
13e6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
13e7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
13e8 029f 2abb  |  * |		Declare_Subprogram	INIT_2ab8,For_Call
13ea			BODY_13e0:
13ea 00d9       |    |		Load_Top	At_Offset_1
13eb 4802       |H   |		Short_Literal	0x2
13ec e5ff       |    |		Load	0x2,-0x1
13ed e01b       |    |		Load	0x0,0x1b
13ee 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
13ef 005a       | Z  |		Store_Top	Discrete,At_Offset_2
13f0 00d9       |    |		Load_Top	At_Offset_1
13f1 7020       |p   |		Jump_Nonzero	0x1412
13f2 00d9       |    |		Load_Top	At_Offset_1
13f3 e01b       |    |		Load	0x0,0x1b
13f4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
13f5 4801       |H   |		Short_Literal	0x1
13f6 e5fc       |    |		Load	0x2,-0x4
13f7 e5ff       |    |		Load	0x2,-0x1
13f8 82d5       |    |		Call	0x1,0xd5
13f9 c402       |    |		Store	0x2,0x2
13fa 005a       | Z  |		Store_Top	Discrete,At_Offset_2
13fb 00d9       |    |		Load_Top	At_Offset_1
13fc 7015       |p   |		Jump_Nonzero	0x1412
13fd 00da       |    |		Load_Top	At_Offset_2
13fe 0217       |    |		Execute	Heap_Access,All_Reference
13ff 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1400 6802       |h   |		Jump_Zero	0x1403
1401 8404       |    |		Call	0x2,0x4
1402 780f       |x   |		Jump	0x1412
1403 00da       |    |		Load_Top	At_Offset_2
1404 0219       |    |		Execute	Heap_Access,All_Read
1405 00da       |    |		Load_Top	At_Offset_2
1406 00d9       |    |		Load_Top	At_Offset_1
1407 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1408 e5fe       |    |		Load	0x2,-0x2
1409 e02b       | +  |		Load	0x0,0x2b
140a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
140b 00da       |    |		Load_Top	At_Offset_2
140c 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
140d 005b       | [  |		Store_Top	Discrete,At_Offset_3
140e 00d1       |    |		Pop_Control	Pop_Count_1
140f 00d9       |    |		Load_Top	At_Offset_1
1410 7001       |p   |		Jump_Nonzero	0x1412
1411 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
1412 e002       |    |		Load	0x0,0x2
1413 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1414 4801       |H   |		Short_Literal	0x1
1415 4802       |H   |		Short_Literal	0x2
1416 e00e       |    |		Load	0x0,0xe
1417 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1418 035b       | [  |		Declare_Type	Array,Constrained
1419 0337       | 7  |		Declare_Variable	Array
141a e5ff       |    |		Load	0x2,-0x1
141b 825a       | Z  |		Call	0x1,0x5a
141c 4801       |H   |		Short_Literal	0x1
141d 00da       |    |		Load_Top	At_Offset_2
141e 01d6       |    |		Execute	Vector,Field_Write
141f e5fc       |    |		Load	0x2,-0x4
1420 e00c       |    |		Load	0x0,0xc
1421 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1422 4802       |H   |		Short_Literal	0x2
1423 00da       |    |		Load_Top	At_Offset_2
1424 01d6       |    |		Execute	Vector,Field_Write
1425 00db       |    |		Load_Top	At_Offset_3
1426 e002       |    |		Load	0x0,0x2
1427 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1428 c5fb       |    |		Store	0x2,-0x5
1429 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
142a 0000 0000  |    |		.BLANK	0000[0x6]
1430 ; --------------------------------------------------------------------------------------
1430 ; SUBPROGRAM
1430 ; --------------------------------------------------------------------------------------
1430 1433       | 3  |		.CONST	0x1433								; Address of begin
1431 0004       |    |		.CONST	0x0004								; Address of exception handler
1432 0001       |    |		.CONST	0x0001								; Number of locals
1433			BODY_1430:
1433			INIT_1430:
1433 00da       |    |		Load_Top	At_Offset_2
1434 e2db       |    |		Load	0x1,0xdb
1435 e2dc       |    |		Load	0x1,0xdc
1436 1ddd       |    |		Execute_Immediate	Reference_Lex_1,0xdd
1437 1dde       |    |		Execute_Immediate	Reference_Lex_1,0xde
1438 1ddf       |    |		Execute_Immediate	Reference_Lex_1,0xdf
1439 e00e       |    |		Load	0x0,0xe
143a 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
143b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
143c 0000 0000  |    |		.BLANK	0000[0x4]
1440 ; --------------------------------------------------------------------------------------
1440 ; SUBPROGRAM
1440 ; --------------------------------------------------------------------------------------
1440 1443       | C  |		.CONST	0x1443								; Address of begin
1441 0004       |    |		.CONST	0x0004								; Address of exception handler
1442 0001       |    |		.CONST	0x0001								; Number of locals
1443			BODY_1440:
1443			INIT_1440:
1443 00da       |    |		Load_Top	At_Offset_2
1444 e2e3       |    |		Load	0x1,0xe3
1445 e2e4       |    |		Load	0x1,0xe4
1446 1de5       |    |		Execute_Immediate	Reference_Lex_1,0xe5
1447 e2e6       |    |		Load	0x1,0xe6
1448 1de7       |    |		Execute_Immediate	Reference_Lex_1,0xe7
1449 e00e       |    |		Load	0x0,0xe
144a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
144b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
144c 0000 0000  |    |		.BLANK	0000[0x4]
1450 ; --------------------------------------------------------------------------------------
1450 ; SUBPROGRAM
1450 ; --------------------------------------------------------------------------------------
1450 1453       | S  |		.CONST	0x1453								; Address of begin
1451 145b       | [  |		.CONST	0x145b								; Address of exception handler
1452 0001       |    |		.CONST	0x0001								; Number of locals
1453			BODY_1450:
1453			INIT_1450:
1453 00da       |    |		Load_Top	At_Offset_2
1454 0217       |    |		Execute	Heap_Access,All_Reference
1455 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
1456 e001       |    |		Load	0x0,0x1
1457 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
1458 0216       |    |		Execute	Heap_Access,Convert
1459 8244       | D  |		Call	0x1,0x44
145a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
145b			TRAP_1450:
145b 0007       |    |		Action	Break_Optional
145c 00db       |    |		Load_Top	At_Offset_3
145d e01b       |    |		Load	0x0,0x1b
145e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
145f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1460 ; --------------------------------------------------------------------------------------
1460 ; SUBPROGRAM
1460 ; --------------------------------------------------------------------------------------
1460 1466       | f  |		.CONST	0x1466								; Address of begin
1461 0004       |    |		.CONST	0x0004								; Address of exception handler
1462 0002       |    |		.CONST	0x0002								; Number of locals
1463			INIT_1460:
1463 00db       |    |		Load_Top	At_Offset_3
1464 00db       |    |		Load_Top	At_Offset_3
1465 8276       | v  |		Call	0x1,0x76
1466			BODY_1460:
1466 e001       |    |		Load	0x0,0x1
1467 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
1468 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1469 a5fd       |    |		Store_Unchecked	0x2,-0x3
146a 4800       |H   |		Short_Literal	0x0
146b 00d9       |    |		Load_Top	At_Offset_1
146c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
146d e002       |    |		Load	0x0,0x2
146e 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
146f 682a       |h*  |		Jump_Zero	0x149a
1470 00d8       |    |		Load_Top	At_Offset_0
1471 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1472 0b00       |    |		Execute_Immediate	Case_Compare,0x0
1473 701f       |p   |		Jump_Nonzero	0x1493
1474 0f01       |    |		Execute_Immediate	Equal,0x1
1475 701f       |p   |		Jump_Nonzero	0x1495
1476 4801       |H   |		Short_Literal	0x1
1477 00d9       |    |		Load_Top	At_Offset_1
1478 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1479 01d7       |    |		Execute	Vector,Field_Read
147a a5fd       |    |		Store_Unchecked	0x2,-0x3
147b e002       |    |		Load	0x0,0x2
147c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
147d 4801       |H   |		Short_Literal	0x1
147e 4802       |H   |		Short_Literal	0x2
147f e00e       |    |		Load	0x0,0xe
1480 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1481 035b       | [  |		Declare_Type	Array,Constrained
1482 0337       | 7  |		Declare_Variable	Array
1483 e5ff       |    |		Load	0x2,-0x1
1484 e00e       |    |		Load	0x0,0xe
1485 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1486 4801       |H   |		Short_Literal	0x1
1487 00da       |    |		Load_Top	At_Offset_2
1488 01d6       |    |		Execute	Vector,Field_Write
1489 e5fe       |    |		Load	0x2,-0x2
148a 825a       | Z  |		Call	0x1,0x5a
148b 4802       |H   |		Short_Literal	0x2
148c 00da       |    |		Load_Top	At_Offset_2
148d 01d6       |    |		Execute	Vector,Field_Write
148e 6011       |`   |		Indirect_Literal	Discrete,0x14a0,{0x00000000, 0x00002802}
148f e002       |    |		Load	0x0,0x2
1490 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1491 c5fc       |    |		Store	0x2,-0x4
1492 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1493 00d1       |    |		Pop_Control	Pop_Count_1
1494 7805       |x   |		Jump	0x149a
1495 4801       |H   |		Short_Literal	0x1
1496 00d9       |    |		Load_Top	At_Offset_1
1497 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1498 01d7       |    |		Execute	Vector,Field_Read
1499 a5fd       |    |		Store_Unchecked	0x2,-0x3
149a 00d8       |    |		Load_Top	At_Offset_0
149b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
149c a5fc       |    |		Store_Unchecked	0x2,-0x4
149d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
149e 0000 0000  |    |		.XXX[0x2]
14a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002802}
14a4 0000 0000  |    |		.BLANK	0000[0x4]
14a8 ; --------------------------------------------------------------------------------------
14a8 ; SUBPROGRAM
14a8 ; --------------------------------------------------------------------------------------
14a8 14b4       |    |		.CONST	0x14b4								; Address of begin
14a9 0004       |    |		.CONST	0x0004								; Address of exception handler
14aa 0004       |    |		.CONST	0x0004								; Number of locals
14ab			INIT_14a8:
14ab 00da       |    |		Load_Top	At_Offset_2
14ac 82b7       |    |		Call	0x1,0xb7
14ad 00d8       |    |		Load_Top	At_Offset_0
14ae 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
14af e002       |    |		Load	0x0,0x2
14b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
14b1 03f1       |    |		Declare_Variable	Discrete,With_Value
14b2 029f 2ae3  |  * |		Declare_Subprogram	INIT_2ae0,For_Call
14b4			BODY_14a8:
14b4 4800       |H   |		Short_Literal	0x0
14b5 00da       |    |		Load_Top	At_Offset_2
14b6 e002       |    |		Load	0x0,0x2
14b7 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
14b8 680c       |h   |		Jump_Zero	0x14c5
14b9 00da       |    |		Load_Top	At_Offset_2
14ba 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
14bb 7008       |p   |		Jump_Nonzero	0x14c4
14bc 6033       |`3  |		Indirect_Literal	Discrete,0x14f0,{0x00000000, 0x0000282d}
14bd 602e       |`.  |		Indirect_Literal	Discrete,0x14ec,{0x00000000, 0x0000282c}
14be 6029       |`)  |		Indirect_Literal	Discrete,0x14e8,{0x00000000, 0x0000282b}
14bf e5fe       |    |		Load	0x2,-0x2
14c0 e402       |    |		Load	0x2,0x2
14c1 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
14c2 802c       | ,  |		Call	0x0,0x2c
14c3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
14c4 8404       |    |		Call	0x2,0x4
14c5 4800       |H   |		Short_Literal	0x0
14c6 e001       |    |		Load	0x0,0x1
14c7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
14c8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
14c9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
14ca 00da       |    |		Load_Top	At_Offset_2
14cb 00d9       |    |		Load_Top	At_Offset_1
14cc 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
14cd 4801       |H   |		Short_Literal	0x1
14ce 4800       |H   |		Short_Literal	0x0
14cf e001       |    |		Load	0x0,0x1
14d0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
14d1 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
14d2 035b       | [  |		Declare_Type	Array,Constrained
14d3 0337       | 7  |		Declare_Variable	Array
14d4 00d9       |    |		Load_Top	At_Offset_1
14d5 00d8       |    |		Load_Top	At_Offset_0
14d6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
14d7 00da       |    |		Load_Top	At_Offset_2
14d8 01da       |    |		Execute	Vector,Bounds
14d9 00da       |    |		Load_Top	At_Offset_2
14da 01da       |    |		Execute	Vector,Bounds
14db 00da       |    |		Load_Top	At_Offset_2
14dc 027f       |    |		Execute	Discrete,Equal
14dd 7001       |p   |		Jump_Nonzero	0x14df
14de 08e0       |    |		Execute_Immediate	Raise,0xe0
14df 00cd       |    |		Action	Spare6_Action
14e0 027f       |    |		Execute	Discrete,Equal
14e1 7001       |p   |		Jump_Nonzero	0x14e3
14e2 08e0       |    |		Execute_Immediate	Raise,0xe0
14e3 00d2       |    |		Pop_Control	Pop_Count_2
14e4 00d9       |    |		Load_Top	At_Offset_1
14e5 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
14e6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
14e7 0000       |    |		.XXX[0x1]
14e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282b}
14ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282c}
14f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282d}
14f4 0000 0000  |    |		.BLANK	0000[0x4]
14f8 ; --------------------------------------------------------------------------------------
14f8 ; SUBPROGRAM
14f8 ; --------------------------------------------------------------------------------------
14f8 14fb       |    |		.CONST	0x14fb								; Address of begin
14f9 0004       |    |		.CONST	0x0004								; Address of exception handler
14fa 0001       |    |		.CONST	0x0001								; Number of locals
14fb			BODY_14f8:
14fb			INIT_14f8:
14fb 00da       |    |		Load_Top	At_Offset_2
14fc e02d       | -  |		Load	0x0,0x2d
14fd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
14fe e01b       |    |		Load	0x0,0x1b
14ff 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
1500 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1501 0000 0000  |    |		.BLANK	0000[0x7]
1508 ; --------------------------------------------------------------------------------------
1508 ; SUBPROGRAM
1508 ; --------------------------------------------------------------------------------------
1508 150b       |    |		.CONST	0x150b								; Address of begin
1509 0004       |    |		.CONST	0x0004								; Address of exception handler
150a 0001       |    |		.CONST	0x0001								; Number of locals
150b			BODY_1508:
150b			INIT_1508:
150b 00da       |    |		Load_Top	At_Offset_2
150c e02e       | .  |		Load	0x0,0x2e
150d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
150e e01b       |    |		Load	0x0,0x1b
150f 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
1510 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
151c e00f       |    |		Load	0x0,0xf
151d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
151e e01b       |    |		Load	0x0,0x1b
151f 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
1520 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1521 0000 0000  |    |		.BLANK	0000[0x7]
1528 ; --------------------------------------------------------------------------------------
1528 ; SUBPROGRAM
1528 ; --------------------------------------------------------------------------------------
1528 152f       | /  |		.CONST	0x152f								; Address of begin
1529 0004       |    |		.CONST	0x0004								; Address of exception handler
152a 0004       |    |		.CONST	0x0004								; Number of locals
152b			INIT_1528:
152b e01b       |    |		Load	0x0,0x1b
152c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
152d 039d       |    |		Declare_Variable	Heap_Access,Duplicate
152e 039d       |    |		Declare_Variable	Heap_Access,Duplicate
152f			BODY_1528:
152f e5ff       |    |		Load	0x2,-0x1
1530 0217       |    |		Execute	Heap_Access,All_Reference
1531 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1532 7005       |p   |		Jump_Nonzero	0x1538
1533 e5fe       |    |		Load	0x2,-0x2
1534 0217       |    |		Execute	Heap_Access,All_Reference
1535 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
1536 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
1537 7811       |x   |		Jump	0x1549
1538 e5ff       |    |		Load	0x2,-0x1
1539 0217       |    |		Execute	Heap_Access,All_Reference
153a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
153b 6807       |h   |		Jump_Zero	0x1543
153c e5ff       |    |		Load	0x2,-0x1
153d 0217       |    |		Execute	Heap_Access,All_Reference
153e 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
153f 0217       |    |		Execute	Heap_Access,All_Reference
1540 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
1541 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
1542 7806       |x   |		Jump	0x1549
1543 e5ff       |    |		Load	0x2,-0x1
1544 0217       |    |		Execute	Heap_Access,All_Reference
1545 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1546 0217       |    |		Execute	Heap_Access,All_Reference
1547 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
1548 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
1549 00cf       |    |		Action	Mark_Auxiliary
154a 7852       |xR  |		Jump	0x159d
154b 00da       |    |		Load_Top	At_Offset_2
154c 0217       |    |		Execute	Heap_Access,All_Reference
154d 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
154e 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
154f 00da       |    |		Load_Top	At_Offset_2
1550 e001       |    |		Load	0x0,0x1
1551 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1552 0216       |    |		Execute	Heap_Access,Convert
1553 e5ff       |    |		Load	0x2,-0x1
1554 021f       |    |		Execute	Heap_Access,Equal
1555 6842       |hB  |		Jump_Zero	0x1598
1556 00db       |    |		Load_Top	At_Offset_3
1557 7023       |p#  |		Jump_Nonzero	0x157b
1558 e5ff       |    |		Load	0x2,-0x1
1559 0217       |    |		Execute	Heap_Access,All_Reference
155a 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
155b 7005       |p   |		Jump_Nonzero	0x1561
155c 00d9       |    |		Load_Top	At_Offset_1
155d e5fe       |    |		Load	0x2,-0x2
155e 0217       |    |		Execute	Heap_Access,All_Reference
155f 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
1560 781e       |x   |		Jump	0x157f
1561 e5ff       |    |		Load	0x2,-0x1
1562 0217       |    |		Execute	Heap_Access,All_Reference
1563 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1564 680f       |h   |		Jump_Zero	0x1574
1565 00d9       |    |		Load_Top	At_Offset_1
1566 e5ff       |    |		Load	0x2,-0x1
1567 0217       |    |		Execute	Heap_Access,All_Reference
1568 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1569 0217       |    |		Execute	Heap_Access,All_Reference
156a 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
156b 00d9       |    |		Load_Top	At_Offset_1
156c 7012       |p   |		Jump_Nonzero	0x157f
156d 4800       |H   |		Short_Literal	0x0
156e e5ff       |    |		Load	0x2,-0x1
156f 0217       |    |		Execute	Heap_Access,All_Reference
1570 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1571 0217       |    |		Execute	Heap_Access,All_Reference
1572 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1573 780b       |x   |		Jump	0x157f
1574 00d9       |    |		Load_Top	At_Offset_1
1575 e5ff       |    |		Load	0x2,-0x1
1576 0217       |    |		Execute	Heap_Access,All_Reference
1577 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1578 0217       |    |		Execute	Heap_Access,All_Reference
1579 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
157a 7804       |x   |		Jump	0x157f
157b 00d9       |    |		Load_Top	At_Offset_1
157c e402       |    |		Load	0x2,0x2
157d 0217       |    |		Execute	Heap_Access,All_Reference
157e 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
157f e01b       |    |		Load	0x0,0x1b
1580 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
1581 e5ff       |    |		Load	0x2,-0x1
1582 0217       |    |		Execute	Heap_Access,All_Reference
1583 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
1584 4800       |H   |		Short_Literal	0x0
1585 e5ff       |    |		Load	0x2,-0x1
1586 0217       |    |		Execute	Heap_Access,All_Reference
1587 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1588 e5ff       |    |		Load	0x2,-0x1
1589 0217       |    |		Execute	Heap_Access,All_Reference
158a 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
158b 680b       |h   |		Jump_Zero	0x1597
158c 4800       |H   |		Short_Literal	0x0
158d e5ff       |    |		Load	0x2,-0x1
158e 0217       |    |		Execute	Heap_Access,All_Reference
158f 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
1590 e5fe       |    |		Load	0x2,-0x2
1591 0217       |    |		Execute	Heap_Access,All_Reference
1592 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1593 0aff       |    |		Execute_Immediate	Plus,-0x1
1594 e5fe       |    |		Load	0x2,-0x2
1595 0217       |    |		Execute	Heap_Access,All_Reference
1596 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1597 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1598 00da       |    |		Load_Top	At_Offset_2
1599 a402       |    |		Store_Unchecked	0x2,0x2
159a 00d9       |    |		Load_Top	At_Offset_1
159b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
159c 00c9       |    |		Action	Pop_Auxiliary_Loop
159d 00da       |    |		Load_Top	At_Offset_2
159e 77ac       |w   |		Jump_Nonzero	0x154b
159f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15a0 ; --------------------------------------------------------------------------------------
15a0 ; SUBPROGRAM
15a0 ; --------------------------------------------------------------------------------------
15a0 15a3       |    |		.CONST	0x15a3								; Address of begin
15a1 0004       |    |		.CONST	0x0004								; Address of exception handler
15a2 0001       |    |		.CONST	0x0001								; Number of locals
15a3			BODY_15a0:
15a3			INIT_15a0:
15a3 00da       |    |		Load_Top	At_Offset_2
15a4 0217       |    |		Execute	Heap_Access,All_Reference
15a5 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
15a6 700e       |p   |		Jump_Nonzero	0x15b5
15a7 00db       |    |		Load_Top	At_Offset_3
15a8 0217       |    |		Execute	Heap_Access,All_Reference
15a9 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
15aa 00db       |    |		Load_Top	At_Offset_3
15ab 0217       |    |		Execute	Heap_Access,All_Reference
15ac 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
15ad 00da       |    |		Load_Top	At_Offset_2
15ae e01b       |    |		Load	0x0,0x1b
15af 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
15b0 0216       |    |		Execute	Heap_Access,Convert
15b1 e5fe       |    |		Load	0x2,-0x2
15b2 0217       |    |		Execute	Heap_Access,All_Reference
15b3 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
15b4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15b5 00da       |    |		Load_Top	At_Offset_2
15b6 0217       |    |		Execute	Heap_Access,All_Reference
15b7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
15b8 6818       |h   |		Jump_Zero	0x15d1
15b9 00da       |    |		Load_Top	At_Offset_2
15ba 0217       |    |		Execute	Heap_Access,All_Reference
15bb 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
15bc 0217       |    |		Execute	Heap_Access,All_Reference
15bd 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
15be 00db       |    |		Load_Top	At_Offset_3
15bf 0217       |    |		Execute	Heap_Access,All_Reference
15c0 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
15c1 00da       |    |		Load_Top	At_Offset_2
15c2 e01b       |    |		Load	0x0,0x1b
15c3 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
15c4 0216       |    |		Execute	Heap_Access,Convert
15c5 00db       |    |		Load_Top	At_Offset_3
15c6 0217       |    |		Execute	Heap_Access,All_Reference
15c7 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
15c8 0217       |    |		Execute	Heap_Access,All_Reference
15c9 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
15ca 4801       |H   |		Short_Literal	0x1
15cb 00db       |    |		Load_Top	At_Offset_3
15cc 0217       |    |		Execute	Heap_Access,All_Reference
15cd 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
15ce 0217       |    |		Execute	Heap_Access,All_Reference
15cf 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
15d0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15d1 00da       |    |		Load_Top	At_Offset_2
15d2 0217       |    |		Execute	Heap_Access,All_Reference
15d3 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
15d4 0217       |    |		Execute	Heap_Access,All_Reference
15d5 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
15d6 00db       |    |		Load_Top	At_Offset_3
15d7 0217       |    |		Execute	Heap_Access,All_Reference
15d8 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
15d9 00da       |    |		Load_Top	At_Offset_2
15da e01b       |    |		Load	0x0,0x1b
15db 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
15dc 0216       |    |		Execute	Heap_Access,Convert
15dd 00db       |    |		Load_Top	At_Offset_3
15de 0217       |    |		Execute	Heap_Access,All_Reference
15df 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
15e0 0217       |    |		Execute	Heap_Access,All_Reference
15e1 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
15e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15e3 0000 0000  |    |		.BLANK	0000[0x5]
15e8 ; --------------------------------------------------------------------------------------
15e8 ; SUBPROGRAM
15e8 ; --------------------------------------------------------------------------------------
15e8 15eb       |    |		.CONST	0x15eb								; Address of begin
15e9 0004       |    |		.CONST	0x0004								; Address of exception handler
15ea 0001       |    |		.CONST	0x0001								; Number of locals
15eb			BODY_15e8:
15eb			INIT_15e8:
15eb 4607       |F   |		Jump_Case	0x8
15ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
15ed 7806       |x   |		Jump	0x15f4								; case 0x1
15ee 7809       |x   |		Jump	0x15f8								; case 0x2
15ef 780d       |x   |		Jump	0x15fd								; case 0x3
15f0 7810       |x   |		Jump	0x1601								; case 0x4
15f1 7811       |x   |		Jump	0x1603								; case 0x5
15f2 7812       |x   |		Jump	0x1605								; case 0x6
15f3 7815       |x   |		Jump	0x1609								; case 0x7
15f4 00da       |    |		Load_Top	At_Offset_2
15f5 0091 2bd2  |  + |		Action	Push_String_Extended_Indexed,0x2bd2				; "TARGET_MACHINE_FIELD"
15f7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15f8 00db       |    |		Load_Top	At_Offset_3
15f9 00db       |    |		Load_Top	At_Offset_3
15fa 00e0       |    |		Load_Encached	Standard_Cache
15fb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
15fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15fd 00da       |    |		Load_Top	At_Offset_2
15fe 00e0       |    |		Load_Encached	Standard_Cache
15ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1600 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1601 00db       |    |		Load_Top	At_Offset_3
1602 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1603 00db       |    |		Load_Top	At_Offset_3
1604 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1605 e297       |    |		Load	0x1,0x97
1606 00dc       |    |		Load_Top	At_Offset_4
1607 0267       | g  |		Execute	Discrete,Predecessor
1608 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1609 e297       |    |		Load	0x1,0x97
160a 00dc       |    |		Load_Top	At_Offset_4
160b 0268       | h  |		Execute	Discrete,Successor
160c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
160d 0000 0000  |    |		.XXX[0x3]
160f 0000       |    |
1610 ; --------------------------------------------------------------------------------------
1610 ; SUBPROGRAM
1610 ; --------------------------------------------------------------------------------------
1610 1613       |    |		.CONST	0x1613								; Address of begin
1611 0004       |    |		.CONST	0x0004								; Address of exception handler
1612 0001       |    |		.CONST	0x0001								; Number of locals
1613			BODY_1610:
1613			INIT_1610:
1613 4607       |F   |		Jump_Case	0x8
1614 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1615 7806       |x   |		Jump	0x161c								; case 0x1
1616 7809       |x   |		Jump	0x1620								; case 0x2
1617 780d       |x   |		Jump	0x1625								; case 0x3
1618 7810       |x   |		Jump	0x1629								; case 0x4
1619 7811       |x   |		Jump	0x162b								; case 0x5
161a 7812       |x   |		Jump	0x162d								; case 0x6
161b 7815       |x   |		Jump	0x1631								; case 0x7
161c 00da       |    |		Load_Top	At_Offset_2
161d 0091 2bd9  |  + |		Action	Push_String_Extended_Indexed,0x2bd9				; "C"
161f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1620 00db       |    |		Load_Top	At_Offset_3
1621 00db       |    |		Load_Top	At_Offset_3
1622 00e0       |    |		Load_Encached	Standard_Cache
1623 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1624 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1625 00da       |    |		Load_Top	At_Offset_2
1626 00e0       |    |		Load_Encached	Standard_Cache
1627 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1628 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1629 00db       |    |		Load_Top	At_Offset_3
162a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
162b 00db       |    |		Load_Top	At_Offset_3
162c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
162d e29b       |    |		Load	0x1,0x9b
162e 00dc       |    |		Load_Top	At_Offset_4
162f 0267       | g  |		Execute	Discrete,Predecessor
1630 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1631 e29b       |    |		Load	0x1,0x9b
1632 00dc       |    |		Load_Top	At_Offset_4
1633 0268       | h  |		Execute	Discrete,Successor
1634 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1635 0000 0000  |    |		.XXX[0x3]
1637 0000       |    |
1638 ; --------------------------------------------------------------------------------------
1638 ; SUBPROGRAM
1638 ; --------------------------------------------------------------------------------------
1638 163b       | ;  |		.CONST	0x163b								; Address of begin
1639 0004       |    |		.CONST	0x0004								; Address of exception handler
163a 0001       |    |		.CONST	0x0001								; Number of locals
163b			BODY_1638:
163b			INIT_1638:
163b 4607       |F   |		Jump_Case	0x8
163c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
163d 7806       |x   |		Jump	0x1644								; case 0x1
163e 7809       |x   |		Jump	0x1648								; case 0x2
163f 780d       |x   |		Jump	0x164d								; case 0x3
1640 7810       |x   |		Jump	0x1651								; case 0x4
1641 7811       |x   |		Jump	0x1653								; case 0x5
1642 7812       |x   |		Jump	0x1655								; case 0x6
1643 7815       |x   |		Jump	0x1659								; case 0x7
1644 00da       |    |		Load_Top	At_Offset_2
1645 0091 2bec  |  + |		Action	Push_String_Extended_Indexed,0x2bec				; "BASIC_FRESH"
1647 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1648 00db       |    |		Load_Top	At_Offset_3
1649 00db       |    |		Load_Top	At_Offset_3
164a 00e0       |    |		Load_Encached	Standard_Cache
164b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
164c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
164d 00da       |    |		Load_Top	At_Offset_2
164e 00e0       |    |		Load_Encached	Standard_Cache
164f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1650 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1651 00db       |    |		Load_Top	At_Offset_3
1652 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1653 00db       |    |		Load_Top	At_Offset_3
1654 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1655 e2a0       |    |		Load	0x1,0xa0
1656 00dc       |    |		Load_Top	At_Offset_4
1657 0267       | g  |		Execute	Discrete,Predecessor
1658 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1659 e2a0       |    |		Load	0x1,0xa0
165a 00dc       |    |		Load_Top	At_Offset_4
165b 0268       | h  |		Execute	Discrete,Successor
165c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
165d 0000 0000  |    |		.XXX[0x3]
165f 0000       |    |
1660 ; --------------------------------------------------------------------------------------
1660 ; SUBPROGRAM
1660 ; --------------------------------------------------------------------------------------
1660 1663       | c  |		.CONST	0x1663								; Address of begin
1661 0004       |    |		.CONST	0x0004								; Address of exception handler
1662 0001       |    |		.CONST	0x0001								; Number of locals
1663			BODY_1660:
1663			INIT_1660:
1663 4607       |F   |		Jump_Case	0x8
1664 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1665 7806       |x   |		Jump	0x166c								; case 0x1
1666 7809       |x   |		Jump	0x1670								; case 0x2
1667 780d       |x   |		Jump	0x1675								; case 0x3
1668 7810       |x   |		Jump	0x1679								; case 0x4
1669 7811       |x   |		Jump	0x167b								; case 0x5
166a 7812       |x   |		Jump	0x167d								; case 0x6
166b 7815       |x   |		Jump	0x1681								; case 0x7
166c 00da       |    |		Load_Top	At_Offset_2
166d 0091 2bf1  |  + |		Action	Push_String_Extended_Indexed,0x2bf1				; "SEPARATE_GENERIC_BODIES"
166f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1670 00db       |    |		Load_Top	At_Offset_3
1671 00db       |    |		Load_Top	At_Offset_3
1672 00e0       |    |		Load_Encached	Standard_Cache
1673 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1674 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1675 00da       |    |		Load_Top	At_Offset_2
1676 00e0       |    |		Load_Encached	Standard_Cache
1677 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1678 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1679 00db       |    |		Load_Top	At_Offset_3
167a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
167b 00db       |    |		Load_Top	At_Offset_3
167c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
167d e2a1       |    |		Load	0x1,0xa1
167e 00dc       |    |		Load_Top	At_Offset_4
167f 0267       | g  |		Execute	Discrete,Predecessor
1680 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1681 e2a1       |    |		Load	0x1,0xa1
1682 00dc       |    |		Load_Top	At_Offset_4
1683 0268       | h  |		Execute	Discrete,Successor
1684 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1685 0000 0000  |    |		.XXX[0x3]
1687 0000       |    |
1688 ; --------------------------------------------------------------------------------------
1688 ; SUBPROGRAM
1688 ; --------------------------------------------------------------------------------------
1688 168b       |    |		.CONST	0x168b								; Address of begin
1689 0004       |    |		.CONST	0x0004								; Address of exception handler
168a 0001       |    |		.CONST	0x0001								; Number of locals
168b			BODY_1688:
168b			INIT_1688:
168b 4607       |F   |		Jump_Case	0x8
168c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
168d 7806       |x   |		Jump	0x1694								; case 0x1
168e 7809       |x   |		Jump	0x1698								; case 0x2
168f 780d       |x   |		Jump	0x169d								; case 0x3
1690 7810       |x   |		Jump	0x16a1								; case 0x4
1691 7811       |x   |		Jump	0x16a3								; case 0x5
1692 7812       |x   |		Jump	0x16a5								; case 0x6
1693 7815       |x   |		Jump	0x16a9								; case 0x7
1694 00da       |    |		Load_Top	At_Offset_2
1695 0091 2bf5  |  + |		Action	Push_String_Extended_Indexed,0x2bf5				; "NIL"
1697 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1698 00db       |    |		Load_Top	At_Offset_3
1699 00db       |    |		Load_Top	At_Offset_3
169a 00e0       |    |		Load_Encached	Standard_Cache
169b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
169c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
169d 00da       |    |		Load_Top	At_Offset_2
169e 00e0       |    |		Load_Encached	Standard_Cache
169f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
16a0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
16a1 00db       |    |		Load_Top	At_Offset_3
16a2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16a3 00db       |    |		Load_Top	At_Offset_3
16a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16a5 e2a5       |    |		Load	0x1,0xa5
16a6 00dc       |    |		Load_Top	At_Offset_4
16a7 0267       | g  |		Execute	Discrete,Predecessor
16a8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16a9 e2a5       |    |		Load	0x1,0xa5
16aa 00dc       |    |		Load_Top	At_Offset_4
16ab 0268       | h  |		Execute	Discrete,Successor
16ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16ad 0000 0000  |    |		.XXX[0x3]
16af 0000       |    |
16b0 ; --------------------------------------------------------------------------------------
16b0 ; SUBPROGRAM
16b0 ; SUBPROGRAM
16b0 ; --------------------------------------------------------------------------------------
16b0 16b3       |    |		.CONST	0x16b3								; Address of begin
16b1 0004       |    |		.CONST	0x0004								; Address of exception handler
16b2 0001       |    |		.CONST	0x0001								; Number of locals
16b3			BODY_16b0:
16b3			BODY_16b0:
16b3			INIT_16b0:
16b3			INIT_16b0:
16b3 4608       |F   |		Jump_Case	0x9
16b4 7808       |x   |		Jump	0x16bd								; case 0x0
16b5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
16b6 78cd       |x   |		Jump	0x1784								; case 0x2
16b7 78cc       |x   |		Jump	0x1784								; case 0x3
16b8 78cb       |x   |		Jump	0x1784								; case 0x4
16b9 78ca       |x   |		Jump	0x1784								; case 0x5
16ba 782c       |x,  |		Jump	0x16e7								; case 0x6
16bb 785b       |x[  |		Jump	0x1717								; case 0x7
16bc 789f       |x   |		Jump	0x175c								; case 0x8
16bd 00da       |    |		Load_Top	At_Offset_2
16be 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
16bf 4615       |F   |		Jump_Case	0x16
16c0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
16c1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
16c2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
16c3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
16c4 7811       |x   |		Jump	0x16d6								; case 0x4
16c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
16c6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
16c7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
16c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
16c9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x9
16ca 7811       |x   |		Jump	0x16dc								; case 0xa
16cb 7810       |x   |		Jump	0x16dc								; case 0xb
16cc 780f       |x   |		Jump	0x16dc								; case 0xc
16cd 780e       |x   |		Jump	0x16dc								; case 0xd
16ce 780d       |x   |		Jump	0x16dc								; case 0xe
16cf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xf
16d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x10
16d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x11
16d2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x12
16d3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x13
16d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x14
16d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x15
16d6 00da       |    |		Load_Top	At_Offset_2
16d7 2206       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x6
16d8 00da       |    |		Load_Top	At_Offset_2
16d9 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
16da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
16db 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
16dc 00da       |    |		Load_Top	At_Offset_2
16dd 220c       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0xc
16de 00da       |    |		Load_Top	At_Offset_2
16df 260c       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
16e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
16e1 00da       |    |		Load_Top	At_Offset_2
16e2 220d       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0xd
16e3 00da       |    |		Load_Top	At_Offset_2
16e4 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
16e5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
16e6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
16e7 e5fd       |    |		Load	0x2,-0x3
16e8 4615       |F   |		Jump_Case	0x16
16e9 782b       |x+  |		Jump	0x1715								; case 0x0
16ea 7816       |x   |		Jump	0x1701								; case 0x1
16eb 7815       |x   |		Jump	0x1701								; case 0x2
16ec 7814       |x   |		Jump	0x1701								; case 0x3
16ed 7815       |x   |		Jump	0x1703								; case 0x4
16ee 7816       |x   |		Jump	0x1705								; case 0x5
16ef 7817       |x   |		Jump	0x1707								; case 0x6
16f0 7818       |x   |		Jump	0x1709								; case 0x7
16f1 7819       |x   |		Jump	0x170b								; case 0x8
16f2 781a       |x   |		Jump	0x170d								; case 0x9
16f3 781b       |x   |		Jump	0x170f								; case 0xa
16f4 781a       |x   |		Jump	0x170f								; case 0xb
16f5 7819       |x   |		Jump	0x170f								; case 0xc
16f6 7818       |x   |		Jump	0x170f								; case 0xd
16f7 7817       |x   |		Jump	0x170f								; case 0xe
16f8 7818       |x   |		Jump	0x1711								; case 0xf
16f9 7817       |x   |		Jump	0x1711								; case 0x10
16fa 7816       |x   |		Jump	0x1711								; case 0x11
16fb 7815       |x   |		Jump	0x1711								; case 0x12
16fc 7816       |x   |		Jump	0x1713								; case 0x13
16fd 7815       |x   |		Jump	0x1713								; case 0x14
16fe 7800       |x   |		Jump	0x16ff								; case 0x15
16ff 480b       |H   |		Short_Literal	0xb
1700 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1701 4801       |H   |		Short_Literal	0x1
1702 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1703 4802       |H   |		Short_Literal	0x2
1704 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1705 4803       |H   |		Short_Literal	0x3
1706 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1707 4804       |H   |		Short_Literal	0x4
1708 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1709 4805       |H   |		Short_Literal	0x5
170a 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
170b 4806       |H   |		Short_Literal	0x6
170c 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
170d 4807       |H   |		Short_Literal	0x7
170e 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
170f 4808       |H   |		Short_Literal	0x8
1710 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1711 4809       |H   |		Short_Literal	0x9
1712 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1713 480a       |H   |		Short_Literal	0xa
1714 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1715 48ff       |H   |		Short_Literal	0xff
1716 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1717 e5fd       |    |		Load	0x2,-0x3
1718 e5fe       |    |		Load	0x2,-0x2
1719 4800       |H   |		Short_Literal	0x0
171a e5fe       |    |		Load	0x2,-0x2
171b e00c       |    |		Load	0x0,0xc
171c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
171d 035b       | [  |		Declare_Type	Array,Constrained
171e e5fd       |    |		Load	0x2,-0x3
171f 4615       |F   |		Jump_Case	0x16
1720 7818       |x   |		Jump	0x1739								; case 0x0
1721 781a       |x   |		Jump	0x173c								; case 0x1
1722 7819       |x   |		Jump	0x173c								; case 0x2
1723 7818       |x   |		Jump	0x173c								; case 0x3
1724 781a       |x   |		Jump	0x173f								; case 0x4
1725 781c       |x   |		Jump	0x1742								; case 0x5
1726 781e       |x   |		Jump	0x1745								; case 0x6
1727 7820       |x   |		Jump	0x1748								; case 0x7
1728 7822       |x"  |		Jump	0x174b								; case 0x8
1729 7824       |x$  |		Jump	0x174e								; case 0x9
172a 7826       |x&  |		Jump	0x1751								; case 0xa
172b 7825       |x%  |		Jump	0x1751								; case 0xb
172c 7824       |x$  |		Jump	0x1751								; case 0xc
172d 7823       |x#  |		Jump	0x1751								; case 0xd
172e 7822       |x"  |		Jump	0x1751								; case 0xe
172f 7824       |x$  |		Jump	0x1754								; case 0xf
1730 7823       |x#  |		Jump	0x1754								; case 0x10
1731 7822       |x"  |		Jump	0x1754								; case 0x11
1732 7821       |x!  |		Jump	0x1754								; case 0x12
1733 7823       |x#  |		Jump	0x1757								; case 0x13
1734 7822       |x"  |		Jump	0x1757								; case 0x14
1735 7800       |x   |		Jump	0x1736								; case 0x15
1736 4801       |H   |		Short_Literal	0x1
1737 480b       |H   |		Short_Literal	0xb
1738 7820       |x   |		Jump	0x1759
1739 4801       |H   |		Short_Literal	0x1
173a 48ff       |H   |		Short_Literal	0xff
173b 781d       |x   |		Jump	0x1759
173c 4801       |H   |		Short_Literal	0x1
173d 4801       |H   |		Short_Literal	0x1
173e 781a       |x   |		Jump	0x1759
173f 4801       |H   |		Short_Literal	0x1
1740 4802       |H   |		Short_Literal	0x2
1741 7817       |x   |		Jump	0x1759
1742 4801       |H   |		Short_Literal	0x1
1743 4803       |H   |		Short_Literal	0x3
1744 7814       |x   |		Jump	0x1759
1745 4801       |H   |		Short_Literal	0x1
1746 4804       |H   |		Short_Literal	0x4
1747 7811       |x   |		Jump	0x1759
1748 4801       |H   |		Short_Literal	0x1
1749 4805       |H   |		Short_Literal	0x5
174a 780e       |x   |		Jump	0x1759
174b 4801       |H   |		Short_Literal	0x1
174c 4806       |H   |		Short_Literal	0x6
174d 780b       |x   |		Jump	0x1759
174e 4801       |H   |		Short_Literal	0x1
174f 4807       |H   |		Short_Literal	0x7
1750 7808       |x   |		Jump	0x1759
1751 4801       |H   |		Short_Literal	0x1
1752 4808       |H   |		Short_Literal	0x8
1753 7805       |x   |		Jump	0x1759
1754 4801       |H   |		Short_Literal	0x1
1755 4809       |H   |		Short_Literal	0x9
1756 7802       |x   |		Jump	0x1759
1757 4801       |H   |		Short_Literal	0x1
1758 480a       |H   |		Short_Literal	0xa
1759 e5ff       |    |		Load	0x2,-0x1
175a 031b       |    |		Declare_Type	Variant_Record,Constrained
175b 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
175c e5fd       |    |		Load	0x2,-0x3
175d e5fe       |    |		Load	0x2,-0x2
175e e5fd       |    |		Load	0x2,-0x3
175f e5fe       |    |		Load	0x2,-0x2
1760 e5ff       |    |		Load	0x2,-0x1
1761 1c06       |    |		Execute_Immediate	Run_Utility,0x6
1762 e5ff       |    |		Load	0x2,-0x1
1763 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
1764 4800       |H   |		Short_Literal	0x0
1765 e5fe       |    |		Load	0x2,-0x2
1766 e00c       |    |		Load	0x0,0xc
1767 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1768 0334       | 4  |		Declare_Variable	Array,With_Constraint
1769 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
176a e5fd       |    |		Load	0x2,-0x3
176b 4615       |F   |		Jump_Case	0x16
176c 7815       |x   |		Jump	0x1782								; case 0x0
176d 7814       |x   |		Jump	0x1782								; case 0x1
176e 7813       |x   |		Jump	0x1782								; case 0x2
176f 7812       |x   |		Jump	0x1782								; case 0x3
1770 7811       |x   |		Jump	0x1782								; case 0x4
1771 7810       |x   |		Jump	0x1782								; case 0x5
1772 780f       |x   |		Jump	0x1782								; case 0x6
1773 780e       |x   |		Jump	0x1782								; case 0x7
1774 780d       |x   |		Jump	0x1782								; case 0x8
1775 780c       |x   |		Jump	0x1782								; case 0x9
1776 780b       |x   |		Jump	0x1782								; case 0xa
1777 780a       |x   |		Jump	0x1782								; case 0xb
1778 7809       |x   |		Jump	0x1782								; case 0xc
1779 7808       |x   |		Jump	0x1782								; case 0xd
177a 7807       |x   |		Jump	0x1782								; case 0xe
177b 7806       |x   |		Jump	0x1782								; case 0xf
177c 7805       |x   |		Jump	0x1782								; case 0x10
177d 7804       |x   |		Jump	0x1782								; case 0x11
177e 7803       |x   |		Jump	0x1782								; case 0x12
177f 7802       |x   |		Jump	0x1782								; case 0x13
1780 7801       |x   |		Jump	0x1782								; case 0x14
1781 7800       |x   |		Jump	0x1782								; case 0x15
1782 016a       | j  |		QQ_execute	Variant_Record,XXX
1783 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1784 0869       | i  |		Execute_Immediate	Raise,0x69
1785 0000 0000  |    |		.XXX[0x3]
1787 0000       |    |
1788 ; --------------------------------------------------------------------------------------
1788 ; SUBPROGRAM
1788 ; --------------------------------------------------------------------------------------
1788 178b       |    |		.CONST	0x178b								; Address of begin
1789 0004       |    |		.CONST	0x0004								; Address of exception handler
178a 0001       |    |		.CONST	0x0001								; Number of locals
178b			BODY_1788:
178b			INIT_1788:
178b 4608       |F   |		Jump_Case	0x9
178c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
178d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
178e 7819       |x   |		Jump	0x17a8								; case 0x2
178f 7818       |x   |		Jump	0x17a8								; case 0x3
1790 7817       |x   |		Jump	0x17a8								; case 0x4
1791 7816       |x   |		Jump	0x17a8								; case 0x5
1792 7815       |x   |		Jump	0x17a8								; case 0x6
1793 7801       |x   |		Jump	0x1795								; case 0x7
1794 7809       |x   |		Jump	0x179e								; case 0x8
1795 00db       |    |		Load_Top	At_Offset_3
1796 4801       |H   |		Short_Literal	0x1
1797 e5fe       |    |		Load	0x2,-0x2
1798 00e9       |    |		Load_Encached	String_Cache
1799 035b       | [  |		Declare_Type	Array,Constrained
179a 4801       |H   |		Short_Literal	0x1
179b e5ff       |    |		Load	0x2,-0x1
179c 031b       |    |		Declare_Type	Variant_Record,Constrained
179d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
179e 00db       |    |		Load_Top	At_Offset_3
179f 00db       |    |		Load_Top	At_Offset_3
17a0 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
17a1 4801       |H   |		Short_Literal	0x1
17a2 e5fe       |    |		Load	0x2,-0x2
17a3 00e9       |    |		Load_Encached	String_Cache
17a4 0334       | 4  |		Declare_Variable	Array,With_Constraint
17a5 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
17a6 016a       | j  |		QQ_execute	Variant_Record,XXX
17a7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
17a8 0869       | i  |		Execute_Immediate	Raise,0x69
17a9 0000 0000  |    |		.BLANK	0000[0x7]
17b0 ; --------------------------------------------------------------------------------------
17b0 ; SUBPROGRAM
17b0 ; --------------------------------------------------------------------------------------
17b0 17b5       |    |		.CONST	0x17b5								; Address of begin
17b1 181a       |    |		.CONST	0x181a								; Address of exception handler
17b2 0002       |    |		.CONST	0x0002								; Number of locals
17b3			INIT_17b0:
17b3 00e2       |    |		Load_Encached	Integer_Cache
17b4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
17b5			BODY_17b0:
17b5 00cf       |    |		Action	Mark_Auxiliary
17b6 7804       |x   |		Jump	0x17bb
17b7 e5fd       |    |		Load	0x2,-0x3
17b8 0a01       |    |		Execute_Immediate	Plus,0x1
17b9 c5fd       |    |		Store	0x2,-0x3
17ba 00c9       |    |		Action	Pop_Auxiliary_Loop
17bb e5fd       |    |		Load	0x2,-0x3
17bc e5ff       |    |		Load	0x2,-0x1
17bd 01d7       |    |		Execute	Vector,Field_Read
17be 0f5f       | _  |		Execute_Immediate	Equal,0x5f
17bf 77f7       |w   |		Jump_Nonzero	0x17b7
17c0 00ce       |    |		Action	Pop_Auxiliary
17c1 e5fd       |    |		Load	0x2,-0x3
17c2 0a02       |    |		Execute_Immediate	Plus,0x2
17c3 e5ff       |    |		Load	0x2,-0x1
17c4 01dc       |    |		Execute	Vector,Last
17c5 027a       | z  |		Execute	Discrete,Less_Equal
17c6 6811       |h   |		Jump_Zero	0x17d8
17c7 4800       |H   |		Short_Literal	0x0
17c8 e5fe       |    |		Load	0x2,-0x2
17c9 483a       |H:  |		Short_Literal	0x3a
17ca e5fd       |    |		Load	0x2,-0x3
17cb 00d8       |    |		Load_Top	At_Offset_0
17cc 0a02       |    |		Execute_Immediate	Plus,0x2
17cd 00d8       |    |		Load_Top	At_Offset_0
17ce 00e2       |    |		Load_Encached	Integer_Cache
17cf 0260       | `  |		Execute	Discrete,In_Type
17d0 7001       |p   |		Jump_Nonzero	0x17d2
17d1 0801       |    |		Execute_Immediate	Raise,0x1
17d2 e5ff       |    |		Load	0x2,-0x1
17d3 01cf       |    |		Execute	Vector,Slice_Read
17d4 01ca       |    |		Execute	Vector,Prepend
17d5 e02f       | /  |		Load	0x0,0x2f
17d6 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
17d7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
17d8 00d8       |    |		Load_Top	At_Offset_0
17d9 7011       |p   |		Jump_Nonzero	0x17eb
17da 4800       |H   |		Short_Literal	0x0
17db e5fe       |    |		Load	0x2,-0x2
17dc 483a       |H:  |		Short_Literal	0x3a
17dd e5fd       |    |		Load	0x2,-0x3
17de 00d8       |    |		Load_Top	At_Offset_0
17df 0a01       |    |		Execute_Immediate	Plus,0x1
17e0 00d8       |    |		Load_Top	At_Offset_0
17e1 00e2       |    |		Load_Encached	Integer_Cache
17e2 0260       | `  |		Execute	Discrete,In_Type
17e3 7001       |p   |		Jump_Nonzero	0x17e5
17e4 0801       |    |		Execute_Immediate	Raise,0x1
17e5 e5ff       |    |		Load	0x2,-0x1
17e6 01cf       |    |		Execute	Vector,Slice_Read
17e7 01ca       |    |		Execute	Vector,Prepend
17e8 e02f       | /  |		Load	0x0,0x2f
17e9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
17ea 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
17eb 00d8       |    |		Load_Top	At_Offset_0
17ec 0a0b       |    |		Execute_Immediate	Plus,0xb
17ed 480c       |H   |		Short_Literal	0xc
17ee 0270       | p  |		Execute	Discrete,Divide
17ef c5fc       |    |		Store	0x2,-0x4
17f0 00d8       |    |		Load_Top	At_Offset_0
17f1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
17f2 6826       |h&  |		Jump_Zero	0x1819
17f3 00cf       |    |		Action	Mark_Auxiliary
17f4 e5ff       |    |		Load	0x2,-0x1
17f5 01dc       |    |		Execute	Vector,Last
17f6 e5fd       |    |		Load	0x2,-0x3
17f7 0263       | c  |		Execute	Discrete,Above_Bound
17f8 701b       |p   |		Jump_Nonzero	0x1814
17f9 00db       |    |		Load_Top	At_Offset_3
17fa 0a01       |    |		Execute_Immediate	Plus,0x1
17fb c402       |    |		Store	0x2,0x2
17fc 00db       |    |		Load_Top	At_Offset_3
17fd e5fe       |    |		Load	0x2,-0x2
17fe 01d7       |    |		Execute	Vector,Field_Read
17ff 00d9       |    |		Load_Top	At_Offset_1
1800 e5ff       |    |		Load	0x2,-0x1
1801 01d7       |    |		Execute	Vector,Field_Read
1802 027e       | ~  |		Execute	Discrete,Not_Equal
1803 680e       |h   |		Jump_Zero	0x1812
1804 00d8       |    |		Load_Top	At_Offset_0
1805 a5fd       |    |		Store_Unchecked	0x2,-0x3
1806 00cf       |    |		Action	Mark_Auxiliary
1807 7804       |x   |		Jump	0x180c
1808 e5fd       |    |		Load	0x2,-0x3
1809 0a01       |    |		Execute_Immediate	Plus,0x1
180a c5fd       |    |		Store	0x2,-0x3
180b 00c9       |    |		Action	Pop_Auxiliary_Loop
180c e5fd       |    |		Load	0x2,-0x3
180d e5ff       |    |		Load	0x2,-0x1
180e 01d7       |    |		Execute	Vector,Field_Read
180f 0f5f       | _  |		Execute_Immediate	Equal,0x5f
1810 77f7       |w   |		Jump_Nonzero	0x1808
1811 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1812 00c8       |    |		Action	Pop_Auxiliary_Range
1813 3fe5       |?   |		Loop_Increasing	0x17f9
1814 00ce       |    |		Action	Pop_Auxiliary
1815 00db       |    |		Load_Top	At_Offset_3
1816 01dc       |    |		Execute	Vector,Last
1817 0a01       |    |		Execute_Immediate	Plus,0x1
1818 c5fd       |    |		Store	0x2,-0x3
1819 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
181a			TRAP_17b0:
181a 0007       |    |		Action	Break_Optional
181b 4800       |H   |		Short_Literal	0x0
181c a5fc       |    |		Store_Unchecked	0x2,-0x4
181d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
181e 0000 0000  |    |		.XXX[0x2]
1820 ; --------------------------------------------------------------------------------------
1820 ; SUBPROGRAM
1820 ; --------------------------------------------------------------------------------------
1820 183f       | ?  |		.CONST	0x183f								; Address of begin
1821 191a       |    |		.CONST	0x191a								; Address of exception handler
1822 000b       |    |		.CONST	0x000b								; Number of locals
1823			INIT_1820:
1823 00e2       |    |		Load_Encached	Integer_Cache
1824 00e2       |    |		Load_Encached	Integer_Cache
1825 00e7       |    |		Load_Encached	Duration_Cache
1826 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1827 00e7       |    |		Load_Encached	Duration_Cache
1828 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1829 6116       |a   |		Indirect_Literal	Discrete,0x1940,{0x00000000, 0xa8c00000}
182a 00e7       |    |		Load_Encached	Duration_Cache
182b 03f1       |    |		Declare_Variable	Discrete,With_Value
182c 4800       |H   |		Short_Literal	0x0
182d e5ff       |    |		Load	0x2,-0x1
182e 0092 2c0e  |  , |		Action	Push_String_Extended,0x2c0e					; "AT"
1830 e02f       | /  |		Load	0x0,0x2f
1831 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1832 00e2       |    |		Load_Encached	Integer_Cache
1833 03f1       |    |		Declare_Variable	Discrete,With_Value
1834 e5ff       |    |		Load	0x2,-0x1
1835 01dd       |    |		Execute	Vector,First
1836 00e2       |    |		Load_Encached	Integer_Cache
1837 03f1       |    |		Declare_Variable	Discrete,With_Value
1838 e030       | 0  |		Load	0x0,0x30
1839 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
183a 0322       | "  |		Declare_Variable	Record
183b e030       | 0  |		Load	0x0,0x30
183c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
183d 0322       | "  |		Declare_Variable	Record
183e 00e2       |    |		Load_Encached	Integer_Cache
183f			BODY_1820:
183f e407       |    |		Load	0x2,0x7
1840 7004       |p   |		Jump_Nonzero	0x1845
1841 e5ff       |    |		Load	0x2,-0x1
1842 01dc       |    |		Execute	Vector,Last
1843 0a01       |    |		Execute_Immediate	Plus,0x1
1844 c407       |    |		Store	0x2,0x7
1845 00e2       |    |		Load_Encached	Integer_Cache
1846 e408       |    |		Load	0x2,0x8
1847 e2ae       |    |		Load	0x1,0xae
1848 e408       |    |		Load	0x2,0x8
1849 e407       |    |		Load	0x2,0x7
184a 0aff       |    |		Execute_Immediate	Plus,-0x1
184b 00d8       |    |		Load_Top	At_Offset_0
184c 00e2       |    |		Load_Encached	Integer_Cache
184d 0260       | `  |		Execute	Discrete,In_Type
184e 7001       |p   |		Jump_Nonzero	0x1850
184f 0801       |    |		Execute_Immediate	Raise,0x1
1850 e5ff       |    |		Load	0x2,-0x1
1851 01cf       |    |		Execute	Vector,Slice_Read
1852 82af       |    |		Call	0x1,0xaf
1853 c408       |    |		Store	0x2,0x8
1854 c402       |    |		Store	0x2,0x2
1855 e402       |    |		Load	0x2,0x2
1856 00d8       |    |		Load_Top	At_Offset_0
1857 4801       |H   |		Short_Literal	0x1
1858 4807       |H   |		Short_Literal	0x7
1859 0262       | b  |		Execute	Discrete,In_Range
185a 7015       |p   |		Jump_Nonzero	0x1870
185b 0b08       |    |		Execute_Immediate	Case_Compare,0x8
185c 702e       |p.  |		Jump_Nonzero	0x188b
185d 0f09       |    |		Execute_Immediate	Equal,0x9
185e 7032       |p2  |		Jump_Nonzero	0x1891
185f 00db       |    |		Load_Top	At_Offset_3
1860 e407       |    |		Load	0x2,0x7
1861 0aff       |    |		Execute_Immediate	Plus,-0x1
1862 00d8       |    |		Load_Top	At_Offset_0
1863 00e2       |    |		Load_Encached	Integer_Cache
1864 0260       | `  |		Execute	Discrete,In_Type
1865 7001       |p   |		Jump_Nonzero	0x1867
1866 0801       |    |		Execute_Immediate	Raise,0x1
1867 e5ff       |    |		Load	0x2,-0x1
1868 01cf       |    |		Execute	Vector,Slice_Read
1869 e030       | 0  |		Load	0x0,0x30
186a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
186b 00db       |    |		Load_Top	At_Offset_3
186c 017d       | }  |		Execute	Record,Structure_Write
186d e407       |    |		Load	0x2,0x7
186e a408       |    |		Store_Unchecked	0x2,0x8
186f 7827       |x'  |		Jump	0x1897
1870 00d1       |    |		Pop_Control	Pop_Count_1
1871 e030       | 0  |		Load	0x0,0x30
1872 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1873 00db       |    |		Load_Top	At_Offset_3
1874 017d       | }  |		Execute	Record,Structure_Write
1875 e402       |    |		Load	0x2,0x2
1876 00db       |    |		Load_Top	At_Offset_3
1877 e030       | 0  |		Load	0x0,0x30
1878 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
1879 0272       | r  |		Execute	Discrete,Minus
187a c403       |    |		Store	0x2,0x3
187b e403       |    |		Load	0x2,0x3
187c 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
187d 6803       |h   |		Jump_Zero	0x1881
187e e403       |    |		Load	0x2,0x3
187f 0af9       |    |		Execute_Immediate	Plus,-0x7
1880 c403       |    |		Store	0x2,0x3
1881 60be       |`   |		Indirect_Literal	Discrete,0x1940,{0x00000000, 0xa8c00000}
1882 e403       |    |		Load	0x2,0x3
1883 0271       | q  |		Execute	Discrete,Times
1884 00d8       |    |		Load_Top	At_Offset_0
1885 00e7       |    |		Load_Encached	Duration_Cache
1886 0260       | `  |		Execute	Discrete,In_Type
1887 7001       |p   |		Jump_Nonzero	0x1889
1888 0801       |    |		Execute_Immediate	Raise,0x1
1889 a404       |    |		Store_Unchecked	0x2,0x4
188a 780c       |x   |		Jump	0x1897
188b 00d1       |    |		Pop_Control	Pop_Count_1
188c e030       | 0  |		Load	0x0,0x30
188d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
188e 00db       |    |		Load_Top	At_Offset_3
188f 017d       | }  |		Execute	Record,Structure_Write
1890 7806       |x   |		Jump	0x1897
1891 e030       | 0  |		Load	0x0,0x30
1892 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1893 00db       |    |		Load_Top	At_Offset_3
1894 017d       | }  |		Execute	Record,Structure_Write
1895 60a6       |`   |		Indirect_Literal	Discrete,0x193c,{0xffffffff, 0x57400000}
1896 a404       |    |		Store_Unchecked	0x2,0x4
1897 00db       |    |		Load_Top	At_Offset_3
1898 e407       |    |		Load	0x2,0x7
1899 027c       | |  |		Execute	Discrete,Less
189a 6801       |h   |		Jump_Zero	0x189c
189b 08e0       |    |		Execute_Immediate	Raise,0xe0
189c e407       |    |		Load	0x2,0x7
189d e5ff       |    |		Load	0x2,-0x1
189e 01dc       |    |		Execute	Vector,Last
189f 027c       | |  |		Execute	Discrete,Less
18a0 6844       |hD  |		Jump_Zero	0x18e5
18a1 e407       |    |		Load	0x2,0x7
18a2 0a02       |    |		Execute_Immediate	Plus,0x2
18a3 c407       |    |		Store	0x2,0x7
18a4 00e2       |    |		Load_Encached	Integer_Cache
18a5 e407       |    |		Load	0x2,0x7
18a6 e2ae       |    |		Load	0x1,0xae
18a7 e5ff       |    |		Load	0x2,-0x1
18a8 82af       |    |		Call	0x1,0xaf
18a9 c407       |    |		Store	0x2,0x7
18aa c402       |    |		Store	0x2,0x2
18ab e402       |    |		Load	0x2,0x2
18ac 0b16       |    |		Execute_Immediate	Case_Compare,0x16
18ad 7029       |p)  |		Jump_Nonzero	0x18d7
18ae 0f17       |    |		Execute_Immediate	Equal,0x17
18af 702b       |p+  |		Jump_Nonzero	0x18db
18b0 e407       |    |		Load	0x2,0x7
18b1 e5ff       |    |		Load	0x2,-0x1
18b2 01dc       |    |		Execute	Vector,Last
18b3 e5ff       |    |		Load	0x2,-0x1
18b4 01cf       |    |		Execute	Vector,Slice_Read
18b5 e030       | 0  |		Load	0x0,0x30
18b6 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
18b7 00da       |    |		Load_Top	At_Offset_2
18b8 017d       | }  |		Execute	Record,Structure_Write
18b9 e5ff       |    |		Load	0x2,-0x1
18ba 01dc       |    |		Execute	Vector,Last
18bb 0a01       |    |		Execute_Immediate	Plus,0x1
18bc c407       |    |		Store	0x2,0x7
18bd 00d9       |    |		Load_Top	At_Offset_1
18be 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
18bf 480c       |H   |		Short_Literal	0xc
18c0 026e       | n  |		Execute	Discrete,Modulo
18c1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
18c2 00d9       |    |		Load_Top	At_Offset_1
18c3 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
18c4 0f01       |    |		Execute_Immediate	Equal,0x1
18c5 6803       |h   |		Jump_Zero	0x18c9
18c6 00d8       |    |		Load_Top	At_Offset_0
18c7 0a0c       |    |		Execute_Immediate	Plus,0xc
18c8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
18c9 606e       |`n  |		Indirect_Literal	Discrete,0x1938,{0x00000000, 0x00000e10}
18ca 00d9       |    |		Load_Top	At_Offset_1
18cb 0271       | q  |		Execute	Discrete,Times
18cc 483c       |H<  |		Short_Literal	0x3c
18cd 00db       |    |		Load_Top	At_Offset_3
18ce 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
18cf 0271       | q  |		Execute	Discrete,Times
18d0 0273       | s  |		Execute	Discrete,Plus
18d1 00da       |    |		Load_Top	At_Offset_2
18d2 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
18d3 0273       | s  |		Execute	Discrete,Plus
18d4 090f       |    |		Execute_Immediate	Binary_Scale,0xf
18d5 a405       |    |		Store_Unchecked	0x2,0x5
18d6 7806       |x   |		Jump	0x18dd
18d7 00d1       |    |		Pop_Control	Pop_Count_1
18d8 605b       |`[  |		Indirect_Literal	Discrete,0x1934,{0x00000000, 0x54600000}
18d9 a405       |    |		Store_Unchecked	0x2,0x5
18da 7802       |x   |		Jump	0x18dd
18db 6064       |`d  |		Indirect_Literal	Discrete,0x1940,{0x00000000, 0xa8c00000}
18dc a405       |    |		Store_Unchecked	0x2,0x5
18dd e405       |    |		Load	0x2,0x5
18de a406       |    |		Store_Unchecked	0x2,0x6
18df e407       |    |		Load	0x2,0x7
18e0 e5ff       |    |		Load	0x2,-0x1
18e1 01dc       |    |		Execute	Vector,Last
18e2 027a       | z  |		Execute	Discrete,Less_Equal
18e3 6801       |h   |		Jump_Zero	0x18e5
18e4 08e0       |    |		Execute_Immediate	Raise,0xe0
18e5 e404       |    |		Load	0x2,0x4
18e6 e405       |    |		Load	0x2,0x5
18e7 e004       |    |		Load	0x0,0x4
18e8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
18e9 00d9       |    |		Load_Top	At_Offset_1
18ea 00d0       |    |		Action	Swap_Control
18eb 0260       | `  |		Execute	Discrete,In_Type
18ec 7001       |p   |		Jump_Nonzero	0x18ee
18ed 0801       |    |		Execute_Immediate	Raise,0x1
18ee e409       |    |		Load	0x2,0x9
18ef 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
18f0 e409       |    |		Load	0x2,0x9
18f1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
18f2 0a01       |    |		Execute_Immediate	Plus,0x1
18f3 00d8       |    |		Load_Top	At_Offset_0
18f4 e004       |    |		Load	0x0,0x4
18f5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
18f6 0260       | `  |		Execute	Discrete,In_Type
18f7 7001       |p   |		Jump_Nonzero	0x18f9
18f8 0801       |    |		Execute_Immediate	Raise,0x1
18f9 e409       |    |		Load	0x2,0x9
18fa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
18fb e004       |    |		Load	0x0,0x4
18fc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
18fd 829a       |    |		Call	0x1,0x9a
18fe c5fd       |    |		Store	0x2,-0x3
18ff e404       |    |		Load	0x2,0x4
1900 e406       |    |		Load	0x2,0x6
1901 e004       |    |		Load	0x0,0x4
1902 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
1903 00d9       |    |		Load_Top	At_Offset_1
1904 00d0       |    |		Action	Swap_Control
1905 0260       | `  |		Execute	Discrete,In_Type
1906 7001       |p   |		Jump_Nonzero	0x1908
1907 0801       |    |		Execute_Immediate	Raise,0x1
1908 e409       |    |		Load	0x2,0x9
1909 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
190a e409       |    |		Load	0x2,0x9
190b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
190c 0a01       |    |		Execute_Immediate	Plus,0x1
190d 00d8       |    |		Load_Top	At_Offset_0
190e e004       |    |		Load	0x0,0x4
190f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1910 0260       | `  |		Execute	Discrete,In_Type
1911 7001       |p   |		Jump_Nonzero	0x1913
1912 0801       |    |		Execute_Immediate	Raise,0x1
1913 e409       |    |		Load	0x2,0x9
1914 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1915 e004       |    |		Load	0x0,0x4
1916 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1917 829a       |    |		Call	0x1,0x9a
1918 c5fe       |    |		Store	0x2,-0x2
1919 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
191a			TRAP_1820:
191a 0007       |    |		Action	Break_Optional
191b e002       |    |		Load	0x0,0x2
191c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
191d 4801       |H   |		Short_Literal	0x1
191e 4801       |H   |		Short_Literal	0x1
191f e00e       |    |		Load	0x0,0xe
1920 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1921 035b       | [  |		Declare_Type	Array,Constrained
1922 0337       | 7  |		Declare_Variable	Array
1923 e5ff       |    |		Load	0x2,-0x1
1924 e00e       |    |		Load	0x0,0xe
1925 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1926 4801       |H   |		Short_Literal	0x1
1927 00da       |    |		Load_Top	At_Offset_2
1928 01d6       |    |		Execute	Vector,Field_Write
1929 6006       |`   |		Indirect_Literal	Discrete,0x1930,{0x00000000, 0x00002825}
192a e002       |    |		Load	0x0,0x2
192b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
192c c5fc       |    |		Store	0x2,-0x4
192d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
192e 0000 0000  |    |		.XXX[0x2]
1930 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002825}
1934 0000 0000  |    |		.LITERAL	{0x00000000, 0x54600000}
1938 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000e10}
193c ffff ffff  |    |		.LITERAL	{0xffffffff, 0x57400000}
1940 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
1944 0000 0000  |    |		.BLANK	0000[0x4]
1948 ; --------------------------------------------------------------------------------------
1948 ; SUBPROGRAM
1948 ; --------------------------------------------------------------------------------------
1948 1961       | a  |		.CONST	0x1961								; Address of begin
1949 0004       |    |		.CONST	0x0004								; Address of exception handler
194a 0004       |    |		.CONST	0x0004								; Number of locals
194b			INIT_1948:
194b 4800       |H   |		Short_Literal	0x0
194c e5fe       |    |		Load	0x2,-0x2
194d 0092 2c0f  |  , |		Action	Push_String_Extended,0x2c0f					; ".."
194f e02f       | /  |		Load	0x0,0x2f
1950 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1951 00e2       |    |		Load_Encached	Integer_Cache
1952 03f1       |    |		Declare_Variable	Discrete,With_Value
1953 00db       |    |		Load_Top	At_Offset_3
1954 e2aa       |    |		Load	0x1,0xaa
1955 01d7       |    |		Execute	Vector,Field_Read
1956 e5fc       |    |		Load	0x2,-0x4
1957 01dc       |    |		Execute	Vector,Last
1958 e2ab       |    |		Load	0x1,0xab
1959 1c08       |    |		Execute_Immediate	Run_Utility,0x8
195a 00d8       |    |		Load_Top	At_Offset_0
195b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
195c e004       |    |		Load	0x0,0x4
195d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
195e 02c7       |    |		Declare_Variable	Any
195f 00d8       |    |		Load_Top	At_Offset_0
1960 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1961			BODY_1948:
1961 00da       |    |		Load_Top	At_Offset_2
1962 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1963 685e       |h^  |		Jump_Zero	0x19c2
1964 00da       |    |		Load_Top	At_Offset_2
1965 e5fe       |    |		Load	0x2,-0x2
1966 01dd       |    |		Execute	Vector,First
1967 027f       |    |		Execute	Discrete,Equal
1968 6805       |h   |		Jump_Zero	0x196e
1969 e003       |    |		Load	0x0,0x3
196a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
196b 00da       |    |		Load_Top	At_Offset_2
196c 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
196d 7824       |x$  |		Jump	0x1992
196e e5fb       |    |		Load	0x2,-0x5
196f 00d9       |    |		Load_Top	At_Offset_1
1970 0120       |    |		Execute	Any,Is_Value
1971 6803       |h   |		Jump_Zero	0x1975
1972 e004       |    |		Load	0x0,0x4
1973 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1974 7801       |x   |		Jump	0x1976
1975 00d9       |    |		Load_Top	At_Offset_1
1976 00db       |    |		Load_Top	At_Offset_3
1977 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1978 0120       |    |		Execute	Any,Is_Value
1979 6806       |h   |		Jump_Zero	0x1980
197a e004       |    |		Load	0x0,0x4
197b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
197c e403       |    |		Load	0x2,0x3
197d 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
197e 00d1       |    |		Pop_Control	Pop_Count_1
197f 7802       |x   |		Jump	0x1982
1980 00db       |    |		Load_Top	At_Offset_3
1981 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1982 e5fe       |    |		Load	0x2,-0x2
1983 01dd       |    |		Execute	Vector,First
1984 e402       |    |		Load	0x2,0x2
1985 0aff       |    |		Execute_Immediate	Plus,-0x1
1986 00d8       |    |		Load_Top	At_Offset_0
1987 00e2       |    |		Load_Encached	Integer_Cache
1988 0260       | `  |		Execute	Discrete,In_Type
1989 7001       |p   |		Jump_Nonzero	0x198b
198a 0801       |    |		Execute_Immediate	Raise,0x1
198b e5fe       |    |		Load	0x2,-0x2
198c 01cf       |    |		Execute	Vector,Slice_Read
198d 82b0       |    |		Call	0x1,0xb0
198e e403       |    |		Load	0x2,0x3
198f 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
1990 c404       |    |		Store	0x2,0x4
1991 c5fb       |    |		Store	0x2,-0x5
1992 00da       |    |		Load_Top	At_Offset_2
1993 0a02       |    |		Execute_Immediate	Plus,0x2
1994 e5fe       |    |		Load	0x2,-0x2
1995 01dc       |    |		Execute	Vector,Last
1996 027d       | }  |		Execute	Discrete,Greater
1997 6805       |h   |		Jump_Zero	0x199d
1998 e003       |    |		Load	0x0,0x3
1999 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
199a 00da       |    |		Load_Top	At_Offset_2
199b 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
199c 7845       |xE  |		Jump	0x19e2
199d e5fb       |    |		Load	0x2,-0x5
199e 00da       |    |		Load_Top	At_Offset_2
199f 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
19a0 0120       |    |		Execute	Any,Is_Value
19a1 6806       |h   |		Jump_Zero	0x19a8
19a2 e004       |    |		Load	0x0,0x4
19a3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
19a4 00db       |    |		Load_Top	At_Offset_3
19a5 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
19a6 00d1       |    |		Pop_Control	Pop_Count_1
19a7 7802       |x   |		Jump	0x19aa
19a8 00da       |    |		Load_Top	At_Offset_2
19a9 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
19aa 00da       |    |		Load_Top	At_Offset_2
19ab 0120       |    |		Execute	Any,Is_Value
19ac 6803       |h   |		Jump_Zero	0x19b0
19ad e004       |    |		Load	0x0,0x4
19ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
19af 7801       |x   |		Jump	0x19b1
19b0 00da       |    |		Load_Top	At_Offset_2
19b1 e402       |    |		Load	0x2,0x2
19b2 0a02       |    |		Execute_Immediate	Plus,0x2
19b3 00d8       |    |		Load_Top	At_Offset_0
19b4 00e2       |    |		Load_Encached	Integer_Cache
19b5 0260       | `  |		Execute	Discrete,In_Type
19b6 7001       |p   |		Jump_Nonzero	0x19b8
19b7 0801       |    |		Execute_Immediate	Raise,0x1
19b8 e5fe       |    |		Load	0x2,-0x2
19b9 01dc       |    |		Execute	Vector,Last
19ba e5fe       |    |		Load	0x2,-0x2
19bb 01cf       |    |		Execute	Vector,Slice_Read
19bc 82b0       |    |		Call	0x1,0xb0
19bd c404       |    |		Store	0x2,0x4
19be 00db       |    |		Load_Top	At_Offset_3
19bf 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
19c0 c5fb       |    |		Store	0x2,-0x5
19c1 7820       |x   |		Jump	0x19e2
19c2 e5fb       |    |		Load	0x2,-0x5
19c3 00da       |    |		Load_Top	At_Offset_2
19c4 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
19c5 0120       |    |		Execute	Any,Is_Value
19c6 6806       |h   |		Jump_Zero	0x19cd
19c7 e004       |    |		Load	0x0,0x4
19c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
19c9 00db       |    |		Load_Top	At_Offset_3
19ca 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
19cb 00d1       |    |		Pop_Control	Pop_Count_1
19cc 7802       |x   |		Jump	0x19cf
19cd 00da       |    |		Load_Top	At_Offset_2
19ce 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
19cf 00db       |    |		Load_Top	At_Offset_3
19d0 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
19d1 0120       |    |		Execute	Any,Is_Value
19d2 6806       |h   |		Jump_Zero	0x19d9
19d3 e004       |    |		Load	0x0,0x4
19d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
19d5 e403       |    |		Load	0x2,0x3
19d6 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
19d7 00d1       |    |		Pop_Control	Pop_Count_1
19d8 7802       |x   |		Jump	0x19db
19d9 00db       |    |		Load_Top	At_Offset_3
19da 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
19db e5fe       |    |		Load	0x2,-0x2
19dc 82b0       |    |		Call	0x1,0xb0
19dd e403       |    |		Load	0x2,0x3
19de 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
19df 00db       |    |		Load_Top	At_Offset_3
19e0 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
19e1 c5fb       |    |		Store	0x2,-0x5
19e2 e5fc       |    |		Load	0x2,-0x4
19e3 00da       |    |		Load_Top	At_Offset_2
19e4 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
19e5 00d9       |    |		Load_Top	At_Offset_1
19e6 e2ac       |    |		Load	0x1,0xac
19e7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
19e8 a5fd       |    |		Store_Unchecked	0x2,-0x3
19e9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
19ea 0000 0000  |    |		.BLANK	0000[0x6]
19f0 ; --------------------------------------------------------------------------------------
19f0 ; SUBPROGRAM
19f0 ; --------------------------------------------------------------------------------------
19f0 1a07       |    |		.CONST	0x1a07								; Address of begin
19f1 0004       |    |		.CONST	0x0004								; Address of exception handler
19f2 0003       |    |		.CONST	0x0003								; Number of locals
19f3			INIT_19f0:
19f3 4800       |H   |		Short_Literal	0x0
19f4 e5fe       |    |		Load	0x2,-0x2
19f5 0092 2c0f  |  , |		Action	Push_String_Extended,0x2c0f					; ".."
19f7 e02f       | /  |		Load	0x0,0x2f
19f8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
19f9 00e2       |    |		Load_Encached	Integer_Cache
19fa 03f1       |    |		Declare_Variable	Discrete,With_Value
19fb 00db       |    |		Load_Top	At_Offset_3
19fc e2aa       |    |		Load	0x1,0xaa
19fd 01d7       |    |		Execute	Vector,Field_Read
19fe e5fc       |    |		Load	0x2,-0x4
19ff 01dc       |    |		Execute	Vector,Last
1a00 e2ab       |    |		Load	0x1,0xab
1a01 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1a02 e2ac       |    |		Load	0x1,0xac
1a03 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1a04 00d8       |    |		Load_Top	At_Offset_0
1a05 0227       | '  |		Execute	Access,All_Reference
1a06 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1a07			BODY_19f0:
1a07 00d9       |    |		Load_Top	At_Offset_1
1a08 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1a09 6838       |h8  |		Jump_Zero	0x1a42
1a0a 00d9       |    |		Load_Top	At_Offset_1
1a0b e5fe       |    |		Load	0x2,-0x2
1a0c 01dd       |    |		Execute	Vector,First
1a0d 027f       |    |		Execute	Discrete,Equal
1a0e 6805       |h   |		Jump_Zero	0x1a14
1a0f 6044       |`D  |		Indirect_Literal	Discrete,0x1a54,{0xffffffff, 0x80000001}
1a10 00d9       |    |		Load_Top	At_Offset_1
1a11 0227       | '  |		Execute	Access,All_Reference
1a12 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
1a13 7811       |x   |		Jump	0x1a25
1a14 e5fe       |    |		Load	0x2,-0x2
1a15 01dd       |    |		Execute	Vector,First
1a16 00da       |    |		Load_Top	At_Offset_2
1a17 0aff       |    |		Execute_Immediate	Plus,-0x1
1a18 00d8       |    |		Load_Top	At_Offset_0
1a19 00e2       |    |		Load_Encached	Integer_Cache
1a1a 0260       | `  |		Execute	Discrete,In_Type
1a1b 7001       |p   |		Jump_Nonzero	0x1a1d
1a1c 0801       |    |		Execute_Immediate	Raise,0x1
1a1d e5fe       |    |		Load	0x2,-0x2
1a1e 01cf       |    |		Execute	Vector,Slice_Read
1a1f 00e2       |    |		Load_Encached	Integer_Cache
1a20 00e0       |    |		Load_Encached	Standard_Cache
1a21 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1a22 00d9       |    |		Load_Top	At_Offset_1
1a23 0227       | '  |		Execute	Access,All_Reference
1a24 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
1a25 00d9       |    |		Load_Top	At_Offset_1
1a26 0a02       |    |		Execute_Immediate	Plus,0x2
1a27 e5fe       |    |		Load	0x2,-0x2
1a28 01dc       |    |		Execute	Vector,Last
1a29 027d       | }  |		Execute	Discrete,Greater
1a2a 6805       |h   |		Jump_Zero	0x1a30
1a2b 6024       |`$  |		Indirect_Literal	Discrete,0x1a50,{0x00000000, 0x7fffffff}
1a2c 00d9       |    |		Load_Top	At_Offset_1
1a2d 0227       | '  |		Execute	Access,All_Reference
1a2e 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
1a2f 7819       |x   |		Jump	0x1a49
1a30 00d9       |    |		Load_Top	At_Offset_1
1a31 0a02       |    |		Execute_Immediate	Plus,0x2
1a32 00d8       |    |		Load_Top	At_Offset_0
1a33 00e2       |    |		Load_Encached	Integer_Cache
1a34 0260       | `  |		Execute	Discrete,In_Type
1a35 7001       |p   |		Jump_Nonzero	0x1a37
1a36 0801       |    |		Execute_Immediate	Raise,0x1
1a37 e5fe       |    |		Load	0x2,-0x2
1a38 01dc       |    |		Execute	Vector,Last
1a39 e5fe       |    |		Load	0x2,-0x2
1a3a 01cf       |    |		Execute	Vector,Slice_Read
1a3b 00e2       |    |		Load_Encached	Integer_Cache
1a3c 00e0       |    |		Load_Encached	Standard_Cache
1a3d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1a3e 00d9       |    |		Load_Top	At_Offset_1
1a3f 0227       | '  |		Execute	Access,All_Reference
1a40 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
1a41 7807       |x   |		Jump	0x1a49
1a42 e5fe       |    |		Load	0x2,-0x2
1a43 00e2       |    |		Load_Encached	Integer_Cache
1a44 00e0       |    |		Load_Encached	Standard_Cache
1a45 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1a46 00d9       |    |		Load_Top	At_Offset_1
1a47 0227       | '  |		Execute	Access,All_Reference
1a48 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
1a49 e5fc       |    |		Load	0x2,-0x4
1a4a 00d9       |    |		Load_Top	At_Offset_1
1a4b 0227       | '  |		Execute	Access,All_Reference
1a4c 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1a4d 00d8       |    |		Load_Top	At_Offset_0
1a4e a5fd       |    |		Store_Unchecked	0x2,-0x3
1a4f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a50 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
1a54 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
1a58 ; --------------------------------------------------------------------------------------
1a58 ; SUBPROGRAM
1a58 ; --------------------------------------------------------------------------------------
1a58 1a6d       | m  |		.CONST	0x1a6d								; Address of begin
1a59 0004       |    |		.CONST	0x0004								; Address of exception handler
1a5a 0003       |    |		.CONST	0x0003								; Number of locals
1a5b			INIT_1a58:
1a5b 4801       |H   |		Short_Literal	0x1
1a5c 00db       |    |		Load_Top	At_Offset_3
1a5d 01db       |    |		Execute	Vector,Length
1a5e 00d8       |    |		Load_Top	At_Offset_0
1a5f 00e2       |    |		Load_Encached	Integer_Cache
1a60 0260       | `  |		Execute	Discrete,In_Type
1a61 7001       |p   |		Jump_Nonzero	0x1a63
1a62 0801       |    |		Execute_Immediate	Raise,0x1
1a63 00e9       |    |		Load_Encached	String_Cache
1a64 035b       | [  |		Declare_Type	Array,Constrained
1a65 0337       | 7  |		Declare_Variable	Array
1a66 00db       |    |		Load_Top	At_Offset_3
1a67 e02f       | /  |		Load	0x0,0x2f
1a68 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
1a69 00d9       |    |		Load_Top	At_Offset_1
1a6a 01d4       |    |		Execute	Vector,Structure_Write
1a6b 00e2       |    |		Load_Encached	Integer_Cache
1a6c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1a6d			BODY_1a58:
1a6d 00cf       |    |		Action	Mark_Auxiliary
1a6e 00da       |    |		Load_Top	At_Offset_2
1a6f 01d9       |    |		Execute	Vector,Reverse_Bounds
1a70 0263       | c  |		Execute	Discrete,Above_Bound
1a71 701b       |p   |		Jump_Nonzero	0x1a8d
1a72 00d8       |    |		Load_Top	At_Offset_0
1a73 e402       |    |		Load	0x2,0x2
1a74 01d7       |    |		Execute	Vector,Field_Read
1a75 00d8       |    |		Load_Top	At_Offset_0
1a76 4809       |H   |		Short_Literal	0x9
1a77 4820       |H   |		Short_Literal	0x20
1a78 0262       | b  |		Execute	Discrete,In_Range
1a79 6807       |h   |		Jump_Zero	0x1a81
1a7a 0b0b       |    |		Execute_Immediate	Case_Compare,0xb
1a7b 7005       |p   |		Jump_Nonzero	0x1a81
1a7c 480d       |H   |		Short_Literal	0xd
1a7d 481f       |H   |		Short_Literal	0x1f
1a7e 0262       | b  |		Execute	Discrete,In_Range
1a7f 7002       |p   |		Jump_Nonzero	0x1a82
1a80 780a       |x   |		Jump	0x1a8b
1a81 00d1       |    |		Pop_Control	Pop_Count_1
1a82 00db       |    |		Load_Top	At_Offset_3
1a83 0a01       |    |		Execute_Immediate	Plus,0x1
1a84 c403       |    |		Store	0x2,0x3
1a85 00d8       |    |		Load_Top	At_Offset_0
1a86 e402       |    |		Load	0x2,0x2
1a87 01d7       |    |		Execute	Vector,Field_Read
1a88 e403       |    |		Load	0x2,0x3
1a89 e402       |    |		Load	0x2,0x2
1a8a 01d6       |    |		Execute	Vector,Field_Write
1a8b 00c8       |    |		Action	Pop_Auxiliary_Range
1a8c 3fe5       |?   |		Loop_Increasing	0x1a72
1a8d 00ce       |    |		Action	Pop_Auxiliary
1a8e 4801       |H   |		Short_Literal	0x1
1a8f 00d9       |    |		Load_Top	At_Offset_1
1a90 00db       |    |		Load_Top	At_Offset_3
1a91 01cf       |    |		Execute	Vector,Slice_Read
1a92 00e9       |    |		Load_Encached	String_Cache
1a93 01c6       |    |		Execute	Vector,Convert_To_Formal
1a94 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1a95 0000 0000  |    |		.XXX[0x3]
1a97 0000       |    |
1a98 ; --------------------------------------------------------------------------------------
1a98 ; SUBPROGRAM
1a98 ; --------------------------------------------------------------------------------------
1a98 1aaa       |    |		.CONST	0x1aaa								; Address of begin
1a99 0004       |    |		.CONST	0x0004								; Address of exception handler
1a9a 0008       |    |		.CONST	0x0008								; Number of locals
1a9b			INIT_1a98:
1a9b e2ac       |    |		Load	0x1,0xac
1a9c 0007       |    |		Action	Break_Optional
1a9d e00d       |    |		Load	0x0,0xd
1a9e 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
1a9f 02c7       |    |		Declare_Variable	Any
1aa0 00d8       |    |		Load_Top	At_Offset_0
1aa1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1aa2 e00d       |    |		Load	0x0,0xd
1aa3 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
1aa4 e2a1       |    |		Load	0x1,0xa1
1aa5 0007       |    |		Action	Break_Optional
1aa6 e2a0       |    |		Load	0x1,0xa0
1aa7 0007       |    |		Action	Break_Optional
1aa8 00e1       |    |		Load_Encached	Boolean_Cache
1aa9 03e9       |    |		Declare_Variable	Discrete,Duplicate
1aaa			BODY_1a98:
1aaa e5ff       |    |		Load	0x2,-0x1
1aab 4612       |F   |		Jump_Case	0x13
1aac 781c       |x   |		Jump	0x1ac9								; case 0x0
1aad 7872       |xr  |		Jump	0x1b20								; case 0x1
1aae 7965       |ye  |		Jump	0x1c14								; case 0x2
1aaf 7964       |yd  |		Jump	0x1c14								; case 0x3
1ab0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x4
1ab1 7894       |x   |		Jump	0x1b46								; case 0x5
1ab2 78fa       |x   |		Jump	0x1bad								; case 0x6
1ab3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
1ab4 7982       |y   |		Jump	0x1c37								; case 0x8
1ab5 7981       |y   |		Jump	0x1c37								; case 0x9
1ab6 7980       |y   |		Jump	0x1c37								; case 0xa
1ab7 797f       |y   |		Jump	0x1c37								; case 0xb
1ab8 797e       |y~  |		Jump	0x1c37								; case 0xc
1ab9 7987       |y   |		Jump	0x1c41								; case 0xd
1aba 7986       |y   |		Jump	0x1c41								; case 0xe
1abb 7985       |y   |		Jump	0x1c41								; case 0xf
1abc 7984       |y   |		Jump	0x1c41								; case 0x10
1abd 7801       |x   |		Jump	0x1abf								; case 0x11
1abe 7800       |x   |		Jump	0x1abf								; case 0x12
1abf e5fb       |    |		Load	0x2,-0x5
1ac0 e5fc       |    |		Load	0x2,-0x4
1ac1 e2ac       |    |		Load	0x1,0xac
1ac2 e5fe       |    |		Load	0x2,-0x2
1ac3 e5ff       |    |		Load	0x2,-0x1
1ac4 82b2       |    |		Call	0x1,0xb2
1ac5 c5fd       |    |		Store	0x2,-0x3
1ac6 00d1       |    |		Pop_Control	Pop_Count_1
1ac7 c5fb       |    |		Store	0x2,-0x5
1ac8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1ac9 e5fe       |    |		Load	0x2,-0x2
1aca e00d       |    |		Load	0x0,0xd
1acb 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
1acc c403       |    |		Store	0x2,0x3
1acd e403       |    |		Load	0x2,0x3
1ace e00d       |    |		Load	0x0,0xd
1acf 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1ad0 7025       |p%  |		Jump_Nonzero	0x1af6
1ad1 4804       |H   |		Short_Literal	0x4
1ad2 e5fc       |    |		Load	0x2,-0x4
1ad3 01dc       |    |		Execute	Vector,Last
1ad4 e2ab       |    |		Load	0x1,0xab
1ad5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ad6 e2ac       |    |		Load	0x1,0xac
1ad7 00d9       |    |		Load_Top	At_Offset_1
1ad8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1ad9 e5fc       |    |		Load	0x2,-0x4
1ada 00d9       |    |		Load_Top	At_Offset_1
1adb 00d8       |    |		Load_Top	At_Offset_0
1adc 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1add 00da       |    |		Load_Top	At_Offset_2
1ade 01da       |    |		Execute	Vector,Bounds
1adf 00da       |    |		Load_Top	At_Offset_2
1ae0 01da       |    |		Execute	Vector,Bounds
1ae1 00da       |    |		Load_Top	At_Offset_2
1ae2 027f       |    |		Execute	Discrete,Equal
1ae3 7001       |p   |		Jump_Nonzero	0x1ae5
1ae4 08e0       |    |		Execute_Immediate	Raise,0xe0
1ae5 00cd       |    |		Action	Spare6_Action
1ae6 027f       |    |		Execute	Discrete,Equal
1ae7 7001       |p   |		Jump_Nonzero	0x1ae9
1ae8 08e0       |    |		Execute_Immediate	Raise,0xe0
1ae9 00d2       |    |		Pop_Control	Pop_Count_2
1aea 00d9       |    |		Load_Top	At_Offset_1
1aeb 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1aec e403       |    |		Load	0x2,0x3
1aed e2ab       |    |		Load	0x1,0xab
1aee 2306       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x6
1aef 0119       |    |		Execute	Any,Check_In_Formal_Type
1af0 00d9       |    |		Load_Top	At_Offset_1
1af1 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
1af2 e2ac       |    |		Load	0x1,0xac
1af3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1af4 a5fd       |    |		Store_Unchecked	0x2,-0x3
1af5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1af6 e5fe       |    |		Load	0x2,-0x2
1af7 e00d       |    |		Load	0x0,0xd
1af8 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
1af9 a404       |    |		Store_Unchecked	0x2,0x4
1afa e404       |    |		Load	0x2,0x4
1afb e00d       |    |		Load	0x0,0xd
1afc 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
1afd 6960       |i`  |		Jump_Zero	0x1c5e
1afe 4805       |H   |		Short_Literal	0x5
1aff e5fc       |    |		Load	0x2,-0x4
1b00 01dc       |    |		Execute	Vector,Last
1b01 e2ab       |    |		Load	0x1,0xab
1b02 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1b03 e2ac       |    |		Load	0x1,0xac
1b04 00d9       |    |		Load_Top	At_Offset_1
1b05 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1b06 e5fc       |    |		Load	0x2,-0x4
1b07 00d9       |    |		Load_Top	At_Offset_1
1b08 00d8       |    |		Load_Top	At_Offset_0
1b09 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1b0a 00da       |    |		Load_Top	At_Offset_2
1b0b 01da       |    |		Execute	Vector,Bounds
1b0c 00da       |    |		Load_Top	At_Offset_2
1b0d 01da       |    |		Execute	Vector,Bounds
1b0e 00da       |    |		Load_Top	At_Offset_2
1b0f 027f       |    |		Execute	Discrete,Equal
1b10 7001       |p   |		Jump_Nonzero	0x1b12
1b11 08e0       |    |		Execute_Immediate	Raise,0xe0
1b12 00cd       |    |		Action	Spare6_Action
1b13 027f       |    |		Execute	Discrete,Equal
1b14 7001       |p   |		Jump_Nonzero	0x1b16
1b15 08e0       |    |		Execute_Immediate	Raise,0xe0
1b16 00d2       |    |		Pop_Control	Pop_Count_2
1b17 00d9       |    |		Load_Top	At_Offset_1
1b18 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1b19 e404       |    |		Load	0x2,0x4
1b1a 00d9       |    |		Load_Top	At_Offset_1
1b1b 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
1b1c e2ac       |    |		Load	0x1,0xac
1b1d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1b1e a5fd       |    |		Store_Unchecked	0x2,-0x3
1b1f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1b20 4806       |H   |		Short_Literal	0x6
1b21 e5fc       |    |		Load	0x2,-0x4
1b22 01dc       |    |		Execute	Vector,Last
1b23 e2ab       |    |		Load	0x1,0xab
1b24 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1b25 e2ac       |    |		Load	0x1,0xac
1b26 00d9       |    |		Load_Top	At_Offset_1
1b27 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1b28 e5fc       |    |		Load	0x2,-0x4
1b29 00d9       |    |		Load_Top	At_Offset_1
1b2a 00d8       |    |		Load_Top	At_Offset_0
1b2b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1b2c 00da       |    |		Load_Top	At_Offset_2
1b2d 01da       |    |		Execute	Vector,Bounds
1b2e 00da       |    |		Load_Top	At_Offset_2
1b2f 01da       |    |		Execute	Vector,Bounds
1b30 00da       |    |		Load_Top	At_Offset_2
1b31 027f       |    |		Execute	Discrete,Equal
1b32 7001       |p   |		Jump_Nonzero	0x1b34
1b33 08e0       |    |		Execute_Immediate	Raise,0xe0
1b34 00cd       |    |		Action	Spare6_Action
1b35 027f       |    |		Execute	Discrete,Equal
1b36 7001       |p   |		Jump_Nonzero	0x1b38
1b37 08e0       |    |		Execute_Immediate	Raise,0xe0
1b38 00d2       |    |		Pop_Control	Pop_Count_2
1b39 00d9       |    |		Load_Top	At_Offset_1
1b3a 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1b3b e5fe       |    |		Load	0x2,-0x2
1b3c e00d       |    |		Load	0x0,0xd
1b3d 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
1b3e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1b3f 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1b40 00d9       |    |		Load_Top	At_Offset_1
1b41 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
1b42 e2ac       |    |		Load	0x1,0xac
1b43 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1b44 a5fd       |    |		Store_Unchecked	0x2,-0x3
1b45 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1b46 00e1       |    |		Load_Encached	Boolean_Cache
1b47 00e1       |    |		Load_Encached	Boolean_Cache
1b48 e2a3       |    |		Load	0x1,0xa3
1b49 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b4a e5fe       |    |		Load	0x2,-0x2
1b4b e2a3       |    |		Load	0x1,0xa3
1b4c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b4d c406       |    |		Store	0x2,0x6
1b4e 005b       | [  |		Store_Top	Discrete,At_Offset_3
1b4f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1b50 00d9       |    |		Load_Top	At_Offset_1
1b51 701c       |p   |		Jump_Nonzero	0x1b6e
1b52 00d8       |    |		Load_Top	At_Offset_0
1b53 701a       |p   |		Jump_Nonzero	0x1b6e
1b54 e002       |    |		Load	0x0,0x2
1b55 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1b56 4801       |H   |		Short_Literal	0x1
1b57 4802       |H   |		Short_Literal	0x2
1b58 e00e       |    |		Load	0x0,0xe
1b59 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b5a 035b       | [  |		Declare_Type	Array,Constrained
1b5b 0337       | 7  |		Declare_Variable	Array
1b5c e5fe       |    |		Load	0x2,-0x2
1b5d e00e       |    |		Load	0x0,0xe
1b5e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b5f 4801       |H   |		Short_Literal	0x1
1b60 00da       |    |		Load_Top	At_Offset_2
1b61 01d6       |    |		Execute	Vector,Field_Write
1b62 0092 2c10  |  , |		Action	Push_String_Extended,0x2c10					; "'IS"
1b64 e00e       |    |		Load	0x0,0xe
1b65 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b66 4802       |H   |		Short_Literal	0x2
1b67 00da       |    |		Load_Top	At_Offset_2
1b68 01d6       |    |		Execute	Vector,Field_Write
1b69 60fa       |`   |		Indirect_Literal	Discrete,0x1c64,{0x00000000, 0x00002826}
1b6a e002       |    |		Load	0x0,0x2
1b6b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1b6c c5fb       |    |		Store	0x2,-0x5
1b6d 781d       |x   |		Jump	0x1b8b
1b6e 00d9       |    |		Load_Top	At_Offset_1
1b6f 681b       |h   |		Jump_Zero	0x1b8b
1b70 00d8       |    |		Load_Top	At_Offset_0
1b71 7019       |p   |		Jump_Nonzero	0x1b8b
1b72 e002       |    |		Load	0x0,0x2
1b73 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1b74 4801       |H   |		Short_Literal	0x1
1b75 4802       |H   |		Short_Literal	0x2
1b76 e00e       |    |		Load	0x0,0xe
1b77 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b78 035b       | [  |		Declare_Type	Array,Constrained
1b79 0337       | 7  |		Declare_Variable	Array
1b7a e5fe       |    |		Load	0x2,-0x2
1b7b e00e       |    |		Load	0x0,0xe
1b7c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b7d 4801       |H   |		Short_Literal	0x1
1b7e 00da       |    |		Load_Top	At_Offset_2
1b7f 01d6       |    |		Execute	Vector,Field_Write
1b80 0092 2c10  |  , |		Action	Push_String_Extended,0x2c10					; "'IS"
1b82 e00e       |    |		Load	0x0,0xe
1b83 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b84 4802       |H   |		Short_Literal	0x2
1b85 00da       |    |		Load_Top	At_Offset_2
1b86 01d6       |    |		Execute	Vector,Field_Write
1b87 60d8       |`   |		Indirect_Literal	Discrete,0x1c60,{0x00000000, 0x00002831}
1b88 e002       |    |		Load	0x0,0x2
1b89 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1b8a c5fb       |    |		Store	0x2,-0x5
1b8b 4807       |H   |		Short_Literal	0x7
1b8c e5fc       |    |		Load	0x2,-0x4
1b8d 01dc       |    |		Execute	Vector,Last
1b8e e2ab       |    |		Load	0x1,0xab
1b8f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1b90 e2ac       |    |		Load	0x1,0xac
1b91 00d9       |    |		Load_Top	At_Offset_1
1b92 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1b93 e5fc       |    |		Load	0x2,-0x4
1b94 00d9       |    |		Load_Top	At_Offset_1
1b95 00d8       |    |		Load_Top	At_Offset_0
1b96 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1b97 00da       |    |		Load_Top	At_Offset_2
1b98 01da       |    |		Execute	Vector,Bounds
1b99 00da       |    |		Load_Top	At_Offset_2
1b9a 01da       |    |		Execute	Vector,Bounds
1b9b 00da       |    |		Load_Top	At_Offset_2
1b9c 027f       |    |		Execute	Discrete,Equal
1b9d 7001       |p   |		Jump_Nonzero	0x1b9f
1b9e 08e0       |    |		Execute_Immediate	Raise,0xe0
1b9f 00cd       |    |		Action	Spare6_Action
1ba0 027f       |    |		Execute	Discrete,Equal
1ba1 7001       |p   |		Jump_Nonzero	0x1ba3
1ba2 08e0       |    |		Execute_Immediate	Raise,0xe0
1ba3 00d2       |    |		Pop_Control	Pop_Count_2
1ba4 00d9       |    |		Load_Top	At_Offset_1
1ba5 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1ba6 00db       |    |		Load_Top	At_Offset_3
1ba7 00d9       |    |		Load_Top	At_Offset_1
1ba8 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
1ba9 e2ac       |    |		Load	0x1,0xac
1baa 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1bab a5fd       |    |		Store_Unchecked	0x2,-0x3
1bac 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1bad 00e1       |    |		Load_Encached	Boolean_Cache
1bae 00e1       |    |		Load_Encached	Boolean_Cache
1baf e2a4       |    |		Load	0x1,0xa4
1bb0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1bb1 e5fe       |    |		Load	0x2,-0x2
1bb2 e2a4       |    |		Load	0x1,0xa4
1bb3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1bb4 c405       |    |		Store	0x2,0x5
1bb5 005b       | [  |		Store_Top	Discrete,At_Offset_3
1bb6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1bb7 00d9       |    |		Load_Top	At_Offset_1
1bb8 701c       |p   |		Jump_Nonzero	0x1bd5
1bb9 00d8       |    |		Load_Top	At_Offset_0
1bba 701a       |p   |		Jump_Nonzero	0x1bd5
1bbb e002       |    |		Load	0x0,0x2
1bbc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1bbd 4801       |H   |		Short_Literal	0x1
1bbe 4802       |H   |		Short_Literal	0x2
1bbf e00e       |    |		Load	0x0,0xe
1bc0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1bc1 035b       | [  |		Declare_Type	Array,Constrained
1bc2 0337       | 7  |		Declare_Variable	Array
1bc3 e5fe       |    |		Load	0x2,-0x2
1bc4 e00e       |    |		Load	0x0,0xe
1bc5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1bc6 4801       |H   |		Short_Literal	0x1
1bc7 00da       |    |		Load_Top	At_Offset_2
1bc8 01d6       |    |		Execute	Vector,Field_Write
1bc9 0092 2c11  |  , |		Action	Push_String_Extended,0x2c11					; "'HAS"
1bcb e00e       |    |		Load	0x0,0xe
1bcc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1bcd 4802       |H   |		Short_Literal	0x2
1bce 00da       |    |		Load_Top	At_Offset_2
1bcf 01d6       |    |		Execute	Vector,Field_Write
1bd0 6093       |`   |		Indirect_Literal	Discrete,0x1c64,{0x00000000, 0x00002826}
1bd1 e002       |    |		Load	0x0,0x2
1bd2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1bd3 c5fb       |    |		Store	0x2,-0x5
1bd4 781d       |x   |		Jump	0x1bf2
1bd5 00d9       |    |		Load_Top	At_Offset_1
1bd6 681b       |h   |		Jump_Zero	0x1bf2
1bd7 00d8       |    |		Load_Top	At_Offset_0
1bd8 7019       |p   |		Jump_Nonzero	0x1bf2
1bd9 e002       |    |		Load	0x0,0x2
1bda 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1bdb 4801       |H   |		Short_Literal	0x1
1bdc 4802       |H   |		Short_Literal	0x2
1bdd e00e       |    |		Load	0x0,0xe
1bde 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1bdf 035b       | [  |		Declare_Type	Array,Constrained
1be0 0337       | 7  |		Declare_Variable	Array
1be1 e5fe       |    |		Load	0x2,-0x2
1be2 e00e       |    |		Load	0x0,0xe
1be3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1be4 4801       |H   |		Short_Literal	0x1
1be5 00da       |    |		Load_Top	At_Offset_2
1be6 01d6       |    |		Execute	Vector,Field_Write
1be7 0092 2c11  |  , |		Action	Push_String_Extended,0x2c11					; "'HAS"
1be9 e00e       |    |		Load	0x0,0xe
1bea 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1beb 4802       |H   |		Short_Literal	0x2
1bec 00da       |    |		Load_Top	At_Offset_2
1bed 01d6       |    |		Execute	Vector,Field_Write
1bee 6071       |`q  |		Indirect_Literal	Discrete,0x1c60,{0x00000000, 0x00002831}
1bef e002       |    |		Load	0x0,0x2
1bf0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1bf1 c5fb       |    |		Store	0x2,-0x5
1bf2 4808       |H   |		Short_Literal	0x8
1bf3 e5fc       |    |		Load	0x2,-0x4
1bf4 01dc       |    |		Execute	Vector,Last
1bf5 e2ab       |    |		Load	0x1,0xab
1bf6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1bf7 e2ac       |    |		Load	0x1,0xac
1bf8 00d9       |    |		Load_Top	At_Offset_1
1bf9 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1bfa e5fc       |    |		Load	0x2,-0x4
1bfb 00d9       |    |		Load_Top	At_Offset_1
1bfc 00d8       |    |		Load_Top	At_Offset_0
1bfd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1bfe 00da       |    |		Load_Top	At_Offset_2
1bff 01da       |    |		Execute	Vector,Bounds
1c00 00da       |    |		Load_Top	At_Offset_2
1c01 01da       |    |		Execute	Vector,Bounds
1c02 00da       |    |		Load_Top	At_Offset_2
1c03 027f       |    |		Execute	Discrete,Equal
1c04 7001       |p   |		Jump_Nonzero	0x1c06
1c05 08e0       |    |		Execute_Immediate	Raise,0xe0
1c06 00cd       |    |		Action	Spare6_Action
1c07 027f       |    |		Execute	Discrete,Equal
1c08 7001       |p   |		Jump_Nonzero	0x1c0a
1c09 08e0       |    |		Execute_Immediate	Raise,0xe0
1c0a 00d2       |    |		Pop_Control	Pop_Count_2
1c0b 00d9       |    |		Load_Top	At_Offset_1
1c0c 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1c0d e405       |    |		Load	0x2,0x5
1c0e 00d9       |    |		Load_Top	At_Offset_1
1c0f 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
1c10 e2ac       |    |		Load	0x1,0xac
1c11 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1c12 a5fd       |    |		Store_Unchecked	0x2,-0x3
1c13 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1c14 4815       |H   |		Short_Literal	0x15
1c15 e5fc       |    |		Load	0x2,-0x4
1c16 01dc       |    |		Execute	Vector,Last
1c17 e2ab       |    |		Load	0x1,0xab
1c18 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1c19 e2ac       |    |		Load	0x1,0xac
1c1a 00d9       |    |		Load_Top	At_Offset_1
1c1b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1c1c e5fc       |    |		Load	0x2,-0x4
1c1d 00d9       |    |		Load_Top	At_Offset_1
1c1e 00d8       |    |		Load_Top	At_Offset_0
1c1f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1c20 00da       |    |		Load_Top	At_Offset_2
1c21 01da       |    |		Execute	Vector,Bounds
1c22 00da       |    |		Load_Top	At_Offset_2
1c23 01da       |    |		Execute	Vector,Bounds
1c24 00da       |    |		Load_Top	At_Offset_2
1c25 027f       |    |		Execute	Discrete,Equal
1c26 7001       |p   |		Jump_Nonzero	0x1c28
1c27 08e0       |    |		Execute_Immediate	Raise,0xe0
1c28 00cd       |    |		Action	Spare6_Action
1c29 027f       |    |		Execute	Discrete,Equal
1c2a 7001       |p   |		Jump_Nonzero	0x1c2c
1c2b 08e0       |    |		Execute_Immediate	Raise,0xe0
1c2c 00d2       |    |		Pop_Control	Pop_Count_2
1c2d 00d9       |    |		Load_Top	At_Offset_1
1c2e 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1c2f e5ff       |    |		Load	0x2,-0x1
1c30 0f02       |    |		Execute_Immediate	Equal,0x2
1c31 00d9       |    |		Load_Top	At_Offset_1
1c32 2a11       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
1c33 e2ac       |    |		Load	0x1,0xac
1c34 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1c35 a5fd       |    |		Store_Unchecked	0x2,-0x3
1c36 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1c37 e5fb       |    |		Load	0x2,-0x5
1c38 e5fc       |    |		Load	0x2,-0x4
1c39 e2ac       |    |		Load	0x1,0xac
1c3a e5fe       |    |		Load	0x2,-0x2
1c3b e5ff       |    |		Load	0x2,-0x1
1c3c 82b1       |    |		Call	0x1,0xb1
1c3d c5fd       |    |		Store	0x2,-0x3
1c3e 00d1       |    |		Pop_Control	Pop_Count_1
1c3f c5fb       |    |		Store	0x2,-0x5
1c40 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1c41 e5ff       |    |		Load	0x2,-0x1
1c42 e2aa       |    |		Load	0x1,0xaa
1c43 01d7       |    |		Execute	Vector,Field_Read
1c44 e5fc       |    |		Load	0x2,-0x4
1c45 01dc       |    |		Execute	Vector,Last
1c46 e2ab       |    |		Load	0x1,0xab
1c47 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1c48 e2ac       |    |		Load	0x1,0xac
1c49 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1c4a 00d8       |    |		Load_Top	At_Offset_0
1c4b 0227       | '  |		Execute	Access,All_Reference
1c4c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1c4d a402       |    |		Store_Unchecked	0x2,0x2
1c4e e5fc       |    |		Load	0x2,-0x4
1c4f e402       |    |		Load	0x2,0x2
1c50 0227       | '  |		Execute	Access,All_Reference
1c51 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1c52 e5fe       |    |		Load	0x2,-0x2
1c53 e001       |    |		Load	0x0,0x1
1c54 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
1c55 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1c56 e031       | 1  |		Load	0x0,0x31
1c57 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
1c58 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
1c59 e402       |    |		Load	0x2,0x2
1c5a 0227       | '  |		Execute	Access,All_Reference
1c5b 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
1c5c e402       |    |		Load	0x2,0x2
1c5d a5fd       |    |		Store_Unchecked	0x2,-0x3
1c5e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1c5f 0000       |    |		.XXX[0x1]
1c60 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002831}
1c64 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002826}
1c68 ; --------------------------------------------------------------------------------------
1c68 ; SUBPROGRAM
1c68 ; --------------------------------------------------------------------------------------
1c68 1c75       | u  |		.CONST	0x1c75								; Address of begin
1c69 0004       |    |		.CONST	0x0004								; Address of exception handler
1c6a 0006       |    |		.CONST	0x0006								; Number of locals
1c6b			INIT_1c68:
1c6b 00db       |    |		Load_Top	At_Offset_3
1c6c 01dd       |    |		Execute	Vector,First
1c6d 00e2       |    |		Load_Encached	Integer_Cache
1c6e 03f1       |    |		Declare_Variable	Discrete,With_Value
1c6f 00e2       |    |		Load_Encached	Integer_Cache
1c70 e2ac       |    |		Load	0x1,0xac
1c71 0007       |    |		Action	Break_Optional
1c72 00d8       |    |		Load_Top	At_Offset_0
1c73 0007       |    |		Action	Break_Optional
1c74 e2ac       |    |		Load	0x1,0xac
1c75			BODY_1c68:
1c75 00cf       |    |		Action	Mark_Auxiliary
1c76 7870       |xp  |		Jump	0x1ce7
1c77 4800       |H   |		Short_Literal	0x0
1c78 e402       |    |		Load	0x2,0x2
1c79 e5fe       |    |		Load	0x2,-0x2
1c7a 01dc       |    |		Execute	Vector,Last
1c7b e5fe       |    |		Load	0x2,-0x2
1c7c 01cf       |    |		Execute	Vector,Slice_Read
1c7d 482c       |H,  |		Short_Literal	0x2c
1c7e e02f       | /  |		Load	0x0,0x2f
1c7f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1c80 a403       |    |		Store_Unchecked	0x2,0x3
1c81 e403       |    |		Load	0x2,0x3
1c82 7004       |p   |		Jump_Nonzero	0x1c87
1c83 e5fe       |    |		Load	0x2,-0x2
1c84 01dc       |    |		Execute	Vector,Last
1c85 0a01       |    |		Execute_Immediate	Plus,0x1
1c86 c403       |    |		Store	0x2,0x3
1c87 e402       |    |		Load	0x2,0x2
1c88 e5fe       |    |		Load	0x2,-0x2
1c89 01d7       |    |		Execute	Vector,Field_Read
1c8a 0f7e       | ~  |		Execute_Immediate	Equal,0x7e
1c8b 683a       |h:  |		Jump_Zero	0x1cc6
1c8c e5fb       |    |		Load	0x2,-0x5
1c8d e5fc       |    |		Load	0x2,-0x4
1c8e e2ac       |    |		Load	0x1,0xac
1c8f e402       |    |		Load	0x2,0x2
1c90 0a01       |    |		Execute_Immediate	Plus,0x1
1c91 00d8       |    |		Load_Top	At_Offset_0
1c92 00e2       |    |		Load_Encached	Integer_Cache
1c93 0260       | `  |		Execute	Discrete,In_Type
1c94 7001       |p   |		Jump_Nonzero	0x1c96
1c95 0801       |    |		Execute_Immediate	Raise,0x1
1c96 e403       |    |		Load	0x2,0x3
1c97 0aff       |    |		Execute_Immediate	Plus,-0x1
1c98 00d8       |    |		Load_Top	At_Offset_0
1c99 00e2       |    |		Load_Encached	Integer_Cache
1c9a 0260       | `  |		Execute	Discrete,In_Type
1c9b 7001       |p   |		Jump_Nonzero	0x1c9d
1c9c 0801       |    |		Execute_Immediate	Raise,0x1
1c9d e5fe       |    |		Load	0x2,-0x2
1c9e 01cf       |    |		Execute	Vector,Slice_Read
1c9f e5ff       |    |		Load	0x2,-0x1
1ca0 82b4       |    |		Call	0x1,0xb4
1ca1 c405       |    |		Store	0x2,0x5
1ca2 00d1       |    |		Pop_Control	Pop_Count_1
1ca3 c5fb       |    |		Store	0x2,-0x5
1ca4 4801       |H   |		Short_Literal	0x1
1ca5 e5fc       |    |		Load	0x2,-0x4
1ca6 01dc       |    |		Execute	Vector,Last
1ca7 e2ab       |    |		Load	0x1,0xab
1ca8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ca9 e2ac       |    |		Load	0x1,0xac
1caa 00d9       |    |		Load_Top	At_Offset_1
1cab 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1cac e5fc       |    |		Load	0x2,-0x4
1cad 00d9       |    |		Load_Top	At_Offset_1
1cae 00d8       |    |		Load_Top	At_Offset_0
1caf 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1cb0 00da       |    |		Load_Top	At_Offset_2
1cb1 01da       |    |		Execute	Vector,Bounds
1cb2 00da       |    |		Load_Top	At_Offset_2
1cb3 01da       |    |		Execute	Vector,Bounds
1cb4 00da       |    |		Load_Top	At_Offset_2
1cb5 027f       |    |		Execute	Discrete,Equal
1cb6 7001       |p   |		Jump_Nonzero	0x1cb8
1cb7 08e0       |    |		Execute_Immediate	Raise,0xe0
1cb8 00cd       |    |		Action	Spare6_Action
1cb9 027f       |    |		Execute	Discrete,Equal
1cba 7001       |p   |		Jump_Nonzero	0x1cbc
1cbb 08e0       |    |		Execute_Immediate	Raise,0xe0
1cbc 00d2       |    |		Pop_Control	Pop_Count_2
1cbd 00d9       |    |		Load_Top	At_Offset_1
1cbe 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1cbf 00db       |    |		Load_Top	At_Offset_3
1cc0 00d9       |    |		Load_Top	At_Offset_1
1cc1 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1cc2 e2ac       |    |		Load	0x1,0xac
1cc3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1cc4 003b       | ;  |		Store_Top	Access,At_Offset_3
1cc5 7812       |x   |		Jump	0x1cd8
1cc6 e5fb       |    |		Load	0x2,-0x5
1cc7 e5fc       |    |		Load	0x2,-0x4
1cc8 e2ac       |    |		Load	0x1,0xac
1cc9 e402       |    |		Load	0x2,0x2
1cca e403       |    |		Load	0x2,0x3
1ccb 0aff       |    |		Execute_Immediate	Plus,-0x1
1ccc 00d8       |    |		Load_Top	At_Offset_0
1ccd 00e2       |    |		Load_Encached	Integer_Cache
1cce 0260       | `  |		Execute	Discrete,In_Type
1ccf 7001       |p   |		Jump_Nonzero	0x1cd1
1cd0 0801       |    |		Execute_Immediate	Raise,0x1
1cd1 e5fe       |    |		Load	0x2,-0x2
1cd2 01cf       |    |		Execute	Vector,Slice_Read
1cd3 e5ff       |    |		Load	0x2,-0x1
1cd4 82b4       |    |		Call	0x1,0xb4
1cd5 c405       |    |		Store	0x2,0x5
1cd6 00d1       |    |		Pop_Control	Pop_Count_1
1cd7 c5fb       |    |		Store	0x2,-0x5
1cd8 00d9       |    |		Load_Top	At_Offset_1
1cd9 7003       |p   |		Jump_Nonzero	0x1cdd
1cda 00da       |    |		Load_Top	At_Offset_2
1cdb a404       |    |		Store_Unchecked	0x2,0x4
1cdc 7804       |x   |		Jump	0x1ce1
1cdd 00da       |    |		Load_Top	At_Offset_2
1cde 00da       |    |		Load_Top	At_Offset_2
1cdf 0227       | '  |		Execute	Access,All_Reference
1ce0 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1ce1 00da       |    |		Load_Top	At_Offset_2
1ce2 003a       | :  |		Store_Top	Access,At_Offset_2
1ce3 e403       |    |		Load	0x2,0x3
1ce4 0a01       |    |		Execute_Immediate	Plus,0x1
1ce5 c402       |    |		Store	0x2,0x2
1ce6 00c9       |    |		Action	Pop_Auxiliary_Loop
1ce7 e402       |    |		Load	0x2,0x2
1ce8 e5fe       |    |		Load	0x2,-0x2
1ce9 01dc       |    |		Execute	Vector,Last
1cea 027a       | z  |		Execute	Discrete,Less_Equal
1ceb 778b       |w   |		Jump_Nonzero	0x1c77
1cec 00ce       |    |		Action	Pop_Auxiliary
1ced 00da       |    |		Load_Top	At_Offset_2
1cee 00d9       |    |		Load_Top	At_Offset_1
1cef 022e       | .  |		Execute	Access,Not_Equal
1cf0 6821       |h!  |		Jump_Zero	0x1d12
1cf1 4803       |H   |		Short_Literal	0x3
1cf2 e5fc       |    |		Load	0x2,-0x4
1cf3 01dc       |    |		Execute	Vector,Last
1cf4 e2ab       |    |		Load	0x1,0xab
1cf5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1cf6 e2ac       |    |		Load	0x1,0xac
1cf7 00d9       |    |		Load_Top	At_Offset_1
1cf8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1cf9 e5fc       |    |		Load	0x2,-0x4
1cfa 00d9       |    |		Load_Top	At_Offset_1
1cfb 00d8       |    |		Load_Top	At_Offset_0
1cfc 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1cfd 00da       |    |		Load_Top	At_Offset_2
1cfe 01da       |    |		Execute	Vector,Bounds
1cff 00da       |    |		Load_Top	At_Offset_2
1d00 01da       |    |		Execute	Vector,Bounds
1d01 00da       |    |		Load_Top	At_Offset_2
1d02 027f       |    |		Execute	Discrete,Equal
1d03 7001       |p   |		Jump_Nonzero	0x1d05
1d04 08e0       |    |		Execute_Immediate	Raise,0xe0
1d05 00cd       |    |		Action	Spare6_Action
1d06 027f       |    |		Execute	Discrete,Equal
1d07 7001       |p   |		Jump_Nonzero	0x1d09
1d08 08e0       |    |		Execute_Immediate	Raise,0xe0
1d09 00d2       |    |		Pop_Control	Pop_Count_2
1d0a 00d9       |    |		Load_Top	At_Offset_1
1d0b 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1d0c 00db       |    |		Load_Top	At_Offset_3
1d0d 00d9       |    |		Load_Top	At_Offset_1
1d0e 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1d0f e2ac       |    |		Load	0x1,0xac
1d10 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1d11 003b       | ;  |		Store_Top	Access,At_Offset_3
1d12 00da       |    |		Load_Top	At_Offset_2
1d13 a5fd       |    |		Store_Unchecked	0x2,-0x3
1d14 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1d15 0000 0000  |    |		.XXX[0x3]
1d17 0000       |    |
1d18 ; --------------------------------------------------------------------------------------
1d18 ; SUBPROGRAM
1d18 ; --------------------------------------------------------------------------------------
1d18 1d20       |    |		.CONST	0x1d20								; Address of begin
1d19 0004       |    |		.CONST	0x0004								; Address of exception handler
1d1a 0003       |    |		.CONST	0x0003								; Number of locals
1d1b			INIT_1d18:
1d1b 00da       |    |		Load_Top	At_Offset_2
1d1c 01dd       |    |		Execute	Vector,First
1d1d 00e2       |    |		Load_Encached	Integer_Cache
1d1e 03f1       |    |		Declare_Variable	Discrete,With_Value
1d1f 00e2       |    |		Load_Encached	Integer_Cache
1d20			BODY_1d18:
1d20 e5fe       |    |		Load	0x2,-0x2
1d21 01da       |    |		Execute	Vector,Bounds
1d22 e00c       |    |		Load	0x0,0xc
1d23 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1d24 035b       | [  |		Declare_Type	Array,Constrained
1d25 0337       | 7  |		Declare_Variable	Array
1d26 00d8       |    |		Load_Top	At_Offset_0
1d27 01d9       |    |		Execute	Vector,Reverse_Bounds
1d28 0263       | c  |		Execute	Discrete,Above_Bound
1d29 7005       |p   |		Jump_Nonzero	0x1d2f
1d2a 4800       |H   |		Short_Literal	0x0
1d2b 00d9       |    |		Load_Top	At_Offset_1
1d2c e404       |    |		Load	0x2,0x4
1d2d 01d6       |    |		Execute	Vector,Field_Write
1d2e 3ffb       |?   |		Loop_Increasing	0x1d2a
1d2f e5fe       |    |		Load	0x2,-0x2
1d30 01d4       |    |		Execute	Vector,Structure_Write
1d31 00cf       |    |		Action	Mark_Auxiliary
1d32 7859       |xY  |		Jump	0x1d8c
1d33 4800       |H   |		Short_Literal	0x0
1d34 00db       |    |		Load_Top	At_Offset_3
1d35 e5ff       |    |		Load	0x2,-0x1
1d36 01dc       |    |		Execute	Vector,Last
1d37 e5ff       |    |		Load	0x2,-0x1
1d38 01cf       |    |		Execute	Vector,Slice_Read
1d39 482c       |H,  |		Short_Literal	0x2c
1d3a e02f       | /  |		Load	0x0,0x2f
1d3b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1d3c 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1d3d 00d9       |    |		Load_Top	At_Offset_1
1d3e 7004       |p   |		Jump_Nonzero	0x1d43
1d3f e5ff       |    |		Load	0x2,-0x1
1d40 01dc       |    |		Execute	Vector,Last
1d41 0a01       |    |		Execute_Immediate	Plus,0x1
1d42 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1d43 00cf       |    |		Action	Mark_Auxiliary
1d44 e5fe       |    |		Load	0x2,-0x2
1d45 01d9       |    |		Execute	Vector,Reverse_Bounds
1d46 0263       | c  |		Execute	Discrete,Above_Bound
1d47 703f       |p?  |		Jump_Nonzero	0x1d87
1d48 4800       |H   |		Short_Literal	0x0
1d49 e402       |    |		Load	0x2,0x2
1d4a e403       |    |		Load	0x2,0x3
1d4b 0aff       |    |		Execute_Immediate	Plus,-0x1
1d4c 00d8       |    |		Load_Top	At_Offset_0
1d4d 00e2       |    |		Load_Encached	Integer_Cache
1d4e 0260       | `  |		Execute	Discrete,In_Type
1d4f 7001       |p   |		Jump_Nonzero	0x1d51
1d50 0801       |    |		Execute_Immediate	Raise,0x1
1d51 e5ff       |    |		Load	0x2,-0x1
1d52 01cf       |    |		Execute	Vector,Slice_Read
1d53 00da       |    |		Load_Top	At_Offset_2
1d54 e00c       |    |		Load	0x0,0xc
1d55 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1d56 e02f       | /  |		Load	0x0,0x2f
1d57 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1d58 6806       |h   |		Jump_Zero	0x1d5f
1d59 4801       |H   |		Short_Literal	0x1
1d5a 00d9       |    |		Load_Top	At_Offset_1
1d5b e5fe       |    |		Load	0x2,-0x2
1d5c 01d6       |    |		Execute	Vector,Field_Write
1d5d 00d2       |    |		Pop_Control	Pop_Count_2
1d5e 7828       |x(  |		Jump	0x1d87
1d5f 00d8       |    |		Load_Top	At_Offset_0
1d60 e5fe       |    |		Load	0x2,-0x2
1d61 01dc       |    |		Execute	Vector,Last
1d62 027f       |    |		Execute	Discrete,Equal
1d63 6821       |h!  |		Jump_Zero	0x1d85
1d64 e002       |    |		Load	0x0,0x2
1d65 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1d66 4801       |H   |		Short_Literal	0x1
1d67 4802       |H   |		Short_Literal	0x2
1d68 e00e       |    |		Load	0x0,0xe
1d69 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1d6a 035b       | [  |		Declare_Type	Array,Constrained
1d6b 0337       | 7  |		Declare_Variable	Array
1d6c e402       |    |		Load	0x2,0x2
1d6d e403       |    |		Load	0x2,0x3
1d6e 0aff       |    |		Execute_Immediate	Plus,-0x1
1d6f 00d8       |    |		Load_Top	At_Offset_0
1d70 00e2       |    |		Load_Encached	Integer_Cache
1d71 0260       | `  |		Execute	Discrete,In_Type
1d72 7001       |p   |		Jump_Nonzero	0x1d74
1d73 0801       |    |		Execute_Immediate	Raise,0x1
1d74 e5ff       |    |		Load	0x2,-0x1
1d75 01cf       |    |		Execute	Vector,Slice_Read
1d76 e00e       |    |		Load	0x0,0xe
1d77 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1d78 4801       |H   |		Short_Literal	0x1
1d79 00da       |    |		Load_Top	At_Offset_2
1d7a 01d6       |    |		Execute	Vector,Field_Write
1d7b e5ff       |    |		Load	0x2,-0x1
1d7c e00e       |    |		Load	0x0,0xe
1d7d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1d7e 4802       |H   |		Short_Literal	0x2
1d7f 00da       |    |		Load_Top	At_Offset_2
1d80 01d6       |    |		Execute	Vector,Field_Write
1d81 6012       |`   |		Indirect_Literal	Discrete,0x1d94,{0x00000000, 0x00002824}
1d82 e002       |    |		Load	0x0,0x2
1d83 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1d84 c5fd       |    |		Store	0x2,-0x3
1d85 00c8       |    |		Action	Pop_Auxiliary_Range
1d86 3fc1       |?   |		Loop_Increasing	0x1d48
1d87 00ce       |    |		Action	Pop_Auxiliary
1d88 00d9       |    |		Load_Top	At_Offset_1
1d89 0a01       |    |		Execute_Immediate	Plus,0x1
1d8a 005b       | [  |		Store_Top	Discrete,At_Offset_3
1d8b 00c9       |    |		Action	Pop_Auxiliary_Loop
1d8c 00da       |    |		Load_Top	At_Offset_2
1d8d e5ff       |    |		Load	0x2,-0x1
1d8e 01dc       |    |		Execute	Vector,Last
1d8f 027a       | z  |		Execute	Discrete,Less_Equal
1d90 77a2       |w   |		Jump_Nonzero	0x1d33
1d91 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1d92 0000 0000  |    |		.XXX[0x2]
1d94 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002824}
1d98 ; --------------------------------------------------------------------------------------
1d98 ; SUBPROGRAM
1d98 ; --------------------------------------------------------------------------------------
1d98 1dc9       |    |		.CONST	0x1dc9								; Address of begin
1d99 0004       |    |		.CONST	0x0004								; Address of exception handler
1d9a 0010       |    |		.CONST	0x0010								; Number of locals
1d9b			INIT_1d98:
1d9b 00da       |    |		Load_Top	At_Offset_2
1d9c 8032       | 2  |		Call	0x0,0x32
1d9d 82b3       |    |		Call	0x1,0xb3
1d9e 4800       |H   |		Short_Literal	0x0
1d9f 00d9       |    |		Load_Top	At_Offset_1
1da0 0092 2c12  |  , |		Action	Push_String_Extended,0x2c12					; "'"
1da2 e02f       | /  |		Load	0x0,0x2f
1da3 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1da4 00e2       |    |		Load_Encached	Integer_Cache
1da5 03f1       |    |		Declare_Variable	Discrete,With_Value
1da6 00d9       |    |		Load_Top	At_Offset_1
1da7 01dc       |    |		Execute	Vector,Last
1da8 0a01       |    |		Execute_Immediate	Plus,0x1
1da9 00e2       |    |		Load_Encached	Integer_Cache
1daa 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1dab 00e2       |    |		Load_Encached	Integer_Cache
1dac 00e2       |    |		Load_Encached	Integer_Cache
1dad 00e2       |    |		Load_Encached	Integer_Cache
1dae e29b       |    |		Load	0x1,0x9b
1daf 0007       |    |		Action	Break_Optional
1db0 00e1       |    |		Load_Encached	Boolean_Cache
1db1 00e1       |    |		Load_Encached	Boolean_Cache
1db2 e2ac       |    |		Load	0x1,0xac
1db3 0007       |    |		Action	Break_Optional
1db4 00d8       |    |		Load_Top	At_Offset_0
1db5 0007       |    |		Action	Break_Optional
1db6 e2ac       |    |		Load	0x1,0xac
1db7 0007       |    |		Action	Break_Optional
1db8 4800       |H   |		Short_Literal	0x0
1db9 e00c       |    |		Load	0x0,0xc
1dba 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1dbb 01dc       |    |		Execute	Vector,Last
1dbc e00c       |    |		Load	0x0,0xc
1dbd 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1dbe 035b       | [  |		Declare_Type	Array,Constrained
1dbf 0337       | 7  |		Declare_Variable	Array
1dc0 e00c       |    |		Load	0x0,0xc
1dc1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1dc2 00d9       |    |		Load_Top	At_Offset_1
1dc3 01d4       |    |		Execute	Vector,Structure_Write
1dc4 e002       |    |		Load	0x0,0x2
1dc5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1dc6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1dc7 00e1       |    |		Load_Encached	Boolean_Cache
1dc8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1dc9			BODY_1d98:
1dc9 e403       |    |		Load	0x2,0x3
1dca 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1dcb 697c       |i|  |		Jump_Zero	0x1f48
1dcc 00cf       |    |		Action	Mark_Auxiliary
1dcd 7917       |y   |		Jump	0x1ee5
1dce e403       |    |		Load	0x2,0x3
1dcf 0a01       |    |		Execute_Immediate	Plus,0x1
1dd0 c403       |    |		Store	0x2,0x3
1dd1 4800       |H   |		Short_Literal	0x0
1dd2 e403       |    |		Load	0x2,0x3
1dd3 e402       |    |		Load	0x2,0x2
1dd4 01dc       |    |		Execute	Vector,Last
1dd5 e402       |    |		Load	0x2,0x2
1dd6 01cf       |    |		Execute	Vector,Slice_Read
1dd7 4827       |H'  |		Short_Literal	0x27
1dd8 e02f       | /  |		Load	0x0,0x2f
1dd9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1dda a407       |    |		Store_Unchecked	0x2,0x7
1ddb e407       |    |		Load	0x2,0x7
1ddc 7004       |p   |		Jump_Nonzero	0x1de1
1ddd e402       |    |		Load	0x2,0x2
1dde 01dc       |    |		Execute	Vector,Last
1ddf 0a01       |    |		Execute_Immediate	Plus,0x1
1de0 c407       |    |		Store	0x2,0x7
1de1 4800       |H   |		Short_Literal	0x0
1de2 e403       |    |		Load	0x2,0x3
1de3 e407       |    |		Load	0x2,0x7
1de4 0aff       |    |		Execute_Immediate	Plus,-0x1
1de5 00d8       |    |		Load_Top	At_Offset_0
1de6 00e2       |    |		Load_Encached	Integer_Cache
1de7 0260       | `  |		Execute	Discrete,In_Type
1de8 7001       |p   |		Jump_Nonzero	0x1dea
1de9 0801       |    |		Execute_Immediate	Raise,0x1
1dea e402       |    |		Load	0x2,0x2
1deb 01cf       |    |		Execute	Vector,Slice_Read
1dec 0092 2c13  |  , |		Action	Push_String_Extended,0x2c13					; "("
1dee e02f       | /  |		Load	0x0,0x2f
1def 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1df0 a405       |    |		Store_Unchecked	0x2,0x5
1df1 e405       |    |		Load	0x2,0x5
1df2 7006       |p   |		Jump_Nonzero	0x1df9
1df3 e407       |    |		Load	0x2,0x7
1df4 a405       |    |		Store_Unchecked	0x2,0x5
1df5 e405       |    |		Load	0x2,0x5
1df6 0aff       |    |		Execute_Immediate	Plus,-0x1
1df7 c406       |    |		Store	0x2,0x6
1df8 7808       |x   |		Jump	0x1e01
1df9 e407       |    |		Load	0x2,0x7
1dfa 0aff       |    |		Execute_Immediate	Plus,-0x1
1dfb c406       |    |		Store	0x2,0x6
1dfc e406       |    |		Load	0x2,0x6
1dfd e402       |    |		Load	0x2,0x2
1dfe 01d7       |    |		Execute	Vector,Field_Read
1dff 0e29       | )  |		Execute_Immediate	Not_Equal,0x29
1e00 70ee       |p   |		Jump_Nonzero	0x1eef
1e01 00e1       |    |		Load_Encached	Boolean_Cache
1e02 00e1       |    |		Load_Encached	Boolean_Cache
1e03 e2a2       |    |		Load	0x1,0xa2
1e04 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1e05 e403       |    |		Load	0x2,0x3
1e06 e405       |    |		Load	0x2,0x5
1e07 0aff       |    |		Execute_Immediate	Plus,-0x1
1e08 00d8       |    |		Load_Top	At_Offset_0
1e09 00e2       |    |		Load_Encached	Integer_Cache
1e0a 0260       | `  |		Execute	Discrete,In_Type
1e0b 7001       |p   |		Jump_Nonzero	0x1e0d
1e0c 0801       |    |		Execute_Immediate	Raise,0x1
1e0d e402       |    |		Load	0x2,0x2
1e0e 01cf       |    |		Execute	Vector,Slice_Read
1e0f e2a2       |    |		Load	0x1,0xa2
1e10 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1e11 c408       |    |		Store	0x2,0x8
1e12 c409       |    |		Store	0x2,0x9
1e13 c40a       |    |		Store	0x2,0xa
1e14 e409       |    |		Load	0x2,0x9
1e15 7029       |p)  |		Jump_Nonzero	0x1e3f
1e16 e40a       |    |		Load	0x2,0xa
1e17 7027       |p'  |		Jump_Nonzero	0x1e3f
1e18 e404       |    |		Load	0x2,0x4
1e19 e402       |    |		Load	0x2,0x2
1e1a 01dc       |    |		Execute	Vector,Last
1e1b 027a       | z  |		Execute	Discrete,Less_Equal
1e1c 68c4       |h   |		Jump_Zero	0x1ee1
1e1d e002       |    |		Load	0x0,0x2
1e1e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1e1f 4801       |H   |		Short_Literal	0x1
1e20 4802       |H   |		Short_Literal	0x2
1e21 e00e       |    |		Load	0x0,0xe
1e22 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1e23 035b       | [  |		Declare_Type	Array,Constrained
1e24 0337       | 7  |		Declare_Variable	Array
1e25 e403       |    |		Load	0x2,0x3
1e26 e405       |    |		Load	0x2,0x5
1e27 0aff       |    |		Execute_Immediate	Plus,-0x1
1e28 00d8       |    |		Load_Top	At_Offset_0
1e29 00e2       |    |		Load_Encached	Integer_Cache
1e2a 0260       | `  |		Execute	Discrete,In_Type
1e2b 7001       |p   |		Jump_Nonzero	0x1e2d
1e2c 0801       |    |		Execute_Immediate	Raise,0x1
1e2d e402       |    |		Load	0x2,0x2
1e2e 01cf       |    |		Execute	Vector,Slice_Read
1e2f e00e       |    |		Load	0x0,0xe
1e30 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e31 4801       |H   |		Short_Literal	0x1
1e32 00da       |    |		Load_Top	At_Offset_2
1e33 01d6       |    |		Execute	Vector,Field_Write
1e34 e5ff       |    |		Load	0x2,-0x1
1e35 e00e       |    |		Load	0x0,0xe
1e36 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e37 4802       |H   |		Short_Literal	0x2
1e38 00da       |    |		Load_Top	At_Offset_2
1e39 01d6       |    |		Execute	Vector,Field_Write
1e3a 6141       |aA  |		Indirect_Literal	Discrete,0x1f7c,{0x00000000, 0x00002821}
1e3b e002       |    |		Load	0x0,0x2
1e3c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1e3d 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e3e 78a2       |x   |		Jump	0x1ee1
1e3f e404       |    |		Load	0x2,0x4
1e40 e402       |    |		Load	0x2,0x2
1e41 01dc       |    |		Execute	Vector,Last
1e42 027a       | z  |		Execute	Discrete,Less_Equal
1e43 7004       |p   |		Jump_Nonzero	0x1e48
1e44 e408       |    |		Load	0x2,0x8
1e45 e29c       |    |		Load	0x1,0x9c
1e46 025f       | _  |		Execute	Discrete,Not_In_Type
1e47 6899       |h   |		Jump_Zero	0x1ee1
1e48 e404       |    |		Load	0x2,0x4
1e49 e402       |    |		Load	0x2,0x2
1e4a 01dc       |    |		Execute	Vector,Last
1e4b 027d       | }  |		Execute	Discrete,Greater
1e4c 6803       |h   |		Jump_Zero	0x1e50
1e4d e403       |    |		Load	0x2,0x3
1e4e 0aff       |    |		Execute_Immediate	Plus,-0x1
1e4f c404       |    |		Store	0x2,0x4
1e50 e409       |    |		Load	0x2,0x9
1e51 681e       |h   |		Jump_Zero	0x1e70
1e52 e40a       |    |		Load	0x2,0xa
1e53 701c       |p   |		Jump_Nonzero	0x1e70
1e54 e002       |    |		Load	0x0,0x2
1e55 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1e56 4801       |H   |		Short_Literal	0x1
1e57 4802       |H   |		Short_Literal	0x2
1e58 e00e       |    |		Load	0x0,0xe
1e59 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1e5a 035b       | [  |		Declare_Type	Array,Constrained
1e5b 0337       | 7  |		Declare_Variable	Array
1e5c e403       |    |		Load	0x2,0x3
1e5d e406       |    |		Load	0x2,0x6
1e5e e402       |    |		Load	0x2,0x2
1e5f 01cf       |    |		Execute	Vector,Slice_Read
1e60 e00e       |    |		Load	0x0,0xe
1e61 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e62 4801       |H   |		Short_Literal	0x1
1e63 00da       |    |		Load_Top	At_Offset_2
1e64 01d6       |    |		Execute	Vector,Field_Write
1e65 e5ff       |    |		Load	0x2,-0x1
1e66 e00e       |    |		Load	0x0,0xe
1e67 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e68 4802       |H   |		Short_Literal	0x2
1e69 00da       |    |		Load_Top	At_Offset_2
1e6a 01d6       |    |		Execute	Vector,Field_Write
1e6b 610c       |a   |		Indirect_Literal	Discrete,0x1f78,{0x00000000, 0x00002830}
1e6c e002       |    |		Load	0x0,0x2
1e6d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1e6e 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e6f 7871       |xq  |		Jump	0x1ee1
1e70 e408       |    |		Load	0x2,0x8
1e71 4802       |H   |		Short_Literal	0x2
1e72 4803       |H   |		Short_Literal	0x3
1e73 0262       | b  |		Execute	Discrete,In_Range
1e74 e405       |    |		Load	0x2,0x5
1e75 e406       |    |		Load	0x2,0x6
1e76 027d       | }  |		Execute	Discrete,Greater
1e77 027e       | ~  |		Execute	Discrete,Not_Equal
1e78 681c       |h   |		Jump_Zero	0x1e95
1e79 e002       |    |		Load	0x0,0x2
1e7a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1e7b 4801       |H   |		Short_Literal	0x1
1e7c 4802       |H   |		Short_Literal	0x2
1e7d e00e       |    |		Load	0x0,0xe
1e7e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1e7f 035b       | [  |		Declare_Type	Array,Constrained
1e80 0337       | 7  |		Declare_Variable	Array
1e81 e403       |    |		Load	0x2,0x3
1e82 e406       |    |		Load	0x2,0x6
1e83 e402       |    |		Load	0x2,0x2
1e84 01cf       |    |		Execute	Vector,Slice_Read
1e85 e00e       |    |		Load	0x0,0xe
1e86 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e87 4801       |H   |		Short_Literal	0x1
1e88 00da       |    |		Load_Top	At_Offset_2
1e89 01d6       |    |		Execute	Vector,Field_Write
1e8a e5ff       |    |		Load	0x2,-0x1
1e8b e00e       |    |		Load	0x0,0xe
1e8c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e8d 4802       |H   |		Short_Literal	0x2
1e8e 00da       |    |		Load_Top	At_Offset_2
1e8f 01d6       |    |		Execute	Vector,Field_Write
1e90 60e3       |`   |		Indirect_Literal	Discrete,0x1f74,{0x00000000, 0x00002823}
1e91 e002       |    |		Load	0x0,0x2
1e92 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1e93 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e94 784c       |xL  |		Jump	0x1ee1
1e95 e408       |    |		Load	0x2,0x8
1e96 0f04       |    |		Execute_Immediate	Equal,0x4
1e97 6818       |h   |		Jump_Zero	0x1eb0
1e98 4801       |H   |		Short_Literal	0x1
1e99 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1e9a 00da       |    |		Load_Top	At_Offset_2
1e9b e40e       |    |		Load	0x2,0xe
1e9c e405       |    |		Load	0x2,0x5
1e9d 0a01       |    |		Execute_Immediate	Plus,0x1
1e9e 00d8       |    |		Load_Top	At_Offset_0
1e9f 00e2       |    |		Load_Encached	Integer_Cache
1ea0 0260       | `  |		Execute	Discrete,In_Type
1ea1 7001       |p   |		Jump_Nonzero	0x1ea3
1ea2 0801       |    |		Execute_Immediate	Raise,0x1
1ea3 e406       |    |		Load	0x2,0x6
1ea4 0aff       |    |		Execute_Immediate	Plus,-0x1
1ea5 00d8       |    |		Load_Top	At_Offset_0
1ea6 00e2       |    |		Load_Encached	Integer_Cache
1ea7 0260       | `  |		Execute	Discrete,In_Type
1ea8 7001       |p   |		Jump_Nonzero	0x1eaa
1ea9 0801       |    |		Execute_Immediate	Raise,0x1
1eaa e402       |    |		Load	0x2,0x2
1eab 01cf       |    |		Execute	Vector,Slice_Read
1eac 82b6       |    |		Call	0x1,0xb6
1ead 00d1       |    |		Pop_Control	Pop_Count_1
1eae 005b       | [  |		Store_Top	Discrete,At_Offset_3
1eaf 7831       |x1  |		Jump	0x1ee1
1eb0 e405       |    |		Load	0x2,0x5
1eb1 e406       |    |		Load	0x2,0x6
1eb2 027d       | }  |		Execute	Discrete,Greater
1eb3 680a       |h   |		Jump_Zero	0x1ebe
1eb4 00da       |    |		Load_Top	At_Offset_2
1eb5 e40e       |    |		Load	0x2,0xe
1eb6 e2ac       |    |		Load	0x1,0xac
1eb7 00ea       |    |		Load_Encached	Null_String_Cache
1eb8 e408       |    |		Load	0x2,0x8
1eb9 82b4       |    |		Call	0x1,0xb4
1eba c40c       |    |		Store	0x2,0xc
1ebb 00d1       |    |		Pop_Control	Pop_Count_1
1ebc 005b       | [  |		Store_Top	Discrete,At_Offset_3
1ebd 7818       |x   |		Jump	0x1ed6
1ebe 00da       |    |		Load_Top	At_Offset_2
1ebf e40e       |    |		Load	0x2,0xe
1ec0 e2ac       |    |		Load	0x1,0xac
1ec1 e405       |    |		Load	0x2,0x5
1ec2 0a01       |    |		Execute_Immediate	Plus,0x1
1ec3 00d8       |    |		Load_Top	At_Offset_0
1ec4 00e2       |    |		Load_Encached	Integer_Cache
1ec5 0260       | `  |		Execute	Discrete,In_Type
1ec6 7001       |p   |		Jump_Nonzero	0x1ec8
1ec7 0801       |    |		Execute_Immediate	Raise,0x1
1ec8 e406       |    |		Load	0x2,0x6
1ec9 0aff       |    |		Execute_Immediate	Plus,-0x1
1eca 00d8       |    |		Load_Top	At_Offset_0
1ecb 00e2       |    |		Load_Encached	Integer_Cache
1ecc 0260       | `  |		Execute	Discrete,In_Type
1ecd 7001       |p   |		Jump_Nonzero	0x1ecf
1ece 0801       |    |		Execute_Immediate	Raise,0x1
1ecf e402       |    |		Load	0x2,0x2
1ed0 01cf       |    |		Execute	Vector,Slice_Read
1ed1 e408       |    |		Load	0x2,0x8
1ed2 82b5       |    |		Call	0x1,0xb5
1ed3 c40c       |    |		Store	0x2,0xc
1ed4 00d1       |    |		Pop_Control	Pop_Count_1
1ed5 005b       | [  |		Store_Top	Discrete,At_Offset_3
1ed6 e40d       |    |		Load	0x2,0xd
1ed7 7003       |p   |		Jump_Nonzero	0x1edb
1ed8 e40c       |    |		Load	0x2,0xc
1ed9 a40b       |    |		Store_Unchecked	0x2,0xb
1eda 7804       |x   |		Jump	0x1edf
1edb e40c       |    |		Load	0x2,0xc
1edc e40d       |    |		Load	0x2,0xd
1edd 0227       | '  |		Execute	Access,All_Reference
1ede 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1edf e40c       |    |		Load	0x2,0xc
1ee0 a40d       |    |		Store_Unchecked	0x2,0xd
1ee1 e406       |    |		Load	0x2,0x6
1ee2 0a01       |    |		Execute_Immediate	Plus,0x1
1ee3 c403       |    |		Store	0x2,0x3
1ee4 00c9       |    |		Action	Pop_Auxiliary_Loop
1ee5 e403       |    |		Load	0x2,0x3
1ee6 e402       |    |		Load	0x2,0x2
1ee7 01dc       |    |		Execute	Vector,Last
1ee8 027c       | |  |		Execute	Discrete,Less
1ee9 6805       |h   |		Jump_Zero	0x1eef
1eea e403       |    |		Load	0x2,0x3
1eeb e402       |    |		Load	0x2,0x2
1eec 01d7       |    |		Execute	Vector,Field_Read
1eed 0f27       | '  |		Execute_Immediate	Equal,0x27
1eee 76df       |v   |		Jump_Nonzero	0x1dce
1eef 00ce       |    |		Action	Pop_Auxiliary
1ef0 e403       |    |		Load	0x2,0x3
1ef1 e402       |    |		Load	0x2,0x2
1ef2 01dc       |    |		Execute	Vector,Last
1ef3 027c       | |  |		Execute	Discrete,Less
1ef4 6826       |h&  |		Jump_Zero	0x1f1b
1ef5 e002       |    |		Load	0x0,0x2
1ef6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1ef7 4801       |H   |		Short_Literal	0x1
1ef8 4802       |H   |		Short_Literal	0x2
1ef9 e00e       |    |		Load	0x0,0xe
1efa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1efb 035b       | [  |		Declare_Type	Array,Constrained
1efc 0337       | 7  |		Declare_Variable	Array
1efd 4801       |H   |		Short_Literal	0x1
1efe e403       |    |		Load	0x2,0x3
1eff 0aff       |    |		Execute_Immediate	Plus,-0x1
1f00 00d8       |    |		Load_Top	At_Offset_0
1f01 00e2       |    |		Load_Encached	Integer_Cache
1f02 0260       | `  |		Execute	Discrete,In_Type
1f03 7001       |p   |		Jump_Nonzero	0x1f05
1f04 0801       |    |		Execute_Immediate	Raise,0x1
1f05 e402       |    |		Load	0x2,0x2
1f06 01cf       |    |		Execute	Vector,Slice_Read
1f07 e00e       |    |		Load	0x0,0xe
1f08 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1f09 4801       |H   |		Short_Literal	0x1
1f0a 00da       |    |		Load_Top	At_Offset_2
1f0b 01d6       |    |		Execute	Vector,Field_Write
1f0c e403       |    |		Load	0x2,0x3
1f0d e402       |    |		Load	0x2,0x2
1f0e 01dc       |    |		Execute	Vector,Last
1f0f e402       |    |		Load	0x2,0x2
1f10 01cf       |    |		Execute	Vector,Slice_Read
1f11 e00e       |    |		Load	0x0,0xe
1f12 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1f13 4802       |H   |		Short_Literal	0x2
1f14 00da       |    |		Load_Top	At_Offset_2
1f15 01d6       |    |		Execute	Vector,Field_Write
1f16 6059       |`Y  |		Indirect_Literal	Discrete,0x1f70,{0x00000000, 0x0000281e}
1f17 e002       |    |		Load	0x0,0x2
1f18 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1f19 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1f1a 782d       |x-  |		Jump	0x1f48
1f1b e40b       |    |		Load	0x2,0xb
1f1c e40d       |    |		Load	0x2,0xd
1f1d 022e       | .  |		Execute	Access,Not_Equal
1f1e 6822       |h"  |		Jump_Zero	0x1f41
1f1f 4802       |H   |		Short_Literal	0x2
1f20 00db       |    |		Load_Top	At_Offset_3
1f21 01dc       |    |		Execute	Vector,Last
1f22 e2ab       |    |		Load	0x1,0xab
1f23 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1f24 e2ac       |    |		Load	0x1,0xac
1f25 00d9       |    |		Load_Top	At_Offset_1
1f26 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1f27 00db       |    |		Load_Top	At_Offset_3
1f28 00d9       |    |		Load_Top	At_Offset_1
1f29 00d8       |    |		Load_Top	At_Offset_0
1f2a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1f2b 00da       |    |		Load_Top	At_Offset_2
1f2c 01da       |    |		Execute	Vector,Bounds
1f2d 00da       |    |		Load_Top	At_Offset_2
1f2e 01da       |    |		Execute	Vector,Bounds
1f2f 00da       |    |		Load_Top	At_Offset_2
1f30 027f       |    |		Execute	Discrete,Equal
1f31 7001       |p   |		Jump_Nonzero	0x1f33
1f32 08e0       |    |		Execute_Immediate	Raise,0xe0
1f33 00cd       |    |		Action	Spare6_Action
1f34 027f       |    |		Execute	Discrete,Equal
1f35 7001       |p   |		Jump_Nonzero	0x1f37
1f36 08e0       |    |		Execute_Immediate	Raise,0xe0
1f37 00d2       |    |		Pop_Control	Pop_Count_2
1f38 00d9       |    |		Load_Top	At_Offset_1
1f39 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1f3a e40b       |    |		Load	0x2,0xb
1f3b 00d9       |    |		Load_Top	At_Offset_1
1f3c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1f3d e2ac       |    |		Load	0x1,0xac
1f3e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1f3f a40b       |    |		Store_Unchecked	0x2,0xb
1f40 7807       |x   |		Jump	0x1f48
1f41 e40b       |    |		Load	0x2,0xb
1f42 7005       |p   |		Jump_Nonzero	0x1f48
1f43 00d8       |    |		Load_Top	At_Offset_0
1f44 6803       |h   |		Jump_Zero	0x1f48
1f45 0092 2c14  |  , |		Action	Push_String_Extended,0x2c14					; "Warning: ON_MACHINES query attribute will be ignored."
1f47 801d       |    |		Call	0x0,0x1d
1f48 e404       |    |		Load	0x2,0x4
1f49 0aff       |    |		Execute_Immediate	Plus,-0x1
1f4a e2ad       |    |		Load	0x1,0xad
1f4b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1f4c 00da       |    |		Load_Top	At_Offset_2
1f4d 00d9       |    |		Load_Top	At_Offset_1
1f4e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1f4f 4801       |H   |		Short_Literal	0x1
1f50 e404       |    |		Load	0x2,0x4
1f51 0aff       |    |		Execute_Immediate	Plus,-0x1
1f52 00d8       |    |		Load_Top	At_Offset_0
1f53 00e2       |    |		Load_Encached	Integer_Cache
1f54 0260       | `  |		Execute	Discrete,In_Type
1f55 7001       |p   |		Jump_Nonzero	0x1f57
1f56 0801       |    |		Execute_Immediate	Raise,0x1
1f57 e402       |    |		Load	0x2,0x2
1f58 01cf       |    |		Execute	Vector,Slice_Read
1f59 00d9       |    |		Load_Top	At_Offset_1
1f5a 00d8       |    |		Load_Top	At_Offset_0
1f5b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1f5c 00da       |    |		Load_Top	At_Offset_2
1f5d 01da       |    |		Execute	Vector,Bounds
1f5e 00da       |    |		Load_Top	At_Offset_2
1f5f 01da       |    |		Execute	Vector,Bounds
1f60 00da       |    |		Load_Top	At_Offset_2
1f61 027f       |    |		Execute	Discrete,Equal
1f62 7001       |p   |		Jump_Nonzero	0x1f64
1f63 08e0       |    |		Execute_Immediate	Raise,0xe0
1f64 00cd       |    |		Action	Spare6_Action
1f65 027f       |    |		Execute	Discrete,Equal
1f66 7001       |p   |		Jump_Nonzero	0x1f68
1f67 08e0       |    |		Execute_Immediate	Raise,0xe0
1f68 00d2       |    |		Pop_Control	Pop_Count_2
1f69 00d9       |    |		Load_Top	At_Offset_1
1f6a 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1f6b e40b       |    |		Load	0x2,0xb
1f6c 00d9       |    |		Load_Top	At_Offset_1
1f6d 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1f6e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1f6f 0000       |    |		.XXX[0x1]
1f70 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281e}
1f74 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002823}
1f78 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002830}
1f7c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002821}
1f80 ; --------------------------------------------------------------------------------------
1f80 ; SUBPROGRAM
1f80 ; --------------------------------------------------------------------------------------
1f80 1f83       |    |		.CONST	0x1f83								; Address of begin
1f81 0004       |    |		.CONST	0x0004								; Address of exception handler
1f82 0001       |    |		.CONST	0x0001								; Number of locals
1f83			BODY_1f80:
1f83			INIT_1f80:
1f83 00da       |    |		Load_Top	At_Offset_2
1f84 e5fe       |    |		Load	0x2,-0x2
1f85 0227       | '  |		Execute	Access,All_Reference
1f86 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1f87 e004       |    |		Load	0x0,0x4
1f88 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1f89 6807       |h   |		Jump_Zero	0x1f91
1f8a 00db       |    |		Load_Top	At_Offset_3
1f8b 0227       | '  |		Execute	Access,All_Reference
1f8c 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
1f8d 00db       |    |		Load_Top	At_Offset_3
1f8e e004       |    |		Load	0x0,0x4
1f8f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1f90 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1f91 4800       |H   |		Short_Literal	0x0
1f92 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1f93 0000 0000  |    |		.BLANK	0000[0x5]
1f98 ; --------------------------------------------------------------------------------------
1f98 ; SUBPROGRAM
1f98 ; --------------------------------------------------------------------------------------
1f98 1f9b       |    |		.CONST	0x1f9b								; Address of begin
1f99 0004       |    |		.CONST	0x0004								; Address of exception handler
1f9a 0001       |    |		.CONST	0x0001								; Number of locals
1f9b			BODY_1f98:
1f9b			INIT_1f98:
1f9b 00db       |    |		Load_Top	At_Offset_3
1f9c 0227       | '  |		Execute	Access,All_Reference
1f9d 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
1f9e 00db       |    |		Load_Top	At_Offset_3
1f9f 027a       | z  |		Execute	Discrete,Less_Equal
1fa0 6806       |h   |		Jump_Zero	0x1fa7
1fa1 00da       |    |		Load_Top	At_Offset_2
1fa2 e5fe       |    |		Load	0x2,-0x2
1fa3 0227       | '  |		Execute	Access,All_Reference
1fa4 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
1fa5 027a       | z  |		Execute	Discrete,Less_Equal
1fa6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1fa7 4800       |H   |		Short_Literal	0x0
1fa8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1fa9 0000 0000  |    |		.BLANK	0000[0x7]
1fb0 ; --------------------------------------------------------------------------------------
1fb0 ; SUBPROGRAM
1fb0 ; --------------------------------------------------------------------------------------
1fb0 1fc8       |    |		.CONST	0x1fc8								; Address of begin
1fb1 0004       |    |		.CONST	0x0004								; Address of exception handler
1fb2 0008       |    |		.CONST	0x0008								; Number of locals
1fb3			INIT_1fb0:
1fb3 00e1       |    |		Load_Encached	Boolean_Cache
1fb4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
1fb5 e2ac       |    |		Load	0x1,0xac
1fb6 0007       |    |		Action	Break_Optional
1fb7 e00d       |    |		Load	0x0,0xd
1fb8 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
1fb9 02c7       |    |		Declare_Variable	Any
1fba 00d8       |    |		Load_Top	At_Offset_0
1fbb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1fbc e00d       |    |		Load	0x0,0xd
1fbd 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
1fbe e00d       |    |		Load	0x0,0xd
1fbf 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
1fc0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1fc1 e00d       |    |		Load	0x0,0xd
1fc2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1fc3 02c7       |    |		Declare_Variable	Any
1fc4 00d8       |    |		Load_Top	At_Offset_0
1fc5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1fc6 e00d       |    |		Load	0x0,0xd
1fc7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1fc8			BODY_1fb0:
1fc8 e5ff       |    |		Load	0x2,-0x1
1fc9 7003       |p   |		Jump_Nonzero	0x1fcd
1fca 4801       |H   |		Short_Literal	0x1
1fcb a5fd       |    |		Store_Unchecked	0x2,-0x3
1fcc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1fcd e5ff       |    |		Load	0x2,-0x1
1fce 0227       | '  |		Execute	Access,All_Reference
1fcf 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1fd0 4615       |F   |		Jump_Case	0x16
1fd1 7a8a       |z   |		Jump	0x225c								; case 0x0
1fd2 781d       |x   |		Jump	0x1ff0								; case 0x1
1fd3 7829       |x)  |		Jump	0x1ffd								; case 0x2
1fd4 7840       |x@  |		Jump	0x2015								; case 0x3
1fd5 7859       |xY  |		Jump	0x202f								; case 0x4
1fd6 7872       |xr  |		Jump	0x2049								; case 0x5
1fd7 7886       |x   |		Jump	0x205e								; case 0x6
1fd8 78cd       |x   |		Jump	0x20a6								; case 0x7
1fd9 790b       |y   |		Jump	0x20e5								; case 0x8
1fda 7957       |yW  |		Jump	0x2132								; case 0x9
1fdb 798c       |y   |		Jump	0x2168								; case 0xa
1fdc 7992       |y   |		Jump	0x216f								; case 0xb
1fdd 7998       |y   |		Jump	0x2176								; case 0xc
1fde 79b6       |y   |		Jump	0x2195								; case 0xd
1fdf 79d4       |y   |		Jump	0x21b4								; case 0xe
1fe0 79f3       |y   |		Jump	0x21d4								; case 0xf
1fe1 79fe       |y   |		Jump	0x21e0								; case 0x10
1fe2 7a28       |z(  |		Jump	0x220b								; case 0x11
1fe3 7a3d       |z=  |		Jump	0x2221								; case 0x12
1fe4 7a52       |zR  |		Jump	0x2237								; case 0x13
1fe5 7a70       |zp  |		Jump	0x2256								; case 0x14
1fe6 7800       |x   |		Jump	0x1fe7								; case 0x15
1fe7 e5fe       |    |		Load	0x2,-0x2
1fe8 0217       |    |		Execute	Heap_Access,All_Reference
1fe9 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
1fea e5ff       |    |		Load	0x2,-0x1
1feb 0227       | '  |		Execute	Access,All_Reference
1fec 2e11       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
1fed 027f       |    |		Execute	Discrete,Equal
1fee a402       |    |		Store_Unchecked	0x2,0x2
1fef 7a6c       |zl  |		Jump	0x225c
1ff0 e5fc       |    |		Load	0x2,-0x4
1ff1 00e1       |    |		Load_Encached	Boolean_Cache
1ff2 e5fe       |    |		Load	0x2,-0x2
1ff3 e5ff       |    |		Load	0x2,-0x1
1ff4 0227       | '  |		Execute	Access,All_Reference
1ff5 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
1ff6 82ba       |    |		Call	0x1,0xba
1ff7 c402       |    |		Store	0x2,0x2
1ff8 c5fc       |    |		Store	0x2,-0x4
1ff9 e402       |    |		Load	0x2,0x2
1ffa 0f00       |    |		Execute_Immediate	Equal,0x0
1ffb a402       |    |		Store_Unchecked	0x2,0x2
1ffc 7a5f       |z_  |		Jump	0x225c
1ffd e5ff       |    |		Load	0x2,-0x1
1ffe 0227       | '  |		Execute	Access,All_Reference
1fff 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
2000 a403       |    |		Store_Unchecked	0x2,0x3
2001 00cf       |    |		Action	Mark_Auxiliary
2002 780c       |x   |		Jump	0x200f
2003 e5fc       |    |		Load	0x2,-0x4
2004 00e1       |    |		Load_Encached	Boolean_Cache
2005 e5fe       |    |		Load	0x2,-0x2
2006 e403       |    |		Load	0x2,0x3
2007 82ba       |    |		Call	0x1,0xba
2008 c402       |    |		Store	0x2,0x2
2009 c5fc       |    |		Store	0x2,-0x4
200a e403       |    |		Load	0x2,0x3
200b 0227       | '  |		Execute	Access,All_Reference
200c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
200d a403       |    |		Store_Unchecked	0x2,0x3
200e 00c9       |    |		Action	Pop_Auxiliary_Loop
200f e403       |    |		Load	0x2,0x3
2010 6802       |h   |		Jump_Zero	0x2013
2011 e402       |    |		Load	0x2,0x2
2012 77f0       |w   |		Jump_Nonzero	0x2003
2013 00ce       |    |		Action	Pop_Auxiliary
2014 7a47       |zG  |		Jump	0x225c
2015 4800       |H   |		Short_Literal	0x0
2016 a402       |    |		Store_Unchecked	0x2,0x2
2017 e5ff       |    |		Load	0x2,-0x1
2018 0227       | '  |		Execute	Access,All_Reference
2019 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
201a a403       |    |		Store_Unchecked	0x2,0x3
201b 00cf       |    |		Action	Mark_Auxiliary
201c 780c       |x   |		Jump	0x2029
201d e5fc       |    |		Load	0x2,-0x4
201e 00e1       |    |		Load_Encached	Boolean_Cache
201f e5fe       |    |		Load	0x2,-0x2
2020 e403       |    |		Load	0x2,0x3
2021 82ba       |    |		Call	0x1,0xba
2022 c402       |    |		Store	0x2,0x2
2023 c5fc       |    |		Store	0x2,-0x4
2024 e403       |    |		Load	0x2,0x3
2025 0227       | '  |		Execute	Access,All_Reference
2026 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
2027 a403       |    |		Store_Unchecked	0x2,0x3
2028 00c9       |    |		Action	Pop_Auxiliary_Loop
2029 e403       |    |		Load	0x2,0x3
202a 6802       |h   |		Jump_Zero	0x202d
202b e402       |    |		Load	0x2,0x2
202c 6ff0       |o   |		Jump_Zero	0x201d
202d 00ce       |    |		Action	Pop_Auxiliary
202e 7a2d       |z-  |		Jump	0x225c
202f e5fc       |    |		Load	0x2,-0x4
2030 e404       |    |		Load	0x2,0x4
2031 0120       |    |		Execute	Any,Is_Value
2032 6803       |h   |		Jump_Zero	0x2036
2033 e00d       |    |		Load	0x0,0xd
2034 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
2035 7801       |x   |		Jump	0x2037
2036 e404       |    |		Load	0x2,0x4
2037 e5fe       |    |		Load	0x2,-0x2
2038 e001       |    |		Load	0x0,0x1
2039 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
203a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
203b c404       |    |		Store	0x2,0x4
203c c5fc       |    |		Store	0x2,-0x4
203d 4800       |H   |		Short_Literal	0x0
203e e5fc       |    |		Load	0x2,-0x4
203f e002       |    |		Load	0x0,0x2
2040 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2041 6a1a       |j   |		Jump_Zero	0x225c
2042 e404       |    |		Load	0x2,0x4
2043 e5ff       |    |		Load	0x2,-0x1
2044 0227       | '  |		Execute	Access,All_Reference
2045 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
2046 012f       | /  |		Execute	Any,Equal
2047 a402       |    |		Store_Unchecked	0x2,0x2
2048 7a13       |z   |		Jump	0x225c
2049 e5fc       |    |		Load	0x2,-0x4
204a e00d       |    |		Load	0x0,0xd
204b 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
204c e5fe       |    |		Load	0x2,-0x2
204d e001       |    |		Load	0x0,0x1
204e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
204f 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
2050 c405       |    |		Store	0x2,0x5
2051 c5fc       |    |		Store	0x2,-0x4
2052 4800       |H   |		Short_Literal	0x0
2053 e5fc       |    |		Load	0x2,-0x4
2054 e002       |    |		Load	0x0,0x2
2055 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2056 6a05       |j   |		Jump_Zero	0x225c
2057 00db       |    |		Load_Top	At_Offset_3
2058 e5ff       |    |		Load	0x2,-0x1
2059 0227       | '  |		Execute	Access,All_Reference
205a 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
205b 027f       |    |		Execute	Discrete,Equal
205c a402       |    |		Store_Unchecked	0x2,0x2
205d 79fe       |y   |		Jump	0x225c
205e e5fc       |    |		Load	0x2,-0x4
205f 00da       |    |		Load_Top	At_Offset_2
2060 0120       |    |		Execute	Any,Is_Value
2061 6803       |h   |		Jump_Zero	0x2065
2062 e00d       |    |		Load	0x0,0xd
2063 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2064 7801       |x   |		Jump	0x2066
2065 00da       |    |		Load_Top	At_Offset_2
2066 e5fe       |    |		Load	0x2,-0x2
2067 e001       |    |		Load	0x0,0x1
2068 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2069 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
206a c407       |    |		Store	0x2,0x7
206b c5fc       |    |		Store	0x2,-0x4
206c 4800       |H   |		Short_Literal	0x0
206d e5fc       |    |		Load	0x2,-0x4
206e e002       |    |		Load	0x0,0x2
206f 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2070 69eb       |i   |		Jump_Zero	0x225c
2071 e00d       |    |		Load	0x0,0xd
2072 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2073 e00d       |    |		Load	0x0,0xd
2074 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
2075 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2076 61ed       |a   |		Indirect_Literal	Discrete,0x2264,{0x00000000, 0x00004000}
2077 e022       | "  |		Load	0x0,0x22
2078 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
2079 4800       |H   |		Short_Literal	0x0
207a e407       |    |		Load	0x2,0x7
207b e00d       |    |		Load	0x0,0xd
207c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
207d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
207e e00d       |    |		Load	0x0,0xd
207f 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
2080 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2081 c406       |    |		Store	0x2,0x6
2082 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2083 00d8       |    |		Load_Top	At_Offset_0
2084 7007       |p   |		Jump_Nonzero	0x208c
2085 00da       |    |		Load_Top	At_Offset_2
2086 e5ff       |    |		Load	0x2,-0x1
2087 0227       | '  |		Execute	Access,All_Reference
2088 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
2089 027f       |    |		Execute	Discrete,Equal
208a a402       |    |		Store_Unchecked	0x2,0x2
208b 79d0       |y   |		Jump	0x225c
208c e002       |    |		Load	0x0,0x2
208d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
208e 4801       |H   |		Short_Literal	0x1
208f 4802       |H   |		Short_Literal	0x2
2090 e00e       |    |		Load	0x0,0xe
2091 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2092 035b       | [  |		Declare_Type	Array,Constrained
2093 0337       | 7  |		Declare_Variable	Array
2094 e5fe       |    |		Load	0x2,-0x2
2095 e001       |    |		Load	0x0,0x1
2096 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2097 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
2098 4801       |H   |		Short_Literal	0x1
2099 00da       |    |		Load_Top	At_Offset_2
209a 01d6       |    |		Execute	Vector,Field_Write
209b 00da       |    |		Load_Top	At_Offset_2
209c e00e       |    |		Load	0x0,0xe
209d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
209e 4802       |H   |		Short_Literal	0x2
209f 00da       |    |		Load_Top	At_Offset_2
20a0 01d6       |    |		Execute	Vector,Field_Write
20a1 61be       |a   |		Indirect_Literal	Discrete,0x2260,{0x00000000, 0x00002820}
20a2 e002       |    |		Load	0x0,0x2
20a3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
20a4 c5fc       |    |		Store	0x2,-0x4
20a5 79b6       |y   |		Jump	0x225c
20a6 e5ff       |    |		Load	0x2,-0x1
20a7 0227       | '  |		Execute	Access,All_Reference
20a8 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
20a9 4604       |F   |		Jump_Case	0x5
20aa 7809       |x   |		Jump	0x20b4								; case 0x0
20ab 780f       |x   |		Jump	0x20bb								; case 0x1
20ac 7815       |x   |		Jump	0x20c2								; case 0x2
20ad 781a       |x   |		Jump	0x20c8								; case 0x3
20ae 7800       |x   |		Jump	0x20af								; case 0x4
20af e5fe       |    |		Load	0x2,-0x2
20b0 0217       |    |		Execute	Heap_Access,All_Reference
20b1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
20b2 a402       |    |		Store_Unchecked	0x2,0x2
20b3 79a8       |y   |		Jump	0x225c
20b4 4801       |H   |		Short_Literal	0x1
20b5 e5fe       |    |		Load	0x2,-0x2
20b6 e001       |    |		Load	0x0,0x1
20b7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20b8 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
20b9 a402       |    |		Store_Unchecked	0x2,0x2
20ba 79a1       |y   |		Jump	0x225c
20bb 4802       |H   |		Short_Literal	0x2
20bc e5fe       |    |		Load	0x2,-0x2
20bd e001       |    |		Load	0x0,0x1
20be 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20bf 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
20c0 a402       |    |		Store_Unchecked	0x2,0x2
20c1 799a       |y   |		Jump	0x225c
20c2 e5fe       |    |		Load	0x2,-0x2
20c3 e001       |    |		Load	0x0,0x1
20c4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20c5 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
20c6 a402       |    |		Store_Unchecked	0x2,0x2
20c7 7994       |y   |		Jump	0x225c
20c8 4800       |H   |		Short_Literal	0x0
20c9 a402       |    |		Store_Unchecked	0x2,0x2
20ca 00cf       |    |		Action	Mark_Auxiliary
20cb e5ff       |    |		Load	0x2,-0x1
20cc 0227       | '  |		Execute	Access,All_Reference
20cd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20ce 01d9       |    |		Execute	Vector,Reverse_Bounds
20cf 0263       | c  |		Execute	Discrete,Above_Bound
20d0 7012       |p   |		Jump_Nonzero	0x20e3
20d1 00d8       |    |		Load_Top	At_Offset_0
20d2 e5ff       |    |		Load	0x2,-0x1
20d3 0227       | '  |		Execute	Access,All_Reference
20d4 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20d5 01d7       |    |		Execute	Vector,Field_Read
20d6 680a       |h   |		Jump_Zero	0x20e1
20d7 00d8       |    |		Load_Top	At_Offset_0
20d8 e5fe       |    |		Load	0x2,-0x2
20d9 e001       |    |		Load	0x0,0x1
20da 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20db 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
20dc a402       |    |		Store_Unchecked	0x2,0x2
20dd e402       |    |		Load	0x2,0x2
20de 6802       |h   |		Jump_Zero	0x20e1
20df 00d2       |    |		Pop_Control	Pop_Count_2
20e0 7802       |x   |		Jump	0x20e3
20e1 00c8       |    |		Action	Pop_Auxiliary_Range
20e2 3fee       |?   |		Loop_Increasing	0x20d1
20e3 00ce       |    |		Action	Pop_Auxiliary
20e4 7977       |yw  |		Jump	0x225c
20e5 e5ff       |    |		Load	0x2,-0x1
20e6 0227       | '  |		Execute	Access,All_Reference
20e7 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
20e8 4603       |F   |		Jump_Case	0x4
20e9 7820       |x   |		Jump	0x210a								; case 0x0
20ea 7824       |x$  |		Jump	0x210f								; case 0x1
20eb 7829       |x)  |		Jump	0x2115								; case 0x2
20ec 7800       |x   |		Jump	0x20ed								; case 0x3
20ed 4800       |H   |		Short_Literal	0x0
20ee a402       |    |		Store_Unchecked	0x2,0x2
20ef 00cf       |    |		Action	Mark_Auxiliary
20f0 e5ff       |    |		Load	0x2,-0x1
20f1 0227       | '  |		Execute	Access,All_Reference
20f2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20f3 01d9       |    |		Execute	Vector,Reverse_Bounds
20f4 0263       | c  |		Execute	Discrete,Above_Bound
20f5 7012       |p   |		Jump_Nonzero	0x2108
20f6 00d8       |    |		Load_Top	At_Offset_0
20f7 e5ff       |    |		Load	0x2,-0x1
20f8 0227       | '  |		Execute	Access,All_Reference
20f9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20fa 01d7       |    |		Execute	Vector,Field_Read
20fb 680a       |h   |		Jump_Zero	0x2106
20fc 00d8       |    |		Load_Top	At_Offset_0
20fd e5fe       |    |		Load	0x2,-0x2
20fe e001       |    |		Load	0x0,0x1
20ff 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2100 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
2101 a402       |    |		Store_Unchecked	0x2,0x2
2102 e402       |    |		Load	0x2,0x2
2103 6802       |h   |		Jump_Zero	0x2106
2104 00d2       |    |		Pop_Control	Pop_Count_2
2105 7802       |x   |		Jump	0x2108
2106 00c8       |    |		Action	Pop_Auxiliary_Range
2107 3fee       |?   |		Loop_Increasing	0x20f6
2108 00ce       |    |		Action	Pop_Auxiliary
2109 7952       |yR  |		Jump	0x225c
210a e5fe       |    |		Load	0x2,-0x2
210b 0217       |    |		Execute	Heap_Access,All_Reference
210c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
210d a402       |    |		Store_Unchecked	0x2,0x2
210e 794d       |yM  |		Jump	0x225c
210f e5fe       |    |		Load	0x2,-0x2
2110 e001       |    |		Load	0x0,0x1
2111 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2112 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
2113 a402       |    |		Store_Unchecked	0x2,0x2
2114 7947       |yG  |		Jump	0x225c
2115 4800       |H   |		Short_Literal	0x0
2116 a402       |    |		Store_Unchecked	0x2,0x2
2117 00cf       |    |		Action	Mark_Auxiliary
2118 e5ff       |    |		Load	0x2,-0x1
2119 0227       | '  |		Execute	Access,All_Reference
211a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
211b 01d9       |    |		Execute	Vector,Reverse_Bounds
211c 0263       | c  |		Execute	Discrete,Above_Bound
211d 7012       |p   |		Jump_Nonzero	0x2130
211e 00d8       |    |		Load_Top	At_Offset_0
211f e5ff       |    |		Load	0x2,-0x1
2120 0227       | '  |		Execute	Access,All_Reference
2121 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2122 01d7       |    |		Execute	Vector,Field_Read
2123 680a       |h   |		Jump_Zero	0x212e
2124 00d8       |    |		Load_Top	At_Offset_0
2125 e5fe       |    |		Load	0x2,-0x2
2126 e001       |    |		Load	0x0,0x1
2127 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2128 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
2129 a402       |    |		Store_Unchecked	0x2,0x2
212a e402       |    |		Load	0x2,0x2
212b 6802       |h   |		Jump_Zero	0x212e
212c 00d2       |    |		Pop_Control	Pop_Count_2
212d 7802       |x   |		Jump	0x2130
212e 00c8       |    |		Action	Pop_Auxiliary_Range
212f 3fee       |?   |		Loop_Increasing	0x211e
2130 00ce       |    |		Action	Pop_Auxiliary
2131 792a       |y*  |		Jump	0x225c
2132 4800       |H   |		Short_Literal	0x0
2133 a402       |    |		Store_Unchecked	0x2,0x2
2134 e5fe       |    |		Load	0x2,-0x2
2135 e001       |    |		Load	0x0,0x1
2136 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2137 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
2138 6923       |i#  |		Jump_Zero	0x225c
2139 e5fe       |    |		Load	0x2,-0x2
213a e001       |    |		Load	0x0,0x1
213b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
213c 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
213d e5ff       |    |		Load	0x2,-0x1
213e 0227       | '  |		Execute	Access,All_Reference
213f 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
2140 0217       |    |		Execute	Heap_Access,All_Reference
2141 e033       | 3  |		Load	0x0,0x33
2142 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2143 6803       |h   |		Jump_Zero	0x2147
2144 4801       |H   |		Short_Literal	0x1
2145 a402       |    |		Store_Unchecked	0x2,0x2
2146 7915       |y   |		Jump	0x225c
2147 00cf       |    |		Action	Mark_Auxiliary
2148 e5ff       |    |		Load	0x2,-0x1
2149 0227       | '  |		Execute	Access,All_Reference
214a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
214b 01d9       |    |		Execute	Vector,Reverse_Bounds
214c 0263       | c  |		Execute	Discrete,Above_Bound
214d 7018       |p   |		Jump_Nonzero	0x2166
214e 00d8       |    |		Load_Top	At_Offset_0
214f e5ff       |    |		Load	0x2,-0x1
2150 0227       | '  |		Execute	Access,All_Reference
2151 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2152 01d7       |    |		Execute	Vector,Field_Read
2153 6810       |h   |		Jump_Zero	0x2164
2154 00d8       |    |		Load_Top	At_Offset_0
2155 e5fe       |    |		Load	0x2,-0x2
2156 e001       |    |		Load	0x0,0x1
2157 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2158 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
2159 e5ff       |    |		Load	0x2,-0x1
215a 0227       | '  |		Execute	Access,All_Reference
215b 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
215c 0217       |    |		Execute	Heap_Access,All_Reference
215d e033       | 3  |		Load	0x0,0x33
215e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
215f a402       |    |		Store_Unchecked	0x2,0x2
2160 e402       |    |		Load	0x2,0x2
2161 6802       |h   |		Jump_Zero	0x2164
2162 00d2       |    |		Pop_Control	Pop_Count_2
2163 7802       |x   |		Jump	0x2166
2164 00c8       |    |		Action	Pop_Auxiliary_Range
2165 3fe8       |?   |		Loop_Increasing	0x214e
2166 00ce       |    |		Action	Pop_Auxiliary
2167 78f4       |x   |		Jump	0x225c
2168 e5ff       |    |		Load	0x2,-0x1
2169 e5fe       |    |		Load	0x2,-0x2
216a 0217       |    |		Execute	Heap_Access,All_Reference
216b 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
216c 82b8       |    |		Call	0x1,0xb8
216d a402       |    |		Store_Unchecked	0x2,0x2
216e 78ed       |x   |		Jump	0x225c
216f e5ff       |    |		Load	0x2,-0x1
2170 e5fe       |    |		Load	0x2,-0x2
2171 0217       |    |		Execute	Heap_Access,All_Reference
2172 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
2173 82b8       |    |		Call	0x1,0xb8
2174 a402       |    |		Store_Unchecked	0x2,0x2
2175 78e6       |x   |		Jump	0x225c
2176 4800       |H   |		Short_Literal	0x0
2177 a402       |    |		Store_Unchecked	0x2,0x2
2178 00cf       |    |		Action	Mark_Auxiliary
2179 e5ff       |    |		Load	0x2,-0x1
217a 0227       | '  |		Execute	Access,All_Reference
217b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
217c 01d9       |    |		Execute	Vector,Reverse_Bounds
217d 0263       | c  |		Execute	Discrete,Above_Bound
217e 7014       |p   |		Jump_Nonzero	0x2193
217f 00d8       |    |		Load_Top	At_Offset_0
2180 e5ff       |    |		Load	0x2,-0x1
2181 0227       | '  |		Execute	Access,All_Reference
2182 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2183 01d7       |    |		Execute	Vector,Field_Read
2184 680c       |h   |		Jump_Zero	0x2191
2185 e5ff       |    |		Load	0x2,-0x1
2186 00d9       |    |		Load_Top	At_Offset_1
2187 e5fe       |    |		Load	0x2,-0x2
2188 e001       |    |		Load	0x0,0x1
2189 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
218a 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
218b 82b8       |    |		Call	0x1,0xb8
218c a402       |    |		Store_Unchecked	0x2,0x2
218d e402       |    |		Load	0x2,0x2
218e 6802       |h   |		Jump_Zero	0x2191
218f 00d2       |    |		Pop_Control	Pop_Count_2
2190 7802       |x   |		Jump	0x2193
2191 00c8       |    |		Action	Pop_Auxiliary_Range
2192 3fec       |?   |		Loop_Increasing	0x217f
2193 00ce       |    |		Action	Pop_Auxiliary
2194 78c7       |x   |		Jump	0x225c
2195 4800       |H   |		Short_Literal	0x0
2196 a402       |    |		Store_Unchecked	0x2,0x2
2197 00cf       |    |		Action	Mark_Auxiliary
2198 e5ff       |    |		Load	0x2,-0x1
2199 0227       | '  |		Execute	Access,All_Reference
219a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
219b 01d9       |    |		Execute	Vector,Reverse_Bounds
219c 0263       | c  |		Execute	Discrete,Above_Bound
219d 7014       |p   |		Jump_Nonzero	0x21b2
219e 00d8       |    |		Load_Top	At_Offset_0
219f e5ff       |    |		Load	0x2,-0x1
21a0 0227       | '  |		Execute	Access,All_Reference
21a1 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
21a2 01d7       |    |		Execute	Vector,Field_Read
21a3 680c       |h   |		Jump_Zero	0x21b0
21a4 e5ff       |    |		Load	0x2,-0x1
21a5 00d9       |    |		Load_Top	At_Offset_1
21a6 e5fe       |    |		Load	0x2,-0x2
21a7 e001       |    |		Load	0x0,0x1
21a8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21a9 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
21aa 82b8       |    |		Call	0x1,0xb8
21ab a402       |    |		Store_Unchecked	0x2,0x2
21ac e402       |    |		Load	0x2,0x2
21ad 6802       |h   |		Jump_Zero	0x21b0
21ae 00d2       |    |		Pop_Control	Pop_Count_2
21af 7802       |x   |		Jump	0x21b2
21b0 00c8       |    |		Action	Pop_Auxiliary_Range
21b1 3fec       |?   |		Loop_Increasing	0x219e
21b2 00ce       |    |		Action	Pop_Auxiliary
21b3 78a8       |x   |		Jump	0x225c
21b4 4800       |H   |		Short_Literal	0x0
21b5 a402       |    |		Store_Unchecked	0x2,0x2
21b6 00cf       |    |		Action	Mark_Auxiliary
21b7 e5ff       |    |		Load	0x2,-0x1
21b8 0227       | '  |		Execute	Access,All_Reference
21b9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
21ba 01d9       |    |		Execute	Vector,Reverse_Bounds
21bb 0263       | c  |		Execute	Discrete,Above_Bound
21bc 7015       |p   |		Jump_Nonzero	0x21d2
21bd 00d8       |    |		Load_Top	At_Offset_0
21be e5ff       |    |		Load	0x2,-0x1
21bf 0227       | '  |		Execute	Access,All_Reference
21c0 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
21c1 01d7       |    |		Execute	Vector,Field_Read
21c2 680d       |h   |		Jump_Zero	0x21d0
21c3 e5ff       |    |		Load	0x2,-0x1
21c4 00d9       |    |		Load_Top	At_Offset_1
21c5 4800       |H   |		Short_Literal	0x0
21c6 e5fe       |    |		Load	0x2,-0x2
21c7 e001       |    |		Load	0x0,0x1
21c8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21c9 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
21ca 82b8       |    |		Call	0x1,0xb8
21cb a402       |    |		Store_Unchecked	0x2,0x2
21cc e402       |    |		Load	0x2,0x2
21cd 6802       |h   |		Jump_Zero	0x21d0
21ce 00d2       |    |		Pop_Control	Pop_Count_2
21cf 7802       |x   |		Jump	0x21d2
21d0 00c8       |    |		Action	Pop_Auxiliary_Range
21d1 3feb       |?   |		Loop_Increasing	0x21bd
21d2 00ce       |    |		Action	Pop_Auxiliary
21d3 7888       |x   |		Jump	0x225c
21d4 e5fe       |    |		Load	0x2,-0x2
21d5 e001       |    |		Load	0x0,0x1
21d6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21d7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
21d8 e5ff       |    |		Load	0x2,-0x1
21d9 0227       | '  |		Execute	Access,All_Reference
21da 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
21db 0217       |    |		Execute	Heap_Access,All_Reference
21dc e033       | 3  |		Load	0x0,0x33
21dd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
21de a402       |    |		Store_Unchecked	0x2,0x2
21df 787c       |x|  |		Jump	0x225c
21e0 4800       |H   |		Short_Literal	0x0
21e1 a402       |    |		Store_Unchecked	0x2,0x2
21e2 00cf       |    |		Action	Mark_Auxiliary
21e3 e5ff       |    |		Load	0x2,-0x1
21e4 0227       | '  |		Execute	Access,All_Reference
21e5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
21e6 01d9       |    |		Execute	Vector,Reverse_Bounds
21e7 0263       | c  |		Execute	Discrete,Above_Bound
21e8 7020       |p   |		Jump_Nonzero	0x2209
21e9 00d8       |    |		Load_Top	At_Offset_0
21ea e5ff       |    |		Load	0x2,-0x1
21eb 0227       | '  |		Execute	Access,All_Reference
21ec 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
21ed 01d7       |    |		Execute	Vector,Field_Read
21ee 6818       |h   |		Jump_Zero	0x2207
21ef 00d8       |    |		Load_Top	At_Offset_0
21f0 e5fe       |    |		Load	0x2,-0x2
21f1 e001       |    |		Load	0x0,0x1
21f2 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21f3 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
21f4 680c       |h   |		Jump_Zero	0x2201
21f5 00d8       |    |		Load_Top	At_Offset_0
21f6 e5fe       |    |		Load	0x2,-0x2
21f7 e001       |    |		Load	0x0,0x1
21f8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21f9 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
21fa e5ff       |    |		Load	0x2,-0x1
21fb 0227       | '  |		Execute	Access,All_Reference
21fc 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
21fd 0217       |    |		Execute	Heap_Access,All_Reference
21fe e033       | 3  |		Load	0x0,0x33
21ff 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2200 7801       |x   |		Jump	0x2202
2201 4800       |H   |		Short_Literal	0x0
2202 a402       |    |		Store_Unchecked	0x2,0x2
2203 e402       |    |		Load	0x2,0x2
2204 6802       |h   |		Jump_Zero	0x2207
2205 00d2       |    |		Pop_Control	Pop_Count_2
2206 7802       |x   |		Jump	0x2209
2207 00c8       |    |		Action	Pop_Auxiliary_Range
2208 3fe0       |?   |		Loop_Increasing	0x21e9
2209 00ce       |    |		Action	Pop_Auxiliary
220a 7851       |xQ  |		Jump	0x225c
220b e5fe       |    |		Load	0x2,-0x2
220c e001       |    |		Load	0x0,0x1
220d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
220e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
220f 680e       |h   |		Jump_Zero	0x221e
2210 e5fe       |    |		Load	0x2,-0x2
2211 e001       |    |		Load	0x0,0x1
2212 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2213 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
2214 e001       |    |		Load	0x0,0x1
2215 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2216 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
2217 e5ff       |    |		Load	0x2,-0x1
2218 0227       | '  |		Execute	Access,All_Reference
2219 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
221a 0217       |    |		Execute	Heap_Access,All_Reference
221b e033       | 3  |		Load	0x0,0x33
221c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
221d 7801       |x   |		Jump	0x221f
221e 4800       |H   |		Short_Literal	0x0
221f a402       |    |		Store_Unchecked	0x2,0x2
2220 783b       |x;  |		Jump	0x225c
2221 e5fe       |    |		Load	0x2,-0x2
2222 e001       |    |		Load	0x0,0x1
2223 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2224 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
2225 680e       |h   |		Jump_Zero	0x2234
2226 e5fe       |    |		Load	0x2,-0x2
2227 e001       |    |		Load	0x0,0x1
2228 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2229 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
222a e001       |    |		Load	0x0,0x1
222b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
222c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
222d e5ff       |    |		Load	0x2,-0x1
222e 0227       | '  |		Execute	Access,All_Reference
222f 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
2230 0217       |    |		Execute	Heap_Access,All_Reference
2231 e033       | 3  |		Load	0x0,0x33
2232 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2233 7801       |x   |		Jump	0x2235
2234 4800       |H   |		Short_Literal	0x0
2235 a402       |    |		Store_Unchecked	0x2,0x2
2236 7825       |x%  |		Jump	0x225c
2237 4800       |H   |		Short_Literal	0x0
2238 a402       |    |		Store_Unchecked	0x2,0x2
2239 00cf       |    |		Action	Mark_Auxiliary
223a e5ff       |    |		Load	0x2,-0x1
223b 0227       | '  |		Execute	Access,All_Reference
223c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
223d 01d9       |    |		Execute	Vector,Reverse_Bounds
223e 0263       | c  |		Execute	Discrete,Above_Bound
223f 7014       |p   |		Jump_Nonzero	0x2254
2240 00d8       |    |		Load_Top	At_Offset_0
2241 e5ff       |    |		Load	0x2,-0x1
2242 0227       | '  |		Execute	Access,All_Reference
2243 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2244 01d7       |    |		Execute	Vector,Field_Read
2245 680c       |h   |		Jump_Zero	0x2252
2246 e5ff       |    |		Load	0x2,-0x1
2247 00d9       |    |		Load_Top	At_Offset_1
2248 e5fe       |    |		Load	0x2,-0x2
2249 e001       |    |		Load	0x0,0x1
224a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
224b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
224c 82b9       |    |		Call	0x1,0xb9
224d a402       |    |		Store_Unchecked	0x2,0x2
224e e402       |    |		Load	0x2,0x2
224f 6802       |h   |		Jump_Zero	0x2252
2250 00d2       |    |		Pop_Control	Pop_Count_2
2251 7802       |x   |		Jump	0x2254
2252 00c8       |    |		Action	Pop_Auxiliary_Range
2253 3fec       |?   |		Loop_Increasing	0x2240
2254 00ce       |    |		Action	Pop_Auxiliary
2255 7806       |x   |		Jump	0x225c
2256 e5ff       |    |		Load	0x2,-0x1
2257 e5fe       |    |		Load	0x2,-0x2
2258 0217       |    |		Execute	Heap_Access,All_Reference
2259 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
225a 82b9       |    |		Call	0x1,0xb9
225b a402       |    |		Store_Unchecked	0x2,0x2
225c e402       |    |		Load	0x2,0x2
225d a5fd       |    |		Store_Unchecked	0x2,-0x3
225e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
225f 0000       |    |		.XXX[0x1]
2260 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002820}
2264 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
2268 ; --------------------------------------------------------------------------------------
2268 ; SUBPROGRAM
2268 ; --------------------------------------------------------------------------------------
2268 2278       |"x  |		.CONST	0x2278								; Address of begin
2269 0004       |    |		.CONST	0x0004								; Address of exception handler
226a 0005       |    |		.CONST	0x0005								; Number of locals
226b			INIT_2268:
226b 00da       |    |		Load_Top	At_Offset_2
226c e00d       |    |		Load	0x0,0xd
226d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
226e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
226f e5fd       |    |		Load	0x2,-0x3
2270 e01b       |    |		Load	0x0,0x1b
2271 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
2272 e5fd       |    |		Load	0x2,-0x3
2273 0217       |    |		Execute	Heap_Access,All_Reference
2274 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
2275 0007       |    |		Action	Break_Optional
2276 e01b       |    |		Load	0x0,0x1b
2277 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
2278			BODY_2268:
2278 e5ff       |    |		Load	0x2,-0x1
2279 8026       | &  |		Call	0x0,0x26
227a 0f02       |    |		Execute_Immediate	Equal,0x2
227b 00db       |    |		Load_Top	At_Offset_3
227c 0217       |    |		Execute	Heap_Access,All_Reference
227d 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
227e 4800       |H   |		Short_Literal	0x0
227f e5fd       |    |		Load	0x2,-0x3
2280 e403       |    |		Load	0x2,0x3
2281 e001       |    |		Load	0x0,0x1
2282 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
2283 0216       |    |		Execute	Heap_Access,Convert
2284 e5ff       |    |		Load	0x2,-0x1
2285 e02a       | *  |		Load	0x0,0x2a
2286 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
2287 e5fd       |    |		Load	0x2,-0x3
2288 0217       |    |		Execute	Heap_Access,All_Reference
2289 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
228a 00db       |    |		Load_Top	At_Offset_3
228b 0217       |    |		Execute	Heap_Access,All_Reference
228c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
228d 00da       |    |		Load_Top	At_Offset_2
228e e5fd       |    |		Load	0x2,-0x3
228f 0217       |    |		Execute	Heap_Access,All_Reference
2290 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
2291 e5ff       |    |		Load	0x2,-0x1
2292 00db       |    |		Load_Top	At_Offset_3
2293 0217       |    |		Execute	Heap_Access,All_Reference
2294 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
2295 e5fd       |    |		Load	0x2,-0x3
2296 e402       |    |		Load	0x2,0x2
2297 e020       |    |		Load	0x0,0x20
2298 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2299 00db       |    |		Load_Top	At_Offset_3
229a 0217       |    |		Execute	Heap_Access,All_Reference
229b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
229c e5fe       |    |		Load	0x2,-0x2
229d 00db       |    |		Load_Top	At_Offset_3
229e 0217       |    |		Execute	Heap_Access,All_Reference
229f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
22a0 e5ff       |    |		Load	0x2,-0x1
22a1 e5fe       |    |		Load	0x2,-0x2
22a2 012f       | /  |		Execute	Any,Equal
22a3 680b       |h   |		Jump_Zero	0x22af
22a4 00da       |    |		Load_Top	At_Offset_2
22a5 0217       |    |		Execute	Heap_Access,All_Reference
22a6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
22a7 00db       |    |		Load_Top	At_Offset_3
22a8 0217       |    |		Execute	Heap_Access,All_Reference
22a9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
22aa 4800       |H   |		Short_Literal	0x0
22ab 00db       |    |		Load_Top	At_Offset_3
22ac 0217       |    |		Execute	Heap_Access,All_Reference
22ad 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
22ae 780e       |x   |		Jump	0x22bd
22af e5fe       |    |		Load	0x2,-0x2
22b0 e00d       |    |		Load	0x0,0xd
22b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
22b2 700a       |p   |		Jump_Nonzero	0x22bd
22b3 e5fd       |    |		Load	0x2,-0x3
22b4 e5fe       |    |		Load	0x2,-0x2
22b5 e00d       |    |		Load	0x0,0xd
22b6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
22b7 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
22b8 e020       |    |		Load	0x0,0x20
22b9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
22ba 00db       |    |		Load_Top	At_Offset_3
22bb 0217       |    |		Execute	Heap_Access,All_Reference
22bc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
22bd 00cf       |    |		Action	Mark_Auxiliary
22be 781c       |x   |		Jump	0x22db
22bf 00db       |    |		Load_Top	At_Offset_3
22c0 e001       |    |		Load	0x0,0x1
22c1 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
22c2 0216       |    |		Execute	Heap_Access,Convert
22c3 e01b       |    |		Load	0x0,0x1b
22c4 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
22c5 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
22c6 00da       |    |		Load_Top	At_Offset_2
22c7 0217       |    |		Execute	Heap_Access,All_Reference
22c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
22c9 00da       |    |		Load_Top	At_Offset_2
22ca 0217       |    |		Execute	Heap_Access,All_Reference
22cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
22cc 00db       |    |		Load_Top	At_Offset_3
22cd 0217       |    |		Execute	Heap_Access,All_Reference
22ce 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
22cf 00da       |    |		Load_Top	At_Offset_2
22d0 0217       |    |		Execute	Heap_Access,All_Reference
22d1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
22d2 00d9       |    |		Load_Top	At_Offset_1
22d3 e403       |    |		Load	0x2,0x3
22d4 0217       |    |		Execute	Heap_Access,All_Reference
22d5 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
22d6 00da       |    |		Load_Top	At_Offset_2
22d7 0217       |    |		Execute	Heap_Access,All_Reference
22d8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
22d9 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
22da 00c9       |    |		Action	Pop_Auxiliary_Loop
22db 00da       |    |		Load_Top	At_Offset_2
22dc 77e2       |w   |		Jump_Nonzero	0x22bf
22dd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
22de 0000 0000  |    |		.XXX[0x2]
22e0 ; --------------------------------------------------------------------------------------
22e0 ; SUBPROGRAM
22e0 ; --------------------------------------------------------------------------------------
22e0 22f0       |"   |		.CONST	0x22f0								; Address of begin
22e1 0004       |    |		.CONST	0x0004								; Address of exception handler
22e2 0004       |    |		.CONST	0x0004								; Number of locals
22e3			INIT_22e0:
22e3 e00d       |    |		Load	0x0,0xd
22e4 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
22e5 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
22e6 02c7       |    |		Declare_Variable	Any
22e7 00d8       |    |		Load_Top	At_Offset_0
22e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
22e9 e00d       |    |		Load	0x0,0xd
22ea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
22eb e02a       | *  |		Load	0x0,0x2a
22ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
22ed 02ff       |    |		Declare_Variable	Variant_Record
22ee 00d8       |    |		Load_Top	At_Offset_0
22ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
22f0			BODY_22e0:
22f0 e00d       |    |		Load	0x0,0xd
22f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
22f2 00db       |    |		Load_Top	At_Offset_3
22f3 0120       |    |		Execute	Any,Is_Value
22f4 6804       |h   |		Jump_Zero	0x22f9
22f5 e00d       |    |		Load	0x0,0xd
22f6 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
22f7 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
22f8 7801       |x   |		Jump	0x22fa
22f9 00db       |    |		Load_Top	At_Offset_3
22fa 602d       |`-  |		Indirect_Literal	Discrete,0x2328,{0x00000000, 0x00004000}
22fb e022       | "  |		Load	0x0,0x22
22fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
22fd 4800       |H   |		Short_Literal	0x0
22fe e5ff       |    |		Load	0x2,-0x1
22ff 0217       |    |		Execute	Heap_Access,All_Reference
2300 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
2301 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
2302 e00d       |    |		Load	0x0,0xd
2303 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2304 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2305 c402       |    |		Store	0x2,0x2
2306 005a       | Z  |		Store_Top	Discrete,At_Offset_2
2307 00da       |    |		Load_Top	At_Offset_2
2308 e00d       |    |		Load	0x0,0xd
2309 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
230a 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
230b 00db       |    |		Load_Top	At_Offset_3
230c e00d       |    |		Load	0x0,0xd
230d 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
230e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
230f 012e       | .  |		Execute	Any,Not_Equal
2310 6813       |h   |		Jump_Zero	0x2324
2311 4802       |H   |		Short_Literal	0x2
2312 e5fe       |    |		Load	0x2,-0x2
2313 e402       |    |		Load	0x2,0x2
2314 e00d       |    |		Load	0x0,0xd
2315 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2316 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
2317 e02a       | *  |		Load	0x0,0x2a
2318 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2319 00d9       |    |		Load_Top	At_Offset_1
231a 016d       | m  |		Execute	Variant_Record,Structure_Write
231b 00d8       |    |		Load_Top	At_Offset_0
231c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
231d 0f02       |    |		Execute_Immediate	Equal,0x2
231e 6805       |h   |		Jump_Zero	0x2324
231f 00d8       |    |		Load_Top	At_Offset_0
2320 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
2321 0217       |    |		Execute	Heap_Access,All_Reference
2322 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
2323 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
2324 e01b       |    |		Load	0x0,0x1b
2325 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
2326 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
2327 0000       |    |		.XXX[0x1]
2328 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
232c 0000 0000  |    |		.BLANK	0000[0x4]
2330 ; --------------------------------------------------------------------------------------
2330 ; SUBPROGRAM
2330 ; --------------------------------------------------------------------------------------
2330 233d       |#=  |		.CONST	0x233d								; Address of begin
2331 239b       |#   |		.CONST	0x239b								; Address of exception handler
2332 0006       |    |		.CONST	0x0006								; Number of locals
2333			INIT_2330:
2333 e01b       |    |		Load	0x0,0x1b
2334 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
2335 e01b       |    |		Load	0x0,0x1b
2336 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
2337 e01b       |    |		Load	0x0,0x1b
2338 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
2339 e01b       |    |		Load	0x0,0x1b
233a 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
233b 00e2       |    |		Load_Encached	Integer_Cache
233c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
233d			BODY_2330:
233d e5ff       |    |		Load	0x2,-0x1
233e 0217       |    |		Execute	Heap_Access,All_Reference
233f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
2340 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
2341 7009       |p   |		Jump_Nonzero	0x234b
2342 e5fd       |    |		Load	0x2,-0x3
2343 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
2344 7006       |p   |		Jump_Nonzero	0x234b
2345 e5fd       |    |		Load	0x2,-0x3
2346 0f01       |    |		Execute_Immediate	Equal,0x1
2347 684e       |hN  |		Jump_Zero	0x2396
2348 e5fe       |    |		Load	0x2,-0x2
2349 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
234a 684b       |hK  |		Jump_Zero	0x2396
234b e5ff       |    |		Load	0x2,-0x1
234c 0217       |    |		Execute	Heap_Access,All_Reference
234d 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
234e a402       |    |		Store_Unchecked	0x2,0x2
234f 00cf       |    |		Action	Mark_Auxiliary
2350 783d       |x=  |		Jump	0x238e
2351 e402       |    |		Load	0x2,0x2
2352 0217       |    |		Execute	Heap_Access,All_Reference
2353 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
2354 a403       |    |		Store_Unchecked	0x2,0x3
2355 e402       |    |		Load	0x2,0x2
2356 0217       |    |		Execute	Heap_Access,All_Reference
2357 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2358 6830       |h0  |		Jump_Zero	0x2389
2359 e5ff       |    |		Load	0x2,-0x1
235a e402       |    |		Load	0x2,0x2
235b 82bc       |    |		Call	0x1,0xbc
235c 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
235d 00da       |    |		Load_Top	At_Offset_2
235e 6827       |h'  |		Jump_Zero	0x2386
235f 00db       |    |		Load_Top	At_Offset_3
2360 7005       |p   |		Jump_Nonzero	0x2366
2361 e403       |    |		Load	0x2,0x3
2362 e5ff       |    |		Load	0x2,-0x1
2363 0217       |    |		Execute	Heap_Access,All_Reference
2364 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
2365 7804       |x   |		Jump	0x236a
2366 e403       |    |		Load	0x2,0x3
2367 e404       |    |		Load	0x2,0x4
2368 0217       |    |		Execute	Heap_Access,All_Reference
2369 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
236a 4800       |H   |		Short_Literal	0x0
236b e402       |    |		Load	0x2,0x2
236c 0217       |    |		Execute	Heap_Access,All_Reference
236d 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
236e 00da       |    |		Load_Top	At_Offset_2
236f e402       |    |		Load	0x2,0x2
2370 0217       |    |		Execute	Heap_Access,All_Reference
2371 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
2372 e5ff       |    |		Load	0x2,-0x1
2373 e402       |    |		Load	0x2,0x2
2374 e001       |    |		Load	0x0,0x1
2375 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2376 0216       |    |		Execute	Heap_Access,Convert
2377 8264       | d  |		Call	0x1,0x64
2378 e5fb       |    |		Load	0x2,-0x5
2379 e402       |    |		Load	0x2,0x2
237a 0217       |    |		Execute	Heap_Access,All_Reference
237b 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
237c e5fc       |    |		Load	0x2,-0x4
237d e402       |    |		Load	0x2,0x2
237e e001       |    |		Load	0x0,0x1
237f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2380 0216       |    |		Execute	Heap_Access,Convert
2381 e001       |    |		Load	0x0,0x1
2382 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2383 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
2384 c5fb       |    |		Store	0x2,-0x5
2385 7803       |x   |		Jump	0x2389
2386 00d9       |    |		Load_Top	At_Offset_1
2387 0a01       |    |		Execute_Immediate	Plus,0x1
2388 005a       | Z  |		Store_Top	Discrete,At_Offset_2
2389 e402       |    |		Load	0x2,0x2
238a a404       |    |		Store_Unchecked	0x2,0x4
238b e403       |    |		Load	0x2,0x3
238c a402       |    |		Store_Unchecked	0x2,0x2
238d 00c9       |    |		Action	Pop_Auxiliary_Loop
238e e402       |    |		Load	0x2,0x2
238f 77c1       |w   |		Jump_Nonzero	0x2351
2390 00ce       |    |		Action	Pop_Auxiliary
2391 00d8       |    |		Load_Top	At_Offset_0
2392 e5ff       |    |		Load	0x2,-0x1
2393 0217       |    |		Execute	Heap_Access,All_Reference
2394 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
2395 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2396 4801       |H   |		Short_Literal	0x1
2397 e5ff       |    |		Load	0x2,-0x1
2398 0217       |    |		Execute	Heap_Access,All_Reference
2399 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
239a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
239b			TRAP_2330:
239b 4885       |H   |		Short_Literal	0x85
239c 010f       |    |		Execute	Exception,Equal
239d 6812       |h   |		Jump_Zero	0x23b0
239e e002       |    |		Load	0x0,0x2
239f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
23a0 4801       |H   |		Short_Literal	0x1
23a1 4801       |H   |		Short_Literal	0x1
23a2 e00e       |    |		Load	0x0,0xe
23a3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
23a4 035b       | [  |		Declare_Type	Array,Constrained
23a5 0337       | 7  |		Declare_Variable	Array
23a6 e5ff       |    |		Load	0x2,-0x1
23a7 825a       | Z  |		Call	0x1,0x5a
23a8 4801       |H   |		Short_Literal	0x1
23a9 00da       |    |		Load_Top	At_Offset_2
23aa 01d6       |    |		Execute	Vector,Field_Write
23ab 6008       |`   |		Indirect_Literal	Discrete,0x23b4,{0x00000000, 0x00002836}
23ac e002       |    |		Load	0x0,0x2
23ad 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
23ae c5fb       |    |		Store	0x2,-0x5
23af 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
23b0 0100       |    |		Execute	Exception,Raise
23b1 0000 0000  |    |		.XXX[0x3]
23b3 0000       |    |
23b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002836}
23b8 ; --------------------------------------------------------------------------------------
23b8 ; SUBPROGRAM
23b8 ; --------------------------------------------------------------------------------------
23b8 23c5       |#   |		.CONST	0x23c5								; Address of begin
23b9 0004       |    |		.CONST	0x0004								; Address of exception handler
23ba 0002       |    |		.CONST	0x0002								; Number of locals
23bb			INIT_23b8:
23bb e003       |    |		Load	0x0,0x3
23bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
23bd 0337       | 7  |		Declare_Variable	Array
23be 00db       |    |		Load_Top	At_Offset_3
23bf 825f       | _  |		Call	0x1,0x5f
23c0 8226       | &  |		Call	0x1,0x26
23c1 e00c       |    |		Load	0x0,0xc
23c2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
23c3 00d9       |    |		Load_Top	At_Offset_1
23c4 01d4       |    |		Execute	Vector,Structure_Write
23c5			BODY_23b8:
23c5 4800       |H   |		Short_Literal	0x0
23c6 00d9       |    |		Load_Top	At_Offset_1
23c7 01d7       |    |		Execute	Vector,Field_Read
23c8 0f00       |    |		Execute_Immediate	Equal,0x0
23c9 4803       |H   |		Short_Literal	0x3
23ca e5ff       |    |		Load	0x2,-0x1
23cb 0217       |    |		Execute	Heap_Access,All_Reference
23cc 341a       |4   |		Execute	Record,Field_Reference,Field_Number 0x1a
23cd 01d6       |    |		Execute	Vector,Field_Write
23ce 4803       |H   |		Short_Literal	0x3
23cf 00d9       |    |		Load_Top	At_Offset_1
23d0 01d7       |    |		Execute	Vector,Field_Read
23d1 4804       |H   |		Short_Literal	0x4
23d2 e5ff       |    |		Load	0x2,-0x1
23d3 0217       |    |		Execute	Heap_Access,All_Reference
23d4 341a       |4   |		Execute	Record,Field_Reference,Field_Number 0x1a
23d5 01d6       |    |		Execute	Vector,Field_Write
23d6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
23d7 0000       |    |		.XXX[0x1]
23d8 ; --------------------------------------------------------------------------------------
23d8 ; SUBPROGRAM
23d8 ; --------------------------------------------------------------------------------------
23d8 2419       |$   |		.CONST	0x2419								; Address of begin
23d9 25ae       |%   |		.CONST	0x25ae								; Address of exception handler
23da 000d       |    |		.CONST	0x000d								; Number of locals
23db			INIT_23d8:
23db 00da       |    |		Load_Top	At_Offset_2
23dc e00d       |    |		Load	0x0,0xd
23dd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
23de 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
23df e5fe       |    |		Load	0x2,-0x2
23e0 0217       |    |		Execute	Heap_Access,All_Reference
23e1 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
23e2 0217       |    |		Execute	Heap_Access,All_Reference
23e3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
23e4 e020       |    |		Load	0x0,0x20
23e5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
23e6 00d9       |    |		Load_Top	At_Offset_1
23e7 01dd       |    |		Execute	Vector,First
23e8 00d9       |    |		Load_Top	At_Offset_1
23e9 01db       |    |		Execute	Vector,Length
23ea 0273       | s  |		Execute	Discrete,Plus
23eb 00d8       |    |		Load_Top	At_Offset_0
23ec 00e2       |    |		Load_Encached	Integer_Cache
23ed 0260       | `  |		Execute	Discrete,In_Type
23ee 7001       |p   |		Jump_Nonzero	0x23f0
23ef 0801       |    |		Execute_Immediate	Raise,0x1
23f0 00da       |    |		Load_Top	At_Offset_2
23f1 01dc       |    |		Execute	Vector,Last
23f2 00db       |    |		Load_Top	At_Offset_3
23f3 01cf       |    |		Execute	Vector,Slice_Read
23f4 0007       |    |		Action	Break_Optional
23f5 e020       |    |		Load	0x0,0x20
23f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
23f7 e02a       | *  |		Load	0x0,0x2a
23f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
23f9 02ff       |    |		Declare_Variable	Variant_Record
23fa 00d8       |    |		Load_Top	At_Offset_0
23fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
23fc e00d       |    |		Load	0x0,0xd
23fd 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
23fe 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
23ff 02c7       |    |		Declare_Variable	Any
2400 00d8       |    |		Load_Top	At_Offset_0
2401 1c00       |    |		Execute_Immediate	Run_Utility,0x0
2402 e00d       |    |		Load	0x0,0xd
2403 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
2404 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
2405 02c7       |    |		Declare_Variable	Any
2406 00d8       |    |		Load_Top	At_Offset_0
2407 1c00       |    |		Execute_Immediate	Run_Utility,0x0
2408 e00d       |    |		Load	0x0,0xd
2409 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
240a 02c7       |    |		Declare_Variable	Any
240b 00d8       |    |		Load_Top	At_Offset_0
240c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
240d e01b       |    |		Load	0x0,0x1b
240e 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
240f e01b       |    |		Load	0x0,0x1b
2410 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
2411 e00d       |    |		Load	0x0,0xd
2412 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2413 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
2414 02c7       |    |		Declare_Variable	Any
2415 00d8       |    |		Load_Top	At_Offset_0
2416 1c00       |    |		Execute_Immediate	Run_Utility,0x0
2417 e00d       |    |		Load	0x0,0xd
2418 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2419			BODY_23d8:
2419 e403       |    |		Load	0x2,0x3
241a 01db       |    |		Execute	Vector,Length
241b e402       |    |		Load	0x2,0x2
241c 01db       |    |		Execute	Vector,Length
241d 027d       | }  |		Execute	Discrete,Greater
241e 7014       |p   |		Jump_Nonzero	0x2433
241f 4801       |H   |		Short_Literal	0x1
2420 e402       |    |		Load	0x2,0x2
2421 01dd       |    |		Execute	Vector,First
2422 e402       |    |		Load	0x2,0x2
2423 01dd       |    |		Execute	Vector,First
2424 e403       |    |		Load	0x2,0x3
2425 01db       |    |		Execute	Vector,Length
2426 0273       | s  |		Execute	Discrete,Plus
2427 0aff       |    |		Execute_Immediate	Plus,-0x1
2428 00d8       |    |		Load_Top	At_Offset_0
2429 00e2       |    |		Load_Encached	Integer_Cache
242a 0260       | `  |		Execute	Discrete,In_Type
242b 7001       |p   |		Jump_Nonzero	0x242d
242c 0801       |    |		Execute_Immediate	Raise,0x1
242d e402       |    |		Load	0x2,0x2
242e 01cf       |    |		Execute	Vector,Slice_Read
242f e403       |    |		Load	0x2,0x3
2430 e02f       | /  |		Load	0x0,0x2f
2431 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
2432 7018       |p   |		Jump_Nonzero	0x244b
2433 e002       |    |		Load	0x0,0x2
2434 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2435 4801       |H   |		Short_Literal	0x1
2436 4802       |H   |		Short_Literal	0x2
2437 e00e       |    |		Load	0x0,0xe
2438 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2439 035b       | [  |		Declare_Type	Array,Constrained
243a 0337       | 7  |		Declare_Variable	Array
243b e5ff       |    |		Load	0x2,-0x1
243c e00e       |    |		Load	0x0,0xe
243d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
243e 4801       |H   |		Short_Literal	0x1
243f 00da       |    |		Load_Top	At_Offset_2
2440 01d6       |    |		Execute	Vector,Field_Write
2441 e5fe       |    |		Load	0x2,-0x2
2442 825a       | Z  |		Call	0x1,0x5a
2443 4802       |H   |		Short_Literal	0x2
2444 00da       |    |		Load_Top	At_Offset_2
2445 01d6       |    |		Execute	Vector,Field_Write
2446 6189       |a   |		Indirect_Literal	Discrete,0x25d0,{0x00000000, 0x0000281d}
2447 e002       |    |		Load	0x0,0x2
2448 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2449 c5fa       |    |		Store	0x2,-0x6
244a 7952       |yR  |		Jump	0x259d
244b e024       | $  |		Load	0x0,0x24
244c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
244d e402       |    |		Load	0x2,0x2
244e 4801       |H   |		Short_Literal	0x1
244f 617c       |a|  |		Indirect_Literal	Discrete,0x25cc,{0x00000000, 0x0000281f}
2450 e002       |    |		Load	0x0,0x2
2451 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
2452 e5fe       |    |		Load	0x2,-0x2
2453 e404       |    |		Load	0x2,0x4
2454 e020       |    |		Load	0x0,0x20
2455 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2456 a405       |    |		Store_Unchecked	0x2,0x5
2457 e5fe       |    |		Load	0x2,-0x2
2458 e405       |    |		Load	0x2,0x5
2459 e025       | %  |		Load	0x0,0x25
245a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
245b a40a       |    |		Store_Unchecked	0x2,0xa
245c 4802       |H   |		Short_Literal	0x2
245d e5fe       |    |		Load	0x2,-0x2
245e e5ff       |    |		Load	0x2,-0x1
245f e02a       | *  |		Load	0x0,0x2a
2460 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2461 e406       |    |		Load	0x2,0x6
2462 016d       | m  |		Execute	Variant_Record,Structure_Write
2463 00db       |    |		Load_Top	At_Offset_3
2464 681d       |h   |		Jump_Zero	0x2482
2465 e406       |    |		Load	0x2,0x6
2466 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2467 0f02       |    |		Execute_Immediate	Equal,0x2
2468 6811       |h   |		Jump_Zero	0x247a
2469 00db       |    |		Load_Top	At_Offset_3
246a e001       |    |		Load	0x0,0x1
246b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
246c 0216       |    |		Execute	Heap_Access,Convert
246d a5fb       |    |		Store_Unchecked	0x2,-0x5
246e e5fa       |    |		Load	0x2,-0x6
246f e5fc       |    |		Load	0x2,-0x4
2470 e5fd       |    |		Load	0x2,-0x3
2471 e40a       |    |		Load	0x2,0xa
2472 e001       |    |		Load	0x0,0x1
2473 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2474 0216       |    |		Execute	Heap_Access,Convert
2475 e001       |    |		Load	0x0,0x1
2476 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2477 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
2478 c5fa       |    |		Store	0x2,-0x6
2479 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
247a e5fa       |    |		Load	0x2,-0x6
247b e5fe       |    |		Load	0x2,-0x2
247c e40a       |    |		Load	0x2,0xa
247d e001       |    |		Load	0x0,0x1
247e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
247f 0216       |    |		Execute	Heap_Access,Convert
2480 8222       | "  |		Call	0x1,0x22
2481 c5fa       |    |		Store	0x2,-0x6
2482 e5fe       |    |		Load	0x2,-0x2
2483 e01b       |    |		Load	0x0,0x1b
2484 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
2485 a40a       |    |		Store_Unchecked	0x2,0xa
2486 00db       |    |		Load_Top	At_Offset_3
2487 e001       |    |		Load	0x0,0x1
2488 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2489 0216       |    |		Execute	Heap_Access,Convert
248a a5fb       |    |		Store_Unchecked	0x2,-0x5
248b e5fe       |    |		Load	0x2,-0x2
248c 0217       |    |		Execute	Heap_Access,All_Reference
248d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
248e 0a01       |    |		Execute_Immediate	Plus,0x1
248f e5fe       |    |		Load	0x2,-0x2
2490 0217       |    |		Execute	Heap_Access,All_Reference
2491 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
2492 e5fe       |    |		Load	0x2,-0x2
2493 0217       |    |		Execute	Heap_Access,All_Reference
2494 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
2495 0a01       |    |		Execute_Immediate	Plus,0x1
2496 e5fe       |    |		Load	0x2,-0x2
2497 0217       |    |		Execute	Heap_Access,All_Reference
2498 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
2499 e5fe       |    |		Load	0x2,-0x2
249a 0217       |    |		Execute	Heap_Access,All_Reference
249b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
249c e40a       |    |		Load	0x2,0xa
249d 0217       |    |		Execute	Heap_Access,All_Reference
249e 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
249f e405       |    |		Load	0x2,0x5
24a0 e40a       |    |		Load	0x2,0xa
24a1 0217       |    |		Execute	Heap_Access,All_Reference
24a2 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
24a3 4800       |H   |		Short_Literal	0x0
24a4 e5fe       |    |		Load	0x2,-0x2
24a5 e40a       |    |		Load	0x2,0xa
24a6 e405       |    |		Load	0x2,0x5
24a7 e025       | %  |		Load	0x0,0x25
24a8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
24a9 e406       |    |		Load	0x2,0x6
24aa 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
24ab 0f02       |    |		Execute_Immediate	Equal,0x2
24ac 6804       |h   |		Jump_Zero	0x24b1
24ad e406       |    |		Load	0x2,0x6
24ae 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
24af 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
24b0 7826       |x&  |		Jump	0x24d7
24b1 e5fe       |    |		Load	0x2,-0x2
24b2 e01b       |    |		Load	0x0,0x1b
24b3 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
24b4 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
24b5 e5fe       |    |		Load	0x2,-0x2
24b6 0217       |    |		Execute	Heap_Access,All_Reference
24b7 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
24b8 00db       |    |		Load_Top	At_Offset_3
24b9 0217       |    |		Execute	Heap_Access,All_Reference
24ba 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
24bb e405       |    |		Load	0x2,0x5
24bc 00db       |    |		Load_Top	At_Offset_3
24bd 0217       |    |		Execute	Heap_Access,All_Reference
24be 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
24bf e5ff       |    |		Load	0x2,-0x1
24c0 00db       |    |		Load_Top	At_Offset_3
24c1 0217       |    |		Execute	Heap_Access,All_Reference
24c2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
24c3 e5fe       |    |		Load	0x2,-0x2
24c4 0217       |    |		Execute	Heap_Access,All_Reference
24c5 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
24c6 0217       |    |		Execute	Heap_Access,All_Reference
24c7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
24c8 00db       |    |		Load_Top	At_Offset_3
24c9 0217       |    |		Execute	Heap_Access,All_Reference
24ca 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
24cb 00da       |    |		Load_Top	At_Offset_2
24cc e5fe       |    |		Load	0x2,-0x2
24cd 0217       |    |		Execute	Heap_Access,All_Reference
24ce 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
24cf 0217       |    |		Execute	Heap_Access,All_Reference
24d0 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
24d1 4800       |H   |		Short_Literal	0x0
24d2 e5fe       |    |		Load	0x2,-0x2
24d3 e40b       |    |		Load	0x2,0xb
24d4 e5ff       |    |		Load	0x2,-0x1
24d5 e02a       | *  |		Load	0x0,0x2a
24d6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
24d7 4801       |H   |		Short_Literal	0x1
24d8 00db       |    |		Load_Top	At_Offset_3
24d9 0217       |    |		Execute	Heap_Access,All_Reference
24da 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
24db 00db       |    |		Load_Top	At_Offset_3
24dc 00db       |    |		Load_Top	At_Offset_3
24dd 0217       |    |		Execute	Heap_Access,All_Reference
24de 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
24df 00da       |    |		Load_Top	At_Offset_2
24e0 e40a       |    |		Load	0x2,0xa
24e1 0217       |    |		Execute	Heap_Access,All_Reference
24e2 3817       |8   |		Execute	Record,Field_Write,Field_Number 0x17
24e3 4800       |H   |		Short_Literal	0x0
24e4 e40a       |    |		Load	0x2,0xa
24e5 0217       |    |		Execute	Heap_Access,All_Reference
24e6 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
24e7 00db       |    |		Load_Top	At_Offset_3
24e8 0219       |    |		Execute	Heap_Access,All_Read
24e9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
24ea e5fa       |    |		Load	0x2,-0x6
24eb 00d9       |    |		Load_Top	At_Offset_1
24ec 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
24ed 0120       |    |		Execute	Any,Is_Value
24ee 6803       |h   |		Jump_Zero	0x24f2
24ef e00d       |    |		Load	0x0,0xd
24f0 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
24f1 7802       |x   |		Jump	0x24f4
24f2 00d9       |    |		Load_Top	At_Offset_1
24f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
24f4 e40a       |    |		Load	0x2,0xa
24f5 e001       |    |		Load	0x0,0x1
24f6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
24f7 0216       |    |		Execute	Heap_Access,Convert
24f8 e001       |    |		Load	0x0,0x1
24f9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
24fa 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
24fb 00da       |    |		Load_Top	At_Offset_2
24fc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
24fd c5fa       |    |		Store	0x2,-0x6
24fe 00d1       |    |		Pop_Control	Pop_Count_1
24ff 00db       |    |		Load_Top	At_Offset_3
2500 0217       |    |		Execute	Heap_Access,All_Reference
2501 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
2502 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
2503 e00d       |    |		Load	0x0,0xd
2504 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
2505 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
2506 012f       | /  |		Execute	Any,Equal
2507 688b       |h   |		Jump_Zero	0x2593
2508 e5ff       |    |		Load	0x2,-0x1
2509 e00d       |    |		Load	0x0,0xd
250a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
250b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
250c c407       |    |		Store	0x2,0x7
250d 4800       |H   |		Short_Literal	0x0
250e e407       |    |		Load	0x2,0x7
250f e00d       |    |		Load	0x0,0xd
2510 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
2511 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2512 e40a       |    |		Load	0x2,0xa
2513 0217       |    |		Execute	Heap_Access,All_Reference
2514 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
2515 e00d       |    |		Load	0x0,0xd
2516 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2517 e408       |    |		Load	0x2,0x8
2518 0120       |    |		Execute	Any,Is_Value
2519 6804       |h   |		Jump_Zero	0x251e
251a e00d       |    |		Load	0x0,0xd
251b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
251c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
251d 7801       |x   |		Jump	0x251f
251e e408       |    |		Load	0x2,0x8
251f 60a8       |`   |		Indirect_Literal	Discrete,0x25c8,{0x00000000, 0x00004000}
2520 e022       | "  |		Load	0x0,0x22
2521 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
2522 e407       |    |		Load	0x2,0x7
2523 e00d       |    |		Load	0x0,0xd
2524 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
2525 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
2526 c408       |    |		Store	0x2,0x8
2527 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2528 e408       |    |		Load	0x2,0x8
2529 e00d       |    |		Load	0x0,0xd
252a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
252b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
252c c409       |    |		Store	0x2,0x9
252d e409       |    |		Load	0x2,0x9
252e e00d       |    |		Load	0x0,0xd
252f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2530 7023       |p#  |		Jump_Nonzero	0x2554
2531 4802       |H   |		Short_Literal	0x2
2532 e5fe       |    |		Load	0x2,-0x2
2533 e409       |    |		Load	0x2,0x9
2534 e02a       | *  |		Load	0x0,0x2a
2535 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2536 e406       |    |		Load	0x2,0x6
2537 016d       | m  |		Execute	Variant_Record,Structure_Write
2538 e406       |    |		Load	0x2,0x6
2539 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
253a 0f02       |    |		Execute_Immediate	Equal,0x2
253b 6818       |h   |		Jump_Zero	0x2554
253c e406       |    |		Load	0x2,0x6
253d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
253e 0217       |    |		Execute	Heap_Access,All_Reference
253f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
2540 e001       |    |		Load	0x0,0x1
2541 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2542 0216       |    |		Execute	Heap_Access,Convert
2543 e001       |    |		Load	0x0,0x1
2544 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2545 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2546 700d       |p   |		Jump_Nonzero	0x2554
2547 e406       |    |		Load	0x2,0x6
2548 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
2549 0217       |    |		Execute	Heap_Access,All_Reference
254a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
254b e40a       |    |		Load	0x2,0xa
254c 0217       |    |		Execute	Heap_Access,All_Reference
254d 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
254e 00db       |    |		Load_Top	At_Offset_3
254f e40a       |    |		Load	0x2,0xa
2550 0217       |    |		Execute	Heap_Access,All_Reference
2551 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
2552 0217       |    |		Execute	Heap_Access,All_Reference
2553 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
2554 e00d       |    |		Load	0x0,0xd
2555 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2556 00da       |    |		Load_Top	At_Offset_2
2557 0120       |    |		Execute	Any,Is_Value
2558 6804       |h   |		Jump_Zero	0x255d
2559 e00d       |    |		Load	0x0,0xd
255a 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
255b 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
255c 7801       |x   |		Jump	0x255e
255d 00da       |    |		Load_Top	At_Offset_2
255e 6069       |`i  |		Indirect_Literal	Discrete,0x25c8,{0x00000000, 0x00004000}
255f e022       | "  |		Load	0x0,0x22
2560 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
2561 4800       |H   |		Short_Literal	0x0
2562 e40a       |    |		Load	0x2,0xa
2563 0217       |    |		Execute	Heap_Access,All_Reference
2564 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
2565 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
2566 e00d       |    |		Load	0x0,0xd
2567 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2568 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2569 c40c       |    |		Store	0x2,0xc
256a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
256b 00d9       |    |		Load_Top	At_Offset_1
256c e00d       |    |		Load	0x0,0xd
256d 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
256e 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
256f 00da       |    |		Load_Top	At_Offset_2
2570 e00d       |    |		Load	0x0,0xd
2571 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2572 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
2573 012e       | .  |		Execute	Any,Not_Equal
2574 6822       |h"  |		Jump_Zero	0x2597
2575 4802       |H   |		Short_Literal	0x2
2576 e5fe       |    |		Load	0x2,-0x2
2577 00db       |    |		Load_Top	At_Offset_3
2578 e00d       |    |		Load	0x0,0xd
2579 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
257a 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
257b e02a       | *  |		Load	0x0,0x2a
257c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
257d e406       |    |		Load	0x2,0x6
257e 016d       | m  |		Execute	Variant_Record,Structure_Write
257f e406       |    |		Load	0x2,0x6
2580 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2581 0f02       |    |		Execute_Immediate	Equal,0x2
2582 6808       |h   |		Jump_Zero	0x258b
2583 e406       |    |		Load	0x2,0x6
2584 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
2585 0217       |    |		Execute	Heap_Access,All_Reference
2586 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
2587 e40a       |    |		Load	0x2,0xa
2588 0217       |    |		Execute	Heap_Access,All_Reference
2589 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
258a 780c       |x   |		Jump	0x2597
258b e5f9       |    |		Load	0x2,-0x7
258c 0a01       |    |		Execute_Immediate	Plus,0x1
258d c5f9       |    |		Store	0x2,-0x7
258e 4801       |H   |		Short_Literal	0x1
258f e40a       |    |		Load	0x2,0xa
2590 0217       |    |		Execute	Heap_Access,All_Reference
2591 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
2592 7804       |x   |		Jump	0x2597
2593 4800       |H   |		Short_Literal	0x0
2594 e40a       |    |		Load	0x2,0xa
2595 0217       |    |		Execute	Heap_Access,All_Reference
2596 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
2597 e5fe       |    |		Load	0x2,-0x2
2598 e40a       |    |		Load	0x2,0xa
2599 e001       |    |		Load	0x0,0x1
259a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
259b 0216       |    |		Execute	Heap_Access,Convert
259c 8264       | d  |		Call	0x1,0x64
259d 00db       |    |		Load_Top	At_Offset_3
259e e001       |    |		Load	0x0,0x1
259f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
25a0 0216       |    |		Execute	Heap_Access,Convert
25a1 82be       |    |		Call	0x1,0xbe
25a2 e5fa       |    |		Load	0x2,-0x6
25a3 e5fc       |    |		Load	0x2,-0x4
25a4 e5fd       |    |		Load	0x2,-0x3
25a5 e40a       |    |		Load	0x2,0xa
25a6 e001       |    |		Load	0x0,0x1
25a7 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
25a8 0216       |    |		Execute	Heap_Access,Convert
25a9 e001       |    |		Load	0x0,0x1
25aa 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
25ab 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
25ac c5fa       |    |		Store	0x2,-0x6
25ad 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
25ae			TRAP_23d8:
25ae 4885       |H   |		Short_Literal	0x85
25af 010f       |    |		Execute	Exception,Equal
25b0 6812       |h   |		Jump_Zero	0x25c3
25b1 e002       |    |		Load	0x0,0x2
25b2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
25b3 4801       |H   |		Short_Literal	0x1
25b4 4801       |H   |		Short_Literal	0x1
25b5 e00e       |    |		Load	0x0,0xe
25b6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25b7 035b       | [  |		Declare_Type	Array,Constrained
25b8 0337       | 7  |		Declare_Variable	Array
25b9 e5fe       |    |		Load	0x2,-0x2
25ba 825a       | Z  |		Call	0x1,0x5a
25bb 4801       |H   |		Short_Literal	0x1
25bc 00da       |    |		Load_Top	At_Offset_2
25bd 01d6       |    |		Execute	Vector,Field_Write
25be 6005       |`   |		Indirect_Literal	Discrete,0x25c4,{0x00000000, 0x00002836}
25bf e002       |    |		Load	0x0,0x2
25c0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
25c1 c5fa       |    |		Store	0x2,-0x6
25c2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
25c3 0100       |    |		Execute	Exception,Raise
25c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002836}
25c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
25cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281f}
25d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281d}
25d4 0000 0000  |    |		.BLANK	0000[0x4]
25d8 ; --------------------------------------------------------------------------------------
25d8 ; SUBPROGRAM
25d8 ; --------------------------------------------------------------------------------------
25d8 25ea       |%   |		.CONST	0x25ea								; Address of begin
25d9 0004       |    |		.CONST	0x0004								; Address of exception handler
25da 0005       |    |		.CONST	0x0005								; Number of locals
25db			INIT_25d8:
25db e00d       |    |		Load	0x0,0xd
25dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25dd 02c7       |    |		Declare_Variable	Any
25de 00d8       |    |		Load_Top	At_Offset_0
25df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
25e0 e00d       |    |		Load	0x0,0xd
25e1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25e2 02c7       |    |		Declare_Variable	Any
25e3 00d8       |    |		Load_Top	At_Offset_0
25e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
25e5 e00d       |    |		Load	0x0,0xd
25e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
25e7 e002       |    |		Load	0x0,0x2
25e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
25e9 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
25ea			BODY_25d8:
25ea e00d       |    |		Load	0x0,0xd
25eb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
25ec 00db       |    |		Load_Top	At_Offset_3
25ed 0120       |    |		Execute	Any,Is_Value
25ee 6803       |h   |		Jump_Zero	0x25f2
25ef e00d       |    |		Load	0x0,0xd
25f0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25f1 7801       |x   |		Jump	0x25f3
25f2 00db       |    |		Load_Top	At_Offset_3
25f3 e5ff       |    |		Load	0x2,-0x1
25f4 e00d       |    |		Load	0x0,0xd
25f5 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
25f6 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
25f7 c403       |    |		Store	0x2,0x3
25f8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
25f9 00d8       |    |		Load_Top	At_Offset_0
25fa e402       |    |		Load	0x2,0x2
25fb 0120       |    |		Execute	Any,Is_Value
25fc 6803       |h   |		Jump_Zero	0x2600
25fd e00d       |    |		Load	0x0,0xd
25fe 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25ff 7801       |x   |		Jump	0x2601
2600 e402       |    |		Load	0x2,0x2
2601 e5fe       |    |		Load	0x2,-0x2
2602 8217       |    |		Call	0x1,0x17
2603 c402       |    |		Store	0x2,0x2
2604 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2605 00da       |    |		Load_Top	At_Offset_2
2606 e402       |    |		Load	0x2,0x2
2607 012f       | /  |		Execute	Any,Equal
2608 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
2609 0000 0000  |    |		.BLANK	0000[0x7]
2610 ; --------------------------------------------------------------------------------------
2610 ; SUBPROGRAM
2610 ; --------------------------------------------------------------------------------------
2610 261d       |&   |		.CONST	0x261d								; Address of begin
2611 0004       |    |		.CONST	0x0004								; Address of exception handler
2612 0002       |    |		.CONST	0x0002								; Number of locals
2613			INIT_2610:
2613 e02a       | *  |		Load	0x0,0x2a
2614 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2615 02ff       |    |		Declare_Variable	Variant_Record
2616 4801       |H   |		Short_Literal	0x1
2617 e5fe       |    |		Load	0x2,-0x2
2618 e5ff       |    |		Load	0x2,-0x1
2619 e02a       | *  |		Load	0x0,0x2a
261a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
261b 00d9       |    |		Load_Top	At_Offset_1
261c 016d       | m  |		Execute	Variant_Record,Structure_Write
261d			BODY_2610:
261d e01b       |    |		Load	0x0,0x1b
261e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
261f a5fd       |    |		Store_Unchecked	0x2,-0x3
2620 00d8       |    |		Load_Top	At_Offset_0
2621 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2622 0f01       |    |		Execute_Immediate	Equal,0x1
2623 6807       |h   |		Jump_Zero	0x262b
2624 00d8       |    |		Load_Top	At_Offset_0
2625 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
2626 e01b       |    |		Load	0x0,0x1b
2627 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
2628 0216       |    |		Execute	Heap_Access,Convert
2629 a5fd       |    |		Store_Unchecked	0x2,-0x3
262a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
262b 00d8       |    |		Load_Top	At_Offset_0
262c 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
262d 6016       |`   |		Indirect_Literal	Discrete,0x2644,{0x00000000, 0x0000500a}
262e 027f       |    |		Execute	Discrete,Equal
262f 6813       |h   |		Jump_Zero	0x2643
2630 e002       |    |		Load	0x0,0x2
2631 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2632 4801       |H   |		Short_Literal	0x1
2633 4801       |H   |		Short_Literal	0x1
2634 e00e       |    |		Load	0x0,0xe
2635 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2636 035b       | [  |		Declare_Type	Array,Constrained
2637 0337       | 7  |		Declare_Variable	Array
2638 e5ff       |    |		Load	0x2,-0x1
2639 e00e       |    |		Load	0x0,0xe
263a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
263b 4801       |H   |		Short_Literal	0x1
263c 00da       |    |		Load_Top	At_Offset_2
263d 01d6       |    |		Execute	Vector,Field_Write
263e 00da       |    |		Load_Top	At_Offset_2
263f 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
2640 e002       |    |		Load	0x0,0x2
2641 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2642 c5fc       |    |		Store	0x2,-0x4
2643 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
2644 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500a}
2648 ; --------------------------------------------------------------------------------------
2648 ; SUBPROGRAM
2648 ; --------------------------------------------------------------------------------------
2648 264b       |&K  |		.CONST	0x264b								; Address of begin
2649 0004       |    |		.CONST	0x0004								; Address of exception handler
264a 0001       |    |		.CONST	0x0001								; Number of locals
264b			BODY_2648:
264b			INIT_2648:
264b 00cf       |    |		Action	Mark_Auxiliary
264c 00db       |    |		Load_Top	At_Offset_3
264d 01d9       |    |		Execute	Vector,Reverse_Bounds
264e 0263       | c  |		Execute	Discrete,Above_Bound
264f 7009       |p   |		Jump_Nonzero	0x2659
2650 e5fd       |    |		Load	0x2,-0x3
2651 e5fe       |    |		Load	0x2,-0x2
2652 00da       |    |		Load_Top	At_Offset_2
2653 e5ff       |    |		Load	0x2,-0x1
2654 01d7       |    |		Execute	Vector,Field_Read
2655 8231       | 1  |		Call	0x1,0x31
2656 c5fd       |    |		Store	0x2,-0x3
2657 00c8       |    |		Action	Pop_Auxiliary_Range
2658 3ff7       |?   |		Loop_Increasing	0x2650
2659 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
265a 0000 0000  |    |		.BLANK	0000[0x6]
2660 ; --------------------------------------------------------------------------------------
2660 ; SUBPROGRAM
2660 ; --------------------------------------------------------------------------------------
2660 2663       |&c  |		.CONST	0x2663								; Address of begin
2661 0004       |    |		.CONST	0x0004								; Address of exception handler
2662 0001       |    |		.CONST	0x0001								; Number of locals
2663			BODY_2660:
2663			INIT_2660:
2663 00cf       |    |		Action	Mark_Auxiliary
2664 00db       |    |		Load_Top	At_Offset_3
2665 01d9       |    |		Execute	Vector,Reverse_Bounds
2666 0263       | c  |		Execute	Discrete,Above_Bound
2667 7009       |p   |		Jump_Nonzero	0x2671
2668 e5fd       |    |		Load	0x2,-0x3
2669 e5fe       |    |		Load	0x2,-0x2
266a 00da       |    |		Load_Top	At_Offset_2
266b e5ff       |    |		Load	0x2,-0x1
266c 01d7       |    |		Execute	Vector,Field_Read
266d 8235       | 5  |		Call	0x1,0x35
266e c5fd       |    |		Store	0x2,-0x3
266f 00c8       |    |		Action	Pop_Auxiliary_Range
2670 3ff7       |?   |		Loop_Increasing	0x2668
2671 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
2672 0000 0000  |    |		.BLANK	0000[0x6]
2678 ; --------------------------------------------------------------------------------------
2678 ; SUBPROGRAM
2678 ; --------------------------------------------------------------------------------------
2678 2681       |&   |		.CONST	0x2681								; Address of begin
2679 0004       |    |		.CONST	0x0004								; Address of exception handler
267a 0003       |    |		.CONST	0x0003								; Number of locals
267b			INIT_2678:
267b 00da       |    |		Load_Top	At_Offset_2
267c 0217       |    |		Execute	Heap_Access,All_Reference
267d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
267e 0007       |    |		Action	Break_Optional
267f 00e2       |    |		Load_Encached	Integer_Cache
2680 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2681			BODY_2678:
2681 00cf       |    |		Action	Mark_Auxiliary
2682 7808       |x   |		Jump	0x268b
2683 00d9       |    |		Load_Top	At_Offset_1
2684 0a01       |    |		Execute_Immediate	Plus,0x1
2685 005a       | Z  |		Store_Top	Discrete,At_Offset_2
2686 00da       |    |		Load_Top	At_Offset_2
2687 0217       |    |		Execute	Heap_Access,All_Reference
2688 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2689 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
268a 00c9       |    |		Action	Pop_Auxiliary_Loop
268b 00da       |    |		Load_Top	At_Offset_2
268c 77f6       |w   |		Jump_Nonzero	0x2683
268d 00ce       |    |		Action	Pop_Auxiliary
268e 00d8       |    |		Load_Top	At_Offset_0
268f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
2690 ; --------------------------------------------------------------------------------------
2690 ; SUBPROGRAM
2690 ; --------------------------------------------------------------------------------------
2690 2695       |&   |		.CONST	0x2695								; Address of begin
2691 0004       |    |		.CONST	0x0004								; Address of exception handler
2692 0002       |    |		.CONST	0x0002								; Number of locals
2693			INIT_2690:
2693 e01b       |    |		Load	0x0,0x1b
2694 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
2695			BODY_2690:
2695 00db       |    |		Load_Top	At_Offset_3
2696 0217       |    |		Execute	Heap_Access,All_Reference
2697 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2698 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
2699 00cf       |    |		Action	Mark_Auxiliary
269a 780e       |x   |		Jump	0x26a9
269b 00d9       |    |		Load_Top	At_Offset_1
269c 0217       |    |		Execute	Heap_Access,All_Reference
269d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
269e e5fe       |    |		Load	0x2,-0x2
269f 027f       |    |		Execute	Discrete,Equal
26a0 6803       |h   |		Jump_Zero	0x26a4
26a1 00d9       |    |		Load_Top	At_Offset_1
26a2 a5fc       |    |		Store_Unchecked	0x2,-0x4
26a3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
26a4 00d9       |    |		Load_Top	At_Offset_1
26a5 0217       |    |		Execute	Heap_Access,All_Reference
26a6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
26a7 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
26a8 00c9       |    |		Action	Pop_Auxiliary_Loop
26a9 00d9       |    |		Load_Top	At_Offset_1
26aa 77f0       |w   |		Jump_Nonzero	0x269b
26ab 00ce       |    |		Action	Pop_Auxiliary
26ac e5fd       |    |		Load	0x2,-0x3
26ad 6813       |h   |		Jump_Zero	0x26c1
26ae 00db       |    |		Load_Top	At_Offset_3
26af e01b       |    |		Load	0x0,0x1b
26b0 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
26b1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
26b2 e5fe       |    |		Load	0x2,-0x2
26b3 00d9       |    |		Load_Top	At_Offset_1
26b4 0217       |    |		Execute	Heap_Access,All_Reference
26b5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
26b6 00db       |    |		Load_Top	At_Offset_3
26b7 0217       |    |		Execute	Heap_Access,All_Reference
26b8 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
26b9 00d9       |    |		Load_Top	At_Offset_1
26ba 0217       |    |		Execute	Heap_Access,All_Reference
26bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
26bc 00d8       |    |		Load_Top	At_Offset_0
26bd e5ff       |    |		Load	0x2,-0x1
26be 0217       |    |		Execute	Heap_Access,All_Reference
26bf 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
26c0 7802       |x   |		Jump	0x26c3
26c1 6006       |`   |		Indirect_Literal	Discrete,0x26c8,{0x00000000, 0x0000281a}
26c2 a5fb       |    |		Store_Unchecked	0x2,-0x5
26c3 00d8       |    |		Load_Top	At_Offset_0
26c4 a5fc       |    |		Store_Unchecked	0x2,-0x4
26c5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
26c6 0000 0000  |    |		.XXX[0x2]
26c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281a}
26cc 0000 0000  |    |		.BLANK	0000[0x4]
26d0 ; --------------------------------------------------------------------------------------
26d0 ; SUBPROGRAM
26d0 ; --------------------------------------------------------------------------------------
26d0 26d3       |&   |		.CONST	0x26d3								; Address of begin
26d1 0004       |    |		.CONST	0x0004								; Address of exception handler
26d2 0001       |    |		.CONST	0x0001								; Number of locals
26d3			BODY_26d0:
26d3			INIT_26d0:
26d3 00db       |    |		Load_Top	At_Offset_3
26d4 e034       | 4  |		Load	0x0,0x34
26d5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
26d6 00d9       |    |		Load_Top	At_Offset_1
26d7 00d0       |    |		Action	Swap_Control
26d8 0260       | `  |		Execute	Discrete,In_Type
26d9 7001       |p   |		Jump_Nonzero	0x26db
26da 0801       |    |		Execute_Immediate	Raise,0x1
26db 00db       |    |		Load_Top	At_Offset_3
26dc e035       | 5  |		Load	0x0,0x35
26dd e036       | 6  |		Load	0x0,0x36
26de a037       | 7  |		Store_Unchecked	0x0,0x37
26df e038       | 8  |		Load	0x0,0x38
26e0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
26e1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
26e2 0000 0000  |    |		.BLANK	0000[0x6]
26e8 ; --------------------------------------------------------------------------------------
26e8 ; SUBPROGRAM
26e8 ; --------------------------------------------------------------------------------------
26e8 26ed       |&   |		.CONST	0x26ed								; Address of begin
26e9 0004       |    |		.CONST	0x0004								; Address of exception handler
26ea 0002       |    |		.CONST	0x0002								; Number of locals
26eb			INIT_26e8:
26eb e01b       |    |		Load	0x0,0x1b
26ec 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
26ed			BODY_26e8:
26ed e5fb       |    |		Load	0x2,-0x5
26ee e5fd       |    |		Load	0x2,-0x3
26ef e299       |    |		Load	0x1,0x99
26f0 01d7       |    |		Execute	Vector,Field_Read
26f1 e5ff       |    |		Load	0x2,-0x1
26f2 e01b       |    |		Load	0x0,0x1b
26f3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
26f4 c5fb       |    |		Store	0x2,-0x5
26f5 e5fb       |    |		Load	0x2,-0x5
26f6 702e       |p.  |		Jump_Nonzero	0x2725
26f7 00db       |    |		Load_Top	At_Offset_3
26f8 0217       |    |		Execute	Heap_Access,All_Reference
26f9 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
26fa 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
26fb 00cf       |    |		Action	Mark_Auxiliary
26fc 780e       |x   |		Jump	0x270b
26fd 00d9       |    |		Load_Top	At_Offset_1
26fe 0217       |    |		Execute	Heap_Access,All_Reference
26ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
2700 e5fe       |    |		Load	0x2,-0x2
2701 027f       |    |		Execute	Discrete,Equal
2702 6803       |h   |		Jump_Zero	0x2706
2703 00d9       |    |		Load_Top	At_Offset_1
2704 a5fc       |    |		Store_Unchecked	0x2,-0x4
2705 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
2706 00d9       |    |		Load_Top	At_Offset_1
2707 0217       |    |		Execute	Heap_Access,All_Reference
2708 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
2709 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
270a 00c9       |    |		Action	Pop_Auxiliary_Loop
270b 00d9       |    |		Load_Top	At_Offset_1
270c 77f0       |w   |		Jump_Nonzero	0x26fd
270d 00ce       |    |		Action	Pop_Auxiliary
270e e5fd       |    |		Load	0x2,-0x3
270f 6813       |h   |		Jump_Zero	0x2723
2710 00db       |    |		Load_Top	At_Offset_3
2711 e01b       |    |		Load	0x0,0x1b
2712 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
2713 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
2714 e5fe       |    |		Load	0x2,-0x2
2715 00d9       |    |		Load_Top	At_Offset_1
2716 0217       |    |		Execute	Heap_Access,All_Reference
2717 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
2718 00db       |    |		Load_Top	At_Offset_3
2719 0217       |    |		Execute	Heap_Access,All_Reference
271a 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
271b 00d9       |    |		Load_Top	At_Offset_1
271c 0217       |    |		Execute	Heap_Access,All_Reference
271d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
271e 00d8       |    |		Load_Top	At_Offset_0
271f e5ff       |    |		Load	0x2,-0x1
2720 0217       |    |		Execute	Heap_Access,All_Reference
2721 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
2722 7802       |x   |		Jump	0x2725
2723 6004       |`   |		Indirect_Literal	Discrete,0x2728,{0x00000000, 0x0000281c}
2724 a5fb       |    |		Store_Unchecked	0x2,-0x5
2725 00d8       |    |		Load_Top	At_Offset_0
2726 a5fc       |    |		Store_Unchecked	0x2,-0x4
2727 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
2728 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
272c 0000 0000  |    |		.BLANK	0000[0x4]
2730 ; --------------------------------------------------------------------------------------
2730 ; SUBPROGRAM
2730 ; --------------------------------------------------------------------------------------
2730 2733       |'3  |		.CONST	0x2733								; Address of begin
2731 0004       |    |		.CONST	0x0004								; Address of exception handler
2732 0001       |    |		.CONST	0x0001								; Number of locals
2733			BODY_2730:
2733			INIT_2730:
2733 00da       |    |		Load_Top	At_Offset_2
2734 e297       |    |		Load	0x1,0x97
2735 011c       |    |		Execute	Any,Convert_Unchecked
2736 1c01       |    |		Execute_Immediate	Run_Utility,0x1
2737 e00e       |    |		Load	0x0,0xe
2738 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
2739 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
273a 0000 0000  |    |		.BLANK	0000[0x6]
2740 ; --------------------------------------------------------------------------------------
2740 ; SUBPROGRAM
2740 ; --------------------------------------------------------------------------------------
2740 2748       |'H  |		.CONST	0x2748								; Address of begin
2741 0004       |    |		.CONST	0x0004								; Address of exception handler
2742 0003       |    |		.CONST	0x0003								; Number of locals
2743			INIT_2740:
2743 e01b       |    |		Load	0x0,0x1b
2744 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
2745 e002       |    |		Load	0x0,0x2
2746 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2747 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2748			BODY_2740:
2748 00d8       |    |		Load_Top	At_Offset_0
2749 e01b       |    |		Load	0x0,0x1b
274a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
274b 4800       |H   |		Short_Literal	0x0
274c e5fd       |    |		Load	0x2,-0x3
274d e5ff       |    |		Load	0x2,-0x1
274e 82d5       |    |		Call	0x1,0xd5
274f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2750 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2751 00d8       |    |		Load_Top	At_Offset_0
2752 7027       |p'  |		Jump_Nonzero	0x277a
2753 e5fe       |    |		Load	0x2,-0x2
2754 4606       |F   |		Jump_Case	0x7
2755 781e       |x   |		Jump	0x2774								; case 0x0
2756 7805       |x   |		Jump	0x275c								; case 0x1
2757 780a       |x   |		Jump	0x2762								; case 0x2
2758 780f       |x   |		Jump	0x2768								; case 0x3
2759 7814       |x   |		Jump	0x276e								; case 0x4
275a 7839       |x9  |		Jump	0x2794								; case 0x5
275b 7838       |x8  |		Jump	0x2794								; case 0x6
275c 00d9       |    |		Load_Top	At_Offset_1
275d 0217       |    |		Execute	Heap_Access,All_Reference
275e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
275f e020       |    |		Load	0x0,0x20
2760 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2761 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2762 00d9       |    |		Load_Top	At_Offset_1
2763 0217       |    |		Execute	Heap_Access,All_Reference
2764 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
2765 e020       |    |		Load	0x0,0x20
2766 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2767 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2768 00d9       |    |		Load_Top	At_Offset_1
2769 0217       |    |		Execute	Heap_Access,All_Reference
276a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
276b e020       |    |		Load	0x0,0x20
276c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
276d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
276e 00d9       |    |		Load_Top	At_Offset_1
276f 0217       |    |		Execute	Heap_Access,All_Reference
2770 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
2771 e020       |    |		Load	0x0,0x20
2772 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2773 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2774 00d9       |    |		Load_Top	At_Offset_1
2775 0217       |    |		Execute	Heap_Access,All_Reference
2776 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
2777 e020       |    |		Load	0x0,0x20
2778 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2779 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
277a 00d8       |    |		Load_Top	At_Offset_0
277b 601c       |`   |		Indirect_Literal	Discrete,0x2798,{0x00000000, 0x0000281c}
277c 027f       |    |		Execute	Discrete,Equal
277d 6802       |h   |		Jump_Zero	0x2780
277e 00ea       |    |		Load_Encached	Null_String_Cache
277f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2780 4801       |H   |		Short_Literal	0x1
2781 4802       |H   |		Short_Literal	0x2
2782 e00e       |    |		Load	0x0,0xe
2783 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2784 035b       | [  |		Declare_Type	Array,Constrained
2785 0337       | 7  |		Declare_Variable	Array
2786 e5ff       |    |		Load	0x2,-0x1
2787 825a       | Z  |		Call	0x1,0x5a
2788 4801       |H   |		Short_Literal	0x1
2789 00da       |    |		Load_Top	At_Offset_2
278a 01d6       |    |		Execute	Vector,Field_Write
278b e5fe       |    |		Load	0x2,-0x2
278c 82d6       |    |		Call	0x1,0xd6
278d 4802       |H   |		Short_Literal	0x2
278e 00da       |    |		Load_Top	At_Offset_2
278f 01d6       |    |		Execute	Vector,Field_Write
2790 00d9       |    |		Load_Top	At_Offset_1
2791 e002       |    |		Load	0x0,0x2
2792 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
2793 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2794 0831       | 1  |		Execute_Immediate	Raise,0x31
2795 0000 0000  |    |		.XXX[0x3]
2797 0000       |    |
2798 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
279c 0000 0000  |    |		.BLANK	0000[0x4]
27a0 ; --------------------------------------------------------------------------------------
27a0 ; SUBPROGRAM
27a0 ; --------------------------------------------------------------------------------------
27a0 27a8       |'   |		.CONST	0x27a8								; Address of begin
27a1 0004       |    |		.CONST	0x0004								; Address of exception handler
27a2 0003       |    |		.CONST	0x0003								; Number of locals
27a3			INIT_27a0:
27a3 e01b       |    |		Load	0x0,0x1b
27a4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
27a5 e002       |    |		Load	0x0,0x2
27a6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
27a7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
27a8			BODY_27a0:
27a8 00d8       |    |		Load_Top	At_Offset_0
27a9 e01b       |    |		Load	0x0,0x1b
27aa 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
27ab 4801       |H   |		Short_Literal	0x1
27ac e5fc       |    |		Load	0x2,-0x4
27ad e5ff       |    |		Load	0x2,-0x1
27ae 82d5       |    |		Call	0x1,0xd5
27af 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
27b0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
27b1 00d8       |    |		Load_Top	At_Offset_0
27b2 7059       |pY  |		Jump_Nonzero	0x280c
27b3 e5fe       |    |		Load	0x2,-0x2
27b4 4606       |F   |		Jump_Case	0x7
27b5 7846       |xF  |		Jump	0x27fc								; case 0x0
27b6 7805       |x   |		Jump	0x27bc								; case 0x1
27b7 7814       |x   |		Jump	0x27cc								; case 0x2
27b8 7823       |x#  |		Jump	0x27dc								; case 0x3
27b9 7832       |x2  |		Jump	0x27ec								; case 0x4
27ba 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x5
27bb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x6
27bc e5ff       |    |		Load	0x2,-0x1
27bd e5fd       |    |		Load	0x2,-0x3
27be e020       |    |		Load	0x0,0x20
27bf 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
27c0 00da       |    |		Load_Top	At_Offset_2
27c1 0217       |    |		Execute	Heap_Access,All_Reference
27c2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
27c3 0092 2c15  |  , |		Action	Push_String_Extended,0x2c15					; "Target_Account has been set to \x22"
27c5 e5fd       |    |		Load	0x2,-0x3
27c6 01cc       |    |		Execute	Vector,Catenate
27c7 0092 2c0d  |  , |		Action	Push_String_Extended,0x2c0d					; "\x22."
27c9 01cc       |    |		Execute	Vector,Catenate
27ca 801d       |    |		Call	0x0,0x1d
27cb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
27cc e5ff       |    |		Load	0x2,-0x1
27cd e5fd       |    |		Load	0x2,-0x3
27ce e020       |    |		Load	0x0,0x20
27cf 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
27d0 00da       |    |		Load_Top	At_Offset_2
27d1 0217       |    |		Execute	Heap_Access,All_Reference
27d2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
27d3 0092 2c16  |  , |		Action	Push_String_Extended,0x2c16					; "Target_Directory has been set to \x22"
27d5 e5fd       |    |		Load	0x2,-0x3
27d6 01cc       |    |		Execute	Vector,Catenate
27d7 0092 2c0d  |  , |		Action	Push_String_Extended,0x2c0d					; "\x22."
27d9 01cc       |    |		Execute	Vector,Catenate
27da 801d       |    |		Call	0x0,0x1d
27db 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
27dc e5ff       |    |		Load	0x2,-0x1
27dd e5fd       |    |		Load	0x2,-0x3
27de e020       |    |		Load	0x0,0x20
27df 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
27e0 00da       |    |		Load_Top	At_Offset_2
27e1 0217       |    |		Execute	Heap_Access,All_Reference
27e2 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
27e3 0092 2c17  |  , |		Action	Push_String_Extended,0x2c17					; "Target_Library has been set to \x22"
27e5 e5fd       |    |		Load	0x2,-0x3
27e6 01cc       |    |		Execute	Vector,Catenate
27e7 0092 2c0d  |  , |		Action	Push_String_Extended,0x2c0d					; "\x22."
27e9 01cc       |    |		Execute	Vector,Catenate
27ea 801d       |    |		Call	0x0,0x1d
27eb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
27ec e5ff       |    |		Load	0x2,-0x1
27ed e5fd       |    |		Load	0x2,-0x3
27ee e020       |    |		Load	0x0,0x20
27ef 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
27f0 00da       |    |		Load_Top	At_Offset_2
27f1 0217       |    |		Execute	Heap_Access,All_Reference
27f2 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
27f3 0092 2c18  |  , |		Action	Push_String_Extended,0x2c18					; "Configuration has been set to \x22"
27f5 e5fd       |    |		Load	0x2,-0x3
27f6 01cc       |    |		Execute	Vector,Catenate
27f7 0092 2c0d  |  , |		Action	Push_String_Extended,0x2c0d					; "\x22."
27f9 01cc       |    |		Execute	Vector,Catenate
27fa 801d       |    |		Call	0x0,0x1d
27fb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
27fc e5ff       |    |		Load	0x2,-0x1
27fd e5fd       |    |		Load	0x2,-0x3
27fe e020       |    |		Load	0x0,0x20
27ff 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2800 00da       |    |		Load_Top	At_Offset_2
2801 0217       |    |		Execute	Heap_Access,All_Reference
2802 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
2803 0092 2c19  |  , |		Action	Push_String_Extended,0x2c19					; "Target_Machine has been set to \x22"
2805 e5fd       |    |		Load	0x2,-0x3
2806 01cc       |    |		Execute	Vector,Catenate
2807 0092 2c0d  |  , |		Action	Push_String_Extended,0x2c0d					; "\x22."
2809 01cc       |    |		Execute	Vector,Catenate
280a 801d       |    |		Call	0x0,0x1d
280b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
280c e002       |    |		Load	0x0,0x2
280d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
280e 4801       |H   |		Short_Literal	0x1
280f 4804       |H   |		Short_Literal	0x4
2810 e00e       |    |		Load	0x0,0xe
2811 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2812 035b       | [  |		Declare_Type	Array,Constrained
2813 0337       | 7  |		Declare_Variable	Array
2814 e5ff       |    |		Load	0x2,-0x1
2815 825a       | Z  |		Call	0x1,0x5a
2816 4801       |H   |		Short_Literal	0x1
2817 00da       |    |		Load_Top	At_Offset_2
2818 01d6       |    |		Execute	Vector,Field_Write
2819 e5fc       |    |		Load	0x2,-0x4
281a e00c       |    |		Load	0x0,0xc
281b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
281c 4802       |H   |		Short_Literal	0x2
281d 00da       |    |		Load_Top	At_Offset_2
281e 01d6       |    |		Execute	Vector,Field_Write
281f 00da       |    |		Load_Top	At_Offset_2
2820 e002       |    |		Load	0x0,0x2
2821 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
2822 4803       |H   |		Short_Literal	0x3
2823 00da       |    |		Load_Top	At_Offset_2
2824 01d6       |    |		Execute	Vector,Field_Write
2825 e5fe       |    |		Load	0x2,-0x2
2826 82d6       |    |		Call	0x1,0xd6
2827 4804       |H   |		Short_Literal	0x4
2828 00da       |    |		Load_Top	At_Offset_2
2829 01d6       |    |		Execute	Vector,Field_Write
282a 6005       |`   |		Indirect_Literal	Discrete,0x2830,{0x00000000, 0x0000282e}
282b e002       |    |		Load	0x0,0x2
282c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
282d c5fb       |    |		Store	0x2,-0x5
282e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
282f 0000       |    |		.XXX[0x1]
2830 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282e}
2834 0000 0000  |    |		.BLANK	0000[0x4]
2838 ; --------------------------------------------------------------------------------------
2838 ; SUBPROGRAM
2838 ; --------------------------------------------------------------------------------------
2838 2840       |(@  |		.CONST	0x2840								; Address of begin
2839 0004       |    |		.CONST	0x0004								; Address of exception handler
283a 0003       |    |		.CONST	0x0003								; Number of locals
283b			INIT_2838:
283b e01b       |    |		Load	0x0,0x1b
283c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
283d e002       |    |		Load	0x0,0x2
283e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
283f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2840			BODY_2838:
2840 00d8       |    |		Load_Top	At_Offset_0
2841 e01b       |    |		Load	0x0,0x1b
2842 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
2843 4800       |H   |		Short_Literal	0x0
2844 e5fd       |    |		Load	0x2,-0x3
2845 e5ff       |    |		Load	0x2,-0x1
2846 82d5       |    |		Call	0x1,0xd5
2847 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2848 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2849 00d8       |    |		Load_Top	At_Offset_0
284a 7011       |p   |		Jump_Nonzero	0x285c
284b e5fe       |    |		Load	0x2,-0x2
284c 4606       |F   |		Jump_Case	0x7
284d 7828       |x(  |		Jump	0x2876								; case 0x0
284e 7827       |x'  |		Jump	0x2876								; case 0x1
284f 7826       |x&  |		Jump	0x2876								; case 0x2
2850 7825       |x%  |		Jump	0x2876								; case 0x3
2851 7824       |x$  |		Jump	0x2876								; case 0x4
2852 7805       |x   |		Jump	0x2858								; case 0x5
2853 7800       |x   |		Jump	0x2854								; case 0x6
2854 00d9       |    |		Load_Top	At_Offset_1
2855 0217       |    |		Execute	Heap_Access,All_Reference
2856 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2857 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2858 00d9       |    |		Load_Top	At_Offset_1
2859 0217       |    |		Execute	Heap_Access,All_Reference
285a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
285b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
285c 00d8       |    |		Load_Top	At_Offset_0
285d 601a       |`   |		Indirect_Literal	Discrete,0x2878,{0x00000000, 0x0000281c}
285e 027f       |    |		Execute	Discrete,Equal
285f 6802       |h   |		Jump_Zero	0x2862
2860 4800       |H   |		Short_Literal	0x0
2861 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2862 4801       |H   |		Short_Literal	0x1
2863 4802       |H   |		Short_Literal	0x2
2864 e00e       |    |		Load	0x0,0xe
2865 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2866 035b       | [  |		Declare_Type	Array,Constrained
2867 0337       | 7  |		Declare_Variable	Array
2868 e5ff       |    |		Load	0x2,-0x1
2869 825a       | Z  |		Call	0x1,0x5a
286a 4801       |H   |		Short_Literal	0x1
286b 00da       |    |		Load_Top	At_Offset_2
286c 01d6       |    |		Execute	Vector,Field_Write
286d e5fe       |    |		Load	0x2,-0x2
286e 82d6       |    |		Call	0x1,0xd6
286f 4802       |H   |		Short_Literal	0x2
2870 00da       |    |		Load_Top	At_Offset_2
2871 01d6       |    |		Execute	Vector,Field_Write
2872 00d9       |    |		Load_Top	At_Offset_1
2873 e002       |    |		Load	0x0,0x2
2874 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
2875 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2876 0831       | 1  |		Execute_Immediate	Raise,0x31
2877 0000       |    |		.XXX[0x1]
2878 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
287c 0000 0000  |    |		.BLANK	0000[0x4]
2880 ; --------------------------------------------------------------------------------------
2880 ; SUBPROGRAM
2880 ; --------------------------------------------------------------------------------------
2880 2888       |(   |		.CONST	0x2888								; Address of begin
2881 0004       |    |		.CONST	0x0004								; Address of exception handler
2882 0003       |    |		.CONST	0x0003								; Number of locals
2883			INIT_2880:
2883 e01b       |    |		Load	0x0,0x1b
2884 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
2885 e002       |    |		Load	0x0,0x2
2886 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2887 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2888			BODY_2880:
2888 00d8       |    |		Load_Top	At_Offset_0
2889 e01b       |    |		Load	0x0,0x1b
288a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
288b 4801       |H   |		Short_Literal	0x1
288c e5fc       |    |		Load	0x2,-0x4
288d e5ff       |    |		Load	0x2,-0x1
288e 82d5       |    |		Call	0x1,0xd5
288f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2890 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2891 00d8       |    |		Load_Top	At_Offset_0
2892 7013       |p   |		Jump_Nonzero	0x28a6
2893 e5fe       |    |		Load	0x2,-0x2
2894 4606       |F   |		Jump_Case	0x7
2895 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x0
2896 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x1
2897 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x2
2898 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x3
2899 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x4
289a 7806       |x   |		Jump	0x28a1								; case 0x5
289b 7800       |x   |		Jump	0x289c								; case 0x6
289c e5fd       |    |		Load	0x2,-0x3
289d 00da       |    |		Load_Top	At_Offset_2
289e 0217       |    |		Execute	Heap_Access,All_Reference
289f 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
28a0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
28a1 e5fd       |    |		Load	0x2,-0x3
28a2 00da       |    |		Load_Top	At_Offset_2
28a3 0217       |    |		Execute	Heap_Access,All_Reference
28a4 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
28a5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
28a6 e002       |    |		Load	0x0,0x2
28a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
28a8 4801       |H   |		Short_Literal	0x1
28a9 4804       |H   |		Short_Literal	0x4
28aa e00e       |    |		Load	0x0,0xe
28ab 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
28ac 035b       | [  |		Declare_Type	Array,Constrained
28ad 0337       | 7  |		Declare_Variable	Array
28ae e5ff       |    |		Load	0x2,-0x1
28af 825a       | Z  |		Call	0x1,0x5a
28b0 4801       |H   |		Short_Literal	0x1
28b1 00da       |    |		Load_Top	At_Offset_2
28b2 01d6       |    |		Execute	Vector,Field_Write
28b3 e5fc       |    |		Load	0x2,-0x4
28b4 e00c       |    |		Load	0x0,0xc
28b5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
28b6 4802       |H   |		Short_Literal	0x2
28b7 00da       |    |		Load_Top	At_Offset_2
28b8 01d6       |    |		Execute	Vector,Field_Write
28b9 00da       |    |		Load_Top	At_Offset_2
28ba e002       |    |		Load	0x0,0x2
28bb 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
28bc 4803       |H   |		Short_Literal	0x3
28bd 00da       |    |		Load_Top	At_Offset_2
28be 01d6       |    |		Execute	Vector,Field_Write
28bf e5fe       |    |		Load	0x2,-0x2
28c0 82d6       |    |		Call	0x1,0xd6
28c1 4804       |H   |		Short_Literal	0x4
28c2 00da       |    |		Load_Top	At_Offset_2
28c3 01d6       |    |		Execute	Vector,Field_Write
28c4 6007       |`   |		Indirect_Literal	Discrete,0x28cc,{0x00000000, 0x0000282e}
28c5 e002       |    |		Load	0x0,0x2
28c6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
28c7 c5fb       |    |		Store	0x2,-0x5
28c8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
28c9 0000 0000  |    |		.XXX[0x3]
28cb 0000       |    |
28cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282e}
28d0 ; --------------------------------------------------------------------------------------
28d0 ; SUBPROGRAM
28d0 ; --------------------------------------------------------------------------------------
28d0 28d3       |(   |		.CONST	0x28d3								; Address of begin
28d1 0004       |    |		.CONST	0x0004								; Address of exception handler
28d2 0001       |    |		.CONST	0x0001								; Number of locals
28d3			BODY_28d0:
28d3			INIT_28d0:
28d3 00db       |    |		Load_Top	At_Offset_3
28d4 e034       | 4  |		Load	0x0,0x34
28d5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
28d6 00d9       |    |		Load_Top	At_Offset_1
28d7 00d0       |    |		Action	Swap_Control
28d8 0260       | `  |		Execute	Discrete,In_Type
28d9 7001       |p   |		Jump_Nonzero	0x28db
28da 0801       |    |		Execute_Immediate	Raise,0x1
28db 00db       |    |		Load_Top	At_Offset_3
28dc e039       | 9  |		Load	0x0,0x39
28dd e03a       | :  |		Load	0x0,0x3a
28de a03b       | ;  |		Store_Unchecked	0x0,0x3b
28df e038       | 8  |		Load	0x0,0x38
28e0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
28e1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
28e2 0000 0000  |    |		.BLANK	0000[0x6]
28e8 ; --------------------------------------------------------------------------------------
28e8 ; SUBPROGRAM
28e8 ; --------------------------------------------------------------------------------------
28e8 28f4       |(   |		.CONST	0x28f4								; Address of begin
28e9 2976       |)v  |		.CONST	0x2976								; Address of exception handler
28ea 0004       |    |		.CONST	0x0004								; Number of locals
28eb			INIT_28e8:
28eb e03c       | <  |		Load	0x0,0x3c
28ec 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
28ed 02c7       |    |		Declare_Variable	Any
28ee 00d8       |    |		Load_Top	At_Offset_0
28ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
28f0 e20d       |    |		Load	0x1,0xd
28f1 0007       |    |		Action	Break_Optional
28f2 e01b       |    |		Load	0x0,0x1b
28f3 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
28f4			BODY_28e8:
28f4 00be       |    |		Action	Activate_Tasks
28f5 e5f9       |    |		Load	0x2,-0x7
28f6 00db       |    |		Load_Top	At_Offset_3
28f7 e20d       |    |		Load	0x1,0xd
28f8 e5fb       |    |		Load	0x2,-0x5
28f9 e7ff       |    |		Load	0x3,-0x1
28fa e01b       |    |		Load	0x0,0x1b
28fb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
28fc c603       |    |		Store	0x3,0x3
28fd c602       |    |		Store	0x3,0x2
28fe c5f9       |    |		Store	0x2,-0x7
28ff 4800       |H   |		Short_Literal	0x0
2900 e5f9       |    |		Load	0x2,-0x7
2901 e002       |    |		Load	0x0,0x2
2902 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2903 6871       |hq  |		Jump_Zero	0x2975
2904 00d9       |    |		Load_Top	At_Offset_1
2905 e5fd       |    |		Load	0x2,-0x3
2906 e020       |    |		Load	0x0,0x20
2907 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2908 00da       |    |		Load_Top	At_Offset_2
2909 0217       |    |		Execute	Heap_Access,All_Reference
290a 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
290b 00d9       |    |		Load_Top	At_Offset_1
290c e5fe       |    |		Load	0x2,-0x2
290d e020       |    |		Load	0x0,0x20
290e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
290f 00da       |    |		Load_Top	At_Offset_2
2910 0217       |    |		Execute	Heap_Access,All_Reference
2911 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
2912 e5fb       |    |		Load	0x2,-0x5
2913 e00c       |    |		Load	0x0,0xc
2914 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2915 00da       |    |		Load_Top	At_Offset_2
2916 0217       |    |		Execute	Heap_Access,All_Reference
2917 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
2918 e5fb       |    |		Load	0x2,-0x5
2919 00da       |    |		Load_Top	At_Offset_2
291a 0217       |    |		Execute	Heap_Access,All_Reference
291b 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
291c 00cf       |    |		Action	Mark_Auxiliary
291d e5fa       |    |		Load	0x2,-0x6
291e 01d9       |    |		Execute	Vector,Reverse_Bounds
291f 0263       | c  |		Execute	Discrete,Above_Bound
2920 7027       |p'  |		Jump_Nonzero	0x2948
2921 00d8       |    |		Load_Top	At_Offset_0
2922 e5fa       |    |		Load	0x2,-0x6
2923 01d7       |    |		Execute	Vector,Field_Read
2924 6821       |h!  |		Jump_Zero	0x2946
2925 e603       |    |		Load	0x3,0x3
2926 e01b       |    |		Load	0x0,0x1b
2927 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
2928 a604       |    |		Store_Unchecked	0x3,0x4
2929 e603       |    |		Load	0x3,0x3
292a 0217       |    |		Execute	Heap_Access,All_Reference
292b 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
292c e604       |    |		Load	0x3,0x4
292d 0217       |    |		Execute	Heap_Access,All_Reference
292e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
292f 00d8       |    |		Load_Top	At_Offset_0
2930 e604       |    |		Load	0x3,0x4
2931 0217       |    |		Execute	Heap_Access,All_Reference
2932 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
2933 e5fc       |    |		Load	0x2,-0x4
2934 e604       |    |		Load	0x3,0x4
2935 0217       |    |		Execute	Heap_Access,All_Reference
2936 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
2937 00db       |    |		Load_Top	At_Offset_3
2938 0219       |    |		Execute	Heap_Access,All_Read
2939 00d8       |    |		Load_Top	At_Offset_0
293a 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
293b e603       |    |		Load	0x3,0x3
293c e5fc       |    |		Load	0x2,-0x4
293d e02b       | +  |		Load	0x0,0x2b
293e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
293f 00d9       |    |		Load_Top	At_Offset_1
2940 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
2941 00d1       |    |		Pop_Control	Pop_Count_1
2942 00db       |    |		Load_Top	At_Offset_3
2943 e603       |    |		Load	0x3,0x3
2944 0217       |    |		Execute	Heap_Access,All_Reference
2945 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
2946 00c8       |    |		Action	Pop_Auxiliary_Range
2947 3fd9       |?   |		Loop_Increasing	0x2921
2948 00ce       |    |		Action	Pop_Auxiliary
2949 00d9       |    |		Load_Top	At_Offset_1
294a 0217       |    |		Execute	Heap_Access,All_Reference
294b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
294c 0f02       |    |		Execute_Immediate	Equal,0x2
294d 6809       |h   |		Jump_Zero	0x2957
294e 4801       |H   |		Short_Literal	0x1
294f 00da       |    |		Load_Top	At_Offset_2
2950 0217       |    |		Execute	Heap_Access,All_Reference
2951 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
2952 00d9       |    |		Load_Top	At_Offset_1
2953 e7ff       |    |		Load	0x3,-0x1
2954 00d8       |    |		Load_Top	At_Offset_0
2955 82bb       |    |		Call	0x1,0xbb
2956 7806       |x   |		Jump	0x295d
2957 00d9       |    |		Load_Top	At_Offset_1
2958 e7ff       |    |		Load	0x3,-0x1
2959 6026       |`&  |		Indirect_Literal	Discrete,0x2980,{0x00000000, 0x0000280a}
295a e7ff       |    |		Load	0x3,-0x1
295b 8029       | )  |		Call	0x0,0x29
295c 82bb       |    |		Call	0x1,0xbb
295d 00d9       |    |		Load_Top	At_Offset_1
295e 0217       |    |		Execute	Heap_Access,All_Reference
295f 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
2960 00da       |    |		Load_Top	At_Offset_2
2961 0217       |    |		Execute	Heap_Access,All_Reference
2962 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
2963 e03c       | <  |		Load	0x0,0x3c
2964 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2965 00db       |    |		Load_Top	At_Offset_3
2966 e03c       | <  |		Load	0x0,0x3c
2967 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
2968 c602       |    |		Store	0x3,0x2
2969 c404       |    |		Store	0x2,0x4
296a e404       |    |		Load	0x2,0x4
296b 7009       |p   |		Jump_Nonzero	0x2975
296c 0092 2c1a  |  , |		Action	Push_String_Extended,0x2c1a					; "State file for "
296e 00da       |    |		Load_Top	At_Offset_2
296f 8227       | '  |		Call	0x1,0x27
2970 01cc       |    |		Execute	Vector,Catenate
2971 0092 2c1b  |  , |		Action	Push_String_Extended,0x2c1b					; " has been closed."
2973 01cc       |    |		Execute	Vector,Catenate
2974 801d       |    |		Call	0x0,0x1d
2975 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
2976			TRAP_28e8:
2976 e002       |    |		Load	0x0,0x2
2977 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
2978 010f       |    |		Execute	Exception,Equal
2979 6804       |h   |		Jump_Zero	0x297e
297a e002       |    |		Load	0x0,0x2
297b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
297c a5f9       |    |		Store_Unchecked	0x2,-0x7
297d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
297e 0100       |    |		Execute	Exception,Raise
297f 0000       |    |		.XXX[0x1]
2980 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280a}
2984 0000 0000  |    |		.BLANK	0000[0x4]
2988 ; --------------------------------------------------------------------------------------
2988 ; SUBPROGRAM
2988 ; --------------------------------------------------------------------------------------
2988 2992       |)   |		.CONST	0x2992								; Address of begin
2989 0004       |    |		.CONST	0x0004								; Address of exception handler
298a 0003       |    |		.CONST	0x0003								; Number of locals
298b			INIT_2988:
298b e405       |    |		Load	0x2,0x5
298c e001       |    |		Load	0x0,0x1
298d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
298e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
298f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
2990 00e3       |    |		Load_Encached	Natural_Cache
2991 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
2992			BODY_2988:
2992 e404       |    |		Load	0x2,0x4
2993 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
2994 00da       |    |		Load_Top	At_Offset_2
2995 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
2996 00cf       |    |		Action	Mark_Auxiliary
2997 7837       |x7  |		Jump	0x29cf
2998 e00d       |    |		Load	0x0,0xd
2999 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
299a e406       |    |		Load	0x2,0x6
299b 0120       |    |		Execute	Any,Is_Value
299c 6803       |h   |		Jump_Zero	0x29a0
299d e00d       |    |		Load	0x0,0xd
299e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
299f 7801       |x   |		Jump	0x29a1
29a0 e406       |    |		Load	0x2,0x6
29a1 e403       |    |		Load	0x2,0x3
29a2 e00d       |    |		Load	0x0,0xd
29a3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
29a4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
29a5 c406       |    |		Store	0x2,0x6
29a6 c402       |    |		Store	0x2,0x2
29a7 e402       |    |		Load	0x2,0x2
29a8 7020       |p   |		Jump_Nonzero	0x29c9
29a9 e5fe       |    |		Load	0x2,-0x2
29aa e406       |    |		Load	0x2,0x6
29ab 82c0       |    |		Call	0x1,0xc0
29ac 681c       |h   |		Jump_Zero	0x29c9
29ad 00da       |    |		Load_Top	At_Offset_2
29ae 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
29af 00da       |    |		Load_Top	At_Offset_2
29b0 e407       |    |		Load	0x2,0x7
29b1 e602       |    |		Load	0x3,0x2
29b2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
29b3 e001       |    |		Load	0x0,0x1
29b4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
29b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
29b6 00db       |    |		Load_Top	At_Offset_3
29b7 e605       |    |		Load	0x3,0x5
29b8 01d7       |    |		Execute	Vector,Field_Read
29b9 00d1       |    |		Pop_Control	Pop_Count_1
29ba e5fc       |    |		Load	0x2,-0x4
29bb e5fd       |    |		Load	0x2,-0x3
29bc e5fe       |    |		Load	0x2,-0x2
29bd e406       |    |		Load	0x2,0x6
29be 82bf       |    |		Call	0x1,0xbf
29bf 00db       |    |		Load_Top	At_Offset_3
29c0 e605       |    |		Load	0x3,0x5
29c1 01d6       |    |		Execute	Vector,Field_Write
29c2 e602       |    |		Load	0x3,0x2
29c3 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
29c4 c407       |    |		Store	0x2,0x7
29c5 00d2       |    |		Pop_Control	Pop_Count_2
29c6 00d9       |    |		Load_Top	At_Offset_1
29c7 0a01       |    |		Execute_Immediate	Plus,0x1
29c8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
29c9 e403       |    |		Load	0x2,0x3
29ca e00d       |    |		Load	0x0,0xd
29cb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
29cc 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
29cd c403       |    |		Store	0x2,0x3
29ce 00c9       |    |		Action	Pop_Auxiliary_Loop
29cf e403       |    |		Load	0x2,0x3
29d0 e00d       |    |		Load	0x0,0xd
29d1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
29d2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
29d3 6fc4       |o   |		Jump_Zero	0x2998
29d4 00ce       |    |		Action	Pop_Auxiliary
29d5 00d9       |    |		Load_Top	At_Offset_1
29d6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
29d7 e5fd       |    |		Load	0x2,-0x3
29d8 e407       |    |		Load	0x2,0x7
29d9 e405       |    |		Load	0x2,0x5
29da e5fe       |    |		Load	0x2,-0x2
29db 82bd       |    |		Call	0x1,0xbd
29dc 00da       |    |		Load_Top	At_Offset_2
29dd 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
29de e403       |    |		Load	0x2,0x3
29df e00d       |    |		Load	0x0,0xd
29e0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
29e1 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
29e2 c403       |    |		Store	0x2,0x3
29e3 00d8       |    |		Load_Top	At_Offset_0
29e4 0aff       |    |		Execute_Immediate	Plus,-0x1
29e5 e001       |    |		Load	0x0,0x1
29e6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
29e7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
29e8 1c08       |    |		Execute_Immediate	Run_Utility,0x8
29e9 00da       |    |		Load_Top	At_Offset_2
29ea 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
29eb 00d9       |    |		Load_Top	At_Offset_1
29ec 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
29ed 4801       |H   |		Short_Literal	0x1
29ee 00da       |    |		Load_Top	At_Offset_2
29ef 0aff       |    |		Execute_Immediate	Plus,-0x1
29f0 e602       |    |		Load	0x3,0x2
29f1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
29f2 01cf       |    |		Execute	Vector,Slice_Read
29f3 00d9       |    |		Load_Top	At_Offset_1
29f4 00d8       |    |		Load_Top	At_Offset_0
29f5 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
29f6 00da       |    |		Load_Top	At_Offset_2
29f7 01da       |    |		Execute	Vector,Bounds
29f8 00da       |    |		Load_Top	At_Offset_2
29f9 01da       |    |		Execute	Vector,Bounds
29fa 00da       |    |		Load_Top	At_Offset_2
29fb 027f       |    |		Execute	Discrete,Equal
29fc 7001       |p   |		Jump_Nonzero	0x29fe
29fd 08e0       |    |		Execute_Immediate	Raise,0xe0
29fe 00cd       |    |		Action	Spare6_Action
29ff 027f       |    |		Execute	Discrete,Equal
2a00 7001       |p   |		Jump_Nonzero	0x2a02
2a01 08e0       |    |		Execute_Immediate	Raise,0xe0
2a02 00d2       |    |		Pop_Control	Pop_Count_2
2a03 00d9       |    |		Load_Top	At_Offset_1
2a04 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
2a05 00cb       |    |		Action	Pop_Block_With_Result
2a06 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
2a07 0000       |    |		.XXX[0x1]
2a08 ; --------------------------------------------------------------------------------------
2a08 ; SUBPROGRAM
2a08 ; --------------------------------------------------------------------------------------
2a08 2a22       |*"  |		.CONST	0x2a22								; Address of begin
2a09 0004       |    |		.CONST	0x0004								; Address of exception handler
2a0a 0002       |    |		.CONST	0x0002								; Number of locals
2a0b			INIT_2a08:
2a0b e402       |    |		Load	0x2,0x2
2a0c e403       |    |		Load	0x2,0x3
2a0d e00c       |    |		Load	0x0,0xc
2a0e 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
2a0f 035b       | [  |		Declare_Type	Array,Constrained
2a10 0337       | 7  |		Declare_Variable	Array
2a11 e402       |    |		Load	0x2,0x2
2a12 e403       |    |		Load	0x2,0x3
2a13 e00c       |    |		Load	0x0,0xc
2a14 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
2a15 035b       | [  |		Declare_Type	Array,Constrained
2a16 0337       | 7  |		Declare_Variable	Array
2a17 00d8       |    |		Load_Top	At_Offset_0
2a18 01d9       |    |		Execute	Vector,Reverse_Bounds
2a19 0263       | c  |		Execute	Discrete,Above_Bound
2a1a 7005       |p   |		Jump_Nonzero	0x2a20
2a1b 4800       |H   |		Short_Literal	0x0
2a1c 00d9       |    |		Load_Top	At_Offset_1
2a1d e603       |    |		Load	0x3,0x3
2a1e 01d6       |    |		Execute	Vector,Field_Write
2a1f 3ffb       |?   |		Loop_Increasing	0x2a1b
2a20 00d9       |    |		Load_Top	At_Offset_1
2a21 01d4       |    |		Execute	Vector,Structure_Write
2a22			BODY_2a08:
2a22 e5ff       |    |		Load	0x2,-0x1
2a23 0217       |    |		Execute	Heap_Access,All_Reference
2a24 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
2a25 a404       |    |		Store_Unchecked	0x2,0x4
2a26 00cf       |    |		Action	Mark_Auxiliary
2a27 780b       |x   |		Jump	0x2a33
2a28 4801       |H   |		Short_Literal	0x1
2a29 e404       |    |		Load	0x2,0x4
2a2a 0217       |    |		Execute	Heap_Access,All_Reference
2a2b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
2a2c 00db       |    |		Load_Top	At_Offset_3
2a2d 01d6       |    |		Execute	Vector,Field_Write
2a2e e404       |    |		Load	0x2,0x4
2a2f 0217       |    |		Execute	Heap_Access,All_Reference
2a30 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
2a31 a404       |    |		Store_Unchecked	0x2,0x4
2a32 00c9       |    |		Action	Pop_Auxiliary_Loop
2a33 e404       |    |		Load	0x2,0x4
2a34 77f3       |w   |		Jump_Nonzero	0x2a28
2a35 00ce       |    |		Action	Pop_Auxiliary
2a36 00d8       |    |		Load_Top	At_Offset_0
2a37 e00c       |    |		Load	0x0,0xc
2a38 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
2a39 01c6       |    |		Execute	Vector,Convert_To_Formal
2a3a 00cb       |    |		Action	Pop_Block_With_Result
2a3b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
2a3c 0000 0000  |    |		.BLANK	0000[0x4]
2a40 ; --------------------------------------------------------------------------------------
2a40 ; SUBPROGRAM
2a40 ; --------------------------------------------------------------------------------------
2a40 2a46       |*F  |		.CONST	0x2a46								; Address of begin
2a41 0004       |    |		.CONST	0x0004								; Address of exception handler
2a42 0002       |    |		.CONST	0x0002								; Number of locals
2a43			INIT_2a40:
2a43 e5ff       |    |		Load	0x2,-0x1
2a44 e5fd       |    |		Load	0x2,-0x3
2a45 8276       | v  |		Call	0x1,0x76
2a46			BODY_2a40:
2a46 00cf       |    |		Action	Mark_Auxiliary
2a47 00d9       |    |		Load_Top	At_Offset_1
2a48 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2a49 4801       |H   |		Short_Literal	0x1
2a4a 0263       | c  |		Execute	Discrete,Above_Bound
2a4b 7014       |p   |		Jump_Nonzero	0x2a60
2a4c e5fb       |    |		Load	0x2,-0x5
2a4d e5fc       |    |		Load	0x2,-0x4
2a4e e5fe       |    |		Load	0x2,-0x2
2a4f 00db       |    |		Load_Top	At_Offset_3
2a50 e602       |    |		Load	0x3,0x2
2a51 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a52 01d7       |    |		Execute	Vector,Field_Read
2a53 e001       |    |		Load	0x0,0x1
2a54 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a55 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
2a56 c5fb       |    |		Store	0x2,-0x5
2a57 4800       |H   |		Short_Literal	0x0
2a58 e5fb       |    |		Load	0x2,-0x5
2a59 e002       |    |		Load	0x0,0x2
2a5a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2a5b 7002       |p   |		Jump_Nonzero	0x2a5e
2a5c 00cc       |    |		Action	Pop_Block
2a5d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2a5e 00c8       |    |		Action	Pop_Auxiliary_Range
2a5f 3fec       |?   |		Loop_Increasing	0x2a4c
2a60 00cc       |    |		Action	Pop_Block
2a61 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2a62 0000 0000  |    |		.BLANK	0000[0x6]
2a68 ; --------------------------------------------------------------------------------------
2a68 ; SUBPROGRAM
2a68 ; --------------------------------------------------------------------------------------
2a68 2a6e       |*n  |		.CONST	0x2a6e								; Address of begin
2a69 0004       |    |		.CONST	0x0004								; Address of exception handler
2a6a 0002       |    |		.CONST	0x0002								; Number of locals
2a6b			INIT_2a68:
2a6b e5ff       |    |		Load	0x2,-0x1
2a6c e5fc       |    |		Load	0x2,-0x4
2a6d 8276       | v  |		Call	0x1,0x76
2a6e			BODY_2a68:
2a6e 00cf       |    |		Action	Mark_Auxiliary
2a6f 00d9       |    |		Load_Top	At_Offset_1
2a70 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2a71 4801       |H   |		Short_Literal	0x1
2a72 0263       | c  |		Execute	Discrete,Above_Bound
2a73 7015       |p   |		Jump_Nonzero	0x2a89
2a74 e5fa       |    |		Load	0x2,-0x6
2a75 e5fb       |    |		Load	0x2,-0x5
2a76 e5fd       |    |		Load	0x2,-0x3
2a77 e5fe       |    |		Load	0x2,-0x2
2a78 e605       |    |		Load	0x3,0x5
2a79 e602       |    |		Load	0x3,0x2
2a7a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a7b 01d7       |    |		Execute	Vector,Field_Read
2a7c e001       |    |		Load	0x0,0x1
2a7d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a7e 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
2a7f c5fa       |    |		Store	0x2,-0x6
2a80 4800       |H   |		Short_Literal	0x0
2a81 e5fa       |    |		Load	0x2,-0x6
2a82 e002       |    |		Load	0x0,0x2
2a83 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2a84 7002       |p   |		Jump_Nonzero	0x2a87
2a85 00cc       |    |		Action	Pop_Block
2a86 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
2a87 00c8       |    |		Action	Pop_Auxiliary_Range
2a88 3feb       |?   |		Loop_Increasing	0x2a74
2a89 00cc       |    |		Action	Pop_Block
2a8a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
2a8b 0000 0000  |    |		.BLANK	0000[0x5]
2a90 ; --------------------------------------------------------------------------------------
2a90 ; SUBPROGRAM
2a90 ; --------------------------------------------------------------------------------------
2a90 2a96       |*   |		.CONST	0x2a96								; Address of begin
2a91 0004       |    |		.CONST	0x0004								; Address of exception handler
2a92 0002       |    |		.CONST	0x0002								; Number of locals
2a93			INIT_2a90:
2a93 e5ff       |    |		Load	0x2,-0x1
2a94 e5fd       |    |		Load	0x2,-0x3
2a95 8276       | v  |		Call	0x1,0x76
2a96			BODY_2a90:
2a96 00cf       |    |		Action	Mark_Auxiliary
2a97 00d9       |    |		Load_Top	At_Offset_1
2a98 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2a99 4801       |H   |		Short_Literal	0x1
2a9a 0263       | c  |		Execute	Discrete,Above_Bound
2a9b 7014       |p   |		Jump_Nonzero	0x2ab0
2a9c e5fb       |    |		Load	0x2,-0x5
2a9d e5fc       |    |		Load	0x2,-0x4
2a9e e5fe       |    |		Load	0x2,-0x2
2a9f 00db       |    |		Load_Top	At_Offset_3
2aa0 e602       |    |		Load	0x3,0x2
2aa1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2aa2 01d7       |    |		Execute	Vector,Field_Read
2aa3 e001       |    |		Load	0x0,0x1
2aa4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2aa5 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
2aa6 c5fb       |    |		Store	0x2,-0x5
2aa7 4800       |H   |		Short_Literal	0x0
2aa8 e5fb       |    |		Load	0x2,-0x5
2aa9 e002       |    |		Load	0x0,0x2
2aaa 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2aab 7002       |p   |		Jump_Nonzero	0x2aae
2aac 00cc       |    |		Action	Pop_Block
2aad 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2aae 00c8       |    |		Action	Pop_Auxiliary_Range
2aaf 3fec       |?   |		Loop_Increasing	0x2a9c
2ab0 00cc       |    |		Action	Pop_Block
2ab1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2ab2 0000 0000  |    |		.BLANK	0000[0x6]
2ab8 ; --------------------------------------------------------------------------------------
2ab8 ; SUBPROGRAM
2ab8 ; --------------------------------------------------------------------------------------
2ab8 2abe       |*   |		.CONST	0x2abe								; Address of begin
2ab9 0004       |    |		.CONST	0x0004								; Address of exception handler
2aba 0002       |    |		.CONST	0x0002								; Number of locals
2abb			INIT_2ab8:
2abb e5ff       |    |		Load	0x2,-0x1
2abc e5fd       |    |		Load	0x2,-0x3
2abd 8276       | v  |		Call	0x1,0x76
2abe			BODY_2ab8:
2abe 00cf       |    |		Action	Mark_Auxiliary
2abf 00d9       |    |		Load_Top	At_Offset_1
2ac0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2ac1 4801       |H   |		Short_Literal	0x1
2ac2 0263       | c  |		Execute	Discrete,Above_Bound
2ac3 7014       |p   |		Jump_Nonzero	0x2ad8
2ac4 e5fb       |    |		Load	0x2,-0x5
2ac5 e5fc       |    |		Load	0x2,-0x4
2ac6 e5fe       |    |		Load	0x2,-0x2
2ac7 00db       |    |		Load_Top	At_Offset_3
2ac8 e602       |    |		Load	0x3,0x2
2ac9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2aca 01d7       |    |		Execute	Vector,Field_Read
2acb e001       |    |		Load	0x0,0x1
2acc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2acd 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
2ace c5fb       |    |		Store	0x2,-0x5
2acf 4800       |H   |		Short_Literal	0x0
2ad0 e5fb       |    |		Load	0x2,-0x5
2ad1 e002       |    |		Load	0x0,0x2
2ad2 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
2ad3 7002       |p   |		Jump_Nonzero	0x2ad6
2ad4 00cc       |    |		Action	Pop_Block
2ad5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2ad6 00c8       |    |		Action	Pop_Auxiliary_Range
2ad7 3fec       |?   |		Loop_Increasing	0x2ac4
2ad8 00cc       |    |		Action	Pop_Block
2ad9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2ada 0000 0000  |    |		.BLANK	0000[0x6]
2ae0 ; --------------------------------------------------------------------------------------
2ae0 ; SUBPROGRAM
2ae0 ; --------------------------------------------------------------------------------------
2ae0 2af5       |*   |		.CONST	0x2af5								; Address of begin
2ae1 0004       |    |		.CONST	0x0004								; Address of exception handler
2ae2 0005       |    |		.CONST	0x0005								; Number of locals
2ae3			INIT_2ae0:
2ae3 605c       |`\  |		Indirect_Literal	Discrete,0x2b40,{0x00000000, 0x0000282d}
2ae4 6057       |`W  |		Indirect_Literal	Discrete,0x2b3c,{0x00000000, 0x0000282c}
2ae5 6052       |`R  |		Indirect_Literal	Discrete,0x2b38,{0x00000000, 0x0000282b}
2ae6 e5fe       |    |		Load	0x2,-0x2
2ae7 e402       |    |		Load	0x2,0x2
2ae8 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2ae9 802c       | ,  |		Call	0x0,0x2c
2aea 4801       |H   |		Short_Literal	0x1
2aeb 00d9       |    |		Load_Top	At_Offset_1
2aec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2aed e001       |    |		Load	0x0,0x1
2aee 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2aef 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
2af0 035b       | [  |		Declare_Type	Array,Constrained
2af1 0337       | 7  |		Declare_Variable	Array
2af2 00e2       |    |		Load_Encached	Integer_Cache
2af3 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2af4 00e1       |    |		Load_Encached	Boolean_Cache
2af5			BODY_2ae0:
2af5 00db       |    |		Load_Top	At_Offset_3
2af6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
2af7 a403       |    |		Store_Unchecked	0x2,0x3
2af8 00cf       |    |		Action	Mark_Auxiliary
2af9 e602       |    |		Load	0x3,0x2
2afa 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2afb 01d9       |    |		Execute	Vector,Reverse_Bounds
2afc 0263       | c  |		Execute	Discrete,Above_Bound
2afd 7019       |p   |		Jump_Nonzero	0x2b17
2afe e403       |    |		Load	0x2,0x3
2aff 00e1       |    |		Load_Encached	Boolean_Cache
2b00 00da       |    |		Load_Top	At_Offset_2
2b01 e602       |    |		Load	0x3,0x2
2b02 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2b03 01d7       |    |		Execute	Vector,Field_Read
2b04 e402       |    |		Load	0x2,0x2
2b05 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
2b06 82ba       |    |		Call	0x1,0xba
2b07 c605       |    |		Store	0x3,0x5
2b08 c403       |    |		Store	0x2,0x3
2b09 00db       |    |		Load_Top	At_Offset_3
2b0a 680a       |h   |		Jump_Zero	0x2b15
2b0b e604       |    |		Load	0x3,0x4
2b0c 0a01       |    |		Execute_Immediate	Plus,0x1
2b0d c604       |    |		Store	0x3,0x4
2b0e 00d8       |    |		Load_Top	At_Offset_0
2b0f e602       |    |		Load	0x3,0x2
2b10 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2b11 01d7       |    |		Execute	Vector,Field_Read
2b12 e604       |    |		Load	0x3,0x4
2b13 e603       |    |		Load	0x3,0x3
2b14 01d6       |    |		Execute	Vector,Field_Write
2b15 00c8       |    |		Action	Pop_Auxiliary_Range
2b16 3fe7       |?   |		Loop_Increasing	0x2afe
2b17 00ce       |    |		Action	Pop_Auxiliary
2b18 00d9       |    |		Load_Top	At_Offset_1
2b19 e001       |    |		Load	0x0,0x1
2b1a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2b1b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2b1c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
2b1d e403       |    |		Load	0x2,0x3
2b1e 00d9       |    |		Load_Top	At_Offset_1
2b1f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
2b20 4801       |H   |		Short_Literal	0x1
2b21 00db       |    |		Load_Top	At_Offset_3
2b22 e603       |    |		Load	0x3,0x3
2b23 01cf       |    |		Execute	Vector,Slice_Read
2b24 00d9       |    |		Load_Top	At_Offset_1
2b25 00d8       |    |		Load_Top	At_Offset_0
2b26 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2b27 00da       |    |		Load_Top	At_Offset_2
2b28 01da       |    |		Execute	Vector,Bounds
2b29 00da       |    |		Load_Top	At_Offset_2
2b2a 01da       |    |		Execute	Vector,Bounds
2b2b 00da       |    |		Load_Top	At_Offset_2
2b2c 027f       |    |		Execute	Discrete,Equal
2b2d 7001       |p   |		Jump_Nonzero	0x2b2f
2b2e 08e0       |    |		Execute_Immediate	Raise,0xe0
2b2f 00cd       |    |		Action	Spare6_Action
2b30 027f       |    |		Execute	Discrete,Equal
2b31 7001       |p   |		Jump_Nonzero	0x2b33
2b32 08e0       |    |		Execute_Immediate	Raise,0xe0
2b33 00d2       |    |		Pop_Control	Pop_Count_2
2b34 00d9       |    |		Load_Top	At_Offset_1
2b35 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
2b36 00cb       |    |		Action	Pop_Block_With_Result
2b37 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
2b38 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282b}
2b3c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282c}
2b40 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282d}
2b44 0000 0000  |    |		.BLANK	0000[0x4]
2b48 ; --------------------------------------------------------------------------------------
2b48 ; SUBPROGRAM
2b48 ; --------------------------------------------------------------------------------------
2b48 2b4b       |+K  |		.CONST	0x2b4b								; Address of begin
2b49 0004       |    |		.CONST	0x0004								; Address of exception handler
2b4a 0001       |    |		.CONST	0x0001								; Number of locals
2b4b			BODY_2b48:
2b4b			INIT_2b48:
2b4b 4608       |F   |		Jump_Case	0x9
2b4c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
2b4d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
2b4e 7819       |x   |		Jump	0x2b68								; case 0x2
2b4f 7818       |x   |		Jump	0x2b68								; case 0x3
2b50 7817       |x   |		Jump	0x2b68								; case 0x4
2b51 7816       |x   |		Jump	0x2b68								; case 0x5
2b52 7815       |x   |		Jump	0x2b68								; case 0x6
2b53 7801       |x   |		Jump	0x2b55								; case 0x7
2b54 7809       |x   |		Jump	0x2b5e								; case 0x8
2b55 00db       |    |		Load_Top	At_Offset_3
2b56 4801       |H   |		Short_Literal	0x1
2b57 e5fe       |    |		Load	0x2,-0x2
2b58 e20f       |    |		Load	0x1,0xf
2b59 035b       | [  |		Declare_Type	Array,Constrained
2b5a 4801       |H   |		Short_Literal	0x1
2b5b e5ff       |    |		Load	0x2,-0x1
2b5c 031b       |    |		Declare_Type	Variant_Record,Constrained
2b5d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2b5e 00db       |    |		Load_Top	At_Offset_3
2b5f 00db       |    |		Load_Top	At_Offset_3
2b60 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
2b61 4801       |H   |		Short_Literal	0x1
2b62 e5fe       |    |		Load	0x2,-0x2
2b63 e20f       |    |		Load	0x1,0xf
2b64 0334       | 4  |		Declare_Variable	Array,With_Constraint
2b65 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
2b66 016a       | j  |		QQ_execute	Variant_Record,XXX
2b67 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2b68 0869       | i  |		Execute_Immediate	Raise,0x69
2b69 0000 0000  |    |		.BLANK	0000[0x7]
2b70 ; --------------------------------------------------------------------------------------
2b70 ; SUBPROGRAM
2b70 ; --------------------------------------------------------------------------------------
2b70 2b73       |+s  |		.CONST	0x2b73								; Address of begin
2b71 0004       |    |		.CONST	0x0004								; Address of exception handler
2b72 0001       |    |		.CONST	0x0001								; Number of locals
2b73			BODY_2b70:
2b73			INIT_2b70:
2b73 4608       |F   |		Jump_Case	0x9
2b74 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
2b75 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
2b76 7819       |x   |		Jump	0x2b90								; case 0x2
2b77 7818       |x   |		Jump	0x2b90								; case 0x3
2b78 7817       |x   |		Jump	0x2b90								; case 0x4
2b79 7816       |x   |		Jump	0x2b90								; case 0x5
2b7a 7815       |x   |		Jump	0x2b90								; case 0x6
2b7b 7801       |x   |		Jump	0x2b7d								; case 0x7
2b7c 7809       |x   |		Jump	0x2b86								; case 0x8
2b7d 00db       |    |		Load_Top	At_Offset_3
2b7e 4801       |H   |		Short_Literal	0x1
2b7f e5fe       |    |		Load	0x2,-0x2
2b80 e229       | )  |		Load	0x1,0x29
2b81 035b       | [  |		Declare_Type	Array,Constrained
2b82 4801       |H   |		Short_Literal	0x1
2b83 e5ff       |    |		Load	0x2,-0x1
2b84 031b       |    |		Declare_Type	Variant_Record,Constrained
2b85 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2b86 00db       |    |		Load_Top	At_Offset_3
2b87 00db       |    |		Load_Top	At_Offset_3
2b88 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
2b89 4801       |H   |		Short_Literal	0x1
2b8a e5fe       |    |		Load	0x2,-0x2
2b8b e229       | )  |		Load	0x1,0x29
2b8c 0334       | 4  |		Declare_Variable	Array,With_Constraint
2b8d 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
2b8e 016a       | j  |		QQ_execute	Variant_Record,XXX
2b8f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2b90 0869       | i  |		Execute_Immediate	Raise,0x69
2b91 0000 0000  |    |		.BLANK	0000[0x7]
2b98 ; --------------------------------------------------------------------------------------
2b98 ; SUBPROGRAM
2b98 ; --------------------------------------------------------------------------------------
2b98 2bad       |+   |		.CONST	0x2bad								; Address of begin
2b99 0004       |    |		.CONST	0x0004								; Address of exception handler
2b9a 0017       |    |		.CONST	0x0017								; Number of locals
2b9b			INIT_2b98:
2b9b 029a 2bb3  |  + |		Declare_Subprogram	INIT_2bb0,For_Outer_Call,Visible,Unelaborated
2b9d 029a 2bc3  |  + |		Declare_Subprogram	INIT_2bc0,For_Outer_Call,Visible,Unelaborated
2b9f 00bf       |    |		Action	Accept_Activation
2ba0 e001       |    |		Load	0x0,0x1
2ba1 e002       |    |		Load	0x0,0x2
2ba2 e20f       |    |		Load	0x1,0xf
2ba3 e210       |    |		Load	0x1,0x10
2ba4 e003       |    |		Load	0x0,0x3
2ba5 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
2ba6 0387       |    |		Declare_Variable	Package
2ba7 00d8       |    |		Load_Top	At_Offset_0
2ba8 020f       |    |		Execute	Module,Activate
2ba9 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
2baa 00c7       |    |		Action	Elaborate_Subprogram
2bab 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
2bac 00c7       |    |		Action	Elaborate_Subprogram
2bad			BODY_2b98:
2bad 00bc       |    |		Action	Signal_Activated
2bae 00bb       |    |		Action	Signal_Completion
2baf 0000       |    |		.XXX[0x1]
2bb0 ; --------------------------------------------------------------------------------------
2bb0 ; SUBPROGRAM
2bb0 ; --------------------------------------------------------------------------------------
2bb0 2bb3       |+   |		.CONST	0x2bb3								; Address of begin
2bb1 0004       |    |		.CONST	0x0004								; Address of exception handler
2bb2 0001       |    |		.CONST	0x0001								; Number of locals
2bb3			BODY_2bb0:
2bb3			INIT_2bb0:
2bb3 00da       |    |		Load_Top	At_Offset_2
2bb4 0219       |    |		Execute	Heap_Access,All_Read
2bb5 00d8       |    |		Load_Top	At_Offset_0
2bb6 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
2bb7 e5ff       |    |		Load	0x2,-0x1
2bb8 e5fe       |    |		Load	0x2,-0x2
2bb9 e20f       |    |		Load	0x1,0xf
2bba 0119       |    |		Execute	Any,Check_In_Formal_Type
2bbb e217       |    |		Load	0x1,0x17
2bbc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2bbd 00d9       |    |		Load_Top	At_Offset_1
2bbe 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
2bbf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
2bc0 ; --------------------------------------------------------------------------------------
2bc0 ; SUBPROGRAM
2bc0 ; --------------------------------------------------------------------------------------
2bc0 2bc3       |+   |		.CONST	0x2bc3								; Address of begin
2bc1 2bcc       |+   |		.CONST	0x2bcc								; Address of exception handler
2bc2 0001       |    |		.CONST	0x0001								; Number of locals
2bc3			BODY_2bc0:
2bc3			INIT_2bc0:
2bc3 00da       |    |		Load_Top	At_Offset_2
2bc4 0217       |    |		Execute	Heap_Access,All_Reference
2bc5 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
2bc6 00db       |    |		Load_Top	At_Offset_3
2bc7 e217       |    |		Load	0x1,0x17
2bc8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
2bc9 e210       |    |		Load	0x1,0x10
2bca 0213       |    |		Execute	Heap_Access,Check_In_Type
2bcb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
2bcc			TRAP_2bc0:
2bcc 486b       |Hk  |		Short_Literal	0x6b
2bcd 010f       |    |		Execute	Exception,Equal
2bce 6802       |h   |		Jump_Zero	0x2bd1
2bcf e210       |    |		Load	0x1,0x10
2bd0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
2bd1 0100       |    |		Execute	Exception,Raise
2bd2 ; --------------------------------------------------------------------------------------
2bd2 ; STRING TABLE
2bd2 ; --------------------------------------------------------------------------------------
2bd2 0096       |    |		.STRTAB	0x0096->0x2c1d							; "TARGET_MACHINE_FIELD"
2bd3 00a8       |    |		.STRTAB	0x00a8->0x2c27							; "TARGET_ACCOUNT_FIELD"
2bd4 00ba       |    |		.STRTAB	0x00ba->0x2c31							; "TARGET_DIRECTORY_FIELD"
2bd5 00ce       |    |		.STRTAB	0x00ce->0x2c3c							; "TARGET_LIBRARY_FIELD"
2bd6 00e0       |    |		.STRTAB	0x00e0->0x2c46							; "CONFIGURATION_FIELD"
2bd7 00f1       |    |		.STRTAB	0x00f1->0x2c4f							; "HAS_UNIT_CONFIGURATIONS_FIELD"
2bd8 010c       |    |		.STRTAB	0x010c->0x2c5e							; "HAS_UNIT_BUILD_TIMES_FIELD"
2bd9 0124       | $  |		.STRTAB	0x0124->0x2c6b							; "C"
2bda 0123       | #  |		.STRTAB	0x0123->0x2c6b							; "S"
2bdb 0122       | "  |		.STRTAB	0x0122->0x2c6c							; "SPEC_PART"
2bdc 0129       | )  |		.STRTAB	0x0129->0x2c70							; "BODY_PART"
2bdd 0130       | 0  |		.STRTAB	0x0130->0x2c75							; "ON_MACHINE"
2bde 0138       | 8  |		.STRTAB	0x0138->0x2c7a							; "IS_ATTR"
2bdf 013d       | =  |		.STRTAB	0x013d->0x2c7d							; "HAS_ATTR"
2be0 0143       | C  |		.STRTAB	0x0143->0x2c81							; "CONFIG"
2be1 0147       | G  |		.STRTAB	0x0147->0x2c84							; "REFRESHED"
2be2 014e       | N  |		.STRTAB	0x014e->0x2c89							; "UPDATED"
2be3 0153       | S  |		.STRTAB	0x0153->0x2c8c							; "DOWNLOADED"
2be4 015b       | [  |		.STRTAB	0x015b->0x2c91							; "STAMPED"
2be5 0160       | `  |		.STRTAB	0x0160->0x2c95							; "BUILT"
2be6 0163       | c  |		.STRTAB	0x0163->0x2c97							; "NAMED"
2be7 0166       | f  |		.STRTAB	0x0166->0x2c9a							; "TARGET_NAMED"
2be8 0170       | p  |		.STRTAB	0x0170->0x2ca0							; "SECONDARY_NAMED"
2be9 017d       | }  |		.STRTAB	0x017d->0x2ca7							; "PRIMARY_NAMED"
2bea 0188       |    |		.STRTAB	0x0188->0x2cae							; "RETAINED"
2beb 018e       |    |		.STRTAB	0x018e->0x2cb2							; "SN"
2bec 018e       |    |		.STRTAB	0x018e->0x2cb3							; "BASIC_FRESH"
2bed 0197       |    |		.STRTAB	0x0197->0x2cb8							; "FULL_FRESH"
2bee 019f       |    |		.STRTAB	0x019f->0x2cbd							; "CONFIGURED"
2bef 01a7       |    |		.STRTAB	0x01a7->0x2cc2							; "DOWNLOADABLE"
2bf0 01b1       |    |		.STRTAB	0x01b1->0x2cc8							; "SECONDARY_UNIT"
2bf1 01bd       |    |		.STRTAB	0x01bd->0x2ccf							; "SEPARATE_GENERIC_BODIES"
2bf2 01d2       |    |		.STRTAB	0x01d2->0x2cdb							; "SECONDARY_UNIT"
2bf3 01de       |    |		.STRTAB	0x01de->0x2ce2							; "TARGET_NAME"
2bf4 01e7       |    |		.STRTAB	0x01e7->0x2ce7							; "TARGET_UNIT"
2bf5 01f0       |    |		.STRTAB	0x01f0->0x2ced							; "NIL"
2bf6 01f1       |    |		.STRTAB	0x01f1->0x2cee							; "NEGATE"
2bf7 01f5       |    |		.STRTAB	0x01f5->0x2cf1							; "AND_THEN"
2bf8 01fb       |    |		.STRTAB	0x01fb->0x2cf5							; "OR_ELSE"
2bf9 0200       |    |		.STRTAB	0x0200->0x2cf9							; "CLASS"
2bfa 0203       |    |		.STRTAB	0x0203->0x2cfb							; "SUBCLASS"
2bfb 0209       |    |		.STRTAB	0x0209->0x2cff							; "UNIT_STATE"
2bfc 0211       |    |		.STRTAB	0x0211->0x2d04							; "IS_QUERY"
2bfd 0217       |    |		.STRTAB	0x0217->0x2d08							; "HAS_QUERY"
2bfe 021e       |    |		.STRTAB	0x021e->0x2d0d							; "CONFIG"
2bff 0222       | "  |		.STRTAB	0x0222->0x2d10							; "REFRESHED"
2c00 0229       | )  |		.STRTAB	0x0229->0x2d14							; "UPDATED"
2c01 022e       | .  |		.STRTAB	0x022e->0x2d18							; "DOWNLOADED"
2c02 0236       | 6  |		.STRTAB	0x0236->0x2d1d							; "STAMPED"
2c03 023b       | ;  |		.STRTAB	0x023b->0x2d20							; "BUILT"
2c04 023e       | >  |		.STRTAB	0x023e->0x2d23							; "NAMED"
2c05 0241       | A  |		.STRTAB	0x0241->0x2d25							; "TARGET_NAMED"
2c06 024b       | K  |		.STRTAB	0x024b->0x2d2b							; "SECONDARY_NAMED"
2c07 0258       | X  |		.STRTAB	0x0258->0x2d33							; "PRIMARY_NAMED"
2c08 0263       | c  |		.STRTAB	0x0263->0x2d39							; "RETAINED"
2c09 0269       | i  |		.STRTAB	0x0269->0x2d3d							; "SN"
2c0a 0269       | i  |		.STRTAB	0x0269->0x2d3e							; "UNIT_PART"
2c0b 0270       | p  |		.STRTAB	0x0270->0x2d43							; ":MONDAY     :TUESDAY    :WEDNESDAY  :THURSDAY   :FRIDAY     :SATURDAY   :SUNDAY     :TODAY      :YESTERDAY  :JANUARY    :FEBRUARY   :MARCH      :APRIL      :MAY        :JUNE       :JULY       :AUGUST     :SEPTEMBER  :OCTOBER    :NOVEMBER   :DECEMBER   :NOON       :MIDNIGHT   :AM         :PM         :"
2c0c 039b       |    |		.STRTAB	0x039b->0x2dd9							; "Created state file for world \x22"
2c0d 03b7       |    |		.STRTAB	0x03b7->0x2de8							; "\x22."
2c0e 03b7       |    |		.STRTAB	0x03b7->0x2de9							; "AT"
2c0f 03b7       |    |		.STRTAB	0x03b7->0x2dea							; ".."
2c10 03b7       |    |		.STRTAB	0x03b7->0x2deb							; "'IS"
2c11 03b8       |    |		.STRTAB	0x03b8->0x2ded							; "'HAS"
2c12 03ba       |    |		.STRTAB	0x03ba->0x2def							; "'"
2c13 03b9       |    |		.STRTAB	0x03b9->0x2def							; "("
2c14 03b8       |    |		.STRTAB	0x03b8->0x2df0							; "Warning: ON_MACHINES query attribute will be ignored."
2c15 03eb       |    |		.STRTAB	0x03eb->0x2e0a							; "Target_Account has been set to \x22"
2c16 0409       |    |		.STRTAB	0x0409->0x2e1a							; "Target_Directory has been set to \x22"
2c17 0429       | )  |		.STRTAB	0x0429->0x2e2b							; "Target_Library has been set to \x22"
2c18 0447       | G  |		.STRTAB	0x0447->0x2e3b							; "Configuration has been set to \x22"
2c19 0464       | d  |		.STRTAB	0x0464->0x2e4b							; "Target_Machine has been set to \x22"
2c1a 0482       |    |		.STRTAB	0x0482->0x2e5b							; "State file for "
2c1b 048f       |    |		.STRTAB	0x048f->0x2e62							; " has been closed."
2c1c 049e       |    |		.STREND 0x049e->0x2e6b
2c1d 5441 5247  |TARG|		.STRTAB_STRINGS
2e6b 0000 0000  |    |		.BLANK	0000[0x5]
2e70 ; --------------------------------------------------------------------------------------
2e70 ; Debug Table
2e70 ; --------------------------------------------------------------------------------------
2e70 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xd928,0x0000,0x0001,0x0000
2e76 0000 0800  |    |		.XXX[0x62]
2e78 0000 003e  |   >|
2e7a a5c1 006a  |   j|
2e7c 80e8 0000  |    |
2e7e 0000 1000  |    |
2e80 0000 007d  |   }|
2e82 4b82 00d5  |K   |
2e84 8190 0000  |    |
2e86 0000 2000  |    |
2e88 0000 00fa  |    |
2e8a 9704 01ab  |    |
2e8c 0320 0000  |    |
2e8e 0000 4000  |  @ |
2e90 0000 01f5  |    |
2e92 2e08 0356  |.  V|
2e94 0640 0000  | @  |
2e96 0000 8000  |    |
2e98 0000 03ea  |    |
2e9a 5c10 06ac  |\   |
2e9c 0c80 0000  |    |
2e9e 001e 8000  |    |
2ea0 0000 005c  |   \|
2ea2 b820 0d58  |   X|
2ea4 1900 0000  |    |
2ea6 003d 0000  | =  |
2ea8 0000 00b9  |    |
2eaa 7040 1ab0  |p@  |
2eac 3200 0000  |2   |
2eae 007a 0000  | z  |
2eb0 0000 0172  |   r|
2eb2 e080 3560  |  5`|
2eb4 6400 0000  |d   |
2eb6 00f4 0000  |    |
2eb8 0000 02e5  |    |
2eba c100 6ac0  |  j |
2ebc c800 0000  |    |
2ebe 01e8 0000  |    |
2ec0 0000 05cb  |    |
2ec2 8200 d581  |    |
2ec4 9000 0000  |    |
2ec6 0020 0000  |    |
2ec8 0000 fa97  |    |
2eca 0401 ab03  |    |
2ecc 2000 0000  |    |
2ece 0040 0000  | @  |
2ed0 0001 f507  |    |
2ed2 0103 57d7  |  W |
2ed4 0000 0000  |    |
2ed6 3504 6400  |5 d |
2ed8 0000 0000  |    |		.BLANK	0000[0x5]
2edd 0206 a86e  |   n|		.XXX[0x2b]
2edf 01a9 a2f0  |    |
2ee1 3539 000d  |59  |
2ee3 432b 81a9  |C+  |
2ee5 cea0 6a1d  |  j |
2ee7 540d 4eaa  |T N |
2ee9 0351 0a60  | Q `|
2eeb 6a76 f81a  |jv  |
2eed 8951 0353  | Q S|
2eef c500 d452  |   R|
2ef1 781a 9e92  |x   |
2ef3 06a2 d340  |   @|
2ef5 d4f7 e035  |   5|
2ef7 1896 06a7  |    |
2ef9 d981 a8d4  |    |
2efb 9035 3fa0  | 5? |
2efd 0d47 2380  | G# |
2eff 0000 006a  |   j|
2f01 3d14 1c04  |=   |
2f03 0d5f 5c00  | _\ |
2f05 0000 00d4  |    |
2f07 e0b0       |    |
2f08 0000 0000  |    |		.BLANK	0000[0x5]
2f0d 0008 1ab1  |    |		.XXX[0x7b]
2f0f b006 a80e  |    |
2f11 c0d5 1460  |   `|
2f13 3520 8606  |5   |
2f15 a8bd 81a9  |    |
2f17 1410 3546  |  5F|
2f19 c00d 491f  |  I |
2f1b 81aa 3ca0  |  < |
2f1d 6a4c f40d  |jL  |
2f1f 521a 0352  |R  R|
2f21 8760 6a92  | `j |
2f23 781a 9539  |x  9|
2f25 0354 a100  | T  |
2f27 d4b1 b81a  |    |
2f29 a572 06a5  | r  |
2f2b cd40 d52e  | @ .|
2f2d e035 3066  | 50f|
2f2f 0000 0001  |    |
2f31 a993 12e0  |    |
2f33 8035 6c7c  | 5l||
2f35 0000 0000  |    |
2f37 0800 0000  |    |
2f39 003e a5c1  | >  |
2f3b 006a d8f8  | j  |
2f3d 0000 0002  |    |
2f3f 2c00 0000  |,   |
2f41 0006 cb82  |    |
2f43 00d5 b1f0  |    |
2f45 0000 0004  |    |
2f47 6000 0000  |`   |
2f49 000c 9704  |    |
2f4b 01ab 63e0  |  c |
2f4d 0000 0000  |    |
2f4f 4000 0000  |@   |
2f51 01f5 2e08  |  . |
2f53 0356 c7c0  | V  |
2f55 0000 0000  |    |
2f57 8000 0000  |    |
2f59 03ea 5c10  |  \ |
2f5b 06ad 8f80  |    |
2f5d 0000 0001  |    |
2f5f 0000 0000  |    |
2f61 07d4 b820  |    |
2f63 0d5b 1f00  | [  |
2f65 0000 0002  |    |
2f67 0000 0000  |    |
2f69 0fa9 7040  |  p@|
2f6b 1ab6 3e00  |  > |
2f6d 0000 0004  |    |
2f6f 0000 0000  |    |
2f71 1f52 e080  | R  |
2f73 356c 7c00  |5l| |
2f75 0000 0008  |    |
2f77 0000 0000  |    |
2f79 3ea5 c100  |>   |
2f7b 6ad8 f800  |j   |
2f7d 0000 0010  |    |
2f7f 0000 0000  |    |
2f81 7d41 c040  |}A @|
2f83 d5f5 c000  |    |
2f85 0000 0d51  |   Q|
2f87 1100       |    |
2f88 0000 0000  |    |		.BLANK	0000[0x5]
2f8d 0081 ab7b  |   {|		.XXX[0x2b]
2f8f c06a c0cc  | j  |
2f91 0d59 4203  | YB |
2f93 54c8 e06a  |T  j|
2f95 cbb8 1aa7  |    |
2f97 4503 566b  |E Vk|
2f99 00d5 4218  |  B |
2f9b 1ab3 c206  |    |
2f9d aa50 40d5  | P@ |
2f9f a160 3554  | `5T|
2fa1 7e06 ad25  |~  %|
2fa3 81aa b3d0  |    |
2fa5 356a 000d  |5j  |
2fa7 561d 81ab  |V   |
2fa9 56a0 6ab4  |V j |
2fab e40d 5aea  |  Z |
2fad 0355 c6e0  | U  |
2faf 0000 001a  |    |
2fb1 af35 0701  | 5  |
2fb3 0357 d700  | W  |
2fb5 0000 0035  |   5|
2fb7 6434       |d4  |
2fb8 0000 0000  |    |		.BLANK	0000[0x5]
2fbd 0002 0000  |    |		.XXX[0x3f]
2fbf 0001 ab63  |   c|
2fc1 f3b1 7000  |  p |
2fc3 0000 0000  |    |
2fc5 0001 1a00  |    |
2fc7 0000 0027  |   '|
2fc9 62e0 6b14  |b k |
2fcb 3000 0000  |0   |
2fcd 00f0 0000  |    |
2fcf 0000 4ec5  |  N |
2fd1 c0d6 3680  |  6 |
2fd3 0000 0004  |    |
2fd5 0000 0000  |    |
2fd7 009d 8b81  |    |
2fd9 ac6d 0000  | m  |
2fdb 0000 0600  |    |
2fdd 0000 0001  |    |
2fdf 3b17 0359  |;  Y|
2fe1 0300 0000  |    |
2fe3 0016 8000  |    |
2fe5 0000 0276  |   v|
2fe7 2806 b2bc  |(   |
2fe9 8000 0000  |    |
2feb 0880 0000  |    |
2fed 0004 b820  |    |
2fef 0d65 1a00  | e  |
2ff1 0000 003e  |   >|
2ff3 8000 0000  |    |
2ff5 0fb8 3808  |  8 |
2ff7 1ac2 d400  |    |
2ff9 0000 01a6  |    |
2ffb 1d80       |    |
2ffc 0000 0000  |    |		.BLANK	0000[0x4]