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

⟦282365ac9⟧

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

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 0708       |    |		.CONST	0x0708								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0096       |    |		.CONST	0x0096								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002a       | *  |		.CONST	0x002a								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
001d c217       |    |		Store	0x1,0x17
001e 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0020 c218       |    |		Store	0x1,0x18
0021 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0023 c219       |    |		Store	0x1,0x19
0024 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0026 c21a       |    |		Store	0x1,0x1a
0027 00e1       |    |		Load_Encached	Boolean_Cache
0028 00e1       |    |		Load_Encached	Boolean_Cache
0029 02a0       |    |		Declare_Subprogram	Null_Subprogram
002a 4802       |H   |		Short_Literal	0x2
002b 032e       | .  |		Declare_Type	Record,Defined,Visible
002c c211       |    |		Store	0x1,0x11
002d e211       |    |		Load	0x1,0x11
002e 0322       | "  |		Declare_Variable	Record
002f 4801       |H   |		Short_Literal	0x1
0030 00d9       |    |		Load_Top	At_Offset_1
0031 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0032 4800       |H   |		Short_Literal	0x0
0033 00d9       |    |		Load_Top	At_Offset_1
0034 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0035 0129       | )  |		Execute	Any,Make_Visible
0036 c212       |    |		Store	0x1,0x12
0037 4801       |H   |		Short_Literal	0x1
0038 4840       |H@  |		Short_Literal	0x40
0039 00e9       |    |		Load_Encached	String_Cache
003a 035c       | \  |		Declare_Type	Array,Constrained,Visible
003b 00e2       |    |		Load_Encached	Integer_Cache
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 4802       |H   |		Short_Literal	0x2
003e 032e       | .  |		Declare_Type	Record,Defined,Visible
003f c213       |    |		Store	0x1,0x13
0040 e213       |    |		Load	0x1,0x13
0041 0322       | "  |		Declare_Variable	Record
0042 e213       |    |		Load	0x1,0x13
0043 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0044 0337       | 7  |		Declare_Variable	Array
0045 4840       |H@  |		Short_Literal	0x40
0046 4801       |H   |		Short_Literal	0x1
0047 4820       |H   |		Short_Literal	0x20
0048 00d9       |    |		Load_Top	At_Offset_1
0049 e21e       |    |		Load	0x1,0x1e
004a 01d6       |    |		Execute	Vector,Field_Write
004b 3ffb       |?   |		Loop_Increasing	0x47
004c e213       |    |		Load	0x1,0x13
004d 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
004e 0119       |    |		Execute	Any,Check_In_Formal_Type
004f 00d9       |    |		Load_Top	At_Offset_1
0050 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0051 4fff       |O   |		Short_Literal	-0x1
0052 00d9       |    |		Load_Top	At_Offset_1
0053 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0054 0129       | )  |		Execute	Any,Make_Visible
0055 c214       |    |		Store	0x1,0x14
0056 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0058 c21b       |    |		Store	0x1,0x1b
0059 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
005b c21c       |    |		Store	0x1,0x1c
005c 00bf       |    |		Action	Accept_Activation
005d 00e1       |    |		Load_Encached	Boolean_Cache
005e 0266       | f  |		Execute	Discrete,Bounds
005f 00e8       |    |		Load_Encached	Character_Cache
0060 02a0       |    |		Declare_Subprogram	Null_Subprogram
0061 4801       |H   |		Short_Literal	0x1
0062 035d       | ]  |		Declare_Type	Array,Defined
0063 00d8       |    |		Load_Top	At_Offset_0
0064 0337       | 7  |		Declare_Variable	Array
0065 00d8       |    |		Load_Top	At_Offset_0
0066 0335       | 5  |		Declare_Variable	Array,Duplicate
0067 00cd       |    |		Action	Spare6_Action
0068 4854       |HT  |		Short_Literal	0x54
0069 4801       |H   |		Short_Literal	0x1
006a 00da       |    |		Load_Top	At_Offset_2
006b 01d6       |    |		Execute	Vector,Field_Write
006c 4846       |HF  |		Short_Literal	0x46
006d 4800       |H   |		Short_Literal	0x0
006e 00da       |    |		Load_Top	At_Offset_2
006f 01d6       |    |		Execute	Vector,Field_Write
0070 00d9       |    |		Load_Top	At_Offset_1
0071 01d4       |    |		Execute	Vector,Structure_Write
0072 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
0074 029d 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call
0076 029d 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call
0078 029d 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call
007a 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
007c 029d 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call
007e 029d 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call
0080 029d 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call
0082 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call
0084 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
0086 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
0088 029d 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call
008a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0095 00c7       |    |		Action	Elaborate_Subprogram
0096			BODY_0008:
0096 00bc       |    |		Action	Signal_Activated
0097 00bb       |    |		Action	Signal_Completion
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b6       |    |		.CONST	0x00b6								; Address of begin
0099 00db       |    |		.CONST	0x00db								; Address of exception handler
009a 0009       |    |		.CONST	0x0009								; Number of locals
009b			INIT_0098:
009b 00db       |    |		Load_Top	At_Offset_3
009c 00db       |    |		Load_Top	At_Offset_3
009d e001       |    |		Load	0x0,0x1
009e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00a0 00e2       |    |		Load_Encached	Integer_Cache
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 01dd       |    |		Execute	Vector,First
00a3 00e2       |    |		Load_Encached	Integer_Cache
00a4 03f1       |    |		Declare_Variable	Discrete,With_Value
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 01dc       |    |		Execute	Vector,Last
00a7 00e2       |    |		Load_Encached	Integer_Cache
00a8 03f1       |    |		Declare_Variable	Discrete,With_Value
00a9 00e2       |    |		Load_Encached	Integer_Cache
00aa e002       |    |		Load	0x0,0x2
00ab 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00ac 02c7       |    |		Declare_Variable	Any
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00af e002       |    |		Load	0x0,0x2
00b0 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00b1 02c7       |    |		Declare_Variable	Any
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b4 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
00b6			BODY_0098:
00b6 4801       |H   |		Short_Literal	0x1
00b7 0092 06c8  |    |		Action	Push_String_Extended,0x6c8					; "<error>"
00b9 e402       |    |		Load	0x2,0x2
00ba e003       |    |		Load	0x0,0x3
00bb 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00bc 6815       |h   |		Jump_Zero	0xd2
00bd e004       |    |		Load	0x0,0x4
00be 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bf 4801       |H   |		Short_Literal	0x1
00c0 4801       |H   |		Short_Literal	0x1
00c1 e005       |    |		Load	0x0,0x5
00c2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c3 035b       | [  |		Declare_Type	Array,Constrained
00c4 0337       | 7  |		Declare_Variable	Array
00c5 e5ff       |    |		Load	0x2,-0x1
00c6 e005       |    |		Load	0x0,0x5
00c7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00c8 e005       |    |		Load	0x0,0x5
00c9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ca 0119       |    |		Execute	Any,Check_In_Formal_Type
00cb 4801       |H   |		Short_Literal	0x1
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 01d6       |    |		Execute	Vector,Field_Write
00ce 6015       |`   |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x00008211}
00cf e006       |    |		Load	0x0,0x6
00d0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00d1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d2 e5fe       |    |		Load	0x2,-0x2
00d3 e5ff       |    |		Load	0x2,-0x1
00d4 e007       |    |		Load	0x0,0x7
00d5 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00d6 e008       |    |		Load	0x0,0x8
00d7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00d8 c407       |    |		Store	0x2,0x7
00d9 8409       |    |		Call	0x2,0x9
00da 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00db			TRAP_0098:
00db 0007       |    |		Action	Break_Optional
00dc e5fe       |    |		Load	0x2,-0x2
00dd 0092 06c9  |    |		Action	Push_String_Extended,0x6c9					; "Rcf_Unit_Options.Display"
00df e009       |    |		Load	0x0,0x9
00e0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00e1 e006       |    |		Load	0x0,0x6
00e2 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
00e3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008211}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 010f       |    |		.CONST	0x010f								; Address of begin
00e9 0137       | 7  |		.CONST	0x0137								; Address of exception handler
00ea 000c       |    |		.CONST	0x000c								; Number of locals
00eb			INIT_00e8:
00eb e5fc       |    |		Load	0x2,-0x4
00ec 00db       |    |		Load_Top	At_Offset_3
00ed e001       |    |		Load	0x0,0x1
00ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ef 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00f0 e002       |    |		Load	0x0,0x2
00f1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00f2 02c7       |    |		Declare_Variable	Any
00f3 e5fc       |    |		Load	0x2,-0x4
00f4 e5ff       |    |		Load	0x2,-0x1
00f5 e007       |    |		Load	0x0,0x7
00f6 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00f7 e008       |    |		Load	0x0,0x8
00f8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f9 a403       |    |		Store_Unchecked	0x2,0x3
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb e002       |    |		Load	0x0,0x2
00fc 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
00fd e5fc       |    |		Load	0x2,-0x4
00fe e5ff       |    |		Load	0x2,-0x1
00ff e5fe       |    |		Load	0x2,-0x2
0100 8225       | %  |		Call	0x1,0x25
0101 e002       |    |		Load	0x0,0x2
0102 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0103 02c7       |    |		Declare_Variable	Any
0104 00d8       |    |		Load_Top	At_Offset_0
0105 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0106 00e1       |    |		Load_Encached	Boolean_Cache
0107 00e2       |    |		Load_Encached	Integer_Cache
0108 00e2       |    |		Load_Encached	Integer_Cache
0109 00e2       |    |		Load_Encached	Integer_Cache
010a e006       |    |		Load	0x0,0x6
010b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
010d 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
010f			BODY_00e8:
010f e5fc       |    |		Load	0x2,-0x4
0110 00d8       |    |		Load_Top	At_Offset_0
0111 e5ff       |    |		Load	0x2,-0x1
0112 e007       |    |		Load	0x0,0x7
0113 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0114 e404       |    |		Load	0x2,0x4
0115 e405       |    |		Load	0x2,0x5
0116 8227       | '  |		Call	0x1,0x27
0117 c406       |    |		Store	0x2,0x6
0118 e406       |    |		Load	0x2,0x6
0119 e002       |    |		Load	0x0,0x2
011a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
011b 6801       |h   |		Jump_Zero	0x11d
011c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
011d e406       |    |		Load	0x2,0x6
011e e002       |    |		Load	0x0,0x2
011f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0120 7014       |p   |		Jump_Nonzero	0x135
0121 e5fc       |    |		Load	0x2,-0x4
0122 4801       |H   |		Short_Literal	0x1
0123 4801       |H   |		Short_Literal	0x1
0124 e005       |    |		Load	0x0,0x5
0125 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0126 035b       | [  |		Declare_Type	Array,Constrained
0127 0337       | 7  |		Declare_Variable	Array
0128 e405       |    |		Load	0x2,0x5
0129 e005       |    |		Load	0x0,0x5
012a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
012b e005       |    |		Load	0x0,0x5
012c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012d 0119       |    |		Execute	Any,Check_In_Formal_Type
012e 4801       |H   |		Short_Literal	0x1
012f 00da       |    |		Load_Top	At_Offset_2
0130 01d6       |    |		Execute	Vector,Field_Write
0131 600e       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x000081b4}
0132 e006       |    |		Load	0x0,0x6
0133 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0134 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0135 840c       |    |		Call	0x2,0xc
0136 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0137			TRAP_00e8:
0137 0007       |    |		Action	Break_Optional
0138 e5fc       |    |		Load	0x2,-0x4
0139 0092 06ca  |    |		Action	Push_String_Extended,0x6ca					; "Rcf_Unit_Options.Set"
013b e009       |    |		Load	0x0,0x9
013c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
013d e006       |    |		Load	0x0,0x6
013e 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
013f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0140 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b4}
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0170       | p  |		.CONST	0x0170								; Address of begin
0149 0198       |    |		.CONST	0x0198								; Address of exception handler
014a 000d       |    |		.CONST	0x000d								; Number of locals
014b			INIT_0148:
014b e5fc       |    |		Load	0x2,-0x4
014c 00db       |    |		Load_Top	At_Offset_3
014d e001       |    |		Load	0x0,0x1
014e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
014f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0150 e002       |    |		Load	0x0,0x2
0151 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0152 02c7       |    |		Declare_Variable	Any
0153 e5fc       |    |		Load	0x2,-0x4
0154 e5ff       |    |		Load	0x2,-0x1
0155 e007       |    |		Load	0x0,0x7
0156 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0157 e008       |    |		Load	0x0,0x8
0158 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0159 a403       |    |		Store_Unchecked	0x2,0x3
015a 00d8       |    |		Load_Top	At_Offset_0
015b e002       |    |		Load	0x0,0x2
015c 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
015d e002       |    |		Load	0x0,0x2
015e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
015f 02c7       |    |		Declare_Variable	Any
0160 00d8       |    |		Load_Top	At_Offset_0
0161 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0162 e5fc       |    |		Load	0x2,-0x4
0163 e5ff       |    |		Load	0x2,-0x1
0164 e5fe       |    |		Load	0x2,-0x2
0165 8225       | %  |		Call	0x1,0x25
0166 00e1       |    |		Load_Encached	Boolean_Cache
0167 00e1       |    |		Load_Encached	Boolean_Cache
0168 00e2       |    |		Load_Encached	Integer_Cache
0169 00e2       |    |		Load_Encached	Integer_Cache
016a 00e2       |    |		Load_Encached	Integer_Cache
016b e006       |    |		Load	0x0,0x6
016c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
016e 029f 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Call
0170			BODY_0148:
0170 e5fc       |    |		Load	0x2,-0x4
0171 00d8       |    |		Load_Top	At_Offset_0
0172 e5ff       |    |		Load	0x2,-0x1
0173 e007       |    |		Load	0x0,0x7
0174 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0175 e404       |    |		Load	0x2,0x4
0176 e406       |    |		Load	0x2,0x6
0177 8227       | '  |		Call	0x1,0x27
0178 c405       |    |		Store	0x2,0x5
0179 e405       |    |		Load	0x2,0x5
017a e002       |    |		Load	0x0,0x2
017b 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
017c 6801       |h   |		Jump_Zero	0x17e
017d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
017e e405       |    |		Load	0x2,0x5
017f e002       |    |		Load	0x0,0x2
0180 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0181 6814       |h   |		Jump_Zero	0x196
0182 e5fc       |    |		Load	0x2,-0x4
0183 4801       |H   |		Short_Literal	0x1
0184 4801       |H   |		Short_Literal	0x1
0185 e005       |    |		Load	0x0,0x5
0186 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0187 035b       | [  |		Declare_Type	Array,Constrained
0188 0337       | 7  |		Declare_Variable	Array
0189 e406       |    |		Load	0x2,0x6
018a e005       |    |		Load	0x0,0x5
018b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018c e005       |    |		Load	0x0,0x5
018d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
018e 0119       |    |		Execute	Any,Check_In_Formal_Type
018f 4801       |H   |		Short_Literal	0x1
0190 00da       |    |		Load_Top	At_Offset_2
0191 01d6       |    |		Execute	Vector,Field_Write
0192 6011       |`   |		Indirect_Literal	Discrete,0x1a4,{0x00000000, 0x000081b3}
0193 e006       |    |		Load	0x0,0x6
0194 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0195 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0196 840d       |    |		Call	0x2,0xd
0197 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0198			TRAP_0148:
0198 0007       |    |		Action	Break_Optional
0199 e5fc       |    |		Load	0x2,-0x4
019a 0092 06ca  |    |		Action	Push_String_Extended,0x6ca					; "Rcf_Unit_Options.Set"
019c e009       |    |		Load	0x0,0x9
019d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019e e006       |    |		Load	0x0,0x6
019f 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
01a0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01a1 0000 0000  |    |		.XXX[0x3]
01a3 0000       |    |
01a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b3}
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ba       |    |		.CONST	0x01ba								; Address of begin
01a9 01d6       |    |		.CONST	0x01d6								; Address of exception handler
01aa 0005       |    |		.CONST	0x0005								; Number of locals
01ab			INIT_01a8:
01ab e5fd       |    |		Load	0x2,-0x3
01ac 00db       |    |		Load_Top	At_Offset_3
01ad e001       |    |		Load	0x0,0x1
01ae 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01af 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01b0 e002       |    |		Load	0x0,0x2
01b1 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
01b2 02c7       |    |		Declare_Variable	Any
01b3 00d8       |    |		Load_Top	At_Offset_0
01b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b5 e006       |    |		Load	0x0,0x6
01b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01b8 029f 0613  |    |		Declare_Subprogram	INIT_0610,For_Call
01ba			BODY_01a8:
01ba 4801       |H   |		Short_Literal	0x1
01bb 0092 06cb  |    |		Action	Push_String_Extended,0x6cb					; "<ALL>"
01bd e5fe       |    |		Load	0x2,-0x2
01be e003       |    |		Load	0x0,0x3
01bf 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01c0 680a       |h   |		Jump_Zero	0x1cb
01c1 e006       |    |		Load	0x0,0x6
01c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c3 00ea       |    |		Load_Encached	Null_String_Cache
01c4 e5fd       |    |		Load	0x2,-0x3
01c5 e5ff       |    |		Load	0x2,-0x1
01c6 e001       |    |		Load	0x0,0x1
01c7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01c8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01c9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ca 7801       |x   |		Jump	0x1cc
01cb 8405       |    |		Call	0x2,0x5
01cc 4800       |H   |		Short_Literal	0x0
01cd 00da       |    |		Load_Top	At_Offset_2
01ce e006       |    |		Load	0x0,0x6
01cf 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
01d0 7004       |p   |		Jump_Nonzero	0x1d5
01d1 e5fd       |    |		Load	0x2,-0x3
01d2 00da       |    |		Load_Top	At_Offset_2
01d3 e006       |    |		Load	0x0,0x6
01d4 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
01d5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01d6			TRAP_01a8:
01d6 0007       |    |		Action	Break_Optional
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 0092 06cc  |    |		Action	Push_String_Extended,0x6cc					; "Rcf_Unit_Options.Remove"
01da e009       |    |		Load	0x0,0x9
01db 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01dc e006       |    |		Load	0x0,0x6
01dd 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
01de 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f3       |    |		.CONST	0x01f3								; Address of begin
01e1 0210       |    |		.CONST	0x0210								; Address of exception handler
01e2 0008       |    |		.CONST	0x0008								; Number of locals
01e3			INIT_01e0:
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 e001       |    |		Load	0x0,0x1
01e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01e8 e5fe       |    |		Load	0x2,-0x2
01e9 8229       | )  |		Call	0x1,0x29
01ea 00e1       |    |		Load_Encached	Boolean_Cache
01eb 00e2       |    |		Load_Encached	Integer_Cache
01ec 00e2       |    |		Load_Encached	Integer_Cache
01ed 00e2       |    |		Load_Encached	Integer_Cache
01ee e211       |    |		Load	0x1,0x11
01ef 0322       | "  |		Declare_Variable	Record
01f0 e212       |    |		Load	0x1,0x12
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 017d       | }  |		Execute	Record,Structure_Write
01f3			BODY_01e0:
01f3 00e2       |    |		Load_Encached	Integer_Cache
01f4 00e2       |    |		Load_Encached	Integer_Cache
01f5 00e2       |    |		Load_Encached	Integer_Cache
01f6 00e1       |    |		Load_Encached	Boolean_Cache
01f7 e5fd       |    |		Load	0x2,-0x3
01f8 e403       |    |		Load	0x2,0x3
01f9 e402       |    |		Load	0x2,0x2
01fa e5ff       |    |		Load	0x2,-0x1
01fb 822a       | *  |		Call	0x1,0x2a
01fc c404       |    |		Store	0x2,0x4
01fd c405       |    |		Store	0x2,0x5
01fe c406       |    |		Store	0x2,0x6
01ff 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0200 e404       |    |		Load	0x2,0x4
0201 680c       |h   |		Jump_Zero	0x20e
0202 4800       |H   |		Short_Literal	0x0
0203 00d9       |    |		Load_Top	At_Offset_1
0204 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0205 00d9       |    |		Load_Top	At_Offset_1
0206 e402       |    |		Load	0x2,0x2
0207 01d7       |    |		Execute	Vector,Field_Read
0208 4801       |H   |		Short_Literal	0x1
0209 e21e       |    |		Load	0x1,0x1e
020a 01d7       |    |		Execute	Vector,Field_Read
020b 027f       |    |		Execute	Discrete,Equal
020c 00d9       |    |		Load_Top	At_Offset_1
020d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
020e 00d8       |    |		Load_Top	At_Offset_0
020f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0210			TRAP_01e0:
0210 0007       |    |		Action	Break_Optional
0211 e5fd       |    |		Load	0x2,-0x3
0212 0092 06cd  |    |		Action	Push_String_Extended,0x6cd					; "Rcf_Unit_Options.Get"
0214 e009       |    |		Load	0x0,0x9
0215 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0216 e006       |    |		Load	0x0,0x6
0217 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0218 e212       |    |		Load	0x1,0x12
0219 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
021a 0000 0000  |    |		.BLANK	0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0234       | 4  |		.CONST	0x0234								; Address of begin
0221 025c       | \  |		.CONST	0x025c								; Address of exception handler
0222 0009       |    |		.CONST	0x0009								; Number of locals
0223			INIT_0220:
0223 e5fd       |    |		Load	0x2,-0x3
0224 00db       |    |		Load_Top	At_Offset_3
0225 e001       |    |		Load	0x0,0x1
0226 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0227 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0228 e5fe       |    |		Load	0x2,-0x2
0229 8229       | )  |		Call	0x1,0x29
022a 00e1       |    |		Load_Encached	Boolean_Cache
022b 00e2       |    |		Load_Encached	Integer_Cache
022c 00e2       |    |		Load_Encached	Integer_Cache
022d 00e2       |    |		Load_Encached	Integer_Cache
022e e213       |    |		Load	0x1,0x13
022f 0322       | "  |		Declare_Variable	Record
0230 e214       |    |		Load	0x1,0x14
0231 00d9       |    |		Load_Top	At_Offset_1
0232 017d       | }  |		Execute	Record,Structure_Write
0233 00e3       |    |		Load_Encached	Natural_Cache
0234			BODY_0220:
0234 00e2       |    |		Load_Encached	Integer_Cache
0235 00e2       |    |		Load_Encached	Integer_Cache
0236 00e2       |    |		Load_Encached	Integer_Cache
0237 00e1       |    |		Load_Encached	Boolean_Cache
0238 e5fd       |    |		Load	0x2,-0x3
0239 e403       |    |		Load	0x2,0x3
023a e402       |    |		Load	0x2,0x2
023b e5ff       |    |		Load	0x2,-0x1
023c 822a       | *  |		Call	0x1,0x2a
023d c404       |    |		Store	0x2,0x4
023e c405       |    |		Store	0x2,0x5
023f c406       |    |		Store	0x2,0x6
0240 005b       | [  |		Store_Top	Discrete,At_Offset_3
0241 e404       |    |		Load	0x2,0x4
0242 6817       |h   |		Jump_Zero	0x25a
0243 00da       |    |		Load_Top	At_Offset_2
0244 e406       |    |		Load	0x2,0x6
0245 0272       | r  |		Execute	Discrete,Minus
0246 0aff       |    |		Execute_Immediate	Plus,-0x1
0247 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0248 00d8       |    |		Load_Top	At_Offset_0
0249 00da       |    |		Load_Top	At_Offset_2
024a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
024b 00db       |    |		Load_Top	At_Offset_3
024c 0a02       |    |		Execute_Immediate	Plus,0x2
024d 00d8       |    |		Load_Top	At_Offset_0
024e 00e2       |    |		Load_Encached	Integer_Cache
024f 0260       | `  |		Execute	Discrete,In_Type
0250 7001       |p   |		Jump_Nonzero	0x252
0251 0801       |    |		Execute_Immediate	Raise,0x1
0252 00db       |    |		Load_Top	At_Offset_3
0253 e402       |    |		Load	0x2,0x2
0254 01cf       |    |		Execute	Vector,Slice_Read
0255 4801       |H   |		Short_Literal	0x1
0256 00da       |    |		Load_Top	At_Offset_2
0257 e408       |    |		Load	0x2,0x8
0258 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0259 01ce       |    |		Execute	Vector,Slice_Write
025a 00d9       |    |		Load_Top	At_Offset_1
025b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
025c			TRAP_0220:
025c 0007       |    |		Action	Break_Optional
025d e5fd       |    |		Load	0x2,-0x3
025e 0092 06cd  |    |		Action	Push_String_Extended,0x6cd					; "Rcf_Unit_Options.Get"
0260 e009       |    |		Load	0x0,0x9
0261 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0262 e006       |    |		Load	0x0,0x6
0263 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0264 e214       |    |		Load	0x1,0x14
0265 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c 01dd       |    |		Execute	Vector,First
026d 00db       |    |		Load_Top	At_Offset_3
026e 01d7       |    |		Execute	Vector,Field_Read
026f 0e22       | "  |		Execute_Immediate	Not_Equal,0x22
0270 6802       |h   |		Jump_Zero	0x273
0271 e00a       |    |		Load	0x0,0xa
0272 0257       | W  |		Execute	Discrete,Raise
0273 00cf       |    |		Action	Mark_Auxiliary
0274 00db       |    |		Load_Top	At_Offset_3
0275 01dc       |    |		Execute	Vector,Last
0276 0aff       |    |		Execute_Immediate	Plus,-0x1
0277 00d8       |    |		Load_Top	At_Offset_0
0278 00e2       |    |		Load_Encached	Integer_Cache
0279 0260       | `  |		Execute	Discrete,In_Type
027a 7001       |p   |		Jump_Nonzero	0x27c
027b 0801       |    |		Execute_Immediate	Raise,0x1
027c e5ff       |    |		Load	0x2,-0x1
027d 01dd       |    |		Execute	Vector,First
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 0263       | c  |		Execute	Discrete,Above_Bound
0285 7020       |p   |		Jump_Nonzero	0x2a6
0286 00d8       |    |		Load_Top	At_Offset_0
0287 e5ff       |    |		Load	0x2,-0x1
0288 01d7       |    |		Execute	Vector,Field_Read
0289 0f22       | "  |		Execute_Immediate	Equal,0x22
028a 6819       |h   |		Jump_Zero	0x2a4
028b e5ff       |    |		Load	0x2,-0x1
028c 01dd       |    |		Execute	Vector,First
028d 0a01       |    |		Execute_Immediate	Plus,0x1
028e 00d8       |    |		Load_Top	At_Offset_0
028f 00e2       |    |		Load_Encached	Integer_Cache
0290 0260       | `  |		Execute	Discrete,In_Type
0291 7001       |p   |		Jump_Nonzero	0x293
0292 0801       |    |		Execute_Immediate	Raise,0x1
0293 00d9       |    |		Load_Top	At_Offset_1
0294 e5ff       |    |		Load	0x2,-0x1
0295 01cf       |    |		Execute	Vector,Slice_Read
0296 00d9       |    |		Load_Top	At_Offset_1
0297 0a01       |    |		Execute_Immediate	Plus,0x1
0298 00d8       |    |		Load_Top	At_Offset_0
0299 00e2       |    |		Load_Encached	Integer_Cache
029a 0260       | `  |		Execute	Discrete,In_Type
029b 7001       |p   |		Jump_Nonzero	0x29d
029c 0801       |    |		Execute_Immediate	Raise,0x1
029d e5ff       |    |		Load	0x2,-0x1
029e 01dc       |    |		Execute	Vector,Last
029f e5ff       |    |		Load	0x2,-0x1
02a0 01cf       |    |		Execute	Vector,Slice_Read
02a1 821f       |    |		Call	0x1,0x1f
02a2 01cc       |    |		Execute	Vector,Catenate
02a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a4 00c8       |    |		Action	Pop_Auxiliary_Range
02a5 3fe0       |?   |		Loop_Increasing	0x286
02a6 00ce       |    |		Action	Pop_Auxiliary
02a7 00da       |    |		Load_Top	At_Offset_2
02a8 01dc       |    |		Execute	Vector,Last
02a9 00db       |    |		Load_Top	At_Offset_3
02aa 01d7       |    |		Execute	Vector,Field_Read
02ab 0e22       | "  |		Execute_Immediate	Not_Equal,0x22
02ac 6802       |h   |		Jump_Zero	0x2af
02ad e00a       |    |		Load	0x0,0xa
02ae 0257       | W  |		Execute	Discrete,Raise
02af 00da       |    |		Load_Top	At_Offset_2
02b0 01dd       |    |		Execute	Vector,First
02b1 0a01       |    |		Execute_Immediate	Plus,0x1
02b2 00d8       |    |		Load_Top	At_Offset_0
02b3 00e2       |    |		Load_Encached	Integer_Cache
02b4 0260       | `  |		Execute	Discrete,In_Type
02b5 7001       |p   |		Jump_Nonzero	0x2b7
02b6 0801       |    |		Execute_Immediate	Raise,0x1
02b7 00db       |    |		Load_Top	At_Offset_3
02b8 01dc       |    |		Execute	Vector,Last
02b9 0aff       |    |		Execute_Immediate	Plus,-0x1
02ba 00d8       |    |		Load_Top	At_Offset_0
02bb 00e2       |    |		Load_Encached	Integer_Cache
02bc 0260       | `  |		Execute	Discrete,In_Type
02bd 7001       |p   |		Jump_Nonzero	0x2bf
02be 0801       |    |		Execute_Immediate	Raise,0x1
02bf e5ff       |    |		Load	0x2,-0x1
02c0 01cf       |    |		Execute	Vector,Slice_Read
02c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00cf       |    |		Action	Mark_Auxiliary
02cc 00db       |    |		Load_Top	At_Offset_3
02cd 01d9       |    |		Execute	Vector,Reverse_Bounds
02ce 0263       | c  |		Execute	Discrete,Above_Bound
02cf 701c       |p   |		Jump_Nonzero	0x2ec
02d0 00d8       |    |		Load_Top	At_Offset_0
02d1 e5ff       |    |		Load	0x2,-0x1
02d2 01d7       |    |		Execute	Vector,Field_Read
02d3 0f22       | "  |		Execute_Immediate	Equal,0x22
02d4 6815       |h   |		Jump_Zero	0x2ea
02d5 4822       |H"  |		Short_Literal	0x22
02d6 e5ff       |    |		Load	0x2,-0x1
02d7 01dd       |    |		Execute	Vector,First
02d8 00da       |    |		Load_Top	At_Offset_2
02d9 e5ff       |    |		Load	0x2,-0x1
02da 01cf       |    |		Execute	Vector,Slice_Read
02db 01ca       |    |		Execute	Vector,Prepend
02dc 00d9       |    |		Load_Top	At_Offset_1
02dd 0a01       |    |		Execute_Immediate	Plus,0x1
02de 00d8       |    |		Load_Top	At_Offset_0
02df 00e2       |    |		Load_Encached	Integer_Cache
02e0 0260       | `  |		Execute	Discrete,In_Type
02e1 7001       |p   |		Jump_Nonzero	0x2e3
02e2 0801       |    |		Execute_Immediate	Raise,0x1
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 01dc       |    |		Execute	Vector,Last
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 01cf       |    |		Execute	Vector,Slice_Read
02e7 8220       |    |		Call	0x1,0x20
02e8 01cc       |    |		Execute	Vector,Catenate
02e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ea 00c8       |    |		Action	Pop_Auxiliary_Range
02eb 3fe4       |?   |		Loop_Increasing	0x2d0
02ec 00ce       |    |		Action	Pop_Auxiliary
02ed 4822       |H"  |		Short_Literal	0x22
02ee 4822       |H"  |		Short_Literal	0x22
02ef e5ff       |    |		Load	0x2,-0x1
02f0 01ca       |    |		Execute	Vector,Prepend
02f1 01cb       |    |		Execute	Vector,Append
02f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f3 0000 0000  |    |		.BLANK	0000[0x5]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00db       |    |		Load_Top	At_Offset_3
02fc 4801       |H   |		Short_Literal	0x1
02fd 4801       |H   |		Short_Literal	0x1
02fe e005       |    |		Load	0x0,0x5
02ff 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0300 035b       | [  |		Declare_Type	Array,Constrained
0301 0337       | 7  |		Declare_Variable	Array
0302 e5ff       |    |		Load	0x2,-0x1
0303 e005       |    |		Load	0x0,0x5
0304 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0305 e005       |    |		Load	0x0,0x5
0306 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0307 0119       |    |		Execute	Any,Check_In_Formal_Type
0308 4801       |H   |		Short_Literal	0x1
0309 00da       |    |		Load_Top	At_Offset_2
030a 01d6       |    |		Execute	Vector,Field_Write
030b 6004       |`   |		Indirect_Literal	Discrete,0x310,{0x00000000, 0x000081ad}
030c e006       |    |		Load	0x0,0x6
030d 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
030e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030f 0000       |    |		.XXX[0x1]
0310 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081ad}
0314 0000 0000  |    |		.BLANK	0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b e5fd       |    |		Load	0x2,-0x3
031c 4801       |H   |		Short_Literal	0x1
031d 4802       |H   |		Short_Literal	0x2
031e e005       |    |		Load	0x0,0x5
031f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0320 035b       | [  |		Declare_Type	Array,Constrained
0321 0337       | 7  |		Declare_Variable	Array
0322 e5ff       |    |		Load	0x2,-0x1
0323 e005       |    |		Load	0x0,0x5
0324 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0325 e005       |    |		Load	0x0,0x5
0326 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0327 0119       |    |		Execute	Any,Check_In_Formal_Type
0328 4801       |H   |		Short_Literal	0x1
0329 00da       |    |		Load_Top	At_Offset_2
032a 01d6       |    |		Execute	Vector,Field_Write
032b e5fe       |    |		Load	0x2,-0x2
032c 00e1       |    |		Load_Encached	Boolean_Cache
032d 011c       |    |		Execute	Any,Convert_Unchecked
032e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
032f e005       |    |		Load	0x0,0x5
0330 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0331 e005       |    |		Load	0x0,0x5
0332 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0333 0119       |    |		Execute	Any,Check_In_Formal_Type
0334 4802       |H   |		Short_Literal	0x2
0335 00da       |    |		Load_Top	At_Offset_2
0336 01d6       |    |		Execute	Vector,Field_Write
0337 6004       |`   |		Indirect_Literal	Discrete,0x33c,{0x00000000, 0x000081af}
0338 e006       |    |		Load	0x0,0x6
0339 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
033a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
033b 0000       |    |		.XXX[0x1]
033c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081af}
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 e5fd       |    |		Load	0x2,-0x3
0344 4801       |H   |		Short_Literal	0x1
0345 4802       |H   |		Short_Literal	0x2
0346 e005       |    |		Load	0x0,0x5
0347 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0348 035b       | [  |		Declare_Type	Array,Constrained
0349 0337       | 7  |		Declare_Variable	Array
034a e5ff       |    |		Load	0x2,-0x1
034b e005       |    |		Load	0x0,0x5
034c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
034d e005       |    |		Load	0x0,0x5
034e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034f 0119       |    |		Execute	Any,Check_In_Formal_Type
0350 4801       |H   |		Short_Literal	0x1
0351 00da       |    |		Load_Top	At_Offset_2
0352 01d6       |    |		Execute	Vector,Field_Write
0353 e5fe       |    |		Load	0x2,-0x2
0354 8220       |    |		Call	0x1,0x20
0355 e005       |    |		Load	0x0,0x5
0356 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0357 e005       |    |		Load	0x0,0x5
0358 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0359 0119       |    |		Execute	Any,Check_In_Formal_Type
035a 4802       |H   |		Short_Literal	0x2
035b 00da       |    |		Load_Top	At_Offset_2
035c 01d6       |    |		Execute	Vector,Field_Write
035d 6006       |`   |		Indirect_Literal	Discrete,0x364,{0x00000000, 0x000081ae}
035e e006       |    |		Load	0x0,0x6
035f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0360 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0361 0000 0000  |    |		.XXX[0x3]
0363 0000       |    |
0364 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081ae}
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0370       | p  |		.CONST	0x0370								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b 4801       |H   |		Short_Literal	0x1
036c 00db       |    |		Load_Top	At_Offset_3
036d e5fe       |    |		Load	0x2,-0x2
036e e003       |    |		Load	0x0,0x3
036f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0370			BODY_0368:
0370 00d8       |    |		Load_Top	At_Offset_0
0371 e5ff       |    |		Load	0x2,-0x1
0372 01dd       |    |		Execute	Vector,First
0373 027b       | {  |		Execute	Discrete,Greater_Equal
0374 680f       |h   |		Jump_Zero	0x384
0375 00d8       |    |		Load_Top	At_Offset_0
0376 e5fe       |    |		Load	0x2,-0x2
0377 01db       |    |		Execute	Vector,Length
0378 0273       | s  |		Execute	Discrete,Plus
0379 0a01       |    |		Execute_Immediate	Plus,0x1
037a 00d8       |    |		Load_Top	At_Offset_0
037b 00e2       |    |		Load_Encached	Integer_Cache
037c 0260       | `  |		Execute	Discrete,In_Type
037d 7001       |p   |		Jump_Nonzero	0x37f
037e 0801       |    |		Execute_Immediate	Raise,0x1
037f e5ff       |    |		Load	0x2,-0x1
0380 01dc       |    |		Execute	Vector,Last
0381 e5ff       |    |		Load	0x2,-0x1
0382 01cf       |    |		Execute	Vector,Slice_Read
0383 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0384 00db       |    |		Load_Top	At_Offset_3
0385 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0386 0000 0000  |    |		.XXX[0x2]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b e5fd       |    |		Load	0x2,-0x3
038c e5fe       |    |		Load	0x2,-0x2
038d e007       |    |		Load	0x0,0x7
038e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
038f 00db       |    |		Load_Top	At_Offset_3
0390 8224       | $  |		Call	0x1,0x24
0391 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0392 0000 0000  |    |		.BLANK	0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 00cf       |    |		Action	Mark_Auxiliary
039c e5fe       |    |		Load	0x2,-0x2
039d 01d9       |    |		Execute	Vector,Reverse_Bounds
039e 0263       | c  |		Execute	Discrete,Above_Bound
039f 7010       |p   |		Jump_Nonzero	0x3b0
03a0 4800       |H   |		Short_Literal	0x0
03a1 e5ff       |    |		Load	0x2,-0x1
03a2 00da       |    |		Load_Top	At_Offset_2
03a3 e5fe       |    |		Load	0x2,-0x2
03a4 01d7       |    |		Execute	Vector,Field_Read
03a5 e002       |    |		Load	0x0,0x2
03a6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03a7 e003       |    |		Load	0x0,0x3
03a8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03a9 6804       |h   |		Jump_Zero	0x3ae
03aa 00d8       |    |		Load_Top	At_Offset_0
03ab e5fe       |    |		Load	0x2,-0x2
03ac 01d7       |    |		Execute	Vector,Field_Read
03ad 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03ae 00c8       |    |		Action	Pop_Auxiliary_Range
03af 3ff0       |?   |		Loop_Increasing	0x3a0
03b0 00ce       |    |		Action	Pop_Auxiliary
03b1 e5fc       |    |		Load	0x2,-0x4
03b2 4801       |H   |		Short_Literal	0x1
03b3 4802       |H   |		Short_Literal	0x2
03b4 e005       |    |		Load	0x0,0x5
03b5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b6 035b       | [  |		Declare_Type	Array,Constrained
03b7 0337       | 7  |		Declare_Variable	Array
03b8 e5ff       |    |		Load	0x2,-0x1
03b9 e005       |    |		Load	0x0,0x5
03ba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03bb e005       |    |		Load	0x0,0x5
03bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03bd 0119       |    |		Execute	Any,Check_In_Formal_Type
03be 4801       |H   |		Short_Literal	0x1
03bf 00da       |    |		Load_Top	At_Offset_2
03c0 01d6       |    |		Execute	Vector,Field_Write
03c1 e5fd       |    |		Load	0x2,-0x3
03c2 e005       |    |		Load	0x0,0x5
03c3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03c4 e005       |    |		Load	0x0,0x5
03c5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c6 0119       |    |		Execute	Any,Check_In_Formal_Type
03c7 4802       |H   |		Short_Literal	0x2
03c8 00da       |    |		Load_Top	At_Offset_2
03c9 01d6       |    |		Execute	Vector,Field_Write
03ca 6005       |`   |		Indirect_Literal	Discrete,0x3d0,{0x00000000, 0x0000815b}
03cb e006       |    |		Load	0x0,0x6
03cc 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03cd e002       |    |		Load	0x0,0x2
03ce 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
03cf 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000815b}
03d4 0000 0000  |    |		.BLANK	0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00cf       |    |		Action	Mark_Auxiliary
03dc e5fe       |    |		Load	0x2,-0x2
03dd 01d9       |    |		Execute	Vector,Reverse_Bounds
03de 0263       | c  |		Execute	Discrete,Above_Bound
03df 7010       |p   |		Jump_Nonzero	0x3f0
03e0 4801       |H   |		Short_Literal	0x1
03e1 e5ff       |    |		Load	0x2,-0x1
03e2 00da       |    |		Load_Top	At_Offset_2
03e3 e5fe       |    |		Load	0x2,-0x2
03e4 01d7       |    |		Execute	Vector,Field_Read
03e5 e002       |    |		Load	0x0,0x2
03e6 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03e7 e003       |    |		Load	0x0,0x3
03e8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
03e9 6804       |h   |		Jump_Zero	0x3ee
03ea 00d8       |    |		Load_Top	At_Offset_0
03eb e5fe       |    |		Load	0x2,-0x2
03ec 01d7       |    |		Execute	Vector,Field_Read
03ed 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03ee 00c8       |    |		Action	Pop_Auxiliary_Range
03ef 3ff0       |?   |		Loop_Increasing	0x3e0
03f0 00ce       |    |		Action	Pop_Auxiliary
03f1 e5fc       |    |		Load	0x2,-0x4
03f2 4801       |H   |		Short_Literal	0x1
03f3 4802       |H   |		Short_Literal	0x2
03f4 e005       |    |		Load	0x0,0x5
03f5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f6 035b       | [  |		Declare_Type	Array,Constrained
03f7 0337       | 7  |		Declare_Variable	Array
03f8 e5ff       |    |		Load	0x2,-0x1
03f9 e005       |    |		Load	0x0,0x5
03fa 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03fb e005       |    |		Load	0x0,0x5
03fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03fd 0119       |    |		Execute	Any,Check_In_Formal_Type
03fe 4801       |H   |		Short_Literal	0x1
03ff 00da       |    |		Load_Top	At_Offset_2
0400 01d6       |    |		Execute	Vector,Field_Write
0401 e5fd       |    |		Load	0x2,-0x3
0402 e005       |    |		Load	0x0,0x5
0403 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0404 e005       |    |		Load	0x0,0x5
0405 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0406 0119       |    |		Execute	Any,Check_In_Formal_Type
0407 4802       |H   |		Short_Literal	0x2
0408 00da       |    |		Load_Top	At_Offset_2
0409 01d6       |    |		Execute	Vector,Field_Write
040a 67c5       |g   |		Indirect_Literal	Discrete,0x3d0,{0x00000000, 0x0000815b}
040b e006       |    |		Load	0x0,0x6
040c 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
040d e002       |    |		Load	0x0,0x2
040e 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
040f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 00cf       |    |		Action	Mark_Auxiliary
0414 e5fe       |    |		Load	0x2,-0x2
0415 01d9       |    |		Execute	Vector,Reverse_Bounds
0416 0263       | c  |		Execute	Discrete,Above_Bound
0417 7010       |p   |		Jump_Nonzero	0x428
0418 4800       |H   |		Short_Literal	0x0
0419 e5ff       |    |		Load	0x2,-0x1
041a 00da       |    |		Load_Top	At_Offset_2
041b e5fe       |    |		Load	0x2,-0x2
041c 01d7       |    |		Execute	Vector,Field_Read
041d e002       |    |		Load	0x0,0x2
041e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
041f e003       |    |		Load	0x0,0x3
0420 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0421 6804       |h   |		Jump_Zero	0x426
0422 00d8       |    |		Load_Top	At_Offset_0
0423 e5fe       |    |		Load	0x2,-0x2
0424 01d7       |    |		Execute	Vector,Field_Read
0425 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0426 00c8       |    |		Action	Pop_Auxiliary_Range
0427 3ff0       |?   |		Loop_Increasing	0x418
0428 00c9       |    |		Action	Pop_Auxiliary_Loop
0429 e5fe       |    |		Load	0x2,-0x2
042a 01d9       |    |		Execute	Vector,Reverse_Bounds
042b 0263       | c  |		Execute	Discrete,Above_Bound
042c 7010       |p   |		Jump_Nonzero	0x43d
042d 4801       |H   |		Short_Literal	0x1
042e e5ff       |    |		Load	0x2,-0x1
042f 00da       |    |		Load_Top	At_Offset_2
0430 e5fe       |    |		Load	0x2,-0x2
0431 01d7       |    |		Execute	Vector,Field_Read
0432 e002       |    |		Load	0x0,0x2
0433 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0434 e003       |    |		Load	0x0,0x3
0435 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0436 6804       |h   |		Jump_Zero	0x43b
0437 00d8       |    |		Load_Top	At_Offset_0
0438 e5fe       |    |		Load	0x2,-0x2
0439 01d7       |    |		Execute	Vector,Field_Read
043a 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
043b 00c8       |    |		Action	Pop_Auxiliary_Range
043c 3ff0       |?   |		Loop_Increasing	0x42d
043d 00ce       |    |		Action	Pop_Auxiliary
043e e5fc       |    |		Load	0x2,-0x4
043f 4801       |H   |		Short_Literal	0x1
0440 4802       |H   |		Short_Literal	0x2
0441 e005       |    |		Load	0x0,0x5
0442 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0443 035b       | [  |		Declare_Type	Array,Constrained
0444 0337       | 7  |		Declare_Variable	Array
0445 e5ff       |    |		Load	0x2,-0x1
0446 e005       |    |		Load	0x0,0x5
0447 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0448 e005       |    |		Load	0x0,0x5
0449 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
044a 0119       |    |		Execute	Any,Check_In_Formal_Type
044b 4801       |H   |		Short_Literal	0x1
044c 00da       |    |		Load_Top	At_Offset_2
044d 01d6       |    |		Execute	Vector,Field_Write
044e e5fd       |    |		Load	0x2,-0x3
044f e005       |    |		Load	0x0,0x5
0450 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0451 e005       |    |		Load	0x0,0x5
0452 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0453 0119       |    |		Execute	Any,Check_In_Formal_Type
0454 4802       |H   |		Short_Literal	0x2
0455 00da       |    |		Load_Top	At_Offset_2
0456 01d6       |    |		Execute	Vector,Field_Write
0457 6008       |`   |		Indirect_Literal	Discrete,0x460,{0x00000000, 0x0000815b}
0458 e006       |    |		Load	0x0,0x6
0459 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
045a e002       |    |		Load	0x0,0x2
045b 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
045c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
045d 0000 0000  |    |		.XXX[0x3]
045f 0000       |    |
0460 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000815b}
0464 0000 0000  |    |		.BLANK	0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046e       | n  |		.CONST	0x046e								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0002       |    |		.CONST	0x0002								; Number of locals
046b			INIT_0468:
046b 00da       |    |		Load_Top	At_Offset_2
046c e002       |    |		Load	0x0,0x2
046d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
046e			BODY_0468:
046e 00d8       |    |		Load_Top	At_Offset_0
046f 01db       |    |		Execute	Vector,Length
0470 680a       |h   |		Jump_Zero	0x47b
0471 4800       |H   |		Short_Literal	0x0
0472 00d9       |    |		Load_Top	At_Offset_1
0473 0092 06ce  |    |		Action	Push_String_Extended,0x6ce					; " "
0475 e003       |    |		Load	0x0,0x3
0476 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0477 00d9       |    |		Load_Top	At_Offset_1
0478 01dd       |    |		Execute	Vector,First
0479 027b       | {  |		Execute	Discrete,Greater_Equal
047a 6804       |h   |		Jump_Zero	0x47f
047b 00db       |    |		Load_Top	At_Offset_3
047c e002       |    |		Load	0x0,0x2
047d 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
047e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047f 00d8       |    |		Load_Top	At_Offset_0
0480 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0481 0000 0000  |    |		.BLANK	0000[0x7]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0498       |    |		.CONST	0x0498								; Address of begin
0489 04ea       |    |		.CONST	0x04ea								; Address of exception handler
048a 0005       |    |		.CONST	0x0005								; Number of locals
048b			INIT_0488:
048b 00db       |    |		Load_Top	At_Offset_3
048c 01dd       |    |		Execute	Vector,First
048d 00e2       |    |		Load_Encached	Integer_Cache
048e 03f1       |    |		Declare_Variable	Discrete,With_Value
048f e5fe       |    |		Load	0x2,-0x2
0490 01dd       |    |		Execute	Vector,First
0491 00e2       |    |		Load_Encached	Integer_Cache
0492 03f1       |    |		Declare_Variable	Discrete,With_Value
0493 00e2       |    |		Load_Encached	Integer_Cache
0494 e5fe       |    |		Load	0x2,-0x2
0495 01dc       |    |		Execute	Vector,Last
0496 00e2       |    |		Load_Encached	Integer_Cache
0497 03f1       |    |		Declare_Variable	Discrete,With_Value
0498			BODY_0488:
0498 4800       |H   |		Short_Literal	0x0
0499 a5fb       |    |		Store_Unchecked	0x2,-0x5
049a 00da       |    |		Load_Top	At_Offset_2
049b a5fa       |    |		Store_Unchecked	0x2,-0x6
049c 00d8       |    |		Load_Top	At_Offset_0
049d a5f8       |    |		Store_Unchecked	0x2,-0x8
049e 00d8       |    |		Load_Top	At_Offset_0
049f a5f9       |    |		Store_Unchecked	0x2,-0x7
04a0 00cf       |    |		Action	Mark_Auxiliary
04a1 4800       |H   |		Short_Literal	0x0
04a2 e402       |    |		Load	0x2,0x2
04a3 00db       |    |		Load_Top	At_Offset_3
04a4 e5fe       |    |		Load	0x2,-0x2
04a5 01cf       |    |		Execute	Vector,Slice_Read
04a6 e5fd       |    |		Load	0x2,-0x3
04a7 e003       |    |		Load	0x0,0x3
04a8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04a9 a403       |    |		Store_Unchecked	0x2,0x3
04aa 00db       |    |		Load_Top	At_Offset_3
04ab e402       |    |		Load	0x2,0x2
04ac 027c       | |  |		Execute	Discrete,Less
04ad 6801       |h   |		Jump_Zero	0x4af
04ae 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04af 00db       |    |		Load_Top	At_Offset_3
04b0 e402       |    |		Load	0x2,0x2
04b1 027f       |    |		Execute	Discrete,Equal
04b2 7006       |p   |		Jump_Nonzero	0x4b9
04b3 00db       |    |		Load_Top	At_Offset_3
04b4 0aff       |    |		Execute_Immediate	Plus,-0x1
04b5 e5fe       |    |		Load	0x2,-0x2
04b6 01d7       |    |		Execute	Vector,Field_Read
04b7 0f0a       |    |		Execute_Immediate	Equal,0xa
04b8 682c       |h,  |		Jump_Zero	0x4e5
04b9 00db       |    |		Load_Top	At_Offset_3
04ba e5fd       |    |		Load	0x2,-0x3
04bb 01db       |    |		Execute	Vector,Length
04bc 0273       | s  |		Execute	Discrete,Plus
04bd 005b       | [  |		Store_Top	Discrete,At_Offset_3
04be 00da       |    |		Load_Top	At_Offset_2
04bf e5fe       |    |		Load	0x2,-0x2
04c0 01d7       |    |		Execute	Vector,Field_Read
04c1 0f20       |    |		Execute_Immediate	Equal,0x20
04c2 6812       |h   |		Jump_Zero	0x4d5
04c3 4801       |H   |		Short_Literal	0x1
04c4 a5fb       |    |		Store_Unchecked	0x2,-0x5
04c5 00db       |    |		Load_Top	At_Offset_3
04c6 a5fa       |    |		Store_Unchecked	0x2,-0x6
04c7 00da       |    |		Load_Top	At_Offset_2
04c8 0aff       |    |		Execute_Immediate	Plus,-0x1
04c9 c5f9       |    |		Store	0x2,-0x7
04ca 4801       |H   |		Short_Literal	0x1
04cb 00db       |    |		Load_Top	At_Offset_3
04cc 00db       |    |		Load_Top	At_Offset_3
04cd e5fe       |    |		Load	0x2,-0x2
04ce 01cf       |    |		Execute	Vector,Slice_Read
04cf 480a       |H   |		Short_Literal	0xa
04d0 e003       |    |		Load	0x0,0x3
04d1 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04d2 0aff       |    |		Execute_Immediate	Plus,-0x1
04d3 a5f8       |    |		Store_Unchecked	0x2,-0x8
04d4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04d5 00da       |    |		Load_Top	At_Offset_2
04d6 e5fe       |    |		Load	0x2,-0x2
04d7 01d7       |    |		Execute	Vector,Field_Read
04d8 0f0a       |    |		Execute_Immediate	Equal,0xa
04d9 680b       |h   |		Jump_Zero	0x4e5
04da 4801       |H   |		Short_Literal	0x1
04db a5fb       |    |		Store_Unchecked	0x2,-0x5
04dc 00db       |    |		Load_Top	At_Offset_3
04dd a5fa       |    |		Store_Unchecked	0x2,-0x6
04de 00da       |    |		Load_Top	At_Offset_2
04df 0aff       |    |		Execute_Immediate	Plus,-0x1
04e0 c5f9       |    |		Store	0x2,-0x7
04e1 00da       |    |		Load_Top	At_Offset_2
04e2 0aff       |    |		Execute_Immediate	Plus,-0x1
04e3 c5f8       |    |		Store	0x2,-0x8
04e4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04e5 00db       |    |		Load_Top	At_Offset_3
04e6 0a01       |    |		Execute_Immediate	Plus,0x1
04e7 c402       |    |		Store	0x2,0x2
04e8 00c9       |    |		Action	Pop_Auxiliary_Loop
04e9 7fb7       |    |		Jump	0x4a1
04ea			TRAP_0488:
04ea 0007       |    |		Action	Break_Optional
04eb e5fc       |    |		Load	0x2,-0x4
04ec 4801       |H   |		Short_Literal	0x1
04ed 4801       |H   |		Short_Literal	0x1
04ee e005       |    |		Load	0x0,0x5
04ef 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04f0 035b       | [  |		Declare_Type	Array,Constrained
04f1 0337       | 7  |		Declare_Variable	Array
04f2 e5ff       |    |		Load	0x2,-0x1
04f3 e005       |    |		Load	0x0,0x5
04f4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04f5 e005       |    |		Load	0x0,0x5
04f6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04f7 0119       |    |		Execute	Any,Check_In_Formal_Type
04f8 4801       |H   |		Short_Literal	0x1
04f9 00da       |    |		Load_Top	At_Offset_2
04fa 01d6       |    |		Execute	Vector,Field_Write
04fb 6004       |`   |		Indirect_Literal	Discrete,0x500,{0x00000000, 0x000081b2}
04fc e006       |    |		Load	0x0,0x6
04fd 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04fe 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04ff 0000       |    |		.XXX[0x1]
0500 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b2}
0504 0000 0000  |    |		.BLANK	0000[0x4]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0510       |    |		.CONST	0x0510								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0003       |    |		.CONST	0x0003								; Number of locals
050b			INIT_0508:
050b e407       |    |		Load	0x2,0x7
050c e002       |    |		Load	0x0,0x2
050d 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
050e 029f 0643  |   C|		Declare_Subprogram	INIT_0640,For_Call
0510			BODY_0508:
0510 e5fe       |    |		Load	0x2,-0x2
0511 e5ff       |    |		Load	0x2,-0x1
0512 8221       | !  |		Call	0x1,0x21
0513 00cf       |    |		Action	Mark_Auxiliary
0514 4800       |H   |		Short_Literal	0x0
0515 e404       |    |		Load	0x2,0x4
0516 e405       |    |		Load	0x2,0x5
0517 e402       |    |		Load	0x2,0x2
0518 01cf       |    |		Execute	Vector,Slice_Read
0519 480a       |H   |		Short_Literal	0xa
051a e003       |    |		Load	0x0,0x3
051b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
051c a403       |    |		Store_Unchecked	0x2,0x3
051d e403       |    |		Load	0x2,0x3
051e e404       |    |		Load	0x2,0x4
051f 027c       | |  |		Execute	Discrete,Less
0520 6801       |h   |		Jump_Zero	0x522
0521 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0522 4800       |H   |		Short_Literal	0x0
0523 e404       |    |		Load	0x2,0x4
0524 e403       |    |		Load	0x2,0x3
0525 e402       |    |		Load	0x2,0x2
0526 01cf       |    |		Execute	Vector,Slice_Read
0527 0092 06ce  |    |		Action	Push_String_Extended,0x6ce					; " "
0529 e003       |    |		Load	0x0,0x3
052a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
052b a406       |    |		Store_Unchecked	0x2,0x6
052c e5fe       |    |		Load	0x2,-0x2
052d 00d8       |    |		Load_Top	At_Offset_0
052e e5ff       |    |		Load	0x2,-0x1
052f e007       |    |		Load	0x0,0x7
0530 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0531 e602       |    |		Load	0x3,0x2
0532 e404       |    |		Load	0x2,0x4
0533 e406       |    |		Load	0x2,0x6
0534 0aff       |    |		Execute_Immediate	Plus,-0x1
0535 00d8       |    |		Load_Top	At_Offset_0
0536 00e2       |    |		Load_Encached	Integer_Cache
0537 0260       | `  |		Execute	Discrete,In_Type
0538 7001       |p   |		Jump_Nonzero	0x53a
0539 0801       |    |		Execute_Immediate	Raise,0x1
053a e402       |    |		Load	0x2,0x2
053b 01cf       |    |		Execute	Vector,Slice_Read
053c 8228       | (  |		Call	0x1,0x28
053d c408       |    |		Store	0x2,0x8
053e 8603       |    |		Call	0x3,0x3
053f e403       |    |		Load	0x2,0x3
0540 e405       |    |		Load	0x2,0x5
0541 027f       |    |		Execute	Discrete,Equal
0542 6801       |h   |		Jump_Zero	0x544
0543 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0544 e403       |    |		Load	0x2,0x3
0545 0a01       |    |		Execute_Immediate	Plus,0x1
0546 c404       |    |		Store	0x2,0x4
0547 00c9       |    |		Action	Pop_Auxiliary_Loop
0548 7fcb       |    |		Jump	0x514
0549 0000 0000  |    |		.BLANK	0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0555       | U  |		.CONST	0x0555								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0002       |    |		.CONST	0x0002								; Number of locals
0553			INIT_0550:
0553 e406       |    |		Load	0x2,0x6
0554 8229       | )  |		Call	0x1,0x29
0555			BODY_0550:
0555 00e2       |    |		Load_Encached	Integer_Cache
0556 00e2       |    |		Load_Encached	Integer_Cache
0557 00e2       |    |		Load_Encached	Integer_Cache
0558 00e1       |    |		Load_Encached	Boolean_Cache
0559 e5fc       |    |		Load	0x2,-0x4
055a e602       |    |		Load	0x3,0x2
055b e402       |    |		Load	0x2,0x2
055c e5ff       |    |		Load	0x2,-0x1
055d 822a       | *  |		Call	0x1,0x2a
055e c407       |    |		Store	0x2,0x7
055f c408       |    |		Store	0x2,0x8
0560 c409       |    |		Store	0x2,0x9
0561 c40a       |    |		Store	0x2,0xa
0562 e407       |    |		Load	0x2,0x7
0563 6822       |h"  |		Jump_Zero	0x586
0564 e006       |    |		Load	0x0,0x6
0565 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0566 e402       |    |		Load	0x2,0x2
0567 01dd       |    |		Execute	Vector,First
0568 e409       |    |		Load	0x2,0x9
0569 0a01       |    |		Execute_Immediate	Plus,0x1
056a 00d8       |    |		Load_Top	At_Offset_0
056b 00e2       |    |		Load_Encached	Integer_Cache
056c 0260       | `  |		Execute	Discrete,In_Type
056d 7001       |p   |		Jump_Nonzero	0x56f
056e 0801       |    |		Execute_Immediate	Raise,0x1
056f e402       |    |		Load	0x2,0x2
0570 01cf       |    |		Execute	Vector,Slice_Read
0571 e5fd       |    |		Load	0x2,-0x3
0572 01cc       |    |		Execute	Vector,Catenate
0573 e40a       |    |		Load	0x2,0xa
0574 0a01       |    |		Execute_Immediate	Plus,0x1
0575 00d8       |    |		Load_Top	At_Offset_0
0576 00e2       |    |		Load_Encached	Integer_Cache
0577 0260       | `  |		Execute	Discrete,In_Type
0578 7001       |p   |		Jump_Nonzero	0x57a
0579 0801       |    |		Execute_Immediate	Raise,0x1
057a e402       |    |		Load	0x2,0x2
057b 01dc       |    |		Execute	Vector,Last
057c e402       |    |		Load	0x2,0x2
057d 01cf       |    |		Execute	Vector,Slice_Read
057e 01cc       |    |		Execute	Vector,Catenate
057f e5fc       |    |		Load	0x2,-0x4
0580 e5ff       |    |		Load	0x2,-0x1
0581 e001       |    |		Load	0x0,0x1
0582 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0583 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0584 c40b       |    |		Store	0x2,0xb
0585 7812       |x   |		Jump	0x598
0586 e006       |    |		Load	0x0,0x6
0587 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0588 480a       |H   |		Short_Literal	0xa
0589 00da       |    |		Load_Top	At_Offset_2
058a 0092 06ce  |    |		Action	Push_String_Extended,0x6ce					; " "
058c 01cc       |    |		Execute	Vector,Catenate
058d e5fd       |    |		Load	0x2,-0x3
058e 01cc       |    |		Execute	Vector,Catenate
058f 01cb       |    |		Execute	Vector,Append
0590 e402       |    |		Load	0x2,0x2
0591 01cc       |    |		Execute	Vector,Catenate
0592 e5fc       |    |		Load	0x2,-0x4
0593 e5ff       |    |		Load	0x2,-0x1
0594 e001       |    |		Load	0x0,0x1
0595 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0596 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0597 c40b       |    |		Store	0x2,0xb
0598 4800       |H   |		Short_Literal	0x0
0599 e40b       |    |		Load	0x2,0xb
059a e006       |    |		Load	0x0,0x6
059b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
059c 7004       |p   |		Jump_Nonzero	0x5a1
059d e5fc       |    |		Load	0x2,-0x4
059e e40b       |    |		Load	0x2,0xb
059f e006       |    |		Load	0x0,0x6
05a0 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
05a1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05a2 0000 0000  |    |		.BLANK	0000[0x6]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ad       |    |		.CONST	0x05ad								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0002       |    |		.CONST	0x0002								; Number of locals
05ab			INIT_05a8:
05ab e405       |    |		Load	0x2,0x5
05ac 8229       | )  |		Call	0x1,0x29
05ad			BODY_05a8:
05ad 00e2       |    |		Load_Encached	Integer_Cache
05ae 00e2       |    |		Load_Encached	Integer_Cache
05af 00e2       |    |		Load_Encached	Integer_Cache
05b0 00e1       |    |		Load_Encached	Boolean_Cache
05b1 e5fc       |    |		Load	0x2,-0x4
05b2 e602       |    |		Load	0x3,0x2
05b3 e402       |    |		Load	0x2,0x2
05b4 e5ff       |    |		Load	0x2,-0x1
05b5 822a       | *  |		Call	0x1,0x2a
05b6 c408       |    |		Store	0x2,0x8
05b7 c409       |    |		Store	0x2,0x9
05b8 c40a       |    |		Store	0x2,0xa
05b9 c40b       |    |		Store	0x2,0xb
05ba e408       |    |		Load	0x2,0x8
05bb 6832       |h2  |		Jump_Zero	0x5ee
05bc e40b       |    |		Load	0x2,0xb
05bd e402       |    |		Load	0x2,0x2
05be 01d7       |    |		Execute	Vector,Field_Read
05bf 4801       |H   |		Short_Literal	0x1
05c0 e21e       |    |		Load	0x1,0x1e
05c1 01d7       |    |		Execute	Vector,Field_Read
05c2 027f       |    |		Execute	Discrete,Equal
05c3 a407       |    |		Store_Unchecked	0x2,0x7
05c4 e5fd       |    |		Load	0x2,-0x3
05c5 e407       |    |		Load	0x2,0x7
05c6 027f       |    |		Execute	Discrete,Equal
05c7 6802       |h   |		Jump_Zero	0x5ca
05c8 00cc       |    |		Action	Pop_Block
05c9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05ca e006       |    |		Load	0x0,0x6
05cb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05cc e5fd       |    |		Load	0x2,-0x3
05cd e21e       |    |		Load	0x1,0x1e
05ce 01d7       |    |		Execute	Vector,Field_Read
05cf e402       |    |		Load	0x2,0x2
05d0 01dd       |    |		Execute	Vector,First
05d1 e40a       |    |		Load	0x2,0xa
05d2 0a01       |    |		Execute_Immediate	Plus,0x1
05d3 00d8       |    |		Load_Top	At_Offset_0
05d4 00e2       |    |		Load_Encached	Integer_Cache
05d5 0260       | `  |		Execute	Discrete,In_Type
05d6 7001       |p   |		Jump_Nonzero	0x5d8
05d7 0801       |    |		Execute_Immediate	Raise,0x1
05d8 e402       |    |		Load	0x2,0x2
05d9 01cf       |    |		Execute	Vector,Slice_Read
05da 01cb       |    |		Execute	Vector,Append
05db e40b       |    |		Load	0x2,0xb
05dc 0a01       |    |		Execute_Immediate	Plus,0x1
05dd 00d8       |    |		Load_Top	At_Offset_0
05de 00e2       |    |		Load_Encached	Integer_Cache
05df 0260       | `  |		Execute	Discrete,In_Type
05e0 7001       |p   |		Jump_Nonzero	0x5e2
05e1 0801       |    |		Execute_Immediate	Raise,0x1
05e2 e402       |    |		Load	0x2,0x2
05e3 01dc       |    |		Execute	Vector,Last
05e4 e402       |    |		Load	0x2,0x2
05e5 01cf       |    |		Execute	Vector,Slice_Read
05e6 01cc       |    |		Execute	Vector,Catenate
05e7 e5fc       |    |		Load	0x2,-0x4
05e8 e5ff       |    |		Load	0x2,-0x1
05e9 e001       |    |		Load	0x0,0x1
05ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05eb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05ec c40c       |    |		Store	0x2,0xc
05ed 7814       |x   |		Jump	0x602
05ee e006       |    |		Load	0x0,0x6
05ef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05f0 480a       |H   |		Short_Literal	0xa
05f1 e5fd       |    |		Load	0x2,-0x3
05f2 e21e       |    |		Load	0x1,0x1e
05f3 01d7       |    |		Execute	Vector,Field_Read
05f4 00db       |    |		Load_Top	At_Offset_3
05f5 0092 06ce  |    |		Action	Push_String_Extended,0x6ce					; " "
05f7 01cc       |    |		Execute	Vector,Catenate
05f8 01cb       |    |		Execute	Vector,Append
05f9 01cb       |    |		Execute	Vector,Append
05fa e402       |    |		Load	0x2,0x2
05fb 01cc       |    |		Execute	Vector,Catenate
05fc e5fc       |    |		Load	0x2,-0x4
05fd e5ff       |    |		Load	0x2,-0x1
05fe e001       |    |		Load	0x0,0x1
05ff 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0600 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0601 c40c       |    |		Store	0x2,0xc
0602 4800       |H   |		Short_Literal	0x0
0603 e40c       |    |		Load	0x2,0xc
0604 e006       |    |		Load	0x0,0x6
0605 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0606 7004       |p   |		Jump_Nonzero	0x60b
0607 e5fc       |    |		Load	0x2,-0x4
0608 e40c       |    |		Load	0x2,0xc
0609 e006       |    |		Load	0x0,0x6
060a 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
060b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
060c 0000 0000  |    |		.BLANK	0000[0x4]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0635       | 5  |		.CONST	0x0635								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 000a       |    |		.CONST	0x000a								; Number of locals
0613			INIT_0610:
0613 e5fd       |    |		Load	0x2,-0x3
0614 e5ff       |    |		Load	0x2,-0x1
0615 e5fe       |    |		Load	0x2,-0x2
0616 8225       | %  |		Call	0x1,0x25
0617 e002       |    |		Load	0x0,0x2
0618 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0619 02c7       |    |		Declare_Variable	Any
061a e5fd       |    |		Load	0x2,-0x3
061b e5ff       |    |		Load	0x2,-0x1
061c e007       |    |		Load	0x0,0x7
061d 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
061e e008       |    |		Load	0x0,0x8
061f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0620 a603       |    |		Store_Unchecked	0x3,0x3
0621 00d8       |    |		Load_Top	At_Offset_0
0622 e002       |    |		Load	0x0,0x2
0623 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0624 e5fd       |    |		Load	0x2,-0x3
0625 00d8       |    |		Load_Top	At_Offset_0
0626 e5ff       |    |		Load	0x2,-0x1
0627 e007       |    |		Load	0x0,0x7
0628 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0629 00da       |    |		Load_Top	At_Offset_2
062a e602       |    |		Load	0x3,0x2
062b 8227       | '  |		Call	0x1,0x27
062c e002       |    |		Load	0x0,0x2
062d 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
062e 011e       |    |		Execute	Any,Convert
062f 00e1       |    |		Load_Encached	Boolean_Cache
0630 00e2       |    |		Load_Encached	Integer_Cache
0631 00e2       |    |		Load_Encached	Integer_Cache
0632 00e2       |    |		Load_Encached	Integer_Cache
0633 029f 0673  |   s|		Declare_Subprogram	INIT_0670,For_Call
0635			BODY_0610:
0635 e605       |    |		Load	0x3,0x5
0636 e002       |    |		Load	0x0,0x2
0637 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0638 6802       |h   |		Jump_Zero	0x63b
0639 00cc       |    |		Action	Pop_Block
063a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
063b 860a       |    |		Call	0x3,0xa
063c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
063d 0000 0000  |    |		.XXX[0x3]
063f 0000       |    |
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0646       | F  |		.CONST	0x0646								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0002       |    |		.CONST	0x0002								; Number of locals
0643			INIT_0640:
0643 e408       |    |		Load	0x2,0x8
0644 e002       |    |		Load	0x0,0x2
0645 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0646			BODY_0640:
0646 e408       |    |		Load	0x2,0x8
0647 e002       |    |		Load	0x0,0x2
0648 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0649 6814       |h   |		Jump_Zero	0x65e
064a e5fe       |    |		Load	0x2,-0x2
064b e406       |    |		Load	0x2,0x6
064c 0a01       |    |		Execute_Immediate	Plus,0x1
064d 00d8       |    |		Load_Top	At_Offset_0
064e 00e2       |    |		Load_Encached	Integer_Cache
064f 0260       | `  |		Execute	Discrete,In_Type
0650 7001       |p   |		Jump_Nonzero	0x652
0651 0801       |    |		Execute_Immediate	Raise,0x1
0652 e403       |    |		Load	0x2,0x3
0653 0aff       |    |		Execute_Immediate	Plus,-0x1
0654 00d8       |    |		Load_Top	At_Offset_0
0655 00e2       |    |		Load_Encached	Integer_Cache
0656 0260       | `  |		Execute	Discrete,In_Type
0657 7001       |p   |		Jump_Nonzero	0x659
0658 0801       |    |		Execute_Immediate	Raise,0x1
0659 e402       |    |		Load	0x2,0x2
065a 01cf       |    |		Execute	Vector,Slice_Read
065b 00da       |    |		Load_Top	At_Offset_2
065c 8223       | #  |		Call	0x1,0x23
065d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
065e e5fe       |    |		Load	0x2,-0x2
065f e406       |    |		Load	0x2,0x6
0660 0a01       |    |		Execute_Immediate	Plus,0x1
0661 e402       |    |		Load	0x2,0x2
0662 01d7       |    |		Execute	Vector,Field_Read
0663 4801       |H   |		Short_Literal	0x1
0664 e21e       |    |		Load	0x1,0x1e
0665 01d7       |    |		Execute	Vector,Field_Read
0666 027f       |    |		Execute	Discrete,Equal
0667 00da       |    |		Load_Top	At_Offset_2
0668 8222       | "  |		Call	0x1,0x22
0669 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
066a 0000 0000  |    |		.BLANK	0000[0x6]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0675       | u  |		.CONST	0x0675								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0002       |    |		.CONST	0x0002								; Number of locals
0673			INIT_0670:
0673 e605       |    |		Load	0x3,0x5
0674 8229       | )  |		Call	0x1,0x29
0675			BODY_0670:
0675 00e2       |    |		Load_Encached	Integer_Cache
0676 00e2       |    |		Load_Encached	Integer_Cache
0677 00e2       |    |		Load_Encached	Integer_Cache
0678 00e1       |    |		Load_Encached	Boolean_Cache
0679 e5fd       |    |		Load	0x2,-0x3
067a e802       |    |		Load	0x4,0x2
067b e402       |    |		Load	0x2,0x2
067c e5ff       |    |		Load	0x2,-0x1
067d 822a       | *  |		Call	0x1,0x2a
067e c606       |    |		Store	0x3,0x6
067f c607       |    |		Store	0x3,0x7
0680 c608       |    |		Store	0x3,0x8
0681 c609       |    |		Store	0x3,0x9
0682 e606       |    |		Load	0x3,0x6
0683 6820       |h   |		Jump_Zero	0x6a4
0684 e006       |    |		Load	0x0,0x6
0685 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0686 e402       |    |		Load	0x2,0x2
0687 01dd       |    |		Execute	Vector,First
0688 e607       |    |		Load	0x3,0x7
0689 0aff       |    |		Execute_Immediate	Plus,-0x1
068a 00d8       |    |		Load_Top	At_Offset_0
068b 00e2       |    |		Load_Encached	Integer_Cache
068c 0260       | `  |		Execute	Discrete,In_Type
068d 7001       |p   |		Jump_Nonzero	0x68f
068e 0801       |    |		Execute_Immediate	Raise,0x1
068f e402       |    |		Load	0x2,0x2
0690 01cf       |    |		Execute	Vector,Slice_Read
0691 e609       |    |		Load	0x3,0x9
0692 0a02       |    |		Execute_Immediate	Plus,0x2
0693 00d8       |    |		Load_Top	At_Offset_0
0694 00e2       |    |		Load_Encached	Integer_Cache
0695 0260       | `  |		Execute	Discrete,In_Type
0696 7001       |p   |		Jump_Nonzero	0x698
0697 0801       |    |		Execute_Immediate	Raise,0x1
0698 e402       |    |		Load	0x2,0x2
0699 01dc       |    |		Execute	Vector,Last
069a e402       |    |		Load	0x2,0x2
069b 01cf       |    |		Execute	Vector,Slice_Read
069c 01cc       |    |		Execute	Vector,Catenate
069d e5fd       |    |		Load	0x2,-0x3
069e e5ff       |    |		Load	0x2,-0x1
069f e001       |    |		Load	0x0,0x1
06a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06a1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06a2 c404       |    |		Store	0x2,0x4
06a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06a4 e5fd       |    |		Load	0x2,-0x3
06a5 4801       |H   |		Short_Literal	0x1
06a6 4802       |H   |		Short_Literal	0x2
06a7 e005       |    |		Load	0x0,0x5
06a8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06a9 035b       | [  |		Declare_Type	Array,Constrained
06aa 0337       | 7  |		Declare_Variable	Array
06ab e5ff       |    |		Load	0x2,-0x1
06ac e005       |    |		Load	0x0,0x5
06ad 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
06ae e005       |    |		Load	0x0,0x5
06af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06b0 0119       |    |		Execute	Any,Check_In_Formal_Type
06b1 4801       |H   |		Short_Literal	0x1
06b2 00da       |    |		Load_Top	At_Offset_2
06b3 01d6       |    |		Execute	Vector,Field_Write
06b4 e5fe       |    |		Load	0x2,-0x2
06b5 e005       |    |		Load	0x0,0x5
06b6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06b7 e005       |    |		Load	0x0,0x5
06b8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06b9 0119       |    |		Execute	Any,Check_In_Formal_Type
06ba 4802       |H   |		Short_Literal	0x2
06bb 00da       |    |		Load_Top	At_Offset_2
06bc 01d6       |    |		Execute	Vector,Field_Write
06bd 6006       |`   |		Indirect_Literal	Discrete,0x6c4,{0x00000000, 0x000081b0}
06be e006       |    |		Load	0x0,0x6
06bf 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
06c0 00cc       |    |		Action	Pop_Block
06c1 00cc       |    |		Action	Pop_Block
06c2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06c3 0000       |    |		.XXX[0x1]
06c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b0}
06c8 ; --------------------------------------------------------------------------------------
06c8 ; STRING TABLE
06c8 ; --------------------------------------------------------------------------------------
06c8 0010       |    |		.STRTAB	0x0010->0x06d0							; "<error>"
06c9 0015       |    |		.STRTAB	0x0015->0x06d3							; "Rcf_Unit_Options.Display"
06ca 002b       | +  |		.STRTAB	0x002b->0x06df							; "Rcf_Unit_Options.Set"
06cb 003d       | =  |		.STRTAB	0x003d->0x06e9							; "<ALL>"
06cc 0040       | @  |		.STRTAB	0x0040->0x06ec							; "Rcf_Unit_Options.Remove"
06cd 0055       | U  |		.STRTAB	0x0055->0x06f7							; "Rcf_Unit_Options.Get"
06ce 0067       | g  |		.STRTAB	0x0067->0x0701							; " "
06cf 0066       | f  |		.STREND 0x0066->0x0702
06d0 3c65 7272  |<err|		.STRTAB_STRINGS
0702 0000 0000  |    |		.BLANK	0000[0x6]
0708 ; --------------------------------------------------------------------------------------
0708 ; Debug Table
0708 ; --------------------------------------------------------------------------------------
0708 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x2bbd,0x0000,0x0001,0x0000
070e 0000 0000  |    |		.XXX[0x3]
0710 0000       |    |
0711 012a 4538  | *E8|		.XXX[0x6]
0713 0143 bf18  | C  |
0715 06a4 0540  |   @|
0717 0000 0000  |    |		.BLANK	0000[0xc]
0723 0005 dda0  |    |		.XXX[0x39]
0725 8012 a40a  |    |
0727 8011 c000  |    |
0729 0000 0012  |    |
072b a4bd 8000  |    |
072d 0012 8d9e  |    |
072f 8000 5dda  |  ] |
0731 0827 0c00  | '  |
0733 0000 0202  |    |
0735 a001 2a45  |  *E|
0737 3800 0000  |8   |
0739 0000 0001  |    |
073b 2792 8820  |'   |
073d 29c0 1398  |)   |
073f 8c80 12a5  |    |
0741 138c f9c0  |    |
0743 1277 ad80  | w  |
0745 012a 40a8  | *@ |
0747 270c 0000  |'   |
0749 0000 012a  |   *|
074b 5648 0000  |VH  |
074d 0000 0000  |    |
074f 0200 0000  |    |
0751 0000 0156  |   V|
0753 10b4 012a  |   *|
0755 527a 02a4  |Rz  |
0757 012a 3e18  | *> |
0759 0040 0259  | @ Y|
075b 3800       |8   |
075c 0000 0000  |    |		.BLANK	0000[0xb]
0767 0001 2a5a  |  *Z|		.XXX[0x7]
0769 d801 4408  |  D |
076b 1806 a405  |    |
076d 5000       |P   |
076e 0000 0000  |    |		.BLANK	0000[0xc]
077a 05e5 e940  |   @|		.XXX[0x38]
077c 12a5 6480  |  d |
077e 1200 0000  |    |
0780 0000 12a6  |    |
0782 1780 0000  |    |
0784 128e f880  |    |
0786 005e 5e94  | ^^ |
0788 276c 0000  |'l  |
078a 0002 02a8  |    |
078c 012a 5ad8  | *Z |
078e 0000 0000  |    |
0790 0000 0127  |   '|
0792 99a8 202a  |   *|
0794 4013 97fa  |@   |
0796 8012 a66d  |   m|
0798 8cf8 c012  |    |
079a 7907 8001  |y   |
079c 2a56 4827  |*VH'|
079e 6c00 0000  |l   |
07a0 0001 2a6b  |  *k|
07a2 e800 0000  |    |
07a4 0000 0002  |    |
07a6 0000 0000  |    |
07a8 0001 5650  |  VP|
07aa b401 2a68  |  *h|
07ac 1a02 ac01  |    |
07ae 2a53 b800  |*S  |
07b0 4002 5938  |@ Y8|
07b2 0000 0000  |    |		.BLANK	0000[0xc]
07be 012a 7078  | *px|		.XXX[0x6]
07c0 0144 5118  | DQ |
07c2 06a4 0560  |   `|
07c4 0000 0000  |    |		.BLANK	0000[0xc]
07d0 0005 f830  |   0|		.XXX[0x30]
07d2 4012 a6be  |@   |
07d4 8012 4000  |  @ |
07d6 0000 0012  |    |
07d8 a771 8000  | q  |
07da 0012 8ed7  |    |
07dc 8000 5f83  |  _ |
07de 0428 6c00  | (l |
07e0 0000 0202  |    |
07e2 b001 2a70  |  *p|
07e4 7800 0000  |x   |
07e6 0000 0001  |    |
07e8 27af b820  |'   |
07ea 2ac0 1397  |*   |
07ec 6880 12a7  |h   |
07ee c78c f7c0  |    |
07f0 127b 1c80  | {  |
07f2 012a 6be8  | *k |
07f4 286c 0000  |(l  |
07f6 0000 012a  |   *|
07f8 8188 0000  |    |
07fa 0000 0000  |    |
07fc 0200 0000  |    |
07fe 0000 016c  |   l|