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

⟦a82d4926b⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 1820       |    |		.CONST	0x1820								; 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 800f       |    |		.CONST	0x800f								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ce       |    |		.CONST	0x00ce								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
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 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0017 c215       |    |		Store	0x1,0x15
0018 4806       |H   |		Short_Literal	0x6
0019 0093 1383  |    |		push_full_address	INIT_1380
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
001d c212       |    |		Store	0x1,0x12
001e 4805       |H   |		Short_Literal	0x5
001f 0093 0d7b  |   {|		push_full_address	INIT_0d78
0021 02a0       |    |		Declare_Subprogram	Null_Subprogram
0022 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0023 c210       |    |		Store	0x1,0x10
0024 4805       |H   |		Short_Literal	0x5
0025 0093 08a3  |    |		push_full_address	INIT_08a0
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0029 c211       |    |		Store	0x1,0x11
002a 00bf       |    |		Action	Accept_Activation
002b 480a       |H   |		Short_Literal	0xa
002c 480d       |H   |		Short_Literal	0xd
002d e001       |    |		Load	0x0,0x1
002e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
002f 03f8       |    |		Declare_Type	Discrete,Constrained
0030 029b 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Unelaborated
0032 029b 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Unelaborated
0034 029b 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Unelaborated
0036 029b 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Unelaborated
0038 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
003a 029d 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call
003c 029d 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call
003e 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 029d 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call
0048 029d 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call
004a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
004f 00c6       |    |		Action	Check_Subprogram_Elaborated
0050 e002       |    |		Load	0x0,0x2
0051 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0052 e002       |    |		Load	0x0,0x2
0053 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
0054 e002       |    |		Load	0x0,0x2
0055 192d       | -  |		Execute	Package,Field_Reference,Field_Number 0x2d
0056 e002       |    |		Load	0x0,0x2
0057 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
0058 e002       |    |		Load	0x0,0x2
0059 191b       |    |		Execute	Package,Field_Reference,Field_Number 0x1b
005a e003       |    |		Load	0x0,0x3
005b e004       |    |		Load	0x0,0x4
005c 4800       |H   |		Short_Literal	0x0
005d 0007       |    |		Action	Break_Optional
005e e005       |    |		Load	0x0,0x5
005f e006       |    |		Load	0x0,0x6
0060 e007       |    |		Load	0x0,0x7
0061 e008       |    |		Load	0x0,0x8
0062 e009       |    |		Load	0x0,0x9
0063 e00a       |    |		Load	0x0,0xa
0064 e00b       |    |		Load	0x0,0xb
0065 e00c       |    |		Load	0x0,0xc
0066 e00d       |    |		Load	0x0,0xd
0067 e00e       |    |		Load	0x0,0xe
0068 e00f       |    |		Load	0x0,0xf
0069 e001       |    |		Load	0x0,0x1
006a e010       |    |		Load	0x0,0x10
006b e011       |    |		Load	0x0,0x11
006c e012       |    |		Load	0x0,0x12
006d e013       |    |		Load	0x0,0x13
006e e014       |    |		Load	0x0,0x14
006f 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0070 e015       |    |		Load	0x0,0x15
0071 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0072 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0073 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0074 e016       |    |		Load	0x0,0x16
0075 e002       |    |		Load	0x0,0x2
0076 e017       |    |		Load	0x0,0x17
0077 e018       |    |		Load	0x0,0x18
0078 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0079 e220       |    |		Load	0x1,0x20
007a 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
007b 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
007c 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
007d 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
007e 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
007f 00b6       |    |		Action	Make_Scope
0080 4822       |H"  |		Short_Literal	0x22
0081 e212       |    |		Load	0x1,0x12
0082 020e       |    |		Execute	Module,Augment_Imports
0083 e212       |    |		Load	0x1,0x12
0084 020d       |    |		Execute	Module,Elaborate
0085 0007       |    |		Action	Break_Optional
0086 029d 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call
0088 e006       |    |		Load	0x0,0x6
0089 e002       |    |		Load	0x0,0x2
008a e007       |    |		Load	0x0,0x7
008b e018       |    |		Load	0x0,0x18
008c e009       |    |		Load	0x0,0x9
008d e019       |    |		Load	0x0,0x19
008e e01a       |    |		Load	0x0,0x1a
008f e00c       |    |		Load	0x0,0xc
0090 e01b       |    |		Load	0x0,0x1b
0091 e01c       |    |		Load	0x0,0x1c
0092 e00f       |    |		Load	0x0,0xf
0093 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0094 e015       |    |		Load	0x0,0x15
0095 e013       |    |		Load	0x0,0x13
0096 e01d       |    |		Load	0x0,0x1d
0097 e017       |    |		Load	0x0,0x17
0098 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0099 e001       |    |		Load	0x0,0x1
009a e016       |    |		Load	0x0,0x16
009b 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
009c 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
009d 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009e e220       |    |		Load	0x1,0x20
009f 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a0 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a1 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a2 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00a3 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00a4 00b6       |    |		Action	Make_Scope
00a5 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00a6 481e       |H   |		Short_Literal	0x1e
00a7 e210       |    |		Load	0x1,0x10
00a8 020e       |    |		Execute	Module,Augment_Imports
00a9 e210       |    |		Load	0x1,0x10
00aa 020d       |    |		Execute	Module,Elaborate
00ab 0007       |    |		Action	Break_Optional
00ac e006       |    |		Load	0x0,0x6
00ad e01e       |    |		Load	0x0,0x1e
00ae e002       |    |		Load	0x0,0x2
00af e009       |    |		Load	0x0,0x9
00b0 e01f       |    |		Load	0x0,0x1f
00b1 e020       |    |		Load	0x0,0x20
00b2 e00c       |    |		Load	0x0,0xc
00b3 e021       | !  |		Load	0x0,0x21
00b4 e022       | "  |		Load	0x0,0x22
00b5 e00f       |    |		Load	0x0,0xf
00b6 e013       |    |		Load	0x0,0x13
00b7 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00b8 e001       |    |		Load	0x0,0x1
00b9 e015       |    |		Load	0x0,0x15
00ba e023       | #  |		Load	0x0,0x23
00bb e016       |    |		Load	0x0,0x16
00bc e017       |    |		Load	0x0,0x17
00bd e018       |    |		Load	0x0,0x18
00be 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00bf 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00c0 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00c1 e220       |    |		Load	0x1,0x20
00c2 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00c3 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c4 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00c5 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00c6 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00c7 00b6       |    |		Action	Make_Scope
00c8 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00c9 481d       |H   |		Short_Literal	0x1d
00ca e211       |    |		Load	0x1,0x11
00cb 020e       |    |		Execute	Module,Augment_Imports
00cc e211       |    |		Load	0x1,0x11
00cd 020d       |    |		Execute	Module,Elaborate
00ce			BODY_0008:
00ce 00bc       |    |		Action	Signal_Activated
00cf 00bb       |    |		Action	Signal_Completion
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00ec       |    |		.CONST	0x00ec								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 000b       |    |		.CONST	0x000b								; Number of locals
00d3			INIT_00d0:
00d3 e5f8       |    |		Load	0x2,-0x8
00d4 e001       |    |		Load	0x0,0x1
00d5 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00d6 e5f8       |    |		Load	0x2,-0x8
00d7 e001       |    |		Load	0x0,0x1
00d8 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00d9 e006       |    |		Load	0x0,0x6
00da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00db 03f1       |    |		Declare_Variable	Discrete,With_Value
00dc e024       | $  |		Load	0x0,0x24
00dd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00de 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00df 00e1       |    |		Load_Encached	Boolean_Cache
00e0 e001       |    |		Load	0x0,0x1
00e1 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00e2 00e1       |    |		Load_Encached	Boolean_Cache
00e3 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00e4 e001       |    |		Load	0x0,0x1
00e5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e6 e001       |    |		Load	0x0,0x1
00e7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e8 029f 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Call
00ea 029f 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Call
00ec			BODY_00d0:
00ec 00cf       |    |		Action	Mark_Auxiliary
00ed e402       |    |		Load	0x2,0x2
00ee 01d9       |    |		Execute	Vector,Reverse_Bounds
00ef 0263       | c  |		Execute	Discrete,Above_Bound
00f0 70ab       |p   |		Jump_Nonzero	0x19c
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 e402       |    |		Load	0x2,0x2
00f3 01d7       |    |		Execute	Vector,Field_Read
00f4 a408       |    |		Store_Unchecked	0x2,0x8
00f5 e408       |    |		Load	0x2,0x8
00f6 e001       |    |		Load	0x0,0x1
00f7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f8 a406       |    |		Store_Unchecked	0x2,0x6
00f9 e406       |    |		Load	0x2,0x6
00fa 0f02       |    |		Execute_Immediate	Equal,0x2
00fb 7003       |p   |		Jump_Nonzero	0xff
00fc e406       |    |		Load	0x2,0x6
00fd 0f03       |    |		Execute_Immediate	Equal,0x3
00fe 6832       |h2  |		Jump_Zero	0x131
00ff 4801       |H   |		Short_Literal	0x1
0100 e408       |    |		Load	0x2,0x8
0101 e001       |    |		Load	0x0,0x1
0102 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0103 e013       |    |		Load	0x0,0x13
0104 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0105 702b       |p+  |		Jump_Nonzero	0x131
0106 4801       |H   |		Short_Literal	0x1
0107 e408       |    |		Load	0x2,0x8
0108 e001       |    |		Load	0x0,0x1
0109 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010a e001       |    |		Load	0x0,0x1
010b 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
010c a409       |    |		Store_Unchecked	0x2,0x9
010d e5f7       |    |		Load	0x2,-0x9
010e e409       |    |		Load	0x2,0x9
010f e5f9       |    |		Load	0x2,-0x7
0110 e5fa       |    |		Load	0x2,-0x6
0111 0119       |    |		Execute	Any,Check_In_Formal_Type
0112 e5fa       |    |		Load	0x2,-0x6
0113 4ffb       |O   |		Short_Literal	-0x5
0114 4802       |H   |		Short_Literal	0x2
0115 0099       |    |		Action	Reference_Dynamic
0116 4ffc       |O   |		Short_Literal	-0x4
0117 4802       |H   |		Short_Literal	0x2
0118 0099       |    |		Action	Reference_Dynamic
0119 4ffd       |O   |		Short_Literal	-0x3
011a 4802       |H   |		Short_Literal	0x2
011b 0099       |    |		Action	Reference_Dynamic
011c 4ffe       |O   |		Short_Literal	-0x2
011d 4802       |H   |		Short_Literal	0x2
011e 0099       |    |		Action	Reference_Dynamic
011f 4fff       |O   |		Short_Literal	-0x1
0120 4802       |H   |		Short_Literal	0x2
0121 0099       |    |		Action	Reference_Dynamic
0122 820d       |    |		Call	0x1,0xd
0123 e409       |    |		Load	0x2,0x9
0124 e001       |    |		Load	0x0,0x1
0125 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0126 a403       |    |		Store_Unchecked	0x2,0x3
0127 4800       |H   |		Short_Literal	0x0
0128 e403       |    |		Load	0x2,0x3
0129 e006       |    |		Load	0x0,0x6
012a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
012b 7041       |pA  |		Jump_Nonzero	0x16d
012c e403       |    |		Load	0x2,0x3
012d e5f8       |    |		Load	0x2,-0x8
012e e001       |    |		Load	0x0,0x1
012f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0130 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0131 e406       |    |		Load	0x2,0x6
0132 0f07       |    |		Execute_Immediate	Equal,0x7
0133 681c       |h   |		Jump_Zero	0x150
0134 4800       |H   |		Short_Literal	0x0
0135 a407       |    |		Store_Unchecked	0x2,0x7
0136 e403       |    |		Load	0x2,0x3
0137 00e1       |    |		Load_Encached	Boolean_Cache
0138 e408       |    |		Load	0x2,0x8
0139 e5f9       |    |		Load	0x2,-0x7
013a e5fa       |    |		Load	0x2,-0x6
013b 0119       |    |		Execute	Any,Check_In_Formal_Type
013c 85fb       |    |		Call	0x2,-0x5
013d c405       |    |		Store	0x2,0x5
013e c403       |    |		Store	0x2,0x3
013f e405       |    |		Load	0x2,0x5
0140 6803       |h   |		Jump_Zero	0x144
0141 4801       |H   |		Short_Literal	0x1
0142 a407       |    |		Store_Unchecked	0x2,0x7
0143 7829       |x)  |		Jump	0x16d
0144 4800       |H   |		Short_Literal	0x0
0145 e403       |    |		Load	0x2,0x3
0146 e006       |    |		Load	0x0,0x6
0147 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0148 7005       |p   |		Jump_Nonzero	0x14e
0149 e403       |    |		Load	0x2,0x3
014a e5f8       |    |		Load	0x2,-0x8
014b e001       |    |		Load	0x0,0x1
014c 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
014d 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
014e 840a       |    |		Call	0x2,0xa
014f 781d       |x   |		Jump	0x16d
0150 e407       |    |		Load	0x2,0x7
0151 701b       |p   |		Jump_Nonzero	0x16d
0152 e406       |    |		Load	0x2,0x6
0153 e216       |    |		Load	0x1,0x16
0154 0260       | `  |		Execute	Discrete,In_Type
0155 6817       |h   |		Jump_Zero	0x16d
0156 e403       |    |		Load	0x2,0x3
0157 00e1       |    |		Load_Encached	Boolean_Cache
0158 e408       |    |		Load	0x2,0x8
0159 e5f9       |    |		Load	0x2,-0x7
015a e5fa       |    |		Load	0x2,-0x6
015b 0119       |    |		Execute	Any,Check_In_Formal_Type
015c 85fb       |    |		Call	0x2,-0x5
015d c405       |    |		Store	0x2,0x5
015e c403       |    |		Store	0x2,0x3
015f e405       |    |		Load	0x2,0x5
0160 6801       |h   |		Jump_Zero	0x162
0161 780b       |x   |		Jump	0x16d
0162 4800       |H   |		Short_Literal	0x0
0163 e403       |    |		Load	0x2,0x3
0164 e006       |    |		Load	0x0,0x6
0165 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0166 7005       |p   |		Jump_Nonzero	0x16c
0167 e403       |    |		Load	0x2,0x3
0168 e5f8       |    |		Load	0x2,-0x8
0169 e001       |    |		Load	0x0,0x1
016a 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
016b 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
016c 840a       |    |		Call	0x2,0xa
016d e5f8       |    |		Load	0x2,-0x8
016e e001       |    |		Load	0x0,0x1
016f 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0170 7001       |p   |		Jump_Nonzero	0x172
0171 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0172 e406       |    |		Load	0x2,0x6
0173 0f0a       |    |		Execute_Immediate	Equal,0xa
0174 6821       |h!  |		Jump_Zero	0x196
0175 4801       |H   |		Short_Literal	0x1
0176 e408       |    |		Load	0x2,0x8
0177 e001       |    |		Load	0x0,0x1
0178 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0179 e024       | $  |		Load	0x0,0x24
017a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
017b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
017c a404       |    |		Store_Unchecked	0x2,0x4
017d e404       |    |		Load	0x2,0x4
017e e024       | $  |		Load	0x0,0x24
017f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0180 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0181 7018       |p   |		Jump_Nonzero	0x19a
0182 e403       |    |		Load	0x2,0x3
0183 e408       |    |		Load	0x2,0x8
0184 e001       |    |		Load	0x0,0x1
0185 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0186 4801       |H   |		Short_Literal	0x1
0187 e404       |    |		Load	0x2,0x4
0188 e024       | $  |		Load	0x0,0x24
0189 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
018a 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
018b c403       |    |		Store	0x2,0x3
018c 4800       |H   |		Short_Literal	0x0
018d e403       |    |		Load	0x2,0x3
018e e006       |    |		Load	0x0,0x6
018f 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0190 7009       |p   |		Jump_Nonzero	0x19a
0191 e403       |    |		Load	0x2,0x3
0192 e5f8       |    |		Load	0x2,-0x8
0193 e001       |    |		Load	0x0,0x1
0194 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0195 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0196 e406       |    |		Load	0x2,0x6
0197 0f0c       |    |		Execute_Immediate	Equal,0xc
0198 6801       |h   |		Jump_Zero	0x19a
0199 840b       |    |		Call	0x2,0xb
019a 00c8       |    |		Action	Pop_Auxiliary_Range
019b 3f55       |?U  |		Loop_Increasing	0xf1
019c 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 0213       |    |		.CONST	0x0213								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0014       |    |		.CONST	0x0014								; Number of locals
01a3			INIT_01a0:
01a3 e5f9       |    |		Load	0x2,-0x7
01a4 e001       |    |		Load	0x0,0x1
01a5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01a6 e001       |    |		Load	0x0,0x1
01a7 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01a8 03f1       |    |		Declare_Variable	Discrete,With_Value
01a9 e006       |    |		Load	0x0,0x6
01aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ab 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01ac e018       |    |		Load	0x0,0x18
01ad 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ae 02c7       |    |		Declare_Variable	Any
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b1 e025       | %  |		Load	0x0,0x25
01b2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b3 4801       |H   |		Short_Literal	0x1
01b4 4900       |I   |		Short_Literal	0x100
01b5 00e9       |    |		Load_Encached	String_Cache
01b6 035b       | [  |		Declare_Type	Array,Constrained
01b7 0337       | 7  |		Declare_Variable	Array
01b8 e002       |    |		Load	0x0,0x2
01b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ba 02c7       |    |		Declare_Variable	Any
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01bd 00e3       |    |		Load_Encached	Natural_Cache
01be 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01bf 00e3       |    |		Load_Encached	Natural_Cache
01c0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01c1 029e 0513  |    |		Declare_Subprogram	INIT_0510,For_Call,Unelaborated
01c3 029e 0523  |   #|		Declare_Subprogram	INIT_0520,For_Call,Unelaborated
01c5 e026       | &  |		Load	0x0,0x26
01c6 e027       | '  |		Load	0x0,0x27
01c7 e5fa       |    |		Load	0x2,-0x6
01c8 4ffb       |O   |		Short_Literal	-0x5
01c9 4802       |H   |		Short_Literal	0x2
01ca 0099       |    |		Action	Reference_Dynamic
01cb 4ffc       |O   |		Short_Literal	-0x4
01cc 4802       |H   |		Short_Literal	0x2
01cd 0099       |    |		Action	Reference_Dynamic
01ce 480a       |H   |		Short_Literal	0xa
01cf 4802       |H   |		Short_Literal	0x2
01d0 0099       |    |		Action	Reference_Dynamic
01d1 480b       |H   |		Short_Literal	0xb
01d2 4802       |H   |		Short_Literal	0x2
01d3 0099       |    |		Action	Reference_Dynamic
01d4 4ffe       |O   |		Short_Literal	-0x2
01d5 4802       |H   |		Short_Literal	0x2
01d6 0099       |    |		Action	Reference_Dynamic
01d7 0092 17e0  |    |		Action	Push_String_Extended,0x17e0					; "--/"
01d9 e028       | (  |		Load	0x0,0x28
01da 0387       |    |		Declare_Variable	Package
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 020f       |    |		Execute	Module,Activate
01dd 00d8       |    |		Load_Top	At_Offset_0
01de 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01df 02a0       |    |		Declare_Subprogram	Null_Subprogram
01e0 4801       |H   |		Short_Literal	0x1
01e1 032d       | -  |		Declare_Type	Record,Defined
01e2 029e 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call,Unelaborated
01e4 029e 055b  |   [|		Declare_Subprogram	INIT_0558,For_Call,Unelaborated
01e6 029e 056b  |   k|		Declare_Subprogram	INIT_0568,For_Call,Unelaborated
01e8 e029       | )  |		Load	0x0,0x29
01e9 e02a       | *  |		Load	0x0,0x2a
01ea e40d       |    |		Load	0x2,0xd
01eb 480e       |H   |		Short_Literal	0xe
01ec 4802       |H   |		Short_Literal	0x2
01ed 0099       |    |		Action	Reference_Dynamic
01ee 480f       |H   |		Short_Literal	0xf
01ef 4802       |H   |		Short_Literal	0x2
01f0 0099       |    |		Action	Reference_Dynamic
01f1 4810       |H   |		Short_Literal	0x10
01f2 4802       |H   |		Short_Literal	0x2
01f3 0099       |    |		Action	Reference_Dynamic
01f4 e025       | %  |		Load	0x0,0x25
01f5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01f6 0387       |    |		Declare_Variable	Package
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 020f       |    |		Execute	Module,Activate
01f9 480a       |H   |		Short_Literal	0xa
01fa 4802       |H   |		Short_Literal	0x2
01fb 0099       |    |		Action	Reference_Dynamic
01fc 00c7       |    |		Action	Elaborate_Subprogram
01fd 480b       |H   |		Short_Literal	0xb
01fe 4802       |H   |		Short_Literal	0x2
01ff 0099       |    |		Action	Reference_Dynamic
0200 00c7       |    |		Action	Elaborate_Subprogram
0201 480e       |H   |		Short_Literal	0xe
0202 4802       |H   |		Short_Literal	0x2
0203 0099       |    |		Action	Reference_Dynamic
0204 00c7       |    |		Action	Elaborate_Subprogram
0205 480f       |H   |		Short_Literal	0xf
0206 4802       |H   |		Short_Literal	0x2
0207 0099       |    |		Action	Reference_Dynamic
0208 00c7       |    |		Action	Elaborate_Subprogram
0209 4810       |H   |		Short_Literal	0x10
020a 4802       |H   |		Short_Literal	0x2
020b 0099       |    |		Action	Reference_Dynamic
020c 00c7       |    |		Action	Elaborate_Subprogram
020d 029f 057b  |   {|		Declare_Subprogram	INIT_0578,For_Call
020f 029f 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Call
0211 029f 06db  |    |		Declare_Subprogram	INIT_06d8,For_Call
0213			BODY_01a0:
0213 e402       |    |		Load	0x2,0x2
0214 0f0a       |    |		Execute_Immediate	Equal,0xa
0215 6815       |h   |		Jump_Zero	0x22b
0216 e407       |    |		Load	0x2,0x7
0217 e017       |    |		Load	0x0,0x17
0218 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0219 e018       |    |		Load	0x0,0x18
021a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
021b 00ea       |    |		Load_Encached	Null_String_Cache
021c 4801       |H   |		Short_Literal	0x1
021d e5f9       |    |		Load	0x2,-0x7
021e e001       |    |		Load	0x0,0x1
021f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0220 821c       |    |		Call	0x1,0x1c
0221 4800       |H   |		Short_Literal	0x0
0222 e002       |    |		Load	0x0,0x2
0223 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0224 c407       |    |		Store	0x2,0x7
0225 8412       |    |		Call	0x2,0x12
0226 e407       |    |		Load	0x2,0x7
0227 e002       |    |		Load	0x0,0x2
0228 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0229 c407       |    |		Store	0x2,0x7
022a 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
022b e402       |    |		Load	0x2,0x2
022c 0f0b       |    |		Execute_Immediate	Equal,0xb
022d 6803       |h   |		Jump_Zero	0x231
022e 4801       |H   |		Short_Literal	0x1
022f 8413       |    |		Call	0x2,0x13
0230 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0231 e402       |    |		Load	0x2,0x2
0232 0f0c       |    |		Execute_Immediate	Equal,0xc
0233 6802       |h   |		Jump_Zero	0x236
0234 8414       |    |		Call	0x2,0x14
0235 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0236 e402       |    |		Load	0x2,0x2
0237 0f0d       |    |		Execute_Immediate	Equal,0xd
0238 6802       |h   |		Jump_Zero	0x23b
0239 4802       |H   |		Short_Literal	0x2
023a 8413       |    |		Call	0x2,0x13
023b 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
023c 0000 0000  |    |		.BLANK	0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0246       | F  |		.CONST	0x0246								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 e001       |    |		Load	0x0,0x1
0245 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0246			BODY_0240:
0246 00db       |    |		Load_Top	At_Offset_3
0247 e001       |    |		Load	0x0,0x1
0248 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0249 0f0a       |    |		Execute_Immediate	Equal,0xa
024a 680f       |h   |		Jump_Zero	0x25a
024b 00cf       |    |		Action	Mark_Auxiliary
024c 4802       |H   |		Short_Literal	0x2
024d 4801       |H   |		Short_Literal	0x1
024e 0007       |    |		Action	Break_Optional
024f 00d8       |    |		Load_Top	At_Offset_0
0250 e402       |    |		Load	0x2,0x2
0251 01d7       |    |		Execute	Vector,Field_Read
0252 8219       |    |		Call	0x1,0x19
0253 6802       |h   |		Jump_Zero	0x256
0254 00d8       |    |		Load_Top	At_Offset_0
0255 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0256 00c8       |    |		Action	Pop_Auxiliary_Range
0257 3ff7       |?   |		Loop_Increasing	0x24f
0258 00ce       |    |		Action	Pop_Auxiliary
0259 7817       |x   |		Jump	0x271
025a 00cf       |    |		Action	Mark_Auxiliary
025b 00d9       |    |		Load_Top	At_Offset_1
025c 01dc       |    |		Execute	Vector,Last
025d 4802       |H   |		Short_Literal	0x2
025e 0263       | c  |		Execute	Discrete,Above_Bound
025f 7009       |p   |		Jump_Nonzero	0x269
0260 00d8       |    |		Load_Top	At_Offset_0
0261 e402       |    |		Load	0x2,0x2
0262 01d7       |    |		Execute	Vector,Field_Read
0263 8219       |    |		Call	0x1,0x19
0264 6802       |h   |		Jump_Zero	0x267
0265 00d8       |    |		Load_Top	At_Offset_0
0266 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0267 00c8       |    |		Action	Pop_Auxiliary_Range
0268 3ff7       |?   |		Loop_Increasing	0x260
0269 00ce       |    |		Action	Pop_Auxiliary
026a 4801       |H   |		Short_Literal	0x1
026b 00d9       |    |		Load_Top	At_Offset_1
026c 01d7       |    |		Execute	Vector,Field_Read
026d 8219       |    |		Call	0x1,0x19
026e 6802       |h   |		Jump_Zero	0x271
026f 4801       |H   |		Short_Literal	0x1
0270 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0271 4800       |H   |		Short_Literal	0x0
0272 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0273 0000 0000  |    |		.BLANK	0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e       | ~  |		.CONST	0x027e								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c e001       |    |		Load	0x0,0x1
027d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
027e			BODY_0278:
027e 00db       |    |		Load_Top	At_Offset_3
027f e001       |    |		Load	0x0,0x1
0280 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0281 0f0b       |    |		Execute_Immediate	Equal,0xb
0282 680f       |h   |		Jump_Zero	0x292
0283 00cf       |    |		Action	Mark_Auxiliary
0284 4801       |H   |		Short_Literal	0x1
0285 4802       |H   |		Short_Literal	0x2
0286 0007       |    |		Action	Break_Optional
0287 00d8       |    |		Load_Top	At_Offset_0
0288 e402       |    |		Load	0x2,0x2
0289 01d7       |    |		Execute	Vector,Field_Read
028a 8219       |    |		Call	0x1,0x19
028b 6802       |h   |		Jump_Zero	0x28e
028c 00d8       |    |		Load_Top	At_Offset_0
028d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028e 00c8       |    |		Action	Pop_Auxiliary_Range
028f 37f7       |7   |		Loop_Decreasing	0x287
0290 00ce       |    |		Action	Pop_Auxiliary
0291 7817       |x   |		Jump	0x2a9
0292 4801       |H   |		Short_Literal	0x1
0293 00d9       |    |		Load_Top	At_Offset_1
0294 01d7       |    |		Execute	Vector,Field_Read
0295 8219       |    |		Call	0x1,0x19
0296 6802       |h   |		Jump_Zero	0x299
0297 4801       |H   |		Short_Literal	0x1
0298 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0299 00cf       |    |		Action	Mark_Auxiliary
029a 00d9       |    |		Load_Top	At_Offset_1
029b 01dc       |    |		Execute	Vector,Last
029c 4802       |H   |		Short_Literal	0x2
029d 0263       | c  |		Execute	Discrete,Above_Bound
029e 7009       |p   |		Jump_Nonzero	0x2a8
029f 00d8       |    |		Load_Top	At_Offset_0
02a0 e402       |    |		Load	0x2,0x2
02a1 01d7       |    |		Execute	Vector,Field_Read
02a2 8219       |    |		Call	0x1,0x19
02a3 6802       |h   |		Jump_Zero	0x2a6
02a4 00d8       |    |		Load_Top	At_Offset_0
02a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a6 00c8       |    |		Action	Pop_Auxiliary_Range
02a7 3ff7       |?   |		Loop_Increasing	0x29f
02a8 00ce       |    |		Action	Pop_Auxiliary
02a9 4800       |H   |		Short_Literal	0x0
02aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ab 0000 0000  |    |		.BLANK	0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 e013       |    |		Load	0x0,0x13
02b5 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02b6 0f0f       |    |		Execute_Immediate	Equal,0xf
02b7 6808       |h   |		Jump_Zero	0x2c0
02b8 00da       |    |		Load_Top	At_Offset_2
02b9 e024       | $  |		Load	0x0,0x24
02ba 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02bb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02bc e024       | $  |		Load	0x0,0x24
02bd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02be 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
02bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c0 4800       |H   |		Short_Literal	0x0
02c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc e024       | $  |		Load	0x0,0x24
02cd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02ce 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
02cf e024       | $  |		Load	0x0,0x24
02d0 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02d1 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02d2 00db       |    |		Load_Top	At_Offset_3
02d3 e024       | $  |		Load	0x0,0x24
02d4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02d5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02d6 01cc       |    |		Execute	Vector,Catenate
02d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02df       |    |		.CONST	0x02df								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0003       |    |		.CONST	0x0003								; Number of locals
02db			INIT_02d8:
02db e024       | $  |		Load	0x0,0x24
02dc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02de 00e3       |    |		Load_Encached	Natural_Cache
02df			BODY_02d8:
02df e5ff       |    |		Load	0x2,-0x1
02e0 8217       |    |		Call	0x1,0x17
02e1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 681d       |h   |		Jump_Zero	0x301
02e4 00d8       |    |		Load_Top	At_Offset_0
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 e001       |    |		Load	0x0,0x1
02e7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02e8 e024       | $  |		Load	0x0,0x24
02e9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02ea 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02eb 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
02ec 00d9       |    |		Load_Top	At_Offset_1
02ed e024       | $  |		Load	0x0,0x24
02ee 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02ef 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
02f0 e024       | $  |		Load	0x0,0x24
02f1 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02f2 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
02f3 6805       |h   |		Jump_Zero	0x2f9
02f4 00d9       |    |		Load_Top	At_Offset_1
02f5 e024       | $  |		Load	0x0,0x24
02f6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02f7 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
02f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f9 00d9       |    |		Load_Top	At_Offset_1
02fa e024       | $  |		Load	0x0,0x24
02fb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02fc 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
02fd e024       | $  |		Load	0x0,0x24
02fe 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02ff 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0300 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0301 00ea       |    |		Load_Encached	Null_String_Cache
0302 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030e       |    |		.CONST	0x030e								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b e024       | $  |		Load	0x0,0x24
030c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
030d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030e			BODY_0308:
030e 00db       |    |		Load_Top	At_Offset_3
030f e013       |    |		Load	0x0,0x13
0310 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0311 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
0312 7004       |p   |		Jump_Nonzero	0x317
0313 0f01       |    |		Execute_Immediate	Equal,0x1
0314 7015       |p   |		Jump_Nonzero	0x32a
0315 e016       |    |		Load	0x0,0x16
0316 0257       | W  |		Execute	Discrete,Raise
0317 00d1       |    |		Pop_Control	Pop_Count_1
0318 00db       |    |		Load_Top	At_Offset_3
0319 e024       | $  |		Load	0x0,0x24
031a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
031b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
031c 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
031d 00d8       |    |		Load_Top	At_Offset_0
031e e024       | $  |		Load	0x0,0x24
031f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0320 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0321 6805       |h   |		Jump_Zero	0x327
0322 00d8       |    |		Load_Top	At_Offset_0
0323 e024       | $  |		Load	0x0,0x24
0324 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0325 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0326 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0327 00d8       |    |		Load_Top	At_Offset_0
0328 821a       |    |		Call	0x1,0x1a
0329 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032a 00db       |    |		Load_Top	At_Offset_3
032b e013       |    |		Load	0x0,0x13
032c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
032d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 033d       | =  |		.CONST	0x033d								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0004       |    |		.CONST	0x0004								; Number of locals
0333			INIT_0330:
0333 e024       | $  |		Load	0x0,0x24
0334 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0335 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0336 00db       |    |		Load_Top	At_Offset_3
0337 e001       |    |		Load	0x0,0x1
0338 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0339 e007       |    |		Load	0x0,0x7
033a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
033b 03f1       |    |		Declare_Variable	Discrete,With_Value
033c 00e3       |    |		Load_Encached	Natural_Cache
033d			BODY_0330:
033d e5ff       |    |		Load	0x2,-0x1
033e 8218       |    |		Call	0x1,0x18
033f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0340 00d8       |    |		Load_Top	At_Offset_0
0341 6820       |h   |		Jump_Zero	0x362
0342 00d8       |    |		Load_Top	At_Offset_0
0343 e5ff       |    |		Load	0x2,-0x1
0344 e001       |    |		Load	0x0,0x1
0345 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0346 e024       | $  |		Load	0x0,0x24
0347 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0348 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0349 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
034a 00d9       |    |		Load_Top	At_Offset_1
034b 00db       |    |		Load_Top	At_Offset_3
034c e024       | $  |		Load	0x0,0x24
034d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
034e 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
034f e024       | $  |		Load	0x0,0x24
0350 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0351 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
0352 6806       |h   |		Jump_Zero	0x359
0353 00d9       |    |		Load_Top	At_Offset_1
0354 00db       |    |		Load_Top	At_Offset_3
0355 e024       | $  |		Load	0x0,0x24
0356 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0357 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0358 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0359 00d9       |    |		Load_Top	At_Offset_1
035a 00db       |    |		Load_Top	At_Offset_3
035b e024       | $  |		Load	0x0,0x24
035c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
035d 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
035e e024       | $  |		Load	0x0,0x24
035f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0360 1873       | s  |		Execute	Package,Field_Execute,Field_Number 0x73
0361 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0362 00ea       |    |		Load_Encached	Null_String_Cache
0363 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0373       | s  |		.CONST	0x0373								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0003       |    |		.CONST	0x0003								; Number of locals
036b			INIT_0368:
036b e018       |    |		Load	0x0,0x18
036c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
036d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
036e e018       |    |		Load	0x0,0x18
036f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0370 02c7       |    |		Declare_Variable	Any
0371 00d8       |    |		Load_Top	At_Offset_0
0372 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0373			BODY_0368:
0373 e018       |    |		Load	0x0,0x18
0374 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0375 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0376 00d9       |    |		Load_Top	At_Offset_1
0377 0120       |    |		Execute	Any,Is_Value
0378 6803       |h   |		Jump_Zero	0x37c
0379 e018       |    |		Load	0x0,0x18
037a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
037b 7801       |x   |		Jump	0x37d
037c 00d9       |    |		Load_Top	At_Offset_1
037d 6062       |`b  |		Indirect_Literal	Discrete,0x3e0,{0x00000000, 0x00004000}
037e e017       |    |		Load	0x0,0x17
037f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0380 e02b       | +  |		Load	0x0,0x2b
0381 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0382 e018       |    |		Load	0x0,0x18
0383 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0384 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0385 e5ff       |    |		Load	0x2,-0x1
0386 e018       |    |		Load	0x0,0x18
0387 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0388 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0389 c403       |    |		Store	0x2,0x3
038a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
038b 00d9       |    |		Load_Top	At_Offset_1
038c 460e       |F   |		Jump_Case	0xf
038d 7828       |x(  |		Jump	0x3b6								; case 0x0
038e 780d       |x   |		Jump	0x39c								; case 0x1
038f 780c       |x   |		Jump	0x39c								; case 0x2
0390 783b       |x;  |		Jump	0x3cc								; case 0x3
0391 780a       |x   |		Jump	0x39c								; case 0x4
0392 7809       |x   |		Jump	0x39c								; case 0x5
0393 7808       |x   |		Jump	0x39c								; case 0x6
0394 7807       |x   |		Jump	0x39c								; case 0x7
0395 7806       |x   |		Jump	0x39c								; case 0x8
0396 7805       |x   |		Jump	0x39c								; case 0x9
0397 7804       |x   |		Jump	0x39c								; case 0xa
0398 7803       |x   |		Jump	0x39c								; case 0xb
0399 7802       |x   |		Jump	0x39c								; case 0xc
039a 7801       |x   |		Jump	0x39c								; case 0xd
039b 7800       |x   |		Jump	0x39c								; case 0xe
039c e006       |    |		Load	0x0,0x6
039d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
039e 4801       |H   |		Short_Literal	0x1
039f 4802       |H   |		Short_Literal	0x2
03a0 e013       |    |		Load	0x0,0x13
03a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a2 035b       | [  |		Declare_Type	Array,Constrained
03a3 0337       | 7  |		Declare_Variable	Array
03a4 e5ff       |    |		Load	0x2,-0x1
03a5 e013       |    |		Load	0x0,0x13
03a6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a7 4801       |H   |		Short_Literal	0x1
03a8 00da       |    |		Load_Top	At_Offset_2
03a9 01d6       |    |		Execute	Vector,Field_Write
03aa e5ff       |    |		Load	0x2,-0x1
03ab e402       |    |		Load	0x2,0x2
03ac e013       |    |		Load	0x0,0x13
03ad 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03ae 4802       |H   |		Short_Literal	0x2
03af 00da       |    |		Load_Top	At_Offset_2
03b0 01d6       |    |		Execute	Vector,Field_Write
03b1 602a       |`*  |		Indirect_Literal	Discrete,0x3dc,{0x00000000, 0x0000401a}
03b2 e006       |    |		Load	0x0,0x6
03b3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03b4 c5fd       |    |		Store	0x2,-0x3
03b5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b6 e5fe       |    |		Load	0x2,-0x2
03b7 e002       |    |		Load	0x0,0x2
03b8 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03b9 6806       |h   |		Jump_Zero	0x3c0
03ba e5fe       |    |		Load	0x2,-0x2
03bb 4801       |H   |		Short_Literal	0x1
03bc e002       |    |		Load	0x0,0x2
03bd 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03be c5fe       |    |		Store	0x2,-0x2
03bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c0 e5fe       |    |		Load	0x2,-0x2
03c1 e017       |    |		Load	0x0,0x17
03c2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c3 e018       |    |		Load	0x0,0x18
03c4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
03c5 00ea       |    |		Load_Encached	Null_String_Cache
03c6 e5ff       |    |		Load	0x2,-0x1
03c7 4801       |H   |		Short_Literal	0x1
03c8 e002       |    |		Load	0x0,0x2
03c9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03ca c5fe       |    |		Store	0x2,-0x2
03cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03cc e5fe       |    |		Load	0x2,-0x2
03cd e017       |    |		Load	0x0,0x17
03ce 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03cf e018       |    |		Load	0x0,0x18
03d0 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03d1 e018       |    |		Load	0x0,0x18
03d2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
03d3 00ea       |    |		Load_Encached	Null_String_Cache
03d4 e5ff       |    |		Load	0x2,-0x1
03d5 4801       |H   |		Short_Literal	0x1
03d6 e002       |    |		Load	0x0,0x2
03d7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03d8 c5fe       |    |		Store	0x2,-0x2
03d9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03da 0000 0000  |    |		.XXX[0x2]
03dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000401a}
03e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f3       |    |		.CONST	0x03f3								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0003       |    |		.CONST	0x0003								; Number of locals
03eb			INIT_03e8:
03eb 0092 17e1  |    |		Action	Push_String_Extended,0x17e1					; "!Machine.Temporary.Downloader_Temp_D"
03ed 4800       |H   |		Short_Literal	0x0
03ee 4803       |H   |		Short_Literal	0x3
03ef 4804       |H   |		Short_Literal	0x4
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 e009       |    |		Load	0x0,0x9
03f2 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03f3			BODY_03e8:
03f3 00d9       |    |		Load_Top	At_Offset_1
03f4 00d9       |    |		Load_Top	At_Offset_1
03f5 01cc       |    |		Execute	Vector,Catenate
03f6 e5fe       |    |		Load	0x2,-0x2
03f7 01cc       |    |		Execute	Vector,Catenate
03f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f9 0000 0000  |    |		.BLANK	0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0415       |    |		.CONST	0x0415								; Address of begin
0401 0493       |    |		.CONST	0x0493								; Address of exception handler
0402 0006       |    |		.CONST	0x0006								; Number of locals
0403			INIT_0400:
0403 e018       |    |		Load	0x0,0x18
0404 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0405 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0406 e018       |    |		Load	0x0,0x18
0407 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0408 02c7       |    |		Declare_Variable	Any
0409 00d8       |    |		Load_Top	At_Offset_0
040a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
040b e5ff       |    |		Load	0x2,-0x1
040c e018       |    |		Load	0x0,0x18
040d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
040e 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
040f e5ff       |    |		Load	0x2,-0x1
0410 e018       |    |		Load	0x0,0x18
0411 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0412 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0413 029f 0703  |    |		Declare_Subprogram	INIT_0700,For_Call
0415			BODY_0400:
0415 00da       |    |		Load_Top	At_Offset_2
0416 01db       |    |		Execute	Vector,Length
0417 702c       |p,  |		Jump_Nonzero	0x444
0418 e018       |    |		Load	0x0,0x18
0419 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
041a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
041b e403       |    |		Load	0x2,0x3
041c 0120       |    |		Execute	Any,Is_Value
041d 6803       |h   |		Jump_Zero	0x421
041e e018       |    |		Load	0x0,0x18
041f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0420 7801       |x   |		Jump	0x422
0421 e403       |    |		Load	0x2,0x3
0422 6081       |`   |		Indirect_Literal	Discrete,0x4a4,{0x00000000, 0x00004000}
0423 e017       |    |		Load	0x0,0x17
0424 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0425 e02b       | +  |		Load	0x0,0x2b
0426 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0427 e018       |    |		Load	0x0,0x18
0428 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0429 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
042a 0092 17e2  |    |		Action	Push_String_Extended,0x17e2					; "$"
042c e018       |    |		Load	0x0,0x18
042d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
042e 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
042f c403       |    |		Store	0x2,0x3
0430 c402       |    |		Store	0x2,0x2
0431 4801       |H   |		Short_Literal	0x1
0432 4801       |H   |		Short_Literal	0x1
0433 e013       |    |		Load	0x0,0x13
0434 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0435 035b       | [  |		Declare_Type	Array,Constrained
0436 0337       | 7  |		Declare_Variable	Array
0437 e5ff       |    |		Load	0x2,-0x1
0438 e013       |    |		Load	0x0,0x13
0439 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
043a 4801       |H   |		Short_Literal	0x1
043b 00da       |    |		Load_Top	At_Offset_2
043c 01d6       |    |		Execute	Vector,Field_Write
043d 0092 17e2  |    |		Action	Push_String_Extended,0x17e2					; "$"
043f 6060       |``  |		Indirect_Literal	Discrete,0x4a0,{0x00000000, 0x00004009}
0440 e402       |    |		Load	0x2,0x2
0441 e006       |    |		Load	0x0,0x6
0442 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0443 7829       |x)  |		Jump	0x46d
0444 e018       |    |		Load	0x0,0x18
0445 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0446 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0447 e403       |    |		Load	0x2,0x3
0448 0120       |    |		Execute	Any,Is_Value
0449 6803       |h   |		Jump_Zero	0x44d
044a e018       |    |		Load	0x0,0x18
044b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
044c 7801       |x   |		Jump	0x44e
044d e403       |    |		Load	0x2,0x3
044e 6055       |`U  |		Indirect_Literal	Discrete,0x4a4,{0x00000000, 0x00004000}
044f e017       |    |		Load	0x0,0x17
0450 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0451 e02b       | +  |		Load	0x0,0x2b
0452 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0453 e018       |    |		Load	0x0,0x18
0454 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0455 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0456 e404       |    |		Load	0x2,0x4
0457 e018       |    |		Load	0x0,0x18
0458 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0459 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
045a c403       |    |		Store	0x2,0x3
045b c402       |    |		Store	0x2,0x2
045c 4801       |H   |		Short_Literal	0x1
045d 4801       |H   |		Short_Literal	0x1
045e e013       |    |		Load	0x0,0x13
045f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0460 035b       | [  |		Declare_Type	Array,Constrained
0461 0337       | 7  |		Declare_Variable	Array
0462 e5ff       |    |		Load	0x2,-0x1
0463 e013       |    |		Load	0x0,0x13
0464 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0465 4801       |H   |		Short_Literal	0x1
0466 00da       |    |		Load_Top	At_Offset_2
0467 01d6       |    |		Execute	Vector,Field_Write
0468 00db       |    |		Load_Top	At_Offset_3
0469 6036       |`6  |		Indirect_Literal	Discrete,0x4a0,{0x00000000, 0x00004009}
046a e402       |    |		Load	0x2,0x2
046b e006       |    |		Load	0x0,0x6
046c 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
046d e5fe       |    |		Load	0x2,-0x2
046e e018       |    |		Load	0x0,0x18
046f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0470 027f       |    |		Execute	Discrete,Equal
0471 701f       |p   |		Jump_Nonzero	0x491
0472 00db       |    |		Load_Top	At_Offset_3
0473 e018       |    |		Load	0x0,0x18
0474 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0475 e5fe       |    |		Load	0x2,-0x2
0476 027f       |    |		Execute	Discrete,Equal
0477 7019       |p   |		Jump_Nonzero	0x491
0478 e015       |    |		Load	0x0,0x15
0479 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
047a 4801       |H   |		Short_Literal	0x1
047b 4802       |H   |		Short_Literal	0x2
047c e013       |    |		Load	0x0,0x13
047d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
047e 035b       | [  |		Declare_Type	Array,Constrained
047f 0337       | 7  |		Declare_Variable	Array
0480 e5ff       |    |		Load	0x2,-0x1
0481 e013       |    |		Load	0x0,0x13
0482 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0483 4801       |H   |		Short_Literal	0x1
0484 00da       |    |		Load_Top	At_Offset_2
0485 01d6       |    |		Execute	Vector,Field_Write
0486 e5fe       |    |		Load	0x2,-0x2
0487 e013       |    |		Load	0x0,0x13
0488 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0489 4802       |H   |		Short_Literal	0x2
048a 00da       |    |		Load_Top	At_Offset_2
048b 01d6       |    |		Execute	Vector,Field_Write
048c 600f       |`   |		Indirect_Literal	Discrete,0x49c,{0x00000000, 0x00004004}
048d e006       |    |		Load	0x0,0x6
048e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
048f e01d       |    |		Load	0x0,0x1d
0490 0257       | W  |		Execute	Discrete,Raise
0491 8406       |    |		Call	0x2,0x6
0492 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0493			TRAP_0400:
0493 e006       |    |		Load	0x0,0x6
0494 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0495 010f       |    |		Execute	Exception,Equal
0496 6804       |h   |		Jump_Zero	0x49b
0497 e006       |    |		Load	0x0,0x6
0498 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0499 a5fc       |    |		Store_Unchecked	0x2,-0x4
049a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
049b 0100       |    |		Execute	Exception,Raise
049c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004004}
04a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004009}
04a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab e408       |    |		Load	0x2,0x8
04ac e001       |    |		Load	0x0,0x1
04ad 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04ae a406       |    |		Store_Unchecked	0x2,0x6
04af e406       |    |		Load	0x2,0x6
04b0 e216       |    |		Load	0x1,0x16
04b1 0260       | `  |		Execute	Discrete,In_Type
04b2 7003       |p   |		Jump_Nonzero	0x4b6
04b3 e406       |    |		Load	0x2,0x6
04b4 0f07       |    |		Execute_Immediate	Equal,0x7
04b5 6828       |h(  |		Jump_Zero	0x4de
04b6 e406       |    |		Load	0x2,0x6
04b7 0f07       |    |		Execute_Immediate	Equal,0x7
04b8 6806       |h   |		Jump_Zero	0x4bf
04b9 e408       |    |		Load	0x2,0x8
04ba e5f9       |    |		Load	0x2,-0x7
04bb e5fa       |    |		Load	0x2,-0x6
04bc 0119       |    |		Execute	Any,Check_In_Formal_Type
04bd 85fc       |    |		Call	0x2,-0x4
04be 7806       |x   |		Jump	0x4c5
04bf e5f7       |    |		Load	0x2,-0x9
04c0 e408       |    |		Load	0x2,0x8
04c1 e5f9       |    |		Load	0x2,-0x7
04c2 e5fa       |    |		Load	0x2,-0x6
04c3 0119       |    |		Execute	Any,Check_In_Formal_Type
04c4 85fd       |    |		Call	0x2,-0x3
04c5 e408       |    |		Load	0x2,0x8
04c6 e001       |    |		Load	0x0,0x1
04c7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04c8 a403       |    |		Store_Unchecked	0x2,0x3
04c9 4800       |H   |		Short_Literal	0x0
04ca e403       |    |		Load	0x2,0x3
04cb e006       |    |		Load	0x0,0x6
04cc 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
04cd 6807       |h   |		Jump_Zero	0x4d5
04ce e403       |    |		Load	0x2,0x3
04cf e408       |    |		Load	0x2,0x8
04d0 e5f9       |    |		Load	0x2,-0x7
04d1 e5fa       |    |		Load	0x2,-0x6
04d2 0119       |    |		Execute	Any,Check_In_Formal_Type
04d3 85fe       |    |		Call	0x2,-0x2
04d4 c403       |    |		Store	0x2,0x3
04d5 4800       |H   |		Short_Literal	0x0
04d6 e403       |    |		Load	0x2,0x3
04d7 e006       |    |		Load	0x0,0x6
04d8 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
04d9 7004       |p   |		Jump_Nonzero	0x4de
04da e403       |    |		Load	0x2,0x3
04db e5f8       |    |		Load	0x2,-0x8
04dc e001       |    |		Load	0x0,0x1
04dd 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
04de 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04df 0000       |    |		.XXX[0x1]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e6       |    |		.CONST	0x04e6								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0002       |    |		.CONST	0x0002								; Number of locals
04e3			INIT_04e0:
04e3 e408       |    |		Load	0x2,0x8
04e4 e001       |    |		Load	0x0,0x1
04e5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04e6			BODY_04e0:
04e6 00cf       |    |		Action	Mark_Auxiliary
04e7 00d9       |    |		Load_Top	At_Offset_1
04e8 01dc       |    |		Execute	Vector,Last
04e9 4802       |H   |		Short_Literal	0x2
04ea 0263       | c  |		Execute	Discrete,Above_Bound
04eb 7023       |p#  |		Jump_Nonzero	0x50f
04ec 00d8       |    |		Load_Top	At_Offset_0
04ed e602       |    |		Load	0x3,0x2
04ee 01d7       |    |		Execute	Vector,Field_Read
04ef e024       | $  |		Load	0x0,0x24
04f0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04f1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04f2 a404       |    |		Store_Unchecked	0x2,0x4
04f3 e404       |    |		Load	0x2,0x4
04f4 e024       | $  |		Load	0x0,0x24
04f5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04f6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04f7 7015       |p   |		Jump_Nonzero	0x50d
04f8 e403       |    |		Load	0x2,0x3
04f9 e408       |    |		Load	0x2,0x8
04fa e001       |    |		Load	0x0,0x1
04fb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04fc 4801       |H   |		Short_Literal	0x1
04fd e404       |    |		Load	0x2,0x4
04fe e024       | $  |		Load	0x0,0x24
04ff 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0500 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0501 c403       |    |		Store	0x2,0x3
0502 4800       |H   |		Short_Literal	0x0
0503 e403       |    |		Load	0x2,0x3
0504 e006       |    |		Load	0x0,0x6
0505 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0506 7006       |p   |		Jump_Nonzero	0x50d
0507 e403       |    |		Load	0x2,0x3
0508 e5f8       |    |		Load	0x2,-0x8
0509 e001       |    |		Load	0x0,0x1
050a 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
050b 00cc       |    |		Action	Pop_Block
050c 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
050d 00c8       |    |		Action	Pop_Auxiliary_Range
050e 3fdd       |?   |		Loop_Increasing	0x4ec
050f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 e408       |    |		Load	0x2,0x8
0514 e409       |    |		Load	0x2,0x9
0515 027d       | }  |		Execute	Discrete,Greater
0516 6805       |h   |		Jump_Zero	0x51c
0517 00da       |    |		Load_Top	At_Offset_2
0518 e5fa       |    |		Load	0x2,-0x6
0519 0119       |    |		Execute	Any,Check_In_Formal_Type
051a 85fd       |    |		Call	0x2,-0x3
051b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
051c 4800       |H   |		Short_Literal	0x0
051d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
051e 0000 0000  |    |		.XXX[0x2]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 e402       |    |		Load	0x2,0x2
0524 0f0a       |    |		Execute_Immediate	Equal,0xa
0525 7003       |p   |		Jump_Nonzero	0x529
0526 e402       |    |		Load	0x2,0x2
0527 0f0c       |    |		Execute_Immediate	Equal,0xc
0528 6808       |h   |		Jump_Zero	0x531
0529 0092 17e3  |    |		Action	Push_String_Extended,0x17e3					; "--/<error> "
052b e7fe       |    |		Load	0x3,-0x2
052c 01cc       |    |		Execute	Vector,Catenate
052d 00db       |    |		Load_Top	At_Offset_3
052e e5fa       |    |		Load	0x2,-0x6
052f 0119       |    |		Execute	Any,Check_In_Formal_Type
0530 85fc       |    |		Call	0x2,-0x4
0531 e006       |    |		Load	0x0,0x6
0532 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0533 4801       |H   |		Short_Literal	0x1
0534 4802       |H   |		Short_Literal	0x2
0535 e013       |    |		Load	0x0,0x13
0536 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0537 035b       | [  |		Declare_Type	Array,Constrained
0538 0337       | 7  |		Declare_Variable	Array
0539 e7fe       |    |		Load	0x3,-0x2
053a e013       |    |		Load	0x0,0x13
053b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
053c 4801       |H   |		Short_Literal	0x1
053d 00da       |    |		Load_Top	At_Offset_2
053e 01d6       |    |		Execute	Vector,Field_Write
053f e7fd       |    |		Load	0x3,-0x3
0540 e013       |    |		Load	0x0,0x13
0541 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0542 4802       |H   |		Short_Literal	0x2
0543 00da       |    |		Load_Top	At_Offset_2
0544 01d6       |    |		Execute	Vector,Field_Write
0545 6006       |`   |		Indirect_Literal	Discrete,0x54c,{0x00000000, 0x00004010}
0546 e006       |    |		Load	0x0,0x6
0547 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0548 c403       |    |		Store	0x2,0x3
0549 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
054a 0000 0000  |    |		.XXX[0x2]
054c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004010}
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 00da       |    |		Load_Top	At_Offset_2
0554 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0555 e40c       |    |		Load	0x2,0xc
0556 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0557 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b       | [  |		.CONST	0x055b								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0001       |    |		.CONST	0x0001								; Number of locals
055b			BODY_0558:
055b			INIT_0558:
055b 00e1       |    |		Load_Encached	Boolean_Cache
055c 00e2       |    |		Load_Encached	Integer_Cache
055d e7fe       |    |		Load	0x3,-0x2
055e e7ff       |    |		Load	0x3,-0x1
055f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0560 e40c       |    |		Load	0x2,0xc
0561 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0562 00d1       |    |		Pop_Control	Pop_Count_1
0563 c7fd       |    |		Store	0x3,-0x3
0564 c7fc       |    |		Store	0x3,-0x4
0565 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0566 0000 0000  |    |		.XXX[0x2]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
056d 4800       |H   |		Short_Literal	0x0
056e e40c       |    |		Load	0x2,0xc
056f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0570 00db       |    |		Load_Top	At_Offset_3
0571 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0572 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0573 0000 0000  |    |		.BLANK	0000[0x5]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0581       |    |		.CONST	0x0581								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0004       |    |		.CONST	0x0004								; Number of locals
057b			INIT_0578:
057b e40c       |    |		Load	0x2,0xc
057c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
057d 029f 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Call
057f 029f 07bb  |    |		Declare_Subprogram	INIT_07b8,For_Call
0581			BODY_0578:
0581 e40c       |    |		Load	0x2,0xc
0582 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0583 e5f9       |    |		Load	0x2,-0x7
0584 821d       |    |		Call	0x1,0x1d
0585 e5f8       |    |		Load	0x2,-0x8
0586 e5fa       |    |		Load	0x2,-0x6
0587 0119       |    |		Execute	Any,Check_In_Formal_Type
0588 e40c       |    |		Load	0x2,0xc
0589 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
058a 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
058b 00cf       |    |		Action	Mark_Auxiliary
058c 7810       |x   |		Jump	0x59d
058d e407       |    |		Load	0x2,0x7
058e 8604       |    |		Call	0x3,0x4
058f e602       |    |		Load	0x3,0x2
0590 e40c       |    |		Load	0x2,0xc
0591 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0592 4800       |H   |		Short_Literal	0x0
0593 e403       |    |		Load	0x2,0x3
0594 e006       |    |		Load	0x0,0x6
0595 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0596 7005       |p   |		Jump_Nonzero	0x59c
0597 e403       |    |		Load	0x2,0x3
0598 e5f9       |    |		Load	0x2,-0x7
0599 e001       |    |		Load	0x0,0x1
059a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
059b 7804       |x   |		Jump	0x5a0
059c 00c9       |    |		Action	Pop_Auxiliary_Loop
059d e407       |    |		Load	0x2,0x7
059e 8603       |    |		Call	0x3,0x3
059f 6fed       |o   |		Jump_Zero	0x58d
05a0 00ce       |    |		Action	Pop_Auxiliary
05a1 0092 17e4  |    |		Action	Push_String_Extended,0x17e4					; "pragma End_Of_Input;"
05a3 00db       |    |		Load_Top	At_Offset_3
05a4 e40c       |    |		Load	0x2,0xc
05a5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
05a6 e5f8       |    |		Load	0x2,-0x8
05a7 0120       |    |		Execute	Any,Is_Value
05a8 6803       |h   |		Jump_Zero	0x5ac
05a9 e40c       |    |		Load	0x2,0xc
05aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ab 7803       |x   |		Jump	0x5af
05ac e5f8       |    |		Load	0x2,-0x8
05ad e5fa       |    |		Load	0x2,-0x6
05ae 0119       |    |		Execute	Any,Check_In_Formal_Type
05af 00db       |    |		Load_Top	At_Offset_3
05b0 e40c       |    |		Load	0x2,0xc
05b1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05b2 c602       |    |		Store	0x3,0x2
05b3 c5f8       |    |		Store	0x2,-0x8
05b4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05b5 0000 0000  |    |		.XXX[0x3]
05b7 0000       |    |
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05d7       |    |		.CONST	0x05d7								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 000a       |    |		.CONST	0x000a								; Number of locals
05bb			INIT_05b8:
05bb e013       |    |		Load	0x0,0x13
05bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05bd 00db       |    |		Load_Top	At_Offset_3
05be e5f9       |    |		Load	0x2,-0x7
05bf e001       |    |		Load	0x0,0x1
05c0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05c1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
05c2 00d8       |    |		Load_Top	At_Offset_0
05c3 821c       |    |		Call	0x1,0x1c
05c4 e024       | $  |		Load	0x0,0x24
05c5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c7 e40d       |    |		Load	0x2,0xd
05c8 0322       | "  |		Declare_Variable	Record
05c9 00e1       |    |		Load_Encached	Boolean_Cache
05ca 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05cb e018       |    |		Load	0x0,0x18
05cc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05cd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ce e018       |    |		Load	0x0,0x18
05cf 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05d0 02c7       |    |		Declare_Variable	Any
05d1 00d8       |    |		Load_Top	At_Offset_0
05d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05d3 029f 0803  |    |		Declare_Subprogram	INIT_0800,For_Call
05d5 029f 087b  |   {|		Declare_Subprogram	INIT_0878,For_Call
05d7			BODY_05b8:
05d7 e603       |    |		Load	0x3,0x3
05d8 01db       |    |		Execute	Vector,Length
05d9 686d       |hm  |		Jump_Zero	0x647
05da e018       |    |		Load	0x0,0x18
05db 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05dd 00db       |    |		Load_Top	At_Offset_3
05de 0120       |    |		Execute	Any,Is_Value
05df 6803       |h   |		Jump_Zero	0x5e3
05e0 e018       |    |		Load	0x0,0x18
05e1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05e2 7801       |x   |		Jump	0x5e4
05e3 00db       |    |		Load_Top	At_Offset_3
05e4 60eb       |`   |		Indirect_Literal	Discrete,0x6d0,{0x00000000, 0x00004000}
05e5 e017       |    |		Load	0x0,0x17
05e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05e7 e02b       | +  |		Load	0x0,0x2b
05e8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05e9 e018       |    |		Load	0x0,0x18
05ea 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05eb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05ec e603       |    |		Load	0x3,0x3
05ed e018       |    |		Load	0x0,0x18
05ee 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05ef 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
05f0 c608       |    |		Store	0x3,0x8
05f1 c607       |    |		Store	0x3,0x7
05f2 00db       |    |		Load_Top	At_Offset_3
05f3 460e       |F   |		Jump_Case	0xf
05f4 7828       |x(  |		Jump	0x61d								; case 0x0
05f5 780d       |x   |		Jump	0x603								; case 0x1
05f6 780c       |x   |		Jump	0x603								; case 0x2
05f7 7842       |xB  |		Jump	0x63a								; case 0x3
05f8 780a       |x   |		Jump	0x603								; case 0x4
05f9 7809       |x   |		Jump	0x603								; case 0x5
05fa 7808       |x   |		Jump	0x603								; case 0x6
05fb 7807       |x   |		Jump	0x603								; case 0x7
05fc 7806       |x   |		Jump	0x603								; case 0x8
05fd 7805       |x   |		Jump	0x603								; case 0x9
05fe 7804       |x   |		Jump	0x603								; case 0xa
05ff 7803       |x   |		Jump	0x603								; case 0xb
0600 7802       |x   |		Jump	0x603								; case 0xc
0601 7801       |x   |		Jump	0x603								; case 0xd
0602 7800       |x   |		Jump	0x603								; case 0xe
0603 e006       |    |		Load	0x0,0x6
0604 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0605 4801       |H   |		Short_Literal	0x1
0606 4802       |H   |		Short_Literal	0x2
0607 e013       |    |		Load	0x0,0x13
0608 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0609 035b       | [  |		Declare_Type	Array,Constrained
060a 0337       | 7  |		Declare_Variable	Array
060b e603       |    |		Load	0x3,0x3
060c e013       |    |		Load	0x0,0x13
060d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
060e 4801       |H   |		Short_Literal	0x1
060f 00da       |    |		Load_Top	At_Offset_2
0610 01d6       |    |		Execute	Vector,Field_Write
0611 e603       |    |		Load	0x3,0x3
0612 e607       |    |		Load	0x3,0x7
0613 e013       |    |		Load	0x0,0x13
0614 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0615 4802       |H   |		Short_Literal	0x2
0616 00da       |    |		Load_Top	At_Offset_2
0617 01d6       |    |		Execute	Vector,Field_Write
0618 60b3       |`   |		Indirect_Literal	Discrete,0x6cc,{0x00000000, 0x0000401a}
0619 e006       |    |		Load	0x0,0x6
061a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
061b c403       |    |		Store	0x2,0x3
061c 782a       |x*  |		Jump	0x647
061d 00da       |    |		Load_Top	At_Offset_2
061e e018       |    |		Load	0x0,0x18
061f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0620 e018       |    |		Load	0x0,0x18
0621 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0622 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0623 012f       | /  |		Execute	Any,Equal
0624 a606       |    |		Store_Unchecked	0x3,0x6
0625 e606       |    |		Load	0x3,0x6
0626 7020       |p   |		Jump_Nonzero	0x647
0627 e006       |    |		Load	0x0,0x6
0628 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0629 4801       |H   |		Short_Literal	0x1
062a 4801       |H   |		Short_Literal	0x1
062b e013       |    |		Load	0x0,0x13
062c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
062d 035b       | [  |		Declare_Type	Array,Constrained
062e 0337       | 7  |		Declare_Variable	Array
062f e603       |    |		Load	0x3,0x3
0630 e013       |    |		Load	0x0,0x13
0631 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0632 4801       |H   |		Short_Literal	0x1
0633 00da       |    |		Load_Top	At_Offset_2
0634 01d6       |    |		Execute	Vector,Field_Write
0635 6092       |`   |		Indirect_Literal	Discrete,0x6c8,{0x00000000, 0x0000401d}
0636 e006       |    |		Load	0x0,0x6
0637 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0638 c403       |    |		Store	0x2,0x3
0639 780d       |x   |		Jump	0x647
063a e407       |    |		Load	0x2,0x7
063b e017       |    |		Load	0x0,0x17
063c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
063d e018       |    |		Load	0x0,0x18
063e 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
063f e018       |    |		Load	0x0,0x18
0640 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0641 00ea       |    |		Load_Encached	Null_String_Cache
0642 e603       |    |		Load	0x3,0x3
0643 4801       |H   |		Short_Literal	0x1
0644 e002       |    |		Load	0x0,0x2
0645 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0646 c407       |    |		Store	0x2,0x7
0647 e40c       |    |		Load	0x2,0xc
0648 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0649 e5f9       |    |		Load	0x2,-0x7
064a 821b       |    |		Call	0x1,0x1b
064b e5f8       |    |		Load	0x2,-0x8
064c e5fa       |    |		Load	0x2,-0x6
064d 0119       |    |		Execute	Any,Check_In_Formal_Type
064e e40c       |    |		Load	0x2,0xc
064f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0650 e605       |    |		Load	0x3,0x5
0651 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0652 e606       |    |		Load	0x3,0x6
0653 7003       |p   |		Jump_Nonzero	0x657
0654 e603       |    |		Load	0x3,0x3
0655 01db       |    |		Execute	Vector,Length
0656 7028       |p(  |		Jump_Nonzero	0x67f
0657 e606       |    |		Load	0x3,0x6
0658 7015       |p   |		Jump_Nonzero	0x66e
0659 e7ff       |    |		Load	0x3,-0x1
065a 0f01       |    |		Execute_Immediate	Equal,0x1
065b 6809       |h   |		Jump_Zero	0x665
065c 4802       |H   |		Short_Literal	0x2
065d e5f9       |    |		Load	0x2,-0x7
065e e001       |    |		Load	0x0,0x1
065f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0660 e024       | $  |		Load	0x0,0x24
0661 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0662 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0663 a604       |    |		Store_Unchecked	0x3,0x4
0664 780e       |x   |		Jump	0x673
0665 4801       |H   |		Short_Literal	0x1
0666 e5f9       |    |		Load	0x2,-0x7
0667 e001       |    |		Load	0x0,0x1
0668 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0669 e024       | $  |		Load	0x0,0x24
066a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
066b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
066c a604       |    |		Store_Unchecked	0x3,0x4
066d 7805       |x   |		Jump	0x673
066e e602       |    |		Load	0x3,0x2
066f e024       | $  |		Load	0x0,0x24
0670 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0671 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0672 a604       |    |		Store_Unchecked	0x3,0x4
0673 e604       |    |		Load	0x3,0x4
0674 e024       | $  |		Load	0x0,0x24
0675 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0676 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0677 6805       |h   |		Jump_Zero	0x67d
0678 e604       |    |		Load	0x3,0x4
0679 e024       | $  |		Load	0x0,0x24
067a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
067b 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
067c a604       |    |		Store_Unchecked	0x3,0x4
067d 8609       |    |		Call	0x3,0x9
067e 7832       |x2  |		Jump	0x6b1
067f e402       |    |		Load	0x2,0x2
0680 0f0b       |    |		Execute_Immediate	Equal,0xb
0681 681d       |h   |		Jump_Zero	0x69f
0682 e605       |    |		Load	0x3,0x5
0683 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0684 e40c       |    |		Load	0x2,0xc
0685 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0686 700a       |p   |		Jump_Nonzero	0x691
0687 4800       |H   |		Short_Literal	0x0
0688 e403       |    |		Load	0x2,0x3
0689 e006       |    |		Load	0x0,0x6
068a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
068b 6805       |h   |		Jump_Zero	0x691
068c 00cf       |    |		Action	Mark_Auxiliary
068d 860a       |    |		Call	0x3,0xa
068e 00c9       |    |		Action	Pop_Auxiliary_Loop
068f 7ffd       |    |		Jump	0x68d
0690 00ce       |    |		Action	Pop_Auxiliary
0691 4800       |H   |		Short_Literal	0x0
0692 e403       |    |		Load	0x2,0x3
0693 e006       |    |		Load	0x0,0x6
0694 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0695 7004       |p   |		Jump_Nonzero	0x69a
0696 e403       |    |		Load	0x2,0x3
0697 e5f9       |    |		Load	0x2,-0x7
0698 e001       |    |		Load	0x0,0x1
0699 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
069a e407       |    |		Load	0x2,0x7
069b e002       |    |		Load	0x0,0x2
069c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
069d c407       |    |		Store	0x2,0x7
069e 7812       |x   |		Jump	0x6b1
069f e006       |    |		Load	0x0,0x6
06a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a1 4801       |H   |		Short_Literal	0x1
06a2 4801       |H   |		Short_Literal	0x1
06a3 e013       |    |		Load	0x0,0x13
06a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06a5 035b       | [  |		Declare_Type	Array,Constrained
06a6 0337       | 7  |		Declare_Variable	Array
06a7 e5f9       |    |		Load	0x2,-0x7
06a8 e001       |    |		Load	0x0,0x1
06a9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06aa 4801       |H   |		Short_Literal	0x1
06ab 00da       |    |		Load_Top	At_Offset_2
06ac 01d6       |    |		Execute	Vector,Field_Write
06ad 6016       |`   |		Indirect_Literal	Discrete,0x6c4,{0x00000000, 0x0000401b}
06ae e006       |    |		Load	0x0,0x6
06af 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
06b0 c403       |    |		Store	0x2,0x3
06b1 e5f8       |    |		Load	0x2,-0x8
06b2 0120       |    |		Execute	Any,Is_Value
06b3 6803       |h   |		Jump_Zero	0x6b7
06b4 e40c       |    |		Load	0x2,0xc
06b5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06b6 7803       |x   |		Jump	0x6ba
06b7 e5f8       |    |		Load	0x2,-0x8
06b8 e5fa       |    |		Load	0x2,-0x6
06b9 0119       |    |		Execute	Any,Check_In_Formal_Type
06ba e605       |    |		Load	0x3,0x5
06bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06bc e40c       |    |		Load	0x2,0xc
06bd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06be e605       |    |		Load	0x3,0x5
06bf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06c0 c5f8       |    |		Store	0x2,-0x8
06c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06c2 0000 0000  |    |		.XXX[0x2]
06c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000401b}
06c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000401d}
06cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000401a}
06d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
06d4 0000 0000  |    |		.BLANK	0000[0x4]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06de       |    |		.CONST	0x06de								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0002       |    |		.CONST	0x0002								; Number of locals
06db			INIT_06d8:
06db e5f9       |    |		Load	0x2,-0x7
06dc e001       |    |		Load	0x0,0x1
06dd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06de			BODY_06d8:
06de 00cf       |    |		Action	Mark_Auxiliary
06df 00d9       |    |		Load_Top	At_Offset_1
06e0 01dc       |    |		Execute	Vector,Last
06e1 4802       |H   |		Short_Literal	0x2
06e2 0263       | c  |		Execute	Discrete,Above_Bound
06e3 7015       |p   |		Jump_Nonzero	0x6f9
06e4 e407       |    |		Load	0x2,0x7
06e5 e017       |    |		Load	0x0,0x17
06e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06e7 e018       |    |		Load	0x0,0x18
06e8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06e9 00ea       |    |		Load_Encached	Null_String_Cache
06ea e605       |    |		Load	0x3,0x5
06eb e602       |    |		Load	0x3,0x2
06ec 01d7       |    |		Execute	Vector,Field_Read
06ed 821c       |    |		Call	0x1,0x1c
06ee 4800       |H   |		Short_Literal	0x0
06ef e002       |    |		Load	0x0,0x2
06f0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06f1 c407       |    |		Store	0x2,0x7
06f2 8412       |    |		Call	0x2,0x12
06f3 e407       |    |		Load	0x2,0x7
06f4 e002       |    |		Load	0x0,0x2
06f5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06f6 c407       |    |		Store	0x2,0x7
06f7 00c8       |    |		Action	Pop_Auxiliary_Range
06f8 3feb       |?   |		Loop_Increasing	0x6e4
06f9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06fa 0000 0000  |    |		.BLANK	0000[0x6]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 071f       |    |		.CONST	0x071f								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0007       |    |		.CONST	0x0007								; Number of locals
0703			INIT_0700:
0703 e018       |    |		Load	0x0,0x18
0704 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0705 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0706 02c7       |    |		Declare_Variable	Any
0707 00d8       |    |		Load_Top	At_Offset_0
0708 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0709 e02c       | ,  |		Load	0x0,0x2c
070a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
070b 02c7       |    |		Declare_Variable	Any
070c 00d8       |    |		Load_Top	At_Offset_0
070d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
070e 00f1       |    |		Load_Encached	Diana_Temp_Seq
070f 02c7       |    |		Declare_Variable	Any
0710 00d8       |    |		Load_Top	At_Offset_0
0711 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0712 e018       |    |		Load	0x0,0x18
0713 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0714 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0715 02c7       |    |		Declare_Variable	Any
0716 00d8       |    |		Load_Top	At_Offset_0
0717 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0718 e018       |    |		Load	0x0,0x18
0719 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
071a 02ff       |    |		Declare_Variable	Variant_Record
071b 00d8       |    |		Load_Top	At_Offset_0
071c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
071d e018       |    |		Load	0x0,0x18
071e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
071f			BODY_0700:
071f e018       |    |		Load	0x0,0x18
0720 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0721 00db       |    |		Load_Top	At_Offset_3
0722 0120       |    |		Execute	Any,Is_Value
0723 6804       |h   |		Jump_Zero	0x728
0724 e018       |    |		Load	0x0,0x18
0725 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0726 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0727 7801       |x   |		Jump	0x729
0728 00db       |    |		Load_Top	At_Offset_3
0729 6076       |`v  |		Indirect_Literal	Discrete,0x7a0,{0x00000000, 0x00004000}
072a e017       |    |		Load	0x0,0x17
072b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
072c e018       |    |		Load	0x0,0x18
072d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
072e 4802       |H   |		Short_Literal	0x2
072f 606c       |`l  |		Indirect_Literal	Discrete,0x79c,{0x00000000, 0x7fffffff}
0730 606b       |`k  |		Indirect_Literal	Discrete,0x79c,{0x00000000, 0x7fffffff}
0731 e018       |    |		Load	0x0,0x18
0732 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0733 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0734 e5fe       |    |		Load	0x2,-0x2
0735 e403       |    |		Load	0x2,0x3
0736 e018       |    |		Load	0x0,0x18
0737 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0738 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0739 4801       |H   |		Short_Literal	0x1
073a e405       |    |		Load	0x2,0x5
073b e018       |    |		Load	0x0,0x18
073c 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
073d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
073e c605       |    |		Store	0x3,0x5
073f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0740 4801       |H   |		Short_Literal	0x1
0741 4801       |H   |		Short_Literal	0x1
0742 e013       |    |		Load	0x0,0x13
0743 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0744 035b       | [  |		Declare_Type	Array,Constrained
0745 0337       | 7  |		Declare_Variable	Array
0746 e5ff       |    |		Load	0x2,-0x1
0747 e013       |    |		Load	0x0,0x13
0748 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0749 4801       |H   |		Short_Literal	0x1
074a 00da       |    |		Load_Top	At_Offset_2
074b 01d6       |    |		Execute	Vector,Field_Write
074c 604b       |`K  |		Indirect_Literal	Discrete,0x798,{0x00000000, 0x00004002}
074d 00da       |    |		Load_Top	At_Offset_2
074e e006       |    |		Load	0x0,0x6
074f 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0750 00da       |    |		Load_Top	At_Offset_2
0751 e018       |    |		Load	0x0,0x18
0752 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0753 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0754 c5fd       |    |		Store	0x2,-0x3
0755 e018       |    |		Load	0x0,0x18
0756 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0757 e604       |    |		Load	0x3,0x4
0758 0120       |    |		Execute	Any,Is_Value
0759 6802       |h   |		Jump_Zero	0x75c
075a 00f1       |    |		Load_Encached	Diana_Temp_Seq
075b 7801       |x   |		Jump	0x75d
075c e604       |    |		Load	0x3,0x4
075d e602       |    |		Load	0x3,0x2
075e 0120       |    |		Execute	Any,Is_Value
075f 6804       |h   |		Jump_Zero	0x764
0760 e018       |    |		Load	0x0,0x18
0761 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0762 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0763 7801       |x   |		Jump	0x765
0764 e602       |    |		Load	0x3,0x2
0765 e603       |    |		Load	0x3,0x3
0766 0120       |    |		Execute	Any,Is_Value
0767 6803       |h   |		Jump_Zero	0x76b
0768 e02c       | ,  |		Load	0x0,0x2c
0769 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
076a 7801       |x   |		Jump	0x76c
076b e603       |    |		Load	0x3,0x3
076c e606       |    |		Load	0x3,0x6
076d 6032       |`2  |		Indirect_Literal	Discrete,0x7a0,{0x00000000, 0x00004000}
076e e017       |    |		Load	0x0,0x17
076f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0770 4800       |H   |		Short_Literal	0x0
0771 e018       |    |		Load	0x0,0x18
0772 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0773 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0774 e018       |    |		Load	0x0,0x18
0775 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0776 4ffc       |O   |		Short_Literal	-0x4
0777 4ffd       |O   |		Short_Literal	-0x3
0778 e5fd       |    |		Load	0x2,-0x3
0779 e018       |    |		Load	0x0,0x18
077a 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
077b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
077c 00d1       |    |		Pop_Control	Pop_Count_1
077d c603       |    |		Store	0x3,0x3
077e c602       |    |		Store	0x3,0x2
077f c604       |    |		Store	0x3,0x4
0780 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0781 4801       |H   |		Short_Literal	0x1
0782 4801       |H   |		Short_Literal	0x1
0783 e013       |    |		Load	0x0,0x13
0784 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0785 035b       | [  |		Declare_Type	Array,Constrained
0786 0337       | 7  |		Declare_Variable	Array
0787 e5ff       |    |		Load	0x2,-0x1
0788 e013       |    |		Load	0x0,0x13
0789 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
078a 4801       |H   |		Short_Literal	0x1
078b 00da       |    |		Load_Top	At_Offset_2
078c 01d6       |    |		Execute	Vector,Field_Write
078d 6006       |`   |		Indirect_Literal	Discrete,0x794,{0x00000000, 0x00004005}
078e 00da       |    |		Load_Top	At_Offset_2
078f e006       |    |		Load	0x0,0x6
0790 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0791 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0792 0000 0000  |    |		.XXX[0x2]
0794 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004005}
0798 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004002}
079c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
07a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
07a4 0000 0000  |    |		.BLANK	0000[0x4]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab       |    |		.CONST	0x07ab								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0001       |    |		.CONST	0x0001								; Number of locals
07ab			BODY_07a8:
07ab			INIT_07a8:
07ab e408       |    |		Load	0x2,0x8
07ac e409       |    |		Load	0x2,0x9
07ad 027d       | }  |		Execute	Discrete,Greater
07ae 6804       |h   |		Jump_Zero	0x7b3
07af 00da       |    |		Load_Top	At_Offset_2
07b0 e002       |    |		Load	0x0,0x2
07b1 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
07b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b3 4800       |H   |		Short_Literal	0x0
07b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b5 0000 0000  |    |		.XXX[0x3]
07b7 0000       |    |
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bd       |    |		.CONST	0x07bd								; Address of begin
07b9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ba 0003       |    |		.CONST	0x0003								; Number of locals
07bb			INIT_07b8:
07bb 00e3       |    |		Load_Encached	Natural_Cache
07bc 00e3       |    |		Load_Encached	Natural_Cache
07bd			BODY_07b8:
07bd e408       |    |		Load	0x2,0x8
07be e409       |    |		Load	0x2,0x9
07bf 027d       | }  |		Execute	Discrete,Greater
07c0 680f       |h   |		Jump_Zero	0x7d0
07c1 e9ff       |    |		Load	0x4,-0x1
07c2 e002       |    |		Load	0x0,0x2
07c3 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
07c4 6802       |h   |		Jump_Zero	0x7c7
07c5 00ea       |    |		Load_Encached	Null_String_Cache
07c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07c7 00e3       |    |		Load_Encached	Natural_Cache
07c8 e406       |    |		Load	0x2,0x6
07c9 e9ff       |    |		Load	0x4,-0x1
07ca e002       |    |		Load	0x0,0x2
07cb 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
07cc 00d1       |    |		Pop_Control	Pop_Count_1
07cd c409       |    |		Store	0x2,0x9
07ce 4801       |H   |		Short_Literal	0x1
07cf a408       |    |		Store_Unchecked	0x2,0x8
07d0 e408       |    |		Load	0x2,0x8
07d1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
07d2 4800       |H   |		Short_Literal	0x0
07d3 00d9       |    |		Load_Top	At_Offset_1
07d4 e409       |    |		Load	0x2,0x9
07d5 e406       |    |		Load	0x2,0x6
07d6 01cf       |    |		Execute	Vector,Slice_Read
07d7 480a       |H   |		Short_Literal	0xa
07d8 e02d       | -  |		Load	0x0,0x2d
07d9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
07da 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
07db 00d9       |    |		Load_Top	At_Offset_1
07dc 680b       |h   |		Jump_Zero	0x7e8
07dd 00d9       |    |		Load_Top	At_Offset_1
07de 0a01       |    |		Execute_Immediate	Plus,0x1
07df c408       |    |		Store	0x2,0x8
07e0 00d8       |    |		Load_Top	At_Offset_0
07e1 00da       |    |		Load_Top	At_Offset_2
07e2 0aff       |    |		Execute_Immediate	Plus,-0x1
07e3 e406       |    |		Load	0x2,0x6
07e4 01cf       |    |		Execute	Vector,Slice_Read
07e5 0335       | 5  |		Declare_Variable	Array,Duplicate
07e6 00cd       |    |		Action	Spare6_Action
07e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07e8 e409       |    |		Load	0x2,0x9
07e9 0a01       |    |		Execute_Immediate	Plus,0x1
07ea c408       |    |		Store	0x2,0x8
07eb e9ff       |    |		Load	0x4,-0x1
07ec e002       |    |		Load	0x0,0x2
07ed 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
07ee 6807       |h   |		Jump_Zero	0x7f6
07ef 00d8       |    |		Load_Top	At_Offset_0
07f0 e409       |    |		Load	0x2,0x9
07f1 e406       |    |		Load	0x2,0x6
07f2 01cf       |    |		Execute	Vector,Slice_Read
07f3 0335       | 5  |		Declare_Variable	Array,Duplicate
07f4 00cd       |    |		Action	Spare6_Action
07f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07f6 00d8       |    |		Load_Top	At_Offset_0
07f7 e409       |    |		Load	0x2,0x9
07f8 e406       |    |		Load	0x2,0x6
07f9 01cf       |    |		Execute	Vector,Slice_Read
07fa e9ff       |    |		Load	0x4,-0x1
07fb 8604       |    |		Call	0x3,0x4
07fc 01cc       |    |		Execute	Vector,Catenate
07fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07fe 0000 0000  |    |		.XXX[0x2]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 082f       | /  |		.CONST	0x082f								; Address of begin
0801 0004       |    |		.CONST	0x0004								; Address of exception handler
0802 0008       |    |		.CONST	0x0008								; Number of locals
0803			INIT_0800:
0803 e604       |    |		Load	0x3,0x4
0804 821a       |    |		Call	0x1,0x1a
0805 e604       |    |		Load	0x3,0x4
0806 e024       | $  |		Load	0x0,0x24
0807 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0808 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0809 00d9       |    |		Load_Top	At_Offset_1
080a 01dd       |    |		Execute	Vector,First
080b 00da       |    |		Load_Top	At_Offset_2
080c 01dc       |    |		Execute	Vector,Last
080d 00da       |    |		Load_Top	At_Offset_2
080e 01db       |    |		Execute	Vector,Length
080f 0272       | r  |		Execute	Discrete,Minus
0810 0aff       |    |		Execute_Immediate	Plus,-0x1
0811 00d8       |    |		Load_Top	At_Offset_0
0812 00e2       |    |		Load_Encached	Integer_Cache
0813 0260       | `  |		Execute	Discrete,In_Type
0814 7001       |p   |		Jump_Nonzero	0x816
0815 0801       |    |		Execute_Immediate	Raise,0x1
0816 00db       |    |		Load_Top	At_Offset_3
0817 01cf       |    |		Execute	Vector,Slice_Read
0818 0007       |    |		Action	Break_Optional
0819 e02e       | .  |		Load	0x0,0x2e
081a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
081b 0604       |    |		Execute_Immediate	Set_Value_Unchecked,0x4
081c e02e       | .  |		Load	0x0,0x2e
081d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
081e 0605       |    |		Execute_Immediate	Set_Value_Unchecked,0x5
081f 00d8       |    |		Load_Top	At_Offset_0
0820 0007       |    |		Action	Break_Optional
0821 e012       |    |		Load	0x0,0x12
0822 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0823 0337       | 7  |		Declare_Variable	Array
0824 e604       |    |		Load	0x3,0x4
0825 e024       | $  |		Load	0x0,0x24
0826 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0827 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0828 e024       | $  |		Load	0x0,0x24
0829 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
082a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
082b e007       |    |		Load	0x0,0x7
082c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
082d 00d9       |    |		Load_Top	At_Offset_1
082e 01d4       |    |		Execute	Vector,Structure_Write
082f			BODY_0800:
082f 4808       |H   |		Short_Literal	0x8
0830 00d9       |    |		Load_Top	At_Offset_1
0831 01d7       |    |		Execute	Vector,Field_Read
0832 6802       |h   |		Jump_Zero	0x835
0833 00db       |    |		Load_Top	At_Offset_3
0834 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0835 e025       | %  |		Load	0x0,0x25
0836 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0837 e404       |    |		Load	0x2,0x4
0838 0120       |    |		Execute	Any,Is_Value
0839 6803       |h   |		Jump_Zero	0x83d
083a e018       |    |		Load	0x0,0x18
083b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
083c 7801       |x   |		Jump	0x83e
083d e404       |    |		Load	0x2,0x4
083e e605       |    |		Load	0x3,0x5
083f e015       |    |		Load	0x0,0x15
0840 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0841 e017       |    |		Load	0x0,0x17
0842 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0843 00ea       |    |		Load_Encached	Null_String_Cache
0844 4802       |H   |		Short_Literal	0x2
0845 e018       |    |		Load	0x0,0x18
0846 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0847 00ea       |    |		Load_Encached	Null_String_Cache
0848 4801       |H   |		Short_Literal	0x1
0849 e807       |    |		Load	0x4,0x7
084a e804       |    |		Load	0x4,0x4
084b e411       |    |		Load	0x2,0x11
084c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
084d 00d1       |    |		Pop_Control	Pop_Count_1
084e c404       |    |		Store	0x2,0x4
084f c405       |    |		Store	0x2,0x5
0850 e405       |    |		Load	0x2,0x5
0851 681d       |h   |		Jump_Zero	0x86f
0852 e006       |    |		Load	0x0,0x6
0853 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0854 4801       |H   |		Short_Literal	0x1
0855 4802       |H   |		Short_Literal	0x2
0856 e013       |    |		Load	0x0,0x13
0857 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0858 035b       | [  |		Declare_Type	Array,Constrained
0859 0337       | 7  |		Declare_Variable	Array
085a e604       |    |		Load	0x3,0x4
085b e024       | $  |		Load	0x0,0x24
085c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
085d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
085e 4801       |H   |		Short_Literal	0x1
085f 00da       |    |		Load_Top	At_Offset_2
0860 01d6       |    |		Execute	Vector,Field_Write
0861 e405       |    |		Load	0x2,0x5
0862 e025       | %  |		Load	0x0,0x25
0863 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0864 011c       |    |		Execute	Any,Convert_Unchecked
0865 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0866 e013       |    |		Load	0x0,0x13
0867 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0868 4802       |H   |		Short_Literal	0x2
0869 00da       |    |		Load_Top	At_Offset_2
086a 01d6       |    |		Execute	Vector,Field_Write
086b 6004       |`   |		Indirect_Literal	Discrete,0x870,{0x00000000, 0x0000402b}
086c e006       |    |		Load	0x0,0x6
086d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
086e c403       |    |		Store	0x2,0x3
086f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0870 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000402b}
0874 0000 0000  |    |		.BLANK	0000[0x4]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087f       |    |		.CONST	0x087f								; Address of begin
0879 0004       |    |		.CONST	0x0004								; Address of exception handler
087a 0002       |    |		.CONST	0x0002								; Number of locals
087b			INIT_0878:
087b e605       |    |		Load	0x3,0x5
087c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
087d e40c       |    |		Load	0x2,0xc
087e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
087f			BODY_0878:
087f 4800       |H   |		Short_Literal	0x0
0880 e403       |    |		Load	0x2,0x3
0881 e006       |    |		Load	0x0,0x6
0882 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0883 7006       |p   |		Jump_Nonzero	0x88a
0884 e403       |    |		Load	0x2,0x3
0885 e5f9       |    |		Load	0x2,-0x7
0886 e001       |    |		Load	0x0,0x1
0887 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0888 00cc       |    |		Action	Pop_Block
0889 7e06       |~   |		Jump	0x690
088a e605       |    |		Load	0x3,0x5
088b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
088c e40c       |    |		Load	0x2,0xc
088d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
088e 6806       |h   |		Jump_Zero	0x895
088f 00d8       |    |		Load_Top	At_Offset_0
0890 e407       |    |		Load	0x2,0x7
0891 e002       |    |		Load	0x0,0x2
0892 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0893 00cc       |    |		Action	Pop_Block
0894 7dfb       |}   |		Jump	0x690
0895 480a       |H   |		Short_Literal	0xa
0896 00d9       |    |		Load_Top	At_Offset_1
0897 01cb       |    |		Execute	Vector,Append
0898 e407       |    |		Load	0x2,0x7
0899 e002       |    |		Load	0x0,0x2
089a 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
089b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
089c 0000 0000  |    |		.BLANK	0000[0x4]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08fd       |    |		.CONST	0x08fd								; Address of begin
08a1 0004       |    |		.CONST	0x0004								; Address of exception handler
08a2 0026       | &  |		.CONST	0x0026								; Number of locals
08a3			INIT_08a0:
08a3 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
08a4 029a 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call,Visible,Unelaborated
08a6 029a 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call,Visible,Unelaborated
08a8 029a 094b  |   K|		Declare_Subprogram	INIT_0948,For_Outer_Call,Visible,Unelaborated
08aa 029a 0a03  |    |		Declare_Subprogram	INIT_0a00,For_Outer_Call,Visible,Unelaborated
08ac 029a 0a13  |    |		Declare_Subprogram	INIT_0a10,For_Outer_Call,Visible,Unelaborated
08ae 029a 0a23  |   #|		Declare_Subprogram	INIT_0a20,For_Outer_Call,Visible,Unelaborated
08b0 029a 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Outer_Call,Visible,Unelaborated
08b2 029a 0a3b  |   ;|		Declare_Subprogram	INIT_0a38,For_Outer_Call,Visible,Unelaborated
08b4 029a 0a43  |   C|		Declare_Subprogram	INIT_0a40,For_Outer_Call,Visible,Unelaborated
08b6 029a 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Outer_Call,Visible,Unelaborated
08b8 029a 0a63  |   c|		Declare_Subprogram	INIT_0a60,For_Outer_Call,Visible,Unelaborated
08ba 029a 0a73  |   s|		Declare_Subprogram	INIT_0a70,For_Outer_Call,Visible,Unelaborated
08bc 4806       |H   |		Short_Literal	0x6
08bd 032a       | *  |		Declare_Type	Record,Incomplete
08be 00d8       |    |		Load_Top	At_Offset_0
08bf 02a0       |    |		Declare_Subprogram	Null_Subprogram
08c0 e212       |    |		Load	0x1,0x12
08c1 03a3       |    |		Complete_Type	Heap_Access,By_Defining
08c2 00bf       |    |		Action	Accept_Activation
08c3 e001       |    |		Load	0x0,0x1
08c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08c5 e002       |    |		Load	0x0,0x2
08c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08c7 e003       |    |		Load	0x0,0x3
08c8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08c9 00e1       |    |		Load_Encached	Boolean_Cache
08ca e004       |    |		Load	0x0,0x4
08cb 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
08cc e210       |    |		Load	0x1,0x10
08cd 029f 0a7b  |   {|		Declare_Subprogram	INIT_0a78,For_Call
08cf e21f       |    |		Load	0x1,0x1f
08d0 0326       | &  |		Complete_Type	Record,By_Defining
08d1 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
08d2 00c7       |    |		Action	Elaborate_Subprogram
08d3 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
08d4 00c7       |    |		Action	Elaborate_Subprogram
08d5 029d 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Outer_Call
08d7 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
08d8 00c7       |    |		Action	Elaborate_Subprogram
08d9 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
08da 00c7       |    |		Action	Elaborate_Subprogram
08db 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
08dc 00c7       |    |		Action	Elaborate_Subprogram
08dd 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
08de 00c7       |    |		Action	Elaborate_Subprogram
08df 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
08e0 00c7       |    |		Action	Elaborate_Subprogram
08e1 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
08e2 00c7       |    |		Action	Elaborate_Subprogram
08e3 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
08e4 00c7       |    |		Action	Elaborate_Subprogram
08e5 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
08e6 00c7       |    |		Action	Elaborate_Subprogram
08e7 e005       |    |		Load	0x0,0x5
08e8 e006       |    |		Load	0x0,0x6
08e9 00db       |    |		Load_Top	At_Offset_3
08ea e212       |    |		Load	0x1,0x12
08eb e007       |    |		Load	0x0,0x7
08ec 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
08ed 0387       |    |		Declare_Variable	Package
08ee 00d8       |    |		Load_Top	At_Offset_0
08ef 020f       |    |		Execute	Module,Activate
08f0 e007       |    |		Load	0x0,0x7
08f1 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
08f2 00c6       |    |		Action	Check_Subprogram_Elaborated
08f3 00da       |    |		Load_Top	At_Offset_2
08f4 e212       |    |		Load	0x1,0x12
08f5 e008       |    |		Load	0x0,0x8
08f6 e009       |    |		Load	0x0,0x9
08f7 4800       |H   |		Short_Literal	0x0
08f8 0007       |    |		Action	Break_Optional
08f9 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
08fa 00c7       |    |		Action	Elaborate_Subprogram
08fb 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
08fc 00c7       |    |		Action	Elaborate_Subprogram
08fd			BODY_08a0:
08fd 00bc       |    |		Action	Signal_Activated
08fe 00bb       |    |		Action	Signal_Completion
08ff 0000       |    |		.XXX[0x1]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 090a       |    |		.CONST	0x090a								; Address of begin
0901 092d       | -  |		.CONST	0x092d								; Address of exception handler
0902 0002       |    |		.CONST	0x0002								; Number of locals
0903			INIT_0900:
0903 e212       |    |		Load	0x1,0x12
0904 e00a       |    |		Load	0x0,0xa
0905 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0906 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0907 00d8       |    |		Load_Top	At_Offset_0
0908 0217       |    |		Execute	Heap_Access,All_Reference
0909 1c00       |    |		Execute_Immediate	Run_Utility,0x0
090a			BODY_0900:
090a 00db       |    |		Load_Top	At_Offset_3
090b e20f       |    |		Load	0x1,0xf
090c 0119       |    |		Execute	Any,Check_In_Formal_Type
090d e210       |    |		Load	0x1,0x10
090e e00a       |    |		Load	0x0,0xa
090f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0910 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0911 00d9       |    |		Load_Top	At_Offset_1
0912 0217       |    |		Execute	Heap_Access,All_Reference
0913 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0914 e5fe       |    |		Load	0x2,-0x2
0915 00d9       |    |		Load_Top	At_Offset_1
0916 0217       |    |		Execute	Heap_Access,All_Reference
0917 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0918 e001       |    |		Load	0x0,0x1
0919 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
091a 00d9       |    |		Load_Top	At_Offset_1
091b 0217       |    |		Execute	Heap_Access,All_Reference
091c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
091d 4800       |H   |		Short_Literal	0x0
091e 00d9       |    |		Load_Top	At_Offset_1
091f 0217       |    |		Execute	Heap_Access,All_Reference
0920 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0921 e004       |    |		Load	0x0,0x4
0922 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0923 00d9       |    |		Load_Top	At_Offset_1
0924 0217       |    |		Execute	Heap_Access,All_Reference
0925 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0926 00d8       |    |		Load_Top	At_Offset_0
0927 a5fd       |    |		Store_Unchecked	0x2,-0x3
0928 00d8       |    |		Load_Top	At_Offset_0
0929 0217       |    |		Execute	Heap_Access,All_Reference
092a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
092b a5fc       |    |		Store_Unchecked	0x2,-0x4
092c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
092d			TRAP_0900:
092d 010b       |    |		Execute	Exception,Is_Storage_Error
092e 680b       |h   |		Jump_Zero	0x93a
092f e001       |    |		Load	0x0,0x1
0930 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0931 e00b       |    |		Load	0x0,0xb
0932 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0933 6008       |`   |		Indirect_Literal	Discrete,0x93c,{0x00000000, 0x00004008}
0934 e001       |    |		Load	0x0,0x1
0935 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0936 c5fc       |    |		Store	0x2,-0x4
0937 e212       |    |		Load	0x1,0x12
0938 a5fd       |    |		Store_Unchecked	0x2,-0x3
0939 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
093a 0100       |    |		Execute	Exception,Raise
093b 0000       |    |		.XXX[0x1]
093c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004008}
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943       | C  |		.CONST	0x0943								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0001       |    |		.CONST	0x0001								; Number of locals
0943			BODY_0940:
0943			INIT_0940:
0943 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0944 0000 0000  |    |		.BLANK	0000[0x4]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 0963       | c  |		.CONST	0x0963								; Address of begin
0949 09b3       |    |		.CONST	0x09b3								; Address of exception handler
094a 000b       |    |		.CONST	0x000b								; Number of locals
094b			INIT_0948:
094b e001       |    |		Load	0x0,0x1
094c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
094d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
094e e00b       |    |		Load	0x0,0xb
094f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0950 e00b       |    |		Load	0x0,0xb
0951 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0952 00ea       |    |		Load_Encached	Null_String_Cache
0953 e5ff       |    |		Load	0x2,-0x1
0954 0217       |    |		Execute	Heap_Access,All_Reference
0955 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0956 800c       |    |		Call	0x0,0xc
0957 029f 0acb  |    |		Declare_Subprogram	INIT_0ac8,For_Call
0959 029f 0aeb  |    |		Declare_Subprogram	INIT_0ae8,For_Call
095b 029f 0b0b  |    |		Declare_Subprogram	INIT_0b08,For_Call
095d 029f 0b7b  |   {|		Declare_Subprogram	INIT_0b78,For_Call
095f 029f 0c1b  |    |		Declare_Subprogram	INIT_0c18,For_Call
0961 029f 0cab  |    |		Declare_Subprogram	INIT_0ca8,For_Call
0963			BODY_0948:
0963 e5fe       |    |		Load	0x2,-0x2
0964 e00d       |    |		Load	0x0,0xd
0965 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0966 4612       |F   |		Jump_Case	0x13
0967 7812       |x   |		Jump	0x97a								; case 0x0
0968 7811       |x   |		Jump	0x97a								; case 0x1
0969 7810       |x   |		Jump	0x97a								; case 0x2
096a 780f       |x   |		Jump	0x97a								; case 0x3
096b 780e       |x   |		Jump	0x97a								; case 0x4
096c 780d       |x   |		Jump	0x97a								; case 0x5
096d 780c       |x   |		Jump	0x97a								; case 0x6
096e 780b       |x   |		Jump	0x97a								; case 0x7
096f 780a       |x   |		Jump	0x97a								; case 0x8
0970 7809       |x   |		Jump	0x97a								; case 0x9
0971 7822       |x"  |		Jump	0x994								; case 0xa
0972 782d       |x-  |		Jump	0x9a0								; case 0xb
0973 7833       |x3  |		Jump	0x9a7								; case 0xc
0974 7805       |x   |		Jump	0x97a								; case 0xd
0975 7804       |x   |		Jump	0x97a								; case 0xe
0976 7803       |x   |		Jump	0x97a								; case 0xf
0977 7802       |x   |		Jump	0x97a								; case 0x10
0978 7801       |x   |		Jump	0x97a								; case 0x11
0979 7800       |x   |		Jump	0x97a								; case 0x12
097a e00e       |    |		Load	0x0,0xe
097b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
097c 4801       |H   |		Short_Literal	0x1
097d 4801       |H   |		Short_Literal	0x1
097e e00b       |    |		Load	0x0,0xb
097f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0980 035b       | [  |		Declare_Type	Array,Constrained
0981 0337       | 7  |		Declare_Variable	Array
0982 e5fe       |    |		Load	0x2,-0x2
0983 e00d       |    |		Load	0x0,0xd
0984 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0985 4801       |H   |		Short_Literal	0x1
0986 00da       |    |		Load_Top	At_Offset_2
0987 01d6       |    |		Execute	Vector,Field_Write
0988 606f       |`o  |		Indirect_Literal	Discrete,0x9f8,{0x00000000, 0x00004018}
0989 e001       |    |		Load	0x0,0x1
098a 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
098b e00b       |    |		Load	0x0,0xb
098c 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
098d 606a       |`j  |		Indirect_Literal	Discrete,0x9f8,{0x00000000, 0x00004018}
098e e001       |    |		Load	0x0,0x1
098f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0990 e5fe       |    |		Load	0x2,-0x2
0991 e00d       |    |		Load	0x0,0xd
0992 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0993 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0994 4801       |H   |		Short_Literal	0x1
0995 e5fe       |    |		Load	0x2,-0x2
0996 e00d       |    |		Load	0x0,0xd
0997 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0998 a403       |    |		Store_Unchecked	0x2,0x3
0999 4802       |H   |		Short_Literal	0x2
099a e5fe       |    |		Load	0x2,-0x2
099b e00d       |    |		Load	0x0,0xd
099c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
099d a404       |    |		Store_Unchecked	0x2,0x4
099e 8409       |    |		Call	0x2,0x9
099f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09a0 4801       |H   |		Short_Literal	0x1
09a1 e5fe       |    |		Load	0x2,-0x2
09a2 e00d       |    |		Load	0x0,0xd
09a3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
09a4 a403       |    |		Store_Unchecked	0x2,0x3
09a5 840a       |    |		Call	0x2,0xa
09a6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09a7 4801       |H   |		Short_Literal	0x1
09a8 e5fe       |    |		Load	0x2,-0x2
09a9 e00d       |    |		Load	0x0,0xd
09aa 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
09ab a403       |    |		Store_Unchecked	0x2,0x3
09ac 4802       |H   |		Short_Literal	0x2
09ad e5fe       |    |		Load	0x2,-0x2
09ae e00d       |    |		Load	0x0,0xd
09af 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
09b0 a404       |    |		Store_Unchecked	0x2,0x4
09b1 840b       |    |		Call	0x2,0xb
09b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09b3			TRAP_0948:
09b3 e00f       |    |		Load	0x0,0xf
09b4 010f       |    |		Execute	Exception,Equal
09b5 6816       |h   |		Jump_Zero	0x9cc
09b6 e5ff       |    |		Load	0x2,-0x1
09b7 0219       |    |		Execute	Heap_Access,All_Read
09b8 e001       |    |		Load	0x0,0x1
09b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09ba 4801       |H   |		Short_Literal	0x1
09bb 4801       |H   |		Short_Literal	0x1
09bc e00b       |    |		Load	0x0,0xb
09bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09be 035b       | [  |		Declare_Type	Array,Constrained
09bf 0337       | 7  |		Declare_Variable	Array
09c0 e5fe       |    |		Load	0x2,-0x2
09c1 e00d       |    |		Load	0x0,0xd
09c2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
09c3 4801       |H   |		Short_Literal	0x1
09c4 00da       |    |		Load_Top	At_Offset_2
09c5 01d6       |    |		Execute	Vector,Field_Write
09c6 602d       |`-  |		Indirect_Literal	Discrete,0x9f4,{0x00000000, 0x00004007}
09c7 e001       |    |		Load	0x0,0x1
09c8 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
09c9 00d9       |    |		Load_Top	At_Offset_1
09ca 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09cb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09cc e010       |    |		Load	0x0,0x10
09cd 010f       |    |		Execute	Exception,Equal
09ce 681c       |h   |		Jump_Zero	0x9eb
09cf e5ff       |    |		Load	0x2,-0x1
09d0 8220       |    |		Call	0x1,0x20
09d1 e00e       |    |		Load	0x0,0xe
09d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09d3 4801       |H   |		Short_Literal	0x1
09d4 4801       |H   |		Short_Literal	0x1
09d5 e00b       |    |		Load	0x0,0xb
09d6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09d7 035b       | [  |		Declare_Type	Array,Constrained
09d8 0337       | 7  |		Declare_Variable	Array
09d9 e5fe       |    |		Load	0x2,-0x2
09da e00d       |    |		Load	0x0,0xd
09db 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
09dc 4801       |H   |		Short_Literal	0x1
09dd 00da       |    |		Load_Top	At_Offset_2
09de 01d6       |    |		Execute	Vector,Field_Write
09df 6010       |`   |		Indirect_Literal	Discrete,0x9f0,{0x00000000, 0x00004019}
09e0 e001       |    |		Load	0x0,0x1
09e1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
09e2 e00b       |    |		Load	0x0,0xb
09e3 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
09e4 600b       |`   |		Indirect_Literal	Discrete,0x9f0,{0x00000000, 0x00004019}
09e5 e001       |    |		Load	0x0,0x1
09e6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
09e7 e5fe       |    |		Load	0x2,-0x2
09e8 e00d       |    |		Load	0x0,0xd
09e9 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
09ea 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09eb e5ff       |    |		Load	0x2,-0x1
09ec 8220       |    |		Call	0x1,0x20
09ed 00d8       |    |		Load_Top	At_Offset_0
09ee 0101       |    |		Execute	Exception,Reraise
09ef 0000       |    |		.XXX[0x1]
09f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004019}
09f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004007}
09f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004018}
09fc 0000 0000  |    |		.BLANK	0000[0x4]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a03       |    |		.CONST	0x0a03								; Address of begin
0a01 0004       |    |		.CONST	0x0004								; Address of exception handler
0a02 0001       |    |		.CONST	0x0001								; Number of locals
0a03			BODY_0a00:
0a03			INIT_0a00:
0a03 00da       |    |		Load_Top	At_Offset_2
0a04 0217       |    |		Execute	Heap_Access,All_Reference
0a05 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0a06 0219       |    |		Execute	Heap_Access,All_Read
0a07 c5fe       |    |		Store	0x2,-0x2
0a08 e210       |    |		Load	0x1,0x10
0a09 00db       |    |		Load_Top	At_Offset_3
0a0a 0217       |    |		Execute	Heap_Access,All_Reference
0a0b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0a0c 00da       |    |		Load_Top	At_Offset_2
0a0d 8220       |    |		Call	0x1,0x20
0a0e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a0f 0000       |    |		.XXX[0x1]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a13       |    |		.CONST	0x0a13								; Address of begin
0a11 0004       |    |		.CONST	0x0004								; Address of exception handler
0a12 0001       |    |		.CONST	0x0001								; Number of locals
0a13			BODY_0a10:
0a13			INIT_0a10:
0a13 00da       |    |		Load_Top	At_Offset_2
0a14 0217       |    |		Execute	Heap_Access,All_Reference
0a15 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0a16 00d8       |    |		Load_Top	At_Offset_0
0a17 0120       |    |		Execute	Any,Is_Value
0a18 7002       |p   |		Jump_Nonzero	0xa1b
0a19 00d8       |    |		Load_Top	At_Offset_0
0a1a 011e       |    |		Execute	Any,Convert
0a1b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a1c 0000 0000  |    |		.BLANK	0000[0x4]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a23       | #  |		.CONST	0x0a23								; Address of begin
0a21 0004       |    |		.CONST	0x0004								; Address of exception handler
0a22 0001       |    |		.CONST	0x0001								; Number of locals
0a23			BODY_0a20:
0a23			INIT_0a20:
0a23 00da       |    |		Load_Top	At_Offset_2
0a24 0217       |    |		Execute	Heap_Access,All_Reference
0a25 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0a26 e210       |    |		Load	0x1,0x10
0a27 0213       |    |		Execute	Heap_Access,Check_In_Type
0a28 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a29 0000 0000  |    |		.BLANK	0000[0x7]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a33       | 3  |		.CONST	0x0a33								; Address of begin
0a31 0004       |    |		.CONST	0x0004								; Address of exception handler
0a32 0001       |    |		.CONST	0x0001								; Number of locals
0a33			BODY_0a30:
0a33			INIT_0a30:
0a33 00da       |    |		Load_Top	At_Offset_2
0a34 0217       |    |		Execute	Heap_Access,All_Reference
0a35 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a36 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a37 0000       |    |		.XXX[0x1]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a3b       | ;  |		.CONST	0x0a3b								; Address of begin
0a39 0004       |    |		.CONST	0x0004								; Address of exception handler
0a3a 0001       |    |		.CONST	0x0001								; Number of locals
0a3b			BODY_0a38:
0a3b			INIT_0a38:
0a3b 00db       |    |		Load_Top	At_Offset_3
0a3c 00db       |    |		Load_Top	At_Offset_3
0a3d 0217       |    |		Execute	Heap_Access,All_Reference
0a3e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0a3f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a43       | C  |		.CONST	0x0a43								; Address of begin
0a41 0004       |    |		.CONST	0x0004								; Address of exception handler
0a42 0001       |    |		.CONST	0x0001								; Number of locals
0a43			BODY_0a40:
0a43			INIT_0a40:
0a43 4800       |H   |		Short_Literal	0x0
0a44 00db       |    |		Load_Top	At_Offset_3
0a45 0217       |    |		Execute	Heap_Access,All_Reference
0a46 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a47 e001       |    |		Load	0x0,0x1
0a48 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0a49 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a4a 0000 0000  |    |		.BLANK	0000[0x6]
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a53       | S  |		.CONST	0x0a53								; Address of begin
0a51 0004       |    |		.CONST	0x0004								; Address of exception handler
0a52 0001       |    |		.CONST	0x0001								; Number of locals
0a53			BODY_0a50:
0a53			INIT_0a50:
0a53 00da       |    |		Load_Top	At_Offset_2
0a54 0217       |    |		Execute	Heap_Access,All_Reference
0a55 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a56 e001       |    |		Load	0x0,0x1
0a57 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0a58 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a59 0000 0000  |    |		.BLANK	0000[0x7]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a63       | c  |		.CONST	0x0a63								; Address of begin
0a61 0004       |    |		.CONST	0x0004								; Address of exception handler
0a62 0001       |    |		.CONST	0x0001								; Number of locals
0a63			BODY_0a60:
0a63			INIT_0a60:
0a63 00da       |    |		Load_Top	At_Offset_2
0a64 e00a       |    |		Load	0x0,0xa
0a65 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0a66 e222       | "  |		Load	0x1,0x22
0a67 e223       | #  |		Load	0x1,0x23
0a68 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0a69 e007       |    |		Load	0x0,0x7
0a6a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0a6b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a6c 0000 0000  |    |		.BLANK	0000[0x4]
0a70 ; --------------------------------------------------------------------------------------
0a70 ; SUBPROGRAM
0a70 ; --------------------------------------------------------------------------------------
0a70 0a73       | s  |		.CONST	0x0a73								; Address of begin
0a71 0004       |    |		.CONST	0x0004								; Address of exception handler
0a72 0001       |    |		.CONST	0x0001								; Number of locals
0a73			BODY_0a70:
0a73			INIT_0a70:
0a73 00da       |    |		Load_Top	At_Offset_2
0a74 e221       | !  |		Load	0x1,0x21
0a75 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a76 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a77 0000       |    |		.XXX[0x1]
0a78 ; --------------------------------------------------------------------------------------
0a78 ; SUBPROGRAM
0a78 ; --------------------------------------------------------------------------------------
0a78 0a7b       | {  |		.CONST	0x0a7b								; Address of begin
0a79 0004       |    |		.CONST	0x0004								; Address of exception handler
0a7a 0001       |    |		.CONST	0x0001								; Number of locals
0a7b			BODY_0a78:
0a7b			INIT_0a78:
0a7b 4608       |F   |		Jump_Case	0x9
0a7c 7808       |x   |		Jump	0xa85								; case 0x0
0a7d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0a7e 7813       |x   |		Jump	0xa92								; case 0x2
0a7f 7812       |x   |		Jump	0xa92								; case 0x3
0a80 7811       |x   |		Jump	0xa92								; case 0x4
0a81 7810       |x   |		Jump	0xa92								; case 0x5
0a82 780f       |x   |		Jump	0xa92								; case 0x6
0a83 780e       |x   |		Jump	0xa92								; case 0x7
0a84 780d       |x   |		Jump	0xa92								; case 0x8
0a85 00da       |    |		Load_Top	At_Offset_2
0a86 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0a87 0125       | %  |		Execute	Any,Set_Constraint
0a88 00da       |    |		Load_Top	At_Offset_2
0a89 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0a8a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a8b 00da       |    |		Load_Top	At_Offset_2
0a8c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0a8d 0125       | %  |		Execute	Any,Set_Constraint
0a8e 00da       |    |		Load_Top	At_Offset_2
0a8f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0a90 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a91 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0a92 0869       | i  |		Execute_Immediate	Raise,0x69
0a93 0000 0000  |    |		.BLANK	0000[0x5]
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0a9b       |    |		.CONST	0x0a9b								; Address of begin
0a99 0004       |    |		.CONST	0x0004								; Address of exception handler
0a9a 0001       |    |		.CONST	0x0001								; Number of locals
0a9b			BODY_0a98:
0a9b			INIT_0a98:
0a9b 00da       |    |		Load_Top	At_Offset_2
0a9c 0217       |    |		Execute	Heap_Access,All_Reference
0a9d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0a9e 6827       |h'  |		Jump_Zero	0xac6
0a9f 00da       |    |		Load_Top	At_Offset_2
0aa0 0217       |    |		Execute	Heap_Access,All_Reference
0aa1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0aa2 e003       |    |		Load	0x0,0x3
0aa3 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0aa4 7014       |p   |		Jump_Nonzero	0xab9
0aa5 00da       |    |		Load_Top	At_Offset_2
0aa6 0219       |    |		Execute	Heap_Access,All_Read
0aa7 00d8       |    |		Load_Top	At_Offset_0
0aa8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0aa9 e011       |    |		Load	0x0,0x11
0aaa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0aab e012       |    |		Load	0x0,0x12
0aac 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0aad 00ea       |    |		Load_Encached	Null_String_Cache
0aae 00ea       |    |		Load_Encached	Null_String_Cache
0aaf e5ff       |    |		Load	0x2,-0x1
0ab0 0217       |    |		Execute	Heap_Access,All_Reference
0ab1 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0ab2 800c       |    |		Call	0x0,0xc
0ab3 4800       |H   |		Short_Literal	0x0
0ab4 e003       |    |		Load	0x0,0x3
0ab5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0ab6 00d9       |    |		Load_Top	At_Offset_1
0ab7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0ab8 00d1       |    |		Pop_Control	Pop_Count_1
0ab9 00da       |    |		Load_Top	At_Offset_2
0aba 0219       |    |		Execute	Heap_Access,All_Read
0abb 00d8       |    |		Load_Top	At_Offset_0
0abc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0abd e003       |    |		Load	0x0,0x3
0abe 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0abf 00d9       |    |		Load_Top	At_Offset_1
0ac0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0ac1 00d1       |    |		Pop_Control	Pop_Count_1
0ac2 4800       |H   |		Short_Literal	0x0
0ac3 00db       |    |		Load_Top	At_Offset_3
0ac4 0217       |    |		Execute	Heap_Access,All_Reference
0ac5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0ac6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ac7 0000       |    |		.XXX[0x1]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0acb       |    |		.CONST	0x0acb								; Address of begin
0ac9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aca 0001       |    |		.CONST	0x0001								; Number of locals
0acb			BODY_0ac8:
0acb			INIT_0ac8:
0acb 00da       |    |		Load_Top	At_Offset_2
0acc e00b       |    |		Load	0x0,0xb
0acd 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0ace 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
0acf 7004       |p   |		Jump_Nonzero	0xad4
0ad0 0f01       |    |		Execute_Immediate	Equal,0x1
0ad1 700c       |p   |		Jump_Nonzero	0xade
0ad2 e010       |    |		Load	0x0,0x10
0ad3 0257       | W  |		Execute	Discrete,Raise
0ad4 00d1       |    |		Pop_Control	Pop_Count_1
0ad5 e5ff       |    |		Load	0x2,-0x1
0ad6 0217       |    |		Execute	Heap_Access,All_Reference
0ad7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0ad8 0219       |    |		Execute	Heap_Access,All_Read
0ad9 e20f       |    |		Load	0x1,0xf
0ada 0119       |    |		Execute	Any,Check_In_Formal_Type
0adb e5fe       |    |		Load	0x2,-0x2
0adc 8211       |    |		Call	0x1,0x11
0add 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ade 00da       |    |		Load_Top	At_Offset_2
0adf e00b       |    |		Load	0x0,0xb
0ae0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0ae1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ae2 0000 0000  |    |		.BLANK	0000[0x6]
0ae8 ; --------------------------------------------------------------------------------------
0ae8 ; SUBPROGRAM
0ae8 ; --------------------------------------------------------------------------------------
0ae8 0aed       |    |		.CONST	0x0aed								; Address of begin
0ae9 0af3       |    |		.CONST	0x0af3								; Address of exception handler
0aea 0002       |    |		.CONST	0x0002								; Number of locals
0aeb			INIT_0ae8:
0aeb 029f 0d13  |    |		Declare_Subprogram	INIT_0d10,For_Call
0aed			BODY_0ae8:
0aed e7fe       |    |		Load	0x3,-0x2
0aee e002       |    |		Load	0x0,0x2
0aef 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0af0 c7fe       |    |		Store	0x3,-0x2
0af1 8602       |    |		Call	0x3,0x2
0af2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0af3			TRAP_0ae8:
0af3 0007       |    |		Action	Break_Optional
0af4 e00e       |    |		Load	0x0,0xe
0af5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0af6 e00b       |    |		Load	0x0,0xb
0af7 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0af8 6007       |`   |		Indirect_Literal	Discrete,0xb00,{0x00000000, 0x00004026}
0af9 e001       |    |		Load	0x0,0x1
0afa 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0afb e00f       |    |		Load	0x0,0xf
0afc 0257       | W  |		Execute	Discrete,Raise
0afd 0000 0000  |    |		.XXX[0x3]
0aff 0000       |    |
0b00 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004026}
0b04 0000 0000  |    |		.BLANK	0000[0x4]
0b08 ; --------------------------------------------------------------------------------------
0b08 ; SUBPROGRAM
0b08 ; --------------------------------------------------------------------------------------
0b08 0b17       |    |		.CONST	0x0b17								; Address of begin
0b09 0b55       | U  |		.CONST	0x0b55								; Address of exception handler
0b0a 0004       |    |		.CONST	0x0004								; Number of locals
0b0b			INIT_0b08:
0b0b 4801       |H   |		Short_Literal	0x1
0b0c 4a00       |J   |		Short_Literal	0x200
0b0d e003       |    |		Load	0x0,0x3
0b0e 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0b0f 035b       | [  |		Declare_Type	Array,Constrained
0b10 0337       | 7  |		Declare_Variable	Array
0b11 00e3       |    |		Load_Encached	Natural_Cache
0b12 e003       |    |		Load	0x0,0x3
0b13 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b14 02c7       |    |		Declare_Variable	Any
0b15 00d8       |    |		Load_Top	At_Offset_0
0b16 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b17			BODY_0b08:
0b17 e7ff       |    |		Load	0x3,-0x1
0b18 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
0b1a 01df       |    |		Execute	Vector,Equal
0b1b 6805       |h   |		Jump_Zero	0xb21
0b1c e5ff       |    |		Load	0x2,-0x1
0b1d 0217       |    |		Execute	Heap_Access,All_Reference
0b1e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0b1f c604       |    |		Store	0x3,0x4
0b20 780b       |x   |		Jump	0xb2c
0b21 00d8       |    |		Load_Top	At_Offset_0
0b22 e011       |    |		Load	0x0,0x11
0b23 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b24 e012       |    |		Load	0x0,0x12
0b25 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0b26 00ea       |    |		Load_Encached	Null_String_Cache
0b27 e7ff       |    |		Load	0x3,-0x1
0b28 4800       |H   |		Short_Literal	0x0
0b29 e003       |    |		Load	0x0,0x3
0b2a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0b2b c604       |    |		Store	0x3,0x4
0b2c e7fd       |    |		Load	0x3,-0x3
0b2d 00ea       |    |		Load_Encached	Null_String_Cache
0b2e e7fe       |    |		Load	0x3,-0x2
0b2f e002       |    |		Load	0x0,0x2
0b30 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0b31 c7fd       |    |		Store	0x3,-0x3
0b32 00cf       |    |		Action	Mark_Auxiliary
0b33 780f       |x   |		Jump	0xb43
0b34 00e3       |    |		Load_Encached	Natural_Cache
0b35 e602       |    |		Load	0x3,0x2
0b36 00db       |    |		Load_Top	At_Offset_3
0b37 e003       |    |		Load	0x0,0x3
0b38 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0b39 00d1       |    |		Pop_Control	Pop_Count_1
0b3a 005b       | [  |		Store_Top	Discrete,At_Offset_3
0b3b 4801       |H   |		Short_Literal	0x1
0b3c 00db       |    |		Load_Top	At_Offset_3
0b3d e602       |    |		Load	0x3,0x2
0b3e 01cf       |    |		Execute	Vector,Slice_Read
0b3f e7fd       |    |		Load	0x3,-0x3
0b40 e002       |    |		Load	0x0,0x2
0b41 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0b42 00c9       |    |		Action	Pop_Auxiliary_Loop
0b43 00d9       |    |		Load_Top	At_Offset_1
0b44 e003       |    |		Load	0x0,0x3
0b45 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0b46 6fed       |o   |		Jump_Zero	0xb34
0b47 00ce       |    |		Action	Pop_Auxiliary
0b48 e7ff       |    |		Load	0x3,-0x1
0b49 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
0b4b 01de       |    |		Execute	Vector,Not_Equal
0b4c 6804       |h   |		Jump_Zero	0xb51
0b4d 00d8       |    |		Load_Top	At_Offset_0
0b4e e003       |    |		Load	0x0,0x3
0b4f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0b50 c604       |    |		Store	0x3,0x4
0b51 e7fd       |    |		Load	0x3,-0x3
0b52 e002       |    |		Load	0x0,0x2
0b53 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0b54 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b55			TRAP_0b08:
0b55 0007       |    |		Action	Break_Optional
0b56 e00e       |    |		Load	0x0,0xe
0b57 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b58 4801       |H   |		Short_Literal	0x1
0b59 4802       |H   |		Short_Literal	0x2
0b5a e00b       |    |		Load	0x0,0xb
0b5b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b5c 035b       | [  |		Declare_Type	Array,Constrained
0b5d 0337       | 7  |		Declare_Variable	Array
0b5e e7ff       |    |		Load	0x3,-0x1
0b5f e00b       |    |		Load	0x0,0xb
0b60 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b61 4801       |H   |		Short_Literal	0x1
0b62 00da       |    |		Load_Top	At_Offset_2
0b63 01d6       |    |		Execute	Vector,Field_Write
0b64 e7fe       |    |		Load	0x3,-0x2
0b65 e00b       |    |		Load	0x0,0xb
0b66 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b67 4802       |H   |		Short_Literal	0x2
0b68 00da       |    |		Load_Top	At_Offset_2
0b69 01d6       |    |		Execute	Vector,Field_Write
0b6a 6005       |`   |		Indirect_Literal	Discrete,0xb70,{0x00000000, 0x00004025}
0b6b e001       |    |		Load	0x0,0x1
0b6c 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0b6d e00f       |    |		Load	0x0,0xf
0b6e 0257       | W  |		Execute	Discrete,Raise
0b6f 0000       |    |		.XXX[0x1]
0b70 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004025}
0b74 0000 0000  |    |		.BLANK	0000[0x4]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7f       |    |		.CONST	0x0b7f								; Address of begin
0b79 0004       |    |		.CONST	0x0004								; Address of exception handler
0b7a 0003       |    |		.CONST	0x0003								; Number of locals
0b7b			INIT_0b78:
0b7b e403       |    |		Load	0x2,0x3
0b7c 8013       |    |		Call	0x0,0x13
0b7d e404       |    |		Load	0x2,0x4
0b7e 8406       |    |		Call	0x2,0x6
0b7f			BODY_0b78:
0b7f e5fe       |    |		Load	0x2,-0x2
0b80 8014       |    |		Call	0x0,0x14
0b81 7026       |p&  |		Jump_Nonzero	0xba8
0b82 e5ff       |    |		Load	0x2,-0x1
0b83 0219       |    |		Execute	Heap_Access,All_Read
0b84 00d8       |    |		Load_Top	At_Offset_0
0b85 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0b86 00da       |    |		Load_Top	At_Offset_2
0b87 e602       |    |		Load	0x3,0x2
0b88 8408       |    |		Call	0x2,0x8
0b89 00d9       |    |		Load_Top	At_Offset_1
0b8a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b8b 00d1       |    |		Pop_Control	Pop_Count_1
0b8c e5fe       |    |		Load	0x2,-0x2
0b8d e00d       |    |		Load	0x0,0xd
0b8e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0b8f 6817       |h   |		Jump_Zero	0xba7
0b90 e00e       |    |		Load	0x0,0xe
0b91 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b92 4801       |H   |		Short_Literal	0x1
0b93 4802       |H   |		Short_Literal	0x2
0b94 e00b       |    |		Load	0x0,0xb
0b95 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b96 035b       | [  |		Declare_Type	Array,Constrained
0b97 0337       | 7  |		Declare_Variable	Array
0b98 00db       |    |		Load_Top	At_Offset_3
0b99 e00b       |    |		Load	0x0,0xb
0b9a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b9b 4801       |H   |		Short_Literal	0x1
0b9c 00da       |    |		Load_Top	At_Offset_2
0b9d 01d6       |    |		Execute	Vector,Field_Write
0b9e 00da       |    |		Load_Top	At_Offset_2
0b9f e00b       |    |		Load	0x0,0xb
0ba0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ba1 4802       |H   |		Short_Literal	0x2
0ba2 00da       |    |		Load_Top	At_Offset_2
0ba3 01d6       |    |		Execute	Vector,Field_Write
0ba4 606b       |`k  |		Indirect_Literal	Discrete,0xc10,{0x00000000, 0x00004022}
0ba5 e001       |    |		Load	0x0,0x1
0ba6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0ba7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ba8 e5fe       |    |		Load	0x2,-0x2
0ba9 e00d       |    |		Load	0x0,0xd
0baa 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0bab 7002       |p   |		Jump_Nonzero	0xbae
0bac 00cc       |    |		Action	Pop_Block
0bad 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0bae e5ff       |    |		Load	0x2,-0x1
0baf 0219       |    |		Execute	Heap_Access,All_Read
0bb0 e402       |    |		Load	0x2,0x2
0bb1 00d9       |    |		Load_Top	At_Offset_1
0bb2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0bb3 e405       |    |		Load	0x2,0x5
0bb4 8015       |    |		Call	0x0,0x15
0bb5 00da       |    |		Load_Top	At_Offset_2
0bb6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0bb7 c402       |    |		Store	0x2,0x2
0bb8 00d1       |    |		Pop_Control	Pop_Count_1
0bb9 4800       |H   |		Short_Literal	0x0
0bba e402       |    |		Load	0x2,0x2
0bbb e001       |    |		Load	0x0,0x1
0bbc 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0bbd 6805       |h   |		Jump_Zero	0xbc3
0bbe 4801       |H   |		Short_Literal	0x1
0bbf e5ff       |    |		Load	0x2,-0x1
0bc0 0217       |    |		Execute	Heap_Access,All_Reference
0bc1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0bc2 7806       |x   |		Jump	0xbc9
0bc3 e402       |    |		Load	0x2,0x2
0bc4 e5fe       |    |		Load	0x2,-0x2
0bc5 e00d       |    |		Load	0x0,0xd
0bc6 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0bc7 00cc       |    |		Action	Pop_Block
0bc8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0bc9 e5ff       |    |		Load	0x2,-0x1
0bca 0219       |    |		Execute	Heap_Access,All_Read
0bcb 00d8       |    |		Load_Top	At_Offset_0
0bcc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0bcd e5fe       |    |		Load	0x2,-0x2
0bce e016       |    |		Load	0x0,0x16
0bcf a017       |    |		Store_Unchecked	0x0,0x17
0bd0 a018       |    |		Store_Unchecked	0x0,0x18
0bd1 a019       |    |		Store_Unchecked	0x0,0x19
0bd2 a01a       |    |		Store_Unchecked	0x0,0x1a
0bd3 a01b       |    |		Store_Unchecked	0x0,0x1b
0bd4 e01c       |    |		Load	0x0,0x1c
0bd5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0bd6 00d9       |    |		Load_Top	At_Offset_1
0bd7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0bd8 00d1       |    |		Pop_Control	Pop_Count_1
0bd9 e5ff       |    |		Load	0x2,-0x1
0bda 0219       |    |		Execute	Heap_Access,All_Read
0bdb 00d8       |    |		Load_Top	At_Offset_0
0bdc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0bdd 4800       |H   |		Short_Literal	0x0
0bde e003       |    |		Load	0x0,0x3
0bdf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0be0 00d9       |    |		Load_Top	At_Offset_1
0be1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0be2 00d1       |    |		Pop_Control	Pop_Count_1
0be3 e5ff       |    |		Load	0x2,-0x1
0be4 0219       |    |		Execute	Heap_Access,All_Read
0be5 00d8       |    |		Load_Top	At_Offset_0
0be6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0be7 00da       |    |		Load_Top	At_Offset_2
0be8 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
0bea 8408       |    |		Call	0x2,0x8
0beb 00d9       |    |		Load_Top	At_Offset_1
0bec 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0bed 00d1       |    |		Pop_Control	Pop_Count_1
0bee e5fe       |    |		Load	0x2,-0x2
0bef e00d       |    |		Load	0x0,0xd
0bf0 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0bf1 6817       |h   |		Jump_Zero	0xc09
0bf2 e00e       |    |		Load	0x0,0xe
0bf3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0bf4 4801       |H   |		Short_Literal	0x1
0bf5 4802       |H   |		Short_Literal	0x2
0bf6 e00b       |    |		Load	0x0,0xb
0bf7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0bf8 035b       | [  |		Declare_Type	Array,Constrained
0bf9 0337       | 7  |		Declare_Variable	Array
0bfa 00db       |    |		Load_Top	At_Offset_3
0bfb e00b       |    |		Load	0x0,0xb
0bfc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0bfd 4801       |H   |		Short_Literal	0x1
0bfe 00da       |    |		Load_Top	At_Offset_2
0bff 01d6       |    |		Execute	Vector,Field_Write
0c00 00da       |    |		Load_Top	At_Offset_2
0c01 e00b       |    |		Load	0x0,0xb
0c02 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c03 4802       |H   |		Short_Literal	0x2
0c04 00da       |    |		Load_Top	At_Offset_2
0c05 01d6       |    |		Execute	Vector,Field_Write
0c06 6005       |`   |		Indirect_Literal	Discrete,0xc0c,{0x00000000, 0x00004021}
0c07 e001       |    |		Load	0x0,0x1
0c08 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0c09 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c0a 0000 0000  |    |		.XXX[0x2]
0c0c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004021}
0c10 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004022}
0c14 0000 0000  |    |		.BLANK	0000[0x4]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c1d       |    |		.CONST	0x0c1d								; Address of begin
0c19 0004       |    |		.CONST	0x0004								; Address of exception handler
0c1a 0002       |    |		.CONST	0x0002								; Number of locals
0c1b			INIT_0c18:
0c1b e403       |    |		Load	0x2,0x3
0c1c 8013       |    |		Call	0x0,0x13
0c1d			BODY_0c18:
0c1d e5fe       |    |		Load	0x2,-0x2
0c1e 801d       |    |		Call	0x0,0x1d
0c1f 7029       |p)  |		Jump_Nonzero	0xc49
0c20 e403       |    |		Load	0x2,0x3
0c21 e00b       |    |		Load	0x0,0xb
0c22 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0c23 0f01       |    |		Execute_Immediate	Equal,0x1
0c24 6824       |h$  |		Jump_Zero	0xc49
0c25 e403       |    |		Load	0x2,0x3
0c26 e00b       |    |		Load	0x0,0xb
0c27 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0c28 01db       |    |		Execute	Vector,Length
0c29 681f       |h   |		Jump_Zero	0xc49
0c2a e5ff       |    |		Load	0x2,-0x1
0c2b 0219       |    |		Execute	Heap_Access,All_Read
0c2c 00d8       |    |		Load_Top	At_Offset_0
0c2d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c2e 00da       |    |		Load_Top	At_Offset_2
0c2f 8407       |    |		Call	0x2,0x7
0c30 00d9       |    |		Load_Top	At_Offset_1
0c31 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0c32 00d1       |    |		Pop_Control	Pop_Count_1
0c33 e5fe       |    |		Load	0x2,-0x2
0c34 e00d       |    |		Load	0x0,0xd
0c35 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0c36 6811       |h   |		Jump_Zero	0xc48
0c37 e00e       |    |		Load	0x0,0xe
0c38 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0c39 4801       |H   |		Short_Literal	0x1
0c3a 4801       |H   |		Short_Literal	0x1
0c3b e00b       |    |		Load	0x0,0xb
0c3c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c3d 035b       | [  |		Declare_Type	Array,Constrained
0c3e 0337       | 7  |		Declare_Variable	Array
0c3f 00da       |    |		Load_Top	At_Offset_2
0c40 e00b       |    |		Load	0x0,0xb
0c41 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c42 4801       |H   |		Short_Literal	0x1
0c43 00da       |    |		Load_Top	At_Offset_2
0c44 01d6       |    |		Execute	Vector,Field_Write
0c45 605e       |`^  |		Indirect_Literal	Discrete,0xca4,{0x00000000, 0x00004024}
0c46 e001       |    |		Load	0x0,0x1
0c47 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0c48 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c49 e5ff       |    |		Load	0x2,-0x1
0c4a 0219       |    |		Execute	Heap_Access,All_Read
0c4b e402       |    |		Load	0x2,0x2
0c4c 00d9       |    |		Load_Top	At_Offset_1
0c4d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0c4e e405       |    |		Load	0x2,0x5
0c4f 8015       |    |		Call	0x0,0x15
0c50 00da       |    |		Load_Top	At_Offset_2
0c51 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0c52 c402       |    |		Store	0x2,0x2
0c53 00d1       |    |		Pop_Control	Pop_Count_1
0c54 4800       |H   |		Short_Literal	0x0
0c55 e402       |    |		Load	0x2,0x2
0c56 e001       |    |		Load	0x0,0x1
0c57 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0c58 6805       |h   |		Jump_Zero	0xc5e
0c59 4801       |H   |		Short_Literal	0x1
0c5a e5ff       |    |		Load	0x2,-0x1
0c5b 0217       |    |		Execute	Heap_Access,All_Reference
0c5c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0c5d 7806       |x   |		Jump	0xc64
0c5e e402       |    |		Load	0x2,0x2
0c5f e5fe       |    |		Load	0x2,-0x2
0c60 e00d       |    |		Load	0x0,0xd
0c61 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0c62 00cc       |    |		Action	Pop_Block
0c63 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0c64 e5ff       |    |		Load	0x2,-0x1
0c65 0219       |    |		Execute	Heap_Access,All_Read
0c66 00d8       |    |		Load_Top	At_Offset_0
0c67 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c68 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
0c6a 8407       |    |		Call	0x2,0x7
0c6b 00d9       |    |		Load_Top	At_Offset_1
0c6c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0c6d 00d1       |    |		Pop_Control	Pop_Count_1
0c6e e5ff       |    |		Load	0x2,-0x1
0c6f 0219       |    |		Execute	Heap_Access,All_Read
0c70 00d8       |    |		Load_Top	At_Offset_0
0c71 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0c72 4800       |H   |		Short_Literal	0x0
0c73 e003       |    |		Load	0x0,0x3
0c74 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0c75 00d9       |    |		Load_Top	At_Offset_1
0c76 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0c77 00d1       |    |		Pop_Control	Pop_Count_1
0c78 e5ff       |    |		Load	0x2,-0x1
0c79 0219       |    |		Execute	Heap_Access,All_Read
0c7a 00d8       |    |		Load_Top	At_Offset_0
0c7b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0c7c e5fe       |    |		Load	0x2,-0x2
0c7d e016       |    |		Load	0x0,0x16
0c7e a017       |    |		Store_Unchecked	0x0,0x17
0c7f a018       |    |		Store_Unchecked	0x0,0x18
0c80 a019       |    |		Store_Unchecked	0x0,0x19
0c81 a01a       |    |		Store_Unchecked	0x0,0x1a
0c82 a01b       |    |		Store_Unchecked	0x0,0x1b
0c83 e01c       |    |		Load	0x0,0x1c
0c84 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0c85 00d9       |    |		Load_Top	At_Offset_1
0c86 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0c87 00d1       |    |		Pop_Control	Pop_Count_1
0c88 e5fe       |    |		Load	0x2,-0x2
0c89 e00d       |    |		Load	0x0,0xd
0c8a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0c8b 6811       |h   |		Jump_Zero	0xc9d
0c8c e00e       |    |		Load	0x0,0xe
0c8d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0c8e 4801       |H   |		Short_Literal	0x1
0c8f 4801       |H   |		Short_Literal	0x1
0c90 e00b       |    |		Load	0x0,0xb
0c91 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c92 035b       | [  |		Declare_Type	Array,Constrained
0c93 0337       | 7  |		Declare_Variable	Array
0c94 00da       |    |		Load_Top	At_Offset_2
0c95 e00b       |    |		Load	0x0,0xb
0c96 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c97 4801       |H   |		Short_Literal	0x1
0c98 00da       |    |		Load_Top	At_Offset_2
0c99 01d6       |    |		Execute	Vector,Field_Write
0c9a 6005       |`   |		Indirect_Literal	Discrete,0xca0,{0x00000000, 0x00004023}
0c9b e001       |    |		Load	0x0,0x1
0c9c 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0c9d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c9e 0000 0000  |    |		.XXX[0x2]
0ca0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004023}
0ca4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004024}
0ca8 ; --------------------------------------------------------------------------------------
0ca8 ; SUBPROGRAM
0ca8 ; --------------------------------------------------------------------------------------
0ca8 0caf       |    |		.CONST	0x0caf								; Address of begin
0ca9 0004       |    |		.CONST	0x0004								; Address of exception handler
0caa 0003       |    |		.CONST	0x0003								; Number of locals
0cab			INIT_0ca8:
0cab e404       |    |		Load	0x2,0x4
0cac 8013       |    |		Call	0x0,0x13
0cad e403       |    |		Load	0x2,0x3
0cae 8406       |    |		Call	0x2,0x6
0caf			BODY_0ca8:
0caf e5ff       |    |		Load	0x2,-0x1
0cb0 0219       |    |		Execute	Heap_Access,All_Read
0cb1 e402       |    |		Load	0x2,0x2
0cb2 00d9       |    |		Load_Top	At_Offset_1
0cb3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0cb4 e405       |    |		Load	0x2,0x5
0cb5 8015       |    |		Call	0x0,0x15
0cb6 00da       |    |		Load_Top	At_Offset_2
0cb7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0cb8 c402       |    |		Store	0x2,0x2
0cb9 00d1       |    |		Pop_Control	Pop_Count_1
0cba 4800       |H   |		Short_Literal	0x0
0cbb e402       |    |		Load	0x2,0x2
0cbc e001       |    |		Load	0x0,0x1
0cbd 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0cbe 6805       |h   |		Jump_Zero	0xcc4
0cbf 4801       |H   |		Short_Literal	0x1
0cc0 e5ff       |    |		Load	0x2,-0x1
0cc1 0217       |    |		Execute	Heap_Access,All_Reference
0cc2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0cc3 7806       |x   |		Jump	0xcca
0cc4 e402       |    |		Load	0x2,0x2
0cc5 e5fe       |    |		Load	0x2,-0x2
0cc6 e00d       |    |		Load	0x0,0xd
0cc7 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0cc8 00cc       |    |		Action	Pop_Block
0cc9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0cca e5ff       |    |		Load	0x2,-0x1
0ccb 0219       |    |		Execute	Heap_Access,All_Read
0ccc 00d8       |    |		Load_Top	At_Offset_0
0ccd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0cce e5fe       |    |		Load	0x2,-0x2
0ccf e016       |    |		Load	0x0,0x16
0cd0 a017       |    |		Store_Unchecked	0x0,0x17
0cd1 a018       |    |		Store_Unchecked	0x0,0x18
0cd2 a019       |    |		Store_Unchecked	0x0,0x19
0cd3 a01a       |    |		Store_Unchecked	0x0,0x1a
0cd4 a01b       |    |		Store_Unchecked	0x0,0x1b
0cd5 e01c       |    |		Load	0x0,0x1c
0cd6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0cd7 00d9       |    |		Load_Top	At_Offset_1
0cd8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0cd9 00d1       |    |		Pop_Control	Pop_Count_1
0cda e5ff       |    |		Load	0x2,-0x1
0cdb 0219       |    |		Execute	Heap_Access,All_Read
0cdc 00d8       |    |		Load_Top	At_Offset_0
0cdd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0cde 4800       |H   |		Short_Literal	0x0
0cdf e003       |    |		Load	0x0,0x3
0ce0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0ce1 00d9       |    |		Load_Top	At_Offset_1
0ce2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0ce3 00d1       |    |		Pop_Control	Pop_Count_1
0ce4 e5ff       |    |		Load	0x2,-0x1
0ce5 0219       |    |		Execute	Heap_Access,All_Read
0ce6 00d8       |    |		Load_Top	At_Offset_0
0ce7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ce8 00da       |    |		Load_Top	At_Offset_2
0ce9 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
0ceb 8408       |    |		Call	0x2,0x8
0cec 00d9       |    |		Load_Top	At_Offset_1
0ced 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0cee 00d1       |    |		Pop_Control	Pop_Count_1
0cef e5fe       |    |		Load	0x2,-0x2
0cf0 e00d       |    |		Load	0x0,0xd
0cf1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0cf2 6817       |h   |		Jump_Zero	0xd0a
0cf3 e00e       |    |		Load	0x0,0xe
0cf4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0cf5 4801       |H   |		Short_Literal	0x1
0cf6 4802       |H   |		Short_Literal	0x2
0cf7 e00b       |    |		Load	0x0,0xb
0cf8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0cf9 035b       | [  |		Declare_Type	Array,Constrained
0cfa 0337       | 7  |		Declare_Variable	Array
0cfb 00db       |    |		Load_Top	At_Offset_3
0cfc e00b       |    |		Load	0x0,0xb
0cfd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0cfe 4801       |H   |		Short_Literal	0x1
0cff 00da       |    |		Load_Top	At_Offset_2
0d00 01d6       |    |		Execute	Vector,Field_Write
0d01 00da       |    |		Load_Top	At_Offset_2
0d02 e00b       |    |		Load	0x0,0xb
0d03 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d04 4802       |H   |		Short_Literal	0x2
0d05 00da       |    |		Load_Top	At_Offset_2
0d06 01d6       |    |		Execute	Vector,Field_Write
0d07 6004       |`   |		Indirect_Literal	Discrete,0xd0c,{0x00000000, 0x00004021}
0d08 e001       |    |		Load	0x0,0x1
0d09 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0d0a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d0b 0000       |    |		.XXX[0x1]
0d0c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004021}
0d10 ; --------------------------------------------------------------------------------------
0d10 ; SUBPROGRAM
0d10 ; --------------------------------------------------------------------------------------
0d10 0d27       | '  |		.CONST	0x0d27								; Address of begin
0d11 0004       |    |		.CONST	0x0004								; Address of exception handler
0d12 0007       |    |		.CONST	0x0007								; Number of locals
0d13			INIT_0d10:
0d13 e003       |    |		Load	0x0,0x3
0d14 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d15 02c7       |    |		Declare_Variable	Any
0d16 00d8       |    |		Load_Top	At_Offset_0
0d17 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d18 e7fe       |    |		Load	0x3,-0x2
0d19 e002       |    |		Load	0x0,0x2
0d1a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0d1b e7fe       |    |		Load	0x3,-0x2
0d1c e002       |    |		Load	0x0,0x2
0d1d 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0d1e 4801       |H   |		Short_Literal	0x1
0d1f 00d9       |    |		Load_Top	At_Offset_1
0d20 e003       |    |		Load	0x0,0x3
0d21 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0d22 035b       | [  |		Declare_Type	Array,Constrained
0d23 0337       | 7  |		Declare_Variable	Array
0d24 00e3       |    |		Load_Encached	Natural_Cache
0d25 029f 0d6b  |   k|		Declare_Subprogram	INIT_0d68,For_Call
0d27			BODY_0d10:
0d27 e7ff       |    |		Load	0x3,-0x1
0d28 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
0d2a 01df       |    |		Execute	Vector,Equal
0d2b 6805       |h   |		Jump_Zero	0xd31
0d2c e5ff       |    |		Load	0x2,-0x1
0d2d 0217       |    |		Execute	Heap_Access,All_Reference
0d2e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0d2f c802       |    |		Store	0x4,0x2
0d30 780d       |x   |		Jump	0xd3e
0d31 e802       |    |		Load	0x4,0x2
0d32 e011       |    |		Load	0x0,0x11
0d33 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d34 e012       |    |		Load	0x0,0x12
0d35 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0d36 e012       |    |		Load	0x0,0x12
0d37 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0d38 00ea       |    |		Load_Encached	Null_String_Cache
0d39 8807       |    |		Call	0x4,0x7
0d3a 4801       |H   |		Short_Literal	0x1
0d3b e003       |    |		Load	0x0,0x3
0d3c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0d3d c802       |    |		Store	0x4,0x2
0d3e 00cf       |    |		Action	Mark_Auxiliary
0d3f 780f       |x   |		Jump	0xd4f
0d40 00e3       |    |		Load_Encached	Natural_Cache
0d41 e805       |    |		Load	0x4,0x5
0d42 e7fe       |    |		Load	0x3,-0x2
0d43 e002       |    |		Load	0x0,0x2
0d44 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0d45 00d1       |    |		Pop_Control	Pop_Count_1
0d46 005b       | [  |		Store_Top	Discrete,At_Offset_3
0d47 4801       |H   |		Short_Literal	0x1
0d48 00db       |    |		Load_Top	At_Offset_3
0d49 e805       |    |		Load	0x4,0x5
0d4a 01cf       |    |		Execute	Vector,Slice_Read
0d4b e802       |    |		Load	0x4,0x2
0d4c e003       |    |		Load	0x0,0x3
0d4d 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0d4e 00c9       |    |		Action	Pop_Auxiliary_Loop
0d4f e7fe       |    |		Load	0x3,-0x2
0d50 e002       |    |		Load	0x0,0x2
0d51 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0d52 6fed       |o   |		Jump_Zero	0xd40
0d53 00ce       |    |		Action	Pop_Auxiliary
0d54 e7ff       |    |		Load	0x3,-0x1
0d55 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
0d57 01de       |    |		Execute	Vector,Not_Equal
0d58 6804       |h   |		Jump_Zero	0xd5d
0d59 e802       |    |		Load	0x4,0x2
0d5a e003       |    |		Load	0x0,0x3
0d5b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0d5c c802       |    |		Store	0x4,0x2
0d5d e7fe       |    |		Load	0x3,-0x2
0d5e e002       |    |		Load	0x0,0x2
0d5f 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0d60 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d61 0000 0000  |    |		.BLANK	0000[0x7]
0d68 ; --------------------------------------------------------------------------------------
0d68 ; SUBPROGRAM
0d68 ; --------------------------------------------------------------------------------------
0d68 0d6b       | k  |		.CONST	0x0d6b								; Address of begin
0d69 0004       |    |		.CONST	0x0004								; Address of exception handler
0d6a 0001       |    |		.CONST	0x0001								; Number of locals
0d6b			BODY_0d68:
0d6b			INIT_0d68:
0d6b e7ff       |    |		Load	0x3,-0x1
0d6c 01db       |    |		Execute	Vector,Length
0d6d 7002       |p   |		Jump_Nonzero	0xd70
0d6e e803       |    |		Load	0x4,0x3
0d6f 00ca       |    |		Action	Exit_Nullary_Function
0d70 e7ff       |    |		Load	0x3,-0x1
0d71 0335       | 5  |		Declare_Variable	Array,Duplicate
0d72 00cd       |    |		Action	Spare6_Action
0d73 00ca       |    |		Action	Exit_Nullary_Function
0d74 0000 0000  |    |		.BLANK	0000[0x4]
0d78 ; --------------------------------------------------------------------------------------
0d78 ; SUBPROGRAM
0d78 ; --------------------------------------------------------------------------------------
0d78 0de2       |    |		.CONST	0x0de2								; Address of begin
0d79 0004       |    |		.CONST	0x0004								; Address of exception handler
0d7a 0028       | (  |		.CONST	0x0028								; Number of locals
0d7b			INIT_0d78:
0d7b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0d7c 029a 0deb  |    |		Declare_Subprogram	INIT_0de8,For_Outer_Call,Visible,Unelaborated
0d7e 029a 0e8b  |    |		Declare_Subprogram	INIT_0e88,For_Outer_Call,Visible,Unelaborated
0d80 029a 0f0b  |    |		Declare_Subprogram	INIT_0f08,For_Outer_Call,Visible,Unelaborated
0d82 029a 0f13  |    |		Declare_Subprogram	INIT_0f10,For_Outer_Call,Visible,Unelaborated
0d84 029a 0fc3  |    |		Declare_Subprogram	INIT_0fc0,For_Outer_Call,Visible,Unelaborated
0d86 029a 0fe3  |    |		Declare_Subprogram	INIT_0fe0,For_Outer_Call,Visible,Unelaborated
0d88 029a 0feb  |    |		Declare_Subprogram	INIT_0fe8,For_Outer_Call,Visible,Unelaborated
0d8a 029a 0ffb  |    |		Declare_Subprogram	INIT_0ff8,For_Outer_Call,Visible,Unelaborated
0d8c 029a 100b  |    |		Declare_Subprogram	INIT_1008,For_Outer_Call,Visible,Unelaborated
0d8e 029a 1013  |    |		Declare_Subprogram	INIT_1010,For_Outer_Call,Visible,Unelaborated
0d90 029a 101b  |    |		Declare_Subprogram	INIT_1018,For_Outer_Call,Visible,Unelaborated
0d92 029a 102b  |   +|		Declare_Subprogram	INIT_1028,For_Outer_Call,Visible,Unelaborated
0d94 029a 103b  |   ;|		Declare_Subprogram	INIT_1038,For_Outer_Call,Visible,Unelaborated
0d96 029a 104b  |   K|		Declare_Subprogram	INIT_1048,For_Outer_Call,Visible,Unelaborated
0d98 4809       |H   |		Short_Literal	0x9
0d99 032a       | *  |		Declare_Type	Record,Incomplete
0d9a 00d8       |    |		Load_Top	At_Offset_0
0d9b 02a0       |    |		Declare_Subprogram	Null_Subprogram
0d9c e212       |    |		Load	0x1,0x12
0d9d 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0d9e 00bf       |    |		Action	Accept_Activation
0d9f e001       |    |		Load	0x0,0x1
0da0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0da1 e002       |    |		Load	0x0,0x2
0da2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0da3 e003       |    |		Load	0x0,0x3
0da4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0da5 e004       |    |		Load	0x0,0x4
0da6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0da7 00e1       |    |		Load_Encached	Boolean_Cache
0da8 e002       |    |		Load	0x0,0x2
0da9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0daa 00e1       |    |		Load_Encached	Boolean_Cache
0dab e005       |    |		Load	0x0,0x5
0dac 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0dad e210       |    |		Load	0x1,0x10
0dae 029f 1053  |   S|		Declare_Subprogram	INIT_1050,For_Call
0db0 e221       | !  |		Load	0x1,0x21
0db1 0326       | &  |		Complete_Type	Record,By_Defining
0db2 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0db3 00c7       |    |		Action	Elaborate_Subprogram
0db4 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0db5 00c7       |    |		Action	Elaborate_Subprogram
0db6 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0db7 00c7       |    |		Action	Elaborate_Subprogram
0db8 029d 107b  |   {|		Declare_Subprogram	INIT_1078,For_Outer_Call
0dba 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0dbb 00c7       |    |		Action	Elaborate_Subprogram
0dbc 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0dbd 00c7       |    |		Action	Elaborate_Subprogram
0dbe 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0dbf 00c7       |    |		Action	Elaborate_Subprogram
0dc0 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0dc1 00c7       |    |		Action	Elaborate_Subprogram
0dc2 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0dc3 00c7       |    |		Action	Elaborate_Subprogram
0dc4 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0dc5 00c7       |    |		Action	Elaborate_Subprogram
0dc6 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0dc7 00c7       |    |		Action	Elaborate_Subprogram
0dc8 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0dc9 00c7       |    |		Action	Elaborate_Subprogram
0dca 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0dcb 00c7       |    |		Action	Elaborate_Subprogram
0dcc e006       |    |		Load	0x0,0x6
0dcd e007       |    |		Load	0x0,0x7
0dce 00db       |    |		Load_Top	At_Offset_3
0dcf e212       |    |		Load	0x1,0x12
0dd0 e008       |    |		Load	0x0,0x8
0dd1 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0dd2 0387       |    |		Declare_Variable	Package
0dd3 00d8       |    |		Load_Top	At_Offset_0
0dd4 020f       |    |		Execute	Module,Activate
0dd5 e008       |    |		Load	0x0,0x8
0dd6 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0dd7 00c6       |    |		Action	Check_Subprogram_Elaborated
0dd8 00da       |    |		Load_Top	At_Offset_2
0dd9 e212       |    |		Load	0x1,0x12
0dda e009       |    |		Load	0x0,0x9
0ddb e00a       |    |		Load	0x0,0xa
0ddc 4800       |H   |		Short_Literal	0x0
0ddd 0007       |    |		Action	Break_Optional
0dde 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0ddf 00c7       |    |		Action	Elaborate_Subprogram
0de0 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0de1 00c7       |    |		Action	Elaborate_Subprogram
0de2			BODY_0d78:
0de2 00bc       |    |		Action	Signal_Activated
0de3 00bb       |    |		Action	Signal_Completion
0de4 0000 0000  |    |		.BLANK	0000[0x4]
0de8 ; --------------------------------------------------------------------------------------
0de8 ; SUBPROGRAM
0de8 ; --------------------------------------------------------------------------------------
0de8 0df7       |    |		.CONST	0x0df7								; Address of begin
0de9 0e3e       | >  |		.CONST	0x0e3e								; Address of exception handler
0dea 0003       |    |		.CONST	0x0003								; Number of locals
0deb			INIT_0de8:
0deb e004       |    |		Load	0x0,0x4
0dec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ded 02c7       |    |		Declare_Variable	Any
0dee 00d8       |    |		Load_Top	At_Offset_0
0def 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0df0 e212       |    |		Load	0x1,0x12
0df1 e00b       |    |		Load	0x0,0xb
0df2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0df3 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0df4 00d8       |    |		Load_Top	At_Offset_0
0df5 0217       |    |		Execute	Heap_Access,All_Reference
0df6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0df7			BODY_0de8:
0df7 e5ff       |    |		Load	0x2,-0x1
0df8 e20f       |    |		Load	0x1,0xf
0df9 0119       |    |		Execute	Any,Check_In_Formal_Type
0dfa e210       |    |		Load	0x1,0x10
0dfb e00b       |    |		Load	0x0,0xb
0dfc 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0dfd 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0dfe 00d9       |    |		Load_Top	At_Offset_1
0dff 0217       |    |		Execute	Heap_Access,All_Reference
0e00 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0e01 e5fa       |    |		Load	0x2,-0x6
0e02 00da       |    |		Load_Top	At_Offset_2
0e03 e5fd       |    |		Load	0x2,-0x3
0e04 e5fe       |    |		Load	0x2,-0x2
0e05 800c       |    |		Call	0x0,0xc
0e06 c402       |    |		Store	0x2,0x2
0e07 c5fa       |    |		Store	0x2,-0x6
0e08 4800       |H   |		Short_Literal	0x0
0e09 e5fa       |    |		Load	0x2,-0x6
0e0a e001       |    |		Load	0x0,0x1
0e0b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0e0c 6811       |h   |		Jump_Zero	0xe1e
0e0d e00d       |    |		Load	0x0,0xd
0e0e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0e0f 4801       |H   |		Short_Literal	0x1
0e10 4801       |H   |		Short_Literal	0x1
0e11 e00e       |    |		Load	0x0,0xe
0e12 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e13 035b       | [  |		Declare_Type	Array,Constrained
0e14 0337       | 7  |		Declare_Variable	Array
0e15 e5fe       |    |		Load	0x2,-0x2
0e16 e00e       |    |		Load	0x0,0xe
0e17 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e18 4801       |H   |		Short_Literal	0x1
0e19 00da       |    |		Load_Top	At_Offset_2
0e1a 01d6       |    |		Execute	Vector,Field_Write
0e1b 6068       |`h  |		Indirect_Literal	Discrete,0xe84,{0x00000000, 0x00004029}
0e1c e001       |    |		Load	0x0,0x1
0e1d 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0e1e e5fa       |    |		Load	0x2,-0x6
0e1f 00d9       |    |		Load_Top	At_Offset_1
0e20 0217       |    |		Execute	Heap_Access,All_Reference
0e21 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0e22 e5fc       |    |		Load	0x2,-0x4
0e23 00d9       |    |		Load_Top	At_Offset_1
0e24 0217       |    |		Execute	Heap_Access,All_Reference
0e25 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0e26 00d9       |    |		Load_Top	At_Offset_1
0e27 00d9       |    |		Load_Top	At_Offset_1
0e28 0217       |    |		Execute	Heap_Access,All_Reference
0e29 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0e2a 4801       |H   |		Short_Literal	0x1
0e2b 00d9       |    |		Load_Top	At_Offset_1
0e2c 0217       |    |		Execute	Heap_Access,All_Reference
0e2d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0e2e 4800       |H   |		Short_Literal	0x0
0e2f 00d9       |    |		Load_Top	At_Offset_1
0e30 0217       |    |		Execute	Heap_Access,All_Reference
0e31 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0e32 e005       |    |		Load	0x0,0x5
0e33 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0e34 00d9       |    |		Load_Top	At_Offset_1
0e35 0217       |    |		Execute	Heap_Access,All_Reference
0e36 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0e37 00d8       |    |		Load_Top	At_Offset_0
0e38 a5fb       |    |		Store_Unchecked	0x2,-0x5
0e39 00d8       |    |		Load_Top	At_Offset_0
0e3a 0217       |    |		Execute	Heap_Access,All_Reference
0e3b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e3c a5fa       |    |		Store_Unchecked	0x2,-0x6
0e3d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0e3e			TRAP_0de8:
0e3e e00f       |    |		Load	0x0,0xf
0e3f 010f       |    |		Execute	Exception,Equal
0e40 681b       |h   |		Jump_Zero	0xe5c
0e41 e001       |    |		Load	0x0,0x1
0e42 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e43 4801       |H   |		Short_Literal	0x1
0e44 4802       |H   |		Short_Literal	0x2
0e45 e00e       |    |		Load	0x0,0xe
0e46 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e47 035b       | [  |		Declare_Type	Array,Constrained
0e48 0337       | 7  |		Declare_Variable	Array
0e49 e5fe       |    |		Load	0x2,-0x2
0e4a e00e       |    |		Load	0x0,0xe
0e4b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e4c 4801       |H   |		Short_Literal	0x1
0e4d 00da       |    |		Load_Top	At_Offset_2
0e4e 01d6       |    |		Execute	Vector,Field_Write
0e4f e5fd       |    |		Load	0x2,-0x3
0e50 e00e       |    |		Load	0x0,0xe
0e51 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0e52 4802       |H   |		Short_Literal	0x2
0e53 00da       |    |		Load_Top	At_Offset_2
0e54 01d6       |    |		Execute	Vector,Field_Write
0e55 602a       |`*  |		Indirect_Literal	Discrete,0xe80,{0x00000000, 0x0000400a}
0e56 e001       |    |		Load	0x0,0x1
0e57 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e58 c5fa       |    |		Store	0x2,-0x6
0e59 e212       |    |		Load	0x1,0x12
0e5a a5fb       |    |		Store_Unchecked	0x2,-0x5
0e5b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0e5c 010b       |    |		Execute	Exception,Is_Storage_Error
0e5d 681b       |h   |		Jump_Zero	0xe79
0e5e e001       |    |		Load	0x0,0x1
0e5f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e60 4801       |H   |		Short_Literal	0x1
0e61 4802       |H   |		Short_Literal	0x2
0e62 e00e       |    |		Load	0x0,0xe
0e63 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e64 035b       | [  |		Declare_Type	Array,Constrained
0e65 0337       | 7  |		Declare_Variable	Array
0e66 e5fe       |    |		Load	0x2,-0x2
0e67 e00e       |    |		Load	0x0,0xe
0e68 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e69 4801       |H   |		Short_Literal	0x1
0e6a 00da       |    |		Load_Top	At_Offset_2
0e6b 01d6       |    |		Execute	Vector,Field_Write
0e6c e5fd       |    |		Load	0x2,-0x3
0e6d e00e       |    |		Load	0x0,0xe
0e6e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0e6f 4802       |H   |		Short_Literal	0x2
0e70 00da       |    |		Load_Top	At_Offset_2
0e71 01d6       |    |		Execute	Vector,Field_Write
0e72 6009       |`   |		Indirect_Literal	Discrete,0xe7c,{0x00000000, 0x00004003}
0e73 e001       |    |		Load	0x0,0x1
0e74 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e75 c5fa       |    |		Store	0x2,-0x6
0e76 e212       |    |		Load	0x1,0x12
0e77 a5fb       |    |		Store_Unchecked	0x2,-0x5
0e78 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0e79 0100       |    |		Execute	Exception,Raise
0e7a 0000 0000  |    |		.XXX[0x2]
0e7c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004003}
0e80 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000400a}
0e84 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004029}
0e88 ; --------------------------------------------------------------------------------------
0e88 ; SUBPROGRAM
0e88 ; --------------------------------------------------------------------------------------
0e88 0e97       |    |		.CONST	0x0e97								; Address of begin
0e89 0ee7       |    |		.CONST	0x0ee7								; Address of exception handler
0e8a 0003       |    |		.CONST	0x0003								; Number of locals
0e8b			INIT_0e88:
0e8b e002       |    |		Load	0x0,0x2
0e8c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e8d 02c7       |    |		Declare_Variable	Any
0e8e 00d8       |    |		Load_Top	At_Offset_0
0e8f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e90 e212       |    |		Load	0x1,0x12
0e91 e00b       |    |		Load	0x0,0xb
0e92 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0e93 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0e94 00d8       |    |		Load_Top	At_Offset_0
0e95 0217       |    |		Execute	Heap_Access,All_Reference
0e96 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e97			BODY_0e88:
0e97 e5ff       |    |		Load	0x2,-0x1
0e98 e20f       |    |		Load	0x1,0xf
0e99 0119       |    |		Execute	Any,Check_In_Formal_Type
0e9a e210       |    |		Load	0x1,0x10
0e9b e00b       |    |		Load	0x0,0xb
0e9c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0e9d 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0e9e 00d9       |    |		Load_Top	At_Offset_1
0e9f 0217       |    |		Execute	Heap_Access,All_Reference
0ea0 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0ea1 e001       |    |		Load	0x0,0x1
0ea2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ea3 00d9       |    |		Load_Top	At_Offset_1
0ea4 0217       |    |		Execute	Heap_Access,All_Reference
0ea5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0ea6 e5fd       |    |		Load	0x2,-0x3
0ea7 00d9       |    |		Load_Top	At_Offset_1
0ea8 0217       |    |		Execute	Heap_Access,All_Reference
0ea9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0eaa e5fe       |    |		Load	0x2,-0x2
0eab 00d9       |    |		Load_Top	At_Offset_1
0eac 0217       |    |		Execute	Heap_Access,All_Reference
0ead 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0eae 00d9       |    |		Load_Top	At_Offset_1
0eaf e010       |    |		Load	0x0,0x10
0eb0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0eb1 e004       |    |		Load	0x0,0x4
0eb2 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0eb3 e004       |    |		Load	0x0,0x4
0eb4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0eb5 00ea       |    |		Load_Encached	Null_String_Cache
0eb6 e5fe       |    |		Load	0x2,-0x2
0eb7 e004       |    |		Load	0x0,0x4
0eb8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0eb9 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0eba 4801       |H   |		Short_Literal	0x1
0ebb e002       |    |		Load	0x0,0x2
0ebc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0ebd c402       |    |		Store	0x2,0x2
0ebe e00d       |    |		Load	0x0,0xd
0ebf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ec0 4801       |H   |		Short_Literal	0x1
0ec1 4801       |H   |		Short_Literal	0x1
0ec2 e00e       |    |		Load	0x0,0xe
0ec3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ec4 035b       | [  |		Declare_Type	Array,Constrained
0ec5 0337       | 7  |		Declare_Variable	Array
0ec6 e5fe       |    |		Load	0x2,-0x2
0ec7 e00e       |    |		Load	0x0,0xe
0ec8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ec9 4801       |H   |		Short_Literal	0x1
0eca 00da       |    |		Load_Top	At_Offset_2
0ecb 01d6       |    |		Execute	Vector,Field_Write
0ecc 6033       |`3  |		Indirect_Literal	Discrete,0xf00,{0x00000000, 0x0000402a}
0ecd e001       |    |		Load	0x0,0x1
0ece 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0ecf 00d9       |    |		Load_Top	At_Offset_1
0ed0 00d9       |    |		Load_Top	At_Offset_1
0ed1 0217       |    |		Execute	Heap_Access,All_Reference
0ed2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ed3 4800       |H   |		Short_Literal	0x0
0ed4 00d9       |    |		Load_Top	At_Offset_1
0ed5 0217       |    |		Execute	Heap_Access,All_Reference
0ed6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0ed7 4800       |H   |		Short_Literal	0x0
0ed8 00d9       |    |		Load_Top	At_Offset_1
0ed9 0217       |    |		Execute	Heap_Access,All_Reference
0eda 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0edb e005       |    |		Load	0x0,0x5
0edc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0edd 00d9       |    |		Load_Top	At_Offset_1
0ede 0217       |    |		Execute	Heap_Access,All_Reference
0edf 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0ee0 00d8       |    |		Load_Top	At_Offset_0
0ee1 a5fc       |    |		Store_Unchecked	0x2,-0x4
0ee2 00d8       |    |		Load_Top	At_Offset_0
0ee3 0217       |    |		Execute	Heap_Access,All_Reference
0ee4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ee5 a5fb       |    |		Store_Unchecked	0x2,-0x5
0ee6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0ee7			TRAP_0e88:
0ee7 010b       |    |		Execute	Exception,Is_Storage_Error
0ee8 6815       |h   |		Jump_Zero	0xefe
0ee9 e001       |    |		Load	0x0,0x1
0eea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0eeb 4801       |H   |		Short_Literal	0x1
0eec 4801       |H   |		Short_Literal	0x1
0eed e00e       |    |		Load	0x0,0xe
0eee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0eef 035b       | [  |		Declare_Type	Array,Constrained
0ef0 0337       | 7  |		Declare_Variable	Array
0ef1 e5fe       |    |		Load	0x2,-0x2
0ef2 e00e       |    |		Load	0x0,0xe
0ef3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ef4 4801       |H   |		Short_Literal	0x1
0ef5 00da       |    |		Load_Top	At_Offset_2
0ef6 01d6       |    |		Execute	Vector,Field_Write
0ef7 6784       |g   |		Indirect_Literal	Discrete,0xe7c,{0x00000000, 0x00004003}
0ef8 e001       |    |		Load	0x0,0x1
0ef9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0efa c5fb       |    |		Store	0x2,-0x5
0efb e212       |    |		Load	0x1,0x12
0efc a5fc       |    |		Store_Unchecked	0x2,-0x4
0efd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0efe 0100       |    |		Execute	Exception,Raise
0eff 0000       |    |		.XXX[0x1]
0f00 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000402a}
0f04 0000 0000  |    |		.BLANK	0000[0x4]
0f08 ; --------------------------------------------------------------------------------------
0f08 ; SUBPROGRAM
0f08 ; --------------------------------------------------------------------------------------
0f08 0f0b       |    |		.CONST	0x0f0b								; Address of begin
0f09 0004       |    |		.CONST	0x0004								; Address of exception handler
0f0a 0001       |    |		.CONST	0x0001								; Number of locals
0f0b			BODY_0f08:
0f0b			INIT_0f08:
0f0b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0f0c 0000 0000  |    |		.BLANK	0000[0x4]
0f10 ; --------------------------------------------------------------------------------------
0f10 ; SUBPROGRAM
0f10 ; --------------------------------------------------------------------------------------
0f10 0f3f       | ?  |		.CONST	0x0f3f								; Address of begin
0f11 0f94       |    |		.CONST	0x0f94								; Address of exception handler
0f12 000f       |    |		.CONST	0x000f								; Number of locals
0f13			INIT_0f10:
0f13 e001       |    |		Load	0x0,0x1
0f14 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f15 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f16 e002       |    |		Load	0x0,0x2
0f17 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f18 02c7       |    |		Declare_Variable	Any
0f19 00d8       |    |		Load_Top	At_Offset_0
0f1a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f1b e002       |    |		Load	0x0,0x2
0f1c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f1d 02c7       |    |		Declare_Variable	Any
0f1e 00d8       |    |		Load_Top	At_Offset_0
0f1f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f20 e00e       |    |		Load	0x0,0xe
0f21 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0f22 e00e       |    |		Load	0x0,0xe
0f23 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0f24 00ea       |    |		Load_Encached	Null_String_Cache
0f25 e5ff       |    |		Load	0x2,-0x1
0f26 0217       |    |		Execute	Heap_Access,All_Reference
0f27 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0f28 8011       |    |		Call	0x0,0x11
0f29 4801       |H   |		Short_Literal	0x1
0f2a 4900       |I   |		Short_Literal	0x100
0f2b 00e9       |    |		Load_Encached	String_Cache
0f2c 035b       | [  |		Declare_Type	Array,Constrained
0f2d 0337       | 7  |		Declare_Variable	Array
0f2e 00e3       |    |		Load_Encached	Natural_Cache
0f2f e5ff       |    |		Load	0x2,-0x1
0f30 0217       |    |		Execute	Heap_Access,All_Reference
0f31 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0f32 e004       |    |		Load	0x0,0x4
0f33 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0f34 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0f35 029f 10ab  |    |		Declare_Subprogram	INIT_10a8,For_Call
0f37 029f 1133  |   3|		Declare_Subprogram	INIT_1130,For_Call
0f39 029f 114b  |   K|		Declare_Subprogram	INIT_1148,For_Call
0f3b 029f 122b  |   +|		Declare_Subprogram	INIT_1228,For_Call
0f3d 029f 12cb  |    |		Declare_Subprogram	INIT_12c8,For_Call
0f3f			BODY_0f10:
0f3f e5fe       |    |		Load	0x2,-0x2
0f40 e012       |    |		Load	0x0,0x12
0f41 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f42 4612       |F   |		Jump_Case	0x13
0f43 7812       |x   |		Jump	0xf56								; case 0x0
0f44 7811       |x   |		Jump	0xf56								; case 0x1
0f45 7810       |x   |		Jump	0xf56								; case 0x2
0f46 780f       |x   |		Jump	0xf56								; case 0x3
0f47 780e       |x   |		Jump	0xf56								; case 0x4
0f48 780d       |x   |		Jump	0xf56								; case 0x5
0f49 780c       |x   |		Jump	0xf56								; case 0x6
0f4a 780b       |x   |		Jump	0xf56								; case 0x7
0f4b 780a       |x   |		Jump	0xf56								; case 0x8
0f4c 7809       |x   |		Jump	0xf56								; case 0x9
0f4d 7822       |x"  |		Jump	0xf70								; case 0xa
0f4e 782d       |x-  |		Jump	0xf7c								; case 0xb
0f4f 7838       |x8  |		Jump	0xf88								; case 0xc
0f50 7805       |x   |		Jump	0xf56								; case 0xd
0f51 7804       |x   |		Jump	0xf56								; case 0xe
0f52 7803       |x   |		Jump	0xf56								; case 0xf
0f53 7802       |x   |		Jump	0xf56								; case 0x10
0f54 7801       |x   |		Jump	0xf56								; case 0x11
0f55 7800       |x   |		Jump	0xf56								; case 0x12
0f56 e00d       |    |		Load	0x0,0xd
0f57 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0f58 4801       |H   |		Short_Literal	0x1
0f59 4801       |H   |		Short_Literal	0x1
0f5a e00e       |    |		Load	0x0,0xe
0f5b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0f5c 035b       | [  |		Declare_Type	Array,Constrained
0f5d 0337       | 7  |		Declare_Variable	Array
0f5e e5fe       |    |		Load	0x2,-0x2
0f5f e012       |    |		Load	0x0,0x12
0f60 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0f61 4801       |H   |		Short_Literal	0x1
0f62 00da       |    |		Load_Top	At_Offset_2
0f63 01d6       |    |		Execute	Vector,Field_Write
0f64 6057       |`W  |		Indirect_Literal	Discrete,0xfbc,{0x00000000, 0x00004016}
0f65 e001       |    |		Load	0x0,0x1
0f66 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0f67 e00e       |    |		Load	0x0,0xe
0f68 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0f69 6052       |`R  |		Indirect_Literal	Discrete,0xfbc,{0x00000000, 0x00004016}
0f6a e001       |    |		Load	0x0,0x1
0f6b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f6c e5fe       |    |		Load	0x2,-0x2
0f6d e012       |    |		Load	0x0,0x12
0f6e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0f6f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f70 4801       |H   |		Short_Literal	0x1
0f71 e5fe       |    |		Load	0x2,-0x2
0f72 e012       |    |		Load	0x0,0x12
0f73 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0f74 a405       |    |		Store_Unchecked	0x2,0x5
0f75 4802       |H   |		Short_Literal	0x2
0f76 e5fe       |    |		Load	0x2,-0x2
0f77 e012       |    |		Load	0x0,0x12
0f78 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0f79 a406       |    |		Store_Unchecked	0x2,0x6
0f7a 840d       |    |		Call	0x2,0xd
0f7b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f7c 4801       |H   |		Short_Literal	0x1
0f7d e5fe       |    |		Load	0x2,-0x2
0f7e e012       |    |		Load	0x0,0x12
0f7f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0f80 a405       |    |		Store_Unchecked	0x2,0x5
0f81 4802       |H   |		Short_Literal	0x2
0f82 e5fe       |    |		Load	0x2,-0x2
0f83 e012       |    |		Load	0x0,0x12
0f84 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0f85 a406       |    |		Store_Unchecked	0x2,0x6
0f86 840e       |    |		Call	0x2,0xe
0f87 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f88 4801       |H   |		Short_Literal	0x1
0f89 e5fe       |    |		Load	0x2,-0x2
0f8a e012       |    |		Load	0x0,0x12
0f8b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0f8c a405       |    |		Store_Unchecked	0x2,0x5
0f8d 4802       |H   |		Short_Literal	0x2
0f8e e5fe       |    |		Load	0x2,-0x2
0f8f e012       |    |		Load	0x0,0x12
0f90 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0f91 a406       |    |		Store_Unchecked	0x2,0x6
0f92 840f       |    |		Call	0x2,0xf
0f93 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0f94			TRAP_0f10:
0f94 e013       |    |		Load	0x0,0x13
0f95 010f       |    |		Execute	Exception,Equal
0f96 681c       |h   |		Jump_Zero	0xfb3
0f97 e5ff       |    |		Load	0x2,-0x1
0f98 8222       | "  |		Call	0x1,0x22
0f99 e00d       |    |		Load	0x0,0xd
0f9a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0f9b 4801       |H   |		Short_Literal	0x1
0f9c 4801       |H   |		Short_Literal	0x1
0f9d e00e       |    |		Load	0x0,0xe
0f9e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0f9f 035b       | [  |		Declare_Type	Array,Constrained
0fa0 0337       | 7  |		Declare_Variable	Array
0fa1 e5fe       |    |		Load	0x2,-0x2
0fa2 e012       |    |		Load	0x0,0x12
0fa3 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0fa4 4801       |H   |		Short_Literal	0x1
0fa5 00da       |    |		Load_Top	At_Offset_2
0fa6 01d6       |    |		Execute	Vector,Field_Write
0fa7 6010       |`   |		Indirect_Literal	Discrete,0xfb8,{0x00000000, 0x00004019}
0fa8 e001       |    |		Load	0x0,0x1
0fa9 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0faa e00e       |    |		Load	0x0,0xe
0fab 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0fac 600b       |`   |		Indirect_Literal	Discrete,0xfb8,{0x00000000, 0x00004019}
0fad e001       |    |		Load	0x0,0x1
0fae 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0faf e5fe       |    |		Load	0x2,-0x2
0fb0 e012       |    |		Load	0x0,0x12
0fb1 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0fb2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0fb3 e5ff       |    |		Load	0x2,-0x1
0fb4 8222       | "  |		Call	0x1,0x22
0fb5 00d8       |    |		Load_Top	At_Offset_0
0fb6 0101       |    |		Execute	Exception,Reraise
0fb7 0000       |    |		.XXX[0x1]
0fb8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004019}
0fbc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004016}
0fc0 ; --------------------------------------------------------------------------------------
0fc0 ; SUBPROGRAM
0fc0 ; --------------------------------------------------------------------------------------
0fc0 0fc3       |    |		.CONST	0x0fc3								; Address of begin
0fc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fc2 0001       |    |		.CONST	0x0001								; Number of locals
0fc3			BODY_0fc0:
0fc3			INIT_0fc0:
0fc3 00da       |    |		Load_Top	At_Offset_2
0fc4 0217       |    |		Execute	Heap_Access,All_Reference
0fc5 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0fc6 0219       |    |		Execute	Heap_Access,All_Read
0fc7 c5fe       |    |		Store	0x2,-0x2
0fc8 00da       |    |		Load_Top	At_Offset_2
0fc9 0217       |    |		Execute	Heap_Access,All_Reference
0fca 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0fcb 7009       |p   |		Jump_Nonzero	0xfd5
0fcc 00da       |    |		Load_Top	At_Offset_2
0fcd 0219       |    |		Execute	Heap_Access,All_Read
0fce 00d8       |    |		Load_Top	At_Offset_0
0fcf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0fd0 e002       |    |		Load	0x0,0x2
0fd1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0fd2 00d9       |    |		Load_Top	At_Offset_1
0fd3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0fd4 00d1       |    |		Pop_Control	Pop_Count_1
0fd5 e210       |    |		Load	0x1,0x10
0fd6 00db       |    |		Load_Top	At_Offset_3
0fd7 0217       |    |		Execute	Heap_Access,All_Reference
0fd8 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0fd9 00da       |    |		Load_Top	At_Offset_2
0fda 8222       | "  |		Call	0x1,0x22
0fdb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0fdc 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
0fe4 0217       |    |		Execute	Heap_Access,All_Reference
0fe5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0fe6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0fe7 0000       |    |		.XXX[0x1]
0fe8 ; --------------------------------------------------------------------------------------
0fe8 ; SUBPROGRAM
0fe8 ; --------------------------------------------------------------------------------------
0fe8 0feb       |    |		.CONST	0x0feb								; Address of begin
0fe9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fea 0001       |    |		.CONST	0x0001								; Number of locals
0feb			BODY_0fe8:
0feb			INIT_0fe8:
0feb 00da       |    |		Load_Top	At_Offset_2
0fec 0217       |    |		Execute	Heap_Access,All_Reference
0fed 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0fee 00d8       |    |		Load_Top	At_Offset_0
0fef 0120       |    |		Execute	Any,Is_Value
0ff0 7002       |p   |		Jump_Nonzero	0xff3
0ff1 00d8       |    |		Load_Top	At_Offset_0
0ff2 011e       |    |		Execute	Any,Convert
0ff3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ff4 0000 0000  |    |		.BLANK	0000[0x4]
0ff8 ; --------------------------------------------------------------------------------------
0ff8 ; SUBPROGRAM
0ff8 ; --------------------------------------------------------------------------------------
0ff8 0ffb       |    |		.CONST	0x0ffb								; Address of begin
0ff9 0004       |    |		.CONST	0x0004								; Address of exception handler
0ffa 0001       |    |		.CONST	0x0001								; Number of locals
0ffb			BODY_0ff8:
0ffb			INIT_0ff8:
0ffb 00da       |    |		Load_Top	At_Offset_2
0ffc 0217       |    |		Execute	Heap_Access,All_Reference
0ffd 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0ffe e210       |    |		Load	0x1,0x10
0fff 0213       |    |		Execute	Heap_Access,Check_In_Type
1000 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1001 0000 0000  |    |		.BLANK	0000[0x7]
1008 ; --------------------------------------------------------------------------------------
1008 ; SUBPROGRAM
1008 ; --------------------------------------------------------------------------------------
1008 100b       |    |		.CONST	0x100b								; Address of begin
1009 0004       |    |		.CONST	0x0004								; Address of exception handler
100a 0001       |    |		.CONST	0x0001								; Number of locals
100b			BODY_1008:
100b			INIT_1008:
100b 00da       |    |		Load_Top	At_Offset_2
100c 0217       |    |		Execute	Heap_Access,All_Reference
100d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
100e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
100f 0000       |    |		.XXX[0x1]
1010 ; --------------------------------------------------------------------------------------
1010 ; SUBPROGRAM
1010 ; --------------------------------------------------------------------------------------
1010 1013       |    |		.CONST	0x1013								; Address of begin
1011 0004       |    |		.CONST	0x0004								; Address of exception handler
1012 0001       |    |		.CONST	0x0001								; Number of locals
1013			BODY_1010:
1013			INIT_1010:
1013 00db       |    |		Load_Top	At_Offset_3
1014 00db       |    |		Load_Top	At_Offset_3
1015 0217       |    |		Execute	Heap_Access,All_Reference
1016 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1017 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 101b       |    |		.CONST	0x101b								; Address of begin
1019 0004       |    |		.CONST	0x0004								; Address of exception handler
101a 0001       |    |		.CONST	0x0001								; Number of locals
101b			BODY_1018:
101b			INIT_1018:
101b 4800       |H   |		Short_Literal	0x0
101c 00db       |    |		Load_Top	At_Offset_3
101d 0217       |    |		Execute	Heap_Access,All_Reference
101e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
101f e001       |    |		Load	0x0,0x1
1020 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
1021 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1022 0000 0000  |    |		.BLANK	0000[0x6]
1028 ; --------------------------------------------------------------------------------------
1028 ; SUBPROGRAM
1028 ; --------------------------------------------------------------------------------------
1028 102b       | +  |		.CONST	0x102b								; Address of begin
1029 0004       |    |		.CONST	0x0004								; Address of exception handler
102a 0001       |    |		.CONST	0x0001								; Number of locals
102b			BODY_1028:
102b			INIT_1028:
102b 00da       |    |		Load_Top	At_Offset_2
102c 0217       |    |		Execute	Heap_Access,All_Reference
102d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
102e e001       |    |		Load	0x0,0x1
102f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
1030 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1031 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
103c e00b       |    |		Load	0x0,0xb
103d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
103e e224       | $  |		Load	0x1,0x24
103f e225       | %  |		Load	0x1,0x25
1040 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
1041 e008       |    |		Load	0x0,0x8
1042 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1043 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1044 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
104c e223       | #  |		Load	0x1,0x23
104d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
104e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
104f 0000       |    |		.XXX[0x1]
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 4608       |F   |		Jump_Case	0x9
1054 7808       |x   |		Jump	0x105d								; case 0x0
1055 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
1056 7819       |x   |		Jump	0x1070								; case 0x2
1057 7818       |x   |		Jump	0x1070								; case 0x3
1058 7817       |x   |		Jump	0x1070								; case 0x4
1059 7816       |x   |		Jump	0x1070								; case 0x5
105a 7815       |x   |		Jump	0x1070								; case 0x6
105b 7814       |x   |		Jump	0x1070								; case 0x7
105c 7813       |x   |		Jump	0x1070								; case 0x8
105d 00da       |    |		Load_Top	At_Offset_2
105e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
105f 0125       | %  |		Execute	Any,Set_Constraint
1060 00da       |    |		Load_Top	At_Offset_2
1061 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
1062 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1063 00da       |    |		Load_Top	At_Offset_2
1064 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
1065 0125       | %  |		Execute	Any,Set_Constraint
1066 00da       |    |		Load_Top	At_Offset_2
1067 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
1068 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1069 00da       |    |		Load_Top	At_Offset_2
106a 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
106b 0125       | %  |		Execute	Any,Set_Constraint
106c 00da       |    |		Load_Top	At_Offset_2
106d 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
106e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
106f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
1070 0869       | i  |		Execute_Immediate	Raise,0x69
1071 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
107c 0217       |    |		Execute	Heap_Access,All_Reference
107d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
107e 6827       |h'  |		Jump_Zero	0x10a6
107f 00da       |    |		Load_Top	At_Offset_2
1080 0217       |    |		Execute	Heap_Access,All_Reference
1081 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
1082 e002       |    |		Load	0x0,0x2
1083 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
1084 7014       |p   |		Jump_Nonzero	0x1099
1085 00da       |    |		Load_Top	At_Offset_2
1086 0219       |    |		Execute	Heap_Access,All_Read
1087 00d8       |    |		Load_Top	At_Offset_0
1088 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
1089 e010       |    |		Load	0x0,0x10
108a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
108b e004       |    |		Load	0x0,0x4
108c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
108d 00ea       |    |		Load_Encached	Null_String_Cache
108e 00ea       |    |		Load_Encached	Null_String_Cache
108f e5ff       |    |		Load	0x2,-0x1
1090 0217       |    |		Execute	Heap_Access,All_Reference
1091 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
1092 8011       |    |		Call	0x0,0x11
1093 4800       |H   |		Short_Literal	0x0
1094 e002       |    |		Load	0x0,0x2
1095 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
1096 00d9       |    |		Load_Top	At_Offset_1
1097 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
1098 00d1       |    |		Pop_Control	Pop_Count_1
1099 00da       |    |		Load_Top	At_Offset_2
109a 0219       |    |		Execute	Heap_Access,All_Read
109b 00d8       |    |		Load_Top	At_Offset_0
109c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
109d e002       |    |		Load	0x0,0x2
109e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
109f 00d9       |    |		Load_Top	At_Offset_1
10a0 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
10a1 00d1       |    |		Pop_Control	Pop_Count_1
10a2 4800       |H   |		Short_Literal	0x0
10a3 00db       |    |		Load_Top	At_Offset_3
10a4 0217       |    |		Execute	Heap_Access,All_Reference
10a5 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
10a6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
10a7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
10ac 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
10ae 01df       |    |		Execute	Vector,Equal
10af 680a       |h   |		Jump_Zero	0x10ba
10b0 e5ff       |    |		Load	0x2,-0x1
10b1 0217       |    |		Execute	Heap_Access,All_Reference
10b2 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
10b3 c404       |    |		Store	0x2,0x4
10b4 e404       |    |		Load	0x2,0x4
10b5 4800       |H   |		Short_Literal	0x0
10b6 e002       |    |		Load	0x0,0x2
10b7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
10b8 c404       |    |		Store	0x2,0x4
10b9 780b       |x   |		Jump	0x10c5
10ba e404       |    |		Load	0x2,0x4
10bb e010       |    |		Load	0x0,0x10
10bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10bd e004       |    |		Load	0x0,0x4
10be 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
10bf 00ea       |    |		Load_Encached	Null_String_Cache
10c0 e7ff       |    |		Load	0x3,-0x1
10c1 4800       |H   |		Short_Literal	0x0
10c2 e002       |    |		Load	0x0,0x2
10c3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
10c4 c404       |    |		Store	0x2,0x4
10c5 e5ff       |    |		Load	0x2,-0x1
10c6 0217       |    |		Execute	Heap_Access,All_Reference
10c7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
10c8 681d       |h   |		Jump_Zero	0x10e6
10c9 00db       |    |		Load_Top	At_Offset_3
10ca 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
10cc 01df       |    |		Execute	Vector,Equal
10cd 680a       |h   |		Jump_Zero	0x10d8
10ce e5ff       |    |		Load	0x2,-0x1
10cf 0217       |    |		Execute	Heap_Access,All_Reference
10d0 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
10d1 c403       |    |		Store	0x2,0x3
10d2 e403       |    |		Load	0x2,0x3
10d3 4801       |H   |		Short_Literal	0x1
10d4 e002       |    |		Load	0x0,0x2
10d5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
10d6 c403       |    |		Store	0x2,0x3
10d7 7826       |x&  |		Jump	0x10fe
10d8 e403       |    |		Load	0x2,0x3
10d9 e010       |    |		Load	0x0,0x10
10da 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10db e004       |    |		Load	0x0,0x4
10dc 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
10dd e004       |    |		Load	0x0,0x4
10de 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
10df 00ea       |    |		Load_Encached	Null_String_Cache
10e0 e7fe       |    |		Load	0x3,-0x2
10e1 4801       |H   |		Short_Literal	0x1
10e2 e002       |    |		Load	0x0,0x2
10e3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
10e4 c403       |    |		Store	0x2,0x3
10e5 7818       |x   |		Jump	0x10fe
10e6 e7fd       |    |		Load	0x3,-0x3
10e7 680e       |h   |		Jump_Zero	0x10f6
10e8 e403       |    |		Load	0x2,0x3
10e9 e010       |    |		Load	0x0,0x10
10ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
10eb e004       |    |		Load	0x0,0x4
10ec 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
10ed e004       |    |		Load	0x0,0x4
10ee 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
10ef 00ea       |    |		Load_Encached	Null_String_Cache
10f0 e7fe       |    |		Load	0x3,-0x2
10f1 4801       |H   |		Short_Literal	0x1
10f2 e002       |    |		Load	0x0,0x2
10f3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
10f4 c403       |    |		Store	0x2,0x3
10f5 7808       |x   |		Jump	0x10fe
10f6 e5ff       |    |		Load	0x2,-0x1
10f7 0217       |    |		Execute	Heap_Access,All_Reference
10f8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
10f9 c403       |    |		Store	0x2,0x3
10fa 00db       |    |		Load_Top	At_Offset_3
10fb e403       |    |		Load	0x2,0x3
10fc e002       |    |		Load	0x0,0x2
10fd 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
10fe 00cf       |    |		Action	Mark_Auxiliary
10ff 780f       |x   |		Jump	0x110f
1100 00e3       |    |		Load_Encached	Natural_Cache
1101 e408       |    |		Load	0x2,0x8
1102 e404       |    |		Load	0x2,0x4
1103 e002       |    |		Load	0x0,0x2
1104 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
1105 00d1       |    |		Pop_Control	Pop_Count_1
1106 c409       |    |		Store	0x2,0x9
1107 4801       |H   |		Short_Literal	0x1
1108 e409       |    |		Load	0x2,0x9
1109 e408       |    |		Load	0x2,0x8
110a 01cf       |    |		Execute	Vector,Slice_Read
110b e403       |    |		Load	0x2,0x3
110c e002       |    |		Load	0x0,0x2
110d 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
110e 00c9       |    |		Action	Pop_Auxiliary_Loop
110f e404       |    |		Load	0x2,0x4
1110 e002       |    |		Load	0x0,0x2
1111 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
1112 6fed       |o   |		Jump_Zero	0x1100
1113 00ce       |    |		Action	Pop_Auxiliary
1114 00da       |    |		Load_Top	At_Offset_2
1115 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
1117 01de       |    |		Execute	Vector,Not_Equal
1118 6804       |h   |		Jump_Zero	0x111d
1119 e404       |    |		Load	0x2,0x4
111a e002       |    |		Load	0x0,0x2
111b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
111c c404       |    |		Store	0x2,0x4
111d e7fd       |    |		Load	0x3,-0x3
111e 7009       |p   |		Jump_Nonzero	0x1128
111f e5ff       |    |		Load	0x2,-0x1
1120 0217       |    |		Execute	Heap_Access,All_Reference
1121 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1122 6809       |h   |		Jump_Zero	0x112c
1123 00db       |    |		Load_Top	At_Offset_3
1124 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
1126 01de       |    |		Execute	Vector,Not_Equal
1127 6804       |h   |		Jump_Zero	0x112c
1128 e403       |    |		Load	0x2,0x3
1129 e002       |    |		Load	0x0,0x2
112a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
112b c403       |    |		Store	0x2,0x3
112c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
112d 0000 0000  |    |		.XXX[0x3]
112f 0000       |    |
1130 ; --------------------------------------------------------------------------------------
1130 ; SUBPROGRAM
1130 ; --------------------------------------------------------------------------------------
1130 1135       | 5  |		.CONST	0x1135								; Address of begin
1131 0004       |    |		.CONST	0x0004								; Address of exception handler
1132 0002       |    |		.CONST	0x0002								; Number of locals
1133			INIT_1130:
1133 029f 1343  |   C|		Declare_Subprogram	INIT_1340,For_Call
1135			BODY_1130:
1135 00db       |    |		Load_Top	At_Offset_3
1136 e00e       |    |		Load	0x0,0xe
1137 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
1138 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
1139 7004       |p   |		Jump_Nonzero	0x113e
113a 0f01       |    |		Execute_Immediate	Equal,0x1
113b 7005       |p   |		Jump_Nonzero	0x1141
113c e013       |    |		Load	0x0,0x13
113d 0257       | W  |		Execute	Discrete,Raise
113e 00d1       |    |		Pop_Control	Pop_Count_1
113f 8602       |    |		Call	0x3,0x2
1140 7804       |x   |		Jump	0x1145
1141 00db       |    |		Load_Top	At_Offset_3
1142 e00e       |    |		Load	0x0,0xe
1143 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1144 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1145 0831       | 1  |		Execute_Immediate	Raise,0x31
1146 0000 0000  |    |		.XXX[0x2]
1148 ; --------------------------------------------------------------------------------------
1148 ; SUBPROGRAM
1148 ; --------------------------------------------------------------------------------------
1148 1158       | X  |		.CONST	0x1158								; Address of begin
1149 0004       |    |		.CONST	0x0004								; Address of exception handler
114a 0005       |    |		.CONST	0x0005								; Number of locals
114b			INIT_1148:
114b e405       |    |		Load	0x2,0x5
114c 8014       |    |		Call	0x0,0x14
114d e406       |    |		Load	0x2,0x6
114e 840c       |    |		Call	0x2,0xc
114f 00e1       |    |		Load_Encached	Boolean_Cache
1150 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1151 e00e       |    |		Load	0x0,0xe
1152 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1153 4803       |H   |		Short_Literal	0x3
1154 e5fe       |    |		Load	0x2,-0x2
1155 e012       |    |		Load	0x0,0x12
1156 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1157 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
1158			BODY_1148:
1158 e5fe       |    |		Load	0x2,-0x2
1159 8015       |    |		Call	0x0,0x15
115a 704a       |pJ  |		Jump_Nonzero	0x11a5
115b 00d8       |    |		Load_Top	At_Offset_0
115c e00e       |    |		Load	0x0,0xe
115d 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
115e 700e       |p   |		Jump_Nonzero	0x116d
115f 00d8       |    |		Load_Top	At_Offset_0
1160 e00e       |    |		Load	0x0,0xe
1161 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
1162 0f01       |    |		Execute_Immediate	Equal,0x1
1163 6809       |h   |		Jump_Zero	0x116d
1164 00d8       |    |		Load_Top	At_Offset_0
1165 e00e       |    |		Load	0x0,0xe
1166 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1167 0092 17e6  |    |		Action	Push_String_Extended,0x17e6					; "<SCRIPT_FILE>"
1169 01df       |    |		Execute	Vector,Equal
116a 6802       |h   |		Jump_Zero	0x116d
116b 4801       |H   |		Short_Literal	0x1
116c 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
116d 00d9       |    |		Load_Top	At_Offset_1
116e 00db       |    |		Load_Top	At_Offset_3
116f e602       |    |		Load	0x3,0x2
1170 840b       |    |		Call	0x2,0xb
1171 e5fe       |    |		Load	0x2,-0x2
1172 e012       |    |		Load	0x0,0x12
1173 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
1174 682f       |h/  |		Jump_Zero	0x11a4
1175 e5ff       |    |		Load	0x2,-0x1
1176 0217       |    |		Execute	Heap_Access,All_Reference
1177 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1178 7002       |p   |		Jump_Nonzero	0x117b
1179 00d9       |    |		Load_Top	At_Offset_1
117a 6818       |h   |		Jump_Zero	0x1193
117b e00d       |    |		Load	0x0,0xd
117c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
117d 4801       |H   |		Short_Literal	0x1
117e 4802       |H   |		Short_Literal	0x2
117f e00e       |    |		Load	0x0,0xe
1180 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1181 035b       | [  |		Declare_Type	Array,Constrained
1182 0337       | 7  |		Declare_Variable	Array
1183 e602       |    |		Load	0x3,0x2
1184 e00e       |    |		Load	0x0,0xe
1185 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1186 4801       |H   |		Short_Literal	0x1
1187 00da       |    |		Load_Top	At_Offset_2
1188 01d6       |    |		Execute	Vector,Field_Write
1189 e603       |    |		Load	0x3,0x3
118a e00e       |    |		Load	0x0,0xe
118b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
118c 4802       |H   |		Short_Literal	0x2
118d 00da       |    |		Load_Top	At_Offset_2
118e 01d6       |    |		Execute	Vector,Field_Write
118f 6090       |`   |		Indirect_Literal	Discrete,0x1220,{0x00000000, 0x00004020}
1190 e001       |    |		Load	0x0,0x1
1191 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1192 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1193 e00d       |    |		Load	0x0,0xd
1194 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1195 4801       |H   |		Short_Literal	0x1
1196 4801       |H   |		Short_Literal	0x1
1197 e00e       |    |		Load	0x0,0xe
1198 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1199 035b       | [  |		Declare_Type	Array,Constrained
119a 0337       | 7  |		Declare_Variable	Array
119b e602       |    |		Load	0x3,0x2
119c e00e       |    |		Load	0x0,0xe
119d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
119e 4801       |H   |		Short_Literal	0x1
119f 00da       |    |		Load_Top	At_Offset_2
11a0 01d6       |    |		Execute	Vector,Field_Write
11a1 607a       |`z  |		Indirect_Literal	Discrete,0x121c,{0x00000000, 0x00004028}
11a2 e001       |    |		Load	0x0,0x1
11a3 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
11a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
11a5 e5fe       |    |		Load	0x2,-0x2
11a6 e012       |    |		Load	0x0,0x12
11a7 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
11a8 7002       |p   |		Jump_Nonzero	0x11ab
11a9 00cc       |    |		Action	Pop_Block
11aa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
11ab e5ff       |    |		Load	0x2,-0x1
11ac 0219       |    |		Execute	Heap_Access,All_Read
11ad e402       |    |		Load	0x2,0x2
11ae 00d9       |    |		Load_Top	At_Offset_1
11af 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
11b0 e407       |    |		Load	0x2,0x7
11b1 8016       |    |		Call	0x0,0x16
11b2 00da       |    |		Load_Top	At_Offset_2
11b3 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
11b4 c402       |    |		Store	0x2,0x2
11b5 00d1       |    |		Pop_Control	Pop_Count_1
11b6 4800       |H   |		Short_Literal	0x0
11b7 e402       |    |		Load	0x2,0x2
11b8 e001       |    |		Load	0x0,0x1
11b9 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
11ba 6805       |h   |		Jump_Zero	0x11c0
11bb 4801       |H   |		Short_Literal	0x1
11bc e5ff       |    |		Load	0x2,-0x1
11bd 0217       |    |		Execute	Heap_Access,All_Reference
11be 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
11bf 7806       |x   |		Jump	0x11c6
11c0 e402       |    |		Load	0x2,0x2
11c1 e5fe       |    |		Load	0x2,-0x2
11c2 e012       |    |		Load	0x0,0x12
11c3 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
11c4 00cc       |    |		Action	Pop_Block
11c5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
11c6 e5ff       |    |		Load	0x2,-0x1
11c7 0219       |    |		Execute	Heap_Access,All_Read
11c8 00d8       |    |		Load_Top	At_Offset_0
11c9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
11ca e5fe       |    |		Load	0x2,-0x2
11cb e017       |    |		Load	0x0,0x17
11cc a018       |    |		Store_Unchecked	0x0,0x18
11cd a019       |    |		Store_Unchecked	0x0,0x19
11ce a01a       |    |		Store_Unchecked	0x0,0x1a
11cf a01b       |    |		Store_Unchecked	0x0,0x1b
11d0 a01c       |    |		Store_Unchecked	0x0,0x1c
11d1 e01d       |    |		Load	0x0,0x1d
11d2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
11d3 00d9       |    |		Load_Top	At_Offset_1
11d4 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
11d5 00d1       |    |		Pop_Control	Pop_Count_1
11d6 e5ff       |    |		Load	0x2,-0x1
11d7 0219       |    |		Execute	Heap_Access,All_Read
11d8 00d8       |    |		Load_Top	At_Offset_0
11d9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
11da 4800       |H   |		Short_Literal	0x0
11db e002       |    |		Load	0x0,0x2
11dc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
11dd 00d9       |    |		Load_Top	At_Offset_1
11de 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
11df 00d1       |    |		Pop_Control	Pop_Count_1
11e0 4800       |H   |		Short_Literal	0x0
11e1 00db       |    |		Load_Top	At_Offset_3
11e2 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
11e4 840b       |    |		Call	0x2,0xb
11e5 e5fe       |    |		Load	0x2,-0x2
11e6 e012       |    |		Load	0x0,0x12
11e7 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
11e8 682d       |h-  |		Jump_Zero	0x1216
11e9 e5ff       |    |		Load	0x2,-0x1
11ea 0217       |    |		Execute	Heap_Access,All_Reference
11eb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
11ec 6818       |h   |		Jump_Zero	0x1205
11ed e00d       |    |		Load	0x0,0xd
11ee 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
11ef 4801       |H   |		Short_Literal	0x1
11f0 4802       |H   |		Short_Literal	0x2
11f1 e00e       |    |		Load	0x0,0xe
11f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
11f3 035b       | [  |		Declare_Type	Array,Constrained
11f4 0337       | 7  |		Declare_Variable	Array
11f5 e602       |    |		Load	0x3,0x2
11f6 e00e       |    |		Load	0x0,0xe
11f7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11f8 4801       |H   |		Short_Literal	0x1
11f9 00da       |    |		Load_Top	At_Offset_2
11fa 01d6       |    |		Execute	Vector,Field_Write
11fb e603       |    |		Load	0x3,0x3
11fc e00e       |    |		Load	0x0,0xe
11fd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11fe 4802       |H   |		Short_Literal	0x2
11ff 00da       |    |		Load_Top	At_Offset_2
1200 01d6       |    |		Execute	Vector,Field_Write
1201 6016       |`   |		Indirect_Literal	Discrete,0x1218,{0x00000000, 0x0000401f}
1202 e001       |    |		Load	0x0,0x1
1203 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1204 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1205 e00d       |    |		Load	0x0,0xd
1206 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1207 4801       |H   |		Short_Literal	0x1
1208 4801       |H   |		Short_Literal	0x1
1209 e00e       |    |		Load	0x0,0xe
120a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
120b 035b       | [  |		Declare_Type	Array,Constrained
120c 0337       | 7  |		Declare_Variable	Array
120d e602       |    |		Load	0x3,0x2
120e e00e       |    |		Load	0x0,0xe
120f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1210 4801       |H   |		Short_Literal	0x1
1211 00da       |    |		Load_Top	At_Offset_2
1212 01d6       |    |		Execute	Vector,Field_Write
1213 6004       |`   |		Indirect_Literal	Discrete,0x1218,{0x00000000, 0x0000401f}
1214 e001       |    |		Load	0x0,0x1
1215 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1216 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1217 0000       |    |		.XXX[0x1]
1218 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000401f}
121c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004028}
1220 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004020}
1224 0000 0000  |    |		.BLANK	0000[0x4]
1228 ; --------------------------------------------------------------------------------------
1228 ; SUBPROGRAM
1228 ; --------------------------------------------------------------------------------------
1228 122f       | /  |		.CONST	0x122f								; Address of begin
1229 0004       |    |		.CONST	0x0004								; Address of exception handler
122a 0003       |    |		.CONST	0x0003								; Number of locals
122b			INIT_1228:
122b e405       |    |		Load	0x2,0x5
122c 8014       |    |		Call	0x0,0x14
122d e406       |    |		Load	0x2,0x6
122e 840c       |    |		Call	0x2,0xc
122f			BODY_1228:
122f e5fe       |    |		Load	0x2,-0x2
1230 801e       |    |		Call	0x0,0x1e
1231 702a       |p*  |		Jump_Nonzero	0x125c
1232 e405       |    |		Load	0x2,0x5
1233 e00e       |    |		Load	0x0,0xe
1234 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
1235 0f01       |    |		Execute_Immediate	Equal,0x1
1236 6825       |h%  |		Jump_Zero	0x125c
1237 e405       |    |		Load	0x2,0x5
1238 e00e       |    |		Load	0x0,0xe
1239 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
123a 01db       |    |		Execute	Vector,Length
123b 6820       |h   |		Jump_Zero	0x125c
123c 4800       |H   |		Short_Literal	0x0
123d 00da       |    |		Load_Top	At_Offset_2
123e 00da       |    |		Load_Top	At_Offset_2
123f 840b       |    |		Call	0x2,0xb
1240 e5fe       |    |		Load	0x2,-0x2
1241 e012       |    |		Load	0x0,0x12
1242 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
1243 6817       |h   |		Jump_Zero	0x125b
1244 e00d       |    |		Load	0x0,0xd
1245 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1246 4801       |H   |		Short_Literal	0x1
1247 4802       |H   |		Short_Literal	0x2
1248 e00e       |    |		Load	0x0,0xe
1249 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
124a 035b       | [  |		Declare_Type	Array,Constrained
124b 0337       | 7  |		Declare_Variable	Array
124c 00da       |    |		Load_Top	At_Offset_2
124d e00e       |    |		Load	0x0,0xe
124e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
124f 4801       |H   |		Short_Literal	0x1
1250 00da       |    |		Load_Top	At_Offset_2
1251 01d6       |    |		Execute	Vector,Field_Write
1252 00db       |    |		Load_Top	At_Offset_3
1253 e00e       |    |		Load	0x0,0xe
1254 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1255 4802       |H   |		Short_Literal	0x2
1256 00da       |    |		Load_Top	At_Offset_2
1257 01d6       |    |		Execute	Vector,Field_Write
1258 67c7       |g   |		Indirect_Literal	Discrete,0x1220,{0x00000000, 0x00004020}
1259 e001       |    |		Load	0x0,0x1
125a 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
125b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
125c e5fe       |    |		Load	0x2,-0x2
125d e012       |    |		Load	0x0,0x12
125e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
125f 7002       |p   |		Jump_Nonzero	0x1262
1260 00cc       |    |		Action	Pop_Block
1261 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1262 e403       |    |		Load	0x2,0x3
1263 e010       |    |		Load	0x0,0x10
1264 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1265 e004       |    |		Load	0x0,0x4
1266 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1267 00ea       |    |		Load_Encached	Null_String_Cache
1268 e603       |    |		Load	0x3,0x3
1269 4800       |H   |		Short_Literal	0x0
126a e002       |    |		Load	0x0,0x2
126b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
126c c403       |    |		Store	0x2,0x3
126d e5ff       |    |		Load	0x2,-0x1
126e 0219       |    |		Execute	Heap_Access,All_Read
126f e402       |    |		Load	0x2,0x2
1270 00d9       |    |		Load_Top	At_Offset_1
1271 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
1272 e407       |    |		Load	0x2,0x7
1273 8016       |    |		Call	0x0,0x16
1274 00da       |    |		Load_Top	At_Offset_2
1275 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
1276 c402       |    |		Store	0x2,0x2
1277 00d1       |    |		Pop_Control	Pop_Count_1
1278 4800       |H   |		Short_Literal	0x0
1279 e402       |    |		Load	0x2,0x2
127a e001       |    |		Load	0x0,0x1
127b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
127c 6805       |h   |		Jump_Zero	0x1282
127d 4801       |H   |		Short_Literal	0x1
127e e5ff       |    |		Load	0x2,-0x1
127f 0217       |    |		Execute	Heap_Access,All_Reference
1280 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
1281 7806       |x   |		Jump	0x1288
1282 e402       |    |		Load	0x2,0x2
1283 e5fe       |    |		Load	0x2,-0x2
1284 e012       |    |		Load	0x0,0x12
1285 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1286 00cc       |    |		Action	Pop_Block
1287 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1288 4800       |H   |		Short_Literal	0x0
1289 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
128b 00da       |    |		Load_Top	At_Offset_2
128c 840b       |    |		Call	0x2,0xb
128d e403       |    |		Load	0x2,0x3
128e e002       |    |		Load	0x0,0x2
128f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1290 c403       |    |		Store	0x2,0x3
1291 e5ff       |    |		Load	0x2,-0x1
1292 0219       |    |		Execute	Heap_Access,All_Read
1293 00d8       |    |		Load_Top	At_Offset_0
1294 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
1295 4800       |H   |		Short_Literal	0x0
1296 e002       |    |		Load	0x0,0x2
1297 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1298 00d9       |    |		Load_Top	At_Offset_1
1299 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
129a 00d1       |    |		Pop_Control	Pop_Count_1
129b e5ff       |    |		Load	0x2,-0x1
129c 0219       |    |		Execute	Heap_Access,All_Read
129d 00d8       |    |		Load_Top	At_Offset_0
129e 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
129f e5fe       |    |		Load	0x2,-0x2
12a0 e017       |    |		Load	0x0,0x17
12a1 a018       |    |		Store_Unchecked	0x0,0x18
12a2 a019       |    |		Store_Unchecked	0x0,0x19
12a3 a01a       |    |		Store_Unchecked	0x0,0x1a
12a4 a01b       |    |		Store_Unchecked	0x0,0x1b
12a5 a01c       |    |		Store_Unchecked	0x0,0x1c
12a6 e01d       |    |		Load	0x0,0x1d
12a7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
12a8 00d9       |    |		Load_Top	At_Offset_1
12a9 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
12aa 00d1       |    |		Pop_Control	Pop_Count_1
12ab e5fe       |    |		Load	0x2,-0x2
12ac e012       |    |		Load	0x0,0x12
12ad 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
12ae 6817       |h   |		Jump_Zero	0x12c6
12af e00d       |    |		Load	0x0,0xd
12b0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
12b1 4801       |H   |		Short_Literal	0x1
12b2 4802       |H   |		Short_Literal	0x2
12b3 e00e       |    |		Load	0x0,0xe
12b4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
12b5 035b       | [  |		Declare_Type	Array,Constrained
12b6 0337       | 7  |		Declare_Variable	Array
12b7 00da       |    |		Load_Top	At_Offset_2
12b8 e00e       |    |		Load	0x0,0xe
12b9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
12ba 4801       |H   |		Short_Literal	0x1
12bb 00da       |    |		Load_Top	At_Offset_2
12bc 01d6       |    |		Execute	Vector,Field_Write
12bd 00db       |    |		Load_Top	At_Offset_3
12be e00e       |    |		Load	0x0,0xe
12bf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
12c0 4802       |H   |		Short_Literal	0x2
12c1 00da       |    |		Load_Top	At_Offset_2
12c2 01d6       |    |		Execute	Vector,Field_Write
12c3 6754       |gT  |		Indirect_Literal	Discrete,0x1218,{0x00000000, 0x0000401f}
12c4 e001       |    |		Load	0x0,0x1
12c5 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
12c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12c7 0000       |    |		.XXX[0x1]
12c8 ; --------------------------------------------------------------------------------------
12c8 ; SUBPROGRAM
12c8 ; --------------------------------------------------------------------------------------
12c8 12cf       |    |		.CONST	0x12cf								; Address of begin
12c9 0004       |    |		.CONST	0x0004								; Address of exception handler
12ca 0003       |    |		.CONST	0x0003								; Number of locals
12cb			INIT_12c8:
12cb e406       |    |		Load	0x2,0x6
12cc 8014       |    |		Call	0x0,0x14
12cd e405       |    |		Load	0x2,0x5
12ce 840c       |    |		Call	0x2,0xc
12cf			BODY_12c8:
12cf e5ff       |    |		Load	0x2,-0x1
12d0 0219       |    |		Execute	Heap_Access,All_Read
12d1 e402       |    |		Load	0x2,0x2
12d2 00d9       |    |		Load_Top	At_Offset_1
12d3 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
12d4 e407       |    |		Load	0x2,0x7
12d5 8016       |    |		Call	0x0,0x16
12d6 00da       |    |		Load_Top	At_Offset_2
12d7 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
12d8 c402       |    |		Store	0x2,0x2
12d9 00d1       |    |		Pop_Control	Pop_Count_1
12da 4800       |H   |		Short_Literal	0x0
12db e402       |    |		Load	0x2,0x2
12dc e001       |    |		Load	0x0,0x1
12dd 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
12de 6805       |h   |		Jump_Zero	0x12e4
12df 4801       |H   |		Short_Literal	0x1
12e0 e5ff       |    |		Load	0x2,-0x1
12e1 0217       |    |		Execute	Heap_Access,All_Reference
12e2 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
12e3 7806       |x   |		Jump	0x12ea
12e4 e402       |    |		Load	0x2,0x2
12e5 e5fe       |    |		Load	0x2,-0x2
12e6 e012       |    |		Load	0x0,0x12
12e7 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
12e8 00cc       |    |		Action	Pop_Block
12e9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
12ea e5ff       |    |		Load	0x2,-0x1
12eb 0219       |    |		Execute	Heap_Access,All_Read
12ec 00d8       |    |		Load_Top	At_Offset_0
12ed 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
12ee e5fe       |    |		Load	0x2,-0x2
12ef e017       |    |		Load	0x0,0x17
12f0 a018       |    |		Store_Unchecked	0x0,0x18
12f1 a019       |    |		Store_Unchecked	0x0,0x19
12f2 a01a       |    |		Store_Unchecked	0x0,0x1a
12f3 a01b       |    |		Store_Unchecked	0x0,0x1b
12f4 a01c       |    |		Store_Unchecked	0x0,0x1c
12f5 e01d       |    |		Load	0x0,0x1d
12f6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
12f7 00d9       |    |		Load_Top	At_Offset_1
12f8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
12f9 00d1       |    |		Pop_Control	Pop_Count_1
12fa e5ff       |    |		Load	0x2,-0x1
12fb 0219       |    |		Execute	Heap_Access,All_Read
12fc 00d8       |    |		Load_Top	At_Offset_0
12fd 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
12fe 4800       |H   |		Short_Literal	0x0
12ff e002       |    |		Load	0x0,0x2
1300 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1301 00d9       |    |		Load_Top	At_Offset_1
1302 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
1303 00d1       |    |		Pop_Control	Pop_Count_1
1304 4800       |H   |		Short_Literal	0x0
1305 00d9       |    |		Load_Top	At_Offset_1
1306 0092 17e5  |    |		Action	Push_String_Extended,0x17e5					; "<TEMP>"
1308 840b       |    |		Call	0x2,0xb
1309 e5fe       |    |		Load	0x2,-0x2
130a e012       |    |		Load	0x0,0x12
130b 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
130c 682d       |h-  |		Jump_Zero	0x133a
130d e5ff       |    |		Load	0x2,-0x1
130e 0217       |    |		Execute	Heap_Access,All_Reference
130f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1310 6818       |h   |		Jump_Zero	0x1329
1311 e00d       |    |		Load	0x0,0xd
1312 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1313 4801       |H   |		Short_Literal	0x1
1314 4802       |H   |		Short_Literal	0x2
1315 e00e       |    |		Load	0x0,0xe
1316 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1317 035b       | [  |		Declare_Type	Array,Constrained
1318 0337       | 7  |		Declare_Variable	Array
1319 00db       |    |		Load_Top	At_Offset_3
131a e00e       |    |		Load	0x0,0xe
131b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
131c 4801       |H   |		Short_Literal	0x1
131d 00da       |    |		Load_Top	At_Offset_2
131e 01d6       |    |		Execute	Vector,Field_Write
131f 00da       |    |		Load_Top	At_Offset_2
1320 e00e       |    |		Load	0x0,0xe
1321 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1322 4802       |H   |		Short_Literal	0x2
1323 00da       |    |		Load_Top	At_Offset_2
1324 01d6       |    |		Execute	Vector,Field_Write
1325 6016       |`   |		Indirect_Literal	Discrete,0x133c,{0x00000000, 0x0000401f}
1326 e001       |    |		Load	0x0,0x1
1327 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1328 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1329 e00d       |    |		Load	0x0,0xd
132a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
132b 4801       |H   |		Short_Literal	0x1
132c 4801       |H   |		Short_Literal	0x1
132d e00e       |    |		Load	0x0,0xe
132e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
132f 035b       | [  |		Declare_Type	Array,Constrained
1330 0337       | 7  |		Declare_Variable	Array
1331 00db       |    |		Load_Top	At_Offset_3
1332 e00e       |    |		Load	0x0,0xe
1333 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1334 4801       |H   |		Short_Literal	0x1
1335 00da       |    |		Load_Top	At_Offset_2
1336 01d6       |    |		Execute	Vector,Field_Write
1337 6004       |`   |		Indirect_Literal	Discrete,0x133c,{0x00000000, 0x0000401f}
1338 e001       |    |		Load	0x0,0x1
1339 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
133a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
133b 0000       |    |		.XXX[0x1]
133c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000401f}
1340 ; --------------------------------------------------------------------------------------
1340 ; SUBPROGRAM
1340 ; --------------------------------------------------------------------------------------
1340 134e       | N  |		.CONST	0x134e								; Address of begin
1341 0004       |    |		.CONST	0x0004								; Address of exception handler
1342 0002       |    |		.CONST	0x0002								; Number of locals
1343			INIT_1340:
1343 e5ff       |    |		Load	0x2,-0x1
1344 0217       |    |		Execute	Heap_Access,All_Reference
1345 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
1346 0219       |    |		Execute	Heap_Access,All_Read
1347 e20f       |    |		Load	0x1,0xf
1348 0119       |    |		Execute	Any,Check_In_Formal_Type
1349 e5ff       |    |		Load	0x2,-0x1
134a 0217       |    |		Execute	Heap_Access,All_Reference
134b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
134c e5fe       |    |		Load	0x2,-0x2
134d 8211       |    |		Call	0x1,0x11
134e			BODY_1340:
134e e5ff       |    |		Load	0x2,-0x1
134f 0217       |    |		Execute	Heap_Access,All_Reference
1350 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1351 6825       |h%  |		Jump_Zero	0x1377
1352 00d8       |    |		Load_Top	At_Offset_0
1353 e001       |    |		Load	0x0,0x1
1354 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
1355 01df       |    |		Execute	Vector,Equal
1356 6819       |h   |		Jump_Zero	0x1370
1357 e00d       |    |		Load	0x0,0xd
1358 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1359 4801       |H   |		Short_Literal	0x1
135a 4801       |H   |		Short_Literal	0x1
135b e00e       |    |		Load	0x0,0xe
135c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
135d 035b       | [  |		Declare_Type	Array,Constrained
135e 0337       | 7  |		Declare_Variable	Array
135f e5fe       |    |		Load	0x2,-0x2
1360 e012       |    |		Load	0x0,0x12
1361 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1362 4801       |H   |		Short_Literal	0x1
1363 00da       |    |		Load_Top	At_Offset_2
1364 01d6       |    |		Execute	Vector,Field_Write
1365 6016       |`   |		Indirect_Literal	Discrete,0x137c,{0x00000000, 0x00004027}
1366 e001       |    |		Load	0x0,0x1
1367 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1368 e00e       |    |		Load	0x0,0xe
1369 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
136a 6011       |`   |		Indirect_Literal	Discrete,0x137c,{0x00000000, 0x00004027}
136b e001       |    |		Load	0x0,0x1
136c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
136d e5fe       |    |		Load	0x2,-0x2
136e e012       |    |		Load	0x0,0x12
136f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1370 482e       |H.  |		Short_Literal	0x2e
1371 e40a       |    |		Load	0x2,0xa
1372 01cb       |    |		Execute	Vector,Append
1373 00d9       |    |		Load_Top	At_Offset_1
1374 01cc       |    |		Execute	Vector,Catenate
1375 00cb       |    |		Action	Pop_Block_With_Result
1376 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1377 00d8       |    |		Load_Top	At_Offset_0
1378 00cb       |    |		Action	Pop_Block_With_Result
1379 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
137a 0000 0000  |    |		.XXX[0x2]
137c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004027}
1380 ; --------------------------------------------------------------------------------------
1380 ; SUBPROGRAM
1380 ; --------------------------------------------------------------------------------------
1380 13df       |    |		.CONST	0x13df								; Address of begin
1381 0004       |    |		.CONST	0x0004								; Address of exception handler
1382 0027       | '  |		.CONST	0x0027								; Number of locals
1383			INIT_1380:
1383 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
1384 029a 13eb  |    |		Declare_Subprogram	INIT_13e8,For_Outer_Call,Visible,Unelaborated
1386 029a 147b  |   {|		Declare_Subprogram	INIT_1478,For_Outer_Call,Visible,Unelaborated
1388 029a 1483  |    |		Declare_Subprogram	INIT_1480,For_Outer_Call,Visible,Unelaborated
138a 029a 15a3  |    |		Declare_Subprogram	INIT_15a0,For_Outer_Call,Visible,Unelaborated
138c 029a 15b3  |    |		Declare_Subprogram	INIT_15b0,For_Outer_Call,Visible,Unelaborated
138e 029a 15bb  |    |		Declare_Subprogram	INIT_15b8,For_Outer_Call,Visible,Unelaborated
1390 029a 15cb  |    |		Declare_Subprogram	INIT_15c8,For_Outer_Call,Visible,Unelaborated
1392 029a 15d3  |    |		Declare_Subprogram	INIT_15d0,For_Outer_Call,Visible,Unelaborated
1394 029a 15db  |    |		Declare_Subprogram	INIT_15d8,For_Outer_Call,Visible,Unelaborated
1396 029a 15eb  |    |		Declare_Subprogram	INIT_15e8,For_Outer_Call,Visible,Unelaborated
1398 029a 15fb  |    |		Declare_Subprogram	INIT_15f8,For_Outer_Call,Visible,Unelaborated
139a 029a 160b  |    |		Declare_Subprogram	INIT_1608,For_Outer_Call,Visible,Unelaborated
139c 4807       |H   |		Short_Literal	0x7
139d 032a       | *  |		Declare_Type	Record,Incomplete
139e 00d8       |    |		Load_Top	At_Offset_0
139f 02a0       |    |		Declare_Subprogram	Null_Subprogram
13a0 e213       |    |		Load	0x1,0x13
13a1 03a3       |    |		Complete_Type	Heap_Access,By_Defining
13a2 00bf       |    |		Action	Accept_Activation
13a3 e001       |    |		Load	0x0,0x1
13a4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
13a5 e002       |    |		Load	0x0,0x2
13a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
13a7 e003       |    |		Load	0x0,0x3
13a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
13a9 e004       |    |		Load	0x0,0x4
13aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
13ab 00e1       |    |		Load_Encached	Boolean_Cache
13ac e005       |    |		Load	0x0,0x5
13ad 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
13ae e210       |    |		Load	0x1,0x10
13af 029f 1613  |    |		Declare_Subprogram	INIT_1610,For_Call
13b1 e220       |    |		Load	0x1,0x20
13b2 0326       | &  |		Complete_Type	Record,By_Defining
13b3 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
13b4 00c7       |    |		Action	Elaborate_Subprogram
13b5 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
13b6 00c7       |    |		Action	Elaborate_Subprogram
13b7 029d 162b  |   +|		Declare_Subprogram	INIT_1628,For_Outer_Call
13b9 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
13ba 00c7       |    |		Action	Elaborate_Subprogram
13bb 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
13bc 00c7       |    |		Action	Elaborate_Subprogram
13bd 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
13be 00c7       |    |		Action	Elaborate_Subprogram
13bf 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
13c0 00c7       |    |		Action	Elaborate_Subprogram
13c1 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
13c2 00c7       |    |		Action	Elaborate_Subprogram
13c3 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
13c4 00c7       |    |		Action	Elaborate_Subprogram
13c5 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
13c6 00c7       |    |		Action	Elaborate_Subprogram
13c7 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
13c8 00c7       |    |		Action	Elaborate_Subprogram
13c9 e006       |    |		Load	0x0,0x6
13ca e007       |    |		Load	0x0,0x7
13cb 00db       |    |		Load_Top	At_Offset_3
13cc e213       |    |		Load	0x1,0x13
13cd e008       |    |		Load	0x0,0x8
13ce 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
13cf 0387       |    |		Declare_Variable	Package
13d0 00d8       |    |		Load_Top	At_Offset_0
13d1 020f       |    |		Execute	Module,Activate
13d2 e008       |    |		Load	0x0,0x8
13d3 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
13d4 00c6       |    |		Action	Check_Subprogram_Elaborated
13d5 00da       |    |		Load_Top	At_Offset_2
13d6 e213       |    |		Load	0x1,0x13
13d7 e009       |    |		Load	0x0,0x9
13d8 e00a       |    |		Load	0x0,0xa
13d9 4800       |H   |		Short_Literal	0x0
13da 0007       |    |		Action	Break_Optional
13db 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
13dc 00c7       |    |		Action	Elaborate_Subprogram
13dd 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
13de 00c7       |    |		Action	Elaborate_Subprogram
13df			BODY_1380:
13df 00bc       |    |		Action	Signal_Activated
13e0 00bb       |    |		Action	Signal_Completion
13e1 0000 0000  |    |		.BLANK	0000[0x7]
13e8 ; --------------------------------------------------------------------------------------
13e8 ; SUBPROGRAM
13e8 ; --------------------------------------------------------------------------------------
13e8 13f6       |    |		.CONST	0x13f6								; Address of begin
13e9 145b       | [  |		.CONST	0x145b								; Address of exception handler
13ea 0004       |    |		.CONST	0x0004								; Number of locals
13eb			INIT_13e8:
13eb e213       |    |		Load	0x1,0x13
13ec e00b       |    |		Load	0x0,0xb
13ed 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
13ee 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
13ef 00d8       |    |		Load_Top	At_Offset_0
13f0 0217       |    |		Execute	Heap_Access,All_Reference
13f1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
13f2 e00c       |    |		Load	0x0,0xc
13f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
13f4 e002       |    |		Load	0x0,0x2
13f5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
13f6			BODY_13e8:
13f6 e5ff       |    |		Load	0x2,-0x1
13f7 e20f       |    |		Load	0x1,0xf
13f8 0119       |    |		Execute	Any,Check_In_Formal_Type
13f9 e210       |    |		Load	0x1,0x10
13fa e00b       |    |		Load	0x0,0xb
13fb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
13fc 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
13fd 00db       |    |		Load_Top	At_Offset_3
13fe 0217       |    |		Execute	Heap_Access,All_Reference
13ff 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
1400 e00d       |    |		Load	0x0,0xd
1401 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1402 e00e       |    |		Load	0x0,0xe
1403 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
1404 702d       |p-  |		Jump_Nonzero	0x1432
1405 e00c       |    |		Load	0x0,0xc
1406 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1407 4800       |H   |		Short_Literal	0x0
1408 e00f       |    |		Load	0x0,0xf
1409 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
140a e010       |    |		Load	0x0,0x10
140b 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
140c 4800       |H   |		Short_Literal	0x0
140d e00c       |    |		Load	0x0,0xc
140e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
140f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
1410 00da       |    |		Load_Top	At_Offset_2
1411 0219       |    |		Execute	Heap_Access,All_Read
1412 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
1413 e002       |    |		Load	0x0,0x2
1414 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1415 00d9       |    |		Load_Top	At_Offset_1
1416 0219       |    |		Execute	Heap_Access,All_Read
1417 00d8       |    |		Load_Top	At_Offset_0
1418 0120       |    |		Execute	Any,Is_Value
1419 6803       |h   |		Jump_Zero	0x141d
141a e20f       |    |		Load	0x1,0xf
141b 011e       |    |		Execute	Any,Convert
141c 7802       |x   |		Jump	0x141f
141d e20f       |    |		Load	0x1,0xf
141e 0119       |    |		Execute	Any,Check_In_Formal_Type
141f e403       |    |		Load	0x2,0x3
1420 8212       |    |		Call	0x1,0x12
1421 00da       |    |		Load_Top	At_Offset_2
1422 0218       |    |		Execute	Heap_Access,All_Write
1423 005a       | Z  |		Store_Top	Discrete,At_Offset_2
1424 00d1       |    |		Pop_Control	Pop_Count_1
1425 00d8       |    |		Load_Top	At_Offset_0
1426 680b       |h   |		Jump_Zero	0x1432
1427 e002       |    |		Load	0x0,0x2
1428 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1429 e010       |    |		Load	0x0,0x10
142a 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
142b 6044       |`D  |		Indirect_Literal	Discrete,0x1470,{0x00000000, 0x0000400e}
142c e002       |    |		Load	0x0,0x2
142d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
142e c5fc       |    |		Store	0x2,-0x4
142f e213       |    |		Load	0x1,0x13
1430 a5fd       |    |		Store_Unchecked	0x2,-0x3
1431 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1432 00da       |    |		Load_Top	At_Offset_2
1433 0219       |    |		Execute	Heap_Access,All_Read
1434 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1435 00d8       |    |		Load_Top	At_Offset_0
1436 e00d       |    |		Load	0x0,0xd
1437 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1438 e001       |    |		Load	0x0,0x1
1439 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
143a 00d2       |    |		Pop_Control	Pop_Count_2
143b e00d       |    |		Load	0x0,0xd
143c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
143d e00e       |    |		Load	0x0,0xe
143e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
143f 00db       |    |		Load_Top	At_Offset_3
1440 0217       |    |		Execute	Heap_Access,All_Reference
1441 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1442 e002       |    |		Load	0x0,0x2
1443 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1444 00db       |    |		Load_Top	At_Offset_3
1445 0217       |    |		Execute	Heap_Access,All_Reference
1446 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
1447 e5fe       |    |		Load	0x2,-0x2
1448 00db       |    |		Load_Top	At_Offset_3
1449 0217       |    |		Execute	Heap_Access,All_Reference
144a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
144b 4800       |H   |		Short_Literal	0x0
144c 00db       |    |		Load_Top	At_Offset_3
144d 0217       |    |		Execute	Heap_Access,All_Reference
144e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
144f e005       |    |		Load	0x0,0x5
1450 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1451 00db       |    |		Load_Top	At_Offset_3
1452 0217       |    |		Execute	Heap_Access,All_Reference
1453 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
1454 00da       |    |		Load_Top	At_Offset_2
1455 a5fd       |    |		Store_Unchecked	0x2,-0x3
1456 00da       |    |		Load_Top	At_Offset_2
1457 0217       |    |		Execute	Heap_Access,All_Reference
1458 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1459 a5fc       |    |		Store_Unchecked	0x2,-0x4
145a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
145b			TRAP_13e8:
145b 010b       |    |		Execute	Exception,Is_Storage_Error
145c 680b       |h   |		Jump_Zero	0x1468
145d e002       |    |		Load	0x0,0x2
145e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
145f e010       |    |		Load	0x0,0x10
1460 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
1461 600a       |`   |		Indirect_Literal	Discrete,0x146c,{0x00000000, 0x00004006}
1462 e002       |    |		Load	0x0,0x2
1463 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1464 c5fc       |    |		Store	0x2,-0x4
1465 e213       |    |		Load	0x1,0x13
1466 a5fd       |    |		Store_Unchecked	0x2,-0x3
1467 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1468 0100       |    |		Execute	Exception,Raise
1469 0000 0000  |    |		.XXX[0x3]
146b 0000       |    |
146c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004006}
1470 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000400e}
1474 0000 0000  |    |		.BLANK	0000[0x4]
1478 ; --------------------------------------------------------------------------------------
1478 ; SUBPROGRAM
1478 ; --------------------------------------------------------------------------------------
1478 147b       | {  |		.CONST	0x147b								; Address of begin
1479 0004       |    |		.CONST	0x0004								; Address of exception handler
147a 0001       |    |		.CONST	0x0001								; Number of locals
147b			BODY_1478:
147b			INIT_1478:
147b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
147c 0000 0000  |    |		.BLANK	0000[0x4]
1480 ; --------------------------------------------------------------------------------------
1480 ; SUBPROGRAM
1480 ; --------------------------------------------------------------------------------------
1480 14a0       |    |		.CONST	0x14a0								; Address of begin
1481 156a       | j  |		.CONST	0x156a								; Address of exception handler
1482 000c       |    |		.CONST	0x000c								; Number of locals
1483			INIT_1480:
1483 e002       |    |		Load	0x0,0x2
1484 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1485 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
1486 e010       |    |		Load	0x0,0x10
1487 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1488 e010       |    |		Load	0x0,0x10
1489 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
148a e002       |    |		Load	0x0,0x2
148b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
148c e011       |    |		Load	0x0,0x11
148d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
148e 02c7       |    |		Declare_Variable	Any
148f 00d8       |    |		Load_Top	At_Offset_0
1490 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1491 00ea       |    |		Load_Encached	Null_String_Cache
1492 e5ff       |    |		Load	0x2,-0x1
1493 0217       |    |		Execute	Heap_Access,All_Reference
1494 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
1495 8012       |    |		Call	0x0,0x12
1496 029f 1663  |   c|		Declare_Subprogram	INIT_1660,For_Call
1498 029f 167b  |   {|		Declare_Subprogram	INIT_1678,For_Call
149a 029f 1693  |    |		Declare_Subprogram	INIT_1690,For_Call
149c 029f 16eb  |    |		Declare_Subprogram	INIT_16e8,For_Call
149e 029f 1763  |   c|		Declare_Subprogram	INIT_1760,For_Call
14a0			BODY_1480:
14a0 e00d       |    |		Load	0x0,0xd
14a1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
14a2 e00e       |    |		Load	0x0,0xe
14a3 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
14a4 7030       |p0  |		Jump_Nonzero	0x14d5
14a5 e5ff       |    |		Load	0x2,-0x1
14a6 0219       |    |		Execute	Heap_Access,All_Read
14a7 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
14a8 e002       |    |		Load	0x0,0x2
14a9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
14aa 00d9       |    |		Load_Top	At_Offset_1
14ab 0219       |    |		Execute	Heap_Access,All_Read
14ac 00d8       |    |		Load_Top	At_Offset_0
14ad 0120       |    |		Execute	Any,Is_Value
14ae 6803       |h   |		Jump_Zero	0x14b2
14af e20f       |    |		Load	0x1,0xf
14b0 011e       |    |		Execute	Any,Convert
14b1 7802       |x   |		Jump	0x14b4
14b2 e20f       |    |		Load	0x1,0xf
14b3 0119       |    |		Execute	Any,Check_In_Formal_Type
14b4 e5fe       |    |		Load	0x2,-0x2
14b5 8212       |    |		Call	0x1,0x12
14b6 00da       |    |		Load_Top	At_Offset_2
14b7 0218       |    |		Execute	Heap_Access,All_Write
14b8 c405       |    |		Store	0x2,0x5
14b9 00d1       |    |		Pop_Control	Pop_Count_1
14ba e405       |    |		Load	0x2,0x5
14bb 6810       |h   |		Jump_Zero	0x14cc
14bc e013       |    |		Load	0x0,0x13
14bd 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
14be e010       |    |		Load	0x0,0x10
14bf 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
14c0 60db       |`   |		Indirect_Literal	Discrete,0x159c,{0x00000000, 0x0000400f}
14c1 e002       |    |		Load	0x0,0x2
14c2 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
14c3 e010       |    |		Load	0x0,0x10
14c4 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
14c5 e405       |    |		Load	0x2,0x5
14c6 e002       |    |		Load	0x0,0x2
14c7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
14c8 e5fe       |    |		Load	0x2,-0x2
14c9 e00c       |    |		Load	0x0,0xc
14ca 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
14cb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
14cc e5ff       |    |		Load	0x2,-0x1
14cd 0219       |    |		Execute	Heap_Access,All_Read
14ce 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
14cf 00d8       |    |		Load_Top	At_Offset_0
14d0 e00d       |    |		Load	0x0,0xd
14d1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
14d2 e001       |    |		Load	0x0,0x1
14d3 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
14d4 00d2       |    |		Pop_Control	Pop_Count_2
14d5 e5fe       |    |		Load	0x2,-0x2
14d6 e00c       |    |		Load	0x0,0xc
14d7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
14d8 4612       |F   |		Jump_Case	0x13
14d9 7812       |x   |		Jump	0x14ec								; case 0x0
14da 7811       |x   |		Jump	0x14ec								; case 0x1
14db 7810       |x   |		Jump	0x14ec								; case 0x2
14dc 780f       |x   |		Jump	0x14ec								; case 0x3
14dd 780e       |x   |		Jump	0x14ec								; case 0x4
14de 780d       |x   |		Jump	0x14ec								; case 0x5
14df 780c       |x   |		Jump	0x14ec								; case 0x6
14e0 780b       |x   |		Jump	0x14ec								; case 0x7
14e1 780a       |x   |		Jump	0x14ec								; case 0x8
14e2 7809       |x   |		Jump	0x14ec								; case 0x9
14e3 7822       |x"  |		Jump	0x1506								; case 0xa
14e4 7844       |xD  |		Jump	0x1529								; case 0xb
14e5 7870       |xp  |		Jump	0x1556								; case 0xc
14e6 7805       |x   |		Jump	0x14ec								; case 0xd
14e7 7804       |x   |		Jump	0x14ec								; case 0xe
14e8 7803       |x   |		Jump	0x14ec								; case 0xf
14e9 7802       |x   |		Jump	0x14ec								; case 0x10
14ea 7801       |x   |		Jump	0x14ec								; case 0x11
14eb 7800       |x   |		Jump	0x14ec								; case 0x12
14ec e013       |    |		Load	0x0,0x13
14ed 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
14ee 4801       |H   |		Short_Literal	0x1
14ef 4801       |H   |		Short_Literal	0x1
14f0 e010       |    |		Load	0x0,0x10
14f1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
14f2 035b       | [  |		Declare_Type	Array,Constrained
14f3 0337       | 7  |		Declare_Variable	Array
14f4 e5fe       |    |		Load	0x2,-0x2
14f5 e00c       |    |		Load	0x0,0xc
14f6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
14f7 4801       |H   |		Short_Literal	0x1
14f8 00da       |    |		Load_Top	At_Offset_2
14f9 01d6       |    |		Execute	Vector,Field_Write
14fa 609d       |`   |		Indirect_Literal	Discrete,0x1598,{0x00000000, 0x00004017}
14fb e002       |    |		Load	0x0,0x2
14fc 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
14fd e010       |    |		Load	0x0,0x10
14fe 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
14ff 6098       |`   |		Indirect_Literal	Discrete,0x1598,{0x00000000, 0x00004017}
1500 e002       |    |		Load	0x0,0x2
1501 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1502 e5fe       |    |		Load	0x2,-0x2
1503 e00c       |    |		Load	0x0,0xc
1504 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1505 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1506 4801       |H   |		Short_Literal	0x1
1507 e5fe       |    |		Load	0x2,-0x2
1508 e00c       |    |		Load	0x0,0xc
1509 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
150a a403       |    |		Store_Unchecked	0x2,0x3
150b 4802       |H   |		Short_Literal	0x2
150c e5fe       |    |		Load	0x2,-0x2
150d e00c       |    |		Load	0x0,0xc
150e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
150f a404       |    |		Store_Unchecked	0x2,0x4
1510 e5fe       |    |		Load	0x2,-0x2
1511 8014       |    |		Call	0x0,0x14
1512 7007       |p   |		Jump_Nonzero	0x151a
1513 e404       |    |		Load	0x2,0x4
1514 8408       |    |		Call	0x2,0x8
1515 e403       |    |		Load	0x2,0x3
1516 8015       |    |		Call	0x0,0x15
1517 4800       |H   |		Short_Literal	0x0
1518 8409       |    |		Call	0x2,0x9
1519 7801       |x   |		Jump	0x151b
151a 840a       |    |		Call	0x2,0xa
151b 4802       |H   |		Short_Literal	0x2
151c e406       |    |		Load	0x2,0x6
151d e011       |    |		Load	0x0,0x11
151e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
151f 6808       |h   |		Jump_Zero	0x1528
1520 e010       |    |		Load	0x0,0x10
1521 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
1522 6071       |`q  |		Indirect_Literal	Discrete,0x1594,{0x00000000, 0x00004011}
1523 e002       |    |		Load	0x0,0x2
1524 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1525 e5fe       |    |		Load	0x2,-0x2
1526 e00c       |    |		Load	0x0,0xc
1527 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1528 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1529 4801       |H   |		Short_Literal	0x1
152a e5fe       |    |		Load	0x2,-0x2
152b e00c       |    |		Load	0x0,0xc
152c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
152d a403       |    |		Store_Unchecked	0x2,0x3
152e 4802       |H   |		Short_Literal	0x2
152f e5fe       |    |		Load	0x2,-0x2
1530 e00c       |    |		Load	0x0,0xc
1531 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1532 a404       |    |		Store_Unchecked	0x2,0x4
1533 e5fe       |    |		Load	0x2,-0x2
1534 8016       |    |		Call	0x0,0x16
1535 7011       |p   |		Jump_Nonzero	0x1547
1536 e403       |    |		Load	0x2,0x3
1537 e010       |    |		Load	0x0,0x10
1538 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
1539 0f01       |    |		Execute_Immediate	Equal,0x1
153a 680c       |h   |		Jump_Zero	0x1547
153b e403       |    |		Load	0x2,0x3
153c e010       |    |		Load	0x0,0x10
153d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
153e 01db       |    |		Execute	Vector,Length
153f 6807       |h   |		Jump_Zero	0x1547
1540 e404       |    |		Load	0x2,0x4
1541 8408       |    |		Call	0x2,0x8
1542 e403       |    |		Load	0x2,0x3
1543 8015       |    |		Call	0x0,0x15
1544 4801       |H   |		Short_Literal	0x1
1545 8409       |    |		Call	0x2,0x9
1546 7801       |x   |		Jump	0x1548
1547 840b       |    |		Call	0x2,0xb
1548 4802       |H   |		Short_Literal	0x2
1549 e406       |    |		Load	0x2,0x6
154a e011       |    |		Load	0x0,0x11
154b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
154c 6808       |h   |		Jump_Zero	0x1555
154d e010       |    |		Load	0x0,0x10
154e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
154f 6044       |`D  |		Indirect_Literal	Discrete,0x1594,{0x00000000, 0x00004011}
1550 e002       |    |		Load	0x0,0x2
1551 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1552 e5fe       |    |		Load	0x2,-0x2
1553 e00c       |    |		Load	0x0,0xc
1554 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1555 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1556 4801       |H   |		Short_Literal	0x1
1557 e5fe       |    |		Load	0x2,-0x2
1558 e00c       |    |		Load	0x0,0xc
1559 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
155a a403       |    |		Store_Unchecked	0x2,0x3
155b 840c       |    |		Call	0x2,0xc
155c 4802       |H   |		Short_Literal	0x2
155d e406       |    |		Load	0x2,0x6
155e e011       |    |		Load	0x0,0x11
155f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1560 6808       |h   |		Jump_Zero	0x1569
1561 e010       |    |		Load	0x0,0x10
1562 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
1563 6030       |`0  |		Indirect_Literal	Discrete,0x1594,{0x00000000, 0x00004011}
1564 e002       |    |		Load	0x0,0x2
1565 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1566 e5fe       |    |		Load	0x2,-0x2
1567 e00c       |    |		Load	0x0,0xc
1568 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1569 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
156a			TRAP_1480:
156a e017       |    |		Load	0x0,0x17
156b 010f       |    |		Execute	Exception,Equal
156c 681c       |h   |		Jump_Zero	0x1589
156d e5ff       |    |		Load	0x2,-0x1
156e 8221       | !  |		Call	0x1,0x21
156f e013       |    |		Load	0x0,0x13
1570 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1571 4801       |H   |		Short_Literal	0x1
1572 4801       |H   |		Short_Literal	0x1
1573 e010       |    |		Load	0x0,0x10
1574 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1575 035b       | [  |		Declare_Type	Array,Constrained
1576 0337       | 7  |		Declare_Variable	Array
1577 e5fe       |    |		Load	0x2,-0x2
1578 e00c       |    |		Load	0x0,0xc
1579 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
157a 4801       |H   |		Short_Literal	0x1
157b 00da       |    |		Load_Top	At_Offset_2
157c 01d6       |    |		Execute	Vector,Field_Write
157d 6012       |`   |		Indirect_Literal	Discrete,0x1590,{0x00000000, 0x00004019}
157e e002       |    |		Load	0x0,0x2
157f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
1580 e010       |    |		Load	0x0,0x10
1581 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
1582 600d       |`   |		Indirect_Literal	Discrete,0x1590,{0x00000000, 0x00004019}
1583 e002       |    |		Load	0x0,0x2
1584 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1585 e5fe       |    |		Load	0x2,-0x2
1586 e00c       |    |		Load	0x0,0xc
1587 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
1588 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1589 e5ff       |    |		Load	0x2,-0x1
158a 8221       | !  |		Call	0x1,0x21
158b 00d8       |    |		Load_Top	At_Offset_0
158c 0101       |    |		Execute	Exception,Reraise
158d 0000 0000  |    |		.XXX[0x3]
158f 0000       |    |
1590 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004019}
1594 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004011}
1598 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004017}
159c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000400f}
15a0 ; --------------------------------------------------------------------------------------
15a0 ; SUBPROGRAM
15a0 ; --------------------------------------------------------------------------------------
15a0 15a3       |    |		.CONST	0x15a3								; Address of begin
15a1 0004       |    |		.CONST	0x0004								; Address of exception handler
15a2 0001       |    |		.CONST	0x0001								; Number of locals
15a3			BODY_15a0:
15a3			INIT_15a0:
15a3 00da       |    |		Load_Top	At_Offset_2
15a4 0217       |    |		Execute	Heap_Access,All_Reference
15a5 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
15a6 0219       |    |		Execute	Heap_Access,All_Read
15a7 c5fe       |    |		Store	0x2,-0x2
15a8 e210       |    |		Load	0x1,0x10
15a9 00db       |    |		Load_Top	At_Offset_3
15aa 0217       |    |		Execute	Heap_Access,All_Reference
15ab 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
15ac 00da       |    |		Load_Top	At_Offset_2
15ad 8221       | !  |		Call	0x1,0x21
15ae 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
15af 0000       |    |		.XXX[0x1]
15b0 ; --------------------------------------------------------------------------------------
15b0 ; SUBPROGRAM
15b0 ; --------------------------------------------------------------------------------------
15b0 15b3       |    |		.CONST	0x15b3								; Address of begin
15b1 0004       |    |		.CONST	0x0004								; Address of exception handler
15b2 0001       |    |		.CONST	0x0001								; Number of locals
15b3			BODY_15b0:
15b3			INIT_15b0:
15b3 00da       |    |		Load_Top	At_Offset_2
15b4 0217       |    |		Execute	Heap_Access,All_Reference
15b5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
15b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
15b7 0000       |    |		.XXX[0x1]
15b8 ; --------------------------------------------------------------------------------------
15b8 ; SUBPROGRAM
15b8 ; --------------------------------------------------------------------------------------
15b8 15bb       |    |		.CONST	0x15bb								; Address of begin
15b9 0004       |    |		.CONST	0x0004								; Address of exception handler
15ba 0001       |    |		.CONST	0x0001								; Number of locals
15bb			BODY_15b8:
15bb			INIT_15b8:
15bb 00da       |    |		Load_Top	At_Offset_2
15bc 0217       |    |		Execute	Heap_Access,All_Reference
15bd 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
15be e210       |    |		Load	0x1,0x10
15bf 0213       |    |		Execute	Heap_Access,Check_In_Type
15c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
15c1 0000 0000  |    |		.BLANK	0000[0x7]
15c8 ; --------------------------------------------------------------------------------------
15c8 ; SUBPROGRAM
15c8 ; --------------------------------------------------------------------------------------
15c8 15cb       |    |		.CONST	0x15cb								; Address of begin
15c9 0004       |    |		.CONST	0x0004								; Address of exception handler
15ca 0001       |    |		.CONST	0x0001								; Number of locals
15cb			BODY_15c8:
15cb			INIT_15c8:
15cb 00da       |    |		Load_Top	At_Offset_2
15cc 0217       |    |		Execute	Heap_Access,All_Reference
15cd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
15ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
15cf 0000       |    |		.XXX[0x1]
15d0 ; --------------------------------------------------------------------------------------
15d0 ; SUBPROGRAM
15d0 ; --------------------------------------------------------------------------------------
15d0 15d3       |    |		.CONST	0x15d3								; Address of begin
15d1 0004       |    |		.CONST	0x0004								; Address of exception handler
15d2 0001       |    |		.CONST	0x0001								; Number of locals
15d3			BODY_15d0:
15d3			INIT_15d0:
15d3 00db       |    |		Load_Top	At_Offset_3
15d4 00db       |    |		Load_Top	At_Offset_3
15d5 0217       |    |		Execute	Heap_Access,All_Reference
15d6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
15d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15d8 ; --------------------------------------------------------------------------------------
15d8 ; SUBPROGRAM
15d8 ; --------------------------------------------------------------------------------------
15d8 15db       |    |		.CONST	0x15db								; Address of begin
15d9 0004       |    |		.CONST	0x0004								; Address of exception handler
15da 0001       |    |		.CONST	0x0001								; Number of locals
15db			BODY_15d8:
15db			INIT_15d8:
15db 4800       |H   |		Short_Literal	0x0
15dc 00db       |    |		Load_Top	At_Offset_3
15dd 0217       |    |		Execute	Heap_Access,All_Reference
15de 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
15df e002       |    |		Load	0x0,0x2
15e0 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
15e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
15e2 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
15ec 0217       |    |		Execute	Heap_Access,All_Reference
15ed 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
15ee e002       |    |		Load	0x0,0x2
15ef 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
15f0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
15f1 0000 0000  |    |		.BLANK	0000[0x7]
15f8 ; --------------------------------------------------------------------------------------
15f8 ; SUBPROGRAM
15f8 ; --------------------------------------------------------------------------------------
15f8 15fb       |    |		.CONST	0x15fb								; Address of begin
15f9 0004       |    |		.CONST	0x0004								; Address of exception handler
15fa 0001       |    |		.CONST	0x0001								; Number of locals
15fb			BODY_15f8:
15fb			INIT_15f8:
15fb 00da       |    |		Load_Top	At_Offset_2
15fc e00b       |    |		Load	0x0,0xb
15fd 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
15fe e223       | #  |		Load	0x1,0x23
15ff e224       | $  |		Load	0x1,0x24
1600 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
1601 e008       |    |		Load	0x0,0x8
1602 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1603 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1604 0000 0000  |    |		.BLANK	0000[0x4]
1608 ; --------------------------------------------------------------------------------------
1608 ; SUBPROGRAM
1608 ; --------------------------------------------------------------------------------------
1608 160b       |    |		.CONST	0x160b								; Address of begin
1609 0004       |    |		.CONST	0x0004								; Address of exception handler
160a 0001       |    |		.CONST	0x0001								; Number of locals
160b			BODY_1608:
160b			INIT_1608:
160b 00da       |    |		Load_Top	At_Offset_2
160c e222       | "  |		Load	0x1,0x22
160d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
160e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
160f 0000       |    |		.XXX[0x1]
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 4608       |F   |		Jump_Case	0x9
1614 7808       |x   |		Jump	0x161d								; case 0x0
1615 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
1616 780a       |x   |		Jump	0x1621								; case 0x2
1617 7809       |x   |		Jump	0x1621								; case 0x3
1618 7808       |x   |		Jump	0x1621								; case 0x4
1619 7807       |x   |		Jump	0x1621								; case 0x5
161a 7806       |x   |		Jump	0x1621								; case 0x6
161b 7805       |x   |		Jump	0x1621								; case 0x7
161c 7804       |x   |		Jump	0x1621								; case 0x8
161d 00da       |    |		Load_Top	At_Offset_2
161e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
161f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1620 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
1621 0869       | i  |		Execute_Immediate	Raise,0x69
1622 0000 0000  |    |		.BLANK	0000[0x6]
1628 ; --------------------------------------------------------------------------------------
1628 ; SUBPROGRAM
1628 ; --------------------------------------------------------------------------------------
1628 162b       | +  |		.CONST	0x162b								; Address of begin
1629 0004       |    |		.CONST	0x0004								; Address of exception handler
162a 0001       |    |		.CONST	0x0001								; Number of locals
162b			BODY_1628:
162b			INIT_1628:
162b 00da       |    |		Load_Top	At_Offset_2
162c 0217       |    |		Execute	Heap_Access,All_Reference
162d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
162e 682a       |h*  |		Jump_Zero	0x1659
162f 00da       |    |		Load_Top	At_Offset_2
1630 0217       |    |		Execute	Heap_Access,All_Reference
1631 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1632 0229       | )  |		Execute	Access,All_Read
1633 e018       |    |		Load	0x0,0x18
1634 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
1635 7015       |p   |		Jump_Nonzero	0x164b
1636 00da       |    |		Load_Top	At_Offset_2
1637 0219       |    |		Execute	Heap_Access,All_Read
1638 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1639 00d8       |    |		Load_Top	At_Offset_0
163a 0229       | )  |		Execute	Access,All_Read
163b e019       |    |		Load	0x0,0x19
163c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
163d e01a       |    |		Load	0x0,0x1a
163e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
163f 00ea       |    |		Load_Encached	Null_String_Cache
1640 00ea       |    |		Load_Encached	Null_String_Cache
1641 e5ff       |    |		Load	0x2,-0x1
1642 0217       |    |		Execute	Heap_Access,All_Reference
1643 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
1644 8012       |    |		Call	0x0,0x12
1645 4800       |H   |		Short_Literal	0x0
1646 e018       |    |		Load	0x0,0x18
1647 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
1648 00d9       |    |		Load_Top	At_Offset_1
1649 0228       | (  |		Execute	Access,All_Write
164a 00d1       |    |		Pop_Control	Pop_Count_1
164b 00da       |    |		Load_Top	At_Offset_2
164c 0219       |    |		Execute	Heap_Access,All_Read
164d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
164e 00d8       |    |		Load_Top	At_Offset_0
164f 0229       | )  |		Execute	Access,All_Read
1650 e018       |    |		Load	0x0,0x18
1651 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
1652 00d9       |    |		Load_Top	At_Offset_1
1653 0228       | (  |		Execute	Access,All_Write
1654 00d1       |    |		Pop_Control	Pop_Count_1
1655 4800       |H   |		Short_Literal	0x0
1656 00db       |    |		Load_Top	At_Offset_3
1657 0217       |    |		Execute	Heap_Access,All_Reference
1658 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
1659 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
165a 0000 0000  |    |		.BLANK	0000[0x6]
1660 ; --------------------------------------------------------------------------------------
1660 ; SUBPROGRAM
1660 ; --------------------------------------------------------------------------------------
1660 1665       | e  |		.CONST	0x1665								; Address of begin
1661 0004       |    |		.CONST	0x0004								; Address of exception handler
1662 0002       |    |		.CONST	0x0002								; Number of locals
1663			INIT_1660:
1663 029f 17b3  |    |		Declare_Subprogram	INIT_17b0,For_Call
1665			BODY_1660:
1665 00db       |    |		Load_Top	At_Offset_3
1666 e010       |    |		Load	0x0,0x10
1667 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
1668 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
1669 7004       |p   |		Jump_Nonzero	0x166e
166a 0f01       |    |		Execute_Immediate	Equal,0x1
166b 7005       |p   |		Jump_Nonzero	0x1671
166c e017       |    |		Load	0x0,0x17
166d 0257       | W  |		Execute	Discrete,Raise
166e 00d1       |    |		Pop_Control	Pop_Count_1
166f 8602       |    |		Call	0x3,0x2
1670 7804       |x   |		Jump	0x1675
1671 00db       |    |		Load_Top	At_Offset_3
1672 e010       |    |		Load	0x0,0x10
1673 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1674 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1675 0831       | 1  |		Execute_Immediate	Raise,0x31
1676 0000 0000  |    |		.XXX[0x2]
1678 ; --------------------------------------------------------------------------------------
1678 ; SUBPROGRAM
1678 ; --------------------------------------------------------------------------------------
1678 167b       | {  |		.CONST	0x167b								; Address of begin
1679 0004       |    |		.CONST	0x0004								; Address of exception handler
167a 0001       |    |		.CONST	0x0001								; Number of locals
167b			BODY_1678:
167b			INIT_1678:
167b e5ff       |    |		Load	0x2,-0x1
167c 0219       |    |		Execute	Heap_Access,All_Read
167d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
167e e406       |    |		Load	0x2,0x6
167f 00d9       |    |		Load_Top	At_Offset_1
1680 e013       |    |		Load	0x0,0x13
1681 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1682 e5fd       |    |		Load	0x2,-0x3
1683 e7fd       |    |		Load	0x3,-0x3
1684 e7fe       |    |		Load	0x3,-0x2
1685 e7ff       |    |		Load	0x3,-0x1
1686 e001       |    |		Load	0x0,0x1
1687 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1688 00d1       |    |		Pop_Control	Pop_Count_1
1689 c406       |    |		Store	0x2,0x6
168a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
168b 0000 0000  |    |		.BLANK	0000[0x5]
1690 ; --------------------------------------------------------------------------------------
1690 ; SUBPROGRAM
1690 ; --------------------------------------------------------------------------------------
1690 1695       |    |		.CONST	0x1695								; Address of begin
1691 0004       |    |		.CONST	0x0004								; Address of exception handler
1692 0002       |    |		.CONST	0x0002								; Number of locals
1693			INIT_1690:
1693 e404       |    |		Load	0x2,0x4
1694 8408       |    |		Call	0x2,0x8
1695			BODY_1690:
1695 e5fe       |    |		Load	0x2,-0x2
1696 e00c       |    |		Load	0x0,0xc
1697 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
1698 7002       |p   |		Jump_Nonzero	0x169b
1699 00cc       |    |		Action	Pop_Block
169a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
169b e5ff       |    |		Load	0x2,-0x1
169c 0219       |    |		Execute	Heap_Access,All_Read
169d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
169e e402       |    |		Load	0x2,0x2
169f 00d9       |    |		Load_Top	At_Offset_1
16a0 0229       | )  |		Execute	Access,All_Read
16a1 e407       |    |		Load	0x2,0x7
16a2 801b       |    |		Call	0x0,0x1b
16a3 00da       |    |		Load_Top	At_Offset_2
16a4 0228       | (  |		Execute	Access,All_Write
16a5 c402       |    |		Store	0x2,0x2
16a6 00d1       |    |		Pop_Control	Pop_Count_1
16a7 4800       |H   |		Short_Literal	0x0
16a8 e402       |    |		Load	0x2,0x2
16a9 e002       |    |		Load	0x0,0x2
16aa 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
16ab 6805       |h   |		Jump_Zero	0x16b1
16ac 4801       |H   |		Short_Literal	0x1
16ad e5ff       |    |		Load	0x2,-0x1
16ae 0217       |    |		Execute	Heap_Access,All_Reference
16af 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
16b0 7806       |x   |		Jump	0x16b7
16b1 e402       |    |		Load	0x2,0x2
16b2 e5fe       |    |		Load	0x2,-0x2
16b3 e00c       |    |		Load	0x0,0xc
16b4 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
16b5 00cc       |    |		Action	Pop_Block
16b6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
16b7 e5ff       |    |		Load	0x2,-0x1
16b8 0219       |    |		Execute	Heap_Access,All_Read
16b9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
16ba 00d8       |    |		Load_Top	At_Offset_0
16bb 0229       | )  |		Execute	Access,All_Read
16bc e5fe       |    |		Load	0x2,-0x2
16bd e01c       |    |		Load	0x0,0x1c
16be a01d       |    |		Store_Unchecked	0x0,0x1d
16bf a01e       |    |		Store_Unchecked	0x0,0x1e
16c0 a01f       |    |		Store_Unchecked	0x0,0x1f
16c1 a020       |    |		Store_Unchecked	0x0,0x20
16c2 a021       | !  |		Store_Unchecked	0x0,0x21
16c3 e022       | "  |		Load	0x0,0x22
16c4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
16c5 00d9       |    |		Load_Top	At_Offset_1
16c6 0228       | (  |		Execute	Access,All_Write
16c7 00d1       |    |		Pop_Control	Pop_Count_1
16c8 e5ff       |    |		Load	0x2,-0x1
16c9 0219       |    |		Execute	Heap_Access,All_Read
16ca 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
16cb 00d8       |    |		Load_Top	At_Offset_0
16cc 0229       | )  |		Execute	Access,All_Read
16cd 4800       |H   |		Short_Literal	0x0
16ce e018       |    |		Load	0x0,0x18
16cf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
16d0 00d9       |    |		Load_Top	At_Offset_1
16d1 0228       | (  |		Execute	Access,All_Write
16d2 00d1       |    |		Pop_Control	Pop_Count_1
16d3 00d8       |    |		Load_Top	At_Offset_0
16d4 0092 17e7  |    |		Action	Push_String_Extended,0x17e7					; "<OPEN>"
16d6 4800       |H   |		Short_Literal	0x0
16d7 8409       |    |		Call	0x2,0x9
16d8 e5ff       |    |		Load	0x2,-0x1
16d9 0219       |    |		Execute	Heap_Access,All_Read
16da 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
16db 00d8       |    |		Load_Top	At_Offset_0
16dc 0229       | )  |		Execute	Access,All_Read
16dd e018       |    |		Load	0x0,0x18
16de 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
16df 00d9       |    |		Load_Top	At_Offset_1
16e0 0228       | (  |		Execute	Access,All_Write
16e1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
16e2 0000 0000  |    |		.BLANK	0000[0x6]
16e8 ; --------------------------------------------------------------------------------------
16e8 ; SUBPROGRAM
16e8 ; --------------------------------------------------------------------------------------
16e8 16ed       |    |		.CONST	0x16ed								; Address of begin
16e9 0004       |    |		.CONST	0x0004								; Address of exception handler
16ea 0002       |    |		.CONST	0x0002								; Number of locals
16eb			INIT_16e8:
16eb e404       |    |		Load	0x2,0x4
16ec 8408       |    |		Call	0x2,0x8
16ed			BODY_16e8:
16ed e5fe       |    |		Load	0x2,-0x2
16ee e00c       |    |		Load	0x0,0xc
16ef 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
16f0 7002       |p   |		Jump_Nonzero	0x16f3
16f1 00cc       |    |		Action	Pop_Block
16f2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
16f3 e5ff       |    |		Load	0x2,-0x1
16f4 0219       |    |		Execute	Heap_Access,All_Read
16f5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
16f6 e402       |    |		Load	0x2,0x2
16f7 00d9       |    |		Load_Top	At_Offset_1
16f8 0229       | )  |		Execute	Access,All_Read
16f9 e407       |    |		Load	0x2,0x7
16fa 801b       |    |		Call	0x0,0x1b
16fb 00da       |    |		Load_Top	At_Offset_2
16fc 0228       | (  |		Execute	Access,All_Write
16fd c402       |    |		Store	0x2,0x2
16fe 00d1       |    |		Pop_Control	Pop_Count_1
16ff 4800       |H   |		Short_Literal	0x0
1700 e402       |    |		Load	0x2,0x2
1701 e002       |    |		Load	0x0,0x2
1702 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
1703 6805       |h   |		Jump_Zero	0x1709
1704 4801       |H   |		Short_Literal	0x1
1705 e5ff       |    |		Load	0x2,-0x1
1706 0217       |    |		Execute	Heap_Access,All_Reference
1707 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
1708 7806       |x   |		Jump	0x170f
1709 e402       |    |		Load	0x2,0x2
170a e5fe       |    |		Load	0x2,-0x2
170b e00c       |    |		Load	0x0,0xc
170c 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
170d 00cc       |    |		Action	Pop_Block
170e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
170f 00d8       |    |		Load_Top	At_Offset_0
1710 0092 17e7  |    |		Action	Push_String_Extended,0x17e7					; "<OPEN>"
1712 4801       |H   |		Short_Literal	0x1
1713 8409       |    |		Call	0x2,0x9
1714 4802       |H   |		Short_Literal	0x2
1715 e406       |    |		Load	0x2,0x6
1716 e011       |    |		Load	0x0,0x11
1717 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1718 6814       |h   |		Jump_Zero	0x172d
1719 e5ff       |    |		Load	0x2,-0x1
171a 0219       |    |		Execute	Heap_Access,All_Read
171b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
171c 00d8       |    |		Load_Top	At_Offset_0
171d 0229       | )  |		Execute	Access,All_Read
171e e018       |    |		Load	0x0,0x18
171f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1720 00d9       |    |		Load_Top	At_Offset_1
1721 0228       | (  |		Execute	Access,All_Write
1722 00d1       |    |		Pop_Control	Pop_Count_1
1723 e010       |    |		Load	0x0,0x10
1724 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
1725 6032       |`2  |		Indirect_Literal	Discrete,0x1758,{0x00000000, 0x00004011}
1726 e002       |    |		Load	0x0,0x2
1727 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1728 e5fe       |    |		Load	0x2,-0x2
1729 e00c       |    |		Load	0x0,0xc
172a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
172b 00cc       |    |		Action	Pop_Block
172c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
172d 4801       |H   |		Short_Literal	0x1
172e e5ff       |    |		Load	0x2,-0x1
172f 0217       |    |		Execute	Heap_Access,All_Reference
1730 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
1731 e5ff       |    |		Load	0x2,-0x1
1732 0219       |    |		Execute	Heap_Access,All_Read
1733 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1734 00d8       |    |		Load_Top	At_Offset_0
1735 0229       | )  |		Execute	Access,All_Read
1736 4800       |H   |		Short_Literal	0x0
1737 e018       |    |		Load	0x0,0x18
1738 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1739 00d9       |    |		Load_Top	At_Offset_1
173a 0228       | (  |		Execute	Access,All_Write
173b 00d1       |    |		Pop_Control	Pop_Count_1
173c e5ff       |    |		Load	0x2,-0x1
173d 0219       |    |		Execute	Heap_Access,All_Read
173e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
173f 00d8       |    |		Load_Top	At_Offset_0
1740 0229       | )  |		Execute	Access,All_Read
1741 e5fe       |    |		Load	0x2,-0x2
1742 e01c       |    |		Load	0x0,0x1c
1743 a01d       |    |		Store_Unchecked	0x0,0x1d
1744 a01e       |    |		Store_Unchecked	0x0,0x1e
1745 a01f       |    |		Store_Unchecked	0x0,0x1f
1746 a020       |    |		Store_Unchecked	0x0,0x20
1747 a021       | !  |		Store_Unchecked	0x0,0x21
1748 e022       | "  |		Load	0x0,0x22
1749 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
174a 00d9       |    |		Load_Top	At_Offset_1
174b 0228       | (  |		Execute	Access,All_Write
174c 00d1       |    |		Pop_Control	Pop_Count_1
174d e5ff       |    |		Load	0x2,-0x1
174e 0219       |    |		Execute	Heap_Access,All_Read
174f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1750 00d8       |    |		Load_Top	At_Offset_0
1751 0229       | )  |		Execute	Access,All_Read
1752 e018       |    |		Load	0x0,0x18
1753 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1754 00d9       |    |		Load_Top	At_Offset_1
1755 0228       | (  |		Execute	Access,All_Write
1756 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1757 0000       |    |		.XXX[0x1]
1758 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004011}
175c 0000 0000  |    |		.BLANK	0000[0x4]
1760 ; --------------------------------------------------------------------------------------
1760 ; SUBPROGRAM
1760 ; --------------------------------------------------------------------------------------
1760 1765       | e  |		.CONST	0x1765								; Address of begin
1761 0004       |    |		.CONST	0x0004								; Address of exception handler
1762 0002       |    |		.CONST	0x0002								; Number of locals
1763			INIT_1760:
1763 e403       |    |		Load	0x2,0x3
1764 8408       |    |		Call	0x2,0x8
1765			BODY_1760:
1765 e5ff       |    |		Load	0x2,-0x1
1766 0219       |    |		Execute	Heap_Access,All_Read
1767 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1768 e402       |    |		Load	0x2,0x2
1769 00d9       |    |		Load_Top	At_Offset_1
176a 0229       | )  |		Execute	Access,All_Read
176b e407       |    |		Load	0x2,0x7
176c 801b       |    |		Call	0x0,0x1b
176d 00da       |    |		Load_Top	At_Offset_2
176e 0228       | (  |		Execute	Access,All_Write
176f c402       |    |		Store	0x2,0x2
1770 00d1       |    |		Pop_Control	Pop_Count_1
1771 4800       |H   |		Short_Literal	0x0
1772 e402       |    |		Load	0x2,0x2
1773 e002       |    |		Load	0x0,0x2
1774 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
1775 6805       |h   |		Jump_Zero	0x177b
1776 4801       |H   |		Short_Literal	0x1
1777 e5ff       |    |		Load	0x2,-0x1
1778 0217       |    |		Execute	Heap_Access,All_Reference
1779 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
177a 7806       |x   |		Jump	0x1781
177b e402       |    |		Load	0x2,0x2
177c e5fe       |    |		Load	0x2,-0x2
177d e00c       |    |		Load	0x0,0xc
177e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
177f 00cc       |    |		Action	Pop_Block
1780 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
1781 e5ff       |    |		Load	0x2,-0x1
1782 0219       |    |		Execute	Heap_Access,All_Read
1783 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1784 00d8       |    |		Load_Top	At_Offset_0
1785 0229       | )  |		Execute	Access,All_Read
1786 e5fe       |    |		Load	0x2,-0x2
1787 e01c       |    |		Load	0x0,0x1c
1788 a01d       |    |		Store_Unchecked	0x0,0x1d
1789 a01e       |    |		Store_Unchecked	0x0,0x1e
178a a01f       |    |		Store_Unchecked	0x0,0x1f
178b a020       |    |		Store_Unchecked	0x0,0x20
178c a021       | !  |		Store_Unchecked	0x0,0x21
178d e022       | "  |		Load	0x0,0x22
178e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
178f 00d9       |    |		Load_Top	At_Offset_1
1790 0228       | (  |		Execute	Access,All_Write
1791 00d1       |    |		Pop_Control	Pop_Count_1
1792 e5ff       |    |		Load	0x2,-0x1
1793 0219       |    |		Execute	Heap_Access,All_Read
1794 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
1795 00d8       |    |		Load_Top	At_Offset_0
1796 0229       | )  |		Execute	Access,All_Read
1797 4800       |H   |		Short_Literal	0x0
1798 e018       |    |		Load	0x0,0x18
1799 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
179a 00d9       |    |		Load_Top	At_Offset_1
179b 0228       | (  |		Execute	Access,All_Write
179c 00d1       |    |		Pop_Control	Pop_Count_1
179d 00d8       |    |		Load_Top	At_Offset_0
179e 0092 17e7  |    |		Action	Push_String_Extended,0x17e7					; "<OPEN>"
17a0 4800       |H   |		Short_Literal	0x0
17a1 8409       |    |		Call	0x2,0x9
17a2 e5ff       |    |		Load	0x2,-0x1
17a3 0219       |    |		Execute	Heap_Access,All_Read
17a4 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
17a5 00d8       |    |		Load_Top	At_Offset_0
17a6 0229       | )  |		Execute	Access,All_Read
17a7 e018       |    |		Load	0x0,0x18
17a8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
17a9 00d9       |    |		Load_Top	At_Offset_1
17aa 0228       | (  |		Execute	Access,All_Write
17ab 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
17ac 0000 0000  |    |		.BLANK	0000[0x4]
17b0 ; --------------------------------------------------------------------------------------
17b0 ; SUBPROGRAM
17b0 ; --------------------------------------------------------------------------------------
17b0 17bb       |    |		.CONST	0x17bb								; Address of begin
17b1 0004       |    |		.CONST	0x0004								; Address of exception handler
17b2 0002       |    |		.CONST	0x0002								; Number of locals
17b3			INIT_17b0:
17b3 e5ff       |    |		Load	0x2,-0x1
17b4 0217       |    |		Execute	Heap_Access,All_Reference
17b5 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
17b6 0219       |    |		Execute	Heap_Access,All_Read
17b7 e20f       |    |		Load	0x1,0xf
17b8 0119       |    |		Execute	Any,Check_In_Formal_Type
17b9 e5fe       |    |		Load	0x2,-0x2
17ba 8211       |    |		Call	0x1,0x11
17bb			BODY_17b0:
17bb 00d8       |    |		Load_Top	At_Offset_0
17bc e002       |    |		Load	0x0,0x2
17bd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
17be 01df       |    |		Execute	Vector,Equal
17bf 6819       |h   |		Jump_Zero	0x17d9
17c0 e013       |    |		Load	0x0,0x13
17c1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
17c2 4801       |H   |		Short_Literal	0x1
17c3 4801       |H   |		Short_Literal	0x1
17c4 e010       |    |		Load	0x0,0x10
17c5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
17c6 035b       | [  |		Declare_Type	Array,Constrained
17c7 0337       | 7  |		Declare_Variable	Array
17c8 e5fe       |    |		Load	0x2,-0x2
17c9 e00c       |    |		Load	0x0,0xc
17ca 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
17cb 4801       |H   |		Short_Literal	0x1
17cc 00da       |    |		Load_Top	At_Offset_2
17cd 01d6       |    |		Execute	Vector,Field_Write
17ce 600d       |`   |		Indirect_Literal	Discrete,0x17dc,{0x00000000, 0x0000401e}
17cf e002       |    |		Load	0x0,0x2
17d0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
17d1 e010       |    |		Load	0x0,0x10
17d2 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
17d3 6008       |`   |		Indirect_Literal	Discrete,0x17dc,{0x00000000, 0x0000401e}
17d4 e002       |    |		Load	0x0,0x2
17d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
17d6 e5fe       |    |		Load	0x2,-0x2
17d7 e00c       |    |		Load	0x0,0xc
17d8 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
17d9 00d8       |    |		Load_Top	At_Offset_0
17da 00cb       |    |		Action	Pop_Block_With_Result
17db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
17dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000401e}
17e0 ; --------------------------------------------------------------------------------------
17e0 ; STRING TABLE
17e0 ; --------------------------------------------------------------------------------------
17e0 0012       |    |		.STRTAB	0x0012->0x17e9							; "--/"
17e1 0013       |    |		.STRTAB	0x0013->0x17ea							; "!Machine.Temporary.Downloader_Temp_D"
17e2 0035       | 5  |		.STRTAB	0x0035->0x17fc							; "$"
17e3 0034       | 4  |		.STRTAB	0x0034->0x17fd							; "--/<error> "
17e4 003d       | =  |		.STRTAB	0x003d->0x1802							; "pragma End_Of_Input;"
17e5 004f       | O  |		.STRTAB	0x004f->0x180c							; "<TEMP>"
17e6 0053       | S  |		.STRTAB	0x0053->0x180f							; "<SCRIPT_FILE>"
17e7 005e       | ^  |		.STRTAB	0x005e->0x1816							; "<OPEN>"
17e8 0062       | b  |		.STREND 0x0062->0x1819
17e9 2d2d 2f21  |--/!|		.STRTAB_STRINGS
1819 0000 0000  |    |		.BLANK	0000[0x7]
1820 ; --------------------------------------------------------------------------------------
1820 ; Debug Table
1820 ; --------------------------------------------------------------------------------------
1820 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xd937,0x0000,0x0001,0x0000
1826 0000 0000  |    |		.BLANK	0000[0x1da]