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

⟦ee8bbaddc⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0444f7

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0658       | X  |		.CONST	0x0658								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0113       |    |		.CONST	0x0113								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0037       | 7  |		.CONST	0x0037								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 00c4       |    |		Action	Make_Default
000d 0007       |    |		Action	Break_Optional
000e 0007       |    |		Action	Break_Optional
000f 00e4       |    |		Load_Encached	Positive_Cache
0010 0266       | f  |		Execute	Discrete,Bounds
0011 e003       |    |		Load	0x0,0x3
0012 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
0014 4801       |H   |		Short_Literal	0x1
0015 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0016 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0018 0007       |    |		Action	Break_Optional
0019 4800       |H   |		Short_Literal	0x0
001a e004       |    |		Load	0x0,0x4
001b 00e3       |    |		Load_Encached	Natural_Cache
001c 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001d 4801       |H   |		Short_Literal	0x1
001e e004       |    |		Load	0x0,0x4
001f 00da       |    |		Load_Top	At_Offset_2
0020 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0021 00d8       |    |		Load_Top	At_Offset_0
0022 0266       | f  |		Execute	Discrete,Bounds
0023 e005       |    |		Load	0x0,0x5
0024 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0026 4801       |H   |		Short_Literal	0x1
0027 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0028 00d9       |    |		Load_Top	At_Offset_1
0029 0266       | f  |		Execute	Discrete,Bounds
002a e006       |    |		Load	0x0,0x6
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 4801       |H   |		Short_Literal	0x1
002d 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
002e 0007       |    |		Action	Break_Optional
002f 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0031 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0033 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0035 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0037 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0039 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
003b 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
003d 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
003f 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0041 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0043 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
0045 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0047 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0049 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
004b 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
004d 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
004f 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0051 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0053 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0055 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
0057 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0059 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
005b 0093 0000  |    |		push_full_address	0x0
005d 60da       |`   |		Indirect_Literal	Discrete,0x138,{0x80000000, 0x00020000}
005e 0273       | s  |		Execute	Discrete,Plus
005f e007       |    |		Load	0x0,0x7
0060 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0061 60d2       |`   |		Indirect_Literal	Discrete,0x134,{0x00000000, 0x0000ffff}
0062 0279       | y  |		Execute	Discrete,And
0063 0273       | s  |		Execute	Discrete,Plus
0064 0129       | )  |		Execute	Any,Make_Visible
0065 0007       |    |		Action	Break_Optional
0066 00e3       |    |		Load_Encached	Natural_Cache
0067 4800       |H   |		Short_Literal	0x0
0068 4801       |H   |		Short_Literal	0x1
0069 4801       |H   |		Short_Literal	0x1
006a 4805       |H   |		Short_Literal	0x5
006b 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
006c 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
006e 00d9       |    |		Load_Top	At_Offset_1
006f 012a       | *  |		Execute	Any,Change_Utility
0070 0007       |    |		Action	Break_Optional
0071 00d8       |    |		Load_Top	At_Offset_0
0072 02a0       |    |		Declare_Subprogram	Null_Subprogram
0073 4818       |H   |		Short_Literal	0x18
0074 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0075 00d8       |    |		Load_Top	At_Offset_0
0076 0129       | )  |		Execute	Any,Make_Visible
0077 c20d       |    |		Store	0x1,0xd
0078 00bf       |    |		Action	Accept_Activation
0079 e210       |    |		Load	0x1,0x10
007a 4801       |H   |		Short_Literal	0x1
007b e212       |    |		Load	0x1,0x12
007c 01dc       |    |		Execute	Vector,Last
007d e210       |    |		Load	0x1,0x10
007e 0269       | i  |		Execute	Discrete,Last
007f 026c       | l  |		Execute	Discrete,Minimum
0080 e212       |    |		Load	0x1,0x12
0081 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
0082 029f 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Call
0084 4800       |H   |		Short_Literal	0x0
0085 4801       |H   |		Short_Literal	0x1
0086 4800       |H   |		Short_Literal	0x0
0087 4800       |H   |		Short_Literal	0x0
0088 4801       |H   |		Short_Literal	0x1
0089 4801       |H   |		Short_Literal	0x1
008a 031d       |    |		Declare_Type	Variant_Record,Defined
008b 4800       |H   |		Short_Literal	0x0
008c 00d9       |    |		Load_Top	At_Offset_1
008d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
008e 00d8       |    |		Load_Top	At_Offset_0
008f 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0090 0335       | 5  |		Declare_Variable	Array,Duplicate
0091 00cd       |    |		Action	Spare6_Action
0092 00d9       |    |		Load_Top	At_Offset_1
0093 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0094 01d9       |    |		Execute	Vector,Reverse_Bounds
0095 0263       | c  |		Execute	Discrete,Above_Bound
0096 7005       |p   |		Jump_Nonzero	0x9c
0097 e008       |    |		Load	0x0,0x8
0098 00d9       |    |		Load_Top	At_Offset_1
0099 e22f       | /  |		Load	0x1,0x2f
009a 01d6       |    |		Execute	Vector,Field_Write
009b 3ffb       |?   |		Loop_Increasing	0x97
009c 00d9       |    |		Load_Top	At_Offset_1
009d 00d8       |    |		Load_Top	At_Offset_0
009e 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
009f 00da       |    |		Load_Top	At_Offset_2
00a0 01da       |    |		Execute	Vector,Bounds
00a1 00da       |    |		Load_Top	At_Offset_2
00a2 01da       |    |		Execute	Vector,Bounds
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 027f       |    |		Execute	Discrete,Equal
00a5 7001       |p   |		Jump_Nonzero	0xa7
00a6 08e0       |    |		Execute_Immediate	Raise,0xe0
00a7 00cd       |    |		Action	Spare6_Action
00a8 027f       |    |		Execute	Discrete,Equal
00a9 7001       |p   |		Jump_Nonzero	0xab
00aa 08e0       |    |		Execute_Immediate	Raise,0xe0
00ab 00d2       |    |		Pop_Control	Pop_Count_2
00ac 00d9       |    |		Load_Top	At_Offset_1
00ad 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00ae 00e3       |    |		Load_Encached	Natural_Cache
00af 0266       | f  |		Execute	Discrete,Bounds
00b0 00db       |    |		Load_Top	At_Offset_3
00b1 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
00b3 4801       |H   |		Short_Literal	0x1
00b4 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
00b5 e210       |    |		Load	0x1,0x10
00b6 4801       |H   |		Short_Literal	0x1
00b7 e213       |    |		Load	0x1,0x13
00b8 01dc       |    |		Execute	Vector,Last
00b9 e210       |    |		Load	0x1,0x10
00ba 0269       | i  |		Execute	Discrete,Last
00bb 026c       | l  |		Execute	Discrete,Minimum
00bc e213       |    |		Load	0x1,0x13
00bd 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
00be 029f 0523  |   #|		Declare_Subprogram	INIT_0520,For_Call
00c0 4800       |H   |		Short_Literal	0x0
00c1 4801       |H   |		Short_Literal	0x1
00c2 4800       |H   |		Short_Literal	0x0
00c3 4800       |H   |		Short_Literal	0x0
00c4 4801       |H   |		Short_Literal	0x1
00c5 4801       |H   |		Short_Literal	0x1
00c6 031d       |    |		Declare_Type	Variant_Record,Defined
00c7 e009       |    |		Load	0x0,0x9
00c8 00e3       |    |		Load_Encached	Natural_Cache
00c9 00da       |    |		Load_Top	At_Offset_2
00ca 4801       |H   |		Short_Literal	0x1
00cb 6064       |`d  |		Indirect_Literal	Discrete,0x130,{0x00000000, 0x7fffffff}
00cc e22f       | /  |		Load	0x1,0x2f
00cd 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
00ce 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
00d0 4800       |H   |		Short_Literal	0x0
00d1 4801       |H   |		Short_Literal	0x1
00d2 4803       |H   |		Short_Literal	0x3
00d3 e22b       | +  |		Load	0x1,0x2b
00d4 0307       |    |		Complete_Type	Variant_Record,By_Defining
00d5 e22c       | ,  |		Load	0x1,0x2c
00d6 03c4       |    |		Complete_Type	Access,By_Component_Completion
00d7 029d 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call
00d9 029d 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call
00db 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00dc 00c7       |    |		Action	Elaborate_Subprogram
00dd 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00de 00c7       |    |		Action	Elaborate_Subprogram
00df 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00e0 00c7       |    |		Action	Elaborate_Subprogram
00e1 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00e2 00c7       |    |		Action	Elaborate_Subprogram
00e3 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00e4 00c7       |    |		Action	Elaborate_Subprogram
00e5 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00e6 00c7       |    |		Action	Elaborate_Subprogram
00e7 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00e8 00c7       |    |		Action	Elaborate_Subprogram
00e9 029d 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call
00eb 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00ec 00c7       |    |		Action	Elaborate_Subprogram
00ed 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00ee 00c7       |    |		Action	Elaborate_Subprogram
00ef 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00f0 00c7       |    |		Action	Elaborate_Subprogram
00f1 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00f2 00c7       |    |		Action	Elaborate_Subprogram
00f3 029d 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call
00f5 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00f6 00c7       |    |		Action	Elaborate_Subprogram
00f7 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00f8 00c7       |    |		Action	Elaborate_Subprogram
00f9 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00fa 00c7       |    |		Action	Elaborate_Subprogram
00fb 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00fc 00c7       |    |		Action	Elaborate_Subprogram
00fd 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00fe 00c7       |    |		Action	Elaborate_Subprogram
00ff 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0100 00c7       |    |		Action	Elaborate_Subprogram
0101 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0102 00c7       |    |		Action	Elaborate_Subprogram
0103 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0104 00c7       |    |		Action	Elaborate_Subprogram
0105 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call
0107 029d 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call
0109 029d 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call
010b 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
010c 00c7       |    |		Action	Elaborate_Subprogram
010d 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
010e 00c7       |    |		Action	Elaborate_Subprogram
010f 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0110 00c7       |    |		Action	Elaborate_Subprogram
0111 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0112 00c7       |    |		Action	Elaborate_Subprogram
0113			BODY_0008:
0113 00bc       |    |		Action	Signal_Activated
0114 00bb       |    |		Action	Signal_Completion
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00d1       |    |		Pop_Control	Pop_Count_1
011c 00da       |    |		Load_Top	At_Offset_2
011d 01d8       |    |		Execute	Vector,Element_Type
011e 0322       | "  |		Declare_Variable	Record
011f 00d8       |    |		Load_Top	At_Offset_0
0120 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0121 00db       |    |		Load_Top	At_Offset_3
0122 01dc       |    |		Execute	Vector,Last
0123 e5ff       |    |		Load	0x2,-0x1
0124 01dd       |    |		Execute	Vector,First
0125 0263       | c  |		Execute	Discrete,Above_Bound
0126 7006       |p   |		Jump_Nonzero	0x12d
0127 00da       |    |		Load_Top	At_Offset_2
0128 00d9       |    |		Load_Top	At_Offset_1
0129 e5ff       |    |		Load	0x2,-0x1
012a 01d6       |    |		Execute	Vector,Field_Write
012b 0a01       |    |		Execute_Immediate	Plus,0x1
012c 7ff8       |    |		Jump	0x125
012d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
012e 0000 0000  |    |		.XXX[0x2]
0130 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0134 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0138 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 4801       |H   |		Short_Literal	0x1
0144 4800       |H   |		Short_Literal	0x0
0145 e20e       |    |		Load	0x1,0xe
0146 035b       | [  |		Declare_Type	Array,Constrained
0147 0337       | 7  |		Declare_Variable	Array
0148 e20e       |    |		Load	0x1,0xe
0149 01c6       |    |		Execute	Vector,Convert_To_Formal
014a 00ca       |    |		Action	Exit_Nullary_Function
014b 0000 0000  |    |		.BLANK	0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00d1       |    |		Pop_Control	Pop_Count_1
0154 00da       |    |		Load_Top	At_Offset_2
0155 01d8       |    |		Execute	Vector,Element_Type
0156 02ff       |    |		Declare_Variable	Variant_Record
0157 00d8       |    |		Load_Top	At_Offset_0
0158 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0159 00db       |    |		Load_Top	At_Offset_3
015a 01dc       |    |		Execute	Vector,Last
015b e5ff       |    |		Load	0x2,-0x1
015c 01dd       |    |		Execute	Vector,First
015d 0263       | c  |		Execute	Discrete,Above_Bound
015e 7006       |p   |		Jump_Nonzero	0x165
015f 00da       |    |		Load_Top	At_Offset_2
0160 00d9       |    |		Load_Top	At_Offset_1
0161 e5ff       |    |		Load	0x2,-0x1
0162 01d6       |    |		Execute	Vector,Field_Write
0163 0a01       |    |		Execute_Immediate	Plus,0x1
0164 7ff8       |    |		Jump	0x15d
0165 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0171       | q  |		.CONST	0x0171								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0003       |    |		.CONST	0x0003								; Number of locals
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 8216       |    |		Call	0x1,0x16
016d 8220       |    |		Call	0x1,0x20
016e e5fe       |    |		Load	0x2,-0x2
016f 8216       |    |		Call	0x1,0x16
0170 8220       |    |		Call	0x1,0x20
0171			BODY_0168:
0171 00d9       |    |		Load_Top	At_Offset_1
0172 01db       |    |		Execute	Vector,Length
0173 00d9       |    |		Load_Top	At_Offset_1
0174 01db       |    |		Execute	Vector,Length
0175 027f       |    |		Execute	Discrete,Equal
0176 6823       |h#  |		Jump_Zero	0x19a
0177 00cf       |    |		Action	Mark_Auxiliary
0178 00da       |    |		Load_Top	At_Offset_2
0179 01d9       |    |		Execute	Vector,Reverse_Bounds
017a 0263       | c  |		Execute	Discrete,Above_Bound
017b 701b       |p   |		Jump_Nonzero	0x197
017c 00d8       |    |		Load_Top	At_Offset_0
017d e402       |    |		Load	0x2,0x2
017e 01d5       |    |		Execute	Vector,Field_Reference
017f 800a       |    |		Call	0x0,0xa
0180 680a       |h   |		Jump_Zero	0x18b
0181 00d8       |    |		Load_Top	At_Offset_0
0182 e403       |    |		Load	0x2,0x3
0183 01d5       |    |		Execute	Vector,Field_Reference
0184 00d9       |    |		Load_Top	At_Offset_1
0185 e402       |    |		Load	0x2,0x2
0186 01d5       |    |		Execute	Vector,Field_Reference
0187 8214       |    |		Call	0x1,0x14
0188 700c       |p   |		Jump_Nonzero	0x195
0189 4800       |H   |		Short_Literal	0x0
018a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018b 00d8       |    |		Load_Top	At_Offset_0
018c e402       |    |		Load	0x2,0x2
018d 01d5       |    |		Execute	Vector,Field_Reference
018e 00d9       |    |		Load_Top	At_Offset_1
018f e403       |    |		Load	0x2,0x3
0190 01d5       |    |		Execute	Vector,Field_Reference
0191 016f       | o  |		Execute	Variant_Record,Equal
0192 7002       |p   |		Jump_Nonzero	0x195
0193 4800       |H   |		Short_Literal	0x0
0194 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0195 00c8       |    |		Action	Pop_Auxiliary_Range
0196 3fe5       |?   |		Loop_Increasing	0x17c
0197 00ce       |    |		Action	Pop_Auxiliary
0198 4801       |H   |		Short_Literal	0x1
0199 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019a 4800       |H   |		Short_Literal	0x0
019b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019c 0000 0000  |    |		.BLANK	0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 e5fe       |    |		Load	0x2,-0x2
01a5 8231       | 1  |		Call	0x1,0x31
01a6 800b       |    |		Call	0x0,0xb
01a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 800c       |    |		Call	0x0,0xc
01ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ae 0000 0000  |    |		.XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 800d       |    |		Call	0x0,0xd
01b5 8232       | 2  |		Call	0x1,0x32
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 e009       |    |		Load	0x0,0x9
01b8 0260       | `  |		Execute	Discrete,In_Type
01b9 7001       |p   |		Jump_Nonzero	0x1bb
01ba 0801       |    |		Execute_Immediate	Raise,0x1
01bb 800e       |    |		Call	0x0,0xe
01bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 800f       |    |		Call	0x0,0xf
01c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c6 0000 0000  |    |		.XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 800d       |    |		Call	0x0,0xd
01cd 8232       | 2  |		Call	0x1,0x32
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf e009       |    |		Load	0x0,0x9
01d0 0260       | `  |		Execute	Discrete,In_Type
01d1 7001       |p   |		Jump_Nonzero	0x1d3
01d2 0801       |    |		Execute_Immediate	Raise,0x1
01d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc e22c       | ,  |		Load	0x1,0x2c
01dd 022e       | .  |		Execute	Access,Not_Equal
01de 6809       |h   |		Jump_Zero	0x1e8
01df 00da       |    |		Load_Top	At_Offset_2
01e0 0227       | '  |		Execute	Access,All_Reference
01e1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 e009       |    |		Load	0x0,0x9
01e4 0260       | `  |		Execute	Discrete,In_Type
01e5 7001       |p   |		Jump_Nonzero	0x1e7
01e6 0801       |    |		Execute_Immediate	Raise,0x1
01e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e8 e010       |    |		Load	0x0,0x10
01e9 00d8       |    |		Load_Top	At_Offset_0
01ea e009       |    |		Load	0x0,0x9
01eb 0260       | `  |		Execute	Discrete,In_Type
01ec 7001       |p   |		Jump_Nonzero	0x1ee
01ed 0801       |    |		Execute_Immediate	Raise,0x1
01ee 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ef 0000       |    |		.XXX[0x1]
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 0227       | '  |		Execute	Access,All_Reference
01f5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00db       |    |		Load_Top	At_Offset_3
01fc e22b       | +  |		Load	0x1,0x2b
01fd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01fe 00db       |    |		Load_Top	At_Offset_3
01ff 00d9       |    |		Load_Top	At_Offset_1
0200 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0201 4800       |H   |		Short_Literal	0x0
0202 00d9       |    |		Load_Top	At_Offset_1
0203 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0204 00d8       |    |		Load_Top	At_Offset_0
0205 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0206 0335       | 5  |		Declare_Variable	Array,Duplicate
0207 00cd       |    |		Action	Spare6_Action
0208 00d9       |    |		Load_Top	At_Offset_1
0209 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
020a 01d9       |    |		Execute	Vector,Reverse_Bounds
020b 0263       | c  |		Execute	Discrete,Above_Bound
020c 7005       |p   |		Jump_Nonzero	0x212
020d e22e       | .  |		Load	0x1,0x2e
020e 00d9       |    |		Load_Top	At_Offset_1
020f e403       |    |		Load	0x2,0x3
0210 01d6       |    |		Execute	Vector,Field_Write
0211 3ffb       |?   |		Loop_Increasing	0x20d
0212 00d9       |    |		Load_Top	At_Offset_1
0213 00d8       |    |		Load_Top	At_Offset_0
0214 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0215 00da       |    |		Load_Top	At_Offset_2
0216 01da       |    |		Execute	Vector,Bounds
0217 00da       |    |		Load_Top	At_Offset_2
0218 01da       |    |		Execute	Vector,Bounds
0219 00da       |    |		Load_Top	At_Offset_2
021a 027f       |    |		Execute	Discrete,Equal
021b 7001       |p   |		Jump_Nonzero	0x21d
021c 08e0       |    |		Execute_Immediate	Raise,0xe0
021d 00cd       |    |		Action	Spare6_Action
021e 027f       |    |		Execute	Discrete,Equal
021f 7001       |p   |		Jump_Nonzero	0x221
0220 08e0       |    |		Execute_Immediate	Raise,0xe0
0221 00d2       |    |		Pop_Control	Pop_Count_2
0222 00d9       |    |		Load_Top	At_Offset_1
0223 2905       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0224 e5fd       |    |		Load	0x2,-0x3
0225 01db       |    |		Execute	Vector,Length
0226 e230       | 0  |		Load	0x1,0x30
0227 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0228 e5fd       |    |		Load	0x2,-0x3
0229 00d9       |    |		Load_Top	At_Offset_1
022a 00d8       |    |		Load_Top	At_Offset_0
022b 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
022c 00da       |    |		Load_Top	At_Offset_2
022d 01da       |    |		Execute	Vector,Bounds
022e 00da       |    |		Load_Top	At_Offset_2
022f 01da       |    |		Execute	Vector,Bounds
0230 00da       |    |		Load_Top	At_Offset_2
0231 027f       |    |		Execute	Discrete,Equal
0232 7001       |p   |		Jump_Nonzero	0x234
0233 08e0       |    |		Execute_Immediate	Raise,0xe0
0234 00cd       |    |		Action	Spare6_Action
0235 027f       |    |		Execute	Discrete,Equal
0236 7001       |p   |		Jump_Nonzero	0x238
0237 08e0       |    |		Execute_Immediate	Raise,0xe0
0238 00d2       |    |		Pop_Control	Pop_Count_2
0239 00d9       |    |		Load_Top	At_Offset_1
023a 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
023b 00d9       |    |		Load_Top	At_Offset_1
023c 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
023d e22c       | ,  |		Load	0x1,0x2c
023e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
023f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 4800       |H   |		Short_Literal	0x0
0244 00db       |    |		Load_Top	At_Offset_3
0245 0227       | '  |		Execute	Access,All_Reference
0246 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0247 00da       |    |		Load_Top	At_Offset_2
0248 0229       | )  |		Execute	Access,All_Read
0249 00d8       |    |		Load_Top	At_Offset_0
024a 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
024b 00d8       |    |		Load_Top	At_Offset_0
024c 0335       | 5  |		Declare_Variable	Array,Duplicate
024d 00cd       |    |		Action	Spare6_Action
024e 00d9       |    |		Load_Top	At_Offset_1
024f 01d9       |    |		Execute	Vector,Reverse_Bounds
0250 0263       | c  |		Execute	Discrete,Above_Bound
0251 7005       |p   |		Jump_Nonzero	0x257
0252 e22e       | .  |		Load	0x1,0x2e
0253 00d9       |    |		Load_Top	At_Offset_1
0254 e404       |    |		Load	0x2,0x4
0255 01d6       |    |		Execute	Vector,Field_Write
0256 3ffb       |?   |		Loop_Increasing	0x252
0257 00cd       |    |		Action	Spare6_Action
0258 00d9       |    |		Load_Top	At_Offset_1
0259 2905       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
025a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
025b 0000 0000  |    |		.BLANK	0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265       | e  |		.CONST	0x0265								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0002       |    |		.CONST	0x0002								; Number of locals
0263			INIT_0260:
0263 e006       |    |		Load	0x0,0x6
0264 0007       |    |		Action	Break_Optional
0265			BODY_0260:
0265 e5fe       |    |		Load	0x2,-0x2
0266 e5ff       |    |		Load	0x2,-0x1
0267 0227       | '  |		Execute	Access,All_Reference
0268 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0269 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
026a 01d7       |    |		Execute	Vector,Field_Read
026b 0039       | 9  |		Store_Top	Access,At_Offset_1
026c 00d8       |    |		Load_Top	At_Offset_0
026d 8011       |    |		Call	0x0,0x11
026e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
026f 0000       |    |		.XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0277       | w  |		.CONST	0x0277								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0002       |    |		.CONST	0x0002								; Number of locals
0273			INIT_0270:
0273 e5fd       |    |		Load	0x2,-0x3
0274 0227       | '  |		Execute	Access,All_Reference
0275 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0276 0007       |    |		Action	Break_Optional
0277			BODY_0270:
0277 00db       |    |		Load_Top	At_Offset_3
0278 00d9       |    |		Load_Top	At_Offset_1
0279 01d5       |    |		Execute	Vector,Field_Reference
027a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
027b 6807       |h   |		Jump_Zero	0x283
027c e5fe       |    |		Load	0x2,-0x2
027d e5ff       |    |		Load	0x2,-0x1
027e 00da       |    |		Load_Top	At_Offset_2
027f 01d5       |    |		Execute	Vector,Field_Reference
0280 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0281 8234       | 4  |		Call	0x1,0x34
0282 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0283 4800       |H   |		Short_Literal	0x0
0284 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0293       |    |		.CONST	0x0293								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0003       |    |		.CONST	0x0003								; Number of locals
028b			INIT_0288:
028b e22c       | ,  |		Load	0x1,0x2c
028c 00db       |    |		Load_Top	At_Offset_3
028d 8217       |    |		Call	0x1,0x17
028e 0039       | 9  |		Store_Top	Access,At_Offset_1
028f 00db       |    |		Load_Top	At_Offset_3
0290 8218       |    |		Call	0x1,0x18
0291 00e3       |    |		Load_Encached	Natural_Cache
0292 03f1       |    |		Declare_Variable	Discrete,With_Value
0293			BODY_0288:
0293 00d8       |    |		Load_Top	At_Offset_0
0294 00da       |    |		Load_Top	At_Offset_2
0295 0227       | '  |		Execute	Access,All_Reference
0296 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0297 01d5       |    |		Execute	Vector,Field_Reference
0298 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0299 0335       | 5  |		Declare_Variable	Array,Duplicate
029a 00cd       |    |		Action	Spare6_Action
029b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029c 0000 0000  |    |		.BLANK	0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ab       |    |		.CONST	0x02ab								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0003       |    |		.CONST	0x0003								; Number of locals
02a3			INIT_02a0:
02a3 e22c       | ,  |		Load	0x1,0x2c
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 8217       |    |		Call	0x1,0x17
02a6 0039       | 9  |		Store_Top	Access,At_Offset_1
02a7 00db       |    |		Load_Top	At_Offset_3
02a8 8218       |    |		Call	0x1,0x18
02a9 00e3       |    |		Load_Encached	Natural_Cache
02aa 03f1       |    |		Declare_Variable	Discrete,With_Value
02ab			BODY_02a0:
02ab e5fe       |    |		Load	0x2,-0x2
02ac 00d9       |    |		Load_Top	At_Offset_1
02ad 00db       |    |		Load_Top	At_Offset_3
02ae 0227       | '  |		Execute	Access,All_Reference
02af 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02b0 01d5       |    |		Execute	Vector,Field_Reference
02b1 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02b2 01d5       |    |		Execute	Vector,Field_Reference
02b3 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
02b4 00cd       |    |		Action	Spare6_Action
02b5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b6 0000 0000  |    |		.XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02ce       |    |		.CONST	0x02ce								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0006       |    |		.CONST	0x0006								; Number of locals
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 0227       | '  |		Execute	Access,All_Reference
02bd 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
02be 0007       |    |		Action	Break_Optional
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 0227       | '  |		Execute	Access,All_Reference
02c1 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02c2 0007       |    |		Action	Break_Optional
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 821a       |    |		Call	0x1,0x1a
02c5 e009       |    |		Load	0x0,0x9
02c6 1c04       |    |		Execute_Immediate	Run_Utility,0x4
02c7 00e3       |    |		Load_Encached	Natural_Cache
02c8 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
02c9 00e3       |    |		Load_Encached	Natural_Cache
02ca e003       |    |		Load	0x0,0x3
02cb 0322       | "  |		Declare_Variable	Record
02cc 00d8       |    |		Load_Top	At_Offset_0
02cd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ce			BODY_02b8:
02ce 00cf       |    |		Action	Mark_Auxiliary
02cf e402       |    |		Load	0x2,0x2
02d0 01d9       |    |		Execute	Vector,Reverse_Bounds
02d1 0263       | c  |		Execute	Discrete,Above_Bound
02d2 7034       |p4  |		Jump_Nonzero	0x307
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 e402       |    |		Load	0x2,0x2
02d5 01d5       |    |		Execute	Vector,Field_Reference
02d6 e22e       | .  |		Load	0x1,0x2e
02d7 016f       | o  |		Execute	Variant_Record,Equal
02d8 682c       |h,  |		Jump_Zero	0x305
02d9 e5fe       |    |		Load	0x2,-0x2
02da 01db       |    |		Execute	Vector,Length
02db e22d       | -  |		Load	0x1,0x2d
02dc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02dd e5fe       |    |		Load	0x2,-0x2
02de 00d9       |    |		Load_Top	At_Offset_1
02df 00d8       |    |		Load_Top	At_Offset_0
02e0 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 01da       |    |		Execute	Vector,Bounds
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 01da       |    |		Execute	Vector,Bounds
02e5 00da       |    |		Load_Top	At_Offset_2
02e6 027f       |    |		Execute	Discrete,Equal
02e7 7001       |p   |		Jump_Nonzero	0x2e9
02e8 08e0       |    |		Execute_Immediate	Raise,0xe0
02e9 00cd       |    |		Action	Spare6_Action
02ea 027f       |    |		Execute	Discrete,Equal
02eb 7001       |p   |		Jump_Nonzero	0x2ed
02ec 08e0       |    |		Execute_Immediate	Raise,0xe0
02ed 00d2       |    |		Pop_Control	Pop_Count_2
02ee 00d9       |    |		Load_Top	At_Offset_1
02ef 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
02f0 00d9       |    |		Load_Top	At_Offset_1
02f1 e402       |    |		Load	0x2,0x2
02f2 01d6       |    |		Execute	Vector,Field_Write
02f3 00d8       |    |		Load_Top	At_Offset_0
02f4 a405       |    |		Store_Unchecked	0x2,0x5
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 e403       |    |		Load	0x2,0x3
02f7 027d       | }  |		Execute	Discrete,Greater
02f8 6802       |h   |		Jump_Zero	0x2fb
02f9 00d8       |    |		Load_Top	At_Offset_0
02fa a403       |    |		Store_Unchecked	0x2,0x3
02fb e405       |    |		Load	0x2,0x5
02fc e404       |    |		Load	0x2,0x4
02fd 800b       |    |		Call	0x0,0xb
02fe e406       |    |		Load	0x2,0x6
02ff 017d       | }  |		Execute	Record,Structure_Write
0300 00db       |    |		Load_Top	At_Offset_3
0301 8012       |    |		Call	0x0,0x12
0302 e5fd       |    |		Load	0x2,-0x3
0303 016d       | m  |		Execute	Variant_Record,Structure_Write
0304 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0305 00c8       |    |		Action	Pop_Auxiliary_Range
0306 3fcc       |?   |		Loop_Increasing	0x2d3
0307 00ce       |    |		Action	Pop_Auxiliary
0308 e22a       | *  |		Load	0x1,0x2a
0309 0257       | W  |		Execute	Discrete,Raise
030a 0000 0000  |    |		.BLANK	0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0323       | #  |		.CONST	0x0323								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0005       |    |		.CONST	0x0005								; Number of locals
0313			INIT_0310:
0313 e22c       | ,  |		Load	0x1,0x2c
0314 00db       |    |		Load_Top	At_Offset_3
0315 8217       |    |		Call	0x1,0x17
0316 0039       | 9  |		Store_Top	Access,At_Offset_1
0317 00db       |    |		Load_Top	At_Offset_3
0318 8218       |    |		Call	0x1,0x18
0319 00e3       |    |		Load_Encached	Natural_Cache
031a 03f1       |    |		Declare_Variable	Discrete,With_Value
031b 00d9       |    |		Load_Top	At_Offset_1
031c 0227       | '  |		Execute	Access,All_Reference
031d 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
031e 0007       |    |		Action	Break_Optional
031f 00da       |    |		Load_Top	At_Offset_2
0320 0227       | '  |		Execute	Access,All_Reference
0321 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0322 0007       |    |		Action	Break_Optional
0323			BODY_0310:
0323 e22e       | .  |		Load	0x1,0x2e
0324 00db       |    |		Load_Top	At_Offset_3
0325 00db       |    |		Load_Top	At_Offset_3
0326 01d6       |    |		Execute	Vector,Field_Write
0327 00d8       |    |		Load_Top	At_Offset_0
0328 00db       |    |		Load_Top	At_Offset_3
0329 027f       |    |		Execute	Discrete,Equal
032a 6815       |h   |		Jump_Zero	0x340
032b 00d8       |    |		Load_Top	At_Offset_0
032c 0aff       |    |		Execute_Immediate	Plus,-0x1
032d c405       |    |		Store	0x2,0x5
032e 00cf       |    |		Action	Mark_Auxiliary
032f 4801       |H   |		Short_Literal	0x1
0330 00da       |    |		Load_Top	At_Offset_2
0331 0264       | d  |		Execute	Discrete,Below_Bound
0332 700c       |p   |		Jump_Nonzero	0x33f
0333 00d8       |    |		Load_Top	At_Offset_0
0334 e404       |    |		Load	0x2,0x4
0335 01d5       |    |		Execute	Vector,Field_Reference
0336 e22e       | .  |		Load	0x1,0x2e
0337 016e       | n  |		Execute	Variant_Record,Not_Equal
0338 6802       |h   |		Jump_Zero	0x33b
0339 00d2       |    |		Pop_Control	Pop_Count_2
033a 7804       |x   |		Jump	0x33f
033b 00d8       |    |		Load_Top	At_Offset_0
033c a405       |    |		Store_Unchecked	0x2,0x5
033d 00c8       |    |		Action	Pop_Auxiliary_Range
033e 37f4       |7   |		Loop_Decreasing	0x333
033f 00ce       |    |		Action	Pop_Auxiliary
0340 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0341 0000 0000  |    |		.BLANK	0000[0x7]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0353       | S  |		.CONST	0x0353								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0003       |    |		.CONST	0x0003								; Number of locals
034b			INIT_0348:
034b e22c       | ,  |		Load	0x1,0x2c
034c 00db       |    |		Load_Top	At_Offset_3
034d 8217       |    |		Call	0x1,0x17
034e 0039       | 9  |		Store_Top	Access,At_Offset_1
034f 00db       |    |		Load_Top	At_Offset_3
0350 8218       |    |		Call	0x1,0x18
0351 00e3       |    |		Load_Encached	Natural_Cache
0352 03f1       |    |		Declare_Variable	Discrete,With_Value
0353			BODY_0348:
0353 e5fe       |    |		Load	0x2,-0x2
0354 01db       |    |		Execute	Vector,Length
0355 e22d       | -  |		Load	0x1,0x2d
0356 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0357 e5fe       |    |		Load	0x2,-0x2
0358 00d9       |    |		Load_Top	At_Offset_1
0359 00d8       |    |		Load_Top	At_Offset_0
035a 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
035b 00da       |    |		Load_Top	At_Offset_2
035c 01da       |    |		Execute	Vector,Bounds
035d 00da       |    |		Load_Top	At_Offset_2
035e 01da       |    |		Execute	Vector,Bounds
035f 00da       |    |		Load_Top	At_Offset_2
0360 027f       |    |		Execute	Discrete,Equal
0361 7001       |p   |		Jump_Nonzero	0x363
0362 08e0       |    |		Execute_Immediate	Raise,0xe0
0363 00cd       |    |		Action	Spare6_Action
0364 027f       |    |		Execute	Discrete,Equal
0365 7001       |p   |		Jump_Nonzero	0x367
0366 08e0       |    |		Execute_Immediate	Raise,0xe0
0367 00d2       |    |		Pop_Control	Pop_Count_2
0368 00d9       |    |		Load_Top	At_Offset_1
0369 2902       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
036a 00d9       |    |		Load_Top	At_Offset_1
036b 00db       |    |		Load_Top	At_Offset_3
036c 0227       | '  |		Execute	Access,All_Reference
036d 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
036e 01d6       |    |		Execute	Vector,Field_Write
036f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037b       | {  |		.CONST	0x037b								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0003       |    |		.CONST	0x0003								; Number of locals
0373			INIT_0370:
0373 e22c       | ,  |		Load	0x1,0x2c
0374 00db       |    |		Load_Top	At_Offset_3
0375 8217       |    |		Call	0x1,0x17
0376 0039       | 9  |		Store_Top	Access,At_Offset_1
0377 00db       |    |		Load_Top	At_Offset_3
0378 8218       |    |		Call	0x1,0x18
0379 00e3       |    |		Load_Encached	Natural_Cache
037a 03f1       |    |		Declare_Variable	Discrete,With_Value
037b			BODY_0370:
037b e5fd       |    |		Load	0x2,-0x3
037c e5fe       |    |		Load	0x2,-0x2
037d 00da       |    |		Load_Top	At_Offset_2
037e e402       |    |		Load	0x2,0x2
037f 0227       | '  |		Execute	Access,All_Reference
0380 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0381 01d5       |    |		Execute	Vector,Field_Reference
0382 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0383 01d6       |    |		Execute	Vector,Field_Write
0384 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0385 0000 0000  |    |		.XXX[0x3]
0387 0000       |    |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0393       |    |		.CONST	0x0393								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0003       |    |		.CONST	0x0003								; Number of locals
038b			INIT_0388:
038b 00da       |    |		Load_Top	At_Offset_2
038c 8218       |    |		Call	0x1,0x18
038d 00e3       |    |		Load_Encached	Natural_Cache
038e 03f1       |    |		Declare_Variable	Discrete,With_Value
038f e22c       | ,  |		Load	0x1,0x2c
0390 e5ff       |    |		Load	0x2,-0x1
0391 8217       |    |		Call	0x1,0x17
0392 0039       | 9  |		Store_Top	Access,At_Offset_1
0393			BODY_0388:
0393 00d8       |    |		Load_Top	At_Offset_0
0394 00da       |    |		Load_Top	At_Offset_2
0395 8233       | 3  |		Call	0x1,0x33
0396 6823       |h#  |		Jump_Zero	0x3ba
0397 e5fe       |    |		Load	0x2,-0x2
0398 00d9       |    |		Load_Top	At_Offset_1
0399 0227       | '  |		Execute	Access,All_Reference
039a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
039b e009       |    |		Load	0x0,0x9
039c 1c04       |    |		Execute_Immediate	Run_Utility,0x4
039d e009       |    |		Load	0x0,0x9
039e 0122       | "  |		Execute	Any,Make_Root_Type
039f 011c       |    |		Execute	Any,Convert_Unchecked
03a0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03a1 0092 061e  |    |		Action	Push_String_Extended,0x61e					; "'("
03a3 01cc       |    |		Execute	Vector,Catenate
03a4 8013       |    |		Call	0x0,0x13
03a5 e5fe       |    |		Load	0x2,-0x2
03a6 8014       |    |		Call	0x0,0x14
03a7 e5fe       |    |		Load	0x2,-0x2
03a8 00d9       |    |		Load_Top	At_Offset_1
03a9 0227       | '  |		Execute	Access,All_Reference
03aa 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
03ab 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
03ac 00db       |    |		Load_Top	At_Offset_3
03ad 00db       |    |		Load_Top	At_Offset_3
03ae 0227       | '  |		Execute	Access,All_Reference
03af 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
03b0 01d5       |    |		Execute	Vector,Field_Reference
03b1 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
03b2 8236       | 6  |		Call	0x1,0x36
03b3 e5fe       |    |		Load	0x2,-0x2
03b4 8015       |    |		Call	0x0,0x15
03b5 e5fe       |    |		Load	0x2,-0x2
03b6 0092 061f  |    |		Action	Push_String_Extended,0x61f					; ")"
03b8 8013       |    |		Call	0x0,0x13
03b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03ba e5fe       |    |		Load	0x2,-0x2
03bb 0092 0620  |    |		Action	Push_String_Extended,0x620					; "null_object"
03bd 8013       |    |		Call	0x0,0x13
03be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03bf 0000       |    |		.XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 00db       |    |		Load_Top	At_Offset_3
03c4 0092 0621  |   !|		Action	Push_String_Extended,0x621					; "Collection'("
03c6 8013       |    |		Call	0x0,0x13
03c7 00db       |    |		Load_Top	At_Offset_3
03c8 8014       |    |		Call	0x0,0x14
03c9 00da       |    |		Load_Top	At_Offset_2
03ca 01db       |    |		Execute	Vector,Length
03cb 680d       |h   |		Jump_Zero	0x3d9
03cc 00cf       |    |		Action	Mark_Auxiliary
03cd 00db       |    |		Load_Top	At_Offset_3
03ce 01d9       |    |		Execute	Vector,Reverse_Bounds
03cf 0263       | c  |		Execute	Discrete,Above_Bound
03d0 7007       |p   |		Jump_Nonzero	0x3d8
03d1 e5fe       |    |		Load	0x2,-0x2
03d2 00d9       |    |		Load_Top	At_Offset_1
03d3 e5ff       |    |		Load	0x2,-0x1
03d4 01d5       |    |		Execute	Vector,Field_Reference
03d5 8226       | &  |		Call	0x1,0x26
03d6 00c8       |    |		Action	Pop_Auxiliary_Range
03d7 3ff9       |?   |		Loop_Increasing	0x3d1
03d8 00ce       |    |		Action	Pop_Auxiliary
03d9 00db       |    |		Load_Top	At_Offset_3
03da 8015       |    |		Call	0x0,0x15
03db 4801       |H   |		Short_Literal	0x1
03dc e5fe       |    |		Load	0x2,-0x2
03dd 8016       |    |		Call	0x0,0x16
03de 00db       |    |		Load_Top	At_Offset_3
03df 0092 061f  |    |		Action	Push_String_Extended,0x61f					; ")"
03e1 8013       |    |		Call	0x0,0x13
03e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03e3 0000 0000  |    |		.BLANK	0000[0x5]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03fb       |    |		.CONST	0x03fb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0004       |    |		.CONST	0x0004								; Number of locals
03eb			INIT_03e8:
03eb 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
03ec 00c6       |    |		Action	Check_Subprogram_Elaborated
03ed 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
03ee 0093 0000  |    |		push_full_address	0x0
03f0 601b       |`   |		Indirect_Literal	Discrete,0x40c,{0x80000000, 0x00010000}
03f1 0273       | s  |		Execute	Discrete,Plus
03f2 e007       |    |		Load	0x0,0x7
03f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f4 6013       |`   |		Indirect_Literal	Discrete,0x408,{0x00000000, 0x0000ffff}
03f5 0279       | y  |		Execute	Discrete,And
03f6 0273       | s  |		Execute	Discrete,Plus
03f7 e017       |    |		Load	0x0,0x17
03f8 0273       | s  |		Execute	Discrete,Plus
03f9 4804       |H   |		Short_Literal	0x4
03fa 0007       |    |		Action	Break_Optional
03fb			BODY_03e8:
03fb e5fe       |    |		Load	0x2,-0x2
03fc e5ff       |    |		Load	0x2,-0x1
03fd 4802       |H   |		Short_Literal	0x2
03fe 4802       |H   |		Short_Literal	0x2
03ff 0099       |    |		Action	Reference_Dynamic
0400 4803       |H   |		Short_Literal	0x3
0401 4802       |H   |		Short_Literal	0x2
0402 0099       |    |		Action	Reference_Dynamic
0403 8229       | )  |		Call	0x1,0x29
0404 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0405 0000 0000  |    |		.XXX[0x3]
0407 0000       |    |
0408 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
040c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 e5fd       |    |		Load	0x2,-0x3
0414 e22c       | ,  |		Load	0x1,0x2c
0415 022e       | .  |		Execute	Access,Not_Equal
0416 6845       |hE  |		Jump_Zero	0x45c
0417 e5fc       |    |		Load	0x2,-0x4
0418 0092 0622  |   "|		Action	Push_String_Extended,0x622					; "Class'("
041a 8013       |    |		Call	0x0,0x13
041b e5fc       |    |		Load	0x2,-0x4
041c 8014       |    |		Call	0x0,0x14
041d e5fc       |    |		Load	0x2,-0x4
041e 0092 0623  |   #|		Action	Push_String_Extended,0x623					; "Kind      => "
0420 e5fd       |    |		Load	0x2,-0x3
0421 0227       | '  |		Execute	Access,All_Reference
0422 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0423 e009       |    |		Load	0x0,0x9
0424 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0425 e009       |    |		Load	0x0,0x9
0426 0122       | "  |		Execute	Any,Make_Root_Type
0427 011c       |    |		Execute	Any,Convert_Unchecked
0428 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0429 01cc       |    |		Execute	Vector,Catenate
042a 8013       |    |		Call	0x0,0x13
042b e5fc       |    |		Load	0x2,-0x4
042c 0092 0624  |   $|		Action	Push_String_Extended,0x624					; "Size      => "
042e e5fd       |    |		Load	0x2,-0x3
042f 0227       | '  |		Execute	Access,All_Reference
0430 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0431 00e0       |    |		Load_Encached	Standard_Cache
0432 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0433 01cc       |    |		Execute	Vector,Catenate
0434 8013       |    |		Call	0x0,0x13
0435 e5fc       |    |		Load	0x2,-0x4
0436 0092 0625  |   %|		Action	Push_String_Extended,0x625					; "Instances => Collection'("
0438 8013       |    |		Call	0x0,0x13
0439 e5fc       |    |		Load	0x2,-0x4
043a 8014       |    |		Call	0x0,0x14
043b 00cf       |    |		Action	Mark_Auxiliary
043c e5fd       |    |		Load	0x2,-0x3
043d 821b       |    |		Call	0x1,0x1b
043e 4801       |H   |		Short_Literal	0x1
043f 0263       | c  |		Execute	Discrete,Above_Bound
0440 700e       |p   |		Jump_Nonzero	0x44f
0441 e5fc       |    |		Load	0x2,-0x4
0442 00d9       |    |		Load_Top	At_Offset_1
0443 8018       |    |		Call	0x0,0x18
0444 e5fc       |    |		Load	0x2,-0x4
0445 0092 0626  |   &|		Action	Push_String_Extended,0x626					; " => "
0447 8019       |    |		Call	0x0,0x19
0448 e5fc       |    |		Load	0x2,-0x4
0449 e5fd       |    |		Load	0x2,-0x3
044a 00da       |    |		Load_Top	At_Offset_2
044b 8215       |    |		Call	0x1,0x15
044c 85fe       |    |		Call	0x2,-0x2
044d 00c8       |    |		Action	Pop_Auxiliary_Range
044e 3ff2       |?   |		Loop_Increasing	0x441
044f 00ce       |    |		Action	Pop_Auxiliary
0450 e5fc       |    |		Load	0x2,-0x4
0451 8015       |    |		Call	0x0,0x15
0452 e5fc       |    |		Load	0x2,-0x4
0453 0092 061f  |    |		Action	Push_String_Extended,0x61f					; ")"
0455 8013       |    |		Call	0x0,0x13
0456 e5fc       |    |		Load	0x2,-0x4
0457 8015       |    |		Call	0x0,0x15
0458 e5fc       |    |		Load	0x2,-0x4
0459 0092 061f  |    |		Action	Push_String_Extended,0x61f					; ")"
045b 8013       |    |		Call	0x0,0x13
045c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
045d 0000 0000  |    |		.XXX[0x3]
045f 0000       |    |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			BODY_0460:
0463			INIT_0460:
0463			INIT_0460:
0463 4609       |F   |		Jump_Case	0xa
0464 7809       |x   |		Jump	0x46e								; case 0x0
0465 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0466 782d       |x-  |		Jump	0x494								; case 0x2
0467 7830       |x0  |		Jump	0x498								; case 0x3
0468 7835       |x5  |		Jump	0x49e								; case 0x4
0469 783c       |x<  |		Jump	0x4a6								; case 0x5
046a 7858       |xX  |		Jump	0x4c3								; case 0x6
046b 7844       |xD  |		Jump	0x4b0								; case 0x7
046c 784c       |xL  |		Jump	0x4b9								; case 0x8
046d 7855       |xU  |		Jump	0x4c3								; case 0x9
046e 4800       |H   |		Short_Literal	0x0
046f 00db       |    |		Load_Top	At_Offset_3
0470 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0471 00da       |    |		Load_Top	At_Offset_2
0472 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0473 0335       | 5  |		Declare_Variable	Array,Duplicate
0474 00cd       |    |		Action	Spare6_Action
0475 00db       |    |		Load_Top	At_Offset_3
0476 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0477 01d9       |    |		Execute	Vector,Reverse_Bounds
0478 0263       | c  |		Execute	Discrete,Above_Bound
0479 7005       |p   |		Jump_Nonzero	0x47f
047a e22e       | .  |		Load	0x1,0x2e
047b 00d9       |    |		Load_Top	At_Offset_1
047c e402       |    |		Load	0x2,0x2
047d 01d6       |    |		Execute	Vector,Field_Write
047e 3ffb       |?   |		Loop_Increasing	0x47a
047f 00db       |    |		Load_Top	At_Offset_3
0480 00d8       |    |		Load_Top	At_Offset_0
0481 2505       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0482 00da       |    |		Load_Top	At_Offset_2
0483 01da       |    |		Execute	Vector,Bounds
0484 00da       |    |		Load_Top	At_Offset_2
0485 01da       |    |		Execute	Vector,Bounds
0486 00da       |    |		Load_Top	At_Offset_2
0487 027f       |    |		Execute	Discrete,Equal
0488 7001       |p   |		Jump_Nonzero	0x48a
0489 08e0       |    |		Execute_Immediate	Raise,0xe0
048a 00cd       |    |		Action	Spare6_Action
048b 027f       |    |		Execute	Discrete,Equal
048c 7001       |p   |		Jump_Nonzero	0x48e
048d 08e0       |    |		Execute_Immediate	Raise,0xe0
048e 00d1       |    |		Pop_Control	Pop_Count_1
048f 2905       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0490 00da       |    |		Load_Top	At_Offset_2
0491 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0492 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0493 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0494 4801       |H   |		Short_Literal	0x1
0495 4805       |H   |		Short_Literal	0x5
0496 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0497 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0498 e5fd       |    |		Load	0x2,-0x3
0499 00db       |    |		Load_Top	At_Offset_3
049a 1c07       |    |		Execute_Immediate	Run_Utility,0x7
049b e5fe       |    |		Load	0x2,-0x2
049c 0306       |    |		Complete_Type	Variant_Record,By_Renaming
049d 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
049e 4801       |H   |		Short_Literal	0x1
049f 4805       |H   |		Short_Literal	0x5
04a0 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
04a1 e5fe       |    |		Load	0x2,-0x2
04a2 e5ff       |    |		Load	0x2,-0x1
04a3 00da       |    |		Load_Top	At_Offset_2
04a4 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
04a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04a6 4801       |H   |		Short_Literal	0x1
04a7 4801       |H   |		Short_Literal	0x1
04a8 e5ff       |    |		Load	0x2,-0x1
04a9 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
04aa e22f       | /  |		Load	0x1,0x2f
04ab 035b       | [  |		Declare_Type	Array,Constrained
04ac 4801       |H   |		Short_Literal	0x1
04ad e5ff       |    |		Load	0x2,-0x1
04ae 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
04af 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04b0 00db       |    |		Load_Top	At_Offset_3
04b1 4801       |H   |		Short_Literal	0x1
04b2 e5fe       |    |		Load	0x2,-0x2
04b3 e22f       | /  |		Load	0x1,0x2f
04b4 035b       | [  |		Declare_Type	Array,Constrained
04b5 4801       |H   |		Short_Literal	0x1
04b6 e5ff       |    |		Load	0x2,-0x1
04b7 031b       |    |		Declare_Type	Variant_Record,Constrained
04b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04b9 00db       |    |		Load_Top	At_Offset_3
04ba 00db       |    |		Load_Top	At_Offset_3
04bb 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
04bc 4801       |H   |		Short_Literal	0x1
04bd e5fe       |    |		Load	0x2,-0x2
04be e22f       | /  |		Load	0x1,0x2f
04bf 0334       | 4  |		Declare_Variable	Array,With_Constraint
04c0 2d05       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
04c1 016a       | j  |		QQ_execute	Variant_Record,XXX
04c2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04c3 0869       | i  |		Execute_Immediate	Raise,0x69
04c4 0000 0000  |    |		.BLANK	0000[0x4]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 4609       |F   |		Jump_Case	0xa
04cc 7809       |x   |		Jump	0x4d6								; case 0x0
04cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04ce 7817       |x   |		Jump	0x4e6								; case 0x2
04cf 781a       |x   |		Jump	0x4ea								; case 0x3
04d0 7836       |x6  |		Jump	0x507								; case 0x4
04d1 7835       |x5  |		Jump	0x507								; case 0x5
04d2 7834       |x4  |		Jump	0x507								; case 0x6
04d3 781c       |x   |		Jump	0x4f0								; case 0x7
04d4 7824       |x$  |		Jump	0x4f9								; case 0x8
04d5 782d       |x-  |		Jump	0x503								; case 0x9
04d6 00da       |    |		Load_Top	At_Offset_2
04d7 016c       | l  |		Execute	Variant_Record,Is_Constrained
04d8 7009       |p   |		Jump_Nonzero	0x4e2
04d9 00cf       |    |		Action	Mark_Auxiliary
04da 4800       |H   |		Short_Literal	0x0
04db e5ff       |    |		Load	0x2,-0x1
04dc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04dd 00d8       |    |		Load_Top	At_Offset_0
04de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04df c5ff       |    |		Store	0x2,-0x1
04e0 00ce       |    |		Action	Pop_Auxiliary
04e1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04e2 00da       |    |		Load_Top	At_Offset_2
04e3 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04e6 4801       |H   |		Short_Literal	0x1
04e7 4802       |H   |		Short_Literal	0x2
04e8 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
04e9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
04ea e5fd       |    |		Load	0x2,-0x3
04eb 00db       |    |		Load_Top	At_Offset_3
04ec 1c07       |    |		Execute_Immediate	Run_Utility,0x7
04ed e5fe       |    |		Load	0x2,-0x2
04ee 0306       |    |		Complete_Type	Variant_Record,By_Renaming
04ef 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
04f0 00db       |    |		Load_Top	At_Offset_3
04f1 4801       |H   |		Short_Literal	0x1
04f2 e5fe       |    |		Load	0x2,-0x2
04f3 e212       |    |		Load	0x1,0x12
04f4 035b       | [  |		Declare_Type	Array,Constrained
04f5 4801       |H   |		Short_Literal	0x1
04f6 e5ff       |    |		Load	0x2,-0x1
04f7 031b       |    |		Declare_Type	Variant_Record,Constrained
04f8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
04f9 00db       |    |		Load_Top	At_Offset_3
04fa 00db       |    |		Load_Top	At_Offset_3
04fb 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
04fc 4801       |H   |		Short_Literal	0x1
04fd e5fe       |    |		Load	0x2,-0x2
04fe e212       |    |		Load	0x1,0x12
04ff 0334       | 4  |		Declare_Variable	Array,With_Constraint
0500 2d02       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0501 016a       | j  |		QQ_execute	Variant_Record,XXX
0502 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0503 4800       |H   |		Short_Literal	0x0
0504 00db       |    |		Load_Top	At_Offset_3
0505 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0506 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0507 0869       | i  |		Execute_Immediate	Raise,0x69
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b 00d1       |    |		Pop_Control	Pop_Count_1
050c 00da       |    |		Load_Top	At_Offset_2
050d 01d8       |    |		Execute	Vector,Element_Type
050e 02ff       |    |		Declare_Variable	Variant_Record
050f 00d8       |    |		Load_Top	At_Offset_0
0510 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0511 00db       |    |		Load_Top	At_Offset_3
0512 01dc       |    |		Execute	Vector,Last
0513 e5ff       |    |		Load	0x2,-0x1
0514 01dd       |    |		Execute	Vector,First
0515 0263       | c  |		Execute	Discrete,Above_Bound
0516 7006       |p   |		Jump_Nonzero	0x51d
0517 00da       |    |		Load_Top	At_Offset_2
0518 00d9       |    |		Load_Top	At_Offset_1
0519 e5ff       |    |		Load	0x2,-0x1
051a 01d6       |    |		Execute	Vector,Field_Write
051b 0a01       |    |		Execute_Immediate	Plus,0x1
051c 7ff8       |    |		Jump	0x515
051d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
051e 0000 0000  |    |		.XXX[0x2]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 4609       |F   |		Jump_Case	0xa
0524 7809       |x   |		Jump	0x52e								; case 0x0
0525 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0526 7813       |x   |		Jump	0x53a								; case 0x2
0527 7816       |x   |		Jump	0x53e								; case 0x3
0528 7832       |x2  |		Jump	0x55b								; case 0x4
0529 7831       |x1  |		Jump	0x55b								; case 0x5
052a 7830       |x0  |		Jump	0x55b								; case 0x6
052b 7818       |x   |		Jump	0x544								; case 0x7
052c 7820       |x   |		Jump	0x54d								; case 0x8
052d 7829       |x)  |		Jump	0x557								; case 0x9
052e 00da       |    |		Load_Top	At_Offset_2
052f 016c       | l  |		Execute	Variant_Record,Is_Constrained
0530 7008       |p   |		Jump_Nonzero	0x539
0531 00cf       |    |		Action	Mark_Auxiliary
0532 4800       |H   |		Short_Literal	0x0
0533 e5ff       |    |		Load	0x2,-0x1
0534 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0535 00d8       |    |		Load_Top	At_Offset_0
0536 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0537 c5ff       |    |		Store	0x2,-0x1
0538 00ce       |    |		Action	Pop_Auxiliary
0539 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
053a 4801       |H   |		Short_Literal	0x1
053b 4802       |H   |		Short_Literal	0x2
053c 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
053d 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
053e e5fd       |    |		Load	0x2,-0x3
053f 00db       |    |		Load_Top	At_Offset_3
0540 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0541 e5fe       |    |		Load	0x2,-0x2
0542 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0543 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0544 00db       |    |		Load_Top	At_Offset_3
0545 4801       |H   |		Short_Literal	0x1
0546 e5fe       |    |		Load	0x2,-0x2
0547 e213       |    |		Load	0x1,0x13
0548 035b       | [  |		Declare_Type	Array,Constrained
0549 4801       |H   |		Short_Literal	0x1
054a e5ff       |    |		Load	0x2,-0x1
054b 031b       |    |		Declare_Type	Variant_Record,Constrained
054c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
054d 00db       |    |		Load_Top	At_Offset_3
054e 00db       |    |		Load_Top	At_Offset_3
054f 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0550 4801       |H   |		Short_Literal	0x1
0551 e5fe       |    |		Load	0x2,-0x2
0552 e213       |    |		Load	0x1,0x13
0553 0334       | 4  |		Declare_Variable	Array,With_Constraint
0554 2d02       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0555 016a       | j  |		QQ_execute	Variant_Record,XXX
0556 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0557 4800       |H   |		Short_Literal	0x0
0558 00db       |    |		Load_Top	At_Offset_3
0559 1c07       |    |		Execute_Immediate	Run_Utility,0x7
055a 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
055b 0869       | i  |		Execute_Immediate	Raise,0x69
055c 0000 0000  |    |		.BLANK	0000[0x4]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 00da       |    |		Load_Top	At_Offset_2
0564 821a       |    |		Call	0x1,0x1a
0565 e009       |    |		Load	0x0,0x9
0566 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0567 00d8       |    |		Load_Top	At_Offset_0
0568 00e3       |    |		Load_Encached	Natural_Cache
0569 0260       | `  |		Execute	Discrete,In_Type
056a 7001       |p   |		Jump_Nonzero	0x56c
056b 0801       |    |		Execute_Immediate	Raise,0x1
056c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
056d 0000 0000  |    |		.XXX[0x3]
056f 0000       |    |
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 00da       |    |		Load_Top	At_Offset_2
0574 e009       |    |		Load	0x0,0x9
0575 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0576 00d8       |    |		Load_Top	At_Offset_0
0577 e009       |    |		Load	0x0,0x9
0578 0122       | "  |		Execute	Any,Make_Root_Type
0579 0260       | `  |		Execute	Discrete,In_Type
057a 7001       |p   |		Jump_Nonzero	0x57c
057b 0801       |    |		Execute_Immediate	Raise,0x1
057c 00d8       |    |		Load_Top	At_Offset_0
057d e009       |    |		Load	0x0,0x9
057e 0260       | `  |		Execute	Discrete,In_Type
057f 7001       |p   |		Jump_Nonzero	0x581
0580 0801       |    |		Execute_Immediate	Raise,0x1
0581 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0582 0000 0000  |    |		.BLANK	0000[0x6]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b       |    |		.CONST	0x058b								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0001       |    |		.CONST	0x0001								; Number of locals
058b			BODY_0588:
058b			INIT_0588:
058b 00db       |    |		Load_Top	At_Offset_3
058c e22c       | ,  |		Load	0x1,0x2c
058d 022e       | .  |		Execute	Access,Not_Equal
058e 680a       |h   |		Jump_Zero	0x599
058f 00da       |    |		Load_Top	At_Offset_2
0590 6806       |h   |		Jump_Zero	0x597
0591 00da       |    |		Load_Top	At_Offset_2
0592 e5fe       |    |		Load	0x2,-0x2
0593 0227       | '  |		Execute	Access,All_Reference
0594 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0595 027a       | z  |		Execute	Discrete,Less_Equal
0596 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0597 4800       |H   |		Short_Literal	0x0
0598 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0599 4800       |H   |		Short_Literal	0x0
059a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
059b 0000 0000  |    |		.BLANK	0000[0x5]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 00cf       |    |		Action	Mark_Auxiliary
05a4 00db       |    |		Load_Top	At_Offset_3
05a5 01d9       |    |		Execute	Vector,Reverse_Bounds
05a6 0263       | c  |		Execute	Discrete,Above_Bound
05a7 700c       |p   |		Jump_Nonzero	0x5b4
05a8 00d8       |    |		Load_Top	At_Offset_0
05a9 e5fe       |    |		Load	0x2,-0x2
05aa 01d7       |    |		Execute	Vector,Field_Read
05ab 00d9       |    |		Load_Top	At_Offset_1
05ac e5ff       |    |		Load	0x2,-0x1
05ad 01d5       |    |		Execute	Vector,Field_Reference
05ae 801a       |    |		Call	0x0,0x1a
05af 7002       |p   |		Jump_Nonzero	0x5b2
05b0 4800       |H   |		Short_Literal	0x0
05b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05b2 00c8       |    |		Action	Pop_Auxiliary_Range
05b3 3ff4       |?   |		Loop_Increasing	0x5a8
05b4 00ce       |    |		Action	Pop_Auxiliary
05b5 4801       |H   |		Short_Literal	0x1
05b6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05b7 0000       |    |		.XXX[0x1]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bf       |    |		.CONST	0x05bf								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0002       |    |		.CONST	0x0002								; Number of locals
05bb			INIT_05b8:
05bb e003       |    |		Load	0x0,0x3
05bc 0322       | "  |		Declare_Variable	Record
05bd 00d8       |    |		Load_Top	At_Offset_0
05be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05bf			BODY_05b8:
05bf 00db       |    |		Load_Top	At_Offset_3
05c0 800a       |    |		Call	0x0,0xa
05c1 6808       |h   |		Jump_Zero	0x5ca
05c2 00db       |    |		Load_Top	At_Offset_3
05c3 8216       |    |		Call	0x1,0x16
05c4 00d9       |    |		Load_Top	At_Offset_1
05c5 017d       | }  |		Execute	Record,Structure_Write
05c6 e5fe       |    |		Load	0x2,-0x2
05c7 00d9       |    |		Load_Top	At_Offset_1
05c8 8226       | &  |		Call	0x1,0x26
05c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ca e5fe       |    |		Load	0x2,-0x2
05cb e5ff       |    |		Load	0x2,-0x1
05cc 801b       |    |		Call	0x0,0x1b
05cd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ce 0000 0000  |    |		.XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d5       |    |		.CONST	0x05d5								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0002       |    |		.CONST	0x0002								; Number of locals
05d3			INIT_05d0:
05d3 00e1       |    |		Load_Encached	Boolean_Cache
05d4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
05d5			BODY_05d0:
05d5 00cf       |    |		Action	Mark_Auxiliary
05d6 e5ff       |    |		Load	0x2,-0x1
05d7 01d9       |    |		Execute	Vector,Reverse_Bounds
05d8 0263       | c  |		Execute	Discrete,Above_Bound
05d9 7019       |p   |		Jump_Nonzero	0x5f3
05da 00db       |    |		Load_Top	At_Offset_3
05db 6803       |h   |		Jump_Zero	0x5df
05dc 4800       |H   |		Short_Literal	0x0
05dd a402       |    |		Store_Unchecked	0x2,0x2
05de 7804       |x   |		Jump	0x5e3
05df e5fd       |    |		Load	0x2,-0x3
05e0 0092 0627  |   '|		Action	Push_String_Extended,0x627					; ","
05e2 8013       |    |		Call	0x0,0x13
05e3 e5fd       |    |		Load	0x2,-0x3
05e4 00d9       |    |		Load_Top	At_Offset_1
05e5 e5fe       |    |		Load	0x2,-0x2
05e6 01d7       |    |		Execute	Vector,Field_Read
05e7 8011       |    |		Call	0x0,0x11
05e8 0092 0626  |   &|		Action	Push_String_Extended,0x626					; " => "
05ea 01cc       |    |		Execute	Vector,Catenate
05eb 8019       |    |		Call	0x0,0x19
05ec e5fd       |    |		Load	0x2,-0x3
05ed 00d9       |    |		Load_Top	At_Offset_1
05ee e5ff       |    |		Load	0x2,-0x1
05ef 01d5       |    |		Execute	Vector,Field_Reference
05f0 8235       | 5  |		Call	0x1,0x35
05f1 00c8       |    |		Action	Pop_Auxiliary_Range
05f2 3fe7       |?   |		Loop_Increasing	0x5da
05f3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05f4 0000 0000  |    |		.BLANK	0000[0x4]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 00db       |    |		Load_Top	At_Offset_3
05fc e22e       | .  |		Load	0x1,0x2e
05fd 016e       | n  |		Execute	Variant_Record,Not_Equal
05fe 681e       |h   |		Jump_Zero	0x61d
05ff e5fd       |    |		Load	0x2,-0x3
0600 00db       |    |		Load_Top	At_Offset_3
0601 0227       | '  |		Execute	Access,All_Reference
0602 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0603 e009       |    |		Load	0x0,0x9
0604 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0605 e009       |    |		Load	0x0,0x9
0606 0122       | "  |		Execute	Any,Make_Root_Type
0607 011c       |    |		Execute	Any,Convert_Unchecked
0608 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0609 0092 061e  |    |		Action	Push_String_Extended,0x61e					; "'("
060b 01cc       |    |		Execute	Vector,Catenate
060c 8013       |    |		Call	0x0,0x13
060d e5fd       |    |		Load	0x2,-0x3
060e 8014       |    |		Call	0x0,0x14
060f e5fd       |    |		Load	0x2,-0x3
0610 00db       |    |		Load_Top	At_Offset_3
0611 0227       | '  |		Execute	Access,All_Reference
0612 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0613 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0614 e5fe       |    |		Load	0x2,-0x2
0615 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0616 8236       | 6  |		Call	0x1,0x36
0617 e5fd       |    |		Load	0x2,-0x3
0618 8015       |    |		Call	0x0,0x15
0619 e5fd       |    |		Load	0x2,-0x3
061a 0092 061f  |    |		Action	Push_String_Extended,0x61f					; ")"
061c 8013       |    |		Call	0x0,0x13
061d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
061e ; --------------------------------------------------------------------------------------
061e ; STRING TABLE
061e ; --------------------------------------------------------------------------------------
061e 0016       |    |		.STRTAB	0x0016->0x0629							; "'("
061f 0016       |    |		.STRTAB	0x0016->0x062a							; ")"
0620 0015       |    |		.STRTAB	0x0015->0x062a							; "null_object"
0621 001e       |    |		.STRTAB	0x001e->0x0630							; "Collection'("
0622 0028       | (  |		.STRTAB	0x0028->0x0636							; "Class'("
0623 002d       | -  |		.STRTAB	0x002d->0x0639							; "Kind      => "
0624 0038       | 8  |		.STRTAB	0x0038->0x0640							; "Size      => "
0625 0043       | C  |		.STRTAB	0x0043->0x0646							; "Instances => Collection'("
0626 005a       | Z  |		.STRTAB	0x005a->0x0653							; " => "
0627 005c       | \  |		.STRTAB	0x005c->0x0655							; ","
0628 005b       | [  |		.STREND 0x005b->0x0655
0629 2728 296e  |'()n|		.STRTAB_STRINGS
0656 0000 0000  |    |		.XXX[0x2]
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0xa031,0x0000,0x0001,0x0026
065e 000b 06f6  |    |		.DBG4T	0x000b,0x06f6,0x0000,0x0000
0662 0079 071f  | y  |		.DBG4T	0x0079,0x071f,0x0000,0x0000
0666 011b 0000  |    |		.DBG4T	0x011b,0x0000,0x0005,0x0000
066a 0143 0744  | C D|		.DBG4T	0x0143,0x0744,0x0002,0x0000
066e 0153 0000  | S  |		.DBG4T	0x0153,0x0000,0x0005,0x0000
0672 016b 0747  | k G|		.DBG4T	0x016b,0x0747,0x0002,0x0000
0676 01a3 0754  |   T|		.DBG4T	0x01a3,0x0754,0x0002,0x0000
067a 01ab 0757  |   W|		.DBG4T	0x01ab,0x0757,0x0002,0x0000
067e 01b3 075a  |   Z|		.DBG4T	0x01b3,0x075a,0x0002,0x0000
0682 01c3 075d  |   ]|		.DBG4T	0x01c3,0x075d,0x0002,0x0000
0686 01cb 0760  |   `|		.DBG4T	0x01cb,0x0760,0x0002,0x0000
068a 01db 0763  |   c|		.DBG4T	0x01db,0x0763,0x0002,0x0000
068e 01f3 0768  |   h|		.DBG4T	0x01f3,0x0768,0x0002,0x0000
0692 01fb 076b  |   k|		.DBG4T	0x01fb,0x076b,0x0002,0x0000
0696 0243 076e  | C n|		.DBG4T	0x0243,0x076e,0x0001,0x0000
069a 0263 0772  | c r|		.DBG4T	0x0263,0x0772,0x0002,0x0000
069e 0273 0777  | s w|		.DBG4T	0x0273,0x0777,0x0002,0x0000
06a2 028b 077b  |   {|		.DBG4T	0x028b,0x077b,0x0002,0x0000
06a6 02a3 0780  |    |		.DBG4T	0x02a3,0x0780,0x0002,0x0000
06aa 02bb 0785  |    |		.DBG4T	0x02bb,0x0785,0x0001,0x0000
06ae 0313 0796  |    |		.DBG4T	0x0313,0x0796,0x0001,0x0000
06b2 034b 07a2  | K  |		.DBG4T	0x034b,0x07a2,0x0001,0x0000
06b6 0373 07a7  | s  |		.DBG4T	0x0373,0x07a7,0x0001,0x0000
06ba 038b 07ac  |    |		.DBG4T	0x038b,0x07ac,0x0001,0x0000
06be 03c3 07b7  |    |		.DBG4T	0x03c3,0x07b7,0x0001,0x0000
06c2 03eb 07c1  |    |		.DBG4T	0x03eb,0x07c1,0x0001,0x0000
06c6 0413 07c5  |    |		.DBG4T	0x0413,0x07c5,0x2801,0x0002
06ca 0463 0000  | c  |		.DBG4T	0x0463,0x0000,0x0005,0x0000
06ce 04cb 0000  |    |		.DBG4T	0x04cb,0x0000,0x0005,0x0000
06d2 050b 0000  |    |		.DBG4T	0x050b,0x0000,0x0005,0x0000
06d6 0523 0000  | #  |		.DBG4T	0x0523,0x0000,0x0005,0x0000
06da 0563 07d6  | c  |		.DBG4T	0x0563,0x07d6,0x0002,0x0000
06de 0573 07d9  | s  |		.DBG4T	0x0573,0x07d9,0x0002,0x0000
06e2 058b 07dc  |    |		.DBG4T	0x058b,0x07dc,0x0002,0x0000
06e6 05a3 07df  |    |		.DBG4T	0x05a3,0x07df,0x0002,0x0000
06ea 05bb 07e5  |    |		.DBG4T	0x05bb,0x07e5,0x0001,0x0000
06ee 05d3 07ec  |    |		.DBG4T	0x05d3,0x07ec,0x0001,0x0000
06f2 05fb 07f5  |    |		.DBG4T	0x05fb,0x07f5,0x0001,0x0000
06f6 ; --------------------------------------------------------------------------------------
06f6 ; Debug chain
06f6 ; --------------------------------------------------------------------------------------
06f6 0027 0000  | '  |		.DBGLEN	0x0027,0x0000
06f8 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000d,0x000e,0x000f,0x0016,0x0018,0x0019,0x001d,0x0021,0x0028,0x002e,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x0065,0x0066,0x0071,0x0075
071f ; --------------------------------------------------------------------------------------
071f ; Debug chain
071f ; --------------------------------------------------------------------------------------
071f 0023 0000  | #  |		.DBGLEN	0x0023,0x0000
0721 0079 008b  | y  |		.DBGLNO	0x0079,0x008b,0x00ae,0x00b5,0x00c7,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101,0x0103,0x0105,0x0107,0x0109,0x010b,0x010d,0x010f,0x0111
0744 ; --------------------------------------------------------------------------------------
0744 ; Debug chain
0744 ; --------------------------------------------------------------------------------------
0744 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0746 0143       | C  |		.DBGLNO	0x0143
0747 ; --------------------------------------------------------------------------------------
0747 ; Debug chain
0747 ; --------------------------------------------------------------------------------------
0747 0002 0009  |    |		.DBGLEN	0x0002,0x0009
0749 016b 016e  | k n|		.DBGLNO	0x016b,0x016e,0x0171,0x0178,0x017c,0x0181,0x0189,0x018b,0x0193,0x0198,0x019a
0754 ; --------------------------------------------------------------------------------------
0754 ; Debug chain
0754 ; --------------------------------------------------------------------------------------
0754 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0756 01a3       |    |		.DBGLNO	0x01a3
0757 ; --------------------------------------------------------------------------------------
0757 ; Debug chain
0757 ; --------------------------------------------------------------------------------------
0757 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0759 01ab       |    |		.DBGLNO	0x01ab
075a ; --------------------------------------------------------------------------------------
075a ; Debug chain
075a ; --------------------------------------------------------------------------------------
075a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
075c 01b3       |    |		.DBGLNO	0x01b3
075d ; --------------------------------------------------------------------------------------
075d ; Debug chain
075d ; --------------------------------------------------------------------------------------
075d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
075f 01c3       |    |		.DBGLNO	0x01c3
0760 ; --------------------------------------------------------------------------------------
0760 ; Debug chain
0760 ; --------------------------------------------------------------------------------------
0760 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0762 01cb       |    |		.DBGLNO	0x01cb
0763 ; --------------------------------------------------------------------------------------
0763 ; Debug chain
0763 ; --------------------------------------------------------------------------------------
0763 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0765 01db 01df  |    |		.DBGLNO	0x01db,0x01df,0x01e8
0768 ; --------------------------------------------------------------------------------------
0768 ; Debug chain
0768 ; --------------------------------------------------------------------------------------
0768 0000 0001  |    |		.DBGLEN	0x0000,0x0001
076a 01f3       |    |		.DBGLNO	0x01f3
076b ; --------------------------------------------------------------------------------------
076b ; Debug chain
076b ; --------------------------------------------------------------------------------------
076b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
076d 01fb       |    |		.DBGLNO	0x01fb
076e ; --------------------------------------------------------------------------------------
076e ; Debug chain
076e ; --------------------------------------------------------------------------------------
076e 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0770 0243 0247  | C G|		.DBGLNO	0x0243,0x0247
0772 ; --------------------------------------------------------------------------------------
0772 ; Debug chain
0772 ; --------------------------------------------------------------------------------------
0772 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0774 0263 0265  | c e|		.DBGLNO	0x0263,0x0265,0x026c
0777 ; --------------------------------------------------------------------------------------
0777 ; Debug chain
0777 ; --------------------------------------------------------------------------------------
0777 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0779 0273 0277  | s w|		.DBGLNO	0x0273,0x0277
077b ; --------------------------------------------------------------------------------------
077b ; Debug chain
077b ; --------------------------------------------------------------------------------------
077b 0002 0001  |    |		.DBGLEN	0x0002,0x0001
077d 028b 028f  |    |		.DBGLNO	0x028b,0x028f,0x0293
0780 ; --------------------------------------------------------------------------------------
0780 ; Debug chain
0780 ; --------------------------------------------------------------------------------------
0780 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0782 02a3 02a7  |    |		.DBGLNO	0x02a3,0x02a7,0x02ab
0785 ; --------------------------------------------------------------------------------------
0785 ; Debug chain
0785 ; --------------------------------------------------------------------------------------
0785 0005 000a  |    |		.DBGLEN	0x0005,0x000a
0787 02bb 02bf  |    |		.DBGLNO	0x02bb,0x02bf,0x02c3,0x02c9,0x02ca,0x02cf,0x02d3,0x02d9,0x02f3,0x02f5,0x02f9,0x02fb,0x0300,0x0304,0x0308
0796 ; --------------------------------------------------------------------------------------
0796 ; Debug chain
0796 ; --------------------------------------------------------------------------------------
0796 0004 0006  |    |		.DBGLEN	0x0004,0x0006
0798 0313 0317  |    |		.DBGLNO	0x0313,0x0317,0x031b,0x031f,0x0323,0x0327,0x032b,0x032f,0x0333,0x033b
07a2 ; --------------------------------------------------------------------------------------
07a2 ; Debug chain
07a2 ; --------------------------------------------------------------------------------------
07a2 0002 0001  |    |		.DBGLEN	0x0002,0x0001
07a4 034b 034f  | K O|		.DBGLNO	0x034b,0x034f,0x0353
07a7 ; --------------------------------------------------------------------------------------
07a7 ; Debug chain
07a7 ; --------------------------------------------------------------------------------------
07a7 0002 0001  |    |		.DBGLEN	0x0002,0x0001
07a9 0373 0377  | s w|		.DBGLNO	0x0373,0x0377,0x037b
07ac ; --------------------------------------------------------------------------------------
07ac ; Debug chain
07ac ; --------------------------------------------------------------------------------------
07ac 0002 0007  |    |		.DBGLEN	0x0002,0x0007
07ae 038b 038f  |    |		.DBGLNO	0x038b,0x038f,0x0393,0x0397,0x03a5,0x03a7,0x03b3,0x03b5,0x03ba
07b7 ; --------------------------------------------------------------------------------------
07b7 ; Debug chain
07b7 ; --------------------------------------------------------------------------------------
07b7 0000 0008  |    |		.DBGLEN	0x0000,0x0008
07b9 03c3 03c7  |    |		.DBGLNO	0x03c3,0x03c7,0x03c9,0x03cd,0x03d1,0x03d9,0x03db,0x03de
07c1 ; --------------------------------------------------------------------------------------
07c1 ; Debug chain
07c1 ; --------------------------------------------------------------------------------------
07c1 0001 0001  |    |		.DBGLEN	0x0001,0x0001
07c3 03eb 03fb  |    |		.DBGLNO	0x03eb,0x03fb
07c5 ; --------------------------------------------------------------------------------------
07c5 ; Debug chain
07c5 ; --------------------------------------------------------------------------------------
07c5 0000 000f  |    |		.DBGLEN	0x0000,0x000f
07c7 0413 0417  |    |		.DBGLNO	0x0413,0x0417,0x041b,0x041d,0x042b,0x0435,0x0439,0x043c,0x0441,0x0444,0x0448,0x0450,0x0452,0x0456,0x0458
07d6 ; --------------------------------------------------------------------------------------
07d6 ; Debug chain
07d6 ; --------------------------------------------------------------------------------------
07d6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07d8 0563       | c  |		.DBGLNO	0x0563
07d9 ; --------------------------------------------------------------------------------------
07d9 ; Debug chain
07d9 ; --------------------------------------------------------------------------------------
07d9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07db 0573       | s  |		.DBGLNO	0x0573
07dc ; --------------------------------------------------------------------------------------
07dc ; Debug chain
07dc ; --------------------------------------------------------------------------------------
07dc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07de 058b       |    |		.DBGLNO	0x058b
07df ; --------------------------------------------------------------------------------------
07df ; Debug chain
07df ; --------------------------------------------------------------------------------------
07df 0000 0004  |    |		.DBGLEN	0x0000,0x0004
07e1 05a4 05a8  |    |		.DBGLNO	0x05a4,0x05a8,0x05b0,0x05b5
07e5 ; --------------------------------------------------------------------------------------
07e5 ; Debug chain
07e5 ; --------------------------------------------------------------------------------------
07e5 0001 0004  |    |		.DBGLEN	0x0001,0x0004
07e7 05bb 05bf  |    |		.DBGLNO	0x05bb,0x05bf,0x05c2,0x05c6,0x05ca
07ec ; --------------------------------------------------------------------------------------
07ec ; Debug chain
07ec ; --------------------------------------------------------------------------------------
07ec 0001 0006  |    |		.DBGLEN	0x0001,0x0006
07ee 05d3 05d6  |    |		.DBGLNO	0x05d3,0x05d6,0x05da,0x05dc,0x05df,0x05e3,0x05ec
07f5 ; --------------------------------------------------------------------------------------
07f5 ; Debug chain
07f5 ; --------------------------------------------------------------------------------------
07f5 0000 0006  |    |		.DBGLEN	0x0000,0x0006
07f7 05fb 05ff  |    |		.DBGLNO	0x05fb,0x05ff,0x060d,0x060f,0x0617,0x0619
07fd 0000 0000  |    |		.XXX[0x3]
07ff 0000       |    |