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

⟦830629d18⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_f4d4d9

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0650       | P  |		.CONST	0x0650								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0107       |    |		.CONST	0x0107								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 005b       | [  |		.CONST	0x005b								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00e4       |    |		Load_Encached	Positive_Cache
0058 0266       | f  |		Execute	Discrete,Bounds
0059 e001       |    |		Load	0x0,0x1
005a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005b 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
005d 4801       |H   |		Short_Literal	0x1
005e 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
005f c256       | V  |		Store	0x1,0x56
0060 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0062 c255       | U  |		Store	0x1,0x55
0063 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0065 c235       | 5  |		Store	0x1,0x35
0066 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0068 c236       | 6  |		Store	0x1,0x36
0069 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
006b c237       | 7  |		Store	0x1,0x37
006c 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
006e c238       | 8  |		Store	0x1,0x38
006f 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0071 c239       | 9  |		Store	0x1,0x39
0072 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0074 c23a       | :  |		Store	0x1,0x3a
0075 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0077 c257       | W  |		Store	0x1,0x57
0078 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
007a c258       | X  |		Store	0x1,0x58
007b 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
007d c240       | @  |		Store	0x1,0x40
007e 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0080 c241       | A  |		Store	0x1,0x41
0081 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0082 0129       | )  |		Execute	Any,Make_Visible
0083 c242       | B  |		Store	0x1,0x42
0084 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
0086 c243       | C  |		Store	0x1,0x43
0087 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0088 0129       | )  |		Execute	Any,Make_Visible
0089 c244       | D  |		Store	0x1,0x44
008a 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
008c c245       | E  |		Store	0x1,0x45
008d 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
008e 0129       | )  |		Execute	Any,Make_Visible
008f c246       | F  |		Store	0x1,0x46
0090 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0092 c247       | G  |		Store	0x1,0x47
0093 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
0095 c248       | H  |		Store	0x1,0x48
0096 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0097 0129       | )  |		Execute	Any,Make_Visible
0098 c249       | I  |		Store	0x1,0x49
0099 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
009a 0129       | )  |		Execute	Any,Make_Visible
009b c24a       | J  |		Store	0x1,0x4a
009c 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
009e c24b       | K  |		Store	0x1,0x4b
009f 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
00a0 0129       | )  |		Execute	Any,Make_Visible
00a1 c24c       | L  |		Store	0x1,0x4c
00a2 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
00a4 c24d       | M  |		Store	0x1,0x4d
00a5 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
00a7 c24e       | N  |		Store	0x1,0x4e
00a8 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
00aa c24f       | O  |		Store	0x1,0x4f
00ab 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
00ad c250       | P  |		Store	0x1,0x50
00ae 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
00b0 c251       | Q  |		Store	0x1,0x51
00b1 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
00b3 c252       | R  |		Store	0x1,0x52
00b4 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated
00b6 c253       | S  |		Store	0x1,0x53
00b7 e002       |    |		Load	0x0,0x2
00b8 0129       | )  |		Execute	Any,Make_Visible
00b9 c230       | 0  |		Store	0x1,0x30
00ba 4800       |H   |		Short_Literal	0x0
00bb 0093 05b3  |    |		push_full_address	INIT_05b0
00bd 02a0       |    |		Declare_Subprogram	Null_Subprogram
00be 038f       |    |		Declare_Type	Package,Defined,Visible
00bf e003       |    |		Load	0x0,0x3
00c0 4801       |H   |		Short_Literal	0x1
00c1 00da       |    |		Load_Top	At_Offset_2
00c2 020e       |    |		Execute	Module,Augment_Imports
00c3 0386       |    |		Declare_Variable	Package,Visible
00c4 c231       | 1  |		Store	0x1,0x31
00c5 00bf       |    |		Action	Accept_Activation
00c6 e004       |    |		Load	0x0,0x4
00c7 e005       |    |		Load	0x0,0x5
00c8 e001       |    |		Load	0x0,0x1
00c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ca e256       | V  |		Load	0x1,0x56
00cb e006       |    |		Load	0x0,0x6
00cc 0387       |    |		Declare_Variable	Package
00cd 00d8       |    |		Load_Top	At_Offset_0
00ce 020f       |    |		Execute	Module,Activate
00cf 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
00d8 00c7       |    |		Action	Elaborate_Subprogram
00d9 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
00da 00c7       |    |		Action	Elaborate_Subprogram
00db 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
00dc 00c7       |    |		Action	Elaborate_Subprogram
00dd 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
00de 00c7       |    |		Action	Elaborate_Subprogram
00df 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
00e0 00c7       |    |		Action	Elaborate_Subprogram
00e1 029d 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call
00e3 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00e4 00c7       |    |		Action	Elaborate_Subprogram
00e5 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
00e6 00c7       |    |		Action	Elaborate_Subprogram
00e7 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
00e9 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
00ea 00c7       |    |		Action	Elaborate_Subprogram
00eb 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
00ec 00c7       |    |		Action	Elaborate_Subprogram
00ed 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
00ee 00c7       |    |		Action	Elaborate_Subprogram
00ef 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
00f0 00c7       |    |		Action	Elaborate_Subprogram
00f1 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
00f2 00c7       |    |		Action	Elaborate_Subprogram
00f3 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
00f4 00c7       |    |		Action	Elaborate_Subprogram
00f5 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
00f6 00c7       |    |		Action	Elaborate_Subprogram
00f7 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
00f8 00c7       |    |		Action	Elaborate_Subprogram
00f9 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
00fa 00c7       |    |		Action	Elaborate_Subprogram
00fb 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
00fc 00c7       |    |		Action	Elaborate_Subprogram
00fd 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
00fe 00c7       |    |		Action	Elaborate_Subprogram
00ff 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0100 00c7       |    |		Action	Elaborate_Subprogram
0101 00b6       |    |		Action	Make_Scope
0102 4801       |H   |		Short_Literal	0x1
0103 e231       | 1  |		Load	0x1,0x31
0104 020e       |    |		Execute	Module,Augment_Imports
0105 e231       | 1  |		Load	0x1,0x31
0106 020f       |    |		Execute	Module,Activate
0107			BODY_0008:
0107 00bc       |    |		Action	Signal_Activated
0108 00bb       |    |		Action	Signal_Completion
0109 0000 0000  |    |		.BLANK	0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00d1       |    |		Pop_Control	Pop_Count_1
0114 00da       |    |		Load_Top	At_Offset_2
0115 01d8       |    |		Execute	Vector,Element_Type
0116 02ff       |    |		Declare_Variable	Variant_Record
0117 00d8       |    |		Load_Top	At_Offset_0
0118 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0119 00db       |    |		Load_Top	At_Offset_3
011a 01dc       |    |		Execute	Vector,Last
011b e5ff       |    |		Load	0x2,-0x1
011c 01dd       |    |		Execute	Vector,First
011d 0263       | c  |		Execute	Discrete,Above_Bound
011e 7006       |p   |		Jump_Nonzero	0x125
011f 00da       |    |		Load_Top	At_Offset_2
0120 00d9       |    |		Load_Top	At_Offset_1
0121 e5ff       |    |		Load	0x2,-0x1
0122 01d6       |    |		Execute	Vector,Field_Write
0123 0a01       |    |		Execute_Immediate	Plus,0x1
0124 7ff8       |    |		Jump	0x11d
0125 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0126 0000 0000  |    |		.XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0132       | 2  |		.CONST	0x0132								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e259       | Y  |		Load	0x1,0x59
012c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
012d 0322       | "  |		Declare_Variable	Record
012e 00d8       |    |		Load_Top	At_Offset_0
012f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0130 029f 0513  |    |		Declare_Subprogram	INIT_0510,For_Call
0132			BODY_0128:
0132 8403       |    |		Call	0x2,0x3
0133 0831       | 1  |		Execute_Immediate	Raise,0x31
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0144       | D  |		.CONST	0x0144								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b e259       | Y  |		Load	0x1,0x59
013c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
013d 0322       | "  |		Declare_Variable	Record
013e 00d8       |    |		Load_Top	At_Offset_0
013f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0140 00e3       |    |		Load_Encached	Natural_Cache
0141 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0142 029f 0523  |   #|		Declare_Subprogram	INIT_0520,For_Call
0144			BODY_0138:
0144 e5fd       |    |		Load	0x2,-0x3
0145 8239       | 9  |		Call	0x1,0x39
0146 6824       |h$  |		Jump_Zero	0x16b
0147 00cf       |    |		Action	Mark_Auxiliary
0148 e5fd       |    |		Load	0x2,-0x3
0149 01dc       |    |		Execute	Vector,Last
014a e5fd       |    |		Load	0x2,-0x3
014b 01dd       |    |		Execute	Vector,First
014c 0263       | c  |		Execute	Discrete,Above_Bound
014d 701c       |p   |		Jump_Nonzero	0x16a
014e 00d8       |    |		Load_Top	At_Offset_0
014f e5fd       |    |		Load	0x2,-0x3
0150 01d5       |    |		Execute	Vector,Field_Reference
0151 85fe       |    |		Call	0x2,-0x2
0152 680b       |h   |		Jump_Zero	0x15e
0153 00d8       |    |		Load_Top	At_Offset_0
0154 e5fd       |    |		Load	0x2,-0x3
0155 01d5       |    |		Execute	Vector,Field_Reference
0156 e402       |    |		Load	0x2,0x2
0157 e259       | Y  |		Load	0x1,0x59
0158 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0159 e402       |    |		Load	0x2,0x2
015a 017d       | }  |		Execute	Record,Structure_Write
015b e403       |    |		Load	0x2,0x3
015c 0a01       |    |		Execute_Immediate	Plus,0x1
015d c403       |    |		Store	0x2,0x3
015e e5fc       |    |		Load	0x2,-0x4
015f 6010       |`   |		Indirect_Literal	Discrete,0x170,{0x00000000, 0x7fffffff}
0160 027e       | ~  |		Execute	Discrete,Not_Equal
0161 e403       |    |		Load	0x2,0x3
0162 e5fc       |    |		Load	0x2,-0x4
0163 027b       | {  |		Execute	Discrete,Greater_Equal
0164 0279       | y  |		Execute	Discrete,And
0165 6802       |h   |		Jump_Zero	0x168
0166 00d2       |    |		Pop_Control	Pop_Count_2
0167 7802       |x   |		Jump	0x16a
0168 00c8       |    |		Action	Pop_Auxiliary_Range
0169 3fe4       |?   |		Loop_Increasing	0x14e
016a 00ce       |    |		Action	Pop_Auxiliary
016b 8404       |    |		Call	0x2,0x4
016c 0831       | 1  |		Execute_Immediate	Raise,0x31
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0182       |    |		.CONST	0x0182								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e001       |    |		Load	0x0,0x1
017c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017d 02ff       |    |		Declare_Variable	Variant_Record
017e e001       |    |		Load	0x0,0x1
017f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0180 00d9       |    |		Load_Top	At_Offset_1
0181 016d       | m  |		Execute	Variant_Record,Structure_Write
0182			BODY_0178:
0182 e5fd       |    |		Load	0x2,-0x3
0183 8239       | 9  |		Call	0x1,0x39
0184 6816       |h   |		Jump_Zero	0x19b
0185 00cf       |    |		Action	Mark_Auxiliary
0186 e5fd       |    |		Load	0x2,-0x3
0187 01dc       |    |		Execute	Vector,Last
0188 e5fd       |    |		Load	0x2,-0x3
0189 01dd       |    |		Execute	Vector,First
018a 0263       | c  |		Execute	Discrete,Above_Bound
018b 700e       |p   |		Jump_Nonzero	0x19a
018c 00d8       |    |		Load_Top	At_Offset_0
018d e5fd       |    |		Load	0x2,-0x3
018e 01d5       |    |		Execute	Vector,Field_Reference
018f 85fe       |    |		Call	0x2,-0x2
0190 6807       |h   |		Jump_Zero	0x198
0191 00d8       |    |		Load_Top	At_Offset_0
0192 e5fd       |    |		Load	0x2,-0x3
0193 01d5       |    |		Execute	Vector,Field_Reference
0194 e402       |    |		Load	0x2,0x2
0195 016d       | m  |		Execute	Variant_Record,Structure_Write
0196 00d2       |    |		Pop_Control	Pop_Count_2
0197 7802       |x   |		Jump	0x19a
0198 00c8       |    |		Action	Pop_Auxiliary_Range
0199 3ff2       |?   |		Loop_Increasing	0x18c
019a 00ce       |    |		Action	Pop_Auxiliary
019b 00d8       |    |		Load_Top	At_Offset_0
019c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
019d 0000 0000  |    |		.XXX[0x3]
019f 0000       |    |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5       |    |		.CONST	0x01a5								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 00e1       |    |		Load_Encached	Boolean_Cache
01a4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01a5			BODY_01a0:
01a5 e5fd       |    |		Load	0x2,-0x3
01a6 8239       | 9  |		Call	0x1,0x39
01a7 6813       |h   |		Jump_Zero	0x1bb
01a8 00cf       |    |		Action	Mark_Auxiliary
01a9 e5fd       |    |		Load	0x2,-0x3
01aa 01dc       |    |		Execute	Vector,Last
01ab e5fd       |    |		Load	0x2,-0x3
01ac 01dd       |    |		Execute	Vector,First
01ad 0263       | c  |		Execute	Discrete,Above_Bound
01ae 700b       |p   |		Jump_Nonzero	0x1ba
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 e5fd       |    |		Load	0x2,-0x3
01b1 01d5       |    |		Execute	Vector,Field_Reference
01b2 85fe       |    |		Call	0x2,-0x2
01b3 6804       |h   |		Jump_Zero	0x1b8
01b4 4801       |H   |		Short_Literal	0x1
01b5 a402       |    |		Store_Unchecked	0x2,0x2
01b6 00d2       |    |		Pop_Control	Pop_Count_2
01b7 7802       |x   |		Jump	0x1ba
01b8 00c8       |    |		Action	Pop_Auxiliary_Range
01b9 3ff5       |?   |		Loop_Increasing	0x1af
01ba 00ce       |    |		Action	Pop_Auxiliary
01bb 00d8       |    |		Load_Top	At_Offset_0
01bc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01ca       |    |		.CONST	0x01ca								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 e001       |    |		Load	0x0,0x1
01c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c5 02ff       |    |		Declare_Variable	Variant_Record
01c6 e001       |    |		Load	0x0,0x1
01c7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01c8 00d9       |    |		Load_Top	At_Offset_1
01c9 016d       | m  |		Execute	Variant_Record,Structure_Write
01ca			BODY_01c0:
01ca e5fd       |    |		Load	0x2,-0x3
01cb 8239       | 9  |		Call	0x1,0x39
01cc 6821       |h!  |		Jump_Zero	0x1ee
01cd e5fd       |    |		Load	0x2,-0x3
01ce 01dd       |    |		Execute	Vector,First
01cf e5fd       |    |		Load	0x2,-0x3
01d0 01d5       |    |		Execute	Vector,Field_Reference
01d1 00d9       |    |		Load_Top	At_Offset_1
01d2 016d       | m  |		Execute	Variant_Record,Structure_Write
01d3 00cf       |    |		Action	Mark_Auxiliary
01d4 e5fd       |    |		Load	0x2,-0x3
01d5 01dc       |    |		Execute	Vector,Last
01d6 e5fd       |    |		Load	0x2,-0x3
01d7 01dd       |    |		Execute	Vector,First
01d8 0a01       |    |		Execute_Immediate	Plus,0x1
01d9 00d8       |    |		Load_Top	At_Offset_0
01da 00e2       |    |		Load_Encached	Integer_Cache
01db 0260       | `  |		Execute	Discrete,In_Type
01dc 7001       |p   |		Jump_Nonzero	0x1de
01dd 0801       |    |		Execute_Immediate	Raise,0x1
01de 0263       | c  |		Execute	Discrete,Above_Bound
01df 700d       |p   |		Jump_Nonzero	0x1ed
01e0 00d8       |    |		Load_Top	At_Offset_0
01e1 e5fd       |    |		Load	0x2,-0x3
01e2 01d5       |    |		Execute	Vector,Field_Reference
01e3 e402       |    |		Load	0x2,0x2
01e4 85fe       |    |		Call	0x2,-0x2
01e5 7005       |p   |		Jump_Nonzero	0x1eb
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 e5fd       |    |		Load	0x2,-0x3
01e8 01d5       |    |		Execute	Vector,Field_Reference
01e9 e402       |    |		Load	0x2,0x2
01ea 016d       | m  |		Execute	Variant_Record,Structure_Write
01eb 00c8       |    |		Action	Pop_Auxiliary_Range
01ec 3ff3       |?   |		Loop_Increasing	0x1e0
01ed 00ce       |    |		Action	Pop_Auxiliary
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 01dc       |    |		Execute	Vector,Last
01f5 00db       |    |		Load_Top	At_Offset_3
01f6 01dd       |    |		Execute	Vector,First
01f7 0272       | r  |		Execute	Discrete,Minus
01f8 0a01       |    |		Execute_Immediate	Plus,0x1
01f9 00d8       |    |		Load_Top	At_Offset_0
01fa 00e3       |    |		Load_Encached	Natural_Cache
01fb 0260       | `  |		Execute	Discrete,In_Type
01fc 7001       |p   |		Jump_Nonzero	0x1fe
01fd 0801       |    |		Execute_Immediate	Raise,0x1
01fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ff 0000       |    |		.XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2
0204 8239       | 9  |		Call	0x1,0x39
0205 0f00       |    |		Execute_Immediate	Equal,0x0
0206 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0212       |    |		.CONST	0x0212								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0003       |    |		.CONST	0x0003								; Number of locals
020b			INIT_0208:
020b e259       | Y  |		Load	0x1,0x59
020c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
020d 0322       | "  |		Declare_Variable	Record
020e 00d8       |    |		Load_Top	At_Offset_0
020f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0210 029f 0533  |   3|		Declare_Subprogram	INIT_0530,For_Call
0212			BODY_0208:
0212 e5ff       |    |		Load	0x2,-0x1
0213 e259       | Y  |		Load	0x1,0x59
0214 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0215 00da       |    |		Load_Top	At_Offset_2
0216 017d       | }  |		Execute	Record,Structure_Write
0217 e5fe       |    |		Load	0x2,-0x2
0218 e5ff       |    |		Load	0x2,-0x1
0219 8247       | G  |		Call	0x1,0x47
021a 7006       |p   |		Jump_Nonzero	0x221
021b e5fe       |    |		Load	0x2,-0x2
021c 00da       |    |		Load_Top	At_Offset_2
021d e259       | Y  |		Load	0x1,0x59
021e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
021f 00da       |    |		Load_Top	At_Offset_2
0220 017d       | }  |		Execute	Record,Structure_Write
0221 8403       |    |		Call	0x2,0x3
0222 0831       | 1  |		Execute_Immediate	Raise,0x31
0223 0000 0000  |    |		.BLANK	0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0232       | 2  |		.CONST	0x0232								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0003       |    |		.CONST	0x0003								; Number of locals
022b			INIT_0228:
022b e259       | Y  |		Load	0x1,0x59
022c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
022d 0322       | "  |		Declare_Variable	Record
022e 00d8       |    |		Load_Top	At_Offset_0
022f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0230 029f 0543  |   C|		Declare_Subprogram	INIT_0540,For_Call
0232			BODY_0228:
0232 e5ff       |    |		Load	0x2,-0x1
0233 e259       | Y  |		Load	0x1,0x59
0234 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0235 00da       |    |		Load_Top	At_Offset_2
0236 017d       | }  |		Execute	Record,Structure_Write
0237 e5ff       |    |		Load	0x2,-0x1
0238 8239       | 9  |		Call	0x1,0x39
0239 681b       |h   |		Jump_Zero	0x255
023a 00cf       |    |		Action	Mark_Auxiliary
023b e5ff       |    |		Load	0x2,-0x1
023c 01dc       |    |		Execute	Vector,Last
023d e5ff       |    |		Load	0x2,-0x1
023e 01dd       |    |		Execute	Vector,First
023f 0263       | c  |		Execute	Discrete,Above_Bound
0240 7013       |p   |		Jump_Nonzero	0x254
0241 00d8       |    |		Load_Top	At_Offset_0
0242 e5ff       |    |		Load	0x2,-0x1
0243 01d5       |    |		Execute	Vector,Field_Reference
0244 e5fe       |    |		Load	0x2,-0x2
0245 016f       | o  |		Execute	Variant_Record,Equal
0246 680b       |h   |		Jump_Zero	0x252
0247 e402       |    |		Load	0x2,0x2
0248 00d9       |    |		Load_Top	At_Offset_1
0249 00d8       |    |		Load_Top	At_Offset_0
024a 00e4       |    |		Load_Encached	Positive_Cache
024b 0260       | `  |		Execute	Discrete,In_Type
024c 7001       |p   |		Jump_Nonzero	0x24e
024d 0801       |    |		Execute_Immediate	Raise,0x1
024e e259       | Y  |		Load	0x1,0x59
024f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0250 00d3       |    |		Pop_Control	Pop_Count_3
0251 7802       |x   |		Jump	0x254
0252 00c8       |    |		Action	Pop_Auxiliary_Range
0253 3fed       |?   |		Loop_Increasing	0x241
0254 00ce       |    |		Action	Pop_Auxiliary
0255 8403       |    |		Call	0x2,0x3
0256 0831       | 1  |		Execute_Immediate	Raise,0x31
0257 0000       |    |		.XXX[0x1]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0263       | c  |		.CONST	0x0263								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0003       |    |		.CONST	0x0003								; Number of locals
025b			INIT_0258:
025b e259       | Y  |		Load	0x1,0x59
025c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
025d 0322       | "  |		Declare_Variable	Record
025e 00d8       |    |		Load_Top	At_Offset_0
025f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0260 00d8       |    |		Load_Top	At_Offset_0
0261 e259       | Y  |		Load	0x1,0x59
0262 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0263			BODY_0258:
0263 00d8       |    |		Load_Top	At_Offset_0
0264 e5ff       |    |		Load	0x2,-0x1
0265 01d4       |    |		Execute	Vector,Structure_Write
0266 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0267 0000       |    |		.XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0284       |    |		.CONST	0x0284								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0006       |    |		.CONST	0x0006								; Number of locals
026b			INIT_0268:
026b e259       | Y  |		Load	0x1,0x59
026c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
026d 0322       | "  |		Declare_Variable	Record
026e 00d8       |    |		Load_Top	At_Offset_0
026f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0270 e259       | Y  |		Load	0x1,0x59
0271 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0272 0322       | "  |		Declare_Variable	Record
0273 00d8       |    |		Load_Top	At_Offset_0
0274 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0275 4801       |H   |		Short_Literal	0x1
0276 e5fe       |    |		Load	0x2,-0x2
0277 8239       | 9  |		Call	0x1,0x39
0278 e256       | V  |		Load	0x1,0x56
0279 035b       | [  |		Declare_Type	Array,Constrained
027a 0337       | 7  |		Declare_Variable	Array
027b e5fe       |    |		Load	0x2,-0x2
027c 00d9       |    |		Load_Top	At_Offset_1
027d 01d4       |    |		Execute	Vector,Structure_Write
027e e5fe       |    |		Load	0x2,-0x2
027f 8239       | 9  |		Call	0x1,0x39
0280 00e3       |    |		Load_Encached	Natural_Cache
0281 03f1       |    |		Declare_Variable	Discrete,With_Value
0282 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
0284			BODY_0268:
0284 e5ff       |    |		Load	0x2,-0x1
0285 8239       | 9  |		Call	0x1,0x39
0286 7006       |p   |		Jump_Nonzero	0x28d
0287 e5fe       |    |		Load	0x2,-0x2
0288 e259       | Y  |		Load	0x1,0x59
0289 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
028a e402       |    |		Load	0x2,0x2
028b 017d       | }  |		Execute	Record,Structure_Write
028c 7845       |xE  |		Jump	0x2d2
028d e5fe       |    |		Load	0x2,-0x2
028e 8239       | 9  |		Call	0x1,0x39
028f 7006       |p   |		Jump_Nonzero	0x296
0290 e5ff       |    |		Load	0x2,-0x1
0291 e259       | Y  |		Load	0x1,0x59
0292 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0293 e402       |    |		Load	0x2,0x2
0294 017d       | }  |		Execute	Record,Structure_Write
0295 783c       |x<  |		Jump	0x2d2
0296 00cf       |    |		Action	Mark_Auxiliary
0297 e5ff       |    |		Load	0x2,-0x1
0298 01dc       |    |		Execute	Vector,Last
0299 e5ff       |    |		Load	0x2,-0x1
029a 01dd       |    |		Execute	Vector,First
029b 0263       | c  |		Execute	Discrete,Above_Bound
029c 701d       |p   |		Jump_Nonzero	0x2ba
029d 00cf       |    |		Action	Mark_Auxiliary
029e e404       |    |		Load	0x2,0x4
029f 01dc       |    |		Execute	Vector,Last
02a0 4801       |H   |		Short_Literal	0x1
02a1 0263       | c  |		Execute	Discrete,Above_Bound
02a2 7014       |p   |		Jump_Nonzero	0x2b7
02a3 00db       |    |		Load_Top	At_Offset_3
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 01d5       |    |		Execute	Vector,Field_Reference
02a6 00d9       |    |		Load_Top	At_Offset_1
02a7 e404       |    |		Load	0x2,0x4
02a8 01d5       |    |		Execute	Vector,Field_Reference
02a9 016f       | o  |		Execute	Variant_Record,Equal
02aa 680a       |h   |		Jump_Zero	0x2b5
02ab 00d8       |    |		Load_Top	At_Offset_0
02ac e404       |    |		Load	0x2,0x4
02ad 825a       | Z  |		Call	0x1,0x5a
02ae e404       |    |		Load	0x2,0x4
02af 01d4       |    |		Execute	Vector,Structure_Write
02b0 e405       |    |		Load	0x2,0x5
02b1 0aff       |    |		Execute_Immediate	Plus,-0x1
02b2 c405       |    |		Store	0x2,0x5
02b3 00d2       |    |		Pop_Control	Pop_Count_2
02b4 7802       |x   |		Jump	0x2b7
02b5 00c8       |    |		Action	Pop_Auxiliary_Range
02b6 3fec       |?   |		Loop_Increasing	0x2a3
02b7 00ce       |    |		Action	Pop_Auxiliary
02b8 00c8       |    |		Action	Pop_Auxiliary_Range
02b9 3fe3       |?   |		Loop_Increasing	0x29d
02ba 00ce       |    |		Action	Pop_Auxiliary
02bb e5ff       |    |		Load	0x2,-0x1
02bc e259       | Y  |		Load	0x1,0x59
02bd 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
02be e402       |    |		Load	0x2,0x2
02bf 017d       | }  |		Execute	Record,Structure_Write
02c0 4801       |H   |		Short_Literal	0x1
02c1 00da       |    |		Load_Top	At_Offset_2
02c2 e404       |    |		Load	0x2,0x4
02c3 01cf       |    |		Execute	Vector,Slice_Read
02c4 e259       | Y  |		Load	0x1,0x59
02c5 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
02c6 e403       |    |		Load	0x2,0x3
02c7 017d       | }  |		Execute	Record,Structure_Write
02c8 00db       |    |		Load_Top	At_Offset_3
02c9 e402       |    |		Load	0x2,0x2
02ca e259       | Y  |		Load	0x1,0x59
02cb 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02cc e402       |    |		Load	0x2,0x2
02cd 017d       | }  |		Execute	Record,Structure_Write
02ce 00db       |    |		Load_Top	At_Offset_3
02cf e259       | Y  |		Load	0x1,0x59
02d0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02d1 00d1       |    |		Pop_Control	Pop_Count_1
02d2 8406       |    |		Call	0x2,0x6
02d3 0831       | 1  |		Execute_Immediate	Raise,0x31
02d4 0000 0000  |    |		.BLANK	0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e2       |    |		.CONST	0x02e2								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0003       |    |		.CONST	0x0003								; Number of locals
02db			INIT_02d8:
02db e259       | Y  |		Load	0x1,0x59
02dc 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
02dd 0322       | "  |		Declare_Variable	Record
02de 00d8       |    |		Load_Top	At_Offset_0
02df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e0 029f 0563  |   c|		Declare_Subprogram	INIT_0560,For_Call
02e2			BODY_02d8:
02e2 e5ff       |    |		Load	0x2,-0x1
02e3 8239       | 9  |		Call	0x1,0x39
02e4 0e00       |    |		Execute_Immediate	Not_Equal,0x0
02e5 e5fe       |    |		Load	0x2,-0x2
02e6 8239       | 9  |		Call	0x1,0x39
02e7 0e00       |    |		Execute_Immediate	Not_Equal,0x0
02e8 0279       | y  |		Execute	Discrete,And
02e9 6826       |h&  |		Jump_Zero	0x310
02ea 00cf       |    |		Action	Mark_Auxiliary
02eb e5ff       |    |		Load	0x2,-0x1
02ec 01dc       |    |		Execute	Vector,Last
02ed e5ff       |    |		Load	0x2,-0x1
02ee 01dd       |    |		Execute	Vector,First
02ef 0263       | c  |		Execute	Discrete,Above_Bound
02f0 701e       |p   |		Jump_Nonzero	0x30f
02f1 00cf       |    |		Action	Mark_Auxiliary
02f2 e5fe       |    |		Load	0x2,-0x2
02f3 01dc       |    |		Execute	Vector,Last
02f4 e5fe       |    |		Load	0x2,-0x2
02f5 01dd       |    |		Execute	Vector,First
02f6 0263       | c  |		Execute	Discrete,Above_Bound
02f7 7014       |p   |		Jump_Nonzero	0x30c
02f8 00db       |    |		Load_Top	At_Offset_3
02f9 e5ff       |    |		Load	0x2,-0x1
02fa 01d5       |    |		Execute	Vector,Field_Reference
02fb 00d9       |    |		Load_Top	At_Offset_1
02fc e5fe       |    |		Load	0x2,-0x2
02fd 01d5       |    |		Execute	Vector,Field_Reference
02fe 016f       | o  |		Execute	Variant_Record,Equal
02ff 680a       |h   |		Jump_Zero	0x30a
0300 00db       |    |		Load_Top	At_Offset_3
0301 e5ff       |    |		Load	0x2,-0x1
0302 01d5       |    |		Execute	Vector,Field_Reference
0303 e402       |    |		Load	0x2,0x2
0304 e259       | Y  |		Load	0x1,0x59
0305 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0306 e402       |    |		Load	0x2,0x2
0307 017d       | }  |		Execute	Record,Structure_Write
0308 00d2       |    |		Pop_Control	Pop_Count_2
0309 7802       |x   |		Jump	0x30c
030a 00c8       |    |		Action	Pop_Auxiliary_Range
030b 3fec       |?   |		Loop_Increasing	0x2f8
030c 00ce       |    |		Action	Pop_Auxiliary
030d 00c8       |    |		Action	Pop_Auxiliary_Range
030e 3fe2       |?   |		Loop_Increasing	0x2f1
030f 00ce       |    |		Action	Pop_Auxiliary
0310 8403       |    |		Call	0x2,0x3
0311 0831       | 1  |		Execute_Immediate	Raise,0x31
0312 0000 0000  |    |		.BLANK	0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 032f       | /  |		.CONST	0x032f								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0005       |    |		.CONST	0x0005								; Number of locals
031b			INIT_0318:
031b e259       | Y  |		Load	0x1,0x59
031c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
031d 0322       | "  |		Declare_Variable	Record
031e 00d8       |    |		Load_Top	At_Offset_0
031f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0320 4801       |H   |		Short_Literal	0x1
0321 e5ff       |    |		Load	0x2,-0x1
0322 8239       | 9  |		Call	0x1,0x39
0323 e256       | V  |		Load	0x1,0x56
0324 035b       | [  |		Declare_Type	Array,Constrained
0325 0337       | 7  |		Declare_Variable	Array
0326 e5ff       |    |		Load	0x2,-0x1
0327 00d9       |    |		Load_Top	At_Offset_1
0328 01d4       |    |		Execute	Vector,Structure_Write
0329 e5ff       |    |		Load	0x2,-0x1
032a 8239       | 9  |		Call	0x1,0x39
032b 00e3       |    |		Load_Encached	Natural_Cache
032c 03f1       |    |		Declare_Variable	Discrete,With_Value
032d 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
032f			BODY_0318:
032f e5fe       |    |		Load	0x2,-0x2
0330 823a       | :  |		Call	0x1,0x3a
0331 7028       |p(  |		Jump_Nonzero	0x35a
0332 00cf       |    |		Action	Mark_Auxiliary
0333 e5ff       |    |		Load	0x2,-0x1
0334 01dc       |    |		Execute	Vector,Last
0335 e5ff       |    |		Load	0x2,-0x1
0336 01dd       |    |		Execute	Vector,First
0337 0263       | c  |		Execute	Discrete,Above_Bound
0338 7020       |p   |		Jump_Nonzero	0x359
0339 00cf       |    |		Action	Mark_Auxiliary
033a e5fe       |    |		Load	0x2,-0x2
033b 01dc       |    |		Execute	Vector,Last
033c e5fe       |    |		Load	0x2,-0x2
033d 01dd       |    |		Execute	Vector,First
033e 0263       | c  |		Execute	Discrete,Above_Bound
033f 7016       |p   |		Jump_Nonzero	0x356
0340 00db       |    |		Load_Top	At_Offset_3
0341 e5ff       |    |		Load	0x2,-0x1
0342 01d5       |    |		Execute	Vector,Field_Reference
0343 00d9       |    |		Load_Top	At_Offset_1
0344 e5fe       |    |		Load	0x2,-0x2
0345 01d5       |    |		Execute	Vector,Field_Reference
0346 016f       | o  |		Execute	Variant_Record,Equal
0347 680c       |h   |		Jump_Zero	0x354
0348 00db       |    |		Load_Top	At_Offset_3
0349 e5ff       |    |		Load	0x2,-0x1
034a 01d5       |    |		Execute	Vector,Field_Reference
034b e403       |    |		Load	0x2,0x3
034c 8258       | X  |		Call	0x1,0x58
034d e403       |    |		Load	0x2,0x3
034e 01d4       |    |		Execute	Vector,Structure_Write
034f e404       |    |		Load	0x2,0x4
0350 0aff       |    |		Execute_Immediate	Plus,-0x1
0351 c404       |    |		Store	0x2,0x4
0352 00d2       |    |		Pop_Control	Pop_Count_2
0353 7802       |x   |		Jump	0x356
0354 00c8       |    |		Action	Pop_Auxiliary_Range
0355 3fea       |?   |		Loop_Increasing	0x340
0356 00ce       |    |		Action	Pop_Auxiliary
0357 00c8       |    |		Action	Pop_Auxiliary_Range
0358 3fe0       |?   |		Loop_Increasing	0x339
0359 00ce       |    |		Action	Pop_Auxiliary
035a 4801       |H   |		Short_Literal	0x1
035b 00da       |    |		Load_Top	At_Offset_2
035c e403       |    |		Load	0x2,0x3
035d 01cf       |    |		Execute	Vector,Slice_Read
035e e259       | Y  |		Load	0x1,0x59
035f 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0360 e402       |    |		Load	0x2,0x2
0361 017d       | }  |		Execute	Record,Structure_Write
0362 8405       |    |		Call	0x2,0x5
0363 0831       | 1  |		Execute_Immediate	Raise,0x31
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d       | m  |		.CONST	0x036d								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b 00e1       |    |		Load_Encached	Boolean_Cache
036c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
036d			BODY_0368:
036d 00db       |    |		Load_Top	At_Offset_3
036e 8239       | 9  |		Call	0x1,0x39
036f 7003       |p   |		Jump_Nonzero	0x373
0370 4800       |H   |		Short_Literal	0x0
0371 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0372 7814       |x   |		Jump	0x387
0373 00cf       |    |		Action	Mark_Auxiliary
0374 e5ff       |    |		Load	0x2,-0x1
0375 01dc       |    |		Execute	Vector,Last
0376 e5ff       |    |		Load	0x2,-0x1
0377 01dd       |    |		Execute	Vector,First
0378 0263       | c  |		Execute	Discrete,Above_Bound
0379 700c       |p   |		Jump_Nonzero	0x386
037a e5fe       |    |		Load	0x2,-0x2
037b 00d9       |    |		Load_Top	At_Offset_1
037c e5ff       |    |		Load	0x2,-0x1
037d 01d5       |    |		Execute	Vector,Field_Reference
037e 016f       | o  |		Execute	Variant_Record,Equal
037f 6804       |h   |		Jump_Zero	0x384
0380 4801       |H   |		Short_Literal	0x1
0381 a402       |    |		Store_Unchecked	0x2,0x2
0382 00d2       |    |		Pop_Control	Pop_Count_2
0383 7802       |x   |		Jump	0x386
0384 00c8       |    |		Action	Pop_Auxiliary_Range
0385 3ff4       |?   |		Loop_Increasing	0x37a
0386 00ce       |    |		Action	Pop_Auxiliary
0387 00d8       |    |		Load_Top	At_Offset_0
0388 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0389 0000 0000  |    |		.BLANK	0000[0x7]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0397       |    |		.CONST	0x0397								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0003       |    |		.CONST	0x0003								; Number of locals
0393			INIT_0390:
0393 00e1       |    |		Load_Encached	Boolean_Cache
0394 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0395 00e1       |    |		Load_Encached	Boolean_Cache
0396 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0397			BODY_0390:
0397 e5ff       |    |		Load	0x2,-0x1
0398 8239       | 9  |		Call	0x1,0x39
0399 7003       |p   |		Jump_Nonzero	0x39d
039a 4801       |H   |		Short_Literal	0x1
039b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
039c 782d       |x-  |		Jump	0x3ca
039d e5fe       |    |		Load	0x2,-0x2
039e 8239       | 9  |		Call	0x1,0x39
039f 682a       |h*  |		Jump_Zero	0x3ca
03a0 4801       |H   |		Short_Literal	0x1
03a1 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
03a2 00cf       |    |		Action	Mark_Auxiliary
03a3 e5ff       |    |		Load	0x2,-0x1
03a4 01dc       |    |		Execute	Vector,Last
03a5 e5ff       |    |		Load	0x2,-0x1
03a6 01dd       |    |		Execute	Vector,First
03a7 0263       | c  |		Execute	Discrete,Above_Bound
03a8 7020       |p   |		Jump_Nonzero	0x3c9
03a9 00cf       |    |		Action	Mark_Auxiliary
03aa e5fe       |    |		Load	0x2,-0x2
03ab 01dc       |    |		Execute	Vector,Last
03ac e5fe       |    |		Load	0x2,-0x2
03ad 01dd       |    |		Execute	Vector,First
03ae 0263       | c  |		Execute	Discrete,Above_Bound
03af 700e       |p   |		Jump_Nonzero	0x3be
03b0 00db       |    |		Load_Top	At_Offset_3
03b1 e5ff       |    |		Load	0x2,-0x1
03b2 01d5       |    |		Execute	Vector,Field_Reference
03b3 00d9       |    |		Load_Top	At_Offset_1
03b4 e5fe       |    |		Load	0x2,-0x2
03b5 01d5       |    |		Execute	Vector,Field_Reference
03b6 016f       | o  |		Execute	Variant_Record,Equal
03b7 6804       |h   |		Jump_Zero	0x3bc
03b8 4801       |H   |		Short_Literal	0x1
03b9 a403       |    |		Store_Unchecked	0x2,0x3
03ba 00d2       |    |		Pop_Control	Pop_Count_2
03bb 7802       |x   |		Jump	0x3be
03bc 00c8       |    |		Action	Pop_Auxiliary_Range
03bd 3ff2       |?   |		Loop_Increasing	0x3b0
03be 00ce       |    |		Action	Pop_Auxiliary
03bf 00db       |    |		Load_Top	At_Offset_3
03c0 7004       |p   |		Jump_Nonzero	0x3c5
03c1 4800       |H   |		Short_Literal	0x0
03c2 a402       |    |		Store_Unchecked	0x2,0x2
03c3 00d2       |    |		Pop_Control	Pop_Count_2
03c4 7804       |x   |		Jump	0x3c9
03c5 4800       |H   |		Short_Literal	0x0
03c6 a403       |    |		Store_Unchecked	0x2,0x3
03c7 00c8       |    |		Action	Pop_Auxiliary_Range
03c8 3fe0       |?   |		Loop_Increasing	0x3a9
03c9 00ce       |    |		Action	Pop_Auxiliary
03ca 00d9       |    |		Load_Top	At_Offset_1
03cb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03cc 0000 0000  |    |		.BLANK	0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 00da       |    |		Load_Top	At_Offset_2
03d4 e5fe       |    |		Load	0x2,-0x2
03d5 8248       | H  |		Call	0x1,0x48
03d6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03d7 0000       |    |		.XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e2       |    |		.CONST	0x03e2								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0002       |    |		.CONST	0x0002								; Number of locals
03db			INIT_03d8:
03db 4801       |H   |		Short_Literal	0x1
03dc 4801       |H   |		Short_Literal	0x1
03dd e256       | V  |		Load	0x1,0x56
03de 035b       | [  |		Declare_Type	Array,Constrained
03df 0337       | 7  |		Declare_Variable	Array
03e0 00d8       |    |		Load_Top	At_Offset_0
03e1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e2			BODY_03d8:
03e2 00db       |    |		Load_Top	At_Offset_3
03e3 4801       |H   |		Short_Literal	0x1
03e4 00da       |    |		Load_Top	At_Offset_2
03e5 01d6       |    |		Execute	Vector,Field_Write
03e6 00d8       |    |		Load_Top	At_Offset_0
03e7 e256       | V  |		Load	0x1,0x56
03e8 01c6       |    |		Execute	Vector,Convert_To_Formal
03e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ea 0000 0000  |    |		.BLANK	0000[0x6]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fa       |    |		.CONST	0x03fa								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0002       |    |		.CONST	0x0002								; Number of locals
03f3			INIT_03f0:
03f3 e001       |    |		Load	0x0,0x1
03f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f5 02ff       |    |		Declare_Variable	Variant_Record
03f6 e001       |    |		Load	0x0,0x1
03f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f8 00d9       |    |		Load_Top	At_Offset_1
03f9 016d       | m  |		Execute	Variant_Record,Structure_Write
03fa			BODY_03f0:
03fa e5fe       |    |		Load	0x2,-0x2
03fb e5ff       |    |		Load	0x2,-0x1
03fc 01dd       |    |		Execute	Vector,First
03fd 027b       | {  |		Execute	Discrete,Greater_Equal
03fe e5fe       |    |		Load	0x2,-0x2
03ff e5ff       |    |		Load	0x2,-0x1
0400 01dc       |    |		Execute	Vector,Last
0401 027a       | z  |		Execute	Discrete,Less_Equal
0402 0279       | y  |		Execute	Discrete,And
0403 6805       |h   |		Jump_Zero	0x409
0404 e5fe       |    |		Load	0x2,-0x2
0405 e5ff       |    |		Load	0x2,-0x1
0406 01d5       |    |		Execute	Vector,Field_Reference
0407 00d9       |    |		Load_Top	At_Offset_1
0408 016d       | m  |		Execute	Variant_Record,Structure_Write
0409 00d8       |    |		Load_Top	At_Offset_0
040a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
040b 0000 0000  |    |		.BLANK	0000[0x5]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041c       |    |		.CONST	0x041c								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0005       |    |		.CONST	0x0005								; Number of locals
0413			INIT_0410:
0413 e259       | Y  |		Load	0x1,0x59
0414 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0415 0322       | "  |		Declare_Variable	Record
0416 00d8       |    |		Load_Top	At_Offset_0
0417 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0418 00e3       |    |		Load_Encached	Natural_Cache
0419 00e3       |    |		Load_Encached	Natural_Cache
041a 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
041c			BODY_0410:
041c e5fd       |    |		Load	0x2,-0x3
041d e5ff       |    |		Load	0x2,-0x1
041e 01dc       |    |		Execute	Vector,Last
041f 027d       | }  |		Execute	Discrete,Greater
0420 6804       |h   |		Jump_Zero	0x425
0421 e5ff       |    |		Load	0x2,-0x1
0422 01dc       |    |		Execute	Vector,Last
0423 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0424 7802       |x   |		Jump	0x427
0425 e5fd       |    |		Load	0x2,-0x3
0426 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0427 e5fe       |    |		Load	0x2,-0x2
0428 e5ff       |    |		Load	0x2,-0x1
0429 01dd       |    |		Execute	Vector,First
042a 027c       | |  |		Execute	Discrete,Less
042b 6804       |h   |		Jump_Zero	0x430
042c e5ff       |    |		Load	0x2,-0x1
042d 01dd       |    |		Execute	Vector,First
042e 005b       | [  |		Store_Top	Discrete,At_Offset_3
042f 7802       |x   |		Jump	0x432
0430 e5fe       |    |		Load	0x2,-0x2
0431 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0432 00da       |    |		Load_Top	At_Offset_2
0433 00da       |    |		Load_Top	At_Offset_2
0434 e5ff       |    |		Load	0x2,-0x1
0435 01cf       |    |		Execute	Vector,Slice_Read
0436 e259       | Y  |		Load	0x1,0x59
0437 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0438 e402       |    |		Load	0x2,0x2
0439 017d       | }  |		Execute	Record,Structure_Write
043a 8405       |    |		Call	0x2,0x5
043b 0831       | 1  |		Execute_Immediate	Raise,0x31
043c 0000 0000  |    |		.BLANK	0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00da       |    |		Load_Top	At_Offset_2
0444 8239       | 9  |		Call	0x1,0x39
0445 6807       |h   |		Jump_Zero	0x44d
0446 00da       |    |		Load_Top	At_Offset_2
0447 01dd       |    |		Execute	Vector,First
0448 00db       |    |		Load_Top	At_Offset_3
0449 01d5       |    |		Execute	Vector,Field_Reference
044a 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
044b 00cd       |    |		Action	Spare6_Action
044c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
044d 0831       | 1  |		Execute_Immediate	Raise,0x31
044e 0000 0000  |    |		.XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 045a       | Z  |		.CONST	0x045a								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0003       |    |		.CONST	0x0003								; Number of locals
0453			INIT_0450:
0453 e259       | Y  |		Load	0x1,0x59
0454 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0455 0322       | "  |		Declare_Variable	Record
0456 00d8       |    |		Load_Top	At_Offset_0
0457 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0458 029f 0593  |    |		Declare_Subprogram	INIT_0590,For_Call
045a			BODY_0450:
045a e5ff       |    |		Load	0x2,-0x1
045b 01dd       |    |		Execute	Vector,First
045c 0a01       |    |		Execute_Immediate	Plus,0x1
045d 00d8       |    |		Load_Top	At_Offset_0
045e 00e2       |    |		Load_Encached	Integer_Cache
045f 0260       | `  |		Execute	Discrete,In_Type
0460 7001       |p   |		Jump_Nonzero	0x462
0461 0801       |    |		Execute_Immediate	Raise,0x1
0462 e5ff       |    |		Load	0x2,-0x1
0463 01dc       |    |		Execute	Vector,Last
0464 e5ff       |    |		Load	0x2,-0x1
0465 01cf       |    |		Execute	Vector,Slice_Read
0466 e259       | Y  |		Load	0x1,0x59
0467 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0468 00da       |    |		Load_Top	At_Offset_2
0469 017d       | }  |		Execute	Record,Structure_Write
046a 8403       |    |		Call	0x2,0x3
046b 0831       | 1  |		Execute_Immediate	Raise,0x31
046c 0000 0000  |    |		.BLANK	0000[0x4]
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 00cf       |    |		Action	Mark_Auxiliary
0474 e5fd       |    |		Load	0x2,-0x3
0475 01dc       |    |		Execute	Vector,Last
0476 e5fd       |    |		Load	0x2,-0x3
0477 01dd       |    |		Execute	Vector,First
0478 0263       | c  |		Execute	Discrete,Above_Bound
0479 7006       |p   |		Jump_Nonzero	0x480
047a 00d8       |    |		Load_Top	At_Offset_0
047b e5fd       |    |		Load	0x2,-0x3
047c 01d5       |    |		Execute	Vector,Field_Reference
047d 85fe       |    |		Call	0x2,-0x2
047e 00c8       |    |		Action	Pop_Auxiliary_Range
047f 3ffa       |?   |		Loop_Increasing	0x47a
0480 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0481 0000 0000  |    |		.BLANK	0000[0x7]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0497       |    |		.CONST	0x0497								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0003       |    |		.CONST	0x0003								; Number of locals
048b			INIT_0488:
048b e5fd       |    |		Load	0x2,-0x3
048c 01dd       |    |		Execute	Vector,First
048d 0aff       |    |		Execute_Immediate	Plus,-0x1
048e e5fd       |    |		Load	0x2,-0x3
048f 01dc       |    |		Execute	Vector,Last
0490 00e2       |    |		Load_Encached	Integer_Cache
0491 03f8       |    |		Declare_Type	Discrete,Constrained
0492 e001       |    |		Load	0x0,0x1
0493 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0494 02ff       |    |		Declare_Variable	Variant_Record
0495 00d8       |    |		Load_Top	At_Offset_0
0496 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0497			BODY_0488:
0497 00cf       |    |		Action	Mark_Auxiliary
0498 e5fd       |    |		Load	0x2,-0x3
0499 01dc       |    |		Execute	Vector,Last
049a 0aff       |    |		Execute_Immediate	Plus,-0x1
049b 00d8       |    |		Load_Top	At_Offset_0
049c 00e2       |    |		Load_Encached	Integer_Cache
049d 0260       | `  |		Execute	Discrete,In_Type
049e 7001       |p   |		Jump_Nonzero	0x4a0
049f 0801       |    |		Execute_Immediate	Raise,0x1
04a0 e5fd       |    |		Load	0x2,-0x3
04a1 01dd       |    |		Execute	Vector,First
04a2 0a01       |    |		Execute_Immediate	Plus,0x1
04a3 00d8       |    |		Load_Top	At_Offset_0
04a4 00e2       |    |		Load_Encached	Integer_Cache
04a5 0260       | `  |		Execute	Discrete,In_Type
04a6 7001       |p   |		Jump_Nonzero	0x4a8
04a7 0801       |    |		Execute_Immediate	Raise,0x1
04a8 0263       | c  |		Execute	Discrete,Above_Bound
04a9 7029       |p)  |		Jump_Nonzero	0x4d3
04aa 00d8       |    |		Load_Top	At_Offset_0
04ab e5fd       |    |		Load	0x2,-0x3
04ac 01d5       |    |		Execute	Vector,Field_Reference
04ad e403       |    |		Load	0x2,0x3
04ae 016d       | m  |		Execute	Variant_Record,Structure_Write
04af 00d8       |    |		Load_Top	At_Offset_0
04b0 0aff       |    |		Execute_Immediate	Plus,-0x1
04b1 c402       |    |		Store	0x2,0x2
04b2 00cf       |    |		Action	Mark_Auxiliary
04b3 780b       |x   |		Jump	0x4bf
04b4 e402       |    |		Load	0x2,0x2
04b5 e5fd       |    |		Load	0x2,-0x3
04b6 01d5       |    |		Execute	Vector,Field_Reference
04b7 e402       |    |		Load	0x2,0x2
04b8 0a01       |    |		Execute_Immediate	Plus,0x1
04b9 e5fd       |    |		Load	0x2,-0x3
04ba 01d6       |    |		Execute	Vector,Field_Write
04bb e402       |    |		Load	0x2,0x2
04bc 0aff       |    |		Execute_Immediate	Plus,-0x1
04bd c402       |    |		Store	0x2,0x2
04be 00c9       |    |		Action	Pop_Auxiliary_Loop
04bf e402       |    |		Load	0x2,0x2
04c0 e5fd       |    |		Load	0x2,-0x3
04c1 01dd       |    |		Execute	Vector,First
04c2 0aff       |    |		Execute_Immediate	Plus,-0x1
04c3 027e       | ~  |		Execute	Discrete,Not_Equal
04c4 6806       |h   |		Jump_Zero	0x4cb
04c5 e402       |    |		Load	0x2,0x2
04c6 e5fd       |    |		Load	0x2,-0x3
04c7 01d5       |    |		Execute	Vector,Field_Reference
04c8 e403       |    |		Load	0x2,0x3
04c9 85fe       |    |		Call	0x2,-0x2
04ca 77e9       |w   |		Jump_Nonzero	0x4b4
04cb 00ce       |    |		Action	Pop_Auxiliary
04cc 00db       |    |		Load_Top	At_Offset_3
04cd e402       |    |		Load	0x2,0x2
04ce 0a01       |    |		Execute_Immediate	Plus,0x1
04cf e5fd       |    |		Load	0x2,-0x3
04d0 01d6       |    |		Execute	Vector,Field_Write
04d1 00c8       |    |		Action	Pop_Auxiliary_Range
04d2 3fd7       |?   |		Loop_Increasing	0x4aa
04d3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04d4 0000 0000  |    |		.BLANK	0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04e2       |    |		.CONST	0x04e2								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0003       |    |		.CONST	0x0003								; Number of locals
04db			INIT_04d8:
04db e259       | Y  |		Load	0x1,0x59
04dc 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
04dd 0322       | "  |		Declare_Variable	Record
04de 00d8       |    |		Load_Top	At_Offset_0
04df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e0 029f 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Call
04e2			BODY_04d8:
04e2 e5ff       |    |		Load	0x2,-0x1
04e3 e259       | Y  |		Load	0x1,0x59
04e4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
04e5 00da       |    |		Load_Top	At_Offset_2
04e6 017d       | }  |		Execute	Record,Structure_Write
04e7 e5fe       |    |		Load	0x2,-0x2
04e8 e5ff       |    |		Load	0x2,-0x1
04e9 01dd       |    |		Execute	Vector,First
04ea 027b       | {  |		Execute	Discrete,Greater_Equal
04eb e5fe       |    |		Load	0x2,-0x2
04ec e5ff       |    |		Load	0x2,-0x1
04ed 01dc       |    |		Execute	Vector,Last
04ee 027a       | z  |		Execute	Discrete,Less_Equal
04ef 0279       | y  |		Execute	Discrete,And
04f0 680a       |h   |		Jump_Zero	0x4fb
04f1 00d9       |    |		Load_Top	At_Offset_1
04f2 e5fe       |    |		Load	0x2,-0x2
04f3 00d8       |    |		Load_Top	At_Offset_0
04f4 00e4       |    |		Load_Encached	Positive_Cache
04f5 0260       | `  |		Execute	Discrete,In_Type
04f6 7001       |p   |		Jump_Nonzero	0x4f8
04f7 0801       |    |		Execute_Immediate	Raise,0x1
04f8 e259       | Y  |		Load	0x1,0x59
04f9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
04fa 00d1       |    |		Pop_Control	Pop_Count_1
04fb 8403       |    |		Call	0x2,0x3
04fc 0831       | 1  |		Execute_Immediate	Raise,0x31
04fd 0000 0000  |    |		.XXX[0x3]
04ff 0000       |    |
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 e5fe       |    |		Load	0x2,-0x2
0505 027d       | }  |		Execute	Discrete,Greater
0506 6802       |h   |		Jump_Zero	0x509
0507 00da       |    |		Load_Top	At_Offset_2
0508 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0509 00db       |    |		Load_Top	At_Offset_3
050a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
050b 0000 0000  |    |		.BLANK	0000[0x5]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0516       |    |		.CONST	0x0516								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0002       |    |		.CONST	0x0002								; Number of locals
0513			INIT_0510:
0513 e402       |    |		Load	0x2,0x2
0514 e259       | Y  |		Load	0x1,0x59
0515 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0516			BODY_0510:
0516 e402       |    |		Load	0x2,0x2
0517 e259       | Y  |		Load	0x1,0x59
0518 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0519 00d1       |    |		Pop_Control	Pop_Count_1
051a 00d8       |    |		Load_Top	At_Offset_0
051b 00cb       |    |		Action	Pop_Block_With_Result
051c 00ca       |    |		Action	Exit_Nullary_Function
051d 0000 0000  |    |		.XXX[0x3]
051f 0000       |    |
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0526       | &  |		.CONST	0x0526								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0002       |    |		.CONST	0x0002								; Number of locals
0523			INIT_0520:
0523 e402       |    |		Load	0x2,0x2
0524 e259       | Y  |		Load	0x1,0x59
0525 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0526			BODY_0520:
0526 e402       |    |		Load	0x2,0x2
0527 e259       | Y  |		Load	0x1,0x59
0528 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0529 00d1       |    |		Pop_Control	Pop_Count_1
052a 00d8       |    |		Load_Top	At_Offset_0
052b 00cb       |    |		Action	Pop_Block_With_Result
052c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
052d 0000 0000  |    |		.XXX[0x3]
052f 0000       |    |
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0536       | 6  |		.CONST	0x0536								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0002       |    |		.CONST	0x0002								; Number of locals
0533			INIT_0530:
0533 e402       |    |		Load	0x2,0x2
0534 e259       | Y  |		Load	0x1,0x59
0535 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0536			BODY_0530:
0536 e402       |    |		Load	0x2,0x2
0537 e259       | Y  |		Load	0x1,0x59
0538 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0539 00d1       |    |		Pop_Control	Pop_Count_1
053a 00d8       |    |		Load_Top	At_Offset_0
053b 00cb       |    |		Action	Pop_Block_With_Result
053c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
053d 0000 0000  |    |		.XXX[0x3]
053f 0000       |    |
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0546       | F  |		.CONST	0x0546								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0002       |    |		.CONST	0x0002								; Number of locals
0543			INIT_0540:
0543 e402       |    |		Load	0x2,0x2
0544 e259       | Y  |		Load	0x1,0x59
0545 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0546			BODY_0540:
0546 e402       |    |		Load	0x2,0x2
0547 e259       | Y  |		Load	0x1,0x59
0548 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0549 00d1       |    |		Pop_Control	Pop_Count_1
054a 00d8       |    |		Load_Top	At_Offset_0
054b 00cb       |    |		Action	Pop_Block_With_Result
054c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
054d 0000 0000  |    |		.XXX[0x3]
054f 0000       |    |
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0556       | V  |		.CONST	0x0556								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0002       |    |		.CONST	0x0002								; Number of locals
0553			INIT_0550:
0553 e402       |    |		Load	0x2,0x2
0554 e259       | Y  |		Load	0x1,0x59
0555 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0556			BODY_0550:
0556 e402       |    |		Load	0x2,0x2
0557 e259       | Y  |		Load	0x1,0x59
0558 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0559 00d1       |    |		Pop_Control	Pop_Count_1
055a 00d8       |    |		Load_Top	At_Offset_0
055b 00cb       |    |		Action	Pop_Block_With_Result
055c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
055d 0000 0000  |    |		.XXX[0x3]
055f 0000       |    |
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0566       | f  |		.CONST	0x0566								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0002       |    |		.CONST	0x0002								; Number of locals
0563			INIT_0560:
0563 e402       |    |		Load	0x2,0x2
0564 e259       | Y  |		Load	0x1,0x59
0565 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0566			BODY_0560:
0566 e402       |    |		Load	0x2,0x2
0567 e259       | Y  |		Load	0x1,0x59
0568 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0569 00d1       |    |		Pop_Control	Pop_Count_1
056a 00d8       |    |		Load_Top	At_Offset_0
056b 00cb       |    |		Action	Pop_Block_With_Result
056c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
056d 0000 0000  |    |		.XXX[0x3]
056f 0000       |    |
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0576       | v  |		.CONST	0x0576								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0002       |    |		.CONST	0x0002								; Number of locals
0573			INIT_0570:
0573 e402       |    |		Load	0x2,0x2
0574 e259       | Y  |		Load	0x1,0x59
0575 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0576			BODY_0570:
0576 e402       |    |		Load	0x2,0x2
0577 e259       | Y  |		Load	0x1,0x59
0578 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0579 00d1       |    |		Pop_Control	Pop_Count_1
057a 00d8       |    |		Load_Top	At_Offset_0
057b 00cb       |    |		Action	Pop_Block_With_Result
057c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
057d 0000 0000  |    |		.XXX[0x3]
057f 0000       |    |
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0586       |    |		.CONST	0x0586								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0002       |    |		.CONST	0x0002								; Number of locals
0583			INIT_0580:
0583 e402       |    |		Load	0x2,0x2
0584 e259       | Y  |		Load	0x1,0x59
0585 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0586			BODY_0580:
0586 e402       |    |		Load	0x2,0x2
0587 e259       | Y  |		Load	0x1,0x59
0588 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0589 00d1       |    |		Pop_Control	Pop_Count_1
058a 00d8       |    |		Load_Top	At_Offset_0
058b 00cb       |    |		Action	Pop_Block_With_Result
058c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
058d 0000 0000  |    |		.XXX[0x3]
058f 0000       |    |
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0596       |    |		.CONST	0x0596								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0002       |    |		.CONST	0x0002								; Number of locals
0593			INIT_0590:
0593 e402       |    |		Load	0x2,0x2
0594 e259       | Y  |		Load	0x1,0x59
0595 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0596			BODY_0590:
0596 e402       |    |		Load	0x2,0x2
0597 e259       | Y  |		Load	0x1,0x59
0598 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0599 00d1       |    |		Pop_Control	Pop_Count_1
059a 00d8       |    |		Load_Top	At_Offset_0
059b 00cb       |    |		Action	Pop_Block_With_Result
059c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
059d 0000 0000  |    |		.XXX[0x3]
059f 0000       |    |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a6       |    |		.CONST	0x05a6								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0002       |    |		.CONST	0x0002								; Number of locals
05a3			INIT_05a0:
05a3 e402       |    |		Load	0x2,0x2
05a4 e259       | Y  |		Load	0x1,0x59
05a5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05a6			BODY_05a0:
05a6 e402       |    |		Load	0x2,0x2
05a7 e259       | Y  |		Load	0x1,0x59
05a8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05a9 00d1       |    |		Pop_Control	Pop_Count_1
05aa 00d8       |    |		Load_Top	At_Offset_0
05ab 00cb       |    |		Action	Pop_Block_With_Result
05ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05ad 0000 0000  |    |		.XXX[0x3]
05af 0000       |    |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05d8       |    |		.CONST	0x05d8								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0016       |    |		.CONST	0x0016								; Number of locals
05b3			INIT_05b0:
05b3 e001       |    |		Load	0x0,0x1
05b4 0129       | )  |		Execute	Any,Make_Visible
05b5 03f3       |    |		Declare_Variable	Discrete,Incomplete,Visible,Unsigned
05b6 00c4       |    |		Action	Make_Default
05b7 00c4       |    |		Action	Make_Default
05b8 00c4       |    |		Action	Make_Default
05b9 00c4       |    |		Action	Make_Default
05ba 00c4       |    |		Action	Make_Default
05bb 00c4       |    |		Action	Make_Default
05bc 00c4       |    |		Action	Make_Default
05bd 00c4       |    |		Action	Make_Default
05be 029a 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
05c0 c213       |    |		Store	0x1,0x13
05c1 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
05c3 c214       |    |		Store	0x1,0x14
05c4 029a 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call,Visible,Unelaborated
05c6 c215       |    |		Store	0x1,0x15
05c7 029a 064b  |   K|		Declare_Subprogram	INIT_0648,For_Outer_Call,Visible,Unelaborated
05c9 c216       |    |		Store	0x1,0x16
05ca 4800       |H   |		Short_Literal	0x0
05cb 6028       |`(  |		Indirect_Literal	Discrete,0x5f4,{0x00000000, 0x7fffffff}
05cc 00e5       |    |		Load_Encached	Long_Integer_Cache
05cd e20e       |    |		Load	0x1,0xe
05ce 03ed       |    |		Complete_Type	Discrete,By_Constraining
05cf 00bf       |    |		Action	Accept_Activation
05d0 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
05d1 00c7       |    |		Action	Elaborate_Subprogram
05d2 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
05d3 00c7       |    |		Action	Elaborate_Subprogram
05d4 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
05d5 00c7       |    |		Action	Elaborate_Subprogram
05d6 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
05d7 00c7       |    |		Action	Elaborate_Subprogram
05d8			BODY_05b0:
05d8 00bc       |    |		Action	Signal_Activated
05d9 00bb       |    |		Action	Signal_Completion
05da 0000 0000  |    |		.BLANK	0000[0x6]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 00da       |    |		Load_Top	At_Offset_2
05e4 e002       |    |		Load	0x0,0x2
05e5 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
05e6 7002       |p   |		Jump_Nonzero	0x5e9
05e7 4800       |H   |		Short_Literal	0x0
05e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e9 00da       |    |		Load_Top	At_Offset_2
05ea 01dd       |    |		Execute	Vector,First
05eb 00d8       |    |		Load_Top	At_Offset_0
05ec e20e       |    |		Load	0x1,0xe
05ed 0260       | `  |		Execute	Discrete,In_Type
05ee 7001       |p   |		Jump_Nonzero	0x5f0
05ef 0801       |    |		Execute_Immediate	Raise,0x1
05f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f1 0000 0000  |    |		.XXX[0x3]
05f3 0000       |    |
05f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fc       |    |		.CONST	0x05fc								; Address of begin
05f9 0615       |    |		.CONST	0x0615								; Address of exception handler
05fa 0002       |    |		.CONST	0x0002								; Number of locals
05fb			INIT_05f8:
05fb 00e4       |    |		Load_Encached	Positive_Cache
05fc			BODY_05f8:
05fc e5fe       |    |		Load	0x2,-0x2
05fd 00d8       |    |		Load_Top	At_Offset_0
05fe 00e4       |    |		Load_Encached	Positive_Cache
05ff 0260       | `  |		Execute	Discrete,In_Type
0600 7001       |p   |		Jump_Nonzero	0x602
0601 0801       |    |		Execute_Immediate	Raise,0x1
0602 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0603 00d8       |    |		Load_Top	At_Offset_0
0604 e5ff       |    |		Load	0x2,-0x1
0605 01dc       |    |		Execute	Vector,Last
0606 027d       | }  |		Execute	Discrete,Greater
0607 00d9       |    |		Load_Top	At_Offset_1
0608 e5ff       |    |		Load	0x2,-0x1
0609 01dd       |    |		Execute	Vector,First
060a 027c       | |  |		Execute	Discrete,Less
060b 0278       | x  |		Execute	Discrete,Or
060c 6802       |h   |		Jump_Zero	0x60f
060d e20d       |    |		Load	0x1,0xd
060e 0257       | W  |		Execute	Discrete,Raise
060f 00d8       |    |		Load_Top	At_Offset_0
0610 e5ff       |    |		Load	0x2,-0x1
0611 01d5       |    |		Execute	Vector,Field_Reference
0612 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0613 00cd       |    |		Action	Spare6_Action
0614 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0615			TRAP_05f8:
0615 010e       |    |		Execute	Exception,Is_Constraint_Error
0616 6802       |h   |		Jump_Zero	0x619
0617 e20d       |    |		Load	0x1,0xd
0618 0257       | W  |		Execute	Discrete,Raise
0619 0100       |    |		Execute	Exception,Raise
061a 0000 0000  |    |		.BLANK	0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0626       | &  |		.CONST	0x0626								; Address of begin
0621 063f       | ?  |		.CONST	0x063f								; Address of exception handler
0622 0003       |    |		.CONST	0x0003								; Number of locals
0623			INIT_0620:
0623 00e4       |    |		Load_Encached	Positive_Cache
0624 e20e       |    |		Load	0x1,0xe
0625 0007       |    |		Action	Break_Optional
0626			BODY_0620:
0626 e5fe       |    |		Load	0x2,-0x2
0627 00d8       |    |		Load_Top	At_Offset_0
0628 00e4       |    |		Load_Encached	Positive_Cache
0629 0260       | `  |		Execute	Discrete,In_Type
062a 7001       |p   |		Jump_Nonzero	0x62c
062b 0801       |    |		Execute_Immediate	Raise,0x1
062c 0a01       |    |		Execute_Immediate	Plus,0x1
062d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
062e 00d9       |    |		Load_Top	At_Offset_1
062f e5ff       |    |		Load	0x2,-0x1
0630 01dc       |    |		Execute	Vector,Last
0631 027d       | }  |		Execute	Discrete,Greater
0632 00da       |    |		Load_Top	At_Offset_2
0633 e5ff       |    |		Load	0x2,-0x1
0634 01dd       |    |		Execute	Vector,First
0635 027c       | |  |		Execute	Discrete,Less
0636 0278       | x  |		Execute	Discrete,Or
0637 6803       |h   |		Jump_Zero	0x63b
0638 4800       |H   |		Short_Literal	0x0
0639 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
063a 7802       |x   |		Jump	0x63d
063b 00d9       |    |		Load_Top	At_Offset_1
063c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
063d 00d8       |    |		Load_Top	At_Offset_0
063e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
063f			TRAP_0620:
063f 010e       |    |		Execute	Exception,Is_Constraint_Error
0640 6802       |h   |		Jump_Zero	0x643
0641 e20d       |    |		Load	0x1,0xd
0642 0257       | W  |		Execute	Discrete,Raise
0643 0100       |    |		Execute	Exception,Raise
0644 0000 0000  |    |		.BLANK	0000[0x4]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b       | K  |		.CONST	0x064b								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0001       |    |		.CONST	0x0001								; Number of locals
064b			BODY_0648:
064b			INIT_0648:
064b 00db       |    |		Load_Top	At_Offset_3
064c 0f00       |    |		Execute_Immediate	Equal,0x0
064d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
064e 0000 0000  |    |		.XXX[0x2]
0650 ; --------------------------------------------------------------------------------------
0650 ; Debug Table
0650 ; --------------------------------------------------------------------------------------
0650 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xdbeb,0x0000,0x0001,0x002c
0656 000b 0706  |    |		.DBG4T	0x000b,0x0706,0x8000,0x0000
065a 00c6 0728  |   (|		.DBG4T	0x00c6,0x0728,0x8000,0x8000
065e 0113 0000  |    |		.DBG4T	0x0113,0x0000,0x0005,0x0000
0662 012b 0760  | + `|		.DBG4T	0x012b,0x0760,0x0002,0x0000
0666 013b 0764  | ; d|		.DBG4T	0x013b,0x0764,0x2802,0x0002
066a 017b 0770  | { p|		.DBG4T	0x017b,0x0770,0x2802,0x0002
066e 01a3 0779  |   y|		.DBG4T	0x01a3,0x0779,0x2802,0x0002
0672 01c3 0782  |    |		.DBG4T	0x01c3,0x0782,0x2802,0x0002
0676 01f3 078b  |    |		.DBG4T	0x01f3,0x078b,0x0002,0x0000
067a 0203 078e  |    |		.DBG4T	0x0203,0x078e,0x0002,0x0000
067e 020b 0791  |    |		.DBG4T	0x020b,0x0791,0x0002,0x0000
0682 022b 0798  | +  |		.DBG4T	0x022b,0x0798,0x0002,0x0000
0686 025b 07a2  | [  |		.DBG4T	0x025b,0x07a2,0x0001,0x0000
068a 026b 07a7  | k  |		.DBG4T	0x026b,0x07a7,0x0002,0x0000
068e 02db 07bc  |    |		.DBG4T	0x02db,0x07bc,0x0002,0x0000
0692 031b 07c6  |    |		.DBG4T	0x031b,0x07c6,0x0002,0x0000
0696 036b 07d4  | k  |		.DBG4T	0x036b,0x07d4,0x0002,0x0000
069a 0393 07de  |    |		.DBG4T	0x0393,0x07de,0x0002,0x0000
069e 03d3 07f0  |    |		.DBG4T	0x03d3,0x07f0,0x0002,0x0000
06a2 03db 07f3  |    |		.DBG4T	0x03db,0x07f3,0x0002,0x0000
06a6 03f3 07f8  |    |		.DBG4T	0x03f3,0x07f8,0x0002,0x0000
06aa 0413 07fe  |    |		.DBG4T	0x0413,0x07fe,0x0002,0x0000
06ae 0443 080b  | C  |		.DBG4T	0x0443,0x080b,0x0002,0x0000
06b2 0453 080f  | S  |		.DBG4T	0x0453,0x080f,0x0002,0x0000
06b6 0473 0814  | s  |		.DBG4T	0x0473,0x0814,0x2801,0x0002
06ba 048b 0818  |    |		.DBG4T	0x048b,0x0818,0x2801,0x4002
06be 04db 082a  |   *|		.DBG4T	0x04db,0x082a,0x0002,0x0000
06c2 0503 0831  |   1|		.DBG4T	0x0503,0x0831,0x0002,0x0000
06c6 0513 0836  |   6|		.DBG4T	0x0513,0x0836,0x0004,0x0000
06ca 0523 083b  | # ;|		.DBG4T	0x0523,0x083b,0x0804,0x0002
06ce 0533 0840  | 3 @|		.DBG4T	0x0533,0x0840,0x0004,0x0000
06d2 0543 0845  | C E|		.DBG4T	0x0543,0x0845,0x0004,0x0000
06d6 0553 084a  | S J|		.DBG4T	0x0553,0x084a,0x0004,0x0000
06da 0563 084f  | c O|		.DBG4T	0x0563,0x084f,0x0004,0x0000
06de 0573 0854  | s T|		.DBG4T	0x0573,0x0854,0x0004,0x0000
06e2 0583 0859  |   Y|		.DBG4T	0x0583,0x0859,0x0004,0x0000
06e6 0593 085e  |   ^|		.DBG4T	0x0593,0x085e,0x0004,0x0000
06ea 05a3 0863  |   c|		.DBG4T	0x05a3,0x0863,0x0004,0x0000
06ee 05b3 0868  |   h|		.DBG4T	0x05b3,0x0868,0x0000,0x0000
06f2 05d0 0871  |   q|		.DBG4T	0x05d0,0x0871,0x0000,0x0000
06f6 05e3 0877  |   w|		.DBG4T	0x05e3,0x0877,0x0002,0x0000
06fa 05fb 087c  |   ||		.DBG4T	0x05fb,0x087c,0x0002,0x0000
06fe 0623 0884  | #  |		.DBG4T	0x0623,0x0884,0x0002,0x0000
0702 064b 088e  | K  |		.DBG4T	0x064b,0x088e,0x0002,0x0000
0706 ; --------------------------------------------------------------------------------------
0706 ; Debug chain
0706 ; --------------------------------------------------------------------------------------
0706 0020 0000  |    |		.DBGLEN	0x0020,0x0000
0708 0057 0060  | W `|		.DBGLNO	0x0057,0x0060,0x0063,0x0066,0x0069,0x006c,0x006f,0x0072,0x0075,0x0078,0x007b,0x007e,0x0081,0x0084,0x0087,0x008a,0x008d,0x0090,0x0093,0x0096,0x0099,0x009c,0x009f,0x00a2,0x00a5,0x00a8,0x00ab,0x00ae,0x00b1,0x00b4,0x00b7,0x00ba
0728 ; --------------------------------------------------------------------------------------
0728 ; Debug chain
0728 ; --------------------------------------------------------------------------------------
0728 001b 0000  |    |		.DBGLEN	0x001b,0x0000
072a 00c6 00cf  |    |		.DBGLNO	0x00c6,0x00cf,0x00d1,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101
0745 0001 0003  |    |		.XXX[0x1b]
0747 0004 0005  |    |
0749 0006 0007  |    |
074b 0008 0009  |    |
074d 000a 000b  |    |
074f 000c 000d  |    |
0751 000e 000f  |    |
0753 0010 0011  |    |
0755 0012 0013  |    |
0757 0014 0015  |    |
0759 0016 0017  |    |
075b 0018 0019  |    |
075d 001a 001b  |    |
075f 001c       |    |
0760 ; --------------------------------------------------------------------------------------
0760 ; Debug chain
0760 ; --------------------------------------------------------------------------------------
0760 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0762 012b 0132  | + 2|		.DBGLNO	0x012b,0x0132
0764 ; --------------------------------------------------------------------------------------
0764 ; Debug chain
0764 ; --------------------------------------------------------------------------------------
0764 0002 0008  |    |		.DBGLEN	0x0002,0x0008
0766 013b 0140  | ; @|		.DBGLNO	0x013b,0x0140,0x0144,0x0148,0x014e,0x0153,0x015b,0x015e,0x0166,0x016b
0770 ; --------------------------------------------------------------------------------------
0770 ; Debug chain
0770 ; --------------------------------------------------------------------------------------
0770 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0772 017b 0182  | {  |		.DBGLNO	0x017b,0x0182,0x0186,0x018c,0x0191,0x0196,0x019b
0779 ; --------------------------------------------------------------------------------------
0779 ; Debug chain
0779 ; --------------------------------------------------------------------------------------
0779 0001 0006  |    |		.DBGLEN	0x0001,0x0006
077b 01a3 01a5  |    |		.DBGLNO	0x01a3,0x01a5,0x01a9,0x01af,0x01b4,0x01b6,0x01bb
0782 ; --------------------------------------------------------------------------------------
0782 ; Debug chain
0782 ; --------------------------------------------------------------------------------------
0782 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0784 01c3 01ca  |    |		.DBGLNO	0x01c3,0x01ca,0x01cd,0x01d4,0x01e0,0x01e6,0x01ee
078b ; --------------------------------------------------------------------------------------
078b ; Debug chain
078b ; --------------------------------------------------------------------------------------
078b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
078d 01f3       |    |		.DBGLNO	0x01f3
078e ; --------------------------------------------------------------------------------------
078e ; Debug chain
078e ; --------------------------------------------------------------------------------------
078e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0790 0203       |    |		.DBGLNO	0x0203
0791 ; --------------------------------------------------------------------------------------
0791 ; Debug chain
0791 ; --------------------------------------------------------------------------------------
0791 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0793 020b 0212  |    |		.DBGLNO	0x020b,0x0212,0x0217,0x021b,0x0221
0798 ; --------------------------------------------------------------------------------------
0798 ; Debug chain
0798 ; --------------------------------------------------------------------------------------
0798 0001 0007  |    |		.DBGLEN	0x0001,0x0007
079a 022b 0232  | + 2|		.DBGLNO	0x022b,0x0232,0x0237,0x023b,0x0241,0x0247,0x0251,0x0255
07a2 ; --------------------------------------------------------------------------------------
07a2 ; Debug chain
07a2 ; --------------------------------------------------------------------------------------
07a2 0002 0001  |    |		.DBGLEN	0x0002,0x0001
07a4 025b 0260  | [ `|		.DBGLNO	0x025b,0x0260,0x0263
07a7 ; --------------------------------------------------------------------------------------
07a7 ; Debug chain
07a7 ; --------------------------------------------------------------------------------------
07a7 0004 000f  |    |		.DBGLEN	0x0004,0x000f
07a9 026b 0270  | k p|		.DBGLNO	0x026b,0x0270,0x0275,0x027e,0x0284,0x0287,0x028d,0x0290,0x0297,0x029e,0x02a3,0x02ab,0x02b0,0x02b3,0x02bb,0x02c0,0x02c8,0x02ce,0x02d2
07bc ; --------------------------------------------------------------------------------------
07bc ; Debug chain
07bc ; --------------------------------------------------------------------------------------
07bc 0001 0007  |    |		.DBGLEN	0x0001,0x0007
07be 02db 02e2  |    |		.DBGLNO	0x02db,0x02e2,0x02eb,0x02f2,0x02f8,0x0300,0x0308,0x0310
07c6 ; --------------------------------------------------------------------------------------
07c6 ; Debug chain
07c6 ; --------------------------------------------------------------------------------------
07c6 0003 0009  |    |		.DBGLEN	0x0003,0x0009
07c8 031b 0320  |    |		.DBGLNO	0x031b,0x0320,0x0329,0x032f,0x0333,0x033a,0x0340,0x0348,0x034f,0x0352,0x035a,0x0362
07d4 ; --------------------------------------------------------------------------------------
07d4 ; Debug chain
07d4 ; --------------------------------------------------------------------------------------
07d4 0001 0007  |    |		.DBGLEN	0x0001,0x0007
07d6 036b 036d  | k m|		.DBGLNO	0x036b,0x036d,0x0370,0x0374,0x037a,0x0380,0x0382,0x0387
07de ; --------------------------------------------------------------------------------------
07de ; Debug chain
07de ; --------------------------------------------------------------------------------------
07de 0002 000e  |    |		.DBGLEN	0x0002,0x000e
07e0 0393 0395  |    |		.DBGLNO	0x0393,0x0395,0x0397,0x039a,0x039d,0x03a0,0x03a3,0x03aa,0x03b0,0x03b8,0x03ba,0x03bf,0x03c1,0x03c3,0x03c5,0x03ca
07f0 ; --------------------------------------------------------------------------------------
07f0 ; Debug chain
07f0 ; --------------------------------------------------------------------------------------
07f0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07f2 03d3       |    |		.DBGLNO	0x03d3
07f3 ; --------------------------------------------------------------------------------------
07f3 ; Debug chain
07f3 ; --------------------------------------------------------------------------------------
07f3 0001 0002  |    |		.DBGLEN	0x0001,0x0002
07f5 03db 03e2  |    |		.DBGLNO	0x03db,0x03e2,0x03e6
07f8 ; --------------------------------------------------------------------------------------
07f8 ; Debug chain
07f8 ; --------------------------------------------------------------------------------------
07f8 0001 0003  |    |		.DBGLEN	0x0001,0x0003
07fa 03f3 03fa  |    |		.DBGLNO	0x03f3,0x03fa,0x0404,0x0409
07fe ; --------------------------------------------------------------------------------------
07fe ; Debug chain
07fe ; --------------------------------------------------------------------------------------
07fe 0003 0008  |    |		.DBGLEN	0x0003,0x0008
0800 0413 0418  |    |		.DBGLNO	0x0413,0x0418,0x0419,0x041c,0x0421,0x0425,0x0427,0x042c,0x0430,0x0432,0x043a
080b ; --------------------------------------------------------------------------------------
080b ; Debug chain
080b ; --------------------------------------------------------------------------------------
080b 0000 0002  |    |		.DBGLEN	0x0000,0x0002
080d 0443 0446  | C F|		.DBGLNO	0x0443,0x0446
080f ; --------------------------------------------------------------------------------------
080f ; Debug chain
080f ; --------------------------------------------------------------------------------------
080f 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0811 0453 045a  | S Z|		.DBGLNO	0x0453,0x045a,0x046a
0814 ; --------------------------------------------------------------------------------------
0814 ; Debug chain
0814 ; --------------------------------------------------------------------------------------
0814 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0816 0474 047a  | t z|		.DBGLNO	0x0474,0x047a
0818 ; --------------------------------------------------------------------------------------
0818 ; Debug chain
0818 ; --------------------------------------------------------------------------------------
0818 0002 0007  |    |		.DBGLEN	0x0002,0x0007
081a 048b 0492  |    |		.DBGLNO	0x048b,0x0492,0x0498,0x04aa,0x04af,0x04b4,0x04bb,0x04bf,0x04cc
0823 0001 0002  |    |		.XXX[0x7]
0825 0003 0005  |    |
0827 0006 0004  |    |
0829 0007       |    |
082a ; --------------------------------------------------------------------------------------
082a ; Debug chain
082a ; --------------------------------------------------------------------------------------
082a 0001 0004  |    |		.DBGLEN	0x0001,0x0004
082c 04db 04e2  |    |		.DBGLNO	0x04db,0x04e2,0x04e7,0x04f1,0x04fb
0831 ; --------------------------------------------------------------------------------------
0831 ; Debug chain
0831 ; --------------------------------------------------------------------------------------
0831 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0833 0503 0507  |    |		.DBGLNO	0x0503,0x0507,0x0509
0836 ; --------------------------------------------------------------------------------------
0836 ; Debug chain
0836 ; --------------------------------------------------------------------------------------
0836 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0838 0513 0516  |    |		.DBGLNO	0x0513,0x0516,0x051a
083b ; --------------------------------------------------------------------------------------
083b ; Debug chain
083b ; --------------------------------------------------------------------------------------
083b 0001 0002  |    |		.DBGLEN	0x0001,0x0002
083d 0523 0526  | # &|		.DBGLNO	0x0523,0x0526,0x052a
0840 ; --------------------------------------------------------------------------------------
0840 ; Debug chain
0840 ; --------------------------------------------------------------------------------------
0840 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0842 0533 0536  | 3 6|		.DBGLNO	0x0533,0x0536,0x053a
0845 ; --------------------------------------------------------------------------------------
0845 ; Debug chain
0845 ; --------------------------------------------------------------------------------------
0845 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0847 0543 0546  | C F|		.DBGLNO	0x0543,0x0546,0x054a
084a ; --------------------------------------------------------------------------------------
084a ; Debug chain
084a ; --------------------------------------------------------------------------------------
084a 0001 0002  |    |		.DBGLEN	0x0001,0x0002
084c 0553 0556  | S V|		.DBGLNO	0x0553,0x0556,0x055a
084f ; --------------------------------------------------------------------------------------
084f ; Debug chain
084f ; --------------------------------------------------------------------------------------
084f 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0851 0563 0566  | c f|		.DBGLNO	0x0563,0x0566,0x056a
0854 ; --------------------------------------------------------------------------------------
0854 ; Debug chain
0854 ; --------------------------------------------------------------------------------------
0854 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0856 0573 0576  | s v|		.DBGLNO	0x0573,0x0576,0x057a
0859 ; --------------------------------------------------------------------------------------
0859 ; Debug chain
0859 ; --------------------------------------------------------------------------------------
0859 0001 0002  |    |		.DBGLEN	0x0001,0x0002
085b 0583 0586  |    |		.DBGLNO	0x0583,0x0586,0x058a
085e ; --------------------------------------------------------------------------------------
085e ; Debug chain
085e ; --------------------------------------------------------------------------------------
085e 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0860 0593 0596  |    |		.DBGLNO	0x0593,0x0596,0x059a
0863 ; --------------------------------------------------------------------------------------
0863 ; Debug chain
0863 ; --------------------------------------------------------------------------------------
0863 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0865 05a3 05a6  |    |		.DBGLNO	0x05a3,0x05a6,0x05aa
0868 ; --------------------------------------------------------------------------------------
0868 ; Debug chain
0868 ; --------------------------------------------------------------------------------------
0868 0007 0000  |    |		.DBGLEN	0x0007,0x0000
086a 05b3 05b5  |    |		.DBGLNO	0x05b3,0x05b5,0x05be,0x05c1,0x05c4,0x05c7,0x05ca
0871 ; --------------------------------------------------------------------------------------
0871 ; Debug chain
0871 ; --------------------------------------------------------------------------------------
0871 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0873 05d0 05d2  |    |		.DBGLNO	0x05d0,0x05d2,0x05d4,0x05d6
0877 ; --------------------------------------------------------------------------------------
0877 ; Debug chain
0877 ; --------------------------------------------------------------------------------------
0877 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0879 05e3 05e7  |    |		.DBGLNO	0x05e3,0x05e7,0x05e9
087c ; --------------------------------------------------------------------------------------
087c ; Debug chain
087c ; --------------------------------------------------------------------------------------
087c 0001 0005  |    |		.DBGLEN	0x0001,0x0005
087e 05fb 05fc  |    |		.DBGLNO	0x05fb,0x05fc,0x0603,0x060d,0x060f,0x0617
0884 ; --------------------------------------------------------------------------------------
0884 ; Debug chain
0884 ; --------------------------------------------------------------------------------------
0884 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0886 0623 0624  | # $|		.DBGLNO	0x0623,0x0624,0x0626,0x062e,0x0638,0x063b,0x063d,0x0641
088e ; --------------------------------------------------------------------------------------
088e ; Debug chain
088e ; --------------------------------------------------------------------------------------
088e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0890 064b       | K  |		.DBGLNO	0x064b
0891 0000 0000  |    |		.BLANK	0000[0x16f]