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

⟦92493b0af⟧

    Length: 7168 (0x1c00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0ab8       |    |		.CONST	0x0ab8								; 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 0006       |    |		.CONST	0x0006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002d       | -  |		.CONST	0x002d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4800       |H   |		Short_Literal	0x0
000d 00e2       |    |		Load_Encached	Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 4808       |H   |		Short_Literal	0x8
0010 4810       |H   |		Short_Literal	0x10
0011 00e3       |    |		Load_Encached	Natural_Cache
0012 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0013 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated
0015 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
0017 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
0019 029a 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call,Visible,Unelaborated
001b 029a 084b  |   K|		Declare_Subprogram	INIT_0848,For_Outer_Call,Visible,Unelaborated
001d 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
001f 00bf       |    |		Action	Accept_Activation
0020 0007       |    |		Action	Break_Optional
0021 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0022 00c7       |    |		Action	Elaborate_Subprogram
0023 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0026 00c7       |    |		Action	Elaborate_Subprogram
0027 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0028 00c7       |    |		Action	Elaborate_Subprogram
0029 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
002c 00c7       |    |		Action	Elaborate_Subprogram
002d			BODY_0008:
002d 00bc       |    |		Action	Signal_Activated
002e 00bb       |    |		Action	Signal_Completion
002f 0000       |    |		.XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 005a       | Z  |		.CONST	0x005a								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0012       |    |		.CONST	0x0012								; Number of locals
0033			INIT_0030:
0033 00e3       |    |		Load_Encached	Natural_Cache
0034 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0035 00e3       |    |		Load_Encached	Natural_Cache
0036 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0037 00e3       |    |		Load_Encached	Natural_Cache
0038 e002       |    |		Load	0x0,0x2
0039 0007       |    |		Action	Break_Optional
003a 00e1       |    |		Load_Encached	Boolean_Cache
003b e003       |    |		Load	0x0,0x3
003c 0007       |    |		Action	Break_Optional
003d e004       |    |		Load	0x0,0x4
003e 0007       |    |		Action	Break_Optional
003f e005       |    |		Load	0x0,0x5
0040 02ff       |    |		Declare_Variable	Variant_Record
0041 00d8       |    |		Load_Top	At_Offset_0
0042 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0043 00e1       |    |		Load_Encached	Boolean_Cache
0044 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0045 e006       |    |		Load	0x0,0x6
0046 0007       |    |		Action	Break_Optional
0047 e007       |    |		Load	0x0,0x7
0048 02ff       |    |		Declare_Variable	Variant_Record
0049 00d8       |    |		Load_Top	At_Offset_0
004a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004b e002       |    |		Load	0x0,0x2
004c 0007       |    |		Action	Break_Optional
004d e008       |    |		Load	0x0,0x8
004e 0007       |    |		Action	Break_Optional
004f e006       |    |		Load	0x0,0x6
0050 0007       |    |		Action	Break_Optional
0051 e5fc       |    |		Load	0x2,-0x4
0052 0227       | '  |		Execute	Access,All_Reference
0053 3c2b       |<+  |		Execute	Record,Field_Read,Field_Number 0x2b
0054 e009       |    |		Load	0x0,0x9
0055 03f1       |    |		Declare_Variable	Discrete,With_Value
0056 029f 097b  |   {|		Declare_Subprogram	INIT_0978,For_Call
0058 029f 0993  |    |		Declare_Subprogram	INIT_0990,For_Call
005a			BODY_0030:
005a 4800       |H   |		Short_Literal	0x0
005b e5fc       |    |		Load	0x2,-0x4
005c 0227       | '  |		Execute	Access,All_Reference
005d 3439       |49  |		Execute	Record,Field_Reference,Field_Number 0x39
005e 01d7       |    |		Execute	Vector,Field_Read
005f 6801       |h   |		Jump_Zero	0x61
0060 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0061 e5fc       |    |		Load	0x2,-0x4
0062 800a       |    |		Call	0x0,0xa
0063 e5fc       |    |		Load	0x2,-0x4
0064 0227       | '  |		Execute	Access,All_Reference
0065 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0066 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0067 e5fc       |    |		Load	0x2,-0x4
0068 0227       | '  |		Execute	Access,All_Reference
0069 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
006a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
006b 01dc       |    |		Execute	Vector,Last
006c 027c       | |  |		Execute	Discrete,Less
006d 6869       |hi  |		Jump_Zero	0xd7
006e e5fc       |    |		Load	0x2,-0x4
006f 0227       | '  |		Execute	Access,All_Reference
0070 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0071 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0072 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0073 6832       |h2  |		Jump_Zero	0xa6
0074 e5fc       |    |		Load	0x2,-0x4
0075 0229       | )  |		Execute	Access,All_Read
0076 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0077 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0078 e5fc       |    |		Load	0x2,-0x4
0079 0227       | '  |		Execute	Access,All_Reference
007a 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
007b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
007c 0a01       |    |		Execute_Immediate	Plus,0x1
007d 00d8       |    |		Load_Top	At_Offset_0
007e 00e2       |    |		Load_Encached	Integer_Cache
007f 0260       | `  |		Execute	Discrete,In_Type
0080 7001       |p   |		Jump_Nonzero	0x82
0081 0801       |    |		Execute_Immediate	Raise,0x1
0082 e5fc       |    |		Load	0x2,-0x4
0083 0227       | '  |		Execute	Access,All_Reference
0084 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0085 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0086 01dc       |    |		Execute	Vector,Last
0087 00da       |    |		Load_Top	At_Offset_2
0088 035b       | [  |		Declare_Type	Array,Constrained
0089 00d0       |    |		Action	Swap_Control
008a 01cd       |    |		Execute	Vector,Slice_Reference
008b e5fc       |    |		Load	0x2,-0x4
008c 0229       | )  |		Execute	Access,All_Read
008d 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
008e 00e3       |    |		Load_Encached	Natural_Cache
008f 00da       |    |		Load_Top	At_Offset_2
0090 00e2       |    |		Load_Encached	Integer_Cache
0091 e5fc       |    |		Load	0x2,-0x4
0092 0227       | '  |		Execute	Access,All_Reference
0093 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0094 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0095 800b       |    |		Call	0x0,0xb
0096 00db       |    |		Load_Top	At_Offset_3
0097 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0098 00d1       |    |		Pop_Control	Pop_Count_1
0099 c403       |    |		Store	0x2,0x3
009a 00d2       |    |		Pop_Control	Pop_Count_2
009b e5fc       |    |		Load	0x2,-0x4
009c 0227       | '  |		Execute	Access,All_Reference
009d 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
009e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009f e403       |    |		Load	0x2,0x3
00a0 0273       | s  |		Execute	Discrete,Plus
00a1 e5fc       |    |		Load	0x2,-0x4
00a2 0227       | '  |		Execute	Access,All_Reference
00a3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
00a4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a5 781f       |x   |		Jump	0xc5
00a6 e5fc       |    |		Load	0x2,-0x4
00a7 0229       | )  |		Execute	Access,All_Read
00a8 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
00a9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00aa 4801       |H   |		Short_Literal	0x1
00ab 4820       |H   |		Short_Literal	0x20
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 035b       | [  |		Declare_Type	Array,Constrained
00ae 00d0       |    |		Action	Swap_Control
00af 01cd       |    |		Execute	Vector,Slice_Reference
00b0 e5fc       |    |		Load	0x2,-0x4
00b1 0229       | )  |		Execute	Access,All_Read
00b2 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
00b3 00e3       |    |		Load_Encached	Natural_Cache
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 00e2       |    |		Load_Encached	Integer_Cache
00b6 e5fc       |    |		Load	0x2,-0x4
00b7 0227       | '  |		Execute	Access,All_Reference
00b8 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
00b9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ba 800c       |    |		Call	0x0,0xc
00bb 00db       |    |		Load_Top	At_Offset_3
00bc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00bd 00d1       |    |		Pop_Control	Pop_Count_1
00be c403       |    |		Store	0x2,0x3
00bf 00d2       |    |		Pop_Control	Pop_Count_2
00c0 e403       |    |		Load	0x2,0x3
00c1 e5fc       |    |		Load	0x2,-0x4
00c2 0227       | '  |		Execute	Access,All_Reference
00c3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
00c4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00c5 e5fc       |    |		Load	0x2,-0x4
00c6 0227       | '  |		Execute	Access,All_Reference
00c7 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
00c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c9 680d       |h   |		Jump_Zero	0xd7
00ca e5fc       |    |		Load	0x2,-0x4
00cb 0227       | '  |		Execute	Access,All_Reference
00cc 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
00cd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ce 0f07       |    |		Execute_Immediate	Equal,0x7
00cf 7007       |p   |		Jump_Nonzero	0xd7
00d0 4800       |H   |		Short_Literal	0x0
00d1 4806       |H   |		Short_Literal	0x6
00d2 e00d       |    |		Load	0x0,0xd
00d3 0334       | 4  |		Declare_Variable	Array,With_Constraint
00d4 5387       |S   |		Indirect_Literal	Any,0x45c,{0x52656365, 0x69766500}
00d5 e5fc       |    |		Load	0x2,-0x4
00d6 800e       |    |		Call	0x0,0xe
00d7 00cf       |    |		Action	Mark_Auxiliary
00d8 0007       |    |		Action	Break_Optional
00d9 e402       |    |		Load	0x2,0x2
00da e5fc       |    |		Load	0x2,-0x4
00db 0227       | '  |		Execute	Access,All_Reference
00dc 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
00dd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00de 01d7       |    |		Execute	Vector,Field_Read
00df 0c80       |    |		Execute_Immediate	Greater_Equal,-0x80
00e0 680b       |h   |		Jump_Zero	0xec
00e1 4801       |H   |		Short_Literal	0x1
00e2 a406       |    |		Store_Unchecked	0x2,0x6
00e3 e402       |    |		Load	0x2,0x2
00e4 e5fc       |    |		Load	0x2,-0x4
00e5 0227       | '  |		Execute	Access,All_Reference
00e6 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
00e7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00e8 01d7       |    |		Execute	Vector,Field_Read
00e9 0a80       |    |		Execute_Immediate	Plus,-0x80
00ea c408       |    |		Store	0x2,0x8
00eb 7809       |x   |		Jump	0xf5
00ec 4800       |H   |		Short_Literal	0x0
00ed a406       |    |		Store_Unchecked	0x2,0x6
00ee e402       |    |		Load	0x2,0x2
00ef e5fc       |    |		Load	0x2,-0x4
00f0 0227       | '  |		Execute	Access,All_Reference
00f1 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
00f2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00f3 01d7       |    |		Execute	Vector,Field_Read
00f4 c408       |    |		Store	0x2,0x8
00f5 e402       |    |		Load	0x2,0x2
00f6 0a02       |    |		Execute_Immediate	Plus,0x2
00f7 e5fc       |    |		Load	0x2,-0x4
00f8 0227       | '  |		Execute	Access,All_Reference
00f9 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
00fa 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00fb 01d7       |    |		Execute	Vector,Field_Read
00fc 0908       |    |		Execute_Immediate	Binary_Scale,0x8
00fd e402       |    |		Load	0x2,0x2
00fe 0a03       |    |		Execute_Immediate	Plus,0x3
00ff e5fc       |    |		Load	0x2,-0x4
0100 0227       | '  |		Execute	Access,All_Reference
0101 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0102 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0103 01d7       |    |		Execute	Vector,Field_Read
0104 0273       | s  |		Execute	Discrete,Plus
0105 c407       |    |		Store	0x2,0x7
0106 e408       |    |		Load	0x2,0x8
0107 e402       |    |		Load	0x2,0x2
0108 e5fc       |    |		Load	0x2,-0x4
0109 0227       | '  |		Execute	Access,All_Reference
010a 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
010b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
010c 01d6       |    |		Execute	Vector,Field_Write
010d e408       |    |		Load	0x2,0x8
010e 0f01       |    |		Execute_Immediate	Equal,0x1
010f 6812       |h   |		Jump_Zero	0x122
0110 e5fb       |    |		Load	0x2,-0x5
0111 e5fc       |    |		Load	0x2,-0x4
0112 0227       | '  |		Execute	Access,All_Reference
0113 343d       |4=  |		Execute	Record,Field_Reference,Field_Number 0x3d
0114 01d7       |    |		Execute	Vector,Field_Read
0115 7002       |p   |		Jump_Nonzero	0x118
0116 e00f       |    |		Load	0x0,0xf
0117 0257       | W  |		Execute	Discrete,Raise
0118 e402       |    |		Load	0x2,0x2
0119 e5fb       |    |		Load	0x2,-0x5
011a e5fc       |    |		Load	0x2,-0x4
011b 0227       | '  |		Execute	Access,All_Reference
011c 343d       |4=  |		Execute	Record,Field_Reference,Field_Number 0x3d
011d 01d7       |    |		Execute	Vector,Field_Read
011e 0273       | s  |		Execute	Discrete,Plus
011f 0aff       |    |		Execute_Immediate	Plus,-0x1
0120 c404       |    |		Store	0x2,0x4
0121 7803       |x   |		Jump	0x125
0122 e402       |    |		Load	0x2,0x2
0123 0a1f       |    |		Execute_Immediate	Plus,0x1f
0124 c404       |    |		Store	0x2,0x4
0125 e404       |    |		Load	0x2,0x4
0126 e5fc       |    |		Load	0x2,-0x4
0127 0227       | '  |		Execute	Access,All_Reference
0128 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0129 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
012a 027d       | }  |		Execute	Discrete,Greater
012b 68ba       |h   |		Jump_Zero	0x1e6
012c e404       |    |		Load	0x2,0x4
012d e5fc       |    |		Load	0x2,-0x4
012e 0227       | '  |		Execute	Access,All_Reference
012f 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0130 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0131 01dc       |    |		Execute	Vector,Last
0132 027d       | }  |		Execute	Discrete,Greater
0133 682f       |h/  |		Jump_Zero	0x163
0134 e5fc       |    |		Load	0x2,-0x4
0135 0227       | '  |		Execute	Access,All_Reference
0136 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0137 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0138 a404       |    |		Store_Unchecked	0x2,0x4
0139 e5fc       |    |		Load	0x2,-0x4
013a 0227       | '  |		Execute	Access,All_Reference
013b 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
013c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
013d e402       |    |		Load	0x2,0x2
013e 0272       | r  |		Execute	Discrete,Minus
013f 0a01       |    |		Execute_Immediate	Plus,0x1
0140 e5fc       |    |		Load	0x2,-0x4
0141 0227       | '  |		Execute	Access,All_Reference
0142 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0143 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0144 e402       |    |		Load	0x2,0x2
0145 e404       |    |		Load	0x2,0x4
0146 e5fc       |    |		Load	0x2,-0x4
0147 0227       | '  |		Execute	Access,All_Reference
0148 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0149 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
014a 01cf       |    |		Execute	Vector,Slice_Read
014b 4801       |H   |		Short_Literal	0x1
014c e5fc       |    |		Load	0x2,-0x4
014d 0227       | '  |		Execute	Access,All_Reference
014e 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
014f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0150 e5fc       |    |		Load	0x2,-0x4
0151 0229       | )  |		Execute	Access,All_Read
0152 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0153 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0154 01ce       |    |		Execute	Vector,Slice_Write
0155 4801       |H   |		Short_Literal	0x1
0156 a402       |    |		Store_Unchecked	0x2,0x2
0157 e408       |    |		Load	0x2,0x8
0158 0f01       |    |		Execute_Immediate	Equal,0x1
0159 6807       |h   |		Jump_Zero	0x161
015a e5fb       |    |		Load	0x2,-0x5
015b e5fc       |    |		Load	0x2,-0x4
015c 0227       | '  |		Execute	Access,All_Reference
015d 343d       |4=  |		Execute	Record,Field_Reference,Field_Number 0x3d
015e 01d7       |    |		Execute	Vector,Field_Read
015f a404       |    |		Store_Unchecked	0x2,0x4
0160 7802       |x   |		Jump	0x163
0161 4820       |H   |		Short_Literal	0x20
0162 a404       |    |		Store_Unchecked	0x2,0x4
0163 e5fc       |    |		Load	0x2,-0x4
0164 0229       | )  |		Execute	Access,All_Read
0165 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0166 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0167 e5fc       |    |		Load	0x2,-0x4
0168 0227       | '  |		Execute	Access,All_Reference
0169 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
016a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
016b 0a01       |    |		Execute_Immediate	Plus,0x1
016c 00d8       |    |		Load_Top	At_Offset_0
016d 00e2       |    |		Load_Encached	Integer_Cache
016e 0260       | `  |		Execute	Discrete,In_Type
016f 7001       |p   |		Jump_Nonzero	0x171
0170 0801       |    |		Execute_Immediate	Raise,0x1
0171 e5fc       |    |		Load	0x2,-0x4
0172 0227       | '  |		Execute	Access,All_Reference
0173 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0174 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0175 01dc       |    |		Execute	Vector,Last
0176 00da       |    |		Load_Top	At_Offset_2
0177 035b       | [  |		Declare_Type	Array,Constrained
0178 00d0       |    |		Action	Swap_Control
0179 01cd       |    |		Execute	Vector,Slice_Reference
017a e5fc       |    |		Load	0x2,-0x4
017b 0229       | )  |		Execute	Access,All_Read
017c 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
017d 00e3       |    |		Load_Encached	Natural_Cache
017e 00da       |    |		Load_Top	At_Offset_2
017f 00e2       |    |		Load_Encached	Integer_Cache
0180 e5fc       |    |		Load	0x2,-0x4
0181 0227       | '  |		Execute	Access,All_Reference
0182 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0183 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0184 800b       |    |		Call	0x0,0xb
0185 00db       |    |		Load_Top	At_Offset_3
0186 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0187 00d1       |    |		Pop_Control	Pop_Count_1
0188 c403       |    |		Store	0x2,0x3
0189 00d2       |    |		Pop_Control	Pop_Count_2
018a e5fc       |    |		Load	0x2,-0x4
018b 0227       | '  |		Execute	Access,All_Reference
018c 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
018d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
018e e403       |    |		Load	0x2,0x3
018f 0273       | s  |		Execute	Discrete,Plus
0190 e5fc       |    |		Load	0x2,-0x4
0191 0227       | '  |		Execute	Access,All_Reference
0192 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0193 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0194 e5fc       |    |		Load	0x2,-0x4
0195 0227       | '  |		Execute	Access,All_Reference
0196 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0197 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0198 680d       |h   |		Jump_Zero	0x1a6
0199 e5fc       |    |		Load	0x2,-0x4
019a 0227       | '  |		Execute	Access,All_Reference
019b 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
019c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
019d 0f07       |    |		Execute_Immediate	Equal,0x7
019e 7007       |p   |		Jump_Nonzero	0x1a6
019f 4800       |H   |		Short_Literal	0x0
01a0 4806       |H   |		Short_Literal	0x6
01a1 e00d       |    |		Load	0x0,0xd
01a2 0334       | 4  |		Declare_Variable	Array,With_Constraint
01a3 52bc       |R   |		Indirect_Literal	Any,0x460,{0x52656365, 0x69766500}
01a4 e5fc       |    |		Load	0x2,-0x4
01a5 800e       |    |		Call	0x0,0xe
01a6 e404       |    |		Load	0x2,0x4
01a7 e5fc       |    |		Load	0x2,-0x4
01a8 0227       | '  |		Execute	Access,All_Reference
01a9 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
01aa 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ab 027d       | }  |		Execute	Discrete,Greater
01ac 6839       |h9  |		Jump_Zero	0x1e6
01ad e5fc       |    |		Load	0x2,-0x4
01ae 0229       | )  |		Execute	Access,All_Read
01af 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
01b0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01b1 e5fc       |    |		Load	0x2,-0x4
01b2 0227       | '  |		Execute	Access,All_Reference
01b3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
01b4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b5 0a01       |    |		Execute_Immediate	Plus,0x1
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 00e2       |    |		Load_Encached	Integer_Cache
01b8 0260       | `  |		Execute	Discrete,In_Type
01b9 7001       |p   |		Jump_Nonzero	0x1bb
01ba 0801       |    |		Execute_Immediate	Raise,0x1
01bb e404       |    |		Load	0x2,0x4
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 035b       | [  |		Declare_Type	Array,Constrained
01be 00d0       |    |		Action	Swap_Control
01bf 01cd       |    |		Execute	Vector,Slice_Reference
01c0 e5fc       |    |		Load	0x2,-0x4
01c1 0229       | )  |		Execute	Access,All_Read
01c2 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
01c3 00e3       |    |		Load_Encached	Natural_Cache
01c4 00da       |    |		Load_Top	At_Offset_2
01c5 00e2       |    |		Load_Encached	Integer_Cache
01c6 e5fc       |    |		Load	0x2,-0x4
01c7 0227       | '  |		Execute	Access,All_Reference
01c8 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
01c9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ca 800c       |    |		Call	0x0,0xc
01cb 00db       |    |		Load_Top	At_Offset_3
01cc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01cd 00d1       |    |		Pop_Control	Pop_Count_1
01ce c403       |    |		Store	0x2,0x3
01cf 00d2       |    |		Pop_Control	Pop_Count_2
01d0 e5fc       |    |		Load	0x2,-0x4
01d1 0227       | '  |		Execute	Access,All_Reference
01d2 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
01d3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d4 e403       |    |		Load	0x2,0x3
01d5 0273       | s  |		Execute	Discrete,Plus
01d6 e5fc       |    |		Load	0x2,-0x4
01d7 0227       | '  |		Execute	Access,All_Reference
01d8 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
01d9 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01da e5fc       |    |		Load	0x2,-0x4
01db 0227       | '  |		Execute	Access,All_Reference
01dc 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
01dd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01de 6807       |h   |		Jump_Zero	0x1e6
01df 4800       |H   |		Short_Literal	0x0
01e0 4806       |H   |		Short_Literal	0x6
01e1 e00d       |    |		Load	0x0,0xd
01e2 0334       | 4  |		Declare_Variable	Array,With_Constraint
01e3 5280       |R   |		Indirect_Literal	Any,0x464,{0x52656365, 0x69766500}
01e4 e5fc       |    |		Load	0x2,-0x4
01e5 800e       |    |		Call	0x0,0xe
01e6 e408       |    |		Load	0x2,0x8
01e7 0b00       |    |		Execute_Immediate	Case_Compare,0x0
01e8 701d       |p   |		Jump_Nonzero	0x206
01e9 0f01       |    |		Execute_Immediate	Equal,0x1
01ea 7156       |qV  |		Jump_Nonzero	0x341
01eb e010       |    |		Load	0x0,0x10
01ec e40c       |    |		Load	0x2,0xc
01ed e406       |    |		Load	0x2,0x6
01ee e402       |    |		Load	0x2,0x2
01ef e404       |    |		Load	0x2,0x4
01f0 e5fc       |    |		Load	0x2,-0x4
01f1 0227       | '  |		Execute	Access,All_Reference
01f2 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
01f3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01f4 01cf       |    |		Execute	Vector,Slice_Read
01f5 e5fc       |    |		Load	0x2,-0x4
01f6 e408       |    |		Load	0x2,0x8
01f7 e5fc       |    |		Load	0x2,-0x4
01f8 0227       | '  |		Execute	Access,All_Reference
01f9 343b       |4;  |		Execute	Record,Field_Reference,Field_Number 0x3b
01fa 01d7       |    |		Execute	Vector,Field_Read
01fb 8011       |    |		Call	0x0,0x11
01fc 8012       |    |		Call	0x0,0x12
01fd 00d1       |    |		Pop_Control	Pop_Count_1
01fe c40f       |    |		Store	0x2,0xf
01ff e40f       |    |		Load	0x2,0xf
0200 0f01       |    |		Execute_Immediate	Equal,0x1
0201 6a17       |j   |		Jump_Zero	0x419
0202 e40c       |    |		Load	0x2,0xc
0203 e5fc       |    |		Load	0x2,-0x4
0204 8013       |    |		Call	0x0,0x13
0205 7a13       |z   |		Jump	0x419
0206 00d1       |    |		Pop_Control	Pop_Count_1
0207 e409       |    |		Load	0x2,0x9
0208 e406       |    |		Load	0x2,0x6
0209 e402       |    |		Load	0x2,0x2
020a e404       |    |		Load	0x2,0x4
020b e5fc       |    |		Load	0x2,-0x4
020c 0227       | '  |		Execute	Access,All_Reference
020d 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
020e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
020f 01cf       |    |		Execute	Vector,Slice_Read
0210 e5fc       |    |		Load	0x2,-0x4
0211 8014       |    |		Call	0x0,0x14
0212 00d1       |    |		Pop_Control	Pop_Count_1
0213 e409       |    |		Load	0x2,0x9
0214 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0215 e410       |    |		Load	0x2,0x10
0216 027f       |    |		Execute	Discrete,Equal
0217 68fa       |h   |		Jump_Zero	0x312
0218 e409       |    |		Load	0x2,0x9
0219 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021a 00d8       |    |		Load_Top	At_Offset_0
021b 0c10       |    |		Execute_Immediate	Greater_Equal,0x10
021c 704c       |pL  |		Jump_Nonzero	0x269
021d 460f       |F   |		Jump_Case	0x10
021e 784b       |xK  |		Jump	0x26a								; case 0x0
021f 784a       |xJ  |		Jump	0x26a								; case 0x1
0220 7849       |xI  |		Jump	0x26a								; case 0x2
0221 7848       |xH  |		Jump	0x26a								; case 0x3
0222 7847       |xG  |		Jump	0x26a								; case 0x4
0223 7846       |xF  |		Jump	0x26a								; case 0x5
0224 7845       |xE  |		Jump	0x26a								; case 0x6
0225 786f       |xo  |		Jump	0x295								; case 0x7
0226 7843       |xC  |		Jump	0x26a								; case 0x8
0227 7842       |xB  |		Jump	0x26a								; case 0x9
0228 7843       |xC  |		Jump	0x26c								; case 0xa
0229 7842       |xB  |		Jump	0x26c								; case 0xb
022a 783f       |x?  |		Jump	0x26a								; case 0xc
022b 783e       |x>  |		Jump	0x26a								; case 0xd
022c 783d       |x=  |		Jump	0x26a								; case 0xe
022d 7800       |x   |		Jump	0x22e								; case 0xf
022e e409       |    |		Load	0x2,0x9
022f 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0230 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0231 00d8       |    |		Load_Top	At_Offset_0
0232 0d55       | U  |		Execute_Immediate	Less,0x55
0233 7030       |p0  |		Jump_Nonzero	0x264
0234 00d8       |    |		Load_Top	At_Offset_0
0235 0c56       | V  |		Execute_Immediate	Greater_Equal,0x56
0236 702a       |p*  |		Jump_Nonzero	0x261
0237 00d1       |    |		Pop_Control	Pop_Count_1
0238 4800       |H   |		Short_Literal	0x0
0239 a5f7       |    |		Store_Unchecked	0x2,-0x9
023a e5fc       |    |		Load	0x2,-0x4
023b 0227       | '  |		Execute	Access,All_Reference
023c 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
023d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
023e a402       |    |		Store_Unchecked	0x2,0x2
023f e5fc       |    |		Load	0x2,-0x4
0240 0227       | '  |		Execute	Access,All_Reference
0241 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0242 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0243 e404       |    |		Load	0x2,0x4
0244 0272       | r  |		Execute	Discrete,Minus
0245 e5fc       |    |		Load	0x2,-0x4
0246 0227       | '  |		Execute	Access,All_Reference
0247 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0248 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0249 e404       |    |		Load	0x2,0x4
024a 0a01       |    |		Execute_Immediate	Plus,0x1
024b 00d8       |    |		Load_Top	At_Offset_0
024c 00e2       |    |		Load_Encached	Integer_Cache
024d 0260       | `  |		Execute	Discrete,In_Type
024e 7001       |p   |		Jump_Nonzero	0x250
024f 0801       |    |		Execute_Immediate	Raise,0x1
0250 e402       |    |		Load	0x2,0x2
0251 e5fc       |    |		Load	0x2,-0x4
0252 0227       | '  |		Execute	Access,All_Reference
0253 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0254 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0255 01cf       |    |		Execute	Vector,Slice_Read
0256 4801       |H   |		Short_Literal	0x1
0257 e5fc       |    |		Load	0x2,-0x4
0258 0227       | '  |		Execute	Access,All_Reference
0259 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
025a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
025b e5fc       |    |		Load	0x2,-0x4
025c 0229       | )  |		Execute	Access,All_Read
025d 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
025e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
025f 01ce       |    |		Execute	Vector,Slice_Write
0260 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0261 0f5c       | \  |		Execute_Immediate	Equal,0x5c
0262 77d5       |w   |		Jump_Nonzero	0x238
0263 7803       |x   |		Jump	0x267
0264 0f2d       | -  |		Execute_Immediate	Equal,0x2d
0265 77d2       |w   |		Jump_Nonzero	0x238
0266 7800       |x   |		Jump	0x267
0267 0008       |    |		Action	Idle
0268 785a       |xZ  |		Jump	0x2c3
0269 00d1       |    |		Pop_Control	Pop_Count_1
026a 0008       |    |		Action	Idle
026b 7857       |xW  |		Jump	0x2c3
026c 4800       |H   |		Short_Literal	0x0
026d a5f7       |    |		Store_Unchecked	0x2,-0x9
026e e5fc       |    |		Load	0x2,-0x4
026f 0227       | '  |		Execute	Access,All_Reference
0270 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0271 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0272 a402       |    |		Store_Unchecked	0x2,0x2
0273 e5fc       |    |		Load	0x2,-0x4
0274 0227       | '  |		Execute	Access,All_Reference
0275 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0276 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0277 e404       |    |		Load	0x2,0x4
0278 0272       | r  |		Execute	Discrete,Minus
0279 e5fc       |    |		Load	0x2,-0x4
027a 0227       | '  |		Execute	Access,All_Reference
027b 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
027c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
027d e404       |    |		Load	0x2,0x4
027e 0a01       |    |		Execute_Immediate	Plus,0x1
027f 00d8       |    |		Load_Top	At_Offset_0
0280 00e2       |    |		Load_Encached	Integer_Cache
0281 0260       | `  |		Execute	Discrete,In_Type
0282 7001       |p   |		Jump_Nonzero	0x284
0283 0801       |    |		Execute_Immediate	Raise,0x1
0284 e402       |    |		Load	0x2,0x2
0285 e5fc       |    |		Load	0x2,-0x4
0286 0227       | '  |		Execute	Access,All_Reference
0287 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0288 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0289 01cf       |    |		Execute	Vector,Slice_Read
028a 4801       |H   |		Short_Literal	0x1
028b e5fc       |    |		Load	0x2,-0x4
028c 0227       | '  |		Execute	Access,All_Reference
028d 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
028e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
028f e5fc       |    |		Load	0x2,-0x4
0290 0229       | )  |		Execute	Access,All_Read
0291 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0292 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0293 01ce       |    |		Execute	Vector,Slice_Write
0294 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0295 e409       |    |		Load	0x2,0x9
0296 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0297 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0298 0f2f       | /  |		Execute_Immediate	Equal,0x2f
0299 6829       |h)  |		Jump_Zero	0x2c3
029a 4800       |H   |		Short_Literal	0x0
029b a5f7       |    |		Store_Unchecked	0x2,-0x9
029c e5fc       |    |		Load	0x2,-0x4
029d 0227       | '  |		Execute	Access,All_Reference
029e 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
029f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a0 a402       |    |		Store_Unchecked	0x2,0x2
02a1 e5fc       |    |		Load	0x2,-0x4
02a2 0227       | '  |		Execute	Access,All_Reference
02a3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02a4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a5 e404       |    |		Load	0x2,0x4
02a6 0272       | r  |		Execute	Discrete,Minus
02a7 e5fc       |    |		Load	0x2,-0x4
02a8 0227       | '  |		Execute	Access,All_Reference
02a9 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02aa 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02ab e404       |    |		Load	0x2,0x4
02ac 0a01       |    |		Execute_Immediate	Plus,0x1
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 00e2       |    |		Load_Encached	Integer_Cache
02af 0260       | `  |		Execute	Discrete,In_Type
02b0 7001       |p   |		Jump_Nonzero	0x2b2
02b1 0801       |    |		Execute_Immediate	Raise,0x1
02b2 e402       |    |		Load	0x2,0x2
02b3 e5fc       |    |		Load	0x2,-0x4
02b4 0227       | '  |		Execute	Access,All_Reference
02b5 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02b6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02b7 01cf       |    |		Execute	Vector,Slice_Read
02b8 4801       |H   |		Short_Literal	0x1
02b9 e5fc       |    |		Load	0x2,-0x4
02ba 0227       | '  |		Execute	Access,All_Reference
02bb 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02bc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02bd e5fc       |    |		Load	0x2,-0x4
02be 0229       | )  |		Execute	Access,All_Read
02bf 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
02c0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02c1 01ce       |    |		Execute	Vector,Slice_Write
02c2 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02c3 e5fc       |    |		Load	0x2,-0x4
02c4 0227       | '  |		Execute	Access,All_Reference
02c5 3c25       |<%  |		Execute	Record,Field_Read,Field_Number 0x25
02c6 a40e       |    |		Store_Unchecked	0x2,0xe
02c7 00cf       |    |		Action	Mark_Auxiliary
02c8 7844       |xD  |		Jump	0x30d
02c9 e40e       |    |		Load	0x2,0xe
02ca 0227       | '  |		Execute	Access,All_Reference
02cb 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
02cc e015       |    |		Load	0x0,0x15
02cd 022e       | .  |		Execute	Access,Not_Equal
02ce 680e       |h   |		Jump_Zero	0x2dd
02cf e016       |    |		Load	0x0,0x16
02d0 e017       |    |		Load	0x0,0x17
02d1 e40e       |    |		Load	0x2,0xe
02d2 0227       | '  |		Execute	Access,All_Reference
02d3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d4 e409       |    |		Load	0x2,0x9
02d5 e5fc       |    |		Load	0x2,-0x4
02d6 e40e       |    |		Load	0x2,0xe
02d7 0227       | '  |		Execute	Access,All_Reference
02d8 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
02d9 8018       |    |		Call	0x0,0x18
02da 8019       |    |		Call	0x0,0x19
02db c40b       |    |		Store	0x2,0xb
02dc c40a       |    |		Store	0x2,0xa
02dd e40a       |    |		Load	0x2,0xa
02de 6829       |h)  |		Jump_Zero	0x308
02df e40b       |    |		Load	0x2,0xb
02e0 a5f7       |    |		Store_Unchecked	0x2,-0x9
02e1 e5fc       |    |		Load	0x2,-0x4
02e2 0227       | '  |		Execute	Access,All_Reference
02e3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02e4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02e5 a402       |    |		Store_Unchecked	0x2,0x2
02e6 e5fc       |    |		Load	0x2,-0x4
02e7 0227       | '  |		Execute	Access,All_Reference
02e8 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02e9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ea e404       |    |		Load	0x2,0x4
02eb 0272       | r  |		Execute	Discrete,Minus
02ec e5fc       |    |		Load	0x2,-0x4
02ed 0227       | '  |		Execute	Access,All_Reference
02ee 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02ef 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02f0 e404       |    |		Load	0x2,0x4
02f1 0a01       |    |		Execute_Immediate	Plus,0x1
02f2 00d8       |    |		Load_Top	At_Offset_0
02f3 00e2       |    |		Load_Encached	Integer_Cache
02f4 0260       | `  |		Execute	Discrete,In_Type
02f5 7001       |p   |		Jump_Nonzero	0x2f7
02f6 0801       |    |		Execute_Immediate	Raise,0x1
02f7 e402       |    |		Load	0x2,0x2
02f8 e5fc       |    |		Load	0x2,-0x4
02f9 0227       | '  |		Execute	Access,All_Reference
02fa 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02fb 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02fc 01cf       |    |		Execute	Vector,Slice_Read
02fd 4801       |H   |		Short_Literal	0x1
02fe e5fc       |    |		Load	0x2,-0x4
02ff 0227       | '  |		Execute	Access,All_Reference
0300 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0301 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0302 e5fc       |    |		Load	0x2,-0x4
0303 0229       | )  |		Execute	Access,All_Read
0304 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0305 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0306 01ce       |    |		Execute	Vector,Slice_Write
0307 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0308 e40e       |    |		Load	0x2,0xe
0309 0227       | '  |		Execute	Access,All_Reference
030a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
030b a40e       |    |		Store_Unchecked	0x2,0xe
030c 00c9       |    |		Action	Pop_Auxiliary_Loop
030d e40e       |    |		Load	0x2,0xe
030e 77ba       |w   |		Jump_Nonzero	0x2c9
030f 00ce       |    |		Action	Pop_Auxiliary
0310 4801       |H   |		Short_Literal	0x1
0311 a40a       |    |		Store_Unchecked	0x2,0xa
0312 8411       |    |		Call	0x2,0x11
0313 e409       |    |		Load	0x2,0x9
0314 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0315 e410       |    |		Load	0x2,0x10
0316 027f       |    |		Execute	Discrete,Equal
0317 6901       |i   |		Jump_Zero	0x419
0318 4800       |H   |		Short_Literal	0x0
0319 a5f7       |    |		Store_Unchecked	0x2,-0x9
031a e5fc       |    |		Load	0x2,-0x4
031b 0227       | '  |		Execute	Access,All_Reference
031c 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
031d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
031e a402       |    |		Store_Unchecked	0x2,0x2
031f e5fc       |    |		Load	0x2,-0x4
0320 0227       | '  |		Execute	Access,All_Reference
0321 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0322 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0323 e404       |    |		Load	0x2,0x4
0324 0272       | r  |		Execute	Discrete,Minus
0325 e5fc       |    |		Load	0x2,-0x4
0326 0227       | '  |		Execute	Access,All_Reference
0327 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0328 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0329 e404       |    |		Load	0x2,0x4
032a 0a01       |    |		Execute_Immediate	Plus,0x1
032b 00d8       |    |		Load_Top	At_Offset_0
032c 00e2       |    |		Load_Encached	Integer_Cache
032d 0260       | `  |		Execute	Discrete,In_Type
032e 7001       |p   |		Jump_Nonzero	0x330
032f 0801       |    |		Execute_Immediate	Raise,0x1
0330 e402       |    |		Load	0x2,0x2
0331 e5fc       |    |		Load	0x2,-0x4
0332 0227       | '  |		Execute	Access,All_Reference
0333 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0334 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0335 01cf       |    |		Execute	Vector,Slice_Read
0336 4801       |H   |		Short_Literal	0x1
0337 e5fc       |    |		Load	0x2,-0x4
0338 0227       | '  |		Execute	Access,All_Reference
0339 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
033a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
033b e5fc       |    |		Load	0x2,-0x4
033c 0229       | )  |		Execute	Access,All_Read
033d 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
033e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
033f 01ce       |    |		Execute	Vector,Slice_Write
0340 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0341 e407       |    |		Load	0x2,0x7
0342 e410       |    |		Load	0x2,0x10
0343 6114       |a   |		Indirect_Literal	Discrete,0x458,{0x00000000, 0x0000ffff}
0344 0279       | y  |		Execute	Discrete,And
0345 00d8       |    |		Load_Top	At_Offset_0
0346 e003       |    |		Load	0x0,0x3
0347 0260       | `  |		Execute	Discrete,In_Type
0348 7001       |p   |		Jump_Nonzero	0x34a
0349 0801       |    |		Execute_Immediate	Raise,0x1
034a 027f       |    |		Execute	Discrete,Equal
034b 6805       |h   |		Jump_Zero	0x351
034c 00db       |    |		Load_Top	At_Offset_3
034d e5fc       |    |		Load	0x2,-0x4
034e 0227       | '  |		Execute	Access,All_Reference
034f 382c       |8,  |		Execute	Record,Field_Write,Field_Number 0x2c
0350 7805       |x   |		Jump	0x356
0351 e407       |    |		Load	0x2,0x7
0352 e408       |    |		Load	0x2,0x8
0353 e5fc       |    |		Load	0x2,-0x4
0354 801a       |    |		Call	0x0,0x1a
0355 a410       |    |		Store_Unchecked	0x2,0x10
0356 e002       |    |		Load	0x0,0x2
0357 0122       | "  |		Execute	Any,Make_Root_Type
0358 e5f8       |    |		Load	0x2,-0x8
0359 0120       |    |		Execute	Any,Is_Value
035a 6803       |h   |		Jump_Zero	0x35e
035b e5fd       |    |		Load	0x2,-0x3
035c 0122       | "  |		Execute	Any,Make_Root_Type
035d 7801       |x   |		Jump	0x35f
035e e5f8       |    |		Load	0x2,-0x8
035f e406       |    |		Load	0x2,0x6
0360 e402       |    |		Load	0x2,0x2
0361 e404       |    |		Load	0x2,0x4
0362 e5fc       |    |		Load	0x2,-0x4
0363 0227       | '  |		Execute	Access,All_Reference
0364 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0365 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0366 01cf       |    |		Execute	Vector,Slice_Read
0367 e5fb       |    |		Load	0x2,-0x5
0368 85fe       |    |		Call	0x2,-0x2
0369 c5f8       |    |		Store	0x2,-0x8
036a c40d       |    |		Store	0x2,0xd
036b e40d       |    |		Load	0x2,0xd
036c 0902       |    |		Execute_Immediate	Binary_Scale,0x2
036d 0a20       |    |		Execute_Immediate	Plus,0x20
036e e404       |    |		Load	0x2,0x4
036f e402       |    |		Load	0x2,0x2
0370 0272       | r  |		Execute	Discrete,Minus
0371 0a01       |    |		Execute_Immediate	Plus,0x1
0372 00d8       |    |		Load_Top	At_Offset_0
0373 e002       |    |		Load	0x0,0x2
0374 0260       | `  |		Execute	Discrete,In_Type
0375 7001       |p   |		Jump_Nonzero	0x377
0376 0801       |    |		Execute_Immediate	Raise,0x1
0377 0272       | r  |		Execute	Discrete,Minus
0378 c40d       |    |		Store	0x2,0xd
0379 e5f9       |    |		Load	0x2,-0x7
037a 6870       |hp  |		Jump_Zero	0x3eb
037b e40d       |    |		Load	0x2,0xd
037c a405       |    |		Store_Unchecked	0x2,0x5
037d e405       |    |		Load	0x2,0x5
037e e5fc       |    |		Load	0x2,-0x4
037f 0227       | '  |		Execute	Access,All_Reference
0380 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0381 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0382 e404       |    |		Load	0x2,0x4
0383 0272       | r  |		Execute	Discrete,Minus
0384 00d8       |    |		Load_Top	At_Offset_0
0385 e002       |    |		Load	0x0,0x2
0386 0260       | `  |		Execute	Discrete,In_Type
0387 7001       |p   |		Jump_Nonzero	0x389
0388 0801       |    |		Execute_Immediate	Raise,0x1
0389 027a       | z  |		Execute	Discrete,Less_Equal
038a 6805       |h   |		Jump_Zero	0x390
038b e404       |    |		Load	0x2,0x4
038c e405       |    |		Load	0x2,0x5
038d 0273       | s  |		Execute	Discrete,Plus
038e c404       |    |		Store	0x2,0x4
038f 785b       |x[  |		Jump	0x3eb
0390 e405       |    |		Load	0x2,0x5
0391 e5fc       |    |		Load	0x2,-0x4
0392 0227       | '  |		Execute	Access,All_Reference
0393 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0394 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0395 e404       |    |		Load	0x2,0x4
0396 0272       | r  |		Execute	Discrete,Minus
0397 00d8       |    |		Load_Top	At_Offset_0
0398 e002       |    |		Load	0x0,0x2
0399 0260       | `  |		Execute	Discrete,In_Type
039a 7001       |p   |		Jump_Nonzero	0x39c
039b 0801       |    |		Execute_Immediate	Raise,0x1
039c 0272       | r  |		Execute	Discrete,Minus
039d c405       |    |		Store	0x2,0x5
039e 00cf       |    |		Action	Mark_Auxiliary
039f 0007       |    |		Action	Break_Optional
03a0 e405       |    |		Load	0x2,0x5
03a1 e5fc       |    |		Load	0x2,-0x4
03a2 0227       | '  |		Execute	Access,All_Reference
03a3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
03a4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03a5 01dc       |    |		Execute	Vector,Last
03a6 00d8       |    |		Load_Top	At_Offset_0
03a7 e002       |    |		Load	0x0,0x2
03a8 0260       | `  |		Execute	Discrete,In_Type
03a9 7001       |p   |		Jump_Nonzero	0x3ab
03aa 0801       |    |		Execute_Immediate	Raise,0x1
03ab 027d       | }  |		Execute	Discrete,Greater
03ac 6807       |h   |		Jump_Zero	0x3b4
03ad e5fc       |    |		Load	0x2,-0x4
03ae 0227       | '  |		Execute	Access,All_Reference
03af 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
03b0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03b1 01dc       |    |		Execute	Vector,Last
03b2 c402       |    |		Store	0x2,0x2
03b3 7802       |x   |		Jump	0x3b6
03b4 e405       |    |		Load	0x2,0x5
03b5 a402       |    |		Store_Unchecked	0x2,0x2
03b6 e5fc       |    |		Load	0x2,-0x4
03b7 0229       | )  |		Execute	Access,All_Read
03b8 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
03b9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03ba 4801       |H   |		Short_Literal	0x1
03bb e402       |    |		Load	0x2,0x2
03bc 00da       |    |		Load_Top	At_Offset_2
03bd 035b       | [  |		Declare_Type	Array,Constrained
03be 00d0       |    |		Action	Swap_Control
03bf 01cd       |    |		Execute	Vector,Slice_Reference
03c0 e5fc       |    |		Load	0x2,-0x4
03c1 0229       | )  |		Execute	Access,All_Read
03c2 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
03c3 00e3       |    |		Load_Encached	Natural_Cache
03c4 00da       |    |		Load_Top	At_Offset_2
03c5 00e2       |    |		Load_Encached	Integer_Cache
03c6 e5fc       |    |		Load	0x2,-0x4
03c7 0227       | '  |		Execute	Access,All_Reference
03c8 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
03c9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ca 800c       |    |		Call	0x0,0xc
03cb 00db       |    |		Load_Top	At_Offset_3
03cc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03cd 00d1       |    |		Pop_Control	Pop_Count_1
03ce c403       |    |		Store	0x2,0x3
03cf 00d2       |    |		Pop_Control	Pop_Count_2
03d0 e5fc       |    |		Load	0x2,-0x4
03d1 0227       | '  |		Execute	Access,All_Reference
03d2 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
03d3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03d4 6807       |h   |		Jump_Zero	0x3dc
03d5 4800       |H   |		Short_Literal	0x0
03d6 4806       |H   |		Short_Literal	0x6
03d7 e00d       |    |		Load	0x0,0xd
03d8 0334       | 4  |		Declare_Variable	Array,With_Constraint
03d9 508e       |P   |		Indirect_Literal	Any,0x468,{0x52656365, 0x69766500}
03da e5fc       |    |		Load	0x2,-0x4
03db 800e       |    |		Call	0x0,0xe
03dc e405       |    |		Load	0x2,0x5
03dd e403       |    |		Load	0x2,0x3
03de 0272       | r  |		Execute	Discrete,Minus
03df c405       |    |		Store	0x2,0x5
03e0 e405       |    |		Load	0x2,0x5
03e1 7001       |p   |		Jump_Nonzero	0x3e3
03e2 7802       |x   |		Jump	0x3e5
03e3 00c9       |    |		Action	Pop_Auxiliary_Loop
03e4 7fbb       |    |		Jump	0x3a0
03e5 00ce       |    |		Action	Pop_Auxiliary
03e6 e5fc       |    |		Load	0x2,-0x4
03e7 0227       | '  |		Execute	Access,All_Reference
03e8 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
03e9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03ea a404       |    |		Store_Unchecked	0x2,0x4
03eb e5fc       |    |		Load	0x2,-0x4
03ec 0227       | '  |		Execute	Access,All_Reference
03ed 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
03ee 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03ef a402       |    |		Store_Unchecked	0x2,0x2
03f0 e5fc       |    |		Load	0x2,-0x4
03f1 0227       | '  |		Execute	Access,All_Reference
03f2 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
03f3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03f4 e404       |    |		Load	0x2,0x4
03f5 0272       | r  |		Execute	Discrete,Minus
03f6 e5fc       |    |		Load	0x2,-0x4
03f7 0227       | '  |		Execute	Access,All_Reference
03f8 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
03f9 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03fa e404       |    |		Load	0x2,0x4
03fb 0a01       |    |		Execute_Immediate	Plus,0x1
03fc 00d8       |    |		Load_Top	At_Offset_0
03fd 00e2       |    |		Load_Encached	Integer_Cache
03fe 0260       | `  |		Execute	Discrete,In_Type
03ff 7001       |p   |		Jump_Nonzero	0x401
0400 0801       |    |		Execute_Immediate	Raise,0x1
0401 e402       |    |		Load	0x2,0x2
0402 e5fc       |    |		Load	0x2,-0x4
0403 0227       | '  |		Execute	Access,All_Reference
0404 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0405 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0406 01cf       |    |		Execute	Vector,Slice_Read
0407 4801       |H   |		Short_Literal	0x1
0408 e5fc       |    |		Load	0x2,-0x4
0409 0227       | '  |		Execute	Access,All_Reference
040a 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
040b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
040c e5fc       |    |		Load	0x2,-0x4
040d 0229       | )  |		Execute	Access,All_Read
040e 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
040f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0410 01ce       |    |		Execute	Vector,Slice_Write
0411 e5fa       |    |		Load	0x2,-0x6
0412 e40d       |    |		Load	0x2,0xd
0413 027d       | }  |		Execute	Discrete,Greater
0414 6801       |h   |		Jump_Zero	0x416
0415 8412       |    |		Call	0x2,0x12
0416 4801       |H   |		Short_Literal	0x1
0417 a5f7       |    |		Store_Unchecked	0x2,-0x9
0418 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0419 e404       |    |		Load	0x2,0x4
041a 0a01       |    |		Execute_Immediate	Plus,0x1
041b c402       |    |		Store	0x2,0x2
041c e402       |    |		Load	0x2,0x2
041d e5fc       |    |		Load	0x2,-0x4
041e 0227       | '  |		Execute	Access,All_Reference
041f 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0420 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0421 027d       | }  |		Execute	Discrete,Greater
0422 6832       |h2  |		Jump_Zero	0x455
0423 4800       |H   |		Short_Literal	0x0
0424 e5fc       |    |		Load	0x2,-0x4
0425 0227       | '  |		Execute	Access,All_Reference
0426 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0427 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0428 4801       |H   |		Short_Literal	0x1
0429 a402       |    |		Store_Unchecked	0x2,0x2
042a e5fc       |    |		Load	0x2,-0x4
042b 0229       | )  |		Execute	Access,All_Read
042c 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
042d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
042e 4801       |H   |		Short_Literal	0x1
042f 4820       |H   |		Short_Literal	0x20
0430 00da       |    |		Load_Top	At_Offset_2
0431 035b       | [  |		Declare_Type	Array,Constrained
0432 00d0       |    |		Action	Swap_Control
0433 01cd       |    |		Execute	Vector,Slice_Reference
0434 e5fc       |    |		Load	0x2,-0x4
0435 0229       | )  |		Execute	Access,All_Read
0436 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
0437 00e3       |    |		Load_Encached	Natural_Cache
0438 00da       |    |		Load_Top	At_Offset_2
0439 00e2       |    |		Load_Encached	Integer_Cache
043a e5fc       |    |		Load	0x2,-0x4
043b 0227       | '  |		Execute	Access,All_Reference
043c 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
043d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
043e 800c       |    |		Call	0x0,0xc
043f 00db       |    |		Load_Top	At_Offset_3
0440 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0441 00d1       |    |		Pop_Control	Pop_Count_1
0442 c403       |    |		Store	0x2,0x3
0443 00d2       |    |		Pop_Control	Pop_Count_2
0444 e403       |    |		Load	0x2,0x3
0445 e5fc       |    |		Load	0x2,-0x4
0446 0227       | '  |		Execute	Access,All_Reference
0447 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0448 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0449 e5fc       |    |		Load	0x2,-0x4
044a 0227       | '  |		Execute	Access,All_Reference
044b 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
044c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044d 6807       |h   |		Jump_Zero	0x455
044e 4800       |H   |		Short_Literal	0x0
044f 4806       |H   |		Short_Literal	0x6
0450 e00d       |    |		Load	0x0,0xd
0451 0334       | 4  |		Declare_Variable	Array,With_Constraint
0452 5019       |P   |		Indirect_Literal	Any,0x46c,{0x52656365, 0x69766500}
0453 e5fc       |    |		Load	0x2,-0x4
0454 800e       |    |		Call	0x0,0xe
0455 00c9       |    |		Action	Pop_Auxiliary_Loop
0456 7c82       ||   |		Jump	0xd9
0457 0000       |    |		.XXX[0x1]
0458 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
045c 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0460 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0464 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0468 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
046c 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0477       | w  |		.CONST	0x0477								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0004       |    |		.CONST	0x0004								; Number of locals
0473			INIT_0470:
0473 00e3       |    |		Load_Encached	Natural_Cache
0474 00e3       |    |		Load_Encached	Natural_Cache
0475 029f 09e3  |    |		Declare_Subprogram	INIT_09e0,For_Call
0477			BODY_0470:
0477 e5fa       |    |		Load	0x2,-0x6
0478 0227       | '  |		Execute	Access,All_Reference
0479 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
047a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
047b e5fd       |    |		Load	0x2,-0x3
047c 027b       | {  |		Execute	Discrete,Greater_Equal
047d 6837       |h7  |		Jump_Zero	0x4b5
047e e5f9       |    |		Load	0x2,-0x7
047f 0120       |    |		Execute	Any,Is_Value
0480 6803       |h   |		Jump_Zero	0x484
0481 e5fb       |    |		Load	0x2,-0x5
0482 0122       | "  |		Execute	Any,Make_Root_Type
0483 7801       |x   |		Jump	0x485
0484 e5f9       |    |		Load	0x2,-0x7
0485 4801       |H   |		Short_Literal	0x1
0486 e5fd       |    |		Load	0x2,-0x3
0487 e5fa       |    |		Load	0x2,-0x6
0488 0227       | '  |		Execute	Access,All_Reference
0489 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
048a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
048b 01cf       |    |		Execute	Vector,Slice_Read
048c 85fc       |    |		Call	0x2,-0x4
048d c5f9       |    |		Store	0x2,-0x7
048e e5fa       |    |		Load	0x2,-0x6
048f 0227       | '  |		Execute	Access,All_Reference
0490 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0491 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0492 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0493 e5fa       |    |		Load	0x2,-0x6
0494 0227       | '  |		Execute	Access,All_Reference
0495 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0496 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0497 e5fd       |    |		Load	0x2,-0x3
0498 0272       | r  |		Execute	Discrete,Minus
0499 e5fa       |    |		Load	0x2,-0x6
049a 0227       | '  |		Execute	Access,All_Reference
049b 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
049c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
049d e5fd       |    |		Load	0x2,-0x3
049e 0a01       |    |		Execute_Immediate	Plus,0x1
049f 00d8       |    |		Load_Top	At_Offset_0
04a0 00e2       |    |		Load_Encached	Integer_Cache
04a1 0260       | `  |		Execute	Discrete,In_Type
04a2 7001       |p   |		Jump_Nonzero	0x4a4
04a3 0801       |    |		Execute_Immediate	Raise,0x1
04a4 00da       |    |		Load_Top	At_Offset_2
04a5 e5fa       |    |		Load	0x2,-0x6
04a6 0227       | '  |		Execute	Access,All_Reference
04a7 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
04a8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04a9 01cf       |    |		Execute	Vector,Slice_Read
04aa 4801       |H   |		Short_Literal	0x1
04ab e5fa       |    |		Load	0x2,-0x6
04ac 0227       | '  |		Execute	Access,All_Reference
04ad 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
04ae 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04af e5fa       |    |		Load	0x2,-0x6
04b0 0229       | )  |		Execute	Access,All_Read
04b1 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
04b2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04b3 01ce       |    |		Execute	Vector,Slice_Write
04b4 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
04b5 e5fd       |    |		Load	0x2,-0x3
04b6 e5fa       |    |		Load	0x2,-0x6
04b7 0227       | '  |		Execute	Access,All_Reference
04b8 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
04b9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04ba 01dc       |    |		Execute	Vector,Last
04bb 027a       | z  |		Execute	Discrete,Less_Equal
04bc 6845       |hE  |		Jump_Zero	0x502
04bd e5fa       |    |		Load	0x2,-0x6
04be 0229       | )  |		Execute	Access,All_Read
04bf 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
04c0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04c1 e5fa       |    |		Load	0x2,-0x6
04c2 0227       | '  |		Execute	Access,All_Reference
04c3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
04c4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04c5 0a01       |    |		Execute_Immediate	Plus,0x1
04c6 00d8       |    |		Load_Top	At_Offset_0
04c7 00e2       |    |		Load_Encached	Integer_Cache
04c8 0260       | `  |		Execute	Discrete,In_Type
04c9 7001       |p   |		Jump_Nonzero	0x4cb
04ca 0801       |    |		Execute_Immediate	Raise,0x1
04cb e5fd       |    |		Load	0x2,-0x3
04cc 00da       |    |		Load_Top	At_Offset_2
04cd 035b       | [  |		Declare_Type	Array,Constrained
04ce 00d0       |    |		Action	Swap_Control
04cf 01cd       |    |		Execute	Vector,Slice_Reference
04d0 e5fa       |    |		Load	0x2,-0x6
04d1 0229       | )  |		Execute	Access,All_Read
04d2 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
04d3 00e3       |    |		Load_Encached	Natural_Cache
04d4 00da       |    |		Load_Top	At_Offset_2
04d5 00e2       |    |		Load_Encached	Integer_Cache
04d6 e5fa       |    |		Load	0x2,-0x6
04d7 0227       | '  |		Execute	Access,All_Reference
04d8 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
04d9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04da 800c       |    |		Call	0x0,0xc
04db 00db       |    |		Load_Top	At_Offset_3
04dc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04dd 00d1       |    |		Pop_Control	Pop_Count_1
04de c402       |    |		Store	0x2,0x2
04df 00d2       |    |		Pop_Control	Pop_Count_2
04e0 e5fa       |    |		Load	0x2,-0x6
04e1 0227       | '  |		Execute	Access,All_Reference
04e2 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
04e3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04e4 6807       |h   |		Jump_Zero	0x4ec
04e5 4800       |H   |		Short_Literal	0x0
04e6 4806       |H   |		Short_Literal	0x6
04e7 e00d       |    |		Load	0x0,0xd
04e8 0334       | 4  |		Declare_Variable	Array,With_Constraint
04e9 501a       |P   |		Indirect_Literal	Any,0x504,{0x52656365, 0x69766500}
04ea e5fa       |    |		Load	0x2,-0x6
04eb 800e       |    |		Call	0x0,0xe
04ec e5f9       |    |		Load	0x2,-0x7
04ed 0120       |    |		Execute	Any,Is_Value
04ee 6803       |h   |		Jump_Zero	0x4f2
04ef e5fb       |    |		Load	0x2,-0x5
04f0 0122       | "  |		Execute	Any,Make_Root_Type
04f1 7801       |x   |		Jump	0x4f3
04f2 e5f9       |    |		Load	0x2,-0x7
04f3 4801       |H   |		Short_Literal	0x1
04f4 e5fd       |    |		Load	0x2,-0x3
04f5 e5fa       |    |		Load	0x2,-0x6
04f6 0227       | '  |		Execute	Access,All_Reference
04f7 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
04f8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04f9 01cf       |    |		Execute	Vector,Slice_Read
04fa 85fc       |    |		Call	0x2,-0x4
04fb c5f9       |    |		Store	0x2,-0x7
04fc 4800       |H   |		Short_Literal	0x0
04fd e5fa       |    |		Load	0x2,-0x6
04fe 0227       | '  |		Execute	Access,All_Reference
04ff 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0500 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0501 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0502 8404       |    |		Call	0x2,0x4
0503 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0504 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0518       |    |		.CONST	0x0518								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0007       |    |		.CONST	0x0007								; Number of locals
050b			INIT_0508:
050b e5fd       |    |		Load	0x2,-0x3
050c e5f7       |    |		Load	0x2,-0x9
050d 01db       |    |		Execute	Vector,Length
050e 0271       | q  |		Execute	Discrete,Times
050f e002       |    |		Load	0x0,0x2
0510 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0511 00e3       |    |		Load_Encached	Natural_Cache
0512 00e3       |    |		Load_Encached	Natural_Cache
0513 00e3       |    |		Load_Encached	Natural_Cache
0514 e009       |    |		Load	0x0,0x9
0515 0007       |    |		Action	Break_Optional
0516 e009       |    |		Load	0x0,0x9
0517 0007       |    |		Action	Break_Optional
0518			BODY_0508:
0518 e5f8       |    |		Load	0x2,-0x8
0519 0227       | '  |		Execute	Access,All_Reference
051a 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
051b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
051c e402       |    |		Load	0x2,0x2
051d 027b       | {  |		Execute	Discrete,Greater_Equal
051e 6833       |h3  |		Jump_Zero	0x552
051f e5f7       |    |		Load	0x2,-0x9
0520 4801       |H   |		Short_Literal	0x1
0521 e402       |    |		Load	0x2,0x2
0522 e5f8       |    |		Load	0x2,-0x8
0523 0227       | '  |		Execute	Access,All_Reference
0524 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0525 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0526 01cf       |    |		Execute	Vector,Slice_Read
0527 85fc       |    |		Call	0x2,-0x4
0528 00d1       |    |		Pop_Control	Pop_Count_1
0529 e402       |    |		Load	0x2,0x2
052a a404       |    |		Store_Unchecked	0x2,0x4
052b e5f8       |    |		Load	0x2,-0x8
052c 0227       | '  |		Execute	Access,All_Reference
052d 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
052e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
052f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0530 e5f8       |    |		Load	0x2,-0x8
0531 0227       | '  |		Execute	Access,All_Reference
0532 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0533 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0534 e404       |    |		Load	0x2,0x4
0535 0272       | r  |		Execute	Discrete,Minus
0536 e5f8       |    |		Load	0x2,-0x8
0537 0227       | '  |		Execute	Access,All_Reference
0538 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0539 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
053a 00db       |    |		Load_Top	At_Offset_3
053b 0a01       |    |		Execute_Immediate	Plus,0x1
053c 00d8       |    |		Load_Top	At_Offset_0
053d 00e2       |    |		Load_Encached	Integer_Cache
053e 0260       | `  |		Execute	Discrete,In_Type
053f 7001       |p   |		Jump_Nonzero	0x541
0540 0801       |    |		Execute_Immediate	Raise,0x1
0541 00db       |    |		Load_Top	At_Offset_3
0542 e5f8       |    |		Load	0x2,-0x8
0543 0227       | '  |		Execute	Access,All_Reference
0544 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0545 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0546 01cf       |    |		Execute	Vector,Slice_Read
0547 4801       |H   |		Short_Literal	0x1
0548 e5f8       |    |		Load	0x2,-0x8
0549 0227       | '  |		Execute	Access,All_Reference
054a 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
054b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
054c e5f8       |    |		Load	0x2,-0x8
054d 0229       | )  |		Execute	Access,All_Read
054e 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
054f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0550 01ce       |    |		Execute	Vector,Slice_Write
0551 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0552 e402       |    |		Load	0x2,0x2
0553 e5f8       |    |		Load	0x2,-0x8
0554 0227       | '  |		Execute	Access,All_Reference
0555 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0556 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0557 01dc       |    |		Execute	Vector,Last
0558 00d8       |    |		Load_Top	At_Offset_0
0559 e002       |    |		Load	0x0,0x2
055a 0260       | `  |		Execute	Discrete,In_Type
055b 7001       |p   |		Jump_Nonzero	0x55d
055c 0801       |    |		Execute_Immediate	Raise,0x1
055d 027a       | z  |		Execute	Discrete,Less_Equal
055e 683f       |h?  |		Jump_Zero	0x59e
055f e5f8       |    |		Load	0x2,-0x8
0560 0229       | )  |		Execute	Access,All_Read
0561 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0562 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0563 e5f8       |    |		Load	0x2,-0x8
0564 0227       | '  |		Execute	Access,All_Reference
0565 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0566 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0567 0a01       |    |		Execute_Immediate	Plus,0x1
0568 00d8       |    |		Load_Top	At_Offset_0
0569 00e2       |    |		Load_Encached	Integer_Cache
056a 0260       | `  |		Execute	Discrete,In_Type
056b 7001       |p   |		Jump_Nonzero	0x56d
056c 0801       |    |		Execute_Immediate	Raise,0x1
056d e402       |    |		Load	0x2,0x2
056e 00da       |    |		Load_Top	At_Offset_2
056f 035b       | [  |		Declare_Type	Array,Constrained
0570 00d0       |    |		Action	Swap_Control
0571 01cd       |    |		Execute	Vector,Slice_Reference
0572 e5f8       |    |		Load	0x2,-0x8
0573 0229       | )  |		Execute	Access,All_Read
0574 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
0575 00e3       |    |		Load_Encached	Natural_Cache
0576 00da       |    |		Load_Top	At_Offset_2
0577 00e2       |    |		Load_Encached	Integer_Cache
0578 e5f8       |    |		Load	0x2,-0x8
0579 0227       | '  |		Execute	Access,All_Reference
057a 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
057b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
057c 800c       |    |		Call	0x0,0xc
057d 00db       |    |		Load_Top	At_Offset_3
057e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
057f 00d1       |    |		Pop_Control	Pop_Count_1
0580 c403       |    |		Store	0x2,0x3
0581 00d2       |    |		Pop_Control	Pop_Count_2
0582 e5f8       |    |		Load	0x2,-0x8
0583 0227       | '  |		Execute	Access,All_Reference
0584 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0585 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0586 6807       |h   |		Jump_Zero	0x58e
0587 4800       |H   |		Short_Literal	0x0
0588 4806       |H   |		Short_Literal	0x6
0589 e00d       |    |		Load	0x0,0xd
058a 0334       | 4  |		Declare_Variable	Array,With_Constraint
058b 50ec       |P   |		Indirect_Literal	Any,0x678,{0x52656365, 0x69766500}
058c e5f8       |    |		Load	0x2,-0x8
058d 800e       |    |		Call	0x0,0xe
058e e5f7       |    |		Load	0x2,-0x9
058f 4801       |H   |		Short_Literal	0x1
0590 e402       |    |		Load	0x2,0x2
0591 e5f8       |    |		Load	0x2,-0x8
0592 0227       | '  |		Execute	Access,All_Reference
0593 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0594 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0595 01cf       |    |		Execute	Vector,Slice_Read
0596 85fc       |    |		Call	0x2,-0x4
0597 00d1       |    |		Pop_Control	Pop_Count_1
0598 4800       |H   |		Short_Literal	0x0
0599 e5f8       |    |		Load	0x2,-0x8
059a 0227       | '  |		Execute	Access,All_Reference
059b 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
059c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
059d 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
059e e5f7       |    |		Load	0x2,-0x9
059f 01dd       |    |		Execute	Vector,First
05a0 00d8       |    |		Load_Top	At_Offset_0
05a1 e009       |    |		Load	0x0,0x9
05a2 0260       | `  |		Execute	Discrete,In_Type
05a3 7001       |p   |		Jump_Nonzero	0x5a5
05a4 0801       |    |		Execute_Immediate	Raise,0x1
05a5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
05a6 e5f8       |    |		Load	0x2,-0x8
05a7 0227       | '  |		Execute	Access,All_Reference
05a8 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
05a9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05aa 01dc       |    |		Execute	Vector,Last
05ab e5fd       |    |		Load	0x2,-0x3
05ac 0270       | p  |		Execute	Discrete,Divide
05ad 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05ae e5fd       |    |		Load	0x2,-0x3
05af 00d9       |    |		Load_Top	At_Offset_1
05b0 00d8       |    |		Load_Top	At_Offset_0
05b1 00e3       |    |		Load_Encached	Natural_Cache
05b2 0260       | `  |		Execute	Discrete,In_Type
05b3 7001       |p   |		Jump_Nonzero	0x5b5
05b4 0801       |    |		Execute_Immediate	Raise,0x1
05b5 0271       | q  |		Execute	Discrete,Times
05b6 c404       |    |		Store	0x2,0x4
05b7 00cf       |    |		Action	Mark_Auxiliary
05b8 7852       |xR  |		Jump	0x60b
05b9 e5f8       |    |		Load	0x2,-0x8
05ba 0229       | )  |		Execute	Access,All_Read
05bb 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
05bc 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05bd e5f8       |    |		Load	0x2,-0x8
05be 0227       | '  |		Execute	Access,All_Reference
05bf 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
05c0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05c1 0a01       |    |		Execute_Immediate	Plus,0x1
05c2 00d8       |    |		Load_Top	At_Offset_0
05c3 00e2       |    |		Load_Encached	Integer_Cache
05c4 0260       | `  |		Execute	Discrete,In_Type
05c5 7001       |p   |		Jump_Nonzero	0x5c7
05c6 0801       |    |		Execute_Immediate	Raise,0x1
05c7 e404       |    |		Load	0x2,0x4
05c8 00da       |    |		Load_Top	At_Offset_2
05c9 035b       | [  |		Declare_Type	Array,Constrained
05ca 00d0       |    |		Action	Swap_Control
05cb 01cd       |    |		Execute	Vector,Slice_Reference
05cc e5f8       |    |		Load	0x2,-0x8
05cd 0229       | )  |		Execute	Access,All_Read
05ce 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
05cf 00e3       |    |		Load_Encached	Natural_Cache
05d0 00da       |    |		Load_Top	At_Offset_2
05d1 00e2       |    |		Load_Encached	Integer_Cache
05d2 e5f8       |    |		Load	0x2,-0x8
05d3 0227       | '  |		Execute	Access,All_Reference
05d4 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
05d5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05d6 800c       |    |		Call	0x0,0xc
05d7 00db       |    |		Load_Top	At_Offset_3
05d8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05d9 00d1       |    |		Pop_Control	Pop_Count_1
05da c403       |    |		Store	0x2,0x3
05db 00d2       |    |		Pop_Control	Pop_Count_2
05dc e5f8       |    |		Load	0x2,-0x8
05dd 0227       | '  |		Execute	Access,All_Reference
05de 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
05df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05e0 6807       |h   |		Jump_Zero	0x5e8
05e1 4800       |H   |		Short_Literal	0x0
05e2 4806       |H   |		Short_Literal	0x6
05e3 e00d       |    |		Load	0x0,0xd
05e4 0334       | 4  |		Declare_Variable	Array,With_Constraint
05e5 5096       |P   |		Indirect_Literal	Any,0x67c,{0x52656365, 0x69766500}
05e6 e5f8       |    |		Load	0x2,-0x8
05e7 800e       |    |		Call	0x0,0xe
05e8 e5f7       |    |		Load	0x2,-0x9
05e9 00db       |    |		Load_Top	At_Offset_3
05ea 00d8       |    |		Load_Top	At_Offset_0
05eb e5fa       |    |		Load	0x2,-0x6
05ec 0260       | `  |		Execute	Discrete,In_Type
05ed 7001       |p   |		Jump_Nonzero	0x5ef
05ee 0801       |    |		Execute_Immediate	Raise,0x1
05ef e406       |    |		Load	0x2,0x6
05f0 e407       |    |		Load	0x2,0x7
05f1 0273       | s  |		Execute	Discrete,Plus
05f2 0aff       |    |		Execute_Immediate	Plus,-0x1
05f3 00d8       |    |		Load_Top	At_Offset_0
05f4 e5fa       |    |		Load	0x2,-0x6
05f5 0260       | `  |		Execute	Discrete,In_Type
05f6 7001       |p   |		Jump_Nonzero	0x5f8
05f7 0801       |    |		Execute_Immediate	Raise,0x1
05f8 00da       |    |		Load_Top	At_Offset_2
05f9 035b       | [  |		Declare_Type	Array,Constrained
05fa 00d0       |    |		Action	Swap_Control
05fb 01cd       |    |		Execute	Vector,Slice_Reference
05fc 00d8       |    |		Load_Top	At_Offset_0
05fd 4801       |H   |		Short_Literal	0x1
05fe e404       |    |		Load	0x2,0x4
05ff e5f8       |    |		Load	0x2,-0x8
0600 0227       | '  |		Execute	Access,All_Reference
0601 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0602 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0603 01cf       |    |		Execute	Vector,Slice_Read
0604 85fc       |    |		Call	0x2,-0x4
0605 00d2       |    |		Pop_Control	Pop_Count_2
0606 00da       |    |		Load_Top	At_Offset_2
0607 00da       |    |		Load_Top	At_Offset_2
0608 0273       | s  |		Execute	Discrete,Plus
0609 005b       | [  |		Store_Top	Discrete,At_Offset_3
060a 00c9       |    |		Action	Pop_Auxiliary_Loop
060b e5f7       |    |		Load	0x2,-0x9
060c 01dc       |    |		Execute	Vector,Last
060d 00d8       |    |		Load_Top	At_Offset_0
060e e009       |    |		Load	0x0,0x9
060f 0260       | `  |		Execute	Discrete,In_Type
0610 7001       |p   |		Jump_Nonzero	0x612
0611 0801       |    |		Execute_Immediate	Raise,0x1
0612 00db       |    |		Load_Top	At_Offset_3
0613 0272       | r  |		Execute	Discrete,Minus
0614 00da       |    |		Load_Top	At_Offset_2
0615 027b       | {  |		Execute	Discrete,Greater_Equal
0616 77a2       |w   |		Jump_Nonzero	0x5b9
0617 00ce       |    |		Action	Pop_Auxiliary
0618 00d9       |    |		Load_Top	At_Offset_1
0619 e5f7       |    |		Load	0x2,-0x9
061a 01dc       |    |		Execute	Vector,Last
061b 00d8       |    |		Load_Top	At_Offset_0
061c e009       |    |		Load	0x0,0x9
061d 0260       | `  |		Execute	Discrete,In_Type
061e 7001       |p   |		Jump_Nonzero	0x620
061f 0801       |    |		Execute_Immediate	Raise,0x1
0620 027a       | z  |		Execute	Discrete,Less_Equal
0621 684f       |hO  |		Jump_Zero	0x671
0622 e5fd       |    |		Load	0x2,-0x3
0623 e5f7       |    |		Load	0x2,-0x9
0624 01dc       |    |		Execute	Vector,Last
0625 00d8       |    |		Load_Top	At_Offset_0
0626 e009       |    |		Load	0x0,0x9
0627 0260       | `  |		Execute	Discrete,In_Type
0628 7001       |p   |		Jump_Nonzero	0x62a
0629 0801       |    |		Execute_Immediate	Raise,0x1
062a 00db       |    |		Load_Top	At_Offset_3
062b 0272       | r  |		Execute	Discrete,Minus
062c 0a01       |    |		Execute_Immediate	Plus,0x1
062d 00d8       |    |		Load_Top	At_Offset_0
062e 00e3       |    |		Load_Encached	Natural_Cache
062f 0260       | `  |		Execute	Discrete,In_Type
0630 7001       |p   |		Jump_Nonzero	0x632
0631 0801       |    |		Execute_Immediate	Raise,0x1
0632 0271       | q  |		Execute	Discrete,Times
0633 c404       |    |		Store	0x2,0x4
0634 e5f8       |    |		Load	0x2,-0x8
0635 0229       | )  |		Execute	Access,All_Read
0636 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0637 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0638 4801       |H   |		Short_Literal	0x1
0639 e404       |    |		Load	0x2,0x4
063a 00da       |    |		Load_Top	At_Offset_2
063b 035b       | [  |		Declare_Type	Array,Constrained
063c 00d0       |    |		Action	Swap_Control
063d 01cd       |    |		Execute	Vector,Slice_Reference
063e e5f8       |    |		Load	0x2,-0x8
063f 0229       | )  |		Execute	Access,All_Read
0640 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
0641 00e3       |    |		Load_Encached	Natural_Cache
0642 00da       |    |		Load_Top	At_Offset_2
0643 00e2       |    |		Load_Encached	Integer_Cache
0644 e5f8       |    |		Load	0x2,-0x8
0645 0227       | '  |		Execute	Access,All_Reference
0646 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0647 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0648 800c       |    |		Call	0x0,0xc
0649 00db       |    |		Load_Top	At_Offset_3
064a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
064b 00d1       |    |		Pop_Control	Pop_Count_1
064c c403       |    |		Store	0x2,0x3
064d 00d2       |    |		Pop_Control	Pop_Count_2
064e e5f8       |    |		Load	0x2,-0x8
064f 0227       | '  |		Execute	Access,All_Reference
0650 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0651 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0652 6807       |h   |		Jump_Zero	0x65a
0653 4800       |H   |		Short_Literal	0x0
0654 4806       |H   |		Short_Literal	0x6
0655 e00d       |    |		Load	0x0,0xd
0656 0334       | 4  |		Declare_Variable	Array,With_Constraint
0657 5028       |P(  |		Indirect_Literal	Any,0x680,{0x52656365, 0x69766500}
0658 e5f8       |    |		Load	0x2,-0x8
0659 800e       |    |		Call	0x0,0xe
065a e5f7       |    |		Load	0x2,-0x9
065b 00da       |    |		Load_Top	At_Offset_2
065c 00d8       |    |		Load_Top	At_Offset_0
065d e5fa       |    |		Load	0x2,-0x6
065e 0260       | `  |		Execute	Discrete,In_Type
065f 7001       |p   |		Jump_Nonzero	0x661
0660 0801       |    |		Execute_Immediate	Raise,0x1
0661 e5f7       |    |		Load	0x2,-0x9
0662 01dc       |    |		Execute	Vector,Last
0663 00da       |    |		Load_Top	At_Offset_2
0664 035b       | [  |		Declare_Type	Array,Constrained
0665 00d0       |    |		Action	Swap_Control
0666 01cd       |    |		Execute	Vector,Slice_Reference
0667 00d8       |    |		Load_Top	At_Offset_0
0668 4801       |H   |		Short_Literal	0x1
0669 e404       |    |		Load	0x2,0x4
066a e5f8       |    |		Load	0x2,-0x8
066b 0227       | '  |		Execute	Access,All_Reference
066c 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
066d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
066e 01cf       |    |		Execute	Vector,Slice_Read
066f 85fc       |    |		Call	0x2,-0x4
0670 00d2       |    |		Pop_Control	Pop_Count_2
0671 4800       |H   |		Short_Literal	0x0
0672 e5f8       |    |		Load	0x2,-0x8
0673 0227       | '  |		Execute	Access,All_Reference
0674 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0675 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0676 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0677 0000       |    |		.XXX[0x1]
0678 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
067c 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0680 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0684 0000 0000  |    |		.BLANK	0000[0x4]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 069e       |    |		.CONST	0x069e								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0008       |    |		.CONST	0x0008								; Number of locals
068b			INIT_0688:
068b e5fd       |    |		Load	0x2,-0x3
068c e5f7       |    |		Load	0x2,-0x9
068d 01db       |    |		Execute	Vector,Length
068e 0271       | q  |		Execute	Discrete,Times
068f e002       |    |		Load	0x0,0x2
0690 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0691 00d8       |    |		Load_Top	At_Offset_0
0692 0a03       |    |		Execute_Immediate	Plus,0x3
0693 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
0694 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0695 e002       |    |		Load	0x0,0x2
0696 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0697 00e3       |    |		Load_Encached	Natural_Cache
0698 00e3       |    |		Load_Encached	Natural_Cache
0699 00e3       |    |		Load_Encached	Natural_Cache
069a e009       |    |		Load	0x0,0x9
069b 0007       |    |		Action	Break_Optional
069c e009       |    |		Load	0x0,0x9
069d 0007       |    |		Action	Break_Optional
069e			BODY_0688:
069e e5f8       |    |		Load	0x2,-0x8
069f 0227       | '  |		Execute	Access,All_Reference
06a0 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06a1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06a2 e403       |    |		Load	0x2,0x3
06a3 027b       | {  |		Execute	Discrete,Greater_Equal
06a4 6833       |h3  |		Jump_Zero	0x6d8
06a5 e5f7       |    |		Load	0x2,-0x9
06a6 4801       |H   |		Short_Literal	0x1
06a7 e402       |    |		Load	0x2,0x2
06a8 e5f8       |    |		Load	0x2,-0x8
06a9 0227       | '  |		Execute	Access,All_Reference
06aa 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06ab 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06ac 01cf       |    |		Execute	Vector,Slice_Read
06ad 85fc       |    |		Call	0x2,-0x4
06ae 00d1       |    |		Pop_Control	Pop_Count_1
06af e403       |    |		Load	0x2,0x3
06b0 a405       |    |		Store_Unchecked	0x2,0x5
06b1 e5f8       |    |		Load	0x2,-0x8
06b2 0227       | '  |		Execute	Access,All_Reference
06b3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06b4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06b5 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
06b6 e5f8       |    |		Load	0x2,-0x8
06b7 0227       | '  |		Execute	Access,All_Reference
06b8 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06b9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06ba e405       |    |		Load	0x2,0x5
06bb 0272       | r  |		Execute	Discrete,Minus
06bc e5f8       |    |		Load	0x2,-0x8
06bd 0227       | '  |		Execute	Access,All_Reference
06be 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06bf 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06c0 00db       |    |		Load_Top	At_Offset_3
06c1 0a01       |    |		Execute_Immediate	Plus,0x1
06c2 00d8       |    |		Load_Top	At_Offset_0
06c3 00e2       |    |		Load_Encached	Integer_Cache
06c4 0260       | `  |		Execute	Discrete,In_Type
06c5 7001       |p   |		Jump_Nonzero	0x6c7
06c6 0801       |    |		Execute_Immediate	Raise,0x1
06c7 00db       |    |		Load_Top	At_Offset_3
06c8 e5f8       |    |		Load	0x2,-0x8
06c9 0227       | '  |		Execute	Access,All_Reference
06ca 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06cb 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06cc 01cf       |    |		Execute	Vector,Slice_Read
06cd 4801       |H   |		Short_Literal	0x1
06ce e5f8       |    |		Load	0x2,-0x8
06cf 0227       | '  |		Execute	Access,All_Reference
06d0 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06d1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06d2 e5f8       |    |		Load	0x2,-0x8
06d3 0229       | )  |		Execute	Access,All_Read
06d4 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
06d5 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06d6 01ce       |    |		Execute	Vector,Slice_Write
06d7 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
06d8 e403       |    |		Load	0x2,0x3
06d9 e5f8       |    |		Load	0x2,-0x8
06da 0227       | '  |		Execute	Access,All_Reference
06db 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06dc 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06dd 01dc       |    |		Execute	Vector,Last
06de 00d8       |    |		Load_Top	At_Offset_0
06df e002       |    |		Load	0x0,0x2
06e0 0260       | `  |		Execute	Discrete,In_Type
06e1 7001       |p   |		Jump_Nonzero	0x6e3
06e2 0801       |    |		Execute_Immediate	Raise,0x1
06e3 027a       | z  |		Execute	Discrete,Less_Equal
06e4 6843       |hC  |		Jump_Zero	0x728
06e5 e403       |    |		Load	0x2,0x3
06e6 a405       |    |		Store_Unchecked	0x2,0x5
06e7 e402       |    |		Load	0x2,0x2
06e8 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
06e9 e5f8       |    |		Load	0x2,-0x8
06ea 0229       | )  |		Execute	Access,All_Read
06eb 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
06ec 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06ed e5f8       |    |		Load	0x2,-0x8
06ee 0227       | '  |		Execute	Access,All_Reference
06ef 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
06f0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06f1 0a01       |    |		Execute_Immediate	Plus,0x1
06f2 00d8       |    |		Load_Top	At_Offset_0
06f3 00e2       |    |		Load_Encached	Integer_Cache
06f4 0260       | `  |		Execute	Discrete,In_Type
06f5 7001       |p   |		Jump_Nonzero	0x6f7
06f6 0801       |    |		Execute_Immediate	Raise,0x1
06f7 e405       |    |		Load	0x2,0x5
06f8 00da       |    |		Load_Top	At_Offset_2
06f9 035b       | [  |		Declare_Type	Array,Constrained
06fa 00d0       |    |		Action	Swap_Control
06fb 01cd       |    |		Execute	Vector,Slice_Reference
06fc e5f8       |    |		Load	0x2,-0x8
06fd 0229       | )  |		Execute	Access,All_Read
06fe 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
06ff 00e3       |    |		Load_Encached	Natural_Cache
0700 00da       |    |		Load_Top	At_Offset_2
0701 00e2       |    |		Load_Encached	Integer_Cache
0702 e5f8       |    |		Load	0x2,-0x8
0703 0227       | '  |		Execute	Access,All_Reference
0704 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0705 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0706 800c       |    |		Call	0x0,0xc
0707 00db       |    |		Load_Top	At_Offset_3
0708 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0709 00d1       |    |		Pop_Control	Pop_Count_1
070a c404       |    |		Store	0x2,0x4
070b 00d2       |    |		Pop_Control	Pop_Count_2
070c e5f8       |    |		Load	0x2,-0x8
070d 0227       | '  |		Execute	Access,All_Reference
070e 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
070f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0710 6807       |h   |		Jump_Zero	0x718
0711 4800       |H   |		Short_Literal	0x0
0712 4806       |H   |		Short_Literal	0x6
0713 e00d       |    |		Load	0x0,0xd
0714 0334       | 4  |		Declare_Variable	Array,With_Constraint
0715 5122       |Q"  |		Indirect_Literal	Any,0x838,{0x52656365, 0x69766500}
0716 e5f8       |    |		Load	0x2,-0x8
0717 800e       |    |		Call	0x0,0xe
0718 e5f7       |    |		Load	0x2,-0x9
0719 4801       |H   |		Short_Literal	0x1
071a e406       |    |		Load	0x2,0x6
071b e5f8       |    |		Load	0x2,-0x8
071c 0227       | '  |		Execute	Access,All_Reference
071d 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
071e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
071f 01cf       |    |		Execute	Vector,Slice_Read
0720 85fc       |    |		Call	0x2,-0x4
0721 00d1       |    |		Pop_Control	Pop_Count_1
0722 4800       |H   |		Short_Literal	0x0
0723 e5f8       |    |		Load	0x2,-0x8
0724 0227       | '  |		Execute	Access,All_Reference
0725 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0726 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0727 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0728 e5f7       |    |		Load	0x2,-0x9
0729 01dd       |    |		Execute	Vector,First
072a 00d8       |    |		Load_Top	At_Offset_0
072b e009       |    |		Load	0x0,0x9
072c 0260       | `  |		Execute	Discrete,In_Type
072d 7001       |p   |		Jump_Nonzero	0x72f
072e 0801       |    |		Execute_Immediate	Raise,0x1
072f 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0730 e5f8       |    |		Load	0x2,-0x8
0731 0227       | '  |		Execute	Access,All_Reference
0732 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0733 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0734 01dc       |    |		Execute	Vector,Last
0735 e5fd       |    |		Load	0x2,-0x3
0736 0270       | p  |		Execute	Discrete,Divide
0737 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0738 e5fd       |    |		Load	0x2,-0x3
0739 00d9       |    |		Load_Top	At_Offset_1
073a 00d8       |    |		Load_Top	At_Offset_0
073b 00e3       |    |		Load_Encached	Natural_Cache
073c 0260       | `  |		Execute	Discrete,In_Type
073d 7001       |p   |		Jump_Nonzero	0x73f
073e 0801       |    |		Execute_Immediate	Raise,0x1
073f 0271       | q  |		Execute	Discrete,Times
0740 c405       |    |		Store	0x2,0x5
0741 00db       |    |		Load_Top	At_Offset_3
0742 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0743 00cf       |    |		Action	Mark_Auxiliary
0744 787a       |xz  |		Jump	0x7bf
0745 e5f8       |    |		Load	0x2,-0x8
0746 0229       | )  |		Execute	Access,All_Read
0747 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0748 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0749 e5f8       |    |		Load	0x2,-0x8
074a 0227       | '  |		Execute	Access,All_Reference
074b 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
074c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
074d 0a01       |    |		Execute_Immediate	Plus,0x1
074e 00d8       |    |		Load_Top	At_Offset_0
074f 00e2       |    |		Load_Encached	Integer_Cache
0750 0260       | `  |		Execute	Discrete,In_Type
0751 7001       |p   |		Jump_Nonzero	0x753
0752 0801       |    |		Execute_Immediate	Raise,0x1
0753 e405       |    |		Load	0x2,0x5
0754 00da       |    |		Load_Top	At_Offset_2
0755 035b       | [  |		Declare_Type	Array,Constrained
0756 00d0       |    |		Action	Swap_Control
0757 01cd       |    |		Execute	Vector,Slice_Reference
0758 e5f8       |    |		Load	0x2,-0x8
0759 0229       | )  |		Execute	Access,All_Read
075a 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
075b 00e3       |    |		Load_Encached	Natural_Cache
075c 00da       |    |		Load_Top	At_Offset_2
075d 00e2       |    |		Load_Encached	Integer_Cache
075e e5f8       |    |		Load	0x2,-0x8
075f 0227       | '  |		Execute	Access,All_Reference
0760 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0761 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0762 800c       |    |		Call	0x0,0xc
0763 00db       |    |		Load_Top	At_Offset_3
0764 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0765 00d1       |    |		Pop_Control	Pop_Count_1
0766 c404       |    |		Store	0x2,0x4
0767 00d2       |    |		Pop_Control	Pop_Count_2
0768 e5f8       |    |		Load	0x2,-0x8
0769 0227       | '  |		Execute	Access,All_Reference
076a 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
076b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
076c 6807       |h   |		Jump_Zero	0x774
076d 4800       |H   |		Short_Literal	0x0
076e 4806       |H   |		Short_Literal	0x6
076f e00d       |    |		Load	0x0,0xd
0770 0334       | 4  |		Declare_Variable	Array,With_Constraint
0771 50ca       |P   |		Indirect_Literal	Any,0x83c,{0x52656365, 0x69766500}
0772 e5f8       |    |		Load	0x2,-0x8
0773 800e       |    |		Call	0x0,0xe
0774 e5f7       |    |		Load	0x2,-0x9
0775 01dc       |    |		Execute	Vector,Last
0776 00d8       |    |		Load_Top	At_Offset_0
0777 e009       |    |		Load	0x0,0x9
0778 0260       | `  |		Execute	Discrete,In_Type
0779 7001       |p   |		Jump_Nonzero	0x77b
077a 0801       |    |		Execute_Immediate	Raise,0x1
077b 00db       |    |		Load_Top	At_Offset_3
077c 0272       | r  |		Execute	Discrete,Minus
077d 0a01       |    |		Execute_Immediate	Plus,0x1
077e 00da       |    |		Load_Top	At_Offset_2
077f 027c       | |  |		Execute	Discrete,Less
0780 6814       |h   |		Jump_Zero	0x795
0781 e5f7       |    |		Load	0x2,-0x9
0782 01dc       |    |		Execute	Vector,Last
0783 00d8       |    |		Load_Top	At_Offset_0
0784 e009       |    |		Load	0x0,0x9
0785 0260       | `  |		Execute	Discrete,In_Type
0786 7001       |p   |		Jump_Nonzero	0x788
0787 0801       |    |		Execute_Immediate	Raise,0x1
0788 00db       |    |		Load_Top	At_Offset_3
0789 0272       | r  |		Execute	Discrete,Minus
078a 0a01       |    |		Execute_Immediate	Plus,0x1
078b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
078c e5fd       |    |		Load	0x2,-0x3
078d 00da       |    |		Load_Top	At_Offset_2
078e 00d8       |    |		Load_Top	At_Offset_0
078f 00e3       |    |		Load_Encached	Natural_Cache
0790 0260       | `  |		Execute	Discrete,In_Type
0791 7001       |p   |		Jump_Nonzero	0x793
0792 0801       |    |		Execute_Immediate	Raise,0x1
0793 0271       | q  |		Execute	Discrete,Times
0794 c406       |    |		Store	0x2,0x6
0795 00d9       |    |		Load_Top	At_Offset_1
0796 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0797 6822       |h"  |		Jump_Zero	0x7ba
0798 e5f7       |    |		Load	0x2,-0x9
0799 00db       |    |		Load_Top	At_Offset_3
079a 00d8       |    |		Load_Top	At_Offset_0
079b e5fa       |    |		Load	0x2,-0x6
079c 0260       | `  |		Execute	Discrete,In_Type
079d 7001       |p   |		Jump_Nonzero	0x79f
079e 0801       |    |		Execute_Immediate	Raise,0x1
079f e407       |    |		Load	0x2,0x7
07a0 e408       |    |		Load	0x2,0x8
07a1 0273       | s  |		Execute	Discrete,Plus
07a2 0aff       |    |		Execute_Immediate	Plus,-0x1
07a3 00d8       |    |		Load_Top	At_Offset_0
07a4 e5fa       |    |		Load	0x2,-0x6
07a5 0260       | `  |		Execute	Discrete,In_Type
07a6 7001       |p   |		Jump_Nonzero	0x7a8
07a7 0801       |    |		Execute_Immediate	Raise,0x1
07a8 00da       |    |		Load_Top	At_Offset_2
07a9 035b       | [  |		Declare_Type	Array,Constrained
07aa 00d0       |    |		Action	Swap_Control
07ab 01cd       |    |		Execute	Vector,Slice_Reference
07ac 00d8       |    |		Load_Top	At_Offset_0
07ad 4801       |H   |		Short_Literal	0x1
07ae e406       |    |		Load	0x2,0x6
07af e5f8       |    |		Load	0x2,-0x8
07b0 0227       | '  |		Execute	Access,All_Reference
07b1 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
07b2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07b3 01cf       |    |		Execute	Vector,Slice_Read
07b4 85fc       |    |		Call	0x2,-0x4
07b5 00d2       |    |		Pop_Control	Pop_Count_2
07b6 00da       |    |		Load_Top	At_Offset_2
07b7 00da       |    |		Load_Top	At_Offset_2
07b8 0273       | s  |		Execute	Discrete,Plus
07b9 005b       | [  |		Store_Top	Discrete,At_Offset_3
07ba e403       |    |		Load	0x2,0x3
07bb e405       |    |		Load	0x2,0x5
07bc 0272       | r  |		Execute	Discrete,Minus
07bd c403       |    |		Store	0x2,0x3
07be 00c9       |    |		Action	Pop_Auxiliary_Loop
07bf e403       |    |		Load	0x2,0x3
07c0 e405       |    |		Load	0x2,0x5
07c1 027b       | {  |		Execute	Discrete,Greater_Equal
07c2 7782       |w   |		Jump_Nonzero	0x745
07c3 00ce       |    |		Action	Pop_Auxiliary
07c4 e403       |    |		Load	0x2,0x3
07c5 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
07c6 686a       |hj  |		Jump_Zero	0x831
07c7 e403       |    |		Load	0x2,0x3
07c8 a405       |    |		Store_Unchecked	0x2,0x5
07c9 e5f8       |    |		Load	0x2,-0x8
07ca 0229       | )  |		Execute	Access,All_Read
07cb 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
07cc 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07cd 4801       |H   |		Short_Literal	0x1
07ce e405       |    |		Load	0x2,0x5
07cf 00da       |    |		Load_Top	At_Offset_2
07d0 035b       | [  |		Declare_Type	Array,Constrained
07d1 00d0       |    |		Action	Swap_Control
07d2 01cd       |    |		Execute	Vector,Slice_Reference
07d3 e5f8       |    |		Load	0x2,-0x8
07d4 0229       | )  |		Execute	Access,All_Read
07d5 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
07d6 00e3       |    |		Load_Encached	Natural_Cache
07d7 00da       |    |		Load_Top	At_Offset_2
07d8 00e2       |    |		Load_Encached	Integer_Cache
07d9 e5f8       |    |		Load	0x2,-0x8
07da 0227       | '  |		Execute	Access,All_Reference
07db 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
07dc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07dd 800c       |    |		Call	0x0,0xc
07de 00db       |    |		Load_Top	At_Offset_3
07df 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07e0 00d1       |    |		Pop_Control	Pop_Count_1
07e1 c404       |    |		Store	0x2,0x4
07e2 00d2       |    |		Pop_Control	Pop_Count_2
07e3 e5f8       |    |		Load	0x2,-0x8
07e4 0227       | '  |		Execute	Access,All_Reference
07e5 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
07e6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07e7 6807       |h   |		Jump_Zero	0x7ef
07e8 4800       |H   |		Short_Literal	0x0
07e9 4806       |H   |		Short_Literal	0x6
07ea e00d       |    |		Load	0x0,0xd
07eb 0334       | 4  |		Declare_Variable	Array,With_Constraint
07ec 5053       |PS  |		Indirect_Literal	Any,0x840,{0x52656365, 0x69766500}
07ed e5f8       |    |		Load	0x2,-0x8
07ee 800e       |    |		Call	0x0,0xe
07ef e5f7       |    |		Load	0x2,-0x9
07f0 01dc       |    |		Execute	Vector,Last
07f1 00d8       |    |		Load_Top	At_Offset_0
07f2 e009       |    |		Load	0x0,0x9
07f3 0260       | `  |		Execute	Discrete,In_Type
07f4 7001       |p   |		Jump_Nonzero	0x7f6
07f5 0801       |    |		Execute_Immediate	Raise,0x1
07f6 00da       |    |		Load_Top	At_Offset_2
07f7 0272       | r  |		Execute	Discrete,Minus
07f8 0a01       |    |		Execute_Immediate	Plus,0x1
07f9 00d9       |    |		Load_Top	At_Offset_1
07fa 027c       | |  |		Execute	Discrete,Less
07fb 6814       |h   |		Jump_Zero	0x810
07fc e5f7       |    |		Load	0x2,-0x9
07fd 01dc       |    |		Execute	Vector,Last
07fe 00d8       |    |		Load_Top	At_Offset_0
07ff e009       |    |		Load	0x0,0x9
0800 0260       | `  |		Execute	Discrete,In_Type
0801 7001       |p   |		Jump_Nonzero	0x803
0802 0801       |    |		Execute_Immediate	Raise,0x1
0803 00da       |    |		Load_Top	At_Offset_2
0804 0272       | r  |		Execute	Discrete,Minus
0805 0a01       |    |		Execute_Immediate	Plus,0x1
0806 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0807 e5fd       |    |		Load	0x2,-0x3
0808 00d9       |    |		Load_Top	At_Offset_1
0809 00d8       |    |		Load_Top	At_Offset_0
080a 00e3       |    |		Load_Encached	Natural_Cache
080b 0260       | `  |		Execute	Discrete,In_Type
080c 7001       |p   |		Jump_Nonzero	0x80e
080d 0801       |    |		Execute_Immediate	Raise,0x1
080e 0271       | q  |		Execute	Discrete,Times
080f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0810 00d8       |    |		Load_Top	At_Offset_0
0811 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0812 681e       |h   |		Jump_Zero	0x831
0813 e5f7       |    |		Load	0x2,-0x9
0814 00da       |    |		Load_Top	At_Offset_2
0815 00d8       |    |		Load_Top	At_Offset_0
0816 e5fa       |    |		Load	0x2,-0x6
0817 0260       | `  |		Execute	Discrete,In_Type
0818 7001       |p   |		Jump_Nonzero	0x81a
0819 0801       |    |		Execute_Immediate	Raise,0x1
081a 00db       |    |		Load_Top	At_Offset_3
081b 00db       |    |		Load_Top	At_Offset_3
081c 0273       | s  |		Execute	Discrete,Plus
081d 0aff       |    |		Execute_Immediate	Plus,-0x1
081e 00d8       |    |		Load_Top	At_Offset_0
081f e5fa       |    |		Load	0x2,-0x6
0820 0260       | `  |		Execute	Discrete,In_Type
0821 7001       |p   |		Jump_Nonzero	0x823
0822 0801       |    |		Execute_Immediate	Raise,0x1
0823 00da       |    |		Load_Top	At_Offset_2
0824 035b       | [  |		Declare_Type	Array,Constrained
0825 00d0       |    |		Action	Swap_Control
0826 01cd       |    |		Execute	Vector,Slice_Reference
0827 00d8       |    |		Load_Top	At_Offset_0
0828 4801       |H   |		Short_Literal	0x1
0829 e406       |    |		Load	0x2,0x6
082a e5f8       |    |		Load	0x2,-0x8
082b 0227       | '  |		Execute	Access,All_Reference
082c 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
082d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
082e 01cf       |    |		Execute	Vector,Slice_Read
082f 85fc       |    |		Call	0x2,-0x4
0830 00d2       |    |		Pop_Control	Pop_Count_2
0831 4800       |H   |		Short_Literal	0x0
0832 e5f8       |    |		Load	0x2,-0x8
0833 0227       | '  |		Execute	Access,All_Reference
0834 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0835 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0836 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0837 0000       |    |		.XXX[0x1]
0838 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
083c 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0840 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0844 0000 0000  |    |		.BLANK	0000[0x4]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 085a       | Z  |		.CONST	0x085a								; Address of begin
0849 0004       |    |		.CONST	0x0004								; Address of exception handler
084a 0005       |    |		.CONST	0x0005								; Number of locals
084b			INIT_0848:
084b e5fd       |    |		Load	0x2,-0x3
084c 4801       |H   |		Short_Literal	0x1
084d e5f5       |    |		Load	0x2,-0xb
084e 01ab       |    |		Execute	Matrix,Length
084f 0271       | q  |		Execute	Discrete,Times
0850 4802       |H   |		Short_Literal	0x2
0851 e5f5       |    |		Load	0x2,-0xb
0852 01ab       |    |		Execute	Matrix,Length
0853 0271       | q  |		Execute	Discrete,Times
0854 00e3       |    |		Load_Encached	Natural_Cache
0855 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0856 00e3       |    |		Load_Encached	Natural_Cache
0857 00e3       |    |		Load_Encached	Natural_Cache
0858 029f 0a4b  |   K|		Declare_Subprogram	INIT_0a48,For_Call
085a			BODY_0848:
085a e5f6       |    |		Load	0x2,-0xa
085b 0227       | '  |		Execute	Access,All_Reference
085c 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
085d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
085e e402       |    |		Load	0x2,0x2
085f 027b       | {  |		Execute	Discrete,Greater_Equal
0860 6831       |h1  |		Jump_Zero	0x892
0861 e5f5       |    |		Load	0x2,-0xb
0862 4801       |H   |		Short_Literal	0x1
0863 e402       |    |		Load	0x2,0x2
0864 e5f6       |    |		Load	0x2,-0xa
0865 0227       | '  |		Execute	Access,All_Reference
0866 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0867 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0868 01cf       |    |		Execute	Vector,Slice_Read
0869 85fc       |    |		Call	0x2,-0x4
086a 00d1       |    |		Pop_Control	Pop_Count_1
086b e5f6       |    |		Load	0x2,-0xa
086c 0227       | '  |		Execute	Access,All_Reference
086d 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
086e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
086f 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0870 e5f6       |    |		Load	0x2,-0xa
0871 0227       | '  |		Execute	Access,All_Reference
0872 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0873 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0874 e402       |    |		Load	0x2,0x2
0875 0272       | r  |		Execute	Discrete,Minus
0876 e5f6       |    |		Load	0x2,-0xa
0877 0227       | '  |		Execute	Access,All_Reference
0878 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0879 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
087a 00db       |    |		Load_Top	At_Offset_3
087b 0a01       |    |		Execute_Immediate	Plus,0x1
087c 00d8       |    |		Load_Top	At_Offset_0
087d 00e2       |    |		Load_Encached	Integer_Cache
087e 0260       | `  |		Execute	Discrete,In_Type
087f 7001       |p   |		Jump_Nonzero	0x881
0880 0801       |    |		Execute_Immediate	Raise,0x1
0881 00da       |    |		Load_Top	At_Offset_2
0882 e5f6       |    |		Load	0x2,-0xa
0883 0227       | '  |		Execute	Access,All_Reference
0884 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0885 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0886 01cf       |    |		Execute	Vector,Slice_Read
0887 4801       |H   |		Short_Literal	0x1
0888 e5f6       |    |		Load	0x2,-0xa
0889 0227       | '  |		Execute	Access,All_Reference
088a 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
088b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
088c e5f6       |    |		Load	0x2,-0xa
088d 0229       | )  |		Execute	Access,All_Read
088e 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
088f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0890 01ce       |    |		Execute	Vector,Slice_Write
0891 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0892 00db       |    |		Load_Top	At_Offset_3
0893 e5f6       |    |		Load	0x2,-0xa
0894 0227       | '  |		Execute	Access,All_Reference
0895 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0896 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0897 01dc       |    |		Execute	Vector,Last
0898 027a       | z  |		Execute	Discrete,Less_Equal
0899 683f       |h?  |		Jump_Zero	0x8d9
089a e5f6       |    |		Load	0x2,-0xa
089b 0229       | )  |		Execute	Access,All_Read
089c 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
089d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
089e e5f6       |    |		Load	0x2,-0xa
089f 0227       | '  |		Execute	Access,All_Reference
08a0 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
08a1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08a2 0a01       |    |		Execute_Immediate	Plus,0x1
08a3 00d8       |    |		Load_Top	At_Offset_0
08a4 00e2       |    |		Load_Encached	Integer_Cache
08a5 0260       | `  |		Execute	Discrete,In_Type
08a6 7001       |p   |		Jump_Nonzero	0x8a8
08a7 0801       |    |		Execute_Immediate	Raise,0x1
08a8 e402       |    |		Load	0x2,0x2
08a9 00da       |    |		Load_Top	At_Offset_2
08aa 035b       | [  |		Declare_Type	Array,Constrained
08ab 00d0       |    |		Action	Swap_Control
08ac 01cd       |    |		Execute	Vector,Slice_Reference
08ad e5f6       |    |		Load	0x2,-0xa
08ae 0229       | )  |		Execute	Access,All_Read
08af 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
08b0 00e3       |    |		Load_Encached	Natural_Cache
08b1 00da       |    |		Load_Top	At_Offset_2
08b2 00e2       |    |		Load_Encached	Integer_Cache
08b3 e5f6       |    |		Load	0x2,-0xa
08b4 0227       | '  |		Execute	Access,All_Reference
08b5 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
08b6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08b7 800c       |    |		Call	0x0,0xc
08b8 00db       |    |		Load_Top	At_Offset_3
08b9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08ba 00d1       |    |		Pop_Control	Pop_Count_1
08bb c403       |    |		Store	0x2,0x3
08bc 00d2       |    |		Pop_Control	Pop_Count_2
08bd e5f6       |    |		Load	0x2,-0xa
08be 0227       | '  |		Execute	Access,All_Reference
08bf 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
08c0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08c1 6807       |h   |		Jump_Zero	0x8c9
08c2 4800       |H   |		Short_Literal	0x0
08c3 4806       |H   |		Short_Literal	0x6
08c4 e00d       |    |		Load	0x0,0xd
08c5 0334       | 4  |		Declare_Variable	Array,With_Constraint
08c6 5015       |P   |		Indirect_Literal	Any,0x8dc,{0x52656365, 0x69766500}
08c7 e5f6       |    |		Load	0x2,-0xa
08c8 800e       |    |		Call	0x0,0xe
08c9 e5f5       |    |		Load	0x2,-0xb
08ca 4801       |H   |		Short_Literal	0x1
08cb e402       |    |		Load	0x2,0x2
08cc e5f6       |    |		Load	0x2,-0xa
08cd 0227       | '  |		Execute	Access,All_Reference
08ce 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
08cf 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08d0 01cf       |    |		Execute	Vector,Slice_Read
08d1 85fc       |    |		Call	0x2,-0x4
08d2 00d1       |    |		Pop_Control	Pop_Count_1
08d3 4800       |H   |		Short_Literal	0x0
08d4 e5f6       |    |		Load	0x2,-0xa
08d5 0227       | '  |		Execute	Access,All_Reference
08d6 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
08d7 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08d8 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
08d9 8405       |    |		Call	0x2,0x5
08da 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
08db 0000       |    |		.XXX[0x1]
08dc 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e7       |    |		.CONST	0x08e7								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0004       |    |		.CONST	0x0004								; Number of locals
08e3			INIT_08e0:
08e3 e002       |    |		Load	0x0,0x2
08e4 0007       |    |		Action	Break_Optional
08e5 00e3       |    |		Load_Encached	Natural_Cache
08e6 00e3       |    |		Load_Encached	Natural_Cache
08e7			BODY_08e0:
08e7 e5fe       |    |		Load	0x2,-0x2
08e8 0a03       |    |		Execute_Immediate	Plus,0x3
08e9 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
08ea 0902       |    |		Execute_Immediate	Binary_Scale,0x2
08eb 005b       | [  |		Store_Top	Discrete,At_Offset_3
08ec e5ff       |    |		Load	0x2,-0x1
08ed 0227       | '  |		Execute	Access,All_Reference
08ee 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
08ef 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08f0 00db       |    |		Load_Top	At_Offset_3
08f1 027b       | {  |		Execute	Discrete,Greater_Equal
08f2 6829       |h)  |		Jump_Zero	0x91c
08f3 00da       |    |		Load_Top	At_Offset_2
08f4 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
08f5 e5ff       |    |		Load	0x2,-0x1
08f6 0227       | '  |		Execute	Access,All_Reference
08f7 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
08f8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08f9 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
08fa e5ff       |    |		Load	0x2,-0x1
08fb 0227       | '  |		Execute	Access,All_Reference
08fc 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
08fd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08fe 00da       |    |		Load_Top	At_Offset_2
08ff 0272       | r  |		Execute	Discrete,Minus
0900 e5ff       |    |		Load	0x2,-0x1
0901 0227       | '  |		Execute	Access,All_Reference
0902 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0903 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0904 00d9       |    |		Load_Top	At_Offset_1
0905 0a01       |    |		Execute_Immediate	Plus,0x1
0906 00d8       |    |		Load_Top	At_Offset_0
0907 00e2       |    |		Load_Encached	Integer_Cache
0908 0260       | `  |		Execute	Discrete,In_Type
0909 7001       |p   |		Jump_Nonzero	0x90b
090a 0801       |    |		Execute_Immediate	Raise,0x1
090b 00d9       |    |		Load_Top	At_Offset_1
090c e5ff       |    |		Load	0x2,-0x1
090d 0227       | '  |		Execute	Access,All_Reference
090e 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
090f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0910 01cf       |    |		Execute	Vector,Slice_Read
0911 4801       |H   |		Short_Literal	0x1
0912 e5ff       |    |		Load	0x2,-0x1
0913 0227       | '  |		Execute	Access,All_Reference
0914 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0915 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0916 e5ff       |    |		Load	0x2,-0x1
0917 0229       | )  |		Execute	Access,All_Read
0918 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0919 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
091a 01ce       |    |		Execute	Vector,Slice_Write
091b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
091c 00da       |    |		Load_Top	At_Offset_2
091d e5ff       |    |		Load	0x2,-0x1
091e 0227       | '  |		Execute	Access,All_Reference
091f 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0920 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0921 0272       | r  |		Execute	Discrete,Minus
0922 005b       | [  |		Store_Top	Discrete,At_Offset_3
0923 4800       |H   |		Short_Literal	0x0
0924 e5ff       |    |		Load	0x2,-0x1
0925 0227       | '  |		Execute	Access,All_Reference
0926 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0927 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0928 00cf       |    |		Action	Mark_Auxiliary
0929 7841       |xA  |		Jump	0x96b
092a 00db       |    |		Load_Top	At_Offset_3
092b e5ff       |    |		Load	0x2,-0x1
092c 0227       | '  |		Execute	Access,All_Reference
092d 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
092e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
092f 01dc       |    |		Execute	Vector,Last
0930 00d8       |    |		Load_Top	At_Offset_0
0931 e002       |    |		Load	0x0,0x2
0932 0260       | `  |		Execute	Discrete,In_Type
0933 7001       |p   |		Jump_Nonzero	0x935
0934 0801       |    |		Execute_Immediate	Raise,0x1
0935 027d       | }  |		Execute	Discrete,Greater
0936 6807       |h   |		Jump_Zero	0x93e
0937 e5ff       |    |		Load	0x2,-0x1
0938 0227       | '  |		Execute	Access,All_Reference
0939 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
093a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
093b 01dc       |    |		Execute	Vector,Last
093c 005b       | [  |		Store_Top	Discrete,At_Offset_3
093d 7802       |x   |		Jump	0x940
093e 00db       |    |		Load_Top	At_Offset_3
093f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0940 e5ff       |    |		Load	0x2,-0x1
0941 0229       | )  |		Execute	Access,All_Read
0942 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
0943 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0944 4801       |H   |		Short_Literal	0x1
0945 e403       |    |		Load	0x2,0x3
0946 00da       |    |		Load_Top	At_Offset_2
0947 035b       | [  |		Declare_Type	Array,Constrained
0948 00d0       |    |		Action	Swap_Control
0949 01cd       |    |		Execute	Vector,Slice_Reference
094a e5ff       |    |		Load	0x2,-0x1
094b 0229       | )  |		Execute	Access,All_Read
094c 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
094d 00e3       |    |		Load_Encached	Natural_Cache
094e 00da       |    |		Load_Top	At_Offset_2
094f 00e2       |    |		Load_Encached	Integer_Cache
0950 e5ff       |    |		Load	0x2,-0x1
0951 0227       | '  |		Execute	Access,All_Reference
0952 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0953 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0954 800c       |    |		Call	0x0,0xc
0955 00db       |    |		Load_Top	At_Offset_3
0956 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0957 00d1       |    |		Pop_Control	Pop_Count_1
0958 c404       |    |		Store	0x2,0x4
0959 00d2       |    |		Pop_Control	Pop_Count_2
095a e5ff       |    |		Load	0x2,-0x1
095b 0227       | '  |		Execute	Access,All_Reference
095c 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
095d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
095e 6807       |h   |		Jump_Zero	0x966
095f 4800       |H   |		Short_Literal	0x0
0960 4806       |H   |		Short_Literal	0x6
0961 e00d       |    |		Load	0x0,0xd
0962 0334       | 4  |		Declare_Variable	Array,With_Constraint
0963 500c       |P   |		Indirect_Literal	Any,0x970,{0x52656365, 0x69766500}
0964 e5ff       |    |		Load	0x2,-0x1
0965 800e       |    |		Call	0x0,0xe
0966 00db       |    |		Load_Top	At_Offset_3
0967 00da       |    |		Load_Top	At_Offset_2
0968 0272       | r  |		Execute	Discrete,Minus
0969 c402       |    |		Store	0x2,0x2
096a 00c9       |    |		Action	Pop_Auxiliary_Loop
096b 00db       |    |		Load_Top	At_Offset_3
096c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
096d 77bc       |w   |		Jump_Nonzero	0x92a
096e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
096f 0000       |    |		.XXX[0x1]
0970 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0974 0000 0000  |    |		.BLANK	0000[0x4]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097d       | }  |		.CONST	0x097d								; Address of begin
0979 0004       |    |		.CONST	0x0004								; Address of exception handler
097a 0002       |    |		.CONST	0x0002								; Number of locals
097b			INIT_0978:
097b e015       |    |		Load	0x0,0x15
097c 0007       |    |		Action	Break_Optional
097d			BODY_0978:
097d e015       |    |		Load	0x0,0x15
097e e5fc       |    |		Load	0x2,-0x4
097f 4802       |H   |		Short_Literal	0x2
0980 e01b       |    |		Load	0x0,0x1b
0981 e01c       |    |		Load	0x0,0x1c
0982 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
0983 0039       | 9  |		Store_Top	Access,At_Offset_1
0984 e409       |    |		Load	0x2,0x9
0985 e5fc       |    |		Load	0x2,-0x4
0986 00da       |    |		Load_Top	At_Offset_2
0987 801d       |    |		Call	0x0,0x1d
0988 801e       |    |		Call	0x0,0x1e
0989 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
098a 0000 0000  |    |		.BLANK	0000[0x6]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0995       |    |		.CONST	0x0995								; Address of begin
0991 0004       |    |		.CONST	0x0004								; Address of exception handler
0992 0002       |    |		.CONST	0x0002								; Number of locals
0993			INIT_0990:
0993 e015       |    |		Load	0x0,0x15
0994 0007       |    |		Action	Break_Optional
0995			BODY_0990:
0995 e015       |    |		Load	0x0,0x15
0996 e5fc       |    |		Load	0x2,-0x4
0997 4802       |H   |		Short_Literal	0x2
0998 e01b       |    |		Load	0x0,0x1b
0999 e01f       |    |		Load	0x0,0x1f
099a 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
099b 0039       | 9  |		Store_Top	Access,At_Offset_1
099c e5fc       |    |		Load	0x2,-0x4
099d 0229       | )  |		Execute	Access,All_Read
099e 3c33       |<3  |		Execute	Record,Field_Read,Field_Number 0x33
099f 00d8       |    |		Load_Top	At_Offset_0
09a0 4800       |H   |		Short_Literal	0x0
09a1 4820       |H   |		Short_Literal	0x20
09a2 e00d       |    |		Load	0x0,0xd
09a3 0334       | 4  |		Declare_Variable	Array,With_Constraint
09a4 5013       |P   |		Indirect_Literal	Any,0x9b8,{0x5265706c, 0x79207368}
09a5 4800       |H   |		Short_Literal	0x0
09a6 4809       |H   |		Short_Literal	0x9
09a7 e00d       |    |		Load	0x0,0xd
09a8 0334       | 4  |		Declare_Variable	Array,With_Constraint
09a9 5022       |P"  |		Indirect_Literal	Any,0x9cc,{0x5265706c, 0x7953686f}
09aa 4800       |H   |		Short_Literal	0x0
09ab 4808       |H   |		Short_Literal	0x8
09ac e00d       |    |		Load	0x0,0xd
09ad 0334       | 4  |		Declare_Variable	Array,With_Constraint
09ae 5025       |P%  |		Indirect_Literal	Any,0x9d4,{0x586c6962, 0x4572726f}
09af 8020       |    |		Call	0x0,0x20
09b0 8021       | !  |		Call	0x0,0x21
09b1 00d2       |    |		Pop_Control	Pop_Count_2
09b2 e5fc       |    |		Load	0x2,-0x4
09b3 00d9       |    |		Load_Top	At_Offset_1
09b4 8022       | "  |		Call	0x0,0x22
09b5 8023       | #  |		Call	0x0,0x23
09b6 e024       | $  |		Load	0x0,0x24
09b7 0257       | W  |		Execute	Discrete,Raise
09b8 5265 706c  |Repl|		.LITERAL	{0x5265706c, 0x79207368}
09bc 6f72 7465  |orte|		.XXX[0x10]
09be 7220 7468  |r th|
09c0 616e 2077  |an w|
09c2 6173 2072  |as r|
09c4 6571 7565  |eque|
09c6 7374 6564  |sted|
09c8 2e00 0000  |.   |
09ca 0000 0000  |    |
09cc 5265 706c  |Repl|		.LITERAL	{0x5265706c, 0x7953686f}
09d0 7274 0000  |rt  |		.XXX[0x4]
09d2 0000 0000  |    |
09d4 586c 6962  |Xlib|		.LITERAL	{0x586c6962, 0x4572726f}
09d8 7200       |r   |		.XXX[0x1]
09d9 0000 0000  |    |		.BLANK	0000[0x7]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e5       |    |		.CONST	0x09e5								; Address of begin
09e1 0004       |    |		.CONST	0x0004								; Address of exception handler
09e2 0002       |    |		.CONST	0x0002								; Number of locals
09e3			INIT_09e0:
09e3 e025       | %  |		Load	0x0,0x25
09e4 0007       |    |		Action	Break_Optional
09e5			BODY_09e0:
09e5 4801       |H   |		Short_Literal	0x1
09e6 e5fd       |    |		Load	0x2,-0x3
09e7 e025       | %  |		Load	0x0,0x25
09e8 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
09e9 0039       | 9  |		Store_Top	Access,At_Offset_1
09ea e5fa       |    |		Load	0x2,-0x6
09eb 0227       | '  |		Execute	Access,All_Reference
09ec 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
09ed 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09ee 0a01       |    |		Execute_Immediate	Plus,0x1
09ef c403       |    |		Store	0x2,0x3
09f0 4801       |H   |		Short_Literal	0x1
09f1 e5fa       |    |		Load	0x2,-0x6
09f2 0227       | '  |		Execute	Access,All_Reference
09f3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
09f4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09f5 e5fa       |    |		Load	0x2,-0x6
09f6 0227       | '  |		Execute	Access,All_Reference
09f7 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
09f8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
09f9 01cf       |    |		Execute	Vector,Slice_Read
09fa 4801       |H   |		Short_Literal	0x1
09fb e5fa       |    |		Load	0x2,-0x6
09fc 0227       | '  |		Execute	Access,All_Reference
09fd 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
09fe 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09ff 00db       |    |		Load_Top	At_Offset_3
0a00 0229       | )  |		Execute	Access,All_Read
0a01 01ce       |    |		Execute	Vector,Slice_Write
0a02 4800       |H   |		Short_Literal	0x0
0a03 e5fa       |    |		Load	0x2,-0x6
0a04 0227       | '  |		Execute	Access,All_Reference
0a05 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0a06 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0a07 00d8       |    |		Load_Top	At_Offset_0
0a08 0229       | )  |		Execute	Access,All_Read
0a09 e403       |    |		Load	0x2,0x3
0a0a e5fd       |    |		Load	0x2,-0x3
0a0b 00da       |    |		Load_Top	At_Offset_2
0a0c 035b       | [  |		Declare_Type	Array,Constrained
0a0d 00d0       |    |		Action	Swap_Control
0a0e 01cd       |    |		Execute	Vector,Slice_Reference
0a0f e5fa       |    |		Load	0x2,-0x6
0a10 0229       | )  |		Execute	Access,All_Read
0a11 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
0a12 00e3       |    |		Load_Encached	Natural_Cache
0a13 00da       |    |		Load_Top	At_Offset_2
0a14 00e2       |    |		Load_Encached	Integer_Cache
0a15 e5fa       |    |		Load	0x2,-0x6
0a16 0227       | '  |		Execute	Access,All_Reference
0a17 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0a18 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a19 800c       |    |		Call	0x0,0xc
0a1a 00db       |    |		Load_Top	At_Offset_3
0a1b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a1c 00d1       |    |		Pop_Control	Pop_Count_1
0a1d c402       |    |		Store	0x2,0x2
0a1e 00d2       |    |		Pop_Control	Pop_Count_2
0a1f e5fa       |    |		Load	0x2,-0x6
0a20 0227       | '  |		Execute	Access,All_Reference
0a21 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0a22 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0a23 6807       |h   |		Jump_Zero	0xa2b
0a24 4800       |H   |		Short_Literal	0x0
0a25 4806       |H   |		Short_Literal	0x6
0a26 e00d       |    |		Load	0x0,0xd
0a27 0334       | 4  |		Declare_Variable	Array,With_Constraint
0a28 5017       |P   |		Indirect_Literal	Any,0xa40,{0x52656365, 0x69766500}
0a29 e5fa       |    |		Load	0x2,-0x6
0a2a 800e       |    |		Call	0x0,0xe
0a2b e5f9       |    |		Load	0x2,-0x7
0a2c 0120       |    |		Execute	Any,Is_Value
0a2d 6803       |h   |		Jump_Zero	0xa31
0a2e e5fb       |    |		Load	0x2,-0x5
0a2f 0122       | "  |		Execute	Any,Make_Root_Type
0a30 7801       |x   |		Jump	0xa32
0a31 e5f9       |    |		Load	0x2,-0x7
0a32 00d9       |    |		Load_Top	At_Offset_1
0a33 0227       | '  |		Execute	Access,All_Reference
0a34 85fc       |    |		Call	0x2,-0x4
0a35 c5f9       |    |		Store	0x2,-0x7
0a36 00d8       |    |		Load_Top	At_Offset_0
0a37 e026       | &  |		Load	0x0,0x26
0a38 e027       | '  |		Load	0x0,0x27
0a39 a028       | (  |		Store_Unchecked	0x0,0x28
0a3a 8029       | )  |		Call	0x0,0x29
0a3b 0039       | 9  |		Store_Top	Access,At_Offset_1
0a3c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a3d 0000 0000  |    |		.XXX[0x3]
0a3f 0000       |    |
0a40 5265 6365  |Rece|		.LITERAL	{0x52656365, 0x69766500}
0a44 0000 0000  |    |		.BLANK	0000[0x4]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a71       | q  |		.CONST	0x0a71								; Address of begin
0a49 0004       |    |		.CONST	0x0004								; Address of exception handler
0a4a 0007       |    |		.CONST	0x0007								; Number of locals
0a4b			INIT_0a48:
0a4b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0a4c 00c6       |    |		Action	Check_Subprogram_Elaborated
0a4d e5f7       |    |		Load	0x2,-0x9
0a4e 4ffb       |O   |		Short_Literal	-0x5
0a4f 4802       |H   |		Short_Literal	0x2
0a50 0099       |    |		Action	Reference_Dynamic
0a51 00c4       |    |		Action	Make_Default
0a52 00c4       |    |		Action	Make_Default
0a53 00db       |    |		Load_Top	At_Offset_3
0a54 012c       | ,  |		Execute	Any,Size
0a55 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
0a56 00d8       |    |		Load_Top	At_Offset_0
0a57 00e3       |    |		Load_Encached	Natural_Cache
0a58 0260       | `  |		Execute	Discrete,In_Type
0a59 7001       |p   |		Jump_Nonzero	0xa5b
0a5a 0801       |    |		Execute_Immediate	Raise,0x1
0a5b c604       |    |		Store	0x3,0x4
0a5c 00db       |    |		Load_Top	At_Offset_3
0a5d 012c       | ,  |		Execute	Any,Size
0a5e 4820       |H   |		Short_Literal	0x20
0a5f 026f       | o  |		Execute	Discrete,Remainder
0a60 00d8       |    |		Load_Top	At_Offset_0
0a61 e20d       |    |		Load	0x1,0xd
0a62 0260       | `  |		Execute	Discrete,In_Type
0a63 7001       |p   |		Jump_Nonzero	0xa65
0a64 0801       |    |		Execute_Immediate	Raise,0x1
0a65 c605       |    |		Store	0x3,0x5
0a66 0093 0000  |    |		push_full_address	0x0
0a68 6047       |`G  |		Indirect_Literal	Discrete,0xab0,{0x80000000, 0x00010000}
0a69 0273       | s  |		Execute	Discrete,Plus
0a6a e5ff       |    |		Load	0x2,-0x1
0a6b 6040       |`@  |		Indirect_Literal	Discrete,0xaac,{0x00000000, 0x0000ffff}
0a6c 0279       | y  |		Execute	Discrete,And
0a6d 0273       | s  |		Execute	Discrete,Plus
0a6e e02a       | *  |		Load	0x0,0x2a
0a6f 0273       | s  |		Execute	Discrete,Plus
0a70 4807       |H   |		Short_Literal	0x7
0a71			BODY_0a48:
0a71 00cf       |    |		Action	Mark_Auxiliary
0a72 4801       |H   |		Short_Literal	0x1
0a73 e5f5       |    |		Load	0x2,-0xb
0a74 01a9       |    |		Execute	Matrix,Reverse_Bounds
0a75 0263       | c  |		Execute	Discrete,Above_Bound
0a76 7031       |p1  |		Jump_Nonzero	0xaa8
0a77 00cf       |    |		Action	Mark_Auxiliary
0a78 4802       |H   |		Short_Literal	0x2
0a79 e5f5       |    |		Load	0x2,-0xb
0a7a 01a9       |    |		Execute	Matrix,Reverse_Bounds
0a7b 0263       | c  |		Execute	Discrete,Above_Bound
0a7c 7028       |p(  |		Jump_Nonzero	0xaa5
0a7d e5f5       |    |		Load	0x2,-0xb
0a7e 00d9       |    |		Load_Top	At_Offset_1
0a7f e60a       |    |		Load	0x3,0xa
0a80 00d9       |    |		Load_Top	At_Offset_1
0a81 00d9       |    |		Load_Top	At_Offset_1
0a82 e60e       |    |		Load	0x3,0xe
0a83 01a7       |    |		Execute	Matrix,Field_Read
0a84 0120       |    |		Execute	Any,Is_Value
0a85 6807       |h   |		Jump_Zero	0xa8d
0a86 e602       |    |		Load	0x3,0x2
0a87 00da       |    |		Load_Top	At_Offset_2
0a88 00da       |    |		Load_Top	At_Offset_2
0a89 e60e       |    |		Load	0x3,0xe
0a8a 01a7       |    |		Execute	Matrix,Field_Read
0a8b 00d1       |    |		Pop_Control	Pop_Count_1
0a8c 7806       |x   |		Jump	0xa93
0a8d 00d9       |    |		Load_Top	At_Offset_1
0a8e 00d9       |    |		Load_Top	At_Offset_1
0a8f e60e       |    |		Load	0x3,0xe
0a90 01a7       |    |		Execute	Matrix,Field_Read
0a91 e5f7       |    |		Load	0x2,-0x9
0a92 0119       |    |		Execute	Any,Check_In_Formal_Type
0a93 e5f6       |    |		Load	0x2,-0xa
0a94 e602       |    |		Load	0x3,0x2
0a95 4803       |H   |		Short_Literal	0x3
0a96 4803       |H   |		Short_Literal	0x3
0a97 0099       |    |		Action	Reference_Dynamic
0a98 e604       |    |		Load	0x3,0x4
0a99 e605       |    |		Load	0x3,0x5
0a9a 4806       |H   |		Short_Literal	0x6
0a9b 4803       |H   |		Short_Literal	0x3
0a9c 0099       |    |		Action	Reference_Dynamic
0a9d 8210       |    |		Call	0x1,0x10
0a9e 00da       |    |		Load_Top	At_Offset_2
0a9f 00da       |    |		Load_Top	At_Offset_2
0aa0 e60e       |    |		Load	0x3,0xe
0aa1 01a6       |    |		Execute	Matrix,Field_Write
0aa2 00d3       |    |		Pop_Control	Pop_Count_3
0aa3 00c8       |    |		Action	Pop_Auxiliary_Range
0aa4 3fd8       |?   |		Loop_Increasing	0xa7d
0aa5 00ce       |    |		Action	Pop_Auxiliary
0aa6 00c8       |    |		Action	Pop_Auxiliary_Range
0aa7 3fcf       |?   |		Loop_Increasing	0xa77
0aa8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0aa9 0000 0000  |    |		.XXX[0x3]
0aab 0000       |    |
0aac 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0ab0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0ab4 0000 0000  |    |		.BLANK	0000[0x4]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; Debug Table
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x68df,0x0000,0x0001,0x000c
0abe 000b 0aee  |    |		.DBG4T	0x000b,0x0aee,0x8000,0x0000
0ac2 0020 0af8  |    |		.DBG4T	0x0020,0x0af8,0x8000,0x0000
0ac6 0033 0b01  | 3  |		.DBG4T	0x0033,0x0b01,0x2801,0x4002
0aca 0473 0c08  | s  |		.DBG4T	0x0473,0x0c08,0x2801,0x0002
0ace 050b 0c1a  |    |		.DBG4T	0x050b,0x0c1a,0x2801,0x4002
0ad2 068b 0c5e  |   ^|		.DBG4T	0x068b,0x0c5e,0x2801,0x4002
0ad6 084b 0cbb  | K  |		.DBG4T	0x084b,0x0cbb,0x2801,0x0002
0ada 08e3 0cce  |    |		.DBG4T	0x08e3,0x0cce,0x0001,0x4000
0ade 097b 0cf5  | {  |		.DBG4T	0x097b,0x0cf5,0x0804,0x0002
0ae2 0993 0cfa  |    |		.DBG4T	0x0993,0x0cfa,0x0804,0x0002
0ae6 09e3 0d01  |    |		.DBG4T	0x09e3,0x0d01,0x0804,0x0002
0aea 0a4b 0d0d  | K  |		.DBG4T	0x0a4b,0x0d0d,0x0804,0x0002
0aee ; --------------------------------------------------------------------------------------
0aee ; Debug chain
0aee ; --------------------------------------------------------------------------------------
0aee 0008 0000  |    |		.DBGLEN	0x0008,0x0000
0af0 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d
0af8 ; --------------------------------------------------------------------------------------
0af8 ; Debug chain
0af8 ; --------------------------------------------------------------------------------------
0af8 0007 0000  |    |		.DBGLEN	0x0007,0x0000
0afa 0020 0021  |   !|		.DBGLNO	0x0020,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b
0b01 ; --------------------------------------------------------------------------------------
0b01 ; Debug chain
0b01 ; --------------------------------------------------------------------------------------
0b01 000f 007b  |   {|		.DBGLEN	0x000f,0x007b
0b03 0033 0035  | 3 5|		.DBGLNO	0x0033,0x0035,0x0037,0x0038,0x003a,0x003b,0x003d,0x003f,0x0043,0x0045,0x0047,0x004b,0x004d,0x004f,0x0051,0x005a,0x0060,0x0061,0x0063,0x006e,0x0074,0x009b,0x00a6,0x00c0,0x00c5,0x00d0,0x00d8,0x00d9,0x00e1,0x00e3,0x00ec,0x00ee,0x00f5,0x0106,0x010d,0x0110,0x0116,0x0118,0x0122,0x0125,0x012c,0x0134,0x0139,0x0144,0x0155,0x0157,0x015a,0x0161,0x0163,0x018a,0x0194,0x019f,0x01a6,0x01ad,0x01d0,0x01da,0x01df,0x01e6,0x01eb,0x01ff,0x0202,0x0207,0x0213,0x0218,0x022e,0x0238,0x023a,0x023f,0x0249,0x0260,0x0267,0x026a,0x026c,0x026e,0x0273,0x027d,0x0294,0x0295,0x029a,0x029c,0x02a1,0x02ab,0x02c2,0x02c3,0x02c9,0x02cf,0x02dd,0x02df,0x02e1,0x02e6,0x02f0,0x0307,0x0308,0x030d,0x0310,0x0312,0x0313,0x0318,0x031a,0x031f,0x0329,0x0340,0x0341,0x034c,0x0351,0x0356,0x036b,0x0379,0x037b,0x037d,0x038b,0x0390,0x039f,0x03a0,0x03ad,0x03b4,0x03b6,0x03d0,0x03d5,0x03dc,0x03e0,0x03e2,0x03e6,0x03eb,0x03f0,0x03fa,0x0411,0x0415,0x0416,0x0418,0x0419,0x041c,0x0423,0x0428,0x042a,0x0444,0x0449,0x044e
0b8d 0001 0002  |    |		.XXX[0x7b]
0b8f 0003 0004  |    |
0b91 0005 0006  |    |
0b93 0007 0008  |    |
0b95 0009 000a  |    |
0b97 000b 000c  |    |
0b99 000d 000e  |    |
0b9b 000f 0010  |    |
0b9d 0011 0012  |    |
0b9f 0013 0014  |    |
0ba1 0015 0016  |    |
0ba3 0017 0018  |    |
0ba5 0019 001a  |    |
0ba7 001b 001c  |    |
0ba9 001d 001e  |    |
0bab 001f 0020  |    |
0bad 0021 0022  | ! "|
0baf 0023 0024  | # $|
0bb1 0025 0026  | % &|
0bb3 0027 0028  | ' (|
0bb5 0029 002a  | ) *|
0bb7 002b 0071  | + q|
0bb9 0072 0073  | r s|
0bbb 002c 002d  | , -|
0bbd 002e 002f  | . /|
0bbf 0030 0031  | 0 1|
0bc1 0032 0033  | 2 3|
0bc3 0034 0035  | 4 5|
0bc5 0041 0036  | A 6|
0bc7 0037 0038  | 7 8|
0bc9 0039 003a  | 9 :|
0bcb 003b 003c  | ; <|
0bcd 003d 003e  | = >|
0bcf 003f 0040  | ? @|
0bd1 0042 0044  | B D|
0bd3 0045 0046  | E F|
0bd5 0047 0048  | G H|
0bd7 0049 004a  | I J|
0bd9 004b 004c  | K L|
0bdb 0043 004d  | C M|
0bdd 004e 004f  | N O|
0bdf 0050 0051  | P Q|
0be1 0052 0053  | R S|
0be3 0054 0055  | T U|
0be5 0056 0057  | V W|
0be7 0058 0059  | X Y|
0be9 005a 005b  | Z [|
0beb 005c 005d  | \ ]|
0bed 005e 005f  | ^ _|
0bef 0060 0061  | ` a|
0bf1 0062 0063  | b c|
0bf3 0064 0065  | d e|
0bf5 0066 0067  | f g|
0bf7 0068 0069  | h i|
0bf9 006a 006b  | j k|
0bfb 006c 006d  | l m|
0bfd 006e 006f  | n o|
0bff 0070 0074  | p t|
0c01 0075 0076  | u v|
0c03 0077 0078  | w x|
0c05 0079 007a  | y z|
0c07 007b       | {  |
0c08 ; --------------------------------------------------------------------------------------
0c08 ; Debug chain
0c08 ; --------------------------------------------------------------------------------------
0c08 0002 000e  |    |		.DBGLEN	0x0002,0x000e
0c0a 0473 0474  | s t|		.DBGLNO	0x0473,0x0474,0x0477,0x047e,0x048e,0x0493,0x049d,0x04b4,0x04b5,0x04bd,0x04e0,0x04e5,0x04ec,0x04fc,0x0501,0x0502
0c1a ; --------------------------------------------------------------------------------------
0c1a ; Debug chain
0c1a ; --------------------------------------------------------------------------------------
0c1a 0006 001e  |    |		.DBGLEN	0x0006,0x001e
0c1c 050b 0511  |    |		.DBGLNO	0x050b,0x0511,0x0512,0x0513,0x0514,0x0516,0x0518,0x051f,0x0529,0x052b,0x0530,0x053a,0x0551,0x0552,0x055f,0x0582,0x0587,0x058e,0x0598,0x059d,0x059e,0x05a6,0x05ae,0x05b9,0x05dc,0x05e1,0x05e8,0x0606,0x060b,0x0618,0x0622,0x0634,0x064e,0x0653,0x065a,0x0671
0c40 0001 0002  |    |		.XXX[0x1e]
0c42 0003 0004  |    |
0c44 0005 0006  |    |
0c46 0007 0008  |    |
0c48 0009 000a  |    |
0c4a 000b 000c  |    |
0c4c 000d 000e  |    |
0c4e 000f 0010  |    |
0c50 0011 0013  |    |
0c52 0014 0015  |    |
0c54 0016 0017  |    |
0c56 0012 0018  |    |
0c58 0019 001a  |    |
0c5a 001b 001c  |    |
0c5c 001d 001e  |    |
0c5e ; --------------------------------------------------------------------------------------
0c5e ; Debug chain
0c5e ; --------------------------------------------------------------------------------------
0c5e 0007 002a  |   *|		.DBGLEN	0x0007,0x002a
0c60 068b 0691  |    |		.DBGLNO	0x068b,0x0691,0x0697,0x0698,0x0699,0x069a,0x069c,0x069e,0x06a5,0x06af,0x06b1,0x06b6,0x06c0,0x06d7,0x06d8,0x06e5,0x06e7,0x06e9,0x070c,0x0711,0x0718,0x0722,0x0727,0x0728,0x0730,0x0738,0x0741,0x0745,0x0768,0x076d,0x0774,0x0781,0x078c,0x0795,0x0798,0x07b6,0x07ba,0x07bf,0x07c4,0x07c7,0x07c9,0x07e3,0x07e8,0x07ef,0x07fc,0x0807,0x0810,0x0813,0x0831
0c91 0001 0002  |    |		.XXX[0x2a]
0c93 0003 0004  |    |
0c95 0005 0006  |    |
0c97 0007 0008  |    |
0c99 0009 000a  |    |
0c9b 000b 000c  |    |
0c9d 000d 000e  |    |
0c9f 000f 0010  |    |
0ca1 0011 0012  |    |
0ca3 0013 0014  |    |
0ca5 0016 0017  |    |
0ca7 0018 0019  |    |
0ca9 001a 001b  |    |
0cab 001c 001d  |    |
0cad 001e 001f  |    |
0caf 0015 0020  |    |
0cb1 0021 0022  | ! "|
0cb3 0023 0024  | # $|
0cb5 0025 0026  | % &|
0cb7 0027 0028  | ' (|
0cb9 0029 002a  | ) *|
0cbb ; --------------------------------------------------------------------------------------
0cbb ; Debug chain
0cbb ; --------------------------------------------------------------------------------------
0cbb 0003 000e  |    |		.DBGLEN	0x0003,0x000e
0cbd 084b 0856  | K V|		.DBGLNO	0x084b,0x0856,0x0857,0x085a,0x0861,0x086b,0x0870,0x087a,0x0891,0x0892,0x089a,0x08bd,0x08c2,0x08c9,0x08d3,0x08d8,0x08d9
0cce ; --------------------------------------------------------------------------------------
0cce ; Debug chain
0cce ; --------------------------------------------------------------------------------------
0cce 0003 0011  |    |		.DBGLEN	0x0003,0x0011
0cd0 08e3 08e5  |    |		.DBGLNO	0x08e3,0x08e5,0x08e6,0x08e7,0x08ec,0x08f3,0x08f5,0x08fa,0x0904,0x091b,0x091c,0x0923,0x092a,0x0937,0x093e,0x0940,0x095a,0x095f,0x0966,0x096b
0ce4 0001 0002  |    |		.XXX[0x11]
0ce6 0003 0004  |    |
0ce8 0005 0006  |    |
0cea 0007 0008  |    |
0cec 0009 000b  |    |
0cee 000c 000d  |    |
0cf0 000e 000f  |    |
0cf2 0010 0011  |    |
0cf4 000a       |    |
0cf5 ; --------------------------------------------------------------------------------------
0cf5 ; Debug chain
0cf5 ; --------------------------------------------------------------------------------------
0cf5 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0cf7 097b 097d  | { }|		.DBGLNO	0x097b,0x097d,0x0984
0cfa ; --------------------------------------------------------------------------------------
0cfa ; Debug chain
0cfa ; --------------------------------------------------------------------------------------
0cfa 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0cfc 0993 0995  |    |		.DBGLNO	0x0993,0x0995,0x099c,0x09b2,0x09b6
0d01 ; --------------------------------------------------------------------------------------
0d01 ; Debug chain
0d01 ; --------------------------------------------------------------------------------------
0d01 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0d03 09e3 09e5  |    |		.DBGLNO	0x09e3,0x09e5,0x09ea,0x09f0,0x0a02,0x0a07,0x0a1f,0x0a24,0x0a2b,0x0a36
0d0d ; --------------------------------------------------------------------------------------
0d0d ; Debug chain
0d0d ; --------------------------------------------------------------------------------------
0d0d 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0d0f 0a4b 0a72  | K r|		.DBGLNO	0x0a4b,0x0a72,0x0a78,0x0a7d
0d13 0000 0000  |    |		.BLANK	0000[0xed]