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

⟦e24da03ca⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0640       | @  |		.CONST	0x0640								; 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 0039       | 9  |		.CONST	0x0039								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
000f 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
0011 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0013 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0015 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0017 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0019 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
001b 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
001d 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated
001f 029a 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call,Visible,Unelaborated
0021 00bf       |    |		Action	Accept_Activation
0022 0007       |    |		Action	Break_Optional
0023 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0026 00c7       |    |		Action	Elaborate_Subprogram
0027 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0028 00c7       |    |		Action	Elaborate_Subprogram
0029 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0032 00c7       |    |		Action	Elaborate_Subprogram
0033 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0034 00c7       |    |		Action	Elaborate_Subprogram
0035 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0036 00c7       |    |		Action	Elaborate_Subprogram
0037 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0038 00c7       |    |		Action	Elaborate_Subprogram
0039			BODY_0008:
0039 00bc       |    |		Action	Signal_Activated
003a 00bb       |    |		Action	Signal_Completion
003b 0000 0000  |    |		.BLANK	0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 005d       | ]  |		.CONST	0x005d								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0005       |    |		.CONST	0x0005								; Number of locals
0043			INIT_0040:
0043 00da       |    |		Load_Top	At_Offset_2
0044 e002       |    |		Load	0x0,0x2
0045 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0046 e002       |    |		Load	0x0,0x2
0047 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0048 03f1       |    |		Declare_Variable	Discrete,With_Value
0049 00db       |    |		Load_Top	At_Offset_3
004a e002       |    |		Load	0x0,0x2
004b 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
004c e002       |    |		Load	0x0,0x2
004d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
004e 03f1       |    |		Declare_Variable	Discrete,With_Value
004f 00e3       |    |		Load_Encached	Natural_Cache
0050 4801       |H   |		Short_Literal	0x1
0051 e5fe       |    |		Load	0x2,-0x2
0052 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0053 4a00       |J   |		Short_Literal	0x200
0054 8003       |    |		Call	0x0,0x3
0055 00d8       |    |		Load_Top	At_Offset_0
0056 00e3       |    |		Load_Encached	Natural_Cache
0057 0260       | `  |		Execute	Discrete,In_Type
0058 7001       |p   |		Jump_Nonzero	0x5a
0059 0801       |    |		Execute_Immediate	Raise,0x1
005a 00e9       |    |		Load_Encached	String_Cache
005b 035b       | [  |		Declare_Type	Array,Constrained
005c 0337       | 7  |		Declare_Variable	Array
005d			BODY_0040:
005d e5ff       |    |		Load	0x2,-0x1
005e e002       |    |		Load	0x0,0x2
005f 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0060 680a       |h   |		Jump_Zero	0x6b
0061 4800       |H   |		Short_Literal	0x0
0062 e5fe       |    |		Load	0x2,-0x2
0063 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0064 4801       |H   |		Short_Literal	0x1
0065 a5fb       |    |		Store_Unchecked	0x2,-0x5
0066 4801       |H   |		Short_Literal	0x1
0067 a5fc       |    |		Store_Unchecked	0x2,-0x4
0068 4801       |H   |		Short_Literal	0x1
0069 a5fd       |    |		Store_Unchecked	0x2,-0x3
006a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
006b 00e3       |    |		Load_Encached	Natural_Cache
006c 00d9       |    |		Load_Top	At_Offset_1
006d e5ff       |    |		Load	0x2,-0x1
006e e002       |    |		Load	0x0,0x2
006f 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
0070 00d1       |    |		Pop_Control	Pop_Count_1
0071 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0072 00d9       |    |		Load_Top	At_Offset_1
0073 e5fe       |    |		Load	0x2,-0x2
0074 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0075 4801       |H   |		Short_Literal	0x1
0076 00da       |    |		Load_Top	At_Offset_2
0077 00da       |    |		Load_Top	At_Offset_2
0078 01cf       |    |		Execute	Vector,Slice_Read
0079 00d8       |    |		Load_Top	At_Offset_0
007a 01da       |    |		Execute	Vector,Bounds
007b e004       |    |		Load	0x0,0x4
007c 0334       | 4  |		Declare_Variable	Array,With_Constraint
007d 00d0       |    |		Action	Swap_Control
007e 00d8       |    |		Load_Top	At_Offset_0
007f 01dd       |    |		Execute	Vector,First
0080 00da       |    |		Load_Top	At_Offset_2
0081 01dd       |    |		Execute	Vector,First
0082 0272       | r  |		Execute	Discrete,Minus
0083 00da       |    |		Load_Top	At_Offset_2
0084 01d9       |    |		Execute	Vector,Reverse_Bounds
0085 0263       | c  |		Execute	Discrete,Above_Bound
0086 700a       |p   |		Jump_Nonzero	0x91
0087 00d8       |    |		Load_Top	At_Offset_0
0088 00db       |    |		Load_Top	At_Offset_3
0089 0273       | s  |		Execute	Discrete,Plus
008a e407       |    |		Load	0x2,0x7
008b 01d7       |    |		Execute	Vector,Field_Read
008c 00d9       |    |		Load_Top	At_Offset_1
008d e406       |    |		Load	0x2,0x6
008e 01d5       |    |		Execute	Vector,Field_Reference
008f 0118       |    |		Execute	Any,Write_Unchecked
0090 3ff6       |?   |		Loop_Increasing	0x87
0091 00d2       |    |		Pop_Control	Pop_Count_2
0092 4801       |H   |		Short_Literal	0x1
0093 e5fe       |    |		Load	0x2,-0x2
0094 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0095 e5fe       |    |		Load	0x2,-0x2
0096 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0097 01ce       |    |		Execute	Vector,Slice_Write
0098 00cf       |    |		Action	Mark_Auxiliary
0099 785c       |x\  |		Jump	0xf6
009a 00d9       |    |		Load_Top	At_Offset_1
009b 01db       |    |		Execute	Vector,Length
009c 00d8       |    |		Load_Top	At_Offset_0
009d e005       |    |		Load	0x0,0x5
009e 0260       | `  |		Execute	Discrete,In_Type
009f 7001       |p   |		Jump_Nonzero	0xa1
00a0 0801       |    |		Execute_Immediate	Raise,0x1
00a1 e5fe       |    |		Load	0x2,-0x2
00a2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00a3 e5fe       |    |		Load	0x2,-0x2
00a4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a5 0272       | r  |		Execute	Discrete,Minus
00a6 027d       | }  |		Execute	Discrete,Greater
00a7 6819       |h   |		Jump_Zero	0xc1
00a8 00d9       |    |		Load_Top	At_Offset_1
00a9 4801       |H   |		Short_Literal	0x1
00aa e5fe       |    |		Load	0x2,-0x2
00ab 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ac e5fe       |    |		Load	0x2,-0x2
00ad 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ae 0272       | r  |		Execute	Discrete,Minus
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 00e3       |    |		Load_Encached	Natural_Cache
00b1 0260       | `  |		Execute	Discrete,In_Type
00b2 7001       |p   |		Jump_Nonzero	0xb4
00b3 0801       |    |		Execute_Immediate	Raise,0x1
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 035b       | [  |		Declare_Type	Array,Constrained
00b6 00d0       |    |		Action	Swap_Control
00b7 01cd       |    |		Execute	Vector,Slice_Reference
00b8 00e3       |    |		Load_Encached	Natural_Cache
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba e5ff       |    |		Load	0x2,-0x1
00bb e002       |    |		Load	0x0,0x2
00bc 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
00bd 00d1       |    |		Pop_Control	Pop_Count_1
00be c404       |    |		Store	0x2,0x4
00bf 00d1       |    |		Pop_Control	Pop_Count_1
00c0 7807       |x   |		Jump	0xc8
00c1 00e3       |    |		Load_Encached	Natural_Cache
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 e5ff       |    |		Load	0x2,-0x1
00c4 e002       |    |		Load	0x0,0x2
00c5 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
00c6 00d1       |    |		Pop_Control	Pop_Count_1
00c7 005b       | [  |		Store_Top	Discrete,At_Offset_3
00c8 4801       |H   |		Short_Literal	0x1
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 01cf       |    |		Execute	Vector,Slice_Read
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 01da       |    |		Execute	Vector,Bounds
00ce e004       |    |		Load	0x0,0x4
00cf 0334       | 4  |		Declare_Variable	Array,With_Constraint
00d0 00d0       |    |		Action	Swap_Control
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 01dd       |    |		Execute	Vector,First
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 01dd       |    |		Execute	Vector,First
00d5 0272       | r  |		Execute	Discrete,Minus
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 01d9       |    |		Execute	Vector,Reverse_Bounds
00d8 0263       | c  |		Execute	Discrete,Above_Bound
00d9 700a       |p   |		Jump_Nonzero	0xe4
00da 00d8       |    |		Load_Top	At_Offset_0
00db 00db       |    |		Load_Top	At_Offset_3
00dc 0273       | s  |		Execute	Discrete,Plus
00dd e408       |    |		Load	0x2,0x8
00de 01d7       |    |		Execute	Vector,Field_Read
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 e407       |    |		Load	0x2,0x7
00e1 01d5       |    |		Execute	Vector,Field_Reference
00e2 0118       |    |		Execute	Any,Write_Unchecked
00e3 3ff6       |?   |		Loop_Increasing	0xda
00e4 00d2       |    |		Pop_Control	Pop_Count_2
00e5 e5fe       |    |		Load	0x2,-0x2
00e6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00e7 0a01       |    |		Execute_Immediate	Plus,0x1
00e8 e5fe       |    |		Load	0x2,-0x2
00e9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ea e404       |    |		Load	0x2,0x4
00eb 0273       | s  |		Execute	Discrete,Plus
00ec e5fe       |    |		Load	0x2,-0x2
00ed 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00ee 01ce       |    |		Execute	Vector,Slice_Write
00ef e5fe       |    |		Load	0x2,-0x2
00f0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 0273       | s  |		Execute	Discrete,Plus
00f3 e5fe       |    |		Load	0x2,-0x2
00f4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f5 00c9       |    |		Action	Pop_Auxiliary_Loop
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00fa 027c       | |  |		Execute	Discrete,Less
00fb 6804       |h   |		Jump_Zero	0x100
00fc e5ff       |    |		Load	0x2,-0x1
00fd e002       |    |		Load	0x0,0x2
00fe 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00ff 6f9a       |o   |		Jump_Zero	0x9a
0100 00ce       |    |		Action	Pop_Auxiliary
0101 e5ff       |    |		Load	0x2,-0x1
0102 e002       |    |		Load	0x0,0x2
0103 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0104 a5fb       |    |		Store_Unchecked	0x2,-0x5
0105 e5fb       |    |		Load	0x2,-0x5
0106 7006       |p   |		Jump_Nonzero	0x10d
0107 00da       |    |		Load_Top	At_Offset_2
0108 e5ff       |    |		Load	0x2,-0x1
0109 e002       |    |		Load	0x0,0x2
010a 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
010b 027e       | ~  |		Execute	Discrete,Not_Equal
010c 7801       |x   |		Jump	0x10e
010d 4801       |H   |		Short_Literal	0x1
010e a5fc       |    |		Store_Unchecked	0x2,-0x4
010f e5fc       |    |		Load	0x2,-0x4
0110 7006       |p   |		Jump_Nonzero	0x117
0111 00db       |    |		Load_Top	At_Offset_3
0112 e5ff       |    |		Load	0x2,-0x1
0113 e002       |    |		Load	0x0,0x2
0114 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0115 027e       | ~  |		Execute	Discrete,Not_Equal
0116 7801       |x   |		Jump	0x118
0117 4801       |H   |		Short_Literal	0x1
0118 a5fd       |    |		Store_Unchecked	0x2,-0x3
0119 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011a 0000 0000  |    |		.BLANK	0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 013e       | >  |		.CONST	0x013e								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0005       |    |		.CONST	0x0005								; Number of locals
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 e002       |    |		Load	0x0,0x2
0125 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0126 e002       |    |		Load	0x0,0x2
0127 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0128 03f1       |    |		Declare_Variable	Discrete,With_Value
0129 00db       |    |		Load_Top	At_Offset_3
012a e002       |    |		Load	0x0,0x2
012b 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
012c e002       |    |		Load	0x0,0x2
012d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
012e 03f1       |    |		Declare_Variable	Discrete,With_Value
012f 00e3       |    |		Load_Encached	Natural_Cache
0130 4801       |H   |		Short_Literal	0x1
0131 e5fe       |    |		Load	0x2,-0x2
0132 0227       | '  |		Execute	Access,All_Reference
0133 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0134 4a00       |J   |		Short_Literal	0x200
0135 8003       |    |		Call	0x0,0x3
0136 00d8       |    |		Load_Top	At_Offset_0
0137 00e3       |    |		Load_Encached	Natural_Cache
0138 0260       | `  |		Execute	Discrete,In_Type
0139 7001       |p   |		Jump_Nonzero	0x13b
013a 0801       |    |		Execute_Immediate	Raise,0x1
013b 00e9       |    |		Load_Encached	String_Cache
013c 035b       | [  |		Declare_Type	Array,Constrained
013d 0337       | 7  |		Declare_Variable	Array
013e			BODY_0120:
013e e5ff       |    |		Load	0x2,-0x1
013f e002       |    |		Load	0x0,0x2
0140 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0141 680b       |h   |		Jump_Zero	0x14d
0142 4800       |H   |		Short_Literal	0x0
0143 e5fe       |    |		Load	0x2,-0x2
0144 0227       | '  |		Execute	Access,All_Reference
0145 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0146 4801       |H   |		Short_Literal	0x1
0147 a5fb       |    |		Store_Unchecked	0x2,-0x5
0148 4801       |H   |		Short_Literal	0x1
0149 a5fc       |    |		Store_Unchecked	0x2,-0x4
014a 4801       |H   |		Short_Literal	0x1
014b a5fd       |    |		Store_Unchecked	0x2,-0x3
014c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014d 00e3       |    |		Load_Encached	Natural_Cache
014e 00d9       |    |		Load_Top	At_Offset_1
014f e5ff       |    |		Load	0x2,-0x1
0150 e002       |    |		Load	0x0,0x2
0151 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
0152 00d1       |    |		Pop_Control	Pop_Count_1
0153 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0154 00d9       |    |		Load_Top	At_Offset_1
0155 e5fe       |    |		Load	0x2,-0x2
0156 0227       | '  |		Execute	Access,All_Reference
0157 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0158 4801       |H   |		Short_Literal	0x1
0159 00da       |    |		Load_Top	At_Offset_2
015a 00da       |    |		Load_Top	At_Offset_2
015b 01cf       |    |		Execute	Vector,Slice_Read
015c 00d8       |    |		Load_Top	At_Offset_0
015d 01da       |    |		Execute	Vector,Bounds
015e e004       |    |		Load	0x0,0x4
015f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0160 00d0       |    |		Action	Swap_Control
0161 00d8       |    |		Load_Top	At_Offset_0
0162 01dd       |    |		Execute	Vector,First
0163 00da       |    |		Load_Top	At_Offset_2
0164 01dd       |    |		Execute	Vector,First
0165 0272       | r  |		Execute	Discrete,Minus
0166 00da       |    |		Load_Top	At_Offset_2
0167 01d9       |    |		Execute	Vector,Reverse_Bounds
0168 0263       | c  |		Execute	Discrete,Above_Bound
0169 700a       |p   |		Jump_Nonzero	0x174
016a 00d8       |    |		Load_Top	At_Offset_0
016b 00db       |    |		Load_Top	At_Offset_3
016c 0273       | s  |		Execute	Discrete,Plus
016d e407       |    |		Load	0x2,0x7
016e 01d7       |    |		Execute	Vector,Field_Read
016f 00d9       |    |		Load_Top	At_Offset_1
0170 e406       |    |		Load	0x2,0x6
0171 01d5       |    |		Execute	Vector,Field_Reference
0172 0118       |    |		Execute	Any,Write_Unchecked
0173 3ff6       |?   |		Loop_Increasing	0x16a
0174 00d2       |    |		Pop_Control	Pop_Count_2
0175 4801       |H   |		Short_Literal	0x1
0176 e5fe       |    |		Load	0x2,-0x2
0177 0227       | '  |		Execute	Access,All_Reference
0178 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0179 e5fe       |    |		Load	0x2,-0x2
017a 0229       | )  |		Execute	Access,All_Read
017b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
017c 01ce       |    |		Execute	Vector,Slice_Write
017d 00cf       |    |		Action	Mark_Auxiliary
017e 7865       |xe  |		Jump	0x1e4
017f 00d9       |    |		Load_Top	At_Offset_1
0180 01db       |    |		Execute	Vector,Length
0181 00d8       |    |		Load_Top	At_Offset_0
0182 e005       |    |		Load	0x0,0x5
0183 0260       | `  |		Execute	Discrete,In_Type
0184 7001       |p   |		Jump_Nonzero	0x186
0185 0801       |    |		Execute_Immediate	Raise,0x1
0186 e5fe       |    |		Load	0x2,-0x2
0187 0227       | '  |		Execute	Access,All_Reference
0188 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0189 e5fe       |    |		Load	0x2,-0x2
018a 0227       | '  |		Execute	Access,All_Reference
018b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
018c 0272       | r  |		Execute	Discrete,Minus
018d 027d       | }  |		Execute	Discrete,Greater
018e 681b       |h   |		Jump_Zero	0x1aa
018f 00d9       |    |		Load_Top	At_Offset_1
0190 4801       |H   |		Short_Literal	0x1
0191 e5fe       |    |		Load	0x2,-0x2
0192 0227       | '  |		Execute	Access,All_Reference
0193 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0194 e5fe       |    |		Load	0x2,-0x2
0195 0227       | '  |		Execute	Access,All_Reference
0196 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0197 0272       | r  |		Execute	Discrete,Minus
0198 00d8       |    |		Load_Top	At_Offset_0
0199 00e3       |    |		Load_Encached	Natural_Cache
019a 0260       | `  |		Execute	Discrete,In_Type
019b 7001       |p   |		Jump_Nonzero	0x19d
019c 0801       |    |		Execute_Immediate	Raise,0x1
019d 00da       |    |		Load_Top	At_Offset_2
019e 035b       | [  |		Declare_Type	Array,Constrained
019f 00d0       |    |		Action	Swap_Control
01a0 01cd       |    |		Execute	Vector,Slice_Reference
01a1 00e3       |    |		Load_Encached	Natural_Cache
01a2 00d9       |    |		Load_Top	At_Offset_1
01a3 e5ff       |    |		Load	0x2,-0x1
01a4 e002       |    |		Load	0x0,0x2
01a5 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
01a6 00d1       |    |		Pop_Control	Pop_Count_1
01a7 c404       |    |		Store	0x2,0x4
01a8 00d1       |    |		Pop_Control	Pop_Count_1
01a9 7807       |x   |		Jump	0x1b1
01aa 00e3       |    |		Load_Encached	Natural_Cache
01ab 00da       |    |		Load_Top	At_Offset_2
01ac e5ff       |    |		Load	0x2,-0x1
01ad e002       |    |		Load	0x0,0x2
01ae 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
01af 00d1       |    |		Pop_Control	Pop_Count_1
01b0 005b       | [  |		Store_Top	Discrete,At_Offset_3
01b1 4801       |H   |		Short_Literal	0x1
01b2 00db       |    |		Load_Top	At_Offset_3
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 01cf       |    |		Execute	Vector,Slice_Read
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 01da       |    |		Execute	Vector,Bounds
01b7 e004       |    |		Load	0x0,0x4
01b8 0334       | 4  |		Declare_Variable	Array,With_Constraint
01b9 00d0       |    |		Action	Swap_Control
01ba 00d8       |    |		Load_Top	At_Offset_0
01bb 01dd       |    |		Execute	Vector,First
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 01dd       |    |		Execute	Vector,First
01be 0272       | r  |		Execute	Discrete,Minus
01bf 00da       |    |		Load_Top	At_Offset_2
01c0 01d9       |    |		Execute	Vector,Reverse_Bounds
01c1 0263       | c  |		Execute	Discrete,Above_Bound
01c2 700a       |p   |		Jump_Nonzero	0x1cd
01c3 00d8       |    |		Load_Top	At_Offset_0
01c4 00db       |    |		Load_Top	At_Offset_3
01c5 0273       | s  |		Execute	Discrete,Plus
01c6 e408       |    |		Load	0x2,0x8
01c7 01d7       |    |		Execute	Vector,Field_Read
01c8 00d9       |    |		Load_Top	At_Offset_1
01c9 e407       |    |		Load	0x2,0x7
01ca 01d5       |    |		Execute	Vector,Field_Reference
01cb 0118       |    |		Execute	Any,Write_Unchecked
01cc 3ff6       |?   |		Loop_Increasing	0x1c3
01cd 00d2       |    |		Pop_Control	Pop_Count_2
01ce e5fe       |    |		Load	0x2,-0x2
01cf 0227       | '  |		Execute	Access,All_Reference
01d0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d1 0a01       |    |		Execute_Immediate	Plus,0x1
01d2 e5fe       |    |		Load	0x2,-0x2
01d3 0227       | '  |		Execute	Access,All_Reference
01d4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d5 e404       |    |		Load	0x2,0x4
01d6 0273       | s  |		Execute	Discrete,Plus
01d7 e5fe       |    |		Load	0x2,-0x2
01d8 0229       | )  |		Execute	Access,All_Read
01d9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01da 01ce       |    |		Execute	Vector,Slice_Write
01db e5fe       |    |		Load	0x2,-0x2
01dc 0227       | '  |		Execute	Access,All_Reference
01dd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01de 00db       |    |		Load_Top	At_Offset_3
01df 0273       | s  |		Execute	Discrete,Plus
01e0 e5fe       |    |		Load	0x2,-0x2
01e1 0227       | '  |		Execute	Access,All_Reference
01e2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e3 00c9       |    |		Action	Pop_Auxiliary_Loop
01e4 e5fe       |    |		Load	0x2,-0x2
01e5 0227       | '  |		Execute	Access,All_Reference
01e6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01e7 e5fe       |    |		Load	0x2,-0x2
01e8 0227       | '  |		Execute	Access,All_Reference
01e9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ea 027c       | |  |		Execute	Discrete,Less
01eb 6804       |h   |		Jump_Zero	0x1f0
01ec e5ff       |    |		Load	0x2,-0x1
01ed e002       |    |		Load	0x0,0x2
01ee 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
01ef 6f8f       |o   |		Jump_Zero	0x17f
01f0 00ce       |    |		Action	Pop_Auxiliary
01f1 e5ff       |    |		Load	0x2,-0x1
01f2 e002       |    |		Load	0x0,0x2
01f3 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01f4 a5fb       |    |		Store_Unchecked	0x2,-0x5
01f5 e5fb       |    |		Load	0x2,-0x5
01f6 7006       |p   |		Jump_Nonzero	0x1fd
01f7 00da       |    |		Load_Top	At_Offset_2
01f8 e5ff       |    |		Load	0x2,-0x1
01f9 e002       |    |		Load	0x0,0x2
01fa 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
01fb 027e       | ~  |		Execute	Discrete,Not_Equal
01fc 7801       |x   |		Jump	0x1fe
01fd 4801       |H   |		Short_Literal	0x1
01fe a5fc       |    |		Store_Unchecked	0x2,-0x4
01ff e5fc       |    |		Load	0x2,-0x4
0200 7006       |p   |		Jump_Nonzero	0x207
0201 00db       |    |		Load_Top	At_Offset_3
0202 e5ff       |    |		Load	0x2,-0x1
0203 e002       |    |		Load	0x0,0x2
0204 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0205 027e       | ~  |		Execute	Discrete,Not_Equal
0206 7801       |x   |		Jump	0x208
0207 4801       |H   |		Short_Literal	0x1
0208 a5fd       |    |		Store_Unchecked	0x2,-0x3
0209 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020a 0000 0000  |    |		.BLANK	0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0227       | '  |		.CONST	0x0227								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0006       |    |		.CONST	0x0006								; Number of locals
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 e002       |    |		Load	0x0,0x2
0215 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0216 e002       |    |		Load	0x0,0x2
0217 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0218 03f1       |    |		Declare_Variable	Discrete,With_Value
0219 00db       |    |		Load_Top	At_Offset_3
021a e002       |    |		Load	0x0,0x2
021b 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
021c e002       |    |		Load	0x0,0x2
021d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
021e 03f1       |    |		Declare_Variable	Discrete,With_Value
021f 00e3       |    |		Load_Encached	Natural_Cache
0220 4801       |H   |		Short_Literal	0x1
0221 4a00       |J   |		Short_Literal	0x200
0222 00e9       |    |		Load_Encached	String_Cache
0223 035b       | [  |		Declare_Type	Array,Constrained
0224 0337       | 7  |		Declare_Variable	Array
0225 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
0227			BODY_0210:
0227 e5ff       |    |		Load	0x2,-0x1
0228 e002       |    |		Load	0x0,0x2
0229 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
022a 680b       |h   |		Jump_Zero	0x236
022b 4800       |H   |		Short_Literal	0x0
022c e5fd       |    |		Load	0x2,-0x3
022d 0227       | '  |		Execute	Access,All_Reference
022e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
022f 4801       |H   |		Short_Literal	0x1
0230 a5fa       |    |		Store_Unchecked	0x2,-0x6
0231 4801       |H   |		Short_Literal	0x1
0232 a5fb       |    |		Store_Unchecked	0x2,-0x5
0233 4801       |H   |		Short_Literal	0x1
0234 a5fc       |    |		Store_Unchecked	0x2,-0x4
0235 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0236 00d9       |    |		Load_Top	At_Offset_1
0237 4801       |H   |		Short_Literal	0x1
0238 e5fd       |    |		Load	0x2,-0x3
0239 0227       | '  |		Execute	Access,All_Reference
023a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
023b 4a00       |J   |		Short_Literal	0x200
023c 8003       |    |		Call	0x0,0x3
023d 00d8       |    |		Load_Top	At_Offset_0
023e 00e3       |    |		Load_Encached	Natural_Cache
023f 0260       | `  |		Execute	Discrete,In_Type
0240 7001       |p   |		Jump_Nonzero	0x242
0241 0801       |    |		Execute_Immediate	Raise,0x1
0242 00da       |    |		Load_Top	At_Offset_2
0243 035b       | [  |		Declare_Type	Array,Constrained
0244 00d0       |    |		Action	Swap_Control
0245 01cd       |    |		Execute	Vector,Slice_Reference
0246 00e3       |    |		Load_Encached	Natural_Cache
0247 00d9       |    |		Load_Top	At_Offset_1
0248 e5ff       |    |		Load	0x2,-0x1
0249 e002       |    |		Load	0x0,0x2
024a 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
024b 00d1       |    |		Pop_Control	Pop_Count_1
024c c404       |    |		Store	0x2,0x4
024d 00d1       |    |		Pop_Control	Pop_Count_1
024e 00da       |    |		Load_Top	At_Offset_2
024f e5fd       |    |		Load	0x2,-0x3
0250 0227       | '  |		Execute	Access,All_Reference
0251 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0252 4801       |H   |		Short_Literal	0x1
0253 00db       |    |		Load_Top	At_Offset_3
0254 00db       |    |		Load_Top	At_Offset_3
0255 01cf       |    |		Execute	Vector,Slice_Read
0256 00d8       |    |		Load_Top	At_Offset_0
0257 01da       |    |		Execute	Vector,Bounds
0258 e004       |    |		Load	0x0,0x4
0259 0334       | 4  |		Declare_Variable	Array,With_Constraint
025a 00d0       |    |		Action	Swap_Control
025b 00d8       |    |		Load_Top	At_Offset_0
025c 01dd       |    |		Execute	Vector,First
025d 00da       |    |		Load_Top	At_Offset_2
025e 01dd       |    |		Execute	Vector,First
025f 0272       | r  |		Execute	Discrete,Minus
0260 00da       |    |		Load_Top	At_Offset_2
0261 01d9       |    |		Execute	Vector,Reverse_Bounds
0262 0263       | c  |		Execute	Discrete,Above_Bound
0263 700a       |p   |		Jump_Nonzero	0x26e
0264 00d8       |    |		Load_Top	At_Offset_0
0265 00db       |    |		Load_Top	At_Offset_3
0266 0273       | s  |		Execute	Discrete,Plus
0267 e408       |    |		Load	0x2,0x8
0268 01d7       |    |		Execute	Vector,Field_Read
0269 00d9       |    |		Load_Top	At_Offset_1
026a e407       |    |		Load	0x2,0x7
026b 01d5       |    |		Execute	Vector,Field_Reference
026c 0118       |    |		Execute	Any,Write_Unchecked
026d 3ff6       |?   |		Loop_Increasing	0x264
026e 00d2       |    |		Pop_Control	Pop_Count_2
026f 4801       |H   |		Short_Literal	0x1
0270 e5fd       |    |		Load	0x2,-0x3
0271 0227       | '  |		Execute	Access,All_Reference
0272 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0273 e5fd       |    |		Load	0x2,-0x3
0274 0229       | )  |		Execute	Access,All_Read
0275 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0276 01ce       |    |		Execute	Vector,Slice_Write
0277 e5ff       |    |		Load	0x2,-0x1
0278 e002       |    |		Load	0x0,0x2
0279 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
027a a5fa       |    |		Store_Unchecked	0x2,-0x6
027b e5fa       |    |		Load	0x2,-0x6
027c 7006       |p   |		Jump_Nonzero	0x283
027d 00db       |    |		Load_Top	At_Offset_3
027e e5ff       |    |		Load	0x2,-0x1
027f e002       |    |		Load	0x0,0x2
0280 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0281 027e       | ~  |		Execute	Discrete,Not_Equal
0282 7801       |x   |		Jump	0x284
0283 4801       |H   |		Short_Literal	0x1
0284 a5fb       |    |		Store_Unchecked	0x2,-0x5
0285 e5fb       |    |		Load	0x2,-0x5
0286 7006       |p   |		Jump_Nonzero	0x28d
0287 e402       |    |		Load	0x2,0x2
0288 e5ff       |    |		Load	0x2,-0x1
0289 e002       |    |		Load	0x0,0x2
028a 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
028b 027e       | ~  |		Execute	Discrete,Not_Equal
028c 7801       |x   |		Jump	0x28e
028d 4801       |H   |		Short_Literal	0x1
028e a5fc       |    |		Store_Unchecked	0x2,-0x4
028f e5fc       |    |		Load	0x2,-0x4
0290 6801       |h   |		Jump_Zero	0x292
0291 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0292 8406       |    |		Call	0x2,0x6
0293 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029f       |    |		.CONST	0x029f								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0003       |    |		.CONST	0x0003								; Number of locals
029b			INIT_0298:
029b e005       |    |		Load	0x0,0x5
029c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
029d e005       |    |		Load	0x0,0x5
029e 0007       |    |		Action	Break_Optional
029f			BODY_0298:
029f e5ff       |    |		Load	0x2,-0x1
02a0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02a2 683d       |h=  |		Jump_Zero	0x2e0
02a3 00cf       |    |		Action	Mark_Auxiliary
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a6 0aff       |    |		Execute_Immediate	Plus,-0x1
02a7 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
02a8 4800       |H   |		Short_Literal	0x0
02a9 e005       |    |		Load	0x0,0x5
02aa 025c       | \  |		QQucode_0x025c
02ab 0263       | c  |		Execute	Discrete,Above_Bound
02ac 7032       |p2  |		Jump_Nonzero	0x2df
02ad e402       |    |		Load	0x2,0x2
02ae 6035       |`5  |		Indirect_Literal	Discrete,0x2e4,{0x00000000, 0x40000000}
02af 0273       | s  |		Execute	Discrete,Plus
02b0 0aff       |    |		Execute_Immediate	Plus,-0x1
02b1 00d8       |    |		Load_Top	At_Offset_0
02b2 e006       |    |		Load	0x0,0x6
02b3 0260       | `  |		Execute	Discrete,In_Type
02b4 7001       |p   |		Jump_Nonzero	0x2b6
02b5 0801       |    |		Execute_Immediate	Raise,0x1
02b6 e5ff       |    |		Load	0x2,-0x1
02b7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02b8 8003       |    |		Call	0x0,0x3
02b9 c403       |    |		Store	0x2,0x3
02ba e402       |    |		Load	0x2,0x2
02bb e403       |    |		Load	0x2,0x3
02bc e5ff       |    |		Load	0x2,-0x1
02bd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02be 01cf       |    |		Execute	Vector,Slice_Read
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 01da       |    |		Execute	Vector,Bounds
02c1 00e9       |    |		Load_Encached	String_Cache
02c2 0334       | 4  |		Declare_Variable	Array,With_Constraint
02c3 00d0       |    |		Action	Swap_Control
02c4 00d8       |    |		Load_Top	At_Offset_0
02c5 01dd       |    |		Execute	Vector,First
02c6 00da       |    |		Load_Top	At_Offset_2
02c7 01dd       |    |		Execute	Vector,First
02c8 0272       | r  |		Execute	Discrete,Minus
02c9 00da       |    |		Load_Top	At_Offset_2
02ca 01d9       |    |		Execute	Vector,Reverse_Bounds
02cb 0263       | c  |		Execute	Discrete,Above_Bound
02cc 700a       |p   |		Jump_Nonzero	0x2d7
02cd 00d8       |    |		Load_Top	At_Offset_0
02ce 00db       |    |		Load_Top	At_Offset_3
02cf 0273       | s  |		Execute	Discrete,Plus
02d0 e408       |    |		Load	0x2,0x8
02d1 01d7       |    |		Execute	Vector,Field_Read
02d2 00d9       |    |		Load_Top	At_Offset_1
02d3 e407       |    |		Load	0x2,0x7
02d4 01d5       |    |		Execute	Vector,Field_Reference
02d5 0118       |    |		Execute	Any,Write_Unchecked
02d6 3ff6       |?   |		Loop_Increasing	0x2cd
02d7 00d2       |    |		Pop_Control	Pop_Count_2
02d8 e002       |    |		Load	0x0,0x2
02d9 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
02da 00db       |    |		Load_Top	At_Offset_3
02db 0a01       |    |		Execute_Immediate	Plus,0x1
02dc c402       |    |		Store	0x2,0x2
02dd 00c8       |    |		Action	Pop_Auxiliary_Range
02de 3fce       |?   |		Loop_Increasing	0x2ad
02df 00ce       |    |		Action	Pop_Auxiliary
02e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e1 0000 0000  |    |		.XXX[0x3]
02e3 0000       |    |
02e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x40000000}
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef       |    |		.CONST	0x02ef								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0003       |    |		.CONST	0x0003								; Number of locals
02eb			INIT_02e8:
02eb e005       |    |		Load	0x0,0x5
02ec 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02ed e005       |    |		Load	0x0,0x5
02ee 0007       |    |		Action	Break_Optional
02ef			BODY_02e8:
02ef e5fe       |    |		Load	0x2,-0x2
02f0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02f1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02f2 683e       |h>  |		Jump_Zero	0x331
02f3 00cf       |    |		Action	Mark_Auxiliary
02f4 e5fe       |    |		Load	0x2,-0x2
02f5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02f6 0aff       |    |		Execute_Immediate	Plus,-0x1
02f7 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
02f8 4800       |H   |		Short_Literal	0x0
02f9 e005       |    |		Load	0x0,0x5
02fa 025c       | \  |		QQucode_0x025c
02fb 0263       | c  |		Execute	Discrete,Above_Bound
02fc 7033       |p3  |		Jump_Nonzero	0x330
02fd e402       |    |		Load	0x2,0x2
02fe 67e5       |g   |		Indirect_Literal	Discrete,0x2e4,{0x00000000, 0x40000000}
02ff 0273       | s  |		Execute	Discrete,Plus
0300 0aff       |    |		Execute_Immediate	Plus,-0x1
0301 00d8       |    |		Load_Top	At_Offset_0
0302 e006       |    |		Load	0x0,0x6
0303 0260       | `  |		Execute	Discrete,In_Type
0304 7001       |p   |		Jump_Nonzero	0x306
0305 0801       |    |		Execute_Immediate	Raise,0x1
0306 e5fe       |    |		Load	0x2,-0x2
0307 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0308 8003       |    |		Call	0x0,0x3
0309 c403       |    |		Store	0x2,0x3
030a e402       |    |		Load	0x2,0x2
030b e403       |    |		Load	0x2,0x3
030c e5fe       |    |		Load	0x2,-0x2
030d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
030e 01cf       |    |		Execute	Vector,Slice_Read
030f 00d8       |    |		Load_Top	At_Offset_0
0310 01da       |    |		Execute	Vector,Bounds
0311 00e9       |    |		Load_Encached	String_Cache
0312 0334       | 4  |		Declare_Variable	Array,With_Constraint
0313 00d0       |    |		Action	Swap_Control
0314 00d8       |    |		Load_Top	At_Offset_0
0315 01dd       |    |		Execute	Vector,First
0316 00da       |    |		Load_Top	At_Offset_2
0317 01dd       |    |		Execute	Vector,First
0318 0272       | r  |		Execute	Discrete,Minus
0319 00da       |    |		Load_Top	At_Offset_2
031a 01d9       |    |		Execute	Vector,Reverse_Bounds
031b 0263       | c  |		Execute	Discrete,Above_Bound
031c 700a       |p   |		Jump_Nonzero	0x327
031d 00d8       |    |		Load_Top	At_Offset_0
031e 00db       |    |		Load_Top	At_Offset_3
031f 0273       | s  |		Execute	Discrete,Plus
0320 e408       |    |		Load	0x2,0x8
0321 01d7       |    |		Execute	Vector,Field_Read
0322 00d9       |    |		Load_Top	At_Offset_1
0323 e407       |    |		Load	0x2,0x7
0324 01d5       |    |		Execute	Vector,Field_Reference
0325 0118       |    |		Execute	Any,Write_Unchecked
0326 3ff6       |?   |		Loop_Increasing	0x31d
0327 00d2       |    |		Pop_Control	Pop_Count_2
0328 e5ff       |    |		Load	0x2,-0x1
0329 e002       |    |		Load	0x0,0x2
032a 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
032b 00db       |    |		Load_Top	At_Offset_3
032c 0a01       |    |		Execute_Immediate	Plus,0x1
032d c402       |    |		Store	0x2,0x2
032e 00c8       |    |		Action	Pop_Auxiliary_Range
032f 3fcd       |?   |		Loop_Increasing	0x2fd
0330 00ce       |    |		Action	Pop_Auxiliary
0331 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0332 0000 0000  |    |		.BLANK	0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033f       | ?  |		.CONST	0x033f								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0003       |    |		.CONST	0x0003								; Number of locals
033b			INIT_0338:
033b e005       |    |		Load	0x0,0x5
033c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
033d e005       |    |		Load	0x0,0x5
033e 0007       |    |		Action	Break_Optional
033f			BODY_0338:
033f e5ff       |    |		Load	0x2,-0x1
0340 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0341 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0342 685f       |h_  |		Jump_Zero	0x3a2
0343 00cf       |    |		Action	Mark_Auxiliary
0344 e5ff       |    |		Load	0x2,-0x1
0345 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0346 0aff       |    |		Execute_Immediate	Plus,-0x1
0347 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
0348 4801       |H   |		Short_Literal	0x1
0349 e005       |    |		Load	0x0,0x5
034a 025c       | \  |		QQucode_0x025c
034b 0263       | c  |		Execute	Discrete,Above_Bound
034c 7032       |p2  |		Jump_Nonzero	0x37f
034d e402       |    |		Load	0x2,0x2
034e 6059       |`Y  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x40000000}
034f 0273       | s  |		Execute	Discrete,Plus
0350 0aff       |    |		Execute_Immediate	Plus,-0x1
0351 00d8       |    |		Load_Top	At_Offset_0
0352 e006       |    |		Load	0x0,0x6
0353 0260       | `  |		Execute	Discrete,In_Type
0354 7001       |p   |		Jump_Nonzero	0x356
0355 0801       |    |		Execute_Immediate	Raise,0x1
0356 e5ff       |    |		Load	0x2,-0x1
0357 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0358 8003       |    |		Call	0x0,0x3
0359 c403       |    |		Store	0x2,0x3
035a e402       |    |		Load	0x2,0x2
035b e403       |    |		Load	0x2,0x3
035c e5ff       |    |		Load	0x2,-0x1
035d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
035e 01cf       |    |		Execute	Vector,Slice_Read
035f 00d8       |    |		Load_Top	At_Offset_0
0360 01da       |    |		Execute	Vector,Bounds
0361 00e9       |    |		Load_Encached	String_Cache
0362 0334       | 4  |		Declare_Variable	Array,With_Constraint
0363 00d0       |    |		Action	Swap_Control
0364 00d8       |    |		Load_Top	At_Offset_0
0365 01dd       |    |		Execute	Vector,First
0366 00da       |    |		Load_Top	At_Offset_2
0367 01dd       |    |		Execute	Vector,First
0368 0272       | r  |		Execute	Discrete,Minus
0369 00da       |    |		Load_Top	At_Offset_2
036a 01d9       |    |		Execute	Vector,Reverse_Bounds
036b 0263       | c  |		Execute	Discrete,Above_Bound
036c 700a       |p   |		Jump_Nonzero	0x377
036d 00d8       |    |		Load_Top	At_Offset_0
036e 00db       |    |		Load_Top	At_Offset_3
036f 0273       | s  |		Execute	Discrete,Plus
0370 e408       |    |		Load	0x2,0x8
0371 01d7       |    |		Execute	Vector,Field_Read
0372 00d9       |    |		Load_Top	At_Offset_1
0373 e407       |    |		Load	0x2,0x7
0374 01d5       |    |		Execute	Vector,Field_Reference
0375 0118       |    |		Execute	Any,Write_Unchecked
0376 3ff6       |?   |		Loop_Increasing	0x36d
0377 00d2       |    |		Pop_Control	Pop_Count_2
0378 e002       |    |		Load	0x0,0x2
0379 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
037a 00db       |    |		Load_Top	At_Offset_3
037b 0a01       |    |		Execute_Immediate	Plus,0x1
037c c402       |    |		Store	0x2,0x2
037d 00c8       |    |		Action	Pop_Auxiliary_Range
037e 3fce       |?   |		Loop_Increasing	0x34d
037f 00ce       |    |		Action	Pop_Auxiliary
0380 00d9       |    |		Load_Top	At_Offset_1
0381 e5ff       |    |		Load	0x2,-0x1
0382 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0383 e5ff       |    |		Load	0x2,-0x1
0384 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0385 01cf       |    |		Execute	Vector,Slice_Read
0386 00d8       |    |		Load_Top	At_Offset_0
0387 01da       |    |		Execute	Vector,Bounds
0388 00e9       |    |		Load_Encached	String_Cache
0389 0334       | 4  |		Declare_Variable	Array,With_Constraint
038a 00d0       |    |		Action	Swap_Control
038b 00d8       |    |		Load_Top	At_Offset_0
038c 01dd       |    |		Execute	Vector,First
038d 00da       |    |		Load_Top	At_Offset_2
038e 01dd       |    |		Execute	Vector,First
038f 0272       | r  |		Execute	Discrete,Minus
0390 00da       |    |		Load_Top	At_Offset_2
0391 01d9       |    |		Execute	Vector,Reverse_Bounds
0392 0263       | c  |		Execute	Discrete,Above_Bound
0393 700a       |p   |		Jump_Nonzero	0x39e
0394 00d8       |    |		Load_Top	At_Offset_0
0395 00db       |    |		Load_Top	At_Offset_3
0396 0273       | s  |		Execute	Discrete,Plus
0397 e405       |    |		Load	0x2,0x5
0398 01d7       |    |		Execute	Vector,Field_Read
0399 00d9       |    |		Load_Top	At_Offset_1
039a e404       |    |		Load	0x2,0x4
039b 01d5       |    |		Execute	Vector,Field_Reference
039c 0118       |    |		Execute	Any,Write_Unchecked
039d 3ff6       |?   |		Loop_Increasing	0x394
039e 00d2       |    |		Pop_Control	Pop_Count_2
039f e002       |    |		Load	0x0,0x2
03a0 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
03a1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a2 4801       |H   |		Short_Literal	0x1
03a3 e002       |    |		Load	0x0,0x2
03a4 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
03a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a6 0000 0000  |    |		.XXX[0x2]
03a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x40000000}
03ac 0000 0000  |    |		.BLANK	0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b7       |    |		.CONST	0x03b7								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0003       |    |		.CONST	0x0003								; Number of locals
03b3			INIT_03b0:
03b3 e005       |    |		Load	0x0,0x5
03b4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
03b5 e005       |    |		Load	0x0,0x5
03b6 0007       |    |		Action	Break_Optional
03b7			BODY_03b0:
03b7 e5fe       |    |		Load	0x2,-0x2
03b8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03b9 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
03ba 6861       |ha  |		Jump_Zero	0x41c
03bb 00cf       |    |		Action	Mark_Auxiliary
03bc e5fe       |    |		Load	0x2,-0x2
03bd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03be 0aff       |    |		Execute_Immediate	Plus,-0x1
03bf 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
03c0 4801       |H   |		Short_Literal	0x1
03c1 e005       |    |		Load	0x0,0x5
03c2 025c       | \  |		QQucode_0x025c
03c3 0263       | c  |		Execute	Discrete,Above_Bound
03c4 7033       |p3  |		Jump_Nonzero	0x3f8
03c5 e402       |    |		Load	0x2,0x2
03c6 67e1       |g   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x40000000}
03c7 0273       | s  |		Execute	Discrete,Plus
03c8 0aff       |    |		Execute_Immediate	Plus,-0x1
03c9 00d8       |    |		Load_Top	At_Offset_0
03ca e006       |    |		Load	0x0,0x6
03cb 0260       | `  |		Execute	Discrete,In_Type
03cc 7001       |p   |		Jump_Nonzero	0x3ce
03cd 0801       |    |		Execute_Immediate	Raise,0x1
03ce e5fe       |    |		Load	0x2,-0x2
03cf 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03d0 8003       |    |		Call	0x0,0x3
03d1 c403       |    |		Store	0x2,0x3
03d2 e402       |    |		Load	0x2,0x2
03d3 e403       |    |		Load	0x2,0x3
03d4 e5fe       |    |		Load	0x2,-0x2
03d5 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03d6 01cf       |    |		Execute	Vector,Slice_Read
03d7 00d8       |    |		Load_Top	At_Offset_0
03d8 01da       |    |		Execute	Vector,Bounds
03d9 00e9       |    |		Load_Encached	String_Cache
03da 0334       | 4  |		Declare_Variable	Array,With_Constraint
03db 00d0       |    |		Action	Swap_Control
03dc 00d8       |    |		Load_Top	At_Offset_0
03dd 01dd       |    |		Execute	Vector,First
03de 00da       |    |		Load_Top	At_Offset_2
03df 01dd       |    |		Execute	Vector,First
03e0 0272       | r  |		Execute	Discrete,Minus
03e1 00da       |    |		Load_Top	At_Offset_2
03e2 01d9       |    |		Execute	Vector,Reverse_Bounds
03e3 0263       | c  |		Execute	Discrete,Above_Bound
03e4 700a       |p   |		Jump_Nonzero	0x3ef
03e5 00d8       |    |		Load_Top	At_Offset_0
03e6 00db       |    |		Load_Top	At_Offset_3
03e7 0273       | s  |		Execute	Discrete,Plus
03e8 e408       |    |		Load	0x2,0x8
03e9 01d7       |    |		Execute	Vector,Field_Read
03ea 00d9       |    |		Load_Top	At_Offset_1
03eb e407       |    |		Load	0x2,0x7
03ec 01d5       |    |		Execute	Vector,Field_Reference
03ed 0118       |    |		Execute	Any,Write_Unchecked
03ee 3ff6       |?   |		Loop_Increasing	0x3e5
03ef 00d2       |    |		Pop_Control	Pop_Count_2
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 e002       |    |		Load	0x0,0x2
03f2 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
03f3 00db       |    |		Load_Top	At_Offset_3
03f4 0a01       |    |		Execute_Immediate	Plus,0x1
03f5 c402       |    |		Store	0x2,0x2
03f6 00c8       |    |		Action	Pop_Auxiliary_Range
03f7 3fcd       |?   |		Loop_Increasing	0x3c5
03f8 00ce       |    |		Action	Pop_Auxiliary
03f9 00d9       |    |		Load_Top	At_Offset_1
03fa e5fe       |    |		Load	0x2,-0x2
03fb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03fc e5fe       |    |		Load	0x2,-0x2
03fd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03fe 01cf       |    |		Execute	Vector,Slice_Read
03ff 00d8       |    |		Load_Top	At_Offset_0
0400 01da       |    |		Execute	Vector,Bounds
0401 00e9       |    |		Load_Encached	String_Cache
0402 0334       | 4  |		Declare_Variable	Array,With_Constraint
0403 00d0       |    |		Action	Swap_Control
0404 00d8       |    |		Load_Top	At_Offset_0
0405 01dd       |    |		Execute	Vector,First
0406 00da       |    |		Load_Top	At_Offset_2
0407 01dd       |    |		Execute	Vector,First
0408 0272       | r  |		Execute	Discrete,Minus
0409 00da       |    |		Load_Top	At_Offset_2
040a 01d9       |    |		Execute	Vector,Reverse_Bounds
040b 0263       | c  |		Execute	Discrete,Above_Bound
040c 700a       |p   |		Jump_Nonzero	0x417
040d 00d8       |    |		Load_Top	At_Offset_0
040e 00db       |    |		Load_Top	At_Offset_3
040f 0273       | s  |		Execute	Discrete,Plus
0410 e405       |    |		Load	0x2,0x5
0411 01d7       |    |		Execute	Vector,Field_Read
0412 00d9       |    |		Load_Top	At_Offset_1
0413 e404       |    |		Load	0x2,0x4
0414 01d5       |    |		Execute	Vector,Field_Reference
0415 0118       |    |		Execute	Any,Write_Unchecked
0416 3ff6       |?   |		Loop_Increasing	0x40d
0417 00d2       |    |		Pop_Control	Pop_Count_2
0418 e5ff       |    |		Load	0x2,-0x1
0419 e002       |    |		Load	0x0,0x2
041a 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
041b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
041c 4801       |H   |		Short_Literal	0x1
041d e5ff       |    |		Load	0x2,-0x1
041e e002       |    |		Load	0x0,0x2
041f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0420 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0421 0000 0000  |    |		.BLANK	0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042f       | /  |		.CONST	0x042f								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0003       |    |		.CONST	0x0003								; Number of locals
042b			INIT_0428:
042b e005       |    |		Load	0x0,0x5
042c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
042d e005       |    |		Load	0x0,0x5
042e 0007       |    |		Action	Break_Optional
042f			BODY_0428:
042f e5ff       |    |		Load	0x2,-0x1
0430 0227       | '  |		Execute	Access,All_Reference
0431 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0432 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0433 6840       |h@  |		Jump_Zero	0x474
0434 00cf       |    |		Action	Mark_Auxiliary
0435 e5ff       |    |		Load	0x2,-0x1
0436 0227       | '  |		Execute	Access,All_Reference
0437 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0438 0aff       |    |		Execute_Immediate	Plus,-0x1
0439 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
043a 4800       |H   |		Short_Literal	0x0
043b e005       |    |		Load	0x0,0x5
043c 025c       | \  |		QQucode_0x025c
043d 0263       | c  |		Execute	Discrete,Above_Bound
043e 7034       |p4  |		Jump_Nonzero	0x473
043f e402       |    |		Load	0x2,0x2
0440 6037       |`7  |		Indirect_Literal	Discrete,0x478,{0x00000000, 0x40000000}
0441 0273       | s  |		Execute	Discrete,Plus
0442 0aff       |    |		Execute_Immediate	Plus,-0x1
0443 00d8       |    |		Load_Top	At_Offset_0
0444 e006       |    |		Load	0x0,0x6
0445 0260       | `  |		Execute	Discrete,In_Type
0446 7001       |p   |		Jump_Nonzero	0x448
0447 0801       |    |		Execute_Immediate	Raise,0x1
0448 e5ff       |    |		Load	0x2,-0x1
0449 0227       | '  |		Execute	Access,All_Reference
044a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
044b 8003       |    |		Call	0x0,0x3
044c c403       |    |		Store	0x2,0x3
044d e402       |    |		Load	0x2,0x2
044e e403       |    |		Load	0x2,0x3
044f e5ff       |    |		Load	0x2,-0x1
0450 0227       | '  |		Execute	Access,All_Reference
0451 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0452 01cf       |    |		Execute	Vector,Slice_Read
0453 00d8       |    |		Load_Top	At_Offset_0
0454 01da       |    |		Execute	Vector,Bounds
0455 00e9       |    |		Load_Encached	String_Cache
0456 0334       | 4  |		Declare_Variable	Array,With_Constraint
0457 00d0       |    |		Action	Swap_Control
0458 00d8       |    |		Load_Top	At_Offset_0
0459 01dd       |    |		Execute	Vector,First
045a 00da       |    |		Load_Top	At_Offset_2
045b 01dd       |    |		Execute	Vector,First
045c 0272       | r  |		Execute	Discrete,Minus
045d 00da       |    |		Load_Top	At_Offset_2
045e 01d9       |    |		Execute	Vector,Reverse_Bounds
045f 0263       | c  |		Execute	Discrete,Above_Bound
0460 700a       |p   |		Jump_Nonzero	0x46b
0461 00d8       |    |		Load_Top	At_Offset_0
0462 00db       |    |		Load_Top	At_Offset_3
0463 0273       | s  |		Execute	Discrete,Plus
0464 e408       |    |		Load	0x2,0x8
0465 01d7       |    |		Execute	Vector,Field_Read
0466 00d9       |    |		Load_Top	At_Offset_1
0467 e407       |    |		Load	0x2,0x7
0468 01d5       |    |		Execute	Vector,Field_Reference
0469 0118       |    |		Execute	Any,Write_Unchecked
046a 3ff6       |?   |		Loop_Increasing	0x461
046b 00d2       |    |		Pop_Control	Pop_Count_2
046c e002       |    |		Load	0x0,0x2
046d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
046e 00db       |    |		Load_Top	At_Offset_3
046f 0a01       |    |		Execute_Immediate	Plus,0x1
0470 c402       |    |		Store	0x2,0x2
0471 00c8       |    |		Action	Pop_Auxiliary_Range
0472 3fcc       |?   |		Loop_Increasing	0x43f
0473 00ce       |    |		Action	Pop_Auxiliary
0474 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0475 0000 0000  |    |		.XXX[0x3]
0477 0000       |    |
0478 0000 0000  |    |		.LITERAL	{0x00000000, 0x40000000}
047c 0000 0000  |    |		.BLANK	0000[0x4]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0487       |    |		.CONST	0x0487								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0003       |    |		.CONST	0x0003								; Number of locals
0483			INIT_0480:
0483 e005       |    |		Load	0x0,0x5
0484 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0485 e005       |    |		Load	0x0,0x5
0486 0007       |    |		Action	Break_Optional
0487			BODY_0480:
0487 e5fe       |    |		Load	0x2,-0x2
0488 0227       | '  |		Execute	Access,All_Reference
0489 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
048a 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
048b 6841       |hA  |		Jump_Zero	0x4cd
048c 00cf       |    |		Action	Mark_Auxiliary
048d e5fe       |    |		Load	0x2,-0x2
048e 0227       | '  |		Execute	Access,All_Reference
048f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0490 0aff       |    |		Execute_Immediate	Plus,-0x1
0491 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
0492 4800       |H   |		Short_Literal	0x0
0493 e005       |    |		Load	0x0,0x5
0494 025c       | \  |		QQucode_0x025c
0495 0263       | c  |		Execute	Discrete,Above_Bound
0496 7035       |p5  |		Jump_Nonzero	0x4cc
0497 e402       |    |		Load	0x2,0x2
0498 67df       |g   |		Indirect_Literal	Discrete,0x478,{0x00000000, 0x40000000}
0499 0273       | s  |		Execute	Discrete,Plus
049a 0aff       |    |		Execute_Immediate	Plus,-0x1
049b 00d8       |    |		Load_Top	At_Offset_0
049c e006       |    |		Load	0x0,0x6
049d 0260       | `  |		Execute	Discrete,In_Type
049e 7001       |p   |		Jump_Nonzero	0x4a0
049f 0801       |    |		Execute_Immediate	Raise,0x1
04a0 e5fe       |    |		Load	0x2,-0x2
04a1 0227       | '  |		Execute	Access,All_Reference
04a2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04a3 8003       |    |		Call	0x0,0x3
04a4 c403       |    |		Store	0x2,0x3
04a5 e402       |    |		Load	0x2,0x2
04a6 e403       |    |		Load	0x2,0x3
04a7 e5fe       |    |		Load	0x2,-0x2
04a8 0227       | '  |		Execute	Access,All_Reference
04a9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04aa 01cf       |    |		Execute	Vector,Slice_Read
04ab 00d8       |    |		Load_Top	At_Offset_0
04ac 01da       |    |		Execute	Vector,Bounds
04ad 00e9       |    |		Load_Encached	String_Cache
04ae 0334       | 4  |		Declare_Variable	Array,With_Constraint
04af 00d0       |    |		Action	Swap_Control
04b0 00d8       |    |		Load_Top	At_Offset_0
04b1 01dd       |    |		Execute	Vector,First
04b2 00da       |    |		Load_Top	At_Offset_2
04b3 01dd       |    |		Execute	Vector,First
04b4 0272       | r  |		Execute	Discrete,Minus
04b5 00da       |    |		Load_Top	At_Offset_2
04b6 01d9       |    |		Execute	Vector,Reverse_Bounds
04b7 0263       | c  |		Execute	Discrete,Above_Bound
04b8 700a       |p   |		Jump_Nonzero	0x4c3
04b9 00d8       |    |		Load_Top	At_Offset_0
04ba 00db       |    |		Load_Top	At_Offset_3
04bb 0273       | s  |		Execute	Discrete,Plus
04bc e408       |    |		Load	0x2,0x8
04bd 01d7       |    |		Execute	Vector,Field_Read
04be 00d9       |    |		Load_Top	At_Offset_1
04bf e407       |    |		Load	0x2,0x7
04c0 01d5       |    |		Execute	Vector,Field_Reference
04c1 0118       |    |		Execute	Any,Write_Unchecked
04c2 3ff6       |?   |		Loop_Increasing	0x4b9
04c3 00d2       |    |		Pop_Control	Pop_Count_2
04c4 e5ff       |    |		Load	0x2,-0x1
04c5 e002       |    |		Load	0x0,0x2
04c6 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
04c7 00db       |    |		Load_Top	At_Offset_3
04c8 0a01       |    |		Execute_Immediate	Plus,0x1
04c9 c402       |    |		Store	0x2,0x2
04ca 00c8       |    |		Action	Pop_Auxiliary_Range
04cb 3fcb       |?   |		Loop_Increasing	0x497
04cc 00ce       |    |		Action	Pop_Auxiliary
04cd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04ce 0000 0000  |    |		.XXX[0x2]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d7       |    |		.CONST	0x04d7								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0003       |    |		.CONST	0x0003								; Number of locals
04d3			INIT_04d0:
04d3 e005       |    |		Load	0x0,0x5
04d4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
04d5 e005       |    |		Load	0x0,0x5
04d6 0007       |    |		Action	Break_Optional
04d7			BODY_04d0:
04d7 e5ff       |    |		Load	0x2,-0x1
04d8 0227       | '  |		Execute	Access,All_Reference
04d9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04da 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
04db 6864       |hd  |		Jump_Zero	0x540
04dc 00cf       |    |		Action	Mark_Auxiliary
04dd e5ff       |    |		Load	0x2,-0x1
04de 0227       | '  |		Execute	Access,All_Reference
04df 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e0 0aff       |    |		Execute_Immediate	Plus,-0x1
04e1 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
04e2 4801       |H   |		Short_Literal	0x1
04e3 e005       |    |		Load	0x0,0x5
04e4 025c       | \  |		QQucode_0x025c
04e5 0263       | c  |		Execute	Discrete,Above_Bound
04e6 7034       |p4  |		Jump_Nonzero	0x51b
04e7 e402       |    |		Load	0x2,0x2
04e8 605b       |`[  |		Indirect_Literal	Discrete,0x544,{0x00000000, 0x40000000}
04e9 0273       | s  |		Execute	Discrete,Plus
04ea 0aff       |    |		Execute_Immediate	Plus,-0x1
04eb 00d8       |    |		Load_Top	At_Offset_0
04ec e006       |    |		Load	0x0,0x6
04ed 0260       | `  |		Execute	Discrete,In_Type
04ee 7001       |p   |		Jump_Nonzero	0x4f0
04ef 0801       |    |		Execute_Immediate	Raise,0x1
04f0 e5ff       |    |		Load	0x2,-0x1
04f1 0227       | '  |		Execute	Access,All_Reference
04f2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04f3 8003       |    |		Call	0x0,0x3
04f4 c403       |    |		Store	0x2,0x3
04f5 e402       |    |		Load	0x2,0x2
04f6 e403       |    |		Load	0x2,0x3
04f7 e5ff       |    |		Load	0x2,-0x1
04f8 0227       | '  |		Execute	Access,All_Reference
04f9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04fa 01cf       |    |		Execute	Vector,Slice_Read
04fb 00d8       |    |		Load_Top	At_Offset_0
04fc 01da       |    |		Execute	Vector,Bounds
04fd 00e9       |    |		Load_Encached	String_Cache
04fe 0334       | 4  |		Declare_Variable	Array,With_Constraint
04ff 00d0       |    |		Action	Swap_Control
0500 00d8       |    |		Load_Top	At_Offset_0
0501 01dd       |    |		Execute	Vector,First
0502 00da       |    |		Load_Top	At_Offset_2
0503 01dd       |    |		Execute	Vector,First
0504 0272       | r  |		Execute	Discrete,Minus
0505 00da       |    |		Load_Top	At_Offset_2
0506 01d9       |    |		Execute	Vector,Reverse_Bounds
0507 0263       | c  |		Execute	Discrete,Above_Bound
0508 700a       |p   |		Jump_Nonzero	0x513
0509 00d8       |    |		Load_Top	At_Offset_0
050a 00db       |    |		Load_Top	At_Offset_3
050b 0273       | s  |		Execute	Discrete,Plus
050c e408       |    |		Load	0x2,0x8
050d 01d7       |    |		Execute	Vector,Field_Read
050e 00d9       |    |		Load_Top	At_Offset_1
050f e407       |    |		Load	0x2,0x7
0510 01d5       |    |		Execute	Vector,Field_Reference
0511 0118       |    |		Execute	Any,Write_Unchecked
0512 3ff6       |?   |		Loop_Increasing	0x509
0513 00d2       |    |		Pop_Control	Pop_Count_2
0514 e002       |    |		Load	0x0,0x2
0515 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0516 00db       |    |		Load_Top	At_Offset_3
0517 0a01       |    |		Execute_Immediate	Plus,0x1
0518 c402       |    |		Store	0x2,0x2
0519 00c8       |    |		Action	Pop_Auxiliary_Range
051a 3fcc       |?   |		Loop_Increasing	0x4e7
051b 00ce       |    |		Action	Pop_Auxiliary
051c 00d9       |    |		Load_Top	At_Offset_1
051d e5ff       |    |		Load	0x2,-0x1
051e 0227       | '  |		Execute	Access,All_Reference
051f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0520 e5ff       |    |		Load	0x2,-0x1
0521 0227       | '  |		Execute	Access,All_Reference
0522 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0523 01cf       |    |		Execute	Vector,Slice_Read
0524 00d8       |    |		Load_Top	At_Offset_0
0525 01da       |    |		Execute	Vector,Bounds
0526 00e9       |    |		Load_Encached	String_Cache
0527 0334       | 4  |		Declare_Variable	Array,With_Constraint
0528 00d0       |    |		Action	Swap_Control
0529 00d8       |    |		Load_Top	At_Offset_0
052a 01dd       |    |		Execute	Vector,First
052b 00da       |    |		Load_Top	At_Offset_2
052c 01dd       |    |		Execute	Vector,First
052d 0272       | r  |		Execute	Discrete,Minus
052e 00da       |    |		Load_Top	At_Offset_2
052f 01d9       |    |		Execute	Vector,Reverse_Bounds
0530 0263       | c  |		Execute	Discrete,Above_Bound
0531 700a       |p   |		Jump_Nonzero	0x53c
0532 00d8       |    |		Load_Top	At_Offset_0
0533 00db       |    |		Load_Top	At_Offset_3
0534 0273       | s  |		Execute	Discrete,Plus
0535 e405       |    |		Load	0x2,0x5
0536 01d7       |    |		Execute	Vector,Field_Read
0537 00d9       |    |		Load_Top	At_Offset_1
0538 e404       |    |		Load	0x2,0x4
0539 01d5       |    |		Execute	Vector,Field_Reference
053a 0118       |    |		Execute	Any,Write_Unchecked
053b 3ff6       |?   |		Loop_Increasing	0x532
053c 00d2       |    |		Pop_Control	Pop_Count_2
053d e002       |    |		Load	0x0,0x2
053e 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
053f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0540 4801       |H   |		Short_Literal	0x1
0541 e002       |    |		Load	0x0,0x2
0542 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0543 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0544 0000 0000  |    |		.LITERAL	{0x00000000, 0x40000000}
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054f       | O  |		.CONST	0x054f								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0003       |    |		.CONST	0x0003								; Number of locals
054b			INIT_0548:
054b e005       |    |		Load	0x0,0x5
054c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
054d e005       |    |		Load	0x0,0x5
054e 0007       |    |		Action	Break_Optional
054f			BODY_0548:
054f e5fe       |    |		Load	0x2,-0x2
0550 0227       | '  |		Execute	Access,All_Reference
0551 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0552 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0553 6866       |hf  |		Jump_Zero	0x5ba
0554 00cf       |    |		Action	Mark_Auxiliary
0555 e5fe       |    |		Load	0x2,-0x2
0556 0227       | '  |		Execute	Access,All_Reference
0557 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0558 0aff       |    |		Execute_Immediate	Plus,-0x1
0559 09e2       |    |		Execute_Immediate	Binary_Scale,-0x1e
055a 4801       |H   |		Short_Literal	0x1
055b e005       |    |		Load	0x0,0x5
055c 025c       | \  |		QQucode_0x025c
055d 0263       | c  |		Execute	Discrete,Above_Bound
055e 7035       |p5  |		Jump_Nonzero	0x594
055f e402       |    |		Load	0x2,0x2
0560 67e3       |g   |		Indirect_Literal	Discrete,0x544,{0x00000000, 0x40000000}
0561 0273       | s  |		Execute	Discrete,Plus
0562 0aff       |    |		Execute_Immediate	Plus,-0x1
0563 00d8       |    |		Load_Top	At_Offset_0
0564 e006       |    |		Load	0x0,0x6
0565 0260       | `  |		Execute	Discrete,In_Type
0566 7001       |p   |		Jump_Nonzero	0x568
0567 0801       |    |		Execute_Immediate	Raise,0x1
0568 e5fe       |    |		Load	0x2,-0x2
0569 0227       | '  |		Execute	Access,All_Reference
056a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
056b 8003       |    |		Call	0x0,0x3
056c c403       |    |		Store	0x2,0x3
056d e402       |    |		Load	0x2,0x2
056e e403       |    |		Load	0x2,0x3
056f e5fe       |    |		Load	0x2,-0x2
0570 0227       | '  |		Execute	Access,All_Reference
0571 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0572 01cf       |    |		Execute	Vector,Slice_Read
0573 00d8       |    |		Load_Top	At_Offset_0
0574 01da       |    |		Execute	Vector,Bounds
0575 00e9       |    |		Load_Encached	String_Cache
0576 0334       | 4  |		Declare_Variable	Array,With_Constraint
0577 00d0       |    |		Action	Swap_Control
0578 00d8       |    |		Load_Top	At_Offset_0
0579 01dd       |    |		Execute	Vector,First
057a 00da       |    |		Load_Top	At_Offset_2
057b 01dd       |    |		Execute	Vector,First
057c 0272       | r  |		Execute	Discrete,Minus
057d 00da       |    |		Load_Top	At_Offset_2
057e 01d9       |    |		Execute	Vector,Reverse_Bounds
057f 0263       | c  |		Execute	Discrete,Above_Bound
0580 700a       |p   |		Jump_Nonzero	0x58b
0581 00d8       |    |		Load_Top	At_Offset_0
0582 00db       |    |		Load_Top	At_Offset_3
0583 0273       | s  |		Execute	Discrete,Plus
0584 e408       |    |		Load	0x2,0x8
0585 01d7       |    |		Execute	Vector,Field_Read
0586 00d9       |    |		Load_Top	At_Offset_1
0587 e407       |    |		Load	0x2,0x7
0588 01d5       |    |		Execute	Vector,Field_Reference
0589 0118       |    |		Execute	Any,Write_Unchecked
058a 3ff6       |?   |		Loop_Increasing	0x581
058b 00d2       |    |		Pop_Control	Pop_Count_2
058c e5ff       |    |		Load	0x2,-0x1
058d e002       |    |		Load	0x0,0x2
058e 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
058f 00db       |    |		Load_Top	At_Offset_3
0590 0a01       |    |		Execute_Immediate	Plus,0x1
0591 c402       |    |		Store	0x2,0x2
0592 00c8       |    |		Action	Pop_Auxiliary_Range
0593 3fcb       |?   |		Loop_Increasing	0x55f
0594 00ce       |    |		Action	Pop_Auxiliary
0595 00d9       |    |		Load_Top	At_Offset_1
0596 e5fe       |    |		Load	0x2,-0x2
0597 0227       | '  |		Execute	Access,All_Reference
0598 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0599 e5fe       |    |		Load	0x2,-0x2
059a 0227       | '  |		Execute	Access,All_Reference
059b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
059c 01cf       |    |		Execute	Vector,Slice_Read
059d 00d8       |    |		Load_Top	At_Offset_0
059e 01da       |    |		Execute	Vector,Bounds
059f 00e9       |    |		Load_Encached	String_Cache
05a0 0334       | 4  |		Declare_Variable	Array,With_Constraint
05a1 00d0       |    |		Action	Swap_Control
05a2 00d8       |    |		Load_Top	At_Offset_0
05a3 01dd       |    |		Execute	Vector,First
05a4 00da       |    |		Load_Top	At_Offset_2
05a5 01dd       |    |		Execute	Vector,First
05a6 0272       | r  |		Execute	Discrete,Minus
05a7 00da       |    |		Load_Top	At_Offset_2
05a8 01d9       |    |		Execute	Vector,Reverse_Bounds
05a9 0263       | c  |		Execute	Discrete,Above_Bound
05aa 700a       |p   |		Jump_Nonzero	0x5b5
05ab 00d8       |    |		Load_Top	At_Offset_0
05ac 00db       |    |		Load_Top	At_Offset_3
05ad 0273       | s  |		Execute	Discrete,Plus
05ae e405       |    |		Load	0x2,0x5
05af 01d7       |    |		Execute	Vector,Field_Read
05b0 00d9       |    |		Load_Top	At_Offset_1
05b1 e404       |    |		Load	0x2,0x4
05b2 01d5       |    |		Execute	Vector,Field_Reference
05b3 0118       |    |		Execute	Any,Write_Unchecked
05b4 3ff6       |?   |		Loop_Increasing	0x5ab
05b5 00d2       |    |		Pop_Control	Pop_Count_2
05b6 e5ff       |    |		Load	0x2,-0x1
05b7 e002       |    |		Load	0x0,0x2
05b8 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
05b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ba 4801       |H   |		Short_Literal	0x1
05bb e5ff       |    |		Load	0x2,-0x1
05bc e002       |    |		Load	0x0,0x2
05bd 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
05be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05bf 0000       |    |		.XXX[0x1]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05ca       |    |		.CONST	0x05ca								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0003       |    |		.CONST	0x0003								; Number of locals
05c3			INIT_05c0:
05c3 e5fd       |    |		Load	0x2,-0x3
05c4 0227       | '  |		Execute	Access,All_Reference
05c5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05c6 0a01       |    |		Execute_Immediate	Plus,0x1
05c7 e005       |    |		Load	0x0,0x5
05c8 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
05c9 e005       |    |		Load	0x0,0x5
05ca			BODY_05c0:
05ca 00cf       |    |		Action	Mark_Auxiliary
05cb 0007       |    |		Action	Break_Optional
05cc 00e3       |    |		Load_Encached	Natural_Cache
05cd e405       |    |		Load	0x2,0x5
05ce e5ff       |    |		Load	0x2,-0x1
05cf e002       |    |		Load	0x0,0x2
05d0 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
05d1 00d1       |    |		Pop_Control	Pop_Count_1
05d2 c404       |    |		Store	0x2,0x4
05d3 e5fd       |    |		Load	0x2,-0x3
05d4 0227       | '  |		Execute	Access,All_Reference
05d5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05d6 e404       |    |		Load	0x2,0x4
05d7 0273       | s  |		Execute	Discrete,Plus
05d8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05d9 00d9       |    |		Load_Top	At_Offset_1
05da e5fd       |    |		Load	0x2,-0x3
05db 0227       | '  |		Execute	Access,All_Reference
05dc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05dd 027d       | }  |		Execute	Discrete,Greater
05de 6810       |h   |		Jump_Zero	0x5ef
05df e5fd       |    |		Load	0x2,-0x3
05e0 00da       |    |		Load_Top	At_Offset_2
05e1 e5fe       |    |		Load	0x2,-0x2
05e2 0273       | s  |		Execute	Discrete,Plus
05e3 0aff       |    |		Execute_Immediate	Plus,-0x1
05e4 e5fe       |    |		Load	0x2,-0x2
05e5 0270       | p  |		Execute	Discrete,Divide
05e6 e5fe       |    |		Load	0x2,-0x2
05e7 0271       | q  |		Execute	Discrete,Times
05e8 00d8       |    |		Load_Top	At_Offset_0
05e9 e005       |    |		Load	0x0,0x5
05ea 0260       | `  |		Execute	Discrete,In_Type
05eb 7001       |p   |		Jump_Nonzero	0x5ed
05ec 0801       |    |		Execute_Immediate	Raise,0x1
05ed 8007       |    |		Call	0x0,0x7
05ee c5fd       |    |		Store	0x2,-0x3
05ef 4801       |H   |		Short_Literal	0x1
05f0 e404       |    |		Load	0x2,0x4
05f1 e405       |    |		Load	0x2,0x5
05f2 01cf       |    |		Execute	Vector,Slice_Read
05f3 00d8       |    |		Load_Top	At_Offset_0
05f4 01da       |    |		Execute	Vector,Bounds
05f5 e004       |    |		Load	0x0,0x4
05f6 0334       | 4  |		Declare_Variable	Array,With_Constraint
05f7 00d0       |    |		Action	Swap_Control
05f8 00d8       |    |		Load_Top	At_Offset_0
05f9 01dd       |    |		Execute	Vector,First
05fa 00da       |    |		Load_Top	At_Offset_2
05fb 01dd       |    |		Execute	Vector,First
05fc 0272       | r  |		Execute	Discrete,Minus
05fd 00da       |    |		Load_Top	At_Offset_2
05fe 01d9       |    |		Execute	Vector,Reverse_Bounds
05ff 0263       | c  |		Execute	Discrete,Above_Bound
0600 700a       |p   |		Jump_Nonzero	0x60b
0601 00d8       |    |		Load_Top	At_Offset_0
0602 00db       |    |		Load_Top	At_Offset_3
0603 0273       | s  |		Execute	Discrete,Plus
0604 e606       |    |		Load	0x3,0x6
0605 01d7       |    |		Execute	Vector,Field_Read
0606 00d9       |    |		Load_Top	At_Offset_1
0607 e605       |    |		Load	0x3,0x5
0608 01d5       |    |		Execute	Vector,Field_Reference
0609 0118       |    |		Execute	Any,Write_Unchecked
060a 3ff6       |?   |		Loop_Increasing	0x601
060b 00d2       |    |		Pop_Control	Pop_Count_2
060c 00db       |    |		Load_Top	At_Offset_3
060d 00db       |    |		Load_Top	At_Offset_3
060e e5fd       |    |		Load	0x2,-0x3
060f 0229       | )  |		Execute	Access,All_Read
0610 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0611 01ce       |    |		Execute	Vector,Slice_Write
0612 00d9       |    |		Load_Top	At_Offset_1
0613 e5fd       |    |		Load	0x2,-0x3
0614 0227       | '  |		Execute	Access,All_Reference
0615 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0616 e5ff       |    |		Load	0x2,-0x1
0617 e002       |    |		Load	0x0,0x2
0618 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0619 a5fa       |    |		Store_Unchecked	0x2,-0x6
061a e5fa       |    |		Load	0x2,-0x6
061b 7006       |p   |		Jump_Nonzero	0x622
061c e403       |    |		Load	0x2,0x3
061d e5ff       |    |		Load	0x2,-0x1
061e e002       |    |		Load	0x0,0x2
061f 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0620 027e       | ~  |		Execute	Discrete,Not_Equal
0621 7801       |x   |		Jump	0x623
0622 4801       |H   |		Short_Literal	0x1
0623 a5fb       |    |		Store_Unchecked	0x2,-0x5
0624 e5fb       |    |		Load	0x2,-0x5
0625 7006       |p   |		Jump_Nonzero	0x62c
0626 e402       |    |		Load	0x2,0x2
0627 e5ff       |    |		Load	0x2,-0x1
0628 e002       |    |		Load	0x0,0x2
0629 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
062a 027e       | ~  |		Execute	Discrete,Not_Equal
062b 7801       |x   |		Jump	0x62d
062c 4801       |H   |		Short_Literal	0x1
062d a5fc       |    |		Store_Unchecked	0x2,-0x4
062e 00d9       |    |		Load_Top	At_Offset_1
062f e5fd       |    |		Load	0x2,-0x3
0630 0227       | '  |		Execute	Access,All_Reference
0631 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0632 e5fc       |    |		Load	0x2,-0x4
0633 6802       |h   |		Jump_Zero	0x636
0634 00cc       |    |		Action	Pop_Block
0635 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0636 00d9       |    |		Load_Top	At_Offset_1
0637 0a01       |    |		Execute_Immediate	Plus,0x1
0638 005b       | [  |		Store_Top	Discrete,At_Offset_3
0639 00c9       |    |		Action	Pop_Auxiliary_Loop
063a 7f91       |    |		Jump	0x5cc
063b 0000 0000  |    |		.BLANK	0000[0x5]
0640 ; --------------------------------------------------------------------------------------
0640 ; Debug Table
0640 ; --------------------------------------------------------------------------------------
0640 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x4d29,0x0000,0x0001,0x000e
0646 000b 067e  |   ~|		.DBG4T	0x000b,0x067e,0x8000,0x0000
064a 0022 068b  | "  |		.DBG4T	0x0022,0x068b,0x8000,0x0000
064e 0043 0699  | C  |		.DBG4T	0x0043,0x0699,0x0001,0x4000
0652 0123 06c3  | #  |		.DBG4T	0x0123,0x06c3,0x0001,0x4000
0656 0213 06ed  |    |		.DBG4T	0x0213,0x06ed,0x0001,0x0000
065a 029b 0702  |    |		.DBG4T	0x029b,0x0702,0x0001,0x0000
065e 02eb 070b  |    |		.DBG4T	0x02eb,0x070b,0x0001,0x0000
0662 033b 0714  | ;  |		.DBG4T	0x033b,0x0714,0x0001,0x0000
0666 03b3 071f  |    |		.DBG4T	0x03b3,0x071f,0x0001,0x0000
066a 042b 072a  | + *|		.DBG4T	0x042b,0x072a,0x0001,0x0000
066e 0483 0733  |   3|		.DBG4T	0x0483,0x0733,0x0001,0x0000
0672 04d3 073c  |   <|		.DBG4T	0x04d3,0x073c,0x0001,0x0000
0676 054b 0747  | K G|		.DBG4T	0x054b,0x0747,0x0001,0x0000
067a 05c3 0752  |   R|		.DBG4T	0x05c3,0x0752,0x0004,0x0000
067e ; --------------------------------------------------------------------------------------
067e ; Debug chain
067e ; --------------------------------------------------------------------------------------
067e 000b 0000  |    |		.DBGLEN	0x000b,0x0000
0680 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f
068b ; --------------------------------------------------------------------------------------
068b ; Debug chain
068b ; --------------------------------------------------------------------------------------
068b 000c 0000  |    |		.DBGLEN	0x000c,0x0000
068d 0022 0023  | " #|		.DBGLNO	0x0022,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037
0699 ; --------------------------------------------------------------------------------------
0699 ; Debug chain
0699 ; --------------------------------------------------------------------------------------
0699 0004 0012  |    |		.DBGLEN	0x0004,0x0012
069b 0043 0049  | C I|		.DBGLNO	0x0043,0x0049,0x004f,0x0050,0x005d,0x0061,0x0064,0x0066,0x0068,0x006a,0x006b,0x0072,0x0075,0x009a,0x00a8,0x00c1,0x00c8,0x00ef,0x00f6,0x0101,0x0105,0x010f
06b1 0001 0002  |    |		.XXX[0x12]
06b3 0003 0004  |    |
06b5 0005 0006  |    |
06b7 0007 0008  |    |
06b9 0009 000b  |    |
06bb 000c 000d  |    |
06bd 000e 000f  |    |
06bf 000a 0010  |    |
06c1 0011 0012  |    |
06c3 ; --------------------------------------------------------------------------------------
06c3 ; Debug chain
06c3 ; --------------------------------------------------------------------------------------
06c3 0004 0012  |    |		.DBGLEN	0x0004,0x0012
06c5 0123 0129  | # )|		.DBGLNO	0x0123,0x0129,0x012f,0x0130,0x013e,0x0142,0x0146,0x0148,0x014a,0x014c,0x014d,0x0154,0x0158,0x017f,0x018f,0x01aa,0x01b1,0x01db,0x01e4,0x01f1,0x01f5,0x01ff
06db 0001 0002  |    |		.XXX[0x12]
06dd 0003 0004  |    |
06df 0005 0006  |    |
06e1 0007 0008  |    |
06e3 0009 000b  |    |
06e5 000c 000d  |    |
06e7 000e 000f  |    |
06e9 000a 0010  |    |
06eb 0011 0012  |    |
06ed ; --------------------------------------------------------------------------------------
06ed ; Debug chain
06ed ; --------------------------------------------------------------------------------------
06ed 0004 000f  |    |		.DBGLEN	0x0004,0x000f
06ef 0213 0219  |    |		.DBGLNO	0x0213,0x0219,0x021f,0x0220,0x0227,0x022b,0x022f,0x0231,0x0233,0x0235,0x0236,0x024e,0x0252,0x0277,0x027b,0x0285,0x028f,0x0291,0x0292
0702 ; --------------------------------------------------------------------------------------
0702 ; Debug chain
0702 ; --------------------------------------------------------------------------------------
0702 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0704 029b 029d  |    |		.DBGLNO	0x029b,0x029d,0x029f,0x02a4,0x02ad,0x02ba,0x02da
070b ; --------------------------------------------------------------------------------------
070b ; Debug chain
070b ; --------------------------------------------------------------------------------------
070b 0002 0005  |    |		.DBGLEN	0x0002,0x0005
070d 02eb 02ed  |    |		.DBGLNO	0x02eb,0x02ed,0x02ef,0x02f4,0x02fd,0x030a,0x032b
0714 ; --------------------------------------------------------------------------------------
0714 ; Debug chain
0714 ; --------------------------------------------------------------------------------------
0714 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0716 033b 033d  | ; =|		.DBGLNO	0x033b,0x033d,0x033f,0x0344,0x034d,0x035a,0x037a,0x0380,0x03a2
071f ; --------------------------------------------------------------------------------------
071f ; Debug chain
071f ; --------------------------------------------------------------------------------------
071f 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0721 03b3 03b5  |    |		.DBGLNO	0x03b3,0x03b5,0x03b7,0x03bc,0x03c5,0x03d2,0x03f3,0x03f9,0x041c
072a ; --------------------------------------------------------------------------------------
072a ; Debug chain
072a ; --------------------------------------------------------------------------------------
072a 0002 0005  |    |		.DBGLEN	0x0002,0x0005
072c 042b 042d  | + -|		.DBGLNO	0x042b,0x042d,0x042f,0x0435,0x043f,0x044d,0x046e
0733 ; --------------------------------------------------------------------------------------
0733 ; Debug chain
0733 ; --------------------------------------------------------------------------------------
0733 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0735 0483 0485  |    |		.DBGLNO	0x0483,0x0485,0x0487,0x048d,0x0497,0x04a5,0x04c7
073c ; --------------------------------------------------------------------------------------
073c ; Debug chain
073c ; --------------------------------------------------------------------------------------
073c 0002 0007  |    |		.DBGLEN	0x0002,0x0007
073e 04d3 04d5  |    |		.DBGLNO	0x04d3,0x04d5,0x04d7,0x04dd,0x04e7,0x04f5,0x0516,0x051c,0x0540
0747 ; --------------------------------------------------------------------------------------
0747 ; Debug chain
0747 ; --------------------------------------------------------------------------------------
0747 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0749 054b 054d  | K M|		.DBGLNO	0x054b,0x054d,0x054f,0x0555,0x055f,0x056d,0x058f,0x0595,0x05ba
0752 ; --------------------------------------------------------------------------------------
0752 ; Debug chain
0752 ; --------------------------------------------------------------------------------------
0752 0002 000e  |    |		.DBGLEN	0x0002,0x000e
0754 05c3 05c9  |    |		.DBGLNO	0x05c3,0x05c9,0x05cb,0x05cc,0x05d3,0x05d9,0x05df,0x05ef,0x0612,0x0616,0x061a,0x0624,0x062e,0x0632,0x0634,0x0636
0764 0000 0000  |    |		.BLANK	0000[0x9c]