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

⟦f517964c1⟧

    Length: 10240 (0x2800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 12d0       |    |		.CONST	0x12d0								; 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 800b       |    |		.CONST	0x800b								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00c2       |    |		.CONST	0x00c2								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003a       | :  |		.CONST	0x003a								; Number of locals
000b			INIT_0008:
000b 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
000d 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
000f 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0011 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0013 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0015 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0017 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0019 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
001b 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
001d 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
001f 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
0021 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0023 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0025 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0027 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0029 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
002b 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated
002d 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
002f 00bf       |    |		Action	Accept_Activation
0030 00e1       |    |		Load_Encached	Boolean_Cache
0031 0266       | f  |		Execute	Discrete,Bounds
0032 00e8       |    |		Load_Encached	Character_Cache
0033 02a0       |    |		Declare_Subprogram	Null_Subprogram
0034 4801       |H   |		Short_Literal	0x1
0035 035d       | ]  |		Declare_Type	Array,Defined
0036 00d8       |    |		Load_Top	At_Offset_0
0037 0337       | 7  |		Declare_Variable	Array
0038 00d8       |    |		Load_Top	At_Offset_0
0039 0335       | 5  |		Declare_Variable	Array,Duplicate
003a 00cd       |    |		Action	Spare6_Action
003b 482d       |H-  |		Short_Literal	0x2d
003c 4800       |H   |		Short_Literal	0x0
003d 00da       |    |		Load_Top	At_Offset_2
003e 01d6       |    |		Execute	Vector,Field_Write
003f 484b       |HK  |		Short_Literal	0x4b
0040 4801       |H   |		Short_Literal	0x1
0041 00da       |    |		Load_Top	At_Offset_2
0042 01d6       |    |		Execute	Vector,Field_Write
0043 00d9       |    |		Load_Top	At_Offset_1
0044 01d4       |    |		Execute	Vector,Structure_Write
0045 00e1       |    |		Load_Encached	Boolean_Cache
0046 0266       | f  |		Execute	Discrete,Bounds
0047 00e8       |    |		Load_Encached	Character_Cache
0048 02a0       |    |		Declare_Subprogram	Null_Subprogram
0049 4801       |H   |		Short_Literal	0x1
004a 035d       | ]  |		Declare_Type	Array,Defined
004b 00d8       |    |		Load_Top	At_Offset_0
004c 0337       | 7  |		Declare_Variable	Array
004d 00d8       |    |		Load_Top	At_Offset_0
004e 0335       | 5  |		Declare_Variable	Array,Duplicate
004f 00cd       |    |		Action	Spare6_Action
0050 482d       |H-  |		Short_Literal	0x2d
0051 4800       |H   |		Short_Literal	0x0
0052 00da       |    |		Load_Top	At_Offset_2
0053 01d6       |    |		Execute	Vector,Field_Write
0054 4850       |HP  |		Short_Literal	0x50
0055 4801       |H   |		Short_Literal	0x1
0056 00da       |    |		Load_Top	At_Offset_2
0057 01d6       |    |		Execute	Vector,Field_Write
0058 00d9       |    |		Load_Top	At_Offset_1
0059 01d4       |    |		Execute	Vector,Structure_Write
005a e002       |    |		Load	0x0,0x2
005b 00e2       |    |		Load_Encached	Integer_Cache
005c 029f 054b  |   K|		Declare_Subprogram	INIT_0548,For_Call
005e 4802       |H   |		Short_Literal	0x2
005f 032d       | -  |		Declare_Type	Record,Defined
0060 00e4       |    |		Load_Encached	Positive_Cache
0061 0266       | f  |		Execute	Discrete,Bounds
0062 00da       |    |		Load_Top	At_Offset_2
0063 029f 055b  |   [|		Declare_Subprogram	INIT_0558,For_Call
0065 4801       |H   |		Short_Literal	0x1
0066 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0067 e003       |    |		Load	0x0,0x3
0068 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0069 029d 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call
006b 029b 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Unelaborated
006d 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call
006f 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 029d 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call
0073 029d 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call
0075 029d 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call
0077 029d 0673  |   s|		Declare_Subprogram	INIT_0670,For_Outer_Call
0079 029d 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call
007b 029d 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call
007d 029b 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call,Unelaborated
007f 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 029d 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call
0085 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 029d 080b  |    |		Declare_Subprogram	INIT_0808,For_Outer_Call
0089 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 029d 0833  |   3|		Declare_Subprogram	INIT_0830,For_Outer_Call
008d 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
008e 00c6       |    |		Action	Check_Subprogram_Elaborated
008f 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0090 0092 100a  |    |		Action	Push_String_Extended,0x100a					; "Selected contents of "
0092 0093 0000  |    |		push_full_address	0x0
0094 6093       |`   |		Indirect_Literal	Discrete,0x128,{0x80000000, 0x00100000}
0095 0273       | s  |		Execute	Discrete,Plus
0096 e004       |    |		Load	0x0,0x4
0097 0273       | s  |		Execute	Discrete,Plus
0098 e005       |    |		Load	0x0,0x5
0099 0273       | s  |		Execute	Discrete,Plus
009a 4800       |H   |		Short_Literal	0x0
009b 0007       |    |		Action	Break_Optional
009c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 029d 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Outer_Call
00b4 029d 08f3  |    |		Declare_Subprogram	INIT_08f0,For_Outer_Call
00b6 029d 0923  |   #|		Declare_Subprogram	INIT_0920,For_Outer_Call
00b8 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 029d 0953  |   S|		Declare_Subprogram	INIT_0950,For_Outer_Call
00be 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2			BODY_0008:
00c2 00bc       |    |		Action	Signal_Activated
00c3 00bb       |    |		Action	Signal_Completion
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d6       |    |		.CONST	0x00d6								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0006       |    |		.CONST	0x0006								; Number of locals
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 822c       | ,  |		Call	0x1,0x2c
00cd e006       |    |		Load	0x0,0x6
00ce 0007       |    |		Action	Break_Optional
00cf e007       |    |		Load	0x0,0x7
00d0 0007       |    |		Action	Break_Optional
00d1 e002       |    |		Load	0x0,0x2
00d2 0322       | "  |		Declare_Variable	Record
00d3 00d8       |    |		Load_Top	At_Offset_0
00d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d5 00e2       |    |		Load_Encached	Integer_Cache
00d6			BODY_00c8:
00d6 e5fb       |    |		Load	0x2,-0x5
00d7 6807       |h   |		Jump_Zero	0xdf
00d8 e007       |    |		Load	0x0,0x7
00d9 4802       |H   |		Short_Literal	0x2
00da e5ff       |    |		Load	0x2,-0x1
00db 822e       | .  |		Call	0x1,0x2e
00dc 8008       |    |		Call	0x0,0x8
00dd 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00de 7806       |x   |		Jump	0xe5
00df e007       |    |		Load	0x0,0x7
00e0 4801       |H   |		Short_Literal	0x1
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 822e       | .  |		Call	0x1,0x2e
00e3 8008       |    |		Call	0x0,0x8
00e4 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 8009       |    |		Call	0x0,0x9
00e7 683a       |h:  |		Jump_Zero	0x122
00e8 e006       |    |		Load	0x0,0x6
00e9 4800       |H   |		Short_Literal	0x0
00ea e5fe       |    |		Load	0x2,-0x2
00eb 800a       |    |		Call	0x0,0xa
00ec c403       |    |		Store	0x2,0x3
00ed 00db       |    |		Load_Top	At_Offset_3
00ee 800b       |    |		Call	0x0,0xb
00ef 682e       |h.  |		Jump_Zero	0x11e
00f0 00cf       |    |		Action	Mark_Auxiliary
00f1 7824       |x$  |		Jump	0x116
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 e403       |    |		Load	0x2,0x3
00f4 800c       |    |		Call	0x0,0xc
00f5 00d1       |    |		Pop_Control	Pop_Count_1
00f6 e403       |    |		Load	0x2,0x3
00f7 800d       |    |		Call	0x0,0xd
00f8 7020       |p   |		Jump_Nonzero	0x119
00f9 e403       |    |		Load	0x2,0x3
00fa 800e       |    |		Call	0x0,0xe
00fb 6819       |h   |		Jump_Zero	0x115
00fc e225       | %  |		Load	0x1,0x25
00fd e5fd       |    |		Load	0x2,-0x3
00fe e402       |    |		Load	0x2,0x2
00ff e405       |    |		Load	0x2,0x5
0100 822d       | -  |		Call	0x1,0x2d
0101 6811       |h   |		Jump_Zero	0x113
0102 00da       |    |		Load_Top	At_Offset_2
0103 4800       |H   |		Short_Literal	0x0
0104 e404       |    |		Load	0x2,0x4
0105 800f       |    |		Call	0x0,0xf
0106 00d1       |    |		Pop_Control	Pop_Count_1
0107 00da       |    |		Load_Top	At_Offset_2
0108 e404       |    |		Load	0x2,0x4
0109 822b       | +  |		Call	0x1,0x2b
010a 00d1       |    |		Pop_Control	Pop_Count_1
010b 00e3       |    |		Load_Encached	Natural_Cache
010c 6017       |`   |		Indirect_Literal	Discrete,0x124,{0x00000000, 0x7fffffff}
010d e403       |    |		Load	0x2,0x3
010e e404       |    |		Load	0x2,0x4
010f 8010       |    |		Call	0x0,0x10
0110 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0111 00db       |    |		Load_Top	At_Offset_3
0112 8011       |    |		Call	0x0,0x11
0113 e403       |    |		Load	0x2,0x3
0114 8012       |    |		Call	0x0,0x12
0115 00c9       |    |		Action	Pop_Auxiliary_Loop
0116 e403       |    |		Load	0x2,0x3
0117 800d       |    |		Call	0x0,0xd
0118 6fd9       |o   |		Jump_Zero	0xf2
0119 00ce       |    |		Action	Pop_Auxiliary
011a 00db       |    |		Load_Top	At_Offset_3
011b 4800       |H   |		Short_Literal	0x0
011c 8013       |    |		Call	0x0,0x13
011d c403       |    |		Store	0x2,0x3
011e 00da       |    |		Load_Top	At_Offset_2
011f 4801       |H   |		Short_Literal	0x1
0120 8014       |    |		Call	0x0,0x14
0121 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0122 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0123 0000       |    |		.XXX[0x1]
0124 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0128 8000 0000  |    |		.LITERAL	{0x80000000, 0x00100000}
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135       | 5  |		.CONST	0x0135								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 e006       |    |		Load	0x0,0x6
0134 0007       |    |		Action	Break_Optional
0135			BODY_0130:
0135 00d8       |    |		Load_Top	At_Offset_0
0136 e5fa       |    |		Load	0x2,-0x6
0137 e5fb       |    |		Load	0x2,-0x5
0138 e5fc       |    |		Load	0x2,-0x4
0139 e5fd       |    |		Load	0x2,-0x3
013a e5fe       |    |		Load	0x2,-0x2
013b e5ff       |    |		Load	0x2,-0x1
013c 8230       | 0  |		Call	0x1,0x30
013d 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
013e 00d8       |    |		Load_Top	At_Offset_0
013f 800b       |    |		Call	0x0,0xb
0140 6804       |h   |		Jump_Zero	0x145
0141 00d8       |    |		Load_Top	At_Offset_0
0142 4800       |H   |		Short_Literal	0x0
0143 8013       |    |		Call	0x0,0x13
0144 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0145 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0155       | U  |		.CONST	0x0155								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0005       |    |		.CONST	0x0005								; Number of locals
014b			INIT_0148:
014b e006       |    |		Load	0x0,0x6
014c 0007       |    |		Action	Break_Optional
014d e015       |    |		Load	0x0,0x15
014e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014f 02c7       |    |		Declare_Variable	Any
0150 00d8       |    |		Load_Top	At_Offset_0
0151 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0152 00e1       |    |		Load_Encached	Boolean_Cache
0153 029f 099b  |    |		Declare_Subprogram	INIT_0998,For_Call
0155			BODY_0148:
0155 00da       |    |		Load_Top	At_Offset_2
0156 00ea       |    |		Load_Encached	Null_String_Cache
0157 e5ff       |    |		Load	0x2,-0x1
0158 4800       |H   |		Short_Literal	0x0
0159 e015       |    |		Load	0x0,0x15
015a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
015b c403       |    |		Store	0x2,0x3
015c 00cf       |    |		Action	Mark_Auxiliary
015d 7802       |x   |		Jump	0x160
015e 8405       |    |		Call	0x2,0x5
015f 00c9       |    |		Action	Pop_Auxiliary_Loop
0160 00db       |    |		Load_Top	At_Offset_3
0161 e015       |    |		Load	0x0,0x15
0162 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0163 6ffa       |o   |		Jump_Zero	0x15e
0164 00ce       |    |		Action	Pop_Auxiliary
0165 00da       |    |		Load_Top	At_Offset_2
0166 e015       |    |		Load	0x0,0x15
0167 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0168 c403       |    |		Store	0x2,0x3
0169 00db       |    |		Load_Top	At_Offset_3
016a 800b       |    |		Call	0x0,0xb
016b 6804       |h   |		Jump_Zero	0x170
016c 00db       |    |		Load_Top	At_Offset_3
016d 4800       |H   |		Short_Literal	0x0
016e 8013       |    |		Call	0x0,0x13
016f c402       |    |		Store	0x2,0x2
0170 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 4801       |H   |		Short_Literal	0x1
017c e5fd       |    |		Load	0x2,-0x3
017d e5fe       |    |		Load	0x2,-0x2
017e e5ff       |    |		Load	0x2,-0x1
017f 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0180 e234       | 4  |		Load	0x1,0x34
0181 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0182 822f       | /  |		Call	0x1,0x2f
0183 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 019e       |    |		.CONST	0x019e								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0006       |    |		.CONST	0x0006								; Number of locals
018b			INIT_0188:
018b 029f 09fb  |    |		Declare_Subprogram	INIT_09f8,For_Call
018d 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
018e 00c6       |    |		Action	Check_Subprogram_Elaborated
018f 4802       |H   |		Short_Literal	0x2
0190 4802       |H   |		Short_Literal	0x2
0191 0099       |    |		Action	Reference_Dynamic
0192 0092 100b  |    |		Action	Push_String_Extended,0x100b					; "Contents of selected files in"
0194 0093 0000  |    |		push_full_address	0x0
0196 6015       |`   |		Indirect_Literal	Discrete,0x1ac,{0x80000000, 0x000c0000}
0197 0273       | s  |		Execute	Discrete,Plus
0198 e004       |    |		Load	0x0,0x4
0199 0273       | s  |		Execute	Discrete,Plus
019a e016       |    |		Load	0x0,0x16
019b 0273       | s  |		Execute	Discrete,Plus
019c 4806       |H   |		Short_Literal	0x6
019d 0007       |    |		Action	Break_Optional
019e			BODY_0188:
019e 4800       |H   |		Short_Literal	0x0
019f 4800       |H   |		Short_Literal	0x0
01a0 e5fe       |    |		Load	0x2,-0x2
01a1 e5ff       |    |		Load	0x2,-0x1
01a2 4803       |H   |		Short_Literal	0x3
01a3 4802       |H   |		Short_Literal	0x2
01a4 0099       |    |		Action	Reference_Dynamic
01a5 e404       |    |		Load	0x2,0x4
01a6 4805       |H   |		Short_Literal	0x5
01a7 4802       |H   |		Short_Literal	0x2
01a8 0099       |    |		Action	Reference_Dynamic
01a9 822f       | /  |		Call	0x1,0x2f
01aa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ab 0000       |    |		.XXX[0x1]
01ac 8000 0000  |    |		.LITERAL	{0x80000000, 0x000c0000}
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01d2       |    |		.CONST	0x01d2								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 000c       |    |		.CONST	0x000c								; Number of locals
01b3			INIT_01b0:
01b3 029f 0a13  |    |		Declare_Subprogram	INIT_0a10,For_Call
01b5 029f 0a23  |   #|		Declare_Subprogram	INIT_0a20,For_Call
01b7 029f 0a4b  |   K|		Declare_Subprogram	INIT_0a48,For_Call
01b9 029f 0a8b  |    |		Declare_Subprogram	INIT_0a88,For_Call
01bb 029f 0aab  |    |		Declare_Subprogram	INIT_0aa8,For_Call
01bd 029f 0aeb  |    |		Declare_Subprogram	INIT_0ae8,For_Call
01bf 029f 0b03  |    |		Declare_Subprogram	INIT_0b00,For_Call
01c1 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
01c2 00c6       |    |		Action	Check_Subprogram_Elaborated
01c3 4808       |H   |		Short_Literal	0x8
01c4 4802       |H   |		Short_Literal	0x2
01c5 0099       |    |		Action	Reference_Dynamic
01c6 0092 100b  |    |		Action	Push_String_Extended,0x100b					; "Contents of selected files in"
01c8 0093 0000  |    |		push_full_address	0x0
01ca 6015       |`   |		Indirect_Literal	Discrete,0x1e0,{0x80000000, 0x000b0000}
01cb 0273       | s  |		Execute	Discrete,Plus
01cc e004       |    |		Load	0x0,0x4
01cd 0273       | s  |		Execute	Discrete,Plus
01ce e017       |    |		Load	0x0,0x17
01cf 0273       | s  |		Execute	Discrete,Plus
01d0 480c       |H   |		Short_Literal	0xc
01d1 0007       |    |		Action	Break_Optional
01d2			BODY_01b0:
01d2 4800       |H   |		Short_Literal	0x0
01d3 4800       |H   |		Short_Literal	0x0
01d4 e5fe       |    |		Load	0x2,-0x2
01d5 e5ff       |    |		Load	0x2,-0x1
01d6 4809       |H   |		Short_Literal	0x9
01d7 4802       |H   |		Short_Literal	0x2
01d8 0099       |    |		Action	Reference_Dynamic
01d9 e40a       |    |		Load	0x2,0xa
01da 480b       |H   |		Short_Literal	0xb
01db 4802       |H   |		Short_Literal	0x2
01dc 0099       |    |		Action	Reference_Dynamic
01dd 822f       | /  |		Call	0x1,0x2f
01de 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01df 0000       |    |		.XXX[0x1]
01e0 8000 0000  |    |		.LITERAL	{0x80000000, 0x000b0000}
01e4 0000 0000  |    |		.BLANK	0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01fe       |    |		.CONST	0x01fe								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0006       |    |		.CONST	0x0006								; Number of locals
01eb			INIT_01e8:
01eb 029f 0b3b  |   ;|		Declare_Subprogram	INIT_0b38,For_Call
01ed 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
01ee 00c6       |    |		Action	Check_Subprogram_Elaborated
01ef 4802       |H   |		Short_Literal	0x2
01f0 4802       |H   |		Short_Literal	0x2
01f1 0099       |    |		Action	Reference_Dynamic
01f2 0092 100c  |    |		Action	Push_String_Extended,0x100c					; "Deleted files in"
01f4 0093 0000  |    |		push_full_address	0x0
01f6 6015       |`   |		Indirect_Literal	Discrete,0x20c,{0x80000000, 0x000f0000}
01f7 0273       | s  |		Execute	Discrete,Plus
01f8 e004       |    |		Load	0x0,0x4
01f9 0273       | s  |		Execute	Discrete,Plus
01fa e018       |    |		Load	0x0,0x18
01fb 0273       | s  |		Execute	Discrete,Plus
01fc 4806       |H   |		Short_Literal	0x6
01fd 0007       |    |		Action	Break_Optional
01fe			BODY_01e8:
01fe 4801       |H   |		Short_Literal	0x1
01ff e5fd       |    |		Load	0x2,-0x3
0200 e5fe       |    |		Load	0x2,-0x2
0201 e5ff       |    |		Load	0x2,-0x1
0202 4803       |H   |		Short_Literal	0x3
0203 4802       |H   |		Short_Literal	0x2
0204 0099       |    |		Action	Reference_Dynamic
0205 e404       |    |		Load	0x2,0x4
0206 4805       |H   |		Short_Literal	0x5
0207 4802       |H   |		Short_Literal	0x2
0208 0099       |    |		Action	Reference_Dynamic
0209 822f       | /  |		Call	0x1,0x2f
020a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
020b 0000       |    |		.XXX[0x1]
020c 8000 0000  |    |		.LITERAL	{0x80000000, 0x000f0000}
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0226       | &  |		.CONST	0x0226								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0006       |    |		.CONST	0x0006								; Number of locals
0213			INIT_0210:
0213 029f 0b4b  |   K|		Declare_Subprogram	INIT_0b48,For_Call
0215 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0216 00c6       |    |		Action	Check_Subprogram_Elaborated
0217 4802       |H   |		Short_Literal	0x2
0218 4802       |H   |		Short_Literal	0x2
0219 0099       |    |		Action	Reference_Dynamic
021a 0092 100d  |    |		Action	Push_String_Extended,0x100d					; "Selected contents of"
021c 0093 0000  |    |		push_full_address	0x0
021e 6015       |`   |		Indirect_Literal	Discrete,0x234,{0x80000000, 0x00090000}
021f 0273       | s  |		Execute	Discrete,Plus
0220 e004       |    |		Load	0x0,0x4
0221 0273       | s  |		Execute	Discrete,Plus
0222 e019       |    |		Load	0x0,0x19
0223 0273       | s  |		Execute	Discrete,Plus
0224 4806       |H   |		Short_Literal	0x6
0225 0007       |    |		Action	Break_Optional
0226			BODY_0210:
0226 4800       |H   |		Short_Literal	0x0
0227 4800       |H   |		Short_Literal	0x0
0228 e5fd       |    |		Load	0x2,-0x3
0229 e5ff       |    |		Load	0x2,-0x1
022a 4803       |H   |		Short_Literal	0x3
022b 4802       |H   |		Short_Literal	0x2
022c 0099       |    |		Action	Reference_Dynamic
022d e404       |    |		Load	0x2,0x4
022e 4805       |H   |		Short_Literal	0x5
022f 4802       |H   |		Short_Literal	0x2
0230 0099       |    |		Action	Reference_Dynamic
0231 822f       | /  |		Call	0x1,0x2f
0232 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0233 0000       |    |		.XXX[0x1]
0234 8000 0000  |    |		.LITERAL	{0x80000000, 0x00090000}
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0293       |    |		.CONST	0x0293								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 001d       |    |		.CONST	0x001d								; Number of locals
023b			INIT_0238:
023b 4800       |H   |		Short_Literal	0x0
023c 4809       |H   |		Short_Literal	0x9
023d 029f 0b93  |    |		Declare_Subprogram	INIT_0b90,For_Call
023f 03fd       |    |		Declare_Type	Discrete,Defined
0240 4818       |H   |		Short_Literal	0x18
0241 03cc       |    |		Declare_Type	Access,Incomplete,Accesses_Protected
0242 00e1       |    |		Load_Encached	Boolean_Cache
0243 00e2       |    |		Load_Encached	Integer_Cache
0244 00e2       |    |		Load_Encached	Integer_Cache
0245 e002       |    |		Load	0x0,0x2
0246 e403       |    |		Load	0x2,0x3
0247 029f 0bbb  |    |		Declare_Subprogram	INIT_0bb8,For_Call
0249 4805       |H   |		Short_Literal	0x5
024a 032d       | -  |		Declare_Type	Record,Defined
024b 00d8       |    |		Load_Top	At_Offset_0
024c 02a0       |    |		Declare_Subprogram	Null_Subprogram
024d 00db       |    |		Load_Top	At_Offset_3
024e 03c7       |    |		Complete_Type	Access,By_Defining
024f 00e3       |    |		Load_Encached	Natural_Cache
0250 0266       | f  |		Execute	Discrete,Bounds
0251 00db       |    |		Load_Top	At_Offset_3
0252 02a0       |    |		Declare_Subprogram	Null_Subprogram
0253 4801       |H   |		Short_Literal	0x1
0254 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0255 00da       |    |		Load_Top	At_Offset_2
0256 0007       |    |		Action	Break_Optional
0257 00e2       |    |		Load_Encached	Integer_Cache
0258 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0259 029f 0bcb  |    |		Declare_Subprogram	INIT_0bc8,For_Call
025b 029f 0bf3  |    |		Declare_Subprogram	INIT_0bf0,For_Call
025d 029f 0c1b  |    |		Declare_Subprogram	INIT_0c18,For_Call
025f 029f 0c4b  |   K|		Declare_Subprogram	INIT_0c48,For_Call
0261 029f 0cb3  |    |		Declare_Subprogram	INIT_0cb0,For_Call
0263 a01a       |    |		Store_Unchecked	0x0,0x1a
0264 00c6       |    |		Action	Check_Subprogram_Elaborated
0265 e402       |    |		Load	0x2,0x2
0266 e403       |    |		Load	0x2,0x3
0267 e405       |    |		Load	0x2,0x5
0268 480a       |H   |		Short_Literal	0xa
0269 4802       |H   |		Short_Literal	0x2
026a 0099       |    |		Action	Reference_Dynamic
026b 480b       |H   |		Short_Literal	0xb
026c 4802       |H   |		Short_Literal	0x2
026d 0099       |    |		Action	Reference_Dynamic
026e 480c       |H   |		Short_Literal	0xc
026f 4802       |H   |		Short_Literal	0x2
0270 0099       |    |		Action	Reference_Dynamic
0271 0092 100e  |    |		Action	Push_String_Extended,0x100e					; "Index Name Size Date Kind"
0273 00ea       |    |		Load_Encached	Null_String_Cache
0274 00ea       |    |		Load_Encached	Null_String_Cache
0275 0093 0000  |    |		push_full_address	0x0
0277 6038       |`8  |		Indirect_Literal	Discrete,0x2b0,{0x80000000, 0x000e0000}
0278 0273       | s  |		Execute	Discrete,Plus
0279 e004       |    |		Load	0x0,0x4
027a 0273       | s  |		Execute	Discrete,Plus
027b e01b       |    |		Load	0x0,0x1b
027c 0273       | s  |		Execute	Discrete,Plus
027d 4817       |H   |		Short_Literal	0x17
027e 0007       |    |		Action	Break_Optional
027f 029f 0cc3  |    |		Declare_Subprogram	INIT_0cc0,For_Call
0281 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0282 00c6       |    |		Action	Check_Subprogram_Elaborated
0283 4818       |H   |		Short_Literal	0x18
0284 4802       |H   |		Short_Literal	0x2
0285 0099       |    |		Action	Reference_Dynamic
0286 0092 100f  |    |		Action	Push_String_Extended,0x100f					; "Displaying selected items in"
0288 0093 0000  |    |		push_full_address	0x0
028a 6021       |`!  |		Indirect_Literal	Discrete,0x2ac,{0x80000000, 0x000d0000}
028b 0273       | s  |		Execute	Discrete,Plus
028c e004       |    |		Load	0x0,0x4
028d 0273       | s  |		Execute	Discrete,Plus
028e e01c       |    |		Load	0x0,0x1c
028f 0273       | s  |		Execute	Discrete,Plus
0290 481c       |H   |		Short_Literal	0x1c
0291 029f 0ce3  |    |		Declare_Subprogram	INIT_0ce0,For_Call
0293			BODY_0238:
0293 4801       |H   |		Short_Literal	0x1
0294 e5fd       |    |		Load	0x2,-0x3
0295 0092 1010  |    |		Action	Push_String_Extended,0x1010					; "st"
0297 e01d       |    |		Load	0x0,0x1d
0298 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0299 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
029a 4800       |H   |		Short_Literal	0x0
029b e5fe       |    |		Load	0x2,-0x2
029c e5ff       |    |		Load	0x2,-0x1
029d 4819       |H   |		Short_Literal	0x19
029e 4802       |H   |		Short_Literal	0x2
029f 0099       |    |		Action	Reference_Dynamic
02a0 e41a       |    |		Load	0x2,0x1a
02a1 481b       |H   |		Short_Literal	0x1b
02a2 4802       |H   |		Short_Literal	0x2
02a3 0099       |    |		Action	Reference_Dynamic
02a4 822f       | /  |		Call	0x1,0x2f
02a5 e407       |    |		Load	0x2,0x7
02a6 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02a7 6801       |h   |		Jump_Zero	0x2a9
02a8 841d       |    |		Call	0x2,0x1d
02a9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02aa 0000 0000  |    |		.XXX[0x2]
02ac 8000 0000  |    |		.LITERAL	{0x80000000, 0x000d0000}
02b0 8000 0000  |    |		.LITERAL	{0x80000000, 0x000e0000}
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02ce       |    |		.CONST	0x02ce								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0006       |    |		.CONST	0x0006								; Number of locals
02bb			INIT_02b8:
02bb 029f 0d1b  |    |		Declare_Subprogram	INIT_0d18,For_Call
02bd 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
02be 00c6       |    |		Action	Check_Subprogram_Elaborated
02bf 4802       |H   |		Short_Literal	0x2
02c0 4802       |H   |		Short_Literal	0x2
02c1 0099       |    |		Action	Reference_Dynamic
02c2 0092 1011  |    |		Action	Push_String_Extended,0x1011					; "Deleting files from"
02c4 0093 0000  |    |		push_full_address	0x0
02c6 6015       |`   |		Indirect_Literal	Discrete,0x2dc,{0x80000000, 0x00080000}
02c7 0273       | s  |		Execute	Discrete,Plus
02c8 e004       |    |		Load	0x0,0x4
02c9 0273       | s  |		Execute	Discrete,Plus
02ca e01e       |    |		Load	0x0,0x1e
02cb 0273       | s  |		Execute	Discrete,Plus
02cc 4806       |H   |		Short_Literal	0x6
02cd 0007       |    |		Action	Break_Optional
02ce			BODY_02b8:
02ce 4800       |H   |		Short_Literal	0x0
02cf e5fd       |    |		Load	0x2,-0x3
02d0 e5fe       |    |		Load	0x2,-0x2
02d1 e5ff       |    |		Load	0x2,-0x1
02d2 4803       |H   |		Short_Literal	0x3
02d3 4802       |H   |		Short_Literal	0x2
02d4 0099       |    |		Action	Reference_Dynamic
02d5 e404       |    |		Load	0x2,0x4
02d6 4805       |H   |		Short_Literal	0x5
02d7 4802       |H   |		Short_Literal	0x2
02d8 0099       |    |		Action	Reference_Dynamic
02d9 822f       | /  |		Call	0x1,0x2f
02da 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02db 0000       |    |		.XXX[0x1]
02dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00080000}
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02f6       |    |		.CONST	0x02f6								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0006       |    |		.CONST	0x0006								; Number of locals
02e3			INIT_02e0:
02e3 029f 0d2b  |   +|		Declare_Subprogram	INIT_0d28,For_Call
02e5 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
02e6 00c6       |    |		Action	Check_Subprogram_Elaborated
02e7 4802       |H   |		Short_Literal	0x2
02e8 4802       |H   |		Short_Literal	0x2
02e9 0099       |    |		Action	Reference_Dynamic
02ea 0092 1012  |    |		Action	Push_String_Extended,0x1012					; "Undeleting files in"
02ec 0093 0000  |    |		push_full_address	0x0
02ee 6015       |`   |		Indirect_Literal	Discrete,0x304,{0x80000000, 0x00070000}
02ef 0273       | s  |		Execute	Discrete,Plus
02f0 e004       |    |		Load	0x0,0x4
02f1 0273       | s  |		Execute	Discrete,Plus
02f2 e01f       |    |		Load	0x0,0x1f
02f3 0273       | s  |		Execute	Discrete,Plus
02f4 4806       |H   |		Short_Literal	0x6
02f5 0007       |    |		Action	Break_Optional
02f6			BODY_02e0:
02f6 4801       |H   |		Short_Literal	0x1
02f7 4800       |H   |		Short_Literal	0x0
02f8 e5fe       |    |		Load	0x2,-0x2
02f9 e5ff       |    |		Load	0x2,-0x1
02fa 4803       |H   |		Short_Literal	0x3
02fb 4802       |H   |		Short_Literal	0x2
02fc 0099       |    |		Action	Reference_Dynamic
02fd e404       |    |		Load	0x2,0x4
02fe 4805       |H   |		Short_Literal	0x5
02ff 4802       |H   |		Short_Literal	0x2
0300 0099       |    |		Action	Reference_Dynamic
0301 822f       | /  |		Call	0x1,0x2f
0302 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0303 0000       |    |		.XXX[0x1]
0304 8000 0000  |    |		.LITERAL	{0x80000000, 0x00070000}
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0321       | !  |		.CONST	0x0321								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0007       |    |		.CONST	0x0007								; Number of locals
030b			INIT_0308:
030b 4865       |He  |		Short_Literal	0x65
030c e003       |    |		Load	0x0,0x3
030d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
030e 029f 0d3b  |   ;|		Declare_Subprogram	INIT_0d38,For_Call
0310 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0311 00c6       |    |		Action	Check_Subprogram_Elaborated
0312 4803       |H   |		Short_Literal	0x3
0313 4802       |H   |		Short_Literal	0x2
0314 0099       |    |		Action	Reference_Dynamic
0315 0092 1013  |    |		Action	Push_String_Extended,0x1013					; "Removing duplicates from"
0317 0093 0000  |    |		push_full_address	0x0
0319 6016       |`   |		Indirect_Literal	Discrete,0x330,{0x80000000, 0x00060000}
031a 0273       | s  |		Execute	Discrete,Plus
031b e004       |    |		Load	0x0,0x4
031c 0273       | s  |		Execute	Discrete,Plus
031d e020       |    |		Load	0x0,0x20
031e 0273       | s  |		Execute	Discrete,Plus
031f 4807       |H   |		Short_Literal	0x7
0320 0007       |    |		Action	Break_Optional
0321			BODY_0308:
0321 4800       |H   |		Short_Literal	0x0
0322 e5fd       |    |		Load	0x2,-0x3
0323 e5fe       |    |		Load	0x2,-0x2
0324 e5ff       |    |		Load	0x2,-0x1
0325 4804       |H   |		Short_Literal	0x4
0326 4802       |H   |		Short_Literal	0x2
0327 0099       |    |		Action	Reference_Dynamic
0328 e405       |    |		Load	0x2,0x5
0329 4806       |H   |		Short_Literal	0x6
032a 4802       |H   |		Short_Literal	0x2
032b 0099       |    |		Action	Reference_Dynamic
032c 822f       | /  |		Call	0x1,0x2f
032d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
032e 0000 0000  |    |		.XXX[0x2]
0330 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0334 0000 0000  |    |		.BLANK	0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0353       | S  |		.CONST	0x0353								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0008       |    |		.CONST	0x0008								; Number of locals
033b			INIT_0338:
033b 00da       |    |		Load_Top	At_Offset_2
033c 822c       | ,  |		Call	0x1,0x2c
033d e5fe       |    |		Load	0x2,-0x2
033e e01d       |    |		Load	0x0,0x1d
033f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0340 029f 0d63  |   c|		Declare_Subprogram	INIT_0d60,For_Call
0342 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0343 00c6       |    |		Action	Check_Subprogram_Elaborated
0344 4804       |H   |		Short_Literal	0x4
0345 4802       |H   |		Short_Literal	0x2
0346 0099       |    |		Action	Reference_Dynamic
0347 0092 1014  |    |		Action	Push_String_Extended,0x1014					; "Renaming selected entries in"
0349 0093 0000  |    |		push_full_address	0x0
034b 6014       |`   |		Indirect_Literal	Discrete,0x360,{0x80000000, 0x00050000}
034c 0273       | s  |		Execute	Discrete,Plus
034d e004       |    |		Load	0x0,0x4
034e 0273       | s  |		Execute	Discrete,Plus
034f e021       | !  |		Load	0x0,0x21
0350 0273       | s  |		Execute	Discrete,Plus
0351 4808       |H   |		Short_Literal	0x8
0352 0007       |    |		Action	Break_Optional
0353			BODY_0338:
0353 4800       |H   |		Short_Literal	0x0
0354 4800       |H   |		Short_Literal	0x0
0355 e5fd       |    |		Load	0x2,-0x3
0356 e5ff       |    |		Load	0x2,-0x1
0357 4805       |H   |		Short_Literal	0x5
0358 4802       |H   |		Short_Literal	0x2
0359 0099       |    |		Action	Reference_Dynamic
035a e406       |    |		Load	0x2,0x6
035b 4807       |H   |		Short_Literal	0x7
035c 4802       |H   |		Short_Literal	0x2
035d 0099       |    |		Action	Reference_Dynamic
035e 822f       | /  |		Call	0x1,0x2f
035f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0360 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0380       |    |		.CONST	0x0380								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0007       |    |		.CONST	0x0007								; Number of locals
036b			INIT_0368:
036b e007       |    |		Load	0x0,0x7
036c 0007       |    |		Action	Break_Optional
036d 029f 0d83  |    |		Declare_Subprogram	INIT_0d80,For_Call
036f 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0370 00c6       |    |		Action	Check_Subprogram_Elaborated
0371 4803       |H   |		Short_Literal	0x3
0372 4802       |H   |		Short_Literal	0x2
0373 0099       |    |		Action	Reference_Dynamic
0374 0092 1015  |    |		Action	Push_String_Extended,0x1015					; "Copying selected files from"
0376 0093 0000  |    |		push_full_address	0x0
0378 6027       |`'  |		Indirect_Literal	Discrete,0x3a0,{0x80000000, 0x00040000}
0379 0273       | s  |		Execute	Discrete,Plus
037a e004       |    |		Load	0x0,0x4
037b 0273       | s  |		Execute	Discrete,Plus
037c e022       | "  |		Load	0x0,0x22
037d 0273       | s  |		Execute	Discrete,Plus
037e 4807       |H   |		Short_Literal	0x7
037f 0007       |    |		Action	Break_Optional
0380			BODY_0368:
0380 e5fb       |    |		Load	0x2,-0x5
0381 6806       |h   |		Jump_Zero	0x388
0382 e007       |    |		Load	0x0,0x7
0383 4802       |H   |		Short_Literal	0x2
0384 e5fe       |    |		Load	0x2,-0x2
0385 8008       |    |		Call	0x0,0x8
0386 c402       |    |		Store	0x2,0x2
0387 7805       |x   |		Jump	0x38d
0388 e007       |    |		Load	0x0,0x7
0389 4801       |H   |		Short_Literal	0x1
038a e5fe       |    |		Load	0x2,-0x2
038b 8008       |    |		Call	0x0,0x8
038c c402       |    |		Store	0x2,0x2
038d 4800       |H   |		Short_Literal	0x0
038e e5fc       |    |		Load	0x2,-0x4
038f e5fd       |    |		Load	0x2,-0x3
0390 e5ff       |    |		Load	0x2,-0x1
0391 4804       |H   |		Short_Literal	0x4
0392 4802       |H   |		Short_Literal	0x2
0393 0099       |    |		Action	Reference_Dynamic
0394 e405       |    |		Load	0x2,0x5
0395 4806       |H   |		Short_Literal	0x6
0396 4802       |H   |		Short_Literal	0x2
0397 0099       |    |		Action	Reference_Dynamic
0398 822f       | /  |		Call	0x1,0x2f
0399 e402       |    |		Load	0x2,0x2
039a 4801       |H   |		Short_Literal	0x1
039b 8014       |    |		Call	0x0,0x14
039c c402       |    |		Store	0x2,0x2
039d 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
039e 0000 0000  |    |		.XXX[0x2]
03a0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
03a4 0000 0000  |    |		.BLANK	0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03c3       |    |		.CONST	0x03c3								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0009       |    |		.CONST	0x0009								; Number of locals
03ab			INIT_03a8:
03ab 4800       |H   |		Short_Literal	0x0
03ac e5fb       |    |		Load	0x2,-0x5
03ad e5ff       |    |		Load	0x2,-0x1
03ae 8232       | 2  |		Call	0x1,0x32
03af 4800       |H   |		Short_Literal	0x0
03b0 e5fb       |    |		Load	0x2,-0x5
03b1 e5fe       |    |		Load	0x2,-0x2
03b2 8232       | 2  |		Call	0x1,0x32
03b3 00d9       |    |		Load_Top	At_Offset_1
03b4 01dd       |    |		Execute	Vector,First
03b5 00e2       |    |		Load_Encached	Integer_Cache
03b6 03f1       |    |		Declare_Variable	Discrete,With_Value
03b7 00d9       |    |		Load_Top	At_Offset_1
03b8 01dd       |    |		Execute	Vector,First
03b9 00e2       |    |		Load_Encached	Integer_Cache
03ba 03f1       |    |		Declare_Variable	Discrete,With_Value
03bb e007       |    |		Load	0x0,0x7
03bc 0007       |    |		Action	Break_Optional
03bd 00d8       |    |		Load_Top	At_Offset_0
03be 0007       |    |		Action	Break_Optional
03bf 029f 0d93  |    |		Declare_Subprogram	INIT_0d90,For_Call
03c1 029f 0db3  |    |		Declare_Subprogram	INIT_0db0,For_Call
03c3			BODY_03a8:
03c3 e5fd       |    |		Load	0x2,-0x3
03c4 680c       |h   |		Jump_Zero	0x3d1
03c5 e007       |    |		Load	0x0,0x7
03c6 4800       |H   |		Short_Literal	0x0
03c7 e5ff       |    |		Load	0x2,-0x1
03c8 822e       | .  |		Call	0x1,0x2e
03c9 8008       |    |		Call	0x0,0x8
03ca c406       |    |		Store	0x2,0x6
03cb e007       |    |		Load	0x0,0x7
03cc 4800       |H   |		Short_Literal	0x0
03cd e5fe       |    |		Load	0x2,-0x2
03ce 822e       | .  |		Call	0x1,0x2e
03cf 8008       |    |		Call	0x0,0x8
03d0 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
03d1 00cf       |    |		Action	Mark_Auxiliary
03d2 e404       |    |		Load	0x2,0x4
03d3 e402       |    |		Load	0x2,0x2
03d4 01dc       |    |		Execute	Vector,Last
03d5 027d       | }  |		Execute	Discrete,Greater
03d6 6810       |h   |		Jump_Zero	0x3e7
03d7 e405       |    |		Load	0x2,0x5
03d8 e403       |    |		Load	0x2,0x3
03d9 01dc       |    |		Execute	Vector,Last
03da 027d       | }  |		Execute	Discrete,Greater
03db 7098       |p   |		Jump_Nonzero	0x474
03dc 0092 1016  |    |		Action	Push_String_Extended,0x1016					; "is not"
03de e405       |    |		Load	0x2,0x5
03df e403       |    |		Load	0x2,0x3
03e0 01d5       |    |		Execute	Vector,Field_Reference
03e1 4801       |H   |		Short_Literal	0x1
03e2 8408       |    |		Call	0x2,0x8
03e3 e405       |    |		Load	0x2,0x5
03e4 0a01       |    |		Execute_Immediate	Plus,0x1
03e5 c405       |    |		Store	0x2,0x5
03e6 788b       |x   |		Jump	0x472
03e7 e405       |    |		Load	0x2,0x5
03e8 e403       |    |		Load	0x2,0x3
03e9 01dc       |    |		Execute	Vector,Last
03ea 027d       | }  |		Execute	Discrete,Greater
03eb 680b       |h   |		Jump_Zero	0x3f7
03ec 0092 1016  |    |		Action	Push_String_Extended,0x1016					; "is not"
03ee e404       |    |		Load	0x2,0x4
03ef e402       |    |		Load	0x2,0x2
03f0 01d5       |    |		Execute	Vector,Field_Reference
03f1 4802       |H   |		Short_Literal	0x2
03f2 8408       |    |		Call	0x2,0x8
03f3 e404       |    |		Load	0x2,0x4
03f4 0a01       |    |		Execute_Immediate	Plus,0x1
03f5 c404       |    |		Store	0x2,0x4
03f6 787b       |x{  |		Jump	0x472
03f7 e404       |    |		Load	0x2,0x4
03f8 e402       |    |		Load	0x2,0x2
03f9 01d5       |    |		Execute	Vector,Field_Reference
03fa 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03fb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03fc e023       | #  |		Load	0x0,0x23
03fd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03fe e405       |    |		Load	0x2,0x5
03ff e403       |    |		Load	0x2,0x3
0400 01d5       |    |		Execute	Vector,Field_Reference
0401 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0402 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0403 e023       | #  |		Load	0x0,0x23
0404 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0405 01df       |    |		Execute	Vector,Equal
0406 6846       |hF  |		Jump_Zero	0x44d
0407 e404       |    |		Load	0x2,0x4
0408 e402       |    |		Load	0x2,0x2
0409 01d5       |    |		Execute	Vector,Field_Reference
040a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
040b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040c e405       |    |		Load	0x2,0x5
040d e403       |    |		Load	0x2,0x3
040e 01d5       |    |		Execute	Vector,Field_Reference
040f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0410 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0411 027e       | ~  |		Execute	Discrete,Not_Equal
0412 6808       |h   |		Jump_Zero	0x41b
0413 0092 1017  |    |		Action	Push_String_Extended,0x1017					; "'s size is different"
0415 e405       |    |		Load	0x2,0x5
0416 e403       |    |		Load	0x2,0x3
0417 01d5       |    |		Execute	Vector,Field_Reference
0418 4801       |H   |		Short_Literal	0x1
0419 8408       |    |		Call	0x2,0x8
041a 782b       |x+  |		Jump	0x446
041b e5fc       |    |		Load	0x2,-0x4
041c 7014       |p   |		Jump_Nonzero	0x431
041d e404       |    |		Load	0x2,0x4
041e e402       |    |		Load	0x2,0x2
041f 01d5       |    |		Execute	Vector,Field_Reference
0420 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0421 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0422 e405       |    |		Load	0x2,0x5
0423 e403       |    |		Load	0x2,0x3
0424 01d5       |    |		Execute	Vector,Field_Reference
0425 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0426 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0427 012e       | .  |		Execute	Any,Not_Equal
0428 6808       |h   |		Jump_Zero	0x431
0429 0092 1018  |    |		Action	Push_String_Extended,0x1018					; "'s create date is different"
042b e405       |    |		Load	0x2,0x5
042c e403       |    |		Load	0x2,0x3
042d 01d5       |    |		Execute	Vector,Field_Reference
042e 4801       |H   |		Short_Literal	0x1
042f 8408       |    |		Call	0x2,0x8
0430 7815       |x   |		Jump	0x446
0431 e5fd       |    |		Load	0x2,-0x3
0432 6813       |h   |		Jump_Zero	0x446
0433 e406       |    |		Load	0x2,0x6
0434 e404       |    |		Load	0x2,0x4
0435 e402       |    |		Load	0x2,0x2
0436 01d5       |    |		Execute	Vector,Field_Reference
0437 8409       |    |		Call	0x2,0x9
0438 e407       |    |		Load	0x2,0x7
0439 e405       |    |		Load	0x2,0x5
043a e403       |    |		Load	0x2,0x3
043b 01d5       |    |		Execute	Vector,Field_Reference
043c 8409       |    |		Call	0x2,0x9
043d 01de       |    |		Execute	Vector,Not_Equal
043e 6807       |h   |		Jump_Zero	0x446
043f 0092 1019  |    |		Action	Push_String_Extended,0x1019					; "'s contents is different"
0441 e405       |    |		Load	0x2,0x5
0442 e403       |    |		Load	0x2,0x3
0443 01d5       |    |		Execute	Vector,Field_Reference
0444 4801       |H   |		Short_Literal	0x1
0445 8408       |    |		Call	0x2,0x8
0446 e404       |    |		Load	0x2,0x4
0447 0a01       |    |		Execute_Immediate	Plus,0x1
0448 c404       |    |		Store	0x2,0x4
0449 e405       |    |		Load	0x2,0x5
044a 0a01       |    |		Execute_Immediate	Plus,0x1
044b c405       |    |		Store	0x2,0x5
044c 7825       |x%  |		Jump	0x472
044d e404       |    |		Load	0x2,0x4
044e e402       |    |		Load	0x2,0x2
044f 01d5       |    |		Execute	Vector,Field_Reference
0450 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0451 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0452 e023       | #  |		Load	0x0,0x23
0453 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0454 e405       |    |		Load	0x2,0x5
0455 e403       |    |		Load	0x2,0x3
0456 01d5       |    |		Execute	Vector,Field_Reference
0457 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0458 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0459 e023       | #  |		Load	0x0,0x23
045a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
045b 01c1       |    |		Execute	Vector,Less
045c 680b       |h   |		Jump_Zero	0x468
045d 0092 1016  |    |		Action	Push_String_Extended,0x1016					; "is not"
045f e404       |    |		Load	0x2,0x4
0460 e402       |    |		Load	0x2,0x2
0461 01d5       |    |		Execute	Vector,Field_Reference
0462 4802       |H   |		Short_Literal	0x2
0463 8408       |    |		Call	0x2,0x8
0464 e404       |    |		Load	0x2,0x4
0465 0a01       |    |		Execute_Immediate	Plus,0x1
0466 c404       |    |		Store	0x2,0x4
0467 780a       |x   |		Jump	0x472
0468 0092 1016  |    |		Action	Push_String_Extended,0x1016					; "is not"
046a e405       |    |		Load	0x2,0x5
046b e403       |    |		Load	0x2,0x3
046c 01d5       |    |		Execute	Vector,Field_Reference
046d 4801       |H   |		Short_Literal	0x1
046e 8408       |    |		Call	0x2,0x8
046f e405       |    |		Load	0x2,0x5
0470 0a01       |    |		Execute_Immediate	Plus,0x1
0471 c405       |    |		Store	0x2,0x5
0472 00c9       |    |		Action	Pop_Auxiliary_Loop
0473 7f5e       | ^  |		Jump	0x3d2
0474 00ce       |    |		Action	Pop_Auxiliary
0475 e5fd       |    |		Load	0x2,-0x3
0476 6808       |h   |		Jump_Zero	0x47f
0477 00db       |    |		Load_Top	At_Offset_3
0478 4801       |H   |		Short_Literal	0x1
0479 8014       |    |		Call	0x0,0x14
047a c406       |    |		Store	0x2,0x6
047b 00da       |    |		Load_Top	At_Offset_2
047c 4801       |H   |		Short_Literal	0x1
047d 8014       |    |		Call	0x0,0x14
047e 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
047f 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 04a6       |    |		.CONST	0x04a6								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 000b       |    |		.CONST	0x000b								; Number of locals
0483			INIT_0480:
0483 e007       |    |		Load	0x0,0x7
0484 0007       |    |		Action	Break_Optional
0485 e5fe       |    |		Load	0x2,-0x2
0486 822c       | ,  |		Call	0x1,0x2c
0487 e5fb       |    |		Load	0x2,-0x5
0488 01dd       |    |		Execute	Vector,First
0489 e5fb       |    |		Load	0x2,-0x5
048a 01d7       |    |		Execute	Vector,Field_Read
048b e01d       |    |		Load	0x0,0x1d
048c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
048d 00d8       |    |		Load_Top	At_Offset_0
048e 0f4b       | K  |		Execute_Immediate	Equal,0x4b
048f 0007       |    |		Action	Break_Optional
0490 00d9       |    |		Load_Top	At_Offset_1
0491 0f50       | P  |		Execute_Immediate	Equal,0x50
0492 0007       |    |		Action	Break_Optional
0493 029f 0de3  |    |		Declare_Subprogram	INIT_0de0,For_Call
0495 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0496 00c6       |    |		Action	Check_Subprogram_Elaborated
0497 4807       |H   |		Short_Literal	0x7
0498 4802       |H   |		Short_Literal	0x2
0499 0099       |    |		Action	Reference_Dynamic
049a 0092 101a  |    |		Action	Push_String_Extended,0x101a					; "Gathering selected files from"
049c 0093 0000  |    |		push_full_address	0x0
049e 603d       |`=  |		Indirect_Literal	Discrete,0x4dc,{0x80000000, 0x00030000}
049f 0273       | s  |		Execute	Discrete,Plus
04a0 e004       |    |		Load	0x0,0x4
04a1 0273       | s  |		Execute	Discrete,Plus
04a2 e024       | $  |		Load	0x0,0x24
04a3 0273       | s  |		Execute	Discrete,Plus
04a4 480b       |H   |		Short_Literal	0xb
04a5 0007       |    |		Action	Break_Optional
04a6			BODY_0480:
04a6 e5fc       |    |		Load	0x2,-0x4
04a7 6806       |h   |		Jump_Zero	0x4ae
04a8 e007       |    |		Load	0x0,0x7
04a9 4802       |H   |		Short_Literal	0x2
04aa e5fe       |    |		Load	0x2,-0x2
04ab 8008       |    |		Call	0x0,0x8
04ac c402       |    |		Store	0x2,0x2
04ad 7805       |x   |		Jump	0x4b3
04ae e007       |    |		Load	0x0,0x7
04af 4801       |H   |		Short_Literal	0x1
04b0 e5fe       |    |		Load	0x2,-0x2
04b1 8008       |    |		Call	0x0,0x8
04b2 c402       |    |		Store	0x2,0x2
04b3 e403       |    |		Load	0x2,0x3
04b4 0092 101b  |    |		Action	Push_String_Extended,0x101b					; "?"
04b6 01df       |    |		Execute	Vector,Equal
04b7 680d       |h   |		Jump_Zero	0x4c5
04b8 4800       |H   |		Short_Literal	0x0
04b9 4800       |H   |		Short_Literal	0x0
04ba e5fd       |    |		Load	0x2,-0x3
04bb e5ff       |    |		Load	0x2,-0x1
04bc 4808       |H   |		Short_Literal	0x8
04bd 4802       |H   |		Short_Literal	0x2
04be 0099       |    |		Action	Reference_Dynamic
04bf e409       |    |		Load	0x2,0x9
04c0 480a       |H   |		Short_Literal	0xa
04c1 4802       |H   |		Short_Literal	0x2
04c2 0099       |    |		Action	Reference_Dynamic
04c3 822f       | /  |		Call	0x1,0x2f
04c4 7810       |x   |		Jump	0x4d5
04c5 4800       |H   |		Short_Literal	0x0
04c6 4800       |H   |		Short_Literal	0x0
04c7 e5fd       |    |		Load	0x2,-0x3
04c8 483a       |H:  |		Short_Literal	0x3a
04c9 e5ff       |    |		Load	0x2,-0x1
04ca 01cb       |    |		Execute	Vector,Append
04cb e403       |    |		Load	0x2,0x3
04cc 01cc       |    |		Execute	Vector,Catenate
04cd 4808       |H   |		Short_Literal	0x8
04ce 4802       |H   |		Short_Literal	0x2
04cf 0099       |    |		Action	Reference_Dynamic
04d0 e409       |    |		Load	0x2,0x9
04d1 480a       |H   |		Short_Literal	0xa
04d2 4802       |H   |		Short_Literal	0x2
04d3 0099       |    |		Action	Reference_Dynamic
04d4 822f       | /  |		Call	0x1,0x2f
04d5 e402       |    |		Load	0x2,0x2
04d6 4801       |H   |		Short_Literal	0x1
04d7 8014       |    |		Call	0x0,0x14
04d8 c402       |    |		Store	0x2,0x2
04d9 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
04da 0000 0000  |    |		.XXX[0x2]
04dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04fa       |    |		.CONST	0x04fa								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0007       |    |		.CONST	0x0007								; Number of locals
04e3			INIT_04e0:
04e3 e5fa       |    |		Load	0x2,-0x6
04e4 00db       |    |		Load_Top	At_Offset_3
04e5 822c       | ,  |		Call	0x1,0x2c
04e6 8238       | 8  |		Call	0x1,0x38
04e7 029f 0e13  |    |		Declare_Subprogram	INIT_0e10,For_Call
04e9 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
04ea 00c6       |    |		Action	Check_Subprogram_Elaborated
04eb 4803       |H   |		Short_Literal	0x3
04ec 4802       |H   |		Short_Literal	0x2
04ed 0099       |    |		Action	Reference_Dynamic
04ee 0092 101c  |    |		Action	Push_String_Extended,0x101c					; "Spreading selected files from "
04f0 0093 0000  |    |		push_full_address	0x0
04f2 6015       |`   |		Indirect_Literal	Discrete,0x508,{0x80000000, 0x00020000}
04f3 0273       | s  |		Execute	Discrete,Plus
04f4 e004       |    |		Load	0x0,0x4
04f5 0273       | s  |		Execute	Discrete,Plus
04f6 e025       | %  |		Load	0x0,0x25
04f7 0273       | s  |		Execute	Discrete,Plus
04f8 4807       |H   |		Short_Literal	0x7
04f9 0007       |    |		Action	Break_Optional
04fa			BODY_04e0:
04fa 4800       |H   |		Short_Literal	0x0
04fb e5fc       |    |		Load	0x2,-0x4
04fc e5fd       |    |		Load	0x2,-0x3
04fd e5ff       |    |		Load	0x2,-0x1
04fe 4804       |H   |		Short_Literal	0x4
04ff 4802       |H   |		Short_Literal	0x2
0500 0099       |    |		Action	Reference_Dynamic
0501 e405       |    |		Load	0x2,0x5
0502 4806       |H   |		Short_Literal	0x6
0503 4802       |H   |		Short_Literal	0x2
0504 0099       |    |		Action	Reference_Dynamic
0505 822f       | /  |		Call	0x1,0x2f
0506 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0507 0000       |    |		.XXX[0x1]
0508 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
050c 0000 0000  |    |		.BLANK	0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 052a       | *  |		.CONST	0x052a								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0008       |    |		.CONST	0x0008								; Number of locals
0513			INIT_0510:
0513 00da       |    |		Load_Top	At_Offset_2
0514 822c       | ,  |		Call	0x1,0x2c
0515 e026       | &  |		Load	0x0,0x26
0516 0007       |    |		Action	Break_Optional
0517 029f 0e7b  |   {|		Declare_Subprogram	INIT_0e78,For_Call
0519 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
051a 00c6       |    |		Action	Check_Subprogram_Elaborated
051b 4804       |H   |		Short_Literal	0x4
051c 4802       |H   |		Short_Literal	0x2
051d 0099       |    |		Action	Reference_Dynamic
051e 0092 101d  |    |		Action	Push_String_Extended,0x101d					; "Transfering selected files from "
0520 0093 0000  |    |		push_full_address	0x0
0522 601d       |`   |		Indirect_Literal	Discrete,0x540,{0x80000000, 0x00010000}
0523 0273       | s  |		Execute	Discrete,Plus
0524 e004       |    |		Load	0x0,0x4
0525 0273       | s  |		Execute	Discrete,Plus
0526 e027       | '  |		Load	0x0,0x27
0527 0273       | s  |		Execute	Discrete,Plus
0528 4808       |H   |		Short_Literal	0x8
0529 0007       |    |		Action	Break_Optional
052a			BODY_0510:
052a e026       | &  |		Load	0x0,0x26
052b 4801       |H   |		Short_Literal	0x1
052c 8028       | (  |		Call	0x0,0x28
052d c403       |    |		Store	0x2,0x3
052e 4800       |H   |		Short_Literal	0x0
052f e5fc       |    |		Load	0x2,-0x4
0530 e5fd       |    |		Load	0x2,-0x3
0531 e5ff       |    |		Load	0x2,-0x1
0532 4805       |H   |		Short_Literal	0x5
0533 4802       |H   |		Short_Literal	0x2
0534 0099       |    |		Action	Reference_Dynamic
0535 e406       |    |		Load	0x2,0x6
0536 4807       |H   |		Short_Literal	0x7
0537 4802       |H   |		Short_Literal	0x2
0538 0099       |    |		Action	Reference_Dynamic
0539 822f       | /  |		Call	0x1,0x2f
053a e403       |    |		Load	0x2,0x3
053b 8029       | )  |		Call	0x0,0x29
053c c403       |    |		Store	0x2,0x3
053d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
053e 0000 0000  |    |		.XXX[0x2]
0540 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0544 0000 0000  |    |		.BLANK	0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 4601       |F   |		Jump_Case	0x2
054c 7801       |x   |		Jump	0x54e								; case 0x0
054d 7804       |x   |		Jump	0x552								; case 0x1
054e 00da       |    |		Load_Top	At_Offset_2
054f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0550 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0551 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0552 00da       |    |		Load_Top	At_Offset_2
0553 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0554 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0555 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0556 0000 0000  |    |		.XXX[0x2]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b       | [  |		.CONST	0x055b								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0001       |    |		.CONST	0x0001								; Number of locals
055b			BODY_0558:
055b			INIT_0558:
055b 4605       |F   |		Jump_Case	0x6
055c 7804       |x   |		Jump	0x561								; case 0x0
055d 7810       |x   |		Jump	0x56e								; case 0x1
055e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
055f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0560 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0561 00da       |    |		Load_Top	At_Offset_2						; case 0x5
0562 01dc       |    |		Execute	Vector,Last
0563 00db       |    |		Load_Top	At_Offset_3
0564 01dd       |    |		Execute	Vector,First
0565 0263       | c  |		Execute	Discrete,Above_Bound
0566 7006       |p   |		Jump_Nonzero	0x56d
0567 00d8       |    |		Load_Top	At_Offset_0
0568 e5ff       |    |		Load	0x2,-0x1
0569 01d5       |    |		Execute	Vector,Field_Reference
056a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
056b 0a01       |    |		Execute_Immediate	Plus,0x1
056c 7ff8       |    |		Jump	0x565
056d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
056e 00da       |    |		Load_Top	At_Offset_2
056f 01dc       |    |		Execute	Vector,Last
0570 00db       |    |		Load_Top	At_Offset_3
0571 01dd       |    |		Execute	Vector,First
0572 0263       | c  |		Execute	Discrete,Above_Bound
0573 7006       |p   |		Jump_Nonzero	0x57a
0574 00d8       |    |		Load_Top	At_Offset_0
0575 e5ff       |    |		Load	0x2,-0x1
0576 01d7       |    |		Execute	Vector,Field_Read
0577 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0578 0a01       |    |		Execute_Immediate	Plus,0x1
0579 7ff8       |    |		Jump	0x572
057a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
057b 0000 0000  |    |		.BLANK	0000[0x5]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 00db       |    |		Load_Top	At_Offset_3
0584 e225       | %  |		Load	0x1,0x25
0585 022f       | /  |		Execute	Access,Equal
0586 7009       |p   |		Jump_Nonzero	0x590
0587 4801       |H   |		Short_Literal	0x1
0588 e5fe       |    |		Load	0x2,-0x2
0589 e5ff       |    |		Load	0x2,-0x1
058a e003       |    |		Load	0x0,0x3
058b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
058c e003       |    |		Load	0x0,0x3
058d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
058e 0f00       |    |		Execute_Immediate	Equal,0x0
058f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0590 4800       |H   |		Short_Literal	0x0
0591 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0592 0000 0000  |    |		.BLANK	0000[0x6]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05a1       |    |		.CONST	0x05a1								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0004       |    |		.CONST	0x0004								; Number of locals
059b			INIT_0598:
059b e5fa       |    |		Load	0x2,-0x6
059c 0007       |    |		Action	Break_Optional
059d e003       |    |		Load	0x0,0x3
059e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
059f 029f 0eb3  |    |		Declare_Subprogram	INIT_0eb0,For_Call
05a1			BODY_0598:
05a1 00da       |    |		Load_Top	At_Offset_2
05a2 e225       | %  |		Load	0x1,0x25
05a3 022f       | /  |		Execute	Access,Equal
05a4 6804       |h   |		Jump_Zero	0x5a9
05a5 4865       |He  |		Short_Literal	0x65
05a6 e003       |    |		Load	0x0,0x3
05a7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05a8 003b       | ;  |		Store_Top	Access,At_Offset_3
05a9 00cf       |    |		Action	Mark_Auxiliary
05aa 7802       |x   |		Jump	0x5ad
05ab 8404       |    |		Call	0x2,0x4
05ac 00c9       |    |		Action	Pop_Auxiliary_Loop
05ad e5fb       |    |		Load	0x2,-0x5
05ae 85fe       |    |		Call	0x2,-0x2
05af 6ffb       |o   |		Jump_Zero	0x5ab
05b0 00ce       |    |		Action	Pop_Auxiliary
05b1 00da       |    |		Load_Top	At_Offset_2
05b2 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
05b3 0000 0000  |    |		.BLANK	0000[0x5]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05c1       |    |		.CONST	0x05c1								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0003       |    |		.CONST	0x0003								; Number of locals
05bb			INIT_05b8:
05bb 00da       |    |		Load_Top	At_Offset_2
05bc 01dd       |    |		Execute	Vector,First
05bd 00e2       |    |		Load_Encached	Integer_Cache
05be 03f1       |    |		Declare_Variable	Discrete,With_Value
05bf 00e2       |    |		Load_Encached	Integer_Cache
05c0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05c1			BODY_05b8:
05c1 00cf       |    |		Action	Mark_Auxiliary
05c2 e5ff       |    |		Load	0x2,-0x1
05c3 01d9       |    |		Execute	Vector,Reverse_Bounds
05c4 0263       | c  |		Execute	Discrete,Above_Bound
05c5 701f       |p   |		Jump_Nonzero	0x5e5
05c6 00d8       |    |		Load_Top	At_Offset_0
05c7 e5ff       |    |		Load	0x2,-0x1
05c8 01d7       |    |		Execute	Vector,Field_Read
05c9 0f20       |    |		Execute_Immediate	Equal,0x20
05ca 6818       |h   |		Jump_Zero	0x5e3
05cb e402       |    |		Load	0x2,0x2
05cc 00d9       |    |		Load_Top	At_Offset_1
05cd 027f       |    |		Execute	Discrete,Equal
05ce 6804       |h   |		Jump_Zero	0x5d3
05cf 00d8       |    |		Load_Top	At_Offset_0
05d0 0a01       |    |		Execute_Immediate	Plus,0x1
05d1 c402       |    |		Store	0x2,0x2
05d2 7810       |x   |		Jump	0x5e3
05d3 00db       |    |		Load_Top	At_Offset_3
05d4 0a01       |    |		Execute_Immediate	Plus,0x1
05d5 c403       |    |		Store	0x2,0x3
05d6 00db       |    |		Load_Top	At_Offset_3
05d7 e5fe       |    |		Load	0x2,-0x2
05d8 027f       |    |		Execute	Discrete,Equal
05d9 6806       |h   |		Jump_Zero	0x5e0
05da e402       |    |		Load	0x2,0x2
05db 00d9       |    |		Load_Top	At_Offset_1
05dc 0aff       |    |		Execute_Immediate	Plus,-0x1
05dd e5ff       |    |		Load	0x2,-0x1
05de 01cf       |    |		Execute	Vector,Slice_Read
05df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e0 00d8       |    |		Load_Top	At_Offset_0
05e1 0a01       |    |		Execute_Immediate	Plus,0x1
05e2 c402       |    |		Store	0x2,0x2
05e3 00c8       |    |		Action	Pop_Auxiliary_Range
05e4 3fe1       |?   |		Loop_Increasing	0x5c6
05e5 00ce       |    |		Action	Pop_Auxiliary
05e6 00d8       |    |		Load_Top	At_Offset_0
05e7 0a01       |    |		Execute_Immediate	Plus,0x1
05e8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
05e9 00d8       |    |		Load_Top	At_Offset_0
05ea e5fe       |    |		Load	0x2,-0x2
05eb 027f       |    |		Execute	Discrete,Equal
05ec 6806       |h   |		Jump_Zero	0x5f3
05ed 00d9       |    |		Load_Top	At_Offset_1
05ee e5ff       |    |		Load	0x2,-0x1
05ef 01dc       |    |		Execute	Vector,Last
05f0 e5ff       |    |		Load	0x2,-0x1
05f1 01cf       |    |		Execute	Vector,Slice_Read
05f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f3 00ea       |    |		Load_Encached	Null_String_Cache
05f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f5 0000 0000  |    |		.XXX[0x3]
05f7 0000       |    |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 4800       |H   |		Short_Literal	0x0
05fc 4801       |H   |		Short_Literal	0x1
05fd 4803       |H   |		Short_Literal	0x3
05fe e5ff       |    |		Load	0x2,-0x1
05ff e02a       | *  |		Load	0x0,0x2a
0600 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0601 e02a       | *  |		Load	0x0,0x2a
0602 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0603 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0604 0000 0000  |    |		.BLANK	0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 061c       |    |		.CONST	0x061c								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0002       |    |		.CONST	0x0002								; Number of locals
060b			INIT_0608:
060b 4801       |H   |		Short_Literal	0x1
060c 4820       |H   |		Short_Literal	0x20
060d 00e9       |    |		Load_Encached	String_Cache
060e 035b       | [  |		Declare_Type	Array,Constrained
060f 0337       | 7  |		Declare_Variable	Array
0610 00d8       |    |		Load_Top	At_Offset_0
0611 0335       | 5  |		Declare_Variable	Array,Duplicate
0612 00cd       |    |		Action	Spare6_Action
0613 4820       |H   |		Short_Literal	0x20
0614 4801       |H   |		Short_Literal	0x1
0615 4820       |H   |		Short_Literal	0x20
0616 00d9       |    |		Load_Top	At_Offset_1
0617 e403       |    |		Load	0x2,0x3
0618 01d6       |    |		Execute	Vector,Field_Write
0619 3ffb       |?   |		Loop_Increasing	0x615
061a 00d9       |    |		Load_Top	At_Offset_1
061b 01d4       |    |		Execute	Vector,Structure_Write
061c			BODY_0608:
061c e5fe       |    |		Load	0x2,-0x2
061d 01db       |    |		Execute	Vector,Length
061e 6803       |h   |		Jump_Zero	0x622
061f e5fe       |    |		Load	0x2,-0x2
0620 e015       |    |		Load	0x0,0x15
0621 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0622 00db       |    |		Load_Top	At_Offset_3
0623 802b       | +  |		Call	0x0,0x2b
0624 6804       |h   |		Jump_Zero	0x629
0625 482a       |H*  |		Short_Literal	0x2a
0626 e015       |    |		Load	0x0,0x15
0627 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0628 7803       |x   |		Jump	0x62c
0629 4820       |H   |		Short_Literal	0x20
062a e015       |    |		Load	0x0,0x15
062b 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
062c 480a       |H   |		Short_Literal	0xa
062d 4805       |H   |		Short_Literal	0x5
062e e5ff       |    |		Load	0x2,-0x1
062f 802c       | ,  |		Call	0x0,0x2c
0630 e015       |    |		Load	0x0,0x15
0631 186c       | l  |		Execute	Package,Field_Execute,Field_Number 0x6c
0632 0092 101e  |    |		Action	Push_String_Extended,0x101e					; ": "
0634 e015       |    |		Load	0x0,0x15
0635 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0636 e5fd       |    |		Load	0x2,-0x3
0637 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0638 e023       | #  |		Load	0x0,0x23
0639 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
063a 4801       |H   |		Short_Literal	0x1
063b e5fd       |    |		Load	0x2,-0x3
063c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
063d e023       | #  |		Load	0x0,0x23
063e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
063f 00db       |    |		Load_Top	At_Offset_3
0640 01ce       |    |		Execute	Vector,Slice_Write
0641 00d8       |    |		Load_Top	At_Offset_0
0642 e015       |    |		Load	0x0,0x15
0643 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0644 480a       |H   |		Short_Literal	0xa
0645 4808       |H   |		Short_Literal	0x8
0646 e5fd       |    |		Load	0x2,-0x3
0647 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0648 e015       |    |		Load	0x0,0x15
0649 186c       | l  |		Execute	Package,Field_Execute,Field_Number 0x6c
064a 4820       |H   |		Short_Literal	0x20
064b e015       |    |		Load	0x0,0x15
064c 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
064d e5fd       |    |		Load	0x2,-0x3
064e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
064f 8229       | )  |		Call	0x1,0x29
0650 e015       |    |		Load	0x0,0x15
0651 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0652 4820       |H   |		Short_Literal	0x20
0653 e015       |    |		Load	0x0,0x15
0654 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0655 e5fd       |    |		Load	0x2,-0x3
0656 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0657 e220       |    |		Load	0x1,0x20
0658 01d7       |    |		Execute	Vector,Field_Read
0659 e015       |    |		Load	0x0,0x15
065a 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
065b e5fd       |    |		Load	0x2,-0x3
065c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
065d e222       | "  |		Load	0x1,0x22
065e 01d7       |    |		Execute	Vector,Field_Read
065f e015       |    |		Load	0x0,0x15
0660 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0661 4801       |H   |		Short_Literal	0x1
0662 e015       |    |		Load	0x0,0x15
0663 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0664 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0665 0000 0000  |    |		.XXX[0x3]
0667 0000       |    |
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b       | k  |		.CONST	0x066b								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			BODY_0668:
066b			INIT_0668:
066b 00db       |    |		Load_Top	At_Offset_3
066c 00ea       |    |		Load_Encached	Null_String_Cache
066d e5ff       |    |		Load	0x2,-0x1
066e 822a       | *  |		Call	0x1,0x2a
066f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 067a       | z  |		.CONST	0x067a								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0002       |    |		.CONST	0x0002								; Number of locals
0673			INIT_0670:
0673 4801       |H   |		Short_Literal	0x1
0674 00db       |    |		Load_Top	At_Offset_3
0675 483a       |H:  |		Short_Literal	0x3a
0676 e01d       |    |		Load	0x0,0x1d
0677 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0678 00e2       |    |		Load_Encached	Integer_Cache
0679 03f1       |    |		Declare_Variable	Discrete,With_Value
067a			BODY_0670:
067a 00d8       |    |		Load_Top	At_Offset_0
067b 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
067c 6811       |h   |		Jump_Zero	0x68e
067d 4820       |H   |		Short_Literal	0x20
067e 00d9       |    |		Load_Top	At_Offset_1
067f 0a01       |    |		Execute_Immediate	Plus,0x1
0680 00d8       |    |		Load_Top	At_Offset_0
0681 00e2       |    |		Load_Encached	Integer_Cache
0682 0260       | `  |		Execute	Discrete,In_Type
0683 7001       |p   |		Jump_Nonzero	0x685
0684 0801       |    |		Execute_Immediate	Raise,0x1
0685 e5ff       |    |		Load	0x2,-0x1
0686 01dc       |    |		Execute	Vector,Last
0687 e5ff       |    |		Load	0x2,-0x1
0688 01cf       |    |		Execute	Vector,Slice_Read
0689 e01d       |    |		Load	0x0,0x1d
068a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
068b e01d       |    |		Load	0x0,0x1d
068c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
068d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
068e 0092 101b  |    |		Action	Push_String_Extended,0x101b					; "?"
0690 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0691 0000 0000  |    |		.BLANK	0000[0x7]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069f       |    |		.CONST	0x069f								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0002       |    |		.CONST	0x0002								; Number of locals
069b			INIT_0698:
069b 00da       |    |		Load_Top	At_Offset_2
069c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
069d e023       | #  |		Load	0x0,0x23
069e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
069f			BODY_0698:
069f 00d8       |    |		Load_Top	At_Offset_0
06a0 e5fe       |    |		Load	0x2,-0x2
06a1 e02d       | -  |		Load	0x0,0x2d
06a2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
06a3 6805       |h   |		Jump_Zero	0x6a9
06a4 00d8       |    |		Load_Top	At_Offset_0
06a5 e5fd       |    |		Load	0x2,-0x3
06a6 e02d       | -  |		Load	0x0,0x2d
06a7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
06a8 6804       |h   |		Jump_Zero	0x6ad
06a9 e5fc       |    |		Load	0x2,-0x4
06aa 00d9       |    |		Load_Top	At_Offset_1
06ab 8226       | &  |		Call	0x1,0x26
06ac 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
06ad 4801       |H   |		Short_Literal	0x1
06ae 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
06af 0000       |    |		.XXX[0x1]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06ba       |    |		.CONST	0x06ba								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0002       |    |		.CONST	0x0002								; Number of locals
06b3			INIT_06b0:
06b3 4801       |H   |		Short_Literal	0x1
06b4 00db       |    |		Load_Top	At_Offset_3
06b5 483a       |H:  |		Short_Literal	0x3a
06b6 e01d       |    |		Load	0x0,0x1d
06b7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06b8 00e2       |    |		Load_Encached	Integer_Cache
06b9 03f1       |    |		Declare_Variable	Discrete,With_Value
06ba			BODY_06b0:
06ba 00d8       |    |		Load_Top	At_Offset_0
06bb 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
06bc 680c       |h   |		Jump_Zero	0x6c9
06bd 00db       |    |		Load_Top	At_Offset_3
06be 01dd       |    |		Execute	Vector,First
06bf 00d9       |    |		Load_Top	At_Offset_1
06c0 0aff       |    |		Execute_Immediate	Plus,-0x1
06c1 00d8       |    |		Load_Top	At_Offset_0
06c2 00e2       |    |		Load_Encached	Integer_Cache
06c3 0260       | `  |		Execute	Discrete,In_Type
06c4 7001       |p   |		Jump_Nonzero	0x6c6
06c5 0801       |    |		Execute_Immediate	Raise,0x1
06c6 e5ff       |    |		Load	0x2,-0x1
06c7 01cf       |    |		Execute	Vector,Slice_Read
06c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06c9 00db       |    |		Load_Top	At_Offset_3
06ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06cb 0000 0000  |    |		.BLANK	0000[0x5]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06e9       |    |		.CONST	0x06e9								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0009       |    |		.CONST	0x0009								; Number of locals
06d3			INIT_06d0:
06d3 e5fc       |    |		Load	0x2,-0x4
06d4 822c       | ,  |		Call	0x1,0x2c
06d5 e007       |    |		Load	0x0,0x7
06d6 0007       |    |		Action	Break_Optional
06d7 e002       |    |		Load	0x0,0x2
06d8 0322       | "  |		Declare_Variable	Record
06d9 00d8       |    |		Load_Top	At_Offset_0
06da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06db e02e       | .  |		Load	0x0,0x2e
06dc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06dd 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
06de 02c7       |    |		Declare_Variable	Any
06df 00d8       |    |		Load_Top	At_Offset_0
06e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06e1 e02e       | .  |		Load	0x0,0x2e
06e2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06e3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06e4 00e3       |    |		Load_Encached	Natural_Cache
06e5 029f 0ecb  |    |		Declare_Subprogram	INIT_0ec8,For_Call
06e7 029f 0ee3  |    |		Declare_Subprogram	INIT_0ee0,For_Call
06e9			BODY_06d0:
06e9 e02e       | .  |		Load	0x0,0x2e
06ea 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06eb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06ec e405       |    |		Load	0x2,0x5
06ed 6072       |`r  |		Indirect_Literal	Discrete,0x760,{0x00000000, 0x00004000}
06ee e02f       | /  |		Load	0x0,0x2f
06ef 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06f0 e030       | 0  |		Load	0x0,0x30
06f1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06f2 e031       | 1  |		Load	0x0,0x31
06f3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06f4 4801       |H   |		Short_Literal	0x1
06f5 4800       |H   |		Short_Literal	0x0
06f6 e030       | 0  |		Load	0x0,0x30
06f7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06f8 e02e       | .  |		Load	0x0,0x2e
06f9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06fa 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06fb e5fc       |    |		Load	0x2,-0x4
06fc 822e       | .  |		Call	0x1,0x2e
06fd e02e       | .  |		Load	0x0,0x2e
06fe 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06ff 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0700 c405       |    |		Store	0x2,0x5
0701 c406       |    |		Store	0x2,0x6
0702 00cf       |    |		Action	Mark_Auxiliary
0703 7853       |xS  |		Jump	0x757
0704 e007       |    |		Load	0x0,0x7
0705 4800       |H   |		Short_Literal	0x0
0706 e405       |    |		Load	0x2,0x5
0707 e02e       | .  |		Load	0x0,0x2e
0708 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0709 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
070a 8008       |    |		Call	0x0,0x8
070b c403       |    |		Store	0x2,0x3
070c e403       |    |		Load	0x2,0x3
070d 8009       |    |		Call	0x0,0x9
070e 6842       |hB  |		Jump_Zero	0x751
070f e5fe       |    |		Load	0x2,-0x2
0710 01db       |    |		Execute	Vector,Length
0711 680a       |h   |		Jump_Zero	0x71c
0712 4820       |H   |		Short_Literal	0x20
0713 e5fe       |    |		Load	0x2,-0x2
0714 01cb       |    |		Execute	Vector,Append
0715 e405       |    |		Load	0x2,0x5
0716 e02e       | .  |		Load	0x0,0x2e
0717 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0718 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0719 01cc       |    |		Execute	Vector,Catenate
071a e015       |    |		Load	0x0,0x15
071b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
071c 00cf       |    |		Action	Mark_Auxiliary
071d 782b       |x+  |		Jump	0x749
071e e404       |    |		Load	0x2,0x4
071f e5f9       |    |		Load	0x2,-0x7
0720 e402       |    |		Load	0x2,0x2
0721 e403       |    |		Load	0x2,0x3
0722 8032       | 2  |		Call	0x0,0x32
0723 00d1       |    |		Pop_Control	Pop_Count_1
0724 e404       |    |		Load	0x2,0x4
0725 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0726 e023       | #  |		Load	0x0,0x23
0727 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0728 e5fb       |    |		Load	0x2,-0x5
0729 e02d       | -  |		Load	0x0,0x2d
072a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
072b 701a       |p   |		Jump_Nonzero	0x746
072c e403       |    |		Load	0x2,0x3
072d 802c       | ,  |		Call	0x0,0x2c
072e c407       |    |		Store	0x2,0x7
072f e404       |    |		Load	0x2,0x4
0730 e403       |    |		Load	0x2,0x3
0731 85fd       |    |		Call	0x2,-0x3
0732 00d1       |    |		Pop_Control	Pop_Count_1
0733 e5fa       |    |		Load	0x2,-0x6
0734 6811       |h   |		Jump_Zero	0x746
0735 e404       |    |		Load	0x2,0x4
0736 8408       |    |		Call	0x2,0x8
0737 680e       |h   |		Jump_Zero	0x746
0738 e403       |    |		Load	0x2,0x3
0739 8011       |    |		Call	0x0,0x11
073a e407       |    |		Load	0x2,0x7
073b e403       |    |		Load	0x2,0x3
073c 8409       |    |		Call	0x2,0x9
073d e407       |    |		Load	0x2,0x7
073e 0a01       |    |		Execute_Immediate	Plus,0x1
073f 00d8       |    |		Load_Top	At_Offset_0
0740 00e2       |    |		Load_Encached	Integer_Cache
0741 0260       | `  |		Execute	Discrete,In_Type
0742 7001       |p   |		Jump_Nonzero	0x744
0743 0801       |    |		Execute_Immediate	Raise,0x1
0744 e403       |    |		Load	0x2,0x3
0745 8033       | 3  |		Call	0x0,0x33
0746 e403       |    |		Load	0x2,0x3
0747 8011       |    |		Call	0x0,0x11
0748 00c9       |    |		Action	Pop_Auxiliary_Loop
0749 e403       |    |		Load	0x2,0x3
074a 8034       | 4  |		Call	0x0,0x34
074b 6fd2       |o   |		Jump_Zero	0x71e
074c 00ce       |    |		Action	Pop_Auxiliary
074d e403       |    |		Load	0x2,0x3
074e 4801       |H   |		Short_Literal	0x1
074f 8014       |    |		Call	0x0,0x14
0750 c403       |    |		Store	0x2,0x3
0751 e405       |    |		Load	0x2,0x5
0752 e02e       | .  |		Load	0x0,0x2e
0753 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0754 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0755 c405       |    |		Store	0x2,0x5
0756 00c9       |    |		Action	Pop_Auxiliary_Loop
0757 e405       |    |		Load	0x2,0x5
0758 e02e       | .  |		Load	0x0,0x2e
0759 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
075a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
075b 6fa8       |o   |		Jump_Zero	0x704
075c 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
075d 0000 0000  |    |		.XXX[0x3]
075f 0000       |    |
0760 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0764 0000 0000  |    |		.BLANK	0000[0x4]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 077f       |    |		.CONST	0x077f								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0008       |    |		.CONST	0x0008								; Number of locals
076b			INIT_0768:
076b 00da       |    |		Load_Top	At_Offset_2
076c 822c       | ,  |		Call	0x1,0x2c
076d e02e       | .  |		Load	0x0,0x2e
076e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
076f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0770 02c7       |    |		Declare_Variable	Any
0771 00d8       |    |		Load_Top	At_Offset_0
0772 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0773 e02e       | .  |		Load	0x0,0x2e
0774 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0775 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0776 e007       |    |		Load	0x0,0x7
0777 0007       |    |		Action	Break_Optional
0778 e002       |    |		Load	0x0,0x2
0779 0322       | "  |		Declare_Variable	Record
077a 00d8       |    |		Load_Top	At_Offset_0
077b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
077c 00e2       |    |		Load_Encached	Integer_Cache
077d 00e2       |    |		Load_Encached	Integer_Cache
077e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
077f			BODY_0768:
077f e02e       | .  |		Load	0x0,0x2e
0780 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0781 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0782 e403       |    |		Load	0x2,0x3
0783 67dc       |g   |		Indirect_Literal	Discrete,0x760,{0x00000000, 0x00004000}
0784 e02f       | /  |		Load	0x0,0x2f
0785 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0786 e030       | 0  |		Load	0x0,0x30
0787 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0788 e031       | 1  |		Load	0x0,0x31
0789 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
078a 4801       |H   |		Short_Literal	0x1
078b 4800       |H   |		Short_Literal	0x0
078c e030       | 0  |		Load	0x0,0x30
078d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
078e e02e       | .  |		Load	0x0,0x2e
078f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0790 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0791 e5ff       |    |		Load	0x2,-0x1
0792 822e       | .  |		Call	0x1,0x2e
0793 e02e       | .  |		Load	0x0,0x2e
0794 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0795 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0796 c403       |    |		Store	0x2,0x3
0797 c404       |    |		Store	0x2,0x4
0798 e5f9       |    |		Load	0x2,-0x7
0799 800b       |    |		Call	0x0,0xb
079a 7018       |p   |		Jump_Nonzero	0x7b3
079b e403       |    |		Load	0x2,0x3
079c e02e       | .  |		Load	0x0,0x2e
079d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
079e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
079f 7013       |p   |		Jump_Nonzero	0x7b3
07a0 e5fa       |    |		Load	0x2,-0x6
07a1 7011       |p   |		Jump_Nonzero	0x7b3
07a2 e5fb       |    |		Load	0x2,-0x5
07a3 6806       |h   |		Jump_Zero	0x7aa
07a4 e006       |    |		Load	0x0,0x6
07a5 4802       |H   |		Short_Literal	0x2
07a6 e5fe       |    |		Load	0x2,-0x2
07a7 800a       |    |		Call	0x0,0xa
07a8 c5f9       |    |		Store	0x2,-0x7
07a9 7805       |x   |		Jump	0x7af
07aa e006       |    |		Load	0x0,0x6
07ab 4801       |H   |		Short_Literal	0x1
07ac e5fe       |    |		Load	0x2,-0x2
07ad 800a       |    |		Call	0x0,0xa
07ae c5f9       |    |		Store	0x2,-0x7
07af e5f9       |    |		Load	0x2,-0x7
07b0 800b       |    |		Call	0x0,0xb
07b1 7001       |p   |		Jump_Nonzero	0x7b3
07b2 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
07b3 00cf       |    |		Action	Mark_Auxiliary
07b4 7843       |xC  |		Jump	0x7f8
07b5 e007       |    |		Load	0x0,0x7
07b6 4800       |H   |		Short_Literal	0x0
07b7 e403       |    |		Load	0x2,0x3
07b8 e02e       | .  |		Load	0x0,0x2e
07b9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07ba 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
07bb 8008       |    |		Call	0x0,0x8
07bc c405       |    |		Store	0x2,0x5
07bd e405       |    |		Load	0x2,0x5
07be 8009       |    |		Call	0x0,0x9
07bf 6832       |h2  |		Jump_Zero	0x7f2
07c0 00cf       |    |		Action	Mark_Auxiliary
07c1 7828       |x(  |		Jump	0x7ea
07c2 e406       |    |		Load	0x2,0x6
07c3 4800       |H   |		Short_Literal	0x0
07c4 e405       |    |		Load	0x2,0x5
07c5 800f       |    |		Call	0x0,0xf
07c6 00d1       |    |		Pop_Control	Pop_Count_1
07c7 e405       |    |		Load	0x2,0x5
07c8 8035       | 5  |		Call	0x0,0x35
07c9 681f       |h   |		Jump_Zero	0x7e9
07ca e225       | %  |		Load	0x1,0x25
07cb e5fd       |    |		Load	0x2,-0x3
07cc e402       |    |		Load	0x2,0x2
07cd e406       |    |		Load	0x2,0x6
07ce 822d       | -  |		Call	0x1,0x2d
07cf 6817       |h   |		Jump_Zero	0x7e7
07d0 e406       |    |		Load	0x2,0x6
07d1 e405       |    |		Load	0x2,0x5
07d2 822b       | +  |		Call	0x1,0x2b
07d3 00d1       |    |		Pop_Control	Pop_Count_1
07d4 e5fa       |    |		Load	0x2,-0x6
07d5 700c       |p   |		Jump_Nonzero	0x7e2
07d6 e406       |    |		Load	0x2,0x6
07d7 e5f9       |    |		Load	0x2,-0x7
07d8 800c       |    |		Call	0x0,0xc
07d9 00d1       |    |		Pop_Control	Pop_Count_1
07da 00e3       |    |		Load_Encached	Natural_Cache
07db 6024       |`$  |		Indirect_Literal	Discrete,0x800,{0x00000000, 0x7fffffff}
07dc e5f9       |    |		Load	0x2,-0x7
07dd e405       |    |		Load	0x2,0x5
07de 8036       | 6  |		Call	0x0,0x36
07df c407       |    |		Store	0x2,0x7
07e0 e5f9       |    |		Load	0x2,-0x7
07e1 8012       |    |		Call	0x0,0x12
07e2 00da       |    |		Load_Top	At_Offset_2
07e3 e406       |    |		Load	0x2,0x6
07e4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07e5 0273       | s  |		Execute	Discrete,Plus
07e6 005b       | [  |		Store_Top	Discrete,At_Offset_3
07e7 e405       |    |		Load	0x2,0x5
07e8 8011       |    |		Call	0x0,0x11
07e9 00c9       |    |		Action	Pop_Auxiliary_Loop
07ea e405       |    |		Load	0x2,0x5
07eb 8034       | 4  |		Call	0x0,0x34
07ec 6fd5       |o   |		Jump_Zero	0x7c2
07ed 00ce       |    |		Action	Pop_Auxiliary
07ee e405       |    |		Load	0x2,0x5
07ef 4801       |H   |		Short_Literal	0x1
07f0 8014       |    |		Call	0x0,0x14
07f1 c405       |    |		Store	0x2,0x5
07f2 e403       |    |		Load	0x2,0x3
07f3 e02e       | .  |		Load	0x0,0x2e
07f4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07f5 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
07f6 c403       |    |		Store	0x2,0x3
07f7 00c9       |    |		Action	Pop_Auxiliary_Loop
07f8 e403       |    |		Load	0x2,0x3
07f9 e02e       | .  |		Load	0x0,0x2e
07fa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07fb 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
07fc 6fb8       |o   |		Jump_Zero	0x7b5
07fd 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
07fe 0000 0000  |    |		.XXX[0x2]
0800 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0804 0000 0000  |    |		.BLANK	0000[0x4]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 0813       |    |		.CONST	0x0813								; Address of begin
0809 0004       |    |		.CONST	0x0004								; Address of exception handler
080a 0002       |    |		.CONST	0x0002								; Number of locals
080b			INIT_0808:
080b 4801       |H   |		Short_Literal	0x1
080c 00db       |    |		Load_Top	At_Offset_3
080d 0092 101f  |    |		Action	Push_String_Extended,0x101f					; "--"
080f e01d       |    |		Load	0x0,0x1d
0810 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0811 00e2       |    |		Load_Encached	Integer_Cache
0812 03f1       |    |		Declare_Variable	Discrete,With_Value
0813			BODY_0808:
0813 00d8       |    |		Load_Top	At_Offset_0
0814 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0815 680f       |h   |		Jump_Zero	0x825
0816 4820       |H   |		Short_Literal	0x20
0817 e5ff       |    |		Load	0x2,-0x1
0818 01dd       |    |		Execute	Vector,First
0819 00da       |    |		Load_Top	At_Offset_2
081a 0aff       |    |		Execute_Immediate	Plus,-0x1
081b 00d8       |    |		Load_Top	At_Offset_0
081c 00e2       |    |		Load_Encached	Integer_Cache
081d 0260       | `  |		Execute	Discrete,In_Type
081e 7001       |p   |		Jump_Nonzero	0x820
081f 0801       |    |		Execute_Immediate	Raise,0x1
0820 e5ff       |    |		Load	0x2,-0x1
0821 01cf       |    |		Execute	Vector,Slice_Read
0822 e01d       |    |		Load	0x0,0x1d
0823 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0824 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0825 4820       |H   |		Short_Literal	0x20
0826 e5ff       |    |		Load	0x2,-0x1
0827 e01d       |    |		Load	0x0,0x1d
0828 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0829 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
082a 0000 0000  |    |		.BLANK	0000[0x6]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0864       | d  |		.CONST	0x0864								; Address of begin
0831 0004       |    |		.CONST	0x0004								; Address of exception handler
0832 0011       |    |		.CONST	0x0011								; Number of locals
0833			INIT_0830:
0833 4801       |H   |		Short_Literal	0x1
0834 00db       |    |		Load_Top	At_Offset_3
0835 482f       |H/  |		Short_Literal	0x2f
0836 e01d       |    |		Load	0x0,0x1d
0837 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0838 00e2       |    |		Load_Encached	Integer_Cache
0839 03f1       |    |		Declare_Variable	Discrete,With_Value
083a 4801       |H   |		Short_Literal	0x1
083b 6080       |`   |		Indirect_Literal	Discrete,0x8bc,{0x00000000, 0x00000bb8}
083c e224       | $  |		Load	0x1,0x24
083d 035b       | [  |		Declare_Type	Array,Constrained
083e 0337       | 7  |		Declare_Variable	Array
083f 00d8       |    |		Load_Top	At_Offset_0
0840 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0841 00e2       |    |		Load_Encached	Integer_Cache
0842 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0843 029f 0f63  |   c|		Declare_Subprogram	INIT_0f60,For_Call
0845 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0846 00c6       |    |		Action	Check_Subprogram_Elaborated
0847 4805       |H   |		Short_Literal	0x5
0848 4802       |H   |		Short_Literal	0x2
0849 0099       |    |		Action	Reference_Dynamic
084a 0092 1020  |    |		Action	Push_String_Extended,0x1020					; "Collecting file data from"
084c 0093 0000  |    |		push_full_address	0x0
084e 6069       |`i  |		Indirect_Literal	Discrete,0x8b8,{0x80000000, 0x00120000}
084f 0273       | s  |		Execute	Discrete,Plus
0850 e004       |    |		Load	0x0,0x4
0851 0273       | s  |		Execute	Discrete,Plus
0852 e037       | 7  |		Load	0x0,0x37
0853 0273       | s  |		Execute	Discrete,Plus
0854 4809       |H   |		Short_Literal	0x9
0855 0007       |    |		Action	Break_Optional
0856 029f 0f7b  |   {|		Declare_Subprogram	INIT_0f78,For_Call
0858 a038       | 8  |		Store_Unchecked	0x0,0x38
0859 00c6       |    |		Action	Check_Subprogram_Elaborated
085a e223       | #  |		Load	0x1,0x23
085b 00e4       |    |		Load_Encached	Positive_Cache
085c e224       | $  |		Load	0x1,0x24
085d 480a       |H   |		Short_Literal	0xa
085e 4802       |H   |		Short_Literal	0x2
085f 0099       |    |		Action	Reference_Dynamic
0860 e039       | 9  |		Load	0x0,0x39
0861 e03a       | :  |		Load	0x0,0x3a
0862 4811       |H   |		Short_Literal	0x11
0863 0007       |    |		Action	Break_Optional
0864			BODY_0830:
0864 e402       |    |		Load	0x2,0x2
0865 700d       |p   |		Jump_Nonzero	0x873
0866 e5fd       |    |		Load	0x2,-0x3
0867 e5fe       |    |		Load	0x2,-0x2
0868 00ea       |    |		Load_Encached	Null_String_Cache
0869 e5ff       |    |		Load	0x2,-0x1
086a 4806       |H   |		Short_Literal	0x6
086b 4802       |H   |		Short_Literal	0x2
086c 0099       |    |		Action	Reference_Dynamic
086d e407       |    |		Load	0x2,0x7
086e 4808       |H   |		Short_Literal	0x8
086f 4802       |H   |		Short_Literal	0x2
0870 0099       |    |		Action	Reference_Dynamic
0871 822f       | /  |		Call	0x1,0x2f
0872 7820       |x   |		Jump	0x893
0873 e5fd       |    |		Load	0x2,-0x3
0874 e5fe       |    |		Load	0x2,-0x2
0875 e402       |    |		Load	0x2,0x2
0876 0a01       |    |		Execute_Immediate	Plus,0x1
0877 00d8       |    |		Load_Top	At_Offset_0
0878 00e2       |    |		Load_Encached	Integer_Cache
0879 0260       | `  |		Execute	Discrete,In_Type
087a 7001       |p   |		Jump_Nonzero	0x87c
087b 0801       |    |		Execute_Immediate	Raise,0x1
087c e5ff       |    |		Load	0x2,-0x1
087d 01dc       |    |		Execute	Vector,Last
087e e5ff       |    |		Load	0x2,-0x1
087f 01cf       |    |		Execute	Vector,Slice_Read
0880 e5ff       |    |		Load	0x2,-0x1
0881 01dd       |    |		Execute	Vector,First
0882 e402       |    |		Load	0x2,0x2
0883 0aff       |    |		Execute_Immediate	Plus,-0x1
0884 00d8       |    |		Load_Top	At_Offset_0
0885 00e2       |    |		Load_Encached	Integer_Cache
0886 0260       | `  |		Execute	Discrete,In_Type
0887 7001       |p   |		Jump_Nonzero	0x889
0888 0801       |    |		Execute_Immediate	Raise,0x1
0889 e5ff       |    |		Load	0x2,-0x1
088a 01cf       |    |		Execute	Vector,Slice_Read
088b 4806       |H   |		Short_Literal	0x6
088c 4802       |H   |		Short_Literal	0x2
088d 0099       |    |		Action	Reference_Dynamic
088e e407       |    |		Load	0x2,0x7
088f 4808       |H   |		Short_Literal	0x8
0890 4802       |H   |		Short_Literal	0x2
0891 0099       |    |		Action	Reference_Dynamic
0892 822f       | /  |		Call	0x1,0x2f
0893 4820       |H   |		Short_Literal	0x20
0894 4800       |H   |		Short_Literal	0x0
0895 480a       |H   |		Short_Literal	0xa
0896 e404       |    |		Load	0x2,0x4
0897 e01d       |    |		Load	0x0,0x1d
0898 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0899 0092 1021  |   !|		Action	Push_String_Extended,0x1021					; " files selected."
089b 01cc       |    |		Execute	Vector,Catenate
089c e015       |    |		Load	0x0,0x15
089d 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
089e e403       |    |		Load	0x2,0x3
089f 4801       |H   |		Short_Literal	0x1
08a0 e404       |    |		Load	0x2,0x4
08a1 00da       |    |		Load_Top	At_Offset_2
08a2 035b       | [  |		Declare_Type	Array,Constrained
08a3 00d0       |    |		Action	Swap_Control
08a4 01cd       |    |		Execute	Vector,Slice_Reference
08a5 00d8       |    |		Load_Top	At_Offset_0
08a6 e40b       |    |		Load	0x2,0xb
08a7 e40c       |    |		Load	0x2,0xc
08a8 e40d       |    |		Load	0x2,0xd
08a9 480e       |H   |		Short_Literal	0xe
08aa 4802       |H   |		Short_Literal	0x2
08ab 0099       |    |		Action	Reference_Dynamic
08ac 480f       |H   |		Short_Literal	0xf
08ad 4802       |H   |		Short_Literal	0x2
08ae 0099       |    |		Action	Reference_Dynamic
08af 8038       | 8  |		Call	0x0,0x38
08b0 00d2       |    |		Pop_Control	Pop_Count_2
08b1 4801       |H   |		Short_Literal	0x1
08b2 e404       |    |		Load	0x2,0x4
08b3 e403       |    |		Load	0x2,0x3
08b4 01cf       |    |		Execute	Vector,Slice_Read
08b5 e224       | $  |		Load	0x1,0x24
08b6 01c6       |    |		Execute	Vector,Convert_To_Formal
08b7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
08b8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00120000}
08bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000bb8}
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08ca       |    |		.CONST	0x08ca								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0002       |    |		.CONST	0x0002								; Number of locals
08c3			INIT_08c0:
08c3 4801       |H   |		Short_Literal	0x1
08c4 00db       |    |		Load_Top	At_Offset_3
08c5 e5fe       |    |		Load	0x2,-0x2
08c6 e01d       |    |		Load	0x0,0x1d
08c7 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
08c8 00e2       |    |		Load_Encached	Integer_Cache
08c9 03f1       |    |		Declare_Variable	Discrete,With_Value
08ca			BODY_08c0:
08ca 00d8       |    |		Load_Top	At_Offset_0
08cb 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
08cc 681f       |h   |		Jump_Zero	0x8ec
08cd 00db       |    |		Load_Top	At_Offset_3
08ce 01dd       |    |		Execute	Vector,First
08cf 00d9       |    |		Load_Top	At_Offset_1
08d0 0aff       |    |		Execute_Immediate	Plus,-0x1
08d1 00d8       |    |		Load_Top	At_Offset_0
08d2 00e2       |    |		Load_Encached	Integer_Cache
08d3 0260       | `  |		Execute	Discrete,In_Type
08d4 7001       |p   |		Jump_Nonzero	0x8d6
08d5 0801       |    |		Execute_Immediate	Raise,0x1
08d6 e5ff       |    |		Load	0x2,-0x1
08d7 01cf       |    |		Execute	Vector,Slice_Read
08d8 e5fd       |    |		Load	0x2,-0x3
08d9 01cc       |    |		Execute	Vector,Catenate
08da e5fd       |    |		Load	0x2,-0x3
08db e5fe       |    |		Load	0x2,-0x2
08dc 00db       |    |		Load_Top	At_Offset_3
08dd e5fe       |    |		Load	0x2,-0x2
08de 01db       |    |		Execute	Vector,Length
08df 0273       | s  |		Execute	Discrete,Plus
08e0 00d8       |    |		Load_Top	At_Offset_0
08e1 00e2       |    |		Load_Encached	Integer_Cache
08e2 0260       | `  |		Execute	Discrete,In_Type
08e3 7001       |p   |		Jump_Nonzero	0x8e5
08e4 0801       |    |		Execute_Immediate	Raise,0x1
08e5 e5ff       |    |		Load	0x2,-0x1
08e6 01dc       |    |		Execute	Vector,Last
08e7 e5ff       |    |		Load	0x2,-0x1
08e8 01cf       |    |		Execute	Vector,Slice_Read
08e9 8237       | 7  |		Call	0x1,0x37
08ea 01cc       |    |		Execute	Vector,Catenate
08eb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
08ec 00db       |    |		Load_Top	At_Offset_3
08ed 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
08ee 0000 0000  |    |		.XXX[0x2]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08fa       |    |		.CONST	0x08fa								; Address of begin
08f1 0004       |    |		.CONST	0x0004								; Address of exception handler
08f2 0002       |    |		.CONST	0x0002								; Number of locals
08f3			INIT_08f0:
08f3 4801       |H   |		Short_Literal	0x1
08f4 00db       |    |		Load_Top	At_Offset_3
08f5 482e       |H.  |		Short_Literal	0x2e
08f6 e01d       |    |		Load	0x0,0x1d
08f7 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
08f8 00e2       |    |		Load_Encached	Integer_Cache
08f9 03f1       |    |		Declare_Variable	Discrete,With_Value
08fa			BODY_08f0:
08fa 00d8       |    |		Load_Top	At_Offset_0
08fb 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
08fc 681e       |h   |		Jump_Zero	0x91b
08fd 00d8       |    |		Load_Top	At_Offset_0
08fe 0a01       |    |		Execute_Immediate	Plus,0x1
08ff 00d8       |    |		Load_Top	At_Offset_0
0900 00e2       |    |		Load_Encached	Integer_Cache
0901 0260       | `  |		Execute	Discrete,In_Type
0902 7001       |p   |		Jump_Nonzero	0x904
0903 0801       |    |		Execute_Immediate	Raise,0x1
0904 e5ff       |    |		Load	0x2,-0x1
0905 01dc       |    |		Execute	Vector,Last
0906 e5ff       |    |		Load	0x2,-0x1
0907 01cf       |    |		Execute	Vector,Slice_Read
0908 e5fe       |    |		Load	0x2,-0x2
0909 01cc       |    |		Execute	Vector,Catenate
090a e5fe       |    |		Load	0x2,-0x2
090b 0092 1022  |   "|		Action	Push_String_Extended,0x1022					; "."
090d e5ff       |    |		Load	0x2,-0x1
090e 01dd       |    |		Execute	Vector,First
090f e402       |    |		Load	0x2,0x2
0910 0aff       |    |		Execute_Immediate	Plus,-0x1
0911 00d8       |    |		Load_Top	At_Offset_0
0912 00e2       |    |		Load_Encached	Integer_Cache
0913 0260       | `  |		Execute	Discrete,In_Type
0914 7001       |p   |		Jump_Nonzero	0x916
0915 0801       |    |		Execute_Immediate	Raise,0x1
0916 e5ff       |    |		Load	0x2,-0x1
0917 01cf       |    |		Execute	Vector,Slice_Read
0918 8237       | 7  |		Call	0x1,0x37
0919 01cc       |    |		Execute	Vector,Catenate
091a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
091b 00db       |    |		Load_Top	At_Offset_3
091c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
091d 0000 0000  |    |		.XXX[0x3]
091f 0000       |    |
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 092a       | *  |		.CONST	0x092a								; Address of begin
0921 0004       |    |		.CONST	0x0004								; Address of exception handler
0922 0002       |    |		.CONST	0x0002								; Number of locals
0923			INIT_0920:
0923 4801       |H   |		Short_Literal	0x1
0924 00db       |    |		Load_Top	At_Offset_3
0925 e5fe       |    |		Load	0x2,-0x2
0926 e01d       |    |		Load	0x0,0x1d
0927 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0928 00e2       |    |		Load_Encached	Integer_Cache
0929 03f1       |    |		Declare_Variable	Discrete,With_Value
092a			BODY_0920:
092a 00d8       |    |		Load_Top	At_Offset_0
092b 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
092c 6820       |h   |		Jump_Zero	0x94d
092d 482e       |H.  |		Short_Literal	0x2e
092e 0092 1022  |   "|		Action	Push_String_Extended,0x1022					; "."
0930 e5fe       |    |		Load	0x2,-0x2
0931 00db       |    |		Load_Top	At_Offset_3
0932 e5fe       |    |		Load	0x2,-0x2
0933 01db       |    |		Execute	Vector,Length
0934 0273       | s  |		Execute	Discrete,Plus
0935 00d8       |    |		Load_Top	At_Offset_0
0936 00e2       |    |		Load_Encached	Integer_Cache
0937 0260       | `  |		Execute	Discrete,In_Type
0938 7001       |p   |		Jump_Nonzero	0x93a
0939 0801       |    |		Execute_Immediate	Raise,0x1
093a e5ff       |    |		Load	0x2,-0x1
093b 01dc       |    |		Execute	Vector,Last
093c e5ff       |    |		Load	0x2,-0x1
093d 01cf       |    |		Execute	Vector,Slice_Read
093e 8237       | 7  |		Call	0x1,0x37
093f 01cb       |    |		Execute	Vector,Append
0940 e5ff       |    |		Load	0x2,-0x1
0941 01dd       |    |		Execute	Vector,First
0942 00da       |    |		Load_Top	At_Offset_2
0943 0aff       |    |		Execute_Immediate	Plus,-0x1
0944 00d8       |    |		Load_Top	At_Offset_0
0945 00e2       |    |		Load_Encached	Integer_Cache
0946 0260       | `  |		Execute	Discrete,In_Type
0947 7001       |p   |		Jump_Nonzero	0x949
0948 0801       |    |		Execute_Immediate	Raise,0x1
0949 e5ff       |    |		Load	0x2,-0x1
094a 01cf       |    |		Execute	Vector,Slice_Read
094b 01cc       |    |		Execute	Vector,Catenate
094c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
094d 00db       |    |		Load_Top	At_Offset_3
094e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
094f 0000       |    |		.XXX[0x1]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 095a       | Z  |		.CONST	0x095a								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0002       |    |		.CONST	0x0002								; Number of locals
0953			INIT_0950:
0953 4801       |H   |		Short_Literal	0x1
0954 00db       |    |		Load_Top	At_Offset_3
0955 482e       |H.  |		Short_Literal	0x2e
0956 e01d       |    |		Load	0x0,0x1d
0957 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0958 00e2       |    |		Load_Encached	Integer_Cache
0959 03f1       |    |		Declare_Variable	Discrete,With_Value
095a			BODY_0950:
095a 00db       |    |		Load_Top	At_Offset_3
095b 01dd       |    |		Execute	Vector,First
095c e5ff       |    |		Load	0x2,-0x1
095d 01d7       |    |		Execute	Vector,Field_Read
095e 0f3a       | :  |		Execute_Immediate	Equal,0x3a
095f 6810       |h   |		Jump_Zero	0x970
0960 00d8       |    |		Load_Top	At_Offset_0
0961 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0962 680b       |h   |		Jump_Zero	0x96e
0963 4801       |H   |		Short_Literal	0x1
0964 0092 1023  |   #|		Action	Push_String_Extended,0x1023					; ".XFER"
0966 00da       |    |		Load_Top	At_Offset_2
0967 e5ff       |    |		Load	0x2,-0x1
0968 01dc       |    |		Execute	Vector,Last
0969 e5ff       |    |		Load	0x2,-0x1
096a 01cf       |    |		Execute	Vector,Slice_Read
096b e01d       |    |		Load	0x0,0x1d
096c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
096d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
096e 4800       |H   |		Short_Literal	0x0
096f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0970 00d8       |    |		Load_Top	At_Offset_0
0971 7004       |p   |		Jump_Nonzero	0x976
0972 00db       |    |		Load_Top	At_Offset_3
0973 01dd       |    |		Execute	Vector,First
0974 0aff       |    |		Execute_Immediate	Plus,-0x1
0975 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0976 00d8       |    |		Load_Top	At_Offset_0
0977 0a05       |    |		Execute_Immediate	Plus,0x5
0978 e5ff       |    |		Load	0x2,-0x1
0979 01dc       |    |		Execute	Vector,Last
097a 027c       | |  |		Execute	Discrete,Less
097b 6816       |h   |		Jump_Zero	0x992
097c 4801       |H   |		Short_Literal	0x1
097d 0092 1024  |   $|		Action	Push_String_Extended,0x1024					; "XFER_"
097f 00da       |    |		Load_Top	At_Offset_2
0980 0a01       |    |		Execute_Immediate	Plus,0x1
0981 00d8       |    |		Load_Top	At_Offset_0
0982 00e2       |    |		Load_Encached	Integer_Cache
0983 0260       | `  |		Execute	Discrete,In_Type
0984 7001       |p   |		Jump_Nonzero	0x986
0985 0801       |    |		Execute_Immediate	Raise,0x1
0986 00db       |    |		Load_Top	At_Offset_3
0987 0a05       |    |		Execute_Immediate	Plus,0x5
0988 00d8       |    |		Load_Top	At_Offset_0
0989 00e2       |    |		Load_Encached	Integer_Cache
098a 0260       | `  |		Execute	Discrete,In_Type
098b 7001       |p   |		Jump_Nonzero	0x98d
098c 0801       |    |		Execute_Immediate	Raise,0x1
098d e5ff       |    |		Load	0x2,-0x1
098e 01cf       |    |		Execute	Vector,Slice_Read
098f e01d       |    |		Load	0x0,0x1d
0990 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0991 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0992 4800       |H   |		Short_Literal	0x0
0993 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0994 0000 0000  |    |		.BLANK	0000[0x4]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 09b1       |    |		.CONST	0x09b1								; Address of begin
0999 0004       |    |		.CONST	0x0004								; Address of exception handler
099a 0005       |    |		.CONST	0x0005								; Number of locals
099b			INIT_0998:
099b e403       |    |		Load	0x2,0x3
099c e015       |    |		Load	0x0,0x15
099d 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
099e 8231       | 1  |		Call	0x1,0x31
099f 00d8       |    |		Load_Top	At_Offset_0
09a0 01dd       |    |		Execute	Vector,First
09a1 00e2       |    |		Load_Encached	Integer_Cache
09a2 03f1       |    |		Declare_Variable	Discrete,With_Value
09a3 4801       |H   |		Short_Literal	0x1
09a4 00da       |    |		Load_Top	At_Offset_2
09a5 483a       |H:  |		Short_Literal	0x3a
09a6 e01d       |    |		Load	0x0,0x1d
09a7 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
09a8 00e2       |    |		Load_Encached	Integer_Cache
09a9 03f1       |    |		Declare_Variable	Discrete,With_Value
09aa 4801       |H   |		Short_Literal	0x1
09ab 00db       |    |		Load_Top	At_Offset_3
09ac 482f       |H/  |		Short_Literal	0x2f
09ad e01d       |    |		Load	0x0,0x1d
09ae 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
09af 00e2       |    |		Load_Encached	Integer_Cache
09b0 03f1       |    |		Declare_Variable	Discrete,With_Value
09b1			BODY_0998:
09b1 00db       |    |		Load_Top	At_Offset_3
09b2 0092 1025  |   %|		Action	Push_String_Extended,0x1025					; "//"
09b4 01df       |    |		Execute	Vector,Equal
09b5 6807       |h   |		Jump_Zero	0x9bd
09b6 e402       |    |		Load	0x2,0x2
09b7 800b       |    |		Call	0x0,0xb
09b8 6803       |h   |		Jump_Zero	0x9bc
09b9 4802       |H   |		Short_Literal	0x2
09ba e402       |    |		Load	0x2,0x2
09bb 803b       | ;  |		Call	0x0,0x3b
09bc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09bd 00db       |    |		Load_Top	At_Offset_3
09be 01db       |    |		Execute	Vector,Length
09bf 6831       |h1  |		Jump_Zero	0x9f1
09c0 00da       |    |		Load_Top	At_Offset_2
09c1 e602       |    |		Load	0x3,0x2
09c2 01d7       |    |		Execute	Vector,Field_Read
09c3 0f2a       | *  |		Execute_Immediate	Equal,0x2a
09c4 a404       |    |		Store_Unchecked	0x2,0x4
09c5 e404       |    |		Load	0x2,0x4
09c6 6803       |h   |		Jump_Zero	0x9ca
09c7 00da       |    |		Load_Top	At_Offset_2
09c8 0a01       |    |		Execute_Immediate	Plus,0x1
09c9 005b       | [  |		Store_Top	Discrete,At_Offset_3
09ca 00d8       |    |		Load_Top	At_Offset_0
09cb 7004       |p   |		Jump_Nonzero	0x9d0
09cc 00db       |    |		Load_Top	At_Offset_3
09cd 01dc       |    |		Execute	Vector,Last
09ce 0a01       |    |		Execute_Immediate	Plus,0x1
09cf 0059       | Y  |		Store_Top	Discrete,At_Offset_1
09d0 e402       |    |		Load	0x2,0x2
09d1 e5fc       |    |		Load	0x2,-0x4
09d2 e5fd       |    |		Load	0x2,-0x3
09d3 e404       |    |		Load	0x2,0x4
09d4 4820       |H   |		Short_Literal	0x20
09d5 e605       |    |		Load	0x3,0x5
09d6 0a01       |    |		Execute_Immediate	Plus,0x1
09d7 00d8       |    |		Load_Top	At_Offset_0
09d8 00e2       |    |		Load_Encached	Integer_Cache
09d9 0260       | `  |		Execute	Discrete,In_Type
09da 7001       |p   |		Jump_Nonzero	0x9dc
09db 0801       |    |		Execute_Immediate	Raise,0x1
09dc e602       |    |		Load	0x3,0x2
09dd 01dc       |    |		Execute	Vector,Last
09de e602       |    |		Load	0x3,0x2
09df 01cf       |    |		Execute	Vector,Slice_Read
09e0 e01d       |    |		Load	0x0,0x1d
09e1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
09e2 e01d       |    |		Load	0x0,0x1d
09e3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
09e4 e5fe       |    |		Load	0x2,-0x2
09e5 e603       |    |		Load	0x3,0x3
09e6 e605       |    |		Load	0x3,0x5
09e7 0aff       |    |		Execute_Immediate	Plus,-0x1
09e8 00d8       |    |		Load_Top	At_Offset_0
09e9 00e2       |    |		Load_Encached	Integer_Cache
09ea 0260       | `  |		Execute	Discrete,In_Type
09eb 7001       |p   |		Jump_Nonzero	0x9ed
09ec 0801       |    |		Execute_Immediate	Raise,0x1
09ed e602       |    |		Load	0x3,0x2
09ee 01cf       |    |		Execute	Vector,Slice_Read
09ef 8230       | 0  |		Call	0x1,0x30
09f0 c402       |    |		Store	0x2,0x2
09f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09f2 0000 0000  |    |		.BLANK	0000[0x6]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fb       |    |		.CONST	0x09fb								; Address of begin
09f9 0004       |    |		.CONST	0x0004								; Address of exception handler
09fa 0001       |    |		.CONST	0x0001								; Number of locals
09fb			BODY_09f8:
09fb			INIT_09f8:
09fb 00db       |    |		Load_Top	At_Offset_3
09fc 00db       |    |		Load_Top	At_Offset_3
09fd 822b       | +  |		Call	0x1,0x2b
09fe 00d1       |    |		Pop_Control	Pop_Count_1
09ff 00cf       |    |		Action	Mark_Auxiliary
0a00 7805       |x   |		Jump	0xa06
0a01 00db       |    |		Load_Top	At_Offset_3
0a02 803c       | <  |		Call	0x0,0x3c
0a03 e015       |    |		Load	0x0,0x15
0a04 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a05 00c9       |    |		Action	Pop_Auxiliary_Loop
0a06 00db       |    |		Load_Top	At_Offset_3
0a07 803d       | =  |		Call	0x0,0x3d
0a08 6ff8       |o   |		Jump_Zero	0xa01
0a09 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a0a 0000 0000  |    |		.BLANK	0000[0x6]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a13       |    |		.CONST	0x0a13								; Address of begin
0a11 0004       |    |		.CONST	0x0004								; Address of exception handler
0a12 0001       |    |		.CONST	0x0001								; Number of locals
0a13			BODY_0a10:
0a13			INIT_0a10:
0a13 0092 1026  |   &|		Action	Push_String_Extended,0x1026					; "Version"
0a15 00db       |    |		Load_Top	At_Offset_3
0a16 00e0       |    |		Load_Encached	Standard_Cache
0a17 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0a18 01cc       |    |		Execute	Vector,Catenate
0a19 e015       |    |		Load	0x0,0x15
0a1a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a1b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a1c 0000 0000  |    |		.BLANK	0000[0x4]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; SUBPROGRAM
0a20 ; --------------------------------------------------------------------------------------
0a20 0a23       | #  |		.CONST	0x0a23								; Address of begin
0a21 0004       |    |		.CONST	0x0004								; Address of exception handler
0a22 0001       |    |		.CONST	0x0001								; Number of locals
0a23			BODY_0a20:
0a23			INIT_0a20:
0a23 0092 1027  |   '|		Action	Push_String_Extended,0x1027					; "Allow operator to enter CLI immediately              : "
0a25 00db       |    |		Load_Top	At_Offset_3
0a26 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a27 803e       | >  |		Call	0x0,0x3e
0a28 01cc       |    |		Execute	Vector,Catenate
0a29 e015       |    |		Load	0x0,0x15
0a2a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a2b 0092 1028  |   (|		Action	Push_String_Extended,0x1028					; "Allow editing of configuration                       : "
0a2d 00db       |    |		Load_Top	At_Offset_3
0a2e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0a2f 803e       | >  |		Call	0x0,0x3e
0a30 01cc       |    |		Execute	Vector,Catenate
0a31 e015       |    |		Load	0x0,0x15
0a32 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a33 0092 1029  |   )|		Action	Push_String_Extended,0x1029					; "Allow operator to enter CLI prior to starting cluster: "
0a35 00db       |    |		Load_Top	At_Offset_3
0a36 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a37 803e       | >  |		Call	0x0,0x3e
0a38 01cc       |    |		Execute	Vector,Catenate
0a39 e015       |    |		Load	0x0,0x15
0a3a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a3b 0092 102a  |   *|		Action	Push_String_Extended,0x102a					; "Load Kernel Layer subsystems only                    : "
0a3d 00db       |    |		Load_Top	At_Offset_3
0a3e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a3f 803e       | >  |		Call	0x0,0x3e
0a40 01cc       |    |		Execute	Vector,Catenate
0a41 e015       |    |		Load	0x0,0x15
0a42 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a43 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a44 0000 0000  |    |		.BLANK	0000[0x4]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a60       | `  |		.CONST	0x0a60								; Address of begin
0a49 0004       |    |		.CONST	0x0004								; Address of exception handler
0a4a 0002       |    |		.CONST	0x0002								; Number of locals
0a4b			INIT_0a48:
0a4b 483a       |H:  |		Short_Literal	0x3a
0a4c 00db       |    |		Load_Top	At_Offset_3
0a4d e7ff       |    |		Load	0x3,-0x1
0a4e 01db       |    |		Execute	Vector,Length
0a4f 4814       |H   |		Short_Literal	0x14
0a50 00e9       |    |		Load_Encached	String_Cache
0a51 035b       | [  |		Declare_Type	Array,Constrained
0a52 0337       | 7  |		Declare_Variable	Array
0a53 4814       |H   |		Short_Literal	0x14
0a54 00d9       |    |		Load_Top	At_Offset_1
0a55 01dd       |    |		Execute	Vector,First
0a56 0263       | c  |		Execute	Discrete,Above_Bound
0a57 7005       |p   |		Jump_Nonzero	0xa5d
0a58 4820       |H   |		Short_Literal	0x20
0a59 00d9       |    |		Load_Top	At_Offset_1
0a5a e604       |    |		Load	0x3,0x4
0a5b 01d6       |    |		Execute	Vector,Field_Write
0a5c 3ffb       |?   |		Loop_Increasing	0xa58
0a5d 01cc       |    |		Execute	Vector,Catenate
0a5e 01cb       |    |		Execute	Vector,Append
0a5f 0007       |    |		Action	Break_Optional
0a60			BODY_0a48:
0a60 e7fe       |    |		Load	0x3,-0x2
0a61 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a62 0f01       |    |		Execute_Immediate	Equal,0x1
0a63 6807       |h   |		Jump_Zero	0xa6b
0a64 00d8       |    |		Load_Top	At_Offset_0
0a65 0092 102b  |   +|		Action	Push_String_Extended,0x102b					; "<FROM STANDARD>"
0a67 01cc       |    |		Execute	Vector,Catenate
0a68 e015       |    |		Load	0x0,0x15
0a69 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a6a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a6b e7fe       |    |		Load	0x3,-0x2
0a6c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0a6d 0f01       |    |		Execute_Immediate	Equal,0x1
0a6e 680c       |h   |		Jump_Zero	0xa7b
0a6f 485d       |H]  |		Short_Literal	0x5d
0a70 485b       |H[  |		Short_Literal	0x5b
0a71 00da       |    |		Load_Top	At_Offset_2
0a72 01cb       |    |		Execute	Vector,Append
0a73 e7fe       |    |		Load	0x3,-0x2
0a74 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0a75 803f       | ?  |		Call	0x0,0x3f
0a76 01cc       |    |		Execute	Vector,Catenate
0a77 01cb       |    |		Execute	Vector,Append
0a78 e015       |    |		Load	0x0,0x15
0a79 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a7a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a7b 00d8       |    |		Load_Top	At_Offset_0
0a7c e7fe       |    |		Load	0x3,-0x2
0a7d 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0a7e 803f       | ?  |		Call	0x0,0x3f
0a7f 01cc       |    |		Execute	Vector,Catenate
0a80 e015       |    |		Load	0x0,0x15
0a81 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a82 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a83 0000 0000  |    |		.BLANK	0000[0x5]
0a88 ; --------------------------------------------------------------------------------------
0a88 ; SUBPROGRAM
0a88 ; --------------------------------------------------------------------------------------
0a88 0a8b       |    |		.CONST	0x0a8b								; Address of begin
0a89 0004       |    |		.CONST	0x0004								; Address of exception handler
0a8a 0001       |    |		.CONST	0x0001								; Number of locals
0a8b			BODY_0a88:
0a8b			INIT_0a88:
0a8b 0092 102c  |   ,|		Action	Push_String_Extended,0x102c					; "Test"
0a8d 00db       |    |		Load_Top	At_Offset_3
0a8e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a8f 803e       | >  |		Call	0x0,0x3e
0a90 01cc       |    |		Execute	Vector,Catenate
0a91 e015       |    |		Load	0x0,0x15
0a92 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0a93 00da       |    |		Load_Top	At_Offset_2
0a94 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0a95 0092 102d  |   -|		Action	Push_String_Extended,0x102d					; "Test Microcode"
0a97 8404       |    |		Call	0x2,0x4
0a98 0092 102e  |   .|		Action	Push_String_Extended,0x102e					; "Passes: "
0a9a 00db       |    |		Load_Top	At_Offset_3
0a9b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0a9c 00e0       |    |		Load_Encached	Standard_Cache
0a9d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0a9e 01cc       |    |		Execute	Vector,Catenate
0a9f e015       |    |		Load	0x0,0x15
0aa0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0aa1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0aa2 0000 0000  |    |		.BLANK	0000[0x6]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0aab       |    |		.CONST	0x0aab								; Address of begin
0aa9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aaa 0001       |    |		.CONST	0x0001								; Number of locals
0aab			BODY_0aa8:
0aab			INIT_0aa8:
0aab 0092 102f  |   /|		Action	Push_String_Extended,0x102f					; "Autoboot Kernel Debugger                  : "
0aad 00db       |    |		Load_Top	At_Offset_3
0aae 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0aaf 803e       | >  |		Call	0x0,0x3e
0ab0 01cc       |    |		Execute	Vector,Catenate
0ab1 e015       |    |		Load	0x0,0x15
0ab2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0ab3 0092 1030  |   0|		Action	Push_String_Extended,0x1030					; "Enable remote Kernel Debugging            : "
0ab5 00db       |    |		Load_Top	At_Offset_3
0ab6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ab7 803e       | >  |		Call	0x0,0x3e
0ab8 01cc       |    |		Execute	Vector,Catenate
0ab9 e015       |    |		Load	0x0,0x15
0aba 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0abb 0092 1031  |   1|		Action	Push_String_Extended,0x1031					; "Require operator for Kernel Debugging     : "
0abd 00db       |    |		Load_Top	At_Offset_3
0abe 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0abf 803e       | >  |		Call	0x0,0x3e
0ac0 01cc       |    |		Execute	Vector,Catenate
0ac1 e015       |    |		Load	0x0,0x15
0ac2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0ac3 0092 1032  |   2|		Action	Push_String_Extended,0x1032					; "Enable remote Environment Debugging       : "
0ac5 00db       |    |		Load_Top	At_Offset_3
0ac6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0ac7 803e       | >  |		Call	0x0,0x3e
0ac8 01cc       |    |		Execute	Vector,Catenate
0ac9 e015       |    |		Load	0x0,0x15
0aca 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0acb 0092 1033  |   3|		Action	Push_String_Extended,0x1033					; "Require operator for Environment Debugging: "
0acd 00db       |    |		Load_Top	At_Offset_3
0ace 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0acf 803e       | >  |		Call	0x0,0x3e
0ad0 01cc       |    |		Execute	Vector,Catenate
0ad1 e015       |    |		Load	0x0,0x15
0ad2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0ad3 0092 1034  |   4|		Action	Push_String_Extended,0x1034					; "Autoboot EEDB                             : "
0ad5 00db       |    |		Load_Top	At_Offset_3
0ad6 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0ad7 803e       | >  |		Call	0x0,0x3e
0ad8 01cc       |    |		Execute	Vector,Catenate
0ad9 e015       |    |		Load	0x0,0x15
0ada 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0adb 0092 1035  |   5|		Action	Push_String_Extended,0x1035					; "Autoboot Kernel                           : "
0add 00db       |    |		Load_Top	At_Offset_3
0ade 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0adf 803e       | >  |		Call	0x0,0x3e
0ae0 01cc       |    |		Execute	Vector,Catenate
0ae1 e015       |    |		Load	0x0,0x15
0ae2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0ae3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ae4 0000 0000  |    |		.BLANK	0000[0x4]
0ae8 ; --------------------------------------------------------------------------------------
0ae8 ; SUBPROGRAM
0ae8 ; --------------------------------------------------------------------------------------
0ae8 0aeb       |    |		.CONST	0x0aeb								; Address of begin
0ae9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aea 0001       |    |		.CONST	0x0001								; Number of locals
0aeb			BODY_0ae8:
0aeb			INIT_0ae8:
0aeb 00cf       |    |		Action	Mark_Auxiliary
0aec e040       | @  |		Load	0x0,0x40
0aed 0265       | e  |		Execute	Discrete,Reverse_Bounds
0aee 0007       |    |		Action	Break_Optional
0aef 00d8       |    |		Load_Top	At_Offset_0
0af0 e7ff       |    |		Load	0x3,-0x1
0af1 01d5       |    |		Execute	Vector,Field_Reference
0af2 00d9       |    |		Load_Top	At_Offset_1
0af3 e040       | @  |		Load	0x0,0x40
0af4 011c       |    |		Execute	Any,Convert_Unchecked
0af5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0af6 8404       |    |		Call	0x2,0x4
0af7 00c8       |    |		Action	Pop_Auxiliary_Range
0af8 3ff6       |?   |		Loop_Increasing	0xaef
0af9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0afa 0000 0000  |    |		.BLANK	0000[0x6]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b08       |    |		.CONST	0x0b08								; Address of begin
0b01 0004       |    |		.CONST	0x0004								; Address of exception handler
0b02 0004       |    |		.CONST	0x0004								; Number of locals
0b03			INIT_0b00:
0b03 e041       | A  |		Load	0x0,0x41
0b04 0322       | "  |		Declare_Variable	Record
0b05 00e2       |    |		Load_Encached	Integer_Cache
0b06 e042       | B  |		Load	0x0,0x42
0b07 0337       | 7  |		Declare_Variable	Array
0b08			BODY_0b00:
0b08 e7fe       |    |		Load	0x3,-0x2
0b09 e7ff       |    |		Load	0x3,-0x1
0b0a 822b       | +  |		Call	0x1,0x2b
0b0b 00d1       |    |		Pop_Control	Pop_Count_1
0b0c e7fe       |    |		Load	0x3,-0x2
0b0d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0b0e 00d9       |    |		Load_Top	At_Offset_1
0b0f 01db       |    |		Execute	Vector,Length
0b10 027b       | {  |		Execute	Discrete,Greater_Equal
0b11 681e       |h   |		Jump_Zero	0xb30
0b12 00e3       |    |		Load_Encached	Natural_Cache
0b13 00d9       |    |		Load_Top	At_Offset_1
0b14 e7ff       |    |		Load	0x3,-0x1
0b15 8043       | C  |		Call	0x0,0x43
0b16 00d1       |    |		Pop_Control	Pop_Count_1
0b17 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0b18 00d8       |    |		Load_Top	At_Offset_0
0b19 8044       | D  |		Call	0x0,0x44
0b1a 00db       |    |		Load_Top	At_Offset_3
0b1b 017d       | }  |		Execute	Record,Structure_Write
0b1c 00da       |    |		Load_Top	At_Offset_2
0b1d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b1e 8402       |    |		Call	0x2,0x2
0b1f 00da       |    |		Load_Top	At_Offset_2
0b20 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0b21 8403       |    |		Call	0x2,0x3
0b22 00da       |    |		Load_Top	At_Offset_2
0b23 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0b24 8405       |    |		Call	0x2,0x5
0b25 00da       |    |		Load_Top	At_Offset_2
0b26 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0b27 8406       |    |		Call	0x2,0x6
0b28 00da       |    |		Load_Top	At_Offset_2
0b29 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0b2a 0092 1036  |   6|		Action	Push_String_Extended,0x1036					; "Microcode"
0b2c 8404       |    |		Call	0x2,0x4
0b2d 00da       |    |		Load_Top	At_Offset_2
0b2e 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0b2f 8407       |    |		Call	0x2,0x7
0b30 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b31 0000 0000  |    |		.BLANK	0000[0x7]
0b38 ; --------------------------------------------------------------------------------------
0b38 ; SUBPROGRAM
0b38 ; --------------------------------------------------------------------------------------
0b38 0b3b       | ;  |		.CONST	0x0b3b								; Address of begin
0b39 0004       |    |		.CONST	0x0004								; Address of exception handler
0b3a 0001       |    |		.CONST	0x0001								; Number of locals
0b3b			BODY_0b38:
0b3b			INIT_0b38:
0b3b 00da       |    |		Load_Top	At_Offset_2
0b3c 802b       | +  |		Call	0x0,0x2b
0b3d 6804       |h   |		Jump_Zero	0xb42
0b3e 00db       |    |		Load_Top	At_Offset_3
0b3f 00db       |    |		Load_Top	At_Offset_3
0b40 822b       | +  |		Call	0x1,0x2b
0b41 00d1       |    |		Pop_Control	Pop_Count_1
0b42 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b43 0000 0000  |    |		.BLANK	0000[0x5]
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b64       | d  |		.CONST	0x0b64								; Address of begin
0b49 0004       |    |		.CONST	0x0004								; Address of exception handler
0b4a 000a       |    |		.CONST	0x000a								; Number of locals
0b4b			INIT_0b48:
0b4b 00e2       |    |		Load_Encached	Integer_Cache
0b4c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0b4d e7fe       |    |		Load	0x3,-0x2
0b4e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0b4f 00e2       |    |		Load_Encached	Integer_Cache
0b50 03f1       |    |		Declare_Variable	Discrete,With_Value
0b51 00e2       |    |		Load_Encached	Integer_Cache
0b52 4801       |H   |		Short_Literal	0x1
0b53 4810       |H   |		Short_Literal	0x10
0b54 e045       | E  |		Load	0x0,0x45
0b55 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0b56 035b       | [  |		Declare_Type	Array,Constrained
0b57 0337       | 7  |		Declare_Variable	Array
0b58 029f 0f8b  |    |		Declare_Subprogram	INIT_0f88,For_Call
0b5a e046       | F  |		Load	0x0,0x46
0b5b 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0b5c 00c6       |    |		Action	Check_Subprogram_Elaborated
0b5d 4806       |H   |		Short_Literal	0x6
0b5e 4803       |H   |		Short_Literal	0x3
0b5f 0099       |    |		Action	Reference_Dynamic
0b60 e047       | G  |		Load	0x0,0x47
0b61 e048       | H  |		Load	0x0,0x48
0b62 480a       |H   |		Short_Literal	0xa
0b63 0007       |    |		Action	Break_Optional
0b64			BODY_0b48:
0b64 e603       |    |		Load	0x3,0x3
0b65 e5fe       |    |		Load	0x2,-0x2
0b66 027d       | }  |		Execute	Discrete,Greater
0b67 6802       |h   |		Jump_Zero	0xb6a
0b68 e5fe       |    |		Load	0x2,-0x2
0b69 a603       |    |		Store_Unchecked	0x3,0x3
0b6a 00cf       |    |		Action	Mark_Auxiliary
0b6b 781a       |x   |		Jump	0xb86
0b6c 00e3       |    |		Load_Encached	Natural_Cache
0b6d e605       |    |		Load	0x3,0x5
0b6e e7ff       |    |		Load	0x3,-0x1
0b6f 8043       | C  |		Call	0x0,0x43
0b70 00d1       |    |		Pop_Control	Pop_Count_1
0b71 c604       |    |		Store	0x3,0x4
0b72 4801       |H   |		Short_Literal	0x1
0b73 4801       |H   |		Short_Literal	0x1
0b74 4810       |H   |		Short_Literal	0x10
0b75 4801       |H   |		Short_Literal	0x1
0b76 e604       |    |		Load	0x3,0x4
0b77 e605       |    |		Load	0x3,0x5
0b78 01cf       |    |		Execute	Vector,Slice_Read
0b79 4807       |H   |		Short_Literal	0x7
0b7a 4803       |H   |		Short_Literal	0x3
0b7b 0099       |    |		Action	Reference_Dynamic
0b7c 4808       |H   |		Short_Literal	0x8
0b7d 4803       |H   |		Short_Literal	0x3
0b7e 0099       |    |		Action	Reference_Dynamic
0b7f e046       | F  |		Load	0x0,0x46
0b80 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0b81 e602       |    |		Load	0x3,0x2
0b82 e604       |    |		Load	0x3,0x4
0b83 0273       | s  |		Execute	Discrete,Plus
0b84 c602       |    |		Store	0x3,0x2
0b85 00c9       |    |		Action	Pop_Auxiliary_Loop
0b86 e602       |    |		Load	0x3,0x2
0b87 e603       |    |		Load	0x3,0x3
0b88 027c       | |  |		Execute	Discrete,Less
0b89 77e2       |w   |		Jump_Nonzero	0xb6c
0b8a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b8b 0000 0000  |    |		.BLANK	0000[0x5]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b93       |    |		.CONST	0x0b93								; Address of begin
0b91 0004       |    |		.CONST	0x0004								; Address of exception handler
0b92 0001       |    |		.CONST	0x0001								; Number of locals
0b93			BODY_0b90:
0b93			INIT_0b90:
0b93 4607       |F   |		Jump_Case	0x8
0b94 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0b95 7807       |x   |		Jump	0xb9d								; case 0x1
0b96 780a       |x   |		Jump	0xba1								; case 0x2
0b97 780e       |x   |		Jump	0xba6								; case 0x3
0b98 7811       |x   |		Jump	0xbaa								; case 0x4
0b99 7812       |x   |		Jump	0xbac								; case 0x5
0b9a 7813       |x   |		Jump	0xbae								; case 0x6
0b9b 7816       |x   |		Jump	0xbb2								; case 0x7
0b9c 4302       |C   |		.XXX[0x1]
0b9d 00da       |    |		Load_Top	At_Offset_2
0b9e 0091 1000  |    |		Action	Push_String_Extended_Indexed,0x1000				; "INDEX"
0ba0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0ba1 00db       |    |		Load_Top	At_Offset_3
0ba2 00db       |    |		Load_Top	At_Offset_3
0ba3 00e0       |    |		Load_Encached	Standard_Cache
0ba4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0ba5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0ba6 00da       |    |		Load_Top	At_Offset_2
0ba7 00e0       |    |		Load_Encached	Standard_Cache
0ba8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0ba9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0baa 00db       |    |		Load_Top	At_Offset_3
0bab 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bac 00db       |    |		Load_Top	At_Offset_3
0bad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bae e402       |    |		Load	0x2,0x2
0baf 00dc       |    |		Load_Top	At_Offset_4
0bb0 0267       | g  |		Execute	Discrete,Predecessor
0bb1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bb2 e402       |    |		Load	0x2,0x2
0bb3 00dc       |    |		Load_Top	At_Offset_4
0bb4 0268       | h  |		Execute	Discrete,Successor
0bb5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bb6 0000 0000  |    |		.XXX[0x2]
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bbb       |    |		.CONST	0x0bbb								; Address of begin
0bb9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bba 0001       |    |		.CONST	0x0001								; Number of locals
0bbb			BODY_0bb8:
0bbb			INIT_0bb8:
0bbb 4601       |F   |		Jump_Case	0x2
0bbc 7801       |x   |		Jump	0xbbe								; case 0x0
0bbd 7804       |x   |		Jump	0xbc2								; case 0x1
0bbe 00da       |    |		Load_Top	At_Offset_2
0bbf 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0bc0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0bc1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0bc2 00da       |    |		Load_Top	At_Offset_2
0bc3 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0bc4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0bc5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0bc6 0000 0000  |    |		.XXX[0x2]
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bd8       |    |		.CONST	0x0bd8								; Address of begin
0bc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bca 0003       |    |		.CONST	0x0003								; Number of locals
0bcb			INIT_0bc8:
0bcb 00da       |    |		Load_Top	At_Offset_2
0bcc 0227       | '  |		Execute	Access,All_Reference
0bcd 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0bce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0bcf e023       | #  |		Load	0x0,0x23
0bd0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0bd1 4801       |H   |		Short_Literal	0x1
0bd2 00d9       |    |		Load_Top	At_Offset_1
0bd3 482e       |H.  |		Short_Literal	0x2e
0bd4 e01d       |    |		Load	0x0,0x1d
0bd5 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0bd6 00e2       |    |		Load_Encached	Integer_Cache
0bd7 03f1       |    |		Declare_Variable	Discrete,With_Value
0bd8			BODY_0bc8:
0bd8 00d8       |    |		Load_Top	At_Offset_0
0bd9 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0bda 680c       |h   |		Jump_Zero	0xbe7
0bdb 00d9       |    |		Load_Top	At_Offset_1
0bdc 01dd       |    |		Execute	Vector,First
0bdd 00d9       |    |		Load_Top	At_Offset_1
0bde 0aff       |    |		Execute_Immediate	Plus,-0x1
0bdf 00d8       |    |		Load_Top	At_Offset_0
0be0 00e2       |    |		Load_Encached	Integer_Cache
0be1 0260       | `  |		Execute	Discrete,In_Type
0be2 7001       |p   |		Jump_Nonzero	0xbe4
0be3 0801       |    |		Execute_Immediate	Raise,0x1
0be4 00db       |    |		Load_Top	At_Offset_3
0be5 01cf       |    |		Execute	Vector,Slice_Read
0be6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0be7 00d9       |    |		Load_Top	At_Offset_1
0be8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0be9 0000 0000  |    |		.BLANK	0000[0x7]
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0c00       |    |		.CONST	0x0c00								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0003       |    |		.CONST	0x0003								; Number of locals
0bf3			INIT_0bf0:
0bf3 00da       |    |		Load_Top	At_Offset_2
0bf4 0227       | '  |		Execute	Access,All_Reference
0bf5 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0bf6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0bf7 e023       | #  |		Load	0x0,0x23
0bf8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0bf9 4801       |H   |		Short_Literal	0x1
0bfa 00d9       |    |		Load_Top	At_Offset_1
0bfb 482e       |H.  |		Short_Literal	0x2e
0bfc e01d       |    |		Load	0x0,0x1d
0bfd 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0bfe 00e2       |    |		Load_Encached	Integer_Cache
0bff 03f1       |    |		Declare_Variable	Discrete,With_Value
0c00			BODY_0bf0:
0c00 00d8       |    |		Load_Top	At_Offset_0
0c01 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0c02 680c       |h   |		Jump_Zero	0xc0f
0c03 00d8       |    |		Load_Top	At_Offset_0
0c04 0a01       |    |		Execute_Immediate	Plus,0x1
0c05 00d8       |    |		Load_Top	At_Offset_0
0c06 00e2       |    |		Load_Encached	Integer_Cache
0c07 0260       | `  |		Execute	Discrete,In_Type
0c08 7001       |p   |		Jump_Nonzero	0xc0a
0c09 0801       |    |		Execute_Immediate	Raise,0x1
0c0a 00da       |    |		Load_Top	At_Offset_2
0c0b 01dc       |    |		Execute	Vector,Last
0c0c 00db       |    |		Load_Top	At_Offset_3
0c0d 01cf       |    |		Execute	Vector,Slice_Read
0c0e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c0f 00ea       |    |		Load_Encached	Null_String_Cache
0c10 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c11 0000 0000  |    |		.BLANK	0000[0x7]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c1b       |    |		.CONST	0x0c1b								; Address of begin
0c19 0004       |    |		.CONST	0x0004								; Address of exception handler
0c1a 0001       |    |		.CONST	0x0001								; Number of locals
0c1b			BODY_0c18:
0c1b			INIT_0c18:
0c1b 00da       |    |		Load_Top	At_Offset_2
0c1c 4609       |F   |		Jump_Case	0xa
0c1d 780c       |x   |		Jump	0xc2a								; case 0x0
0c1e 780e       |x   |		Jump	0xc2d								; case 0x1
0c1f 7810       |x   |		Jump	0xc30								; case 0x2
0c20 7812       |x   |		Jump	0xc33								; case 0x3
0c21 7814       |x   |		Jump	0xc36								; case 0x4
0c22 7816       |x   |		Jump	0xc39								; case 0x5
0c23 7818       |x   |		Jump	0xc3c								; case 0x6
0c24 781a       |x   |		Jump	0xc3f								; case 0x7
0c25 781c       |x   |		Jump	0xc42								; case 0x8
0c26 7800       |x   |		Jump	0xc27								; case 0x9
0c27 0092 1037  |   7|		Action	Push_String_Extended,0x1037					; "Sts"
0c29 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c2a 0092 1038  |   8|		Action	Push_String_Extended,0x1038					; "Index"
0c2c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c2d 0092 1039  |   9|		Action	Push_String_Extended,0x1039					; "Offset"
0c2f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c30 0092 103a  |   :|		Action	Push_String_Extended,0x103a					; "File Name"
0c32 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c33 0092 103b  |   ;|		Action	Push_String_Extended,0x103b					; "Root Name"
0c35 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c36 0092 103c  |   <|		Action	Push_String_Extended,0x103c					; "Ext."
0c38 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c39 0092 103d  |   =|		Action	Push_String_Extended,0x103d					; "Size"
0c3b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c3c 0092 103e  |   >|		Action	Push_String_Extended,0x103e					; "Created"
0c3e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c3f 0092 103f  |   ?|		Action	Push_String_Extended,0x103f					; "Type"
0c41 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c42 0092 1026  |   &|		Action	Push_String_Extended,0x1026					; "Version"
0c44 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c45 0000 0000  |    |		.XXX[0x3]
0c47 0000       |    |
0c48 ; --------------------------------------------------------------------------------------
0c48 ; SUBPROGRAM
0c48 ; --------------------------------------------------------------------------------------
0c48 0c4b       | K  |		.CONST	0x0c4b								; Address of begin
0c49 0004       |    |		.CONST	0x0004								; Address of exception handler
0c4a 0001       |    |		.CONST	0x0001								; Number of locals
0c4b			BODY_0c48:
0c4b			INIT_0c48:
0c4b 00db       |    |		Load_Top	At_Offset_3
0c4c 4609       |F   |		Jump_Case	0xa
0c4d 7813       |x   |		Jump	0xc61								; case 0x0
0c4e 781b       |x   |		Jump	0xc6a								; case 0x1
0c4f 7823       |x#  |		Jump	0xc73								; case 0x2
0c50 7829       |x)  |		Jump	0xc7a								; case 0x3
0c51 782b       |x+  |		Jump	0xc7d								; case 0x4
0c52 782d       |x-  |		Jump	0xc80								; case 0x5
0c53 7836       |x6  |		Jump	0xc8a								; case 0x6
0c54 783b       |x;  |		Jump	0xc90								; case 0x7
0c55 784d       |xM  |		Jump	0xca3								; case 0x8
0c56 7800       |x   |		Jump	0xc57								; case 0x9
0c57 00da       |    |		Load_Top	At_Offset_2
0c58 0227       | '  |		Execute	Access,All_Reference
0c59 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c5a 6803       |h   |		Jump_Zero	0xc5e
0c5b 0092 1040  |   @|		Action	Push_String_Extended,0x1040					; "XX"
0c5d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c5e 0092 1041  |   A|		Action	Push_String_Extended,0x1041					; "OK"
0c60 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c61 4820       |H   |		Short_Literal	0x20
0c62 4805       |H   |		Short_Literal	0x5
0c63 480a       |H   |		Short_Literal	0xa
0c64 e7ff       |    |		Load	0x3,-0x1
0c65 0227       | '  |		Execute	Access,All_Reference
0c66 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c67 e01d       |    |		Load	0x0,0x1d
0c68 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c69 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c6a 4820       |H   |		Short_Literal	0x20
0c6b 4807       |H   |		Short_Literal	0x7
0c6c 480a       |H   |		Short_Literal	0xa
0c6d e7ff       |    |		Load	0x3,-0x1
0c6e 0227       | '  |		Execute	Access,All_Reference
0c6f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0c70 e01d       |    |		Load	0x0,0x1d
0c71 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c72 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c73 00da       |    |		Load_Top	At_Offset_2
0c74 0227       | '  |		Execute	Access,All_Reference
0c75 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0c76 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0c77 e023       | #  |		Load	0x0,0x23
0c78 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0c79 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c7a 00da       |    |		Load_Top	At_Offset_2
0c7b 8408       |    |		Call	0x2,0x8
0c7c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c7d 00da       |    |		Load_Top	At_Offset_2
0c7e 8409       |    |		Call	0x2,0x9
0c7f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c80 4820       |H   |		Short_Literal	0x20
0c81 4807       |H   |		Short_Literal	0x7
0c82 480a       |H   |		Short_Literal	0xa
0c83 e7ff       |    |		Load	0x3,-0x1
0c84 0227       | '  |		Execute	Access,All_Reference
0c85 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0c86 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c87 e01d       |    |		Load	0x0,0x1d
0c88 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c89 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c8a 00da       |    |		Load_Top	At_Offset_2
0c8b 0227       | '  |		Execute	Access,All_Reference
0c8c 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0c8d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c8e 8229       | )  |		Call	0x1,0x29
0c8f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c90 00da       |    |		Load_Top	At_Offset_2
0c91 0227       | '  |		Execute	Access,All_Reference
0c92 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0c93 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0c94 6803       |h   |		Jump_Zero	0xc98
0c95 0092 1042  |   B|		Action	Push_String_Extended,0x1042					; "KRNL"
0c97 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0c98 00da       |    |		Load_Top	At_Offset_2
0c99 0227       | '  |		Execute	Access,All_Reference
0c9a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0c9b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0c9c 6803       |h   |		Jump_Zero	0xca0
0c9d 0092 1043  |   C|		Action	Push_String_Extended,0x1043					; "PRGM"
0c9f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0ca0 0092 1044  |   D|		Action	Push_String_Extended,0x1044					; "OTHR"
0ca2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0ca3 4820       |H   |		Short_Literal	0x20
0ca4 00db       |    |		Load_Top	At_Offset_3
0ca5 0227       | '  |		Execute	Access,All_Reference
0ca6 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0ca7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0ca8 00e0       |    |		Load_Encached	Standard_Cache
0ca9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0caa e01d       |    |		Load	0x0,0x1d
0cab 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0cac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0cad 0000 0000  |    |		.XXX[0x3]
0caf 0000       |    |
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cb3       |    |		.CONST	0x0cb3								; Address of begin
0cb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cb2 0001       |    |		.CONST	0x0001								; Number of locals
0cb3			BODY_0cb0:
0cb3			INIT_0cb0:
0cb3 e7fd       |    |		Load	0x3,-0x3
0cb4 e049       | I  |		Load	0x0,0x49
0cb5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cb6 0119       |    |		Execute	Any,Check_In_Formal_Type
0cb7 e7fe       |    |		Load	0x3,-0x2
0cb8 e7ff       |    |		Load	0x3,-0x1
0cb9 e04a       | J  |		Load	0x0,0x4a
0cba 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0cbb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0cbc 0000 0000  |    |		.BLANK	0000[0x4]
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0cc3       |    |		.CONST	0x0cc3								; Address of begin
0cc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cc2 0001       |    |		.CONST	0x0001								; Number of locals
0cc3			BODY_0cc0:
0cc3			INIT_0cc0:
0cc3 e407       |    |		Load	0x2,0x7
0cc4 0a01       |    |		Execute_Immediate	Plus,0x1
0cc5 c407       |    |		Store	0x2,0x7
0cc6 e404       |    |		Load	0x2,0x4
0cc7 0322       | "  |		Declare_Variable	Record
0cc8 00d8       |    |		Load_Top	At_Offset_0
0cc9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0cca 00db       |    |		Load_Top	At_Offset_3
0ccb 802b       | +  |		Call	0x0,0x2b
0ccc 00d9       |    |		Load_Top	At_Offset_1
0ccd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0cce 00db       |    |		Load_Top	At_Offset_3
0ccf 802c       | ,  |		Call	0x0,0x2c
0cd0 00d9       |    |		Load_Top	At_Offset_1
0cd1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0cd2 00db       |    |		Load_Top	At_Offset_3
0cd3 804b       | K  |		Call	0x0,0x4b
0cd4 00d9       |    |		Load_Top	At_Offset_1
0cd5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0cd6 e7fe       |    |		Load	0x3,-0x2
0cd7 00d9       |    |		Load_Top	At_Offset_1
0cd8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0cd9 e406       |    |		Load	0x2,0x6
0cda 00d9       |    |		Load_Top	At_Offset_1
0cdb 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0cdc e403       |    |		Load	0x2,0x3
0cdd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0cde a406       |    |		Store_Unchecked	0x2,0x6
0cdf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0ce8       |    |		.CONST	0x0ce8								; Address of begin
0ce1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ce2 0002       |    |		.CONST	0x0002								; Number of locals
0ce3			INIT_0ce0:
0ce3 4801       |H   |		Short_Literal	0x1
0ce4 e407       |    |		Load	0x2,0x7
0ce5 e405       |    |		Load	0x2,0x5
0ce6 035b       | [  |		Declare_Type	Array,Constrained
0ce7 0337       | 7  |		Declare_Variable	Array
0ce8			BODY_0ce0:
0ce8 00cf       |    |		Action	Mark_Auxiliary
0ce9 00d9       |    |		Load_Top	At_Offset_1
0cea 01da       |    |		Execute	Vector,Bounds
0ceb 0264       | d  |		Execute	Discrete,Below_Bound
0cec 700a       |p   |		Jump_Nonzero	0xcf7
0ced e406       |    |		Load	0x2,0x6
0cee 00d9       |    |		Load_Top	At_Offset_1
0cef e602       |    |		Load	0x3,0x2
0cf0 01d6       |    |		Execute	Vector,Field_Write
0cf1 e406       |    |		Load	0x2,0x6
0cf2 0227       | '  |		Execute	Access,All_Reference
0cf3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0cf4 a406       |    |		Store_Unchecked	0x2,0x6
0cf5 00c8       |    |		Action	Pop_Auxiliary_Range
0cf6 37f6       |7   |		Loop_Decreasing	0xced
0cf7 00ce       |    |		Action	Pop_Auxiliary
0cf8 0092 1045  |   E|		Action	Push_String_Extended,0x1045					; "<DEFAULT>"
0cfa e5fc       |    |		Load	0x2,-0x4
0cfb e5fd       |    |		Load	0x2,-0x3
0cfc 00db       |    |		Load_Top	At_Offset_3
0cfd e40d       |    |		Load	0x2,0xd
0cfe e40e       |    |		Load	0x2,0xe
0cff e40f       |    |		Load	0x2,0xf
0d00 4810       |H   |		Short_Literal	0x10
0d01 4802       |H   |		Short_Literal	0x2
0d02 0099       |    |		Action	Reference_Dynamic
0d03 4811       |H   |		Short_Literal	0x11
0d04 4802       |H   |		Short_Literal	0x2
0d05 0099       |    |		Action	Reference_Dynamic
0d06 4812       |H   |		Short_Literal	0x12
0d07 4802       |H   |		Short_Literal	0x2
0d08 0099       |    |		Action	Reference_Dynamic
0d09 e413       |    |		Load	0x2,0x13
0d0a e414       |    |		Load	0x2,0x14
0d0b e415       |    |		Load	0x2,0x15
0d0c 4816       |H   |		Short_Literal	0x16
0d0d 4802       |H   |		Short_Literal	0x2
0d0e 0099       |    |		Action	Reference_Dynamic
0d0f 801a       |    |		Call	0x0,0x1a
0d10 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d11 0000 0000  |    |		.BLANK	0000[0x7]
0d18 ; --------------------------------------------------------------------------------------
0d18 ; SUBPROGRAM
0d18 ; --------------------------------------------------------------------------------------
0d18 0d1b       |    |		.CONST	0x0d1b								; Address of begin
0d19 0004       |    |		.CONST	0x0004								; Address of exception handler
0d1a 0001       |    |		.CONST	0x0001								; Number of locals
0d1b			BODY_0d18:
0d1b			INIT_0d18:
0d1b 00da       |    |		Load_Top	At_Offset_2
0d1c 804c       | L  |		Call	0x0,0x4c
0d1d 00db       |    |		Load_Top	At_Offset_3
0d1e 00db       |    |		Load_Top	At_Offset_3
0d1f 822b       | +  |		Call	0x1,0x2b
0d20 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d21 0000 0000  |    |		.BLANK	0000[0x7]
0d28 ; --------------------------------------------------------------------------------------
0d28 ; SUBPROGRAM
0d28 ; --------------------------------------------------------------------------------------
0d28 0d2b       | +  |		.CONST	0x0d2b								; Address of begin
0d29 0004       |    |		.CONST	0x0004								; Address of exception handler
0d2a 0001       |    |		.CONST	0x0001								; Number of locals
0d2b			BODY_0d28:
0d2b			INIT_0d28:
0d2b 00da       |    |		Load_Top	At_Offset_2
0d2c 802b       | +  |		Call	0x0,0x2b
0d2d 6806       |h   |		Jump_Zero	0xd34
0d2e 00da       |    |		Load_Top	At_Offset_2
0d2f 804d       | M  |		Call	0x0,0x4d
0d30 00db       |    |		Load_Top	At_Offset_3
0d31 00db       |    |		Load_Top	At_Offset_3
0d32 822b       | +  |		Call	0x1,0x2b
0d33 00d1       |    |		Pop_Control	Pop_Count_1
0d34 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d35 0000 0000  |    |		.XXX[0x3]
0d37 0000       |    |
0d38 ; --------------------------------------------------------------------------------------
0d38 ; SUBPROGRAM
0d38 ; --------------------------------------------------------------------------------------
0d38 0d47       | G  |		.CONST	0x0d47								; Address of begin
0d39 0004       |    |		.CONST	0x0004								; Address of exception handler
0d3a 0003       |    |		.CONST	0x0003								; Number of locals
0d3b			INIT_0d38:
0d3b 00db       |    |		Load_Top	At_Offset_3
0d3c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0d3d e023       | #  |		Load	0x0,0x23
0d3e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d3f e003       |    |		Load	0x0,0x3
0d40 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d41 4801       |H   |		Short_Literal	0x1
0d42 e402       |    |		Load	0x2,0x2
0d43 00db       |    |		Load_Top	At_Offset_3
0d44 e003       |    |		Load	0x0,0x3
0d45 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d46 0039       | 9  |		Store_Top	Access,At_Offset_1
0d47			BODY_0d38:
0d47 e003       |    |		Load	0x0,0x3
0d48 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d49 00d9       |    |		Load_Top	At_Offset_1
0d4a e003       |    |		Load	0x0,0x3
0d4b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0d4c 7007       |p   |		Jump_Nonzero	0xd54
0d4d e7ff       |    |		Load	0x3,-0x1
0d4e 804c       | L  |		Call	0x0,0x4c
0d4f e7fe       |    |		Load	0x3,-0x2
0d50 e7ff       |    |		Load	0x3,-0x1
0d51 822b       | +  |		Call	0x1,0x2b
0d52 00d1       |    |		Pop_Control	Pop_Count_1
0d53 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d54 4801       |H   |		Short_Literal	0x1
0d55 e402       |    |		Load	0x2,0x2
0d56 00db       |    |		Load_Top	At_Offset_3
0d57 e003       |    |		Load	0x0,0x3
0d58 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d59 0039       | 9  |		Store_Top	Access,At_Offset_1
0d5a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d5b 0000 0000  |    |		.BLANK	0000[0x5]
0d60 ; --------------------------------------------------------------------------------------
0d60 ; SUBPROGRAM
0d60 ; --------------------------------------------------------------------------------------
0d60 0d63       | c  |		.CONST	0x0d63								; Address of begin
0d61 0004       |    |		.CONST	0x0004								; Address of exception handler
0d62 0001       |    |		.CONST	0x0001								; Number of locals
0d63			BODY_0d60:
0d63			INIT_0d60:
0d63 00db       |    |		Load_Top	At_Offset_3
0d64 0092 1046  |   F|		Action	Push_String_Extended,0x1046					; "XXX"
0d66 e7ff       |    |		Load	0x3,-0x1
0d67 822a       | *  |		Call	0x1,0x2a
0d68 00d1       |    |		Pop_Control	Pop_Count_1
0d69 00db       |    |		Load_Top	At_Offset_3
0d6a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0d6b e023       | #  |		Load	0x0,0x23
0d6c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d6d e403       |    |		Load	0x2,0x3
0d6e e402       |    |		Load	0x2,0x2
0d6f e02d       | -  |		Load	0x0,0x2d
0d70 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0d71 00db       |    |		Load_Top	At_Offset_3
0d72 804e       | N  |		Call	0x0,0x4e
0d73 00da       |    |		Load_Top	At_Offset_2
0d74 804f       | O  |		Call	0x0,0x4f
0d75 e7fe       |    |		Load	0x3,-0x2
0d76 017d       | }  |		Execute	Record,Structure_Write
0d77 00db       |    |		Load_Top	At_Offset_3
0d78 0092 1047  |   G|		Action	Push_String_Extended,0x1047					; "==>"
0d7a e7ff       |    |		Load	0x3,-0x1
0d7b 822a       | *  |		Call	0x1,0x2a
0d7c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d7d 0000 0000  |    |		.XXX[0x3]
0d7f 0000       |    |
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d84       |    |		.CONST	0x0d84								; Address of begin
0d81 0004       |    |		.CONST	0x0004								; Address of exception handler
0d82 0002       |    |		.CONST	0x0002								; Number of locals
0d83			INIT_0d80:
0d83 00e2       |    |		Load_Encached	Integer_Cache
0d84			BODY_0d80:
0d84 e7fe       |    |		Load	0x3,-0x2
0d85 e7ff       |    |		Load	0x3,-0x1
0d86 822b       | +  |		Call	0x1,0x2b
0d87 00d1       |    |		Pop_Control	Pop_Count_1
0d88 00e2       |    |		Load_Encached	Integer_Cache
0d89 e402       |    |		Load	0x2,0x2
0d8a e7ff       |    |		Load	0x3,-0x1
0d8b 8050       | P  |		Call	0x0,0x50
0d8c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0d8d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d8e 0000 0000  |    |		.XXX[0x2]
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0d93       |    |		.CONST	0x0d93								; Address of begin
0d91 0004       |    |		.CONST	0x0004								; Address of exception handler
0d92 0001       |    |		.CONST	0x0001								; Number of locals
0d93			BODY_0d90:
0d93			INIT_0d90:
0d93 e049       | I  |		Load	0x0,0x49
0d94 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0d95 4807       |H   |		Short_Literal	0x7
0d96 e7fe       |    |		Load	0x3,-0x2
0d97 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0d98 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0d99 e023       | #  |		Load	0x0,0x23
0d9a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d9b 0092 1048  |   H|		Action	Push_String_Extended,0x1048					; " "
0d9d 01cc       |    |		Execute	Vector,Catenate
0d9e e7fd       |    |		Load	0x3,-0x3
0d9f 01cc       |    |		Execute	Vector,Catenate
0da0 0092 1049  |   I|		Action	Push_String_Extended,0x1049					; " in file "
0da2 01cc       |    |		Execute	Vector,Catenate
0da3 4820       |H   |		Short_Literal	0x20
0da4 4800       |H   |		Short_Literal	0x0
0da5 480a       |H   |		Short_Literal	0xa
0da6 e7ff       |    |		Load	0x3,-0x1
0da7 e01d       |    |		Load	0x0,0x1d
0da8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0da9 01cc       |    |		Execute	Vector,Catenate
0daa e04a       | J  |		Load	0x0,0x4a
0dab 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0dac 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0dad 0000 0000  |    |		.XXX[0x3]
0daf 0000       |    |
0db0 ; --------------------------------------------------------------------------------------
0db0 ; SUBPROGRAM
0db0 ; --------------------------------------------------------------------------------------
0db0 0dc0       |    |		.CONST	0x0dc0								; Address of begin
0db1 0004       |    |		.CONST	0x0004								; Address of exception handler
0db2 0004       |    |		.CONST	0x0004								; Number of locals
0db3			INIT_0db0:
0db3 4801       |H   |		Short_Literal	0x1
0db4 00db       |    |		Load_Top	At_Offset_3
0db5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0db6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0db7 e045       | E  |		Load	0x0,0x45
0db8 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0db9 035b       | [  |		Declare_Type	Array,Constrained
0dba 0337       | 7  |		Declare_Variable	Array
0dbb e002       |    |		Load	0x0,0x2
0dbc 0322       | "  |		Declare_Variable	Record
0dbd 00d8       |    |		Load_Top	At_Offset_0
0dbe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0dbf 00e2       |    |		Load_Encached	Integer_Cache
0dc0			BODY_0db0:
0dc0 e7ff       |    |		Load	0x3,-0x1
0dc1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0dc2 e7fe       |    |		Load	0x3,-0x2
0dc3 8033       | 3  |		Call	0x0,0x33
0dc4 00d9       |    |		Load_Top	At_Offset_1
0dc5 4800       |H   |		Short_Literal	0x0
0dc6 e7fe       |    |		Load	0x3,-0x2
0dc7 800f       |    |		Call	0x0,0xf
0dc8 00d1       |    |		Pop_Control	Pop_Count_1
0dc9 00e3       |    |		Load_Encached	Natural_Cache
0dca 00db       |    |		Load_Top	At_Offset_3
0dcb e7fe       |    |		Load	0x3,-0x2
0dcc 8043       | C  |		Call	0x0,0x43
0dcd 00d1       |    |		Pop_Control	Pop_Count_1
0dce 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0dcf e7fe       |    |		Load	0x3,-0x2
0dd0 8011       |    |		Call	0x0,0x11
0dd1 4801       |H   |		Short_Literal	0x1
0dd2 00d9       |    |		Load_Top	At_Offset_1
0dd3 e602       |    |		Load	0x3,0x2
0dd4 01cf       |    |		Execute	Vector,Slice_Read
0dd5 e045       | E  |		Load	0x0,0x45
0dd6 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0dd7 01c6       |    |		Execute	Vector,Convert_To_Formal
0dd8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0dd9 0000 0000  |    |		.BLANK	0000[0x7]
0de0 ; --------------------------------------------------------------------------------------
0de0 ; SUBPROGRAM
0de0 ; --------------------------------------------------------------------------------------
0de0 0de4       |    |		.CONST	0x0de4								; Address of begin
0de1 0004       |    |		.CONST	0x0004								; Address of exception handler
0de2 0002       |    |		.CONST	0x0002								; Number of locals
0de3			INIT_0de0:
0de3 00e2       |    |		Load_Encached	Integer_Cache
0de4			BODY_0de0:
0de4 e7fe       |    |		Load	0x3,-0x2
0de5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0de6 4f9d       |O   |		Short_Literal	-0x63
0de7 027f       |    |		Execute	Discrete,Equal
0de8 681b       |h   |		Jump_Zero	0xe04
0de9 e7fe       |    |		Load	0x3,-0x2
0dea 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0deb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0dec e5fa       |    |		Load	0x2,-0x6
0ded e7fe       |    |		Load	0x3,-0x2
0dee 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0def e023       | #  |		Load	0x0,0x23
0df0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0df1 8239       | 9  |		Call	0x1,0x39
0df2 e023       | #  |		Load	0x0,0x23
0df3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0df4 e7fe       |    |		Load	0x3,-0x2
0df5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0df6 e405       |    |		Load	0x2,0x5
0df7 e7fe       |    |		Load	0x3,-0x2
0df8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0df9 e406       |    |		Load	0x2,0x6
0dfa e7fe       |    |		Load	0x3,-0x2
0dfb 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0dfc 4801       |H   |		Short_Literal	0x1
0dfd e7fe       |    |		Load	0x3,-0x2
0dfe 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0dff e7fe       |    |		Load	0x3,-0x2
0e00 4800       |H   |		Short_Literal	0x0
0e01 e402       |    |		Load	0x2,0x2
0e02 800f       |    |		Call	0x0,0xf
0e03 00d1       |    |		Pop_Control	Pop_Count_1
0e04 00e2       |    |		Load_Encached	Integer_Cache
0e05 e402       |    |		Load	0x2,0x2
0e06 e7ff       |    |		Load	0x3,-0x1
0e07 8050       | P  |		Call	0x0,0x50
0e08 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0e09 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e0a 0000 0000  |    |		.BLANK	0000[0x6]
0e10 ; --------------------------------------------------------------------------------------
0e10 ; SUBPROGRAM
0e10 ; --------------------------------------------------------------------------------------
0e10 0e2d       | -  |		.CONST	0x0e2d								; Address of begin
0e11 0004       |    |		.CONST	0x0004								; Address of exception handler
0e12 0007       |    |		.CONST	0x0007								; Number of locals
0e13			INIT_0e10:
0e13 e051       | Q  |		Load	0x0,0x51
0e14 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e15 02c7       |    |		Declare_Variable	Any
0e16 00d8       |    |		Load_Top	At_Offset_0
0e17 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e18 4801       |H   |		Short_Literal	0x1
0e19 e7fe       |    |		Load	0x3,-0x2
0e1a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e1b e045       | E  |		Load	0x0,0x45
0e1c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0e1d 035b       | [  |		Declare_Type	Array,Constrained
0e1e 0337       | 7  |		Declare_Variable	Array
0e1f 00e3       |    |		Load_Encached	Natural_Cache
0e20 e7fe       |    |		Load	0x3,-0x2
0e21 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0e22 e023       | #  |		Load	0x0,0x23
0e23 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0e24 e5fa       |    |		Load	0x2,-0x6
0e25 00d9       |    |		Load_Top	At_Offset_1
0e26 8238       | 8  |		Call	0x1,0x38
0e27 e5fe       |    |		Load	0x2,-0x2
0e28 e402       |    |		Load	0x2,0x2
0e29 e02d       | -  |		Load	0x0,0x2d
0e2a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0e2b e007       |    |		Load	0x0,0x7
0e2c 0007       |    |		Action	Break_Optional
0e2d			BODY_0e10:
0e2d 00da       |    |		Load_Top	At_Offset_2
0e2e 0092 104a  |   J|		Action	Push_String_Extended,0x104a					; " => "
0e30 01cc       |    |		Execute	Vector,Catenate
0e31 00da       |    |		Load_Top	At_Offset_2
0e32 01cc       |    |		Execute	Vector,Catenate
0e33 e015       |    |		Load	0x0,0x15
0e34 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0e35 e5fb       |    |		Load	0x2,-0x5
0e36 681d       |h   |		Jump_Zero	0xe54
0e37 e007       |    |		Load	0x0,0x7
0e38 4801       |H   |		Short_Literal	0x1
0e39 00db       |    |		Load_Top	At_Offset_3
0e3a 8008       |    |		Call	0x0,0x8
0e3b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0e3c e7fe       |    |		Load	0x3,-0x2
0e3d 4800       |H   |		Short_Literal	0x0
0e3e 00da       |    |		Load_Top	At_Offset_2
0e3f 800f       |    |		Call	0x0,0xf
0e40 00d1       |    |		Pop_Control	Pop_Count_1
0e41 00e3       |    |		Load_Encached	Natural_Cache
0e42 e603       |    |		Load	0x3,0x3
0e43 e7ff       |    |		Load	0x3,-0x1
0e44 8043       | C  |		Call	0x0,0x43
0e45 00d1       |    |		Pop_Control	Pop_Count_1
0e46 c604       |    |		Store	0x3,0x4
0e47 4801       |H   |		Short_Literal	0x1
0e48 e604       |    |		Load	0x3,0x4
0e49 e603       |    |		Load	0x3,0x3
0e4a 01cf       |    |		Execute	Vector,Slice_Read
0e4b 00d9       |    |		Load_Top	At_Offset_1
0e4c 8052       | R  |		Call	0x0,0x52
0e4d 00d8       |    |		Load_Top	At_Offset_0
0e4e 8011       |    |		Call	0x0,0x11
0e4f 00d8       |    |		Load_Top	At_Offset_0
0e50 4801       |H   |		Short_Literal	0x1
0e51 8014       |    |		Call	0x0,0x14
0e52 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0e53 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e54 e602       |    |		Load	0x3,0x2
0e55 e02f       | /  |		Load	0x0,0x2f
0e56 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0e57 e02e       | .  |		Load	0x0,0x2e
0e58 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0e59 e02e       | .  |		Load	0x0,0x2e
0e5a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0e5b 00ea       |    |		Load_Encached	Null_String_Cache
0e5c e606       |    |		Load	0x3,0x6
0e5d 4801       |H   |		Short_Literal	0x1
0e5e e051       | Q  |		Load	0x0,0x51
0e5f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0e60 c602       |    |		Store	0x3,0x2
0e61 00e3       |    |		Load_Encached	Natural_Cache
0e62 e603       |    |		Load	0x3,0x3
0e63 e7ff       |    |		Load	0x3,-0x1
0e64 8043       | C  |		Call	0x0,0x43
0e65 00d1       |    |		Pop_Control	Pop_Count_1
0e66 c604       |    |		Store	0x3,0x4
0e67 4801       |H   |		Short_Literal	0x1
0e68 e604       |    |		Load	0x3,0x4
0e69 e603       |    |		Load	0x3,0x3
0e6a 01cf       |    |		Execute	Vector,Slice_Read
0e6b e602       |    |		Load	0x3,0x2
0e6c e051       | Q  |		Load	0x0,0x51
0e6d 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0e6e e602       |    |		Load	0x3,0x2
0e6f e051       | Q  |		Load	0x0,0x51
0e70 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0e71 c602       |    |		Store	0x3,0x2
0e72 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e73 0000 0000  |    |		.BLANK	0000[0x5]
0e78 ; --------------------------------------------------------------------------------------
0e78 ; SUBPROGRAM
0e78 ; --------------------------------------------------------------------------------------
0e78 0e8e       |    |		.CONST	0x0e8e								; Address of begin
0e79 0004       |    |		.CONST	0x0004								; Address of exception handler
0e7a 0006       |    |		.CONST	0x0006								; Number of locals
0e7b			INIT_0e78:
0e7b e053       | S  |		Load	0x0,0x53
0e7c 0007       |    |		Action	Break_Optional
0e7d 4801       |H   |		Short_Literal	0x1
0e7e e7fe       |    |		Load	0x3,-0x2
0e7f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e80 e045       | E  |		Load	0x0,0x45
0e81 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0e82 035b       | [  |		Declare_Type	Array,Constrained
0e83 0337       | 7  |		Declare_Variable	Array
0e84 00e3       |    |		Load_Encached	Natural_Cache
0e85 e7fe       |    |		Load	0x3,-0x2
0e86 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0e87 e023       | #  |		Load	0x0,0x23
0e88 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0e89 00d8       |    |		Load_Top	At_Offset_0
0e8a e5fe       |    |		Load	0x2,-0x2
0e8b e402       |    |		Load	0x2,0x2
0e8c e02d       | -  |		Load	0x0,0x2d
0e8d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0e8e			BODY_0e78:
0e8e 00d9       |    |		Load_Top	At_Offset_1
0e8f 0092 104a  |   J|		Action	Push_String_Extended,0x104a					; " => "
0e91 01cc       |    |		Execute	Vector,Catenate
0e92 00d9       |    |		Load_Top	At_Offset_1
0e93 01cc       |    |		Execute	Vector,Catenate
0e94 e015       |    |		Load	0x0,0x15
0e95 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0e96 e053       | S  |		Load	0x0,0x53
0e97 00d9       |    |		Load_Top	At_Offset_1
0e98 e403       |    |		Load	0x2,0x3
0e99 8054       | T  |		Call	0x0,0x54
0e9a c602       |    |		Store	0x3,0x2
0e9b 00e3       |    |		Load_Encached	Natural_Cache
0e9c e603       |    |		Load	0x3,0x3
0e9d e7ff       |    |		Load	0x3,-0x1
0e9e 8043       | C  |		Call	0x0,0x43
0e9f 00d1       |    |		Pop_Control	Pop_Count_1
0ea0 005b       | [  |		Store_Top	Discrete,At_Offset_3
0ea1 4801       |H   |		Short_Literal	0x1
0ea2 00db       |    |		Load_Top	At_Offset_3
0ea3 e603       |    |		Load	0x3,0x3
0ea4 01cf       |    |		Execute	Vector,Slice_Read
0ea5 e602       |    |		Load	0x3,0x2
0ea6 8055       | U  |		Call	0x0,0x55
0ea7 e602       |    |		Load	0x3,0x2
0ea8 8056       | V  |		Call	0x0,0x56
0ea9 c602       |    |		Store	0x3,0x2
0eaa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0eab 0000 0000  |    |		.BLANK	0000[0x5]
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; SUBPROGRAM
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0eb5       |    |		.CONST	0x0eb5								; Address of begin
0eb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0eb2 0002       |    |		.CONST	0x0002								; Number of locals
0eb3			INIT_0eb0:
0eb3 e5fb       |    |		Load	0x2,-0x5
0eb4 85fd       |    |		Call	0x2,-0x3
0eb5			BODY_0eb0:
0eb5 4801       |H   |		Short_Literal	0x1
0eb6 0092 104b  |   K|		Action	Push_String_Extended,0x104b					; "LOAD"
0eb8 4801       |H   |		Short_Literal	0x1
0eb9 00db       |    |		Load_Top	At_Offset_3
0eba 8228       | (  |		Call	0x1,0x28
0ebb e01d       |    |		Load	0x0,0x1d
0ebc 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0ebd 6808       |h   |		Jump_Zero	0xec6
0ebe 4801       |H   |		Short_Literal	0x1
0ebf e402       |    |		Load	0x2,0x2
0ec0 4802       |H   |		Short_Literal	0x2
0ec1 00db       |    |		Load_Top	At_Offset_3
0ec2 8228       | (  |		Call	0x1,0x28
0ec3 e003       |    |		Load	0x0,0x3
0ec4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ec5 a403       |    |		Store_Unchecked	0x2,0x3
0ec6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ec7 0000       |    |		.XXX[0x1]
0ec8 ; --------------------------------------------------------------------------------------
0ec8 ; SUBPROGRAM
0ec8 ; --------------------------------------------------------------------------------------
0ec8 0ecf       |    |		.CONST	0x0ecf								; Address of begin
0ec9 0004       |    |		.CONST	0x0004								; Address of exception handler
0eca 0002       |    |		.CONST	0x0002								; Number of locals
0ecb			INIT_0ec8:
0ecb 00da       |    |		Load_Top	At_Offset_2
0ecc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0ecd e023       | #  |		Load	0x0,0x23
0ece 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0ecf			BODY_0ec8:
0ecf 4801       |H   |		Short_Literal	0x1
0ed0 00d9       |    |		Load_Top	At_Offset_1
0ed1 0092 104c  |   L|		Action	Push_String_Extended,0x104c					; ".MLOAD"
0ed3 e01d       |    |		Load	0x0,0x1d
0ed4 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0ed5 00d9       |    |		Load_Top	At_Offset_1
0ed6 01dc       |    |		Execute	Vector,Last
0ed7 0afb       |    |		Execute_Immediate	Plus,-0x5
0ed8 027f       |    |		Execute	Discrete,Equal
0ed9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0eda 0000 0000  |    |		.BLANK	0000[0x6]
0ee0 ; --------------------------------------------------------------------------------------
0ee0 ; SUBPROGRAM
0ee0 ; --------------------------------------------------------------------------------------
0ee0 0f06       |    |		.CONST	0x0f06								; Address of begin
0ee1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ee2 0009       |    |		.CONST	0x0009								; Number of locals
0ee3			INIT_0ee0:
0ee3 4818       |H   |		Short_Literal	0x18
0ee4 03cc       |    |		Declare_Type	Access,Incomplete,Accesses_Protected
0ee5 481e       |H   |		Short_Literal	0x1e
0ee6 e023       | #  |		Load	0x0,0x23
0ee7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ee8 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0ee9 00d9       |    |		Load_Top	At_Offset_1
0eea 029f 0fa3  |    |		Declare_Subprogram	INIT_0fa0,For_Call
0eec 4802       |H   |		Short_Literal	0x2
0eed 032d       | -  |		Declare_Type	Record,Defined
0eee 00d8       |    |		Load_Top	At_Offset_0
0eef 02a0       |    |		Declare_Subprogram	Null_Subprogram
0ef0 00db       |    |		Load_Top	At_Offset_3
0ef1 03c7       |    |		Complete_Type	Access,By_Defining
0ef2 00d9       |    |		Load_Top	At_Offset_1
0ef3 0007       |    |		Action	Break_Optional
0ef4 00da       |    |		Load_Top	At_Offset_2
0ef5 0007       |    |		Action	Break_Optional
0ef6 e002       |    |		Load	0x0,0x2
0ef7 0322       | "  |		Declare_Variable	Record
0ef8 00d8       |    |		Load_Top	At_Offset_0
0ef9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0efa 00d8       |    |		Load_Top	At_Offset_0
0efb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0efc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0efd 0007       |    |		Action	Break_Optional
0efe 00d8       |    |		Load_Top	At_Offset_0
0eff e023       | #  |		Load	0x0,0x23
0f00 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0f01 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0f02 00d8       |    |		Load_Top	At_Offset_0
0f03 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f04 029f 0fbb  |    |		Declare_Subprogram	INIT_0fb8,For_Call
0f06			BODY_0ee0:
0f06 e7fe       |    |		Load	0x3,-0x2
0f07 e7ff       |    |		Load	0x3,-0x1
0f08 8033       | 3  |		Call	0x0,0x33
0f09 00db       |    |		Load_Top	At_Offset_3
0f0a 4801       |H   |		Short_Literal	0x1
0f0b e7ff       |    |		Load	0x3,-0x1
0f0c 800f       |    |		Call	0x0,0xf
0f0d 00d1       |    |		Pop_Control	Pop_Count_1
0f0e 00db       |    |		Load_Top	At_Offset_3
0f0f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f10 00da       |    |		Load_Top	At_Offset_2
0f11 016d       | m  |		Execute	Variant_Record,Structure_Write
0f12 00cf       |    |		Action	Mark_Auxiliary
0f13 7802       |x   |		Jump	0xf16
0f14 8609       |    |		Call	0x3,0x9
0f15 00c9       |    |		Action	Pop_Auxiliary_Loop
0f16 e7ff       |    |		Load	0x3,-0x1
0f17 803d       | =  |		Call	0x0,0x3d
0f18 6ffb       |o   |		Jump_Zero	0xf14
0f19 00ce       |    |		Action	Pop_Auxiliary
0f1a e7ff       |    |		Load	0x3,-0x1
0f1b 8011       |    |		Call	0x0,0x11
0f1c 00cf       |    |		Action	Mark_Auxiliary
0f1d 783f       |x?  |		Jump	0xf5d
0f1e e606       |    |		Load	0x3,0x6
0f1f e5f9       |    |		Load	0x2,-0x7
0f20 e604       |    |		Load	0x3,0x4
0f21 0227       | '  |		Execute	Access,All_Reference
0f22 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f23 e023       | #  |		Load	0x0,0x23
0f24 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f25 e7ff       |    |		Load	0x3,-0x1
0f26 8032       | 2  |		Call	0x0,0x32
0f27 00d1       |    |		Pop_Control	Pop_Count_1
0f28 e606       |    |		Load	0x3,0x6
0f29 8057       | W  |		Call	0x0,0x57
0f2a 6824       |h$  |		Jump_Zero	0xf4f
0f2b e7fe       |    |		Load	0x3,-0x2
0f2c e7ff       |    |		Load	0x3,-0x1
0f2d 8033       | 3  |		Call	0x0,0x33
0f2e e606       |    |		Load	0x3,0x6
0f2f e5f9       |    |		Load	0x2,-0x7
0f30 e604       |    |		Load	0x3,0x4
0f31 0227       | '  |		Execute	Access,All_Reference
0f32 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f33 e023       | #  |		Load	0x0,0x23
0f34 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f35 e7ff       |    |		Load	0x3,-0x1
0f36 8032       | 2  |		Call	0x0,0x32
0f37 00d1       |    |		Pop_Control	Pop_Count_1
0f38 e606       |    |		Load	0x3,0x6
0f39 8057       | W  |		Call	0x0,0x57
0f3a 6814       |h   |		Jump_Zero	0xf4f
0f3b e049       | I  |		Load	0x0,0x49
0f3c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0f3d 4807       |H   |		Short_Literal	0x7
0f3e e604       |    |		Load	0x3,0x4
0f3f 0227       | '  |		Execute	Access,All_Reference
0f40 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f41 e023       | #  |		Load	0x0,0x23
0f42 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f43 0092 104d  |   M|		Action	Push_String_Extended,0x104d					; ", referenced by "
0f45 01cc       |    |		Execute	Vector,Catenate
0f46 e608       |    |		Load	0x3,0x8
0f47 e023       | #  |		Load	0x0,0x23
0f48 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f49 01cc       |    |		Execute	Vector,Catenate
0f4a 0092 104e  |   N|		Action	Push_String_Extended,0x104e					; ", is not in file"
0f4c 01cc       |    |		Execute	Vector,Catenate
0f4d e04a       | J  |		Load	0x0,0x4a
0f4e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f4f e606       |    |		Load	0x3,0x6
0f50 8057       | W  |		Call	0x0,0x57
0f51 7004       |p   |		Jump_Nonzero	0xf56
0f52 e606       |    |		Load	0x3,0x6
0f53 e7ff       |    |		Load	0x3,-0x1
0f54 85fd       |    |		Call	0x2,-0x3
0f55 00d1       |    |		Pop_Control	Pop_Count_1
0f56 e7ff       |    |		Load	0x3,-0x1
0f57 8011       |    |		Call	0x0,0x11
0f58 e604       |    |		Load	0x3,0x4
0f59 0227       | '  |		Execute	Access,All_Reference
0f5a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0f5b a604       |    |		Store_Unchecked	0x3,0x4
0f5c 00c9       |    |		Action	Pop_Auxiliary_Loop
0f5d e604       |    |		Load	0x3,0x4
0f5e 77bf       |w   |		Jump_Nonzero	0xf1e
0f5f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0f60 ; --------------------------------------------------------------------------------------
0f60 ; SUBPROGRAM
0f60 ; --------------------------------------------------------------------------------------
0f60 0f63       | c  |		.CONST	0x0f63								; Address of begin
0f61 0004       |    |		.CONST	0x0004								; Address of exception handler
0f62 0001       |    |		.CONST	0x0001								; Number of locals
0f63			BODY_0f60:
0f63			INIT_0f60:
0f63 e404       |    |		Load	0x2,0x4
0f64 0a01       |    |		Execute_Immediate	Plus,0x1
0f65 c404       |    |		Store	0x2,0x4
0f66 e223       | #  |		Load	0x1,0x23
0f67 0322       | "  |		Declare_Variable	Record
0f68 00d8       |    |		Load_Top	At_Offset_0
0f69 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f6a e7fe       |    |		Load	0x3,-0x2
0f6b 00d9       |    |		Load_Top	At_Offset_1
0f6c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0f6d 00db       |    |		Load_Top	At_Offset_3
0f6e 802c       | ,  |		Call	0x0,0x2c
0f6f 00d9       |    |		Load_Top	At_Offset_1
0f70 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0f71 e404       |    |		Load	0x2,0x4
0f72 e403       |    |		Load	0x2,0x3
0f73 01d6       |    |		Execute	Vector,Field_Write
0f74 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0f75 0000 0000  |    |		.XXX[0x3]
0f77 0000       |    |
0f78 ; --------------------------------------------------------------------------------------
0f78 ; SUBPROGRAM
0f78 ; --------------------------------------------------------------------------------------
0f78 0f7b       | {  |		.CONST	0x0f7b								; Address of begin
0f79 0004       |    |		.CONST	0x0004								; Address of exception handler
0f7a 0001       |    |		.CONST	0x0001								; Number of locals
0f7b			BODY_0f78:
0f7b			INIT_0f78:
0f7b 00da       |    |		Load_Top	At_Offset_2
0f7c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f7d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f7e e023       | #  |		Load	0x0,0x23
0f7f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f80 e7fe       |    |		Load	0x3,-0x2
0f81 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f82 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0f83 e023       | #  |		Load	0x0,0x23
0f84 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f85 01c1       |    |		Execute	Vector,Less
0f86 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f87 0000       |    |		.XXX[0x1]
0f88 ; --------------------------------------------------------------------------------------
0f88 ; SUBPROGRAM
0f88 ; --------------------------------------------------------------------------------------
0f88 0f8b       |    |		.CONST	0x0f8b								; Address of begin
0f89 0004       |    |		.CONST	0x0004								; Address of exception handler
0f8a 0001       |    |		.CONST	0x0001								; Number of locals
0f8b			BODY_0f88:
0f8b			INIT_0f88:
0f8b 4830       |H0  |		Short_Literal	0x30
0f8c 4804       |H   |		Short_Literal	0x4
0f8d e602       |    |		Load	0x3,0x2
0f8e 00d8       |    |		Load_Top	At_Offset_0
0f8f e046       | F  |		Load	0x0,0x46
0f90 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f91 0260       | `  |		Execute	Discrete,In_Type
0f92 7001       |p   |		Jump_Nonzero	0xf94
0f93 0801       |    |		Execute_Immediate	Raise,0x1
0f94 e046       | F  |		Load	0x0,0x46
0f95 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0f96 00db       |    |		Load_Top	At_Offset_3
0f97 01cc       |    |		Execute	Vector,Catenate
0f98 e015       |    |		Load	0x0,0x15
0f99 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0f9a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0f9b 0000 0000  |    |		.BLANK	0000[0x5]
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; SUBPROGRAM
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0fa3       |    |		.CONST	0x0fa3								; Address of begin
0fa1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fa2 0001       |    |		.CONST	0x0001								; Number of locals
0fa3			BODY_0fa0:
0fa3			INIT_0fa0:
0fa3 4601       |F   |		Jump_Case	0x2
0fa4 7801       |x   |		Jump	0xfa6								; case 0x0
0fa5 7807       |x   |		Jump	0xfad								; case 0x1
0fa6 00da       |    |		Load_Top	At_Offset_2
0fa7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0fa8 0125       | %  |		Execute	Any,Set_Constraint
0fa9 00da       |    |		Load_Top	At_Offset_2
0faa 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0fab 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0fac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0fad 00da       |    |		Load_Top	At_Offset_2
0fae 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0faf 0125       | %  |		Execute	Any,Set_Constraint
0fb0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0fb1 0000 0000  |    |		.BLANK	0000[0x7]
0fb8 ; --------------------------------------------------------------------------------------
0fb8 ; SUBPROGRAM
0fb8 ; --------------------------------------------------------------------------------------
0fb8 0fbd       |    |		.CONST	0x0fbd								; Address of begin
0fb9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fba 0002       |    |		.CONST	0x0002								; Number of locals
0fbb			INIT_0fb8:
0fbb e7ff       |    |		Load	0x3,-0x1
0fbc 803c       | <  |		Call	0x0,0x3c
0fbd			BODY_0fb8:
0fbd 4801       |H   |		Short_Literal	0x1
0fbe 0092 104b  |   K|		Action	Push_String_Extended,0x104b					; "LOAD"
0fc0 4801       |H   |		Short_Literal	0x1
0fc1 00db       |    |		Load_Top	At_Offset_3
0fc2 8228       | (  |		Call	0x1,0x28
0fc3 e01d       |    |		Load	0x0,0x1d
0fc4 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0fc5 6839       |h9  |		Jump_Zero	0xfff
0fc6 e605       |    |		Load	0x3,0x5
0fc7 701a       |p   |		Jump_Nonzero	0xfe2
0fc8 e603       |    |		Load	0x3,0x3
0fc9 0322       | "  |		Declare_Variable	Record
0fca 00d8       |    |		Load_Top	At_Offset_0
0fcb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0fcc e607       |    |		Load	0x3,0x7
0fcd 00d8       |    |		Load_Top	At_Offset_0
0fce 00e3       |    |		Load_Encached	Natural_Cache
0fcf 0260       | `  |		Execute	Discrete,In_Type
0fd0 7001       |p   |		Jump_Nonzero	0xfd2
0fd1 0801       |    |		Execute_Immediate	Raise,0x1
0fd2 4802       |H   |		Short_Literal	0x2
0fd3 00db       |    |		Load_Top	At_Offset_3
0fd4 8228       | (  |		Call	0x1,0x28
0fd5 e023       | #  |		Load	0x0,0x23
0fd6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0fd7 00d9       |    |		Load_Top	At_Offset_1
0fd8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0fd9 e602       |    |		Load	0x3,0x2
0fda 00d9       |    |		Load_Top	At_Offset_1
0fdb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0fdc e602       |    |		Load	0x3,0x2
0fdd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0fde a605       |    |		Store_Unchecked	0x3,0x5
0fdf e605       |    |		Load	0x3,0x5
0fe0 a604       |    |		Store_Unchecked	0x3,0x4
0fe1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fe2 e603       |    |		Load	0x3,0x3
0fe3 0322       | "  |		Declare_Variable	Record
0fe4 00d8       |    |		Load_Top	At_Offset_0
0fe5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0fe6 e607       |    |		Load	0x3,0x7
0fe7 00d8       |    |		Load_Top	At_Offset_0
0fe8 00e3       |    |		Load_Encached	Natural_Cache
0fe9 0260       | `  |		Execute	Discrete,In_Type
0fea 7001       |p   |		Jump_Nonzero	0xfec
0feb 0801       |    |		Execute_Immediate	Raise,0x1
0fec 4802       |H   |		Short_Literal	0x2
0fed 00db       |    |		Load_Top	At_Offset_3
0fee 8228       | (  |		Call	0x1,0x28
0fef e023       | #  |		Load	0x0,0x23
0ff0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0ff1 00d9       |    |		Load_Top	At_Offset_1
0ff2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0ff3 e602       |    |		Load	0x3,0x2
0ff4 00d9       |    |		Load_Top	At_Offset_1
0ff5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ff6 e602       |    |		Load	0x3,0x2
0ff7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0ff8 e605       |    |		Load	0x3,0x5
0ff9 0227       | '  |		Execute	Access,All_Reference
0ffa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ffb e605       |    |		Load	0x3,0x5
0ffc 0227       | '  |		Execute	Access,All_Reference
0ffd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0ffe a605       |    |		Store_Unchecked	0x3,0x5
0fff 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1000 ; --------------------------------------------------------------------------------------
1000 ; STRING TABLE
1000 ; --------------------------------------------------------------------------------------
1000 00a0       |    |		.STRTAB	0x00a0->0x1050							; "INDEX"
1001 00a3       |    |		.STRTAB	0x00a3->0x1052							; "OFFSET"
1002 00a7       |    |		.STRTAB	0x00a7->0x1055							; "NAME"
1003 00a9       |    |		.STRTAB	0x00a9->0x1057							; "ROOTNAME"
1004 00af       |    |		.STRTAB	0x00af->0x105b							; "EXTENSION"
1005 00b6       |    |		.STRTAB	0x00b6->0x1060							; "SIZE"
1006 00b8       |    |		.STRTAB	0x00b8->0x1062							; "DATE"
1007 00ba       |    |		.STRTAB	0x00ba->0x1064							; "KIND_FIELD"
1008 00c2       |    |		.STRTAB	0x00c2->0x1069							; "VERSION"
1009 00c7       |    |		.STRTAB	0x00c7->0x106c							; "STATUS"
100a 00cb       |    |		.STRTAB	0x00cb->0x106f							; "Selected contents of "
100b 00de       |    |		.STRTAB	0x00de->0x107a							; "Contents of selected files in"
100c 00f9       |    |		.STRTAB	0x00f9->0x1088							; "Deleted files in"
100d 0107       |    |		.STRTAB	0x0107->0x1090							; "Selected contents of"
100e 0119       |    |		.STRTAB	0x0119->0x109a							; "Index Name Size Date Kind"
100f 0130       | 0  |		.STRTAB	0x0130->0x10a7							; "Displaying selected items in"
1010 014a       | J  |		.STRTAB	0x014a->0x10b5							; "st"
1011 014a       | J  |		.STRTAB	0x014a->0x10b6							; "Deleting files from"
1012 015b       | [  |		.STRTAB	0x015b->0x10bf							; "Undeleting files in"
1013 016c       | l  |		.STRTAB	0x016c->0x10c9							; "Removing duplicates from"
1014 0182       |    |		.STRTAB	0x0182->0x10d5							; "Renaming selected entries in"
1015 019c       |    |		.STRTAB	0x019c->0x10e3							; "Copying selected files from"
1016 01b5       |    |		.STRTAB	0x01b5->0x10f0							; "is not"
1017 01b9       |    |		.STRTAB	0x01b9->0x10f3							; "'s size is different"
1018 01cb       |    |		.STRTAB	0x01cb->0x10fd							; "'s create date is different"
1019 01e4       |    |		.STRTAB	0x01e4->0x110b							; "'s contents is different"
101a 01fa       |    |		.STRTAB	0x01fa->0x1117							; "Gathering selected files from"
101b 0215       |    |		.STRTAB	0x0215->0x1125							; "?"
101c 0214       |    |		.STRTAB	0x0214->0x1126							; "Spreading selected files from "
101d 0230       | 0  |		.STRTAB	0x0230->0x1135							; "Transfering selected files from "
101e 024e       | N  |		.STRTAB	0x024e->0x1145							; ": "
101f 024e       | N  |		.STRTAB	0x024e->0x1146							; "--"
1020 024e       | N  |		.STRTAB	0x024e->0x1147							; "Collecting file data from"
1021 0265       | e  |		.STRTAB	0x0265->0x1153							; " files selected."
1022 0273       | s  |		.STRTAB	0x0273->0x115b							; "."
1023 0272       | r  |		.STRTAB	0x0272->0x115c							; ".XFER"
1024 0275       | u  |		.STRTAB	0x0275->0x115e							; "XFER_"
1025 0278       | x  |		.STRTAB	0x0278->0x1161							; "//"
1026 0278       | x  |		.STRTAB	0x0278->0x1162							; "Version"
1027 027d       | }  |		.STRTAB	0x027d->0x1165							; "Allow operator to enter CLI immediately              : "
1028 02b2       |    |		.STRTAB	0x02b2->0x1181							; "Allow editing of configuration                       : "
1029 02e7       |    |		.STRTAB	0x02e7->0x119c							; "Allow operator to enter CLI prior to starting cluster: "
102a 031c       |    |		.STRTAB	0x031c->0x11b8							; "Load Kernel Layer subsystems only                    : "
102b 0351       | Q  |		.STRTAB	0x0351->0x11d3							; "<FROM STANDARD>"
102c 035e       | ^  |		.STRTAB	0x035e->0x11db							; "Test"
102d 0360       | `  |		.STRTAB	0x0360->0x11dd							; "Test Microcode"
102e 036c       | l  |		.STRTAB	0x036c->0x11e4							; "Passes: "
102f 0372       | r  |		.STRTAB	0x0372->0x11e8							; "Autoboot Kernel Debugger                  : "
1030 039c       |    |		.STRTAB	0x039c->0x11fe							; "Enable remote Kernel Debugging            : "
1031 03c6       |    |		.STRTAB	0x03c6->0x1214							; "Require operator for Kernel Debugging     : "
1032 03f0       |    |		.STRTAB	0x03f0->0x122a							; "Enable remote Environment Debugging       : "
1033 041a       |    |		.STRTAB	0x041a->0x1240							; "Require operator for Environment Debugging: "
1034 0444       | D  |		.STRTAB	0x0444->0x1256							; "Autoboot EEDB                             : "
1035 046e       | n  |		.STRTAB	0x046e->0x126c							; "Autoboot Kernel                           : "
1036 0498       |    |		.STRTAB	0x0498->0x1282							; "Microcode"
1037 049f       |    |		.STRTAB	0x049f->0x1286							; "Sts"
1038 04a0       |    |		.STRTAB	0x04a0->0x1288							; "Index"
1039 04a3       |    |		.STRTAB	0x04a3->0x128a							; "Offset"
103a 04a7       |    |		.STRTAB	0x04a7->0x128d							; "File Name"
103b 04ae       |    |		.STRTAB	0x04ae->0x1292							; "Root Name"
103c 04b5       |    |		.STRTAB	0x04b5->0x1296							; "Ext."
103d 04b7       |    |		.STRTAB	0x04b7->0x1298							; "Size"
103e 04b9       |    |		.STRTAB	0x04b9->0x129a							; "Created"
103f 04be       |    |		.STRTAB	0x04be->0x129e							; "Type"
1040 04c0       |    |		.STRTAB	0x04c0->0x12a0							; "XX"
1041 04c0       |    |		.STRTAB	0x04c0->0x12a1							; "OK"
1042 04c0       |    |		.STRTAB	0x04c0->0x12a2							; "KRNL"
1043 04c2       |    |		.STRTAB	0x04c2->0x12a4							; "PRGM"
1044 04c4       |    |		.STRTAB	0x04c4->0x12a6							; "OTHR"
1045 04c6       |    |		.STRTAB	0x04c6->0x12a8							; "<DEFAULT>"
1046 04cd       |    |		.STRTAB	0x04cd->0x12ac							; "XXX"
1047 04ce       |    |		.STRTAB	0x04ce->0x12ae							; "==>"
1048 04cf       |    |		.STRTAB	0x04cf->0x12af							; " "
1049 04ce       |    |		.STRTAB	0x04ce->0x12b0							; " in file "
104a 04d5       |    |		.STRTAB	0x04d5->0x12b4							; " => "
104b 04d7       |    |		.STRTAB	0x04d7->0x12b6							; "LOAD"
104c 04d9       |    |		.STRTAB	0x04d9->0x12b8							; ".MLOAD"
104d 04dd       |    |		.STRTAB	0x04dd->0x12bb							; ", referenced by "
104e 04eb       |    |		.STRTAB	0x04eb->0x12c3							; ", is not in file"
104f 04f9       |    |		.STREND 0x04f9->0x12cb
1050 494e 4445  |INDE|		.STRTAB_STRINGS
12cc 0000 0000  |    |		.BLANK	0000[0x4]
12d0 ; --------------------------------------------------------------------------------------
12d0 ; Debug Table
12d0 ; --------------------------------------------------------------------------------------
12d0 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0xf222,0x0000,0x0001,0x0000
12d6 0000 0000  |    |		.BLANK	0000[0x29]
12ff 00c4 c0c0  |    |		.XXX[0x1d]
1301 d8d8 d000  |    |
1303 00c0 c0c0  |    |
1305 d0c4 d800  |    |
1307 00c0 c0c0  |    |
1309 c0c0 c000  |    |
130b 00c0 c0c0  |    |
130d c0c0 d4cc  |    |
130f d8dc c8d0  |    |
1311 00c0 d0dc  |    |
1313 dcd8 c0c0  |    |
1315 d4c4 c0cc  |    |
1317 00c0 c0dc  |    |
1319 c8c0 cc00  |    |
131b 80c0       |    |
131c 0000 0000  |    |		.BLANK	0000[0x32]
134e 8080 8080  |    |		.XXX[0x3]
1350 80c0       |    |
1351 0000 0000  |    |		.BLANK	0000[0x29]
137a 0080 c400  |    |		.XXX[0x4]
137c 80c0 0080  |    |
137e 0000 0000  |    |		.BLANK	0000[0x4f]
13cd 0084 f185  |    |		.XXX[0x33]
13cf c98d a0f8  |    |
13d1 297d 7cb9  |)}| |
13d3 4d65 3511  |Me5 |
13d5 1518 8080  |    |
13d7 8080 8080  |    |
13d9 80d8 dcc0  |    |
13db d4d8 d8e4  |    |
13dd e0d0 8080  |    |
13df 80c8 dcc0  |    |
13e1 8080 80c0  |    |
13e3 8080 8080  |    |
13e5 80c4 c0c0  |    |
13e7 d8d0 d080  |    |
13e9 80dc dce4  |    |
13eb c080 8080  |    |
13ed 8080 8180  |    |
13ef 28c0 2400  |( $ |
13f1 0000 0000  |    |
13f3 02c8 7800  |  x |
13f5 0028 0000  | (  |
13f7 02c8 7800  |  x |
13f9 0054 0000  | T  |
13fb 02c8 7800  |  x |
13fd 007c 0000  | |  |
13ff 02c8       |    |