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

⟦3de91f789⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 1228       | (  |		.CONST	0x1228								; 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 800b       |    |		.CONST	0x800b								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 02f3       |    |		.CONST	0x02f3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 005b       | [  |		.CONST	0x005b								; Number of locals
000b			INIT_0008:
000b 4fff       |O   |		Short_Literal	-0x1
000c 6327       |c'  |		Indirect_Literal	Discrete,0x334,{0x00000000, 0x7fffffff}
000d 00e2       |    |		Load_Encached	Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f e001       |    |		Load	0x0,0x1
0010 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0011 0129       | )  |		Execute	Any,Make_Visible
0012 e001       |    |		Load	0x0,0x1
0013 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0014 0129       | )  |		Execute	Any,Make_Visible
0015 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0016 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0017 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0018 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0019 4800       |H   |		Short_Literal	0x0
001a e002       |    |		Load	0x0,0x2
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 038f       |    |		Declare_Type	Package,Defined,Visible
001d 00b6       |    |		Action	Make_Scope
001e e003       |    |		Load	0x0,0x3
001f e004       |    |		Load	0x0,0x4
0020 e005       |    |		Load	0x0,0x5
0021 4804       |H   |		Short_Literal	0x4
0022 e214       |    |		Load	0x1,0x14
0023 020e       |    |		Execute	Module,Augment_Imports
0024 0386       |    |		Declare_Variable	Package,Visible
0025 4800       |H   |		Short_Literal	0x0
0026 e006       |    |		Load	0x0,0x6
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 038f       |    |		Declare_Type	Package,Defined,Visible
0029 00b6       |    |		Action	Make_Scope
002a e005       |    |		Load	0x0,0x5
002b e003       |    |		Load	0x0,0x3
002c e004       |    |		Load	0x0,0x4
002d 4804       |H   |		Short_Literal	0x4
002e e215       |    |		Load	0x1,0x15
002f 020e       |    |		Execute	Module,Augment_Imports
0030 0386       |    |		Declare_Variable	Package,Visible
0031 4800       |H   |		Short_Literal	0x0
0032 e007       |    |		Load	0x0,0x7
0033 02a0       |    |		Declare_Subprogram	Null_Subprogram
0034 038f       |    |		Declare_Type	Package,Defined,Visible
0035 00b6       |    |		Action	Make_Scope
0036 e003       |    |		Load	0x0,0x3
0037 e005       |    |		Load	0x0,0x5
0038 4803       |H   |		Short_Literal	0x3
0039 e216       |    |		Load	0x1,0x16
003a 020e       |    |		Execute	Module,Augment_Imports
003b 0386       |    |		Declare_Variable	Package,Visible
003c 4800       |H   |		Short_Literal	0x0
003d 0093 0b33  |   3|		push_full_address	INIT_0b30
003f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0040 038f       |    |		Declare_Type	Package,Defined,Visible
0041 0386       |    |		Declare_Variable	Package,Visible
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
004e c221       | !  |		Store	0x1,0x21
004f 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0051 c21f       |    |		Store	0x1,0x1f
0052 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0054 c220       |    |		Store	0x1,0x20
0055 4816       |H   |		Short_Literal	0x16
0056 032a       | *  |		Declare_Type	Record,Incomplete
0057 c21a       |    |		Store	0x1,0x1a
0058 e21a       |    |		Load	0x1,0x1a
0059 02a0       |    |		Declare_Subprogram	Null_Subprogram
005a e212       |    |		Load	0x1,0x12
005b 03a3       |    |		Complete_Type	Heap_Access,By_Defining
005c 4809       |H   |		Short_Literal	0x9
005d 032a       | *  |		Declare_Type	Record,Incomplete
005e c21b       |    |		Store	0x1,0x1b
005f e21b       |    |		Load	0x1,0x1b
0060 02a0       |    |		Declare_Subprogram	Null_Subprogram
0061 e213       |    |		Load	0x1,0x13
0062 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0063 481d       |H   |		Short_Literal	0x1d
0064 032a       | *  |		Declare_Type	Record,Incomplete
0065 c21c       |    |		Store	0x1,0x1c
0066 e21c       |    |		Load	0x1,0x1c
0067 02a0       |    |		Declare_Subprogram	Null_Subprogram
0068 e210       |    |		Load	0x1,0x10
0069 03a3       |    |		Complete_Type	Heap_Access,By_Defining
006a 4809       |H   |		Short_Literal	0x9
006b 032a       | *  |		Declare_Type	Record,Incomplete
006c c21d       |    |		Store	0x1,0x1d
006d e21d       |    |		Load	0x1,0x1d
006e 02a0       |    |		Declare_Subprogram	Null_Subprogram
006f e211       |    |		Load	0x1,0x11
0070 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0071 00bf       |    |		Action	Accept_Activation
0072 00e1       |    |		Load_Encached	Boolean_Cache
0073 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0074 e008       |    |		Load	0x0,0x8
0075 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0076 02c7       |    |		Declare_Variable	Any
0077 00d8       |    |		Load_Top	At_Offset_0
0078 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0079 e008       |    |		Load	0x0,0x8
007a 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
007b 02c7       |    |		Declare_Variable	Any
007c 00d8       |    |		Load_Top	At_Offset_0
007d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007e 00e2       |    |		Load_Encached	Integer_Cache
007f 00e2       |    |		Load_Encached	Integer_Cache
0080 4800       |H   |		Short_Literal	0x0
0081 0093 105b  |   [|		push_full_address	INIT_1058
0083 02a0       |    |		Declare_Subprogram	Null_Subprogram
0084 038e       |    |		Declare_Type	Package,Defined
0085 e009       |    |		Load	0x0,0x9
0086 4801       |H   |		Short_Literal	0x1
0087 00da       |    |		Load_Top	At_Offset_2
0088 020e       |    |		Execute	Module,Augment_Imports
0089 0387       |    |		Declare_Variable	Package
008a 4800       |H   |		Short_Literal	0x0
008b e00a       |    |		Load	0x0,0xa
008c 02a0       |    |		Declare_Subprogram	Null_Subprogram
008d 038e       |    |		Declare_Type	Package,Defined
008e e00b       |    |		Load	0x0,0xb
008f 00b6       |    |		Action	Make_Scope
0090 e00c       |    |		Load	0x0,0xc
0091 e227       | '  |		Load	0x1,0x27
0092 e00d       |    |		Load	0x0,0xd
0093 e00e       |    |		Load	0x0,0xe
0094 e00f       |    |		Load	0x0,0xf
0095 4807       |H   |		Short_Literal	0x7
0096 e228       | (  |		Load	0x1,0x28
0097 020e       |    |		Execute	Module,Augment_Imports
0098 0387       |    |		Declare_Variable	Package
0099 4800       |H   |		Short_Literal	0x0
009a 0093 0f2b  |   +|		push_full_address	INIT_0f28
009c 02a0       |    |		Declare_Subprogram	Null_Subprogram
009d 038e       |    |		Declare_Type	Package,Defined
009e e010       |    |		Load	0x0,0x10
009f e011       |    |		Load	0x0,0x11
00a0 e227       | '  |		Load	0x1,0x27
00a1 e00b       |    |		Load	0x0,0xb
00a2 e012       |    |		Load	0x0,0x12
00a3 00b6       |    |		Action	Make_Scope
00a4 4806       |H   |		Short_Literal	0x6
00a5 e229       | )  |		Load	0x1,0x29
00a6 020e       |    |		Execute	Module,Augment_Imports
00a7 0387       |    |		Declare_Variable	Package
00a8 4800       |H   |		Short_Literal	0x0
00a9 0093 0cc3  |    |		push_full_address	INIT_0cc0
00ab 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ac 038e       |    |		Declare_Type	Package,Defined
00ad 00b6       |    |		Action	Make_Scope
00ae e003       |    |		Load	0x0,0x3
00af e00b       |    |		Load	0x0,0xb
00b0 e013       |    |		Load	0x0,0x13
00b1 e014       |    |		Load	0x0,0x14
00b2 e015       |    |		Load	0x0,0x15
00b3 e012       |    |		Load	0x0,0x12
00b4 4807       |H   |		Short_Literal	0x7
00b5 e22a       | *  |		Load	0x1,0x2a
00b6 020e       |    |		Execute	Module,Augment_Imports
00b7 0387       |    |		Declare_Variable	Package
00b8 4800       |H   |		Short_Literal	0x0
00b9 0093 0b43  |   C|		push_full_address	INIT_0b40
00bb 02a0       |    |		Declare_Subprogram	Null_Subprogram
00bc 038e       |    |		Declare_Type	Package,Defined
00bd 0387       |    |		Declare_Variable	Package
00be 4800       |H   |		Short_Literal	0x0
00bf 6270       |bp  |		Indirect_Literal	Discrete,0x330,{0x00000000, 0x00007fff}
00c0 00e2       |    |		Load_Encached	Integer_Cache
00c1 03f8       |    |		Declare_Type	Discrete,Constrained
00c2 00d8       |    |		Load_Top	At_Offset_0
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 e22c       | ,  |		Load	0x1,0x2c
00c7 00d8       |    |		Load_Top	At_Offset_0
00c8 e22c       | ,  |		Load	0x1,0x2c
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca e22c       | ,  |		Load	0x1,0x2c
00cb 00d8       |    |		Load_Top	At_Offset_0
00cc e22c       | ,  |		Load	0x1,0x2c
00cd 00d8       |    |		Load_Top	At_Offset_0
00ce e22c       | ,  |		Load	0x1,0x2c
00cf 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d0 480d       |H   |		Short_Literal	0xd
00d1 032d       | -  |		Declare_Type	Record,Defined
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 e216       |    |		Load	0x1,0x16
00d4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00d5 00e2       |    |		Load_Encached	Integer_Cache
00d6 00e2       |    |		Load_Encached	Integer_Cache
00d7 00e2       |    |		Load_Encached	Integer_Cache
00d8 00e2       |    |		Load_Encached	Integer_Cache
00d9 e227       | '  |		Load	0x1,0x27
00da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00db e227       | '  |		Load	0x1,0x27
00dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00dd e00c       |    |		Load	0x0,0xc
00de 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00df 00e1       |    |		Load_Encached	Boolean_Cache
00e0 e227       | '  |		Load	0x1,0x27
00e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e2 00e1       |    |		Load_Encached	Boolean_Cache
00e3 00e1       |    |		Load_Encached	Boolean_Cache
00e4 e228       | (  |		Load	0x1,0x28
00e5 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
00e6 e228       | (  |		Load	0x1,0x28
00e7 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
00e8 e228       | (  |		Load	0x1,0x28
00e9 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00ea e228       | (  |		Load	0x1,0x28
00eb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00ec e228       | (  |		Load	0x1,0x28
00ed 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00ee e009       |    |		Load	0x0,0x9
00ef 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00f0 e016       |    |		Load	0x0,0x16
00f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f2 e229       | )  |		Load	0x1,0x29
00f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f4 e22a       | *  |		Load	0x1,0x2a
00f5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f6 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
00f8 e21a       |    |		Load	0x1,0x1a
00f9 0326       | &  |		Complete_Type	Record,By_Defining
00fa e004       |    |		Load	0x0,0x4
00fb 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
00fc e004       |    |		Load	0x0,0x4
00fd 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
00fe e004       |    |		Load	0x0,0x4
00ff 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0100 e004       |    |		Load	0x0,0x4
0101 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0102 e004       |    |		Load	0x0,0x4
0103 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0104 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0105 029f 0403  |    |		Declare_Subprogram	INIT_0400,For_Call
0107 4805       |H   |		Short_Literal	0x5
0108 032d       | -  |		Declare_Type	Record,Defined
0109 4800       |H   |		Short_Literal	0x0
010a 4bff       |K   |		Short_Literal	0x3ff
010b 00e3       |    |		Load_Encached	Natural_Cache
010c 03f8       |    |		Declare_Type	Discrete,Constrained
010d 00e1       |    |		Load_Encached	Boolean_Cache
010e 00e1       |    |		Load_Encached	Boolean_Cache
010f 00e1       |    |		Load_Encached	Boolean_Cache
0110 00e1       |    |		Load_Encached	Boolean_Cache
0111 00e1       |    |		Load_Encached	Boolean_Cache
0112 00e1       |    |		Load_Encached	Boolean_Cache
0113 00e1       |    |		Load_Encached	Boolean_Cache
0114 00e1       |    |		Load_Encached	Boolean_Cache
0115 00e1       |    |		Load_Encached	Boolean_Cache
0116 00e1       |    |		Load_Encached	Boolean_Cache
0117 00e2       |    |		Load_Encached	Integer_Cache
0118 e227       | '  |		Load	0x1,0x27
0119 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011a e227       | '  |		Load	0x1,0x27
011b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011c e22e       | .  |		Load	0x1,0x2e
011d e00d       |    |		Load	0x0,0xd
011e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011f e00d       |    |		Load	0x0,0xd
0120 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0121 e00d       |    |		Load	0x0,0xd
0122 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0123 e214       |    |		Load	0x1,0x14
0124 1b4b       | K  |		Execute	Package,Field_Read,Field_Number 0x4b
0125 e228       | (  |		Load	0x1,0x28
0126 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0127 e228       | (  |		Load	0x1,0x28
0128 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0129 e228       | (  |		Load	0x1,0x28
012a 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
012b e228       | (  |		Load	0x1,0x28
012c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
012d e228       | (  |		Load	0x1,0x28
012e 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
012f e228       | (  |		Load	0x1,0x28
0130 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0131 e22f       | /  |		Load	0x1,0x2f
0132 e228       | (  |		Load	0x1,0x28
0133 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0134 e215       |    |		Load	0x1,0x15
0135 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0136 e228       | (  |		Load	0x1,0x28
0137 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0138 e228       | (  |		Load	0x1,0x28
0139 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
013a 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
013c e21c       |    |		Load	0x1,0x1c
013d 0326       | &  |		Complete_Type	Record,By_Defining
013e e004       |    |		Load	0x0,0x4
013f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0140 e227       | '  |		Load	0x1,0x27
0141 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0142 e004       |    |		Load	0x0,0x4
0143 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0144 e227       | '  |		Load	0x1,0x27
0145 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0146 e228       | (  |		Load	0x1,0x28
0147 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0148 e228       | (  |		Load	0x1,0x28
0149 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
014a 00e1       |    |		Load_Encached	Boolean_Cache
014b 00e1       |    |		Load_Encached	Boolean_Cache
014c e228       | (  |		Load	0x1,0x28
014d 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
014e 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
0150 e21b       |    |		Load	0x1,0x1b
0151 0326       | &  |		Complete_Type	Record,By_Defining
0152 4800       |H   |		Short_Literal	0x0
0153 61d8       |a   |		Indirect_Literal	Discrete,0x32c,{0x00000000, 0x000007ff}
0154 00e3       |    |		Load_Encached	Natural_Cache
0155 03f8       |    |		Declare_Type	Discrete,Constrained
0156 4802       |H   |		Short_Literal	0x2
0157 4805       |H   |		Short_Literal	0x5
0158 e215       |    |		Load	0x1,0x15
0159 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
015a 03f8       |    |		Declare_Type	Discrete,Constrained
015b 4802       |H   |		Short_Literal	0x2
015c 4805       |H   |		Short_Literal	0x5
015d 00db       |    |		Load_Top	At_Offset_3
015e 02a0       |    |		Declare_Subprogram	Null_Subprogram
015f 4801       |H   |		Short_Literal	0x1
0160 035d       | ]  |		Declare_Type	Array,Defined
0161 e228       | (  |		Load	0x1,0x28
0162 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0163 e227       | '  |		Load	0x1,0x27
0164 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0165 00e1       |    |		Load_Encached	Boolean_Cache
0166 e228       | (  |		Load	0x1,0x28
0167 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0168 e004       |    |		Load	0x0,0x4
0169 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016a e232       | 2  |		Load	0x1,0x32
016b e230       | 0  |		Load	0x1,0x30
016c e228       | (  |		Load	0x1,0x28
016d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
016e e228       | (  |		Load	0x1,0x28
016f 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0170 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
0172 e21d       |    |		Load	0x1,0x1d
0173 0326       | &  |		Complete_Type	Record,By_Defining
0174 4800       |H   |		Short_Literal	0x0
0175 4804       |H   |		Short_Literal	0x4
0176 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
0178 03fd       |    |		Declare_Type	Discrete,Defined
0179 00e3       |    |		Load_Encached	Natural_Cache
017a 0266       | f  |		Execute	Discrete,Bounds
017b e004       |    |		Load	0x0,0x4
017c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017d 029f 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Call
017f 4801       |H   |		Short_Literal	0x1
0180 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0181 00e3       |    |		Load_Encached	Natural_Cache
0182 e003       |    |		Load	0x0,0x3
0183 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0184 4801       |H   |		Short_Literal	0x1
0185 61ae       |a   |		Indirect_Literal	Discrete,0x334,{0x00000000, 0x7fffffff}
0186 e234       | 4  |		Load	0x1,0x34
0187 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
0188 029f 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Call
018a 4800       |H   |		Short_Literal	0x0
018b 4801       |H   |		Short_Literal	0x1
018c 4801       |H   |		Short_Literal	0x1
018d 4800       |H   |		Short_Literal	0x0
018e 4801       |H   |		Short_Literal	0x1
018f 4801       |H   |		Short_Literal	0x1
0190 031d       |    |		Declare_Type	Variant_Record,Defined
0191 e017       |    |		Load	0x0,0x17
0192 e018       |    |		Load	0x0,0x18
0193 e21a       |    |		Load	0x1,0x1a
0194 e216       |    |		Load	0x1,0x16
0195 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0196 e019       |    |		Load	0x0,0x19
0197 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0198 0387       |    |		Declare_Variable	Package
0199 00d8       |    |		Load_Top	At_Offset_0
019a 020f       |    |		Execute	Module,Activate
019b e019       |    |		Load	0x0,0x19
019c 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
019d 00c6       |    |		Action	Check_Subprogram_Elaborated
019e e21a       |    |		Load	0x1,0x1a
019f e216       |    |		Load	0x1,0x16
01a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a1 e01a       |    |		Load	0x0,0x1a
01a2 e01b       |    |		Load	0x0,0x1b
01a3 4800       |H   |		Short_Literal	0x0
01a4 0007       |    |		Action	Break_Optional
01a5 e01c       |    |		Load	0x0,0x1c
01a6 e01d       |    |		Load	0x0,0x1d
01a7 e21c       |    |		Load	0x1,0x1c
01a8 e214       |    |		Load	0x1,0x14
01a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01aa e019       |    |		Load	0x0,0x19
01ab 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01ac 0387       |    |		Declare_Variable	Package
01ad 00d8       |    |		Load_Top	At_Offset_0
01ae 020f       |    |		Execute	Module,Activate
01af e019       |    |		Load	0x0,0x19
01b0 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
01b1 00c6       |    |		Action	Check_Subprogram_Elaborated
01b2 e21c       |    |		Load	0x1,0x1c
01b3 e214       |    |		Load	0x1,0x14
01b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b5 e01e       |    |		Load	0x0,0x1e
01b6 e01f       |    |		Load	0x0,0x1f
01b7 4800       |H   |		Short_Literal	0x0
01b8 0007       |    |		Action	Break_Optional
01b9 e020       |    |		Load	0x0,0x20
01ba e021       | !  |		Load	0x0,0x21
01bb e21b       |    |		Load	0x1,0x1b
01bc e216       |    |		Load	0x1,0x16
01bd 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
01be e019       |    |		Load	0x0,0x19
01bf 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01c0 0387       |    |		Declare_Variable	Package
01c1 00d8       |    |		Load_Top	At_Offset_0
01c2 020f       |    |		Execute	Module,Activate
01c3 e019       |    |		Load	0x0,0x19
01c4 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
01c5 00c6       |    |		Action	Check_Subprogram_Elaborated
01c6 e21b       |    |		Load	0x1,0x1b
01c7 e216       |    |		Load	0x1,0x16
01c8 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
01c9 e022       | "  |		Load	0x0,0x22
01ca e023       | #  |		Load	0x0,0x23
01cb 4800       |H   |		Short_Literal	0x0
01cc 0007       |    |		Action	Break_Optional
01cd e024       | $  |		Load	0x0,0x24
01ce e025       | %  |		Load	0x0,0x25
01cf e21d       |    |		Load	0x1,0x1d
01d0 e215       |    |		Load	0x1,0x15
01d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d2 e019       |    |		Load	0x0,0x19
01d3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01d4 0387       |    |		Declare_Variable	Package
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 020f       |    |		Execute	Module,Activate
01d7 e019       |    |		Load	0x0,0x19
01d8 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
01d9 00c6       |    |		Action	Check_Subprogram_Elaborated
01da e21d       |    |		Load	0x1,0x1d
01db e215       |    |		Load	0x1,0x15
01dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01dd e026       | &  |		Load	0x0,0x26
01de e027       | '  |		Load	0x0,0x27
01df 4800       |H   |		Short_Literal	0x0
01e0 0007       |    |		Action	Break_Optional
01e1 029d 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call
01e3 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
01e5 029d 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call
01e7 029d 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call
01e9 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
01ea 00c7       |    |		Action	Elaborate_Subprogram
01eb 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
01ec 00c7       |    |		Action	Elaborate_Subprogram
01ed 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
01ee 00c7       |    |		Action	Elaborate_Subprogram
01ef 029d 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call
01f1 029d 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Outer_Call
01f3 029d 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call
01f5 029d 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call
01f7 029d 075b  |   [|		Declare_Subprogram	INIT_0758,For_Outer_Call
01f9 029d 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Outer_Call
01fb 029d 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Outer_Call
01fd 029d 08d3  |    |		Declare_Subprogram	INIT_08d0,For_Outer_Call
01ff 029d 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call
0201 029d 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call
0203 e004       |    |		Load	0x0,0x4
0204 4801       |H   |		Short_Literal	0x1
0205 e227       | '  |		Load	0x1,0x27
0206 020e       |    |		Execute	Module,Augment_Imports
0207 e227       | '  |		Load	0x1,0x27
0208 020f       |    |		Execute	Module,Activate
0209 e028       | (  |		Load	0x0,0x28
020a e029       | )  |		Load	0x0,0x29
020b e21c       |    |		Load	0x1,0x1c
020c e228       | (  |		Load	0x1,0x28
020d e019       |    |		Load	0x0,0x19
020e e02a       | *  |		Load	0x0,0x2a
020f e02b       | +  |		Load	0x0,0x2b
0210 e02c       | ,  |		Load	0x0,0x2c
0211 4808       |H   |		Short_Literal	0x8
0212 e229       | )  |		Load	0x1,0x29
0213 020e       |    |		Execute	Module,Augment_Imports
0214 e229       | )  |		Load	0x1,0x29
0215 020f       |    |		Execute	Module,Activate
0216 e004       |    |		Load	0x0,0x4
0217 e242       | B  |		Load	0x1,0x42
0218 e248       | H  |		Load	0x1,0x48
0219 e228       | (  |		Load	0x1,0x28
021a e02c       | ,  |		Load	0x0,0x2c
021b e02d       | -  |		Load	0x0,0x2d
021c e243       | C  |		Load	0x1,0x43
021d e244       | D  |		Load	0x1,0x44
021e 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
021f e019       |    |		Load	0x0,0x19
0220 e249       | I  |		Load	0x1,0x49
0221 e24a       | J  |		Load	0x1,0x4a
0222 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
0223 480d       |H   |		Short_Literal	0xd
0224 e22a       | *  |		Load	0x1,0x2a
0225 020e       |    |		Execute	Module,Augment_Imports
0226 e22a       | *  |		Load	0x1,0x2a
0227 020f       |    |		Execute	Module,Activate
0228 e228       | (  |		Load	0x1,0x28
0229 4801       |H   |		Short_Literal	0x1
022a e22b       | +  |		Load	0x1,0x2b
022b 020e       |    |		Execute	Module,Augment_Imports
022c e22b       | +  |		Load	0x1,0x2b
022d 020f       |    |		Execute	Module,Activate
022e e217       |    |		Load	0x1,0x17
022f 020f       |    |		Execute	Module,Activate
0230 e02e       | .  |		Load	0x0,0x2e
0231 e02f       | /  |		Load	0x0,0x2f
0232 e001       |    |		Load	0x0,0x1
0233 e030       | 0  |		Load	0x0,0x30
0234 e031       | 1  |		Load	0x0,0x31
0235 e019       |    |		Load	0x0,0x19
0236 e032       | 2  |		Load	0x0,0x32
0237 e033       | 3  |		Load	0x0,0x33
0238 e22d       | -  |		Load	0x1,0x2d
0239 e21a       |    |		Load	0x1,0x1a
023a e21c       |    |		Load	0x1,0x1c
023b e21b       |    |		Load	0x1,0x1b
023c e21d       |    |		Load	0x1,0x1d
023d e009       |    |		Load	0x0,0x9
023e e016       |    |		Load	0x0,0x16
023f e229       | )  |		Load	0x1,0x29
0240 e22a       | *  |		Load	0x1,0x2a
0241 e034       | 4  |		Load	0x0,0x34
0242 e035       | 5  |		Load	0x0,0x35
0243 e004       |    |		Load	0x0,0x4
0244 e22e       | .  |		Load	0x1,0x2e
0245 e005       |    |		Load	0x0,0x5
0246 e036       | 6  |		Load	0x0,0x36
0247 e037       | 7  |		Load	0x0,0x37
0248 e038       | 8  |		Load	0x0,0x38
0249 e039       | 9  |		Load	0x0,0x39
024a e03a       | :  |		Load	0x0,0x3a
024b e03b       | ;  |		Load	0x0,0x3b
024c e03c       | <  |		Load	0x0,0x3c
024d e03d       | =  |		Load	0x0,0x3d
024e e03e       | >  |		Load	0x0,0x3e
024f e03f       | ?  |		Load	0x0,0x3f
0250 e040       | @  |		Load	0x0,0x40
0251 e041       | A  |		Load	0x0,0x41
0252 e042       | B  |		Load	0x0,0x42
0253 e043       | C  |		Load	0x0,0x43
0254 e044       | D  |		Load	0x0,0x44
0255 e045       | E  |		Load	0x0,0x45
0256 e046       | F  |		Load	0x0,0x46
0257 e047       | G  |		Load	0x0,0x47
0258 e048       | H  |		Load	0x0,0x48
0259 e049       | I  |		Load	0x0,0x49
025a e04a       | J  |		Load	0x0,0x4a
025b e04b       | K  |		Load	0x0,0x4b
025c e04c       | L  |		Load	0x0,0x4c
025d e04d       | M  |		Load	0x0,0x4d
025e e04e       | N  |		Load	0x0,0x4e
025f e04f       | O  |		Load	0x0,0x4f
0260 e236       | 6  |		Load	0x1,0x36
0261 e050       | P  |		Load	0x0,0x50
0262 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
0263 e051       | Q  |		Load	0x0,0x51
0264 e052       | R  |		Load	0x0,0x52
0265 e003       |    |		Load	0x0,0x3
0266 e237       | 7  |		Load	0x1,0x37
0267 e238       | 8  |		Load	0x1,0x38
0268 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0269 e053       | S  |		Load	0x0,0x53
026a 483a       |H:  |		Short_Literal	0x3a
026b e228       | (  |		Load	0x1,0x28
026c 020e       |    |		Execute	Module,Augment_Imports
026d e228       | (  |		Load	0x1,0x28
026e 020f       |    |		Execute	Module,Activate
026f e00d       |    |		Load	0x0,0xd
0270 e054       | T  |		Load	0x0,0x54
0271 e055       | U  |		Load	0x0,0x55
0272 e056       | V  |		Load	0x0,0x56
0273 e057       | W  |		Load	0x0,0x57
0274 e058       | X  |		Load	0x0,0x58
0275 e059       | Y  |		Load	0x0,0x59
0276 e05a       | Z  |		Load	0x0,0x5a
0277 e00c       |    |		Load	0x0,0xc
0278 e004       |    |		Load	0x0,0x4
0279 e00f       |    |		Load	0x0,0xf
027a e242       | B  |		Load	0x1,0x42
027b e05b       | [  |		Load	0x0,0x5b
027c e05c       | \  |		Load	0x0,0x5c
027d e05d       | ]  |		Load	0x0,0x5d
027e e05e       | ^  |		Load	0x0,0x5e
027f e236       | 6  |		Load	0x1,0x36
0280 e05f       | _  |		Load	0x0,0x5f
0281 e060       | `  |		Load	0x0,0x60
0282 e061       | a  |		Load	0x0,0x61
0283 e062       | b  |		Load	0x0,0x62
0284 e063       | c  |		Load	0x0,0x63
0285 e064       | d  |		Load	0x0,0x64
0286 e228       | (  |		Load	0x1,0x28
0287 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
0288 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
0289 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
028a 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
028b e227       | '  |		Load	0x1,0x27
028c 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
028d e051       | Q  |		Load	0x0,0x51
028e e052       | R  |		Load	0x0,0x52
028f e065       | e  |		Load	0x0,0x65
0290 e229       | )  |		Load	0x1,0x29
0291 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
0292 e233       | 3  |		Load	0x1,0x33
0293 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
0294 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
0295 e22a       | *  |		Load	0x1,0x2a
0296 e22b       | +  |		Load	0x1,0x2b
0297 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
0298 e23c       | <  |		Load	0x1,0x3c
0299 e248       | H  |		Load	0x1,0x48
029a e066       | f  |		Load	0x0,0x66
029b e067       | g  |		Load	0x0,0x67
029c e02c       | ,  |		Load	0x0,0x2c
029d 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
029e e068       | h  |		Load	0x0,0x68
029f e00b       |    |		Load	0x0,0xb
02a0 e243       | C  |		Load	0x1,0x43
02a1 e244       | D  |		Load	0x1,0x44
02a2 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
02a3 e019       |    |		Load	0x0,0x19
02a4 e237       | 7  |		Load	0x1,0x37
02a5 e238       | 8  |		Load	0x1,0x38
02a6 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
02a7 e001       |    |		Load	0x0,0x1
02a8 4839       |H9  |		Short_Literal	0x39
02a9 e216       |    |		Load	0x1,0x16
02aa 020e       |    |		Execute	Module,Augment_Imports
02ab e216       |    |		Load	0x1,0x16
02ac 020f       |    |		Execute	Module,Activate
02ad a069       | i  |		Store_Unchecked	0x0,0x69
02ae e06a       | j  |		Load	0x0,0x6a
02af e06b       | k  |		Load	0x0,0x6b
02b0 e00f       |    |		Load	0x0,0xf
02b1 e248       | H  |		Load	0x1,0x48
02b2 e06c       | l  |		Load	0x0,0x6c
02b3 e06d       | m  |		Load	0x0,0x6d
02b4 e06e       | n  |		Load	0x0,0x6e
02b5 e06f       | o  |		Load	0x0,0x6f
02b6 e227       | '  |		Load	0x1,0x27
02b7 e051       | Q  |		Load	0x0,0x51
02b8 e052       | R  |		Load	0x0,0x52
02b9 e228       | (  |		Load	0x1,0x28
02ba 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
02bb 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
02bc e070       | p  |		Load	0x0,0x70
02bd e00b       |    |		Load	0x0,0xb
02be e249       | I  |		Load	0x1,0x49
02bf e24a       | J  |		Load	0x1,0x4a
02c0 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
02c1 e019       |    |		Load	0x0,0x19
02c2 e22a       | *  |		Load	0x1,0x2a
02c3 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
02c4 e053       | S  |		Load	0x0,0x53
02c5 4818       |H   |		Short_Literal	0x18
02c6 e215       |    |		Load	0x1,0x15
02c7 020e       |    |		Execute	Module,Augment_Imports
02c8 e215       |    |		Load	0x1,0x15
02c9 020f       |    |		Execute	Module,Activate
02ca e00f       |    |		Load	0x0,0xf
02cb e23c       | <  |		Load	0x1,0x3c
02cc e071       | q  |		Load	0x0,0x71
02cd e072       | r  |		Load	0x0,0x72
02ce e073       | s  |		Load	0x0,0x73
02cf e074       | t  |		Load	0x0,0x74
02d0 e075       | u  |		Load	0x0,0x75
02d1 e076       | v  |		Load	0x0,0x76
02d2 e228       | (  |		Load	0x1,0x28
02d3 e22e       | .  |		Load	0x1,0x2e
02d4 e00d       |    |		Load	0x0,0xd
02d5 e227       | '  |		Load	0x1,0x27
02d6 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
02d7 e066       | f  |		Load	0x0,0x66
02d8 e051       | Q  |		Load	0x0,0x51
02d9 e00c       |    |		Load	0x0,0xc
02da e00e       |    |		Load	0x0,0xe
02db e22b       | +  |		Load	0x1,0x2b
02dc e077       | w  |		Load	0x0,0x77
02dd e078       | x  |		Load	0x0,0x78
02de e079       | y  |		Load	0x0,0x79
02df e00b       |    |		Load	0x0,0xb
02e0 e23d       | =  |		Load	0x1,0x3d
02e1 e23e       | >  |		Load	0x1,0x3e
02e2 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
02e3 e019       |    |		Load	0x0,0x19
02e4 e053       | S  |		Load	0x0,0x53
02e5 e07a       | z  |		Load	0x0,0x7a
02e6 a07b       | {  |		Store_Unchecked	0x0,0x7b
02e7 e07c       | |  |		Load	0x0,0x7c
02e8 e07d       | }  |		Load	0x0,0x7d
02e9 e07e       | ~  |		Load	0x0,0x7e
02ea e07f       |    |		Load	0x0,0x7f
02eb e080       |    |		Load	0x0,0x80
02ec 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
02ed e052       | R  |		Load	0x0,0x52
02ee 4824       |H$  |		Short_Literal	0x24
02ef e214       |    |		Load	0x1,0x14
02f0 020e       |    |		Execute	Module,Augment_Imports
02f1 e214       |    |		Load	0x1,0x14
02f2 020f       |    |		Execute	Module,Activate
02f3			BODY_0008:
02f3 e223       | #  |		Load	0x1,0x23
02f4 0120       |    |		Execute	Any,Is_Value
02f5 6803       |h   |		Jump_Zero	0x2f9
02f6 e008       |    |		Load	0x0,0x8
02f7 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02f8 7801       |x   |		Jump	0x2fa
02f9 e223       | #  |		Load	0x1,0x23
02fa 4be8       |K   |		Short_Literal	0x3e8
02fb 0092 1192  |    |		Action	Push_String_Extended,0x1192					; "DEBUG_HISTORY_ENTRIES"
02fd e008       |    |		Load	0x0,0x8
02fe 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
02ff c223       | #  |		Store	0x1,0x23
0300 e052       | R  |		Load	0x0,0x52
0301 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0302 e223       | #  |		Load	0x1,0x23
0303 e008       |    |		Load	0x0,0x8
0304 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0305 e008       |    |		Load	0x0,0x8
0306 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0307 a225       | %  |		Store_Unchecked	0x1,0x25
0308 e225       | %  |		Load	0x1,0x25
0309 480a       |H   |		Short_Literal	0xa
030a 026f       | o  |		Execute	Discrete,Remainder
030b 0f01       |    |		Execute_Immediate	Equal,0x1
030c 681c       |h   |		Jump_Zero	0x329
030d e224       | $  |		Load	0x1,0x24
030e 0120       |    |		Execute	Any,Is_Value
030f 6803       |h   |		Jump_Zero	0x313
0310 e008       |    |		Load	0x0,0x8
0311 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0312 7801       |x   |		Jump	0x314
0313 e224       | $  |		Load	0x1,0x24
0314 4850       |HP  |		Short_Literal	0x50
0315 0092 1193  |    |		Action	Push_String_Extended,0x1193					; "WINDOW_SHIFT_OVERLAP"
0317 e008       |    |		Load	0x0,0x8
0318 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0319 c224       | $  |		Store	0x1,0x24
031a e052       | R  |		Load	0x0,0x52
031b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
031c e224       | $  |		Load	0x1,0x24
031d e008       |    |		Load	0x0,0x8
031e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
031f e008       |    |		Load	0x0,0x8
0320 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0321 a226       | &  |		Store_Unchecked	0x1,0x26
0322 e226       | &  |		Load	0x1,0x26
0323 480a       |H   |		Short_Literal	0xa
0324 026f       | o  |		Execute	Discrete,Remainder
0325 0f01       |    |		Execute_Immediate	Equal,0x1
0326 6802       |h   |		Jump_Zero	0x329
0327 4801       |H   |		Short_Literal	0x1
0328 a222       | "  |		Store_Unchecked	0x1,0x22
0329 00bc       |    |		Action	Signal_Activated
032a 00bb       |    |		Action	Signal_Completion
032b 0000       |    |		.XXX[0x1]
032c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007ff}
0330 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
0334 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033d       | =  |		.CONST	0x033d								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0002       |    |		.CONST	0x0002								; Number of locals
033b			INIT_0338:
033b e216       |    |		Load	0x1,0x16
033c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
033d			BODY_0338:
033d e5f8       |    |		Load	0x2,-0x8
033e e5f9       |    |		Load	0x2,-0x7
033f e216       |    |		Load	0x1,0x16
0340 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0341 e5fc       |    |		Load	0x2,-0x4
0342 e5fd       |    |		Load	0x2,-0x3
0343 e5fe       |    |		Load	0x2,-0x2
0344 e228       | (  |		Load	0x1,0x28
0345 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0346 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0347 c5f9       |    |		Store	0x2,-0x7
0348 c5f8       |    |		Store	0x2,-0x8
0349 e5f8       |    |		Load	0x2,-0x8
034a 7028       |p(  |		Jump_Nonzero	0x373
034b e5fd       |    |		Load	0x2,-0x3
034c 00d9       |    |		Load_Top	At_Offset_1
034d 824f       | O  |		Call	0x1,0x4f
034e 7024       |p$  |		Jump_Nonzero	0x373
034f e5fb       |    |		Load	0x2,-0x5
0350 680b       |h   |		Jump_Zero	0x35c
0351 e5f8       |    |		Load	0x2,-0x8
0352 e5f9       |    |		Load	0x2,-0x7
0353 00da       |    |		Load_Top	At_Offset_2
0354 e5fc       |    |		Load	0x2,-0x4
0355 e5fd       |    |		Load	0x2,-0x3
0356 e5ff       |    |		Load	0x2,-0x1
0357 8251       | Q  |		Call	0x1,0x51
0358 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0359 c5f9       |    |		Store	0x2,-0x7
035a c5f8       |    |		Store	0x2,-0x8
035b 7817       |x   |		Jump	0x373
035c e003       |    |		Load	0x0,0x3
035d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
035e 4801       |H   |		Short_Literal	0x1
035f 4802       |H   |		Short_Literal	0x2
0360 e00f       |    |		Load	0x0,0xf
0361 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0362 0334       | 4  |		Declare_Variable	Array,With_Constraint
0363 e5fd       |    |		Load	0x2,-0x3
0364 e00f       |    |		Load	0x0,0xf
0365 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0366 4801       |H   |		Short_Literal	0x1
0367 00da       |    |		Load_Top	At_Offset_2
0368 01d6       |    |		Execute	Vector,Field_Write
0369 e5fc       |    |		Load	0x2,-0x4
036a e00c       |    |		Load	0x0,0xc
036b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
036c 4802       |H   |		Short_Literal	0x2
036d 00da       |    |		Load_Top	At_Offset_2
036e 01d6       |    |		Execute	Vector,Field_Write
036f 6008       |`   |		Indirect_Literal	Discrete,0x378,{0x00000000, 0x00002827}
0370 e003       |    |		Load	0x0,0x3
0371 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0372 c5f8       |    |		Store	0x2,-0x8
0373 00d8       |    |		Load_Top	At_Offset_0
0374 a5fa       |    |		Store_Unchecked	0x2,-0x6
0375 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0376 0000 0000  |    |		.XXX[0x2]
0378 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002827}
037c 0000 0000  |    |		.BLANK	0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038c       |    |		.CONST	0x038c								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0003       |    |		.CONST	0x0003								; Number of locals
0383			INIT_0380:
0383 e004       |    |		Load	0x0,0x4
0384 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0385 e051       | Q  |		Load	0x0,0x51
0386 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0387 02c7       |    |		Declare_Variable	Any
0388 e5fd       |    |		Load	0x2,-0x3
0389 e001       |    |		Load	0x0,0x1
038a 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
038b a403       |    |		Store_Unchecked	0x2,0x3
038c			BODY_0380:
038c 4800       |H   |		Short_Literal	0x0
038d a5fc       |    |		Store_Unchecked	0x2,-0x4
038e e5ff       |    |		Load	0x2,-0x1
038f 6811       |h   |		Jump_Zero	0x3a1
0390 0092 1194  |    |		Action	Push_String_Extended,0x1194					; "State file for "
0392 e5fe       |    |		Load	0x2,-0x2
0393 e216       |    |		Load	0x1,0x16
0394 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0395 01cc       |    |		Execute	Vector,Catenate
0396 0092 1195  |    |		Action	Push_String_Extended,0x1195					; " is being abandoned."
0398 01cc       |    |		Execute	Vector,Catenate
0399 824e       | N  |		Call	0x1,0x4e
039a 00d8       |    |		Load_Top	At_Offset_0
039b 4801       |H   |		Short_Literal	0x1
039c 4800       |H   |		Short_Literal	0x0
039d e051       | Q  |		Load	0x0,0x51
039e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
039f c403       |    |		Store	0x2,0x3
03a0 782b       |x+  |		Jump	0x3cc
03a1 e001       |    |		Load	0x0,0x1
03a2 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03a3 e5fd       |    |		Load	0x2,-0x3
03a4 e001       |    |		Load	0x0,0x1
03a5 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03a6 c5fd       |    |		Store	0x2,-0x3
03a7 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03a8 00d9       |    |		Load_Top	At_Offset_1
03a9 700b       |p   |		Jump_Nonzero	0x3b5
03aa 0092 1194  |    |		Action	Push_String_Extended,0x1194					; "State file for "
03ac e5fe       |    |		Load	0x2,-0x2
03ad e216       |    |		Load	0x1,0x16
03ae 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
03af 01cc       |    |		Execute	Vector,Catenate
03b0 0092 1196  |    |		Action	Push_String_Extended,0x1196					; " has been closed."
03b2 01cc       |    |		Execute	Vector,Catenate
03b3 824e       | N  |		Call	0x1,0x4e
03b4 7817       |x   |		Jump	0x3cc
03b5 e003       |    |		Load	0x0,0x3
03b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b7 4801       |H   |		Short_Literal	0x1
03b8 4802       |H   |		Short_Literal	0x2
03b9 e00f       |    |		Load	0x0,0xf
03ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03bb 0334       | 4  |		Declare_Variable	Array,With_Constraint
03bc e5fe       |    |		Load	0x2,-0x2
03bd e216       |    |		Load	0x1,0x16
03be 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
03bf 4801       |H   |		Short_Literal	0x1
03c0 00da       |    |		Load_Top	At_Offset_2
03c1 01d6       |    |		Execute	Vector,Field_Write
03c2 00db       |    |		Load_Top	At_Offset_3
03c3 e00f       |    |		Load	0x0,0xf
03c4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03c5 4802       |H   |		Short_Literal	0x2
03c6 00da       |    |		Load_Top	At_Offset_2
03c7 01d6       |    |		Execute	Vector,Field_Write
03c8 6007       |`   |		Indirect_Literal	Discrete,0x3d0,{0x00000000, 0x00005005}
03c9 e003       |    |		Load	0x0,0x3
03ca 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03cb c5fc       |    |		Store	0x2,-0x4
03cc e212       |    |		Load	0x1,0x12
03cd a5fe       |    |		Store_Unchecked	0x2,-0x2
03ce 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03cf 0000       |    |		.XXX[0x1]
03d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00005005}
03d4 0000 0000  |    |		.BLANK	0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00db       |    |		Load_Top	At_Offset_3
03dc 00db       |    |		Load_Top	At_Offset_3
03dd e228       | (  |		Load	0x1,0x28
03de 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 4608       |F   |		Jump_Case	0x9
03e4 7808       |x   |		Jump	0x3ed								; case 0x0
03e5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
03e6 7816       |x   |		Jump	0x3fd								; case 0x2
03e7 7815       |x   |		Jump	0x3fd								; case 0x3
03e8 7814       |x   |		Jump	0x3fd								; case 0x4
03e9 7813       |x   |		Jump	0x3fd								; case 0x5
03ea 7812       |x   |		Jump	0x3fd								; case 0x6
03eb 7811       |x   |		Jump	0x3fd								; case 0x7
03ec 7810       |x   |		Jump	0x3fd								; case 0x8
03ed 4801       |H   |		Short_Literal	0x1
03ee 00db       |    |		Load_Top	At_Offset_3
03ef 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
03f0 00da       |    |		Load_Top	At_Offset_2
03f1 3412       |4   |		Execute	Record,Field_Reference,Field_Number 0x12
03f2 0125       | %  |		Execute	Any,Set_Constraint
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 3412       |4   |		Execute	Record,Field_Reference,Field_Number 0x12
03f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f6 00da       |    |		Load_Top	At_Offset_2
03f7 3413       |4   |		Execute	Record,Field_Reference,Field_Number 0x13
03f8 0125       | %  |		Execute	Any,Set_Constraint
03f9 00da       |    |		Load_Top	At_Offset_2
03fa 3413       |4   |		Execute	Record,Field_Reference,Field_Number 0x13
03fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03fd 0869       | i  |		Execute_Immediate	Raise,0x69
03fe 0000 0000  |    |		.XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 4608       |F   |		Jump_Case	0x9
0404 7808       |x   |		Jump	0x40d								; case 0x0
0405 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0406 7819       |x   |		Jump	0x420								; case 0x2
0407 7818       |x   |		Jump	0x420								; case 0x3
0408 7817       |x   |		Jump	0x420								; case 0x4
0409 7816       |x   |		Jump	0x420								; case 0x5
040a 7815       |x   |		Jump	0x420								; case 0x6
040b 7814       |x   |		Jump	0x420								; case 0x7
040c 7813       |x   |		Jump	0x420								; case 0x8
040d 00da       |    |		Load_Top	At_Offset_2
040e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
040f 0125       | %  |		Execute	Any,Set_Constraint
0410 00da       |    |		Load_Top	At_Offset_2
0411 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0412 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0413 00da       |    |		Load_Top	At_Offset_2
0414 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0415 0125       | %  |		Execute	Any,Set_Constraint
0416 00da       |    |		Load_Top	At_Offset_2
0417 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0418 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0419 00da       |    |		Load_Top	At_Offset_2
041a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
041b 0125       | %  |		Execute	Any,Set_Constraint
041c 00da       |    |		Load_Top	At_Offset_2
041d 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
041e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
041f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0420 0869       | i  |		Execute_Immediate	Raise,0x69
0421 0000 0000  |    |		.BLANK	0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 4608       |F   |		Jump_Case	0x9
042c 7808       |x   |		Jump	0x435								; case 0x0
042d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
042e 781c       |x   |		Jump	0x44b								; case 0x2
042f 781b       |x   |		Jump	0x44b								; case 0x3
0430 781a       |x   |		Jump	0x44b								; case 0x4
0431 7819       |x   |		Jump	0x44b								; case 0x5
0432 7818       |x   |		Jump	0x44b								; case 0x6
0433 7817       |x   |		Jump	0x44b								; case 0x7
0434 7816       |x   |		Jump	0x44b								; case 0x8
0435 00da       |    |		Load_Top	At_Offset_2
0436 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
0437 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0438 00da       |    |		Load_Top	At_Offset_2
0439 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
043a 0125       | %  |		Execute	Any,Set_Constraint
043b 00da       |    |		Load_Top	At_Offset_2
043c 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
043d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
043e 00da       |    |		Load_Top	At_Offset_2
043f 340f       |4   |		Execute	Record,Field_Reference,Field_Number 0xf
0440 0125       | %  |		Execute	Any,Set_Constraint
0441 00da       |    |		Load_Top	At_Offset_2
0442 340f       |4   |		Execute	Record,Field_Reference,Field_Number 0xf
0443 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0444 00da       |    |		Load_Top	At_Offset_2
0445 3410       |4   |		Execute	Record,Field_Reference,Field_Number 0x10
0446 0125       | %  |		Execute	Any,Set_Constraint
0447 00da       |    |		Load_Top	At_Offset_2
0448 3410       |4   |		Execute	Record,Field_Reference,Field_Number 0x10
0449 1c00       |    |		Execute_Immediate	Run_Utility,0x0
044a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
044b 0869       | i  |		Execute_Immediate	Raise,0x69
044c 0000 0000  |    |		.BLANK	0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 4608       |F   |		Jump_Case	0x9
0454 7808       |x   |		Jump	0x45d								; case 0x0
0455 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0456 7813       |x   |		Jump	0x46a								; case 0x2
0457 7812       |x   |		Jump	0x46a								; case 0x3
0458 7811       |x   |		Jump	0x46a								; case 0x4
0459 7810       |x   |		Jump	0x46a								; case 0x5
045a 780f       |x   |		Jump	0x46a								; case 0x6
045b 780e       |x   |		Jump	0x46a								; case 0x7
045c 780d       |x   |		Jump	0x46a								; case 0x8
045d 00da       |    |		Load_Top	At_Offset_2
045e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
045f 0125       | %  |		Execute	Any,Set_Constraint
0460 00da       |    |		Load_Top	At_Offset_2
0461 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0462 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0463 00da       |    |		Load_Top	At_Offset_2
0464 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0465 0125       | %  |		Execute	Any,Set_Constraint
0466 00da       |    |		Load_Top	At_Offset_2
0467 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0468 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0469 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
046a 0869       | i  |		Execute_Immediate	Raise,0x69
046b 0000 0000  |    |		.BLANK	0000[0x5]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 4608       |F   |		Jump_Case	0x9
0474 7808       |x   |		Jump	0x47d								; case 0x0
0475 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0476 780d       |x   |		Jump	0x484								; case 0x2
0477 780c       |x   |		Jump	0x484								; case 0x3
0478 780b       |x   |		Jump	0x484								; case 0x4
0479 780a       |x   |		Jump	0x484								; case 0x5
047a 7809       |x   |		Jump	0x484								; case 0x6
047b 7808       |x   |		Jump	0x484								; case 0x7
047c 7807       |x   |		Jump	0x484								; case 0x8
047d 00da       |    |		Load_Top	At_Offset_2
047e 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
047f 0125       | %  |		Execute	Any,Set_Constraint
0480 00da       |    |		Load_Top	At_Offset_2
0481 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0482 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0483 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0484 0869       | i  |		Execute_Immediate	Raise,0x69
0485 0000 0000  |    |		.XXX[0x3]
0487 0000       |    |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 4607       |F   |		Jump_Case	0x8
048c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
048d 7806       |x   |		Jump	0x494								; case 0x1
048e 7809       |x   |		Jump	0x498								; case 0x2
048f 780d       |x   |		Jump	0x49d								; case 0x3
0490 7810       |x   |		Jump	0x4a1								; case 0x4
0491 7811       |x   |		Jump	0x4a3								; case 0x5
0492 7812       |x   |		Jump	0x4a5								; case 0x6
0493 7815       |x   |		Jump	0x4a9								; case 0x7
0494 00da       |    |		Load_Top	At_Offset_2
0495 0091 118a  |    |		Action	Push_String_Extended_Indexed,0x118a				; "OTHER_SUBCLASS"
0497 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0498 00db       |    |		Load_Top	At_Offset_3
0499 00db       |    |		Load_Top	At_Offset_3
049a 00e0       |    |		Load_Encached	Standard_Cache
049b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
049c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
049d 00da       |    |		Load_Top	At_Offset_2
049e 00e0       |    |		Load_Encached	Standard_Cache
049f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04a0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04a1 00db       |    |		Load_Top	At_Offset_3
04a2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04a3 00db       |    |		Load_Top	At_Offset_3
04a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04a5 e233       | 3  |		Load	0x1,0x33
04a6 00dc       |    |		Load_Top	At_Offset_4
04a7 0267       | g  |		Execute	Discrete,Predecessor
04a8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04a9 e233       | 3  |		Load	0x1,0x33
04aa 00dc       |    |		Load_Top	At_Offset_4
04ab 0268       | h  |		Execute	Discrete,Successor
04ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04ad 0000 0000  |    |		.XXX[0x3]
04af 0000       |    |
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3       |    |		.CONST	0x04b3								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0001       |    |		.CONST	0x0001								; Number of locals
04b3			BODY_04b0:
04b3			INIT_04b0:
04b3 00d1       |    |		Pop_Control	Pop_Count_1
04b4 00da       |    |		Load_Top	At_Offset_2
04b5 01dc       |    |		Execute	Vector,Last
04b6 00db       |    |		Load_Top	At_Offset_3
04b7 01dd       |    |		Execute	Vector,First
04b8 0263       | c  |		Execute	Discrete,Above_Bound
04b9 700a       |p   |		Jump_Nonzero	0x4c4
04ba 00d8       |    |		Load_Top	At_Offset_0
04bb e5ff       |    |		Load	0x2,-0x1
04bc 01d5       |    |		Execute	Vector,Field_Reference
04bd 0125       | %  |		Execute	Any,Set_Constraint
04be 00d8       |    |		Load_Top	At_Offset_0
04bf e5ff       |    |		Load	0x2,-0x1
04c0 01d5       |    |		Execute	Vector,Field_Reference
04c1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c2 0a01       |    |		Execute_Immediate	Plus,0x1
04c3 7ff4       |    |		Jump	0x4b8
04c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04c5 0000 0000  |    |		.XXX[0x3]
04c7 0000       |    |
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 4608       |F   |		Jump_Case	0x9
04cc 7808       |x   |		Jump	0x4d5								; case 0x0
04cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04ce 781d       |x   |		Jump	0x4ec								; case 0x2
04cf 781c       |x   |		Jump	0x4ec								; case 0x3
04d0 781b       |x   |		Jump	0x4ec								; case 0x4
04d1 781a       |x   |		Jump	0x4ec								; case 0x5
04d2 7819       |x   |		Jump	0x4ec								; case 0x6
04d3 7805       |x   |		Jump	0x4d9								; case 0x7
04d4 780d       |x   |		Jump	0x4e2								; case 0x8
04d5 00da       |    |		Load_Top	At_Offset_2
04d6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04d9 00db       |    |		Load_Top	At_Offset_3
04da 4801       |H   |		Short_Literal	0x1
04db e5fe       |    |		Load	0x2,-0x2
04dc e234       | 4  |		Load	0x1,0x34
04dd 035b       | [  |		Declare_Type	Array,Constrained
04de 4801       |H   |		Short_Literal	0x1
04df e5ff       |    |		Load	0x2,-0x1
04e0 031b       |    |		Declare_Type	Variant_Record,Constrained
04e1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04e2 00db       |    |		Load_Top	At_Offset_3
04e3 00db       |    |		Load_Top	At_Offset_3
04e4 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
04e5 4801       |H   |		Short_Literal	0x1
04e6 e5fe       |    |		Load	0x2,-0x2
04e7 e234       | 4  |		Load	0x1,0x34
04e8 0334       | 4  |		Declare_Variable	Array,With_Constraint
04e9 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
04ea 016a       | j  |		QQ_execute	Variant_Record,XXX
04eb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04ec 0869       | i  |		Execute_Immediate	Raise,0x69
04ed 0000 0000  |    |		.XXX[0x3]
04ef 0000       |    |
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3       |    |		.CONST	0x04f3								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0001       |    |		.CONST	0x0001								; Number of locals
04f3			BODY_04f0:
04f3			INIT_04f0:
04f3 e065       | e  |		Load	0x0,0x65
04f4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04f5 00db       |    |		Load_Top	At_Offset_3
04f6 4801       |H   |		Short_Literal	0x1
04f7 6004       |`   |		Indirect_Literal	Discrete,0x4fc,{0x00000000, 0x00005802}
04f8 e003       |    |		Load	0x0,0x3
04f9 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
04fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04fb 0000       |    |		.XXX[0x1]
04fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00005802}
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503       |    |		.CONST	0x0503								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0001       |    |		.CONST	0x0001								; Number of locals
0503			BODY_0500:
0503			INIT_0500:
0503 00da       |    |		Load_Top	At_Offset_2
0504 0217       |    |		Execute	Heap_Access,All_Reference
0505 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0506 0217       |    |		Execute	Heap_Access,All_Reference
0507 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0508 e5fe       |    |		Load	0x2,-0x2
0509 012f       | /  |		Execute	Any,Equal
050a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
050b 0000 0000  |    |		.BLANK	0000[0x5]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 053c       | <  |		.CONST	0x053c								; Address of begin
0511 05e3       |    |		.CONST	0x05e3								; Address of exception handler
0512 000e       |    |		.CONST	0x000e								; Number of locals
0513			INIT_0510:
0513 00da       |    |		Load_Top	At_Offset_2
0514 0007       |    |		Action	Break_Optional
0515 e004       |    |		Load	0x0,0x4
0516 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0517 02c7       |    |		Declare_Variable	Any
0518 e5ff       |    |		Load	0x2,-0x1
0519 0217       |    |		Execute	Heap_Access,All_Reference
051a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
051b a403       |    |		Store_Unchecked	0x2,0x3
051c e004       |    |		Load	0x0,0x4
051d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
051e 02c7       |    |		Declare_Variable	Any
051f 00d8       |    |		Load_Top	At_Offset_0
0520 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0521 e004       |    |		Load	0x0,0x4
0522 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0523 e004       |    |		Load	0x0,0x4
0524 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0525 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0526 e004       |    |		Load	0x0,0x4
0527 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0528 02c7       |    |		Declare_Variable	Any
0529 00d8       |    |		Load_Top	At_Offset_0
052a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
052b e004       |    |		Load	0x0,0x4
052c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
052d 02c7       |    |		Declare_Variable	Any
052e 00d8       |    |		Load_Top	At_Offset_0
052f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0530 e228       | (  |		Load	0x1,0x28
0531 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0532 e228       | (  |		Load	0x1,0x28
0533 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0534 e214       |    |		Load	0x1,0x14
0535 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0536 e216       |    |		Load	0x1,0x16
0537 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0538 029f 094b  |   K|		Declare_Subprogram	INIT_0948,For_Call
053a 029f 099b  |    |		Declare_Subprogram	INIT_0998,For_Call
053c			BODY_0510:
053c e5fb       |    |		Load	0x2,-0x5
053d e216       |    |		Load	0x1,0x16
053e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
053f e5fe       |    |		Load	0x2,-0x2
0540 e228       | (  |		Load	0x1,0x28
0541 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0542 c40c       |    |		Store	0x2,0xc
0543 c5fb       |    |		Store	0x2,-0x5
0544 e5fb       |    |		Load	0x2,-0x5
0545 709c       |p   |		Jump_Nonzero	0x5e2
0546 00da       |    |		Load_Top	At_Offset_2
0547 0e02       |    |		Execute_Immediate	Not_Equal,0x2
0548 e5ff       |    |		Load	0x2,-0x1
0549 0217       |    |		Execute	Heap_Access,All_Reference
054a 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
054b e5fe       |    |		Load	0x2,-0x2
054c e5ff       |    |		Load	0x2,-0x1
054d 0217       |    |		Execute	Heap_Access,All_Reference
054e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
054f e5fd       |    |		Load	0x2,-0x3
0550 e5fe       |    |		Load	0x2,-0x2
0551 e004       |    |		Load	0x0,0x4
0552 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0553 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0554 e227       | '  |		Load	0x1,0x27
0555 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0556 e5ff       |    |		Load	0x2,-0x1
0557 0217       |    |		Execute	Heap_Access,All_Reference
0558 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0559 e5ff       |    |		Load	0x2,-0x1
055a 0217       |    |		Execute	Heap_Access,All_Reference
055b 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
055c 682d       |h-  |		Jump_Zero	0x58a
055d e004       |    |		Load	0x0,0x4
055e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
055f e407       |    |		Load	0x2,0x7
0560 0120       |    |		Execute	Any,Is_Value
0561 6803       |h   |		Jump_Zero	0x565
0562 e004       |    |		Load	0x0,0x4
0563 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0564 7801       |x   |		Jump	0x566
0565 e407       |    |		Load	0x2,0x7
0566 e5fe       |    |		Load	0x2,-0x2
0567 e004       |    |		Load	0x0,0x4
0568 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0569 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
056a c407       |    |		Store	0x2,0x7
056b c405       |    |		Store	0x2,0x5
056c 4801       |H   |		Short_Literal	0x1
056d 4801       |H   |		Short_Literal	0x1
056e e00f       |    |		Load	0x0,0xf
056f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0570 0334       | 4  |		Declare_Variable	Array,With_Constraint
0571 e5fe       |    |		Load	0x2,-0x2
0572 e00f       |    |		Load	0x0,0xf
0573 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0574 4801       |H   |		Short_Literal	0x1
0575 00da       |    |		Load_Top	At_Offset_2
0576 01d6       |    |		Execute	Vector,Field_Write
0577 6080       |`   |		Indirect_Literal	Discrete,0x5f8,{0x00000000, 0x00002834}
0578 e405       |    |		Load	0x2,0x5
0579 e003       |    |		Load	0x0,0x3
057a 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
057b e407       |    |		Load	0x2,0x7
057c e5ff       |    |		Load	0x2,-0x1
057d 0217       |    |		Execute	Heap_Access,All_Reference
057e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
057f e5fd       |    |		Load	0x2,-0x3
0580 e407       |    |		Load	0x2,0x7
0581 e004       |    |		Load	0x0,0x4
0582 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0583 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0584 e227       | '  |		Load	0x1,0x27
0585 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0586 e5ff       |    |		Load	0x2,-0x1
0587 0217       |    |		Execute	Heap_Access,All_Reference
0588 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0589 780c       |x   |		Jump	0x596
058a e5ff       |    |		Load	0x2,-0x1
058b 0217       |    |		Execute	Heap_Access,All_Reference
058c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
058d e5ff       |    |		Load	0x2,-0x1
058e 0217       |    |		Execute	Heap_Access,All_Reference
058f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0590 e5ff       |    |		Load	0x2,-0x1
0591 0217       |    |		Execute	Heap_Access,All_Reference
0592 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0593 e5ff       |    |		Load	0x2,-0x1
0594 0217       |    |		Execute	Heap_Access,All_Reference
0595 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0596 e5ff       |    |		Load	0x2,-0x1
0597 0217       |    |		Execute	Heap_Access,All_Reference
0598 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0599 a409       |    |		Store_Unchecked	0x2,0x9
059a 00cf       |    |		Action	Mark_Auxiliary
059b 780a       |x   |		Jump	0x5a6
059c e005       |    |		Load	0x0,0x5
059d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
059e e409       |    |		Load	0x2,0x9
059f 0217       |    |		Execute	Heap_Access,All_Reference
05a0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05a1 e409       |    |		Load	0x2,0x9
05a2 0217       |    |		Execute	Heap_Access,All_Reference
05a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05a4 a409       |    |		Store_Unchecked	0x2,0x9
05a5 00c9       |    |		Action	Pop_Auxiliary_Loop
05a6 e409       |    |		Load	0x2,0x9
05a7 77f4       |w   |		Jump_Nonzero	0x59c
05a8 00ce       |    |		Action	Pop_Auxiliary
05a9 e004       |    |		Load	0x0,0x4
05aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05ab e404       |    |		Load	0x2,0x4
05ac 0120       |    |		Execute	Any,Is_Value
05ad 6803       |h   |		Jump_Zero	0x5b1
05ae e004       |    |		Load	0x0,0x4
05af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b0 7801       |x   |		Jump	0x5b2
05b1 e404       |    |		Load	0x2,0x4
05b2 6041       |`A  |		Indirect_Literal	Discrete,0x5f4,{0x00000000, 0x00004000}
05b3 e051       | Q  |		Load	0x0,0x51
05b4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b5 4800       |H   |		Short_Literal	0x0
05b6 e5fe       |    |		Load	0x2,-0x2
05b7 e004       |    |		Load	0x0,0x4
05b8 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
05b9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
05ba c404       |    |		Store	0x2,0x4
05bb c405       |    |		Store	0x2,0x5
05bc 4801       |H   |		Short_Literal	0x1
05bd 4801       |H   |		Short_Literal	0x1
05be e00f       |    |		Load	0x0,0xf
05bf 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05c0 0334       | 4  |		Declare_Variable	Array,With_Constraint
05c1 e5fe       |    |		Load	0x2,-0x2
05c2 e00f       |    |		Load	0x0,0xf
05c3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05c4 4801       |H   |		Short_Literal	0x1
05c5 00da       |    |		Load_Top	At_Offset_2
05c6 01d6       |    |		Execute	Vector,Field_Write
05c7 6028       |`(  |		Indirect_Literal	Discrete,0x5f0,{0x00000000, 0x00002832}
05c8 e405       |    |		Load	0x2,0x5
05c9 e003       |    |		Load	0x0,0x3
05ca 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
05cb 00cf       |    |		Action	Mark_Auxiliary
05cc e402       |    |		Load	0x2,0x2
05cd 0217       |    |		Execute	Heap_Access,All_Reference
05ce 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
05cf a40a       |    |		Store_Unchecked	0x2,0xa
05d0 840d       |    |		Call	0x2,0xd
05d1 e5fd       |    |		Load	0x2,-0x3
05d2 0217       |    |		Execute	Heap_Access,All_Reference
05d3 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
05d4 7001       |p   |		Jump_Nonzero	0x5d6
05d5 780b       |x   |		Jump	0x5e1
05d6 e402       |    |		Load	0x2,0x2
05d7 0217       |    |		Execute	Heap_Access,All_Reference
05d8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
05d9 e213       |    |		Load	0x1,0x13
05da 0216       |    |		Execute	Heap_Access,Convert
05db a402       |    |		Store_Unchecked	0x2,0x2
05dc e402       |    |		Load	0x2,0x2
05dd 6803       |h   |		Jump_Zero	0x5e1
05de 840e       |    |		Call	0x2,0xe
05df 00c9       |    |		Action	Pop_Auxiliary_Loop
05e0 7feb       |    |		Jump	0x5cc
05e1 00ce       |    |		Action	Pop_Auxiliary
05e2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05e3			TRAP_0510:
05e3 e003       |    |		Load	0x0,0x3
05e4 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
05e5 010f       |    |		Execute	Exception,Equal
05e6 7004       |p   |		Jump_Nonzero	0x5eb
05e7 e003       |    |		Load	0x0,0x3
05e8 1b3e       | >  |		Execute	Package,Field_Read,Field_Number 0x3e
05e9 010f       |    |		Execute	Exception,Equal
05ea 6804       |h   |		Jump_Zero	0x5ef
05eb e003       |    |		Load	0x0,0x3
05ec 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
05ed a5fb       |    |		Store_Unchecked	0x2,-0x5
05ee 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05ef 0100       |    |		Execute	Exception,Raise
05f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002832}
05f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
05f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002834}
05fc 0000 0000  |    |		.BLANK	0000[0x4]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0608       |    |		.CONST	0x0608								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0002       |    |		.CONST	0x0002								; Number of locals
0603			INIT_0600:
0603 e5fb       |    |		Load	0x2,-0x5
0604 e001       |    |		Load	0x0,0x1
0605 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0606 e20f       |    |		Load	0x1,0xf
0607 03f1       |    |		Declare_Variable	Discrete,With_Value
0608			BODY_0600:
0608 e5fe       |    |		Load	0x2,-0x2
0609 e5fc       |    |		Load	0x2,-0x4
060a 824f       | O  |		Call	0x1,0x4f
060b 703f       |p?  |		Jump_Nonzero	0x64b
060c 0092 1197  |    |		Action	Push_String_Extended,0x1197					; "Harmonizing the state."
060e 824e       | N  |		Call	0x1,0x4e
060f 00d8       |    |		Load_Top	At_Offset_0
0610 0e02       |    |		Execute_Immediate	Not_Equal,0x2
0611 6814       |h   |		Jump_Zero	0x626
0612 e5fa       |    |		Load	0x2,-0x6
0613 e5fb       |    |		Load	0x2,-0x5
0614 e5fc       |    |		Load	0x2,-0x4
0615 4800       |H   |		Short_Literal	0x0
0616 821f       |    |		Call	0x1,0x1f
0617 c5fc       |    |		Store	0x2,-0x4
0618 c5fb       |    |		Store	0x2,-0x5
0619 c5fa       |    |		Store	0x2,-0x6
061a e5fa       |    |		Load	0x2,-0x6
061b e5fb       |    |		Load	0x2,-0x5
061c e216       |    |		Load	0x1,0x16
061d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
061e e5fd       |    |		Load	0x2,-0x3
061f e5fe       |    |		Load	0x2,-0x2
0620 4802       |H   |		Short_Literal	0x2
0621 e228       | (  |		Load	0x1,0x28
0622 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0623 c5fc       |    |		Store	0x2,-0x4
0624 c5fb       |    |		Store	0x2,-0x5
0625 c5fa       |    |		Store	0x2,-0x6
0626 e5fa       |    |		Load	0x2,-0x6
0627 e5ff       |    |		Load	0x2,-0x1
0628 e5fc       |    |		Load	0x2,-0x4
0629 e5fe       |    |		Load	0x2,-0x2
062a e5fc       |    |		Load	0x2,-0x4
062b 0217       |    |		Execute	Heap_Access,All_Reference
062c 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
062d e213       |    |		Load	0x1,0x13
062e 0216       |    |		Execute	Heap_Access,Convert
062f 8250       | P  |		Call	0x1,0x50
0630 c5fa       |    |		Store	0x2,-0x6
0631 e5fb       |    |		Load	0x2,-0x5
0632 e001       |    |		Load	0x0,0x1
0633 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0634 00d9       |    |		Load_Top	At_Offset_1
0635 027e       | ~  |		Execute	Discrete,Not_Equal
0636 6814       |h   |		Jump_Zero	0x64b
0637 e5fa       |    |		Load	0x2,-0x6
0638 e5fb       |    |		Load	0x2,-0x5
0639 e5fc       |    |		Load	0x2,-0x4
063a 4800       |H   |		Short_Literal	0x0
063b 821f       |    |		Call	0x1,0x1f
063c c5fc       |    |		Store	0x2,-0x4
063d c5fb       |    |		Store	0x2,-0x5
063e c5fa       |    |		Store	0x2,-0x6
063f e5fa       |    |		Load	0x2,-0x6
0640 e5fb       |    |		Load	0x2,-0x5
0641 e216       |    |		Load	0x1,0x16
0642 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0643 e5fd       |    |		Load	0x2,-0x3
0644 e5fe       |    |		Load	0x2,-0x2
0645 e402       |    |		Load	0x2,0x2
0646 e228       | (  |		Load	0x1,0x28
0647 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0648 c5fc       |    |		Store	0x2,-0x4
0649 c5fb       |    |		Store	0x2,-0x5
064a c5fa       |    |		Store	0x2,-0x6
064b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
064c 0000 0000  |    |		.BLANK	0000[0x4]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 065b       | [  |		.CONST	0x065b								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0003       |    |		.CONST	0x0003								; Number of locals
0653			INIT_0650:
0653 00da       |    |		Load_Top	At_Offset_2
0654 0217       |    |		Execute	Heap_Access,All_Reference
0655 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0656 e214       |    |		Load	0x1,0x14
0657 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0658 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0659 e229       | )  |		Load	0x1,0x29
065a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
065b			BODY_0650:
065b 4800       |H   |		Short_Literal	0x0
065c 00da       |    |		Load_Top	At_Offset_2
065d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
065e e229       | )  |		Load	0x1,0x29
065f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0660 e5ff       |    |		Load	0x2,-0x1
0661 e229       | )  |		Load	0x1,0x29
0662 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0663 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0664 00cf       |    |		Action	Mark_Auxiliary
0665 00da       |    |		Load_Top	At_Offset_2
0666 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0667 01d9       |    |		Execute	Vector,Reverse_Bounds
0668 0263       | c  |		Execute	Discrete,Above_Bound
0669 7037       |p7  |		Jump_Nonzero	0x6a1
066a 00db       |    |		Load_Top	At_Offset_3
066b e229       | )  |		Load	0x1,0x29
066c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
066d 6821       |h!  |		Jump_Zero	0x68f
066e 00d8       |    |		Load_Top	At_Offset_0
066f 0aff       |    |		Execute_Immediate	Plus,-0x1
0670 e214       |    |		Load	0x1,0x14
0671 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0672 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0673 4800       |H   |		Short_Literal	0x0
0674 00d9       |    |		Load_Top	At_Offset_1
0675 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0676 4801       |H   |		Short_Literal	0x1
0677 00da       |    |		Load_Top	At_Offset_2
0678 0aff       |    |		Execute_Immediate	Plus,-0x1
0679 e402       |    |		Load	0x2,0x2
067a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
067b 01cf       |    |		Execute	Vector,Slice_Read
067c 00d9       |    |		Load_Top	At_Offset_1
067d 00d8       |    |		Load_Top	At_Offset_0
067e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
067f 00da       |    |		Load_Top	At_Offset_2
0680 01da       |    |		Execute	Vector,Bounds
0681 00da       |    |		Load_Top	At_Offset_2
0682 01da       |    |		Execute	Vector,Bounds
0683 00da       |    |		Load_Top	At_Offset_2
0684 027f       |    |		Execute	Discrete,Equal
0685 7001       |p   |		Jump_Nonzero	0x687
0686 08e0       |    |		Execute_Immediate	Raise,0xe0
0687 00cd       |    |		Action	Spare6_Action
0688 027f       |    |		Execute	Discrete,Equal
0689 7001       |p   |		Jump_Nonzero	0x68b
068a 08e0       |    |		Execute_Immediate	Raise,0xe0
068b 00d2       |    |		Pop_Control	Pop_Count_2
068c 00d9       |    |		Load_Top	At_Offset_1
068d 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
068e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
068f e5ff       |    |		Load	0x2,-0x1
0690 e403       |    |		Load	0x2,0x3
0691 e229       | )  |		Load	0x1,0x29
0692 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0693 e229       | )  |		Load	0x1,0x29
0694 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0695 e210       |    |		Load	0x1,0x10
0696 0216       |    |		Execute	Heap_Access,Convert
0697 00d9       |    |		Load_Top	At_Offset_1
0698 e402       |    |		Load	0x2,0x2
0699 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
069a 01d6       |    |		Execute	Vector,Field_Write
069b 00db       |    |		Load_Top	At_Offset_3
069c e229       | )  |		Load	0x1,0x29
069d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
069e c403       |    |		Store	0x2,0x3
069f 00c8       |    |		Action	Pop_Auxiliary_Range
06a0 3fc9       |?   |		Loop_Increasing	0x66a
06a1 00ce       |    |		Action	Pop_Auxiliary
06a2 00d9       |    |		Load_Top	At_Offset_1
06a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06a4 0000 0000  |    |		.BLANK	0000[0x4]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab       |    |		.CONST	0x06ab								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0001       |    |		.CONST	0x0001								; Number of locals
06ab			BODY_06a8:
06ab			INIT_06a8:
06ab 00da       |    |		Load_Top	At_Offset_2
06ac 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06ad 0000 0000  |    |		.XXX[0x3]
06af 0000       |    |
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 4801       |H   |		Short_Literal	0x1
06b4 0092 1198  |    |		Action	Push_String_Extended,0x1198					; "<DEFAULT>"
06b6 e5fe       |    |		Load	0x2,-0x2
06b7 e066       | f  |		Load	0x0,0x66
06b8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
06b9 680c       |h   |		Jump_Zero	0x6c6
06ba 00da       |    |		Load_Top	At_Offset_2
06bb e216       |    |		Load	0x1,0x16
06bc 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
06bd 00db       |    |		Load_Top	At_Offset_3
06be e216       |    |		Load	0x1,0x16
06bf 187c       | |  |		Execute	Package,Field_Execute,Field_Number 0x7c
06c0 01cc       |    |		Execute	Vector,Catenate
06c1 00db       |    |		Load_Top	At_Offset_3
06c2 e216       |    |		Load	0x1,0x16
06c3 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
06c4 01cc       |    |		Execute	Vector,Catenate
06c5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06c6 00db       |    |		Load_Top	At_Offset_3
06c7 01dd       |    |		Execute	Vector,First
06c8 e5fe       |    |		Load	0x2,-0x2
06c9 01d7       |    |		Execute	Vector,Field_Read
06ca 0f21       | !  |		Execute_Immediate	Equal,0x21
06cb 6802       |h   |		Jump_Zero	0x6ce
06cc 00db       |    |		Load_Top	At_Offset_3
06cd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06ce 00db       |    |		Load_Top	At_Offset_3
06cf 01dd       |    |		Execute	Vector,First
06d0 e5fe       |    |		Load	0x2,-0x2
06d1 01d7       |    |		Execute	Vector,Field_Read
06d2 0f2e       | .  |		Execute_Immediate	Equal,0x2e
06d3 6806       |h   |		Jump_Zero	0x6da
06d4 00da       |    |		Load_Top	At_Offset_2
06d5 e216       |    |		Load	0x1,0x16
06d6 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
06d7 e5fe       |    |		Load	0x2,-0x2
06d8 01cc       |    |		Execute	Vector,Catenate
06d9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06da 00da       |    |		Load_Top	At_Offset_2
06db e216       |    |		Load	0x1,0x16
06dc 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
06dd 00db       |    |		Load_Top	At_Offset_3
06de e216       |    |		Load	0x1,0x16
06df 187c       | |  |		Execute	Package,Field_Execute,Field_Number 0x7c
06e0 01cc       |    |		Execute	Vector,Catenate
06e1 e5fe       |    |		Load	0x2,-0x2
06e2 01cc       |    |		Execute	Vector,Catenate
06e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06e4 0000 0000  |    |		.BLANK	0000[0x4]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06ee       |    |		.CONST	0x06ee								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0002       |    |		.CONST	0x0002								; Number of locals
06eb			INIT_06e8:
06eb e004       |    |		Load	0x0,0x4
06ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06ee			BODY_06e8:
06ee e004       |    |		Load	0x0,0x4
06ef 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06f0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06f1 e5fc       |    |		Load	0x2,-0x4
06f2 6061       |`a  |		Indirect_Literal	Discrete,0x754,{0x00000000, 0x00004000}
06f3 e051       | Q  |		Load	0x0,0x51
06f4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06f5 e052       | R  |		Load	0x0,0x52
06f6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06f7 e070       | p  |		Load	0x0,0x70
06f8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06f9 4801       |H   |		Short_Literal	0x1
06fa 4800       |H   |		Short_Literal	0x0
06fb e052       | R  |		Load	0x0,0x52
06fc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06fd e004       |    |		Load	0x0,0x4
06fe 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06ff 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0700 e5ff       |    |		Load	0x2,-0x1
0701 e004       |    |		Load	0x0,0x4
0702 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0703 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0704 c5fc       |    |		Store	0x2,-0x4
0705 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0706 00d8       |    |		Load_Top	At_Offset_0
0707 6832       |h2  |		Jump_Zero	0x73a
0708 00d8       |    |		Load_Top	At_Offset_0
0709 0f03       |    |		Execute_Immediate	Equal,0x3
070a 6816       |h   |		Jump_Zero	0x721
070b e065       | e  |		Load	0x0,0x65
070c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
070d 4801       |H   |		Short_Literal	0x1
070e 4801       |H   |		Short_Literal	0x1
070f e00f       |    |		Load	0x0,0xf
0710 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0711 0334       | 4  |		Declare_Variable	Array,With_Constraint
0712 e5ff       |    |		Load	0x2,-0x1
0713 e00f       |    |		Load	0x0,0xf
0714 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0715 4801       |H   |		Short_Literal	0x1
0716 00da       |    |		Load_Top	At_Offset_2
0717 01d6       |    |		Execute	Vector,Field_Write
0718 4801       |H   |		Short_Literal	0x1
0719 e5fd       |    |		Load	0x2,-0x3
071a e003       |    |		Load	0x0,0x3
071b 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
071c e004       |    |		Load	0x0,0x4
071d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
071e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
071f c5fc       |    |		Store	0x2,-0x4
0720 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0721 e003       |    |		Load	0x0,0x3
0722 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0723 4801       |H   |		Short_Literal	0x1
0724 4802       |H   |		Short_Literal	0x2
0725 e00f       |    |		Load	0x0,0xf
0726 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0727 0334       | 4  |		Declare_Variable	Array,With_Constraint
0728 e5ff       |    |		Load	0x2,-0x1
0729 e00f       |    |		Load	0x0,0xf
072a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
072b 4801       |H   |		Short_Literal	0x1
072c 00da       |    |		Load_Top	At_Offset_2
072d 01d6       |    |		Execute	Vector,Field_Write
072e e5ff       |    |		Load	0x2,-0x1
072f 00db       |    |		Load_Top	At_Offset_3
0730 e00f       |    |		Load	0x0,0xf
0731 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0732 4802       |H   |		Short_Literal	0x2
0733 00da       |    |		Load_Top	At_Offset_2
0734 01d6       |    |		Execute	Vector,Field_Write
0735 e5fe       |    |		Load	0x2,-0x2
0736 e003       |    |		Load	0x0,0x3
0737 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0738 c5fb       |    |		Store	0x2,-0x5
0739 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
073a e5fc       |    |		Load	0x2,-0x4
073b e004       |    |		Load	0x0,0x4
073c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
073d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
073e 6811       |h   |		Jump_Zero	0x750
073f e065       | e  |		Load	0x0,0x65
0740 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0741 4801       |H   |		Short_Literal	0x1
0742 4801       |H   |		Short_Literal	0x1
0743 e00f       |    |		Load	0x0,0xf
0744 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0745 0334       | 4  |		Declare_Variable	Array,With_Constraint
0746 e5ff       |    |		Load	0x2,-0x1
0747 e00f       |    |		Load	0x0,0xf
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 4801       |H   |		Short_Literal	0x1
074d e5fd       |    |		Load	0x2,-0x3
074e e003       |    |		Load	0x0,0x3
074f 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0750 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0751 0000 0000  |    |		.XXX[0x3]
0753 0000       |    |
0754 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 076f       | o  |		.CONST	0x076f								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0007       |    |		.CONST	0x0007								; Number of locals
075b			INIT_0758:
075b e004       |    |		Load	0x0,0x4
075c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
075d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
075e 02c7       |    |		Declare_Variable	Any
075f 00d8       |    |		Load_Top	At_Offset_0
0760 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0761 e004       |    |		Load	0x0,0x4
0762 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0763 02c7       |    |		Declare_Variable	Any
0764 00d8       |    |		Load_Top	At_Offset_0
0765 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0766 e004       |    |		Load	0x0,0x4
0767 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0768 e003       |    |		Load	0x0,0x3
0769 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
076a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
076b 00e2       |    |		Load_Encached	Integer_Cache
076c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
076d 029f 0a1b  |    |		Declare_Subprogram	INIT_0a18,For_Call
076f			BODY_0758:
076f 00da       |    |		Load_Top	At_Offset_2
0770 e402       |    |		Load	0x2,0x2
0771 e5fd       |    |		Load	0x2,-0x3
0772 e5fe       |    |		Load	0x2,-0x2
0773 e5ff       |    |		Load	0x2,-0x1
0774 8255       | U  |		Call	0x1,0x55
0775 c402       |    |		Store	0x2,0x2
0776 005b       | [  |		Store_Top	Discrete,At_Offset_3
0777 00da       |    |		Load_Top	At_Offset_2
0778 7043       |pC  |		Jump_Nonzero	0x7bc
0779 00cf       |    |		Action	Mark_Auxiliary
077a 7835       |x5  |		Jump	0x7b0
077b e004       |    |		Load	0x0,0x4
077c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
077d e403       |    |		Load	0x2,0x3
077e 0120       |    |		Execute	Any,Is_Value
077f 6803       |h   |		Jump_Zero	0x783
0780 e004       |    |		Load	0x0,0x4
0781 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0782 7801       |x   |		Jump	0x784
0783 e403       |    |		Load	0x2,0x3
0784 e402       |    |		Load	0x2,0x2
0785 e004       |    |		Load	0x0,0x4
0786 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0787 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0788 c403       |    |		Store	0x2,0x3
0789 c404       |    |		Store	0x2,0x4
078a e404       |    |		Load	0x2,0x4
078b 681b       |h   |		Jump_Zero	0x7a7
078c e003       |    |		Load	0x0,0x3
078d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
078e 4801       |H   |		Short_Literal	0x1
078f 4802       |H   |		Short_Literal	0x2
0790 e00f       |    |		Load	0x0,0xf
0791 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0792 0334       | 4  |		Declare_Variable	Array,With_Constraint
0793 e402       |    |		Load	0x2,0x2
0794 e004       |    |		Load	0x0,0x4
0795 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0796 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0797 e00f       |    |		Load	0x0,0xf
0798 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0799 4801       |H   |		Short_Literal	0x1
079a 00da       |    |		Load_Top	At_Offset_2
079b 01d6       |    |		Execute	Vector,Field_Write
079c e404       |    |		Load	0x2,0x4
079d e00f       |    |		Load	0x0,0xf
079e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
079f 4802       |H   |		Short_Literal	0x2
07a0 00da       |    |		Load_Top	At_Offset_2
07a1 01d6       |    |		Execute	Vector,Field_Write
07a2 e5fc       |    |		Load	0x2,-0x4
07a3 e003       |    |		Load	0x0,0x3
07a4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07a5 c405       |    |		Store	0x2,0x5
07a6 7803       |x   |		Jump	0x7aa
07a7 00da       |    |		Load_Top	At_Offset_2
07a8 0a01       |    |		Execute_Immediate	Plus,0x1
07a9 005b       | [  |		Store_Top	Discrete,At_Offset_3
07aa e402       |    |		Load	0x2,0x2
07ab e004       |    |		Load	0x0,0x4
07ac 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07ad 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
07ae c402       |    |		Store	0x2,0x2
07af 00c9       |    |		Action	Pop_Auxiliary_Loop
07b0 e402       |    |		Load	0x2,0x2
07b1 e004       |    |		Load	0x0,0x4
07b2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07b3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
07b4 6fc6       |o   |		Jump_Zero	0x77b
07b5 00ce       |    |		Action	Pop_Auxiliary
07b6 e402       |    |		Load	0x2,0x2
07b7 e004       |    |		Load	0x0,0x4
07b8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07b9 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07ba c402       |    |		Store	0x2,0x2
07bb 8407       |    |		Call	0x2,0x7
07bc 4800       |H   |		Short_Literal	0x0
07bd e235       | 5  |		Load	0x1,0x35
07be 1c08       |    |		Execute_Immediate	Run_Utility,0x8
07bf 00db       |    |		Load_Top	At_Offset_3
07c0 00d9       |    |		Load_Top	At_Offset_1
07c1 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07c2 4801       |H   |		Short_Literal	0x1
07c3 4800       |H   |		Short_Literal	0x0
07c4 e234       | 4  |		Load	0x1,0x34
07c5 0334       | 4  |		Declare_Variable	Array,With_Constraint
07c6 00d9       |    |		Load_Top	At_Offset_1
07c7 00d8       |    |		Load_Top	At_Offset_0
07c8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07c9 00da       |    |		Load_Top	At_Offset_2
07ca 01da       |    |		Execute	Vector,Bounds
07cb 00da       |    |		Load_Top	At_Offset_2
07cc 01da       |    |		Execute	Vector,Bounds
07cd 00da       |    |		Load_Top	At_Offset_2
07ce 027f       |    |		Execute	Discrete,Equal
07cf 7001       |p   |		Jump_Nonzero	0x7d1
07d0 08e0       |    |		Execute_Immediate	Raise,0xe0
07d1 00cd       |    |		Action	Spare6_Action
07d2 027f       |    |		Execute	Discrete,Equal
07d3 7001       |p   |		Jump_Nonzero	0x7d5
07d4 08e0       |    |		Execute_Immediate	Raise,0xe0
07d5 00d2       |    |		Pop_Control	Pop_Count_2
07d6 00d9       |    |		Load_Top	At_Offset_1
07d7 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
07d8 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
07d9 0000 0000  |    |		.BLANK	0000[0x7]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07ec       |    |		.CONST	0x07ec								; Address of begin
07e1 0004       |    |		.CONST	0x0004								; Address of exception handler
07e2 0005       |    |		.CONST	0x0005								; Number of locals
07e3			INIT_07e0:
07e3 e003       |    |		Load	0x0,0x3
07e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07e5 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
07e6 e227       | '  |		Load	0x1,0x27
07e7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07e8 e214       |    |		Load	0x1,0x14
07e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07ea 029f 0a63  |   c|		Declare_Subprogram	INIT_0a60,For_Call
07ec			BODY_07e0:
07ec e5ff       |    |		Load	0x2,-0x1
07ed 01db       |    |		Execute	Vector,Length
07ee 7003       |p   |		Jump_Nonzero	0x7f2
07ef e5fe       |    |		Load	0x2,-0x2
07f0 8252       | R  |		Call	0x1,0x52
07f1 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
07f2 e5ff       |    |		Load	0x2,-0x1
07f3 01dd       |    |		Execute	Vector,First
07f4 e5ff       |    |		Load	0x2,-0x1
07f5 01d7       |    |		Execute	Vector,Field_Read
07f6 0f2e       | .  |		Execute_Immediate	Equal,0x2e
07f7 683a       |h:  |		Jump_Zero	0x832
07f8 e5fe       |    |		Load	0x2,-0x2
07f9 e5ff       |    |		Load	0x2,-0x1
07fa e227       | '  |		Load	0x1,0x27
07fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07fc 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
07fd 00da       |    |		Load_Top	At_Offset_2
07fe e227       | '  |		Load	0x1,0x27
07ff 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0800 7031       |p1  |		Jump_Nonzero	0x832
0801 e5fe       |    |		Load	0x2,-0x2
0802 00db       |    |		Load_Top	At_Offset_3
0803 e229       | )  |		Load	0x1,0x29
0804 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0805 e210       |    |		Load	0x1,0x10
0806 0216       |    |		Execute	Heap_Access,Convert
0807 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0808 00d9       |    |		Load_Top	At_Offset_1
0809 e214       |    |		Load	0x1,0x14
080a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
080b 7026       |p&  |		Jump_Nonzero	0x832
080c 4801       |H   |		Short_Literal	0x1
080d e214       |    |		Load	0x1,0x14
080e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
080f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0810 4800       |H   |		Short_Literal	0x0
0811 00d9       |    |		Load_Top	At_Offset_1
0812 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0813 4801       |H   |		Short_Literal	0x1
0814 4801       |H   |		Short_Literal	0x1
0815 e214       |    |		Load	0x1,0x14
0816 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0817 0334       | 4  |		Declare_Variable	Array,With_Constraint
0818 4801       |H   |		Short_Literal	0x1
0819 4801       |H   |		Short_Literal	0x1
081a e404       |    |		Load	0x2,0x4
081b 00d9       |    |		Load_Top	At_Offset_1
081c e407       |    |		Load	0x2,0x7
081d 01d6       |    |		Execute	Vector,Field_Write
081e 3ffb       |?   |		Loop_Increasing	0x81a
081f 00d9       |    |		Load_Top	At_Offset_1
0820 00d8       |    |		Load_Top	At_Offset_0
0821 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0822 00da       |    |		Load_Top	At_Offset_2
0823 01da       |    |		Execute	Vector,Bounds
0824 00da       |    |		Load_Top	At_Offset_2
0825 01da       |    |		Execute	Vector,Bounds
0826 00da       |    |		Load_Top	At_Offset_2
0827 027f       |    |		Execute	Discrete,Equal
0828 7001       |p   |		Jump_Nonzero	0x82a
0829 08e0       |    |		Execute_Immediate	Raise,0xe0
082a 00cd       |    |		Action	Spare6_Action
082b 027f       |    |		Execute	Discrete,Equal
082c 7001       |p   |		Jump_Nonzero	0x82e
082d 08e0       |    |		Execute_Immediate	Raise,0xe0
082e 00d2       |    |		Pop_Control	Pop_Count_2
082f 00d9       |    |		Load_Top	At_Offset_1
0830 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0831 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0832 8405       |    |		Call	0x2,0x5
0833 0831       | 1  |		Execute_Immediate	Raise,0x31
0834 0000 0000  |    |		.BLANK	0000[0x4]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 0862       | b  |		.CONST	0x0862								; Address of begin
0839 0004       |    |		.CONST	0x0004								; Address of exception handler
083a 0007       |    |		.CONST	0x0007								; Number of locals
083b			INIT_0838:
083b e081       |    |		Load	0x0,0x81
083c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
083d 0124       | $  |		Execute	Any,Is_Constrained
083e 7009       |p   |		Jump_Nonzero	0x848
083f e081       |    |		Load	0x0,0x81
0840 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0841 1c09       |    |		Execute_Immediate	Run_Utility,0x9
0842 e081       |    |		Load	0x0,0x81
0843 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0844 e02c       | ,  |		Load	0x0,0x2c
0845 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0846 0398       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Subtype
0847 7805       |x   |		Jump	0x84d
0848 e081       |    |		Load	0x0,0x81
0849 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
084a e02c       | ,  |		Load	0x0,0x2c
084b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
084c 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
084d e004       |    |		Load	0x0,0x4
084e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
084f e081       |    |		Load	0x0,0x81
0850 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0851 02c7       |    |		Declare_Variable	Any
0852 00d8       |    |		Load_Top	At_Offset_0
0853 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0854 e004       |    |		Load	0x0,0x4
0855 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0856 02c7       |    |		Declare_Variable	Any
0857 00d8       |    |		Load_Top	At_Offset_0
0858 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0859 4801       |H   |		Short_Literal	0x1
085a 48ff       |H   |		Short_Literal	0xff
085b e234       | 4  |		Load	0x1,0x34
085c 035b       | [  |		Declare_Type	Array,Constrained
085d 0337       | 7  |		Declare_Variable	Array
085e 00d8       |    |		Load_Top	At_Offset_0
085f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0860 00e3       |    |		Load_Encached	Natural_Cache
0861 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0862			BODY_0838:
0862 00be       |    |		Action	Activate_Tasks
0863 e402       |    |		Load	0x2,0x2
0864 e004       |    |		Load	0x0,0x4
0865 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0866 00d9       |    |		Load_Top	At_Offset_1
0867 0219       |    |		Execute	Heap_Access,All_Read
0868 4800       |H   |		Short_Literal	0x0
0869 4800       |H   |		Short_Literal	0x0
086a e051       | Q  |		Load	0x0,0x51
086b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
086c e5ff       |    |		Load	0x2,-0x1
086d e081       |    |		Load	0x0,0x81
086e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
086f 00da       |    |		Load_Top	At_Offset_2
0870 0218       |    |		Execute	Heap_Access,All_Write
0871 c403       |    |		Store	0x2,0x3
0872 00d1       |    |		Pop_Control	Pop_Count_1
0873 e403       |    |		Load	0x2,0x3
0874 680f       |h   |		Jump_Zero	0x884
0875 4801       |H   |		Short_Literal	0x1
0876 4801       |H   |		Short_Literal	0x1
0877 e00f       |    |		Load	0x0,0xf
0878 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0879 0334       | 4  |		Declare_Variable	Array,With_Constraint
087a e5ff       |    |		Load	0x2,-0x1
087b e00f       |    |		Load	0x0,0xf
087c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
087d 4801       |H   |		Short_Literal	0x1
087e 00da       |    |		Load_Top	At_Offset_2
087f 01d6       |    |		Execute	Vector,Field_Write
0880 e5fd       |    |		Load	0x2,-0x3
0881 e403       |    |		Load	0x2,0x3
0882 e003       |    |		Load	0x0,0x3
0883 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0884 00db       |    |		Load_Top	At_Offset_3
0885 0120       |    |		Execute	Any,Is_Value
0886 6803       |h   |		Jump_Zero	0x88a
0887 e081       |    |		Load	0x0,0x81
0888 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0889 7801       |x   |		Jump	0x88b
088a 00db       |    |		Load_Top	At_Offset_3
088b e402       |    |		Load	0x2,0x2
088c e081       |    |		Load	0x0,0x81
088d 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
088e c404       |    |		Store	0x2,0x4
088f 00cf       |    |		Action	Mark_Auxiliary
0890 7824       |x$  |		Jump	0x8b5
0891 00d9       |    |		Load_Top	At_Offset_1
0892 0a01       |    |		Execute_Immediate	Plus,0x1
0893 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0894 e404       |    |		Load	0x2,0x4
0895 e081       |    |		Load	0x0,0x81
0896 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0897 c405       |    |		Store	0x2,0x5
0898 e5fe       |    |		Load	0x2,-0x2
0899 6812       |h   |		Jump_Zero	0x8ac
089a e402       |    |		Load	0x2,0x2
089b 0219       |    |		Execute	Heap_Access,All_Read
089c e405       |    |		Load	0x2,0x5
089d e081       |    |		Load	0x0,0x81
089e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
089f 00da       |    |		Load_Top	At_Offset_2
08a0 e406       |    |		Load	0x2,0x6
08a1 01d6       |    |		Execute	Vector,Field_Write
08a2 00d9       |    |		Load_Top	At_Offset_1
08a3 00db       |    |		Load_Top	At_Offset_3
08a4 01d7       |    |		Execute	Vector,Field_Read
08a5 e004       |    |		Load	0x0,0x4
08a6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08a7 6808       |h   |		Jump_Zero	0x8b0
08a8 00d9       |    |		Load_Top	At_Offset_1
08a9 0aff       |    |		Execute_Immediate	Plus,-0x1
08aa 005a       | Z  |		Store_Top	Discrete,At_Offset_2
08ab 7804       |x   |		Jump	0x8b0
08ac 00db       |    |		Load_Top	At_Offset_3
08ad 00da       |    |		Load_Top	At_Offset_2
08ae e406       |    |		Load	0x2,0x6
08af 01d6       |    |		Execute	Vector,Field_Write
08b0 e404       |    |		Load	0x2,0x4
08b1 e081       |    |		Load	0x0,0x81
08b2 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
08b3 c404       |    |		Store	0x2,0x4
08b4 00c9       |    |		Action	Pop_Auxiliary_Loop
08b5 e404       |    |		Load	0x2,0x4
08b6 e081       |    |		Load	0x0,0x81
08b7 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
08b8 6fd8       |o   |		Jump_Zero	0x891
08b9 00ce       |    |		Action	Pop_Auxiliary
08ba e402       |    |		Load	0x2,0x2
08bb e004       |    |		Load	0x0,0x4
08bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08bd 00d9       |    |		Load_Top	At_Offset_1
08be 0219       |    |		Execute	Heap_Access,All_Read
08bf e081       |    |		Load	0x0,0x81
08c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08c1 00da       |    |		Load_Top	At_Offset_2
08c2 0218       |    |		Execute	Heap_Access,All_Write
08c3 c403       |    |		Store	0x2,0x3
08c4 00d1       |    |		Pop_Control	Pop_Count_1
08c5 4801       |H   |		Short_Literal	0x1
08c6 00d9       |    |		Load_Top	At_Offset_1
08c7 00db       |    |		Load_Top	At_Offset_3
08c8 01cf       |    |		Execute	Vector,Slice_Read
08c9 e234       | 4  |		Load	0x1,0x34
08ca 01c6       |    |		Execute	Vector,Convert_To_Formal
08cb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
08cc 0000 0000  |    |		.BLANK	0000[0x4]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08da       |    |		.CONST	0x08da								; Address of begin
08d1 0004       |    |		.CONST	0x0004								; Address of exception handler
08d2 0003       |    |		.CONST	0x0003								; Number of locals
08d3			INIT_08d0:
08d3 e004       |    |		Load	0x0,0x4
08d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08d5 02c7       |    |		Declare_Variable	Any
08d6 00d8       |    |		Load_Top	At_Offset_0
08d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08d8 e004       |    |		Load	0x0,0x4
08d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08da			BODY_08d0:
08da e004       |    |		Load	0x0,0x4
08db 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08dc 00da       |    |		Load_Top	At_Offset_2
08dd 0120       |    |		Execute	Any,Is_Value
08de 6803       |h   |		Jump_Zero	0x8e2
08df e004       |    |		Load	0x0,0x4
08e0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08e1 7801       |x   |		Jump	0x8e3
08e2 00da       |    |		Load_Top	At_Offset_2
08e3 e5ff       |    |		Load	0x2,-0x1
08e4 e004       |    |		Load	0x0,0x4
08e5 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
08e6 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
08e7 c402       |    |		Store	0x2,0x2
08e8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
08e9 00d8       |    |		Load_Top	At_Offset_0
08ea 680f       |h   |		Jump_Zero	0x8fa
08eb 4801       |H   |		Short_Literal	0x1
08ec 4801       |H   |		Short_Literal	0x1
08ed e00f       |    |		Load	0x0,0xf
08ee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08ef 0334       | 4  |		Declare_Variable	Array,With_Constraint
08f0 e5ff       |    |		Load	0x2,-0x1
08f1 e00f       |    |		Load	0x0,0xf
08f2 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
08f3 4801       |H   |		Short_Literal	0x1
08f4 00da       |    |		Load_Top	At_Offset_2
08f5 01d6       |    |		Execute	Vector,Field_Write
08f6 e5fe       |    |		Load	0x2,-0x2
08f7 00da       |    |		Load_Top	At_Offset_2
08f8 e003       |    |		Load	0x0,0x3
08f9 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
08fa 00d9       |    |		Load_Top	At_Offset_1
08fb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08fc 0000 0000  |    |		.BLANK	0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0909       |    |		.CONST	0x0909								; Address of begin
0901 0004       |    |		.CONST	0x0004								; Address of exception handler
0902 0002       |    |		.CONST	0x0002								; Number of locals
0903			INIT_0900:
0903 00da       |    |		Load_Top	At_Offset_2
0904 e004       |    |		Load	0x0,0x4
0905 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0906 e004       |    |		Load	0x0,0x4
0907 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0908 03f1       |    |		Declare_Variable	Discrete,With_Value
0909			BODY_0900:
0909 00d8       |    |		Load_Top	At_Offset_0
090a e053       | S  |		Load	0x0,0x53
090b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
090c 027f       |    |		Execute	Discrete,Equal
090d 700a       |p   |		Jump_Nonzero	0x918
090e 00d8       |    |		Load_Top	At_Offset_0
090f e053       | S  |		Load	0x0,0x53
0910 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0911 027f       |    |		Execute	Discrete,Equal
0912 7005       |p   |		Jump_Nonzero	0x918
0913 00d8       |    |		Load_Top	At_Offset_0
0914 e053       | S  |		Load	0x0,0x53
0915 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0916 027f       |    |		Execute	Discrete,Equal
0917 6802       |h   |		Jump_Zero	0x91a
0918 4801       |H   |		Short_Literal	0x1
0919 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
091a 00d8       |    |		Load_Top	At_Offset_0
091b e053       | S  |		Load	0x0,0x53
091c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
091d 027f       |    |		Execute	Discrete,Equal
091e 700a       |p   |		Jump_Nonzero	0x929
091f 00d8       |    |		Load_Top	At_Offset_0
0920 e053       | S  |		Load	0x0,0x53
0921 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0922 027f       |    |		Execute	Discrete,Equal
0923 7005       |p   |		Jump_Nonzero	0x929
0924 00d8       |    |		Load_Top	At_Offset_0
0925 e053       | S  |		Load	0x0,0x53
0926 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0927 027f       |    |		Execute	Discrete,Equal
0928 6802       |h   |		Jump_Zero	0x92b
0929 4802       |H   |		Short_Literal	0x2
092a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
092b 00d8       |    |		Load_Top	At_Offset_0
092c e053       | S  |		Load	0x0,0x53
092d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
092e 027f       |    |		Execute	Discrete,Equal
092f 6802       |h   |		Jump_Zero	0x932
0930 4803       |H   |		Short_Literal	0x3
0931 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0932 00d8       |    |		Load_Top	At_Offset_0
0933 e053       | S  |		Load	0x0,0x53
0934 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0935 027f       |    |		Execute	Discrete,Equal
0936 6802       |h   |		Jump_Zero	0x939
0937 4804       |H   |		Short_Literal	0x4
0938 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0939 4800       |H   |		Short_Literal	0x0
093a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
093b 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
0944 825a       | Z  |		Call	0x1,0x5a
0945 0f01       |    |		Execute_Immediate	Equal,0x1
0946 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0947 0000       |    |		.XXX[0x1]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094d       | M  |		.CONST	0x094d								; Address of begin
0949 0004       |    |		.CONST	0x0004								; Address of exception handler
094a 0002       |    |		.CONST	0x0002								; Number of locals
094b			INIT_0948:
094b 029f 0acb  |    |		Declare_Subprogram	INIT_0ac8,For_Call
094d			BODY_0948:
094d 00cf       |    |		Action	Mark_Auxiliary
094e 7841       |xA  |		Jump	0x990
094f e40a       |    |		Load	0x2,0xa
0950 0217       |    |		Execute	Heap_Access,All_Reference
0951 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0952 e004       |    |		Load	0x0,0x4
0953 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0954 7019       |p   |		Jump_Nonzero	0x96e
0955 e004       |    |		Load	0x0,0x4
0956 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0957 e407       |    |		Load	0x2,0x7
0958 0120       |    |		Execute	Any,Is_Value
0959 6803       |h   |		Jump_Zero	0x95d
095a e004       |    |		Load	0x0,0x4
095b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
095c 7801       |x   |		Jump	0x95e
095d e407       |    |		Load	0x2,0x7
095e e40a       |    |		Load	0x2,0xa
095f 0217       |    |		Execute	Heap_Access,All_Reference
0960 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0961 e004       |    |		Load	0x0,0x4
0962 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0963 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0964 c407       |    |		Store	0x2,0x7
0965 c405       |    |		Store	0x2,0x5
0966 e5fd       |    |		Load	0x2,-0x3
0967 e40a       |    |		Load	0x2,0xa
0968 0217       |    |		Execute	Heap_Access,All_Reference
0969 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
096a e22a       | *  |		Load	0x1,0x2a
096b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
096c 8602       |    |		Call	0x3,0x2
096d 781d       |x   |		Jump	0x98b
096e e003       |    |		Load	0x0,0x3
096f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0970 4801       |H   |		Short_Literal	0x1
0971 4803       |H   |		Short_Literal	0x3
0972 e00f       |    |		Load	0x0,0xf
0973 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0974 0334       | 4  |		Declare_Variable	Array,With_Constraint
0975 e5fd       |    |		Load	0x2,-0x3
0976 e216       |    |		Load	0x1,0x16
0977 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0978 4801       |H   |		Short_Literal	0x1
0979 00da       |    |		Load_Top	At_Offset_2
097a 01d6       |    |		Execute	Vector,Field_Write
097b e5ff       |    |		Load	0x2,-0x1
097c e216       |    |		Load	0x1,0x16
097d 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
097e 4802       |H   |		Short_Literal	0x2
097f 00da       |    |		Load_Top	At_Offset_2
0980 01d6       |    |		Execute	Vector,Field_Write
0981 e40a       |    |		Load	0x2,0xa
0982 e215       |    |		Load	0x1,0x15
0983 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0984 4803       |H   |		Short_Literal	0x3
0985 00da       |    |		Load_Top	At_Offset_2
0986 01d6       |    |		Execute	Vector,Field_Write
0987 600c       |`   |		Indirect_Literal	Discrete,0x994,{0x00000000, 0x00002833}
0988 e003       |    |		Load	0x0,0x3
0989 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
098a c5fb       |    |		Store	0x2,-0x5
098b e40a       |    |		Load	0x2,0xa
098c 0217       |    |		Execute	Heap_Access,All_Reference
098d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
098e a40a       |    |		Store_Unchecked	0x2,0xa
098f 00c9       |    |		Action	Pop_Auxiliary_Loop
0990 e40a       |    |		Load	0x2,0xa
0991 77bd       |w   |		Jump_Nonzero	0x94f
0992 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0993 0000       |    |		.XXX[0x1]
0994 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002833}
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 09af       |    |		.CONST	0x09af								; Address of begin
0999 0004       |    |		.CONST	0x0004								; Address of exception handler
099a 0005       |    |		.CONST	0x0005								; Number of locals
099b			INIT_0998:
099b e402       |    |		Load	0x2,0x2
099c 0217       |    |		Execute	Heap_Access,All_Reference
099d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
099e e227       | '  |		Load	0x1,0x27
099f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
09a0 e004       |    |		Load	0x0,0x4
09a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09a2 02c7       |    |		Declare_Variable	Any
09a3 00d8       |    |		Load_Top	At_Offset_0
09a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09a5 e402       |    |		Load	0x2,0x2
09a6 0217       |    |		Execute	Heap_Access,All_Reference
09a7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
09a8 e227       | '  |		Load	0x1,0x27
09a9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
09aa e004       |    |		Load	0x0,0x4
09ab 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09ac 02c7       |    |		Declare_Variable	Any
09ad 00d8       |    |		Load_Top	At_Offset_0
09ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09af			BODY_0998:
09af e5fd       |    |		Load	0x2,-0x3
09b0 e402       |    |		Load	0x2,0x2
09b1 0217       |    |		Execute	Heap_Access,All_Reference
09b2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09b3 e22a       | *  |		Load	0x1,0x2a
09b4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
09b5 e004       |    |		Load	0x0,0x4
09b6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09b7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09b8 00db       |    |		Load_Top	At_Offset_3
09b9 0120       |    |		Execute	Any,Is_Value
09ba 6803       |h   |		Jump_Zero	0x9be
09bb e004       |    |		Load	0x0,0x4
09bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09bd 7801       |x   |		Jump	0x9bf
09be 00db       |    |		Load_Top	At_Offset_3
09bf 6054       |`T  |		Indirect_Literal	Discrete,0xa14,{0x00000000, 0x00004000}
09c0 e051       | Q  |		Load	0x0,0x51
09c1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09c2 e052       | R  |		Load	0x0,0x52
09c3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
09c4 e004       |    |		Load	0x0,0x4
09c5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09c6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
09c7 e602       |    |		Load	0x3,0x2
09c8 e004       |    |		Load	0x0,0x4
09c9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09ca 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
09cb c603       |    |		Store	0x3,0x3
09cc c406       |    |		Store	0x2,0x6
09cd e406       |    |		Load	0x2,0x6
09ce 6817       |h   |		Jump_Zero	0x9e6
09cf e065       | e  |		Load	0x0,0x65
09d0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09d1 4801       |H   |		Short_Literal	0x1
09d2 4802       |H   |		Short_Literal	0x2
09d3 e00f       |    |		Load	0x0,0xf
09d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09d5 0334       | 4  |		Declare_Variable	Array,With_Constraint
09d6 00db       |    |		Load_Top	At_Offset_3
09d7 e00f       |    |		Load	0x0,0xf
09d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09d9 4801       |H   |		Short_Literal	0x1
09da 00da       |    |		Load_Top	At_Offset_2
09db 01d6       |    |		Execute	Vector,Field_Write
09dc e602       |    |		Load	0x3,0x2
09dd e00f       |    |		Load	0x0,0xf
09de 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09df 4802       |H   |		Short_Literal	0x2
09e0 00da       |    |		Load_Top	At_Offset_2
09e1 01d6       |    |		Execute	Vector,Field_Write
09e2 602d       |`-  |		Indirect_Literal	Discrete,0xa10,{0x00000000, 0x00002814}
09e3 e003       |    |		Load	0x0,0x3
09e4 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
09e5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09e6 00da       |    |		Load_Top	At_Offset_2
09e7 e402       |    |		Load	0x2,0x2
09e8 0217       |    |		Execute	Heap_Access,All_Reference
09e9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09ea 4800       |H   |		Short_Literal	0x0
09eb e5fd       |    |		Load	0x2,-0x3
09ec e402       |    |		Load	0x2,0x2
09ed e603       |    |		Load	0x3,0x3
09ee e22a       | *  |		Load	0x1,0x2a
09ef 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
09f0 e004       |    |		Load	0x0,0x4
09f1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09f3 00d9       |    |		Load_Top	At_Offset_1
09f4 0120       |    |		Execute	Any,Is_Value
09f5 6803       |h   |		Jump_Zero	0x9f9
09f6 e004       |    |		Load	0x0,0x4
09f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09f8 7801       |x   |		Jump	0x9fa
09f9 00d9       |    |		Load_Top	At_Offset_1
09fa 6019       |`   |		Indirect_Literal	Discrete,0xa14,{0x00000000, 0x00004000}
09fb e051       | Q  |		Load	0x0,0x51
09fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09fd e052       | R  |		Load	0x0,0x52
09fe 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
09ff e004       |    |		Load	0x0,0x4
0a00 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a01 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a02 e604       |    |		Load	0x3,0x4
0a03 e004       |    |		Load	0x0,0x4
0a04 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a05 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0a06 c605       |    |		Store	0x3,0x5
0a07 c406       |    |		Store	0x2,0x6
0a08 e406       |    |		Load	0x2,0x6
0a09 7004       |p   |		Jump_Nonzero	0xa0e
0a0a 00d8       |    |		Load_Top	At_Offset_0
0a0b e402       |    |		Load	0x2,0x2
0a0c 0217       |    |		Execute	Heap_Access,All_Reference
0a0d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a0e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a0f 0000       |    |		.XXX[0x1]
0a10 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002814}
0a14 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a20       |    |		.CONST	0x0a20								; Address of begin
0a19 0004       |    |		.CONST	0x0004								; Address of exception handler
0a1a 0002       |    |		.CONST	0x0002								; Number of locals
0a1b			INIT_0a18:
0a1b e406       |    |		Load	0x2,0x6
0a1c e235       | 5  |		Load	0x1,0x35
0a1d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a1e 00d8       |    |		Load_Top	At_Offset_0
0a1f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a20			BODY_0a18:
0a20 e405       |    |		Load	0x2,0x5
0a21 00d9       |    |		Load_Top	At_Offset_1
0a22 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a23 4801       |H   |		Short_Literal	0x1
0a24 a406       |    |		Store_Unchecked	0x2,0x6
0a25 00cf       |    |		Action	Mark_Auxiliary
0a26 7828       |x(  |		Jump	0xa4f
0a27 00d9       |    |		Load_Top	At_Offset_1
0a28 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a29 e406       |    |		Load	0x2,0x6
0a2a e004       |    |		Load	0x0,0x4
0a2b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a2c 00d9       |    |		Load_Top	At_Offset_1
0a2d 00db       |    |		Load_Top	At_Offset_3
0a2e 01d7       |    |		Execute	Vector,Field_Read
0a2f 0120       |    |		Execute	Any,Is_Value
0a30 6807       |h   |		Jump_Zero	0xa38
0a31 e004       |    |		Load	0x0,0x4
0a32 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a33 00da       |    |		Load_Top	At_Offset_2
0a34 e604       |    |		Load	0x3,0x4
0a35 01d7       |    |		Execute	Vector,Field_Read
0a36 00d1       |    |		Pop_Control	Pop_Count_1
0a37 7803       |x   |		Jump	0xa3b
0a38 00d9       |    |		Load_Top	At_Offset_1
0a39 00db       |    |		Load_Top	At_Offset_3
0a3a 01d7       |    |		Execute	Vector,Field_Read
0a3b e402       |    |		Load	0x2,0x2
0a3c e004       |    |		Load	0x0,0x4
0a3d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a3e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0a3f 00da       |    |		Load_Top	At_Offset_2
0a40 e604       |    |		Load	0x3,0x4
0a41 01d6       |    |		Execute	Vector,Field_Write
0a42 c404       |    |		Store	0x2,0x4
0a43 00d2       |    |		Pop_Control	Pop_Count_2
0a44 e404       |    |		Load	0x2,0x4
0a45 7003       |p   |		Jump_Nonzero	0xa49
0a46 e406       |    |		Load	0x2,0x6
0a47 0a01       |    |		Execute_Immediate	Plus,0x1
0a48 c406       |    |		Store	0x2,0x6
0a49 e402       |    |		Load	0x2,0x2
0a4a e004       |    |		Load	0x0,0x4
0a4b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a4c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0a4d c402       |    |		Store	0x2,0x2
0a4e 00c9       |    |		Action	Pop_Auxiliary_Loop
0a4f e402       |    |		Load	0x2,0x2
0a50 e004       |    |		Load	0x0,0x4
0a51 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a52 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0a53 6fd3       |o   |		Jump_Zero	0xa27
0a54 00ce       |    |		Action	Pop_Auxiliary
0a55 e402       |    |		Load	0x2,0x2
0a56 e004       |    |		Load	0x0,0x4
0a57 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a58 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0a59 c402       |    |		Store	0x2,0x2
0a5a 00d8       |    |		Load_Top	At_Offset_0
0a5b 00cb       |    |		Action	Pop_Block_With_Result
0a5c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0a5d 0000 0000  |    |		.XXX[0x3]
0a5f 0000       |    |
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a78       | x  |		.CONST	0x0a78								; Address of begin
0a61 0004       |    |		.CONST	0x0004								; Address of exception handler
0a62 0005       |    |		.CONST	0x0005								; Number of locals
0a63			INIT_0a60:
0a63 e5fb       |    |		Load	0x2,-0x5
0a64 e5fc       |    |		Load	0x2,-0x4
0a65 e5fd       |    |		Load	0x2,-0x3
0a66 e5ff       |    |		Load	0x2,-0x1
0a67 e5fe       |    |		Load	0x2,-0x2
0a68 8254       | T  |		Call	0x1,0x54
0a69 8256       | V  |		Call	0x1,0x56
0a6a 4801       |H   |		Short_Literal	0x1
0a6b 00d9       |    |		Load_Top	At_Offset_1
0a6c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a6d e214       |    |		Load	0x1,0x14
0a6e 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0a6f 035b       | [  |		Declare_Type	Array,Constrained
0a70 0337       | 7  |		Declare_Variable	Array
0a71 00e2       |    |		Load_Encached	Integer_Cache
0a72 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a73 e22a       | *  |		Load	0x1,0x2a
0a74 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a75 02ff       |    |		Declare_Variable	Variant_Record
0a76 00d8       |    |		Load_Top	At_Offset_0
0a77 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a78			BODY_0a60:
0a78 00db       |    |		Load_Top	At_Offset_3
0a79 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0a7a a402       |    |		Store_Unchecked	0x2,0x2
0a7b 00cf       |    |		Action	Mark_Auxiliary
0a7c e602       |    |		Load	0x3,0x2
0a7d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a7e 01d9       |    |		Execute	Vector,Reverse_Bounds
0a7f 0263       | c  |		Execute	Discrete,Above_Bound
0a80 7022       |p"  |		Jump_Nonzero	0xaa3
0a81 4802       |H   |		Short_Literal	0x2
0a82 e5fe       |    |		Load	0x2,-0x2
0a83 00da       |    |		Load_Top	At_Offset_2
0a84 e602       |    |		Load	0x3,0x2
0a85 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a86 01d7       |    |		Execute	Vector,Field_Read
0a87 e22a       | *  |		Load	0x1,0x2a
0a88 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a89 e605       |    |		Load	0x3,0x5
0a8a 016d       | m  |		Execute	Variant_Record,Structure_Write
0a8b 00db       |    |		Load_Top	At_Offset_3
0a8c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a8d 0f02       |    |		Execute_Immediate	Equal,0x2
0a8e 6812       |h   |		Jump_Zero	0xaa1
0a8f 00db       |    |		Load_Top	At_Offset_3
0a90 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0a91 0217       |    |		Execute	Heap_Access,All_Reference
0a92 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0a93 e210       |    |		Load	0x1,0x10
0a94 0216       |    |		Execute	Heap_Access,Convert
0a95 a404       |    |		Store_Unchecked	0x2,0x4
0a96 e404       |    |		Load	0x2,0x4
0a97 e214       |    |		Load	0x1,0x14
0a98 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0a99 7007       |p   |		Jump_Nonzero	0xaa1
0a9a e604       |    |		Load	0x3,0x4
0a9b 0a01       |    |		Execute_Immediate	Plus,0x1
0a9c c604       |    |		Store	0x3,0x4
0a9d e404       |    |		Load	0x2,0x4
0a9e e604       |    |		Load	0x3,0x4
0a9f e603       |    |		Load	0x3,0x3
0aa0 01d6       |    |		Execute	Vector,Field_Write
0aa1 00c8       |    |		Action	Pop_Auxiliary_Range
0aa2 3fde       |?   |		Loop_Increasing	0xa81
0aa3 00ce       |    |		Action	Pop_Auxiliary
0aa4 00d9       |    |		Load_Top	At_Offset_1
0aa5 e214       |    |		Load	0x1,0x14
0aa6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0aa7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0aa8 e402       |    |		Load	0x2,0x2
0aa9 00d9       |    |		Load_Top	At_Offset_1
0aaa 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0aab 4801       |H   |		Short_Literal	0x1
0aac 00db       |    |		Load_Top	At_Offset_3
0aad e603       |    |		Load	0x3,0x3
0aae 01cf       |    |		Execute	Vector,Slice_Read
0aaf 00d9       |    |		Load_Top	At_Offset_1
0ab0 00d8       |    |		Load_Top	At_Offset_0
0ab1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ab2 00da       |    |		Load_Top	At_Offset_2
0ab3 01da       |    |		Execute	Vector,Bounds
0ab4 00da       |    |		Load_Top	At_Offset_2
0ab5 01da       |    |		Execute	Vector,Bounds
0ab6 00da       |    |		Load_Top	At_Offset_2
0ab7 027f       |    |		Execute	Discrete,Equal
0ab8 7001       |p   |		Jump_Nonzero	0xaba
0ab9 08e0       |    |		Execute_Immediate	Raise,0xe0
0aba 00cd       |    |		Action	Spare6_Action
0abb 027f       |    |		Execute	Discrete,Equal
0abc 7001       |p   |		Jump_Nonzero	0xabe
0abd 08e0       |    |		Execute_Immediate	Raise,0xe0
0abe 00d2       |    |		Pop_Control	Pop_Count_2
0abf 00d9       |    |		Load_Top	At_Offset_1
0ac0 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0ac1 00cb       |    |		Action	Pop_Block_With_Result
0ac2 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0ac3 0000 0000  |    |		.BLANK	0000[0x5]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0ad6       |    |		.CONST	0x0ad6								; Address of begin
0ac9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aca 0003       |    |		.CONST	0x0003								; Number of locals
0acb			INIT_0ac8:
0acb e40a       |    |		Load	0x2,0xa
0acc 0217       |    |		Execute	Heap_Access,All_Reference
0acd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ace e227       | '  |		Load	0x1,0x27
0acf 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ad0 e5fd       |    |		Load	0x2,-0x3
0ad1 e216       |    |		Load	0x1,0x16
0ad2 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0ad3 00d9       |    |		Load_Top	At_Offset_1
0ad4 01cc       |    |		Execute	Vector,Catenate
0ad5 0007       |    |		Action	Break_Optional
0ad6			BODY_0ac8:
0ad6 e004       |    |		Load	0x0,0x4
0ad7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ad8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ad9 e408       |    |		Load	0x2,0x8
0ada 0120       |    |		Execute	Any,Is_Value
0adb 6803       |h   |		Jump_Zero	0xadf
0adc e004       |    |		Load	0x0,0x4
0add 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ade 7801       |x   |		Jump	0xae0
0adf e408       |    |		Load	0x2,0x8
0ae0 604b       |`K  |		Indirect_Literal	Discrete,0xb2c,{0x00000000, 0x00004000}
0ae1 e051       | Q  |		Load	0x0,0x51
0ae2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ae3 e404       |    |		Load	0x2,0x4
0ae4 e803       |    |		Load	0x4,0x3
0ae5 e004       |    |		Load	0x0,0x4
0ae6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ae7 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0ae8 c408       |    |		Store	0x2,0x8
0ae9 c406       |    |		Store	0x2,0x6
0aea e406       |    |		Load	0x2,0x6
0aeb 7025       |p%  |		Jump_Nonzero	0xb11
0aec e408       |    |		Load	0x2,0x8
0aed e40a       |    |		Load	0x2,0xa
0aee 0217       |    |		Execute	Heap_Access,All_Reference
0aef 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0af0 4800       |H   |		Short_Literal	0x0
0af1 e5fd       |    |		Load	0x2,-0x3
0af2 e40a       |    |		Load	0x2,0xa
0af3 e408       |    |		Load	0x2,0x8
0af4 e22a       | *  |		Load	0x1,0x2a
0af5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0af6 e40a       |    |		Load	0x2,0xa
0af7 0217       |    |		Execute	Heap_Access,All_Reference
0af8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0af9 6816       |h   |		Jump_Zero	0xb10
0afa e40a       |    |		Load	0x2,0xa
0afb 0217       |    |		Execute	Heap_Access,All_Reference
0afc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0afd e210       |    |		Load	0x1,0x10
0afe 0216       |    |		Execute	Heap_Access,Convert
0aff a40b       |    |		Store_Unchecked	0x2,0xb
0b00 4801       |H   |		Short_Literal	0x1
0b01 e40b       |    |		Load	0x2,0xb
0b02 0217       |    |		Execute	Heap_Access,All_Reference
0b03 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b04 e408       |    |		Load	0x2,0x8
0b05 e40b       |    |		Load	0x2,0xb
0b06 0217       |    |		Execute	Heap_Access,All_Reference
0b07 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
0b08 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0b09 e5fb       |    |		Load	0x2,-0x5
0b0a 4801       |H   |		Short_Literal	0x1
0b0b e5fc       |    |		Load	0x2,-0x4
0b0c e40b       |    |		Load	0x2,0xb
0b0d e214       |    |		Load	0x1,0x14
0b0e 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0b0f c5fb       |    |		Store	0x2,-0x5
0b10 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b11 e40a       |    |		Load	0x2,0xa
0b12 0217       |    |		Execute	Heap_Access,All_Reference
0b13 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b14 6816       |h   |		Jump_Zero	0xb2b
0b15 0092 1199  |    |		Action	Push_String_Extended,0x1199					; "Bad Name_Status when resolving "
0b17 00d9       |    |		Load_Top	At_Offset_1
0b18 01cc       |    |		Execute	Vector,Catenate
0b19 0092 119a  |    |		Action	Push_String_Extended,0x119a					; ". Invalidate its Unit.Data."
0b1b 01cc       |    |		Execute	Vector,Catenate
0b1c 824e       | N  |		Call	0x1,0x4e
0b1d 4800       |H   |		Short_Literal	0x0
0b1e e40a       |    |		Load	0x2,0xa
0b1f 0217       |    |		Execute	Heap_Access,All_Reference
0b20 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b21 0217       |    |		Execute	Heap_Access,All_Reference
0b22 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b23 e004       |    |		Load	0x0,0x4
0b24 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b25 e40a       |    |		Load	0x2,0xa
0b26 0217       |    |		Execute	Heap_Access,All_Reference
0b27 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b28 0217       |    |		Execute	Heap_Access,All_Reference
0b29 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
0b2a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0b2b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b2c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0b30 ; --------------------------------------------------------------------------------------
0b30 ; SUBPROGRAM
0b30 ; --------------------------------------------------------------------------------------
0b30 0b37       | 7  |		.CONST	0x0b37								; Address of begin
0b31 0004       |    |		.CONST	0x0004								; Address of exception handler
0b32 000d       |    |		.CONST	0x000d								; Number of locals
0b33			INIT_0b30:
0b33 00e9       |    |		Load_Encached	String_Cache
0b34 02a0       |    |		Declare_Subprogram	Null_Subprogram
0b35 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0b36 00bf       |    |		Action	Accept_Activation
0b37			BODY_0b30:
0b37 00bc       |    |		Action	Signal_Activated
0b38 00bb       |    |		Action	Signal_Completion
0b39 0000 0000  |    |		.BLANK	0000[0x7]
0b40 ; --------------------------------------------------------------------------------------
0b40 ; SUBPROGRAM
0b40 ; --------------------------------------------------------------------------------------
0b40 0b64       | d  |		.CONST	0x0b64								; Address of begin
0b41 0004       |    |		.CONST	0x0004								; Address of exception handler
0b42 0014       |    |		.CONST	0x0014								; Number of locals
0b43			INIT_0b40:
0b43 029a 0b6b  |   k|		Declare_Subprogram	INIT_0b68,For_Outer_Call,Visible,Unelaborated
0b45 029a 0b7b  |   {|		Declare_Subprogram	INIT_0b78,For_Outer_Call,Visible,Unelaborated
0b47 029a 0b9b  |    |		Declare_Subprogram	INIT_0b98,For_Outer_Call,Visible,Unelaborated
0b49 029a 0bab  |    |		Declare_Subprogram	INIT_0ba8,For_Outer_Call,Visible,Unelaborated
0b4b 029a 0bcb  |    |		Declare_Subprogram	INIT_0bc8,For_Outer_Call,Visible,Unelaborated
0b4d 029a 0beb  |    |		Declare_Subprogram	INIT_0be8,For_Outer_Call,Visible,Unelaborated
0b4f 029a 0c1b  |    |		Declare_Subprogram	INIT_0c18,For_Outer_Call,Visible,Unelaborated
0b51 029a 0c53  |   S|		Declare_Subprogram	INIT_0c50,For_Outer_Call,Visible,Unelaborated
0b53 00bf       |    |		Action	Accept_Activation
0b54 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0b55 00c7       |    |		Action	Elaborate_Subprogram
0b56 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0b57 00c7       |    |		Action	Elaborate_Subprogram
0b58 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0b59 00c7       |    |		Action	Elaborate_Subprogram
0b5a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0b5b 00c7       |    |		Action	Elaborate_Subprogram
0b5c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0b5d 00c7       |    |		Action	Elaborate_Subprogram
0b5e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0b5f 00c7       |    |		Action	Elaborate_Subprogram
0b60 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0b61 00c7       |    |		Action	Elaborate_Subprogram
0b62 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0b63 00c7       |    |		Action	Elaborate_Subprogram
0b64			BODY_0b40:
0b64 00bc       |    |		Action	Signal_Activated
0b65 00bb       |    |		Action	Signal_Completion
0b66 0000 0000  |    |		.XXX[0x2]
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6b       | k  |		.CONST	0x0b6b								; Address of begin
0b69 0004       |    |		.CONST	0x0004								; Address of exception handler
0b6a 0001       |    |		.CONST	0x0001								; Number of locals
0b6b			BODY_0b68:
0b6b			INIT_0b68:
0b6b 00da       |    |		Load_Top	At_Offset_2
0b6c 7002       |p   |		Jump_Nonzero	0xb6f
0b6d 4800       |H   |		Short_Literal	0x0
0b6e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b6f 00da       |    |		Load_Top	At_Offset_2
0b70 0217       |    |		Execute	Heap_Access,All_Reference
0b71 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0b72 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b73 0000 0000  |    |		.BLANK	0000[0x5]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7d       | }  |		.CONST	0x0b7d								; Address of begin
0b79 0004       |    |		.CONST	0x0004								; Address of exception handler
0b7a 0002       |    |		.CONST	0x0002								; Number of locals
0b7b			INIT_0b78:
0b7b 029f 0c8b  |    |		Declare_Subprogram	INIT_0c88,For_Call
0b7d			BODY_0b78:
0b7d 00db       |    |		Load_Top	At_Offset_3
0b7e 7005       |p   |		Jump_Nonzero	0xb84
0b7f e5fd       |    |		Load	0x2,-0x3
0b80 e001       |    |		Load	0x0,0x1
0b81 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0b82 c5fd       |    |		Store	0x2,-0x3
0b83 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b84 e5fd       |    |		Load	0x2,-0x3
0b85 700b       |p   |		Jump_Nonzero	0xb91
0b86 e5fe       |    |		Load	0x2,-0x2
0b87 e5ff       |    |		Load	0x2,-0x1
0b88 00d8       |    |		Load_Top	At_Offset_0
0b89 00e4       |    |		Load_Encached	Positive_Cache
0b8a 0260       | `  |		Execute	Discrete,In_Type
0b8b 7001       |p   |		Jump_Nonzero	0xb8d
0b8c 0801       |    |		Execute_Immediate	Raise,0x1
0b8d e001       |    |		Load	0x0,0x1
0b8e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0b8f a5fd       |    |		Store_Unchecked	0x2,-0x3
0b90 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b91 8402       |    |		Call	0x2,0x2
0b92 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b93 0000 0000  |    |		.BLANK	0000[0x5]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; --------------------------------------------------------------------------------------
0b98 0b9b       |    |		.CONST	0x0b9b								; Address of begin
0b99 0004       |    |		.CONST	0x0004								; Address of exception handler
0b9a 0001       |    |		.CONST	0x0001								; Number of locals
0b9b			BODY_0b98:
0b9b			INIT_0b98:
0b9b 00da       |    |		Load_Top	At_Offset_2
0b9c 7002       |p   |		Jump_Nonzero	0xb9f
0b9d 4800       |H   |		Short_Literal	0x0
0b9e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b9f 00da       |    |		Load_Top	At_Offset_2
0ba0 0217       |    |		Execute	Heap_Access,All_Reference
0ba1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0ba2 00d8       |    |		Load_Top	At_Offset_0
0ba3 00e3       |    |		Load_Encached	Natural_Cache
0ba4 0260       | `  |		Execute	Discrete,In_Type
0ba5 7001       |p   |		Jump_Nonzero	0xba7
0ba6 0801       |    |		Execute_Immediate	Raise,0x1
0ba7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bab       |    |		.CONST	0x0bab								; Address of begin
0ba9 0004       |    |		.CONST	0x0004								; Address of exception handler
0baa 0001       |    |		.CONST	0x0001								; Number of locals
0bab			BODY_0ba8:
0bab			INIT_0ba8:
0bab 00db       |    |		Load_Top	At_Offset_3
0bac 7003       |p   |		Jump_Nonzero	0xbb0
0bad 6016       |`   |		Indirect_Literal	Discrete,0xbc4,{0x00000000, 0x0000500f}
0bae a5fd       |    |		Store_Unchecked	0x2,-0x3
0baf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0bb0 00da       |    |		Load_Top	At_Offset_2
0bb1 e5fe       |    |		Load	0x2,-0x2
0bb2 0217       |    |		Execute	Heap_Access,All_Reference
0bb3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0bb4 027d       | }  |		Execute	Discrete,Greater
0bb5 6803       |h   |		Jump_Zero	0xbb9
0bb6 6009       |`   |		Indirect_Literal	Discrete,0xbc0,{0x00000000, 0x00005011}
0bb7 a5fd       |    |		Store_Unchecked	0x2,-0x3
0bb8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0bb9 00da       |    |		Load_Top	At_Offset_2
0bba e5fe       |    |		Load	0x2,-0x2
0bbb 0217       |    |		Execute	Heap_Access,All_Reference
0bbc 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0bbd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0bbe 0000 0000  |    |		.XXX[0x2]
0bc0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00005011}
0bc4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500f}
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bcb       |    |		.CONST	0x0bcb								; Address of begin
0bc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bca 0001       |    |		.CONST	0x0001								; Number of locals
0bcb			BODY_0bc8:
0bcb			INIT_0bc8:
0bcb 00db       |    |		Load_Top	At_Offset_3
0bcc 7003       |p   |		Jump_Nonzero	0xbd0
0bcd 67f6       |g   |		Indirect_Literal	Discrete,0xbc4,{0x00000000, 0x0000500f}
0bce a5fc       |    |		Store_Unchecked	0x2,-0x4
0bcf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0bd0 00da       |    |		Load_Top	At_Offset_2
0bd1 e5fe       |    |		Load	0x2,-0x2
0bd2 0217       |    |		Execute	Heap_Access,All_Reference
0bd3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0bd4 027b       | {  |		Execute	Discrete,Greater_Equal
0bd5 6803       |h   |		Jump_Zero	0xbd9
0bd6 600d       |`   |		Indirect_Literal	Discrete,0xbe4,{0x00000000, 0x00005012}
0bd7 a5fc       |    |		Store_Unchecked	0x2,-0x4
0bd8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0bd9 00da       |    |		Load_Top	At_Offset_2
0bda 0a01       |    |		Execute_Immediate	Plus,0x1
0bdb e5fe       |    |		Load	0x2,-0x2
0bdc 0217       |    |		Execute	Heap_Access,All_Reference
0bdd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0bde 01d7       |    |		Execute	Vector,Field_Read
0bdf c5fd       |    |		Store	0x2,-0x3
0be0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0be1 0000 0000  |    |		.XXX[0x3]
0be3 0000       |    |
0be4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00005012}
0be8 ; --------------------------------------------------------------------------------------
0be8 ; SUBPROGRAM
0be8 ; --------------------------------------------------------------------------------------
0be8 0beb       |    |		.CONST	0x0beb								; Address of begin
0be9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bea 0001       |    |		.CONST	0x0001								; Number of locals
0beb			BODY_0be8:
0beb			INIT_0be8:
0beb e5fd       |    |		Load	0x2,-0x3
0bec 7003       |p   |		Jump_Nonzero	0xbf0
0bed 6022       |`"  |		Indirect_Literal	Discrete,0xc10,{0x00000000, 0x0000500f}
0bee a5fc       |    |		Store_Unchecked	0x2,-0x4
0bef 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bf0 00da       |    |		Load_Top	At_Offset_2
0bf1 e5fd       |    |		Load	0x2,-0x3
0bf2 0217       |    |		Execute	Heap_Access,All_Reference
0bf3 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0bf4 027b       | {  |		Execute	Discrete,Greater_Equal
0bf5 6803       |h   |		Jump_Zero	0xbf9
0bf6 6015       |`   |		Indirect_Literal	Discrete,0xc0c,{0x00000000, 0x00005007}
0bf7 a5fc       |    |		Store_Unchecked	0x2,-0x4
0bf8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0bf9 00db       |    |		Load_Top	At_Offset_3
0bfa 00db       |    |		Load_Top	At_Offset_3
0bfb 0a01       |    |		Execute_Immediate	Plus,0x1
0bfc e5fd       |    |		Load	0x2,-0x3
0bfd 0217       |    |		Execute	Heap_Access,All_Reference
0bfe 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0bff 01d6       |    |		Execute	Vector,Field_Write
0c00 00da       |    |		Load_Top	At_Offset_2
0c01 e5fd       |    |		Load	0x2,-0x3
0c02 0217       |    |		Execute	Heap_Access,All_Reference
0c03 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c04 027b       | {  |		Execute	Discrete,Greater_Equal
0c05 6805       |h   |		Jump_Zero	0xc0b
0c06 00da       |    |		Load_Top	At_Offset_2
0c07 0a01       |    |		Execute_Immediate	Plus,0x1
0c08 e5fd       |    |		Load	0x2,-0x3
0c09 0217       |    |		Execute	Heap_Access,All_Reference
0c0a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c0b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c0c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00005007}
0c10 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500f}
0c14 0000 0000  |    |		.BLANK	0000[0x4]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c1b       |    |		.CONST	0x0c1b								; Address of begin
0c19 0004       |    |		.CONST	0x0004								; Address of exception handler
0c1a 0001       |    |		.CONST	0x0001								; Number of locals
0c1b			BODY_0c18:
0c1b			INIT_0c18:
0c1b 00db       |    |		Load_Top	At_Offset_3
0c1c 7003       |p   |		Jump_Nonzero	0xc20
0c1d 67f2       |g   |		Indirect_Literal	Discrete,0xc10,{0x00000000, 0x0000500f}
0c1e a5fd       |    |		Store_Unchecked	0x2,-0x3
0c1f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c20 00db       |    |		Load_Top	At_Offset_3
0c21 0217       |    |		Execute	Heap_Access,All_Reference
0c22 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c23 e5fe       |    |		Load	0x2,-0x2
0c24 0217       |    |		Execute	Heap_Access,All_Reference
0c25 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0c26 027c       | |  |		Execute	Discrete,Less
0c27 6807       |h   |		Jump_Zero	0xc2f
0c28 00db       |    |		Load_Top	At_Offset_3
0c29 0217       |    |		Execute	Heap_Access,All_Reference
0c2a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c2b 0a01       |    |		Execute_Immediate	Plus,0x1
0c2c e5fe       |    |		Load	0x2,-0x2
0c2d 0217       |    |		Execute	Heap_Access,All_Reference
0c2e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c2f 00cf       |    |		Action	Mark_Auxiliary
0c30 4802       |H   |		Short_Literal	0x2
0c31 e5fe       |    |		Load	0x2,-0x2
0c32 0217       |    |		Execute	Heap_Access,All_Reference
0c33 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c34 0264       | d  |		Execute	Discrete,Below_Bound
0c35 700d       |p   |		Jump_Nonzero	0xc43
0c36 00d8       |    |		Load_Top	At_Offset_0
0c37 0aff       |    |		Execute_Immediate	Plus,-0x1
0c38 e5fe       |    |		Load	0x2,-0x2
0c39 0217       |    |		Execute	Heap_Access,All_Reference
0c3a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c3b 01d7       |    |		Execute	Vector,Field_Read
0c3c 00d9       |    |		Load_Top	At_Offset_1
0c3d e5fe       |    |		Load	0x2,-0x2
0c3e 0217       |    |		Execute	Heap_Access,All_Reference
0c3f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c40 01d6       |    |		Execute	Vector,Field_Write
0c41 00c8       |    |		Action	Pop_Auxiliary_Range
0c42 37f3       |7   |		Loop_Decreasing	0xc36
0c43 00ce       |    |		Action	Pop_Auxiliary
0c44 00da       |    |		Load_Top	At_Offset_2
0c45 4801       |H   |		Short_Literal	0x1
0c46 e5fe       |    |		Load	0x2,-0x2
0c47 0217       |    |		Execute	Heap_Access,All_Reference
0c48 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c49 01d6       |    |		Execute	Vector,Field_Write
0c4a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c4b 0000 0000  |    |		.BLANK	0000[0x5]
0c50 ; --------------------------------------------------------------------------------------
0c50 ; SUBPROGRAM
0c50 ; --------------------------------------------------------------------------------------
0c50 0c53       | S  |		.CONST	0x0c53								; Address of begin
0c51 0004       |    |		.CONST	0x0004								; Address of exception handler
0c52 0001       |    |		.CONST	0x0001								; Number of locals
0c53			BODY_0c50:
0c53			INIT_0c50:
0c53 00db       |    |		Load_Top	At_Offset_3
0c54 7003       |p   |		Jump_Nonzero	0xc58
0c55 602e       |`.  |		Indirect_Literal	Discrete,0xc84,{0x00000000, 0x0000500f}
0c56 a5fd       |    |		Store_Unchecked	0x2,-0x3
0c57 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c58 00da       |    |		Load_Top	At_Offset_2
0c59 e5fe       |    |		Load	0x2,-0x2
0c5a 0217       |    |		Execute	Heap_Access,All_Reference
0c5b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c5c 027b       | {  |		Execute	Discrete,Greater_Equal
0c5d 6805       |h   |		Jump_Zero	0xc63
0c5e 4800       |H   |		Short_Literal	0x0
0c5f e5fe       |    |		Load	0x2,-0x2
0c60 0217       |    |		Execute	Heap_Access,All_Reference
0c61 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c62 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c63 00db       |    |		Load_Top	At_Offset_3
0c64 0217       |    |		Execute	Heap_Access,All_Reference
0c65 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c66 00db       |    |		Load_Top	At_Offset_3
0c67 0272       | r  |		Execute	Discrete,Minus
0c68 e5fe       |    |		Load	0x2,-0x2
0c69 0217       |    |		Execute	Heap_Access,All_Reference
0c6a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0c6b 00cf       |    |		Action	Mark_Auxiliary
0c6c e5fe       |    |		Load	0x2,-0x2
0c6d 0217       |    |		Execute	Heap_Access,All_Reference
0c6e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c6f 4801       |H   |		Short_Literal	0x1
0c70 0263       | c  |		Execute	Discrete,Above_Bound
0c71 700e       |p   |		Jump_Nonzero	0xc80
0c72 00d8       |    |		Load_Top	At_Offset_0
0c73 e5ff       |    |		Load	0x2,-0x1
0c74 0273       | s  |		Execute	Discrete,Plus
0c75 e5fe       |    |		Load	0x2,-0x2
0c76 0217       |    |		Execute	Heap_Access,All_Reference
0c77 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c78 01d7       |    |		Execute	Vector,Field_Read
0c79 00d9       |    |		Load_Top	At_Offset_1
0c7a e5fe       |    |		Load	0x2,-0x2
0c7b 0217       |    |		Execute	Heap_Access,All_Reference
0c7c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0c7d 01d6       |    |		Execute	Vector,Field_Write
0c7e 00c8       |    |		Action	Pop_Auxiliary_Range
0c7f 3ff2       |?   |		Loop_Increasing	0xc72
0c80 00ce       |    |		Action	Pop_Auxiliary
0c81 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c82 0000 0000  |    |		.XXX[0x2]
0c84 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500f}
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c91       |    |		.CONST	0x0c91								; Address of begin
0c89 0004       |    |		.CONST	0x0004								; Address of exception handler
0c8a 0002       |    |		.CONST	0x0002								; Number of locals
0c8b			INIT_0c88:
0c8b e5ff       |    |		Load	0x2,-0x1
0c8c e001       |    |		Load	0x0,0x1
0c8d 1b3c       | <  |		Execute	Package,Field_Read,Field_Number 0x3c
0c8e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0c8f 00d8       |    |		Load_Top	At_Offset_0
0c90 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c91			BODY_0c88:
0c91 00cf       |    |		Action	Mark_Auxiliary
0c92 e5fd       |    |		Load	0x2,-0x3
0c93 0217       |    |		Execute	Heap_Access,All_Reference
0c94 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0c95 4801       |H   |		Short_Literal	0x1
0c96 0263       | c  |		Execute	Discrete,Above_Bound
0c97 7014       |p   |		Jump_Nonzero	0xcac
0c98 00d8       |    |		Load_Top	At_Offset_0
0c99 e5ff       |    |		Load	0x2,-0x1
0c9a 027d       | }  |		Execute	Discrete,Greater
0c9b 6802       |h   |		Jump_Zero	0xc9e
0c9c 00d2       |    |		Pop_Control	Pop_Count_2
0c9d 780e       |x   |		Jump	0xcac
0c9e 00d8       |    |		Load_Top	At_Offset_0
0c9f e602       |    |		Load	0x3,0x2
0ca0 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0ca1 00d8       |    |		Load_Top	At_Offset_0
0ca2 e5fd       |    |		Load	0x2,-0x3
0ca3 0217       |    |		Execute	Heap_Access,All_Reference
0ca4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ca5 01d7       |    |		Execute	Vector,Field_Read
0ca6 00d9       |    |		Load_Top	At_Offset_1
0ca7 e602       |    |		Load	0x3,0x2
0ca8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ca9 01d6       |    |		Execute	Vector,Field_Write
0caa 00c8       |    |		Action	Pop_Auxiliary_Range
0cab 3fec       |?   |		Loop_Increasing	0xc98
0cac 00ce       |    |		Action	Pop_Auxiliary
0cad e5fd       |    |		Load	0x2,-0x3
0cae e001       |    |		Load	0x0,0x1
0caf 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0cb0 c5fd       |    |		Store	0x2,-0x3
0cb1 e5fe       |    |		Load	0x2,-0x2
0cb2 e5ff       |    |		Load	0x2,-0x1
0cb3 00d8       |    |		Load_Top	At_Offset_0
0cb4 00e4       |    |		Load_Encached	Positive_Cache
0cb5 0260       | `  |		Execute	Discrete,In_Type
0cb6 7001       |p   |		Jump_Nonzero	0xcb8
0cb7 0801       |    |		Execute_Immediate	Raise,0x1
0cb8 e001       |    |		Load	0x0,0x1
0cb9 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0cba a5fd       |    |		Store_Unchecked	0x2,-0x3
0cbb 00d8       |    |		Load_Top	At_Offset_0
0cbc e5fd       |    |		Load	0x2,-0x3
0cbd 0218       |    |		Execute	Heap_Access,All_Write
0cbe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0cbf 0000       |    |		.XXX[0x1]
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0d56       | V  |		.CONST	0x0d56								; Address of begin
0cc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cc2 0025       | %  |		.CONST	0x0025								; Number of locals
0cc3			INIT_0cc0:
0cc3 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0cc4 4800       |H   |		Short_Literal	0x0
0cc5 4802       |H   |		Short_Literal	0x2
0cc6 029f 0d5b  |   [|		Declare_Subprogram	INIT_0d58,For_Call
0cc8 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0cc9 00d8       |    |		Load_Top	At_Offset_0
0cca 4801       |H   |		Short_Literal	0x1
0ccb e001       |    |		Load	0x0,0x1
0ccc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0ccd 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0cce 4801       |H   |		Short_Literal	0x1
0ccf e001       |    |		Load	0x0,0x1
0cd0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0cd1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cd2 4801       |H   |		Short_Literal	0x1
0cd3 e002       |    |		Load	0x0,0x2
0cd4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0cd5 029f 0eeb  |    |		Declare_Subprogram	INIT_0ee8,For_Call
0cd7 4803       |H   |		Short_Literal	0x3
0cd8 4800       |H   |		Short_Literal	0x0
0cd9 4803       |H   |		Short_Literal	0x3
0cda 4800       |H   |		Short_Literal	0x0
0cdb 4801       |H   |		Short_Literal	0x1
0cdc 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0cdd 029a 0d8b  |    |		Declare_Subprogram	INIT_0d88,For_Outer_Call,Visible,Unelaborated
0cdf 029a 0d93  |    |		Declare_Subprogram	INIT_0d90,For_Outer_Call,Visible,Unelaborated
0ce1 029a 0dbb  |    |		Declare_Subprogram	INIT_0db8,For_Outer_Call,Visible,Unelaborated
0ce3 029a 0de3  |    |		Declare_Subprogram	INIT_0de0,For_Outer_Call,Visible,Unelaborated
0ce5 029a 0df3  |    |		Declare_Subprogram	INIT_0df0,For_Outer_Call,Visible,Unelaborated
0ce7 029a 0e03  |    |		Declare_Subprogram	INIT_0e00,For_Outer_Call,Visible,Unelaborated
0ce9 029a 0e13  |    |		Declare_Subprogram	INIT_0e10,For_Outer_Call,Visible,Unelaborated
0ceb 029a 0e23  |   #|		Declare_Subprogram	INIT_0e20,For_Outer_Call,Visible,Unelaborated
0ced 029a 0e33  |   3|		Declare_Subprogram	INIT_0e30,For_Outer_Call,Visible,Unelaborated
0cef 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0cf0 029a 0e43  |   C|		Declare_Subprogram	INIT_0e40,For_Outer_Call,Visible,Unelaborated
0cf2 029a 0e63  |   c|		Declare_Subprogram	INIT_0e60,For_Outer_Call,Visible,Unelaborated
0cf4 029a 0e73  |   s|		Declare_Subprogram	INIT_0e70,For_Outer_Call,Visible,Unelaborated
0cf6 029a 0e93  |    |		Declare_Subprogram	INIT_0e90,For_Outer_Call,Visible,Unelaborated
0cf8 029a 0ea3  |    |		Declare_Subprogram	INIT_0ea0,For_Outer_Call,Visible,Unelaborated
0cfa 4801       |H   |		Short_Literal	0x1
0cfb 4802       |H   |		Short_Literal	0x2
0cfc e20e       |    |		Load	0x1,0xe
0cfd 03f8       |    |		Declare_Type	Discrete,Constrained
0cfe 00d8       |    |		Load_Top	At_Offset_0
0cff e003       |    |		Load	0x0,0x3
0d00 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0d01 02a0       |    |		Declare_Subprogram	Null_Subprogram
0d02 4802       |H   |		Short_Literal	0x2
0d03 032d       | -  |		Declare_Type	Record,Defined
0d04 e004       |    |		Load	0x0,0x4
0d05 e005       |    |		Load	0x0,0x5
0d06 e006       |    |		Load	0x0,0x6
0d07 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d08 00db       |    |		Load_Top	At_Offset_3
0d09 e006       |    |		Load	0x0,0x6
0d0a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d0b e006       |    |		Load	0x0,0x6
0d0c 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0d0d e007       |    |		Load	0x0,0x7
0d0e 0387       |    |		Declare_Variable	Package
0d0f 00d8       |    |		Load_Top	At_Offset_0
0d10 020f       |    |		Execute	Module,Activate
0d11 00d8       |    |		Load_Top	At_Offset_0
0d12 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0d13 e20d       |    |		Load	0x1,0xd
0d14 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
0d15 00d8       |    |		Load_Top	At_Offset_0
0d16 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0d17 e001       |    |		Load	0x0,0x1
0d18 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0d19 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d1a 02a0       |    |		Declare_Subprogram	Null_Subprogram
0d1b 4802       |H   |		Short_Literal	0x2
0d1c 032d       | -  |		Declare_Type	Record,Defined
0d1d 00d8       |    |		Load_Top	At_Offset_0
0d1e 02a0       |    |		Declare_Subprogram	Null_Subprogram
0d1f e219       |    |		Load	0x1,0x19
0d20 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0d21 00bf       |    |		Action	Accept_Activation
0d22 4801       |H   |		Short_Literal	0x1
0d23 4802       |H   |		Short_Literal	0x2
0d24 e002       |    |		Load	0x0,0x2
0d25 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0d26 02a0       |    |		Declare_Subprogram	Null_Subprogram
0d27 4801       |H   |		Short_Literal	0x1
0d28 035d       | ]  |		Declare_Type	Array,Defined
0d29 00d8       |    |		Load_Top	At_Offset_0
0d2a 0337       | 7  |		Declare_Variable	Array
0d2b 00d8       |    |		Load_Top	At_Offset_0
0d2c 0335       | 5  |		Declare_Variable	Array,Duplicate
0d2d 00cd       |    |		Action	Spare6_Action
0d2e 6055       |`U  |		Indirect_Literal	Discrete,0xd84,{0x00000000, 0x0000500b}
0d2f 4802       |H   |		Short_Literal	0x2
0d30 00da       |    |		Load_Top	At_Offset_2
0d31 01d6       |    |		Execute	Vector,Field_Write
0d32 604d       |`M  |		Indirect_Literal	Discrete,0xd80,{0x00000000, 0x0000500a}
0d33 4801       |H   |		Short_Literal	0x1
0d34 00da       |    |		Load_Top	At_Offset_2
0d35 01d6       |    |		Execute	Vector,Field_Write
0d36 00d9       |    |		Load_Top	At_Offset_1
0d37 01d4       |    |		Execute	Vector,Structure_Write
0d38 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0d39 00c7       |    |		Action	Elaborate_Subprogram
0d3a 029d 0eb3  |    |		Declare_Subprogram	INIT_0eb0,For_Outer_Call
0d3c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0d3d 00c7       |    |		Action	Elaborate_Subprogram
0d3e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0d3f 00c7       |    |		Action	Elaborate_Subprogram
0d40 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0d41 00c7       |    |		Action	Elaborate_Subprogram
0d42 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0d43 00c7       |    |		Action	Elaborate_Subprogram
0d44 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0d45 00c7       |    |		Action	Elaborate_Subprogram
0d46 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0d47 00c7       |    |		Action	Elaborate_Subprogram
0d48 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0d49 00c7       |    |		Action	Elaborate_Subprogram
0d4a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0d4b 00c7       |    |		Action	Elaborate_Subprogram
0d4c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0d4d 00c7       |    |		Action	Elaborate_Subprogram
0d4e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0d4f 00c7       |    |		Action	Elaborate_Subprogram
0d50 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0d51 00c7       |    |		Action	Elaborate_Subprogram
0d52 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0d53 00c7       |    |		Action	Elaborate_Subprogram
0d54 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0d55 00c7       |    |		Action	Elaborate_Subprogram
0d56			BODY_0cc0:
0d56 00bc       |    |		Action	Signal_Activated
0d57 00bb       |    |		Action	Signal_Completion
0d58 ; --------------------------------------------------------------------------------------
0d58 ; SUBPROGRAM
0d58 ; --------------------------------------------------------------------------------------
0d58 0d5b       | [  |		.CONST	0x0d5b								; Address of begin
0d59 0004       |    |		.CONST	0x0004								; Address of exception handler
0d5a 0001       |    |		.CONST	0x0001								; Number of locals
0d5b			BODY_0d58:
0d5b			INIT_0d58:
0d5b 4607       |F   |		Jump_Case	0x8
0d5c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0d5d 7806       |x   |		Jump	0xd64								; case 0x1
0d5e 7809       |x   |		Jump	0xd68								; case 0x2
0d5f 780d       |x   |		Jump	0xd6d								; case 0x3
0d60 7810       |x   |		Jump	0xd71								; case 0x4
0d61 7811       |x   |		Jump	0xd73								; case 0x5
0d62 7812       |x   |		Jump	0xd75								; case 0x6
0d63 7815       |x   |		Jump	0xd79								; case 0x7
0d64 00da       |    |		Load_Top	At_Offset_2
0d65 0091 118f  |    |		Action	Push_String_Extended_Indexed,0x118f				; "NIL"
0d67 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0d68 00db       |    |		Load_Top	At_Offset_3
0d69 00db       |    |		Load_Top	At_Offset_3
0d6a 00e0       |    |		Load_Encached	Standard_Cache
0d6b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0d6c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d6d 00da       |    |		Load_Top	At_Offset_2
0d6e 00e0       |    |		Load_Encached	Standard_Cache
0d6f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0d70 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0d71 00db       |    |		Load_Top	At_Offset_3
0d72 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d73 00db       |    |		Load_Top	At_Offset_3
0d74 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d75 e20e       |    |		Load	0x1,0xe
0d76 00dc       |    |		Load_Top	At_Offset_4
0d77 0267       | g  |		Execute	Discrete,Predecessor
0d78 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d79 e20e       |    |		Load	0x1,0xe
0d7a 00dc       |    |		Load_Top	At_Offset_4
0d7b 0268       | h  |		Execute	Discrete,Successor
0d7c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0d7d 0000 0000  |    |		.XXX[0x3]
0d7f 0000       |    |
0d80 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500a}
0d84 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500b}
0d88 ; --------------------------------------------------------------------------------------
0d88 ; SUBPROGRAM
0d88 ; --------------------------------------------------------------------------------------
0d88 0d8b       |    |		.CONST	0x0d8b								; Address of begin
0d89 0004       |    |		.CONST	0x0004								; Address of exception handler
0d8a 0001       |    |		.CONST	0x0001								; Number of locals
0d8b			BODY_0d88:
0d8b			INIT_0d88:
0d8b e221       | !  |		Load	0x1,0x21
0d8c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0d8d 00ca       |    |		Action	Exit_Nullary_Function
0d8e 0000 0000  |    |		.XXX[0x2]
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0d96       |    |		.CONST	0x0d96								; Address of begin
0d91 0004       |    |		.CONST	0x0004								; Address of exception handler
0d92 0003       |    |		.CONST	0x0003								; Number of locals
0d93			INIT_0d90:
0d93 00e1       |    |		Load_Encached	Boolean_Cache
0d94 e220       |    |		Load	0x1,0x20
0d95 0322       | "  |		Declare_Variable	Record
0d96			BODY_0d90:
0d96 00e1       |    |		Load_Encached	Boolean_Cache
0d97 00d9       |    |		Load_Top	At_Offset_1
0d98 e5ff       |    |		Load	0x2,-0x1
0d99 e008       |    |		Load	0x0,0x8
0d9a 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0d9b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0d9c e5fe       |    |		Load	0x2,-0x2
0d9d 0217       |    |		Execute	Heap_Access,All_Reference
0d9e 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
0d9f e221       | !  |		Load	0x1,0x21
0da0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0da1 00d1       |    |		Pop_Control	Pop_Count_1
0da2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0da3 00d9       |    |		Load_Top	At_Offset_1
0da4 6805       |h   |		Jump_Zero	0xdaa
0da5 00d8       |    |		Load_Top	At_Offset_0
0da6 e5fe       |    |		Load	0x2,-0x2
0da7 e5fd       |    |		Load	0x2,-0x3
0da8 8225       | %  |		Call	0x1,0x25
0da9 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0daa 4800       |H   |		Short_Literal	0x0
0dab e20f       |    |		Load	0x1,0xf
0dac 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0dad 6006       |`   |		Indirect_Literal	Discrete,0xdb4,{0x00000000, 0x0000500c}
0dae 00d9       |    |		Load_Top	At_Offset_1
0daf 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0db0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0db1 0000 0000  |    |		.XXX[0x3]
0db3 0000       |    |
0db4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000500c}
0db8 ; --------------------------------------------------------------------------------------
0db8 ; SUBPROGRAM
0db8 ; --------------------------------------------------------------------------------------
0db8 0dbd       |    |		.CONST	0x0dbd								; Address of begin
0db9 0004       |    |		.CONST	0x0004								; Address of exception handler
0dba 0002       |    |		.CONST	0x0002								; Number of locals
0dbb			INIT_0db8:
0dbb e220       |    |		Load	0x1,0x20
0dbc 0322       | "  |		Declare_Variable	Record
0dbd			BODY_0db8:
0dbd e5fe       |    |		Load	0x2,-0x2
0dbe 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0dbf 00d9       |    |		Load_Top	At_Offset_1
0dc0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0dc1 00d8       |    |		Load_Top	At_Offset_0
0dc2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0dc3 0f02       |    |		Execute_Immediate	Equal,0x2
0dc4 7007       |p   |		Jump_Nonzero	0xdcc
0dc5 e5fe       |    |		Load	0x2,-0x2
0dc6 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0dc7 e009       |    |		Load	0x0,0x9
0dc8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0dc9 00d9       |    |		Load_Top	At_Offset_1
0dca 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0dcb 7806       |x   |		Jump	0xdd2
0dcc e5fe       |    |		Load	0x2,-0x2
0dcd 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0dce e00a       |    |		Load	0x0,0xa
0dcf 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0dd0 00d9       |    |		Load_Top	At_Offset_1
0dd1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0dd2 e5fc       |    |		Load	0x2,-0x4
0dd3 00d9       |    |		Load_Top	At_Offset_1
0dd4 e5ff       |    |		Load	0x2,-0x1
0dd5 e008       |    |		Load	0x0,0x8
0dd6 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0dd7 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0dd8 e5fd       |    |		Load	0x2,-0x3
0dd9 0217       |    |		Execute	Heap_Access,All_Reference
0dda 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
0ddb e221       | !  |		Load	0x1,0x21
0ddc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0ddd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0dde 0000 0000  |    |		.XXX[0x2]
0de0 ; --------------------------------------------------------------------------------------
0de0 ; SUBPROGRAM
0de0 ; --------------------------------------------------------------------------------------
0de0 0de3       |    |		.CONST	0x0de3								; Address of begin
0de1 0004       |    |		.CONST	0x0004								; Address of exception handler
0de2 0001       |    |		.CONST	0x0001								; Number of locals
0de3			BODY_0de0:
0de3			INIT_0de0:
0de3 e5fc       |    |		Load	0x2,-0x4
0de4 e5fd       |    |		Load	0x2,-0x3
0de5 4801       |H   |		Short_Literal	0x1
0de6 e20f       |    |		Load	0x1,0xf
0de7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0de8 e5fe       |    |		Load	0x2,-0x2
0de9 00d9       |    |		Load_Top	At_Offset_1
0dea 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0deb e5ff       |    |		Load	0x2,-0x1
0dec 8212       |    |		Call	0x1,0x12
0ded 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0dee 0000 0000  |    |		.XXX[0x2]
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df3       |    |		.CONST	0x0df3								; Address of begin
0df1 0004       |    |		.CONST	0x0004								; Address of exception handler
0df2 0001       |    |		.CONST	0x0001								; Number of locals
0df3			BODY_0df0:
0df3			INIT_0df0:
0df3 e5fc       |    |		Load	0x2,-0x4
0df4 e5fd       |    |		Load	0x2,-0x3
0df5 4802       |H   |		Short_Literal	0x2
0df6 e20f       |    |		Load	0x1,0xf
0df7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0df8 e5fe       |    |		Load	0x2,-0x2
0df9 00d9       |    |		Load_Top	At_Offset_1
0dfa 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0dfb e5ff       |    |		Load	0x2,-0x1
0dfc 8212       |    |		Call	0x1,0x12
0dfd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0dfe 0000 0000  |    |		.XXX[0x2]
0e00 ; --------------------------------------------------------------------------------------
0e00 ; SUBPROGRAM
0e00 ; --------------------------------------------------------------------------------------
0e00 0e03       |    |		.CONST	0x0e03								; Address of begin
0e01 0004       |    |		.CONST	0x0004								; Address of exception handler
0e02 0001       |    |		.CONST	0x0001								; Number of locals
0e03			BODY_0e00:
0e03			INIT_0e00:
0e03 00da       |    |		Load_Top	At_Offset_2
0e04 e008       |    |		Load	0x0,0x8
0e05 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0e06 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0e07 e5fe       |    |		Load	0x2,-0x2
0e08 0217       |    |		Execute	Heap_Access,All_Reference
0e09 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
0e0a e221       | !  |		Load	0x1,0x21
0e0b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0e0c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e0d 0000 0000  |    |		.XXX[0x3]
0e0f 0000       |    |
0e10 ; --------------------------------------------------------------------------------------
0e10 ; SUBPROGRAM
0e10 ; --------------------------------------------------------------------------------------
0e10 0e13       |    |		.CONST	0x0e13								; Address of begin
0e11 0004       |    |		.CONST	0x0004								; Address of exception handler
0e12 0001       |    |		.CONST	0x0001								; Number of locals
0e13			BODY_0e10:
0e13			INIT_0e10:
0e13 00da       |    |		Load_Top	At_Offset_2
0e14 0219       |    |		Execute	Heap_Access,All_Read
0e15 e221       | !  |		Load	0x1,0x21
0e16 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0e17 e5ff       |    |		Load	0x2,-0x1
0e18 e00b       |    |		Load	0x0,0xb
0e19 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0e1a e221       | !  |		Load	0x1,0x21
0e1b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0e1c 00d9       |    |		Load_Top	At_Offset_1
0e1d 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
0e1e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e1f 0000       |    |		.XXX[0x1]
0e20 ; --------------------------------------------------------------------------------------
0e20 ; SUBPROGRAM
0e20 ; --------------------------------------------------------------------------------------
0e20 0e23       | #  |		.CONST	0x0e23								; Address of begin
0e21 0004       |    |		.CONST	0x0004								; Address of exception handler
0e22 0001       |    |		.CONST	0x0001								; Number of locals
0e23			BODY_0e20:
0e23			INIT_0e20:
0e23 00da       |    |		Load_Top	At_Offset_2
0e24 0217       |    |		Execute	Heap_Access,All_Reference
0e25 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
0e26 e221       | !  |		Load	0x1,0x21
0e27 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0e28 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e29 0000 0000  |    |		.BLANK	0000[0x7]
0e30 ; --------------------------------------------------------------------------------------
0e30 ; SUBPROGRAM
0e30 ; --------------------------------------------------------------------------------------
0e30 0e33       | 3  |		.CONST	0x0e33								; Address of begin
0e31 0004       |    |		.CONST	0x0004								; Address of exception handler
0e32 0001       |    |		.CONST	0x0001								; Number of locals
0e33			BODY_0e30:
0e33			INIT_0e30:
0e33 00da       |    |		Load_Top	At_Offset_2
0e34 0217       |    |		Execute	Heap_Access,All_Reference
0e35 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
0e36 e221       | !  |		Load	0x1,0x21
0e37 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e38 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e39 0000 0000  |    |		.BLANK	0000[0x7]
0e40 ; --------------------------------------------------------------------------------------
0e40 ; SUBPROGRAM
0e40 ; --------------------------------------------------------------------------------------
0e40 0e48       | H  |		.CONST	0x0e48								; Address of begin
0e41 0004       |    |		.CONST	0x0004								; Address of exception handler
0e42 0003       |    |		.CONST	0x0003								; Number of locals
0e43			INIT_0e40:
0e43 e00c       |    |		Load	0x0,0xc
0e44 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0e45 e219       |    |		Load	0x1,0x19
0e46 00d9       |    |		Load_Top	At_Offset_1
0e47 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0e48			BODY_0e40:
0e48 e5ff       |    |		Load	0x2,-0x1
0e49 00d9       |    |		Load_Top	At_Offset_1
0e4a 0217       |    |		Execute	Heap_Access,All_Reference
0e4b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0e4c 00d8       |    |		Load_Top	At_Offset_0
0e4d 0219       |    |		Execute	Heap_Access,All_Read
0e4e e221       | !  |		Load	0x1,0x21
0e4f 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0e50 00db       |    |		Load_Top	At_Offset_3
0e51 e5ff       |    |		Load	0x2,-0x1
0e52 0217       |    |		Execute	Heap_Access,All_Reference
0e53 3c15       |<   |		Execute	Record,Field_Read,Field_Number 0x15
0e54 e221       | !  |		Load	0x1,0x21
0e55 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0e56 00d9       |    |		Load_Top	At_Offset_1
0e57 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0e58 00d1       |    |		Pop_Control	Pop_Count_1
0e59 00d8       |    |		Load_Top	At_Offset_0
0e5a a5fe       |    |		Store_Unchecked	0x2,-0x2
0e5b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e5c 0000 0000  |    |		.BLANK	0000[0x4]
0e60 ; --------------------------------------------------------------------------------------
0e60 ; SUBPROGRAM
0e60 ; --------------------------------------------------------------------------------------
0e60 0e63       | c  |		.CONST	0x0e63								; Address of begin
0e61 0004       |    |		.CONST	0x0004								; Address of exception handler
0e62 0001       |    |		.CONST	0x0001								; Number of locals
0e63			BODY_0e60:
0e63			INIT_0e60:
0e63 00da       |    |		Load_Top	At_Offset_2
0e64 0219       |    |		Execute	Heap_Access,All_Read
0e65 00d8       |    |		Load_Top	At_Offset_0
0e66 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e67 e221       | !  |		Load	0x1,0x21
0e68 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0e69 00d9       |    |		Load_Top	At_Offset_1
0e6a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0e6b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e6c 0000 0000  |    |		.BLANK	0000[0x4]
0e70 ; --------------------------------------------------------------------------------------
0e70 ; SUBPROGRAM
0e70 ; --------------------------------------------------------------------------------------
0e70 0e78       | x  |		.CONST	0x0e78								; Address of begin
0e71 0004       |    |		.CONST	0x0004								; Address of exception handler
0e72 0002       |    |		.CONST	0x0002								; Number of locals
0e73			INIT_0e70:
0e73 e00d       |    |		Load	0x0,0xd
0e74 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e75 02ff       |    |		Declare_Variable	Variant_Record
0e76 00d8       |    |		Load_Top	At_Offset_0
0e77 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e78			BODY_0e70:
0e78 00d8       |    |		Load_Top	At_Offset_0
0e79 e006       |    |		Load	0x0,0x6
0e7a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e7b 0162       | b  |		Execute	Variant_Record,Check_In_Type
0e7c 4800       |H   |		Short_Literal	0x0
0e7d e5ff       |    |		Load	0x2,-0x1
0e7e 0217       |    |		Execute	Heap_Access,All_Reference
0e7f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e80 e221       | !  |		Load	0x1,0x21
0e81 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0e82 e006       |    |		Load	0x0,0x6
0e83 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0e84 00d1       |    |		Pop_Control	Pop_Count_1
0e85 00d8       |    |		Load_Top	At_Offset_0
0e86 e008       |    |		Load	0x0,0x8
0e87 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0e88 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0e89 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e8a 0000 0000  |    |		.BLANK	0000[0x6]
0e90 ; --------------------------------------------------------------------------------------
0e90 ; SUBPROGRAM
0e90 ; --------------------------------------------------------------------------------------
0e90 0e93       |    |		.CONST	0x0e93								; Address of begin
0e91 0004       |    |		.CONST	0x0004								; Address of exception handler
0e92 0001       |    |		.CONST	0x0001								; Number of locals
0e93			BODY_0e90:
0e93			INIT_0e90:
0e93 00da       |    |		Load_Top	At_Offset_2
0e94 0217       |    |		Execute	Heap_Access,All_Reference
0e95 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e96 e221       | !  |		Load	0x1,0x21
0e97 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0e98 00db       |    |		Load_Top	At_Offset_3
0e99 0217       |    |		Execute	Heap_Access,All_Reference
0e9a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e9b e5fe       |    |		Load	0x2,-0x2
0e9c 8225       | %  |		Call	0x1,0x25
0e9d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e9e 0000 0000  |    |		.XXX[0x2]
0ea0 ; --------------------------------------------------------------------------------------
0ea0 ; SUBPROGRAM
0ea0 ; --------------------------------------------------------------------------------------
0ea0 0ea3       |    |		.CONST	0x0ea3								; Address of begin
0ea1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ea2 0001       |    |		.CONST	0x0001								; Number of locals
0ea3			BODY_0ea0:
0ea3			INIT_0ea0:
0ea3 00da       |    |		Load_Top	At_Offset_2
0ea4 0217       |    |		Execute	Heap_Access,All_Reference
0ea5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ea6 e221       | !  |		Load	0x1,0x21
0ea7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0ea8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ea9 0000 0000  |    |		.BLANK	0000[0x7]
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; SUBPROGRAM
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0eb3       |    |		.CONST	0x0eb3								; Address of begin
0eb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0eb2 0001       |    |		.CONST	0x0001								; Number of locals
0eb3			BODY_0eb0:
0eb3			INIT_0eb0:
0eb3 00da       |    |		Load_Top	At_Offset_2
0eb4 680e       |h   |		Jump_Zero	0xec3
0eb5 00da       |    |		Load_Top	At_Offset_2
0eb6 e5fd       |    |		Load	0x2,-0x3
0eb7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0eb8 027e       | ~  |		Execute	Discrete,Not_Equal
0eb9 6809       |h   |		Jump_Zero	0xec3
0eba 4800       |H   |		Short_Literal	0x0
0ebb e20f       |    |		Load	0x1,0xf
0ebc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0ebd 00db       |    |		Load_Top	At_Offset_3
0ebe e224       | $  |		Load	0x1,0x24
0ebf 01d7       |    |		Execute	Vector,Field_Read
0ec0 00d9       |    |		Load_Top	At_Offset_1
0ec1 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0ec2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0ec3 e5fd       |    |		Load	0x2,-0x3
0ec4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ec5 0f02       |    |		Execute_Immediate	Equal,0x2
0ec6 7010       |p   |		Jump_Nonzero	0xed7
0ec7 4801       |H   |		Short_Literal	0x1
0ec8 e20f       |    |		Load	0x1,0xf
0ec9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0eca e5fd       |    |		Load	0x2,-0x3
0ecb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ecc e5fe       |    |		Load	0x2,-0x2
0ecd e00b       |    |		Load	0x0,0xb
0ece 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0ecf e00e       |    |		Load	0x0,0xe
0ed0 e00f       |    |		Load	0x0,0xf
0ed1 a010       |    |		Store_Unchecked	0x0,0x10
0ed2 e011       |    |		Load	0x0,0x11
0ed3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0ed4 00d9       |    |		Load_Top	At_Offset_1
0ed5 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0ed6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0ed7 4802       |H   |		Short_Literal	0x2
0ed8 e20f       |    |		Load	0x1,0xf
0ed9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0eda e5fd       |    |		Load	0x2,-0x3
0edb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0edc e5fe       |    |		Load	0x2,-0x2
0edd e00b       |    |		Load	0x0,0xb
0ede 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0edf e012       |    |		Load	0x0,0x12
0ee0 e013       |    |		Load	0x0,0x13
0ee1 a014       |    |		Store_Unchecked	0x0,0x14
0ee2 e011       |    |		Load	0x0,0x11
0ee3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0ee4 00d9       |    |		Load_Top	At_Offset_1
0ee5 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0ee6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0ee7 0000       |    |		.XXX[0x1]
0ee8 ; --------------------------------------------------------------------------------------
0ee8 ; SUBPROGRAM
0ee8 ; --------------------------------------------------------------------------------------
0ee8 0eeb       |    |		.CONST	0x0eeb								; Address of begin
0ee9 0004       |    |		.CONST	0x0004								; Address of exception handler
0eea 0001       |    |		.CONST	0x0001								; Number of locals
0eeb			BODY_0ee8:
0eeb			INIT_0ee8:
0eeb 4608       |F   |		Jump_Case	0x9
0eec 7808       |x   |		Jump	0xef5								; case 0x0
0eed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0eee 7838       |x8  |		Jump	0xf27								; case 0x2
0eef 7837       |x7  |		Jump	0xf27								; case 0x3
0ef0 7836       |x6  |		Jump	0xf27								; case 0x4
0ef1 7835       |x5  |		Jump	0xf27								; case 0x5
0ef2 7814       |x   |		Jump	0xf07								; case 0x6
0ef3 781e       |x   |		Jump	0xf12								; case 0x7
0ef4 782b       |x+  |		Jump	0xf20								; case 0x8
0ef5 00da       |    |		Load_Top	At_Offset_2
0ef6 016c       | l  |		Execute	Variant_Record,Is_Constrained
0ef7 7009       |p   |		Jump_Nonzero	0xf01
0ef8 00cf       |    |		Action	Mark_Auxiliary
0ef9 4800       |H   |		Short_Literal	0x0
0efa e5ff       |    |		Load	0x2,-0x1
0efb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0efc 00d8       |    |		Load_Top	At_Offset_0
0efd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0efe c5ff       |    |		Store	0x2,-0x1
0eff 00ce       |    |		Action	Pop_Auxiliary
0f00 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0f01 00da       |    |		Load_Top	At_Offset_2
0f02 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0f03 4602       |F   |		Jump_Case	0x3
0f04 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0f05 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0f06 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0f07 00db       |    |		Load_Top	At_Offset_3
0f08 4602       |F   |		Jump_Case	0x3
0f09 7806       |x   |		Jump	0xf10								; case 0x0
0f0a 7803       |x   |		Jump	0xf0e								; case 0x1
0f0b 7800       |x   |		Jump	0xf0c								; case 0x2
0f0c 4802       |H   |		Short_Literal	0x2
0f0d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f0e 4801       |H   |		Short_Literal	0x1
0f0f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f10 4803       |H   |		Short_Literal	0x3
0f11 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f12 00db       |    |		Load_Top	At_Offset_3
0f13 e5fe       |    |		Load	0x2,-0x2
0f14 4602       |F   |		Jump_Case	0x3
0f15 7806       |x   |		Jump	0xf1c								; case 0x0
0f16 7803       |x   |		Jump	0xf1a								; case 0x1
0f17 7800       |x   |		Jump	0xf18								; case 0x2
0f18 4802       |H   |		Short_Literal	0x2
0f19 7803       |x   |		Jump	0xf1d
0f1a 4801       |H   |		Short_Literal	0x1
0f1b 7801       |x   |		Jump	0xf1d
0f1c 4803       |H   |		Short_Literal	0x3
0f1d e5ff       |    |		Load	0x2,-0x1
0f1e 031b       |    |		Declare_Type	Variant_Record,Constrained
0f1f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f20 00db       |    |		Load_Top	At_Offset_3
0f21 e5fe       |    |		Load	0x2,-0x2
0f22 e5ff       |    |		Load	0x2,-0x1
0f23 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0f24 e5ff       |    |		Load	0x2,-0x1
0f25 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0f26 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f27 0869       | i  |		Execute_Immediate	Raise,0x69
0f28 ; --------------------------------------------------------------------------------------
0f28 ; SUBPROGRAM
0f28 ; --------------------------------------------------------------------------------------
0f28 0f8c       |    |		.CONST	0x0f8c								; Address of begin
0f29 0004       |    |		.CONST	0x0004								; Address of exception handler
0f2a 0021       | !  |		.CONST	0x0021								; Number of locals
0f2b			INIT_0f28:
0f2b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0f2c 029a 0f93  |    |		Declare_Subprogram	INIT_0f90,For_Outer_Call,Visible,Unelaborated
0f2e 029a 0f9b  |    |		Declare_Subprogram	INIT_0f98,For_Outer_Call,Visible,Unelaborated
0f30 029a 0fbb  |    |		Declare_Subprogram	INIT_0fb8,For_Outer_Call,Visible,Unelaborated
0f32 029a 0fcb  |    |		Declare_Subprogram	INIT_0fc8,For_Outer_Call,Visible,Unelaborated
0f34 029a 0fdb  |    |		Declare_Subprogram	INIT_0fd8,For_Outer_Call,Visible,Unelaborated
0f36 029a 0feb  |    |		Declare_Subprogram	INIT_0fe8,For_Outer_Call,Visible,Unelaborated
0f38 029a 0ffb  |    |		Declare_Subprogram	INIT_0ff8,For_Outer_Call,Visible,Unelaborated
0f3a 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0f3b 029a 100b  |    |		Declare_Subprogram	INIT_1008,For_Outer_Call,Visible,Unelaborated
0f3d 029a 102b  |   +|		Declare_Subprogram	INIT_1028,For_Outer_Call,Visible,Unelaborated
0f3f 029a 103b  |   ;|		Declare_Subprogram	INIT_1038,For_Outer_Call,Visible,Unelaborated
0f41 029a 104b  |   K|		Declare_Subprogram	INIT_1048,For_Outer_Call,Visible,Unelaborated
0f43 e001       |    |		Load	0x0,0x1
0f44 e002       |    |		Load	0x0,0x2
0f45 e003       |    |		Load	0x0,0x3
0f46 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f47 e004       |    |		Load	0x0,0x4
0f48 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0f49 e004       |    |		Load	0x0,0x4
0f4a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0f4b e003       |    |		Load	0x0,0x3
0f4c 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0f4d e005       |    |		Load	0x0,0x5
0f4e 0387       |    |		Declare_Variable	Package
0f4f 00d8       |    |		Load_Top	At_Offset_0
0f50 020f       |    |		Execute	Module,Activate
0f51 00d8       |    |		Load_Top	At_Offset_0
0f52 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0f53 e20d       |    |		Load	0x1,0xd
0f54 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
0f55 00d8       |    |		Load_Top	At_Offset_0
0f56 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0f57 e006       |    |		Load	0x0,0x6
0f58 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0f59 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f5a 02a0       |    |		Declare_Subprogram	Null_Subprogram
0f5b 4802       |H   |		Short_Literal	0x2
0f5c 032d       | -  |		Declare_Type	Record,Defined
0f5d 00d8       |    |		Load_Top	At_Offset_0
0f5e 02a0       |    |		Declare_Subprogram	Null_Subprogram
0f5f e215       |    |		Load	0x1,0x15
0f60 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0f61 00bf       |    |		Action	Accept_Activation
0f62 e007       |    |		Load	0x0,0x7
0f63 e008       |    |		Load	0x0,0x8
0f64 e009       |    |		Load	0x0,0x9
0f65 e00a       |    |		Load	0x0,0xa
0f66 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0f67 e00b       |    |		Load	0x0,0xb
0f68 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0f69 0387       |    |		Declare_Variable	Package
0f6a 00d8       |    |		Load_Top	At_Offset_0
0f6b 020f       |    |		Execute	Module,Activate
0f6c e00b       |    |		Load	0x0,0xb
0f6d 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0f6e 00c6       |    |		Action	Check_Subprogram_Elaborated
0f6f e009       |    |		Load	0x0,0x9
0f70 e00a       |    |		Load	0x0,0xa
0f71 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0f72 e00c       |    |		Load	0x0,0xc
0f73 e00d       |    |		Load	0x0,0xd
0f74 4800       |H   |		Short_Literal	0x0
0f75 0007       |    |		Action	Break_Optional
0f76 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0f77 00c7       |    |		Action	Elaborate_Subprogram
0f78 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0f79 00c7       |    |		Action	Elaborate_Subprogram
0f7a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0f7b 00c7       |    |		Action	Elaborate_Subprogram
0f7c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0f7d 00c7       |    |		Action	Elaborate_Subprogram
0f7e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0f7f 00c7       |    |		Action	Elaborate_Subprogram
0f80 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0f81 00c7       |    |		Action	Elaborate_Subprogram
0f82 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0f83 00c7       |    |		Action	Elaborate_Subprogram
0f84 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0f85 00c7       |    |		Action	Elaborate_Subprogram
0f86 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0f87 00c7       |    |		Action	Elaborate_Subprogram
0f88 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0f89 00c7       |    |		Action	Elaborate_Subprogram
0f8a 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0f8b 00c7       |    |		Action	Elaborate_Subprogram
0f8c			BODY_0f28:
0f8c 00bc       |    |		Action	Signal_Activated
0f8d 00bb       |    |		Action	Signal_Completion
0f8e 0000 0000  |    |		.XXX[0x2]
0f90 ; --------------------------------------------------------------------------------------
0f90 ; SUBPROGRAM
0f90 ; --------------------------------------------------------------------------------------
0f90 0f93       |    |		.CONST	0x0f93								; Address of begin
0f91 0004       |    |		.CONST	0x0004								; Address of exception handler
0f92 0001       |    |		.CONST	0x0001								; Number of locals
0f93			BODY_0f90:
0f93			INIT_0f90:
0f93 e21a       |    |		Load	0x1,0x1a
0f94 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0f95 00ca       |    |		Action	Exit_Nullary_Function
0f96 0000 0000  |    |		.XXX[0x2]
0f98 ; --------------------------------------------------------------------------------------
0f98 ; SUBPROGRAM
0f98 ; --------------------------------------------------------------------------------------
0f98 0f9f       |    |		.CONST	0x0f9f								; Address of begin
0f99 0004       |    |		.CONST	0x0004								; Address of exception handler
0f9a 0003       |    |		.CONST	0x0003								; Number of locals
0f9b			INIT_0f98:
0f9b e004       |    |		Load	0x0,0x4
0f9c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0f9d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f9e 00e1       |    |		Load_Encached	Boolean_Cache
0f9f			BODY_0f98:
0f9f 00e1       |    |		Load_Encached	Boolean_Cache
0fa0 00da       |    |		Load_Top	At_Offset_2
0fa1 e5ff       |    |		Load	0x2,-0x1
0fa2 e5fe       |    |		Load	0x2,-0x2
0fa3 0217       |    |		Execute	Heap_Access,All_Reference
0fa4 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0fa5 e21a       |    |		Load	0x1,0x1a
0fa6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0fa7 005b       | [  |		Store_Top	Discrete,At_Offset_3
0fa8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0fa9 00d8       |    |		Load_Top	At_Offset_0
0faa 680a       |h   |		Jump_Zero	0xfb5
0fab 00d9       |    |		Load_Top	At_Offset_1
0fac e5fe       |    |		Load	0x2,-0x2
0fad e00a       |    |		Load	0x0,0xa
0fae 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0faf e21d       |    |		Load	0x1,0x1d
0fb0 e21e       |    |		Load	0x1,0x1e
0fb1 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0fb2 e00b       |    |		Load	0x0,0xb
0fb3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0fb4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0fb5 e00a       |    |		Load	0x0,0xa
0fb6 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0fb7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0fb8 ; --------------------------------------------------------------------------------------
0fb8 ; SUBPROGRAM
0fb8 ; --------------------------------------------------------------------------------------
0fb8 0fbb       |    |		.CONST	0x0fbb								; Address of begin
0fb9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fba 0001       |    |		.CONST	0x0001								; Number of locals
0fbb			BODY_0fb8:
0fbb			INIT_0fb8:
0fbb e5fc       |    |		Load	0x2,-0x4
0fbc e5fe       |    |		Load	0x2,-0x2
0fbd e21c       |    |		Load	0x1,0x1c
0fbe 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0fbf e5ff       |    |		Load	0x2,-0x1
0fc0 e5fd       |    |		Load	0x2,-0x3
0fc1 0217       |    |		Execute	Heap_Access,All_Reference
0fc2 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0fc3 e21a       |    |		Load	0x1,0x1a
0fc4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0fc5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0fc6 0000 0000  |    |		.XXX[0x2]
0fc8 ; --------------------------------------------------------------------------------------
0fc8 ; SUBPROGRAM
0fc8 ; --------------------------------------------------------------------------------------
0fc8 0fcb       |    |		.CONST	0x0fcb								; Address of begin
0fc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fca 0001       |    |		.CONST	0x0001								; Number of locals
0fcb			BODY_0fc8:
0fcb			INIT_0fc8:
0fcb 00da       |    |		Load_Top	At_Offset_2
0fcc e5fe       |    |		Load	0x2,-0x2
0fcd 0217       |    |		Execute	Heap_Access,All_Reference
0fce 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0fcf e21a       |    |		Load	0x1,0x1a
0fd0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0fd1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fd2 0000 0000  |    |		.BLANK	0000[0x6]
0fd8 ; --------------------------------------------------------------------------------------
0fd8 ; SUBPROGRAM
0fd8 ; --------------------------------------------------------------------------------------
0fd8 0fdb       |    |		.CONST	0x0fdb								; Address of begin
0fd9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fda 0001       |    |		.CONST	0x0001								; Number of locals
0fdb			BODY_0fd8:
0fdb			INIT_0fd8:
0fdb 00da       |    |		Load_Top	At_Offset_2
0fdc 0219       |    |		Execute	Heap_Access,All_Read
0fdd e21a       |    |		Load	0x1,0x1a
0fde 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0fdf e5ff       |    |		Load	0x2,-0x1
0fe0 e00a       |    |		Load	0x0,0xa
0fe1 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0fe2 e21a       |    |		Load	0x1,0x1a
0fe3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0fe4 00d9       |    |		Load_Top	At_Offset_1
0fe5 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
0fe6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0fee e21a       |    |		Load	0x1,0x1a
0fef 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0ff0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ff1 0000 0000  |    |		.BLANK	0000[0x7]
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 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0ffe e21a       |    |		Load	0x1,0x1a
0fff 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1000 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1001 0000 0000  |    |		.BLANK	0000[0x7]
1008 ; --------------------------------------------------------------------------------------
1008 ; SUBPROGRAM
1008 ; --------------------------------------------------------------------------------------
1008 1010       |    |		.CONST	0x1010								; Address of begin
1009 0004       |    |		.CONST	0x0004								; Address of exception handler
100a 0003       |    |		.CONST	0x0003								; Number of locals
100b			INIT_1008:
100b e00e       |    |		Load	0x0,0xe
100c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
100d e215       |    |		Load	0x1,0x15
100e 00d9       |    |		Load_Top	At_Offset_1
100f 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
1010			BODY_1008:
1010 e5ff       |    |		Load	0x2,-0x1
1011 00d9       |    |		Load_Top	At_Offset_1
1012 0217       |    |		Execute	Heap_Access,All_Reference
1013 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
1014 00d8       |    |		Load_Top	At_Offset_0
1015 0219       |    |		Execute	Heap_Access,All_Read
1016 e21a       |    |		Load	0x1,0x1a
1017 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
1018 00db       |    |		Load_Top	At_Offset_3
1019 e5ff       |    |		Load	0x2,-0x1
101a 0217       |    |		Execute	Heap_Access,All_Reference
101b 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
101c e21a       |    |		Load	0x1,0x1a
101d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
101e 00d9       |    |		Load_Top	At_Offset_1
101f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1020 00d1       |    |		Pop_Control	Pop_Count_1
1021 00d8       |    |		Load_Top	At_Offset_0
1022 a5fe       |    |		Store_Unchecked	0x2,-0x2
1023 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1024 0000 0000  |    |		.BLANK	0000[0x4]
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 0219       |    |		Execute	Heap_Access,All_Read
102d 00d8       |    |		Load_Top	At_Offset_0
102e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
102f e21a       |    |		Load	0x1,0x1a
1030 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
1031 00d9       |    |		Load_Top	At_Offset_1
1032 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
1033 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1034 0000 0000  |    |		.BLANK	0000[0x4]
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 0217       |    |		Execute	Heap_Access,All_Reference
103d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
103e 00db       |    |		Load_Top	At_Offset_3
103f 0217       |    |		Execute	Heap_Access,All_Reference
1040 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1041 e21a       |    |		Load	0x1,0x1a
1042 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
1043 e003       |    |		Load	0x0,0x3
1044 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1045 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1046 0000 0000  |    |		.XXX[0x2]
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 0217       |    |		Execute	Heap_Access,All_Reference
104d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
104e e21a       |    |		Load	0x1,0x1a
104f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
1050 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1051 0000 0000  |    |		.BLANK	0000[0x7]
1058 ; --------------------------------------------------------------------------------------
1058 ; SUBPROGRAM
1058 ; --------------------------------------------------------------------------------------
1058 109c       |    |		.CONST	0x109c								; Address of begin
1059 0004       |    |		.CONST	0x0004								; Address of exception handler
105a 001d       |    |		.CONST	0x001d								; Number of locals
105b			INIT_1058:
105b e001       |    |		Load	0x0,0x1
105c 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
105d 0129       | )  |		Execute	Any,Make_Visible
105e 029a 10a3  |    |		Declare_Subprogram	INIT_10a0,For_Outer_Call,Visible,Unelaborated
1060 029a 10ab  |    |		Declare_Subprogram	INIT_10a8,For_Outer_Call,Visible,Unelaborated
1062 029a 10bb  |    |		Declare_Subprogram	INIT_10b8,For_Outer_Call,Visible,Unelaborated
1064 029a 10cb  |    |		Declare_Subprogram	INIT_10c8,For_Outer_Call,Visible,Unelaborated
1066 029a 10eb  |    |		Declare_Subprogram	INIT_10e8,For_Outer_Call,Visible,Unelaborated
1068 029a 10fb  |    |		Declare_Subprogram	INIT_10f8,For_Outer_Call,Visible,Unelaborated
106a 029a 110b  |    |		Declare_Subprogram	INIT_1108,For_Outer_Call,Visible,Unelaborated
106c 029a 111b  |    |		Declare_Subprogram	INIT_1118,For_Outer_Call,Visible,Unelaborated
106e 029a 1123  |   #|		Declare_Subprogram	INIT_1120,For_Outer_Call,Visible,Unelaborated
1070 029a 1133  |   3|		Declare_Subprogram	INIT_1130,For_Outer_Call,Visible,Unelaborated
1072 e001       |    |		Load	0x0,0x1
1073 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
1074 0129       | )  |		Execute	Any,Make_Visible
1075 029a 1143  |   C|		Declare_Subprogram	INIT_1140,For_Outer_Call,Visible,Unelaborated
1077 029a 115b  |   [|		Declare_Subprogram	INIT_1158,For_Outer_Call,Visible,Unelaborated
1079 029a 116b  |   k|		Declare_Subprogram	INIT_1168,For_Outer_Call,Visible,Unelaborated
107b 029a 117b  |   {|		Declare_Subprogram	INIT_1178,For_Outer_Call,Visible,Unelaborated
107d 00bf       |    |		Action	Accept_Activation
107e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
107f 00c7       |    |		Action	Elaborate_Subprogram
1080 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
1081 00c7       |    |		Action	Elaborate_Subprogram
1082 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
1083 00c7       |    |		Action	Elaborate_Subprogram
1084 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
1085 00c7       |    |		Action	Elaborate_Subprogram
1086 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
1087 00c7       |    |		Action	Elaborate_Subprogram
1088 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
1089 00c7       |    |		Action	Elaborate_Subprogram
108a 029d 1183  |    |		Declare_Subprogram	INIT_1180,For_Outer_Call
108c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
108d 00c7       |    |		Action	Elaborate_Subprogram
108e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
108f 00c7       |    |		Action	Elaborate_Subprogram
1090 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
1091 00c7       |    |		Action	Elaborate_Subprogram
1092 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
1093 00c7       |    |		Action	Elaborate_Subprogram
1094 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
1095 00c7       |    |		Action	Elaborate_Subprogram
1096 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
1097 00c7       |    |		Action	Elaborate_Subprogram
1098 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
1099 00c7       |    |		Action	Elaborate_Subprogram
109a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
109b 00c7       |    |		Action	Elaborate_Subprogram
109c			BODY_1058:
109c 00bc       |    |		Action	Signal_Activated
109d 00bb       |    |		Action	Signal_Completion
109e 0000 0000  |    |		.XXX[0x2]
10a0 ; --------------------------------------------------------------------------------------
10a0 ; SUBPROGRAM
10a0 ; --------------------------------------------------------------------------------------
10a0 10a3       |    |		.CONST	0x10a3								; Address of begin
10a1 0004       |    |		.CONST	0x0004								; Address of exception handler
10a2 0001       |    |		.CONST	0x0001								; Number of locals
10a3			BODY_10a0:
10a3			INIT_10a0:
10a3 e001       |    |		Load	0x0,0x1
10a4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
10a5 e20d       |    |		Load	0x1,0xd
10a6 0216       |    |		Execute	Heap_Access,Convert
10a7 00ca       |    |		Action	Exit_Nullary_Function
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 4801       |H   |		Short_Literal	0x1
10ac e5fe       |    |		Load	0x2,-0x2
10ad 0217       |    |		Execute	Heap_Access,All_Reference
10ae 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
10af e001       |    |		Load	0x0,0x1
10b0 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
10b1 e5ff       |    |		Load	0x2,-0x1
10b2 e001       |    |		Load	0x0,0x1
10b3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
10b4 e20d       |    |		Load	0x1,0xd
10b5 0216       |    |		Execute	Heap_Access,Convert
10b6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10b7 0000       |    |		.XXX[0x1]
10b8 ; --------------------------------------------------------------------------------------
10b8 ; SUBPROGRAM
10b8 ; --------------------------------------------------------------------------------------
10b8 10bb       |    |		.CONST	0x10bb								; Address of begin
10b9 0004       |    |		.CONST	0x0004								; Address of exception handler
10ba 0001       |    |		.CONST	0x0001								; Number of locals
10bb			BODY_10b8:
10bb			INIT_10b8:
10bb 4801       |H   |		Short_Literal	0x1
10bc e5fe       |    |		Load	0x2,-0x2
10bd 0217       |    |		Execute	Heap_Access,All_Reference
10be 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
10bf e001       |    |		Load	0x0,0x1
10c0 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
10c1 e5ff       |    |		Load	0x2,-0x1
10c2 e001       |    |		Load	0x0,0x1
10c3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
10c4 e20d       |    |		Load	0x1,0xd
10c5 0216       |    |		Execute	Heap_Access,Convert
10c6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
10c7 0000       |    |		.XXX[0x1]
10c8 ; --------------------------------------------------------------------------------------
10c8 ; SUBPROGRAM
10c8 ; --------------------------------------------------------------------------------------
10c8 10d3       |    |		.CONST	0x10d3								; Address of begin
10c9 0004       |    |		.CONST	0x0004								; Address of exception handler
10ca 0003       |    |		.CONST	0x0003								; Number of locals
10cb			INIT_10c8:
10cb 00db       |    |		Load_Top	At_Offset_3
10cc e002       |    |		Load	0x0,0x2
10cd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10ce 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
10cf 00db       |    |		Load_Top	At_Offset_3
10d0 e002       |    |		Load	0x0,0x2
10d1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
10d2 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
10d3			BODY_10c8:
10d3 e5fd       |    |		Load	0x2,-0x3
10d4 00da       |    |		Load_Top	At_Offset_2
10d5 01dd       |    |		Execute	Vector,First
10d6 00da       |    |		Load_Top	At_Offset_2
10d7 01db       |    |		Execute	Vector,Length
10d8 0273       | s  |		Execute	Discrete,Plus
10d9 00d8       |    |		Load_Top	At_Offset_0
10da 00e2       |    |		Load_Encached	Integer_Cache
10db 0260       | `  |		Execute	Discrete,In_Type
10dc 7001       |p   |		Jump_Nonzero	0x10de
10dd 0801       |    |		Execute_Immediate	Raise,0x1
10de 00db       |    |		Load_Top	At_Offset_3
10df 01dc       |    |		Execute	Vector,Last
10e0 e402       |    |		Load	0x2,0x2
10e1 01cf       |    |		Execute	Vector,Slice_Read
10e2 820f       |    |		Call	0x1,0xf
10e3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
10e4 0000 0000  |    |		.BLANK	0000[0x4]
10e8 ; --------------------------------------------------------------------------------------
10e8 ; SUBPROGRAM
10e8 ; --------------------------------------------------------------------------------------
10e8 10eb       |    |		.CONST	0x10eb								; Address of begin
10e9 0004       |    |		.CONST	0x0004								; Address of exception handler
10ea 0001       |    |		.CONST	0x0001								; Number of locals
10eb			BODY_10e8:
10eb			INIT_10e8:
10eb 00da       |    |		Load_Top	At_Offset_2
10ec e001       |    |		Load	0x0,0x1
10ed 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
10ee 0216       |    |		Execute	Heap_Access,Convert
10ef e001       |    |		Load	0x0,0x1
10f0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
10f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
10f2 0000 0000  |    |		.BLANK	0000[0x6]
10f8 ; --------------------------------------------------------------------------------------
10f8 ; SUBPROGRAM
10f8 ; --------------------------------------------------------------------------------------
10f8 10fb       |    |		.CONST	0x10fb								; Address of begin
10f9 0004       |    |		.CONST	0x0004								; Address of exception handler
10fa 0001       |    |		.CONST	0x0001								; Number of locals
10fb			BODY_10f8:
10fb			INIT_10f8:
10fb 00da       |    |		Load_Top	At_Offset_2
10fc e001       |    |		Load	0x0,0x1
10fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
10fe 0216       |    |		Execute	Heap_Access,Convert
10ff e001       |    |		Load	0x0,0x1
1100 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1101 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1102 0000 0000  |    |		.BLANK	0000[0x6]
1108 ; --------------------------------------------------------------------------------------
1108 ; SUBPROGRAM
1108 ; --------------------------------------------------------------------------------------
1108 110b       |    |		.CONST	0x110b								; Address of begin
1109 0004       |    |		.CONST	0x0004								; Address of exception handler
110a 0001       |    |		.CONST	0x0001								; Number of locals
110b			BODY_1108:
110b			INIT_1108:
110b 00da       |    |		Load_Top	At_Offset_2
110c e001       |    |		Load	0x0,0x1
110d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
110e 0216       |    |		Execute	Heap_Access,Convert
110f e001       |    |		Load	0x0,0x1
1110 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1111 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1112 0000 0000  |    |		.BLANK	0000[0x6]
1118 ; --------------------------------------------------------------------------------------
1118 ; SUBPROGRAM
1118 ; --------------------------------------------------------------------------------------
1118 111b       |    |		.CONST	0x111b								; Address of begin
1119 0004       |    |		.CONST	0x0004								; Address of exception handler
111a 0001       |    |		.CONST	0x0001								; Number of locals
111b			BODY_1118:
111b			INIT_1118:
111b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
111c 0000 0000  |    |		.BLANK	0000[0x4]
1120 ; --------------------------------------------------------------------------------------
1120 ; SUBPROGRAM
1120 ; --------------------------------------------------------------------------------------
1120 1123       | #  |		.CONST	0x1123								; Address of begin
1121 0004       |    |		.CONST	0x0004								; Address of exception handler
1122 0001       |    |		.CONST	0x0001								; Number of locals
1123			BODY_1120:
1123			INIT_1120:
1123 00da       |    |		Load_Top	At_Offset_2
1124 e001       |    |		Load	0x0,0x1
1125 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1126 0216       |    |		Execute	Heap_Access,Convert
1127 e001       |    |		Load	0x0,0x1
1128 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1129 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
112a 0000 0000  |    |		.BLANK	0000[0x6]
1130 ; --------------------------------------------------------------------------------------
1130 ; SUBPROGRAM
1130 ; --------------------------------------------------------------------------------------
1130 1133       | 3  |		.CONST	0x1133								; Address of begin
1131 0004       |    |		.CONST	0x0004								; Address of exception handler
1132 0001       |    |		.CONST	0x0001								; Number of locals
1133			BODY_1130:
1133			INIT_1130:
1133 00db       |    |		Load_Top	At_Offset_3
1134 0217       |    |		Execute	Heap_Access,All_Reference
1135 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1136 e001       |    |		Load	0x0,0x1
1137 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
1138 00db       |    |		Load_Top	At_Offset_3
1139 e001       |    |		Load	0x0,0x1
113a 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
113b e20d       |    |		Load	0x1,0xd
113c 0216       |    |		Execute	Heap_Access,Convert
113d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
113e 0000 0000  |    |		.XXX[0x2]
1140 ; --------------------------------------------------------------------------------------
1140 ; SUBPROGRAM
1140 ; --------------------------------------------------------------------------------------
1140 1143       | C  |		.CONST	0x1143								; Address of begin
1141 0004       |    |		.CONST	0x0004								; Address of exception handler
1142 0001       |    |		.CONST	0x0001								; Number of locals
1143			BODY_1140:
1143			INIT_1140:
1143 00db       |    |		Load_Top	At_Offset_3
1144 0120       |    |		Execute	Any,Is_Value
1145 6803       |h   |		Jump_Zero	0x1149
1146 e001       |    |		Load	0x0,0x1
1147 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
1148 7804       |x   |		Jump	0x114d
1149 00db       |    |		Load_Top	At_Offset_3
114a e001       |    |		Load	0x0,0x1
114b 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
114c 011e       |    |		Execute	Any,Convert
114d 00db       |    |		Load_Top	At_Offset_3
114e 0217       |    |		Execute	Heap_Access,All_Reference
114f 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
1150 e001       |    |		Load	0x0,0x1
1151 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
1152 e001       |    |		Load	0x0,0x1
1153 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
1154 c5fe       |    |		Store	0x2,-0x2
1155 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
1156 0000 0000  |    |		.XXX[0x2]
1158 ; --------------------------------------------------------------------------------------
1158 ; SUBPROGRAM
1158 ; --------------------------------------------------------------------------------------
1158 115b       | [  |		.CONST	0x115b								; Address of begin
1159 0004       |    |		.CONST	0x0004								; Address of exception handler
115a 0001       |    |		.CONST	0x0001								; Number of locals
115b			BODY_1158:
115b			INIT_1158:
115b 00da       |    |		Load_Top	At_Offset_2
115c e001       |    |		Load	0x0,0x1
115d 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
115e 011e       |    |		Execute	Any,Convert
115f e001       |    |		Load	0x0,0x1
1160 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
1161 c5ff       |    |		Store	0x2,-0x1
1162 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1163 0000 0000  |    |		.BLANK	0000[0x5]
1168 ; --------------------------------------------------------------------------------------
1168 ; SUBPROGRAM
1168 ; --------------------------------------------------------------------------------------
1168 116b       | k  |		.CONST	0x116b								; Address of begin
1169 0004       |    |		.CONST	0x0004								; Address of exception handler
116a 0001       |    |		.CONST	0x0001								; Number of locals
116b			BODY_1168:
116b			INIT_1168:
116b 00da       |    |		Load_Top	At_Offset_2
116c e001       |    |		Load	0x0,0x1
116d 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
116e e20d       |    |		Load	0x1,0xd
116f 0216       |    |		Execute	Heap_Access,Convert
1170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1171 0000 0000  |    |		.BLANK	0000[0x7]
1178 ; --------------------------------------------------------------------------------------
1178 ; SUBPROGRAM
1178 ; --------------------------------------------------------------------------------------
1178 117b       | {  |		.CONST	0x117b								; Address of begin
1179 0004       |    |		.CONST	0x0004								; Address of exception handler
117a 0001       |    |		.CONST	0x0001								; Number of locals
117b			BODY_1178:
117b			INIT_1178:
117b 00da       |    |		Load_Top	At_Offset_2
117c e001       |    |		Load	0x0,0x1
117d 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
117e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
117f 0000       |    |		.XXX[0x1]
1180 ; --------------------------------------------------------------------------------------
1180 ; SUBPROGRAM
1180 ; --------------------------------------------------------------------------------------
1180 1183       |    |		.CONST	0x1183								; Address of begin
1181 0004       |    |		.CONST	0x0004								; Address of exception handler
1182 0001       |    |		.CONST	0x0001								; Number of locals
1183			BODY_1180:
1183			INIT_1180:
1183 00da       |    |		Load_Top	At_Offset_2
1184 e001       |    |		Load	0x0,0x1
1185 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
1186 0216       |    |		Execute	Heap_Access,Convert
1187 e001       |    |		Load	0x0,0x1
1188 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1189 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
118a ; --------------------------------------------------------------------------------------
118a ; STRING TABLE
118a ; --------------------------------------------------------------------------------------
118a 0024       | $  |		.STRTAB	0x0024->0x119c							; "OTHER_SUBCLASS"
118b 0030       | 0  |		.STRTAB	0x0030->0x11a3							; "VIEW_SUBCLASS"
118c 003b       | ;  |		.STRTAB	0x003b->0x11a9							; "SUBSYSTEM_SUBCLASS"
118d 004b       | K  |		.STRTAB	0x004b->0x11b2							; "WORLD_SUBCLASS"
118e 0057       | W  |		.STRTAB	0x0057->0x11b9							; "ACTIVITY_SUBCLASS"
118f 0066       | f  |		.STRTAB	0x0066->0x11c2							; "NIL"
1190 0067       | g  |		.STRTAB	0x0067->0x11c3							; "IMPORT"
1191 006b       | k  |		.STRTAB	0x006b->0x11c6							; "LINK"
1192 006d       | m  |		.STRTAB	0x006d->0x11c8							; "DEBUG_HISTORY_ENTRIES"
1193 0080       |    |		.STRTAB	0x0080->0x11d3							; "WINDOW_SHIFT_OVERLAP"
1194 0092       |    |		.STRTAB	0x0092->0x11dd							; "State file for "
1195 009f       |    |		.STRTAB	0x009f->0x11e4							; " is being abandoned."
1196 00b1       |    |		.STRTAB	0x00b1->0x11ee							; " has been closed."
1197 00c0       |    |		.STRTAB	0x00c0->0x11f7							; "Harmonizing the state."
1198 00d4       |    |		.STRTAB	0x00d4->0x1202							; "<DEFAULT>"
1199 00db       |    |		.STRTAB	0x00db->0x1206							; "Bad Name_Status when resolving "
119a 00f8       |    |		.STRTAB	0x00f8->0x1216							; ". Invalidate its Unit.Data."
119b 0111       |    |		.STREND 0x0111->0x1223
119c 4f54 4845  |OTHE|		.STRTAB_STRINGS
1224 0000 0000  |    |		.BLANK	0000[0x4]
1228 ; --------------------------------------------------------------------------------------
1228 ; Debug Table
1228 ; --------------------------------------------------------------------------------------
1228 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0xe362,0x0000,0x0001,0x0000
122e 0000 0000  |    |		.XXX[0xe]
1230 5aca 1700  |Z   |
1232 08da 0000  |    |
1234 001c 039b  |    |
1236 850b 8004  |    |
1238 1103 0000  |    |
123a 0000 000e  |    |
123c 0000 0000  |    |		.BLANK	0000[0x4]
1240 00e6 e542  |   B|		.XXX[0xc]
1242 e001 1e40  |   @|
1244 0000 0380  |    |
1246 75ad 2170  |u !p|
1248 1203 0000  |    |
124a 0000 000e  |    |
124c 0000 0000  |    |		.BLANK	0000[0x4]
1250 00e0 1cef  |    |		.XXX[0xc]
1252 485c 0024  |H\ $|
1254 4800 0000  |H   |
1256 700e 77c4  |p w |
1258 1303 0000  |    |
125a 0000 000e  |    |
125c 0000 0000  |    |		.BLANK	0000[0x5]
1261 1c03 ad7d  |   }|		.XXX[0xb]
1263 0b80 04a9  |    |
1265 0000 000e  |    |
1267 01d6 1401  |    |
1269 0000 0000  |    |
126b 000e       |    |
126c 0000 0000  |    |		.BLANK	0000[0x4]
1270 4000 0003  |@   |		.XXX[0xc]
1272 8075 b1a1  | u  |
1274 7000 98a0  |p   |
1276 0000 01c0  |    |
1278 1502 0000  |    |
127a 0000 000e  |    |
127c 0000 0000  |    |		.BLANK	0000[0x4]
1280 26c8 0000  |&   |		.XXX[0xc]
1282 0070 0eb6  | p  |
1284 842e 0013  | .  |
1286 9400 0000  |    |
1288 1601 0000  |    |
128a 0000 000e  |    |
128c 0000 0000  |    |		.BLANK	0000[0x4]
1290 8004 f900  |    |		.XXX[0xc]
1292 0000 0e01  |    |
1294 d6de 85c0  |    |
1296 0286 8000  |    |
1298 1702 0000  |    |
129a 0000 000e  |    |
129c 0000 0000  |    |		.BLANK	0000[0x4]
12a0 a170 00a4  | p  |		.XXX[0xc]
12a2 a000 0001  |    |
12a4 c039 f310  | 9  |
12a6 b800 5290  |  R |
12a8 1801 0000  |    |
12aa 0000 000e  |    |
12ac 0000 0000  |    |		.BLANK	0000[0x4]
12b0 7da4 2e00  |} . |		.XXX[0xa]
12b2 14e4 0000  |    |
12b4 0038 073e  | 8 >|
12b6 e217 0005  |    |
12b8 0c0f a400  |    |
12ba 0000 0000  |    |		.BLANK	0000[0x4]
12be 0004 0000  |    |		.XXX[0x88]
12c0 0141 28f4  | A( |
12c2 0800 16c6  |    |
12c4 18aa e814  |    |
12c6 0001 f9b3  |    |
12c8 0141 28f4  | A( |
12ca 0800 16c6  |    |
12cc 17aa e814  |    |
12ce 0001 fab3  |    |
12d0 0141 28f4  | A( |
12d2 0800 16c6  |    |
12d4 16aa e814  |    |
12d6 0001 fb33  |   3|
12d8 0141 28f4  | A( |
12da 0800 16c6  |    |
12dc 15aa e814  |    |
12de 0001 fbb3  |    |
12e0 0141 28f4  | A( |
12e2 0800 16c6  |    |
12e4 14aa e814  |    |
12e6 0001 fc33  |   3|
12e8 0141 28f4  | A( |
12ea 0800 16c6  |    |
12ec 13aa e814  |    |
12ee 0001 fcb3  |    |
12f0 0141 28f4  | A( |
12f2 0800 16c6  |    |
12f4 12aa e814  |    |
12f6 0001 fdb3  |    |
12f8 0141 28f4  | A( |
12fa 0800 16c6  |    |
12fc 11aa e814  |    |
12fe 0001 feb3  |    |
1300 0141 28f4  | A( |
1302 0800 16c6  |    |
1304 10aa e814  |    |
1306 0001 ffb3  |    |
1308 0141 28f4  | A( |
130a 0800 16c6  |    |
130c 0faa e814  |    |
130e 0002 00b3  |    |
1310 0141 28f4  | A( |
1312 0800 16c6  |    |
1314 0eaa e814  |    |
1316 0002 01b3  |    |
1318 000e 042e  |   .|
131a 0fe5 9c00  |    |
131c 00ba 6800  |  h |
131e 13a0 0000  |    |
1320 0fd1 a300  |    |
1322 0008 0000  |    |
1324 0000 6580  |  e |
1326 00a0 947a  |   z|
1328 07f2 ce85  |    |
132a 8000 0040  |   @|
132c 2170 7f2c  |!p ,|
132e f086 c000  |    |
1330 0000 0000  |    |
1332 0008 6350  |  cP|
1334 b83f 9671  | ? q|
1336 03f9 6742  |  gB|
1338 c000 0400  |    |
133a 0000 cb00  |    |
133c 0141 28f4  | A( |
133e 0000 0000  |    |
1340 0000 0023  |   #|
1342 9d42 e0fe  | B  |
1344 59c0 0f00  |Y   |
1346 0000 0000  |    |		.BLANK	0000[0x5]
134b 0200       |    |		.XXX[0x1]
134c 0000 0000  |    |		.BLANK	0000[0xb]
1357 001f ffff  |    |		.XXX[0x3]
1359 ffe0       |    |
135a 0101 0101  |    |		.BLANK	0101[0x81]
13db 0100 0080  |    |		.XXX[0x2]
13dd 8080 8080  |    |		.BLANK	8080[0x23]