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

⟦cbedcccfb⟧

    Length: 23552 (0x5c00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 2de8       |-   |		.CONST	0x2de8								; 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 2ac3  |  * |		Declare_Subprogram	INIT_2ac0,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 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated
00bf c213       |    |		Store	0x1,0x13
00c0 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
00c2 c291       |    |		Store	0x1,0x91
00c3 029a 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Visible,Unelaborated
00c5 c27e       | ~  |		Store	0x1,0x7e
00c6 029a 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
00c8 c214       |    |		Store	0x1,0x14
00c9 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
00cb c215       |    |		Store	0x1,0x15
00cc 029a 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call,Visible,Unelaborated
00ce c216       |    |		Store	0x1,0x16
00cf 029a 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call,Visible,Unelaborated
00d1 c217       |    |		Store	0x1,0x17
00d2 029a 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call,Visible,Unelaborated
00d4 c218       |    |		Store	0x1,0x18
00d5 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
00d7 c219       |    |		Store	0x1,0x19
00d8 029a 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call,Visible,Unelaborated
00da c27a       | z  |		Store	0x1,0x7a
00db 029a 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Visible,Unelaborated
00dd c27b       | {  |		Store	0x1,0x7b
00de 029a 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call,Visible,Unelaborated
00e0 c27c       | |  |		Store	0x1,0x7c
00e1 029a 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call,Visible,Unelaborated
00e3 c27d       | }  |		Store	0x1,0x7d
00e4 029a 0663  |   c|		Declare_Subprogram	INIT_0660,For_Outer_Call,Visible,Unelaborated
00e6 c28b       |    |		Store	0x1,0x8b
00e7 029a 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call,Visible,Unelaborated
00e9 c28c       |    |		Store	0x1,0x8c
00ea 029a 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call,Visible,Unelaborated
00ec c28d       |    |		Store	0x1,0x8d
00ed 029a 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call,Visible,Unelaborated
00ef c28e       |    |		Store	0x1,0x8e
00f0 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
00f2 c28f       |    |		Store	0x1,0x8f
00f3 029a 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call,Visible,Unelaborated
00f5 c290       |    |		Store	0x1,0x90
00f6 029a 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Visible,Unelaborated
00f8 c221       | !  |		Store	0x1,0x21
00f9 029a 0833  |   3|		Declare_Subprogram	INIT_0830,For_Outer_Call,Visible,Unelaborated
00fb c222       | "  |		Store	0x1,0x22
00fc 029a 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Outer_Call,Visible,Unelaborated
00fe c26e       | n  |		Store	0x1,0x6e
00ff 029a 08d3  |    |		Declare_Subprogram	INIT_08d0,For_Outer_Call,Visible,Unelaborated
0101 c224       | $  |		Store	0x1,0x24
0102 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
0104 c225       | %  |		Store	0x1,0x25
0105 029a 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Outer_Call,Visible,Unelaborated
0107 c226       | &  |		Store	0x1,0x26
0108 029a 08f3  |    |		Declare_Subprogram	INIT_08f0,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 2aeb  |  * |		Declare_Subprogram	INIT_2ae8,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 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call,Visible,Unelaborated
012a c22b       | +  |		Store	0x1,0x2b
012b 029a 091b  |    |		Declare_Subprogram	INIT_0918,For_Outer_Call,Visible,Unelaborated
012d c22c       | ,  |		Store	0x1,0x2c
012e 029a 0963  |   c|		Declare_Subprogram	INIT_0960,For_Outer_Call,Visible,Unelaborated
0130 c22d       | -  |		Store	0x1,0x2d
0131 029a 097b  |   {|		Declare_Subprogram	INIT_0978,For_Outer_Call,Visible,Unelaborated
0133 c22e       | .  |		Store	0x1,0x2e
0134 029a 09a3  |    |		Declare_Subprogram	INIT_09a0,For_Outer_Call,Visible,Unelaborated
0136 c22f       | /  |		Store	0x1,0x2f
0137 029a 0a1b  |    |		Declare_Subprogram	INIT_0a18,For_Outer_Call,Visible,Unelaborated
0139 c230       | 0  |		Store	0x1,0x30
013a 029a 0a2b  |   +|		Declare_Subprogram	INIT_0a28,For_Outer_Call,Visible,Unelaborated
013c c231       | 1  |		Store	0x1,0x31
013d 029a 0ae3  |    |		Declare_Subprogram	INIT_0ae0,For_Outer_Call,Visible,Unelaborated
013f c232       | 2  |		Store	0x1,0x32
0140 029a 0b5b  |   [|		Declare_Subprogram	INIT_0b58,For_Outer_Call,Visible,Unelaborated
0142 c233       | 3  |		Store	0x1,0x33
0143 029a 0b7b  |   {|		Declare_Subprogram	INIT_0b78,For_Outer_Call,Visible,Unelaborated
0145 c234       | 4  |		Store	0x1,0x34
0146 029a 0b8b  |    |		Declare_Subprogram	INIT_0b88,For_Outer_Call,Visible,Unelaborated
0148 c235       | 5  |		Store	0x1,0x35
0149 029a 0c8b  |    |		Declare_Subprogram	INIT_0c88,For_Outer_Call,Visible,Unelaborated
014b c236       | 6  |		Store	0x1,0x36
014c 029a 0d03  |    |		Declare_Subprogram	INIT_0d00,For_Outer_Call,Visible,Unelaborated
014e c237       | 7  |		Store	0x1,0x37
014f 029a 0d13  |    |		Declare_Subprogram	INIT_0d10,For_Outer_Call,Visible,Unelaborated
0151 c238       | 8  |		Store	0x1,0x38
0152 029a 0d23  |   #|		Declare_Subprogram	INIT_0d20,For_Outer_Call,Visible,Unelaborated
0154 c239       | 9  |		Store	0x1,0x39
0155 029a 0d93  |    |		Declare_Subprogram	INIT_0d90,For_Outer_Call,Visible,Unelaborated
0157 c23a       | :  |		Store	0x1,0x3a
0158 029a 0e33  |   3|		Declare_Subprogram	INIT_0e30,For_Outer_Call,Visible,Unelaborated
015a c284       |    |		Store	0x1,0x84
015b 029a 0e43  |   C|		Declare_Subprogram	INIT_0e40,For_Outer_Call,Visible,Unelaborated
015d c285       |    |		Store	0x1,0x85
015e 029a 0e5b  |   [|		Declare_Subprogram	INIT_0e58,For_Outer_Call,Visible,Unelaborated
0160 c23b       | ;  |		Store	0x1,0x3b
0161 029a 0e6b  |   k|		Declare_Subprogram	INIT_0e68,For_Outer_Call,Visible,Unelaborated
0163 c23c       | <  |		Store	0x1,0x3c
0164 029a 0e7b  |   {|		Declare_Subprogram	INIT_0e78,For_Outer_Call,Visible,Unelaborated
0166 c23d       | =  |		Store	0x1,0x3d
0167 029a 0e8b  |    |		Declare_Subprogram	INIT_0e88,For_Outer_Call,Visible,Unelaborated
0169 c23e       | >  |		Store	0x1,0x3e
016a 029a 0e9b  |    |		Declare_Subprogram	INIT_0e98,For_Outer_Call,Visible,Unelaborated
016c c287       |    |		Store	0x1,0x87
016d 029a 0ea3  |    |		Declare_Subprogram	INIT_0ea0,For_Outer_Call,Visible,Unelaborated
016f c288       |    |		Store	0x1,0x88
0170 029a 0eab  |    |		Declare_Subprogram	INIT_0ea8,For_Outer_Call,Visible,Unelaborated
0172 c23f       | ?  |		Store	0x1,0x3f
0173 029a 0ed3  |    |		Declare_Subprogram	INIT_0ed0,For_Outer_Call,Visible,Unelaborated
0175 c240       | @  |		Store	0x1,0x40
0176 029a 0f0b  |    |		Declare_Subprogram	INIT_0f08,For_Outer_Call,Visible,Unelaborated
0178 c241       | A  |		Store	0x1,0x41
0179 029a 0f3b  |   ;|		Declare_Subprogram	INIT_0f38,For_Outer_Call,Visible,Unelaborated
017b c242       | B  |		Store	0x1,0x42
017c 029a 0f4b  |   K|		Declare_Subprogram	INIT_0f48,For_Outer_Call,Visible,Unelaborated
017e c243       | C  |		Store	0x1,0x43
017f 029a 0f5b  |   [|		Declare_Subprogram	INIT_0f58,For_Outer_Call,Visible,Unelaborated
0181 c244       | D  |		Store	0x1,0x44
0182 029a 0f73  |   s|		Declare_Subprogram	INIT_0f70,For_Outer_Call,Visible,Unelaborated
0184 c283       |    |		Store	0x1,0x83
0185 029a 0fa3  |    |		Declare_Subprogram	INIT_0fa0,For_Outer_Call,Visible,Unelaborated
0187 c28a       |    |		Store	0x1,0x8a
0188 029a 0fd3  |    |		Declare_Subprogram	INIT_0fd0,For_Outer_Call,Visible,Unelaborated
018a c245       | E  |		Store	0x1,0x45
018b 029a 0fe3  |    |		Declare_Subprogram	INIT_0fe0,For_Outer_Call,Visible,Unelaborated
018d c246       | F  |		Store	0x1,0x46
018e 029a 0feb  |    |		Declare_Subprogram	INIT_0fe8,For_Outer_Call,Visible,Unelaborated
0190 c247       | G  |		Store	0x1,0x47
0191 029a 1033  |   3|		Declare_Subprogram	INIT_1030,For_Outer_Call,Visible,Unelaborated
0193 c248       | H  |		Store	0x1,0x48
0194 029a 103b  |   ;|		Declare_Subprogram	INIT_1038,For_Outer_Call,Visible,Unelaborated
0196 c249       | I  |		Store	0x1,0x49
0197 029a 104b  |   K|		Declare_Subprogram	INIT_1048,For_Outer_Call,Visible,Unelaborated
0199 c24a       | J  |		Store	0x1,0x4a
019a 029a 1053  |   S|		Declare_Subprogram	INIT_1050,For_Outer_Call,Visible,Unelaborated
019c c24b       | K  |		Store	0x1,0x4b
019d 029a 1063  |   c|		Declare_Subprogram	INIT_1060,For_Outer_Call,Visible,Unelaborated
019f c24c       | L  |		Store	0x1,0x4c
01a0 029a 106b  |   k|		Declare_Subprogram	INIT_1068,For_Outer_Call,Visible,Unelaborated
01a2 c24d       | M  |		Store	0x1,0x4d
01a3 029a 107b  |   {|		Declare_Subprogram	INIT_1078,For_Outer_Call,Visible,Unelaborated
01a5 c24e       | N  |		Store	0x1,0x4e
01a6 029a 1083  |    |		Declare_Subprogram	INIT_1080,For_Outer_Call,Visible,Unelaborated
01a8 c24f       | O  |		Store	0x1,0x4f
01a9 029a 1093  |    |		Declare_Subprogram	INIT_1090,For_Outer_Call,Visible,Unelaborated
01ab c27f       |    |		Store	0x1,0x7f
01ac 029a 109b  |    |		Declare_Subprogram	INIT_1098,For_Outer_Call,Visible,Unelaborated
01ae c280       |    |		Store	0x1,0x80
01af 029a 10a3  |    |		Declare_Subprogram	INIT_10a0,For_Outer_Call,Visible,Unelaborated
01b1 c281       |    |		Store	0x1,0x81
01b2 029a 10ab  |    |		Declare_Subprogram	INIT_10a8,For_Outer_Call,Visible,Unelaborated
01b4 c282       |    |		Store	0x1,0x82
01b5 029a 10bb  |    |		Declare_Subprogram	INIT_10b8,For_Outer_Call,Visible,Unelaborated
01b7 c271       | q  |		Store	0x1,0x71
01b8 029a 10cb  |    |		Declare_Subprogram	INIT_10c8,For_Outer_Call,Visible,Unelaborated
01ba c272       | r  |		Store	0x1,0x72
01bb 029a 10db  |    |		Declare_Subprogram	INIT_10d8,For_Outer_Call,Visible,Unelaborated
01bd c273       | s  |		Store	0x1,0x73
01be 029a 10e3  |    |		Declare_Subprogram	INIT_10e0,For_Outer_Call,Visible,Unelaborated
01c0 c274       | t  |		Store	0x1,0x74
01c1 029a 10f3  |    |		Declare_Subprogram	INIT_10f0,For_Outer_Call,Visible,Unelaborated
01c3 c250       | P  |		Store	0x1,0x50
01c4 029a 10fb  |    |		Declare_Subprogram	INIT_10f8,For_Outer_Call,Visible,Unelaborated
01c6 c251       | Q  |		Store	0x1,0x51
01c7 029a 1173  |   s|		Declare_Subprogram	INIT_1170,For_Outer_Call,Visible,Unelaborated
01c9 c252       | R  |		Store	0x1,0x52
01ca 029a 11bb  |    |		Declare_Subprogram	INIT_11b8,For_Outer_Call,Visible,Unelaborated
01cc c253       | S  |		Store	0x1,0x53
01cd 029a 120b  |    |		Declare_Subprogram	INIT_1208,For_Outer_Call,Visible,Unelaborated
01cf c254       | T  |		Store	0x1,0x54
01d0 029a 1253  |   S|		Declare_Subprogram	INIT_1250,For_Outer_Call,Visible,Unelaborated
01d2 c293       |    |		Store	0x1,0x93
01d3 029a 12a3  |    |		Declare_Subprogram	INIT_12a0,For_Outer_Call,Visible,Unelaborated
01d5 c256       | V  |		Store	0x1,0x56
01d6 029a 1303  |    |		Declare_Subprogram	INIT_1300,For_Outer_Call,Visible,Unelaborated
01d8 c294       |    |		Store	0x1,0x94
01d9 029a 1353  |   S|		Declare_Subprogram	INIT_1350,For_Outer_Call,Visible,Unelaborated
01db c295       |    |		Store	0x1,0x95
01dc 029a 13a3  |    |		Declare_Subprogram	INIT_13a0,For_Outer_Call,Visible,Unelaborated
01de c296       |    |		Store	0x1,0x96
01df 029a 13f3  |    |		Declare_Subprogram	INIT_13f0,For_Outer_Call,Visible,Unelaborated
01e1 c25a       | Z  |		Store	0x1,0x5a
01e2 029a 1403  |    |		Declare_Subprogram	INIT_1400,For_Outer_Call,Visible,Unelaborated
01e4 c25b       | [  |		Store	0x1,0x5b
01e5 029a 1413  |    |		Declare_Subprogram	INIT_1410,For_Outer_Call,Visible,Unelaborated
01e7 c25c       | \  |		Store	0x1,0x5c
01e8 029a 1423  |   #|		Declare_Subprogram	INIT_1420,For_Outer_Call,Visible,Unelaborated
01ea c275       | u  |		Store	0x1,0x75
01eb 029a 1463  |   c|		Declare_Subprogram	INIT_1460,For_Outer_Call,Visible,Unelaborated
01ed c276       | v  |		Store	0x1,0x76
01ee 029a 14ab  |    |		Declare_Subprogram	INIT_14a8,For_Outer_Call,Visible,Unelaborated
01f0 c25f       | _  |		Store	0x1,0x5f
01f1 029a 14bb  |    |		Declare_Subprogram	INIT_14b8,For_Outer_Call,Visible,Unelaborated
01f3 c260       | `  |		Store	0x1,0x60
01f4 029a 14cb  |    |		Declare_Subprogram	INIT_14c8,For_Outer_Call,Visible,Unelaborated
01f6 c261       | a  |		Store	0x1,0x61
01f7 4808       |H   |		Short_Literal	0x8
01f8 0093 2b13  |  + |		push_full_address	INIT_2b10
01fa 02a0       |    |		Declare_Subprogram	Null_Subprogram
01fb 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
01fc c262       | b  |		Store	0x1,0x62
01fd 029a 14db  |    |		Declare_Subprogram	INIT_14d8,For_Outer_Call,Visible,Unelaborated
01ff c263       | c  |		Store	0x1,0x63
0200 029a 1553  |   S|		Declare_Subprogram	INIT_1550,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 159b  |    |		Declare_Subprogram	INIT_1598,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 15c3  |    |		Declare_Subprogram	INIT_15c0,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 15eb  |    |		Declare_Subprogram	INIT_15e8,For_Call
023b 03fd       |    |		Declare_Type	Discrete,Defined
023c 4800       |H   |		Short_Literal	0x0
023d 4803       |H   |		Short_Literal	0x3
023e 029f 1613  |    |		Declare_Subprogram	INIT_1610,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 163b  |   ;|		Declare_Subprogram	INIT_1638,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 1663  |   c|		Declare_Subprogram	INIT_1660,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 1663  |   c|		Declare_Subprogram	INIT_1660,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 173b  |   ;|		Declare_Subprogram	INIT_1738,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 2b83  |  + |		Action	Push_String_Extended,0x2b83					; ":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 1763  |   c|		Declare_Subprogram	INIT_1760,For_Outer_Call
031a 029d 17d3  |    |		Declare_Subprogram	INIT_17d0,For_Outer_Call
031c 029d 18fb  |    |		Declare_Subprogram	INIT_18f8,For_Outer_Call
031e 029d 19a3  |    |		Declare_Subprogram	INIT_19a0,For_Outer_Call
0320 029d 1a0b  |    |		Declare_Subprogram	INIT_1a08,For_Outer_Call
0322 029d 1a4b  |   K|		Declare_Subprogram	INIT_1a48,For_Outer_Call
0324 029d 1c1b  |    |		Declare_Subprogram	INIT_1c18,For_Outer_Call
0326 029d 1ccb  |    |		Declare_Subprogram	INIT_1cc8,For_Outer_Call
0328 029d 1d4b  |   K|		Declare_Subprogram	INIT_1d48,For_Outer_Call
032a 029d 1f33  |   3|		Declare_Subprogram	INIT_1f30,For_Outer_Call
032c 029d 1f4b  |   K|		Declare_Subprogram	INIT_1f48,For_Outer_Call
032e 029d 1f63  |   c|		Declare_Subprogram	INIT_1f60,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 2213  |  " |		Declare_Subprogram	INIT_2210,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 228b  |  " |		Declare_Subprogram	INIT_2288,For_Outer_Call
0358 029d 22db  |  " |		Declare_Subprogram	INIT_22d8,For_Outer_Call
035a 029d 2363  |  #c|		Declare_Subprogram	INIT_2360,For_Outer_Call
035c 029d 2383  |  # |		Declare_Subprogram	INIT_2380,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 2583  |  % |		Declare_Subprogram	INIT_2580,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 25bb  |  % |		Declare_Subprogram	INIT_25b8,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 25f3  |  % |		Declare_Subprogram	INIT_25f0,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 260b  |  & |		Declare_Subprogram	INIT_2608,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 2623  |  &#|		Declare_Subprogram	INIT_2620,For_Outer_Call
03b2 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
03b3 00c7       |    |		Action	Elaborate_Subprogram
03b4 029d 263b  |  &;|		Declare_Subprogram	INIT_2638,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 267b  |  &{|		Declare_Subprogram	INIT_2678,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 2693  |  & |		Declare_Subprogram	INIT_2690,For_Outer_Call
03e3 029d 26db  |  & |		Declare_Subprogram	INIT_26d8,For_Outer_Call
03e5 029d 26eb  |  & |		Declare_Subprogram	INIT_26e8,For_Outer_Call
03e7 029d 2743  |  'C|		Declare_Subprogram	INIT_2740,For_Outer_Call
03e9 029d 27db  |  ' |		Declare_Subprogram	INIT_27d8,For_Outer_Call
03eb 029d 2823  |  (#|		Declare_Subprogram	INIT_2820,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 2873  |  (s|		Declare_Subprogram	INIT_2870,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 288b  |  ( |		Declare_Subprogram	INIT_2888,For_Call
0482			BODY_0470:
0482 e5f9       |    |		Load	0x2,-0x7
0483 00db       |    |		Load_Top	At_Offset_3
0484 605f       |`_  |		Indirect_Literal	Discrete,0x4e4,{0x00000000, 0x00002817}
0485 605a       |`Z  |		Indirect_Literal	Discrete,0x4e0,{0x00000000, 0x00002803}
0486 e5ff       |    |		Load	0x2,-0x1
0487 801c       |    |		Call	0x0,0x1c
0488 c403       |    |		Store	0x2,0x3
0489 c5f9       |    |		Store	0x2,-0x7
048a e5f9       |    |		Load	0x2,-0x7
048b 704c       |pL  |		Jump_Nonzero	0x4d8
048c 00cf       |    |		Action	Mark_Auxiliary
048d 783f       |x?  |		Jump	0x4cd
048e e00d       |    |		Load	0x0,0xd
048f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0490 e402       |    |		Load	0x2,0x2
0491 0120       |    |		Execute	Any,Is_Value
0492 6803       |h   |		Jump_Zero	0x496
0493 e00d       |    |		Load	0x0,0xd
0494 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0495 7801       |x   |		Jump	0x497
0496 e402       |    |		Load	0x2,0x2
0497 e403       |    |		Load	0x2,0x3
0498 e00d       |    |		Load	0x0,0xd
0499 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
049a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
049b c402       |    |		Store	0x2,0x2
049c 005b       | [  |		Store_Top	Discrete,At_Offset_3
049d 00da       |    |		Load_Top	At_Offset_2
049e 681b       |h   |		Jump_Zero	0x4ba
049f e002       |    |		Load	0x0,0x2
04a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a1 4801       |H   |		Short_Literal	0x1
04a2 4802       |H   |		Short_Literal	0x2
04a3 e00e       |    |		Load	0x0,0xe
04a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04a5 0334       | 4  |		Declare_Variable	Array,With_Constraint
04a6 e403       |    |		Load	0x2,0x3
04a7 e00d       |    |		Load	0x0,0xd
04a8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04a9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04aa e00e       |    |		Load	0x0,0xe
04ab 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04ac 4801       |H   |		Short_Literal	0x1
04ad 00da       |    |		Load_Top	At_Offset_2
04ae 01d6       |    |		Execute	Vector,Field_Write
04af e404       |    |		Load	0x2,0x4
04b0 e00e       |    |		Load	0x0,0xe
04b1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
04b2 4802       |H   |		Short_Literal	0x2
04b3 00da       |    |		Load_Top	At_Offset_2
04b4 01d6       |    |		Execute	Vector,Field_Write
04b5 6026       |`&  |		Indirect_Literal	Discrete,0x4dc,{0x00000000, 0x00002808}
04b6 e002       |    |		Load	0x0,0x2
04b7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
04b8 c5f9       |    |		Store	0x2,-0x7
04b9 7802       |x   |		Jump	0x4bc
04ba e402       |    |		Load	0x2,0x2
04bb 8405       |    |		Call	0x2,0x5
04bc 0092 2b84  |  + |		Action	Push_String_Extended,0x2b84					; "Created state file for world \x22"
04be e403       |    |		Load	0x2,0x3
04bf e00d       |    |		Load	0x0,0xd
04c0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04c1 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04c2 01cc       |    |		Execute	Vector,Catenate
04c3 0092 2b85  |  + |		Action	Push_String_Extended,0x2b85					; "\x22."
04c5 01cc       |    |		Execute	Vector,Catenate
04c6 801d       |    |		Call	0x0,0x1d
04c7 00db       |    |		Load_Top	At_Offset_3
04c8 e00d       |    |		Load	0x0,0xd
04c9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ca 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04cb c403       |    |		Store	0x2,0x3
04cc 00c9       |    |		Action	Pop_Auxiliary_Loop
04cd 00db       |    |		Load_Top	At_Offset_3
04ce e00d       |    |		Load	0x0,0xd
04cf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04d0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04d1 6fbc       |o   |		Jump_Zero	0x48e
04d2 00ce       |    |		Action	Pop_Auxiliary
04d3 00da       |    |		Load_Top	At_Offset_2
04d4 e00d       |    |		Load	0x0,0xd
04d5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04d6 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
04d7 c403       |    |		Store	0x2,0x3
04d8 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
04d9 0000 0000  |    |		.XXX[0x3]
04db 0000       |    |
04dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002808}
04e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002803}
04e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002817}
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f8       |    |		.CONST	0x04f8								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0004       |    |		.CONST	0x0004								; Number of locals
04eb			INIT_04e8:
04eb e00d       |    |		Load	0x0,0xd
04ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ed 02c7       |    |		Declare_Variable	Any
04ee 00d8       |    |		Load_Top	At_Offset_0
04ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f0 e00d       |    |		Load	0x0,0xd
04f1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04f2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04f3 02c7       |    |		Declare_Variable	Any
04f4 00d8       |    |		Load_Top	At_Offset_0
04f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f6 e00d       |    |		Load	0x0,0xd
04f7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f8			BODY_04e8:
04f8 e5fd       |    |		Load	0x2,-0x3
04f9 00da       |    |		Load_Top	At_Offset_2
04fa 6051       |`Q  |		Indirect_Literal	Discrete,0x54c,{0x00000000, 0x00002818}
04fb 604c       |`L  |		Indirect_Literal	Discrete,0x548,{0x00000000, 0x00002806}
04fc e5ff       |    |		Load	0x2,-0x1
04fd 801c       |    |		Call	0x0,0x1c
04fe c403       |    |		Store	0x2,0x3
04ff c5fd       |    |		Store	0x2,-0x3
0500 e5fd       |    |		Load	0x2,-0x3
0501 7045       |pE  |		Jump_Nonzero	0x547
0502 00cf       |    |		Action	Mark_Auxiliary
0503 7838       |x8  |		Jump	0x53c
0504 e00d       |    |		Load	0x0,0xd
0505 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0506 e402       |    |		Load	0x2,0x2
0507 0120       |    |		Execute	Any,Is_Value
0508 6803       |h   |		Jump_Zero	0x50c
0509 e00d       |    |		Load	0x0,0xd
050a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
050b 7801       |x   |		Jump	0x50d
050c e402       |    |		Load	0x2,0x2
050d e403       |    |		Load	0x2,0x3
050e e00d       |    |		Load	0x0,0xd
050f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0510 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0511 c402       |    |		Store	0x2,0x2
0512 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0513 00d9       |    |		Load_Top	At_Offset_1
0514 681b       |h   |		Jump_Zero	0x530
0515 e002       |    |		Load	0x0,0x2
0516 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0517 4801       |H   |		Short_Literal	0x1
0518 4802       |H   |		Short_Literal	0x2
0519 e00e       |    |		Load	0x0,0xe
051a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
051b 0334       | 4  |		Declare_Variable	Array,With_Constraint
051c e403       |    |		Load	0x2,0x3
051d e00d       |    |		Load	0x0,0xd
051e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
051f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0520 e00e       |    |		Load	0x0,0xe
0521 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0522 4801       |H   |		Short_Literal	0x1
0523 00da       |    |		Load_Top	At_Offset_2
0524 01d6       |    |		Execute	Vector,Field_Write
0525 00db       |    |		Load_Top	At_Offset_3
0526 e00e       |    |		Load	0x0,0xe
0527 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0528 4802       |H   |		Short_Literal	0x2
0529 00da       |    |		Load_Top	At_Offset_2
052a 01d6       |    |		Execute	Vector,Field_Write
052b 67b0       |g   |		Indirect_Literal	Discrete,0x4dc,{0x00000000, 0x00002808}
052c e002       |    |		Load	0x0,0x2
052d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
052e c5fd       |    |		Store	0x2,-0x3
052f 7806       |x   |		Jump	0x536
0530 e5fd       |    |		Load	0x2,-0x3
0531 e5fe       |    |		Load	0x2,-0x2
0532 e402       |    |		Load	0x2,0x2
0533 e01b       |    |		Load	0x0,0x1b
0534 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0535 c5fd       |    |		Store	0x2,-0x3
0536 00da       |    |		Load_Top	At_Offset_2
0537 e00d       |    |		Load	0x0,0xd
0538 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0539 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
053a c403       |    |		Store	0x2,0x3
053b 00c9       |    |		Action	Pop_Auxiliary_Loop
053c 00da       |    |		Load_Top	At_Offset_2
053d e00d       |    |		Load	0x0,0xd
053e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
053f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0540 6fc3       |o   |		Jump_Zero	0x504
0541 00ce       |    |		Action	Pop_Auxiliary
0542 00d9       |    |		Load_Top	At_Offset_1
0543 e00d       |    |		Load	0x0,0xd
0544 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0545 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0546 c403       |    |		Store	0x2,0x3
0547 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0548 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002806}
054c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002818}
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 055f       | _  |		.CONST	0x055f								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0004       |    |		.CONST	0x0004								; Number of locals
0553			INIT_0550:
0553 e20d       |    |		Load	0x1,0xd
0554 0007       |    |		Action	Break_Optional
0555 e001       |    |		Load	0x0,0x1
0556 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0557 02c7       |    |		Declare_Variable	Any
0558 00d8       |    |		Load_Top	At_Offset_0
0559 1c00       |    |		Execute_Immediate	Run_Utility,0x0
055a 6039       |`9  |		Indirect_Literal	Discrete,0x594,{0x00000000, 0x0000282a}
055b 6034       |`4  |		Indirect_Literal	Discrete,0x590,{0x00000000, 0x00002829}
055c 602f       |`/  |		Indirect_Literal	Discrete,0x58c,{0x00000000, 0x00002828}
055d e5ff       |    |		Load	0x2,-0x1
055e 801e       |    |		Call	0x0,0x1e
055f			BODY_0550:
055f 00be       |    |		Action	Activate_Tasks
0560 00d8       |    |		Load_Top	At_Offset_0
0561 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0562 a5fc       |    |		Store_Unchecked	0x2,-0x4
0563 00d8       |    |		Load_Top	At_Offset_0
0564 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0565 7022       |p"  |		Jump_Nonzero	0x588
0566 00cf       |    |		Action	Mark_Auxiliary
0567 00d9       |    |		Load_Top	At_Offset_1
0568 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0569 01d9       |    |		Execute	Vector,Reverse_Bounds
056a 0263       | c  |		Execute	Discrete,Above_Bound
056b 701b       |p   |		Jump_Nonzero	0x587
056c e5fc       |    |		Load	0x2,-0x4
056d e403       |    |		Load	0x2,0x3
056e e20d       |    |		Load	0x1,0xd
056f 4801       |H   |		Short_Literal	0x1
0570 e5fd       |    |		Load	0x2,-0x3
0571 e407       |    |		Load	0x2,0x7
0572 e404       |    |		Load	0x2,0x4
0573 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0574 01d7       |    |		Execute	Vector,Field_Read
0575 4802       |H   |		Short_Literal	0x2
0576 e5fe       |    |		Load	0x2,-0x2
0577 e001       |    |		Load	0x0,0x1
0578 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0579 c402       |    |		Store	0x2,0x2
057a c403       |    |		Store	0x2,0x3
057b c5fc       |    |		Store	0x2,-0x4
057c e5fc       |    |		Load	0x2,-0x4
057d e403       |    |		Load	0x2,0x3
057e e402       |    |		Load	0x2,0x2
057f 4800       |H   |		Short_Literal	0x0
0580 e001       |    |		Load	0x0,0x1
0581 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0582 c402       |    |		Store	0x2,0x2
0583 c403       |    |		Store	0x2,0x3
0584 c5fc       |    |		Store	0x2,-0x4
0585 00c8       |    |		Action	Pop_Auxiliary_Range
0586 3fe5       |?   |		Loop_Increasing	0x56c
0587 00ce       |    |		Action	Pop_Auxiliary
0588 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0589 0000 0000  |    |		.XXX[0x3]
058b 0000       |    |
058c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002828}
0590 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002829}
0594 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282a}
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05ae       |    |		.CONST	0x05ae								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0006       |    |		.CONST	0x0006								; Number of locals
059b			INIT_0598:
059b e20d       |    |		Load	0x1,0xd
059c 0007       |    |		Action	Break_Optional
059d e001       |    |		Load	0x0,0x1
059e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
059f 02c7       |    |		Declare_Variable	Any
05a0 00d8       |    |		Load_Top	At_Offset_0
05a1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a2 67f1       |g   |		Indirect_Literal	Discrete,0x594,{0x00000000, 0x0000282a}
05a3 67ec       |g   |		Indirect_Literal	Discrete,0x590,{0x00000000, 0x00002829}
05a4 67e7       |g   |		Indirect_Literal	Discrete,0x58c,{0x00000000, 0x00002828}
05a5 e5ff       |    |		Load	0x2,-0x1
05a6 801e       |    |		Call	0x0,0x1e
05a7 00d8       |    |		Load_Top	At_Offset_0
05a8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05a9 e002       |    |		Load	0x0,0x2
05aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05ab 03f1       |    |		Declare_Variable	Discrete,With_Value
05ac 00e1       |    |		Load_Encached	Boolean_Cache
05ad 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05ae			BODY_0598:
05ae 00be       |    |		Action	Activate_Tasks
05af 00d9       |    |		Load_Top	At_Offset_1
05b0 702b       |p+  |		Jump_Nonzero	0x5dc
05b1 00cf       |    |		Action	Mark_Auxiliary
05b2 00db       |    |		Load_Top	At_Offset_3
05b3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05b4 01d9       |    |		Execute	Vector,Reverse_Bounds
05b5 0263       | c  |		Execute	Discrete,Above_Bound
05b6 7024       |p$  |		Jump_Nonzero	0x5db
05b7 e405       |    |		Load	0x2,0x5
05b8 e403       |    |		Load	0x2,0x3
05b9 e20d       |    |		Load	0x1,0xd
05ba e5fe       |    |		Load	0x2,-0x2
05bb e409       |    |		Load	0x2,0x9
05bc e404       |    |		Load	0x2,0x4
05bd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05be 01d7       |    |		Execute	Vector,Field_Read
05bf 4800       |H   |		Short_Literal	0x0
05c0 e01b       |    |		Load	0x0,0x1b
05c1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05c2 c402       |    |		Store	0x2,0x2
05c3 c403       |    |		Store	0x2,0x3
05c4 c405       |    |		Store	0x2,0x5
05c5 00d8       |    |		Load_Top	At_Offset_0
05c6 e404       |    |		Load	0x2,0x4
05c7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05c8 01d7       |    |		Execute	Vector,Field_Read
05c9 e402       |    |		Load	0x2,0x2
05ca 801f       |    |		Call	0x0,0x1f
05cb a406       |    |		Store_Unchecked	0x2,0x6
05cc e405       |    |		Load	0x2,0x5
05cd e403       |    |		Load	0x2,0x3
05ce e402       |    |		Load	0x2,0x2
05cf 4800       |H   |		Short_Literal	0x0
05d0 e001       |    |		Load	0x0,0x1
05d1 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05d2 c402       |    |		Store	0x2,0x2
05d3 c403       |    |		Store	0x2,0x3
05d4 c405       |    |		Store	0x2,0x5
05d5 00db       |    |		Load_Top	At_Offset_3
05d6 7002       |p   |		Jump_Nonzero	0x5d9
05d7 00d2       |    |		Pop_Control	Pop_Count_2
05d8 7802       |x   |		Jump	0x5db
05d9 00c8       |    |		Action	Pop_Auxiliary_Range
05da 3fdc       |?   |		Loop_Increasing	0x5b7
05db 00ce       |    |		Action	Pop_Auxiliary
05dc 00d8       |    |		Load_Top	At_Offset_0
05dd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05de 0000 0000  |    |		.XXX[0x2]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 08e2       |    |		Execute_Immediate	Raise,0xe2
05e4 0000 0000  |    |		.BLANK	0000[0x4]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb 08e2       |    |		Execute_Immediate	Raise,0xe2
05ec 0000 0000  |    |		.BLANK	0000[0x4]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3       |    |		.CONST	0x05f3								; Address of begin
05f1 05f6       |    |		.CONST	0x05f6								; Address of exception handler
05f2 0001       |    |		.CONST	0x0001								; Number of locals
05f3			BODY_05f0:
05f3			INIT_05f0:
05f3 00da       |    |		Load_Top	At_Offset_2
05f4 021c       |    |		Execute	Heap_Access,Not_Null
05f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f6			TRAP_05f0:
05f6 0007       |    |		Action	Break_Optional
05f7 4800       |H   |		Short_Literal	0x0
05f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f9 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0604 0217       |    |		Execute	Heap_Access,All_Reference
0605 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0606 0217       |    |		Execute	Heap_Access,All_Reference
0607 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0608 c5fe       |    |		Store	0x2,-0x2
0609 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
060a 0000 0000  |    |		.BLANK	0000[0x6]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 00da       |    |		Load_Top	At_Offset_2
0614 0217       |    |		Execute	Heap_Access,All_Reference
0615 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0616 c5fe       |    |		Store	0x2,-0x2
0617 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 00db       |    |		Load_Top	At_Offset_3
061c 00db       |    |		Load_Top	At_Offset_3
061d 0217       |    |		Execute	Heap_Access,All_Reference
061e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
061f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 00da       |    |		Load_Top	At_Offset_2
0624 0217       |    |		Execute	Heap_Access,All_Reference
0625 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0626 e020       |    |		Load	0x0,0x20
0627 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0628 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0629 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0634 e5fe       |    |		Load	0x2,-0x2
0635 e020       |    |		Load	0x0,0x20
0636 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0637 00db       |    |		Load_Top	At_Offset_3
0638 0217       |    |		Execute	Heap_Access,All_Reference
0639 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
063a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
063b 0000 0000  |    |		.BLANK	0000[0x5]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 00da       |    |		Load_Top	At_Offset_2
0644 0217       |    |		Execute	Heap_Access,All_Reference
0645 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0646 e020       |    |		Load	0x0,0x20
0647 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0648 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0649 0000 0000  |    |		.BLANK	0000[0x7]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 00da       |    |		Load_Top	At_Offset_2
0654 e5fe       |    |		Load	0x2,-0x2
0655 e020       |    |		Load	0x0,0x20
0656 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0657 00db       |    |		Load_Top	At_Offset_3
0658 0217       |    |		Execute	Heap_Access,All_Reference
0659 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
065a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
065b 0000 0000  |    |		.BLANK	0000[0x5]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0668       | h  |		.CONST	0x0668								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0003       |    |		.CONST	0x0003								; Number of locals
0663			INIT_0660:
0663 e001       |    |		Load	0x0,0x1
0664 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0665 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0666 00e2       |    |		Load_Encached	Integer_Cache
0667 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0668			BODY_0660:
0668 00d8       |    |		Load_Top	At_Offset_0
0669 e5fb       |    |		Load	0x2,-0x5
066a e001       |    |		Load	0x0,0x1
066b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
066c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
066d e5fc       |    |		Load	0x2,-0x4
066e e5fd       |    |		Load	0x2,-0x3
066f e5fe       |    |		Load	0x2,-0x2
0670 e5ff       |    |		Load	0x2,-0x1
0671 82bf       |    |		Call	0x1,0xbf
0672 c402       |    |		Store	0x2,0x2
0673 c5fb       |    |		Store	0x2,-0x5
0674 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0675 e5fb       |    |		Load	0x2,-0x5
0676 e5fd       |    |		Load	0x2,-0x3
0677 00da       |    |		Load_Top	At_Offset_2
0678 4801       |H   |		Short_Literal	0x1
0679 e5fe       |    |		Load	0x2,-0x2
067a 82bd       |    |		Call	0x1,0xbd
067b c5fb       |    |		Store	0x2,-0x5
067c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
067d 0000 0000  |    |		.XXX[0x3]
067f 0000       |    |
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0691       |    |		.CONST	0x0691								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0006       |    |		.CONST	0x0006								; Number of locals
0683			INIT_0680:
0683 e00d       |    |		Load	0x0,0xd
0684 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0685 02c7       |    |		Declare_Variable	Any
0686 00d8       |    |		Load_Top	At_Offset_0
0687 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0688 e00d       |    |		Load	0x0,0xd
0689 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
068a e001       |    |		Load	0x0,0x1
068b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
068c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
068d 00e2       |    |		Load_Encached	Integer_Cache
068e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
068f 00e2       |    |		Load_Encached	Integer_Cache
0690 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0691			BODY_0680:
0691 00cf       |    |		Action	Mark_Auxiliary
0692 7842       |xB  |		Jump	0x6d5
0693 e00d       |    |		Load	0x0,0xd
0694 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0695 e402       |    |		Load	0x2,0x2
0696 0120       |    |		Execute	Any,Is_Value
0697 6803       |h   |		Jump_Zero	0x69b
0698 e00d       |    |		Load	0x0,0xd
0699 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
069a 7801       |x   |		Jump	0x69c
069b e402       |    |		Load	0x2,0x2
069c e5fc       |    |		Load	0x2,-0x4
069d e00d       |    |		Load	0x0,0xd
069e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
069f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06a0 c402       |    |		Store	0x2,0x2
06a1 c403       |    |		Store	0x2,0x3
06a2 e403       |    |		Load	0x2,0x3
06a3 7011       |p   |		Jump_Nonzero	0x6b5
06a4 00da       |    |		Load_Top	At_Offset_2
06a5 e5fb       |    |		Load	0x2,-0x5
06a6 e001       |    |		Load	0x0,0x1
06a7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
06a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a9 e5fd       |    |		Load	0x2,-0x3
06aa e5fe       |    |		Load	0x2,-0x2
06ab e5ff       |    |		Load	0x2,-0x1
06ac e402       |    |		Load	0x2,0x2
06ad 82bf       |    |		Call	0x1,0xbf
06ae c404       |    |		Store	0x2,0x4
06af c5fb       |    |		Store	0x2,-0x5
06b0 005b       | [  |		Store_Top	Discrete,At_Offset_3
06b1 00d9       |    |		Load_Top	At_Offset_1
06b2 0a01       |    |		Execute_Immediate	Plus,0x1
06b3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
06b4 781a       |x   |		Jump	0x6cf
06b5 e002       |    |		Load	0x0,0x2
06b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06b7 4801       |H   |		Short_Literal	0x1
06b8 4802       |H   |		Short_Literal	0x2
06b9 e00e       |    |		Load	0x0,0xe
06ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06bb 0334       | 4  |		Declare_Variable	Array,With_Constraint
06bc e5fc       |    |		Load	0x2,-0x4
06bd e00d       |    |		Load	0x0,0xd
06be 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06bf 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
06c0 e00e       |    |		Load	0x0,0xe
06c1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06c2 4801       |H   |		Short_Literal	0x1
06c3 00da       |    |		Load_Top	At_Offset_2
06c4 01d6       |    |		Execute	Vector,Field_Write
06c5 e403       |    |		Load	0x2,0x3
06c6 e00e       |    |		Load	0x0,0xe
06c7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06c8 4802       |H   |		Short_Literal	0x2
06c9 00da       |    |		Load_Top	At_Offset_2
06ca 01d6       |    |		Execute	Vector,Field_Write
06cb 601c       |`   |		Indirect_Literal	Discrete,0x6e8,{0x00000000, 0x00002808}
06cc e002       |    |		Load	0x0,0x2
06cd 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06ce c5fb       |    |		Store	0x2,-0x5
06cf e5fc       |    |		Load	0x2,-0x4
06d0 e00d       |    |		Load	0x0,0xd
06d1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06d2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06d3 c5fc       |    |		Store	0x2,-0x4
06d4 00c9       |    |		Action	Pop_Auxiliary_Loop
06d5 e5fc       |    |		Load	0x2,-0x4
06d6 e00d       |    |		Load	0x0,0xd
06d7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06d8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06d9 6fb9       |o   |		Jump_Zero	0x693
06da 00ce       |    |		Action	Pop_Auxiliary
06db e5fb       |    |		Load	0x2,-0x5
06dc e5fe       |    |		Load	0x2,-0x2
06dd 00db       |    |		Load_Top	At_Offset_3
06de 00db       |    |		Load_Top	At_Offset_3
06df e5ff       |    |		Load	0x2,-0x1
06e0 82bd       |    |		Call	0x1,0xbd
06e1 c5fb       |    |		Store	0x2,-0x5
06e2 e5fc       |    |		Load	0x2,-0x4
06e3 e00d       |    |		Load	0x0,0xd
06e4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06e5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
06e6 c5fc       |    |		Store	0x2,-0x4
06e7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002808}
06ec 0000 0000  |    |		.BLANK	0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f9       |    |		.CONST	0x06f9								; Address of begin
06f1 0004       |    |		.CONST	0x0004								; Address of exception handler
06f2 0002       |    |		.CONST	0x0002								; Number of locals
06f3			INIT_06f0:
06f3 e00d       |    |		Load	0x0,0xd
06f4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06f5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
06f6 02c7       |    |		Declare_Variable	Any
06f7 00d8       |    |		Load_Top	At_Offset_0
06f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f9			BODY_06f0:
06f9 e5fb       |    |		Load	0x2,-0x5
06fa 00d9       |    |		Load_Top	At_Offset_1
06fb 6018       |`   |		Indirect_Literal	Discrete,0x714,{0x00000000, 0x0000281b}
06fc 6013       |`   |		Indirect_Literal	Discrete,0x710,{0x00000000, 0x00002809}
06fd e5ff       |    |		Load	0x2,-0x1
06fe e5fe       |    |		Load	0x2,-0x2
06ff 8021       | !  |		Call	0x0,0x21
0700 801c       |    |		Call	0x0,0x1c
0701 c402       |    |		Store	0x2,0x2
0702 c5fb       |    |		Store	0x2,-0x5
0703 e5fb       |    |		Load	0x2,-0x5
0704 7008       |p   |		Jump_Nonzero	0x70d
0705 e5fb       |    |		Load	0x2,-0x5
0706 00d9       |    |		Load_Top	At_Offset_1
0707 e5fc       |    |		Load	0x2,-0x4
0708 e5fd       |    |		Load	0x2,-0x3
0709 e5fe       |    |		Load	0x2,-0x2
070a 828c       |    |		Call	0x1,0x8c
070b c402       |    |		Store	0x2,0x2
070c c5fb       |    |		Store	0x2,-0x5
070d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
070e 0000 0000  |    |		.XXX[0x2]
0710 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002809}
0714 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281b}
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071d       |    |		.CONST	0x071d								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0002       |    |		.CONST	0x0002								; Number of locals
071b			INIT_0718:
071b 00e2       |    |		Load_Encached	Integer_Cache
071c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
071d			BODY_0718:
071d 00d8       |    |		Load_Top	At_Offset_0
071e e5fa       |    |		Load	0x2,-0x6
071f e001       |    |		Load	0x0,0x1
0720 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0721 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0722 e5fc       |    |		Load	0x2,-0x4
0723 e5fd       |    |		Load	0x2,-0x3
0724 e5fe       |    |		Load	0x2,-0x2
0725 e5ff       |    |		Load	0x2,-0x1
0726 82bf       |    |		Call	0x1,0xbf
0727 c5fb       |    |		Store	0x2,-0x5
0728 c5fa       |    |		Store	0x2,-0x6
0729 0059       | Y  |		Store_Top	Discrete,At_Offset_1
072a e5fa       |    |		Load	0x2,-0x6
072b e5fd       |    |		Load	0x2,-0x3
072c 00da       |    |		Load_Top	At_Offset_2
072d 4801       |H   |		Short_Literal	0x1
072e e5fe       |    |		Load	0x2,-0x2
072f 82bd       |    |		Call	0x1,0xbd
0730 c5fa       |    |		Store	0x2,-0x6
0731 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0732 0000 0000  |    |		.BLANK	0000[0x6]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0745       | E  |		.CONST	0x0745								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0004       |    |		.CONST	0x0004								; Number of locals
073b			INIT_0738:
073b e00d       |    |		Load	0x0,0xd
073c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
073d 02c7       |    |		Declare_Variable	Any
073e 00d8       |    |		Load_Top	At_Offset_0
073f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0740 e00d       |    |		Load	0x0,0xd
0741 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0742 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0743 00e2       |    |		Load_Encached	Integer_Cache
0744 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0745			BODY_0738:
0745 e00d       |    |		Load	0x0,0xd
0746 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0747 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0748 00db       |    |		Load_Top	At_Offset_3
0749 0120       |    |		Execute	Any,Is_Value
074a 6803       |h   |		Jump_Zero	0x74e
074b e00d       |    |		Load	0x0,0xd
074c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
074d 7801       |x   |		Jump	0x74f
074e 00db       |    |		Load_Top	At_Offset_3
074f 6040       |`@  |		Indirect_Literal	Discrete,0x790,{0x00000000, 0x00004000}
0750 e022       | "  |		Load	0x0,0x22
0751 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0752 e023       | #  |		Load	0x0,0x23
0753 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0754 e00d       |    |		Load	0x0,0xd
0755 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0756 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0757 e5ff       |    |		Load	0x2,-0x1
0758 e5fe       |    |		Load	0x2,-0x2
0759 8021       | !  |		Call	0x0,0x21
075a e00d       |    |		Load	0x0,0xd
075b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
075c 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
075d c402       |    |		Store	0x2,0x2
075e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
075f 00d9       |    |		Load_Top	At_Offset_1
0760 7015       |p   |		Jump_Nonzero	0x776
0761 00d8       |    |		Load_Top	At_Offset_0
0762 e5fa       |    |		Load	0x2,-0x6
0763 e001       |    |		Load	0x0,0x1
0764 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0765 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0766 e5fc       |    |		Load	0x2,-0x4
0767 e5fd       |    |		Load	0x2,-0x3
0768 e5fe       |    |		Load	0x2,-0x2
0769 e402       |    |		Load	0x2,0x2
076a 82bf       |    |		Call	0x1,0xbf
076b c5fb       |    |		Store	0x2,-0x5
076c c5fa       |    |		Store	0x2,-0x6
076d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
076e e5fa       |    |		Load	0x2,-0x6
076f e5fd       |    |		Load	0x2,-0x3
0770 00da       |    |		Load_Top	At_Offset_2
0771 4801       |H   |		Short_Literal	0x1
0772 e5fe       |    |		Load	0x2,-0x2
0773 82bd       |    |		Call	0x1,0xbd
0774 c5fa       |    |		Store	0x2,-0x6
0775 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0776 e002       |    |		Load	0x0,0x2
0777 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0778 4801       |H   |		Short_Literal	0x1
0779 4801       |H   |		Short_Literal	0x1
077a e00e       |    |		Load	0x0,0xe
077b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
077c 0334       | 4  |		Declare_Variable	Array,With_Constraint
077d e5ff       |    |		Load	0x2,-0x1
077e e403       |    |		Load	0x2,0x3
077f e00e       |    |		Load	0x0,0xe
0780 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0781 4801       |H   |		Short_Literal	0x1
0782 00da       |    |		Load_Top	At_Offset_2
0783 01d6       |    |		Execute	Vector,Field_Write
0784 6007       |`   |		Indirect_Literal	Discrete,0x78c,{0x00000000, 0x00002809}
0785 e002       |    |		Load	0x0,0x2
0786 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0787 c5fa       |    |		Store	0x2,-0x6
0788 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0789 0000 0000  |    |		.XXX[0x3]
078b 0000       |    |
078c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002809}
0790 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0794 0000 0000  |    |		.BLANK	0000[0x4]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07b3       |    |		.CONST	0x07b3								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0008       |    |		.CONST	0x0008								; Number of locals
079b			INIT_0798:
079b e00d       |    |		Load	0x0,0xd
079c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
079d e00d       |    |		Load	0x0,0xd
079e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
079f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
07a0 02c7       |    |		Declare_Variable	Any
07a1 00d8       |    |		Load_Top	At_Offset_0
07a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a3 4800       |H   |		Short_Literal	0x0
07a4 e001       |    |		Load	0x0,0x1
07a5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
07a6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
07a7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
07a8 00e2       |    |		Load_Encached	Integer_Cache
07a9 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
07aa e00d       |    |		Load	0x0,0xd
07ab 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07ac 02c7       |    |		Declare_Variable	Any
07ad 00d8       |    |		Load_Top	At_Offset_0
07ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07af 00e2       |    |		Load_Encached	Integer_Cache
07b0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
07b1 029f 2923  |  )#|		Declare_Subprogram	INIT_2920,For_Call
07b3			BODY_0798:
07b3 e404       |    |		Load	0x2,0x4
07b4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07b5 e403       |    |		Load	0x2,0x3
07b6 605d       |`]  |		Indirect_Literal	Discrete,0x814,{0x00000000, 0x0000281b}
07b7 67d4       |g   |		Indirect_Literal	Discrete,0x78c,{0x00000000, 0x00002809}
07b8 e5ff       |    |		Load	0x2,-0x1
07b9 e5fe       |    |		Load	0x2,-0x2
07ba 8021       | !  |		Call	0x0,0x21
07bb 801c       |    |		Call	0x0,0x1c
07bc c403       |    |		Store	0x2,0x3
07bd e404       |    |		Load	0x2,0x4
07be 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07bf e404       |    |		Load	0x2,0x4
07c0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07c1 7044       |pD  |		Jump_Nonzero	0x806
07c2 00cf       |    |		Action	Mark_Auxiliary
07c3 7836       |x6  |		Jump	0x7fa
07c4 e00d       |    |		Load	0x0,0xd
07c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07c6 e406       |    |		Load	0x2,0x6
07c7 0120       |    |		Execute	Any,Is_Value
07c8 6803       |h   |		Jump_Zero	0x7cc
07c9 e00d       |    |		Load	0x0,0xd
07ca 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07cb 7801       |x   |		Jump	0x7cd
07cc e406       |    |		Load	0x2,0x6
07cd e403       |    |		Load	0x2,0x3
07ce e00d       |    |		Load	0x0,0xd
07cf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07d0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07d1 c406       |    |		Store	0x2,0x6
07d2 c402       |    |		Store	0x2,0x2
07d3 e402       |    |		Load	0x2,0x2
07d4 7004       |p   |		Jump_Nonzero	0x7d9
07d5 e405       |    |		Load	0x2,0x5
07d6 0a01       |    |		Execute_Immediate	Plus,0x1
07d7 c405       |    |		Store	0x2,0x5
07d8 781b       |x   |		Jump	0x7f4
07d9 e002       |    |		Load	0x0,0x2
07da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07db 4801       |H   |		Short_Literal	0x1
07dc 4802       |H   |		Short_Literal	0x2
07dd e00e       |    |		Load	0x0,0xe
07de 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07df 0334       | 4  |		Declare_Variable	Array,With_Constraint
07e0 e403       |    |		Load	0x2,0x3
07e1 e00d       |    |		Load	0x0,0xd
07e2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07e3 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
07e4 e00e       |    |		Load	0x0,0xe
07e5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07e6 4801       |H   |		Short_Literal	0x1
07e7 00da       |    |		Load_Top	At_Offset_2
07e8 01d6       |    |		Execute	Vector,Field_Write
07e9 e402       |    |		Load	0x2,0x2
07ea e00e       |    |		Load	0x0,0xe
07eb 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07ec 4802       |H   |		Short_Literal	0x2
07ed 00da       |    |		Load_Top	At_Offset_2
07ee 01d6       |    |		Execute	Vector,Field_Write
07ef 6020       |`   |		Indirect_Literal	Discrete,0x810,{0x00000000, 0x00002808}
07f0 e002       |    |		Load	0x0,0x2
07f1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07f2 e404       |    |		Load	0x2,0x4
07f3 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07f4 e403       |    |		Load	0x2,0x3
07f5 e00d       |    |		Load	0x0,0xd
07f6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07f7 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
07f8 c403       |    |		Store	0x2,0x3
07f9 00c9       |    |		Action	Pop_Auxiliary_Loop
07fa e403       |    |		Load	0x2,0x3
07fb e00d       |    |		Load	0x0,0xd
07fc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07fd 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
07fe 6fc5       |o   |		Jump_Zero	0x7c4
07ff 00ce       |    |		Action	Pop_Auxiliary
0800 e403       |    |		Load	0x2,0x3
0801 e00d       |    |		Load	0x0,0xd
0802 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0803 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0804 c403       |    |		Store	0x2,0x3
0805 8408       |    |		Call	0x2,0x8
0806 e403       |    |		Load	0x2,0x3
0807 e00d       |    |		Load	0x0,0xd
0808 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0809 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
080a c403       |    |		Store	0x2,0x3
080b e404       |    |		Load	0x2,0x4
080c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
080d 0000 0000  |    |		.XXX[0x3]
080f 0000       |    |
0810 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002808}
0814 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281b}
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 00da       |    |		Load_Top	At_Offset_2
081c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
081d a5fd       |    |		Store_Unchecked	0x2,-0x3
081e 00cf       |    |		Action	Mark_Auxiliary
081f 00db       |    |		Load_Top	At_Offset_3
0820 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0821 01d9       |    |		Execute	Vector,Reverse_Bounds
0822 0263       | c  |		Execute	Discrete,Above_Bound
0823 700a       |p   |		Jump_Nonzero	0x82e
0824 e5fd       |    |		Load	0x2,-0x3
0825 e5fe       |    |		Load	0x2,-0x2
0826 00da       |    |		Load_Top	At_Offset_2
0827 e5ff       |    |		Load	0x2,-0x1
0828 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0829 01d7       |    |		Execute	Vector,Field_Read
082a 8222       | "  |		Call	0x1,0x22
082b c5fd       |    |		Store	0x2,-0x3
082c 00c8       |    |		Action	Pop_Auxiliary_Range
082d 3ff6       |?   |		Loop_Increasing	0x824
082e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
082f 0000       |    |		.XXX[0x1]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 083d       | =  |		.CONST	0x083d								; Address of begin
0831 0004       |    |		.CONST	0x0004								; Address of exception handler
0832 0005       |    |		.CONST	0x0005								; Number of locals
0833			INIT_0830:
0833 e01b       |    |		Load	0x0,0x1b
0834 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0835 e01b       |    |		Load	0x0,0x1b
0836 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0837 e5ff       |    |		Load	0x2,-0x1
0838 0217       |    |		Execute	Heap_Access,All_Reference
0839 3c1b       |<   |		Execute	Record,Field_Read,Field_Number 0x1b
083a 0007       |    |		Action	Break_Optional
083b e01b       |    |		Load	0x0,0x1b
083c 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
083d			BODY_0830:
083d e024       | $  |		Load	0x0,0x24
083e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
083f e5ff       |    |		Load	0x2,-0x1
0840 0217       |    |		Execute	Heap_Access,All_Reference
0841 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0842 e020       |    |		Load	0x0,0x20
0843 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0844 4801       |H   |		Short_Literal	0x1
0845 6076       |`v  |		Indirect_Literal	Discrete,0x8bc,{0x00000000, 0x00002822}
0846 e002       |    |		Load	0x0,0x2
0847 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0848 e5ff       |    |		Load	0x2,-0x1
0849 0217       |    |		Execute	Heap_Access,All_Reference
084a 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
084b a402       |    |		Store_Unchecked	0x2,0x2
084c 00cf       |    |		Action	Mark_Auxiliary
084d 780f       |x   |		Jump	0x85d
084e e402       |    |		Load	0x2,0x2
084f 0217       |    |		Execute	Heap_Access,All_Reference
0850 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0851 a403       |    |		Store_Unchecked	0x2,0x3
0852 e5fd       |    |		Load	0x2,-0x3
0853 e5fe       |    |		Load	0x2,-0x2
0854 e402       |    |		Load	0x2,0x2
0855 e001       |    |		Load	0x0,0x1
0856 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0857 0216       |    |		Execute	Heap_Access,Convert
0858 8222       | "  |		Call	0x1,0x22
0859 c5fd       |    |		Store	0x2,-0x3
085a 00db       |    |		Load_Top	At_Offset_3
085b a402       |    |		Store_Unchecked	0x2,0x2
085c 00c9       |    |		Action	Pop_Auxiliary_Loop
085d e402       |    |		Load	0x2,0x2
085e 77ef       |w   |		Jump_Nonzero	0x84e
085f 00ce       |    |		Action	Pop_Auxiliary
0860 e5ff       |    |		Load	0x2,-0x1
0861 0217       |    |		Execute	Heap_Access,All_Reference
0862 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
0863 a402       |    |		Store_Unchecked	0x2,0x2
0864 00cf       |    |		Action	Mark_Auxiliary
0865 780f       |x   |		Jump	0x875
0866 e402       |    |		Load	0x2,0x2
0867 0217       |    |		Execute	Heap_Access,All_Reference
0868 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0869 a403       |    |		Store_Unchecked	0x2,0x3
086a e5fd       |    |		Load	0x2,-0x3
086b e5fe       |    |		Load	0x2,-0x2
086c e402       |    |		Load	0x2,0x2
086d e001       |    |		Load	0x0,0x1
086e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
086f 0216       |    |		Execute	Heap_Access,Convert
0870 8222       | "  |		Call	0x1,0x22
0871 c5fd       |    |		Store	0x2,-0x3
0872 00db       |    |		Load_Top	At_Offset_3
0873 a402       |    |		Store_Unchecked	0x2,0x2
0874 00c9       |    |		Action	Pop_Auxiliary_Loop
0875 e402       |    |		Load	0x2,0x2
0876 77ef       |w   |		Jump_Nonzero	0x866
0877 00c9       |    |		Action	Pop_Auxiliary_Loop
0878 780b       |x   |		Jump	0x884
0879 00da       |    |		Load_Top	At_Offset_2
087a 0217       |    |		Execute	Heap_Access,All_Reference
087b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
087c 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
087d 00da       |    |		Load_Top	At_Offset_2
087e e01b       |    |		Load	0x0,0x1b
087f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0880 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0881 00d9       |    |		Load_Top	At_Offset_1
0882 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0883 00c9       |    |		Action	Pop_Auxiliary_Loop
0884 00da       |    |		Load_Top	At_Offset_2
0885 77f3       |w   |		Jump_Nonzero	0x879
0886 00ce       |    |		Action	Pop_Auxiliary
0887 e5fd       |    |		Load	0x2,-0x3
0888 e001       |    |		Load	0x0,0x1
0889 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
088a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
088b e5ff       |    |		Load	0x2,-0x1
088c e001       |    |		Load	0x0,0x1
088d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
088e 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
088f e001       |    |		Load	0x0,0x1
0890 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0891 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0892 c5fd       |    |		Store	0x2,-0x3
0893 e5ff       |    |		Load	0x2,-0x1
0894 0217       |    |		Execute	Heap_Access,All_Reference
0895 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
0896 6807       |h   |		Jump_Zero	0x89e
0897 e01b       |    |		Load	0x0,0x1b
0898 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0899 e5ff       |    |		Load	0x2,-0x1
089a 0217       |    |		Execute	Heap_Access,All_Reference
089b 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
089c 0217       |    |		Execute	Heap_Access,All_Reference
089d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
089e e5ff       |    |		Load	0x2,-0x1
089f 0217       |    |		Execute	Heap_Access,All_Reference
08a0 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
08a1 6807       |h   |		Jump_Zero	0x8a9
08a2 e01b       |    |		Load	0x0,0x1b
08a3 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
08a4 e5ff       |    |		Load	0x2,-0x1
08a5 0217       |    |		Execute	Heap_Access,All_Reference
08a6 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
08a7 0217       |    |		Execute	Heap_Access,All_Reference
08a8 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
08a9 e5fe       |    |		Load	0x2,-0x2
08aa e5ff       |    |		Load	0x2,-0x1
08ab 8263       | c  |		Call	0x1,0x63
08ac e5ff       |    |		Load	0x2,-0x1
08ad e01b       |    |		Load	0x0,0x1b
08ae 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
08af 0216       |    |		Execute	Heap_Access,Convert
08b0 a402       |    |		Store_Unchecked	0x2,0x2
08b1 e5fe       |    |		Load	0x2,-0x2
08b2 e402       |    |		Load	0x2,0x2
08b3 0217       |    |		Execute	Heap_Access,All_Reference
08b4 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
08b5 e025       | %  |		Load	0x0,0x25
08b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08b7 00db       |    |		Load_Top	At_Offset_3
08b8 e01b       |    |		Load	0x0,0x1b
08b9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
08ba c402       |    |		Store	0x2,0x2
08bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002822}
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3       |    |		.CONST	0x08c3								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0001       |    |		.CONST	0x0001								; Number of locals
08c3			BODY_08c0:
08c3			INIT_08c0:
08c3 e5fd       |    |		Load	0x2,-0x3
08c4 e5fe       |    |		Load	0x2,-0x2
08c5 00d8       |    |		Load_Top	At_Offset_0
08c6 e5ff       |    |		Load	0x2,-0x1
08c7 e5fe       |    |		Load	0x2,-0x2
08c8 8021       | !  |		Call	0x0,0x21
08c9 8276       | v  |		Call	0x1,0x76
08ca 8221       | !  |		Call	0x1,0x21
08cb c5fd       |    |		Store	0x2,-0x3
08cc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08cd 0000 0000  |    |		.XXX[0x3]
08cf 0000       |    |
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3       |    |		.CONST	0x08d3								; Address of begin
08d1 0004       |    |		.CONST	0x0004								; Address of exception handler
08d2 0001       |    |		.CONST	0x0001								; Number of locals
08d3			BODY_08d0:
08d3			INIT_08d0:
08d3 00da       |    |		Load_Top	At_Offset_2
08d4 0217       |    |		Execute	Heap_Access,All_Reference
08d5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
08d6 e001       |    |		Load	0x0,0x1
08d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08d8 00d9       |    |		Load_Top	At_Offset_1
08d9 00d0       |    |		Action	Swap_Control
08da 0260       | `  |		Execute	Discrete,In_Type
08db 7001       |p   |		Jump_Nonzero	0x8dd
08dc 0801       |    |		Execute_Immediate	Raise,0x1
08dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08de 0000 0000  |    |		.XXX[0x2]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3       |    |		.CONST	0x08e3								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0001       |    |		.CONST	0x0001								; Number of locals
08e3			BODY_08e0:
08e3			INIT_08e0:
08e3 00da       |    |		Load_Top	At_Offset_2
08e4 0217       |    |		Execute	Heap_Access,All_Reference
08e5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08e7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
08ec 0217       |    |		Execute	Heap_Access,All_Reference
08ed 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
08ee 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08ef 0000       |    |		.XXX[0x1]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3       |    |		.CONST	0x08f3								; Address of begin
08f1 0004       |    |		.CONST	0x0004								; Address of exception handler
08f2 0001       |    |		.CONST	0x0001								; Number of locals
08f3			BODY_08f0:
08f3			INIT_08f0:
08f3 00da       |    |		Load_Top	At_Offset_2
08f4 0217       |    |		Execute	Heap_Access,All_Reference
08f5 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
08f6 0217       |    |		Execute	Heap_Access,All_Reference
08f7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
08f8 e020       |    |		Load	0x0,0x20
08f9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
08fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08fb 0000 0000  |    |		.BLANK	0000[0x5]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0906       |    |		.CONST	0x0906								; Address of begin
0901 0004       |    |		.CONST	0x0004								; Address of exception handler
0902 0002       |    |		.CONST	0x0002								; Number of locals
0903			INIT_0900:
0903 e002       |    |		Load	0x0,0x2
0904 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0905 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0906			BODY_0900:
0906 00d8       |    |		Load_Top	At_Offset_0
0907 4800       |H   |		Short_Literal	0x0
0908 e5ff       |    |		Load	0x2,-0x1
0909 e01b       |    |		Load	0x0,0x1b
090a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
090b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
090c 00d8       |    |		Load_Top	At_Offset_0
090d 7004       |p   |		Jump_Nonzero	0x912
090e 00db       |    |		Load_Top	At_Offset_3
090f 0217       |    |		Execute	Heap_Access,All_Reference
0910 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0911 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0912 e00e       |    |		Load	0x0,0xe
0913 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0914 00d9       |    |		Load_Top	At_Offset_1
0915 e002       |    |		Load	0x0,0x2
0916 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0917 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 0920       |    |		.CONST	0x0920								; Address of begin
0919 0004       |    |		.CONST	0x0004								; Address of exception handler
091a 0003       |    |		.CONST	0x0003								; Number of locals
091b			INIT_0918:
091b e002       |    |		Load	0x0,0x2
091c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
091d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
091e e01b       |    |		Load	0x0,0x1b
091f 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0920			BODY_0918:
0920 00d9       |    |		Load_Top	At_Offset_1
0921 4802       |H   |		Short_Literal	0x2
0922 e5ff       |    |		Load	0x2,-0x1
0923 e01b       |    |		Load	0x0,0x1b
0924 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0925 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0926 00d9       |    |		Load_Top	At_Offset_1
0927 7024       |p$  |		Jump_Nonzero	0x94c
0928 e5fe       |    |		Load	0x2,-0x2
0929 e5ff       |    |		Load	0x2,-0x1
092a 0217       |    |		Execute	Heap_Access,All_Reference
092b 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
092c e5fe       |    |		Load	0x2,-0x2
092d 701d       |p   |		Jump_Nonzero	0x94b
092e e5ff       |    |		Load	0x2,-0x1
092f 0217       |    |		Execute	Heap_Access,All_Reference
0930 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0931 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0932 00cf       |    |		Action	Mark_Auxiliary
0933 7814       |x   |		Jump	0x948
0934 00d9       |    |		Load_Top	At_Offset_1
0935 0217       |    |		Execute	Heap_Access,All_Reference
0936 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0937 e5ff       |    |		Load	0x2,-0x1
0938 0217       |    |		Execute	Heap_Access,All_Reference
0939 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
093a 0217       |    |		Execute	Heap_Access,All_Reference
093b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
093c 012e       | .  |		Execute	Any,Not_Equal
093d 6805       |h   |		Jump_Zero	0x943
093e e00d       |    |		Load	0x0,0xd
093f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0940 00da       |    |		Load_Top	At_Offset_2
0941 0217       |    |		Execute	Heap_Access,All_Reference
0942 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0943 00d9       |    |		Load_Top	At_Offset_1
0944 0217       |    |		Execute	Heap_Access,All_Reference
0945 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0946 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0947 00c9       |    |		Action	Pop_Auxiliary_Loop
0948 00d9       |    |		Load_Top	At_Offset_1
0949 77ea       |w   |		Jump_Nonzero	0x934
094a 00ce       |    |		Action	Pop_Auxiliary
094b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
094c e002       |    |		Load	0x0,0x2
094d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
094e 4801       |H   |		Short_Literal	0x1
094f 4801       |H   |		Short_Literal	0x1
0950 e00e       |    |		Load	0x0,0xe
0951 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0952 0334       | 4  |		Declare_Variable	Array,With_Constraint
0953 e5ff       |    |		Load	0x2,-0x1
0954 825a       | Z  |		Call	0x1,0x5a
0955 4801       |H   |		Short_Literal	0x1
0956 00da       |    |		Load_Top	At_Offset_2
0957 01d6       |    |		Execute	Vector,Field_Write
0958 00db       |    |		Load_Top	At_Offset_3
0959 e002       |    |		Load	0x0,0x2
095a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
095b c5fd       |    |		Store	0x2,-0x3
095c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
095d 0000 0000  |    |		.XXX[0x3]
095f 0000       |    |
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0966       | f  |		.CONST	0x0966								; Address of begin
0961 0004       |    |		.CONST	0x0004								; Address of exception handler
0962 0002       |    |		.CONST	0x0002								; Number of locals
0963			INIT_0960:
0963 e002       |    |		Load	0x0,0x2
0964 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0965 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0966			BODY_0960:
0966 00d8       |    |		Load_Top	At_Offset_0
0967 4800       |H   |		Short_Literal	0x0
0968 e5ff       |    |		Load	0x2,-0x1
0969 e01b       |    |		Load	0x0,0x1b
096a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
096b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
096c 00d8       |    |		Load_Top	At_Offset_0
096d 7004       |p   |		Jump_Nonzero	0x972
096e 00db       |    |		Load_Top	At_Offset_3
096f 0217       |    |		Execute	Heap_Access,All_Reference
0970 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0971 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0972 e00e       |    |		Load	0x0,0xe
0973 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0974 00d9       |    |		Load_Top	At_Offset_1
0975 e002       |    |		Load	0x0,0x2
0976 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0977 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097e       | ~  |		.CONST	0x097e								; Address of begin
0979 0004       |    |		.CONST	0x0004								; Address of exception handler
097a 0002       |    |		.CONST	0x0002								; Number of locals
097b			INIT_0978:
097b e002       |    |		Load	0x0,0x2
097c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
097d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
097e			BODY_0978:
097e 00d8       |    |		Load_Top	At_Offset_0
097f 4802       |H   |		Short_Literal	0x2
0980 e5ff       |    |		Load	0x2,-0x1
0981 e01b       |    |		Load	0x0,0x1b
0982 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0983 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0984 00d8       |    |		Load_Top	At_Offset_0
0985 7005       |p   |		Jump_Nonzero	0x98b
0986 e5fe       |    |		Load	0x2,-0x2
0987 e5ff       |    |		Load	0x2,-0x1
0988 0217       |    |		Execute	Heap_Access,All_Reference
0989 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
098a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
098b e002       |    |		Load	0x0,0x2
098c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
098d 4801       |H   |		Short_Literal	0x1
098e 4801       |H   |		Short_Literal	0x1
098f e00e       |    |		Load	0x0,0xe
0990 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0991 0334       | 4  |		Declare_Variable	Array,With_Constraint
0992 e5ff       |    |		Load	0x2,-0x1
0993 825a       | Z  |		Call	0x1,0x5a
0994 4801       |H   |		Short_Literal	0x1
0995 00da       |    |		Load_Top	At_Offset_2
0996 01d6       |    |		Execute	Vector,Field_Write
0997 00da       |    |		Load_Top	At_Offset_2
0998 e002       |    |		Load	0x0,0x2
0999 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
099a c5fd       |    |		Store	0x2,-0x3
099b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
099c 0000 0000  |    |		.BLANK	0000[0x4]
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09ad       |    |		.CONST	0x09ad								; Address of begin
09a1 0004       |    |		.CONST	0x0004								; Address of exception handler
09a2 0004       |    |		.CONST	0x0004								; 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 4801       |H   |		Short_Literal	0x1
09a7 4a00       |J   |		Short_Literal	0x200
09a8 e229       | )  |		Load	0x1,0x29
09a9 035b       | [  |		Declare_Type	Array,Constrained
09aa 0337       | 7  |		Declare_Variable	Array
09ab e01b       |    |		Load	0x0,0x1b
09ac 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
09ad			BODY_09a0:
09ad 00da       |    |		Load_Top	At_Offset_2
09ae 4800       |H   |		Short_Literal	0x0
09af e5ff       |    |		Load	0x2,-0x1
09b0 e01b       |    |		Load	0x0,0x1b
09b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
09b2 005b       | [  |		Store_Top	Discrete,At_Offset_3
09b3 00da       |    |		Load_Top	At_Offset_2
09b4 7037       |p7  |		Jump_Nonzero	0x9ec
09b5 e5ff       |    |		Load	0x2,-0x1
09b6 0217       |    |		Execute	Heap_Access,All_Reference
09b7 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
09b8 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
09b9 00cf       |    |		Action	Mark_Auxiliary
09ba 00da       |    |		Load_Top	At_Offset_2
09bb 01d9       |    |		Execute	Vector,Reverse_Bounds
09bc 0007       |    |		Action	Break_Optional
09bd 00db       |    |		Load_Top	At_Offset_3
09be 701f       |p   |		Jump_Nonzero	0x9de
09bf 00d8       |    |		Load_Top	At_Offset_0
09c0 0aff       |    |		Execute_Immediate	Plus,-0x1
09c1 e22a       | *  |		Load	0x1,0x2a
09c2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
09c3 4800       |H   |		Short_Literal	0x0
09c4 00d9       |    |		Load_Top	At_Offset_1
09c5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09c6 4801       |H   |		Short_Literal	0x1
09c7 00da       |    |		Load_Top	At_Offset_2
09c8 0aff       |    |		Execute_Immediate	Plus,-0x1
09c9 e403       |    |		Load	0x2,0x3
09ca 01cf       |    |		Execute	Vector,Slice_Read
09cb 00d9       |    |		Load_Top	At_Offset_1
09cc 00d8       |    |		Load_Top	At_Offset_0
09cd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09ce 00da       |    |		Load_Top	At_Offset_2
09cf 01da       |    |		Execute	Vector,Bounds
09d0 00da       |    |		Load_Top	At_Offset_2
09d1 01da       |    |		Execute	Vector,Bounds
09d2 00da       |    |		Load_Top	At_Offset_2
09d3 027f       |    |		Execute	Discrete,Equal
09d4 7001       |p   |		Jump_Nonzero	0x9d6
09d5 08e0       |    |		Execute_Immediate	Raise,0xe0
09d6 00cd       |    |		Action	Spare6_Action
09d7 027f       |    |		Execute	Discrete,Equal
09d8 7001       |p   |		Jump_Nonzero	0x9da
09d9 08e0       |    |		Execute_Immediate	Raise,0xe0
09da 00d2       |    |		Pop_Control	Pop_Count_2
09db 00d9       |    |		Load_Top	At_Offset_1
09dc 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
09dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09de 00db       |    |		Load_Top	At_Offset_3
09df e001       |    |		Load	0x0,0x1
09e0 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
09e1 0216       |    |		Execute	Heap_Access,Convert
09e2 00d9       |    |		Load_Top	At_Offset_1
09e3 e403       |    |		Load	0x2,0x3
09e4 01d6       |    |		Execute	Vector,Field_Write
09e5 00db       |    |		Load_Top	At_Offset_3
09e6 0217       |    |		Execute	Heap_Access,All_Reference
09e7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
09e8 a404       |    |		Store_Unchecked	0x2,0x4
09e9 00c8       |    |		Action	Pop_Auxiliary_Range
09ea 3fd2       |?   |		Loop_Increasing	0x9bd
09eb 00ce       |    |		Action	Pop_Auxiliary
09ec 4800       |H   |		Short_Literal	0x0
09ed e22a       | *  |		Load	0x1,0x2a
09ee 1c08       |    |		Execute_Immediate	Run_Utility,0x8
09ef 4801       |H   |		Short_Literal	0x1
09f0 4801       |H   |		Short_Literal	0x1
09f1 e00e       |    |		Load	0x0,0xe
09f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09f3 0334       | 4  |		Declare_Variable	Array,With_Constraint
09f4 e5ff       |    |		Load	0x2,-0x1
09f5 825a       | Z  |		Call	0x1,0x5a
09f6 4801       |H   |		Short_Literal	0x1
09f7 00da       |    |		Load_Top	At_Offset_2
09f8 01d6       |    |		Execute	Vector,Field_Write
09f9 e402       |    |		Load	0x2,0x2
09fa e002       |    |		Load	0x0,0x2
09fb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
09fc 00d9       |    |		Load_Top	At_Offset_1
09fd 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09fe 4801       |H   |		Short_Literal	0x1
09ff 4800       |H   |		Short_Literal	0x0
0a00 e229       | )  |		Load	0x1,0x29
0a01 0334       | 4  |		Declare_Variable	Array,With_Constraint
0a02 00d9       |    |		Load_Top	At_Offset_1
0a03 00d8       |    |		Load_Top	At_Offset_0
0a04 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a05 00da       |    |		Load_Top	At_Offset_2
0a06 01da       |    |		Execute	Vector,Bounds
0a07 00da       |    |		Load_Top	At_Offset_2
0a08 01da       |    |		Execute	Vector,Bounds
0a09 00da       |    |		Load_Top	At_Offset_2
0a0a 027f       |    |		Execute	Discrete,Equal
0a0b 7001       |p   |		Jump_Nonzero	0xa0d
0a0c 08e0       |    |		Execute_Immediate	Raise,0xe0
0a0d 00cd       |    |		Action	Spare6_Action
0a0e 027f       |    |		Execute	Discrete,Equal
0a0f 7001       |p   |		Jump_Nonzero	0xa11
0a10 08e0       |    |		Execute_Immediate	Raise,0xe0
0a11 00d2       |    |		Pop_Control	Pop_Count_2
0a12 00d9       |    |		Load_Top	At_Offset_1
0a13 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0a14 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a15 0000 0000  |    |		.XXX[0x3]
0a17 0000       |    |
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a1b       |    |		.CONST	0x0a1b								; Address of begin
0a19 0004       |    |		.CONST	0x0004								; Address of exception handler
0a1a 0001       |    |		.CONST	0x0001								; Number of locals
0a1b			BODY_0a18:
0a1b			INIT_0a18:
0a1b e5fd       |    |		Load	0x2,-0x3
0a1c e5fe       |    |		Load	0x2,-0x2
0a1d e5ff       |    |		Load	0x2,-0x1
0a1e 0217       |    |		Execute	Heap_Access,All_Reference
0a1f 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0a20 0217       |    |		Execute	Heap_Access,All_Reference
0a21 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a22 8231       | 1  |		Call	0x1,0x31
0a23 c5fd       |    |		Store	0x2,-0x3
0a24 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a25 0000 0000  |    |		.XXX[0x3]
0a27 0000       |    |
0a28 ; --------------------------------------------------------------------------------------
0a28 ; SUBPROGRAM
0a28 ; --------------------------------------------------------------------------------------
0a28 0a3d       | =  |		.CONST	0x0a3d								; Address of begin
0a29 0ac7       |    |		.CONST	0x0ac7								; Address of exception handler
0a2a 0006       |    |		.CONST	0x0006								; Number of locals
0a2b			INIT_0a28:
0a2b 00da       |    |		Load_Top	At_Offset_2
0a2c 8026       | &  |		Call	0x0,0x26
0a2d e027       | '  |		Load	0x0,0x27
0a2e 03f1       |    |		Declare_Variable	Discrete,With_Value
0a2f e00d       |    |		Load	0x0,0xd
0a30 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a31 02c7       |    |		Declare_Variable	Any
0a32 00d8       |    |		Load_Top	At_Offset_0
0a33 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a34 e00d       |    |		Load	0x0,0xd
0a35 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a36 02c7       |    |		Declare_Variable	Any
0a37 00d8       |    |		Load_Top	At_Offset_0
0a38 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a39 e01b       |    |		Load	0x0,0x1b
0a3a 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0a3b e01b       |    |		Load	0x0,0x1b
0a3c 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0a3d			BODY_0a28:
0a3d e402       |    |		Load	0x2,0x2
0a3e 4604       |F   |		Jump_Case	0x5
0a3f 781c       |x   |		Jump	0xa5c								; case 0x0
0a40 780f       |x   |		Jump	0xa50								; case 0x1
0a41 780b       |x   |		Jump	0xa4d								; case 0x2
0a42 7814       |x   |		Jump	0xa57								; case 0x3
0a43 7800       |x   |		Jump	0xa44								; case 0x4
0a44 e5fd       |    |		Load	0x2,-0x3
0a45 e5fe       |    |		Load	0x2,-0x2
0a46 6095       |`   |		Indirect_Literal	Discrete,0xadc,{0x00000000, 0x0000280c}
0a47 4801       |H   |		Short_Literal	0x1
0a48 e5ff       |    |		Load	0x2,-0x1
0a49 8028       | (  |		Call	0x0,0x28
0a4a 82c2       |    |		Call	0x1,0xc2
0a4b c5fd       |    |		Store	0x2,-0x3
0a4c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a4d e5ff       |    |		Load	0x2,-0x1
0a4e c403       |    |		Store	0x2,0x3
0a4f 7814       |x   |		Jump	0xa64
0a50 e5ff       |    |		Load	0x2,-0x1
0a51 c404       |    |		Store	0x2,0x4
0a52 6085       |`   |		Indirect_Literal	Discrete,0xad8,{0x00000000, 0x0000280b}
0a53 00db       |    |		Load_Top	At_Offset_3
0a54 8029       | )  |		Call	0x0,0x29
0a55 c403       |    |		Store	0x2,0x3
0a56 780d       |x   |		Jump	0xa64
0a57 e5ff       |    |		Load	0x2,-0x1
0a58 c403       |    |		Store	0x2,0x3
0a59 e5ff       |    |		Load	0x2,-0x1
0a5a c404       |    |		Store	0x2,0x4
0a5b 7808       |x   |		Jump	0xa64
0a5c e5fd       |    |		Load	0x2,-0x3
0a5d e5fe       |    |		Load	0x2,-0x2
0a5e 6075       |`u  |		Indirect_Literal	Discrete,0xad4,{0x00000000, 0x00002815}
0a5f e5ff       |    |		Load	0x2,-0x1
0a60 8029       | )  |		Call	0x0,0x29
0a61 8231       | 1  |		Call	0x1,0x31
0a62 c5fd       |    |		Store	0x2,-0x3
0a63 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a64 e5fd       |    |		Load	0x2,-0x3
0a65 e01b       |    |		Load	0x0,0x1b
0a66 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0a67 e5fe       |    |		Load	0x2,-0x2
0a68 e403       |    |		Load	0x2,0x3
0a69 82c1       |    |		Call	0x1,0xc1
0a6a 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0a6b c5fd       |    |		Store	0x2,-0x3
0a6c e5fd       |    |		Load	0x2,-0x3
0a6d 7058       |pX  |		Jump_Nonzero	0xac6
0a6e 00d9       |    |		Load_Top	At_Offset_1
0a6f 7005       |p   |		Jump_Nonzero	0xa75
0a70 e5fe       |    |		Load	0x2,-0x2
0a71 00db       |    |		Load_Top	At_Offset_3
0a72 e403       |    |		Load	0x2,0x3
0a73 82bb       |    |		Call	0x1,0xbb
0a74 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a75 e5fe       |    |		Load	0x2,-0x2
0a76 0217       |    |		Execute	Heap_Access,All_Reference
0a77 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0a78 684d       |hM  |		Jump_Zero	0xac6
0a79 00da       |    |		Load_Top	At_Offset_2
0a7a e00d       |    |		Load	0x0,0xd
0a7b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a7c 6817       |h   |		Jump_Zero	0xa94
0a7d e002       |    |		Load	0x0,0x2
0a7e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a7f 4801       |H   |		Short_Literal	0x1
0a80 4802       |H   |		Short_Literal	0x2
0a81 e00e       |    |		Load	0x0,0xe
0a82 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a83 0334       | 4  |		Declare_Variable	Array,With_Constraint
0a84 e403       |    |		Load	0x2,0x3
0a85 e00e       |    |		Load	0x0,0xe
0a86 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a87 4801       |H   |		Short_Literal	0x1
0a88 00da       |    |		Load_Top	At_Offset_2
0a89 01d6       |    |		Execute	Vector,Field_Write
0a8a e5fe       |    |		Load	0x2,-0x2
0a8b 825a       | Z  |		Call	0x1,0x5a
0a8c 4802       |H   |		Short_Literal	0x2
0a8d 00da       |    |		Load_Top	At_Offset_2
0a8e 01d6       |    |		Execute	Vector,Field_Write
0a8f 6040       |`@  |		Indirect_Literal	Discrete,0xad0,{0x00000000, 0x00002816}
0a90 e002       |    |		Load	0x0,0x2
0a91 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0a92 c5fd       |    |		Store	0x2,-0x3
0a93 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a94 00da       |    |		Load_Top	At_Offset_2
0a95 00da       |    |		Load_Top	At_Offset_2
0a96 0217       |    |		Execute	Heap_Access,All_Reference
0a97 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a98 012e       | .  |		Execute	Any,Not_Equal
0a99 682c       |h,  |		Jump_Zero	0xac6
0a9a 00da       |    |		Load_Top	At_Offset_2
0a9b 00da       |    |		Load_Top	At_Offset_2
0a9c 0217       |    |		Execute	Heap_Access,All_Reference
0a9d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a9e 00db       |    |		Load_Top	At_Offset_3
0a9f 00db       |    |		Load_Top	At_Offset_3
0aa0 012e       | .  |		Execute	Any,Not_Equal
0aa1 680b       |h   |		Jump_Zero	0xaad
0aa2 e5fe       |    |		Load	0x2,-0x2
0aa3 00db       |    |		Load_Top	At_Offset_3
0aa4 e00d       |    |		Load	0x0,0xd
0aa5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0aa6 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0aa7 e020       |    |		Load	0x0,0x20
0aa8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0aa9 00da       |    |		Load_Top	At_Offset_2
0aaa 0217       |    |		Execute	Heap_Access,All_Reference
0aab 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0aac 7806       |x   |		Jump	0xab3
0aad 00d9       |    |		Load_Top	At_Offset_1
0aae 0217       |    |		Execute	Heap_Access,All_Reference
0aaf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ab0 00da       |    |		Load_Top	At_Offset_2
0ab1 0217       |    |		Execute	Heap_Access,All_Reference
0ab2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0ab3 00d9       |    |		Load_Top	At_Offset_1
0ab4 0217       |    |		Execute	Heap_Access,All_Reference
0ab5 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0ab6 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0ab7 00cf       |    |		Action	Mark_Auxiliary
0ab8 780a       |x   |		Jump	0xac3
0ab9 e003       |    |		Load	0x0,0x3
0aba 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0abb 00da       |    |		Load_Top	At_Offset_2
0abc 0217       |    |		Execute	Heap_Access,All_Reference
0abd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0abe 00d9       |    |		Load_Top	At_Offset_1
0abf 0217       |    |		Execute	Heap_Access,All_Reference
0ac0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ac1 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0ac2 00c9       |    |		Action	Pop_Auxiliary_Loop
0ac3 00d9       |    |		Load_Top	At_Offset_1
0ac4 77f4       |w   |		Jump_Nonzero	0xab9
0ac5 00ce       |    |		Action	Pop_Auxiliary
0ac6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ac7			TRAP_0a28:
0ac7 e002       |    |		Load	0x0,0x2
0ac8 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0ac9 010f       |    |		Execute	Exception,Equal
0aca 6804       |h   |		Jump_Zero	0xacf
0acb e002       |    |		Load	0x0,0x2
0acc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0acd a5fd       |    |		Store_Unchecked	0x2,-0x3
0ace 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0acf 0100       |    |		Execute	Exception,Raise
0ad0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002816}
0ad4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002815}
0ad8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280b}
0adc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280c}
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0af0       |    |		.CONST	0x0af0								; Address of begin
0ae1 0b3f       | ?  |		.CONST	0x0b3f								; Address of exception handler
0ae2 0004       |    |		.CONST	0x0004								; Number of locals
0ae3			INIT_0ae0:
0ae3 e00d       |    |		Load	0x0,0xd
0ae4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ae5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0ae6 02c7       |    |		Declare_Variable	Any
0ae7 00d8       |    |		Load_Top	At_Offset_0
0ae8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ae9 e00d       |    |		Load	0x0,0xd
0aea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0aeb 02c7       |    |		Declare_Variable	Any
0aec 00d8       |    |		Load_Top	At_Offset_0
0aed 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0aee e00d       |    |		Load	0x0,0xd
0aef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0af0			BODY_0ae0:
0af0 e5fd       |    |		Load	0x2,-0x3
0af1 00db       |    |		Load_Top	At_Offset_3
0af2 605d       |`]  |		Indirect_Literal	Discrete,0xb50,{0x00000000, 0x00002819}
0af3 6058       |`X  |		Indirect_Literal	Discrete,0xb4c,{0x00000000, 0x00002807}
0af4 e5ff       |    |		Load	0x2,-0x1
0af5 801c       |    |		Call	0x0,0x1c
0af6 c402       |    |		Store	0x2,0x2
0af7 c5fd       |    |		Store	0x2,-0x3
0af8 e5fd       |    |		Load	0x2,-0x3
0af9 703f       |p?  |		Jump_Nonzero	0xb39
0afa 00cf       |    |		Action	Mark_Auxiliary
0afb 7837       |x7  |		Jump	0xb33
0afc e00d       |    |		Load	0x0,0xd
0afd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0afe 00db       |    |		Load_Top	At_Offset_3
0aff 0120       |    |		Execute	Any,Is_Value
0b00 6803       |h   |		Jump_Zero	0xb04
0b01 e00d       |    |		Load	0x0,0xd
0b02 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b03 7801       |x   |		Jump	0xb05
0b04 00db       |    |		Load_Top	At_Offset_3
0b05 e402       |    |		Load	0x2,0x2
0b06 e00d       |    |		Load	0x0,0xd
0b07 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b08 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0b09 c403       |    |		Store	0x2,0x3
0b0a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0b0b 00d9       |    |		Load_Top	At_Offset_1
0b0c 7006       |p   |		Jump_Nonzero	0xb13
0b0d e5fd       |    |		Load	0x2,-0x3
0b0e e5fe       |    |		Load	0x2,-0x2
0b0f e403       |    |		Load	0x2,0x3
0b10 8231       | 1  |		Call	0x1,0x31
0b11 c5fd       |    |		Store	0x2,-0x3
0b12 781a       |x   |		Jump	0xb2d
0b13 e002       |    |		Load	0x0,0x2
0b14 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b15 4801       |H   |		Short_Literal	0x1
0b16 4802       |H   |		Short_Literal	0x2
0b17 e00e       |    |		Load	0x0,0xe
0b18 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b19 0334       | 4  |		Declare_Variable	Array,With_Constraint
0b1a e402       |    |		Load	0x2,0x2
0b1b e00d       |    |		Load	0x0,0xd
0b1c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b1d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0b1e e00e       |    |		Load	0x0,0xe
0b1f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b20 4801       |H   |		Short_Literal	0x1
0b21 00da       |    |		Load_Top	At_Offset_2
0b22 01d6       |    |		Execute	Vector,Field_Write
0b23 00db       |    |		Load_Top	At_Offset_3
0b24 e00e       |    |		Load	0x0,0xe
0b25 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0b26 4802       |H   |		Short_Literal	0x2
0b27 00da       |    |		Load_Top	At_Offset_2
0b28 01d6       |    |		Execute	Vector,Field_Write
0b29 601e       |`   |		Indirect_Literal	Discrete,0xb48,{0x00000000, 0x00002812}
0b2a e002       |    |		Load	0x0,0x2
0b2b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0b2c c5fd       |    |		Store	0x2,-0x3
0b2d 00db       |    |		Load_Top	At_Offset_3
0b2e e00d       |    |		Load	0x0,0xd
0b2f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b30 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0b31 c402       |    |		Store	0x2,0x2
0b32 00c9       |    |		Action	Pop_Auxiliary_Loop
0b33 00db       |    |		Load_Top	At_Offset_3
0b34 e00d       |    |		Load	0x0,0xd
0b35 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b36 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0b37 6fc4       |o   |		Jump_Zero	0xafc
0b38 00ce       |    |		Action	Pop_Auxiliary
0b39 00da       |    |		Load_Top	At_Offset_2
0b3a e00d       |    |		Load	0x0,0xd
0b3b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b3c 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0b3d c402       |    |		Store	0x2,0x2
0b3e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b3f			TRAP_0ae0:
0b3f 0007       |    |		Action	Break_Optional
0b40 00db       |    |		Load_Top	At_Offset_3
0b41 e00d       |    |		Load	0x0,0xd
0b42 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0b43 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0b44 c402       |    |		Store	0x2,0x2
0b45 00d8       |    |		Load_Top	At_Offset_0
0b46 0101       |    |		Execute	Exception,Reraise
0b47 0000       |    |		.XXX[0x1]
0b48 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002812}
0b4c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002807}
0b50 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002819}
0b54 0000 0000  |    |		.BLANK	0000[0x4]
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b5b       | [  |		.CONST	0x0b5b								; Address of begin
0b59 0004       |    |		.CONST	0x0004								; Address of exception handler
0b5a 0001       |    |		.CONST	0x0001								; Number of locals
0b5b			BODY_0b58:
0b5b			INIT_0b58:
0b5b 00da       |    |		Load_Top	At_Offset_2
0b5c 0217       |    |		Execute	Heap_Access,All_Reference
0b5d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0b5e e00d       |    |		Load	0x0,0xd
0b5f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b60 6808       |h   |		Jump_Zero	0xb69
0b61 e5fd       |    |		Load	0x2,-0x3
0b62 e5fe       |    |		Load	0x2,-0x2
0b63 e5ff       |    |		Load	0x2,-0x1
0b64 0217       |    |		Execute	Heap_Access,All_Reference
0b65 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b66 8231       | 1  |		Call	0x1,0x31
0b67 c5fd       |    |		Store	0x2,-0x3
0b68 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b69 e5fd       |    |		Load	0x2,-0x3
0b6a e5fe       |    |		Load	0x2,-0x2
0b6b e5ff       |    |		Load	0x2,-0x1
0b6c 0217       |    |		Execute	Heap_Access,All_Reference
0b6d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0b6e 8231       | 1  |		Call	0x1,0x31
0b6f c5fd       |    |		Store	0x2,-0x3
0b70 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b71 0000 0000  |    |		.BLANK	0000[0x7]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b       | {  |		.CONST	0x0b7b								; Address of begin
0b79 0004       |    |		.CONST	0x0004								; Address of exception handler
0b7a 0001       |    |		.CONST	0x0001								; Number of locals
0b7b			BODY_0b78:
0b7b			INIT_0b78:
0b7b e5fd       |    |		Load	0x2,-0x3
0b7c e5fe       |    |		Load	0x2,-0x2
0b7d e5ff       |    |		Load	0x2,-0x1
0b7e 0217       |    |		Execute	Heap_Access,All_Reference
0b7f 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0b80 0217       |    |		Execute	Heap_Access,All_Reference
0b81 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b82 8235       | 5  |		Call	0x1,0x35
0b83 c5fd       |    |		Store	0x2,-0x3
0b84 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b85 0000 0000  |    |		.XXX[0x3]
0b87 0000       |    |
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; --------------------------------------------------------------------------------------
0b88 0bae       |    |		.CONST	0x0bae								; Address of begin
0b89 0004       |    |		.CONST	0x0004								; Address of exception handler
0b8a 000e       |    |		.CONST	0x000e								; Number of locals
0b8b			INIT_0b88:
0b8b 00da       |    |		Load_Top	At_Offset_2
0b8c 8026       | &  |		Call	0x0,0x26
0b8d e027       | '  |		Load	0x0,0x27
0b8e 03f1       |    |		Declare_Variable	Discrete,With_Value
0b8f e00d       |    |		Load	0x0,0xd
0b90 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b91 02c7       |    |		Declare_Variable	Any
0b92 00d8       |    |		Load_Top	At_Offset_0
0b93 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b94 e5fe       |    |		Load	0x2,-0x2
0b95 0217       |    |		Execute	Heap_Access,All_Reference
0b96 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0b97 0007       |    |		Action	Break_Optional
0b98 00d8       |    |		Load_Top	At_Offset_0
0b99 0217       |    |		Execute	Heap_Access,All_Reference
0b9a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b9b 0007       |    |		Action	Break_Optional
0b9c e01b       |    |		Load	0x0,0x1b
0b9d 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0b9e e01b       |    |		Load	0x0,0x1b
0b9f 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0ba0 e01b       |    |		Load	0x0,0x1b
0ba1 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0ba2 e01b       |    |		Load	0x0,0x1b
0ba3 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0ba4 e01b       |    |		Load	0x0,0x1b
0ba5 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0ba6 e01b       |    |		Load	0x0,0x1b
0ba7 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0ba8 e01b       |    |		Load	0x0,0x1b
0ba9 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0baa e01b       |    |		Load	0x0,0x1b
0bab 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0bac e01b       |    |		Load	0x0,0x1b
0bad 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0bae			BODY_0b88:
0bae e402       |    |		Load	0x2,0x2
0baf 4604       |F   |		Jump_Case	0x5
0bb0 7815       |x   |		Jump	0xbc6								; case 0x0
0bb1 780f       |x   |		Jump	0xbc1								; case 0x1
0bb2 780b       |x   |		Jump	0xbbe								; case 0x2
0bb3 780a       |x   |		Jump	0xbbe								; case 0x3
0bb4 7800       |x   |		Jump	0xbb5								; case 0x4
0bb5 e5fd       |    |		Load	0x2,-0x3
0bb6 e5fe       |    |		Load	0x2,-0x2
0bb7 60c8       |`   |		Indirect_Literal	Discrete,0xc80,{0x00000000, 0x0000280d}
0bb8 4800       |H   |		Short_Literal	0x0
0bb9 e5ff       |    |		Load	0x2,-0x1
0bba 8028       | (  |		Call	0x0,0x28
0bbb 82c3       |    |		Call	0x1,0xc3
0bbc c5fd       |    |		Store	0x2,-0x3
0bbd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bbe e5ff       |    |		Load	0x2,-0x1
0bbf c403       |    |		Store	0x2,0x3
0bc0 780d       |x   |		Jump	0xbce
0bc1 60ba       |`   |		Indirect_Literal	Discrete,0xc7c,{0x00000000, 0x0000280b}
0bc2 e5ff       |    |		Load	0x2,-0x1
0bc3 8029       | )  |		Call	0x0,0x29
0bc4 c403       |    |		Store	0x2,0x3
0bc5 7808       |x   |		Jump	0xbce
0bc6 e5fd       |    |		Load	0x2,-0x3
0bc7 e5fe       |    |		Load	0x2,-0x2
0bc8 60af       |`   |		Indirect_Literal	Discrete,0xc78,{0x00000000, 0x00002815}
0bc9 e5ff       |    |		Load	0x2,-0x1
0bca 8029       | )  |		Call	0x0,0x29
0bcb 8235       | 5  |		Call	0x1,0x35
0bcc c5fd       |    |		Store	0x2,-0x3
0bcd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bce 00cf       |    |		Action	Mark_Auxiliary
0bcf 789f       |x   |		Jump	0xc6f
0bd0 e404       |    |		Load	0x2,0x4
0bd1 0217       |    |		Execute	Heap_Access,All_Reference
0bd2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0bd3 e403       |    |		Load	0x2,0x3
0bd4 012f       | /  |		Execute	Any,Equal
0bd5 6890       |h   |		Jump_Zero	0xc66
0bd6 e404       |    |		Load	0x2,0x4
0bd7 e5fe       |    |		Load	0x2,-0x2
0bd8 0217       |    |		Execute	Heap_Access,All_Reference
0bd9 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0bda 021e       |    |		Execute	Heap_Access,Maximum
0bdb 6895       |h   |		Jump_Zero	0xc71
0bdc e406       |    |		Load	0x2,0x6
0bdd 7007       |p   |		Jump_Nonzero	0xbe5
0bde e404       |    |		Load	0x2,0x4
0bdf 0217       |    |		Execute	Heap_Access,All_Reference
0be0 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0be1 e5fe       |    |		Load	0x2,-0x2
0be2 0217       |    |		Execute	Heap_Access,All_Reference
0be3 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0be4 7806       |x   |		Jump	0xbeb
0be5 e404       |    |		Load	0x2,0x4
0be6 0217       |    |		Execute	Heap_Access,All_Reference
0be7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0be8 e406       |    |		Load	0x2,0x6
0be9 0217       |    |		Execute	Heap_Access,All_Reference
0bea 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0beb e404       |    |		Load	0x2,0x4
0bec 0217       |    |		Execute	Heap_Access,All_Reference
0bed 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0bee a407       |    |		Store_Unchecked	0x2,0x7
0bef 00cf       |    |		Action	Mark_Auxiliary
0bf0 7859       |xY  |		Jump	0xc4a
0bf1 e407       |    |		Load	0x2,0x7
0bf2 0217       |    |		Execute	Heap_Access,All_Reference
0bf3 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0bf4 a408       |    |		Store_Unchecked	0x2,0x8
0bf5 e407       |    |		Load	0x2,0x7
0bf6 0217       |    |		Execute	Heap_Access,All_Reference
0bf7 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0bf8 a409       |    |		Store_Unchecked	0x2,0x9
0bf9 00cf       |    |		Action	Mark_Auxiliary
0bfa 783f       |x?  |		Jump	0xc3a
0bfb e409       |    |		Load	0x2,0x9
0bfc 0217       |    |		Execute	Heap_Access,All_Reference
0bfd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0bfe a40a       |    |		Store_Unchecked	0x2,0xa
0bff e409       |    |		Load	0x2,0x9
0c00 0217       |    |		Execute	Heap_Access,All_Reference
0c01 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c02 0217       |    |		Execute	Heap_Access,All_Reference
0c03 3c19       |<   |		Execute	Record,Field_Read,Field_Number 0x19
0c04 a40d       |    |		Store_Unchecked	0x2,0xd
0c05 00cf       |    |		Action	Mark_Auxiliary
0c06 7829       |x)  |		Jump	0xc30
0c07 e40d       |    |		Load	0x2,0xd
0c08 0217       |    |		Execute	Heap_Access,All_Reference
0c09 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0c0a e407       |    |		Load	0x2,0x7
0c0b 021f       |    |		Execute	Heap_Access,Equal
0c0c 681c       |h   |		Jump_Zero	0xc29
0c0d e40e       |    |		Load	0x2,0xe
0c0e 7009       |p   |		Jump_Nonzero	0xc18
0c0f e40d       |    |		Load	0x2,0xd
0c10 0217       |    |		Execute	Heap_Access,All_Reference
0c11 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c12 e409       |    |		Load	0x2,0x9
0c13 0217       |    |		Execute	Heap_Access,All_Reference
0c14 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c15 0217       |    |		Execute	Heap_Access,All_Reference
0c16 3819       |8   |		Execute	Record,Field_Write,Field_Number 0x19
0c17 7806       |x   |		Jump	0xc1e
0c18 e40d       |    |		Load	0x2,0xd
0c19 0217       |    |		Execute	Heap_Access,All_Reference
0c1a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c1b e40e       |    |		Load	0x2,0xe
0c1c 0217       |    |		Execute	Heap_Access,All_Reference
0c1d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0c1e e40d       |    |		Load	0x2,0xd
0c1f e01b       |    |		Load	0x0,0x1b
0c20 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0c21 c40d       |    |		Store	0x2,0xd
0c22 4800       |H   |		Short_Literal	0x0
0c23 e409       |    |		Load	0x2,0x9
0c24 0217       |    |		Execute	Heap_Access,All_Reference
0c25 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c26 0217       |    |		Execute	Heap_Access,All_Reference
0c27 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0c28 7809       |x   |		Jump	0xc32
0c29 e40d       |    |		Load	0x2,0xd
0c2a a40e       |    |		Store_Unchecked	0x2,0xe
0c2b e40d       |    |		Load	0x2,0xd
0c2c 0217       |    |		Execute	Heap_Access,All_Reference
0c2d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c2e a40d       |    |		Store_Unchecked	0x2,0xd
0c2f 00c9       |    |		Action	Pop_Auxiliary_Loop
0c30 e40d       |    |		Load	0x2,0xd
0c31 77d5       |w   |		Jump_Nonzero	0xc07
0c32 00ce       |    |		Action	Pop_Auxiliary
0c33 e409       |    |		Load	0x2,0x9
0c34 e01b       |    |		Load	0x0,0x1b
0c35 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0c36 c409       |    |		Store	0x2,0x9
0c37 e40a       |    |		Load	0x2,0xa
0c38 a409       |    |		Store_Unchecked	0x2,0x9
0c39 00c9       |    |		Action	Pop_Auxiliary_Loop
0c3a e409       |    |		Load	0x2,0x9
0c3b 77bf       |w   |		Jump_Nonzero	0xbfb
0c3c 00ce       |    |		Action	Pop_Auxiliary
0c3d e5fe       |    |		Load	0x2,-0x2
0c3e e407       |    |		Load	0x2,0x7
0c3f 0217       |    |		Execute	Heap_Access,All_Reference
0c40 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c41 e02a       | *  |		Load	0x0,0x2a
0c42 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0c43 e407       |    |		Load	0x2,0x7
0c44 e01b       |    |		Load	0x0,0x1b
0c45 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0c46 c407       |    |		Store	0x2,0x7
0c47 e408       |    |		Load	0x2,0x8
0c48 a407       |    |		Store_Unchecked	0x2,0x7
0c49 00c9       |    |		Action	Pop_Auxiliary_Loop
0c4a e407       |    |		Load	0x2,0x7
0c4b 77a5       |w   |		Jump_Nonzero	0xbf1
0c4c 00ce       |    |		Action	Pop_Auxiliary
0c4d e404       |    |		Load	0x2,0x4
0c4e 0217       |    |		Execute	Heap_Access,All_Reference
0c4f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0c50 a40b       |    |		Store_Unchecked	0x2,0xb
0c51 00cf       |    |		Action	Mark_Auxiliary
0c52 780b       |x   |		Jump	0xc5e
0c53 e40b       |    |		Load	0x2,0xb
0c54 0217       |    |		Execute	Heap_Access,All_Reference
0c55 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c56 a40c       |    |		Store_Unchecked	0x2,0xc
0c57 e40b       |    |		Load	0x2,0xb
0c58 e01b       |    |		Load	0x0,0x1b
0c59 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0c5a c40b       |    |		Store	0x2,0xb
0c5b e40c       |    |		Load	0x2,0xc
0c5c a40b       |    |		Store_Unchecked	0x2,0xb
0c5d 00c9       |    |		Action	Pop_Auxiliary_Loop
0c5e e40b       |    |		Load	0x2,0xb
0c5f 77f3       |w   |		Jump_Nonzero	0xc53
0c60 00ce       |    |		Action	Pop_Auxiliary
0c61 e404       |    |		Load	0x2,0x4
0c62 e01b       |    |		Load	0x0,0x1b
0c63 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0c64 c404       |    |		Store	0x2,0x4
0c65 780b       |x   |		Jump	0xc71
0c66 e404       |    |		Load	0x2,0x4
0c67 a406       |    |		Store_Unchecked	0x2,0x6
0c68 e405       |    |		Load	0x2,0x5
0c69 a404       |    |		Store_Unchecked	0x2,0x4
0c6a e404       |    |		Load	0x2,0x4
0c6b 0217       |    |		Execute	Heap_Access,All_Reference
0c6c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c6d a405       |    |		Store_Unchecked	0x2,0x5
0c6e 00c9       |    |		Action	Pop_Auxiliary_Loop
0c6f e404       |    |		Load	0x2,0x4
0c70 775f       |w_  |		Jump_Nonzero	0xbd0
0c71 00ce       |    |		Action	Pop_Auxiliary
0c72 e5fe       |    |		Load	0x2,-0x2
0c73 e403       |    |		Load	0x2,0x3
0c74 e02a       | *  |		Load	0x0,0x2a
0c75 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0c76 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c77 0000       |    |		.XXX[0x1]
0c78 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002815}
0c7c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280b}
0c80 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280d}
0c84 0000 0000  |    |		.BLANK	0000[0x4]
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c98       |    |		.CONST	0x0c98								; Address of begin
0c89 0ce7       |    |		.CONST	0x0ce7								; Address of exception handler
0c8a 0004       |    |		.CONST	0x0004								; Number of locals
0c8b			INIT_0c88:
0c8b e00d       |    |		Load	0x0,0xd
0c8c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0c8d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0c8e 02c7       |    |		Declare_Variable	Any
0c8f 00d8       |    |		Load_Top	At_Offset_0
0c90 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c91 e00d       |    |		Load	0x0,0xd
0c92 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c93 e00d       |    |		Load	0x0,0xd
0c94 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c95 02c7       |    |		Declare_Variable	Any
0c96 00d8       |    |		Load_Top	At_Offset_0
0c97 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c98			BODY_0c88:
0c98 e5fd       |    |		Load	0x2,-0x3
0c99 00db       |    |		Load_Top	At_Offset_3
0c9a 605d       |`]  |		Indirect_Literal	Discrete,0xcf8,{0x00000000, 0x00002819}
0c9b 6058       |`X  |		Indirect_Literal	Discrete,0xcf4,{0x00000000, 0x00002807}
0c9c e5ff       |    |		Load	0x2,-0x1
0c9d 801c       |    |		Call	0x0,0x1c
0c9e c402       |    |		Store	0x2,0x2
0c9f c5fd       |    |		Store	0x2,-0x3
0ca0 e5fd       |    |		Load	0x2,-0x3
0ca1 703f       |p?  |		Jump_Nonzero	0xce1
0ca2 00cf       |    |		Action	Mark_Auxiliary
0ca3 7837       |x7  |		Jump	0xcdb
0ca4 e00d       |    |		Load	0x0,0xd
0ca5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ca6 00da       |    |		Load_Top	At_Offset_2
0ca7 0120       |    |		Execute	Any,Is_Value
0ca8 6803       |h   |		Jump_Zero	0xcac
0ca9 e00d       |    |		Load	0x0,0xd
0caa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0cab 7801       |x   |		Jump	0xcad
0cac 00da       |    |		Load_Top	At_Offset_2
0cad e402       |    |		Load	0x2,0x2
0cae e00d       |    |		Load	0x0,0xd
0caf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0cb0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0cb1 c404       |    |		Store	0x2,0x4
0cb2 005b       | [  |		Store_Top	Discrete,At_Offset_3
0cb3 00da       |    |		Load_Top	At_Offset_2
0cb4 7006       |p   |		Jump_Nonzero	0xcbb
0cb5 e5fd       |    |		Load	0x2,-0x3
0cb6 e5fe       |    |		Load	0x2,-0x2
0cb7 00db       |    |		Load_Top	At_Offset_3
0cb8 8235       | 5  |		Call	0x1,0x35
0cb9 c5fd       |    |		Store	0x2,-0x3
0cba 781a       |x   |		Jump	0xcd5
0cbb e002       |    |		Load	0x0,0x2
0cbc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cbd 4801       |H   |		Short_Literal	0x1
0cbe 4802       |H   |		Short_Literal	0x2
0cbf e00e       |    |		Load	0x0,0xe
0cc0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0cc1 0334       | 4  |		Declare_Variable	Array,With_Constraint
0cc2 e402       |    |		Load	0x2,0x2
0cc3 e00d       |    |		Load	0x0,0xd
0cc4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0cc5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0cc6 e00e       |    |		Load	0x0,0xe
0cc7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0cc8 4801       |H   |		Short_Literal	0x1
0cc9 00da       |    |		Load_Top	At_Offset_2
0cca 01d6       |    |		Execute	Vector,Field_Write
0ccb e403       |    |		Load	0x2,0x3
0ccc e00e       |    |		Load	0x0,0xe
0ccd 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0cce 4802       |H   |		Short_Literal	0x2
0ccf 00da       |    |		Load_Top	At_Offset_2
0cd0 01d6       |    |		Execute	Vector,Field_Write
0cd1 601e       |`   |		Indirect_Literal	Discrete,0xcf0,{0x00000000, 0x00002812}
0cd2 e002       |    |		Load	0x0,0x2
0cd3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0cd4 c5fd       |    |		Store	0x2,-0x3
0cd5 00db       |    |		Load_Top	At_Offset_3
0cd6 e00d       |    |		Load	0x0,0xd
0cd7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0cd8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0cd9 c402       |    |		Store	0x2,0x2
0cda 00c9       |    |		Action	Pop_Auxiliary_Loop
0cdb 00db       |    |		Load_Top	At_Offset_3
0cdc e00d       |    |		Load	0x0,0xd
0cdd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0cde 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0cdf 6fc4       |o   |		Jump_Zero	0xca4
0ce0 00ce       |    |		Action	Pop_Auxiliary
0ce1 00da       |    |		Load_Top	At_Offset_2
0ce2 e00d       |    |		Load	0x0,0xd
0ce3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ce4 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0ce5 c402       |    |		Store	0x2,0x2
0ce6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ce7			TRAP_0c88:
0ce7 0007       |    |		Action	Break_Optional
0ce8 00db       |    |		Load_Top	At_Offset_3
0ce9 e00d       |    |		Load	0x0,0xd
0cea 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ceb 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0cec c402       |    |		Store	0x2,0x2
0ced 00d8       |    |		Load_Top	At_Offset_0
0cee 0101       |    |		Execute	Exception,Reraise
0cef 0000       |    |		.XXX[0x1]
0cf0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002812}
0cf4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002807}
0cf8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002819}
0cfc 0000 0000  |    |		.BLANK	0000[0x4]
0d00 ; --------------------------------------------------------------------------------------
0d00 ; SUBPROGRAM
0d00 ; --------------------------------------------------------------------------------------
0d00 0d03       |    |		.CONST	0x0d03								; Address of begin
0d01 0004       |    |		.CONST	0x0004								; Address of exception handler
0d02 0001       |    |		.CONST	0x0001								; Number of locals
0d03			BODY_0d00:
0d03			INIT_0d00:
0d03 e5fd       |    |		Load	0x2,-0x3
0d04 e5fe       |    |		Load	0x2,-0x2
0d05 e5ff       |    |		Load	0x2,-0x1
0d06 0217       |    |		Execute	Heap_Access,All_Reference
0d07 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0d08 8235       | 5  |		Call	0x1,0x35
0d09 c5fd       |    |		Store	0x2,-0x3
0d0a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d0b 0000 0000  |    |		.BLANK	0000[0x5]
0d10 ; --------------------------------------------------------------------------------------
0d10 ; SUBPROGRAM
0d10 ; --------------------------------------------------------------------------------------
0d10 0d13       |    |		.CONST	0x0d13								; Address of begin
0d11 0004       |    |		.CONST	0x0004								; Address of exception handler
0d12 0001       |    |		.CONST	0x0001								; Number of locals
0d13			BODY_0d10:
0d13			INIT_0d10:
0d13 e5fc       |    |		Load	0x2,-0x4
0d14 e228       | (  |		Load	0x1,0x28
0d15 e5fe       |    |		Load	0x2,-0x2
0d16 e5ff       |    |		Load	0x2,-0x1
0d17 0217       |    |		Execute	Heap_Access,All_Reference
0d18 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0d19 0217       |    |		Execute	Heap_Access,All_Reference
0d1a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0d1b 8239       | 9  |		Call	0x1,0x39
0d1c c5fd       |    |		Store	0x2,-0x3
0d1d c5fc       |    |		Store	0x2,-0x4
0d1e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d1f 0000       |    |		.XXX[0x1]
0d20 ; --------------------------------------------------------------------------------------
0d20 ; SUBPROGRAM
0d20 ; --------------------------------------------------------------------------------------
0d20 0d2e       | .  |		.CONST	0x0d2e								; Address of begin
0d21 0004       |    |		.CONST	0x0004								; Address of exception handler
0d22 0004       |    |		.CONST	0x0004								; Number of locals
0d23			INIT_0d20:
0d23 00da       |    |		Load_Top	At_Offset_2
0d24 8026       | &  |		Call	0x0,0x26
0d25 e027       | '  |		Load	0x0,0x27
0d26 03f1       |    |		Declare_Variable	Discrete,With_Value
0d27 e00d       |    |		Load	0x0,0xd
0d28 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d29 02c7       |    |		Declare_Variable	Any
0d2a 00d8       |    |		Load_Top	At_Offset_0
0d2b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d2c e01b       |    |		Load	0x0,0x1b
0d2d 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0d2e			BODY_0d20:
0d2e 00da       |    |		Load_Top	At_Offset_2
0d2f 4604       |F   |		Jump_Case	0x5
0d30 781e       |x   |		Jump	0xd4f								; case 0x0
0d31 7818       |x   |		Jump	0xd4a								; case 0x1
0d32 7814       |x   |		Jump	0xd47								; case 0x2
0d33 7813       |x   |		Jump	0xd47								; case 0x3
0d34 7800       |x   |		Jump	0xd35								; case 0x4
0d35 e002       |    |		Load	0x0,0x2
0d36 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d37 4801       |H   |		Short_Literal	0x1
0d38 4801       |H   |		Short_Literal	0x1
0d39 e00e       |    |		Load	0x0,0xe
0d3a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d3b 0334       | 4  |		Declare_Variable	Array,With_Constraint
0d3c e5ff       |    |		Load	0x2,-0x1
0d3d e00e       |    |		Load	0x0,0xe
0d3e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0d3f 4801       |H   |		Short_Literal	0x1
0d40 00da       |    |		Load_Top	At_Offset_2
0d41 01d6       |    |		Execute	Vector,Field_Write
0d42 6049       |`I  |		Indirect_Literal	Discrete,0xd8c,{0x00000000, 0x00002801}
0d43 e002       |    |		Load	0x0,0x2
0d44 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0d45 c5fc       |    |		Store	0x2,-0x4
0d46 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d47 e5ff       |    |		Load	0x2,-0x1
0d48 c403       |    |		Store	0x2,0x3
0d49 780f       |x   |		Jump	0xd59
0d4a 603d       |`=  |		Indirect_Literal	Discrete,0xd88,{0x00000000, 0x0000280b}
0d4b e5ff       |    |		Load	0x2,-0x1
0d4c 8029       | )  |		Call	0x0,0x29
0d4d c403       |    |		Store	0x2,0x3
0d4e 780a       |x   |		Jump	0xd59
0d4f e5fc       |    |		Load	0x2,-0x4
0d50 e228       | (  |		Load	0x1,0x28
0d51 e5fe       |    |		Load	0x2,-0x2
0d52 6031       |`1  |		Indirect_Literal	Discrete,0xd84,{0x00000000, 0x00002815}
0d53 e5ff       |    |		Load	0x2,-0x1
0d54 8029       | )  |		Call	0x0,0x29
0d55 8239       | 9  |		Call	0x1,0x39
0d56 c5fd       |    |		Store	0x2,-0x3
0d57 c5fc       |    |		Store	0x2,-0x4
0d58 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d59 e5fc       |    |		Load	0x2,-0x4
0d5a e01b       |    |		Load	0x0,0x1b
0d5b 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0d5c e5fe       |    |		Load	0x2,-0x2
0d5d e403       |    |		Load	0x2,0x3
0d5e 82c1       |    |		Call	0x1,0xc1
0d5f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0d60 c5fc       |    |		Store	0x2,-0x4
0d61 00d8       |    |		Load_Top	At_Offset_0
0d62 7017       |p   |		Jump_Nonzero	0xd7a
0d63 e002       |    |		Load	0x0,0x2
0d64 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d65 4801       |H   |		Short_Literal	0x1
0d66 4802       |H   |		Short_Literal	0x2
0d67 e00e       |    |		Load	0x0,0xe
0d68 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d69 0334       | 4  |		Declare_Variable	Array,With_Constraint
0d6a 00db       |    |		Load_Top	At_Offset_3
0d6b e00e       |    |		Load	0x0,0xe
0d6c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0d6d 4801       |H   |		Short_Literal	0x1
0d6e 00da       |    |		Load_Top	At_Offset_2
0d6f 01d6       |    |		Execute	Vector,Field_Write
0d70 e5ff       |    |		Load	0x2,-0x1
0d71 e00e       |    |		Load	0x0,0xe
0d72 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0d73 4802       |H   |		Short_Literal	0x2
0d74 00da       |    |		Load_Top	At_Offset_2
0d75 01d6       |    |		Execute	Vector,Field_Write
0d76 6009       |`   |		Indirect_Literal	Discrete,0xd80,{0x00000000, 0x00002814}
0d77 e002       |    |		Load	0x0,0x2
0d78 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0d79 c5fc       |    |		Store	0x2,-0x4
0d7a 00d8       |    |		Load_Top	At_Offset_0
0d7b e001       |    |		Load	0x0,0x1
0d7c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0d7d 0216       |    |		Execute	Heap_Access,Convert
0d7e a5fd       |    |		Store_Unchecked	0x2,-0x3
0d7f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d80 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002814}
0d84 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002815}
0d88 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280b}
0d8c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002801}
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0da0       |    |		.CONST	0x0da0								; Address of begin
0d91 0e11       |    |		.CONST	0x0e11								; Address of exception handler
0d92 0004       |    |		.CONST	0x0004								; Number of locals
0d93			INIT_0d90:
0d93 e00d       |    |		Load	0x0,0xd
0d94 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d95 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0d96 02c7       |    |		Declare_Variable	Any
0d97 00d8       |    |		Load_Top	At_Offset_0
0d98 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d99 e00d       |    |		Load	0x0,0xd
0d9a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d9b 02c7       |    |		Declare_Variable	Any
0d9c 00d8       |    |		Load_Top	At_Offset_0
0d9d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d9e e00d       |    |		Load	0x0,0xd
0d9f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0da0			BODY_0d90:
0da0 e5fc       |    |		Load	0x2,-0x4
0da1 00db       |    |		Load_Top	At_Offset_3
0da2 6085       |`   |		Indirect_Literal	Discrete,0xe28,{0x00000000, 0x00002819}
0da3 6080       |`   |		Indirect_Literal	Discrete,0xe24,{0x00000000, 0x00002807}
0da4 e5ff       |    |		Load	0x2,-0x1
0da5 801c       |    |		Call	0x0,0x1c
0da6 c402       |    |		Store	0x2,0x2
0da7 c5fc       |    |		Store	0x2,-0x4
0da8 e5fc       |    |		Load	0x2,-0x4
0da9 7061       |pa  |		Jump_Nonzero	0xe0b
0daa e00d       |    |		Load	0x0,0xd
0dab 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0dac 00da       |    |		Load_Top	At_Offset_2
0dad 0120       |    |		Execute	Any,Is_Value
0dae 6803       |h   |		Jump_Zero	0xdb2
0daf e00d       |    |		Load	0x0,0xd
0db0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0db1 7801       |x   |		Jump	0xdb3
0db2 00da       |    |		Load_Top	At_Offset_2
0db3 e402       |    |		Load	0x2,0x2
0db4 e00d       |    |		Load	0x0,0xd
0db5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0db6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0db7 c403       |    |		Store	0x2,0x3
0db8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0db9 00d8       |    |		Load_Top	At_Offset_0
0dba 7036       |p6  |		Jump_Nonzero	0xdf1
0dbb 00da       |    |		Load_Top	At_Offset_2
0dbc e00d       |    |		Load	0x0,0xd
0dbd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0dbe 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0dbf c402       |    |		Store	0x2,0x2
0dc0 00da       |    |		Load_Top	At_Offset_2
0dc1 e00d       |    |		Load	0x0,0xd
0dc2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0dc3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0dc4 7024       |p$  |		Jump_Nonzero	0xde9
0dc5 e002       |    |		Load	0x0,0x2
0dc6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0dc7 4801       |H   |		Short_Literal	0x1
0dc8 4803       |H   |		Short_Literal	0x3
0dc9 e00e       |    |		Load	0x0,0xe
0dca 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0dcb 0334       | 4  |		Declare_Variable	Array,With_Constraint
0dcc e5ff       |    |		Load	0x2,-0x1
0dcd e00e       |    |		Load	0x0,0xe
0dce 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dcf 4801       |H   |		Short_Literal	0x1
0dd0 00da       |    |		Load_Top	At_Offset_2
0dd1 01d6       |    |		Execute	Vector,Field_Write
0dd2 00db       |    |		Load_Top	At_Offset_3
0dd3 e00d       |    |		Load	0x0,0xd
0dd4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0dd5 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0dd6 e00e       |    |		Load	0x0,0xe
0dd7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dd8 4802       |H   |		Short_Literal	0x2
0dd9 00da       |    |		Load_Top	At_Offset_2
0dda 01d6       |    |		Execute	Vector,Field_Write
0ddb e402       |    |		Load	0x2,0x2
0ddc e00d       |    |		Load	0x0,0xd
0ddd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0dde 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0ddf e00e       |    |		Load	0x0,0xe
0de0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0de1 4803       |H   |		Short_Literal	0x3
0de2 00da       |    |		Load_Top	At_Offset_2
0de3 01d6       |    |		Execute	Vector,Field_Write
0de4 603b       |`;  |		Indirect_Literal	Discrete,0xe20,{0x00000000, 0x00002813}
0de5 e002       |    |		Load	0x0,0x2
0de6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0de7 c5fc       |    |		Store	0x2,-0x4
0de8 7822       |x"  |		Jump	0xe0b
0de9 e5fc       |    |		Load	0x2,-0x4
0dea e228       | (  |		Load	0x1,0x28
0deb e5fe       |    |		Load	0x2,-0x2
0dec e403       |    |		Load	0x2,0x3
0ded 8239       | 9  |		Call	0x1,0x39
0dee c5fd       |    |		Store	0x2,-0x3
0def c5fc       |    |		Store	0x2,-0x4
0df0 781a       |x   |		Jump	0xe0b
0df1 e002       |    |		Load	0x0,0x2
0df2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0df3 4801       |H   |		Short_Literal	0x1
0df4 4802       |H   |		Short_Literal	0x2
0df5 e00e       |    |		Load	0x0,0xe
0df6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0df7 0334       | 4  |		Declare_Variable	Array,With_Constraint
0df8 e402       |    |		Load	0x2,0x2
0df9 e00d       |    |		Load	0x0,0xd
0dfa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0dfb 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0dfc e00e       |    |		Load	0x0,0xe
0dfd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dfe 4801       |H   |		Short_Literal	0x1
0dff 00da       |    |		Load_Top	At_Offset_2
0e00 01d6       |    |		Execute	Vector,Field_Write
0e01 00da       |    |		Load_Top	At_Offset_2
0e02 e00e       |    |		Load	0x0,0xe
0e03 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e04 4802       |H   |		Short_Literal	0x2
0e05 00da       |    |		Load_Top	At_Offset_2
0e06 01d6       |    |		Execute	Vector,Field_Write
0e07 6014       |`   |		Indirect_Literal	Discrete,0xe1c,{0x00000000, 0x00002812}
0e08 e002       |    |		Load	0x0,0x2
0e09 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e0a c5fc       |    |		Store	0x2,-0x4
0e0b 00da       |    |		Load_Top	At_Offset_2
0e0c e00d       |    |		Load	0x0,0xd
0e0d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e0e 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0e0f c402       |    |		Store	0x2,0x2
0e10 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e11			TRAP_0d90:
0e11 0007       |    |		Action	Break_Optional
0e12 00db       |    |		Load_Top	At_Offset_3
0e13 e00d       |    |		Load	0x0,0xd
0e14 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e15 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0e16 c402       |    |		Store	0x2,0x2
0e17 00d8       |    |		Load_Top	At_Offset_0
0e18 0101       |    |		Execute	Exception,Reraise
0e19 0000 0000  |    |		.XXX[0x3]
0e1b 0000       |    |
0e1c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002812}
0e20 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002813}
0e24 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002807}
0e28 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002819}
0e2c 0000 0000  |    |		.BLANK	0000[0x4]
0e30 ; --------------------------------------------------------------------------------------
0e30 ; SUBPROGRAM
0e30 ; --------------------------------------------------------------------------------------
0e30 0e33       | 3  |		.CONST	0x0e33								; Address of begin
0e31 0004       |    |		.CONST	0x0004								; Address of exception handler
0e32 0001       |    |		.CONST	0x0001								; Number of locals
0e33			BODY_0e30:
0e33			INIT_0e30:
0e33 00db       |    |		Load_Top	At_Offset_3
0e34 00db       |    |		Load_Top	At_Offset_3
0e35 0217       |    |		Execute	Heap_Access,All_Reference
0e36 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0e37 0217       |    |		Execute	Heap_Access,All_Reference
0e38 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e39 8285       |    |		Call	0x1,0x85
0e3a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e3b 0000 0000  |    |		.BLANK	0000[0x5]
0e40 ; --------------------------------------------------------------------------------------
0e40 ; SUBPROGRAM
0e40 ; --------------------------------------------------------------------------------------
0e40 0e4d       | M  |		.CONST	0x0e4d								; Address of begin
0e41 0004       |    |		.CONST	0x0004								; Address of exception handler
0e42 0002       |    |		.CONST	0x0002								; Number of locals
0e43			INIT_0e40:
0e43 e02a       | *  |		Load	0x0,0x2a
0e44 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e45 02ff       |    |		Declare_Variable	Variant_Record
0e46 4801       |H   |		Short_Literal	0x1
0e47 e5fe       |    |		Load	0x2,-0x2
0e48 e5ff       |    |		Load	0x2,-0x1
0e49 e02a       | *  |		Load	0x0,0x2a
0e4a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0e4b 00d9       |    |		Load_Top	At_Offset_1
0e4c 016d       | m  |		Execute	Variant_Record,Structure_Write
0e4d			BODY_0e40:
0e4d 00d8       |    |		Load_Top	At_Offset_0
0e4e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e4f 0f01       |    |		Execute_Immediate	Equal,0x1
0e50 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e51 0000 0000  |    |		.BLANK	0000[0x7]
0e58 ; --------------------------------------------------------------------------------------
0e58 ; SUBPROGRAM
0e58 ; --------------------------------------------------------------------------------------
0e58 0e5b       | [  |		.CONST	0x0e5b								; Address of begin
0e59 0004       |    |		.CONST	0x0004								; Address of exception handler
0e5a 0001       |    |		.CONST	0x0001								; Number of locals
0e5b			BODY_0e58:
0e5b			INIT_0e58:
0e5b 00da       |    |		Load_Top	At_Offset_2
0e5c 0217       |    |		Execute	Heap_Access,All_Reference
0e5d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e5e 00d8       |    |		Load_Top	At_Offset_0
0e5f 0120       |    |		Execute	Any,Is_Value
0e60 7002       |p   |		Jump_Nonzero	0xe63
0e61 00d8       |    |		Load_Top	At_Offset_0
0e62 011e       |    |		Execute	Any,Convert
0e63 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e64 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
0e6c 0217       |    |		Execute	Heap_Access,All_Reference
0e6d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e6e e020       |    |		Load	0x0,0x20
0e6f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0e70 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e71 0000 0000  |    |		.BLANK	0000[0x7]
0e78 ; --------------------------------------------------------------------------------------
0e78 ; SUBPROGRAM
0e78 ; --------------------------------------------------------------------------------------
0e78 0e7b       | {  |		.CONST	0x0e7b								; Address of begin
0e79 0004       |    |		.CONST	0x0004								; Address of exception handler
0e7a 0001       |    |		.CONST	0x0001								; Number of locals
0e7b			BODY_0e78:
0e7b			INIT_0e78:
0e7b 00da       |    |		Load_Top	At_Offset_2
0e7c 0217       |    |		Execute	Heap_Access,All_Reference
0e7d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0e7e 00d8       |    |		Load_Top	At_Offset_0
0e7f 0120       |    |		Execute	Any,Is_Value
0e80 7002       |p   |		Jump_Nonzero	0xe83
0e81 00d8       |    |		Load_Top	At_Offset_0
0e82 011e       |    |		Execute	Any,Convert
0e83 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e84 0000 0000  |    |		.BLANK	0000[0x4]
0e88 ; --------------------------------------------------------------------------------------
0e88 ; SUBPROGRAM
0e88 ; --------------------------------------------------------------------------------------
0e88 0e8b       |    |		.CONST	0x0e8b								; Address of begin
0e89 0004       |    |		.CONST	0x0004								; Address of exception handler
0e8a 0001       |    |		.CONST	0x0001								; Number of locals
0e8b			BODY_0e88:
0e8b			INIT_0e88:
0e8b 00da       |    |		Load_Top	At_Offset_2
0e8c 0217       |    |		Execute	Heap_Access,All_Reference
0e8d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0e8e e00d       |    |		Load	0x0,0xd
0e8f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0e90 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0e91 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e92 0000 0000  |    |		.BLANK	0000[0x6]
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0e9b       |    |		.CONST	0x0e9b								; Address of begin
0e99 0004       |    |		.CONST	0x0004								; Address of exception handler
0e9a 0001       |    |		.CONST	0x0001								; Number of locals
0e9b			BODY_0e98:
0e9b			INIT_0e98:
0e9b 00da       |    |		Load_Top	At_Offset_2
0e9c 0217       |    |		Execute	Heap_Access,All_Reference
0e9d 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e9e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e9f 0000       |    |		.XXX[0x1]
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 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0ea6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ea7 0000       |    |		.XXX[0x1]
0ea8 ; --------------------------------------------------------------------------------------
0ea8 ; SUBPROGRAM
0ea8 ; --------------------------------------------------------------------------------------
0ea8 0eb5       |    |		.CONST	0x0eb5								; Address of begin
0ea9 0004       |    |		.CONST	0x0004								; Address of exception handler
0eaa 0003       |    |		.CONST	0x0003								; Number of locals
0eab			INIT_0ea8:
0eab 00da       |    |		Load_Top	At_Offset_2
0eac 0217       |    |		Execute	Heap_Access,All_Reference
0ead 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0eae 0007       |    |		Action	Break_Optional
0eaf 00db       |    |		Load_Top	At_Offset_3
0eb0 82c4       |    |		Call	0x1,0xc4
0eb1 e001       |    |		Load	0x0,0x1
0eb2 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0eb3 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0eb4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0eb5			BODY_0ea8:
0eb5 4800       |H   |		Short_Literal	0x0
0eb6 00d9       |    |		Load_Top	At_Offset_1
0eb7 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0eb8 00cf       |    |		Action	Mark_Auxiliary
0eb9 00d9       |    |		Load_Top	At_Offset_1
0eba 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ebb 01d9       |    |		Execute	Vector,Reverse_Bounds
0ebc 0263       | c  |		Execute	Discrete,Above_Bound
0ebd 700b       |p   |		Jump_Nonzero	0xec9
0ebe e402       |    |		Load	0x2,0x2
0ebf 00d9       |    |		Load_Top	At_Offset_1
0ec0 e403       |    |		Load	0x2,0x3
0ec1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ec2 01d6       |    |		Execute	Vector,Field_Write
0ec3 e402       |    |		Load	0x2,0x2
0ec4 0217       |    |		Execute	Heap_Access,All_Reference
0ec5 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0ec6 a402       |    |		Store_Unchecked	0x2,0x2
0ec7 00c8       |    |		Action	Pop_Auxiliary_Range
0ec8 3ff5       |?   |		Loop_Increasing	0xebe
0ec9 00ce       |    |		Action	Pop_Auxiliary
0eca 00d8       |    |		Load_Top	At_Offset_0
0ecb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ecc 0000 0000  |    |		.BLANK	0000[0x4]
0ed0 ; --------------------------------------------------------------------------------------
0ed0 ; SUBPROGRAM
0ed0 ; --------------------------------------------------------------------------------------
0ed0 0ed8       |    |		.CONST	0x0ed8								; Address of begin
0ed1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ed2 0003       |    |		.CONST	0x0003								; Number of locals
0ed3			INIT_0ed0:
0ed3 e01b       |    |		Load	0x0,0x1b
0ed4 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0ed5 e002       |    |		Load	0x0,0x2
0ed6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0ed7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0ed8			BODY_0ed0:
0ed8 00d8       |    |		Load_Top	At_Offset_0
0ed9 e01b       |    |		Load	0x0,0x1b
0eda 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0edb 4800       |H   |		Short_Literal	0x0
0edc e5fe       |    |		Load	0x2,-0x2
0edd e5ff       |    |		Load	0x2,-0x1
0ede 82c5       |    |		Call	0x1,0xc5
0edf 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0ee0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0ee1 00d8       |    |		Load_Top	At_Offset_0
0ee2 7009       |p   |		Jump_Nonzero	0xeec
0ee3 00d9       |    |		Load_Top	At_Offset_1
0ee4 0217       |    |		Execute	Heap_Access,All_Reference
0ee5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0ee6 00d8       |    |		Load_Top	At_Offset_0
0ee7 0120       |    |		Execute	Any,Is_Value
0ee8 7002       |p   |		Jump_Nonzero	0xeeb
0ee9 00d8       |    |		Load_Top	At_Offset_0
0eea 011e       |    |		Execute	Any,Convert
0eeb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0eec 00d8       |    |		Load_Top	At_Offset_0
0eed 6016       |`   |		Indirect_Literal	Discrete,0xf04,{0x00000000, 0x0000281a}
0eee 027f       |    |		Execute	Discrete,Equal
0eef 6803       |h   |		Jump_Zero	0xef3
0ef0 e003       |    |		Load	0x0,0x3
0ef1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0ef2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0ef3 4801       |H   |		Short_Literal	0x1
0ef4 4801       |H   |		Short_Literal	0x1
0ef5 e00e       |    |		Load	0x0,0xe
0ef6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ef7 0334       | 4  |		Declare_Variable	Array,With_Constraint
0ef8 e5ff       |    |		Load	0x2,-0x1
0ef9 8242       | B  |		Call	0x1,0x42
0efa 4801       |H   |		Short_Literal	0x1
0efb 00da       |    |		Load_Top	At_Offset_2
0efc 01d6       |    |		Execute	Vector,Field_Write
0efd 00d9       |    |		Load_Top	At_Offset_1
0efe e002       |    |		Load	0x0,0x2
0eff 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0f00 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f01 0000 0000  |    |		.XXX[0x3]
0f03 0000       |    |
0f04 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281a}
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 e5fd       |    |		Load	0x2,-0x3
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 7005       |p   |		Jump_Nonzero	0xf20
0f1b e5fe       |    |		Load	0x2,-0x2
0f1c 00da       |    |		Load_Top	At_Offset_2
0f1d 0217       |    |		Execute	Heap_Access,All_Reference
0f1e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0f1f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f20 e002       |    |		Load	0x0,0x2
0f21 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f22 4801       |H   |		Short_Literal	0x1
0f23 4801       |H   |		Short_Literal	0x1
0f24 e00e       |    |		Load	0x0,0xe
0f25 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0f26 0334       | 4  |		Declare_Variable	Array,With_Constraint
0f27 e5ff       |    |		Load	0x2,-0x1
0f28 8242       | B  |		Call	0x1,0x42
0f29 4801       |H   |		Short_Literal	0x1
0f2a 00da       |    |		Load_Top	At_Offset_2
0f2b 01d6       |    |		Execute	Vector,Field_Write
0f2c 00da       |    |		Load_Top	At_Offset_2
0f2d e002       |    |		Load	0x0,0x2
0f2e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0f2f c5fc       |    |		Store	0x2,-0x4
0f30 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f31 0000 0000  |    |		.BLANK	0000[0x7]
0f38 ; --------------------------------------------------------------------------------------
0f38 ; SUBPROGRAM
0f38 ; --------------------------------------------------------------------------------------
0f38 0f3b       | ;  |		.CONST	0x0f3b								; Address of begin
0f39 0004       |    |		.CONST	0x0004								; Address of exception handler
0f3a 0001       |    |		.CONST	0x0001								; Number of locals
0f3b			BODY_0f38:
0f3b			INIT_0f38:
0f3b 00da       |    |		Load_Top	At_Offset_2
0f3c e2c6       |    |		Load	0x1,0xc6
0f3d e2c7       |    |		Load	0x1,0xc7
0f3e 1dc8       |    |		Execute_Immediate	Reference_Lex_1,0xc8
0f3f 1dc9       |    |		Execute_Immediate	Reference_Lex_1,0xc9
0f40 1dca       |    |		Execute_Immediate	Reference_Lex_1,0xca
0f41 e00e       |    |		Load	0x0,0xe
0f42 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0f43 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f44 0000 0000  |    |		.BLANK	0000[0x4]
0f48 ; --------------------------------------------------------------------------------------
0f48 ; SUBPROGRAM
0f48 ; --------------------------------------------------------------------------------------
0f48 0f4b       | K  |		.CONST	0x0f4b								; Address of begin
0f49 0004       |    |		.CONST	0x0004								; Address of exception handler
0f4a 0001       |    |		.CONST	0x0001								; Number of locals
0f4b			BODY_0f48:
0f4b			INIT_0f48:
0f4b 00da       |    |		Load_Top	At_Offset_2
0f4c e2ce       |    |		Load	0x1,0xce
0f4d e2cf       |    |		Load	0x1,0xcf
0f4e 1dd0       |    |		Execute_Immediate	Reference_Lex_1,0xd0
0f4f e2d1       |    |		Load	0x1,0xd1
0f50 1dd2       |    |		Execute_Immediate	Reference_Lex_1,0xd2
0f51 e00e       |    |		Load	0x0,0xe
0f52 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0f53 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f54 0000 0000  |    |		.BLANK	0000[0x4]
0f58 ; --------------------------------------------------------------------------------------
0f58 ; SUBPROGRAM
0f58 ; --------------------------------------------------------------------------------------
0f58 0f5b       | [  |		.CONST	0x0f5b								; Address of begin
0f59 0004       |    |		.CONST	0x0004								; Address of exception handler
0f5a 0001       |    |		.CONST	0x0001								; Number of locals
0f5b			BODY_0f58:
0f5b			INIT_0f58:
0f5b 00da       |    |		Load_Top	At_Offset_2
0f5c 0217       |    |		Execute	Heap_Access,All_Reference
0f5d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f5e e020       |    |		Load	0x0,0x20
0f5f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0f60 7006       |p   |		Jump_Nonzero	0xf67
0f61 00da       |    |		Load_Top	At_Offset_2
0f62 0217       |    |		Execute	Heap_Access,All_Reference
0f63 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f64 e020       |    |		Load	0x0,0x20
0f65 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f66 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f67 00da       |    |		Load_Top	At_Offset_2
0f68 0217       |    |		Execute	Heap_Access,All_Reference
0f69 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0f6a e020       |    |		Load	0x0,0x20
0f6b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0f6c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f6d 0000 0000  |    |		.XXX[0x3]
0f6f 0000       |    |
0f70 ; --------------------------------------------------------------------------------------
0f70 ; SUBPROGRAM
0f70 ; --------------------------------------------------------------------------------------
0f70 0f75       | u  |		.CONST	0x0f75								; Address of begin
0f71 0004       |    |		.CONST	0x0004								; Address of exception handler
0f72 0002       |    |		.CONST	0x0002								; Number of locals
0f73			INIT_0f70:
0f73 e020       |    |		Load	0x0,0x20
0f74 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f75			BODY_0f70:
0f75 00db       |    |		Load_Top	At_Offset_3
0f76 0217       |    |		Execute	Heap_Access,All_Reference
0f77 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f78 e001       |    |		Load	0x0,0x1
0f79 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0f7a 0216       |    |		Execute	Heap_Access,Convert
0f7b e001       |    |		Load	0x0,0x1
0f7c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0f7d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0f7e 7007       |p   |		Jump_Nonzero	0xf86
0f7f 00db       |    |		Load_Top	At_Offset_3
0f80 0217       |    |		Execute	Heap_Access,All_Reference
0f81 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f82 e001       |    |		Load	0x0,0x1
0f83 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0f84 0216       |    |		Execute	Heap_Access,Convert
0f85 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f86 e5fe       |    |		Load	0x2,-0x2
0f87 e5ff       |    |		Load	0x2,-0x1
0f88 e001       |    |		Load	0x0,0x1
0f89 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0f8a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f8b e020       |    |		Load	0x0,0x20
0f8c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f8d 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0f8e 00d8       |    |		Load_Top	At_Offset_0
0f8f e020       |    |		Load	0x0,0x20
0f90 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0f91 7008       |p   |		Jump_Nonzero	0xf9a
0f92 e5fe       |    |		Load	0x2,-0x2
0f93 00d9       |    |		Load_Top	At_Offset_1
0f94 e025       | %  |		Load	0x0,0x25
0f95 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0f96 e001       |    |		Load	0x0,0x1
0f97 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0f98 0216       |    |		Execute	Heap_Access,Convert
0f99 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f9a e001       |    |		Load	0x0,0x1
0f9b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0f9c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0f9d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f9e 0000 0000  |    |		.XXX[0x2]
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; SUBPROGRAM
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0faa       |    |		.CONST	0x0faa								; Address of begin
0fa1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fa2 0004       |    |		.CONST	0x0004								; Number of locals
0fa3			INIT_0fa0:
0fa3 e228       | (  |		Load	0x1,0x28
0fa4 0007       |    |		Action	Break_Optional
0fa5 e002       |    |		Load	0x0,0x2
0fa6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fa7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0fa8 e01b       |    |		Load	0x0,0x1b
0fa9 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0faa			BODY_0fa0:
0faa 00d9       |    |		Load_Top	At_Offset_1
0fab e228       | (  |		Load	0x1,0x28
0fac e5ff       |    |		Load	0x2,-0x1
0fad e5fe       |    |		Load	0x2,-0x2
0fae 825f       | _  |		Call	0x1,0x5f
0faf 8238       | 8  |		Call	0x1,0x38
0fb0 c402       |    |		Store	0x2,0x2
0fb1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0fb2 00da       |    |		Load_Top	At_Offset_2
0fb3 0217       |    |		Execute	Heap_Access,All_Reference
0fb4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0fb5 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0fb6 00cf       |    |		Action	Mark_Auxiliary
0fb7 780d       |x   |		Jump	0xfc5
0fb8 e5fe       |    |		Load	0x2,-0x2
0fb9 0217       |    |		Execute	Heap_Access,All_Reference
0fba 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0fbb 00da       |    |		Load_Top	At_Offset_2
0fbc 0217       |    |		Execute	Heap_Access,All_Reference
0fbd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0fbe 021f       |    |		Execute	Heap_Access,Equal
0fbf 7007       |p   |		Jump_Nonzero	0xfc7
0fc0 00d9       |    |		Load_Top	At_Offset_1
0fc1 0217       |    |		Execute	Heap_Access,All_Reference
0fc2 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0fc3 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0fc4 00c9       |    |		Action	Pop_Auxiliary_Loop
0fc5 00d9       |    |		Load_Top	At_Offset_1
0fc6 77f1       |w   |		Jump_Nonzero	0xfb8
0fc7 00ce       |    |		Action	Pop_Auxiliary
0fc8 00d8       |    |		Load_Top	At_Offset_0
0fc9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0fca 0000 0000  |    |		.BLANK	0000[0x6]
0fd0 ; --------------------------------------------------------------------------------------
0fd0 ; SUBPROGRAM
0fd0 ; --------------------------------------------------------------------------------------
0fd0 0fd3       |    |		.CONST	0x0fd3								; Address of begin
0fd1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fd2 0001       |    |		.CONST	0x0001								; Number of locals
0fd3			BODY_0fd0:
0fd3			INIT_0fd0:
0fd3 00da       |    |		Load_Top	At_Offset_2
0fd4 0217       |    |		Execute	Heap_Access,All_Reference
0fd5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0fd6 e001       |    |		Load	0x0,0x1
0fd7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fd8 00d9       |    |		Load_Top	At_Offset_1
0fd9 00d0       |    |		Action	Swap_Control
0fda 0260       | `  |		Execute	Discrete,In_Type
0fdb 7001       |p   |		Jump_Nonzero	0xfdd
0fdc 0801       |    |		Execute_Immediate	Raise,0x1
0fdd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0fde 0000 0000  |    |		.XXX[0x2]
0fe0 ; --------------------------------------------------------------------------------------
0fe0 ; SUBPROGRAM
0fe0 ; --------------------------------------------------------------------------------------
0fe0 0fe3       |    |		.CONST	0x0fe3								; Address of begin
0fe1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fe2 0001       |    |		.CONST	0x0001								; Number of locals
0fe3			BODY_0fe0:
0fe3			INIT_0fe0:
0fe3 00db       |    |		Load_Top	At_Offset_3
0fe4 00db       |    |		Load_Top	At_Offset_3
0fe5 0217       |    |		Execute	Heap_Access,All_Reference
0fe6 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0fe7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fe8 ; --------------------------------------------------------------------------------------
0fe8 ; SUBPROGRAM
0fe8 ; --------------------------------------------------------------------------------------
0fe8 0ff6       |    |		.CONST	0x0ff6								; Address of begin
0fe9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fea 0005       |    |		.CONST	0x0005								; Number of locals
0feb			INIT_0fe8:
0feb e00c       |    |		Load	0x0,0xc
0fec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0fed 06ff       |    |		Execute_Immediate	Set_Value_Unchecked,0xff
0fee e00c       |    |		Load	0x0,0xc
0fef 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ff0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0ff1 e5ff       |    |		Load	0x2,-0x1
0ff2 0217       |    |		Execute	Heap_Access,All_Reference
0ff3 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
0ff4 029f 29a3  |  ) |		Declare_Subprogram	INIT_29a0,For_Call
0ff6			BODY_0fe8:
0ff6 00cf       |    |		Action	Mark_Auxiliary
0ff7 7819       |x   |		Jump	0x1011
0ff8 00da       |    |		Load_Top	At_Offset_2
0ff9 0217       |    |		Execute	Heap_Access,All_Reference
0ffa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ffb e402       |    |		Load	0x2,0x2
0ffc 027c       | |  |		Execute	Discrete,Less
0ffd 6804       |h   |		Jump_Zero	0x1002
0ffe 00da       |    |		Load_Top	At_Offset_2
0fff 0217       |    |		Execute	Heap_Access,All_Reference
1000 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1001 a402       |    |		Store_Unchecked	0x2,0x2
1002 00da       |    |		Load_Top	At_Offset_2
1003 0217       |    |		Execute	Heap_Access,All_Reference
1004 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1005 e403       |    |		Load	0x2,0x3
1006 027d       | }  |		Execute	Discrete,Greater
1007 6804       |h   |		Jump_Zero	0x100c
1008 00da       |    |		Load_Top	At_Offset_2
1009 0217       |    |		Execute	Heap_Access,All_Reference
100a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
100b a403       |    |		Store_Unchecked	0x2,0x3
100c 00da       |    |		Load_Top	At_Offset_2
100d 0217       |    |		Execute	Heap_Access,All_Reference
100e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
100f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1010 00c9       |    |		Action	Pop_Auxiliary_Loop
1011 00da       |    |		Load_Top	At_Offset_2
1012 77e5       |w   |		Jump_Nonzero	0xff8
1013 00ce       |    |		Action	Pop_Auxiliary
1014 00db       |    |		Load_Top	At_Offset_3
1015 00db       |    |		Load_Top	At_Offset_3
1016 027c       | |  |		Execute	Discrete,Less
1017 6802       |h   |		Jump_Zero	0x101a
1018 8405       |    |		Call	0x2,0x5
1019 780f       |x   |		Jump	0x1029
101a 00db       |    |		Load_Top	At_Offset_3
101b 00db       |    |		Load_Top	At_Offset_3
101c e00c       |    |		Load	0x0,0xc
101d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
101e 0334       | 4  |		Declare_Variable	Array,With_Constraint
101f 00d8       |    |		Load_Top	At_Offset_0
1020 01d9       |    |		Execute	Vector,Reverse_Bounds
1021 0263       | c  |		Execute	Discrete,Above_Bound
1022 7005       |p   |		Jump_Nonzero	0x1028
1023 4801       |H   |		Short_Literal	0x1
1024 00d9       |    |		Load_Top	At_Offset_1
1025 e406       |    |		Load	0x2,0x6
1026 01d6       |    |		Execute	Vector,Field_Write
1027 3ffb       |?   |		Loop_Increasing	0x1023
1028 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1029 0831       | 1  |		Execute_Immediate	Raise,0x31
102a 0000 0000  |    |		.BLANK	0000[0x6]
1030 ; --------------------------------------------------------------------------------------
1030 ; SUBPROGRAM
1030 ; --------------------------------------------------------------------------------------
1030 1033       | 3  |		.CONST	0x1033								; Address of begin
1031 0004       |    |		.CONST	0x0004								; Address of exception handler
1032 0001       |    |		.CONST	0x0001								; Number of locals
1033			BODY_1030:
1033			INIT_1030:
1033 00db       |    |		Load_Top	At_Offset_3
1034 4800       |H   |		Short_Literal	0x0
1035 e5ff       |    |		Load	0x2,-0x1
1036 82d7       |    |		Call	0x1,0xd7
1037 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1038 ; --------------------------------------------------------------------------------------
1038 ; SUBPROGRAM
1038 ; --------------------------------------------------------------------------------------
1038 103b       | ;  |		.CONST	0x103b								; Address of begin
1039 0004       |    |		.CONST	0x0004								; Address of exception handler
103a 0001       |    |		.CONST	0x0001								; Number of locals
103b			BODY_1038:
103b			INIT_1038:
103b e5fc       |    |		Load	0x2,-0x4
103c e5fd       |    |		Load	0x2,-0x3
103d e5fe       |    |		Load	0x2,-0x2
103e 4800       |H   |		Short_Literal	0x0
103f e5ff       |    |		Load	0x2,-0x1
1040 82d8       |    |		Call	0x1,0xd8
1041 c5fc       |    |		Store	0x2,-0x4
1042 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1043 0000 0000  |    |		.BLANK	0000[0x5]
1048 ; --------------------------------------------------------------------------------------
1048 ; SUBPROGRAM
1048 ; --------------------------------------------------------------------------------------
1048 104b       | K  |		.CONST	0x104b								; Address of begin
1049 0004       |    |		.CONST	0x0004								; Address of exception handler
104a 0001       |    |		.CONST	0x0001								; Number of locals
104b			BODY_1048:
104b			INIT_1048:
104b 00db       |    |		Load_Top	At_Offset_3
104c 4801       |H   |		Short_Literal	0x1
104d e5ff       |    |		Load	0x2,-0x1
104e 82d7       |    |		Call	0x1,0xd7
104f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1050 ; --------------------------------------------------------------------------------------
1050 ; SUBPROGRAM
1050 ; --------------------------------------------------------------------------------------
1050 1053       | S  |		.CONST	0x1053								; Address of begin
1051 0004       |    |		.CONST	0x0004								; Address of exception handler
1052 0001       |    |		.CONST	0x0001								; Number of locals
1053			BODY_1050:
1053			INIT_1050:
1053 e5fc       |    |		Load	0x2,-0x4
1054 e5fd       |    |		Load	0x2,-0x3
1055 e5fe       |    |		Load	0x2,-0x2
1056 4801       |H   |		Short_Literal	0x1
1057 e5ff       |    |		Load	0x2,-0x1
1058 82d8       |    |		Call	0x1,0xd8
1059 c5fc       |    |		Store	0x2,-0x4
105a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
105b 0000 0000  |    |		.BLANK	0000[0x5]
1060 ; --------------------------------------------------------------------------------------
1060 ; SUBPROGRAM
1060 ; --------------------------------------------------------------------------------------
1060 1063       | c  |		.CONST	0x1063								; Address of begin
1061 0004       |    |		.CONST	0x0004								; Address of exception handler
1062 0001       |    |		.CONST	0x0001								; Number of locals
1063			BODY_1060:
1063			INIT_1060:
1063 00db       |    |		Load_Top	At_Offset_3
1064 4802       |H   |		Short_Literal	0x2
1065 e5ff       |    |		Load	0x2,-0x1
1066 82d7       |    |		Call	0x1,0xd7
1067 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 e5fc       |    |		Load	0x2,-0x4
106c e5fd       |    |		Load	0x2,-0x3
106d e5fe       |    |		Load	0x2,-0x2
106e 4802       |H   |		Short_Literal	0x2
106f e5ff       |    |		Load	0x2,-0x1
1070 82d8       |    |		Call	0x1,0xd8
1071 c5fc       |    |		Store	0x2,-0x4
1072 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1073 0000 0000  |    |		.BLANK	0000[0x5]
1078 ; --------------------------------------------------------------------------------------
1078 ; SUBPROGRAM
1078 ; --------------------------------------------------------------------------------------
1078 107b       | {  |		.CONST	0x107b								; Address of begin
1079 0004       |    |		.CONST	0x0004								; Address of exception handler
107a 0001       |    |		.CONST	0x0001								; Number of locals
107b			BODY_1078:
107b			INIT_1078:
107b 00db       |    |		Load_Top	At_Offset_3
107c 4803       |H   |		Short_Literal	0x3
107d e5ff       |    |		Load	0x2,-0x1
107e 82d7       |    |		Call	0x1,0xd7
107f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fc       |    |		Load	0x2,-0x4
1084 e5fd       |    |		Load	0x2,-0x3
1085 e5fe       |    |		Load	0x2,-0x2
1086 4803       |H   |		Short_Literal	0x3
1087 e5ff       |    |		Load	0x2,-0x1
1088 82d8       |    |		Call	0x1,0xd8
1089 c5fc       |    |		Store	0x2,-0x4
108a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
108b 0000 0000  |    |		.BLANK	0000[0x5]
1090 ; --------------------------------------------------------------------------------------
1090 ; SUBPROGRAM
1090 ; --------------------------------------------------------------------------------------
1090 1093       |    |		.CONST	0x1093								; Address of begin
1091 0004       |    |		.CONST	0x0004								; Address of exception handler
1092 0001       |    |		.CONST	0x0001								; Number of locals
1093			BODY_1090:
1093			INIT_1090:
1093 00da       |    |		Load_Top	At_Offset_2
1094 0217       |    |		Execute	Heap_Access,All_Reference
1095 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
1096 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1097 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3
109d 0217       |    |		Execute	Heap_Access,All_Reference
109e 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
109f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00db       |    |		Load_Top	At_Offset_3
10a4 4805       |H   |		Short_Literal	0x5
10a5 e5ff       |    |		Load	0x2,-0x1
10a6 82d9       |    |		Call	0x1,0xd9
10a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10a8 ; --------------------------------------------------------------------------------------
10a8 ; SUBPROGRAM
10a8 ; --------------------------------------------------------------------------------------
10a8 10ab       |    |		.CONST	0x10ab								; Address of begin
10a9 0004       |    |		.CONST	0x0004								; Address of exception handler
10aa 0001       |    |		.CONST	0x0001								; Number of locals
10ab			BODY_10a8:
10ab			INIT_10a8:
10ab e5fc       |    |		Load	0x2,-0x4
10ac e5fd       |    |		Load	0x2,-0x3
10ad e5fe       |    |		Load	0x2,-0x2
10ae 4805       |H   |		Short_Literal	0x5
10af e5ff       |    |		Load	0x2,-0x1
10b0 82da       |    |		Call	0x1,0xda
10b1 c5fc       |    |		Store	0x2,-0x4
10b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
10b3 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
10bc 0217       |    |		Execute	Heap_Access,All_Reference
10bd 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
10be e020       |    |		Load	0x0,0x20
10bf 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
10c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
10c1 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fe       |    |		Load	0x2,-0x2
10cd e020       |    |		Load	0x0,0x20
10ce 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
10cf 00db       |    |		Load_Top	At_Offset_3
10d0 0217       |    |		Execute	Heap_Access,All_Reference
10d1 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
10d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
10d3 0000 0000  |    |		.BLANK	0000[0x5]
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 4804       |H   |		Short_Literal	0x4
10dd e5ff       |    |		Load	0x2,-0x1
10de 82d7       |    |		Call	0x1,0xd7
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 4804       |H   |		Short_Literal	0x4
10e7 e5ff       |    |		Load	0x2,-0x1
10e8 82d8       |    |		Call	0x1,0xd8
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 00db       |    |		Load_Top	At_Offset_3
10f4 4806       |H   |		Short_Literal	0x6
10f5 e5ff       |    |		Load	0x2,-0x1
10f6 82d9       |    |		Call	0x1,0xd9
10f7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10f8 ; --------------------------------------------------------------------------------------
10f8 ; SUBPROGRAM
10f8 ; --------------------------------------------------------------------------------------
10f8 1100       |    |		.CONST	0x1100								; Address of begin
10f9 0004       |    |		.CONST	0x0004								; Address of exception handler
10fa 0003       |    |		.CONST	0x0003								; Number of locals
10fb			INIT_10f8:
10fb e01b       |    |		Load	0x0,0x1b
10fc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
10fd e002       |    |		Load	0x0,0x2
10fe 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
10ff 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1100			BODY_10f8:
1100 00d8       |    |		Load_Top	At_Offset_0
1101 e01b       |    |		Load	0x0,0x1b
1102 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1103 4801       |H   |		Short_Literal	0x1
1104 e5fd       |    |		Load	0x2,-0x3
1105 e5ff       |    |		Load	0x2,-0x1
1106 82d5       |    |		Call	0x1,0xd5
1107 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1108 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1109 00d8       |    |		Load_Top	At_Offset_0
110a 7049       |pI  |		Jump_Nonzero	0x1154
110b e5fe       |    |		Load	0x2,-0x2
110c 00da       |    |		Load_Top	At_Offset_2
110d 0217       |    |		Execute	Heap_Access,All_Reference
110e 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
110f 027e       | ~  |		Execute	Discrete,Not_Equal
1110 6842       |hB  |		Jump_Zero	0x1153
1111 e5ff       |    |		Load	0x2,-0x1
1112 8224       | $  |		Call	0x1,0x24
1113 7022       |p"  |		Jump_Nonzero	0x1136
1114 e5fe       |    |		Load	0x2,-0x2
1115 00da       |    |		Load_Top	At_Offset_2
1116 0217       |    |		Execute	Heap_Access,All_Reference
1117 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
1118 00d9       |    |		Load_Top	At_Offset_1
1119 0217       |    |		Execute	Heap_Access,All_Reference
111a 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
111b 680c       |h   |		Jump_Zero	0x1128
111c 00d9       |    |		Load_Top	At_Offset_1
111d 0219       |    |		Execute	Heap_Access,All_Read
111e 00d8       |    |		Load_Top	At_Offset_0
111f 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1120 e5ff       |    |		Load	0x2,-0x1
1121 4800       |H   |		Short_Literal	0x0
1122 e02b       | +  |		Load	0x0,0x2b
1123 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1124 00d9       |    |		Load_Top	At_Offset_1
1125 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
1126 00d1       |    |		Pop_Control	Pop_Count_1
1127 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1128 00d9       |    |		Load_Top	At_Offset_1
1129 0219       |    |		Execute	Heap_Access,All_Read
112a 00d8       |    |		Load_Top	At_Offset_0
112b 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
112c e5ff       |    |		Load	0x2,-0x1
112d e402       |    |		Load	0x2,0x2
112e 0217       |    |		Execute	Heap_Access,All_Reference
112f 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
1130 e02b       | +  |		Load	0x0,0x2b
1131 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1132 00d9       |    |		Load_Top	At_Offset_1
1133 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
1134 00d1       |    |		Pop_Control	Pop_Count_1
1135 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1136 e002       |    |		Load	0x0,0x2
1137 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1138 4801       |H   |		Short_Literal	0x1
1139 4803       |H   |		Short_Literal	0x3
113a e00e       |    |		Load	0x0,0xe
113b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
113c 0334       | 4  |		Declare_Variable	Array,With_Constraint
113d e5ff       |    |		Load	0x2,-0x1
113e 825a       | Z  |		Call	0x1,0x5a
113f 4801       |H   |		Short_Literal	0x1
1140 00da       |    |		Load_Top	At_Offset_2
1141 01d6       |    |		Execute	Vector,Field_Write
1142 e5fd       |    |		Load	0x2,-0x3
1143 e00c       |    |		Load	0x0,0xc
1144 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1145 4802       |H   |		Short_Literal	0x2
1146 00da       |    |		Load_Top	At_Offset_2
1147 01d6       |    |		Execute	Vector,Field_Write
1148 e5ff       |    |		Load	0x2,-0x1
1149 8224       | $  |		Call	0x1,0x24
114a e00e       |    |		Load	0x0,0xe
114b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
114c 4803       |H   |		Short_Literal	0x3
114d 00da       |    |		Load_Top	At_Offset_2
114e 01d6       |    |		Execute	Vector,Field_Write
114f 601c       |`   |		Indirect_Literal	Discrete,0x116c,{0x00000000, 0x00002835}
1150 e002       |    |		Load	0x0,0x2
1151 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1152 c5fc       |    |		Store	0x2,-0x4
1153 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1154 e002       |    |		Load	0x0,0x2
1155 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1156 4801       |H   |		Short_Literal	0x1
1157 4802       |H   |		Short_Literal	0x2
1158 e00e       |    |		Load	0x0,0xe
1159 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
115a 0334       | 4  |		Declare_Variable	Array,With_Constraint
115b e5ff       |    |		Load	0x2,-0x1
115c 825a       | Z  |		Call	0x1,0x5a
115d 4801       |H   |		Short_Literal	0x1
115e 00da       |    |		Load_Top	At_Offset_2
115f 01d6       |    |		Execute	Vector,Field_Write
1160 e5fd       |    |		Load	0x2,-0x3
1161 e00c       |    |		Load	0x0,0xc
1162 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1163 4802       |H   |		Short_Literal	0x2
1164 00da       |    |		Load_Top	At_Offset_2
1165 01d6       |    |		Execute	Vector,Field_Write
1166 00da       |    |		Load_Top	At_Offset_2
1167 e002       |    |		Load	0x0,0x2
1168 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1169 c5fc       |    |		Store	0x2,-0x4
116a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
116b 0000       |    |		.XXX[0x1]
116c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002835}
1170 ; --------------------------------------------------------------------------------------
1170 ; SUBPROGRAM
1170 ; --------------------------------------------------------------------------------------
1170 1178       | x  |		.CONST	0x1178								; Address of begin
1171 0004       |    |		.CONST	0x0004								; Address of exception handler
1172 0003       |    |		.CONST	0x0003								; Number of locals
1173			INIT_1170:
1173 e01b       |    |		Load	0x0,0x1b
1174 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1175 e002       |    |		Load	0x0,0x2
1176 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1177 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1178			BODY_1170:
1178 00d8       |    |		Load_Top	At_Offset_0
1179 e01b       |    |		Load	0x0,0x1b
117a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
117b 4800       |H   |		Short_Literal	0x0
117c e5fe       |    |		Load	0x2,-0x2
117d e5ff       |    |		Load	0x2,-0x1
117e 82d5       |    |		Call	0x1,0xd5
117f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1180 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1181 00d8       |    |		Load_Top	At_Offset_0
1182 7009       |p   |		Jump_Nonzero	0x118c
1183 00d9       |    |		Load_Top	At_Offset_1
1184 0217       |    |		Execute	Heap_Access,All_Reference
1185 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
1186 00d8       |    |		Load_Top	At_Offset_0
1187 00e4       |    |		Load_Encached	Positive_Cache
1188 0260       | `  |		Execute	Discrete,In_Type
1189 7001       |p   |		Jump_Nonzero	0x118b
118a 0801       |    |		Execute_Immediate	Raise,0x1
118b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
118c 00d8       |    |		Load_Top	At_Offset_0
118d 6022       |`"  |		Indirect_Literal	Discrete,0x11b0,{0x00000000, 0x0000281c}
118e 027f       |    |		Execute	Discrete,Equal
118f 6807       |h   |		Jump_Zero	0x1197
1190 4800       |H   |		Short_Literal	0x0
1191 00d8       |    |		Load_Top	At_Offset_0
1192 00e4       |    |		Load_Encached	Positive_Cache
1193 0260       | `  |		Execute	Discrete,In_Type
1194 7001       |p   |		Jump_Nonzero	0x1196
1195 0801       |    |		Execute_Immediate	Raise,0x1
1196 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1197 4801       |H   |		Short_Literal	0x1
1198 4802       |H   |		Short_Literal	0x2
1199 e00e       |    |		Load	0x0,0xe
119a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
119b 0334       | 4  |		Declare_Variable	Array,With_Constraint
119c e5ff       |    |		Load	0x2,-0x1
119d 825a       | Z  |		Call	0x1,0x5a
119e 4801       |H   |		Short_Literal	0x1
119f 00da       |    |		Load_Top	At_Offset_2
11a0 01d6       |    |		Execute	Vector,Field_Write
11a1 e5fe       |    |		Load	0x2,-0x2
11a2 e00c       |    |		Load	0x0,0xc
11a3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
11a4 4802       |H   |		Short_Literal	0x2
11a5 00da       |    |		Load_Top	At_Offset_2
11a6 01d6       |    |		Execute	Vector,Field_Write
11a7 00d9       |    |		Load_Top	At_Offset_1
11a8 e002       |    |		Load	0x0,0x2
11a9 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
11aa 00d8       |    |		Load_Top	At_Offset_0
11ab 00e4       |    |		Load_Encached	Positive_Cache
11ac 0260       | `  |		Execute	Discrete,In_Type
11ad 7001       |p   |		Jump_Nonzero	0x11af
11ae 0801       |    |		Execute_Immediate	Raise,0x1
11af 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
11b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
11b4 0000 0000  |    |		.BLANK	0000[0x4]
11b8 ; --------------------------------------------------------------------------------------
11b8 ; SUBPROGRAM
11b8 ; --------------------------------------------------------------------------------------
11b8 11c0       |    |		.CONST	0x11c0								; Address of begin
11b9 0004       |    |		.CONST	0x0004								; Address of exception handler
11ba 0003       |    |		.CONST	0x0003								; Number of locals
11bb			INIT_11b8:
11bb e01b       |    |		Load	0x0,0x1b
11bc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
11bd e002       |    |		Load	0x0,0x2
11be 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
11bf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
11c0			BODY_11b8:
11c0 00d8       |    |		Load_Top	At_Offset_0
11c1 4802       |H   |		Short_Literal	0x2
11c2 e5ff       |    |		Load	0x2,-0x1
11c3 e01b       |    |		Load	0x0,0x1b
11c4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
11c5 0059       | Y  |		Store_Top	Discrete,At_Offset_1
11c6 00d8       |    |		Load_Top	At_Offset_0
11c7 7021       |p!  |		Jump_Nonzero	0x11e9
11c8 00d8       |    |		Load_Top	At_Offset_0
11c9 e01b       |    |		Load	0x0,0x1b
11ca 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
11cb 4801       |H   |		Short_Literal	0x1
11cc e5fd       |    |		Load	0x2,-0x3
11cd e5ff       |    |		Load	0x2,-0x1
11ce 82d5       |    |		Call	0x1,0xd5
11cf 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
11d0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
11d1 00d8       |    |		Load_Top	At_Offset_0
11d2 7016       |p   |		Jump_Nonzero	0x11e9
11d3 00d9       |    |		Load_Top	At_Offset_1
11d4 0217       |    |		Execute	Heap_Access,All_Reference
11d5 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
11d6 6803       |h   |		Jump_Zero	0x11da
11d7 6028       |`(  |		Indirect_Literal	Discrete,0x1200,{0x00000000, 0x0000282f}
11d8 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
11d9 780f       |x   |		Jump	0x11e9
11da e5fe       |    |		Load	0x2,-0x2
11db 00da       |    |		Load_Top	At_Offset_2
11dc 0217       |    |		Execute	Heap_Access,All_Reference
11dd 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
11de 00d9       |    |		Load_Top	At_Offset_1
11df 0219       |    |		Execute	Heap_Access,All_Read
11e0 00d8       |    |		Load_Top	At_Offset_0
11e1 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
11e2 e5ff       |    |		Load	0x2,-0x1
11e3 e5fe       |    |		Load	0x2,-0x2
11e4 e02b       | +  |		Load	0x0,0x2b
11e5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
11e6 00d9       |    |		Load_Top	At_Offset_1
11e7 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
11e8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
11e9 e002       |    |		Load	0x0,0x2
11ea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
11eb 4801       |H   |		Short_Literal	0x1
11ec 4802       |H   |		Short_Literal	0x2
11ed e00e       |    |		Load	0x0,0xe
11ee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
11ef 0334       | 4  |		Declare_Variable	Array,With_Constraint
11f0 e5ff       |    |		Load	0x2,-0x1
11f1 825a       | Z  |		Call	0x1,0x5a
11f2 4801       |H   |		Short_Literal	0x1
11f3 00da       |    |		Load_Top	At_Offset_2
11f4 01d6       |    |		Execute	Vector,Field_Write
11f5 e5fd       |    |		Load	0x2,-0x3
11f6 e00c       |    |		Load	0x0,0xc
11f7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
11f8 4802       |H   |		Short_Literal	0x2
11f9 00da       |    |		Load_Top	At_Offset_2
11fa 01d6       |    |		Execute	Vector,Field_Write
11fb 00da       |    |		Load_Top	At_Offset_2
11fc e002       |    |		Load	0x0,0x2
11fd 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
11fe c5fc       |    |		Store	0x2,-0x4
11ff 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1200 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282f}
1204 0000 0000  |    |		.BLANK	0000[0x4]
1208 ; --------------------------------------------------------------------------------------
1208 ; SUBPROGRAM
1208 ; --------------------------------------------------------------------------------------
1208 1210       |    |		.CONST	0x1210								; Address of begin
1209 0004       |    |		.CONST	0x0004								; Address of exception handler
120a 0003       |    |		.CONST	0x0003								; Number of locals
120b			INIT_1208:
120b e01b       |    |		Load	0x0,0x1b
120c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
120d e002       |    |		Load	0x0,0x2
120e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
120f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1210			BODY_1208:
1210 00d8       |    |		Load_Top	At_Offset_0
1211 4800       |H   |		Short_Literal	0x0
1212 e5ff       |    |		Load	0x2,-0x1
1213 e01b       |    |		Load	0x0,0x1b
1214 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1215 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1216 00d8       |    |		Load_Top	At_Offset_0
1217 7017       |p   |		Jump_Nonzero	0x122f
1218 00d8       |    |		Load_Top	At_Offset_0
1219 e01b       |    |		Load	0x0,0x1b
121a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
121b 4800       |H   |		Short_Literal	0x0
121c e5fe       |    |		Load	0x2,-0x2
121d e5ff       |    |		Load	0x2,-0x1
121e 82d5       |    |		Call	0x1,0xd5
121f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
1220 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1221 00d8       |    |		Load_Top	At_Offset_0
1222 7006       |p   |		Jump_Nonzero	0x1229
1223 00d9       |    |		Load_Top	At_Offset_1
1224 0217       |    |		Execute	Heap_Access,All_Reference
1225 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1226 e02b       | +  |		Load	0x0,0x2b
1227 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1228 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1229 00d8       |    |		Load_Top	At_Offset_0
122a 601d       |`   |		Indirect_Literal	Discrete,0x1248,{0x00000000, 0x0000281c}
122b 027f       |    |		Execute	Discrete,Equal
122c 6802       |h   |		Jump_Zero	0x122f
122d 4800       |H   |		Short_Literal	0x0
122e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
122f 4801       |H   |		Short_Literal	0x1
1230 4802       |H   |		Short_Literal	0x2
1231 e00e       |    |		Load	0x0,0xe
1232 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1233 0334       | 4  |		Declare_Variable	Array,With_Constraint
1234 e5ff       |    |		Load	0x2,-0x1
1235 825a       | Z  |		Call	0x1,0x5a
1236 4801       |H   |		Short_Literal	0x1
1237 00da       |    |		Load_Top	At_Offset_2
1238 01d6       |    |		Execute	Vector,Field_Write
1239 e5fe       |    |		Load	0x2,-0x2
123a e00c       |    |		Load	0x0,0xc
123b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
123c 4802       |H   |		Short_Literal	0x2
123d 00da       |    |		Load_Top	At_Offset_2
123e 01d6       |    |		Execute	Vector,Field_Write
123f 00d9       |    |		Load_Top	At_Offset_1
1240 e002       |    |		Load	0x0,0x2
1241 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
1242 00d8       |    |		Load_Top	At_Offset_0
1243 00e3       |    |		Load_Encached	Natural_Cache
1244 0260       | `  |		Execute	Discrete,In_Type
1245 7001       |p   |		Jump_Nonzero	0x1247
1246 0801       |    |		Execute_Immediate	Raise,0x1
1247 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1248 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
124c 0000 0000  |    |		.BLANK	0000[0x4]
1250 ; --------------------------------------------------------------------------------------
1250 ; SUBPROGRAM
1250 ; --------------------------------------------------------------------------------------
1250 125a       | Z  |		.CONST	0x125a								; Address of begin
1251 0004       |    |		.CONST	0x0004								; Address of exception handler
1252 0004       |    |		.CONST	0x0004								; Number of locals
1253			INIT_1250:
1253 e01b       |    |		Load	0x0,0x1b
1254 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1255 e002       |    |		Load	0x0,0x2
1256 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1257 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1258 029f 29db  |  ) |		Declare_Subprogram	INIT_29d8,For_Call
125a			BODY_1250:
125a 00d9       |    |		Load_Top	At_Offset_1
125b 4802       |H   |		Short_Literal	0x2
125c e5ff       |    |		Load	0x2,-0x1
125d e01b       |    |		Load	0x0,0x1b
125e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
125f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1260 00d9       |    |		Load_Top	At_Offset_1
1261 7020       |p   |		Jump_Nonzero	0x1282
1262 00d9       |    |		Load_Top	At_Offset_1
1263 e01b       |    |		Load	0x0,0x1b
1264 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1265 4801       |H   |		Short_Literal	0x1
1266 e5fc       |    |		Load	0x2,-0x4
1267 e5ff       |    |		Load	0x2,-0x1
1268 82d5       |    |		Call	0x1,0xd5
1269 c402       |    |		Store	0x2,0x2
126a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
126b 00d9       |    |		Load_Top	At_Offset_1
126c 7015       |p   |		Jump_Nonzero	0x1282
126d 00da       |    |		Load_Top	At_Offset_2
126e 0217       |    |		Execute	Heap_Access,All_Reference
126f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1270 6802       |h   |		Jump_Zero	0x1273
1271 8404       |    |		Call	0x2,0x4
1272 780f       |x   |		Jump	0x1282
1273 00da       |    |		Load_Top	At_Offset_2
1274 0219       |    |		Execute	Heap_Access,All_Read
1275 00da       |    |		Load_Top	At_Offset_2
1276 00d9       |    |		Load_Top	At_Offset_1
1277 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1278 e5fe       |    |		Load	0x2,-0x2
1279 e02b       | +  |		Load	0x0,0x2b
127a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
127b 00da       |    |		Load_Top	At_Offset_2
127c 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
127d 005b       | [  |		Store_Top	Discrete,At_Offset_3
127e 00d1       |    |		Pop_Control	Pop_Count_1
127f 00d9       |    |		Load_Top	At_Offset_1
1280 7001       |p   |		Jump_Nonzero	0x1282
1281 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
1282 e002       |    |		Load	0x0,0x2
1283 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1284 4801       |H   |		Short_Literal	0x1
1285 4802       |H   |		Short_Literal	0x2
1286 e00e       |    |		Load	0x0,0xe
1287 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1288 0334       | 4  |		Declare_Variable	Array,With_Constraint
1289 e5ff       |    |		Load	0x2,-0x1
128a 825a       | Z  |		Call	0x1,0x5a
128b 4801       |H   |		Short_Literal	0x1
128c 00da       |    |		Load_Top	At_Offset_2
128d 01d6       |    |		Execute	Vector,Field_Write
128e e5fc       |    |		Load	0x2,-0x4
128f e00c       |    |		Load	0x0,0xc
1290 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1291 4802       |H   |		Short_Literal	0x2
1292 00da       |    |		Load_Top	At_Offset_2
1293 01d6       |    |		Execute	Vector,Field_Write
1294 00db       |    |		Load_Top	At_Offset_3
1295 e002       |    |		Load	0x0,0x2
1296 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1297 c5fb       |    |		Store	0x2,-0x5
1298 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
1299 0000 0000  |    |		.BLANK	0000[0x7]
12a0 ; --------------------------------------------------------------------------------------
12a0 ; SUBPROGRAM
12a0 ; --------------------------------------------------------------------------------------
12a0 12ad       |    |		.CONST	0x12ad								; Address of begin
12a1 0004       |    |		.CONST	0x0004								; Address of exception handler
12a2 0004       |    |		.CONST	0x0004								; Number of locals
12a3			INIT_12a0:
12a3 e01b       |    |		Load	0x0,0x1b
12a4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
12a5 e002       |    |		Load	0x0,0x2
12a6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
12a7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
12a8 e004       |    |		Load	0x0,0x4
12a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12aa 02c7       |    |		Declare_Variable	Any
12ab 00d8       |    |		Load_Top	At_Offset_0
12ac 1c00       |    |		Execute_Immediate	Run_Utility,0x0
12ad			BODY_12a0:
12ad 00d9       |    |		Load_Top	At_Offset_1
12ae 4800       |H   |		Short_Literal	0x0
12af e5ff       |    |		Load	0x2,-0x1
12b0 e01b       |    |		Load	0x0,0x1b
12b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12b2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
12b3 00d9       |    |		Load_Top	At_Offset_1
12b4 702d       |p-  |		Jump_Nonzero	0x12e2
12b5 00d9       |    |		Load_Top	At_Offset_1
12b6 e01b       |    |		Load	0x0,0x1b
12b7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
12b8 4800       |H   |		Short_Literal	0x0
12b9 e5fd       |    |		Load	0x2,-0x3
12ba e5ff       |    |		Load	0x2,-0x1
12bb 82d5       |    |		Call	0x1,0xd5
12bc c402       |    |		Store	0x2,0x2
12bd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
12be 00d9       |    |		Load_Top	At_Offset_1
12bf 701b       |p   |		Jump_Nonzero	0x12db
12c0 00da       |    |		Load_Top	At_Offset_2
12c1 0219       |    |		Execute	Heap_Access,All_Read
12c2 00da       |    |		Load_Top	At_Offset_2
12c3 00da       |    |		Load_Top	At_Offset_2
12c4 0120       |    |		Execute	Any,Is_Value
12c5 6803       |h   |		Jump_Zero	0x12c9
12c6 e004       |    |		Load	0x0,0x4
12c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
12c8 7801       |x   |		Jump	0x12ca
12c9 00da       |    |		Load_Top	At_Offset_2
12ca 00da       |    |		Load_Top	At_Offset_2
12cb 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
12cc e5fe       |    |		Load	0x2,-0x2
12cd e02b       | +  |		Load	0x0,0x2b
12ce 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12cf 00db       |    |		Load_Top	At_Offset_3
12d0 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
12d1 c404       |    |		Store	0x2,0x4
12d2 005b       | [  |		Store_Top	Discrete,At_Offset_3
12d3 00d1       |    |		Pop_Control	Pop_Count_1
12d4 00d9       |    |		Load_Top	At_Offset_1
12d5 7002       |p   |		Jump_Nonzero	0x12d8
12d6 00d8       |    |		Load_Top	At_Offset_0
12d7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
12d8 e003       |    |		Load	0x0,0x3
12d9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
12da 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
12db 00d9       |    |		Load_Top	At_Offset_1
12dc 601b       |`   |		Indirect_Literal	Discrete,0x12f8,{0x00000000, 0x0000281c}
12dd 027f       |    |		Execute	Discrete,Equal
12de 6803       |h   |		Jump_Zero	0x12e2
12df e003       |    |		Load	0x0,0x3
12e0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
12e1 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
12e2 4801       |H   |		Short_Literal	0x1
12e3 4802       |H   |		Short_Literal	0x2
12e4 e00e       |    |		Load	0x0,0xe
12e5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
12e6 0334       | 4  |		Declare_Variable	Array,With_Constraint
12e7 e5ff       |    |		Load	0x2,-0x1
12e8 825a       | Z  |		Call	0x1,0x5a
12e9 4801       |H   |		Short_Literal	0x1
12ea 00da       |    |		Load_Top	At_Offset_2
12eb 01d6       |    |		Execute	Vector,Field_Write
12ec e5fd       |    |		Load	0x2,-0x3
12ed e00c       |    |		Load	0x0,0xc
12ee 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
12ef 4802       |H   |		Short_Literal	0x2
12f0 00da       |    |		Load_Top	At_Offset_2
12f1 01d6       |    |		Execute	Vector,Field_Write
12f2 00da       |    |		Load_Top	At_Offset_2
12f3 e002       |    |		Load	0x0,0x2
12f4 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
12f5 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
12f6 0000 0000  |    |		.XXX[0x2]
12f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
12fc 0000 0000  |    |		.BLANK	0000[0x4]
1300 ; --------------------------------------------------------------------------------------
1300 ; SUBPROGRAM
1300 ; --------------------------------------------------------------------------------------
1300 130a       |    |		.CONST	0x130a								; Address of begin
1301 0004       |    |		.CONST	0x0004								; Address of exception handler
1302 0004       |    |		.CONST	0x0004								; Number of locals
1303			INIT_1300:
1303 e01b       |    |		Load	0x0,0x1b
1304 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1305 e002       |    |		Load	0x0,0x2
1306 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1307 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1308 029f 29fb  |  ) |		Declare_Subprogram	INIT_29f8,For_Call
130a			BODY_1300:
130a 00d9       |    |		Load_Top	At_Offset_1
130b 4802       |H   |		Short_Literal	0x2
130c e5ff       |    |		Load	0x2,-0x1
130d e01b       |    |		Load	0x0,0x1b
130e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
130f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1310 00d9       |    |		Load_Top	At_Offset_1
1311 7021       |p!  |		Jump_Nonzero	0x1333
1312 00d9       |    |		Load_Top	At_Offset_1
1313 e01b       |    |		Load	0x0,0x1b
1314 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1315 4801       |H   |		Short_Literal	0x1
1316 e5fb       |    |		Load	0x2,-0x5
1317 e5ff       |    |		Load	0x2,-0x1
1318 82d5       |    |		Call	0x1,0xd5
1319 c402       |    |		Store	0x2,0x2
131a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
131b 00d9       |    |		Load_Top	At_Offset_1
131c 7016       |p   |		Jump_Nonzero	0x1333
131d 00da       |    |		Load_Top	At_Offset_2
131e 0217       |    |		Execute	Heap_Access,All_Reference
131f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1320 6802       |h   |		Jump_Zero	0x1323
1321 8404       |    |		Call	0x2,0x4
1322 7810       |x   |		Jump	0x1333
1323 00da       |    |		Load_Top	At_Offset_2
1324 0219       |    |		Execute	Heap_Access,All_Read
1325 00da       |    |		Load_Top	At_Offset_2
1326 00d9       |    |		Load_Top	At_Offset_1
1327 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1328 e5fe       |    |		Load	0x2,-0x2
1329 e5fd       |    |		Load	0x2,-0x3
132a e02b       | +  |		Load	0x0,0x2b
132b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
132c 00da       |    |		Load_Top	At_Offset_2
132d 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
132e 005b       | [  |		Store_Top	Discrete,At_Offset_3
132f 00d1       |    |		Pop_Control	Pop_Count_1
1330 00d9       |    |		Load_Top	At_Offset_1
1331 7001       |p   |		Jump_Nonzero	0x1333
1332 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
1333 e002       |    |		Load	0x0,0x2
1334 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1335 4801       |H   |		Short_Literal	0x1
1336 4802       |H   |		Short_Literal	0x2
1337 e00e       |    |		Load	0x0,0xe
1338 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1339 0334       | 4  |		Declare_Variable	Array,With_Constraint
133a e5ff       |    |		Load	0x2,-0x1
133b 825a       | Z  |		Call	0x1,0x5a
133c 4801       |H   |		Short_Literal	0x1
133d 00da       |    |		Load_Top	At_Offset_2
133e 01d6       |    |		Execute	Vector,Field_Write
133f e5fb       |    |		Load	0x2,-0x5
1340 e00c       |    |		Load	0x0,0xc
1341 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1342 4802       |H   |		Short_Literal	0x2
1343 00da       |    |		Load_Top	At_Offset_2
1344 01d6       |    |		Execute	Vector,Field_Write
1345 00db       |    |		Load_Top	At_Offset_3
1346 e002       |    |		Load	0x0,0x2
1347 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1348 c5fa       |    |		Store	0x2,-0x6
1349 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
134a 0000 0000  |    |		.BLANK	0000[0x6]
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 135a       | Z  |		.CONST	0x135a								; Address of begin
1351 0004       |    |		.CONST	0x0004								; Address of exception handler
1352 0004       |    |		.CONST	0x0004								; Number of locals
1353			INIT_1350:
1353 e01b       |    |		Load	0x0,0x1b
1354 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1355 e002       |    |		Load	0x0,0x2
1356 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1357 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1358 029f 2a1b  |  * |		Declare_Subprogram	INIT_2a18,For_Call
135a			BODY_1350:
135a 00d9       |    |		Load_Top	At_Offset_1
135b 4802       |H   |		Short_Literal	0x2
135c e5ff       |    |		Load	0x2,-0x1
135d e01b       |    |		Load	0x0,0x1b
135e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
135f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1360 00d9       |    |		Load_Top	At_Offset_1
1361 7020       |p   |		Jump_Nonzero	0x1382
1362 00d9       |    |		Load_Top	At_Offset_1
1363 e01b       |    |		Load	0x0,0x1b
1364 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1365 4801       |H   |		Short_Literal	0x1
1366 e5fc       |    |		Load	0x2,-0x4
1367 e5ff       |    |		Load	0x2,-0x1
1368 82d5       |    |		Call	0x1,0xd5
1369 c402       |    |		Store	0x2,0x2
136a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
136b 00d9       |    |		Load_Top	At_Offset_1
136c 7015       |p   |		Jump_Nonzero	0x1382
136d 00da       |    |		Load_Top	At_Offset_2
136e 0217       |    |		Execute	Heap_Access,All_Reference
136f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1370 6802       |h   |		Jump_Zero	0x1373
1371 8404       |    |		Call	0x2,0x4
1372 780f       |x   |		Jump	0x1382
1373 00da       |    |		Load_Top	At_Offset_2
1374 0219       |    |		Execute	Heap_Access,All_Read
1375 00da       |    |		Load_Top	At_Offset_2
1376 00d9       |    |		Load_Top	At_Offset_1
1377 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
1378 e5fe       |    |		Load	0x2,-0x2
1379 e02b       | +  |		Load	0x0,0x2b
137a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
137b 00da       |    |		Load_Top	At_Offset_2
137c 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
137d 005b       | [  |		Store_Top	Discrete,At_Offset_3
137e 00d1       |    |		Pop_Control	Pop_Count_1
137f 00d9       |    |		Load_Top	At_Offset_1
1380 7001       |p   |		Jump_Nonzero	0x1382
1381 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
1382 e002       |    |		Load	0x0,0x2
1383 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1384 4801       |H   |		Short_Literal	0x1
1385 4802       |H   |		Short_Literal	0x2
1386 e00e       |    |		Load	0x0,0xe
1387 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1388 0334       | 4  |		Declare_Variable	Array,With_Constraint
1389 e5ff       |    |		Load	0x2,-0x1
138a 825a       | Z  |		Call	0x1,0x5a
138b 4801       |H   |		Short_Literal	0x1
138c 00da       |    |		Load_Top	At_Offset_2
138d 01d6       |    |		Execute	Vector,Field_Write
138e e5fc       |    |		Load	0x2,-0x4
138f e00c       |    |		Load	0x0,0xc
1390 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1391 4802       |H   |		Short_Literal	0x2
1392 00da       |    |		Load_Top	At_Offset_2
1393 01d6       |    |		Execute	Vector,Field_Write
1394 00db       |    |		Load_Top	At_Offset_3
1395 e002       |    |		Load	0x0,0x2
1396 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1397 c5fb       |    |		Store	0x2,-0x5
1398 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
1399 0000 0000  |    |		.BLANK	0000[0x7]
13a0 ; --------------------------------------------------------------------------------------
13a0 ; SUBPROGRAM
13a0 ; --------------------------------------------------------------------------------------
13a0 13aa       |    |		.CONST	0x13aa								; Address of begin
13a1 0004       |    |		.CONST	0x0004								; Address of exception handler
13a2 0004       |    |		.CONST	0x0004								; Number of locals
13a3			INIT_13a0:
13a3 e01b       |    |		Load	0x0,0x1b
13a4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
13a5 e002       |    |		Load	0x0,0x2
13a6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
13a7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
13a8 029f 2a3b  |  *;|		Declare_Subprogram	INIT_2a38,For_Call
13aa			BODY_13a0:
13aa 00d9       |    |		Load_Top	At_Offset_1
13ab 4802       |H   |		Short_Literal	0x2
13ac e5ff       |    |		Load	0x2,-0x1
13ad e01b       |    |		Load	0x0,0x1b
13ae 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
13af 005a       | Z  |		Store_Top	Discrete,At_Offset_2
13b0 00d9       |    |		Load_Top	At_Offset_1
13b1 7020       |p   |		Jump_Nonzero	0x13d2
13b2 00d9       |    |		Load_Top	At_Offset_1
13b3 e01b       |    |		Load	0x0,0x1b
13b4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
13b5 4801       |H   |		Short_Literal	0x1
13b6 e5fc       |    |		Load	0x2,-0x4
13b7 e5ff       |    |		Load	0x2,-0x1
13b8 82d5       |    |		Call	0x1,0xd5
13b9 c402       |    |		Store	0x2,0x2
13ba 005a       | Z  |		Store_Top	Discrete,At_Offset_2
13bb 00d9       |    |		Load_Top	At_Offset_1
13bc 7015       |p   |		Jump_Nonzero	0x13d2
13bd 00da       |    |		Load_Top	At_Offset_2
13be 0217       |    |		Execute	Heap_Access,All_Reference
13bf 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
13c0 6802       |h   |		Jump_Zero	0x13c3
13c1 8404       |    |		Call	0x2,0x4
13c2 780f       |x   |		Jump	0x13d2
13c3 00da       |    |		Load_Top	At_Offset_2
13c4 0219       |    |		Execute	Heap_Access,All_Read
13c5 00da       |    |		Load_Top	At_Offset_2
13c6 00d9       |    |		Load_Top	At_Offset_1
13c7 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
13c8 e5fe       |    |		Load	0x2,-0x2
13c9 e02b       | +  |		Load	0x0,0x2b
13ca 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
13cb 00da       |    |		Load_Top	At_Offset_2
13cc 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
13cd 005b       | [  |		Store_Top	Discrete,At_Offset_3
13ce 00d1       |    |		Pop_Control	Pop_Count_1
13cf 00d9       |    |		Load_Top	At_Offset_1
13d0 7001       |p   |		Jump_Nonzero	0x13d2
13d1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
13d2 e002       |    |		Load	0x0,0x2
13d3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
13d4 4801       |H   |		Short_Literal	0x1
13d5 4802       |H   |		Short_Literal	0x2
13d6 e00e       |    |		Load	0x0,0xe
13d7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13d8 0334       | 4  |		Declare_Variable	Array,With_Constraint
13d9 e5ff       |    |		Load	0x2,-0x1
13da 825a       | Z  |		Call	0x1,0x5a
13db 4801       |H   |		Short_Literal	0x1
13dc 00da       |    |		Load_Top	At_Offset_2
13dd 01d6       |    |		Execute	Vector,Field_Write
13de e5fc       |    |		Load	0x2,-0x4
13df e00c       |    |		Load	0x0,0xc
13e0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
13e1 4802       |H   |		Short_Literal	0x2
13e2 00da       |    |		Load_Top	At_Offset_2
13e3 01d6       |    |		Execute	Vector,Field_Write
13e4 00db       |    |		Load_Top	At_Offset_3
13e5 e002       |    |		Load	0x0,0x2
13e6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
13e7 c5fb       |    |		Store	0x2,-0x5
13e8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
13e9 0000 0000  |    |		.BLANK	0000[0x7]
13f0 ; --------------------------------------------------------------------------------------
13f0 ; SUBPROGRAM
13f0 ; --------------------------------------------------------------------------------------
13f0 13f3       |    |		.CONST	0x13f3								; Address of begin
13f1 0004       |    |		.CONST	0x0004								; Address of exception handler
13f2 0001       |    |		.CONST	0x0001								; Number of locals
13f3			BODY_13f0:
13f3			INIT_13f0:
13f3 00da       |    |		Load_Top	At_Offset_2
13f4 e2db       |    |		Load	0x1,0xdb
13f5 e2dc       |    |		Load	0x1,0xdc
13f6 1ddd       |    |		Execute_Immediate	Reference_Lex_1,0xdd
13f7 1dde       |    |		Execute_Immediate	Reference_Lex_1,0xde
13f8 1ddf       |    |		Execute_Immediate	Reference_Lex_1,0xdf
13f9 e00e       |    |		Load	0x0,0xe
13fa 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
13fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
13fc 0000 0000  |    |		.BLANK	0000[0x4]
1400 ; --------------------------------------------------------------------------------------
1400 ; SUBPROGRAM
1400 ; --------------------------------------------------------------------------------------
1400 1403       |    |		.CONST	0x1403								; Address of begin
1401 0004       |    |		.CONST	0x0004								; Address of exception handler
1402 0001       |    |		.CONST	0x0001								; Number of locals
1403			BODY_1400:
1403			INIT_1400:
1403 00da       |    |		Load_Top	At_Offset_2
1404 e2e3       |    |		Load	0x1,0xe3
1405 e2e4       |    |		Load	0x1,0xe4
1406 1de5       |    |		Execute_Immediate	Reference_Lex_1,0xe5
1407 e2e6       |    |		Load	0x1,0xe6
1408 1de7       |    |		Execute_Immediate	Reference_Lex_1,0xe7
1409 e00e       |    |		Load	0x0,0xe
140a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
140b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
140c 0000 0000  |    |		.BLANK	0000[0x4]
1410 ; --------------------------------------------------------------------------------------
1410 ; SUBPROGRAM
1410 ; --------------------------------------------------------------------------------------
1410 1413       |    |		.CONST	0x1413								; Address of begin
1411 141b       |    |		.CONST	0x141b								; Address of exception handler
1412 0001       |    |		.CONST	0x0001								; Number of locals
1413			BODY_1410:
1413			INIT_1410:
1413 00da       |    |		Load_Top	At_Offset_2
1414 0217       |    |		Execute	Heap_Access,All_Reference
1415 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
1416 e001       |    |		Load	0x0,0x1
1417 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
1418 0216       |    |		Execute	Heap_Access,Convert
1419 8244       | D  |		Call	0x1,0x44
141a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
141b			TRAP_1410:
141b 0007       |    |		Action	Break_Optional
141c 00db       |    |		Load_Top	At_Offset_3
141d e01b       |    |		Load	0x0,0x1b
141e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
141f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1420 ; --------------------------------------------------------------------------------------
1420 ; SUBPROGRAM
1420 ; --------------------------------------------------------------------------------------
1420 1426       | &  |		.CONST	0x1426								; Address of begin
1421 0004       |    |		.CONST	0x0004								; Address of exception handler
1422 0002       |    |		.CONST	0x0002								; Number of locals
1423			INIT_1420:
1423 00db       |    |		Load_Top	At_Offset_3
1424 00db       |    |		Load_Top	At_Offset_3
1425 8276       | v  |		Call	0x1,0x76
1426			BODY_1420:
1426 e001       |    |		Load	0x0,0x1
1427 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
1428 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1429 a5fd       |    |		Store_Unchecked	0x2,-0x3
142a 00d8       |    |		Load_Top	At_Offset_0
142b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
142c 7029       |p)  |		Jump_Nonzero	0x1456
142d 00d8       |    |		Load_Top	At_Offset_0
142e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
142f 0b00       |    |		Execute_Immediate	Case_Compare,0x0
1430 701e       |p   |		Jump_Nonzero	0x144f
1431 0f01       |    |		Execute_Immediate	Equal,0x1
1432 701e       |p   |		Jump_Nonzero	0x1451
1433 4801       |H   |		Short_Literal	0x1
1434 00d9       |    |		Load_Top	At_Offset_1
1435 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1436 01d7       |    |		Execute	Vector,Field_Read
1437 a5fd       |    |		Store_Unchecked	0x2,-0x3
1438 e002       |    |		Load	0x0,0x2
1439 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
143a 4801       |H   |		Short_Literal	0x1
143b 4802       |H   |		Short_Literal	0x2
143c e00e       |    |		Load	0x0,0xe
143d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
143e 0334       | 4  |		Declare_Variable	Array,With_Constraint
143f e5ff       |    |		Load	0x2,-0x1
1440 e00e       |    |		Load	0x0,0xe
1441 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1442 4801       |H   |		Short_Literal	0x1
1443 00da       |    |		Load_Top	At_Offset_2
1444 01d6       |    |		Execute	Vector,Field_Write
1445 e5fe       |    |		Load	0x2,-0x2
1446 825a       | Z  |		Call	0x1,0x5a
1447 4802       |H   |		Short_Literal	0x2
1448 00da       |    |		Load_Top	At_Offset_2
1449 01d6       |    |		Execute	Vector,Field_Write
144a 6011       |`   |		Indirect_Literal	Discrete,0x145c,{0x00000000, 0x00002802}
144b e002       |    |		Load	0x0,0x2
144c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
144d c5fc       |    |		Store	0x2,-0x4
144e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
144f 00d1       |    |		Pop_Control	Pop_Count_1
1450 7805       |x   |		Jump	0x1456
1451 4801       |H   |		Short_Literal	0x1
1452 00d9       |    |		Load_Top	At_Offset_1
1453 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
1454 01d7       |    |		Execute	Vector,Field_Read
1455 a5fd       |    |		Store_Unchecked	0x2,-0x3
1456 00d8       |    |		Load_Top	At_Offset_0
1457 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1458 a5fc       |    |		Store_Unchecked	0x2,-0x4
1459 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
145a 0000 0000  |    |		.XXX[0x2]
145c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002802}
1460 ; --------------------------------------------------------------------------------------
1460 ; SUBPROGRAM
1460 ; --------------------------------------------------------------------------------------
1460 146c       | l  |		.CONST	0x146c								; Address of begin
1461 0004       |    |		.CONST	0x0004								; Address of exception handler
1462 0004       |    |		.CONST	0x0004								; Number of locals
1463			INIT_1460:
1463 00da       |    |		Load_Top	At_Offset_2
1464 82b7       |    |		Call	0x1,0xb7
1465 00d8       |    |		Load_Top	At_Offset_0
1466 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
1467 e002       |    |		Load	0x0,0x2
1468 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1469 03f1       |    |		Declare_Variable	Discrete,With_Value
146a 029f 2a5b  |  *[|		Declare_Subprogram	INIT_2a58,For_Call
146c			BODY_1460:
146c 00d9       |    |		Load_Top	At_Offset_1
146d 700c       |p   |		Jump_Nonzero	0x147a
146e 00da       |    |		Load_Top	At_Offset_2
146f 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
1470 7008       |p   |		Jump_Nonzero	0x1479
1471 6032       |`2  |		Indirect_Literal	Discrete,0x14a4,{0x00000000, 0x0000282d}
1472 602d       |`-  |		Indirect_Literal	Discrete,0x14a0,{0x00000000, 0x0000282c}
1473 6028       |`(  |		Indirect_Literal	Discrete,0x149c,{0x00000000, 0x0000282b}
1474 e5fe       |    |		Load	0x2,-0x2
1475 e402       |    |		Load	0x2,0x2
1476 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1477 802c       | ,  |		Call	0x0,0x2c
1478 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1479 8404       |    |		Call	0x2,0x4
147a 4800       |H   |		Short_Literal	0x0
147b e001       |    |		Load	0x0,0x1
147c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
147d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
147e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
147f 00da       |    |		Load_Top	At_Offset_2
1480 00d9       |    |		Load_Top	At_Offset_1
1481 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1482 4801       |H   |		Short_Literal	0x1
1483 4800       |H   |		Short_Literal	0x0
1484 e001       |    |		Load	0x0,0x1
1485 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
1486 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
1487 0334       | 4  |		Declare_Variable	Array,With_Constraint
1488 00d9       |    |		Load_Top	At_Offset_1
1489 00d8       |    |		Load_Top	At_Offset_0
148a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
148b 00da       |    |		Load_Top	At_Offset_2
148c 01da       |    |		Execute	Vector,Bounds
148d 00da       |    |		Load_Top	At_Offset_2
148e 01da       |    |		Execute	Vector,Bounds
148f 00da       |    |		Load_Top	At_Offset_2
1490 027f       |    |		Execute	Discrete,Equal
1491 7001       |p   |		Jump_Nonzero	0x1493
1492 08e0       |    |		Execute_Immediate	Raise,0xe0
1493 00cd       |    |		Action	Spare6_Action
1494 027f       |    |		Execute	Discrete,Equal
1495 7001       |p   |		Jump_Nonzero	0x1497
1496 08e0       |    |		Execute_Immediate	Raise,0xe0
1497 00d2       |    |		Pop_Control	Pop_Count_2
1498 00d9       |    |		Load_Top	At_Offset_1
1499 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
149a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
149b 0000       |    |		.XXX[0x1]
149c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282b}
14a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282c}
14a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282d}
14a8 ; --------------------------------------------------------------------------------------
14a8 ; SUBPROGRAM
14a8 ; --------------------------------------------------------------------------------------
14a8 14ab       |    |		.CONST	0x14ab								; Address of begin
14a9 0004       |    |		.CONST	0x0004								; Address of exception handler
14aa 0001       |    |		.CONST	0x0001								; Number of locals
14ab			BODY_14a8:
14ab			INIT_14a8:
14ab 00da       |    |		Load_Top	At_Offset_2
14ac e02d       | -  |		Load	0x0,0x2d
14ad 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
14ae e01b       |    |		Load	0x0,0x1b
14af 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
14b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14b1 0000 0000  |    |		.BLANK	0000[0x7]
14b8 ; --------------------------------------------------------------------------------------
14b8 ; SUBPROGRAM
14b8 ; --------------------------------------------------------------------------------------
14b8 14bb       |    |		.CONST	0x14bb								; Address of begin
14b9 0004       |    |		.CONST	0x0004								; Address of exception handler
14ba 0001       |    |		.CONST	0x0001								; Number of locals
14bb			BODY_14b8:
14bb			INIT_14b8:
14bb 00da       |    |		Load_Top	At_Offset_2
14bc e02e       | .  |		Load	0x0,0x2e
14bd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
14be e01b       |    |		Load	0x0,0x1b
14bf 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
14c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14c1 0000 0000  |    |		.BLANK	0000[0x7]
14c8 ; --------------------------------------------------------------------------------------
14c8 ; SUBPROGRAM
14c8 ; --------------------------------------------------------------------------------------
14c8 14cb       |    |		.CONST	0x14cb								; Address of begin
14c9 0004       |    |		.CONST	0x0004								; Address of exception handler
14ca 0001       |    |		.CONST	0x0001								; Number of locals
14cb			BODY_14c8:
14cb			INIT_14c8:
14cb 00da       |    |		Load_Top	At_Offset_2
14cc e00f       |    |		Load	0x0,0xf
14cd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
14ce e01b       |    |		Load	0x0,0x1b
14cf 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
14d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14d1 0000 0000  |    |		.BLANK	0000[0x7]
14d8 ; --------------------------------------------------------------------------------------
14d8 ; SUBPROGRAM
14d8 ; --------------------------------------------------------------------------------------
14d8 14df       |    |		.CONST	0x14df								; Address of begin
14d9 0004       |    |		.CONST	0x0004								; Address of exception handler
14da 0004       |    |		.CONST	0x0004								; Number of locals
14db			INIT_14d8:
14db e01b       |    |		Load	0x0,0x1b
14dc 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
14dd 039d       |    |		Declare_Variable	Heap_Access,Duplicate
14de 039d       |    |		Declare_Variable	Heap_Access,Duplicate
14df			BODY_14d8:
14df e5ff       |    |		Load	0x2,-0x1
14e0 0217       |    |		Execute	Heap_Access,All_Reference
14e1 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
14e2 7005       |p   |		Jump_Nonzero	0x14e8
14e3 e5fe       |    |		Load	0x2,-0x2
14e4 0217       |    |		Execute	Heap_Access,All_Reference
14e5 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
14e6 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
14e7 7811       |x   |		Jump	0x14f9
14e8 e5ff       |    |		Load	0x2,-0x1
14e9 0217       |    |		Execute	Heap_Access,All_Reference
14ea 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
14eb 6807       |h   |		Jump_Zero	0x14f3
14ec e5ff       |    |		Load	0x2,-0x1
14ed 0217       |    |		Execute	Heap_Access,All_Reference
14ee 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
14ef 0217       |    |		Execute	Heap_Access,All_Reference
14f0 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
14f1 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
14f2 7806       |x   |		Jump	0x14f9
14f3 e5ff       |    |		Load	0x2,-0x1
14f4 0217       |    |		Execute	Heap_Access,All_Reference
14f5 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
14f6 0217       |    |		Execute	Heap_Access,All_Reference
14f7 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
14f8 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
14f9 00cf       |    |		Action	Mark_Auxiliary
14fa 7852       |xR  |		Jump	0x154d
14fb 00da       |    |		Load_Top	At_Offset_2
14fc 0217       |    |		Execute	Heap_Access,All_Reference
14fd 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
14fe 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
14ff 00da       |    |		Load_Top	At_Offset_2
1500 e001       |    |		Load	0x0,0x1
1501 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1502 0216       |    |		Execute	Heap_Access,Convert
1503 e5ff       |    |		Load	0x2,-0x1
1504 021f       |    |		Execute	Heap_Access,Equal
1505 6842       |hB  |		Jump_Zero	0x1548
1506 00db       |    |		Load_Top	At_Offset_3
1507 7023       |p#  |		Jump_Nonzero	0x152b
1508 e5ff       |    |		Load	0x2,-0x1
1509 0217       |    |		Execute	Heap_Access,All_Reference
150a 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
150b 7005       |p   |		Jump_Nonzero	0x1511
150c 00d9       |    |		Load_Top	At_Offset_1
150d e5fe       |    |		Load	0x2,-0x2
150e 0217       |    |		Execute	Heap_Access,All_Reference
150f 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
1510 781e       |x   |		Jump	0x152f
1511 e5ff       |    |		Load	0x2,-0x1
1512 0217       |    |		Execute	Heap_Access,All_Reference
1513 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1514 680f       |h   |		Jump_Zero	0x1524
1515 00d9       |    |		Load_Top	At_Offset_1
1516 e5ff       |    |		Load	0x2,-0x1
1517 0217       |    |		Execute	Heap_Access,All_Reference
1518 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1519 0217       |    |		Execute	Heap_Access,All_Reference
151a 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
151b 00d9       |    |		Load_Top	At_Offset_1
151c 7012       |p   |		Jump_Nonzero	0x152f
151d 4800       |H   |		Short_Literal	0x0
151e e5ff       |    |		Load	0x2,-0x1
151f 0217       |    |		Execute	Heap_Access,All_Reference
1520 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1521 0217       |    |		Execute	Heap_Access,All_Reference
1522 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1523 780b       |x   |		Jump	0x152f
1524 00d9       |    |		Load_Top	At_Offset_1
1525 e5ff       |    |		Load	0x2,-0x1
1526 0217       |    |		Execute	Heap_Access,All_Reference
1527 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1528 0217       |    |		Execute	Heap_Access,All_Reference
1529 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
152a 7804       |x   |		Jump	0x152f
152b 00d9       |    |		Load_Top	At_Offset_1
152c e402       |    |		Load	0x2,0x2
152d 0217       |    |		Execute	Heap_Access,All_Reference
152e 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
152f e01b       |    |		Load	0x0,0x1b
1530 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
1531 e5ff       |    |		Load	0x2,-0x1
1532 0217       |    |		Execute	Heap_Access,All_Reference
1533 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
1534 4800       |H   |		Short_Literal	0x0
1535 e5ff       |    |		Load	0x2,-0x1
1536 0217       |    |		Execute	Heap_Access,All_Reference
1537 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
1538 e5ff       |    |		Load	0x2,-0x1
1539 0217       |    |		Execute	Heap_Access,All_Reference
153a 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
153b 680b       |h   |		Jump_Zero	0x1547
153c 4800       |H   |		Short_Literal	0x0
153d e5ff       |    |		Load	0x2,-0x1
153e 0217       |    |		Execute	Heap_Access,All_Reference
153f 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
1540 e5fe       |    |		Load	0x2,-0x2
1541 0217       |    |		Execute	Heap_Access,All_Reference
1542 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1543 0aff       |    |		Execute_Immediate	Plus,-0x1
1544 e5fe       |    |		Load	0x2,-0x2
1545 0217       |    |		Execute	Heap_Access,All_Reference
1546 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1547 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1548 00da       |    |		Load_Top	At_Offset_2
1549 a402       |    |		Store_Unchecked	0x2,0x2
154a 00d9       |    |		Load_Top	At_Offset_1
154b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
154c 00c9       |    |		Action	Pop_Auxiliary_Loop
154d 00da       |    |		Load_Top	At_Offset_2
154e 77ac       |w   |		Jump_Nonzero	0x14fb
154f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1550 ; --------------------------------------------------------------------------------------
1550 ; SUBPROGRAM
1550 ; --------------------------------------------------------------------------------------
1550 1553       | S  |		.CONST	0x1553								; Address of begin
1551 0004       |    |		.CONST	0x0004								; Address of exception handler
1552 0001       |    |		.CONST	0x0001								; Number of locals
1553			BODY_1550:
1553			INIT_1550:
1553 00da       |    |		Load_Top	At_Offset_2
1554 0217       |    |		Execute	Heap_Access,All_Reference
1555 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1556 700e       |p   |		Jump_Nonzero	0x1565
1557 00db       |    |		Load_Top	At_Offset_3
1558 0217       |    |		Execute	Heap_Access,All_Reference
1559 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
155a 00db       |    |		Load_Top	At_Offset_3
155b 0217       |    |		Execute	Heap_Access,All_Reference
155c 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
155d 00da       |    |		Load_Top	At_Offset_2
155e e01b       |    |		Load	0x0,0x1b
155f 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
1560 0216       |    |		Execute	Heap_Access,Convert
1561 e5fe       |    |		Load	0x2,-0x2
1562 0217       |    |		Execute	Heap_Access,All_Reference
1563 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
1564 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1565 00da       |    |		Load_Top	At_Offset_2
1566 0217       |    |		Execute	Heap_Access,All_Reference
1567 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1568 6818       |h   |		Jump_Zero	0x1581
1569 00da       |    |		Load_Top	At_Offset_2
156a 0217       |    |		Execute	Heap_Access,All_Reference
156b 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
156c 0217       |    |		Execute	Heap_Access,All_Reference
156d 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
156e 00db       |    |		Load_Top	At_Offset_3
156f 0217       |    |		Execute	Heap_Access,All_Reference
1570 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
1571 00da       |    |		Load_Top	At_Offset_2
1572 e01b       |    |		Load	0x0,0x1b
1573 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
1574 0216       |    |		Execute	Heap_Access,Convert
1575 00db       |    |		Load_Top	At_Offset_3
1576 0217       |    |		Execute	Heap_Access,All_Reference
1577 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1578 0217       |    |		Execute	Heap_Access,All_Reference
1579 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
157a 4801       |H   |		Short_Literal	0x1
157b 00db       |    |		Load_Top	At_Offset_3
157c 0217       |    |		Execute	Heap_Access,All_Reference
157d 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
157e 0217       |    |		Execute	Heap_Access,All_Reference
157f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1580 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1581 00da       |    |		Load_Top	At_Offset_2
1582 0217       |    |		Execute	Heap_Access,All_Reference
1583 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1584 0217       |    |		Execute	Heap_Access,All_Reference
1585 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
1586 00db       |    |		Load_Top	At_Offset_3
1587 0217       |    |		Execute	Heap_Access,All_Reference
1588 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
1589 00da       |    |		Load_Top	At_Offset_2
158a e01b       |    |		Load	0x0,0x1b
158b 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
158c 0216       |    |		Execute	Heap_Access,Convert
158d 00db       |    |		Load_Top	At_Offset_3
158e 0217       |    |		Execute	Heap_Access,All_Reference
158f 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1590 0217       |    |		Execute	Heap_Access,All_Reference
1591 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
1592 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1593 0000 0000  |    |		.BLANK	0000[0x5]
1598 ; --------------------------------------------------------------------------------------
1598 ; SUBPROGRAM
1598 ; --------------------------------------------------------------------------------------
1598 159b       |    |		.CONST	0x159b								; Address of begin
1599 0004       |    |		.CONST	0x0004								; Address of exception handler
159a 0001       |    |		.CONST	0x0001								; Number of locals
159b			BODY_1598:
159b			INIT_1598:
159b 4607       |F   |		Jump_Case	0x8
159c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
159d 7806       |x   |		Jump	0x15a4								; case 0x1
159e 7809       |x   |		Jump	0x15a8								; case 0x2
159f 780d       |x   |		Jump	0x15ad								; case 0x3
15a0 7810       |x   |		Jump	0x15b1								; case 0x4
15a1 7811       |x   |		Jump	0x15b3								; case 0x5
15a2 7812       |x   |		Jump	0x15b5								; case 0x6
15a3 7815       |x   |		Jump	0x15b9								; case 0x7
15a4 00da       |    |		Load_Top	At_Offset_2
15a5 0091 2b4a  |  +J|		Action	Push_String_Extended_Indexed,0x2b4a				; "TARGET_MACHINE_FIELD"
15a7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15a8 00db       |    |		Load_Top	At_Offset_3
15a9 00db       |    |		Load_Top	At_Offset_3
15aa 00e0       |    |		Load_Encached	Standard_Cache
15ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
15ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15ad 00da       |    |		Load_Top	At_Offset_2
15ae 00e0       |    |		Load_Encached	Standard_Cache
15af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
15b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15b1 00db       |    |		Load_Top	At_Offset_3
15b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15b3 00db       |    |		Load_Top	At_Offset_3
15b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15b5 e297       |    |		Load	0x1,0x97
15b6 00dc       |    |		Load_Top	At_Offset_4
15b7 0267       | g  |		Execute	Discrete,Predecessor
15b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15b9 e297       |    |		Load	0x1,0x97
15ba 00dc       |    |		Load_Top	At_Offset_4
15bb 0268       | h  |		Execute	Discrete,Successor
15bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15bd 0000 0000  |    |		.XXX[0x3]
15bf 0000       |    |
15c0 ; --------------------------------------------------------------------------------------
15c0 ; SUBPROGRAM
15c0 ; --------------------------------------------------------------------------------------
15c0 15c3       |    |		.CONST	0x15c3								; Address of begin
15c1 0004       |    |		.CONST	0x0004								; Address of exception handler
15c2 0001       |    |		.CONST	0x0001								; Number of locals
15c3			BODY_15c0:
15c3			INIT_15c0:
15c3 4607       |F   |		Jump_Case	0x8
15c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
15c5 7806       |x   |		Jump	0x15cc								; case 0x1
15c6 7809       |x   |		Jump	0x15d0								; case 0x2
15c7 780d       |x   |		Jump	0x15d5								; case 0x3
15c8 7810       |x   |		Jump	0x15d9								; case 0x4
15c9 7811       |x   |		Jump	0x15db								; case 0x5
15ca 7812       |x   |		Jump	0x15dd								; case 0x6
15cb 7815       |x   |		Jump	0x15e1								; case 0x7
15cc 00da       |    |		Load_Top	At_Offset_2
15cd 0091 2b51  |  +Q|		Action	Push_String_Extended_Indexed,0x2b51				; "C"
15cf 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15d0 00db       |    |		Load_Top	At_Offset_3
15d1 00db       |    |		Load_Top	At_Offset_3
15d2 00e0       |    |		Load_Encached	Standard_Cache
15d3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
15d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15d5 00da       |    |		Load_Top	At_Offset_2
15d6 00e0       |    |		Load_Encached	Standard_Cache
15d7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
15d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15d9 00db       |    |		Load_Top	At_Offset_3
15da 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15db 00db       |    |		Load_Top	At_Offset_3
15dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15dd e29b       |    |		Load	0x1,0x9b
15de 00dc       |    |		Load_Top	At_Offset_4
15df 0267       | g  |		Execute	Discrete,Predecessor
15e0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15e1 e29b       |    |		Load	0x1,0x9b
15e2 00dc       |    |		Load_Top	At_Offset_4
15e3 0268       | h  |		Execute	Discrete,Successor
15e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15e5 0000 0000  |    |		.XXX[0x3]
15e7 0000       |    |
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 2b64  |  +d|		Action	Push_String_Extended_Indexed,0x2b64				; "BASIC_FRESH"
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 e2a0       |    |		Load	0x1,0xa0
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 e2a0       |    |		Load	0x1,0xa0
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 2b69  |  +i|		Action	Push_String_Extended_Indexed,0x2b69				; "SEPARATE_GENERIC_BODIES"
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 e2a1       |    |		Load	0x1,0xa1
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 e2a1       |    |		Load	0x1,0xa1
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 2b6d  |  +m|		Action	Push_String_Extended_Indexed,0x2b6d				; "NIL"
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 e2a5       |    |		Load	0x1,0xa5
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 e2a5       |    |		Load	0x1,0xa5
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 ; 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			BODY_1660:
1663			INIT_1660:
1663			INIT_1660:
1663 4608       |F   |		Jump_Case	0x9
1664 7808       |x   |		Jump	0x166d								; case 0x0
1665 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
1666 78cd       |x   |		Jump	0x1734								; case 0x2
1667 78cc       |x   |		Jump	0x1734								; case 0x3
1668 78cb       |x   |		Jump	0x1734								; case 0x4
1669 78ca       |x   |		Jump	0x1734								; case 0x5
166a 782c       |x,  |		Jump	0x1697								; case 0x6
166b 785b       |x[  |		Jump	0x16c7								; case 0x7
166c 789f       |x   |		Jump	0x170c								; case 0x8
166d 00da       |    |		Load_Top	At_Offset_2
166e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
166f 4615       |F   |		Jump_Case	0x16
1670 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1671 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
1672 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
1673 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
1674 7811       |x   |		Jump	0x1686								; case 0x4
1675 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
1676 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
1677 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
1678 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
1679 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x9
167a 7811       |x   |		Jump	0x168c								; case 0xa
167b 7810       |x   |		Jump	0x168c								; case 0xb
167c 780f       |x   |		Jump	0x168c								; case 0xc
167d 780e       |x   |		Jump	0x168c								; case 0xd
167e 780d       |x   |		Jump	0x168c								; case 0xe
167f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0xf
1680 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x10
1681 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x11
1682 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x12
1683 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x13
1684 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x14
1685 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x15
1686 00da       |    |		Load_Top	At_Offset_2
1687 2206       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x6
1688 00da       |    |		Load_Top	At_Offset_2
1689 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
168a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
168b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
168c 00da       |    |		Load_Top	At_Offset_2
168d 220c       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0xc
168e 00da       |    |		Load_Top	At_Offset_2
168f 260c       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
1690 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1691 00da       |    |		Load_Top	At_Offset_2
1692 220d       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0xd
1693 00da       |    |		Load_Top	At_Offset_2
1694 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
1695 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1696 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
1697 e5fd       |    |		Load	0x2,-0x3
1698 4615       |F   |		Jump_Case	0x16
1699 782b       |x+  |		Jump	0x16c5								; case 0x0
169a 7816       |x   |		Jump	0x16b1								; case 0x1
169b 7815       |x   |		Jump	0x16b1								; case 0x2
169c 7814       |x   |		Jump	0x16b1								; case 0x3
169d 7815       |x   |		Jump	0x16b3								; case 0x4
169e 7816       |x   |		Jump	0x16b5								; case 0x5
169f 7817       |x   |		Jump	0x16b7								; case 0x6
16a0 7818       |x   |		Jump	0x16b9								; case 0x7
16a1 7819       |x   |		Jump	0x16bb								; case 0x8
16a2 781a       |x   |		Jump	0x16bd								; case 0x9
16a3 781b       |x   |		Jump	0x16bf								; case 0xa
16a4 781a       |x   |		Jump	0x16bf								; case 0xb
16a5 7819       |x   |		Jump	0x16bf								; case 0xc
16a6 7818       |x   |		Jump	0x16bf								; case 0xd
16a7 7817       |x   |		Jump	0x16bf								; case 0xe
16a8 7818       |x   |		Jump	0x16c1								; case 0xf
16a9 7817       |x   |		Jump	0x16c1								; case 0x10
16aa 7816       |x   |		Jump	0x16c1								; case 0x11
16ab 7815       |x   |		Jump	0x16c1								; case 0x12
16ac 7816       |x   |		Jump	0x16c3								; case 0x13
16ad 7815       |x   |		Jump	0x16c3								; case 0x14
16ae 7800       |x   |		Jump	0x16af								; case 0x15
16af 480b       |H   |		Short_Literal	0xb
16b0 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16b1 4801       |H   |		Short_Literal	0x1
16b2 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16b3 4802       |H   |		Short_Literal	0x2
16b4 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16b5 4803       |H   |		Short_Literal	0x3
16b6 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16b7 4804       |H   |		Short_Literal	0x4
16b8 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16b9 4805       |H   |		Short_Literal	0x5
16ba 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16bb 4806       |H   |		Short_Literal	0x6
16bc 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16bd 4807       |H   |		Short_Literal	0x7
16be 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16bf 4808       |H   |		Short_Literal	0x8
16c0 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16c1 4809       |H   |		Short_Literal	0x9
16c2 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16c3 480a       |H   |		Short_Literal	0xa
16c4 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16c5 48ff       |H   |		Short_Literal	0xff
16c6 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
16c7 e5fd       |    |		Load	0x2,-0x3
16c8 e5fe       |    |		Load	0x2,-0x2
16c9 4800       |H   |		Short_Literal	0x0
16ca e5fe       |    |		Load	0x2,-0x2
16cb e00c       |    |		Load	0x0,0xc
16cc 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
16cd 035b       | [  |		Declare_Type	Array,Constrained
16ce e5fd       |    |		Load	0x2,-0x3
16cf 4615       |F   |		Jump_Case	0x16
16d0 7818       |x   |		Jump	0x16e9								; case 0x0
16d1 781a       |x   |		Jump	0x16ec								; case 0x1
16d2 7819       |x   |		Jump	0x16ec								; case 0x2
16d3 7818       |x   |		Jump	0x16ec								; case 0x3
16d4 781a       |x   |		Jump	0x16ef								; case 0x4
16d5 781c       |x   |		Jump	0x16f2								; case 0x5
16d6 781e       |x   |		Jump	0x16f5								; case 0x6
16d7 7820       |x   |		Jump	0x16f8								; case 0x7
16d8 7822       |x"  |		Jump	0x16fb								; case 0x8
16d9 7824       |x$  |		Jump	0x16fe								; case 0x9
16da 7826       |x&  |		Jump	0x1701								; case 0xa
16db 7825       |x%  |		Jump	0x1701								; case 0xb
16dc 7824       |x$  |		Jump	0x1701								; case 0xc
16dd 7823       |x#  |		Jump	0x1701								; case 0xd
16de 7822       |x"  |		Jump	0x1701								; case 0xe
16df 7824       |x$  |		Jump	0x1704								; case 0xf
16e0 7823       |x#  |		Jump	0x1704								; case 0x10
16e1 7822       |x"  |		Jump	0x1704								; case 0x11
16e2 7821       |x!  |		Jump	0x1704								; case 0x12
16e3 7823       |x#  |		Jump	0x1707								; case 0x13
16e4 7822       |x"  |		Jump	0x1707								; case 0x14
16e5 7800       |x   |		Jump	0x16e6								; case 0x15
16e6 4801       |H   |		Short_Literal	0x1
16e7 480b       |H   |		Short_Literal	0xb
16e8 7820       |x   |		Jump	0x1709
16e9 4801       |H   |		Short_Literal	0x1
16ea 48ff       |H   |		Short_Literal	0xff
16eb 781d       |x   |		Jump	0x1709
16ec 4801       |H   |		Short_Literal	0x1
16ed 4801       |H   |		Short_Literal	0x1
16ee 781a       |x   |		Jump	0x1709
16ef 4801       |H   |		Short_Literal	0x1
16f0 4802       |H   |		Short_Literal	0x2
16f1 7817       |x   |		Jump	0x1709
16f2 4801       |H   |		Short_Literal	0x1
16f3 4803       |H   |		Short_Literal	0x3
16f4 7814       |x   |		Jump	0x1709
16f5 4801       |H   |		Short_Literal	0x1
16f6 4804       |H   |		Short_Literal	0x4
16f7 7811       |x   |		Jump	0x1709
16f8 4801       |H   |		Short_Literal	0x1
16f9 4805       |H   |		Short_Literal	0x5
16fa 780e       |x   |		Jump	0x1709
16fb 4801       |H   |		Short_Literal	0x1
16fc 4806       |H   |		Short_Literal	0x6
16fd 780b       |x   |		Jump	0x1709
16fe 4801       |H   |		Short_Literal	0x1
16ff 4807       |H   |		Short_Literal	0x7
1700 7808       |x   |		Jump	0x1709
1701 4801       |H   |		Short_Literal	0x1
1702 4808       |H   |		Short_Literal	0x8
1703 7805       |x   |		Jump	0x1709
1704 4801       |H   |		Short_Literal	0x1
1705 4809       |H   |		Short_Literal	0x9
1706 7802       |x   |		Jump	0x1709
1707 4801       |H   |		Short_Literal	0x1
1708 480a       |H   |		Short_Literal	0xa
1709 e5ff       |    |		Load	0x2,-0x1
170a 031b       |    |		Declare_Type	Variant_Record,Constrained
170b 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
170c e5fd       |    |		Load	0x2,-0x3
170d e5fe       |    |		Load	0x2,-0x2
170e e5fd       |    |		Load	0x2,-0x3
170f e5fe       |    |		Load	0x2,-0x2
1710 e5ff       |    |		Load	0x2,-0x1
1711 1c06       |    |		Execute_Immediate	Run_Utility,0x6
1712 e5ff       |    |		Load	0x2,-0x1
1713 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
1714 4800       |H   |		Short_Literal	0x0
1715 e5fe       |    |		Load	0x2,-0x2
1716 e00c       |    |		Load	0x0,0xc
1717 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1718 0334       | 4  |		Declare_Variable	Array,With_Constraint
1719 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
171a e5fd       |    |		Load	0x2,-0x3
171b 4615       |F   |		Jump_Case	0x16
171c 7815       |x   |		Jump	0x1732								; case 0x0
171d 7814       |x   |		Jump	0x1732								; case 0x1
171e 7813       |x   |		Jump	0x1732								; case 0x2
171f 7812       |x   |		Jump	0x1732								; case 0x3
1720 7811       |x   |		Jump	0x1732								; case 0x4
1721 7810       |x   |		Jump	0x1732								; case 0x5
1722 780f       |x   |		Jump	0x1732								; case 0x6
1723 780e       |x   |		Jump	0x1732								; case 0x7
1724 780d       |x   |		Jump	0x1732								; case 0x8
1725 780c       |x   |		Jump	0x1732								; case 0x9
1726 780b       |x   |		Jump	0x1732								; case 0xa
1727 780a       |x   |		Jump	0x1732								; case 0xb
1728 7809       |x   |		Jump	0x1732								; case 0xc
1729 7808       |x   |		Jump	0x1732								; case 0xd
172a 7807       |x   |		Jump	0x1732								; case 0xe
172b 7806       |x   |		Jump	0x1732								; case 0xf
172c 7805       |x   |		Jump	0x1732								; case 0x10
172d 7804       |x   |		Jump	0x1732								; case 0x11
172e 7803       |x   |		Jump	0x1732								; case 0x12
172f 7802       |x   |		Jump	0x1732								; case 0x13
1730 7801       |x   |		Jump	0x1732								; case 0x14
1731 7800       |x   |		Jump	0x1732								; case 0x15
1732 016a       | j  |		QQ_execute	Variant_Record,XXX
1733 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1734 0869       | i  |		Execute_Immediate	Raise,0x69
1735 0000 0000  |    |		.XXX[0x3]
1737 0000       |    |
1738 ; --------------------------------------------------------------------------------------
1738 ; SUBPROGRAM
1738 ; --------------------------------------------------------------------------------------
1738 173b       | ;  |		.CONST	0x173b								; Address of begin
1739 0004       |    |		.CONST	0x0004								; Address of exception handler
173a 0001       |    |		.CONST	0x0001								; Number of locals
173b			BODY_1738:
173b			INIT_1738:
173b 4608       |F   |		Jump_Case	0x9
173c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
173d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
173e 7819       |x   |		Jump	0x1758								; case 0x2
173f 7818       |x   |		Jump	0x1758								; case 0x3
1740 7817       |x   |		Jump	0x1758								; case 0x4
1741 7816       |x   |		Jump	0x1758								; case 0x5
1742 7815       |x   |		Jump	0x1758								; case 0x6
1743 7801       |x   |		Jump	0x1745								; case 0x7
1744 7809       |x   |		Jump	0x174e								; case 0x8
1745 00db       |    |		Load_Top	At_Offset_3
1746 4801       |H   |		Short_Literal	0x1
1747 e5fe       |    |		Load	0x2,-0x2
1748 00e9       |    |		Load_Encached	String_Cache
1749 035b       | [  |		Declare_Type	Array,Constrained
174a 4801       |H   |		Short_Literal	0x1
174b e5ff       |    |		Load	0x2,-0x1
174c 031b       |    |		Declare_Type	Variant_Record,Constrained
174d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
174e 00db       |    |		Load_Top	At_Offset_3
174f 00db       |    |		Load_Top	At_Offset_3
1750 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
1751 4801       |H   |		Short_Literal	0x1
1752 e5fe       |    |		Load	0x2,-0x2
1753 00e9       |    |		Load_Encached	String_Cache
1754 0334       | 4  |		Declare_Variable	Array,With_Constraint
1755 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
1756 016a       | j  |		QQ_execute	Variant_Record,XXX
1757 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1758 0869       | i  |		Execute_Immediate	Raise,0x69
1759 0000 0000  |    |		.BLANK	0000[0x7]
1760 ; --------------------------------------------------------------------------------------
1760 ; SUBPROGRAM
1760 ; --------------------------------------------------------------------------------------
1760 1765       | e  |		.CONST	0x1765								; Address of begin
1761 17ca       |    |		.CONST	0x17ca								; Address of exception handler
1762 0002       |    |		.CONST	0x0002								; Number of locals
1763			INIT_1760:
1763 00e2       |    |		Load_Encached	Integer_Cache
1764 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1765			BODY_1760:
1765 00cf       |    |		Action	Mark_Auxiliary
1766 7804       |x   |		Jump	0x176b
1767 e5fd       |    |		Load	0x2,-0x3
1768 0a01       |    |		Execute_Immediate	Plus,0x1
1769 c5fd       |    |		Store	0x2,-0x3
176a 00c9       |    |		Action	Pop_Auxiliary_Loop
176b e5fd       |    |		Load	0x2,-0x3
176c e5ff       |    |		Load	0x2,-0x1
176d 01d7       |    |		Execute	Vector,Field_Read
176e 0f5f       | _  |		Execute_Immediate	Equal,0x5f
176f 77f7       |w   |		Jump_Nonzero	0x1767
1770 00ce       |    |		Action	Pop_Auxiliary
1771 e5fd       |    |		Load	0x2,-0x3
1772 0a02       |    |		Execute_Immediate	Plus,0x2
1773 e5ff       |    |		Load	0x2,-0x1
1774 01dc       |    |		Execute	Vector,Last
1775 027a       | z  |		Execute	Discrete,Less_Equal
1776 6811       |h   |		Jump_Zero	0x1788
1777 4800       |H   |		Short_Literal	0x0
1778 e5fe       |    |		Load	0x2,-0x2
1779 483a       |H:  |		Short_Literal	0x3a
177a e5fd       |    |		Load	0x2,-0x3
177b 00d8       |    |		Load_Top	At_Offset_0
177c 0a02       |    |		Execute_Immediate	Plus,0x2
177d 00d8       |    |		Load_Top	At_Offset_0
177e 00e2       |    |		Load_Encached	Integer_Cache
177f 0260       | `  |		Execute	Discrete,In_Type
1780 7001       |p   |		Jump_Nonzero	0x1782
1781 0801       |    |		Execute_Immediate	Raise,0x1
1782 e5ff       |    |		Load	0x2,-0x1
1783 01cf       |    |		Execute	Vector,Slice_Read
1784 01ca       |    |		Execute	Vector,Prepend
1785 e02f       | /  |		Load	0x0,0x2f
1786 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1787 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1788 00d8       |    |		Load_Top	At_Offset_0
1789 7011       |p   |		Jump_Nonzero	0x179b
178a 4800       |H   |		Short_Literal	0x0
178b e5fe       |    |		Load	0x2,-0x2
178c 483a       |H:  |		Short_Literal	0x3a
178d e5fd       |    |		Load	0x2,-0x3
178e 00d8       |    |		Load_Top	At_Offset_0
178f 0a01       |    |		Execute_Immediate	Plus,0x1
1790 00d8       |    |		Load_Top	At_Offset_0
1791 00e2       |    |		Load_Encached	Integer_Cache
1792 0260       | `  |		Execute	Discrete,In_Type
1793 7001       |p   |		Jump_Nonzero	0x1795
1794 0801       |    |		Execute_Immediate	Raise,0x1
1795 e5ff       |    |		Load	0x2,-0x1
1796 01cf       |    |		Execute	Vector,Slice_Read
1797 01ca       |    |		Execute	Vector,Prepend
1798 e02f       | /  |		Load	0x0,0x2f
1799 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
179a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
179b 00d8       |    |		Load_Top	At_Offset_0
179c 0a0b       |    |		Execute_Immediate	Plus,0xb
179d 480c       |H   |		Short_Literal	0xc
179e 0270       | p  |		Execute	Discrete,Divide
179f c5fc       |    |		Store	0x2,-0x4
17a0 00d8       |    |		Load_Top	At_Offset_0
17a1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
17a2 6826       |h&  |		Jump_Zero	0x17c9
17a3 00cf       |    |		Action	Mark_Auxiliary
17a4 e5ff       |    |		Load	0x2,-0x1
17a5 01dc       |    |		Execute	Vector,Last
17a6 e5fd       |    |		Load	0x2,-0x3
17a7 0263       | c  |		Execute	Discrete,Above_Bound
17a8 701b       |p   |		Jump_Nonzero	0x17c4
17a9 00db       |    |		Load_Top	At_Offset_3
17aa 0a01       |    |		Execute_Immediate	Plus,0x1
17ab c402       |    |		Store	0x2,0x2
17ac 00db       |    |		Load_Top	At_Offset_3
17ad e5fe       |    |		Load	0x2,-0x2
17ae 01d7       |    |		Execute	Vector,Field_Read
17af 00d9       |    |		Load_Top	At_Offset_1
17b0 e5ff       |    |		Load	0x2,-0x1
17b1 01d7       |    |		Execute	Vector,Field_Read
17b2 027e       | ~  |		Execute	Discrete,Not_Equal
17b3 680e       |h   |		Jump_Zero	0x17c2
17b4 00d8       |    |		Load_Top	At_Offset_0
17b5 a5fd       |    |		Store_Unchecked	0x2,-0x3
17b6 00cf       |    |		Action	Mark_Auxiliary
17b7 7804       |x   |		Jump	0x17bc
17b8 e5fd       |    |		Load	0x2,-0x3
17b9 0a01       |    |		Execute_Immediate	Plus,0x1
17ba c5fd       |    |		Store	0x2,-0x3
17bb 00c9       |    |		Action	Pop_Auxiliary_Loop
17bc e5fd       |    |		Load	0x2,-0x3
17bd e5ff       |    |		Load	0x2,-0x1
17be 01d7       |    |		Execute	Vector,Field_Read
17bf 0f5f       | _  |		Execute_Immediate	Equal,0x5f
17c0 77f7       |w   |		Jump_Nonzero	0x17b8
17c1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
17c2 00c8       |    |		Action	Pop_Auxiliary_Range
17c3 3fe5       |?   |		Loop_Increasing	0x17a9
17c4 00ce       |    |		Action	Pop_Auxiliary
17c5 00db       |    |		Load_Top	At_Offset_3
17c6 01dc       |    |		Execute	Vector,Last
17c7 0a01       |    |		Execute_Immediate	Plus,0x1
17c8 c5fd       |    |		Store	0x2,-0x3
17c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
17ca			TRAP_1760:
17ca 0007       |    |		Action	Break_Optional
17cb 4800       |H   |		Short_Literal	0x0
17cc a5fc       |    |		Store_Unchecked	0x2,-0x4
17cd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
17ce 0000 0000  |    |		.XXX[0x2]
17d0 ; --------------------------------------------------------------------------------------
17d0 ; SUBPROGRAM
17d0 ; --------------------------------------------------------------------------------------
17d0 17ef       |    |		.CONST	0x17ef								; Address of begin
17d1 18ca       |    |		.CONST	0x18ca								; Address of exception handler
17d2 000b       |    |		.CONST	0x000b								; Number of locals
17d3			INIT_17d0:
17d3 00e2       |    |		Load_Encached	Integer_Cache
17d4 00e2       |    |		Load_Encached	Integer_Cache
17d5 00e7       |    |		Load_Encached	Duration_Cache
17d6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
17d7 00e7       |    |		Load_Encached	Duration_Cache
17d8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
17d9 6116       |a   |		Indirect_Literal	Discrete,0x18f0,{0x00000000, 0xa8c00000}
17da 00e7       |    |		Load_Encached	Duration_Cache
17db 03f1       |    |		Declare_Variable	Discrete,With_Value
17dc 4800       |H   |		Short_Literal	0x0
17dd e5ff       |    |		Load	0x2,-0x1
17de 0092 2b86  |  + |		Action	Push_String_Extended,0x2b86					; "AT"
17e0 e02f       | /  |		Load	0x0,0x2f
17e1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
17e2 00e2       |    |		Load_Encached	Integer_Cache
17e3 03f1       |    |		Declare_Variable	Discrete,With_Value
17e4 e5ff       |    |		Load	0x2,-0x1
17e5 01dd       |    |		Execute	Vector,First
17e6 00e2       |    |		Load_Encached	Integer_Cache
17e7 03f1       |    |		Declare_Variable	Discrete,With_Value
17e8 e030       | 0  |		Load	0x0,0x30
17e9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
17ea 0322       | "  |		Declare_Variable	Record
17eb e030       | 0  |		Load	0x0,0x30
17ec 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
17ed 0322       | "  |		Declare_Variable	Record
17ee 00e2       |    |		Load_Encached	Integer_Cache
17ef			BODY_17d0:
17ef e407       |    |		Load	0x2,0x7
17f0 7004       |p   |		Jump_Nonzero	0x17f5
17f1 e5ff       |    |		Load	0x2,-0x1
17f2 01dc       |    |		Execute	Vector,Last
17f3 0a01       |    |		Execute_Immediate	Plus,0x1
17f4 c407       |    |		Store	0x2,0x7
17f5 00e2       |    |		Load_Encached	Integer_Cache
17f6 e408       |    |		Load	0x2,0x8
17f7 e2ae       |    |		Load	0x1,0xae
17f8 e408       |    |		Load	0x2,0x8
17f9 e407       |    |		Load	0x2,0x7
17fa 0aff       |    |		Execute_Immediate	Plus,-0x1
17fb 00d8       |    |		Load_Top	At_Offset_0
17fc 00e2       |    |		Load_Encached	Integer_Cache
17fd 0260       | `  |		Execute	Discrete,In_Type
17fe 7001       |p   |		Jump_Nonzero	0x1800
17ff 0801       |    |		Execute_Immediate	Raise,0x1
1800 e5ff       |    |		Load	0x2,-0x1
1801 01cf       |    |		Execute	Vector,Slice_Read
1802 82af       |    |		Call	0x1,0xaf
1803 c408       |    |		Store	0x2,0x8
1804 c402       |    |		Store	0x2,0x2
1805 e402       |    |		Load	0x2,0x2
1806 00d8       |    |		Load_Top	At_Offset_0
1807 4801       |H   |		Short_Literal	0x1
1808 4807       |H   |		Short_Literal	0x7
1809 0262       | b  |		Execute	Discrete,In_Range
180a 7015       |p   |		Jump_Nonzero	0x1820
180b 0b08       |    |		Execute_Immediate	Case_Compare,0x8
180c 702e       |p.  |		Jump_Nonzero	0x183b
180d 0f09       |    |		Execute_Immediate	Equal,0x9
180e 7032       |p2  |		Jump_Nonzero	0x1841
180f 00db       |    |		Load_Top	At_Offset_3
1810 e407       |    |		Load	0x2,0x7
1811 0aff       |    |		Execute_Immediate	Plus,-0x1
1812 00d8       |    |		Load_Top	At_Offset_0
1813 00e2       |    |		Load_Encached	Integer_Cache
1814 0260       | `  |		Execute	Discrete,In_Type
1815 7001       |p   |		Jump_Nonzero	0x1817
1816 0801       |    |		Execute_Immediate	Raise,0x1
1817 e5ff       |    |		Load	0x2,-0x1
1818 01cf       |    |		Execute	Vector,Slice_Read
1819 e030       | 0  |		Load	0x0,0x30
181a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
181b 00db       |    |		Load_Top	At_Offset_3
181c 017d       | }  |		Execute	Record,Structure_Write
181d e407       |    |		Load	0x2,0x7
181e a408       |    |		Store_Unchecked	0x2,0x8
181f 7827       |x'  |		Jump	0x1847
1820 00d1       |    |		Pop_Control	Pop_Count_1
1821 e030       | 0  |		Load	0x0,0x30
1822 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1823 00db       |    |		Load_Top	At_Offset_3
1824 017d       | }  |		Execute	Record,Structure_Write
1825 e402       |    |		Load	0x2,0x2
1826 00db       |    |		Load_Top	At_Offset_3
1827 e030       | 0  |		Load	0x0,0x30
1828 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
1829 0272       | r  |		Execute	Discrete,Minus
182a c403       |    |		Store	0x2,0x3
182b e403       |    |		Load	0x2,0x3
182c 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
182d 6803       |h   |		Jump_Zero	0x1831
182e e403       |    |		Load	0x2,0x3
182f 0af9       |    |		Execute_Immediate	Plus,-0x7
1830 c403       |    |		Store	0x2,0x3
1831 60be       |`   |		Indirect_Literal	Discrete,0x18f0,{0x00000000, 0xa8c00000}
1832 e403       |    |		Load	0x2,0x3
1833 0271       | q  |		Execute	Discrete,Times
1834 00d8       |    |		Load_Top	At_Offset_0
1835 00e7       |    |		Load_Encached	Duration_Cache
1836 0260       | `  |		Execute	Discrete,In_Type
1837 7001       |p   |		Jump_Nonzero	0x1839
1838 0801       |    |		Execute_Immediate	Raise,0x1
1839 a404       |    |		Store_Unchecked	0x2,0x4
183a 780c       |x   |		Jump	0x1847
183b 00d1       |    |		Pop_Control	Pop_Count_1
183c e030       | 0  |		Load	0x0,0x30
183d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
183e 00db       |    |		Load_Top	At_Offset_3
183f 017d       | }  |		Execute	Record,Structure_Write
1840 7806       |x   |		Jump	0x1847
1841 e030       | 0  |		Load	0x0,0x30
1842 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1843 00db       |    |		Load_Top	At_Offset_3
1844 017d       | }  |		Execute	Record,Structure_Write
1845 60a6       |`   |		Indirect_Literal	Discrete,0x18ec,{0xffffffff, 0x57400000}
1846 a404       |    |		Store_Unchecked	0x2,0x4
1847 00db       |    |		Load_Top	At_Offset_3
1848 e407       |    |		Load	0x2,0x7
1849 027c       | |  |		Execute	Discrete,Less
184a 6801       |h   |		Jump_Zero	0x184c
184b 08e0       |    |		Execute_Immediate	Raise,0xe0
184c e407       |    |		Load	0x2,0x7
184d e5ff       |    |		Load	0x2,-0x1
184e 01dc       |    |		Execute	Vector,Last
184f 027c       | |  |		Execute	Discrete,Less
1850 6844       |hD  |		Jump_Zero	0x1895
1851 e407       |    |		Load	0x2,0x7
1852 0a02       |    |		Execute_Immediate	Plus,0x2
1853 c407       |    |		Store	0x2,0x7
1854 00e2       |    |		Load_Encached	Integer_Cache
1855 e407       |    |		Load	0x2,0x7
1856 e2ae       |    |		Load	0x1,0xae
1857 e5ff       |    |		Load	0x2,-0x1
1858 82af       |    |		Call	0x1,0xaf
1859 c407       |    |		Store	0x2,0x7
185a c402       |    |		Store	0x2,0x2
185b e402       |    |		Load	0x2,0x2
185c 0b16       |    |		Execute_Immediate	Case_Compare,0x16
185d 7029       |p)  |		Jump_Nonzero	0x1887
185e 0f17       |    |		Execute_Immediate	Equal,0x17
185f 702b       |p+  |		Jump_Nonzero	0x188b
1860 e407       |    |		Load	0x2,0x7
1861 e5ff       |    |		Load	0x2,-0x1
1862 01dc       |    |		Execute	Vector,Last
1863 e5ff       |    |		Load	0x2,-0x1
1864 01cf       |    |		Execute	Vector,Slice_Read
1865 e030       | 0  |		Load	0x0,0x30
1866 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
1867 00da       |    |		Load_Top	At_Offset_2
1868 017d       | }  |		Execute	Record,Structure_Write
1869 e5ff       |    |		Load	0x2,-0x1
186a 01dc       |    |		Execute	Vector,Last
186b 0a01       |    |		Execute_Immediate	Plus,0x1
186c c407       |    |		Store	0x2,0x7
186d 00d9       |    |		Load_Top	At_Offset_1
186e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
186f 480c       |H   |		Short_Literal	0xc
1870 026e       | n  |		Execute	Discrete,Modulo
1871 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1872 00d9       |    |		Load_Top	At_Offset_1
1873 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
1874 0f01       |    |		Execute_Immediate	Equal,0x1
1875 6803       |h   |		Jump_Zero	0x1879
1876 00d8       |    |		Load_Top	At_Offset_0
1877 0a0c       |    |		Execute_Immediate	Plus,0xc
1878 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1879 606e       |`n  |		Indirect_Literal	Discrete,0x18e8,{0x00000000, 0x00000e10}
187a 00d9       |    |		Load_Top	At_Offset_1
187b 0271       | q  |		Execute	Discrete,Times
187c 483c       |H<  |		Short_Literal	0x3c
187d 00db       |    |		Load_Top	At_Offset_3
187e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
187f 0271       | q  |		Execute	Discrete,Times
1880 0273       | s  |		Execute	Discrete,Plus
1881 00da       |    |		Load_Top	At_Offset_2
1882 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
1883 0273       | s  |		Execute	Discrete,Plus
1884 090f       |    |		Execute_Immediate	Binary_Scale,0xf
1885 a405       |    |		Store_Unchecked	0x2,0x5
1886 7806       |x   |		Jump	0x188d
1887 00d1       |    |		Pop_Control	Pop_Count_1
1888 605b       |`[  |		Indirect_Literal	Discrete,0x18e4,{0x00000000, 0x54600000}
1889 a405       |    |		Store_Unchecked	0x2,0x5
188a 7802       |x   |		Jump	0x188d
188b 6064       |`d  |		Indirect_Literal	Discrete,0x18f0,{0x00000000, 0xa8c00000}
188c a405       |    |		Store_Unchecked	0x2,0x5
188d e405       |    |		Load	0x2,0x5
188e a406       |    |		Store_Unchecked	0x2,0x6
188f e407       |    |		Load	0x2,0x7
1890 e5ff       |    |		Load	0x2,-0x1
1891 01dc       |    |		Execute	Vector,Last
1892 027a       | z  |		Execute	Discrete,Less_Equal
1893 6801       |h   |		Jump_Zero	0x1895
1894 08e0       |    |		Execute_Immediate	Raise,0xe0
1895 e404       |    |		Load	0x2,0x4
1896 e405       |    |		Load	0x2,0x5
1897 e004       |    |		Load	0x0,0x4
1898 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
1899 00d9       |    |		Load_Top	At_Offset_1
189a 00d0       |    |		Action	Swap_Control
189b 0260       | `  |		Execute	Discrete,In_Type
189c 7001       |p   |		Jump_Nonzero	0x189e
189d 0801       |    |		Execute_Immediate	Raise,0x1
189e e409       |    |		Load	0x2,0x9
189f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
18a0 e409       |    |		Load	0x2,0x9
18a1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
18a2 0a01       |    |		Execute_Immediate	Plus,0x1
18a3 00d8       |    |		Load_Top	At_Offset_0
18a4 e004       |    |		Load	0x0,0x4
18a5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
18a6 0260       | `  |		Execute	Discrete,In_Type
18a7 7001       |p   |		Jump_Nonzero	0x18a9
18a8 0801       |    |		Execute_Immediate	Raise,0x1
18a9 e409       |    |		Load	0x2,0x9
18aa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
18ab e004       |    |		Load	0x0,0x4
18ac 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
18ad 829a       |    |		Call	0x1,0x9a
18ae c5fd       |    |		Store	0x2,-0x3
18af e404       |    |		Load	0x2,0x4
18b0 e406       |    |		Load	0x2,0x6
18b1 e004       |    |		Load	0x0,0x4
18b2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
18b3 00d9       |    |		Load_Top	At_Offset_1
18b4 00d0       |    |		Action	Swap_Control
18b5 0260       | `  |		Execute	Discrete,In_Type
18b6 7001       |p   |		Jump_Nonzero	0x18b8
18b7 0801       |    |		Execute_Immediate	Raise,0x1
18b8 e409       |    |		Load	0x2,0x9
18b9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
18ba e409       |    |		Load	0x2,0x9
18bb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
18bc 0a01       |    |		Execute_Immediate	Plus,0x1
18bd 00d8       |    |		Load_Top	At_Offset_0
18be e004       |    |		Load	0x0,0x4
18bf 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
18c0 0260       | `  |		Execute	Discrete,In_Type
18c1 7001       |p   |		Jump_Nonzero	0x18c3
18c2 0801       |    |		Execute_Immediate	Raise,0x1
18c3 e409       |    |		Load	0x2,0x9
18c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
18c5 e004       |    |		Load	0x0,0x4
18c6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
18c7 829a       |    |		Call	0x1,0x9a
18c8 c5fe       |    |		Store	0x2,-0x2
18c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
18ca			TRAP_17d0:
18ca 0007       |    |		Action	Break_Optional
18cb e002       |    |		Load	0x0,0x2
18cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
18cd 4801       |H   |		Short_Literal	0x1
18ce 4801       |H   |		Short_Literal	0x1
18cf e00e       |    |		Load	0x0,0xe
18d0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
18d1 0334       | 4  |		Declare_Variable	Array,With_Constraint
18d2 e5ff       |    |		Load	0x2,-0x1
18d3 e00e       |    |		Load	0x0,0xe
18d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
18d5 4801       |H   |		Short_Literal	0x1
18d6 00da       |    |		Load_Top	At_Offset_2
18d7 01d6       |    |		Execute	Vector,Field_Write
18d8 6007       |`   |		Indirect_Literal	Discrete,0x18e0,{0x00000000, 0x00002825}
18d9 e002       |    |		Load	0x0,0x2
18da 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
18db c5fc       |    |		Store	0x2,-0x4
18dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
18dd 0000 0000  |    |		.XXX[0x3]
18df 0000       |    |
18e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002825}
18e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x54600000}
18e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000e10}
18ec ffff ffff  |    |		.LITERAL	{0xffffffff, 0x57400000}
18f0 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
18f4 0000 0000  |    |		.BLANK	0000[0x4]
18f8 ; --------------------------------------------------------------------------------------
18f8 ; SUBPROGRAM
18f8 ; --------------------------------------------------------------------------------------
18f8 1911       |    |		.CONST	0x1911								; Address of begin
18f9 0004       |    |		.CONST	0x0004								; Address of exception handler
18fa 0004       |    |		.CONST	0x0004								; Number of locals
18fb			INIT_18f8:
18fb 4800       |H   |		Short_Literal	0x0
18fc e5fe       |    |		Load	0x2,-0x2
18fd 0092 2b87  |  + |		Action	Push_String_Extended,0x2b87					; ".."
18ff e02f       | /  |		Load	0x0,0x2f
1900 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1901 00e2       |    |		Load_Encached	Integer_Cache
1902 03f1       |    |		Declare_Variable	Discrete,With_Value
1903 00db       |    |		Load_Top	At_Offset_3
1904 e2aa       |    |		Load	0x1,0xaa
1905 01d7       |    |		Execute	Vector,Field_Read
1906 e5fc       |    |		Load	0x2,-0x4
1907 01dc       |    |		Execute	Vector,Last
1908 e2ab       |    |		Load	0x1,0xab
1909 1c08       |    |		Execute_Immediate	Run_Utility,0x8
190a 00d8       |    |		Load_Top	At_Offset_0
190b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
190c e004       |    |		Load	0x0,0x4
190d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
190e 02c7       |    |		Declare_Variable	Any
190f 00d8       |    |		Load_Top	At_Offset_0
1910 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1911			BODY_18f8:
1911 00da       |    |		Load_Top	At_Offset_2
1912 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1913 685e       |h^  |		Jump_Zero	0x1972
1914 00da       |    |		Load_Top	At_Offset_2
1915 e5fe       |    |		Load	0x2,-0x2
1916 01dd       |    |		Execute	Vector,First
1917 027f       |    |		Execute	Discrete,Equal
1918 6805       |h   |		Jump_Zero	0x191e
1919 e003       |    |		Load	0x0,0x3
191a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
191b 00da       |    |		Load_Top	At_Offset_2
191c 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
191d 7824       |x$  |		Jump	0x1942
191e e5fb       |    |		Load	0x2,-0x5
191f 00d9       |    |		Load_Top	At_Offset_1
1920 0120       |    |		Execute	Any,Is_Value
1921 6803       |h   |		Jump_Zero	0x1925
1922 e004       |    |		Load	0x0,0x4
1923 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1924 7801       |x   |		Jump	0x1926
1925 00d9       |    |		Load_Top	At_Offset_1
1926 00db       |    |		Load_Top	At_Offset_3
1927 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1928 0120       |    |		Execute	Any,Is_Value
1929 6806       |h   |		Jump_Zero	0x1930
192a e004       |    |		Load	0x0,0x4
192b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
192c e403       |    |		Load	0x2,0x3
192d 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
192e 00d1       |    |		Pop_Control	Pop_Count_1
192f 7802       |x   |		Jump	0x1932
1930 00db       |    |		Load_Top	At_Offset_3
1931 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1932 e5fe       |    |		Load	0x2,-0x2
1933 01dd       |    |		Execute	Vector,First
1934 e402       |    |		Load	0x2,0x2
1935 0aff       |    |		Execute_Immediate	Plus,-0x1
1936 00d8       |    |		Load_Top	At_Offset_0
1937 00e2       |    |		Load_Encached	Integer_Cache
1938 0260       | `  |		Execute	Discrete,In_Type
1939 7001       |p   |		Jump_Nonzero	0x193b
193a 0801       |    |		Execute_Immediate	Raise,0x1
193b e5fe       |    |		Load	0x2,-0x2
193c 01cf       |    |		Execute	Vector,Slice_Read
193d 82b0       |    |		Call	0x1,0xb0
193e e403       |    |		Load	0x2,0x3
193f 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
1940 c404       |    |		Store	0x2,0x4
1941 c5fb       |    |		Store	0x2,-0x5
1942 00da       |    |		Load_Top	At_Offset_2
1943 0a02       |    |		Execute_Immediate	Plus,0x2
1944 e5fe       |    |		Load	0x2,-0x2
1945 01dc       |    |		Execute	Vector,Last
1946 027d       | }  |		Execute	Discrete,Greater
1947 6805       |h   |		Jump_Zero	0x194d
1948 e003       |    |		Load	0x0,0x3
1949 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
194a 00da       |    |		Load_Top	At_Offset_2
194b 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
194c 7845       |xE  |		Jump	0x1992
194d e5fb       |    |		Load	0x2,-0x5
194e 00da       |    |		Load_Top	At_Offset_2
194f 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
1950 0120       |    |		Execute	Any,Is_Value
1951 6806       |h   |		Jump_Zero	0x1958
1952 e004       |    |		Load	0x0,0x4
1953 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1954 00db       |    |		Load_Top	At_Offset_3
1955 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
1956 00d1       |    |		Pop_Control	Pop_Count_1
1957 7802       |x   |		Jump	0x195a
1958 00da       |    |		Load_Top	At_Offset_2
1959 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
195a 00da       |    |		Load_Top	At_Offset_2
195b 0120       |    |		Execute	Any,Is_Value
195c 6803       |h   |		Jump_Zero	0x1960
195d e004       |    |		Load	0x0,0x4
195e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
195f 7801       |x   |		Jump	0x1961
1960 00da       |    |		Load_Top	At_Offset_2
1961 e402       |    |		Load	0x2,0x2
1962 0a02       |    |		Execute_Immediate	Plus,0x2
1963 00d8       |    |		Load_Top	At_Offset_0
1964 00e2       |    |		Load_Encached	Integer_Cache
1965 0260       | `  |		Execute	Discrete,In_Type
1966 7001       |p   |		Jump_Nonzero	0x1968
1967 0801       |    |		Execute_Immediate	Raise,0x1
1968 e5fe       |    |		Load	0x2,-0x2
1969 01dc       |    |		Execute	Vector,Last
196a e5fe       |    |		Load	0x2,-0x2
196b 01cf       |    |		Execute	Vector,Slice_Read
196c 82b0       |    |		Call	0x1,0xb0
196d c404       |    |		Store	0x2,0x4
196e 00db       |    |		Load_Top	At_Offset_3
196f 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
1970 c5fb       |    |		Store	0x2,-0x5
1971 7820       |x   |		Jump	0x1992
1972 e5fb       |    |		Load	0x2,-0x5
1973 00da       |    |		Load_Top	At_Offset_2
1974 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
1975 0120       |    |		Execute	Any,Is_Value
1976 6806       |h   |		Jump_Zero	0x197d
1977 e004       |    |		Load	0x0,0x4
1978 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1979 00db       |    |		Load_Top	At_Offset_3
197a 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
197b 00d1       |    |		Pop_Control	Pop_Count_1
197c 7802       |x   |		Jump	0x197f
197d 00da       |    |		Load_Top	At_Offset_2
197e 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
197f 00db       |    |		Load_Top	At_Offset_3
1980 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1981 0120       |    |		Execute	Any,Is_Value
1982 6806       |h   |		Jump_Zero	0x1989
1983 e004       |    |		Load	0x0,0x4
1984 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1985 e403       |    |		Load	0x2,0x3
1986 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1987 00d1       |    |		Pop_Control	Pop_Count_1
1988 7802       |x   |		Jump	0x198b
1989 00db       |    |		Load_Top	At_Offset_3
198a 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
198b e5fe       |    |		Load	0x2,-0x2
198c 82b0       |    |		Call	0x1,0xb0
198d e403       |    |		Load	0x2,0x3
198e 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
198f 00db       |    |		Load_Top	At_Offset_3
1990 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
1991 c5fb       |    |		Store	0x2,-0x5
1992 e5fc       |    |		Load	0x2,-0x4
1993 00da       |    |		Load_Top	At_Offset_2
1994 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1995 00d9       |    |		Load_Top	At_Offset_1
1996 e2ac       |    |		Load	0x1,0xac
1997 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1998 a5fd       |    |		Store_Unchecked	0x2,-0x3
1999 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
199a 0000 0000  |    |		.BLANK	0000[0x6]
19a0 ; --------------------------------------------------------------------------------------
19a0 ; SUBPROGRAM
19a0 ; --------------------------------------------------------------------------------------
19a0 19b7       |    |		.CONST	0x19b7								; Address of begin
19a1 0004       |    |		.CONST	0x0004								; Address of exception handler
19a2 0003       |    |		.CONST	0x0003								; Number of locals
19a3			INIT_19a0:
19a3 4800       |H   |		Short_Literal	0x0
19a4 e5fe       |    |		Load	0x2,-0x2
19a5 0092 2b87  |  + |		Action	Push_String_Extended,0x2b87					; ".."
19a7 e02f       | /  |		Load	0x0,0x2f
19a8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
19a9 00e2       |    |		Load_Encached	Integer_Cache
19aa 03f1       |    |		Declare_Variable	Discrete,With_Value
19ab 00db       |    |		Load_Top	At_Offset_3
19ac e2aa       |    |		Load	0x1,0xaa
19ad 01d7       |    |		Execute	Vector,Field_Read
19ae e5fc       |    |		Load	0x2,-0x4
19af 01dc       |    |		Execute	Vector,Last
19b0 e2ab       |    |		Load	0x1,0xab
19b1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
19b2 e2ac       |    |		Load	0x1,0xac
19b3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
19b4 00d8       |    |		Load_Top	At_Offset_0
19b5 0227       | '  |		Execute	Access,All_Reference
19b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
19b7			BODY_19a0:
19b7 00d9       |    |		Load_Top	At_Offset_1
19b8 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
19b9 6838       |h8  |		Jump_Zero	0x19f2
19ba 00d9       |    |		Load_Top	At_Offset_1
19bb e5fe       |    |		Load	0x2,-0x2
19bc 01dd       |    |		Execute	Vector,First
19bd 027f       |    |		Execute	Discrete,Equal
19be 6805       |h   |		Jump_Zero	0x19c4
19bf 6044       |`D  |		Indirect_Literal	Discrete,0x1a04,{0xffffffff, 0x80000001}
19c0 00d9       |    |		Load_Top	At_Offset_1
19c1 0227       | '  |		Execute	Access,All_Reference
19c2 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
19c3 7811       |x   |		Jump	0x19d5
19c4 e5fe       |    |		Load	0x2,-0x2
19c5 01dd       |    |		Execute	Vector,First
19c6 00da       |    |		Load_Top	At_Offset_2
19c7 0aff       |    |		Execute_Immediate	Plus,-0x1
19c8 00d8       |    |		Load_Top	At_Offset_0
19c9 00e2       |    |		Load_Encached	Integer_Cache
19ca 0260       | `  |		Execute	Discrete,In_Type
19cb 7001       |p   |		Jump_Nonzero	0x19cd
19cc 0801       |    |		Execute_Immediate	Raise,0x1
19cd e5fe       |    |		Load	0x2,-0x2
19ce 01cf       |    |		Execute	Vector,Slice_Read
19cf 00e2       |    |		Load_Encached	Integer_Cache
19d0 00e0       |    |		Load_Encached	Standard_Cache
19d1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
19d2 00d9       |    |		Load_Top	At_Offset_1
19d3 0227       | '  |		Execute	Access,All_Reference
19d4 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
19d5 00d9       |    |		Load_Top	At_Offset_1
19d6 0a02       |    |		Execute_Immediate	Plus,0x2
19d7 e5fe       |    |		Load	0x2,-0x2
19d8 01dc       |    |		Execute	Vector,Last
19d9 027d       | }  |		Execute	Discrete,Greater
19da 6805       |h   |		Jump_Zero	0x19e0
19db 6024       |`$  |		Indirect_Literal	Discrete,0x1a00,{0x00000000, 0x7fffffff}
19dc 00d9       |    |		Load_Top	At_Offset_1
19dd 0227       | '  |		Execute	Access,All_Reference
19de 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
19df 7819       |x   |		Jump	0x19f9
19e0 00d9       |    |		Load_Top	At_Offset_1
19e1 0a02       |    |		Execute_Immediate	Plus,0x2
19e2 00d8       |    |		Load_Top	At_Offset_0
19e3 00e2       |    |		Load_Encached	Integer_Cache
19e4 0260       | `  |		Execute	Discrete,In_Type
19e5 7001       |p   |		Jump_Nonzero	0x19e7
19e6 0801       |    |		Execute_Immediate	Raise,0x1
19e7 e5fe       |    |		Load	0x2,-0x2
19e8 01dc       |    |		Execute	Vector,Last
19e9 e5fe       |    |		Load	0x2,-0x2
19ea 01cf       |    |		Execute	Vector,Slice_Read
19eb 00e2       |    |		Load_Encached	Integer_Cache
19ec 00e0       |    |		Load_Encached	Standard_Cache
19ed 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
19ee 00d9       |    |		Load_Top	At_Offset_1
19ef 0227       | '  |		Execute	Access,All_Reference
19f0 2a10       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
19f1 7807       |x   |		Jump	0x19f9
19f2 e5fe       |    |		Load	0x2,-0x2
19f3 00e2       |    |		Load_Encached	Integer_Cache
19f4 00e0       |    |		Load_Encached	Standard_Cache
19f5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
19f6 00d9       |    |		Load_Top	At_Offset_1
19f7 0227       | '  |		Execute	Access,All_Reference
19f8 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
19f9 e5fc       |    |		Load	0x2,-0x4
19fa 00d9       |    |		Load_Top	At_Offset_1
19fb 0227       | '  |		Execute	Access,All_Reference
19fc 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
19fd 00d8       |    |		Load_Top	At_Offset_0
19fe a5fd       |    |		Store_Unchecked	0x2,-0x3
19ff 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a00 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
1a04 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
1a08 ; --------------------------------------------------------------------------------------
1a08 ; SUBPROGRAM
1a08 ; --------------------------------------------------------------------------------------
1a08 1a1d       |    |		.CONST	0x1a1d								; Address of begin
1a09 0004       |    |		.CONST	0x0004								; Address of exception handler
1a0a 0003       |    |		.CONST	0x0003								; Number of locals
1a0b			INIT_1a08:
1a0b 4801       |H   |		Short_Literal	0x1
1a0c 00db       |    |		Load_Top	At_Offset_3
1a0d 01db       |    |		Execute	Vector,Length
1a0e 00d8       |    |		Load_Top	At_Offset_0
1a0f 00e2       |    |		Load_Encached	Integer_Cache
1a10 0260       | `  |		Execute	Discrete,In_Type
1a11 7001       |p   |		Jump_Nonzero	0x1a13
1a12 0801       |    |		Execute_Immediate	Raise,0x1
1a13 00e9       |    |		Load_Encached	String_Cache
1a14 035b       | [  |		Declare_Type	Array,Constrained
1a15 0337       | 7  |		Declare_Variable	Array
1a16 00db       |    |		Load_Top	At_Offset_3
1a17 e02f       | /  |		Load	0x0,0x2f
1a18 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
1a19 00d9       |    |		Load_Top	At_Offset_1
1a1a 01d4       |    |		Execute	Vector,Structure_Write
1a1b 00e2       |    |		Load_Encached	Integer_Cache
1a1c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1a1d			BODY_1a08:
1a1d 00cf       |    |		Action	Mark_Auxiliary
1a1e 00da       |    |		Load_Top	At_Offset_2
1a1f 01d9       |    |		Execute	Vector,Reverse_Bounds
1a20 0263       | c  |		Execute	Discrete,Above_Bound
1a21 701b       |p   |		Jump_Nonzero	0x1a3d
1a22 00d8       |    |		Load_Top	At_Offset_0
1a23 e402       |    |		Load	0x2,0x2
1a24 01d7       |    |		Execute	Vector,Field_Read
1a25 00d8       |    |		Load_Top	At_Offset_0
1a26 4809       |H   |		Short_Literal	0x9
1a27 4820       |H   |		Short_Literal	0x20
1a28 0262       | b  |		Execute	Discrete,In_Range
1a29 6807       |h   |		Jump_Zero	0x1a31
1a2a 0b0b       |    |		Execute_Immediate	Case_Compare,0xb
1a2b 7005       |p   |		Jump_Nonzero	0x1a31
1a2c 480d       |H   |		Short_Literal	0xd
1a2d 481f       |H   |		Short_Literal	0x1f
1a2e 0262       | b  |		Execute	Discrete,In_Range
1a2f 7002       |p   |		Jump_Nonzero	0x1a32
1a30 780a       |x   |		Jump	0x1a3b
1a31 00d1       |    |		Pop_Control	Pop_Count_1
1a32 00db       |    |		Load_Top	At_Offset_3
1a33 0a01       |    |		Execute_Immediate	Plus,0x1
1a34 c403       |    |		Store	0x2,0x3
1a35 00d8       |    |		Load_Top	At_Offset_0
1a36 e402       |    |		Load	0x2,0x2
1a37 01d7       |    |		Execute	Vector,Field_Read
1a38 e403       |    |		Load	0x2,0x3
1a39 e402       |    |		Load	0x2,0x2
1a3a 01d6       |    |		Execute	Vector,Field_Write
1a3b 00c8       |    |		Action	Pop_Auxiliary_Range
1a3c 3fe5       |?   |		Loop_Increasing	0x1a22
1a3d 00ce       |    |		Action	Pop_Auxiliary
1a3e 4801       |H   |		Short_Literal	0x1
1a3f 00d9       |    |		Load_Top	At_Offset_1
1a40 00db       |    |		Load_Top	At_Offset_3
1a41 01cf       |    |		Execute	Vector,Slice_Read
1a42 00e9       |    |		Load_Encached	String_Cache
1a43 01c6       |    |		Execute	Vector,Convert_To_Formal
1a44 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1a45 0000 0000  |    |		.XXX[0x3]
1a47 0000       |    |
1a48 ; --------------------------------------------------------------------------------------
1a48 ; SUBPROGRAM
1a48 ; --------------------------------------------------------------------------------------
1a48 1a5a       | Z  |		.CONST	0x1a5a								; Address of begin
1a49 0004       |    |		.CONST	0x0004								; Address of exception handler
1a4a 0008       |    |		.CONST	0x0008								; Number of locals
1a4b			INIT_1a48:
1a4b e2ac       |    |		Load	0x1,0xac
1a4c 0007       |    |		Action	Break_Optional
1a4d e00d       |    |		Load	0x0,0xd
1a4e 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
1a4f 02c7       |    |		Declare_Variable	Any
1a50 00d8       |    |		Load_Top	At_Offset_0
1a51 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1a52 e00d       |    |		Load	0x0,0xd
1a53 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
1a54 e2a1       |    |		Load	0x1,0xa1
1a55 0007       |    |		Action	Break_Optional
1a56 e2a0       |    |		Load	0x1,0xa0
1a57 0007       |    |		Action	Break_Optional
1a58 00e1       |    |		Load_Encached	Boolean_Cache
1a59 03e9       |    |		Declare_Variable	Discrete,Duplicate
1a5a			BODY_1a48:
1a5a e5ff       |    |		Load	0x2,-0x1
1a5b 4612       |F   |		Jump_Case	0x13
1a5c 781c       |x   |		Jump	0x1a79								; case 0x0
1a5d 7872       |xr  |		Jump	0x1ad0								; case 0x1
1a5e 7961       |ya  |		Jump	0x1bc0								; case 0x2
1a5f 7960       |y`  |		Jump	0x1bc0								; case 0x3
1a60 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x4
1a61 7894       |x   |		Jump	0x1af6								; case 0x5
1a62 78f8       |x   |		Jump	0x1b5b								; case 0x6
1a63 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
1a64 797e       |y~  |		Jump	0x1be3								; case 0x8
1a65 797d       |y}  |		Jump	0x1be3								; case 0x9
1a66 797c       |y|  |		Jump	0x1be3								; case 0xa
1a67 797b       |y{  |		Jump	0x1be3								; case 0xb
1a68 797a       |yz  |		Jump	0x1be3								; case 0xc
1a69 7983       |y   |		Jump	0x1bed								; case 0xd
1a6a 7982       |y   |		Jump	0x1bed								; case 0xe
1a6b 7981       |y   |		Jump	0x1bed								; case 0xf
1a6c 7980       |y   |		Jump	0x1bed								; case 0x10
1a6d 7801       |x   |		Jump	0x1a6f								; case 0x11
1a6e 7800       |x   |		Jump	0x1a6f								; case 0x12
1a6f e5fb       |    |		Load	0x2,-0x5
1a70 e5fc       |    |		Load	0x2,-0x4
1a71 e2ac       |    |		Load	0x1,0xac
1a72 e5fe       |    |		Load	0x2,-0x2
1a73 e5ff       |    |		Load	0x2,-0x1
1a74 82b2       |    |		Call	0x1,0xb2
1a75 c5fd       |    |		Store	0x2,-0x3
1a76 00d1       |    |		Pop_Control	Pop_Count_1
1a77 c5fb       |    |		Store	0x2,-0x5
1a78 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a79 e5fe       |    |		Load	0x2,-0x2
1a7a e00d       |    |		Load	0x0,0xd
1a7b 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
1a7c c403       |    |		Store	0x2,0x3
1a7d e403       |    |		Load	0x2,0x3
1a7e e00d       |    |		Load	0x0,0xd
1a7f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1a80 7025       |p%  |		Jump_Nonzero	0x1aa6
1a81 4804       |H   |		Short_Literal	0x4
1a82 e5fc       |    |		Load	0x2,-0x4
1a83 01dc       |    |		Execute	Vector,Last
1a84 e2ab       |    |		Load	0x1,0xab
1a85 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1a86 e2ac       |    |		Load	0x1,0xac
1a87 00d9       |    |		Load_Top	At_Offset_1
1a88 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1a89 e5fc       |    |		Load	0x2,-0x4
1a8a 00d9       |    |		Load_Top	At_Offset_1
1a8b 00d8       |    |		Load_Top	At_Offset_0
1a8c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1a8d 00da       |    |		Load_Top	At_Offset_2
1a8e 01da       |    |		Execute	Vector,Bounds
1a8f 00da       |    |		Load_Top	At_Offset_2
1a90 01da       |    |		Execute	Vector,Bounds
1a91 00da       |    |		Load_Top	At_Offset_2
1a92 027f       |    |		Execute	Discrete,Equal
1a93 7001       |p   |		Jump_Nonzero	0x1a95
1a94 08e0       |    |		Execute_Immediate	Raise,0xe0
1a95 00cd       |    |		Action	Spare6_Action
1a96 027f       |    |		Execute	Discrete,Equal
1a97 7001       |p   |		Jump_Nonzero	0x1a99
1a98 08e0       |    |		Execute_Immediate	Raise,0xe0
1a99 00d2       |    |		Pop_Control	Pop_Count_2
1a9a 00d9       |    |		Load_Top	At_Offset_1
1a9b 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1a9c e403       |    |		Load	0x2,0x3
1a9d e2ab       |    |		Load	0x1,0xab
1a9e 2306       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x6
1a9f 0119       |    |		Execute	Any,Check_In_Formal_Type
1aa0 00d9       |    |		Load_Top	At_Offset_1
1aa1 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
1aa2 e2ac       |    |		Load	0x1,0xac
1aa3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1aa4 a5fd       |    |		Store_Unchecked	0x2,-0x3
1aa5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1aa6 e5fe       |    |		Load	0x2,-0x2
1aa7 e00d       |    |		Load	0x0,0xd
1aa8 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
1aa9 a404       |    |		Store_Unchecked	0x2,0x4
1aaa e404       |    |		Load	0x2,0x4
1aab e00d       |    |		Load	0x0,0xd
1aac 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
1aad 695c       |i\  |		Jump_Zero	0x1c0a
1aae 4805       |H   |		Short_Literal	0x5
1aaf e5fc       |    |		Load	0x2,-0x4
1ab0 01dc       |    |		Execute	Vector,Last
1ab1 e2ab       |    |		Load	0x1,0xab
1ab2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ab3 e2ac       |    |		Load	0x1,0xac
1ab4 00d9       |    |		Load_Top	At_Offset_1
1ab5 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1ab6 e5fc       |    |		Load	0x2,-0x4
1ab7 00d9       |    |		Load_Top	At_Offset_1
1ab8 00d8       |    |		Load_Top	At_Offset_0
1ab9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1aba 00da       |    |		Load_Top	At_Offset_2
1abb 01da       |    |		Execute	Vector,Bounds
1abc 00da       |    |		Load_Top	At_Offset_2
1abd 01da       |    |		Execute	Vector,Bounds
1abe 00da       |    |		Load_Top	At_Offset_2
1abf 027f       |    |		Execute	Discrete,Equal
1ac0 7001       |p   |		Jump_Nonzero	0x1ac2
1ac1 08e0       |    |		Execute_Immediate	Raise,0xe0
1ac2 00cd       |    |		Action	Spare6_Action
1ac3 027f       |    |		Execute	Discrete,Equal
1ac4 7001       |p   |		Jump_Nonzero	0x1ac6
1ac5 08e0       |    |		Execute_Immediate	Raise,0xe0
1ac6 00d2       |    |		Pop_Control	Pop_Count_2
1ac7 00d9       |    |		Load_Top	At_Offset_1
1ac8 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1ac9 e404       |    |		Load	0x2,0x4
1aca 00d9       |    |		Load_Top	At_Offset_1
1acb 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
1acc e2ac       |    |		Load	0x1,0xac
1acd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1ace a5fd       |    |		Store_Unchecked	0x2,-0x3
1acf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1ad0 4806       |H   |		Short_Literal	0x6
1ad1 e5fc       |    |		Load	0x2,-0x4
1ad2 01dc       |    |		Execute	Vector,Last
1ad3 e2ab       |    |		Load	0x1,0xab
1ad4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ad5 e2ac       |    |		Load	0x1,0xac
1ad6 00d9       |    |		Load_Top	At_Offset_1
1ad7 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1ad8 e5fc       |    |		Load	0x2,-0x4
1ad9 00d9       |    |		Load_Top	At_Offset_1
1ada 00d8       |    |		Load_Top	At_Offset_0
1adb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1adc 00da       |    |		Load_Top	At_Offset_2
1add 01da       |    |		Execute	Vector,Bounds
1ade 00da       |    |		Load_Top	At_Offset_2
1adf 01da       |    |		Execute	Vector,Bounds
1ae0 00da       |    |		Load_Top	At_Offset_2
1ae1 027f       |    |		Execute	Discrete,Equal
1ae2 7001       |p   |		Jump_Nonzero	0x1ae4
1ae3 08e0       |    |		Execute_Immediate	Raise,0xe0
1ae4 00cd       |    |		Action	Spare6_Action
1ae5 027f       |    |		Execute	Discrete,Equal
1ae6 7001       |p   |		Jump_Nonzero	0x1ae8
1ae7 08e0       |    |		Execute_Immediate	Raise,0xe0
1ae8 00d2       |    |		Pop_Control	Pop_Count_2
1ae9 00d9       |    |		Load_Top	At_Offset_1
1aea 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1aeb e5fe       |    |		Load	0x2,-0x2
1aec e00d       |    |		Load	0x0,0xd
1aed 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
1aee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1aef 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1af0 00d9       |    |		Load_Top	At_Offset_1
1af1 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
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 00e1       |    |		Load_Encached	Boolean_Cache
1af7 00e1       |    |		Load_Encached	Boolean_Cache
1af8 e2a3       |    |		Load	0x1,0xa3
1af9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1afa e5fe       |    |		Load	0x2,-0x2
1afb e2a3       |    |		Load	0x1,0xa3
1afc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1afd c406       |    |		Store	0x2,0x6
1afe 005b       | [  |		Store_Top	Discrete,At_Offset_3
1aff 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1b00 00d9       |    |		Load_Top	At_Offset_1
1b01 701b       |p   |		Jump_Nonzero	0x1b1d
1b02 00d8       |    |		Load_Top	At_Offset_0
1b03 7019       |p   |		Jump_Nonzero	0x1b1d
1b04 e002       |    |		Load	0x0,0x2
1b05 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1b06 4801       |H   |		Short_Literal	0x1
1b07 4802       |H   |		Short_Literal	0x2
1b08 e00e       |    |		Load	0x0,0xe
1b09 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b0a 0334       | 4  |		Declare_Variable	Array,With_Constraint
1b0b e5fe       |    |		Load	0x2,-0x2
1b0c e00e       |    |		Load	0x0,0xe
1b0d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b0e 4801       |H   |		Short_Literal	0x1
1b0f 00da       |    |		Load_Top	At_Offset_2
1b10 01d6       |    |		Execute	Vector,Field_Write
1b11 0092 2b88  |  + |		Action	Push_String_Extended,0x2b88					; "'IS"
1b13 e00e       |    |		Load	0x0,0xe
1b14 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b15 4802       |H   |		Short_Literal	0x2
1b16 00da       |    |		Load_Top	At_Offset_2
1b17 01d6       |    |		Execute	Vector,Field_Write
1b18 60f7       |`   |		Indirect_Literal	Discrete,0x1c10,{0x00000000, 0x00002826}
1b19 e002       |    |		Load	0x0,0x2
1b1a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1b1b c5fb       |    |		Store	0x2,-0x5
1b1c 781c       |x   |		Jump	0x1b39
1b1d 00d9       |    |		Load_Top	At_Offset_1
1b1e 681a       |h   |		Jump_Zero	0x1b39
1b1f 00d8       |    |		Load_Top	At_Offset_0
1b20 7018       |p   |		Jump_Nonzero	0x1b39
1b21 e002       |    |		Load	0x0,0x2
1b22 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1b23 4801       |H   |		Short_Literal	0x1
1b24 4802       |H   |		Short_Literal	0x2
1b25 e00e       |    |		Load	0x0,0xe
1b26 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b27 0334       | 4  |		Declare_Variable	Array,With_Constraint
1b28 e5fe       |    |		Load	0x2,-0x2
1b29 e00e       |    |		Load	0x0,0xe
1b2a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b2b 4801       |H   |		Short_Literal	0x1
1b2c 00da       |    |		Load_Top	At_Offset_2
1b2d 01d6       |    |		Execute	Vector,Field_Write
1b2e 0092 2b88  |  + |		Action	Push_String_Extended,0x2b88					; "'IS"
1b30 e00e       |    |		Load	0x0,0xe
1b31 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b32 4802       |H   |		Short_Literal	0x2
1b33 00da       |    |		Load_Top	At_Offset_2
1b34 01d6       |    |		Execute	Vector,Field_Write
1b35 60d6       |`   |		Indirect_Literal	Discrete,0x1c0c,{0x00000000, 0x00002831}
1b36 e002       |    |		Load	0x0,0x2
1b37 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1b38 c5fb       |    |		Store	0x2,-0x5
1b39 4807       |H   |		Short_Literal	0x7
1b3a e5fc       |    |		Load	0x2,-0x4
1b3b 01dc       |    |		Execute	Vector,Last
1b3c e2ab       |    |		Load	0x1,0xab
1b3d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1b3e e2ac       |    |		Load	0x1,0xac
1b3f 00d9       |    |		Load_Top	At_Offset_1
1b40 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1b41 e5fc       |    |		Load	0x2,-0x4
1b42 00d9       |    |		Load_Top	At_Offset_1
1b43 00d8       |    |		Load_Top	At_Offset_0
1b44 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1b45 00da       |    |		Load_Top	At_Offset_2
1b46 01da       |    |		Execute	Vector,Bounds
1b47 00da       |    |		Load_Top	At_Offset_2
1b48 01da       |    |		Execute	Vector,Bounds
1b49 00da       |    |		Load_Top	At_Offset_2
1b4a 027f       |    |		Execute	Discrete,Equal
1b4b 7001       |p   |		Jump_Nonzero	0x1b4d
1b4c 08e0       |    |		Execute_Immediate	Raise,0xe0
1b4d 00cd       |    |		Action	Spare6_Action
1b4e 027f       |    |		Execute	Discrete,Equal
1b4f 7001       |p   |		Jump_Nonzero	0x1b51
1b50 08e0       |    |		Execute_Immediate	Raise,0xe0
1b51 00d2       |    |		Pop_Control	Pop_Count_2
1b52 00d9       |    |		Load_Top	At_Offset_1
1b53 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1b54 00db       |    |		Load_Top	At_Offset_3
1b55 00d9       |    |		Load_Top	At_Offset_1
1b56 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
1b57 e2ac       |    |		Load	0x1,0xac
1b58 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1b59 a5fd       |    |		Store_Unchecked	0x2,-0x3
1b5a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1b5b 00e1       |    |		Load_Encached	Boolean_Cache
1b5c 00e1       |    |		Load_Encached	Boolean_Cache
1b5d e2a4       |    |		Load	0x1,0xa4
1b5e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b5f e5fe       |    |		Load	0x2,-0x2
1b60 e2a4       |    |		Load	0x1,0xa4
1b61 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b62 c405       |    |		Store	0x2,0x5
1b63 005b       | [  |		Store_Top	Discrete,At_Offset_3
1b64 0059       | Y  |		Store_Top	Discrete,At_Offset_1
1b65 00d9       |    |		Load_Top	At_Offset_1
1b66 701b       |p   |		Jump_Nonzero	0x1b82
1b67 00d8       |    |		Load_Top	At_Offset_0
1b68 7019       |p   |		Jump_Nonzero	0x1b82
1b69 e002       |    |		Load	0x0,0x2
1b6a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1b6b 4801       |H   |		Short_Literal	0x1
1b6c 4802       |H   |		Short_Literal	0x2
1b6d e00e       |    |		Load	0x0,0xe
1b6e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b6f 0334       | 4  |		Declare_Variable	Array,With_Constraint
1b70 e5fe       |    |		Load	0x2,-0x2
1b71 e00e       |    |		Load	0x0,0xe
1b72 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b73 4801       |H   |		Short_Literal	0x1
1b74 00da       |    |		Load_Top	At_Offset_2
1b75 01d6       |    |		Execute	Vector,Field_Write
1b76 0092 2b89  |  + |		Action	Push_String_Extended,0x2b89					; "'HAS"
1b78 e00e       |    |		Load	0x0,0xe
1b79 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b7a 4802       |H   |		Short_Literal	0x2
1b7b 00da       |    |		Load_Top	At_Offset_2
1b7c 01d6       |    |		Execute	Vector,Field_Write
1b7d 6092       |`   |		Indirect_Literal	Discrete,0x1c10,{0x00000000, 0x00002826}
1b7e e002       |    |		Load	0x0,0x2
1b7f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1b80 c5fb       |    |		Store	0x2,-0x5
1b81 781c       |x   |		Jump	0x1b9e
1b82 00d9       |    |		Load_Top	At_Offset_1
1b83 681a       |h   |		Jump_Zero	0x1b9e
1b84 00d8       |    |		Load_Top	At_Offset_0
1b85 7018       |p   |		Jump_Nonzero	0x1b9e
1b86 e002       |    |		Load	0x0,0x2
1b87 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1b88 4801       |H   |		Short_Literal	0x1
1b89 4802       |H   |		Short_Literal	0x2
1b8a e00e       |    |		Load	0x0,0xe
1b8b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b8c 0334       | 4  |		Declare_Variable	Array,With_Constraint
1b8d e5fe       |    |		Load	0x2,-0x2
1b8e e00e       |    |		Load	0x0,0xe
1b8f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b90 4801       |H   |		Short_Literal	0x1
1b91 00da       |    |		Load_Top	At_Offset_2
1b92 01d6       |    |		Execute	Vector,Field_Write
1b93 0092 2b89  |  + |		Action	Push_String_Extended,0x2b89					; "'HAS"
1b95 e00e       |    |		Load	0x0,0xe
1b96 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b97 4802       |H   |		Short_Literal	0x2
1b98 00da       |    |		Load_Top	At_Offset_2
1b99 01d6       |    |		Execute	Vector,Field_Write
1b9a 6071       |`q  |		Indirect_Literal	Discrete,0x1c0c,{0x00000000, 0x00002831}
1b9b e002       |    |		Load	0x0,0x2
1b9c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1b9d c5fb       |    |		Store	0x2,-0x5
1b9e 4808       |H   |		Short_Literal	0x8
1b9f e5fc       |    |		Load	0x2,-0x4
1ba0 01dc       |    |		Execute	Vector,Last
1ba1 e2ab       |    |		Load	0x1,0xab
1ba2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ba3 e2ac       |    |		Load	0x1,0xac
1ba4 00d9       |    |		Load_Top	At_Offset_1
1ba5 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1ba6 e5fc       |    |		Load	0x2,-0x4
1ba7 00d9       |    |		Load_Top	At_Offset_1
1ba8 00d8       |    |		Load_Top	At_Offset_0
1ba9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1baa 00da       |    |		Load_Top	At_Offset_2
1bab 01da       |    |		Execute	Vector,Bounds
1bac 00da       |    |		Load_Top	At_Offset_2
1bad 01da       |    |		Execute	Vector,Bounds
1bae 00da       |    |		Load_Top	At_Offset_2
1baf 027f       |    |		Execute	Discrete,Equal
1bb0 7001       |p   |		Jump_Nonzero	0x1bb2
1bb1 08e0       |    |		Execute_Immediate	Raise,0xe0
1bb2 00cd       |    |		Action	Spare6_Action
1bb3 027f       |    |		Execute	Discrete,Equal
1bb4 7001       |p   |		Jump_Nonzero	0x1bb6
1bb5 08e0       |    |		Execute_Immediate	Raise,0xe0
1bb6 00d2       |    |		Pop_Control	Pop_Count_2
1bb7 00d9       |    |		Load_Top	At_Offset_1
1bb8 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1bb9 e405       |    |		Load	0x2,0x5
1bba 00d9       |    |		Load_Top	At_Offset_1
1bbb 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
1bbc e2ac       |    |		Load	0x1,0xac
1bbd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1bbe a5fd       |    |		Store_Unchecked	0x2,-0x3
1bbf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1bc0 4815       |H   |		Short_Literal	0x15
1bc1 e5fc       |    |		Load	0x2,-0x4
1bc2 01dc       |    |		Execute	Vector,Last
1bc3 e2ab       |    |		Load	0x1,0xab
1bc4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1bc5 e2ac       |    |		Load	0x1,0xac
1bc6 00d9       |    |		Load_Top	At_Offset_1
1bc7 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1bc8 e5fc       |    |		Load	0x2,-0x4
1bc9 00d9       |    |		Load_Top	At_Offset_1
1bca 00d8       |    |		Load_Top	At_Offset_0
1bcb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1bcc 00da       |    |		Load_Top	At_Offset_2
1bcd 01da       |    |		Execute	Vector,Bounds
1bce 00da       |    |		Load_Top	At_Offset_2
1bcf 01da       |    |		Execute	Vector,Bounds
1bd0 00da       |    |		Load_Top	At_Offset_2
1bd1 027f       |    |		Execute	Discrete,Equal
1bd2 7001       |p   |		Jump_Nonzero	0x1bd4
1bd3 08e0       |    |		Execute_Immediate	Raise,0xe0
1bd4 00cd       |    |		Action	Spare6_Action
1bd5 027f       |    |		Execute	Discrete,Equal
1bd6 7001       |p   |		Jump_Nonzero	0x1bd8
1bd7 08e0       |    |		Execute_Immediate	Raise,0xe0
1bd8 00d2       |    |		Pop_Control	Pop_Count_2
1bd9 00d9       |    |		Load_Top	At_Offset_1
1bda 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1bdb e5ff       |    |		Load	0x2,-0x1
1bdc 0f02       |    |		Execute_Immediate	Equal,0x2
1bdd 00d9       |    |		Load_Top	At_Offset_1
1bde 2a11       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
1bdf e2ac       |    |		Load	0x1,0xac
1be0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1be1 a5fd       |    |		Store_Unchecked	0x2,-0x3
1be2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1be3 e5fb       |    |		Load	0x2,-0x5
1be4 e5fc       |    |		Load	0x2,-0x4
1be5 e2ac       |    |		Load	0x1,0xac
1be6 e5fe       |    |		Load	0x2,-0x2
1be7 e5ff       |    |		Load	0x2,-0x1
1be8 82b1       |    |		Call	0x1,0xb1
1be9 c5fd       |    |		Store	0x2,-0x3
1bea 00d1       |    |		Pop_Control	Pop_Count_1
1beb c5fb       |    |		Store	0x2,-0x5
1bec 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1bed e5ff       |    |		Load	0x2,-0x1
1bee e2aa       |    |		Load	0x1,0xaa
1bef 01d7       |    |		Execute	Vector,Field_Read
1bf0 e5fc       |    |		Load	0x2,-0x4
1bf1 01dc       |    |		Execute	Vector,Last
1bf2 e2ab       |    |		Load	0x1,0xab
1bf3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1bf4 e2ac       |    |		Load	0x1,0xac
1bf5 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1bf6 00d8       |    |		Load_Top	At_Offset_0
1bf7 0227       | '  |		Execute	Access,All_Reference
1bf8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1bf9 a402       |    |		Store_Unchecked	0x2,0x2
1bfa e5fc       |    |		Load	0x2,-0x4
1bfb e402       |    |		Load	0x2,0x2
1bfc 0227       | '  |		Execute	Access,All_Reference
1bfd 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1bfe e5fe       |    |		Load	0x2,-0x2
1bff e001       |    |		Load	0x0,0x1
1c00 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
1c01 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1c02 e031       | 1  |		Load	0x0,0x31
1c03 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
1c04 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
1c05 e402       |    |		Load	0x2,0x2
1c06 0227       | '  |		Execute	Access,All_Reference
1c07 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
1c08 e402       |    |		Load	0x2,0x2
1c09 a5fd       |    |		Store_Unchecked	0x2,-0x3
1c0a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1c0b 0000       |    |		.XXX[0x1]
1c0c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002831}
1c10 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002826}
1c14 0000 0000  |    |		.BLANK	0000[0x4]
1c18 ; --------------------------------------------------------------------------------------
1c18 ; SUBPROGRAM
1c18 ; --------------------------------------------------------------------------------------
1c18 1c25       | %  |		.CONST	0x1c25								; Address of begin
1c19 0004       |    |		.CONST	0x0004								; Address of exception handler
1c1a 0006       |    |		.CONST	0x0006								; Number of locals
1c1b			INIT_1c18:
1c1b 00db       |    |		Load_Top	At_Offset_3
1c1c 01dd       |    |		Execute	Vector,First
1c1d 00e2       |    |		Load_Encached	Integer_Cache
1c1e 03f1       |    |		Declare_Variable	Discrete,With_Value
1c1f 00e2       |    |		Load_Encached	Integer_Cache
1c20 e2ac       |    |		Load	0x1,0xac
1c21 0007       |    |		Action	Break_Optional
1c22 00d8       |    |		Load_Top	At_Offset_0
1c23 0007       |    |		Action	Break_Optional
1c24 e2ac       |    |		Load	0x1,0xac
1c25			BODY_1c18:
1c25 00cf       |    |		Action	Mark_Auxiliary
1c26 7870       |xp  |		Jump	0x1c97
1c27 4800       |H   |		Short_Literal	0x0
1c28 e402       |    |		Load	0x2,0x2
1c29 e5fe       |    |		Load	0x2,-0x2
1c2a 01dc       |    |		Execute	Vector,Last
1c2b e5fe       |    |		Load	0x2,-0x2
1c2c 01cf       |    |		Execute	Vector,Slice_Read
1c2d 482c       |H,  |		Short_Literal	0x2c
1c2e e02f       | /  |		Load	0x0,0x2f
1c2f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1c30 a403       |    |		Store_Unchecked	0x2,0x3
1c31 e403       |    |		Load	0x2,0x3
1c32 7004       |p   |		Jump_Nonzero	0x1c37
1c33 e5fe       |    |		Load	0x2,-0x2
1c34 01dc       |    |		Execute	Vector,Last
1c35 0a01       |    |		Execute_Immediate	Plus,0x1
1c36 c403       |    |		Store	0x2,0x3
1c37 e402       |    |		Load	0x2,0x2
1c38 e5fe       |    |		Load	0x2,-0x2
1c39 01d7       |    |		Execute	Vector,Field_Read
1c3a 0f7e       | ~  |		Execute_Immediate	Equal,0x7e
1c3b 683a       |h:  |		Jump_Zero	0x1c76
1c3c e5fb       |    |		Load	0x2,-0x5
1c3d e5fc       |    |		Load	0x2,-0x4
1c3e e2ac       |    |		Load	0x1,0xac
1c3f e402       |    |		Load	0x2,0x2
1c40 0a01       |    |		Execute_Immediate	Plus,0x1
1c41 00d8       |    |		Load_Top	At_Offset_0
1c42 00e2       |    |		Load_Encached	Integer_Cache
1c43 0260       | `  |		Execute	Discrete,In_Type
1c44 7001       |p   |		Jump_Nonzero	0x1c46
1c45 0801       |    |		Execute_Immediate	Raise,0x1
1c46 e403       |    |		Load	0x2,0x3
1c47 0aff       |    |		Execute_Immediate	Plus,-0x1
1c48 00d8       |    |		Load_Top	At_Offset_0
1c49 00e2       |    |		Load_Encached	Integer_Cache
1c4a 0260       | `  |		Execute	Discrete,In_Type
1c4b 7001       |p   |		Jump_Nonzero	0x1c4d
1c4c 0801       |    |		Execute_Immediate	Raise,0x1
1c4d e5fe       |    |		Load	0x2,-0x2
1c4e 01cf       |    |		Execute	Vector,Slice_Read
1c4f e5ff       |    |		Load	0x2,-0x1
1c50 82b4       |    |		Call	0x1,0xb4
1c51 c405       |    |		Store	0x2,0x5
1c52 00d1       |    |		Pop_Control	Pop_Count_1
1c53 c5fb       |    |		Store	0x2,-0x5
1c54 4801       |H   |		Short_Literal	0x1
1c55 e5fc       |    |		Load	0x2,-0x4
1c56 01dc       |    |		Execute	Vector,Last
1c57 e2ab       |    |		Load	0x1,0xab
1c58 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1c59 e2ac       |    |		Load	0x1,0xac
1c5a 00d9       |    |		Load_Top	At_Offset_1
1c5b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1c5c e5fc       |    |		Load	0x2,-0x4
1c5d 00d9       |    |		Load_Top	At_Offset_1
1c5e 00d8       |    |		Load_Top	At_Offset_0
1c5f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1c60 00da       |    |		Load_Top	At_Offset_2
1c61 01da       |    |		Execute	Vector,Bounds
1c62 00da       |    |		Load_Top	At_Offset_2
1c63 01da       |    |		Execute	Vector,Bounds
1c64 00da       |    |		Load_Top	At_Offset_2
1c65 027f       |    |		Execute	Discrete,Equal
1c66 7001       |p   |		Jump_Nonzero	0x1c68
1c67 08e0       |    |		Execute_Immediate	Raise,0xe0
1c68 00cd       |    |		Action	Spare6_Action
1c69 027f       |    |		Execute	Discrete,Equal
1c6a 7001       |p   |		Jump_Nonzero	0x1c6c
1c6b 08e0       |    |		Execute_Immediate	Raise,0xe0
1c6c 00d2       |    |		Pop_Control	Pop_Count_2
1c6d 00d9       |    |		Load_Top	At_Offset_1
1c6e 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1c6f 00db       |    |		Load_Top	At_Offset_3
1c70 00d9       |    |		Load_Top	At_Offset_1
1c71 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1c72 e2ac       |    |		Load	0x1,0xac
1c73 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1c74 003b       | ;  |		Store_Top	Access,At_Offset_3
1c75 7812       |x   |		Jump	0x1c88
1c76 e5fb       |    |		Load	0x2,-0x5
1c77 e5fc       |    |		Load	0x2,-0x4
1c78 e2ac       |    |		Load	0x1,0xac
1c79 e402       |    |		Load	0x2,0x2
1c7a e403       |    |		Load	0x2,0x3
1c7b 0aff       |    |		Execute_Immediate	Plus,-0x1
1c7c 00d8       |    |		Load_Top	At_Offset_0
1c7d 00e2       |    |		Load_Encached	Integer_Cache
1c7e 0260       | `  |		Execute	Discrete,In_Type
1c7f 7001       |p   |		Jump_Nonzero	0x1c81
1c80 0801       |    |		Execute_Immediate	Raise,0x1
1c81 e5fe       |    |		Load	0x2,-0x2
1c82 01cf       |    |		Execute	Vector,Slice_Read
1c83 e5ff       |    |		Load	0x2,-0x1
1c84 82b4       |    |		Call	0x1,0xb4
1c85 c405       |    |		Store	0x2,0x5
1c86 00d1       |    |		Pop_Control	Pop_Count_1
1c87 c5fb       |    |		Store	0x2,-0x5
1c88 00d9       |    |		Load_Top	At_Offset_1
1c89 7003       |p   |		Jump_Nonzero	0x1c8d
1c8a 00da       |    |		Load_Top	At_Offset_2
1c8b a404       |    |		Store_Unchecked	0x2,0x4
1c8c 7804       |x   |		Jump	0x1c91
1c8d 00da       |    |		Load_Top	At_Offset_2
1c8e 00da       |    |		Load_Top	At_Offset_2
1c8f 0227       | '  |		Execute	Access,All_Reference
1c90 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1c91 00da       |    |		Load_Top	At_Offset_2
1c92 003a       | :  |		Store_Top	Access,At_Offset_2
1c93 e403       |    |		Load	0x2,0x3
1c94 0a01       |    |		Execute_Immediate	Plus,0x1
1c95 c402       |    |		Store	0x2,0x2
1c96 00c9       |    |		Action	Pop_Auxiliary_Loop
1c97 e402       |    |		Load	0x2,0x2
1c98 e5fe       |    |		Load	0x2,-0x2
1c99 01dc       |    |		Execute	Vector,Last
1c9a 027a       | z  |		Execute	Discrete,Less_Equal
1c9b 778b       |w   |		Jump_Nonzero	0x1c27
1c9c 00ce       |    |		Action	Pop_Auxiliary
1c9d 00da       |    |		Load_Top	At_Offset_2
1c9e 00d9       |    |		Load_Top	At_Offset_1
1c9f 022e       | .  |		Execute	Access,Not_Equal
1ca0 6821       |h!  |		Jump_Zero	0x1cc2
1ca1 4803       |H   |		Short_Literal	0x3
1ca2 e5fc       |    |		Load	0x2,-0x4
1ca3 01dc       |    |		Execute	Vector,Last
1ca4 e2ab       |    |		Load	0x1,0xab
1ca5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ca6 e2ac       |    |		Load	0x1,0xac
1ca7 00d9       |    |		Load_Top	At_Offset_1
1ca8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1ca9 e5fc       |    |		Load	0x2,-0x4
1caa 00d9       |    |		Load_Top	At_Offset_1
1cab 00d8       |    |		Load_Top	At_Offset_0
1cac 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1cad 00da       |    |		Load_Top	At_Offset_2
1cae 01da       |    |		Execute	Vector,Bounds
1caf 00da       |    |		Load_Top	At_Offset_2
1cb0 01da       |    |		Execute	Vector,Bounds
1cb1 00da       |    |		Load_Top	At_Offset_2
1cb2 027f       |    |		Execute	Discrete,Equal
1cb3 7001       |p   |		Jump_Nonzero	0x1cb5
1cb4 08e0       |    |		Execute_Immediate	Raise,0xe0
1cb5 00cd       |    |		Action	Spare6_Action
1cb6 027f       |    |		Execute	Discrete,Equal
1cb7 7001       |p   |		Jump_Nonzero	0x1cb9
1cb8 08e0       |    |		Execute_Immediate	Raise,0xe0
1cb9 00d2       |    |		Pop_Control	Pop_Count_2
1cba 00d9       |    |		Load_Top	At_Offset_1
1cbb 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1cbc 00db       |    |		Load_Top	At_Offset_3
1cbd 00d9       |    |		Load_Top	At_Offset_1
1cbe 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1cbf e2ac       |    |		Load	0x1,0xac
1cc0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1cc1 003b       | ;  |		Store_Top	Access,At_Offset_3
1cc2 00da       |    |		Load_Top	At_Offset_2
1cc3 a5fd       |    |		Store_Unchecked	0x2,-0x3
1cc4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1cc5 0000 0000  |    |		.XXX[0x3]
1cc7 0000       |    |
1cc8 ; --------------------------------------------------------------------------------------
1cc8 ; SUBPROGRAM
1cc8 ; --------------------------------------------------------------------------------------
1cc8 1cd0       |    |		.CONST	0x1cd0								; Address of begin
1cc9 0004       |    |		.CONST	0x0004								; Address of exception handler
1cca 0003       |    |		.CONST	0x0003								; Number of locals
1ccb			INIT_1cc8:
1ccb 00da       |    |		Load_Top	At_Offset_2
1ccc 01dd       |    |		Execute	Vector,First
1ccd 00e2       |    |		Load_Encached	Integer_Cache
1cce 03f1       |    |		Declare_Variable	Discrete,With_Value
1ccf 00e2       |    |		Load_Encached	Integer_Cache
1cd0			BODY_1cc8:
1cd0 e5fe       |    |		Load	0x2,-0x2
1cd1 01da       |    |		Execute	Vector,Bounds
1cd2 e00c       |    |		Load	0x0,0xc
1cd3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1cd4 035b       | [  |		Declare_Type	Array,Constrained
1cd5 0337       | 7  |		Declare_Variable	Array
1cd6 00d8       |    |		Load_Top	At_Offset_0
1cd7 01d9       |    |		Execute	Vector,Reverse_Bounds
1cd8 0263       | c  |		Execute	Discrete,Above_Bound
1cd9 7005       |p   |		Jump_Nonzero	0x1cdf
1cda 4800       |H   |		Short_Literal	0x0
1cdb 00d9       |    |		Load_Top	At_Offset_1
1cdc e404       |    |		Load	0x2,0x4
1cdd 01d6       |    |		Execute	Vector,Field_Write
1cde 3ffb       |?   |		Loop_Increasing	0x1cda
1cdf e5fe       |    |		Load	0x2,-0x2
1ce0 01d4       |    |		Execute	Vector,Structure_Write
1ce1 00cf       |    |		Action	Mark_Auxiliary
1ce2 7858       |xX  |		Jump	0x1d3b
1ce3 4800       |H   |		Short_Literal	0x0
1ce4 00db       |    |		Load_Top	At_Offset_3
1ce5 e5ff       |    |		Load	0x2,-0x1
1ce6 01dc       |    |		Execute	Vector,Last
1ce7 e5ff       |    |		Load	0x2,-0x1
1ce8 01cf       |    |		Execute	Vector,Slice_Read
1ce9 482c       |H,  |		Short_Literal	0x2c
1cea e02f       | /  |		Load	0x0,0x2f
1ceb 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1cec 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1ced 00d9       |    |		Load_Top	At_Offset_1
1cee 7004       |p   |		Jump_Nonzero	0x1cf3
1cef e5ff       |    |		Load	0x2,-0x1
1cf0 01dc       |    |		Execute	Vector,Last
1cf1 0a01       |    |		Execute_Immediate	Plus,0x1
1cf2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1cf3 00cf       |    |		Action	Mark_Auxiliary
1cf4 e5fe       |    |		Load	0x2,-0x2
1cf5 01d9       |    |		Execute	Vector,Reverse_Bounds
1cf6 0263       | c  |		Execute	Discrete,Above_Bound
1cf7 703e       |p>  |		Jump_Nonzero	0x1d36
1cf8 4800       |H   |		Short_Literal	0x0
1cf9 e402       |    |		Load	0x2,0x2
1cfa e403       |    |		Load	0x2,0x3
1cfb 0aff       |    |		Execute_Immediate	Plus,-0x1
1cfc 00d8       |    |		Load_Top	At_Offset_0
1cfd 00e2       |    |		Load_Encached	Integer_Cache
1cfe 0260       | `  |		Execute	Discrete,In_Type
1cff 7001       |p   |		Jump_Nonzero	0x1d01
1d00 0801       |    |		Execute_Immediate	Raise,0x1
1d01 e5ff       |    |		Load	0x2,-0x1
1d02 01cf       |    |		Execute	Vector,Slice_Read
1d03 00da       |    |		Load_Top	At_Offset_2
1d04 e00c       |    |		Load	0x0,0xc
1d05 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1d06 e02f       | /  |		Load	0x0,0x2f
1d07 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1d08 6806       |h   |		Jump_Zero	0x1d0f
1d09 4801       |H   |		Short_Literal	0x1
1d0a 00d9       |    |		Load_Top	At_Offset_1
1d0b e5fe       |    |		Load	0x2,-0x2
1d0c 01d6       |    |		Execute	Vector,Field_Write
1d0d 00d2       |    |		Pop_Control	Pop_Count_2
1d0e 7827       |x'  |		Jump	0x1d36
1d0f 00d8       |    |		Load_Top	At_Offset_0
1d10 e5fe       |    |		Load	0x2,-0x2
1d11 01dc       |    |		Execute	Vector,Last
1d12 027f       |    |		Execute	Discrete,Equal
1d13 6820       |h   |		Jump_Zero	0x1d34
1d14 e002       |    |		Load	0x0,0x2
1d15 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1d16 4801       |H   |		Short_Literal	0x1
1d17 4802       |H   |		Short_Literal	0x2
1d18 e00e       |    |		Load	0x0,0xe
1d19 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1d1a 0334       | 4  |		Declare_Variable	Array,With_Constraint
1d1b e402       |    |		Load	0x2,0x2
1d1c e403       |    |		Load	0x2,0x3
1d1d 0aff       |    |		Execute_Immediate	Plus,-0x1
1d1e 00d8       |    |		Load_Top	At_Offset_0
1d1f 00e2       |    |		Load_Encached	Integer_Cache
1d20 0260       | `  |		Execute	Discrete,In_Type
1d21 7001       |p   |		Jump_Nonzero	0x1d23
1d22 0801       |    |		Execute_Immediate	Raise,0x1
1d23 e5ff       |    |		Load	0x2,-0x1
1d24 01cf       |    |		Execute	Vector,Slice_Read
1d25 e00e       |    |		Load	0x0,0xe
1d26 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1d27 4801       |H   |		Short_Literal	0x1
1d28 00da       |    |		Load_Top	At_Offset_2
1d29 01d6       |    |		Execute	Vector,Field_Write
1d2a e5ff       |    |		Load	0x2,-0x1
1d2b e00e       |    |		Load	0x0,0xe
1d2c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1d2d 4802       |H   |		Short_Literal	0x2
1d2e 00da       |    |		Load_Top	At_Offset_2
1d2f 01d6       |    |		Execute	Vector,Field_Write
1d30 6013       |`   |		Indirect_Literal	Discrete,0x1d44,{0x00000000, 0x00002824}
1d31 e002       |    |		Load	0x0,0x2
1d32 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1d33 c5fd       |    |		Store	0x2,-0x3
1d34 00c8       |    |		Action	Pop_Auxiliary_Range
1d35 3fc2       |?   |		Loop_Increasing	0x1cf8
1d36 00ce       |    |		Action	Pop_Auxiliary
1d37 00d9       |    |		Load_Top	At_Offset_1
1d38 0a01       |    |		Execute_Immediate	Plus,0x1
1d39 005b       | [  |		Store_Top	Discrete,At_Offset_3
1d3a 00c9       |    |		Action	Pop_Auxiliary_Loop
1d3b 00da       |    |		Load_Top	At_Offset_2
1d3c e5ff       |    |		Load	0x2,-0x1
1d3d 01dc       |    |		Execute	Vector,Last
1d3e 027a       | z  |		Execute	Discrete,Less_Equal
1d3f 77a3       |w   |		Jump_Nonzero	0x1ce3
1d40 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1d41 0000 0000  |    |		.XXX[0x3]
1d43 0000       |    |
1d44 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002824}
1d48 ; --------------------------------------------------------------------------------------
1d48 ; SUBPROGRAM
1d48 ; --------------------------------------------------------------------------------------
1d48 1d79       | y  |		.CONST	0x1d79								; Address of begin
1d49 0004       |    |		.CONST	0x0004								; Address of exception handler
1d4a 0010       |    |		.CONST	0x0010								; Number of locals
1d4b			INIT_1d48:
1d4b 00da       |    |		Load_Top	At_Offset_2
1d4c 8032       | 2  |		Call	0x0,0x32
1d4d 82b3       |    |		Call	0x1,0xb3
1d4e 4800       |H   |		Short_Literal	0x0
1d4f 00d9       |    |		Load_Top	At_Offset_1
1d50 0092 2b8a  |  + |		Action	Push_String_Extended,0x2b8a					; "'"
1d52 e02f       | /  |		Load	0x0,0x2f
1d53 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1d54 00e2       |    |		Load_Encached	Integer_Cache
1d55 03f1       |    |		Declare_Variable	Discrete,With_Value
1d56 00d9       |    |		Load_Top	At_Offset_1
1d57 01dc       |    |		Execute	Vector,Last
1d58 0a01       |    |		Execute_Immediate	Plus,0x1
1d59 00e2       |    |		Load_Encached	Integer_Cache
1d5a 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1d5b 00e2       |    |		Load_Encached	Integer_Cache
1d5c 00e2       |    |		Load_Encached	Integer_Cache
1d5d 00e2       |    |		Load_Encached	Integer_Cache
1d5e e29b       |    |		Load	0x1,0x9b
1d5f 0007       |    |		Action	Break_Optional
1d60 00e1       |    |		Load_Encached	Boolean_Cache
1d61 00e1       |    |		Load_Encached	Boolean_Cache
1d62 e2ac       |    |		Load	0x1,0xac
1d63 0007       |    |		Action	Break_Optional
1d64 00d8       |    |		Load_Top	At_Offset_0
1d65 0007       |    |		Action	Break_Optional
1d66 e2ac       |    |		Load	0x1,0xac
1d67 0007       |    |		Action	Break_Optional
1d68 4800       |H   |		Short_Literal	0x0
1d69 e00c       |    |		Load	0x0,0xc
1d6a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1d6b 01dc       |    |		Execute	Vector,Last
1d6c e00c       |    |		Load	0x0,0xc
1d6d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1d6e 035b       | [  |		Declare_Type	Array,Constrained
1d6f 0337       | 7  |		Declare_Variable	Array
1d70 e00c       |    |		Load	0x0,0xc
1d71 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1d72 00d9       |    |		Load_Top	At_Offset_1
1d73 01d4       |    |		Execute	Vector,Structure_Write
1d74 e002       |    |		Load	0x0,0x2
1d75 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1d76 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1d77 00e1       |    |		Load_Encached	Boolean_Cache
1d78 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1d79			BODY_1d48:
1d79 e403       |    |		Load	0x2,0x3
1d7a 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1d7b 6978       |ix  |		Jump_Zero	0x1ef4
1d7c 00cf       |    |		Action	Mark_Auxiliary
1d7d 7914       |y   |		Jump	0x1e92
1d7e e403       |    |		Load	0x2,0x3
1d7f 0a01       |    |		Execute_Immediate	Plus,0x1
1d80 c403       |    |		Store	0x2,0x3
1d81 4800       |H   |		Short_Literal	0x0
1d82 e403       |    |		Load	0x2,0x3
1d83 e402       |    |		Load	0x2,0x2
1d84 01dc       |    |		Execute	Vector,Last
1d85 e402       |    |		Load	0x2,0x2
1d86 01cf       |    |		Execute	Vector,Slice_Read
1d87 4827       |H'  |		Short_Literal	0x27
1d88 e02f       | /  |		Load	0x0,0x2f
1d89 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1d8a a407       |    |		Store_Unchecked	0x2,0x7
1d8b e407       |    |		Load	0x2,0x7
1d8c 7004       |p   |		Jump_Nonzero	0x1d91
1d8d e402       |    |		Load	0x2,0x2
1d8e 01dc       |    |		Execute	Vector,Last
1d8f 0a01       |    |		Execute_Immediate	Plus,0x1
1d90 c407       |    |		Store	0x2,0x7
1d91 4800       |H   |		Short_Literal	0x0
1d92 e403       |    |		Load	0x2,0x3
1d93 e407       |    |		Load	0x2,0x7
1d94 0aff       |    |		Execute_Immediate	Plus,-0x1
1d95 00d8       |    |		Load_Top	At_Offset_0
1d96 00e2       |    |		Load_Encached	Integer_Cache
1d97 0260       | `  |		Execute	Discrete,In_Type
1d98 7001       |p   |		Jump_Nonzero	0x1d9a
1d99 0801       |    |		Execute_Immediate	Raise,0x1
1d9a e402       |    |		Load	0x2,0x2
1d9b 01cf       |    |		Execute	Vector,Slice_Read
1d9c 0092 2b8b  |  + |		Action	Push_String_Extended,0x2b8b					; "("
1d9e e02f       | /  |		Load	0x0,0x2f
1d9f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1da0 a405       |    |		Store_Unchecked	0x2,0x5
1da1 e405       |    |		Load	0x2,0x5
1da2 7006       |p   |		Jump_Nonzero	0x1da9
1da3 e407       |    |		Load	0x2,0x7
1da4 a405       |    |		Store_Unchecked	0x2,0x5
1da5 e405       |    |		Load	0x2,0x5
1da6 0aff       |    |		Execute_Immediate	Plus,-0x1
1da7 c406       |    |		Store	0x2,0x6
1da8 7808       |x   |		Jump	0x1db1
1da9 e407       |    |		Load	0x2,0x7
1daa 0aff       |    |		Execute_Immediate	Plus,-0x1
1dab c406       |    |		Store	0x2,0x6
1dac e406       |    |		Load	0x2,0x6
1dad e402       |    |		Load	0x2,0x2
1dae 01d7       |    |		Execute	Vector,Field_Read
1daf 0e29       | )  |		Execute_Immediate	Not_Equal,0x29
1db0 70eb       |p   |		Jump_Nonzero	0x1e9c
1db1 00e1       |    |		Load_Encached	Boolean_Cache
1db2 00e1       |    |		Load_Encached	Boolean_Cache
1db3 e2a2       |    |		Load	0x1,0xa2
1db4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1db5 e403       |    |		Load	0x2,0x3
1db6 e405       |    |		Load	0x2,0x5
1db7 0aff       |    |		Execute_Immediate	Plus,-0x1
1db8 00d8       |    |		Load_Top	At_Offset_0
1db9 00e2       |    |		Load_Encached	Integer_Cache
1dba 0260       | `  |		Execute	Discrete,In_Type
1dbb 7001       |p   |		Jump_Nonzero	0x1dbd
1dbc 0801       |    |		Execute_Immediate	Raise,0x1
1dbd e402       |    |		Load	0x2,0x2
1dbe 01cf       |    |		Execute	Vector,Slice_Read
1dbf e2a2       |    |		Load	0x1,0xa2
1dc0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1dc1 c408       |    |		Store	0x2,0x8
1dc2 c409       |    |		Store	0x2,0x9
1dc3 c40a       |    |		Store	0x2,0xa
1dc4 e409       |    |		Load	0x2,0x9
1dc5 7028       |p(  |		Jump_Nonzero	0x1dee
1dc6 e40a       |    |		Load	0x2,0xa
1dc7 7026       |p&  |		Jump_Nonzero	0x1dee
1dc8 e404       |    |		Load	0x2,0x4
1dc9 e402       |    |		Load	0x2,0x2
1dca 01dc       |    |		Execute	Vector,Last
1dcb 027a       | z  |		Execute	Discrete,Less_Equal
1dcc 68c1       |h   |		Jump_Zero	0x1e8e
1dcd e002       |    |		Load	0x0,0x2
1dce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1dcf 4801       |H   |		Short_Literal	0x1
1dd0 4802       |H   |		Short_Literal	0x2
1dd1 e00e       |    |		Load	0x0,0xe
1dd2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1dd3 0334       | 4  |		Declare_Variable	Array,With_Constraint
1dd4 e403       |    |		Load	0x2,0x3
1dd5 e405       |    |		Load	0x2,0x5
1dd6 0aff       |    |		Execute_Immediate	Plus,-0x1
1dd7 00d8       |    |		Load_Top	At_Offset_0
1dd8 00e2       |    |		Load_Encached	Integer_Cache
1dd9 0260       | `  |		Execute	Discrete,In_Type
1dda 7001       |p   |		Jump_Nonzero	0x1ddc
1ddb 0801       |    |		Execute_Immediate	Raise,0x1
1ddc e402       |    |		Load	0x2,0x2
1ddd 01cf       |    |		Execute	Vector,Slice_Read
1dde e00e       |    |		Load	0x0,0xe
1ddf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1de0 4801       |H   |		Short_Literal	0x1
1de1 00da       |    |		Load_Top	At_Offset_2
1de2 01d6       |    |		Execute	Vector,Field_Write
1de3 e5ff       |    |		Load	0x2,-0x1
1de4 e00e       |    |		Load	0x0,0xe
1de5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1de6 4802       |H   |		Short_Literal	0x2
1de7 00da       |    |		Load_Top	At_Offset_2
1de8 01d6       |    |		Execute	Vector,Field_Write
1de9 613e       |a>  |		Indirect_Literal	Discrete,0x1f28,{0x00000000, 0x00002821}
1dea e002       |    |		Load	0x0,0x2
1deb 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1dec 005b       | [  |		Store_Top	Discrete,At_Offset_3
1ded 78a0       |x   |		Jump	0x1e8e
1dee e404       |    |		Load	0x2,0x4
1def e402       |    |		Load	0x2,0x2
1df0 01dc       |    |		Execute	Vector,Last
1df1 027a       | z  |		Execute	Discrete,Less_Equal
1df2 7004       |p   |		Jump_Nonzero	0x1df7
1df3 e408       |    |		Load	0x2,0x8
1df4 e29c       |    |		Load	0x1,0x9c
1df5 025f       | _  |		Execute	Discrete,Not_In_Type
1df6 6897       |h   |		Jump_Zero	0x1e8e
1df7 e404       |    |		Load	0x2,0x4
1df8 e402       |    |		Load	0x2,0x2
1df9 01dc       |    |		Execute	Vector,Last
1dfa 027d       | }  |		Execute	Discrete,Greater
1dfb 6803       |h   |		Jump_Zero	0x1dff
1dfc e403       |    |		Load	0x2,0x3
1dfd 0aff       |    |		Execute_Immediate	Plus,-0x1
1dfe c404       |    |		Store	0x2,0x4
1dff e409       |    |		Load	0x2,0x9
1e00 681d       |h   |		Jump_Zero	0x1e1e
1e01 e40a       |    |		Load	0x2,0xa
1e02 701b       |p   |		Jump_Nonzero	0x1e1e
1e03 e002       |    |		Load	0x0,0x2
1e04 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1e05 4801       |H   |		Short_Literal	0x1
1e06 4802       |H   |		Short_Literal	0x2
1e07 e00e       |    |		Load	0x0,0xe
1e08 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1e09 0334       | 4  |		Declare_Variable	Array,With_Constraint
1e0a e403       |    |		Load	0x2,0x3
1e0b e406       |    |		Load	0x2,0x6
1e0c e402       |    |		Load	0x2,0x2
1e0d 01cf       |    |		Execute	Vector,Slice_Read
1e0e e00e       |    |		Load	0x0,0xe
1e0f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e10 4801       |H   |		Short_Literal	0x1
1e11 00da       |    |		Load_Top	At_Offset_2
1e12 01d6       |    |		Execute	Vector,Field_Write
1e13 e5ff       |    |		Load	0x2,-0x1
1e14 e00e       |    |		Load	0x0,0xe
1e15 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e16 4802       |H   |		Short_Literal	0x2
1e17 00da       |    |		Load_Top	At_Offset_2
1e18 01d6       |    |		Execute	Vector,Field_Write
1e19 610a       |a   |		Indirect_Literal	Discrete,0x1f24,{0x00000000, 0x00002830}
1e1a e002       |    |		Load	0x0,0x2
1e1b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1e1c 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e1d 7870       |xp  |		Jump	0x1e8e
1e1e e408       |    |		Load	0x2,0x8
1e1f 4802       |H   |		Short_Literal	0x2
1e20 4803       |H   |		Short_Literal	0x3
1e21 0262       | b  |		Execute	Discrete,In_Range
1e22 e405       |    |		Load	0x2,0x5
1e23 e406       |    |		Load	0x2,0x6
1e24 027d       | }  |		Execute	Discrete,Greater
1e25 027e       | ~  |		Execute	Discrete,Not_Equal
1e26 681b       |h   |		Jump_Zero	0x1e42
1e27 e002       |    |		Load	0x0,0x2
1e28 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1e29 4801       |H   |		Short_Literal	0x1
1e2a 4802       |H   |		Short_Literal	0x2
1e2b e00e       |    |		Load	0x0,0xe
1e2c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1e2d 0334       | 4  |		Declare_Variable	Array,With_Constraint
1e2e e403       |    |		Load	0x2,0x3
1e2f e406       |    |		Load	0x2,0x6
1e30 e402       |    |		Load	0x2,0x2
1e31 01cf       |    |		Execute	Vector,Slice_Read
1e32 e00e       |    |		Load	0x0,0xe
1e33 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e34 4801       |H   |		Short_Literal	0x1
1e35 00da       |    |		Load_Top	At_Offset_2
1e36 01d6       |    |		Execute	Vector,Field_Write
1e37 e5ff       |    |		Load	0x2,-0x1
1e38 e00e       |    |		Load	0x0,0xe
1e39 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1e3a 4802       |H   |		Short_Literal	0x2
1e3b 00da       |    |		Load_Top	At_Offset_2
1e3c 01d6       |    |		Execute	Vector,Field_Write
1e3d 60e2       |`   |		Indirect_Literal	Discrete,0x1f20,{0x00000000, 0x00002823}
1e3e e002       |    |		Load	0x0,0x2
1e3f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1e40 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e41 784c       |xL  |		Jump	0x1e8e
1e42 e408       |    |		Load	0x2,0x8
1e43 0f04       |    |		Execute_Immediate	Equal,0x4
1e44 6818       |h   |		Jump_Zero	0x1e5d
1e45 4801       |H   |		Short_Literal	0x1
1e46 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1e47 00da       |    |		Load_Top	At_Offset_2
1e48 e40e       |    |		Load	0x2,0xe
1e49 e405       |    |		Load	0x2,0x5
1e4a 0a01       |    |		Execute_Immediate	Plus,0x1
1e4b 00d8       |    |		Load_Top	At_Offset_0
1e4c 00e2       |    |		Load_Encached	Integer_Cache
1e4d 0260       | `  |		Execute	Discrete,In_Type
1e4e 7001       |p   |		Jump_Nonzero	0x1e50
1e4f 0801       |    |		Execute_Immediate	Raise,0x1
1e50 e406       |    |		Load	0x2,0x6
1e51 0aff       |    |		Execute_Immediate	Plus,-0x1
1e52 00d8       |    |		Load_Top	At_Offset_0
1e53 00e2       |    |		Load_Encached	Integer_Cache
1e54 0260       | `  |		Execute	Discrete,In_Type
1e55 7001       |p   |		Jump_Nonzero	0x1e57
1e56 0801       |    |		Execute_Immediate	Raise,0x1
1e57 e402       |    |		Load	0x2,0x2
1e58 01cf       |    |		Execute	Vector,Slice_Read
1e59 82b6       |    |		Call	0x1,0xb6
1e5a 00d1       |    |		Pop_Control	Pop_Count_1
1e5b 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e5c 7831       |x1  |		Jump	0x1e8e
1e5d e405       |    |		Load	0x2,0x5
1e5e e406       |    |		Load	0x2,0x6
1e5f 027d       | }  |		Execute	Discrete,Greater
1e60 680a       |h   |		Jump_Zero	0x1e6b
1e61 00da       |    |		Load_Top	At_Offset_2
1e62 e40e       |    |		Load	0x2,0xe
1e63 e2ac       |    |		Load	0x1,0xac
1e64 00ea       |    |		Load_Encached	Null_String_Cache
1e65 e408       |    |		Load	0x2,0x8
1e66 82b4       |    |		Call	0x1,0xb4
1e67 c40c       |    |		Store	0x2,0xc
1e68 00d1       |    |		Pop_Control	Pop_Count_1
1e69 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e6a 7818       |x   |		Jump	0x1e83
1e6b 00da       |    |		Load_Top	At_Offset_2
1e6c e40e       |    |		Load	0x2,0xe
1e6d e2ac       |    |		Load	0x1,0xac
1e6e e405       |    |		Load	0x2,0x5
1e6f 0a01       |    |		Execute_Immediate	Plus,0x1
1e70 00d8       |    |		Load_Top	At_Offset_0
1e71 00e2       |    |		Load_Encached	Integer_Cache
1e72 0260       | `  |		Execute	Discrete,In_Type
1e73 7001       |p   |		Jump_Nonzero	0x1e75
1e74 0801       |    |		Execute_Immediate	Raise,0x1
1e75 e406       |    |		Load	0x2,0x6
1e76 0aff       |    |		Execute_Immediate	Plus,-0x1
1e77 00d8       |    |		Load_Top	At_Offset_0
1e78 00e2       |    |		Load_Encached	Integer_Cache
1e79 0260       | `  |		Execute	Discrete,In_Type
1e7a 7001       |p   |		Jump_Nonzero	0x1e7c
1e7b 0801       |    |		Execute_Immediate	Raise,0x1
1e7c e402       |    |		Load	0x2,0x2
1e7d 01cf       |    |		Execute	Vector,Slice_Read
1e7e e408       |    |		Load	0x2,0x8
1e7f 82b5       |    |		Call	0x1,0xb5
1e80 c40c       |    |		Store	0x2,0xc
1e81 00d1       |    |		Pop_Control	Pop_Count_1
1e82 005b       | [  |		Store_Top	Discrete,At_Offset_3
1e83 e40d       |    |		Load	0x2,0xd
1e84 7003       |p   |		Jump_Nonzero	0x1e88
1e85 e40c       |    |		Load	0x2,0xc
1e86 a40b       |    |		Store_Unchecked	0x2,0xb
1e87 7804       |x   |		Jump	0x1e8c
1e88 e40c       |    |		Load	0x2,0xc
1e89 e40d       |    |		Load	0x2,0xd
1e8a 0227       | '  |		Execute	Access,All_Reference
1e8b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1e8c e40c       |    |		Load	0x2,0xc
1e8d a40d       |    |		Store_Unchecked	0x2,0xd
1e8e e406       |    |		Load	0x2,0x6
1e8f 0a01       |    |		Execute_Immediate	Plus,0x1
1e90 c403       |    |		Store	0x2,0x3
1e91 00c9       |    |		Action	Pop_Auxiliary_Loop
1e92 e403       |    |		Load	0x2,0x3
1e93 e402       |    |		Load	0x2,0x2
1e94 01dc       |    |		Execute	Vector,Last
1e95 027c       | |  |		Execute	Discrete,Less
1e96 6805       |h   |		Jump_Zero	0x1e9c
1e97 e403       |    |		Load	0x2,0x3
1e98 e402       |    |		Load	0x2,0x2
1e99 01d7       |    |		Execute	Vector,Field_Read
1e9a 0f27       | '  |		Execute_Immediate	Equal,0x27
1e9b 76e2       |v   |		Jump_Nonzero	0x1d7e
1e9c 00ce       |    |		Action	Pop_Auxiliary
1e9d e403       |    |		Load	0x2,0x3
1e9e e402       |    |		Load	0x2,0x2
1e9f 01dc       |    |		Execute	Vector,Last
1ea0 027c       | |  |		Execute	Discrete,Less
1ea1 6825       |h%  |		Jump_Zero	0x1ec7
1ea2 e002       |    |		Load	0x0,0x2
1ea3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1ea4 4801       |H   |		Short_Literal	0x1
1ea5 4802       |H   |		Short_Literal	0x2
1ea6 e00e       |    |		Load	0x0,0xe
1ea7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1ea8 0334       | 4  |		Declare_Variable	Array,With_Constraint
1ea9 4801       |H   |		Short_Literal	0x1
1eaa e403       |    |		Load	0x2,0x3
1eab 0aff       |    |		Execute_Immediate	Plus,-0x1
1eac 00d8       |    |		Load_Top	At_Offset_0
1ead 00e2       |    |		Load_Encached	Integer_Cache
1eae 0260       | `  |		Execute	Discrete,In_Type
1eaf 7001       |p   |		Jump_Nonzero	0x1eb1
1eb0 0801       |    |		Execute_Immediate	Raise,0x1
1eb1 e402       |    |		Load	0x2,0x2
1eb2 01cf       |    |		Execute	Vector,Slice_Read
1eb3 e00e       |    |		Load	0x0,0xe
1eb4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1eb5 4801       |H   |		Short_Literal	0x1
1eb6 00da       |    |		Load_Top	At_Offset_2
1eb7 01d6       |    |		Execute	Vector,Field_Write
1eb8 e403       |    |		Load	0x2,0x3
1eb9 e402       |    |		Load	0x2,0x2
1eba 01dc       |    |		Execute	Vector,Last
1ebb e402       |    |		Load	0x2,0x2
1ebc 01cf       |    |		Execute	Vector,Slice_Read
1ebd e00e       |    |		Load	0x0,0xe
1ebe 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1ebf 4802       |H   |		Short_Literal	0x2
1ec0 00da       |    |		Load_Top	At_Offset_2
1ec1 01d6       |    |		Execute	Vector,Field_Write
1ec2 6059       |`Y  |		Indirect_Literal	Discrete,0x1f1c,{0x00000000, 0x0000281e}
1ec3 e002       |    |		Load	0x0,0x2
1ec4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1ec5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1ec6 782d       |x-  |		Jump	0x1ef4
1ec7 e40b       |    |		Load	0x2,0xb
1ec8 e40d       |    |		Load	0x2,0xd
1ec9 022e       | .  |		Execute	Access,Not_Equal
1eca 6822       |h"  |		Jump_Zero	0x1eed
1ecb 4802       |H   |		Short_Literal	0x2
1ecc 00db       |    |		Load_Top	At_Offset_3
1ecd 01dc       |    |		Execute	Vector,Last
1ece e2ab       |    |		Load	0x1,0xab
1ecf 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ed0 e2ac       |    |		Load	0x1,0xac
1ed1 00d9       |    |		Load_Top	At_Offset_1
1ed2 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1ed3 00db       |    |		Load_Top	At_Offset_3
1ed4 00d9       |    |		Load_Top	At_Offset_1
1ed5 00d8       |    |		Load_Top	At_Offset_0
1ed6 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1ed7 00da       |    |		Load_Top	At_Offset_2
1ed8 01da       |    |		Execute	Vector,Bounds
1ed9 00da       |    |		Load_Top	At_Offset_2
1eda 01da       |    |		Execute	Vector,Bounds
1edb 00da       |    |		Load_Top	At_Offset_2
1edc 027f       |    |		Execute	Discrete,Equal
1edd 7001       |p   |		Jump_Nonzero	0x1edf
1ede 08e0       |    |		Execute_Immediate	Raise,0xe0
1edf 00cd       |    |		Action	Spare6_Action
1ee0 027f       |    |		Execute	Discrete,Equal
1ee1 7001       |p   |		Jump_Nonzero	0x1ee3
1ee2 08e0       |    |		Execute_Immediate	Raise,0xe0
1ee3 00d2       |    |		Pop_Control	Pop_Count_2
1ee4 00d9       |    |		Load_Top	At_Offset_1
1ee5 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1ee6 e40b       |    |		Load	0x2,0xb
1ee7 00d9       |    |		Load_Top	At_Offset_1
1ee8 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
1ee9 e2ac       |    |		Load	0x1,0xac
1eea 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
1eeb a40b       |    |		Store_Unchecked	0x2,0xb
1eec 7807       |x   |		Jump	0x1ef4
1eed e40b       |    |		Load	0x2,0xb
1eee 7005       |p   |		Jump_Nonzero	0x1ef4
1eef 00d8       |    |		Load_Top	At_Offset_0
1ef0 6803       |h   |		Jump_Zero	0x1ef4
1ef1 0092 2b8c  |  + |		Action	Push_String_Extended,0x2b8c					; "Warning: ON_MACHINES query attribute will be ignored."
1ef3 801d       |    |		Call	0x0,0x1d
1ef4 e404       |    |		Load	0x2,0x4
1ef5 0aff       |    |		Execute_Immediate	Plus,-0x1
1ef6 e2ad       |    |		Load	0x1,0xad
1ef7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1ef8 00da       |    |		Load_Top	At_Offset_2
1ef9 00d9       |    |		Load_Top	At_Offset_1
1efa 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
1efb 4801       |H   |		Short_Literal	0x1
1efc e404       |    |		Load	0x2,0x4
1efd 0aff       |    |		Execute_Immediate	Plus,-0x1
1efe 00d8       |    |		Load_Top	At_Offset_0
1eff 00e2       |    |		Load_Encached	Integer_Cache
1f00 0260       | `  |		Execute	Discrete,In_Type
1f01 7001       |p   |		Jump_Nonzero	0x1f03
1f02 0801       |    |		Execute_Immediate	Raise,0x1
1f03 e402       |    |		Load	0x2,0x2
1f04 01cf       |    |		Execute	Vector,Slice_Read
1f05 00d9       |    |		Load_Top	At_Offset_1
1f06 00d8       |    |		Load_Top	At_Offset_0
1f07 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1f08 00da       |    |		Load_Top	At_Offset_2
1f09 01da       |    |		Execute	Vector,Bounds
1f0a 00da       |    |		Load_Top	At_Offset_2
1f0b 01da       |    |		Execute	Vector,Bounds
1f0c 00da       |    |		Load_Top	At_Offset_2
1f0d 027f       |    |		Execute	Discrete,Equal
1f0e 7001       |p   |		Jump_Nonzero	0x1f10
1f0f 08e0       |    |		Execute_Immediate	Raise,0xe0
1f10 00cd       |    |		Action	Spare6_Action
1f11 027f       |    |		Execute	Discrete,Equal
1f12 7001       |p   |		Jump_Nonzero	0x1f14
1f13 08e0       |    |		Execute_Immediate	Raise,0xe0
1f14 00d2       |    |		Pop_Control	Pop_Count_2
1f15 00d9       |    |		Load_Top	At_Offset_1
1f16 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1f17 e40b       |    |		Load	0x2,0xb
1f18 00d9       |    |		Load_Top	At_Offset_1
1f19 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
1f1a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1f1b 0000       |    |		.XXX[0x1]
1f1c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281e}
1f20 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002823}
1f24 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002830}
1f28 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002821}
1f2c 0000 0000  |    |		.BLANK	0000[0x4]
1f30 ; --------------------------------------------------------------------------------------
1f30 ; SUBPROGRAM
1f30 ; --------------------------------------------------------------------------------------
1f30 1f33       | 3  |		.CONST	0x1f33								; Address of begin
1f31 0004       |    |		.CONST	0x0004								; Address of exception handler
1f32 0001       |    |		.CONST	0x0001								; Number of locals
1f33			BODY_1f30:
1f33			INIT_1f30:
1f33 00da       |    |		Load_Top	At_Offset_2
1f34 e5fe       |    |		Load	0x2,-0x2
1f35 0227       | '  |		Execute	Access,All_Reference
1f36 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
1f37 e004       |    |		Load	0x0,0x4
1f38 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1f39 6807       |h   |		Jump_Zero	0x1f41
1f3a 00db       |    |		Load_Top	At_Offset_3
1f3b 0227       | '  |		Execute	Access,All_Reference
1f3c 2e0d       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
1f3d 00db       |    |		Load_Top	At_Offset_3
1f3e e004       |    |		Load	0x0,0x4
1f3f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1f40 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1f41 4800       |H   |		Short_Literal	0x0
1f42 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1f43 0000 0000  |    |		.BLANK	0000[0x5]
1f48 ; --------------------------------------------------------------------------------------
1f48 ; SUBPROGRAM
1f48 ; --------------------------------------------------------------------------------------
1f48 1f4b       | K  |		.CONST	0x1f4b								; Address of begin
1f49 0004       |    |		.CONST	0x0004								; Address of exception handler
1f4a 0001       |    |		.CONST	0x0001								; Number of locals
1f4b			BODY_1f48:
1f4b			INIT_1f48:
1f4b 00db       |    |		Load_Top	At_Offset_3
1f4c 0227       | '  |		Execute	Access,All_Reference
1f4d 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
1f4e 00db       |    |		Load_Top	At_Offset_3
1f4f 027a       | z  |		Execute	Discrete,Less_Equal
1f50 6806       |h   |		Jump_Zero	0x1f57
1f51 00da       |    |		Load_Top	At_Offset_2
1f52 e5fe       |    |		Load	0x2,-0x2
1f53 0227       | '  |		Execute	Access,All_Reference
1f54 2e10       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
1f55 027a       | z  |		Execute	Discrete,Less_Equal
1f56 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1f57 4800       |H   |		Short_Literal	0x0
1f58 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
1f59 0000 0000  |    |		.BLANK	0000[0x7]
1f60 ; --------------------------------------------------------------------------------------
1f60 ; SUBPROGRAM
1f60 ; --------------------------------------------------------------------------------------
1f60 1f78       | x  |		.CONST	0x1f78								; Address of begin
1f61 0004       |    |		.CONST	0x0004								; Address of exception handler
1f62 0008       |    |		.CONST	0x0008								; Number of locals
1f63			INIT_1f60:
1f63 00e1       |    |		Load_Encached	Boolean_Cache
1f64 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
1f65 e2ac       |    |		Load	0x1,0xac
1f66 0007       |    |		Action	Break_Optional
1f67 e00d       |    |		Load	0x0,0xd
1f68 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
1f69 02c7       |    |		Declare_Variable	Any
1f6a 00d8       |    |		Load_Top	At_Offset_0
1f6b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1f6c e00d       |    |		Load	0x0,0xd
1f6d 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
1f6e e00d       |    |		Load	0x0,0xd
1f6f 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
1f70 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1f71 e00d       |    |		Load	0x0,0xd
1f72 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1f73 02c7       |    |		Declare_Variable	Any
1f74 00d8       |    |		Load_Top	At_Offset_0
1f75 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1f76 e00d       |    |		Load	0x0,0xd
1f77 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1f78			BODY_1f60:
1f78 e5ff       |    |		Load	0x2,-0x1
1f79 7003       |p   |		Jump_Nonzero	0x1f7d
1f7a 4801       |H   |		Short_Literal	0x1
1f7b a5fd       |    |		Store_Unchecked	0x2,-0x3
1f7c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1f7d e5ff       |    |		Load	0x2,-0x1
1f7e 0227       | '  |		Execute	Access,All_Reference
1f7f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
1f80 4615       |F   |		Jump_Case	0x16
1f81 7a80       |z   |		Jump	0x2202								; case 0x0
1f82 781d       |x   |		Jump	0x1fa0								; case 0x1
1f83 7829       |x)  |		Jump	0x1fad								; case 0x2
1f84 7840       |x@  |		Jump	0x1fc5								; case 0x3
1f85 7859       |xY  |		Jump	0x1fdf								; case 0x4
1f86 786f       |xo  |		Jump	0x1ff6								; case 0x5
1f87 7880       |x   |		Jump	0x2008								; case 0x6
1f88 78c3       |x   |		Jump	0x204c								; case 0x7
1f89 7901       |y   |		Jump	0x208b								; case 0x8
1f8a 794d       |yM  |		Jump	0x20d8								; case 0x9
1f8b 7982       |y   |		Jump	0x210e								; case 0xa
1f8c 7988       |y   |		Jump	0x2115								; case 0xb
1f8d 798e       |y   |		Jump	0x211c								; case 0xc
1f8e 79ac       |y   |		Jump	0x213b								; case 0xd
1f8f 79ca       |y   |		Jump	0x215a								; case 0xe
1f90 79e9       |y   |		Jump	0x217a								; case 0xf
1f91 79f4       |y   |		Jump	0x2186								; case 0x10
1f92 7a1e       |z   |		Jump	0x21b1								; case 0x11
1f93 7a33       |z3  |		Jump	0x21c7								; case 0x12
1f94 7a48       |zH  |		Jump	0x21dd								; case 0x13
1f95 7a66       |zf  |		Jump	0x21fc								; case 0x14
1f96 7800       |x   |		Jump	0x1f97								; case 0x15
1f97 e5fe       |    |		Load	0x2,-0x2
1f98 0217       |    |		Execute	Heap_Access,All_Reference
1f99 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
1f9a e5ff       |    |		Load	0x2,-0x1
1f9b 0227       | '  |		Execute	Access,All_Reference
1f9c 2e11       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
1f9d 027f       |    |		Execute	Discrete,Equal
1f9e a402       |    |		Store_Unchecked	0x2,0x2
1f9f 7a62       |zb  |		Jump	0x2202
1fa0 e5fc       |    |		Load	0x2,-0x4
1fa1 00e1       |    |		Load_Encached	Boolean_Cache
1fa2 e5fe       |    |		Load	0x2,-0x2
1fa3 e5ff       |    |		Load	0x2,-0x1
1fa4 0227       | '  |		Execute	Access,All_Reference
1fa5 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
1fa6 82ba       |    |		Call	0x1,0xba
1fa7 c402       |    |		Store	0x2,0x2
1fa8 c5fc       |    |		Store	0x2,-0x4
1fa9 e402       |    |		Load	0x2,0x2
1faa 0f00       |    |		Execute_Immediate	Equal,0x0
1fab a402       |    |		Store_Unchecked	0x2,0x2
1fac 7a55       |zU  |		Jump	0x2202
1fad e5ff       |    |		Load	0x2,-0x1
1fae 0227       | '  |		Execute	Access,All_Reference
1faf 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
1fb0 a403       |    |		Store_Unchecked	0x2,0x3
1fb1 00cf       |    |		Action	Mark_Auxiliary
1fb2 780c       |x   |		Jump	0x1fbf
1fb3 e5fc       |    |		Load	0x2,-0x4
1fb4 00e1       |    |		Load_Encached	Boolean_Cache
1fb5 e5fe       |    |		Load	0x2,-0x2
1fb6 e403       |    |		Load	0x2,0x3
1fb7 82ba       |    |		Call	0x1,0xba
1fb8 c402       |    |		Store	0x2,0x2
1fb9 c5fc       |    |		Store	0x2,-0x4
1fba e403       |    |		Load	0x2,0x3
1fbb 0227       | '  |		Execute	Access,All_Reference
1fbc 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
1fbd a403       |    |		Store_Unchecked	0x2,0x3
1fbe 00c9       |    |		Action	Pop_Auxiliary_Loop
1fbf e403       |    |		Load	0x2,0x3
1fc0 6802       |h   |		Jump_Zero	0x1fc3
1fc1 e402       |    |		Load	0x2,0x2
1fc2 77f0       |w   |		Jump_Nonzero	0x1fb3
1fc3 00ce       |    |		Action	Pop_Auxiliary
1fc4 7a3d       |z=  |		Jump	0x2202
1fc5 4800       |H   |		Short_Literal	0x0
1fc6 a402       |    |		Store_Unchecked	0x2,0x2
1fc7 e5ff       |    |		Load	0x2,-0x1
1fc8 0227       | '  |		Execute	Access,All_Reference
1fc9 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
1fca a403       |    |		Store_Unchecked	0x2,0x3
1fcb 00cf       |    |		Action	Mark_Auxiliary
1fcc 780c       |x   |		Jump	0x1fd9
1fcd e5fc       |    |		Load	0x2,-0x4
1fce 00e1       |    |		Load_Encached	Boolean_Cache
1fcf e5fe       |    |		Load	0x2,-0x2
1fd0 e403       |    |		Load	0x2,0x3
1fd1 82ba       |    |		Call	0x1,0xba
1fd2 c402       |    |		Store	0x2,0x2
1fd3 c5fc       |    |		Store	0x2,-0x4
1fd4 e403       |    |		Load	0x2,0x3
1fd5 0227       | '  |		Execute	Access,All_Reference
1fd6 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
1fd7 a403       |    |		Store_Unchecked	0x2,0x3
1fd8 00c9       |    |		Action	Pop_Auxiliary_Loop
1fd9 e403       |    |		Load	0x2,0x3
1fda 6802       |h   |		Jump_Zero	0x1fdd
1fdb e402       |    |		Load	0x2,0x2
1fdc 6ff0       |o   |		Jump_Zero	0x1fcd
1fdd 00ce       |    |		Action	Pop_Auxiliary
1fde 7a23       |z#  |		Jump	0x2202
1fdf e5fc       |    |		Load	0x2,-0x4
1fe0 e404       |    |		Load	0x2,0x4
1fe1 0120       |    |		Execute	Any,Is_Value
1fe2 6803       |h   |		Jump_Zero	0x1fe6
1fe3 e00d       |    |		Load	0x0,0xd
1fe4 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
1fe5 7801       |x   |		Jump	0x1fe7
1fe6 e404       |    |		Load	0x2,0x4
1fe7 e5fe       |    |		Load	0x2,-0x2
1fe8 e001       |    |		Load	0x0,0x1
1fe9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
1fea 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1feb c404       |    |		Store	0x2,0x4
1fec c5fc       |    |		Store	0x2,-0x4
1fed e5fc       |    |		Load	0x2,-0x4
1fee 7213       |r   |		Jump_Nonzero	0x2202
1fef e404       |    |		Load	0x2,0x4
1ff0 e5ff       |    |		Load	0x2,-0x1
1ff1 0227       | '  |		Execute	Access,All_Reference
1ff2 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
1ff3 012f       | /  |		Execute	Any,Equal
1ff4 a402       |    |		Store_Unchecked	0x2,0x2
1ff5 7a0c       |z   |		Jump	0x2202
1ff6 e5fc       |    |		Load	0x2,-0x4
1ff7 e00d       |    |		Load	0x0,0xd
1ff8 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
1ff9 e5fe       |    |		Load	0x2,-0x2
1ffa e001       |    |		Load	0x0,0x1
1ffb 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
1ffc 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
1ffd c405       |    |		Store	0x2,0x5
1ffe c5fc       |    |		Store	0x2,-0x4
1fff e5fc       |    |		Load	0x2,-0x4
2000 7201       |r   |		Jump_Nonzero	0x2202
2001 00db       |    |		Load_Top	At_Offset_3
2002 e5ff       |    |		Load	0x2,-0x1
2003 0227       | '  |		Execute	Access,All_Reference
2004 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
2005 027f       |    |		Execute	Discrete,Equal
2006 a402       |    |		Store_Unchecked	0x2,0x2
2007 79fa       |y   |		Jump	0x2202
2008 e5fc       |    |		Load	0x2,-0x4
2009 00da       |    |		Load_Top	At_Offset_2
200a 0120       |    |		Execute	Any,Is_Value
200b 6803       |h   |		Jump_Zero	0x200f
200c e00d       |    |		Load	0x0,0xd
200d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
200e 7801       |x   |		Jump	0x2010
200f 00da       |    |		Load_Top	At_Offset_2
2010 e5fe       |    |		Load	0x2,-0x2
2011 e001       |    |		Load	0x0,0x1
2012 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2013 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
2014 c407       |    |		Store	0x2,0x7
2015 c5fc       |    |		Store	0x2,-0x4
2016 e5fc       |    |		Load	0x2,-0x4
2017 71ea       |q   |		Jump_Nonzero	0x2202
2018 e00d       |    |		Load	0x0,0xd
2019 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
201a e00d       |    |		Load	0x0,0xd
201b 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
201c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
201d 61ee       |a   |		Indirect_Literal	Discrete,0x220c,{0x00000000, 0x00004000}
201e e022       | "  |		Load	0x0,0x22
201f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
2020 4800       |H   |		Short_Literal	0x0
2021 e407       |    |		Load	0x2,0x7
2022 e00d       |    |		Load	0x0,0xd
2023 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
2024 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2025 e00d       |    |		Load	0x0,0xd
2026 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
2027 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2028 c406       |    |		Store	0x2,0x6
2029 0059       | Y  |		Store_Top	Discrete,At_Offset_1
202a 00d8       |    |		Load_Top	At_Offset_0
202b 7007       |p   |		Jump_Nonzero	0x2033
202c 00da       |    |		Load_Top	At_Offset_2
202d e5ff       |    |		Load	0x2,-0x1
202e 0227       | '  |		Execute	Access,All_Reference
202f 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
2030 027f       |    |		Execute	Discrete,Equal
2031 a402       |    |		Store_Unchecked	0x2,0x2
2032 79cf       |y   |		Jump	0x2202
2033 e002       |    |		Load	0x0,0x2
2034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2035 4801       |H   |		Short_Literal	0x1
2036 4802       |H   |		Short_Literal	0x2
2037 e00e       |    |		Load	0x0,0xe
2038 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2039 0334       | 4  |		Declare_Variable	Array,With_Constraint
203a e5fe       |    |		Load	0x2,-0x2
203b e001       |    |		Load	0x0,0x1
203c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
203d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
203e 4801       |H   |		Short_Literal	0x1
203f 00da       |    |		Load_Top	At_Offset_2
2040 01d6       |    |		Execute	Vector,Field_Write
2041 00da       |    |		Load_Top	At_Offset_2
2042 e00e       |    |		Load	0x0,0xe
2043 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2044 4802       |H   |		Short_Literal	0x2
2045 00da       |    |		Load_Top	At_Offset_2
2046 01d6       |    |		Execute	Vector,Field_Write
2047 61c0       |a   |		Indirect_Literal	Discrete,0x2208,{0x00000000, 0x00002820}
2048 e002       |    |		Load	0x0,0x2
2049 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
204a c5fc       |    |		Store	0x2,-0x4
204b 79b6       |y   |		Jump	0x2202
204c e5ff       |    |		Load	0x2,-0x1
204d 0227       | '  |		Execute	Access,All_Reference
204e 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
204f 4604       |F   |		Jump_Case	0x5
2050 7809       |x   |		Jump	0x205a								; case 0x0
2051 780f       |x   |		Jump	0x2061								; case 0x1
2052 7815       |x   |		Jump	0x2068								; case 0x2
2053 781a       |x   |		Jump	0x206e								; case 0x3
2054 7800       |x   |		Jump	0x2055								; case 0x4
2055 e5fe       |    |		Load	0x2,-0x2
2056 0217       |    |		Execute	Heap_Access,All_Reference
2057 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
2058 a402       |    |		Store_Unchecked	0x2,0x2
2059 79a8       |y   |		Jump	0x2202
205a 4801       |H   |		Short_Literal	0x1
205b e5fe       |    |		Load	0x2,-0x2
205c e001       |    |		Load	0x0,0x1
205d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
205e 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
205f a402       |    |		Store_Unchecked	0x2,0x2
2060 79a1       |y   |		Jump	0x2202
2061 4802       |H   |		Short_Literal	0x2
2062 e5fe       |    |		Load	0x2,-0x2
2063 e001       |    |		Load	0x0,0x1
2064 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2065 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
2066 a402       |    |		Store_Unchecked	0x2,0x2
2067 799a       |y   |		Jump	0x2202
2068 e5fe       |    |		Load	0x2,-0x2
2069 e001       |    |		Load	0x0,0x1
206a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
206b 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
206c a402       |    |		Store_Unchecked	0x2,0x2
206d 7994       |y   |		Jump	0x2202
206e 4800       |H   |		Short_Literal	0x0
206f a402       |    |		Store_Unchecked	0x2,0x2
2070 00cf       |    |		Action	Mark_Auxiliary
2071 e5ff       |    |		Load	0x2,-0x1
2072 0227       | '  |		Execute	Access,All_Reference
2073 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2074 01d9       |    |		Execute	Vector,Reverse_Bounds
2075 0263       | c  |		Execute	Discrete,Above_Bound
2076 7012       |p   |		Jump_Nonzero	0x2089
2077 00d8       |    |		Load_Top	At_Offset_0
2078 e5ff       |    |		Load	0x2,-0x1
2079 0227       | '  |		Execute	Access,All_Reference
207a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
207b 01d7       |    |		Execute	Vector,Field_Read
207c 680a       |h   |		Jump_Zero	0x2087
207d 00d8       |    |		Load_Top	At_Offset_0
207e e5fe       |    |		Load	0x2,-0x2
207f e001       |    |		Load	0x0,0x1
2080 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2081 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
2082 a402       |    |		Store_Unchecked	0x2,0x2
2083 e402       |    |		Load	0x2,0x2
2084 6802       |h   |		Jump_Zero	0x2087
2085 00d2       |    |		Pop_Control	Pop_Count_2
2086 7802       |x   |		Jump	0x2089
2087 00c8       |    |		Action	Pop_Auxiliary_Range
2088 3fee       |?   |		Loop_Increasing	0x2077
2089 00ce       |    |		Action	Pop_Auxiliary
208a 7977       |yw  |		Jump	0x2202
208b e5ff       |    |		Load	0x2,-0x1
208c 0227       | '  |		Execute	Access,All_Reference
208d 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
208e 4603       |F   |		Jump_Case	0x4
208f 7820       |x   |		Jump	0x20b0								; case 0x0
2090 7824       |x$  |		Jump	0x20b5								; case 0x1
2091 7829       |x)  |		Jump	0x20bb								; case 0x2
2092 7800       |x   |		Jump	0x2093								; case 0x3
2093 4800       |H   |		Short_Literal	0x0
2094 a402       |    |		Store_Unchecked	0x2,0x2
2095 00cf       |    |		Action	Mark_Auxiliary
2096 e5ff       |    |		Load	0x2,-0x1
2097 0227       | '  |		Execute	Access,All_Reference
2098 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2099 01d9       |    |		Execute	Vector,Reverse_Bounds
209a 0263       | c  |		Execute	Discrete,Above_Bound
209b 7012       |p   |		Jump_Nonzero	0x20ae
209c 00d8       |    |		Load_Top	At_Offset_0
209d e5ff       |    |		Load	0x2,-0x1
209e 0227       | '  |		Execute	Access,All_Reference
209f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20a0 01d7       |    |		Execute	Vector,Field_Read
20a1 680a       |h   |		Jump_Zero	0x20ac
20a2 00d8       |    |		Load_Top	At_Offset_0
20a3 e5fe       |    |		Load	0x2,-0x2
20a4 e001       |    |		Load	0x0,0x1
20a5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20a6 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
20a7 a402       |    |		Store_Unchecked	0x2,0x2
20a8 e402       |    |		Load	0x2,0x2
20a9 6802       |h   |		Jump_Zero	0x20ac
20aa 00d2       |    |		Pop_Control	Pop_Count_2
20ab 7802       |x   |		Jump	0x20ae
20ac 00c8       |    |		Action	Pop_Auxiliary_Range
20ad 3fee       |?   |		Loop_Increasing	0x209c
20ae 00ce       |    |		Action	Pop_Auxiliary
20af 7952       |yR  |		Jump	0x2202
20b0 e5fe       |    |		Load	0x2,-0x2
20b1 0217       |    |		Execute	Heap_Access,All_Reference
20b2 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
20b3 a402       |    |		Store_Unchecked	0x2,0x2
20b4 794d       |yM  |		Jump	0x2202
20b5 e5fe       |    |		Load	0x2,-0x2
20b6 e001       |    |		Load	0x0,0x1
20b7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20b8 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
20b9 a402       |    |		Store_Unchecked	0x2,0x2
20ba 7947       |yG  |		Jump	0x2202
20bb 4800       |H   |		Short_Literal	0x0
20bc a402       |    |		Store_Unchecked	0x2,0x2
20bd 00cf       |    |		Action	Mark_Auxiliary
20be e5ff       |    |		Load	0x2,-0x1
20bf 0227       | '  |		Execute	Access,All_Reference
20c0 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20c1 01d9       |    |		Execute	Vector,Reverse_Bounds
20c2 0263       | c  |		Execute	Discrete,Above_Bound
20c3 7012       |p   |		Jump_Nonzero	0x20d6
20c4 00d8       |    |		Load_Top	At_Offset_0
20c5 e5ff       |    |		Load	0x2,-0x1
20c6 0227       | '  |		Execute	Access,All_Reference
20c7 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20c8 01d7       |    |		Execute	Vector,Field_Read
20c9 680a       |h   |		Jump_Zero	0x20d4
20ca 00d8       |    |		Load_Top	At_Offset_0
20cb e5fe       |    |		Load	0x2,-0x2
20cc e001       |    |		Load	0x0,0x1
20cd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20ce 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
20cf a402       |    |		Store_Unchecked	0x2,0x2
20d0 e402       |    |		Load	0x2,0x2
20d1 6802       |h   |		Jump_Zero	0x20d4
20d2 00d2       |    |		Pop_Control	Pop_Count_2
20d3 7802       |x   |		Jump	0x20d6
20d4 00c8       |    |		Action	Pop_Auxiliary_Range
20d5 3fee       |?   |		Loop_Increasing	0x20c4
20d6 00ce       |    |		Action	Pop_Auxiliary
20d7 792a       |y*  |		Jump	0x2202
20d8 4800       |H   |		Short_Literal	0x0
20d9 a402       |    |		Store_Unchecked	0x2,0x2
20da e5fe       |    |		Load	0x2,-0x2
20db e001       |    |		Load	0x0,0x1
20dc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20dd 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
20de 6923       |i#  |		Jump_Zero	0x2202
20df e5fe       |    |		Load	0x2,-0x2
20e0 e001       |    |		Load	0x0,0x1
20e1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20e2 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
20e3 e5ff       |    |		Load	0x2,-0x1
20e4 0227       | '  |		Execute	Access,All_Reference
20e5 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
20e6 0217       |    |		Execute	Heap_Access,All_Reference
20e7 e033       | 3  |		Load	0x0,0x33
20e8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
20e9 6803       |h   |		Jump_Zero	0x20ed
20ea 4801       |H   |		Short_Literal	0x1
20eb a402       |    |		Store_Unchecked	0x2,0x2
20ec 7915       |y   |		Jump	0x2202
20ed 00cf       |    |		Action	Mark_Auxiliary
20ee e5ff       |    |		Load	0x2,-0x1
20ef 0227       | '  |		Execute	Access,All_Reference
20f0 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20f1 01d9       |    |		Execute	Vector,Reverse_Bounds
20f2 0263       | c  |		Execute	Discrete,Above_Bound
20f3 7018       |p   |		Jump_Nonzero	0x210c
20f4 00d8       |    |		Load_Top	At_Offset_0
20f5 e5ff       |    |		Load	0x2,-0x1
20f6 0227       | '  |		Execute	Access,All_Reference
20f7 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
20f8 01d7       |    |		Execute	Vector,Field_Read
20f9 6810       |h   |		Jump_Zero	0x210a
20fa 00d8       |    |		Load_Top	At_Offset_0
20fb e5fe       |    |		Load	0x2,-0x2
20fc e001       |    |		Load	0x0,0x1
20fd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
20fe 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
20ff e5ff       |    |		Load	0x2,-0x1
2100 0227       | '  |		Execute	Access,All_Reference
2101 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
2102 0217       |    |		Execute	Heap_Access,All_Reference
2103 e033       | 3  |		Load	0x0,0x33
2104 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2105 a402       |    |		Store_Unchecked	0x2,0x2
2106 e402       |    |		Load	0x2,0x2
2107 6802       |h   |		Jump_Zero	0x210a
2108 00d2       |    |		Pop_Control	Pop_Count_2
2109 7802       |x   |		Jump	0x210c
210a 00c8       |    |		Action	Pop_Auxiliary_Range
210b 3fe8       |?   |		Loop_Increasing	0x20f4
210c 00ce       |    |		Action	Pop_Auxiliary
210d 78f4       |x   |		Jump	0x2202
210e e5ff       |    |		Load	0x2,-0x1
210f e5fe       |    |		Load	0x2,-0x2
2110 0217       |    |		Execute	Heap_Access,All_Reference
2111 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
2112 82b8       |    |		Call	0x1,0xb8
2113 a402       |    |		Store_Unchecked	0x2,0x2
2114 78ed       |x   |		Jump	0x2202
2115 e5ff       |    |		Load	0x2,-0x1
2116 e5fe       |    |		Load	0x2,-0x2
2117 0217       |    |		Execute	Heap_Access,All_Reference
2118 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
2119 82b8       |    |		Call	0x1,0xb8
211a a402       |    |		Store_Unchecked	0x2,0x2
211b 78e6       |x   |		Jump	0x2202
211c 4800       |H   |		Short_Literal	0x0
211d a402       |    |		Store_Unchecked	0x2,0x2
211e 00cf       |    |		Action	Mark_Auxiliary
211f e5ff       |    |		Load	0x2,-0x1
2120 0227       | '  |		Execute	Access,All_Reference
2121 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2122 01d9       |    |		Execute	Vector,Reverse_Bounds
2123 0263       | c  |		Execute	Discrete,Above_Bound
2124 7014       |p   |		Jump_Nonzero	0x2139
2125 00d8       |    |		Load_Top	At_Offset_0
2126 e5ff       |    |		Load	0x2,-0x1
2127 0227       | '  |		Execute	Access,All_Reference
2128 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2129 01d7       |    |		Execute	Vector,Field_Read
212a 680c       |h   |		Jump_Zero	0x2137
212b e5ff       |    |		Load	0x2,-0x1
212c 00d9       |    |		Load_Top	At_Offset_1
212d e5fe       |    |		Load	0x2,-0x2
212e e001       |    |		Load	0x0,0x1
212f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2130 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
2131 82b8       |    |		Call	0x1,0xb8
2132 a402       |    |		Store_Unchecked	0x2,0x2
2133 e402       |    |		Load	0x2,0x2
2134 6802       |h   |		Jump_Zero	0x2137
2135 00d2       |    |		Pop_Control	Pop_Count_2
2136 7802       |x   |		Jump	0x2139
2137 00c8       |    |		Action	Pop_Auxiliary_Range
2138 3fec       |?   |		Loop_Increasing	0x2125
2139 00ce       |    |		Action	Pop_Auxiliary
213a 78c7       |x   |		Jump	0x2202
213b 4800       |H   |		Short_Literal	0x0
213c a402       |    |		Store_Unchecked	0x2,0x2
213d 00cf       |    |		Action	Mark_Auxiliary
213e e5ff       |    |		Load	0x2,-0x1
213f 0227       | '  |		Execute	Access,All_Reference
2140 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2141 01d9       |    |		Execute	Vector,Reverse_Bounds
2142 0263       | c  |		Execute	Discrete,Above_Bound
2143 7014       |p   |		Jump_Nonzero	0x2158
2144 00d8       |    |		Load_Top	At_Offset_0
2145 e5ff       |    |		Load	0x2,-0x1
2146 0227       | '  |		Execute	Access,All_Reference
2147 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2148 01d7       |    |		Execute	Vector,Field_Read
2149 680c       |h   |		Jump_Zero	0x2156
214a e5ff       |    |		Load	0x2,-0x1
214b 00d9       |    |		Load_Top	At_Offset_1
214c e5fe       |    |		Load	0x2,-0x2
214d e001       |    |		Load	0x0,0x1
214e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
214f 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
2150 82b8       |    |		Call	0x1,0xb8
2151 a402       |    |		Store_Unchecked	0x2,0x2
2152 e402       |    |		Load	0x2,0x2
2153 6802       |h   |		Jump_Zero	0x2156
2154 00d2       |    |		Pop_Control	Pop_Count_2
2155 7802       |x   |		Jump	0x2158
2156 00c8       |    |		Action	Pop_Auxiliary_Range
2157 3fec       |?   |		Loop_Increasing	0x2144
2158 00ce       |    |		Action	Pop_Auxiliary
2159 78a8       |x   |		Jump	0x2202
215a 4800       |H   |		Short_Literal	0x0
215b a402       |    |		Store_Unchecked	0x2,0x2
215c 00cf       |    |		Action	Mark_Auxiliary
215d e5ff       |    |		Load	0x2,-0x1
215e 0227       | '  |		Execute	Access,All_Reference
215f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2160 01d9       |    |		Execute	Vector,Reverse_Bounds
2161 0263       | c  |		Execute	Discrete,Above_Bound
2162 7015       |p   |		Jump_Nonzero	0x2178
2163 00d8       |    |		Load_Top	At_Offset_0
2164 e5ff       |    |		Load	0x2,-0x1
2165 0227       | '  |		Execute	Access,All_Reference
2166 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2167 01d7       |    |		Execute	Vector,Field_Read
2168 680d       |h   |		Jump_Zero	0x2176
2169 e5ff       |    |		Load	0x2,-0x1
216a 00d9       |    |		Load_Top	At_Offset_1
216b 4800       |H   |		Short_Literal	0x0
216c e5fe       |    |		Load	0x2,-0x2
216d e001       |    |		Load	0x0,0x1
216e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
216f 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
2170 82b8       |    |		Call	0x1,0xb8
2171 a402       |    |		Store_Unchecked	0x2,0x2
2172 e402       |    |		Load	0x2,0x2
2173 6802       |h   |		Jump_Zero	0x2176
2174 00d2       |    |		Pop_Control	Pop_Count_2
2175 7802       |x   |		Jump	0x2178
2176 00c8       |    |		Action	Pop_Auxiliary_Range
2177 3feb       |?   |		Loop_Increasing	0x2163
2178 00ce       |    |		Action	Pop_Auxiliary
2179 7888       |x   |		Jump	0x2202
217a e5fe       |    |		Load	0x2,-0x2
217b e001       |    |		Load	0x0,0x1
217c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
217d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
217e e5ff       |    |		Load	0x2,-0x1
217f 0227       | '  |		Execute	Access,All_Reference
2180 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
2181 0217       |    |		Execute	Heap_Access,All_Reference
2182 e033       | 3  |		Load	0x0,0x33
2183 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2184 a402       |    |		Store_Unchecked	0x2,0x2
2185 787c       |x|  |		Jump	0x2202
2186 4800       |H   |		Short_Literal	0x0
2187 a402       |    |		Store_Unchecked	0x2,0x2
2188 00cf       |    |		Action	Mark_Auxiliary
2189 e5ff       |    |		Load	0x2,-0x1
218a 0227       | '  |		Execute	Access,All_Reference
218b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
218c 01d9       |    |		Execute	Vector,Reverse_Bounds
218d 0263       | c  |		Execute	Discrete,Above_Bound
218e 7020       |p   |		Jump_Nonzero	0x21af
218f 00d8       |    |		Load_Top	At_Offset_0
2190 e5ff       |    |		Load	0x2,-0x1
2191 0227       | '  |		Execute	Access,All_Reference
2192 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2193 01d7       |    |		Execute	Vector,Field_Read
2194 6818       |h   |		Jump_Zero	0x21ad
2195 00d8       |    |		Load_Top	At_Offset_0
2196 e5fe       |    |		Load	0x2,-0x2
2197 e001       |    |		Load	0x0,0x1
2198 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2199 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
219a 680c       |h   |		Jump_Zero	0x21a7
219b 00d8       |    |		Load_Top	At_Offset_0
219c e5fe       |    |		Load	0x2,-0x2
219d e001       |    |		Load	0x0,0x1
219e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
219f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
21a0 e5ff       |    |		Load	0x2,-0x1
21a1 0227       | '  |		Execute	Access,All_Reference
21a2 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
21a3 0217       |    |		Execute	Heap_Access,All_Reference
21a4 e033       | 3  |		Load	0x0,0x33
21a5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
21a6 7801       |x   |		Jump	0x21a8
21a7 4800       |H   |		Short_Literal	0x0
21a8 a402       |    |		Store_Unchecked	0x2,0x2
21a9 e402       |    |		Load	0x2,0x2
21aa 6802       |h   |		Jump_Zero	0x21ad
21ab 00d2       |    |		Pop_Control	Pop_Count_2
21ac 7802       |x   |		Jump	0x21af
21ad 00c8       |    |		Action	Pop_Auxiliary_Range
21ae 3fe0       |?   |		Loop_Increasing	0x218f
21af 00ce       |    |		Action	Pop_Auxiliary
21b0 7851       |xQ  |		Jump	0x2202
21b1 e5fe       |    |		Load	0x2,-0x2
21b2 e001       |    |		Load	0x0,0x1
21b3 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21b4 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
21b5 680e       |h   |		Jump_Zero	0x21c4
21b6 e5fe       |    |		Load	0x2,-0x2
21b7 e001       |    |		Load	0x0,0x1
21b8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21b9 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
21ba e001       |    |		Load	0x0,0x1
21bb 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21bc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
21bd e5ff       |    |		Load	0x2,-0x1
21be 0227       | '  |		Execute	Access,All_Reference
21bf 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
21c0 0217       |    |		Execute	Heap_Access,All_Reference
21c1 e033       | 3  |		Load	0x0,0x33
21c2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
21c3 7801       |x   |		Jump	0x21c5
21c4 4800       |H   |		Short_Literal	0x0
21c5 a402       |    |		Store_Unchecked	0x2,0x2
21c6 783b       |x;  |		Jump	0x2202
21c7 e5fe       |    |		Load	0x2,-0x2
21c8 e001       |    |		Load	0x0,0x1
21c9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21ca 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
21cb 680e       |h   |		Jump_Zero	0x21da
21cc e5fe       |    |		Load	0x2,-0x2
21cd e001       |    |		Load	0x0,0x1
21ce 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21cf 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
21d0 e001       |    |		Load	0x0,0x1
21d1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21d2 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
21d3 e5ff       |    |		Load	0x2,-0x1
21d4 0227       | '  |		Execute	Access,All_Reference
21d5 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
21d6 0217       |    |		Execute	Heap_Access,All_Reference
21d7 e033       | 3  |		Load	0x0,0x33
21d8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
21d9 7801       |x   |		Jump	0x21db
21da 4800       |H   |		Short_Literal	0x0
21db a402       |    |		Store_Unchecked	0x2,0x2
21dc 7825       |x%  |		Jump	0x2202
21dd 4800       |H   |		Short_Literal	0x0
21de a402       |    |		Store_Unchecked	0x2,0x2
21df 00cf       |    |		Action	Mark_Auxiliary
21e0 e5ff       |    |		Load	0x2,-0x1
21e1 0227       | '  |		Execute	Access,All_Reference
21e2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
21e3 01d9       |    |		Execute	Vector,Reverse_Bounds
21e4 0263       | c  |		Execute	Discrete,Above_Bound
21e5 7014       |p   |		Jump_Nonzero	0x21fa
21e6 00d8       |    |		Load_Top	At_Offset_0
21e7 e5ff       |    |		Load	0x2,-0x1
21e8 0227       | '  |		Execute	Access,All_Reference
21e9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
21ea 01d7       |    |		Execute	Vector,Field_Read
21eb 680c       |h   |		Jump_Zero	0x21f8
21ec e5ff       |    |		Load	0x2,-0x1
21ed 00d9       |    |		Load_Top	At_Offset_1
21ee e5fe       |    |		Load	0x2,-0x2
21ef e001       |    |		Load	0x0,0x1
21f0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
21f1 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
21f2 82b9       |    |		Call	0x1,0xb9
21f3 a402       |    |		Store_Unchecked	0x2,0x2
21f4 e402       |    |		Load	0x2,0x2
21f5 6802       |h   |		Jump_Zero	0x21f8
21f6 00d2       |    |		Pop_Control	Pop_Count_2
21f7 7802       |x   |		Jump	0x21fa
21f8 00c8       |    |		Action	Pop_Auxiliary_Range
21f9 3fec       |?   |		Loop_Increasing	0x21e6
21fa 00ce       |    |		Action	Pop_Auxiliary
21fb 7806       |x   |		Jump	0x2202
21fc e5ff       |    |		Load	0x2,-0x1
21fd e5fe       |    |		Load	0x2,-0x2
21fe 0217       |    |		Execute	Heap_Access,All_Reference
21ff 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
2200 82b9       |    |		Call	0x1,0xb9
2201 a402       |    |		Store_Unchecked	0x2,0x2
2202 e402       |    |		Load	0x2,0x2
2203 a5fd       |    |		Store_Unchecked	0x2,-0x3
2204 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
2205 0000 0000  |    |		.XXX[0x3]
2207 0000       |    |
2208 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002820}
220c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
2210 ; --------------------------------------------------------------------------------------
2210 ; SUBPROGRAM
2210 ; --------------------------------------------------------------------------------------
2210 2220       |"   |		.CONST	0x2220								; Address of begin
2211 0004       |    |		.CONST	0x0004								; Address of exception handler
2212 0005       |    |		.CONST	0x0005								; Number of locals
2213			INIT_2210:
2213 00da       |    |		Load_Top	At_Offset_2
2214 e00d       |    |		Load	0x0,0xd
2215 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
2216 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
2217 e5fd       |    |		Load	0x2,-0x3
2218 e01b       |    |		Load	0x0,0x1b
2219 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
221a e5fd       |    |		Load	0x2,-0x3
221b 0217       |    |		Execute	Heap_Access,All_Reference
221c 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
221d 0007       |    |		Action	Break_Optional
221e e01b       |    |		Load	0x0,0x1b
221f 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
2220			BODY_2210:
2220 e5ff       |    |		Load	0x2,-0x1
2221 8026       | &  |		Call	0x0,0x26
2222 0f02       |    |		Execute_Immediate	Equal,0x2
2223 00db       |    |		Load_Top	At_Offset_3
2224 0217       |    |		Execute	Heap_Access,All_Reference
2225 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
2226 4800       |H   |		Short_Literal	0x0
2227 e5fd       |    |		Load	0x2,-0x3
2228 e403       |    |		Load	0x2,0x3
2229 e001       |    |		Load	0x0,0x1
222a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
222b 0216       |    |		Execute	Heap_Access,Convert
222c e5ff       |    |		Load	0x2,-0x1
222d e02a       | *  |		Load	0x0,0x2a
222e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
222f e5fd       |    |		Load	0x2,-0x3
2230 0217       |    |		Execute	Heap_Access,All_Reference
2231 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
2232 00db       |    |		Load_Top	At_Offset_3
2233 0217       |    |		Execute	Heap_Access,All_Reference
2234 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
2235 00da       |    |		Load_Top	At_Offset_2
2236 e5fd       |    |		Load	0x2,-0x3
2237 0217       |    |		Execute	Heap_Access,All_Reference
2238 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
2239 e5ff       |    |		Load	0x2,-0x1
223a 00db       |    |		Load_Top	At_Offset_3
223b 0217       |    |		Execute	Heap_Access,All_Reference
223c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
223d e5fd       |    |		Load	0x2,-0x3
223e e402       |    |		Load	0x2,0x2
223f e020       |    |		Load	0x0,0x20
2240 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2241 00db       |    |		Load_Top	At_Offset_3
2242 0217       |    |		Execute	Heap_Access,All_Reference
2243 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
2244 e5fe       |    |		Load	0x2,-0x2
2245 00db       |    |		Load_Top	At_Offset_3
2246 0217       |    |		Execute	Heap_Access,All_Reference
2247 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
2248 e5ff       |    |		Load	0x2,-0x1
2249 e5fe       |    |		Load	0x2,-0x2
224a 012f       | /  |		Execute	Any,Equal
224b 680b       |h   |		Jump_Zero	0x2257
224c 00da       |    |		Load_Top	At_Offset_2
224d 0217       |    |		Execute	Heap_Access,All_Reference
224e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
224f 00db       |    |		Load_Top	At_Offset_3
2250 0217       |    |		Execute	Heap_Access,All_Reference
2251 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
2252 4800       |H   |		Short_Literal	0x0
2253 00db       |    |		Load_Top	At_Offset_3
2254 0217       |    |		Execute	Heap_Access,All_Reference
2255 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
2256 780e       |x   |		Jump	0x2265
2257 e5fe       |    |		Load	0x2,-0x2
2258 e00d       |    |		Load	0x0,0xd
2259 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
225a 700a       |p   |		Jump_Nonzero	0x2265
225b e5fd       |    |		Load	0x2,-0x3
225c e5fe       |    |		Load	0x2,-0x2
225d e00d       |    |		Load	0x0,0xd
225e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
225f 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
2260 e020       |    |		Load	0x0,0x20
2261 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2262 00db       |    |		Load_Top	At_Offset_3
2263 0217       |    |		Execute	Heap_Access,All_Reference
2264 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
2265 00cf       |    |		Action	Mark_Auxiliary
2266 781c       |x   |		Jump	0x2283
2267 00db       |    |		Load_Top	At_Offset_3
2268 e001       |    |		Load	0x0,0x1
2269 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
226a 0216       |    |		Execute	Heap_Access,Convert
226b e01b       |    |		Load	0x0,0x1b
226c 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
226d 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
226e 00da       |    |		Load_Top	At_Offset_2
226f 0217       |    |		Execute	Heap_Access,All_Reference
2270 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
2271 00da       |    |		Load_Top	At_Offset_2
2272 0217       |    |		Execute	Heap_Access,All_Reference
2273 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
2274 00db       |    |		Load_Top	At_Offset_3
2275 0217       |    |		Execute	Heap_Access,All_Reference
2276 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2277 00da       |    |		Load_Top	At_Offset_2
2278 0217       |    |		Execute	Heap_Access,All_Reference
2279 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
227a 00d9       |    |		Load_Top	At_Offset_1
227b e403       |    |		Load	0x2,0x3
227c 0217       |    |		Execute	Heap_Access,All_Reference
227d 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
227e 00da       |    |		Load_Top	At_Offset_2
227f 0217       |    |		Execute	Heap_Access,All_Reference
2280 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
2281 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2282 00c9       |    |		Action	Pop_Auxiliary_Loop
2283 00da       |    |		Load_Top	At_Offset_2
2284 77e2       |w   |		Jump_Nonzero	0x2267
2285 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
2286 0000 0000  |    |		.XXX[0x2]
2288 ; --------------------------------------------------------------------------------------
2288 ; SUBPROGRAM
2288 ; --------------------------------------------------------------------------------------
2288 2298       |"   |		.CONST	0x2298								; Address of begin
2289 0004       |    |		.CONST	0x0004								; Address of exception handler
228a 0004       |    |		.CONST	0x0004								; Number of locals
228b			INIT_2288:
228b e00d       |    |		Load	0x0,0xd
228c 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
228d 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
228e 02c7       |    |		Declare_Variable	Any
228f 00d8       |    |		Load_Top	At_Offset_0
2290 1c00       |    |		Execute_Immediate	Run_Utility,0x0
2291 e00d       |    |		Load	0x0,0xd
2292 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2293 e02a       | *  |		Load	0x0,0x2a
2294 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2295 02ff       |    |		Declare_Variable	Variant_Record
2296 00d8       |    |		Load_Top	At_Offset_0
2297 1c00       |    |		Execute_Immediate	Run_Utility,0x0
2298			BODY_2288:
2298 e00d       |    |		Load	0x0,0xd
2299 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
229a 00db       |    |		Load_Top	At_Offset_3
229b 0120       |    |		Execute	Any,Is_Value
229c 6804       |h   |		Jump_Zero	0x22a1
229d e00d       |    |		Load	0x0,0xd
229e 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
229f 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
22a0 7801       |x   |		Jump	0x22a2
22a1 00db       |    |		Load_Top	At_Offset_3
22a2 602d       |`-  |		Indirect_Literal	Discrete,0x22d0,{0x00000000, 0x00004000}
22a3 e022       | "  |		Load	0x0,0x22
22a4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
22a5 4800       |H   |		Short_Literal	0x0
22a6 e5ff       |    |		Load	0x2,-0x1
22a7 0217       |    |		Execute	Heap_Access,All_Reference
22a8 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
22a9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
22aa e00d       |    |		Load	0x0,0xd
22ab 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
22ac 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
22ad c402       |    |		Store	0x2,0x2
22ae 005a       | Z  |		Store_Top	Discrete,At_Offset_2
22af 00da       |    |		Load_Top	At_Offset_2
22b0 e00d       |    |		Load	0x0,0xd
22b1 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
22b2 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
22b3 00db       |    |		Load_Top	At_Offset_3
22b4 e00d       |    |		Load	0x0,0xd
22b5 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
22b6 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
22b7 012e       | .  |		Execute	Any,Not_Equal
22b8 6813       |h   |		Jump_Zero	0x22cc
22b9 4802       |H   |		Short_Literal	0x2
22ba e5fe       |    |		Load	0x2,-0x2
22bb e402       |    |		Load	0x2,0x2
22bc e00d       |    |		Load	0x0,0xd
22bd 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
22be 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
22bf e02a       | *  |		Load	0x0,0x2a
22c0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
22c1 00d9       |    |		Load_Top	At_Offset_1
22c2 016d       | m  |		Execute	Variant_Record,Structure_Write
22c3 00d8       |    |		Load_Top	At_Offset_0
22c4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
22c5 0f02       |    |		Execute_Immediate	Equal,0x2
22c6 6805       |h   |		Jump_Zero	0x22cc
22c7 00d8       |    |		Load_Top	At_Offset_0
22c8 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
22c9 0217       |    |		Execute	Heap_Access,All_Reference
22ca 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
22cb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
22cc e01b       |    |		Load	0x0,0x1b
22cd 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
22ce 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
22cf 0000       |    |		.XXX[0x1]
22d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
22d4 0000 0000  |    |		.BLANK	0000[0x4]
22d8 ; --------------------------------------------------------------------------------------
22d8 ; SUBPROGRAM
22d8 ; --------------------------------------------------------------------------------------
22d8 22e5       |"   |		.CONST	0x22e5								; Address of begin
22d9 2343       |#C  |		.CONST	0x2343								; Address of exception handler
22da 0006       |    |		.CONST	0x0006								; Number of locals
22db			INIT_22d8:
22db e01b       |    |		Load	0x0,0x1b
22dc 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
22dd e01b       |    |		Load	0x0,0x1b
22de 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
22df e01b       |    |		Load	0x0,0x1b
22e0 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
22e1 e01b       |    |		Load	0x0,0x1b
22e2 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
22e3 00e2       |    |		Load_Encached	Integer_Cache
22e4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
22e5			BODY_22d8:
22e5 e5ff       |    |		Load	0x2,-0x1
22e6 0217       |    |		Execute	Heap_Access,All_Reference
22e7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
22e8 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
22e9 7009       |p   |		Jump_Nonzero	0x22f3
22ea e5fd       |    |		Load	0x2,-0x3
22eb 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
22ec 7006       |p   |		Jump_Nonzero	0x22f3
22ed e5fd       |    |		Load	0x2,-0x3
22ee 0f01       |    |		Execute_Immediate	Equal,0x1
22ef 684e       |hN  |		Jump_Zero	0x233e
22f0 e5fe       |    |		Load	0x2,-0x2
22f1 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
22f2 684b       |hK  |		Jump_Zero	0x233e
22f3 e5ff       |    |		Load	0x2,-0x1
22f4 0217       |    |		Execute	Heap_Access,All_Reference
22f5 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
22f6 a402       |    |		Store_Unchecked	0x2,0x2
22f7 00cf       |    |		Action	Mark_Auxiliary
22f8 783d       |x=  |		Jump	0x2336
22f9 e402       |    |		Load	0x2,0x2
22fa 0217       |    |		Execute	Heap_Access,All_Reference
22fb 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
22fc a403       |    |		Store_Unchecked	0x2,0x3
22fd e402       |    |		Load	0x2,0x2
22fe 0217       |    |		Execute	Heap_Access,All_Reference
22ff 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2300 6830       |h0  |		Jump_Zero	0x2331
2301 e5ff       |    |		Load	0x2,-0x1
2302 e402       |    |		Load	0x2,0x2
2303 82bc       |    |		Call	0x1,0xbc
2304 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2305 00da       |    |		Load_Top	At_Offset_2
2306 6827       |h'  |		Jump_Zero	0x232e
2307 00db       |    |		Load_Top	At_Offset_3
2308 7005       |p   |		Jump_Nonzero	0x230e
2309 e403       |    |		Load	0x2,0x3
230a e5ff       |    |		Load	0x2,-0x1
230b 0217       |    |		Execute	Heap_Access,All_Reference
230c 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
230d 7804       |x   |		Jump	0x2312
230e e403       |    |		Load	0x2,0x3
230f e404       |    |		Load	0x2,0x4
2310 0217       |    |		Execute	Heap_Access,All_Reference
2311 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
2312 4800       |H   |		Short_Literal	0x0
2313 e402       |    |		Load	0x2,0x2
2314 0217       |    |		Execute	Heap_Access,All_Reference
2315 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
2316 00da       |    |		Load_Top	At_Offset_2
2317 e402       |    |		Load	0x2,0x2
2318 0217       |    |		Execute	Heap_Access,All_Reference
2319 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
231a e5ff       |    |		Load	0x2,-0x1
231b e402       |    |		Load	0x2,0x2
231c e001       |    |		Load	0x0,0x1
231d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
231e 0216       |    |		Execute	Heap_Access,Convert
231f 8264       | d  |		Call	0x1,0x64
2320 e5fb       |    |		Load	0x2,-0x5
2321 e402       |    |		Load	0x2,0x2
2322 0217       |    |		Execute	Heap_Access,All_Reference
2323 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
2324 e5fc       |    |		Load	0x2,-0x4
2325 e402       |    |		Load	0x2,0x2
2326 e001       |    |		Load	0x0,0x1
2327 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2328 0216       |    |		Execute	Heap_Access,Convert
2329 e001       |    |		Load	0x0,0x1
232a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
232b 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
232c c5fb       |    |		Store	0x2,-0x5
232d 7803       |x   |		Jump	0x2331
232e 00d9       |    |		Load_Top	At_Offset_1
232f 0a01       |    |		Execute_Immediate	Plus,0x1
2330 005a       | Z  |		Store_Top	Discrete,At_Offset_2
2331 e402       |    |		Load	0x2,0x2
2332 a404       |    |		Store_Unchecked	0x2,0x4
2333 e403       |    |		Load	0x2,0x3
2334 a402       |    |		Store_Unchecked	0x2,0x2
2335 00c9       |    |		Action	Pop_Auxiliary_Loop
2336 e402       |    |		Load	0x2,0x2
2337 77c1       |w   |		Jump_Nonzero	0x22f9
2338 00ce       |    |		Action	Pop_Auxiliary
2339 00d8       |    |		Load_Top	At_Offset_0
233a e5ff       |    |		Load	0x2,-0x1
233b 0217       |    |		Execute	Heap_Access,All_Reference
233c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
233d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
233e 4801       |H   |		Short_Literal	0x1
233f e5ff       |    |		Load	0x2,-0x1
2340 0217       |    |		Execute	Heap_Access,All_Reference
2341 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
2342 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2343			TRAP_22d8:
2343 4885       |H   |		Short_Literal	0x85
2344 010f       |    |		Execute	Exception,Equal
2345 6811       |h   |		Jump_Zero	0x2357
2346 e002       |    |		Load	0x0,0x2
2347 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2348 4801       |H   |		Short_Literal	0x1
2349 4801       |H   |		Short_Literal	0x1
234a e00e       |    |		Load	0x0,0xe
234b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
234c 0334       | 4  |		Declare_Variable	Array,With_Constraint
234d e5ff       |    |		Load	0x2,-0x1
234e 825a       | Z  |		Call	0x1,0x5a
234f 4801       |H   |		Short_Literal	0x1
2350 00da       |    |		Load_Top	At_Offset_2
2351 01d6       |    |		Execute	Vector,Field_Write
2352 6005       |`   |		Indirect_Literal	Discrete,0x2358,{0x00000000, 0x00002836}
2353 e002       |    |		Load	0x0,0x2
2354 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2355 c5fb       |    |		Store	0x2,-0x5
2356 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2357 0100       |    |		Execute	Exception,Raise
2358 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002836}
235c 0000 0000  |    |		.BLANK	0000[0x4]
2360 ; --------------------------------------------------------------------------------------
2360 ; SUBPROGRAM
2360 ; --------------------------------------------------------------------------------------
2360 236d       |#m  |		.CONST	0x236d								; Address of begin
2361 0004       |    |		.CONST	0x0004								; Address of exception handler
2362 0002       |    |		.CONST	0x0002								; Number of locals
2363			INIT_2360:
2363 e003       |    |		Load	0x0,0x3
2364 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
2365 0337       | 7  |		Declare_Variable	Array
2366 00db       |    |		Load_Top	At_Offset_3
2367 825f       | _  |		Call	0x1,0x5f
2368 8226       | &  |		Call	0x1,0x26
2369 e00c       |    |		Load	0x0,0xc
236a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
236b 00d9       |    |		Load_Top	At_Offset_1
236c 01d4       |    |		Execute	Vector,Structure_Write
236d			BODY_2360:
236d 4800       |H   |		Short_Literal	0x0
236e 00d9       |    |		Load_Top	At_Offset_1
236f 01d7       |    |		Execute	Vector,Field_Read
2370 0f00       |    |		Execute_Immediate	Equal,0x0
2371 4803       |H   |		Short_Literal	0x3
2372 e5ff       |    |		Load	0x2,-0x1
2373 0217       |    |		Execute	Heap_Access,All_Reference
2374 341a       |4   |		Execute	Record,Field_Reference,Field_Number 0x1a
2375 01d6       |    |		Execute	Vector,Field_Write
2376 4803       |H   |		Short_Literal	0x3
2377 00d9       |    |		Load_Top	At_Offset_1
2378 01d7       |    |		Execute	Vector,Field_Read
2379 4804       |H   |		Short_Literal	0x4
237a e5ff       |    |		Load	0x2,-0x1
237b 0217       |    |		Execute	Heap_Access,All_Reference
237c 341a       |4   |		Execute	Record,Field_Reference,Field_Number 0x1a
237d 01d6       |    |		Execute	Vector,Field_Write
237e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
237f 0000       |    |		.XXX[0x1]
2380 ; --------------------------------------------------------------------------------------
2380 ; SUBPROGRAM
2380 ; --------------------------------------------------------------------------------------
2380 23c1       |#   |		.CONST	0x23c1								; Address of begin
2381 2555       |%U  |		.CONST	0x2555								; Address of exception handler
2382 000d       |    |		.CONST	0x000d								; Number of locals
2383			INIT_2380:
2383 00da       |    |		Load_Top	At_Offset_2
2384 e00d       |    |		Load	0x0,0xd
2385 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
2386 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
2387 e5fe       |    |		Load	0x2,-0x2
2388 0217       |    |		Execute	Heap_Access,All_Reference
2389 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
238a 0217       |    |		Execute	Heap_Access,All_Reference
238b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
238c e020       |    |		Load	0x0,0x20
238d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
238e 00d9       |    |		Load_Top	At_Offset_1
238f 01dd       |    |		Execute	Vector,First
2390 00d9       |    |		Load_Top	At_Offset_1
2391 01db       |    |		Execute	Vector,Length
2392 0273       | s  |		Execute	Discrete,Plus
2393 00d8       |    |		Load_Top	At_Offset_0
2394 00e2       |    |		Load_Encached	Integer_Cache
2395 0260       | `  |		Execute	Discrete,In_Type
2396 7001       |p   |		Jump_Nonzero	0x2398
2397 0801       |    |		Execute_Immediate	Raise,0x1
2398 00da       |    |		Load_Top	At_Offset_2
2399 01dc       |    |		Execute	Vector,Last
239a 00db       |    |		Load_Top	At_Offset_3
239b 01cf       |    |		Execute	Vector,Slice_Read
239c 0007       |    |		Action	Break_Optional
239d e020       |    |		Load	0x0,0x20
239e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
239f e02a       | *  |		Load	0x0,0x2a
23a0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
23a1 02ff       |    |		Declare_Variable	Variant_Record
23a2 00d8       |    |		Load_Top	At_Offset_0
23a3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
23a4 e00d       |    |		Load	0x0,0xd
23a5 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
23a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
23a7 02c7       |    |		Declare_Variable	Any
23a8 00d8       |    |		Load_Top	At_Offset_0
23a9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
23aa e00d       |    |		Load	0x0,0xd
23ab 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
23ac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
23ad 02c7       |    |		Declare_Variable	Any
23ae 00d8       |    |		Load_Top	At_Offset_0
23af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
23b0 e00d       |    |		Load	0x0,0xd
23b1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
23b2 02c7       |    |		Declare_Variable	Any
23b3 00d8       |    |		Load_Top	At_Offset_0
23b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
23b5 e01b       |    |		Load	0x0,0x1b
23b6 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
23b7 e01b       |    |		Load	0x0,0x1b
23b8 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
23b9 e00d       |    |		Load	0x0,0xd
23ba 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
23bb 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
23bc 02c7       |    |		Declare_Variable	Any
23bd 00d8       |    |		Load_Top	At_Offset_0
23be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
23bf e00d       |    |		Load	0x0,0xd
23c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
23c1			BODY_2380:
23c1 e403       |    |		Load	0x2,0x3
23c2 01db       |    |		Execute	Vector,Length
23c3 e402       |    |		Load	0x2,0x2
23c4 01db       |    |		Execute	Vector,Length
23c5 027d       | }  |		Execute	Discrete,Greater
23c6 7014       |p   |		Jump_Nonzero	0x23db
23c7 4801       |H   |		Short_Literal	0x1
23c8 e402       |    |		Load	0x2,0x2
23c9 01dd       |    |		Execute	Vector,First
23ca e402       |    |		Load	0x2,0x2
23cb 01dd       |    |		Execute	Vector,First
23cc e403       |    |		Load	0x2,0x3
23cd 01db       |    |		Execute	Vector,Length
23ce 0273       | s  |		Execute	Discrete,Plus
23cf 0aff       |    |		Execute_Immediate	Plus,-0x1
23d0 00d8       |    |		Load_Top	At_Offset_0
23d1 00e2       |    |		Load_Encached	Integer_Cache
23d2 0260       | `  |		Execute	Discrete,In_Type
23d3 7001       |p   |		Jump_Nonzero	0x23d5
23d4 0801       |    |		Execute_Immediate	Raise,0x1
23d5 e402       |    |		Load	0x2,0x2
23d6 01cf       |    |		Execute	Vector,Slice_Read
23d7 e403       |    |		Load	0x2,0x3
23d8 e02f       | /  |		Load	0x0,0x2f
23d9 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
23da 7017       |p   |		Jump_Nonzero	0x23f2
23db e002       |    |		Load	0x0,0x2
23dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
23dd 4801       |H   |		Short_Literal	0x1
23de 4802       |H   |		Short_Literal	0x2
23df e00e       |    |		Load	0x0,0xe
23e0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
23e1 0334       | 4  |		Declare_Variable	Array,With_Constraint
23e2 e5ff       |    |		Load	0x2,-0x1
23e3 e00e       |    |		Load	0x0,0xe
23e4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
23e5 4801       |H   |		Short_Literal	0x1
23e6 00da       |    |		Load_Top	At_Offset_2
23e7 01d6       |    |		Execute	Vector,Field_Write
23e8 e5fe       |    |		Load	0x2,-0x2
23e9 825a       | Z  |		Call	0x1,0x5a
23ea 4802       |H   |		Short_Literal	0x2
23eb 00da       |    |		Load_Top	At_Offset_2
23ec 01d6       |    |		Execute	Vector,Field_Write
23ed 618a       |a   |		Indirect_Literal	Discrete,0x2578,{0x00000000, 0x0000281d}
23ee e002       |    |		Load	0x0,0x2
23ef 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
23f0 c5fa       |    |		Store	0x2,-0x6
23f1 7952       |yR  |		Jump	0x2544
23f2 e024       | $  |		Load	0x0,0x24
23f3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
23f4 e402       |    |		Load	0x2,0x2
23f5 4801       |H   |		Short_Literal	0x1
23f6 617d       |a}  |		Indirect_Literal	Discrete,0x2574,{0x00000000, 0x0000281f}
23f7 e002       |    |		Load	0x0,0x2
23f8 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
23f9 e5fe       |    |		Load	0x2,-0x2
23fa e404       |    |		Load	0x2,0x4
23fb e020       |    |		Load	0x0,0x20
23fc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
23fd a405       |    |		Store_Unchecked	0x2,0x5
23fe e5fe       |    |		Load	0x2,-0x2
23ff e405       |    |		Load	0x2,0x5
2400 e025       | %  |		Load	0x0,0x25
2401 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2402 a40a       |    |		Store_Unchecked	0x2,0xa
2403 4802       |H   |		Short_Literal	0x2
2404 e5fe       |    |		Load	0x2,-0x2
2405 e5ff       |    |		Load	0x2,-0x1
2406 e02a       | *  |		Load	0x0,0x2a
2407 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2408 e406       |    |		Load	0x2,0x6
2409 016d       | m  |		Execute	Variant_Record,Structure_Write
240a 00db       |    |		Load_Top	At_Offset_3
240b 681d       |h   |		Jump_Zero	0x2429
240c e406       |    |		Load	0x2,0x6
240d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
240e 0f02       |    |		Execute_Immediate	Equal,0x2
240f 6811       |h   |		Jump_Zero	0x2421
2410 00db       |    |		Load_Top	At_Offset_3
2411 e001       |    |		Load	0x0,0x1
2412 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2413 0216       |    |		Execute	Heap_Access,Convert
2414 a5fb       |    |		Store_Unchecked	0x2,-0x5
2415 e5fa       |    |		Load	0x2,-0x6
2416 e5fc       |    |		Load	0x2,-0x4
2417 e5fd       |    |		Load	0x2,-0x3
2418 e40a       |    |		Load	0x2,0xa
2419 e001       |    |		Load	0x0,0x1
241a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
241b 0216       |    |		Execute	Heap_Access,Convert
241c e001       |    |		Load	0x0,0x1
241d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
241e 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
241f c5fa       |    |		Store	0x2,-0x6
2420 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2421 e5fa       |    |		Load	0x2,-0x6
2422 e5fe       |    |		Load	0x2,-0x2
2423 e40a       |    |		Load	0x2,0xa
2424 e001       |    |		Load	0x0,0x1
2425 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2426 0216       |    |		Execute	Heap_Access,Convert
2427 8222       | "  |		Call	0x1,0x22
2428 c5fa       |    |		Store	0x2,-0x6
2429 e5fe       |    |		Load	0x2,-0x2
242a e01b       |    |		Load	0x0,0x1b
242b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
242c a40a       |    |		Store_Unchecked	0x2,0xa
242d 00db       |    |		Load_Top	At_Offset_3
242e e001       |    |		Load	0x0,0x1
242f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2430 0216       |    |		Execute	Heap_Access,Convert
2431 a5fb       |    |		Store_Unchecked	0x2,-0x5
2432 e5fe       |    |		Load	0x2,-0x2
2433 0217       |    |		Execute	Heap_Access,All_Reference
2434 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
2435 0a01       |    |		Execute_Immediate	Plus,0x1
2436 e5fe       |    |		Load	0x2,-0x2
2437 0217       |    |		Execute	Heap_Access,All_Reference
2438 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
2439 e5fe       |    |		Load	0x2,-0x2
243a 0217       |    |		Execute	Heap_Access,All_Reference
243b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
243c 0a01       |    |		Execute_Immediate	Plus,0x1
243d e5fe       |    |		Load	0x2,-0x2
243e 0217       |    |		Execute	Heap_Access,All_Reference
243f 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
2440 e5fe       |    |		Load	0x2,-0x2
2441 0217       |    |		Execute	Heap_Access,All_Reference
2442 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
2443 e40a       |    |		Load	0x2,0xa
2444 0217       |    |		Execute	Heap_Access,All_Reference
2445 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
2446 e405       |    |		Load	0x2,0x5
2447 e40a       |    |		Load	0x2,0xa
2448 0217       |    |		Execute	Heap_Access,All_Reference
2449 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
244a 4800       |H   |		Short_Literal	0x0
244b e5fe       |    |		Load	0x2,-0x2
244c e40a       |    |		Load	0x2,0xa
244d e405       |    |		Load	0x2,0x5
244e e025       | %  |		Load	0x0,0x25
244f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
2450 e406       |    |		Load	0x2,0x6
2451 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2452 0f02       |    |		Execute_Immediate	Equal,0x2
2453 6804       |h   |		Jump_Zero	0x2458
2454 e406       |    |		Load	0x2,0x6
2455 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
2456 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2457 7826       |x&  |		Jump	0x247e
2458 e5fe       |    |		Load	0x2,-0x2
2459 e01b       |    |		Load	0x0,0x1b
245a 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
245b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
245c e5fe       |    |		Load	0x2,-0x2
245d 0217       |    |		Execute	Heap_Access,All_Reference
245e 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
245f 00db       |    |		Load_Top	At_Offset_3
2460 0217       |    |		Execute	Heap_Access,All_Reference
2461 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
2462 e405       |    |		Load	0x2,0x5
2463 00db       |    |		Load_Top	At_Offset_3
2464 0217       |    |		Execute	Heap_Access,All_Reference
2465 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
2466 e5ff       |    |		Load	0x2,-0x1
2467 00db       |    |		Load_Top	At_Offset_3
2468 0217       |    |		Execute	Heap_Access,All_Reference
2469 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
246a e5fe       |    |		Load	0x2,-0x2
246b 0217       |    |		Execute	Heap_Access,All_Reference
246c 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
246d 0217       |    |		Execute	Heap_Access,All_Reference
246e 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
246f 00db       |    |		Load_Top	At_Offset_3
2470 0217       |    |		Execute	Heap_Access,All_Reference
2471 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
2472 00da       |    |		Load_Top	At_Offset_2
2473 e5fe       |    |		Load	0x2,-0x2
2474 0217       |    |		Execute	Heap_Access,All_Reference
2475 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
2476 0217       |    |		Execute	Heap_Access,All_Reference
2477 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
2478 4800       |H   |		Short_Literal	0x0
2479 e5fe       |    |		Load	0x2,-0x2
247a e40b       |    |		Load	0x2,0xb
247b e5ff       |    |		Load	0x2,-0x1
247c e02a       | *  |		Load	0x0,0x2a
247d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
247e 4801       |H   |		Short_Literal	0x1
247f 00db       |    |		Load_Top	At_Offset_3
2480 0217       |    |		Execute	Heap_Access,All_Reference
2481 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
2482 00db       |    |		Load_Top	At_Offset_3
2483 00db       |    |		Load_Top	At_Offset_3
2484 0217       |    |		Execute	Heap_Access,All_Reference
2485 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
2486 00da       |    |		Load_Top	At_Offset_2
2487 e40a       |    |		Load	0x2,0xa
2488 0217       |    |		Execute	Heap_Access,All_Reference
2489 3817       |8   |		Execute	Record,Field_Write,Field_Number 0x17
248a 4800       |H   |		Short_Literal	0x0
248b e40a       |    |		Load	0x2,0xa
248c 0217       |    |		Execute	Heap_Access,All_Reference
248d 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
248e 00db       |    |		Load_Top	At_Offset_3
248f 0219       |    |		Execute	Heap_Access,All_Read
2490 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
2491 e5fa       |    |		Load	0x2,-0x6
2492 00d9       |    |		Load_Top	At_Offset_1
2493 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
2494 0120       |    |		Execute	Any,Is_Value
2495 6803       |h   |		Jump_Zero	0x2499
2496 e00d       |    |		Load	0x0,0xd
2497 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
2498 7802       |x   |		Jump	0x249b
2499 00d9       |    |		Load_Top	At_Offset_1
249a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
249b e40a       |    |		Load	0x2,0xa
249c e001       |    |		Load	0x0,0x1
249d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
249e 0216       |    |		Execute	Heap_Access,Convert
249f e001       |    |		Load	0x0,0x1
24a0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
24a1 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
24a2 00da       |    |		Load_Top	At_Offset_2
24a3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
24a4 c5fa       |    |		Store	0x2,-0x6
24a5 00d1       |    |		Pop_Control	Pop_Count_1
24a6 00db       |    |		Load_Top	At_Offset_3
24a7 0217       |    |		Execute	Heap_Access,All_Reference
24a8 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
24a9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
24aa e00d       |    |		Load	0x0,0xd
24ab 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
24ac 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
24ad 012f       | /  |		Execute	Any,Equal
24ae 688b       |h   |		Jump_Zero	0x253a
24af e5ff       |    |		Load	0x2,-0x1
24b0 e00d       |    |		Load	0x0,0xd
24b1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
24b2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
24b3 c407       |    |		Store	0x2,0x7
24b4 4800       |H   |		Short_Literal	0x0
24b5 e407       |    |		Load	0x2,0x7
24b6 e00d       |    |		Load	0x0,0xd
24b7 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
24b8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
24b9 e40a       |    |		Load	0x2,0xa
24ba 0217       |    |		Execute	Heap_Access,All_Reference
24bb 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
24bc e00d       |    |		Load	0x0,0xd
24bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
24be e408       |    |		Load	0x2,0x8
24bf 0120       |    |		Execute	Any,Is_Value
24c0 6804       |h   |		Jump_Zero	0x24c5
24c1 e00d       |    |		Load	0x0,0xd
24c2 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
24c3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
24c4 7801       |x   |		Jump	0x24c6
24c5 e408       |    |		Load	0x2,0x8
24c6 60a9       |`   |		Indirect_Literal	Discrete,0x2570,{0x00000000, 0x00004000}
24c7 e022       | "  |		Load	0x0,0x22
24c8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
24c9 e407       |    |		Load	0x2,0x7
24ca e00d       |    |		Load	0x0,0xd
24cb 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
24cc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
24cd c408       |    |		Store	0x2,0x8
24ce 0059       | Y  |		Store_Top	Discrete,At_Offset_1
24cf e408       |    |		Load	0x2,0x8
24d0 e00d       |    |		Load	0x0,0xd
24d1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
24d2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
24d3 c409       |    |		Store	0x2,0x9
24d4 e409       |    |		Load	0x2,0x9
24d5 e00d       |    |		Load	0x0,0xd
24d6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
24d7 7023       |p#  |		Jump_Nonzero	0x24fb
24d8 4802       |H   |		Short_Literal	0x2
24d9 e5fe       |    |		Load	0x2,-0x2
24da e409       |    |		Load	0x2,0x9
24db e02a       | *  |		Load	0x0,0x2a
24dc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
24dd e406       |    |		Load	0x2,0x6
24de 016d       | m  |		Execute	Variant_Record,Structure_Write
24df e406       |    |		Load	0x2,0x6
24e0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
24e1 0f02       |    |		Execute_Immediate	Equal,0x2
24e2 6818       |h   |		Jump_Zero	0x24fb
24e3 e406       |    |		Load	0x2,0x6
24e4 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
24e5 0217       |    |		Execute	Heap_Access,All_Reference
24e6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
24e7 e001       |    |		Load	0x0,0x1
24e8 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
24e9 0216       |    |		Execute	Heap_Access,Convert
24ea e001       |    |		Load	0x0,0x1
24eb 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
24ec 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
24ed 700d       |p   |		Jump_Nonzero	0x24fb
24ee e406       |    |		Load	0x2,0x6
24ef 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
24f0 0217       |    |		Execute	Heap_Access,All_Reference
24f1 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
24f2 e40a       |    |		Load	0x2,0xa
24f3 0217       |    |		Execute	Heap_Access,All_Reference
24f4 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
24f5 00db       |    |		Load_Top	At_Offset_3
24f6 e40a       |    |		Load	0x2,0xa
24f7 0217       |    |		Execute	Heap_Access,All_Reference
24f8 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
24f9 0217       |    |		Execute	Heap_Access,All_Reference
24fa 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
24fb e00d       |    |		Load	0x0,0xd
24fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
24fd 00da       |    |		Load_Top	At_Offset_2
24fe 0120       |    |		Execute	Any,Is_Value
24ff 6804       |h   |		Jump_Zero	0x2504
2500 e00d       |    |		Load	0x0,0xd
2501 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2502 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
2503 7801       |x   |		Jump	0x2505
2504 00da       |    |		Load_Top	At_Offset_2
2505 606a       |`j  |		Indirect_Literal	Discrete,0x2570,{0x00000000, 0x00004000}
2506 e022       | "  |		Load	0x0,0x22
2507 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
2508 4800       |H   |		Short_Literal	0x0
2509 e40a       |    |		Load	0x2,0xa
250a 0217       |    |		Execute	Heap_Access,All_Reference
250b 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
250c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
250d e00d       |    |		Load	0x0,0xd
250e 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
250f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2510 c40c       |    |		Store	0x2,0xc
2511 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2512 00d9       |    |		Load_Top	At_Offset_1
2513 e00d       |    |		Load	0x0,0xd
2514 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2515 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
2516 00da       |    |		Load_Top	At_Offset_2
2517 e00d       |    |		Load	0x0,0xd
2518 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2519 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
251a 012e       | .  |		Execute	Any,Not_Equal
251b 6822       |h"  |		Jump_Zero	0x253e
251c 4802       |H   |		Short_Literal	0x2
251d e5fe       |    |		Load	0x2,-0x2
251e 00db       |    |		Load_Top	At_Offset_3
251f e00d       |    |		Load	0x0,0xd
2520 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
2521 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
2522 e02a       | *  |		Load	0x0,0x2a
2523 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2524 e406       |    |		Load	0x2,0x6
2525 016d       | m  |		Execute	Variant_Record,Structure_Write
2526 e406       |    |		Load	0x2,0x6
2527 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2528 0f02       |    |		Execute_Immediate	Equal,0x2
2529 6808       |h   |		Jump_Zero	0x2532
252a e406       |    |		Load	0x2,0x6
252b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
252c 0217       |    |		Execute	Heap_Access,All_Reference
252d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
252e e40a       |    |		Load	0x2,0xa
252f 0217       |    |		Execute	Heap_Access,All_Reference
2530 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
2531 780c       |x   |		Jump	0x253e
2532 e5f9       |    |		Load	0x2,-0x7
2533 0a01       |    |		Execute_Immediate	Plus,0x1
2534 c5f9       |    |		Store	0x2,-0x7
2535 4801       |H   |		Short_Literal	0x1
2536 e40a       |    |		Load	0x2,0xa
2537 0217       |    |		Execute	Heap_Access,All_Reference
2538 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
2539 7804       |x   |		Jump	0x253e
253a 4800       |H   |		Short_Literal	0x0
253b e40a       |    |		Load	0x2,0xa
253c 0217       |    |		Execute	Heap_Access,All_Reference
253d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
253e e5fe       |    |		Load	0x2,-0x2
253f e40a       |    |		Load	0x2,0xa
2540 e001       |    |		Load	0x0,0x1
2541 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2542 0216       |    |		Execute	Heap_Access,Convert
2543 8264       | d  |		Call	0x1,0x64
2544 00db       |    |		Load_Top	At_Offset_3
2545 e001       |    |		Load	0x0,0x1
2546 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2547 0216       |    |		Execute	Heap_Access,Convert
2548 82be       |    |		Call	0x1,0xbe
2549 e5fa       |    |		Load	0x2,-0x6
254a e5fc       |    |		Load	0x2,-0x4
254b e5fd       |    |		Load	0x2,-0x3
254c e40a       |    |		Load	0x2,0xa
254d e001       |    |		Load	0x0,0x1
254e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
254f 0216       |    |		Execute	Heap_Access,Convert
2550 e001       |    |		Load	0x0,0x1
2551 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2552 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
2553 c5fa       |    |		Store	0x2,-0x6
2554 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2555			TRAP_2380:
2555 4885       |H   |		Short_Literal	0x85
2556 010f       |    |		Execute	Exception,Equal
2557 6811       |h   |		Jump_Zero	0x2569
2558 e002       |    |		Load	0x0,0x2
2559 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
255a 4801       |H   |		Short_Literal	0x1
255b 4801       |H   |		Short_Literal	0x1
255c e00e       |    |		Load	0x0,0xe
255d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
255e 0334       | 4  |		Declare_Variable	Array,With_Constraint
255f e5fe       |    |		Load	0x2,-0x2
2560 825a       | Z  |		Call	0x1,0x5a
2561 4801       |H   |		Short_Literal	0x1
2562 00da       |    |		Load_Top	At_Offset_2
2563 01d6       |    |		Execute	Vector,Field_Write
2564 6007       |`   |		Indirect_Literal	Discrete,0x256c,{0x00000000, 0x00002836}
2565 e002       |    |		Load	0x0,0x2
2566 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2567 c5fa       |    |		Store	0x2,-0x6
2568 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2569 0100       |    |		Execute	Exception,Raise
256a 0000 0000  |    |		.XXX[0x2]
256c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002836}
2570 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
2574 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281f}
2578 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281d}
257c 0000 0000  |    |		.BLANK	0000[0x4]
2580 ; --------------------------------------------------------------------------------------
2580 ; SUBPROGRAM
2580 ; --------------------------------------------------------------------------------------
2580 2592       |%   |		.CONST	0x2592								; Address of begin
2581 0004       |    |		.CONST	0x0004								; Address of exception handler
2582 0005       |    |		.CONST	0x0005								; Number of locals
2583			INIT_2580:
2583 e00d       |    |		Load	0x0,0xd
2584 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2585 02c7       |    |		Declare_Variable	Any
2586 00d8       |    |		Load_Top	At_Offset_0
2587 1c00       |    |		Execute_Immediate	Run_Utility,0x0
2588 e00d       |    |		Load	0x0,0xd
2589 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
258a 02c7       |    |		Declare_Variable	Any
258b 00d8       |    |		Load_Top	At_Offset_0
258c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
258d e00d       |    |		Load	0x0,0xd
258e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
258f e002       |    |		Load	0x0,0x2
2590 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2591 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2592			BODY_2580:
2592 e00d       |    |		Load	0x0,0xd
2593 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2594 00db       |    |		Load_Top	At_Offset_3
2595 0120       |    |		Execute	Any,Is_Value
2596 6803       |h   |		Jump_Zero	0x259a
2597 e00d       |    |		Load	0x0,0xd
2598 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2599 7801       |x   |		Jump	0x259b
259a 00db       |    |		Load_Top	At_Offset_3
259b e5ff       |    |		Load	0x2,-0x1
259c e00d       |    |		Load	0x0,0xd
259d 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
259e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
259f c403       |    |		Store	0x2,0x3
25a0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
25a1 00d8       |    |		Load_Top	At_Offset_0
25a2 e402       |    |		Load	0x2,0x2
25a3 0120       |    |		Execute	Any,Is_Value
25a4 6803       |h   |		Jump_Zero	0x25a8
25a5 e00d       |    |		Load	0x0,0xd
25a6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25a7 7801       |x   |		Jump	0x25a9
25a8 e402       |    |		Load	0x2,0x2
25a9 e5fe       |    |		Load	0x2,-0x2
25aa 8217       |    |		Call	0x1,0x17
25ab c402       |    |		Store	0x2,0x2
25ac 0059       | Y  |		Store_Top	Discrete,At_Offset_1
25ad 00da       |    |		Load_Top	At_Offset_2
25ae e402       |    |		Load	0x2,0x2
25af 012f       | /  |		Execute	Any,Equal
25b0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
25b1 0000 0000  |    |		.BLANK	0000[0x7]
25b8 ; --------------------------------------------------------------------------------------
25b8 ; SUBPROGRAM
25b8 ; --------------------------------------------------------------------------------------
25b8 25c5       |%   |		.CONST	0x25c5								; Address of begin
25b9 0004       |    |		.CONST	0x0004								; Address of exception handler
25ba 0002       |    |		.CONST	0x0002								; Number of locals
25bb			INIT_25b8:
25bb e02a       | *  |		Load	0x0,0x2a
25bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25bd 02ff       |    |		Declare_Variable	Variant_Record
25be 4801       |H   |		Short_Literal	0x1
25bf e5fe       |    |		Load	0x2,-0x2
25c0 e5ff       |    |		Load	0x2,-0x1
25c1 e02a       | *  |		Load	0x0,0x2a
25c2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
25c3 00d9       |    |		Load_Top	At_Offset_1
25c4 016d       | m  |		Execute	Variant_Record,Structure_Write
25c5			BODY_25b8:
25c5 e01b       |    |		Load	0x0,0x1b
25c6 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
25c7 a5fd       |    |		Store_Unchecked	0x2,-0x3
25c8 00d8       |    |		Load_Top	At_Offset_0
25c9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
25ca 0f01       |    |		Execute_Immediate	Equal,0x1
25cb 6807       |h   |		Jump_Zero	0x25d3
25cc 00d8       |    |		Load_Top	At_Offset_0
25cd 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
25ce e01b       |    |		Load	0x0,0x1b
25cf 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
25d0 0216       |    |		Execute	Heap_Access,Convert
25d1 a5fd       |    |		Store_Unchecked	0x2,-0x3
25d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
25d3 00d8       |    |		Load_Top	At_Offset_0
25d4 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
25d5 6016       |`   |		Indirect_Literal	Discrete,0x25ec,{0x00000000, 0x0000500a}
25d6 027f       |    |		Execute	Discrete,Equal
25d7 6812       |h   |		Jump_Zero	0x25ea
25d8 e002       |    |		Load	0x0,0x2
25d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
25da 4801       |H   |		Short_Literal	0x1
25db 4801       |H   |		Short_Literal	0x1
25dc e00e       |    |		Load	0x0,0xe
25dd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
25de 0334       | 4  |		Declare_Variable	Array,With_Constraint
25df e5ff       |    |		Load	0x2,-0x1
25e0 e00e       |    |		Load	0x0,0xe
25e1 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
25e2 4801       |H   |		Short_Literal	0x1
25e3 00da       |    |		Load_Top	At_Offset_2
25e4 01d6       |    |		Execute	Vector,Field_Write
25e5 00da       |    |		Load_Top	At_Offset_2
25e6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
25e7 e002       |    |		Load	0x0,0x2
25e8 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
25e9 c5fc       |    |		Store	0x2,-0x4
25ea 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
25eb 0000       |    |		.XXX[0x1]
25ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500a}
25f0 ; --------------------------------------------------------------------------------------
25f0 ; SUBPROGRAM
25f0 ; --------------------------------------------------------------------------------------
25f0 25f3       |%   |		.CONST	0x25f3								; Address of begin
25f1 0004       |    |		.CONST	0x0004								; Address of exception handler
25f2 0001       |    |		.CONST	0x0001								; Number of locals
25f3			BODY_25f0:
25f3			INIT_25f0:
25f3 00cf       |    |		Action	Mark_Auxiliary
25f4 00db       |    |		Load_Top	At_Offset_3
25f5 01d9       |    |		Execute	Vector,Reverse_Bounds
25f6 0263       | c  |		Execute	Discrete,Above_Bound
25f7 7009       |p   |		Jump_Nonzero	0x2601
25f8 e5fd       |    |		Load	0x2,-0x3
25f9 e5fe       |    |		Load	0x2,-0x2
25fa 00da       |    |		Load_Top	At_Offset_2
25fb e5ff       |    |		Load	0x2,-0x1
25fc 01d7       |    |		Execute	Vector,Field_Read
25fd 8231       | 1  |		Call	0x1,0x31
25fe c5fd       |    |		Store	0x2,-0x3
25ff 00c8       |    |		Action	Pop_Auxiliary_Range
2600 3ff7       |?   |		Loop_Increasing	0x25f8
2601 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
2602 0000 0000  |    |		.BLANK	0000[0x6]
2608 ; --------------------------------------------------------------------------------------
2608 ; SUBPROGRAM
2608 ; --------------------------------------------------------------------------------------
2608 260b       |&   |		.CONST	0x260b								; Address of begin
2609 0004       |    |		.CONST	0x0004								; Address of exception handler
260a 0001       |    |		.CONST	0x0001								; Number of locals
260b			BODY_2608:
260b			INIT_2608:
260b 00cf       |    |		Action	Mark_Auxiliary
260c 00db       |    |		Load_Top	At_Offset_3
260d 01d9       |    |		Execute	Vector,Reverse_Bounds
260e 0263       | c  |		Execute	Discrete,Above_Bound
260f 7009       |p   |		Jump_Nonzero	0x2619
2610 e5fd       |    |		Load	0x2,-0x3
2611 e5fe       |    |		Load	0x2,-0x2
2612 00da       |    |		Load_Top	At_Offset_2
2613 e5ff       |    |		Load	0x2,-0x1
2614 01d7       |    |		Execute	Vector,Field_Read
2615 8235       | 5  |		Call	0x1,0x35
2616 c5fd       |    |		Store	0x2,-0x3
2617 00c8       |    |		Action	Pop_Auxiliary_Range
2618 3ff7       |?   |		Loop_Increasing	0x2610
2619 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
261a 0000 0000  |    |		.BLANK	0000[0x6]
2620 ; --------------------------------------------------------------------------------------
2620 ; SUBPROGRAM
2620 ; --------------------------------------------------------------------------------------
2620 2629       |&)  |		.CONST	0x2629								; Address of begin
2621 0004       |    |		.CONST	0x0004								; Address of exception handler
2622 0003       |    |		.CONST	0x0003								; Number of locals
2623			INIT_2620:
2623 00da       |    |		Load_Top	At_Offset_2
2624 0217       |    |		Execute	Heap_Access,All_Reference
2625 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
2626 0007       |    |		Action	Break_Optional
2627 00e2       |    |		Load_Encached	Integer_Cache
2628 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2629			BODY_2620:
2629 00cf       |    |		Action	Mark_Auxiliary
262a 7808       |x   |		Jump	0x2633
262b 00d9       |    |		Load_Top	At_Offset_1
262c 0a01       |    |		Execute_Immediate	Plus,0x1
262d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
262e 00da       |    |		Load_Top	At_Offset_2
262f 0217       |    |		Execute	Heap_Access,All_Reference
2630 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2631 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2632 00c9       |    |		Action	Pop_Auxiliary_Loop
2633 00da       |    |		Load_Top	At_Offset_2
2634 77f6       |w   |		Jump_Nonzero	0x262b
2635 00ce       |    |		Action	Pop_Auxiliary
2636 00d8       |    |		Load_Top	At_Offset_0
2637 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
2638 ; --------------------------------------------------------------------------------------
2638 ; SUBPROGRAM
2638 ; --------------------------------------------------------------------------------------
2638 263d       |&=  |		.CONST	0x263d								; Address of begin
2639 0004       |    |		.CONST	0x0004								; Address of exception handler
263a 0002       |    |		.CONST	0x0002								; Number of locals
263b			INIT_2638:
263b e01b       |    |		Load	0x0,0x1b
263c 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
263d			BODY_2638:
263d 00db       |    |		Load_Top	At_Offset_3
263e 0217       |    |		Execute	Heap_Access,All_Reference
263f 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2640 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
2641 00cf       |    |		Action	Mark_Auxiliary
2642 780e       |x   |		Jump	0x2651
2643 00d9       |    |		Load_Top	At_Offset_1
2644 0217       |    |		Execute	Heap_Access,All_Reference
2645 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
2646 e5fe       |    |		Load	0x2,-0x2
2647 027f       |    |		Execute	Discrete,Equal
2648 6803       |h   |		Jump_Zero	0x264c
2649 00d9       |    |		Load_Top	At_Offset_1
264a a5fc       |    |		Store_Unchecked	0x2,-0x4
264b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
264c 00d9       |    |		Load_Top	At_Offset_1
264d 0217       |    |		Execute	Heap_Access,All_Reference
264e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
264f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
2650 00c9       |    |		Action	Pop_Auxiliary_Loop
2651 00d9       |    |		Load_Top	At_Offset_1
2652 77f0       |w   |		Jump_Nonzero	0x2643
2653 00ce       |    |		Action	Pop_Auxiliary
2654 e5fd       |    |		Load	0x2,-0x3
2655 6813       |h   |		Jump_Zero	0x2669
2656 00db       |    |		Load_Top	At_Offset_3
2657 e01b       |    |		Load	0x0,0x1b
2658 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
2659 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
265a e5fe       |    |		Load	0x2,-0x2
265b 00d9       |    |		Load_Top	At_Offset_1
265c 0217       |    |		Execute	Heap_Access,All_Reference
265d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
265e 00db       |    |		Load_Top	At_Offset_3
265f 0217       |    |		Execute	Heap_Access,All_Reference
2660 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
2661 00d9       |    |		Load_Top	At_Offset_1
2662 0217       |    |		Execute	Heap_Access,All_Reference
2663 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
2664 00d8       |    |		Load_Top	At_Offset_0
2665 e5ff       |    |		Load	0x2,-0x1
2666 0217       |    |		Execute	Heap_Access,All_Reference
2667 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
2668 7802       |x   |		Jump	0x266b
2669 6006       |`   |		Indirect_Literal	Discrete,0x2670,{0x00000000, 0x0000281a}
266a a5fb       |    |		Store_Unchecked	0x2,-0x5
266b 00d8       |    |		Load_Top	At_Offset_0
266c a5fc       |    |		Store_Unchecked	0x2,-0x4
266d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
266e 0000 0000  |    |		.XXX[0x2]
2670 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281a}
2674 0000 0000  |    |		.BLANK	0000[0x4]
2678 ; --------------------------------------------------------------------------------------
2678 ; SUBPROGRAM
2678 ; --------------------------------------------------------------------------------------
2678 267b       |&{  |		.CONST	0x267b								; Address of begin
2679 0004       |    |		.CONST	0x0004								; Address of exception handler
267a 0001       |    |		.CONST	0x0001								; Number of locals
267b			BODY_2678:
267b			INIT_2678:
267b 00db       |    |		Load_Top	At_Offset_3
267c e034       | 4  |		Load	0x0,0x34
267d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
267e 00d9       |    |		Load_Top	At_Offset_1
267f 00d0       |    |		Action	Swap_Control
2680 0260       | `  |		Execute	Discrete,In_Type
2681 7001       |p   |		Jump_Nonzero	0x2683
2682 0801       |    |		Execute_Immediate	Raise,0x1
2683 00db       |    |		Load_Top	At_Offset_3
2684 e035       | 5  |		Load	0x0,0x35
2685 e036       | 6  |		Load	0x0,0x36
2686 a037       | 7  |		Store_Unchecked	0x0,0x37
2687 e038       | 8  |		Load	0x0,0x38
2688 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
2689 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
268a 0000 0000  |    |		.BLANK	0000[0x6]
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 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
2695			BODY_2690:
2695 e5fb       |    |		Load	0x2,-0x5
2696 e5fd       |    |		Load	0x2,-0x3
2697 e299       |    |		Load	0x1,0x99
2698 01d7       |    |		Execute	Vector,Field_Read
2699 e5ff       |    |		Load	0x2,-0x1
269a e01b       |    |		Load	0x0,0x1b
269b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
269c c5fb       |    |		Store	0x2,-0x5
269d e5fb       |    |		Load	0x2,-0x5
269e 702e       |p.  |		Jump_Nonzero	0x26cd
269f 00db       |    |		Load_Top	At_Offset_3
26a0 0217       |    |		Execute	Heap_Access,All_Reference
26a1 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
26a2 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
26a3 00cf       |    |		Action	Mark_Auxiliary
26a4 780e       |x   |		Jump	0x26b3
26a5 00d9       |    |		Load_Top	At_Offset_1
26a6 0217       |    |		Execute	Heap_Access,All_Reference
26a7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
26a8 e5fe       |    |		Load	0x2,-0x2
26a9 027f       |    |		Execute	Discrete,Equal
26aa 6803       |h   |		Jump_Zero	0x26ae
26ab 00d9       |    |		Load_Top	At_Offset_1
26ac a5fc       |    |		Store_Unchecked	0x2,-0x4
26ad 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
26ae 00d9       |    |		Load_Top	At_Offset_1
26af 0217       |    |		Execute	Heap_Access,All_Reference
26b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
26b1 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
26b2 00c9       |    |		Action	Pop_Auxiliary_Loop
26b3 00d9       |    |		Load_Top	At_Offset_1
26b4 77f0       |w   |		Jump_Nonzero	0x26a5
26b5 00ce       |    |		Action	Pop_Auxiliary
26b6 e5fd       |    |		Load	0x2,-0x3
26b7 6813       |h   |		Jump_Zero	0x26cb
26b8 00db       |    |		Load_Top	At_Offset_3
26b9 e01b       |    |		Load	0x0,0x1b
26ba 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
26bb 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
26bc e5fe       |    |		Load	0x2,-0x2
26bd 00d9       |    |		Load_Top	At_Offset_1
26be 0217       |    |		Execute	Heap_Access,All_Reference
26bf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
26c0 00db       |    |		Load_Top	At_Offset_3
26c1 0217       |    |		Execute	Heap_Access,All_Reference
26c2 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
26c3 00d9       |    |		Load_Top	At_Offset_1
26c4 0217       |    |		Execute	Heap_Access,All_Reference
26c5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
26c6 00d8       |    |		Load_Top	At_Offset_0
26c7 e5ff       |    |		Load	0x2,-0x1
26c8 0217       |    |		Execute	Heap_Access,All_Reference
26c9 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
26ca 7802       |x   |		Jump	0x26cd
26cb 6004       |`   |		Indirect_Literal	Discrete,0x26d0,{0x00000000, 0x0000281c}
26cc a5fb       |    |		Store_Unchecked	0x2,-0x5
26cd 00d8       |    |		Load_Top	At_Offset_0
26ce a5fc       |    |		Store_Unchecked	0x2,-0x4
26cf 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
26d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
26d4 0000 0000  |    |		.BLANK	0000[0x4]
26d8 ; --------------------------------------------------------------------------------------
26d8 ; SUBPROGRAM
26d8 ; --------------------------------------------------------------------------------------
26d8 26db       |&   |		.CONST	0x26db								; Address of begin
26d9 0004       |    |		.CONST	0x0004								; Address of exception handler
26da 0001       |    |		.CONST	0x0001								; Number of locals
26db			BODY_26d8:
26db			INIT_26d8:
26db 00da       |    |		Load_Top	At_Offset_2
26dc e297       |    |		Load	0x1,0x97
26dd 011c       |    |		Execute	Any,Convert_Unchecked
26de 1c01       |    |		Execute_Immediate	Run_Utility,0x1
26df e00e       |    |		Load	0x0,0xe
26e0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
26e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
26e2 0000 0000  |    |		.BLANK	0000[0x6]
26e8 ; --------------------------------------------------------------------------------------
26e8 ; SUBPROGRAM
26e8 ; --------------------------------------------------------------------------------------
26e8 26f0       |&   |		.CONST	0x26f0								; Address of begin
26e9 0004       |    |		.CONST	0x0004								; Address of exception handler
26ea 0003       |    |		.CONST	0x0003								; Number of locals
26eb			INIT_26e8:
26eb e01b       |    |		Load	0x0,0x1b
26ec 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
26ed e002       |    |		Load	0x0,0x2
26ee 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
26ef 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
26f0			BODY_26e8:
26f0 00d8       |    |		Load_Top	At_Offset_0
26f1 e01b       |    |		Load	0x0,0x1b
26f2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
26f3 4800       |H   |		Short_Literal	0x0
26f4 e5fd       |    |		Load	0x2,-0x3
26f5 e5ff       |    |		Load	0x2,-0x1
26f6 82d5       |    |		Call	0x1,0xd5
26f7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
26f8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
26f9 00d8       |    |		Load_Top	At_Offset_0
26fa 7027       |p'  |		Jump_Nonzero	0x2722
26fb e5fe       |    |		Load	0x2,-0x2
26fc 4606       |F   |		Jump_Case	0x7
26fd 781e       |x   |		Jump	0x271c								; case 0x0
26fe 7805       |x   |		Jump	0x2704								; case 0x1
26ff 780a       |x   |		Jump	0x270a								; case 0x2
2700 780f       |x   |		Jump	0x2710								; case 0x3
2701 7814       |x   |		Jump	0x2716								; case 0x4
2702 7838       |x8  |		Jump	0x273b								; case 0x5
2703 7837       |x7  |		Jump	0x273b								; case 0x6
2704 00d9       |    |		Load_Top	At_Offset_1
2705 0217       |    |		Execute	Heap_Access,All_Reference
2706 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
2707 e020       |    |		Load	0x0,0x20
2708 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2709 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
270a 00d9       |    |		Load_Top	At_Offset_1
270b 0217       |    |		Execute	Heap_Access,All_Reference
270c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
270d e020       |    |		Load	0x0,0x20
270e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
270f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2710 00d9       |    |		Load_Top	At_Offset_1
2711 0217       |    |		Execute	Heap_Access,All_Reference
2712 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
2713 e020       |    |		Load	0x0,0x20
2714 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2715 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2716 00d9       |    |		Load_Top	At_Offset_1
2717 0217       |    |		Execute	Heap_Access,All_Reference
2718 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
2719 e020       |    |		Load	0x0,0x20
271a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
271b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
271c 00d9       |    |		Load_Top	At_Offset_1
271d 0217       |    |		Execute	Heap_Access,All_Reference
271e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
271f e020       |    |		Load	0x0,0x20
2720 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
2721 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2722 00d8       |    |		Load_Top	At_Offset_0
2723 6018       |`   |		Indirect_Literal	Discrete,0x273c,{0x00000000, 0x0000281c}
2724 027f       |    |		Execute	Discrete,Equal
2725 6802       |h   |		Jump_Zero	0x2728
2726 00ea       |    |		Load_Encached	Null_String_Cache
2727 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2728 4801       |H   |		Short_Literal	0x1
2729 4802       |H   |		Short_Literal	0x2
272a e00e       |    |		Load	0x0,0xe
272b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
272c 0334       | 4  |		Declare_Variable	Array,With_Constraint
272d e5ff       |    |		Load	0x2,-0x1
272e 825a       | Z  |		Call	0x1,0x5a
272f 4801       |H   |		Short_Literal	0x1
2730 00da       |    |		Load_Top	At_Offset_2
2731 01d6       |    |		Execute	Vector,Field_Write
2732 e5fe       |    |		Load	0x2,-0x2
2733 82d6       |    |		Call	0x1,0xd6
2734 4802       |H   |		Short_Literal	0x2
2735 00da       |    |		Load_Top	At_Offset_2
2736 01d6       |    |		Execute	Vector,Field_Write
2737 00d9       |    |		Load_Top	At_Offset_1
2738 e002       |    |		Load	0x0,0x2
2739 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
273a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
273b 0831       | 1  |		Execute_Immediate	Raise,0x31
273c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
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 4801       |H   |		Short_Literal	0x1
274c e5fc       |    |		Load	0x2,-0x4
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 7059       |pY  |		Jump_Nonzero	0x27ac
2753 e5fe       |    |		Load	0x2,-0x2
2754 4606       |F   |		Jump_Case	0x7
2755 7846       |xF  |		Jump	0x279c								; case 0x0
2756 7805       |x   |		Jump	0x275c								; case 0x1
2757 7814       |x   |		Jump	0x276c								; case 0x2
2758 7823       |x#  |		Jump	0x277c								; case 0x3
2759 7832       |x2  |		Jump	0x278c								; case 0x4
275a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x5
275b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x6
275c e5ff       |    |		Load	0x2,-0x1
275d e5fd       |    |		Load	0x2,-0x3
275e e020       |    |		Load	0x0,0x20
275f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2760 00da       |    |		Load_Top	At_Offset_2
2761 0217       |    |		Execute	Heap_Access,All_Reference
2762 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
2763 0092 2b8d  |  + |		Action	Push_String_Extended,0x2b8d					; "Target_Account has been set to \x22"
2765 e5fd       |    |		Load	0x2,-0x3
2766 01cc       |    |		Execute	Vector,Catenate
2767 0092 2b85  |  + |		Action	Push_String_Extended,0x2b85					; "\x22."
2769 01cc       |    |		Execute	Vector,Catenate
276a 801d       |    |		Call	0x0,0x1d
276b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
276c e5ff       |    |		Load	0x2,-0x1
276d e5fd       |    |		Load	0x2,-0x3
276e e020       |    |		Load	0x0,0x20
276f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2770 00da       |    |		Load_Top	At_Offset_2
2771 0217       |    |		Execute	Heap_Access,All_Reference
2772 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
2773 0092 2b8e  |  + |		Action	Push_String_Extended,0x2b8e					; "Target_Directory has been set to \x22"
2775 e5fd       |    |		Load	0x2,-0x3
2776 01cc       |    |		Execute	Vector,Catenate
2777 0092 2b85  |  + |		Action	Push_String_Extended,0x2b85					; "\x22."
2779 01cc       |    |		Execute	Vector,Catenate
277a 801d       |    |		Call	0x0,0x1d
277b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
277c e5ff       |    |		Load	0x2,-0x1
277d e5fd       |    |		Load	0x2,-0x3
277e e020       |    |		Load	0x0,0x20
277f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2780 00da       |    |		Load_Top	At_Offset_2
2781 0217       |    |		Execute	Heap_Access,All_Reference
2782 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
2783 0092 2b8f  |  + |		Action	Push_String_Extended,0x2b8f					; "Target_Library has been set to \x22"
2785 e5fd       |    |		Load	0x2,-0x3
2786 01cc       |    |		Execute	Vector,Catenate
2787 0092 2b85  |  + |		Action	Push_String_Extended,0x2b85					; "\x22."
2789 01cc       |    |		Execute	Vector,Catenate
278a 801d       |    |		Call	0x0,0x1d
278b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
278c e5ff       |    |		Load	0x2,-0x1
278d e5fd       |    |		Load	0x2,-0x3
278e e020       |    |		Load	0x0,0x20
278f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
2790 00da       |    |		Load_Top	At_Offset_2
2791 0217       |    |		Execute	Heap_Access,All_Reference
2792 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
2793 0092 2b90  |  + |		Action	Push_String_Extended,0x2b90					; "Configuration has been set to \x22"
2795 e5fd       |    |		Load	0x2,-0x3
2796 01cc       |    |		Execute	Vector,Catenate
2797 0092 2b85  |  + |		Action	Push_String_Extended,0x2b85					; "\x22."
2799 01cc       |    |		Execute	Vector,Catenate
279a 801d       |    |		Call	0x0,0x1d
279b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
279c e5ff       |    |		Load	0x2,-0x1
279d e5fd       |    |		Load	0x2,-0x3
279e e020       |    |		Load	0x0,0x20
279f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
27a0 00da       |    |		Load_Top	At_Offset_2
27a1 0217       |    |		Execute	Heap_Access,All_Reference
27a2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
27a3 0092 2b91  |  + |		Action	Push_String_Extended,0x2b91					; "Target_Machine has been set to \x22"
27a5 e5fd       |    |		Load	0x2,-0x3
27a6 01cc       |    |		Execute	Vector,Catenate
27a7 0092 2b85  |  + |		Action	Push_String_Extended,0x2b85					; "\x22."
27a9 01cc       |    |		Execute	Vector,Catenate
27aa 801d       |    |		Call	0x0,0x1d
27ab 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
27ac e002       |    |		Load	0x0,0x2
27ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
27ae 4801       |H   |		Short_Literal	0x1
27af 4804       |H   |		Short_Literal	0x4
27b0 e00e       |    |		Load	0x0,0xe
27b1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
27b2 0334       | 4  |		Declare_Variable	Array,With_Constraint
27b3 e5ff       |    |		Load	0x2,-0x1
27b4 825a       | Z  |		Call	0x1,0x5a
27b5 4801       |H   |		Short_Literal	0x1
27b6 00da       |    |		Load_Top	At_Offset_2
27b7 01d6       |    |		Execute	Vector,Field_Write
27b8 e5fc       |    |		Load	0x2,-0x4
27b9 e00c       |    |		Load	0x0,0xc
27ba 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
27bb 4802       |H   |		Short_Literal	0x2
27bc 00da       |    |		Load_Top	At_Offset_2
27bd 01d6       |    |		Execute	Vector,Field_Write
27be 00da       |    |		Load_Top	At_Offset_2
27bf e002       |    |		Load	0x0,0x2
27c0 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
27c1 4803       |H   |		Short_Literal	0x3
27c2 00da       |    |		Load_Top	At_Offset_2
27c3 01d6       |    |		Execute	Vector,Field_Write
27c4 e5fe       |    |		Load	0x2,-0x2
27c5 82d6       |    |		Call	0x1,0xd6
27c6 4804       |H   |		Short_Literal	0x4
27c7 00da       |    |		Load_Top	At_Offset_2
27c8 01d6       |    |		Execute	Vector,Field_Write
27c9 6006       |`   |		Indirect_Literal	Discrete,0x27d0,{0x00000000, 0x0000282e}
27ca e002       |    |		Load	0x0,0x2
27cb 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
27cc c5fb       |    |		Store	0x2,-0x5
27cd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
27ce 0000 0000  |    |		.XXX[0x2]
27d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282e}
27d4 0000 0000  |    |		.BLANK	0000[0x4]
27d8 ; --------------------------------------------------------------------------------------
27d8 ; SUBPROGRAM
27d8 ; --------------------------------------------------------------------------------------
27d8 27e0       |'   |		.CONST	0x27e0								; Address of begin
27d9 0004       |    |		.CONST	0x0004								; Address of exception handler
27da 0003       |    |		.CONST	0x0003								; Number of locals
27db			INIT_27d8:
27db e01b       |    |		Load	0x0,0x1b
27dc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
27dd e002       |    |		Load	0x0,0x2
27de 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
27df 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
27e0			BODY_27d8:
27e0 00d8       |    |		Load_Top	At_Offset_0
27e1 e01b       |    |		Load	0x0,0x1b
27e2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
27e3 4800       |H   |		Short_Literal	0x0
27e4 e5fd       |    |		Load	0x2,-0x3
27e5 e5ff       |    |		Load	0x2,-0x1
27e6 82d5       |    |		Call	0x1,0xd5
27e7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
27e8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
27e9 00d8       |    |		Load_Top	At_Offset_0
27ea 7011       |p   |		Jump_Nonzero	0x27fc
27eb e5fe       |    |		Load	0x2,-0x2
27ec 4606       |F   |		Jump_Case	0x7
27ed 7827       |x'  |		Jump	0x2815								; case 0x0
27ee 7826       |x&  |		Jump	0x2815								; case 0x1
27ef 7825       |x%  |		Jump	0x2815								; case 0x2
27f0 7824       |x$  |		Jump	0x2815								; case 0x3
27f1 7823       |x#  |		Jump	0x2815								; case 0x4
27f2 7805       |x   |		Jump	0x27f8								; case 0x5
27f3 7800       |x   |		Jump	0x27f4								; case 0x6
27f4 00d9       |    |		Load_Top	At_Offset_1
27f5 0217       |    |		Execute	Heap_Access,All_Reference
27f6 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
27f7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
27f8 00d9       |    |		Load_Top	At_Offset_1
27f9 0217       |    |		Execute	Heap_Access,All_Reference
27fa 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
27fb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
27fc 00d8       |    |		Load_Top	At_Offset_0
27fd 601a       |`   |		Indirect_Literal	Discrete,0x2818,{0x00000000, 0x0000281c}
27fe 027f       |    |		Execute	Discrete,Equal
27ff 6802       |h   |		Jump_Zero	0x2802
2800 4800       |H   |		Short_Literal	0x0
2801 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2802 4801       |H   |		Short_Literal	0x1
2803 4802       |H   |		Short_Literal	0x2
2804 e00e       |    |		Load	0x0,0xe
2805 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2806 0334       | 4  |		Declare_Variable	Array,With_Constraint
2807 e5ff       |    |		Load	0x2,-0x1
2808 825a       | Z  |		Call	0x1,0x5a
2809 4801       |H   |		Short_Literal	0x1
280a 00da       |    |		Load_Top	At_Offset_2
280b 01d6       |    |		Execute	Vector,Field_Write
280c e5fe       |    |		Load	0x2,-0x2
280d 82d6       |    |		Call	0x1,0xd6
280e 4802       |H   |		Short_Literal	0x2
280f 00da       |    |		Load_Top	At_Offset_2
2810 01d6       |    |		Execute	Vector,Field_Write
2811 00d9       |    |		Load_Top	At_Offset_1
2812 e002       |    |		Load	0x0,0x2
2813 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
2814 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
2815 0831       | 1  |		Execute_Immediate	Raise,0x31
2816 0000 0000  |    |		.XXX[0x2]
2818 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000281c}
281c 0000 0000  |    |		.BLANK	0000[0x4]
2820 ; --------------------------------------------------------------------------------------
2820 ; SUBPROGRAM
2820 ; --------------------------------------------------------------------------------------
2820 2828       |((  |		.CONST	0x2828								; Address of begin
2821 0004       |    |		.CONST	0x0004								; Address of exception handler
2822 0003       |    |		.CONST	0x0003								; Number of locals
2823			INIT_2820:
2823 e01b       |    |		Load	0x0,0x1b
2824 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
2825 e002       |    |		Load	0x0,0x2
2826 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2827 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2828			BODY_2820:
2828 00d8       |    |		Load_Top	At_Offset_0
2829 e01b       |    |		Load	0x0,0x1b
282a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
282b 4801       |H   |		Short_Literal	0x1
282c e5fc       |    |		Load	0x2,-0x4
282d e5ff       |    |		Load	0x2,-0x1
282e 82d5       |    |		Call	0x1,0xd5
282f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
2830 0059       | Y  |		Store_Top	Discrete,At_Offset_1
2831 00d8       |    |		Load_Top	At_Offset_0
2832 7013       |p   |		Jump_Nonzero	0x2846
2833 e5fe       |    |		Load	0x2,-0x2
2834 4606       |F   |		Jump_Case	0x7
2835 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x0
2836 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x1
2837 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x2
2838 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x3
2839 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x4
283a 7806       |x   |		Jump	0x2841								; case 0x5
283b 7800       |x   |		Jump	0x283c								; case 0x6
283c e5fd       |    |		Load	0x2,-0x3
283d 00da       |    |		Load_Top	At_Offset_2
283e 0217       |    |		Execute	Heap_Access,All_Reference
283f 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
2840 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2841 e5fd       |    |		Load	0x2,-0x3
2842 00da       |    |		Load_Top	At_Offset_2
2843 0217       |    |		Execute	Heap_Access,All_Reference
2844 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
2845 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2846 e002       |    |		Load	0x0,0x2
2847 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2848 4801       |H   |		Short_Literal	0x1
2849 4804       |H   |		Short_Literal	0x4
284a e00e       |    |		Load	0x0,0xe
284b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
284c 0334       | 4  |		Declare_Variable	Array,With_Constraint
284d e5ff       |    |		Load	0x2,-0x1
284e 825a       | Z  |		Call	0x1,0x5a
284f 4801       |H   |		Short_Literal	0x1
2850 00da       |    |		Load_Top	At_Offset_2
2851 01d6       |    |		Execute	Vector,Field_Write
2852 e5fc       |    |		Load	0x2,-0x4
2853 e00c       |    |		Load	0x0,0xc
2854 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
2855 4802       |H   |		Short_Literal	0x2
2856 00da       |    |		Load_Top	At_Offset_2
2857 01d6       |    |		Execute	Vector,Field_Write
2858 00da       |    |		Load_Top	At_Offset_2
2859 e002       |    |		Load	0x0,0x2
285a 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
285b 4803       |H   |		Short_Literal	0x3
285c 00da       |    |		Load_Top	At_Offset_2
285d 01d6       |    |		Execute	Vector,Field_Write
285e e5fe       |    |		Load	0x2,-0x2
285f 82d6       |    |		Call	0x1,0xd6
2860 4804       |H   |		Short_Literal	0x4
2861 00da       |    |		Load_Top	At_Offset_2
2862 01d6       |    |		Execute	Vector,Field_Write
2863 6004       |`   |		Indirect_Literal	Discrete,0x2868,{0x00000000, 0x0000282e}
2864 e002       |    |		Load	0x0,0x2
2865 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
2866 c5fb       |    |		Store	0x2,-0x5
2867 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2868 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282e}
286c 0000 0000  |    |		.BLANK	0000[0x4]
2870 ; --------------------------------------------------------------------------------------
2870 ; SUBPROGRAM
2870 ; --------------------------------------------------------------------------------------
2870 2873       |(s  |		.CONST	0x2873								; Address of begin
2871 0004       |    |		.CONST	0x0004								; Address of exception handler
2872 0001       |    |		.CONST	0x0001								; Number of locals
2873			BODY_2870:
2873			INIT_2870:
2873 00db       |    |		Load_Top	At_Offset_3
2874 e034       | 4  |		Load	0x0,0x34
2875 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
2876 00d9       |    |		Load_Top	At_Offset_1
2877 00d0       |    |		Action	Swap_Control
2878 0260       | `  |		Execute	Discrete,In_Type
2879 7001       |p   |		Jump_Nonzero	0x287b
287a 0801       |    |		Execute_Immediate	Raise,0x1
287b 00db       |    |		Load_Top	At_Offset_3
287c e039       | 9  |		Load	0x0,0x39
287d e03a       | :  |		Load	0x0,0x3a
287e a03b       | ;  |		Store_Unchecked	0x0,0x3b
287f e038       | 8  |		Load	0x0,0x38
2880 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
2881 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
2882 0000 0000  |    |		.BLANK	0000[0x6]
2888 ; --------------------------------------------------------------------------------------
2888 ; SUBPROGRAM
2888 ; --------------------------------------------------------------------------------------
2888 2894       |(   |		.CONST	0x2894								; Address of begin
2889 2913       |)   |		.CONST	0x2913								; Address of exception handler
288a 0004       |    |		.CONST	0x0004								; Number of locals
288b			INIT_2888:
288b e03c       | <  |		Load	0x0,0x3c
288c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
288d 02c7       |    |		Declare_Variable	Any
288e 00d8       |    |		Load_Top	At_Offset_0
288f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
2890 e20d       |    |		Load	0x1,0xd
2891 0007       |    |		Action	Break_Optional
2892 e01b       |    |		Load	0x0,0x1b
2893 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
2894			BODY_2888:
2894 00be       |    |		Action	Activate_Tasks
2895 e5f9       |    |		Load	0x2,-0x7
2896 00db       |    |		Load_Top	At_Offset_3
2897 e20d       |    |		Load	0x1,0xd
2898 e5fb       |    |		Load	0x2,-0x5
2899 e7ff       |    |		Load	0x3,-0x1
289a e01b       |    |		Load	0x0,0x1b
289b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
289c c603       |    |		Store	0x3,0x3
289d c602       |    |		Store	0x3,0x2
289e c5f9       |    |		Store	0x2,-0x7
289f e5f9       |    |		Load	0x2,-0x7
28a0 7071       |pq  |		Jump_Nonzero	0x2912
28a1 00d9       |    |		Load_Top	At_Offset_1
28a2 e5fd       |    |		Load	0x2,-0x3
28a3 e020       |    |		Load	0x0,0x20
28a4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
28a5 00da       |    |		Load_Top	At_Offset_2
28a6 0217       |    |		Execute	Heap_Access,All_Reference
28a7 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
28a8 00d9       |    |		Load_Top	At_Offset_1
28a9 e5fe       |    |		Load	0x2,-0x2
28aa e020       |    |		Load	0x0,0x20
28ab 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
28ac 00da       |    |		Load_Top	At_Offset_2
28ad 0217       |    |		Execute	Heap_Access,All_Reference
28ae 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
28af e5fb       |    |		Load	0x2,-0x5
28b0 e00c       |    |		Load	0x0,0xc
28b1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
28b2 00da       |    |		Load_Top	At_Offset_2
28b3 0217       |    |		Execute	Heap_Access,All_Reference
28b4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
28b5 e5fb       |    |		Load	0x2,-0x5
28b6 00da       |    |		Load_Top	At_Offset_2
28b7 0217       |    |		Execute	Heap_Access,All_Reference
28b8 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
28b9 00cf       |    |		Action	Mark_Auxiliary
28ba e5fa       |    |		Load	0x2,-0x6
28bb 01d9       |    |		Execute	Vector,Reverse_Bounds
28bc 0263       | c  |		Execute	Discrete,Above_Bound
28bd 7027       |p'  |		Jump_Nonzero	0x28e5
28be 00d8       |    |		Load_Top	At_Offset_0
28bf e5fa       |    |		Load	0x2,-0x6
28c0 01d7       |    |		Execute	Vector,Field_Read
28c1 6821       |h!  |		Jump_Zero	0x28e3
28c2 e603       |    |		Load	0x3,0x3
28c3 e01b       |    |		Load	0x0,0x1b
28c4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
28c5 a604       |    |		Store_Unchecked	0x3,0x4
28c6 e603       |    |		Load	0x3,0x3
28c7 0217       |    |		Execute	Heap_Access,All_Reference
28c8 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
28c9 e604       |    |		Load	0x3,0x4
28ca 0217       |    |		Execute	Heap_Access,All_Reference
28cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
28cc 00d8       |    |		Load_Top	At_Offset_0
28cd e604       |    |		Load	0x3,0x4
28ce 0217       |    |		Execute	Heap_Access,All_Reference
28cf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
28d0 e5fc       |    |		Load	0x2,-0x4
28d1 e604       |    |		Load	0x3,0x4
28d2 0217       |    |		Execute	Heap_Access,All_Reference
28d3 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
28d4 00db       |    |		Load_Top	At_Offset_3
28d5 0219       |    |		Execute	Heap_Access,All_Read
28d6 00d8       |    |		Load_Top	At_Offset_0
28d7 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
28d8 e603       |    |		Load	0x3,0x3
28d9 e5fc       |    |		Load	0x2,-0x4
28da e02b       | +  |		Load	0x0,0x2b
28db 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
28dc 00d9       |    |		Load_Top	At_Offset_1
28dd 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
28de 00d1       |    |		Pop_Control	Pop_Count_1
28df 00db       |    |		Load_Top	At_Offset_3
28e0 e603       |    |		Load	0x3,0x3
28e1 0217       |    |		Execute	Heap_Access,All_Reference
28e2 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
28e3 00c8       |    |		Action	Pop_Auxiliary_Range
28e4 3fd9       |?   |		Loop_Increasing	0x28be
28e5 00ce       |    |		Action	Pop_Auxiliary
28e6 00d9       |    |		Load_Top	At_Offset_1
28e7 0217       |    |		Execute	Heap_Access,All_Reference
28e8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
28e9 0f02       |    |		Execute_Immediate	Equal,0x2
28ea 6809       |h   |		Jump_Zero	0x28f4
28eb 4801       |H   |		Short_Literal	0x1
28ec 00da       |    |		Load_Top	At_Offset_2
28ed 0217       |    |		Execute	Heap_Access,All_Reference
28ee 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
28ef 00d9       |    |		Load_Top	At_Offset_1
28f0 e7ff       |    |		Load	0x3,-0x1
28f1 00d8       |    |		Load_Top	At_Offset_0
28f2 82bb       |    |		Call	0x1,0xbb
28f3 7806       |x   |		Jump	0x28fa
28f4 00d9       |    |		Load_Top	At_Offset_1
28f5 e7ff       |    |		Load	0x3,-0x1
28f6 6025       |`%  |		Indirect_Literal	Discrete,0x291c,{0x00000000, 0x0000280a}
28f7 e7ff       |    |		Load	0x3,-0x1
28f8 8029       | )  |		Call	0x0,0x29
28f9 82bb       |    |		Call	0x1,0xbb
28fa 00d9       |    |		Load_Top	At_Offset_1
28fb 0217       |    |		Execute	Heap_Access,All_Reference
28fc 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
28fd 00da       |    |		Load_Top	At_Offset_2
28fe 0217       |    |		Execute	Heap_Access,All_Reference
28ff 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
2900 e03c       | <  |		Load	0x0,0x3c
2901 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
2902 00db       |    |		Load_Top	At_Offset_3
2903 e03c       | <  |		Load	0x0,0x3c
2904 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
2905 c602       |    |		Store	0x3,0x2
2906 c404       |    |		Store	0x2,0x4
2907 e404       |    |		Load	0x2,0x4
2908 7009       |p   |		Jump_Nonzero	0x2912
2909 0092 2b92  |  + |		Action	Push_String_Extended,0x2b92					; "State file for "
290b 00da       |    |		Load_Top	At_Offset_2
290c 8227       | '  |		Call	0x1,0x27
290d 01cc       |    |		Execute	Vector,Catenate
290e 0092 2b93  |  + |		Action	Push_String_Extended,0x2b93					; " has been closed."
2910 01cc       |    |		Execute	Vector,Catenate
2911 801d       |    |		Call	0x0,0x1d
2912 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
2913			TRAP_2888:
2913 e002       |    |		Load	0x0,0x2
2914 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
2915 010f       |    |		Execute	Exception,Equal
2916 6804       |h   |		Jump_Zero	0x291b
2917 e002       |    |		Load	0x0,0x2
2918 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
2919 a5f9       |    |		Store_Unchecked	0x2,-0x7
291a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
291b 0100       |    |		Execute	Exception,Raise
291c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000280a}
2920 ; --------------------------------------------------------------------------------------
2920 ; SUBPROGRAM
2920 ; --------------------------------------------------------------------------------------
2920 292a       |)*  |		.CONST	0x292a								; Address of begin
2921 0004       |    |		.CONST	0x0004								; Address of exception handler
2922 0003       |    |		.CONST	0x0003								; Number of locals
2923			INIT_2920:
2923 e405       |    |		Load	0x2,0x5
2924 e001       |    |		Load	0x0,0x1
2925 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2926 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2927 1c08       |    |		Execute_Immediate	Run_Utility,0x8
2928 00e3       |    |		Load_Encached	Natural_Cache
2929 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
292a			BODY_2920:
292a e404       |    |		Load	0x2,0x4
292b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
292c 00da       |    |		Load_Top	At_Offset_2
292d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
292e 00cf       |    |		Action	Mark_Auxiliary
292f 7837       |x7  |		Jump	0x2967
2930 e00d       |    |		Load	0x0,0xd
2931 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
2932 e406       |    |		Load	0x2,0x6
2933 0120       |    |		Execute	Any,Is_Value
2934 6803       |h   |		Jump_Zero	0x2938
2935 e00d       |    |		Load	0x0,0xd
2936 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
2937 7801       |x   |		Jump	0x2939
2938 e406       |    |		Load	0x2,0x6
2939 e403       |    |		Load	0x2,0x3
293a e00d       |    |		Load	0x0,0xd
293b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
293c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
293d c406       |    |		Store	0x2,0x6
293e c402       |    |		Store	0x2,0x2
293f e402       |    |		Load	0x2,0x2
2940 7020       |p   |		Jump_Nonzero	0x2961
2941 e5fe       |    |		Load	0x2,-0x2
2942 e406       |    |		Load	0x2,0x6
2943 82c0       |    |		Call	0x1,0xc0
2944 681c       |h   |		Jump_Zero	0x2961
2945 00da       |    |		Load_Top	At_Offset_2
2946 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2947 00da       |    |		Load_Top	At_Offset_2
2948 e407       |    |		Load	0x2,0x7
2949 e602       |    |		Load	0x3,0x2
294a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
294b e001       |    |		Load	0x0,0x1
294c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
294d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
294e 00db       |    |		Load_Top	At_Offset_3
294f e605       |    |		Load	0x3,0x5
2950 01d7       |    |		Execute	Vector,Field_Read
2951 00d1       |    |		Pop_Control	Pop_Count_1
2952 e5fc       |    |		Load	0x2,-0x4
2953 e5fd       |    |		Load	0x2,-0x3
2954 e5fe       |    |		Load	0x2,-0x2
2955 e406       |    |		Load	0x2,0x6
2956 82bf       |    |		Call	0x1,0xbf
2957 00db       |    |		Load_Top	At_Offset_3
2958 e605       |    |		Load	0x3,0x5
2959 01d6       |    |		Execute	Vector,Field_Write
295a e602       |    |		Load	0x3,0x2
295b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
295c c407       |    |		Store	0x2,0x7
295d 00d2       |    |		Pop_Control	Pop_Count_2
295e 00d9       |    |		Load_Top	At_Offset_1
295f 0a01       |    |		Execute_Immediate	Plus,0x1
2960 005a       | Z  |		Store_Top	Discrete,At_Offset_2
2961 e403       |    |		Load	0x2,0x3
2962 e00d       |    |		Load	0x0,0xd
2963 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
2964 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
2965 c403       |    |		Store	0x2,0x3
2966 00c9       |    |		Action	Pop_Auxiliary_Loop
2967 e403       |    |		Load	0x2,0x3
2968 e00d       |    |		Load	0x0,0xd
2969 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
296a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
296b 6fc4       |o   |		Jump_Zero	0x2930
296c 00ce       |    |		Action	Pop_Auxiliary
296d 00d9       |    |		Load_Top	At_Offset_1
296e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
296f e5fd       |    |		Load	0x2,-0x3
2970 e407       |    |		Load	0x2,0x7
2971 e405       |    |		Load	0x2,0x5
2972 e5fe       |    |		Load	0x2,-0x2
2973 82bd       |    |		Call	0x1,0xbd
2974 00da       |    |		Load_Top	At_Offset_2
2975 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
2976 e403       |    |		Load	0x2,0x3
2977 e00d       |    |		Load	0x0,0xd
2978 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
2979 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
297a c403       |    |		Store	0x2,0x3
297b 00d8       |    |		Load_Top	At_Offset_0
297c 0aff       |    |		Execute_Immediate	Plus,-0x1
297d e001       |    |		Load	0x0,0x1
297e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
297f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2980 1c08       |    |		Execute_Immediate	Run_Utility,0x8
2981 00da       |    |		Load_Top	At_Offset_2
2982 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
2983 00d9       |    |		Load_Top	At_Offset_1
2984 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
2985 4801       |H   |		Short_Literal	0x1
2986 00da       |    |		Load_Top	At_Offset_2
2987 0aff       |    |		Execute_Immediate	Plus,-0x1
2988 e602       |    |		Load	0x3,0x2
2989 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
298a 01cf       |    |		Execute	Vector,Slice_Read
298b 00d9       |    |		Load_Top	At_Offset_1
298c 00d8       |    |		Load_Top	At_Offset_0
298d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
298e 00da       |    |		Load_Top	At_Offset_2
298f 01da       |    |		Execute	Vector,Bounds
2990 00da       |    |		Load_Top	At_Offset_2
2991 01da       |    |		Execute	Vector,Bounds
2992 00da       |    |		Load_Top	At_Offset_2
2993 027f       |    |		Execute	Discrete,Equal
2994 7001       |p   |		Jump_Nonzero	0x2996
2995 08e0       |    |		Execute_Immediate	Raise,0xe0
2996 00cd       |    |		Action	Spare6_Action
2997 027f       |    |		Execute	Discrete,Equal
2998 7001       |p   |		Jump_Nonzero	0x299a
2999 08e0       |    |		Execute_Immediate	Raise,0xe0
299a 00d2       |    |		Pop_Control	Pop_Count_2
299b 00d9       |    |		Load_Top	At_Offset_1
299c 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
299d 00cb       |    |		Action	Pop_Block_With_Result
299e 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
299f 0000       |    |		.XXX[0x1]
29a0 ; --------------------------------------------------------------------------------------
29a0 ; SUBPROGRAM
29a0 ; --------------------------------------------------------------------------------------
29a0 29b9       |)   |		.CONST	0x29b9								; Address of begin
29a1 0004       |    |		.CONST	0x0004								; Address of exception handler
29a2 0002       |    |		.CONST	0x0002								; Number of locals
29a3			INIT_29a0:
29a3 e402       |    |		Load	0x2,0x2
29a4 e403       |    |		Load	0x2,0x3
29a5 e00c       |    |		Load	0x0,0xc
29a6 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
29a7 035b       | [  |		Declare_Type	Array,Constrained
29a8 0337       | 7  |		Declare_Variable	Array
29a9 e402       |    |		Load	0x2,0x2
29aa e403       |    |		Load	0x2,0x3
29ab e00c       |    |		Load	0x0,0xc
29ac 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
29ad 0334       | 4  |		Declare_Variable	Array,With_Constraint
29ae 00d8       |    |		Load_Top	At_Offset_0
29af 01d9       |    |		Execute	Vector,Reverse_Bounds
29b0 0263       | c  |		Execute	Discrete,Above_Bound
29b1 7005       |p   |		Jump_Nonzero	0x29b7
29b2 4800       |H   |		Short_Literal	0x0
29b3 00d9       |    |		Load_Top	At_Offset_1
29b4 e603       |    |		Load	0x3,0x3
29b5 01d6       |    |		Execute	Vector,Field_Write
29b6 3ffb       |?   |		Loop_Increasing	0x29b2
29b7 00d9       |    |		Load_Top	At_Offset_1
29b8 01d4       |    |		Execute	Vector,Structure_Write
29b9			BODY_29a0:
29b9 e5ff       |    |		Load	0x2,-0x1
29ba 0217       |    |		Execute	Heap_Access,All_Reference
29bb 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
29bc a404       |    |		Store_Unchecked	0x2,0x4
29bd 00cf       |    |		Action	Mark_Auxiliary
29be 780b       |x   |		Jump	0x29ca
29bf 4801       |H   |		Short_Literal	0x1
29c0 e404       |    |		Load	0x2,0x4
29c1 0217       |    |		Execute	Heap_Access,All_Reference
29c2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
29c3 00db       |    |		Load_Top	At_Offset_3
29c4 01d6       |    |		Execute	Vector,Field_Write
29c5 e404       |    |		Load	0x2,0x4
29c6 0217       |    |		Execute	Heap_Access,All_Reference
29c7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
29c8 a404       |    |		Store_Unchecked	0x2,0x4
29c9 00c9       |    |		Action	Pop_Auxiliary_Loop
29ca e404       |    |		Load	0x2,0x4
29cb 77f3       |w   |		Jump_Nonzero	0x29bf
29cc 00ce       |    |		Action	Pop_Auxiliary
29cd 00d8       |    |		Load_Top	At_Offset_0
29ce e00c       |    |		Load	0x0,0xc
29cf 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
29d0 01c6       |    |		Execute	Vector,Convert_To_Formal
29d1 00cb       |    |		Action	Pop_Block_With_Result
29d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
29d3 0000 0000  |    |		.BLANK	0000[0x5]
29d8 ; --------------------------------------------------------------------------------------
29d8 ; SUBPROGRAM
29d8 ; --------------------------------------------------------------------------------------
29d8 29de       |)   |		.CONST	0x29de								; Address of begin
29d9 0004       |    |		.CONST	0x0004								; Address of exception handler
29da 0002       |    |		.CONST	0x0002								; Number of locals
29db			INIT_29d8:
29db e5ff       |    |		Load	0x2,-0x1
29dc e5fd       |    |		Load	0x2,-0x3
29dd 8276       | v  |		Call	0x1,0x76
29de			BODY_29d8:
29de 00cf       |    |		Action	Mark_Auxiliary
29df 00d9       |    |		Load_Top	At_Offset_1
29e0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
29e1 4801       |H   |		Short_Literal	0x1
29e2 0263       | c  |		Execute	Discrete,Above_Bound
29e3 7011       |p   |		Jump_Nonzero	0x29f5
29e4 e5fb       |    |		Load	0x2,-0x5
29e5 e5fc       |    |		Load	0x2,-0x4
29e6 e5fe       |    |		Load	0x2,-0x2
29e7 00db       |    |		Load_Top	At_Offset_3
29e8 e602       |    |		Load	0x3,0x2
29e9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
29ea 01d7       |    |		Execute	Vector,Field_Read
29eb e001       |    |		Load	0x0,0x1
29ec 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
29ed 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
29ee c5fb       |    |		Store	0x2,-0x5
29ef e5fb       |    |		Load	0x2,-0x5
29f0 6802       |h   |		Jump_Zero	0x29f3
29f1 00cc       |    |		Action	Pop_Block
29f2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
29f3 00c8       |    |		Action	Pop_Auxiliary_Range
29f4 3fef       |?   |		Loop_Increasing	0x29e4
29f5 00cc       |    |		Action	Pop_Block
29f6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
29f7 0000       |    |		.XXX[0x1]
29f8 ; --------------------------------------------------------------------------------------
29f8 ; SUBPROGRAM
29f8 ; --------------------------------------------------------------------------------------
29f8 29fe       |)   |		.CONST	0x29fe								; Address of begin
29f9 0004       |    |		.CONST	0x0004								; Address of exception handler
29fa 0002       |    |		.CONST	0x0002								; Number of locals
29fb			INIT_29f8:
29fb e5ff       |    |		Load	0x2,-0x1
29fc e5fc       |    |		Load	0x2,-0x4
29fd 8276       | v  |		Call	0x1,0x76
29fe			BODY_29f8:
29fe 00cf       |    |		Action	Mark_Auxiliary
29ff 00d9       |    |		Load_Top	At_Offset_1
2a00 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2a01 4801       |H   |		Short_Literal	0x1
2a02 0263       | c  |		Execute	Discrete,Above_Bound
2a03 7012       |p   |		Jump_Nonzero	0x2a16
2a04 e5fa       |    |		Load	0x2,-0x6
2a05 e5fb       |    |		Load	0x2,-0x5
2a06 e5fd       |    |		Load	0x2,-0x3
2a07 e5fe       |    |		Load	0x2,-0x2
2a08 e605       |    |		Load	0x3,0x5
2a09 e602       |    |		Load	0x3,0x2
2a0a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a0b 01d7       |    |		Execute	Vector,Field_Read
2a0c e001       |    |		Load	0x0,0x1
2a0d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a0e 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
2a0f c5fa       |    |		Store	0x2,-0x6
2a10 e5fa       |    |		Load	0x2,-0x6
2a11 6802       |h   |		Jump_Zero	0x2a14
2a12 00cc       |    |		Action	Pop_Block
2a13 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
2a14 00c8       |    |		Action	Pop_Auxiliary_Range
2a15 3fee       |?   |		Loop_Increasing	0x2a04
2a16 00cc       |    |		Action	Pop_Block
2a17 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
2a18 ; --------------------------------------------------------------------------------------
2a18 ; SUBPROGRAM
2a18 ; --------------------------------------------------------------------------------------
2a18 2a1e       |*   |		.CONST	0x2a1e								; Address of begin
2a19 0004       |    |		.CONST	0x0004								; Address of exception handler
2a1a 0002       |    |		.CONST	0x0002								; Number of locals
2a1b			INIT_2a18:
2a1b e5ff       |    |		Load	0x2,-0x1
2a1c e5fd       |    |		Load	0x2,-0x3
2a1d 8276       | v  |		Call	0x1,0x76
2a1e			BODY_2a18:
2a1e 00cf       |    |		Action	Mark_Auxiliary
2a1f 00d9       |    |		Load_Top	At_Offset_1
2a20 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2a21 4801       |H   |		Short_Literal	0x1
2a22 0263       | c  |		Execute	Discrete,Above_Bound
2a23 7011       |p   |		Jump_Nonzero	0x2a35
2a24 e5fb       |    |		Load	0x2,-0x5
2a25 e5fc       |    |		Load	0x2,-0x4
2a26 e5fe       |    |		Load	0x2,-0x2
2a27 00db       |    |		Load_Top	At_Offset_3
2a28 e602       |    |		Load	0x3,0x2
2a29 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a2a 01d7       |    |		Execute	Vector,Field_Read
2a2b e001       |    |		Load	0x0,0x1
2a2c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a2d 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
2a2e c5fb       |    |		Store	0x2,-0x5
2a2f e5fb       |    |		Load	0x2,-0x5
2a30 6802       |h   |		Jump_Zero	0x2a33
2a31 00cc       |    |		Action	Pop_Block
2a32 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2a33 00c8       |    |		Action	Pop_Auxiliary_Range
2a34 3fef       |?   |		Loop_Increasing	0x2a24
2a35 00cc       |    |		Action	Pop_Block
2a36 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2a37 0000       |    |		.XXX[0x1]
2a38 ; --------------------------------------------------------------------------------------
2a38 ; SUBPROGRAM
2a38 ; --------------------------------------------------------------------------------------
2a38 2a3e       |*>  |		.CONST	0x2a3e								; Address of begin
2a39 0004       |    |		.CONST	0x0004								; Address of exception handler
2a3a 0002       |    |		.CONST	0x0002								; Number of locals
2a3b			INIT_2a38:
2a3b e5ff       |    |		Load	0x2,-0x1
2a3c e5fd       |    |		Load	0x2,-0x3
2a3d 8276       | v  |		Call	0x1,0x76
2a3e			BODY_2a38:
2a3e 00cf       |    |		Action	Mark_Auxiliary
2a3f 00d9       |    |		Load_Top	At_Offset_1
2a40 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2a41 4801       |H   |		Short_Literal	0x1
2a42 0263       | c  |		Execute	Discrete,Above_Bound
2a43 7011       |p   |		Jump_Nonzero	0x2a55
2a44 e5fb       |    |		Load	0x2,-0x5
2a45 e5fc       |    |		Load	0x2,-0x4
2a46 e5fe       |    |		Load	0x2,-0x2
2a47 00db       |    |		Load_Top	At_Offset_3
2a48 e602       |    |		Load	0x3,0x2
2a49 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a4a 01d7       |    |		Execute	Vector,Field_Read
2a4b e001       |    |		Load	0x0,0x1
2a4c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a4d 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
2a4e c5fb       |    |		Store	0x2,-0x5
2a4f e5fb       |    |		Load	0x2,-0x5
2a50 6802       |h   |		Jump_Zero	0x2a53
2a51 00cc       |    |		Action	Pop_Block
2a52 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2a53 00c8       |    |		Action	Pop_Auxiliary_Range
2a54 3fef       |?   |		Loop_Increasing	0x2a44
2a55 00cc       |    |		Action	Pop_Block
2a56 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
2a57 0000       |    |		.XXX[0x1]
2a58 ; --------------------------------------------------------------------------------------
2a58 ; SUBPROGRAM
2a58 ; --------------------------------------------------------------------------------------
2a58 2a6d       |*m  |		.CONST	0x2a6d								; Address of begin
2a59 0004       |    |		.CONST	0x0004								; Address of exception handler
2a5a 0005       |    |		.CONST	0x0005								; Number of locals
2a5b			INIT_2a58:
2a5b 605c       |`\  |		Indirect_Literal	Discrete,0x2ab8,{0x00000000, 0x0000282d}
2a5c 6057       |`W  |		Indirect_Literal	Discrete,0x2ab4,{0x00000000, 0x0000282c}
2a5d 6052       |`R  |		Indirect_Literal	Discrete,0x2ab0,{0x00000000, 0x0000282b}
2a5e e5fe       |    |		Load	0x2,-0x2
2a5f e402       |    |		Load	0x2,0x2
2a60 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
2a61 802c       | ,  |		Call	0x0,0x2c
2a62 4801       |H   |		Short_Literal	0x1
2a63 00d9       |    |		Load_Top	At_Offset_1
2a64 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
2a65 e001       |    |		Load	0x0,0x1
2a66 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a67 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
2a68 035b       | [  |		Declare_Type	Array,Constrained
2a69 0337       | 7  |		Declare_Variable	Array
2a6a 00e2       |    |		Load_Encached	Integer_Cache
2a6b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
2a6c 00e1       |    |		Load_Encached	Boolean_Cache
2a6d			BODY_2a58:
2a6d 00db       |    |		Load_Top	At_Offset_3
2a6e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
2a6f a403       |    |		Store_Unchecked	0x2,0x3
2a70 00cf       |    |		Action	Mark_Auxiliary
2a71 e602       |    |		Load	0x3,0x2
2a72 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a73 01d9       |    |		Execute	Vector,Reverse_Bounds
2a74 0263       | c  |		Execute	Discrete,Above_Bound
2a75 7019       |p   |		Jump_Nonzero	0x2a8f
2a76 e403       |    |		Load	0x2,0x3
2a77 00e1       |    |		Load_Encached	Boolean_Cache
2a78 00da       |    |		Load_Top	At_Offset_2
2a79 e602       |    |		Load	0x3,0x2
2a7a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a7b 01d7       |    |		Execute	Vector,Field_Read
2a7c e402       |    |		Load	0x2,0x2
2a7d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
2a7e 82ba       |    |		Call	0x1,0xba
2a7f c605       |    |		Store	0x3,0x5
2a80 c403       |    |		Store	0x2,0x3
2a81 00db       |    |		Load_Top	At_Offset_3
2a82 680a       |h   |		Jump_Zero	0x2a8d
2a83 e604       |    |		Load	0x3,0x4
2a84 0a01       |    |		Execute_Immediate	Plus,0x1
2a85 c604       |    |		Store	0x3,0x4
2a86 00d8       |    |		Load_Top	At_Offset_0
2a87 e602       |    |		Load	0x3,0x2
2a88 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a89 01d7       |    |		Execute	Vector,Field_Read
2a8a e604       |    |		Load	0x3,0x4
2a8b e603       |    |		Load	0x3,0x3
2a8c 01d6       |    |		Execute	Vector,Field_Write
2a8d 00c8       |    |		Action	Pop_Auxiliary_Range
2a8e 3fe7       |?   |		Loop_Increasing	0x2a76
2a8f 00ce       |    |		Action	Pop_Auxiliary
2a90 00d9       |    |		Load_Top	At_Offset_1
2a91 e001       |    |		Load	0x0,0x1
2a92 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a93 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
2a94 1c08       |    |		Execute_Immediate	Run_Utility,0x8
2a95 e403       |    |		Load	0x2,0x3
2a96 00d9       |    |		Load_Top	At_Offset_1
2a97 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
2a98 4801       |H   |		Short_Literal	0x1
2a99 00db       |    |		Load_Top	At_Offset_3
2a9a e603       |    |		Load	0x3,0x3
2a9b 01cf       |    |		Execute	Vector,Slice_Read
2a9c 00d9       |    |		Load_Top	At_Offset_1
2a9d 00d8       |    |		Load_Top	At_Offset_0
2a9e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
2a9f 00da       |    |		Load_Top	At_Offset_2
2aa0 01da       |    |		Execute	Vector,Bounds
2aa1 00da       |    |		Load_Top	At_Offset_2
2aa2 01da       |    |		Execute	Vector,Bounds
2aa3 00da       |    |		Load_Top	At_Offset_2
2aa4 027f       |    |		Execute	Discrete,Equal
2aa5 7001       |p   |		Jump_Nonzero	0x2aa7
2aa6 08e0       |    |		Execute_Immediate	Raise,0xe0
2aa7 00cd       |    |		Action	Spare6_Action
2aa8 027f       |    |		Execute	Discrete,Equal
2aa9 7001       |p   |		Jump_Nonzero	0x2aab
2aaa 08e0       |    |		Execute_Immediate	Raise,0xe0
2aab 00d2       |    |		Pop_Control	Pop_Count_2
2aac 00d9       |    |		Load_Top	At_Offset_1
2aad 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
2aae 00cb       |    |		Action	Pop_Block_With_Result
2aaf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
2ab0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282b}
2ab4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282c}
2ab8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000282d}
2abc 0000 0000  |    |		.BLANK	0000[0x4]
2ac0 ; --------------------------------------------------------------------------------------
2ac0 ; SUBPROGRAM
2ac0 ; --------------------------------------------------------------------------------------
2ac0 2ac3       |*   |		.CONST	0x2ac3								; Address of begin
2ac1 0004       |    |		.CONST	0x0004								; Address of exception handler
2ac2 0001       |    |		.CONST	0x0001								; Number of locals
2ac3			BODY_2ac0:
2ac3			INIT_2ac0:
2ac3 4608       |F   |		Jump_Case	0x9
2ac4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
2ac5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
2ac6 7819       |x   |		Jump	0x2ae0								; case 0x2
2ac7 7818       |x   |		Jump	0x2ae0								; case 0x3
2ac8 7817       |x   |		Jump	0x2ae0								; case 0x4
2ac9 7816       |x   |		Jump	0x2ae0								; case 0x5
2aca 7815       |x   |		Jump	0x2ae0								; case 0x6
2acb 7801       |x   |		Jump	0x2acd								; case 0x7
2acc 7809       |x   |		Jump	0x2ad6								; case 0x8
2acd 00db       |    |		Load_Top	At_Offset_3
2ace 4801       |H   |		Short_Literal	0x1
2acf e5fe       |    |		Load	0x2,-0x2
2ad0 e20f       |    |		Load	0x1,0xf
2ad1 035b       | [  |		Declare_Type	Array,Constrained
2ad2 4801       |H   |		Short_Literal	0x1
2ad3 e5ff       |    |		Load	0x2,-0x1
2ad4 031b       |    |		Declare_Type	Variant_Record,Constrained
2ad5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2ad6 00db       |    |		Load_Top	At_Offset_3
2ad7 00db       |    |		Load_Top	At_Offset_3
2ad8 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
2ad9 4801       |H   |		Short_Literal	0x1
2ada e5fe       |    |		Load	0x2,-0x2
2adb e20f       |    |		Load	0x1,0xf
2adc 0334       | 4  |		Declare_Variable	Array,With_Constraint
2add 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
2ade 016a       | j  |		QQ_execute	Variant_Record,XXX
2adf 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2ae0 0869       | i  |		Execute_Immediate	Raise,0x69
2ae1 0000 0000  |    |		.BLANK	0000[0x7]
2ae8 ; --------------------------------------------------------------------------------------
2ae8 ; SUBPROGRAM
2ae8 ; --------------------------------------------------------------------------------------
2ae8 2aeb       |*   |		.CONST	0x2aeb								; Address of begin
2ae9 0004       |    |		.CONST	0x0004								; Address of exception handler
2aea 0001       |    |		.CONST	0x0001								; Number of locals
2aeb			BODY_2ae8:
2aeb			INIT_2ae8:
2aeb 4608       |F   |		Jump_Case	0x9
2aec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
2aed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
2aee 7819       |x   |		Jump	0x2b08								; case 0x2
2aef 7818       |x   |		Jump	0x2b08								; case 0x3
2af0 7817       |x   |		Jump	0x2b08								; case 0x4
2af1 7816       |x   |		Jump	0x2b08								; case 0x5
2af2 7815       |x   |		Jump	0x2b08								; case 0x6
2af3 7801       |x   |		Jump	0x2af5								; case 0x7
2af4 7809       |x   |		Jump	0x2afe								; case 0x8
2af5 00db       |    |		Load_Top	At_Offset_3
2af6 4801       |H   |		Short_Literal	0x1
2af7 e5fe       |    |		Load	0x2,-0x2
2af8 e229       | )  |		Load	0x1,0x29
2af9 035b       | [  |		Declare_Type	Array,Constrained
2afa 4801       |H   |		Short_Literal	0x1
2afb e5ff       |    |		Load	0x2,-0x1
2afc 031b       |    |		Declare_Type	Variant_Record,Constrained
2afd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2afe 00db       |    |		Load_Top	At_Offset_3
2aff 00db       |    |		Load_Top	At_Offset_3
2b00 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
2b01 4801       |H   |		Short_Literal	0x1
2b02 e5fe       |    |		Load	0x2,-0x2
2b03 e229       | )  |		Load	0x1,0x29
2b04 0334       | 4  |		Declare_Variable	Array,With_Constraint
2b05 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
2b06 016a       | j  |		QQ_execute	Variant_Record,XXX
2b07 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
2b08 0869       | i  |		Execute_Immediate	Raise,0x69
2b09 0000 0000  |    |		.BLANK	0000[0x7]
2b10 ; --------------------------------------------------------------------------------------
2b10 ; SUBPROGRAM
2b10 ; --------------------------------------------------------------------------------------
2b10 2b25       |+%  |		.CONST	0x2b25								; Address of begin
2b11 0004       |    |		.CONST	0x0004								; Address of exception handler
2b12 0017       |    |		.CONST	0x0017								; Number of locals
2b13			INIT_2b10:
2b13 029a 2b2b  |  ++|		Declare_Subprogram	INIT_2b28,For_Outer_Call,Visible,Unelaborated
2b15 029a 2b3b  |  +;|		Declare_Subprogram	INIT_2b38,For_Outer_Call,Visible,Unelaborated
2b17 00bf       |    |		Action	Accept_Activation
2b18 e001       |    |		Load	0x0,0x1
2b19 e002       |    |		Load	0x0,0x2
2b1a e20f       |    |		Load	0x1,0xf
2b1b e210       |    |		Load	0x1,0x10
2b1c e003       |    |		Load	0x0,0x3
2b1d 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
2b1e 0387       |    |		Declare_Variable	Package
2b1f 00d8       |    |		Load_Top	At_Offset_0
2b20 020f       |    |		Execute	Module,Activate
2b21 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
2b22 00c7       |    |		Action	Elaborate_Subprogram
2b23 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
2b24 00c7       |    |		Action	Elaborate_Subprogram
2b25			BODY_2b10:
2b25 00bc       |    |		Action	Signal_Activated
2b26 00bb       |    |		Action	Signal_Completion
2b27 0000       |    |		.XXX[0x1]
2b28 ; --------------------------------------------------------------------------------------
2b28 ; SUBPROGRAM
2b28 ; --------------------------------------------------------------------------------------
2b28 2b2b       |++  |		.CONST	0x2b2b								; Address of begin
2b29 0004       |    |		.CONST	0x0004								; Address of exception handler
2b2a 0001       |    |		.CONST	0x0001								; Number of locals
2b2b			BODY_2b28:
2b2b			INIT_2b28:
2b2b 00da       |    |		Load_Top	At_Offset_2
2b2c 0219       |    |		Execute	Heap_Access,All_Read
2b2d 00d8       |    |		Load_Top	At_Offset_0
2b2e 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
2b2f e5ff       |    |		Load	0x2,-0x1
2b30 e5fe       |    |		Load	0x2,-0x2
2b31 e20f       |    |		Load	0x1,0xf
2b32 0119       |    |		Execute	Any,Check_In_Formal_Type
2b33 e217       |    |		Load	0x1,0x17
2b34 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
2b35 00d9       |    |		Load_Top	At_Offset_1
2b36 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
2b37 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
2b38 ; --------------------------------------------------------------------------------------
2b38 ; SUBPROGRAM
2b38 ; --------------------------------------------------------------------------------------
2b38 2b3b       |+;  |		.CONST	0x2b3b								; Address of begin
2b39 2b44       |+D  |		.CONST	0x2b44								; Address of exception handler
2b3a 0001       |    |		.CONST	0x0001								; Number of locals
2b3b			BODY_2b38:
2b3b			INIT_2b38:
2b3b 00da       |    |		Load_Top	At_Offset_2
2b3c 0217       |    |		Execute	Heap_Access,All_Reference
2b3d 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
2b3e 00db       |    |		Load_Top	At_Offset_3
2b3f e217       |    |		Load	0x1,0x17
2b40 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
2b41 e210       |    |		Load	0x1,0x10
2b42 0213       |    |		Execute	Heap_Access,Check_In_Type
2b43 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
2b44			TRAP_2b38:
2b44 486b       |Hk  |		Short_Literal	0x6b
2b45 010f       |    |		Execute	Exception,Equal
2b46 6802       |h   |		Jump_Zero	0x2b49
2b47 e210       |    |		Load	0x1,0x10
2b48 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
2b49 0100       |    |		Execute	Exception,Raise
2b4a ; --------------------------------------------------------------------------------------
2b4a ; STRING TABLE
2b4a ; --------------------------------------------------------------------------------------
2b4a 0096       |    |		.STRTAB	0x0096->0x2b95							; "TARGET_MACHINE_FIELD"
2b4b 00a8       |    |		.STRTAB	0x00a8->0x2b9f							; "TARGET_ACCOUNT_FIELD"
2b4c 00ba       |    |		.STRTAB	0x00ba->0x2ba9							; "TARGET_DIRECTORY_FIELD"
2b4d 00ce       |    |		.STRTAB	0x00ce->0x2bb4							; "TARGET_LIBRARY_FIELD"
2b4e 00e0       |    |		.STRTAB	0x00e0->0x2bbe							; "CONFIGURATION_FIELD"
2b4f 00f1       |    |		.STRTAB	0x00f1->0x2bc7							; "HAS_UNIT_CONFIGURATIONS_FIELD"
2b50 010c       |    |		.STRTAB	0x010c->0x2bd6							; "HAS_UNIT_BUILD_TIMES_FIELD"
2b51 0124       | $  |		.STRTAB	0x0124->0x2be3							; "C"
2b52 0123       | #  |		.STRTAB	0x0123->0x2be3							; "S"
2b53 0122       | "  |		.STRTAB	0x0122->0x2be4							; "SPEC_PART"
2b54 0129       | )  |		.STRTAB	0x0129->0x2be8							; "BODY_PART"
2b55 0130       | 0  |		.STRTAB	0x0130->0x2bed							; "ON_MACHINE"
2b56 0138       | 8  |		.STRTAB	0x0138->0x2bf2							; "IS_ATTR"
2b57 013d       | =  |		.STRTAB	0x013d->0x2bf5							; "HAS_ATTR"
2b58 0143       | C  |		.STRTAB	0x0143->0x2bf9							; "CONFIG"
2b59 0147       | G  |		.STRTAB	0x0147->0x2bfc							; "REFRESHED"
2b5a 014e       | N  |		.STRTAB	0x014e->0x2c01							; "UPDATED"
2b5b 0153       | S  |		.STRTAB	0x0153->0x2c04							; "DOWNLOADED"
2b5c 015b       | [  |		.STRTAB	0x015b->0x2c09							; "STAMPED"
2b5d 0160       | `  |		.STRTAB	0x0160->0x2c0d							; "BUILT"
2b5e 0163       | c  |		.STRTAB	0x0163->0x2c0f							; "NAMED"
2b5f 0166       | f  |		.STRTAB	0x0166->0x2c12							; "TARGET_NAMED"
2b60 0170       | p  |		.STRTAB	0x0170->0x2c18							; "SECONDARY_NAMED"
2b61 017d       | }  |		.STRTAB	0x017d->0x2c1f							; "PRIMARY_NAMED"
2b62 0188       |    |		.STRTAB	0x0188->0x2c26							; "RETAINED"
2b63 018e       |    |		.STRTAB	0x018e->0x2c2a							; "SN"
2b64 018e       |    |		.STRTAB	0x018e->0x2c2b							; "BASIC_FRESH"
2b65 0197       |    |		.STRTAB	0x0197->0x2c30							; "FULL_FRESH"
2b66 019f       |    |		.STRTAB	0x019f->0x2c35							; "CONFIGURED"
2b67 01a7       |    |		.STRTAB	0x01a7->0x2c3a							; "DOWNLOADABLE"
2b68 01b1       |    |		.STRTAB	0x01b1->0x2c40							; "SECONDARY_UNIT"
2b69 01bd       |    |		.STRTAB	0x01bd->0x2c47							; "SEPARATE_GENERIC_BODIES"
2b6a 01d2       |    |		.STRTAB	0x01d2->0x2c53							; "SECONDARY_UNIT"
2b6b 01de       |    |		.STRTAB	0x01de->0x2c5a							; "TARGET_NAME"
2b6c 01e7       |    |		.STRTAB	0x01e7->0x2c5f							; "TARGET_UNIT"
2b6d 01f0       |    |		.STRTAB	0x01f0->0x2c65							; "NIL"
2b6e 01f1       |    |		.STRTAB	0x01f1->0x2c66							; "NEGATE"
2b6f 01f5       |    |		.STRTAB	0x01f5->0x2c69							; "AND_THEN"
2b70 01fb       |    |		.STRTAB	0x01fb->0x2c6d							; "OR_ELSE"
2b71 0200       |    |		.STRTAB	0x0200->0x2c71							; "CLASS"
2b72 0203       |    |		.STRTAB	0x0203->0x2c73							; "SUBCLASS"
2b73 0209       |    |		.STRTAB	0x0209->0x2c77							; "UNIT_STATE"
2b74 0211       |    |		.STRTAB	0x0211->0x2c7c							; "IS_QUERY"
2b75 0217       |    |		.STRTAB	0x0217->0x2c80							; "HAS_QUERY"
2b76 021e       |    |		.STRTAB	0x021e->0x2c85							; "CONFIG"
2b77 0222       | "  |		.STRTAB	0x0222->0x2c88							; "REFRESHED"
2b78 0229       | )  |		.STRTAB	0x0229->0x2c8c							; "UPDATED"
2b79 022e       | .  |		.STRTAB	0x022e->0x2c90							; "DOWNLOADED"
2b7a 0236       | 6  |		.STRTAB	0x0236->0x2c95							; "STAMPED"
2b7b 023b       | ;  |		.STRTAB	0x023b->0x2c98							; "BUILT"
2b7c 023e       | >  |		.STRTAB	0x023e->0x2c9b							; "NAMED"
2b7d 0241       | A  |		.STRTAB	0x0241->0x2c9d							; "TARGET_NAMED"
2b7e 024b       | K  |		.STRTAB	0x024b->0x2ca3							; "SECONDARY_NAMED"
2b7f 0258       | X  |		.STRTAB	0x0258->0x2cab							; "PRIMARY_NAMED"
2b80 0263       | c  |		.STRTAB	0x0263->0x2cb1							; "RETAINED"
2b81 0269       | i  |		.STRTAB	0x0269->0x2cb5							; "SN"
2b82 0269       | i  |		.STRTAB	0x0269->0x2cb6							; "UNIT_PART"
2b83 0270       | p  |		.STRTAB	0x0270->0x2cbb							; ":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         :"
2b84 039b       |    |		.STRTAB	0x039b->0x2d51							; "Created state file for world \x22"
2b85 03b7       |    |		.STRTAB	0x03b7->0x2d60							; "\x22."
2b86 03b7       |    |		.STRTAB	0x03b7->0x2d61							; "AT"
2b87 03b7       |    |		.STRTAB	0x03b7->0x2d62							; ".."
2b88 03b7       |    |		.STRTAB	0x03b7->0x2d63							; "'IS"
2b89 03b8       |    |		.STRTAB	0x03b8->0x2d65							; "'HAS"
2b8a 03ba       |    |		.STRTAB	0x03ba->0x2d67							; "'"
2b8b 03b9       |    |		.STRTAB	0x03b9->0x2d67							; "("
2b8c 03b8       |    |		.STRTAB	0x03b8->0x2d68							; "Warning: ON_MACHINES query attribute will be ignored."
2b8d 03eb       |    |		.STRTAB	0x03eb->0x2d82							; "Target_Account has been set to \x22"
2b8e 0409       |    |		.STRTAB	0x0409->0x2d92							; "Target_Directory has been set to \x22"
2b8f 0429       | )  |		.STRTAB	0x0429->0x2da3							; "Target_Library has been set to \x22"
2b90 0447       | G  |		.STRTAB	0x0447->0x2db3							; "Configuration has been set to \x22"
2b91 0464       | d  |		.STRTAB	0x0464->0x2dc3							; "Target_Machine has been set to \x22"
2b92 0482       |    |		.STRTAB	0x0482->0x2dd3							; "State file for "
2b93 048f       |    |		.STRTAB	0x048f->0x2dda							; " has been closed."
2b94 049e       |    |		.STREND 0x049e->0x2de3
2b95 5441 5247  |TARG|		.STRTAB_STRINGS
2de3 0000 0000  |    |		.BLANK	0000[0x5]
2de8 ; --------------------------------------------------------------------------------------
2de8 ; Debug Table
2de8 ; --------------------------------------------------------------------------------------
2de8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0xe365,0x0000,0x0001,0x0000
2dee 0000 006c  |   l|		.XXX[0x2]
2df0 0000 0000  |    |		.BLANK	0000[0x8]
2df8 0001 0404  |    |		.XXX[0x8]
2dfa 0000 0700  |    |
2dfc 8000 0000  |    |
2dfe 0000 0000  |    |