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

⟦69161580d⟧

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

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 0d10       |    |		.CONST	0x0d10								; 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 8008       |    |		.CONST	0x8008								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01b8       |    |		.CONST	0x01b8								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 005b       | [  |		.CONST	0x005b								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
000d 0129       | )  |		Execute	Any,Make_Visible
000e 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000f 00c4       |    |		Action	Make_Default
0010 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0012 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0014 00e7       |    |		Load_Encached	Duration_Cache
0015 0129       | )  |		Execute	Any,Make_Visible
0016 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0018 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
001a 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
001c 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
001e 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0020 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0022 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0024 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0026 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0028 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
002a 00e9       |    |		Load_Encached	String_Cache
002b 0129       | )  |		Execute	Any,Make_Visible
002c 00e9       |    |		Load_Encached	String_Cache
002d 0129       | )  |		Execute	Any,Make_Visible
002e 0092 0b3d  |   =|		Action	Push_String_Extended,0xb3d					; "!MACHINE.DEVICES.NIL"
0030 0129       | )  |		Execute	Any,Make_Visible
0031 00e9       |    |		Load_Encached	String_Cache
0032 0129       | )  |		Execute	Any,Make_Visible
0033 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0035 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0037 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0039 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
003b 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
003d 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
003f 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0041 029a 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call,Visible,Unelaborated
0043 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated
0045 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
0047 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
0049 029a 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Visible,Unelaborated
004b 029a 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call,Visible,Unelaborated
004d 029a 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call,Visible,Unelaborated
004f 00e9       |    |		Load_Encached	String_Cache
0050 0129       | )  |		Execute	Any,Make_Visible
0051 00e7       |    |		Load_Encached	Duration_Cache
0052 0129       | )  |		Execute	Any,Make_Visible
0053 029a 064b  |   K|		Declare_Subprogram	INIT_0648,For_Outer_Call,Visible,Unelaborated
0055 029a 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call,Visible,Unelaborated
0057 029a 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call,Visible,Unelaborated
0059 4800       |H   |		Short_Literal	0x0
005a 4802       |H   |		Short_Literal	0x2
005b 029f 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Call
005d 03fe       |    |		Declare_Type	Discrete,Defined,Visible
005e 029a 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call,Visible,Unelaborated
0060 4800       |H   |		Short_Literal	0x0
0061 48ff       |H   |		Short_Literal	0xff
0062 00e5       |    |		Load_Encached	Long_Integer_Cache
0063 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0064 029a 0853  |   S|		Declare_Subprogram	INIT_0850,For_Outer_Call,Visible,Unelaborated
0066 4800       |H   |		Short_Literal	0x0
0067 48ff       |H   |		Short_Literal	0xff
0068 00e5       |    |		Load_Encached	Long_Integer_Cache
0069 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
006a 4801       |H   |		Short_Literal	0x1
006b 4802       |H   |		Short_Literal	0x2
006c 00da       |    |		Load_Top	At_Offset_2
006d 02a0       |    |		Declare_Subprogram	Null_Subprogram
006e 4801       |H   |		Short_Literal	0x1
006f 035e       | ^  |		Declare_Type	Array,Defined,Visible
0070 00d8       |    |		Load_Top	At_Offset_0
0071 0337       | 7  |		Declare_Variable	Array
0072 4800       |H   |		Short_Literal	0x0
0073 4801       |H   |		Short_Literal	0x1
0074 00da       |    |		Load_Top	At_Offset_2
0075 01d6       |    |		Execute	Vector,Field_Write
0076 4800       |H   |		Short_Literal	0x0
0077 4802       |H   |		Short_Literal	0x2
0078 00da       |    |		Load_Top	At_Offset_2
0079 01d6       |    |		Execute	Vector,Field_Write
007a 00d9       |    |		Load_Top	At_Offset_1
007b 01c3       |    |		Execute	Vector,Check_In_Type
007c 0129       | )  |		Execute	Any,Make_Visible
007d 029a 089b  |    |		Declare_Subprogram	INIT_0898,For_Outer_Call,Visible,Unelaborated
007f 029a 08b3  |    |		Declare_Subprogram	INIT_08b0,For_Outer_Call,Visible,Unelaborated
0081 029a 08db  |    |		Declare_Subprogram	INIT_08d8,For_Outer_Call,Visible,Unelaborated
0083 4800       |H   |		Short_Literal	0x0
0084 48ff       |H   |		Short_Literal	0xff
0085 00e5       |    |		Load_Encached	Long_Integer_Cache
0086 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0087 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
0089 029a 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Outer_Call,Visible,Unelaborated
008b 029a 0913  |    |		Declare_Subprogram	INIT_0910,For_Outer_Call,Visible,Unelaborated
008d 03a8       |    |		Declare_Type	Heap_Access,Indirect_Literal
008e 00d8       |    |		Load_Top	At_Offset_0
008f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0090 e20e       |    |		Load	0x1,0xe
0091 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0092 e20e       |    |		Load	0x1,0xe
0093 0129       | )  |		Execute	Any,Make_Visible
0094 c20f       |    |		Store	0x1,0xf
0095 00bf       |    |		Action	Accept_Activation
0096 e002       |    |		Load	0x0,0x2
0097 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0098 0007       |    |		Action	Break_Optional
0099 4800       |H   |		Short_Literal	0x0
009a 4801       |H   |		Short_Literal	0x1
009b 4801       |H   |		Short_Literal	0x1
009c 6143       |aC  |		Indirect_Literal	Discrete,0x1e0,{0x00000000, 0x000007b2}
009d e002       |    |		Load	0x0,0x2
009e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
009f e002       |    |		Load	0x0,0x2
00a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a1 011e       |    |		Execute	Any,Convert
00a2 4801       |H   |		Short_Literal	0x1
00a3 4803       |H   |		Short_Literal	0x3
00a4 00e9       |    |		Load_Encached	String_Cache
00a5 035b       | [  |		Declare_Type	Array,Constrained
00a6 e003       |    |		Load	0x0,0x3
00a7 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00a8 0266       | f  |		Execute	Discrete,Bounds
00a9 00da       |    |		Load_Top	At_Offset_2
00aa 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ab 4801       |H   |		Short_Literal	0x1
00ac 035d       | ]  |		Declare_Type	Array,Defined
00ad 00d8       |    |		Load_Top	At_Offset_0
00ae 0337       | 7  |		Declare_Variable	Array
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 0335       | 5  |		Declare_Variable	Array,Duplicate
00b1 00cd       |    |		Action	Spare6_Action
00b2 0092 0b3e  |   >|		Action	Push_String_Extended,0xb3e					; ":::"
00b4 e245       | E  |		Load	0x1,0x45
00b5 0119       |    |		Execute	Any,Check_In_Formal_Type
00b6 4800       |H   |		Short_Literal	0x0
00b7 00da       |    |		Load_Top	At_Offset_2
00b8 01d6       |    |		Execute	Vector,Field_Write
00b9 0092 0b3f  |   ?|		Action	Push_String_Extended,0xb3f					; "???"
00bb e245       | E  |		Load	0x1,0x45
00bc 0119       |    |		Execute	Any,Check_In_Formal_Type
00bd 4801       |H   |		Short_Literal	0x1
00be 00da       |    |		Load_Top	At_Offset_2
00bf 01d6       |    |		Execute	Vector,Field_Write
00c0 0092 0b40  |   @|		Action	Push_String_Extended,0xb40					; "---"
00c2 e245       | E  |		Load	0x1,0x45
00c3 0119       |    |		Execute	Any,Check_In_Formal_Type
00c4 4802       |H   |		Short_Literal	0x2
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 01d6       |    |		Execute	Vector,Field_Write
00c7 0092 0b41  |   A|		Action	Push_String_Extended,0xb41					; "+++"
00c9 e245       | E  |		Load	0x1,0x45
00ca 0119       |    |		Execute	Any,Check_In_Formal_Type
00cb 4803       |H   |		Short_Literal	0x3
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 01d6       |    |		Execute	Vector,Field_Write
00ce 0092 0b42  |   B|		Action	Push_String_Extended,0xb42					; ">>>"
00d0 e245       | E  |		Load	0x1,0x45
00d1 0119       |    |		Execute	Any,Check_In_Formal_Type
00d2 4804       |H   |		Short_Literal	0x4
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 01d6       |    |		Execute	Vector,Field_Write
00d5 0092 0b43  |   C|		Action	Push_String_Extended,0xb43					; "++*"
00d7 e245       | E  |		Load	0x1,0x45
00d8 0119       |    |		Execute	Any,Check_In_Formal_Type
00d9 4805       |H   |		Short_Literal	0x5
00da 00da       |    |		Load_Top	At_Offset_2
00db 01d6       |    |		Execute	Vector,Field_Write
00dc 0092 0b44  |   D|		Action	Push_String_Extended,0xb44					; "!!!"
00de e245       | E  |		Load	0x1,0x45
00df 0119       |    |		Execute	Any,Check_In_Formal_Type
00e0 4806       |H   |		Short_Literal	0x6
00e1 00da       |    |		Load_Top	At_Offset_2
00e2 01d6       |    |		Execute	Vector,Field_Write
00e3 0092 0b45  |   E|		Action	Push_String_Extended,0xb45					; "***"
00e5 e245       | E  |		Load	0x1,0x45
00e6 0119       |    |		Execute	Any,Check_In_Formal_Type
00e7 4807       |H   |		Short_Literal	0x7
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 01d6       |    |		Execute	Vector,Field_Write
00ea 0092 0b46  |   F|		Action	Push_String_Extended,0xb46					; "%%%"
00ec e245       | E  |		Load	0x1,0x45
00ed 0119       |    |		Execute	Any,Check_In_Formal_Type
00ee 4808       |H   |		Short_Literal	0x8
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 0092 0b47  |   G|		Action	Push_String_Extended,0xb47					; "###"
00f3 e245       | E  |		Load	0x1,0x45
00f4 0119       |    |		Execute	Any,Check_In_Formal_Type
00f5 4809       |H   |		Short_Literal	0x9
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 01d6       |    |		Execute	Vector,Field_Write
00f8 0092 0b48  |   H|		Action	Push_String_Extended,0xb48					; "@@@"
00fa e245       | E  |		Load	0x1,0x45
00fb 0119       |    |		Execute	Any,Check_In_Formal_Type
00fc 480a       |H   |		Short_Literal	0xa
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 01d6       |    |		Execute	Vector,Field_Write
00ff 0092 0b49  |   I|		Action	Push_String_Extended,0xb49					; "$$$"
0101 e245       | E  |		Load	0x1,0x45
0102 0119       |    |		Execute	Any,Check_In_Formal_Type
0103 480b       |H   |		Short_Literal	0xb
0104 00da       |    |		Load_Top	At_Offset_2
0105 01d6       |    |		Execute	Vector,Field_Write
0106 00d9       |    |		Load_Top	At_Offset_1
0107 01d4       |    |		Execute	Vector,Structure_Write
0108 e004       |    |		Load	0x0,0x4
0109 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
010a 0266       | f  |		Execute	Discrete,Bounds
010b e234       | 4  |		Load	0x1,0x34
010c 02a0       |    |		Declare_Subprogram	Null_Subprogram
010d 4801       |H   |		Short_Literal	0x1
010e 035d       | ]  |		Declare_Type	Array,Defined
010f 00d8       |    |		Load_Top	At_Offset_0
0110 0337       | 7  |		Declare_Variable	Array
0111 00d8       |    |		Load_Top	At_Offset_0
0112 0335       | 5  |		Declare_Variable	Array,Duplicate
0113 00cd       |    |		Action	Spare6_Action
0114 4800       |H   |		Short_Literal	0x0
0115 4800       |H   |		Short_Literal	0x0
0116 00da       |    |		Load_Top	At_Offset_2
0117 01d6       |    |		Execute	Vector,Field_Write
0118 4801       |H   |		Short_Literal	0x1
0119 4801       |H   |		Short_Literal	0x1
011a 00da       |    |		Load_Top	At_Offset_2
011b 01d6       |    |		Execute	Vector,Field_Write
011c 4802       |H   |		Short_Literal	0x2
011d 4802       |H   |		Short_Literal	0x2
011e 00da       |    |		Load_Top	At_Offset_2
011f 01d6       |    |		Execute	Vector,Field_Write
0120 00d9       |    |		Load_Top	At_Offset_1
0121 01d4       |    |		Execute	Vector,Structure_Write
0122 e234       | 4  |		Load	0x1,0x34
0123 0266       | f  |		Execute	Discrete,Bounds
0124 e004       |    |		Load	0x0,0x4
0125 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0126 02a0       |    |		Declare_Subprogram	Null_Subprogram
0127 4801       |H   |		Short_Literal	0x1
0128 035d       | ]  |		Declare_Type	Array,Defined
0129 00d8       |    |		Load_Top	At_Offset_0
012a 0337       | 7  |		Declare_Variable	Array
012b 00d8       |    |		Load_Top	At_Offset_0
012c 0335       | 5  |		Declare_Variable	Array,Duplicate
012d 00cd       |    |		Action	Spare6_Action
012e 4800       |H   |		Short_Literal	0x0
012f 4800       |H   |		Short_Literal	0x0
0130 00da       |    |		Load_Top	At_Offset_2
0131 01d6       |    |		Execute	Vector,Field_Write
0132 4801       |H   |		Short_Literal	0x1
0133 4801       |H   |		Short_Literal	0x1
0134 00da       |    |		Load_Top	At_Offset_2
0135 01d6       |    |		Execute	Vector,Field_Write
0136 4802       |H   |		Short_Literal	0x2
0137 4802       |H   |		Short_Literal	0x2
0138 00da       |    |		Load_Top	At_Offset_2
0139 01d6       |    |		Execute	Vector,Field_Write
013a 00d9       |    |		Load_Top	At_Offset_1
013b 01d4       |    |		Execute	Vector,Structure_Write
013c e004       |    |		Load	0x0,0x4
013d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
013e e242       | B  |		Load	0x1,0x42
013f 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
0140 00e3       |    |		Load_Encached	Natural_Cache
0141 e20e       |    |		Load	0x1,0xe
0142 e005       |    |		Load	0x0,0x5
0143 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0144 e005       |    |		Load	0x0,0x5
0145 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0146 e005       |    |		Load	0x0,0x5
0147 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0148 e20d       |    |		Load	0x1,0xd
0149 00e9       |    |		Load_Encached	String_Cache
014a 029f 0923  |   #|		Declare_Subprogram	INIT_0920,For_Call
014c 4800       |H   |		Short_Literal	0x0
014d 4801       |H   |		Short_Literal	0x1
014e 4805       |H   |		Short_Literal	0x5
014f 4800       |H   |		Short_Literal	0x0
0150 4801       |H   |		Short_Literal	0x1
0151 4801       |H   |		Short_Literal	0x1
0152 031d       |    |		Declare_Type	Variant_Record,Defined
0153 029d 095b  |   [|		Declare_Subprogram	INIT_0958,For_Outer_Call
0155 029d 096b  |   k|		Declare_Subprogram	INIT_0968,For_Outer_Call
0157 029d 0983  |    |		Declare_Subprogram	INIT_0980,For_Outer_Call
0159 029d 09a3  |    |		Declare_Subprogram	INIT_09a0,For_Outer_Call
015b 029d 09b3  |    |		Declare_Subprogram	INIT_09b0,For_Outer_Call
015d 029d 09db  |    |		Declare_Subprogram	INIT_09d8,For_Outer_Call
015f 029d 0a13  |    |		Declare_Subprogram	INIT_0a10,For_Outer_Call
0161 e004       |    |		Load	0x0,0x4
0162 1967       | g  |		Execute	Package,Field_Reference,Field_Number 0x67
0163 00c6       |    |		Action	Check_Subprogram_Elaborated
0164 e24c       | L  |		Load	0x1,0x4c
0165 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
0166 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0167 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0168 e006       |    |		Load	0x0,0x6
0169 e007       |    |		Load	0x0,0x7
016a 4800       |H   |		Short_Literal	0x0
016b 0007       |    |		Action	Break_Optional
016c 029d 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Outer_Call
016e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
016f 00c7       |    |		Action	Elaborate_Subprogram
0170 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0171 00c7       |    |		Action	Elaborate_Subprogram
0172 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0173 00c7       |    |		Action	Elaborate_Subprogram
0174 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0175 00c7       |    |		Action	Elaborate_Subprogram
0176 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0177 00c7       |    |		Action	Elaborate_Subprogram
0178 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0179 00c7       |    |		Action	Elaborate_Subprogram
017a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
017b 00c7       |    |		Action	Elaborate_Subprogram
017c 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
017d 00c7       |    |		Action	Elaborate_Subprogram
017e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
017f 00c7       |    |		Action	Elaborate_Subprogram
0180 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0181 00c7       |    |		Action	Elaborate_Subprogram
0182 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0183 00c7       |    |		Action	Elaborate_Subprogram
0184 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0185 00c7       |    |		Action	Elaborate_Subprogram
0186 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0187 00c7       |    |		Action	Elaborate_Subprogram
0188 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0189 00c7       |    |		Action	Elaborate_Subprogram
018a 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
018b 00c7       |    |		Action	Elaborate_Subprogram
018c 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
018d 00c7       |    |		Action	Elaborate_Subprogram
018e 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
018f 00c7       |    |		Action	Elaborate_Subprogram
0190 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0191 00c7       |    |		Action	Elaborate_Subprogram
0192 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0193 00c7       |    |		Action	Elaborate_Subprogram
0194 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0195 00c7       |    |		Action	Elaborate_Subprogram
0196 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0197 00c7       |    |		Action	Elaborate_Subprogram
0198 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0199 00c7       |    |		Action	Elaborate_Subprogram
019a 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
019b 00c7       |    |		Action	Elaborate_Subprogram
019c 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
019d 00c7       |    |		Action	Elaborate_Subprogram
019e 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
019f 00c7       |    |		Action	Elaborate_Subprogram
01a0 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
01a1 00c7       |    |		Action	Elaborate_Subprogram
01a2 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
01a3 00c7       |    |		Action	Elaborate_Subprogram
01a4 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
01a5 00c7       |    |		Action	Elaborate_Subprogram
01a6 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
01a7 00c7       |    |		Action	Elaborate_Subprogram
01a8 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
01a9 00c7       |    |		Action	Elaborate_Subprogram
01aa 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
01ab 00c7       |    |		Action	Elaborate_Subprogram
01ac 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
01ad 00c7       |    |		Action	Elaborate_Subprogram
01ae 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
01af 00c7       |    |		Action	Elaborate_Subprogram
01b0 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
01b1 00c7       |    |		Action	Elaborate_Subprogram
01b2 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01b3 00c7       |    |		Action	Elaborate_Subprogram
01b4 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
01b5 00c7       |    |		Action	Elaborate_Subprogram
01b6 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
01b7 00c7       |    |		Action	Elaborate_Subprogram
01b8			BODY_0008:
01b8 00bc       |    |		Action	Signal_Activated
01b9 00bb       |    |		Action	Signal_Completion
01ba 0000 0000  |    |		.BLANK	0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 e5fc       |    |		Load	0x2,-0x4
01c4 0120       |    |		Execute	Any,Is_Value
01c5 6802       |h   |		Jump_Zero	0x1c8
01c6 e20d       |    |		Load	0x1,0xd
01c7 7801       |x   |		Jump	0x1c9
01c8 e5fc       |    |		Load	0x2,-0x4
01c9 e20e       |    |		Load	0x1,0xe
01ca e5fe       |    |		Load	0x2,-0x2
01cb e003       |    |		Load	0x0,0x3
01cc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01cd e5ff       |    |		Load	0x2,-0x1
01ce e008       |    |		Load	0x0,0x8
01cf 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01d0 e003       |    |		Load	0x0,0x3
01d1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01d2 e5ff       |    |		Load	0x2,-0x1
01d3 e008       |    |		Load	0x0,0x8
01d4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d5 e003       |    |		Load	0x0,0x3
01d6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 e008       |    |		Load	0x0,0x8
01d9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01da e5ff       |    |		Load	0x2,-0x1
01db 8211       |    |		Call	0x1,0x11
01dc c5fd       |    |		Store	0x2,-0x3
01dd c5fc       |    |		Store	0x2,-0x4
01de 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01df 0000       |    |		.XXX[0x1]
01e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007b2}
01e4 0000 0000  |    |		.BLANK	0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f1       |    |		.CONST	0x01f1								; Address of begin
01e9 0212       |    |		.CONST	0x0212								; Address of exception handler
01ea 0003       |    |		.CONST	0x0003								; Number of locals
01eb			INIT_01e8:
01eb e004       |    |		Load	0x0,0x4
01ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ed e20d       |    |		Load	0x1,0xd
01ee 02c7       |    |		Declare_Variable	Any
01ef 00d8       |    |		Load_Top	At_Offset_0
01f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f1			BODY_01e8:
01f1 00d8       |    |		Load_Top	At_Offset_0
01f2 0120       |    |		Execute	Any,Is_Value
01f3 6803       |h   |		Jump_Zero	0x1f7
01f4 e001       |    |		Load	0x0,0x1
01f5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f6 7801       |x   |		Jump	0x1f8
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 e004       |    |		Load	0x0,0x4
01f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fa e5fb       |    |		Load	0x2,-0x5
01fb e5fc       |    |		Load	0x2,-0x4
01fc e5fd       |    |		Load	0x2,-0x3
01fd e5fe       |    |		Load	0x2,-0x2
01fe e5ff       |    |		Load	0x2,-0x1
01ff e009       |    |		Load	0x0,0x9
0200 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0201 e00a       |    |		Load	0x0,0xa
0202 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0203 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0204 c403       |    |		Store	0x2,0x3
0205 00d8       |    |		Load_Top	At_Offset_0
0206 824d       | M  |		Call	0x1,0x4d
0207 00d9       |    |		Load_Top	At_Offset_1
0208 e20e       |    |		Load	0x1,0xe
0209 e00b       |    |		Load	0x0,0xb
020a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020b e00c       |    |		Load	0x0,0xc
020c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020d 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
020e a5fa       |    |		Store_Unchecked	0x2,-0x6
020f 00d8       |    |		Load_Top	At_Offset_0
0210 c5f9       |    |		Store	0x2,-0x7
0211 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0212			TRAP_01e8:
0212 e00d       |    |		Load	0x0,0xd
0213 010f       |    |		Execute	Exception,Equal
0214 6805       |h   |		Jump_Zero	0x21a
0215 e20e       |    |		Load	0x1,0xe
0216 a5fa       |    |		Store_Unchecked	0x2,-0x6
0217 00d9       |    |		Load_Top	At_Offset_1
0218 c5f9       |    |		Store	0x2,-0x7
0219 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
021a 00d9       |    |		Load_Top	At_Offset_1
021b 0092 0b4a  |   J|		Action	Push_String_Extended,0xb4a					; "Acquire"
021d 824e       | N  |		Call	0x1,0x4e
021e c403       |    |		Store	0x2,0x3
021f e20e       |    |		Load	0x1,0xe
0220 a5fa       |    |		Store_Unchecked	0x2,-0x6
0221 00d9       |    |		Load_Top	At_Offset_1
0222 c5f9       |    |		Store	0x2,-0x7
0223 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0224 0000 0000  |    |		.BLANK	0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f       | /  |		.CONST	0x022f								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b e20d       |    |		Load	0x1,0xd
022c 02c7       |    |		Declare_Variable	Any
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022f			BODY_0228:
022f e5fe       |    |		Load	0x2,-0x2
0230 6818       |h   |		Jump_Zero	0x249
0231 e5fe       |    |		Load	0x2,-0x2
0232 00d9       |    |		Load_Top	At_Offset_1
0233 0120       |    |		Execute	Any,Is_Value
0234 6803       |h   |		Jump_Zero	0x238
0235 e001       |    |		Load	0x0,0x1
0236 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0237 7801       |x   |		Jump	0x239
0238 00d9       |    |		Load_Top	At_Offset_1
0239 00d9       |    |		Load_Top	At_Offset_1
023a 0219       |    |		Execute	Heap_Access,All_Read
023b e004       |    |		Load	0x0,0x4
023c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
023d 0216       |    |		Execute	Heap_Access,Convert
023e e5ff       |    |		Load	0x2,-0x1
023f e00a       |    |		Load	0x0,0xa
0240 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0241 00da       |    |		Load_Top	At_Offset_2
0242 0218       |    |		Execute	Heap_Access,All_Write
0243 c402       |    |		Store	0x2,0x2
0244 00d1       |    |		Pop_Control	Pop_Count_1
0245 e004       |    |		Load	0x0,0x4
0246 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0247 e5fe       |    |		Load	0x2,-0x2
0248 0218       |    |		Execute	Heap_Access,All_Write
0249 e20e       |    |		Load	0x1,0xe
024a a5fe       |    |		Store_Unchecked	0x2,-0x2
024b 00d8       |    |		Load_Top	At_Offset_0
024c c5fd       |    |		Store	0x2,-0x3
024d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024e 0000 0000  |    |		.XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0257       | W  |		.CONST	0x0257								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 e20d       |    |		Load	0x1,0xd
0254 02c7       |    |		Declare_Variable	Any
0255 00d8       |    |		Load_Top	At_Offset_0
0256 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0257			BODY_0250:
0257 00db       |    |		Load_Top	At_Offset_3
0258 6817       |h   |		Jump_Zero	0x270
0259 00db       |    |		Load_Top	At_Offset_3
025a 00d9       |    |		Load_Top	At_Offset_1
025b 0120       |    |		Execute	Any,Is_Value
025c 6803       |h   |		Jump_Zero	0x260
025d e001       |    |		Load	0x0,0x1
025e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025f 7801       |x   |		Jump	0x261
0260 00d9       |    |		Load_Top	At_Offset_1
0261 00d9       |    |		Load_Top	At_Offset_1
0262 0219       |    |		Execute	Heap_Access,All_Read
0263 e004       |    |		Load	0x0,0x4
0264 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0265 0216       |    |		Execute	Heap_Access,Convert
0266 e00a       |    |		Load	0x0,0xa
0267 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0268 00da       |    |		Load_Top	At_Offset_2
0269 0218       |    |		Execute	Heap_Access,All_Write
026a c402       |    |		Store	0x2,0x2
026b 00d1       |    |		Pop_Control	Pop_Count_1
026c e004       |    |		Load	0x0,0x4
026d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
026e e5ff       |    |		Load	0x2,-0x1
026f 0218       |    |		Execute	Heap_Access,All_Write
0270 e20e       |    |		Load	0x1,0xe
0271 a5ff       |    |		Store_Unchecked	0x2,-0x1
0272 00d8       |    |		Load_Top	At_Offset_0
0273 c5fe       |    |		Store	0x2,-0x2
0274 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2
027c e20e       |    |		Load	0x1,0xe
027d 021f       |    |		Execute	Heap_Access,Equal
027e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027f 0000       |    |		.XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 8215       |    |		Call	0x1,0x15
0285 6802       |h   |		Jump_Zero	0x288
0286 00ea       |    |		Load_Encached	Null_String_Cache
0287 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0288 00da       |    |		Load_Top	At_Offset_2
0289 0219       |    |		Execute	Heap_Access,All_Read
028a e004       |    |		Load	0x0,0x4
028b 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
028c e009       |    |		Load	0x0,0x9
028d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
028e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028f 0000       |    |		.XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00da       |    |		Load_Top	At_Offset_2
0294 8215       |    |		Call	0x1,0x15
0295 6802       |h   |		Jump_Zero	0x298
0296 00ea       |    |		Load_Encached	Null_String_Cache
0297 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0298 00da       |    |		Load_Top	At_Offset_2
0299 0219       |    |		Execute	Heap_Access,All_Read
029a e004       |    |		Load	0x0,0x4
029b 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
029c e009       |    |		Load	0x0,0x9
029d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
029e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029f 0000       |    |		.XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 00da       |    |		Load_Top	At_Offset_2
02a4 8215       |    |		Call	0x1,0x15
02a5 6802       |h   |		Jump_Zero	0x2a8
02a6 00ea       |    |		Load_Encached	Null_String_Cache
02a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a8 00da       |    |		Load_Top	At_Offset_2
02a9 0219       |    |		Execute	Heap_Access,All_Read
02aa e004       |    |		Load	0x0,0x4
02ab 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
02ac e009       |    |		Load	0x0,0x9
02ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02af 0000       |    |		.XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 8215       |    |		Call	0x1,0x15
02b5 6802       |h   |		Jump_Zero	0x2b8
02b6 00ea       |    |		Load_Encached	Null_String_Cache
02b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b8 00da       |    |		Load_Top	At_Offset_2
02b9 0219       |    |		Execute	Heap_Access,All_Read
02ba e004       |    |		Load	0x0,0x4
02bb 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
02bc e009       |    |		Load	0x0,0x9
02bd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00da       |    |		Load_Top	At_Offset_2
02c4 8215       |    |		Call	0x1,0x15
02c5 6802       |h   |		Jump_Zero	0x2c8
02c6 00ea       |    |		Load_Encached	Null_String_Cache
02c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c8 00da       |    |		Load_Top	At_Offset_2
02c9 0219       |    |		Execute	Heap_Access,All_Read
02ca e004       |    |		Load	0x0,0x4
02cb 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
02cc e009       |    |		Load	0x0,0x9
02cd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cf 0000       |    |		.XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 6805       |h   |		Jump_Zero	0x2da
02d5 00da       |    |		Load_Top	At_Offset_2
02d6 0219       |    |		Execute	Heap_Access,All_Read
02d7 e004       |    |		Load	0x0,0x4
02d8 1883       |    |		Execute	Package,Field_Execute,Field_Number 0x83
02d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02da 4800       |H   |		Short_Literal	0x0
02db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02dc 0000 0000  |    |		.BLANK	0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 4800       |H   |		Short_Literal	0x0
02e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e5 0000 0000  |    |		.XXX[0x3]
02e7 0000       |    |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef       |    |		.CONST	0x02ef								; Address of begin
02e9 0313       |    |		.CONST	0x0313								; Address of exception handler
02ea 0002       |    |		.CONST	0x0002								; Number of locals
02eb			INIT_02e8:
02eb e20d       |    |		Load	0x1,0xd
02ec 02c7       |    |		Declare_Variable	Any
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ef			BODY_02e8:
02ef 00db       |    |		Load_Top	At_Offset_3
02f0 8215       |    |		Call	0x1,0x15
02f1 6810       |h   |		Jump_Zero	0x302
02f2 00d8       |    |		Load_Top	At_Offset_0
02f3 e004       |    |		Load	0x0,0x4
02f4 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
02f5 e001       |    |		Load	0x0,0x1
02f6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f7 00ea       |    |		Load_Encached	Null_String_Cache
02f8 e004       |    |		Load	0x0,0x4
02f9 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
02fa e001       |    |		Load	0x0,0x1
02fb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02fc e001       |    |		Load	0x0,0x1
02fd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02fe c402       |    |		Store	0x2,0x2
02ff 00d8       |    |		Load_Top	At_Offset_0
0300 c5fb       |    |		Store	0x2,-0x5
0301 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0302 e5fb       |    |		Load	0x2,-0x5
0303 0120       |    |		Execute	Any,Is_Value
0304 6803       |h   |		Jump_Zero	0x308
0305 e004       |    |		Load	0x0,0x4
0306 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0307 7801       |x   |		Jump	0x309
0308 e5fb       |    |		Load	0x2,-0x5
0309 e5ff       |    |		Load	0x2,-0x1
030a 0219       |    |		Execute	Heap_Access,All_Read
030b e5fd       |    |		Load	0x2,-0x3
030c 4801       |H   |		Short_Literal	0x1
030d e5fc       |    |		Load	0x2,-0x4
030e e5fe       |    |		Load	0x2,-0x2
030f e004       |    |		Load	0x0,0x4
0310 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
0311 c5fb       |    |		Store	0x2,-0x5
0312 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0313			TRAP_02e8:
0313 e00d       |    |		Load	0x0,0xd
0314 010f       |    |		Execute	Exception,Equal
0315 6803       |h   |		Jump_Zero	0x319
0316 00d9       |    |		Load_Top	At_Offset_1
0317 c5fb       |    |		Store	0x2,-0x5
0318 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0319 00d9       |    |		Load_Top	At_Offset_1
031a 0092 0b4b  |   K|		Action	Push_String_Extended,0xb4b					; "Create_Directory"
031c 824e       | N  |		Call	0x1,0x4e
031d c402       |    |		Store	0x2,0x2
031e 00d9       |    |		Load_Top	At_Offset_1
031f c5fb       |    |		Store	0x2,-0x5
0320 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0321 0000 0000  |    |		.BLANK	0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032f       | /  |		.CONST	0x032f								; Address of begin
0329 0353       | S  |		.CONST	0x0353								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b e20d       |    |		Load	0x1,0xd
032c 02c7       |    |		Declare_Variable	Any
032d 00d8       |    |		Load_Top	At_Offset_0
032e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
032f			BODY_0328:
032f 00db       |    |		Load_Top	At_Offset_3
0330 8215       |    |		Call	0x1,0x15
0331 6810       |h   |		Jump_Zero	0x342
0332 00d8       |    |		Load_Top	At_Offset_0
0333 e004       |    |		Load	0x0,0x4
0334 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0335 e001       |    |		Load	0x0,0x1
0336 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0337 00ea       |    |		Load_Encached	Null_String_Cache
0338 e004       |    |		Load	0x0,0x4
0339 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
033a e001       |    |		Load	0x0,0x1
033b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
033c e001       |    |		Load	0x0,0x1
033d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
033e c402       |    |		Store	0x2,0x2
033f 00d8       |    |		Load_Top	At_Offset_0
0340 c5fb       |    |		Store	0x2,-0x5
0341 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0342 e5fb       |    |		Load	0x2,-0x5
0343 0120       |    |		Execute	Any,Is_Value
0344 6803       |h   |		Jump_Zero	0x348
0345 e004       |    |		Load	0x0,0x4
0346 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0347 7801       |x   |		Jump	0x349
0348 e5fb       |    |		Load	0x2,-0x5
0349 e5ff       |    |		Load	0x2,-0x1
034a 0219       |    |		Execute	Heap_Access,All_Read
034b e5fd       |    |		Load	0x2,-0x3
034c 4800       |H   |		Short_Literal	0x0
034d e5fc       |    |		Load	0x2,-0x4
034e e5fe       |    |		Load	0x2,-0x2
034f e004       |    |		Load	0x0,0x4
0350 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
0351 c5fb       |    |		Store	0x2,-0x5
0352 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0353			TRAP_0328:
0353 e00d       |    |		Load	0x0,0xd
0354 010f       |    |		Execute	Exception,Equal
0355 6803       |h   |		Jump_Zero	0x359
0356 00d9       |    |		Load_Top	At_Offset_1
0357 c5fb       |    |		Store	0x2,-0x5
0358 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0359 00d9       |    |		Load_Top	At_Offset_1
035a 0092 0b4c  |   L|		Action	Push_String_Extended,0xb4c					; "Create_File"
035c 824e       | N  |		Call	0x1,0x4e
035d c402       |    |		Store	0x2,0x2
035e 00d9       |    |		Load_Top	At_Offset_1
035f c5fb       |    |		Store	0x2,-0x5
0360 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0361 0000 0000  |    |		.BLANK	0000[0x7]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036f       | o  |		.CONST	0x036f								; Address of begin
0369 0393       |    |		.CONST	0x0393								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b e20d       |    |		Load	0x1,0xd
036c 02c7       |    |		Declare_Variable	Any
036d 00d8       |    |		Load_Top	At_Offset_0
036e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
036f			BODY_0368:
036f e5fd       |    |		Load	0x2,-0x3
0370 8215       |    |		Call	0x1,0x15
0371 6810       |h   |		Jump_Zero	0x382
0372 00d8       |    |		Load_Top	At_Offset_0
0373 e004       |    |		Load	0x0,0x4
0374 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0375 e001       |    |		Load	0x0,0x1
0376 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0377 00ea       |    |		Load_Encached	Null_String_Cache
0378 e004       |    |		Load	0x0,0x4
0379 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
037a e001       |    |		Load	0x0,0x1
037b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
037c e001       |    |		Load	0x0,0x1
037d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
037e c402       |    |		Store	0x2,0x2
037f 00d8       |    |		Load_Top	At_Offset_0
0380 c5fa       |    |		Store	0x2,-0x6
0381 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0382 e5fa       |    |		Load	0x2,-0x6
0383 0120       |    |		Execute	Any,Is_Value
0384 6803       |h   |		Jump_Zero	0x388
0385 e004       |    |		Load	0x0,0x4
0386 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0387 7801       |x   |		Jump	0x389
0388 e5fa       |    |		Load	0x2,-0x6
0389 e5fd       |    |		Load	0x2,-0x3
038a 0219       |    |		Execute	Heap_Access,All_Read
038b e5fb       |    |		Load	0x2,-0x5
038c e5fc       |    |		Load	0x2,-0x4
038d e5fe       |    |		Load	0x2,-0x2
038e e5ff       |    |		Load	0x2,-0x1
038f e004       |    |		Load	0x0,0x4
0390 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
0391 c5fa       |    |		Store	0x2,-0x6
0392 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0393			TRAP_0368:
0393 e00d       |    |		Load	0x0,0xd
0394 010f       |    |		Execute	Exception,Equal
0395 6803       |h   |		Jump_Zero	0x399
0396 00d9       |    |		Load_Top	At_Offset_1
0397 c5fa       |    |		Store	0x2,-0x6
0398 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0399 00d9       |    |		Load_Top	At_Offset_1
039a 0092 0b4d  |   M|		Action	Push_String_Extended,0xb4d					; "Put'N(1)"
039c 824e       | N  |		Call	0x1,0x4e
039d c402       |    |		Store	0x2,0x2
039e 00d9       |    |		Load_Top	At_Offset_1
039f c5fa       |    |		Store	0x2,-0x6
03a0 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03a1 0000 0000  |    |		.BLANK	0000[0x7]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03af       |    |		.CONST	0x03af								; Address of begin
03a9 03d3       |    |		.CONST	0x03d3								; Address of exception handler
03aa 0002       |    |		.CONST	0x0002								; Number of locals
03ab			INIT_03a8:
03ab e20d       |    |		Load	0x1,0xd
03ac 02c7       |    |		Declare_Variable	Any
03ad 00d8       |    |		Load_Top	At_Offset_0
03ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03af			BODY_03a8:
03af e5fd       |    |		Load	0x2,-0x3
03b0 8215       |    |		Call	0x1,0x15
03b1 6810       |h   |		Jump_Zero	0x3c2
03b2 00d8       |    |		Load_Top	At_Offset_0
03b3 e004       |    |		Load	0x0,0x4
03b4 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
03b5 e001       |    |		Load	0x0,0x1
03b6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b7 00ea       |    |		Load_Encached	Null_String_Cache
03b8 e004       |    |		Load	0x0,0x4
03b9 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
03ba e001       |    |		Load	0x0,0x1
03bb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03bc e001       |    |		Load	0x0,0x1
03bd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03be c402       |    |		Store	0x2,0x2
03bf 00d8       |    |		Load_Top	At_Offset_0
03c0 c5fa       |    |		Store	0x2,-0x6
03c1 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03c2 e5fa       |    |		Load	0x2,-0x6
03c3 0120       |    |		Execute	Any,Is_Value
03c4 6803       |h   |		Jump_Zero	0x3c8
03c5 e004       |    |		Load	0x0,0x4
03c6 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
03c7 7801       |x   |		Jump	0x3c9
03c8 e5fa       |    |		Load	0x2,-0x6
03c9 e5fd       |    |		Load	0x2,-0x3
03ca 0219       |    |		Execute	Heap_Access,All_Read
03cb e5fb       |    |		Load	0x2,-0x5
03cc e5fc       |    |		Load	0x2,-0x4
03cd e5fe       |    |		Load	0x2,-0x2
03ce e5ff       |    |		Load	0x2,-0x1
03cf e004       |    |		Load	0x0,0x4
03d0 187b       | {  |		Execute	Package,Field_Execute,Field_Number 0x7b
03d1 c5fa       |    |		Store	0x2,-0x6
03d2 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03d3			TRAP_03a8:
03d3 e00d       |    |		Load	0x0,0xd
03d4 010f       |    |		Execute	Exception,Equal
03d5 6803       |h   |		Jump_Zero	0x3d9
03d6 00d9       |    |		Load_Top	At_Offset_1
03d7 c5fa       |    |		Store	0x2,-0x6
03d8 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03d9 00d9       |    |		Load_Top	At_Offset_1
03da 0092 0b4e  |   N|		Action	Push_String_Extended,0xb4e					; "Put'N(2)"
03dc 824e       | N  |		Call	0x1,0x4e
03dd c402       |    |		Store	0x2,0x2
03de 00d9       |    |		Load_Top	At_Offset_1
03df c5fa       |    |		Store	0x2,-0x6
03e0 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03e1 0000 0000  |    |		.BLANK	0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ef       |    |		.CONST	0x03ef								; Address of begin
03e9 0413       |    |		.CONST	0x0413								; Address of exception handler
03ea 0002       |    |		.CONST	0x0002								; Number of locals
03eb			INIT_03e8:
03eb e20d       |    |		Load	0x1,0xd
03ec 02c7       |    |		Declare_Variable	Any
03ed 00d8       |    |		Load_Top	At_Offset_0
03ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03ef			BODY_03e8:
03ef e5fe       |    |		Load	0x2,-0x2
03f0 8215       |    |		Call	0x1,0x15
03f1 6810       |h   |		Jump_Zero	0x402
03f2 00d8       |    |		Load_Top	At_Offset_0
03f3 e004       |    |		Load	0x0,0x4
03f4 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
03f5 e001       |    |		Load	0x0,0x1
03f6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f7 00ea       |    |		Load_Encached	Null_String_Cache
03f8 e004       |    |		Load	0x0,0x4
03f9 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
03fa e001       |    |		Load	0x0,0x1
03fb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03fc e001       |    |		Load	0x0,0x1
03fd 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03fe c402       |    |		Store	0x2,0x2
03ff 00d8       |    |		Load_Top	At_Offset_0
0400 c5fa       |    |		Store	0x2,-0x6
0401 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0402 e5fa       |    |		Load	0x2,-0x6
0403 0120       |    |		Execute	Any,Is_Value
0404 6803       |h   |		Jump_Zero	0x408
0405 e004       |    |		Load	0x0,0x4
0406 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0407 7801       |x   |		Jump	0x409
0408 e5fa       |    |		Load	0x2,-0x6
0409 e5fe       |    |		Load	0x2,-0x2
040a 0219       |    |		Execute	Heap_Access,All_Read
040b e5fc       |    |		Load	0x2,-0x4
040c e5fd       |    |		Load	0x2,-0x3
040d e5fb       |    |		Load	0x2,-0x5
040e e5ff       |    |		Load	0x2,-0x1
040f e004       |    |		Load	0x0,0x4
0410 187c       | |  |		Execute	Package,Field_Execute,Field_Number 0x7c
0411 c5fa       |    |		Store	0x2,-0x6
0412 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0413			TRAP_03e8:
0413 e00d       |    |		Load	0x0,0xd
0414 010f       |    |		Execute	Exception,Equal
0415 6803       |h   |		Jump_Zero	0x419
0416 00d9       |    |		Load_Top	At_Offset_1
0417 c5fa       |    |		Store	0x2,-0x6
0418 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0419 00d9       |    |		Load_Top	At_Offset_1
041a 0092 0b4f  |   O|		Action	Push_String_Extended,0xb4f					; "Get'N(1)"
041c 824e       | N  |		Call	0x1,0x4e
041d c402       |    |		Store	0x2,0x2
041e 00d9       |    |		Load_Top	At_Offset_1
041f c5fa       |    |		Store	0x2,-0x6
0420 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0421 0000 0000  |    |		.BLANK	0000[0x7]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042f       | /  |		.CONST	0x042f								; Address of begin
0429 0452       | R  |		.CONST	0x0452								; Address of exception handler
042a 0002       |    |		.CONST	0x0002								; Number of locals
042b			INIT_0428:
042b e20d       |    |		Load	0x1,0xd
042c 02c7       |    |		Declare_Variable	Any
042d 00d8       |    |		Load_Top	At_Offset_0
042e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
042f			BODY_0428:
042f e5fe       |    |		Load	0x2,-0x2
0430 8215       |    |		Call	0x1,0x15
0431 6810       |h   |		Jump_Zero	0x442
0432 00d8       |    |		Load_Top	At_Offset_0
0433 e004       |    |		Load	0x0,0x4
0434 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0435 e001       |    |		Load	0x0,0x1
0436 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0437 00ea       |    |		Load_Encached	Null_String_Cache
0438 e004       |    |		Load	0x0,0x4
0439 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
043a e001       |    |		Load	0x0,0x1
043b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
043c e001       |    |		Load	0x0,0x1
043d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
043e c402       |    |		Store	0x2,0x2
043f 00d8       |    |		Load_Top	At_Offset_0
0440 c5fb       |    |		Store	0x2,-0x5
0441 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0442 e5fb       |    |		Load	0x2,-0x5
0443 0120       |    |		Execute	Any,Is_Value
0444 6803       |h   |		Jump_Zero	0x448
0445 e004       |    |		Load	0x0,0x4
0446 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0447 7801       |x   |		Jump	0x449
0448 e5fb       |    |		Load	0x2,-0x5
0449 e5fe       |    |		Load	0x2,-0x2
044a 0219       |    |		Execute	Heap_Access,All_Read
044b e5fd       |    |		Load	0x2,-0x3
044c e5fc       |    |		Load	0x2,-0x4
044d e5ff       |    |		Load	0x2,-0x1
044e e004       |    |		Load	0x0,0x4
044f 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
0450 c5fb       |    |		Store	0x2,-0x5
0451 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0452			TRAP_0428:
0452 e00d       |    |		Load	0x0,0xd
0453 010f       |    |		Execute	Exception,Equal
0454 6803       |h   |		Jump_Zero	0x458
0455 00d9       |    |		Load_Top	At_Offset_1
0456 c5fb       |    |		Store	0x2,-0x5
0457 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0458 00d9       |    |		Load_Top	At_Offset_1
0459 0092 0b50  |   P|		Action	Push_String_Extended,0xb50					; "Get'N(2)"
045b 824e       | N  |		Call	0x1,0x4e
045c c402       |    |		Store	0x2,0x2
045d 00d9       |    |		Load_Top	At_Offset_1
045e c5fb       |    |		Store	0x2,-0x5
045f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0469       | i  |		.CONST	0x0469								; Address of begin
0461 0492       |    |		.CONST	0x0492								; Address of exception handler
0462 0003       |    |		.CONST	0x0003								; Number of locals
0463			INIT_0460:
0463 e20d       |    |		Load	0x1,0xd
0464 02c7       |    |		Declare_Variable	Any
0465 00d8       |    |		Load_Top	At_Offset_0
0466 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0467 00e2       |    |		Load_Encached	Integer_Cache
0468 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0469			BODY_0460:
0469 e5fe       |    |		Load	0x2,-0x2
046a 8215       |    |		Call	0x1,0x15
046b 6810       |h   |		Jump_Zero	0x47c
046c 00d9       |    |		Load_Top	At_Offset_1
046d e004       |    |		Load	0x0,0x4
046e 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
046f e001       |    |		Load	0x0,0x1
0470 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0471 00ea       |    |		Load_Encached	Null_String_Cache
0472 e004       |    |		Load	0x0,0x4
0473 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0474 e001       |    |		Load	0x0,0x1
0475 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0476 e001       |    |		Load	0x0,0x1
0477 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0478 c402       |    |		Store	0x2,0x2
0479 00d9       |    |		Load_Top	At_Offset_1
047a c5fb       |    |		Store	0x2,-0x5
047b 7810       |x   |		Jump	0x48c
047c e5fb       |    |		Load	0x2,-0x5
047d 0120       |    |		Execute	Any,Is_Value
047e 6803       |h   |		Jump_Zero	0x482
047f e004       |    |		Load	0x0,0x4
0480 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0481 7801       |x   |		Jump	0x483
0482 e5fb       |    |		Load	0x2,-0x5
0483 00e2       |    |		Load_Encached	Integer_Cache
0484 e5fe       |    |		Load	0x2,-0x2
0485 0219       |    |		Execute	Heap_Access,All_Read
0486 e5fd       |    |		Load	0x2,-0x3
0487 e5ff       |    |		Load	0x2,-0x1
0488 e004       |    |		Load	0x0,0x4
0489 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
048a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
048b c5fb       |    |		Store	0x2,-0x5
048c 00d8       |    |		Load_Top	At_Offset_0
048d 090f       |    |		Execute_Immediate	Binary_Scale,0xf
048e e244       | D  |		Load	0x1,0x44
048f 8243       | C  |		Call	0x1,0x43
0490 c5fc       |    |		Store	0x2,-0x4
0491 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0492			TRAP_0460:
0492 e00d       |    |		Load	0x0,0xd
0493 010f       |    |		Execute	Exception,Equal
0494 6803       |h   |		Jump_Zero	0x498
0495 00da       |    |		Load_Top	At_Offset_2
0496 c5fb       |    |		Store	0x2,-0x5
0497 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0498 00da       |    |		Load_Top	At_Offset_2
0499 0092 0b51  |   Q|		Action	Push_String_Extended,0xb51					; "Update_Time"
049b 824e       | N  |		Call	0x1,0x4e
049c c402       |    |		Store	0x2,0x2
049d 00da       |    |		Load_Top	At_Offset_2
049e c5fb       |    |		Store	0x2,-0x5
049f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a7       |    |		.CONST	0x04a7								; Address of begin
04a1 04cc       |    |		.CONST	0x04cc								; Address of exception handler
04a2 0002       |    |		.CONST	0x0002								; Number of locals
04a3			INIT_04a0:
04a3 e20d       |    |		Load	0x1,0xd
04a4 02c7       |    |		Declare_Variable	Any
04a5 00d8       |    |		Load_Top	At_Offset_0
04a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a7			BODY_04a0:
04a7 e5fe       |    |		Load	0x2,-0x2
04a8 8215       |    |		Call	0x1,0x15
04a9 6812       |h   |		Jump_Zero	0x4bc
04aa 00d8       |    |		Load_Top	At_Offset_0
04ab e004       |    |		Load	0x0,0x4
04ac 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
04ad e001       |    |		Load	0x0,0x1
04ae 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04af 00ea       |    |		Load_Encached	Null_String_Cache
04b0 e004       |    |		Load	0x0,0x4
04b1 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
04b2 e001       |    |		Load	0x0,0x1
04b3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04b4 e001       |    |		Load	0x0,0x1
04b5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04b6 c402       |    |		Store	0x2,0x2
04b7 00d8       |    |		Load_Top	At_Offset_0
04b8 c5fd       |    |		Store	0x2,-0x3
04b9 4800       |H   |		Short_Literal	0x0
04ba a5fc       |    |		Store_Unchecked	0x2,-0x4
04bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04bc e5fd       |    |		Load	0x2,-0x3
04bd 0120       |    |		Execute	Any,Is_Value
04be 6803       |h   |		Jump_Zero	0x4c2
04bf e004       |    |		Load	0x0,0x4
04c0 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
04c1 7801       |x   |		Jump	0x4c3
04c2 e5fd       |    |		Load	0x2,-0x3
04c3 00e1       |    |		Load_Encached	Boolean_Cache
04c4 e5fe       |    |		Load	0x2,-0x2
04c5 0219       |    |		Execute	Heap_Access,All_Read
04c6 e5ff       |    |		Load	0x2,-0x1
04c7 e004       |    |		Load	0x0,0x4
04c8 186f       | o  |		Execute	Package,Field_Execute,Field_Number 0x6f
04c9 c5fc       |    |		Store	0x2,-0x4
04ca c5fd       |    |		Store	0x2,-0x3
04cb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04cc			TRAP_04a0:
04cc e00d       |    |		Load	0x0,0xd
04cd 010f       |    |		Execute	Exception,Equal
04ce 6805       |h   |		Jump_Zero	0x4d4
04cf 00d9       |    |		Load_Top	At_Offset_1
04d0 c5fd       |    |		Store	0x2,-0x3
04d1 4800       |H   |		Short_Literal	0x0
04d2 a5fc       |    |		Store_Unchecked	0x2,-0x4
04d3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04d4 00d9       |    |		Load_Top	At_Offset_1
04d5 0092 0b51  |   Q|		Action	Push_String_Extended,0xb51					; "Update_Time"
04d7 824e       | N  |		Call	0x1,0x4e
04d8 c402       |    |		Store	0x2,0x2
04d9 00d9       |    |		Load_Top	At_Offset_1
04da c5fd       |    |		Store	0x2,-0x3
04db 4800       |H   |		Short_Literal	0x0
04dc a5fc       |    |		Store_Unchecked	0x2,-0x4
04dd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04de 0000 0000  |    |		.XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e7       |    |		.CONST	0x04e7								; Address of begin
04e1 050b       |    |		.CONST	0x050b								; Address of exception handler
04e2 0002       |    |		.CONST	0x0002								; Number of locals
04e3			INIT_04e0:
04e3 e20d       |    |		Load	0x1,0xd
04e4 02c7       |    |		Declare_Variable	Any
04e5 00d8       |    |		Load_Top	At_Offset_0
04e6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e7			BODY_04e0:
04e7 e5fd       |    |		Load	0x2,-0x3
04e8 8215       |    |		Call	0x1,0x15
04e9 6810       |h   |		Jump_Zero	0x4fa
04ea 00d8       |    |		Load_Top	At_Offset_0
04eb e004       |    |		Load	0x0,0x4
04ec 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
04ed e001       |    |		Load	0x0,0x1
04ee 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04ef 00ea       |    |		Load_Encached	Null_String_Cache
04f0 e004       |    |		Load	0x0,0x4
04f1 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
04f2 e001       |    |		Load	0x0,0x1
04f3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04f4 e001       |    |		Load	0x0,0x1
04f5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04f6 c402       |    |		Store	0x2,0x2
04f7 00d8       |    |		Load_Top	At_Offset_0
04f8 c5fb       |    |		Store	0x2,-0x5
04f9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04fa e5fb       |    |		Load	0x2,-0x5
04fb 0120       |    |		Execute	Any,Is_Value
04fc 6803       |h   |		Jump_Zero	0x500
04fd e004       |    |		Load	0x0,0x4
04fe 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
04ff 7801       |x   |		Jump	0x501
0500 e5fb       |    |		Load	0x2,-0x5
0501 e5fd       |    |		Load	0x2,-0x3
0502 0219       |    |		Execute	Heap_Access,All_Read
0503 e5fc       |    |		Load	0x2,-0x4
0504 4800       |H   |		Short_Literal	0x0
0505 e5fe       |    |		Load	0x2,-0x2
0506 e5ff       |    |		Load	0x2,-0x1
0507 e004       |    |		Load	0x0,0x4
0508 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
0509 c5fb       |    |		Store	0x2,-0x5
050a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
050b			TRAP_04e0:
050b e00d       |    |		Load	0x0,0xd
050c 010f       |    |		Execute	Exception,Equal
050d 6803       |h   |		Jump_Zero	0x511
050e 00d9       |    |		Load_Top	At_Offset_1
050f c5fb       |    |		Store	0x2,-0x5
0510 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0511 00d9       |    |		Load_Top	At_Offset_1
0512 0092 0b52  |   R|		Action	Push_String_Extended,0xb52					; "Copy"
0514 824e       | N  |		Call	0x1,0x4e
0515 c402       |    |		Store	0x2,0x2
0516 00d9       |    |		Load_Top	At_Offset_1
0517 c5fb       |    |		Store	0x2,-0x5
0518 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0519 0000 0000  |    |		.BLANK	0000[0x7]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0527       | '  |		.CONST	0x0527								; Address of begin
0521 054b       | K  |		.CONST	0x054b								; Address of exception handler
0522 0002       |    |		.CONST	0x0002								; Number of locals
0523			INIT_0520:
0523 e20d       |    |		Load	0x1,0xd
0524 02c7       |    |		Declare_Variable	Any
0525 00d8       |    |		Load_Top	At_Offset_0
0526 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0527			BODY_0520:
0527 e5fd       |    |		Load	0x2,-0x3
0528 8215       |    |		Call	0x1,0x15
0529 6810       |h   |		Jump_Zero	0x53a
052a 00d8       |    |		Load_Top	At_Offset_0
052b e004       |    |		Load	0x0,0x4
052c 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
052d e001       |    |		Load	0x0,0x1
052e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
052f 00ea       |    |		Load_Encached	Null_String_Cache
0530 e004       |    |		Load	0x0,0x4
0531 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0532 e001       |    |		Load	0x0,0x1
0533 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0534 e001       |    |		Load	0x0,0x1
0535 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0536 c402       |    |		Store	0x2,0x2
0537 00d8       |    |		Load_Top	At_Offset_0
0538 c5fb       |    |		Store	0x2,-0x5
0539 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
053a e5fb       |    |		Load	0x2,-0x5
053b 0120       |    |		Execute	Any,Is_Value
053c 6803       |h   |		Jump_Zero	0x540
053d e004       |    |		Load	0x0,0x4
053e 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
053f 7801       |x   |		Jump	0x541
0540 e5fb       |    |		Load	0x2,-0x5
0541 e5fd       |    |		Load	0x2,-0x3
0542 0219       |    |		Execute	Heap_Access,All_Read
0543 e5fc       |    |		Load	0x2,-0x4
0544 4801       |H   |		Short_Literal	0x1
0545 e5fe       |    |		Load	0x2,-0x2
0546 e5ff       |    |		Load	0x2,-0x1
0547 e004       |    |		Load	0x0,0x4
0548 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
0549 c5fb       |    |		Store	0x2,-0x5
054a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
054b			TRAP_0520:
054b e00d       |    |		Load	0x0,0xd
054c 010f       |    |		Execute	Exception,Equal
054d 6803       |h   |		Jump_Zero	0x551
054e 00d9       |    |		Load_Top	At_Offset_1
054f c5fb       |    |		Store	0x2,-0x5
0550 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0551 00d9       |    |		Load_Top	At_Offset_1
0552 0092 0b53  |   S|		Action	Push_String_Extended,0xb53					; "Link"
0554 824e       | N  |		Call	0x1,0x4e
0555 c402       |    |		Store	0x2,0x2
0556 00d9       |    |		Load_Top	At_Offset_1
0557 c5fb       |    |		Store	0x2,-0x5
0558 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0559 0000 0000  |    |		.BLANK	0000[0x7]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0567       | g  |		.CONST	0x0567								; Address of begin
0561 058a       |    |		.CONST	0x058a								; Address of exception handler
0562 0002       |    |		.CONST	0x0002								; Number of locals
0563			INIT_0560:
0563 e20d       |    |		Load	0x1,0xd
0564 02c7       |    |		Declare_Variable	Any
0565 00d8       |    |		Load_Top	At_Offset_0
0566 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0567			BODY_0560:
0567 00db       |    |		Load_Top	At_Offset_3
0568 8215       |    |		Call	0x1,0x15
0569 6810       |h   |		Jump_Zero	0x57a
056a 00d8       |    |		Load_Top	At_Offset_0
056b e004       |    |		Load	0x0,0x4
056c 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
056d e001       |    |		Load	0x0,0x1
056e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
056f 00ea       |    |		Load_Encached	Null_String_Cache
0570 e004       |    |		Load	0x0,0x4
0571 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0572 e001       |    |		Load	0x0,0x1
0573 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0574 e001       |    |		Load	0x0,0x1
0575 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0576 c402       |    |		Store	0x2,0x2
0577 00d8       |    |		Load_Top	At_Offset_0
0578 c5fb       |    |		Store	0x2,-0x5
0579 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
057a e5fb       |    |		Load	0x2,-0x5
057b 0120       |    |		Execute	Any,Is_Value
057c 6803       |h   |		Jump_Zero	0x580
057d e004       |    |		Load	0x0,0x4
057e 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
057f 7801       |x   |		Jump	0x581
0580 e5fb       |    |		Load	0x2,-0x5
0581 e5ff       |    |		Load	0x2,-0x1
0582 0219       |    |		Execute	Heap_Access,All_Read
0583 e5fc       |    |		Load	0x2,-0x4
0584 e5fd       |    |		Load	0x2,-0x3
0585 e5fe       |    |		Load	0x2,-0x2
0586 e004       |    |		Load	0x0,0x4
0587 1884       |    |		Execute	Package,Field_Execute,Field_Number 0x84
0588 c5fb       |    |		Store	0x2,-0x5
0589 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
058a			TRAP_0560:
058a e00d       |    |		Load	0x0,0xd
058b 010f       |    |		Execute	Exception,Equal
058c 6803       |h   |		Jump_Zero	0x590
058d 00d9       |    |		Load_Top	At_Offset_1
058e c5fb       |    |		Store	0x2,-0x5
058f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0590 00d9       |    |		Load_Top	At_Offset_1
0591 0092 0b54  |   T|		Action	Push_String_Extended,0xb54					; "Delete_Directory"
0593 824e       | N  |		Call	0x1,0x4e
0594 c402       |    |		Store	0x2,0x2
0595 00d9       |    |		Load_Top	At_Offset_1
0596 c5fb       |    |		Store	0x2,-0x5
0597 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059f       |    |		.CONST	0x059f								; Address of begin
0599 05c2       |    |		.CONST	0x05c2								; Address of exception handler
059a 0002       |    |		.CONST	0x0002								; Number of locals
059b			INIT_0598:
059b e20d       |    |		Load	0x1,0xd
059c 02c7       |    |		Declare_Variable	Any
059d 00d8       |    |		Load_Top	At_Offset_0
059e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
059f			BODY_0598:
059f 00db       |    |		Load_Top	At_Offset_3
05a0 8215       |    |		Call	0x1,0x15
05a1 6810       |h   |		Jump_Zero	0x5b2
05a2 00d8       |    |		Load_Top	At_Offset_0
05a3 e004       |    |		Load	0x0,0x4
05a4 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
05a5 e001       |    |		Load	0x0,0x1
05a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05a7 00ea       |    |		Load_Encached	Null_String_Cache
05a8 e004       |    |		Load	0x0,0x4
05a9 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
05aa e001       |    |		Load	0x0,0x1
05ab 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05ac e001       |    |		Load	0x0,0x1
05ad 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05ae c402       |    |		Store	0x2,0x2
05af 00d8       |    |		Load_Top	At_Offset_0
05b0 c5fc       |    |		Store	0x2,-0x4
05b1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05b2 e5fc       |    |		Load	0x2,-0x4
05b3 0120       |    |		Execute	Any,Is_Value
05b4 6803       |h   |		Jump_Zero	0x5b8
05b5 e004       |    |		Load	0x0,0x4
05b6 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
05b7 7801       |x   |		Jump	0x5b9
05b8 e5fc       |    |		Load	0x2,-0x4
05b9 e5ff       |    |		Load	0x2,-0x1
05ba 0219       |    |		Execute	Heap_Access,All_Read
05bb e5fd       |    |		Load	0x2,-0x3
05bc 4800       |H   |		Short_Literal	0x0
05bd e5fe       |    |		Load	0x2,-0x2
05be e004       |    |		Load	0x0,0x4
05bf 1884       |    |		Execute	Package,Field_Execute,Field_Number 0x84
05c0 c5fc       |    |		Store	0x2,-0x4
05c1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05c2			TRAP_0598:
05c2 e00d       |    |		Load	0x0,0xd
05c3 010f       |    |		Execute	Exception,Equal
05c4 6803       |h   |		Jump_Zero	0x5c8
05c5 00d9       |    |		Load_Top	At_Offset_1
05c6 c5fc       |    |		Store	0x2,-0x4
05c7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05c8 00d9       |    |		Load_Top	At_Offset_1
05c9 0092 0b55  |   U|		Action	Push_String_Extended,0xb55					; "Delete_File"
05cb 824e       | N  |		Call	0x1,0x4e
05cc c402       |    |		Store	0x2,0x2
05cd 00d9       |    |		Load_Top	At_Offset_1
05ce c5fc       |    |		Store	0x2,-0x4
05cf 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d7       |    |		.CONST	0x05d7								; Address of begin
05d1 05fd       |    |		.CONST	0x05fd								; Address of exception handler
05d2 0002       |    |		.CONST	0x0002								; Number of locals
05d3			INIT_05d0:
05d3 e20d       |    |		Load	0x1,0xd
05d4 02c7       |    |		Declare_Variable	Any
05d5 00d8       |    |		Load_Top	At_Offset_0
05d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05d7			BODY_05d0:
05d7 00db       |    |		Load_Top	At_Offset_3
05d8 8215       |    |		Call	0x1,0x15
05d9 6810       |h   |		Jump_Zero	0x5ea
05da 00d8       |    |		Load_Top	At_Offset_0
05db e004       |    |		Load	0x0,0x4
05dc 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
05dd e001       |    |		Load	0x0,0x1
05de 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05df 00ea       |    |		Load_Encached	Null_String_Cache
05e0 e004       |    |		Load	0x0,0x4
05e1 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
05e2 e001       |    |		Load	0x0,0x1
05e3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05e4 e001       |    |		Load	0x0,0x1
05e5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
05e6 c402       |    |		Store	0x2,0x2
05e7 00d8       |    |		Load_Top	At_Offset_0
05e8 c5fc       |    |		Store	0x2,-0x4
05e9 780e       |x   |		Jump	0x5f8
05ea e5fc       |    |		Load	0x2,-0x4
05eb 0120       |    |		Execute	Any,Is_Value
05ec 6803       |h   |		Jump_Zero	0x5f0
05ed e004       |    |		Load	0x0,0x4
05ee 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
05ef 7801       |x   |		Jump	0x5f1
05f0 e5fc       |    |		Load	0x2,-0x4
05f1 e5ff       |    |		Load	0x2,-0x1
05f2 0219       |    |		Execute	Heap_Access,All_Read
05f3 e5fd       |    |		Load	0x2,-0x3
05f4 e5fe       |    |		Load	0x2,-0x2
05f5 e004       |    |		Load	0x0,0x4
05f6 1882       |    |		Execute	Package,Field_Execute,Field_Number 0x82
05f7 c5fc       |    |		Store	0x2,-0x4
05f8 00d8       |    |		Load_Top	At_Offset_0
05f9 824d       | M  |		Call	0x1,0x4d
05fa 00d8       |    |		Load_Top	At_Offset_0
05fb c5fc       |    |		Store	0x2,-0x4
05fc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05fd			TRAP_05d0:
05fd e00d       |    |		Load	0x0,0xd
05fe 010f       |    |		Execute	Exception,Equal
05ff 6803       |h   |		Jump_Zero	0x603
0600 00d9       |    |		Load_Top	At_Offset_1
0601 c5fc       |    |		Store	0x2,-0x4
0602 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0603 00d9       |    |		Load_Top	At_Offset_1
0604 0092 0b56  |   V|		Action	Push_String_Extended,0xb56					; "Expunge"
0606 824e       | N  |		Call	0x1,0x4e
0607 c402       |    |		Store	0x2,0x2
0608 00d9       |    |		Load_Top	At_Offset_1
0609 c5fc       |    |		Store	0x2,-0x4
060a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
060b 0000 0000  |    |		.BLANK	0000[0x5]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0617       |    |		.CONST	0x0617								; Address of begin
0611 063a       | :  |		.CONST	0x063a								; Address of exception handler
0612 0002       |    |		.CONST	0x0002								; Number of locals
0613			INIT_0610:
0613 e20d       |    |		Load	0x1,0xd
0614 02c7       |    |		Declare_Variable	Any
0615 00d8       |    |		Load_Top	At_Offset_0
0616 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0617			BODY_0610:
0617 e5fd       |    |		Load	0x2,-0x3
0618 8215       |    |		Call	0x1,0x15
0619 6810       |h   |		Jump_Zero	0x62a
061a 00d8       |    |		Load_Top	At_Offset_0
061b e004       |    |		Load	0x0,0x4
061c 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
061d e001       |    |		Load	0x0,0x1
061e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
061f 00ea       |    |		Load_Encached	Null_String_Cache
0620 e004       |    |		Load	0x0,0x4
0621 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0622 e001       |    |		Load	0x0,0x1
0623 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0624 e001       |    |		Load	0x0,0x1
0625 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0626 c402       |    |		Store	0x2,0x2
0627 00d8       |    |		Load_Top	At_Offset_0
0628 c5fb       |    |		Store	0x2,-0x5
0629 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
062a e5fb       |    |		Load	0x2,-0x5
062b 0120       |    |		Execute	Any,Is_Value
062c 6803       |h   |		Jump_Zero	0x630
062d e004       |    |		Load	0x0,0x4
062e 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
062f 7801       |x   |		Jump	0x631
0630 e5fb       |    |		Load	0x2,-0x5
0631 e5fd       |    |		Load	0x2,-0x3
0632 0219       |    |		Execute	Heap_Access,All_Read
0633 e5fc       |    |		Load	0x2,-0x4
0634 e5fe       |    |		Load	0x2,-0x2
0635 e5ff       |    |		Load	0x2,-0x1
0636 e004       |    |		Load	0x0,0x4
0637 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
0638 c5fb       |    |		Store	0x2,-0x5
0639 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
063a			TRAP_0610:
063a e00d       |    |		Load	0x0,0xd
063b 010f       |    |		Execute	Exception,Equal
063c 6803       |h   |		Jump_Zero	0x640
063d 00d9       |    |		Load_Top	At_Offset_1
063e c5fb       |    |		Store	0x2,-0x5
063f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0640 00d9       |    |		Load_Top	At_Offset_1
0641 0092 0b57  |   W|		Action	Push_String_Extended,0xb57					; "Move"
0643 824e       | N  |		Call	0x1,0x4e
0644 c402       |    |		Store	0x2,0x2
0645 00d9       |    |		Load_Top	At_Offset_1
0646 c5fb       |    |		Store	0x2,-0x5
0647 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064f       | O  |		.CONST	0x064f								; Address of begin
0649 067a       | z  |		.CONST	0x067a								; Address of exception handler
064a 0002       |    |		.CONST	0x0002								; Number of locals
064b			INIT_0648:
064b e20d       |    |		Load	0x1,0xd
064c 02c7       |    |		Declare_Variable	Any
064d 00d8       |    |		Load_Top	At_Offset_0
064e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
064f			BODY_0648:
064f e5fe       |    |		Load	0x2,-0x2
0650 8215       |    |		Call	0x1,0x15
0651 6810       |h   |		Jump_Zero	0x662
0652 00d8       |    |		Load_Top	At_Offset_0
0653 e004       |    |		Load	0x0,0x4
0654 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0655 e001       |    |		Load	0x0,0x1
0656 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0657 00ea       |    |		Load_Encached	Null_String_Cache
0658 e004       |    |		Load	0x0,0x4
0659 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
065a e001       |    |		Load	0x0,0x1
065b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
065c e001       |    |		Load	0x0,0x1
065d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
065e c402       |    |		Store	0x2,0x2
065f 00d8       |    |		Load_Top	At_Offset_0
0660 c5fc       |    |		Store	0x2,-0x4
0661 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0662 e5fc       |    |		Load	0x2,-0x4
0663 0120       |    |		Execute	Any,Is_Value
0664 6802       |h   |		Jump_Zero	0x667
0665 e20d       |    |		Load	0x1,0xd
0666 7801       |x   |		Jump	0x668
0667 e5fc       |    |		Load	0x2,-0x4
0668 e5fd       |    |		Load	0x2,-0x3
0669 e00e       |    |		Load	0x0,0xe
066a 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
066b e00e       |    |		Load	0x0,0xe
066c 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
066d e00e       |    |		Load	0x0,0xe
066e 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
066f e00e       |    |		Load	0x0,0xe
0670 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
0671 e00e       |    |		Load	0x0,0xe
0672 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0673 e00e       |    |		Load	0x0,0xe
0674 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
0675 e5fe       |    |		Load	0x2,-0x2
0676 e5ff       |    |		Load	0x2,-0x1
0677 8233       | 3  |		Call	0x1,0x33
0678 c5fc       |    |		Store	0x2,-0x4
0679 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
067a			TRAP_0648:
067a e00d       |    |		Load	0x0,0xd
067b 010f       |    |		Execute	Exception,Equal
067c 6803       |h   |		Jump_Zero	0x680
067d 00d9       |    |		Load_Top	At_Offset_1
067e c5fc       |    |		Store	0x2,-0x4
067f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0680 00d9       |    |		Load_Top	At_Offset_1
0681 0092 0b58  |   X|		Action	Push_String_Extended,0xb58					; "Execute'N(1)"
0683 824e       | N  |		Call	0x1,0x4e
0684 c402       |    |		Store	0x2,0x2
0685 00d9       |    |		Load_Top	At_Offset_1
0686 c5fc       |    |		Store	0x2,-0x4
0687 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 06a6       |    |		.CONST	0x06a6								; Address of begin
0689 06f4       |    |		.CONST	0x06f4								; Address of exception handler
068a 0006       |    |		.CONST	0x0006								; Number of locals
068b			INIT_0688:
068b e00f       |    |		Load	0x0,0xf
068c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
068d 02c7       |    |		Declare_Variable	Any
068e e010       |    |		Load	0x0,0x10
068f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0690 e00f       |    |		Load	0x0,0xf
0691 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0692 a402       |    |		Store_Unchecked	0x2,0x2
0693 e20d       |    |		Load	0x1,0xd
0694 02c7       |    |		Declare_Variable	Any
0695 00d8       |    |		Load_Top	At_Offset_0
0696 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0697 e005       |    |		Load	0x0,0x5
0698 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0699 02c7       |    |		Declare_Variable	Any
069a 00d8       |    |		Load_Top	At_Offset_0
069b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
069c e005       |    |		Load	0x0,0x5
069d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
069e 02c7       |    |		Declare_Variable	Any
069f 00d8       |    |		Load_Top	At_Offset_0
06a0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06a1 e005       |    |		Load	0x0,0x5
06a2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a3 02c7       |    |		Declare_Variable	Any
06a4 00d8       |    |		Load_Top	At_Offset_0
06a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06a6			BODY_0688:
06a6 e5fe       |    |		Load	0x2,-0x2
06a7 8215       |    |		Call	0x1,0x15
06a8 6810       |h   |		Jump_Zero	0x6b9
06a9 00db       |    |		Load_Top	At_Offset_3
06aa e004       |    |		Load	0x0,0x4
06ab 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
06ac e001       |    |		Load	0x0,0x1
06ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06ae 00ea       |    |		Load_Encached	Null_String_Cache
06af e004       |    |		Load	0x0,0x4
06b0 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
06b1 e001       |    |		Load	0x0,0x1
06b2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06b3 e001       |    |		Load	0x0,0x1
06b4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
06b5 c403       |    |		Store	0x2,0x3
06b6 00db       |    |		Load_Top	At_Offset_3
06b7 c5f9       |    |		Store	0x2,-0x7
06b8 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
06b9 00db       |    |		Load_Top	At_Offset_3
06ba 824d       | M  |		Call	0x1,0x4d
06bb 00db       |    |		Load_Top	At_Offset_3
06bc 00d9       |    |		Load_Top	At_Offset_1
06bd e402       |    |		Load	0x2,0x2
06be e5fc       |    |		Load	0x2,-0x4
06bf 825b       | [  |		Call	0x1,0x5b
06c0 c406       |    |		Store	0x2,0x6
06c1 c403       |    |		Store	0x2,0x3
06c2 00db       |    |		Load_Top	At_Offset_3
06c3 824d       | M  |		Call	0x1,0x4d
06c4 00db       |    |		Load_Top	At_Offset_3
06c5 00db       |    |		Load_Top	At_Offset_3
06c6 e402       |    |		Load	0x2,0x2
06c7 e5fb       |    |		Load	0x2,-0x5
06c8 825b       | [  |		Call	0x1,0x5b
06c9 c404       |    |		Store	0x2,0x4
06ca c403       |    |		Store	0x2,0x3
06cb 00db       |    |		Load_Top	At_Offset_3
06cc 824d       | M  |		Call	0x1,0x4d
06cd 00db       |    |		Load_Top	At_Offset_3
06ce 0120       |    |		Execute	Any,Is_Value
06cf 6802       |h   |		Jump_Zero	0x6d2
06d0 e20d       |    |		Load	0x1,0xd
06d1 7801       |x   |		Jump	0x6d3
06d2 00db       |    |		Load_Top	At_Offset_3
06d3 e5fa       |    |		Load	0x2,-0x6
06d4 e404       |    |		Load	0x2,0x4
06d5 00db       |    |		Load_Top	At_Offset_3
06d6 e405       |    |		Load	0x2,0x5
06d7 e5fe       |    |		Load	0x2,-0x2
06d8 e5ff       |    |		Load	0x2,-0x1
06d9 8233       | 3  |		Call	0x1,0x33
06da c403       |    |		Store	0x2,0x3
06db 00db       |    |		Load_Top	At_Offset_3
06dc c5f9       |    |		Store	0x2,-0x7
06dd 00da       |    |		Load_Top	At_Offset_2
06de e005       |    |		Load	0x0,0x5
06df 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06e0 c404       |    |		Store	0x2,0x4
06e1 00d9       |    |		Load_Top	At_Offset_1
06e2 e005       |    |		Load	0x0,0x5
06e3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06e4 c405       |    |		Store	0x2,0x5
06e5 00d8       |    |		Load_Top	At_Offset_0
06e6 e005       |    |		Load	0x0,0x5
06e7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06e8 c406       |    |		Store	0x2,0x6
06e9 e402       |    |		Load	0x2,0x2
06ea 4801       |H   |		Short_Literal	0x1
06eb 4801       |H   |		Short_Literal	0x1
06ec e403       |    |		Load	0x2,0x3
06ed e001       |    |		Load	0x0,0x1
06ee 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06ef 0f00       |    |		Execute_Immediate	Equal,0x0
06f0 e00f       |    |		Load	0x0,0xf
06f1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06f2 c402       |    |		Store	0x2,0x2
06f3 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
06f4			TRAP_0688:
06f4 e00d       |    |		Load	0x0,0xd
06f5 010f       |    |		Execute	Exception,Equal
06f6 6821       |h!  |		Jump_Zero	0x718
06f7 e403       |    |		Load	0x2,0x3
06f8 c5f9       |    |		Store	0x2,-0x7
06f9 00da       |    |		Load_Top	At_Offset_2
06fa e005       |    |		Load	0x0,0x5
06fb 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
06fc 6804       |h   |		Jump_Zero	0x701
06fd 00da       |    |		Load_Top	At_Offset_2
06fe e005       |    |		Load	0x0,0x5
06ff 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0700 c405       |    |		Store	0x2,0x5
0701 00d9       |    |		Load_Top	At_Offset_1
0702 e005       |    |		Load	0x0,0x5
0703 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0704 6804       |h   |		Jump_Zero	0x709
0705 00d9       |    |		Load_Top	At_Offset_1
0706 e005       |    |		Load	0x0,0x5
0707 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0708 c406       |    |		Store	0x2,0x6
0709 00db       |    |		Load_Top	At_Offset_3
070a e005       |    |		Load	0x0,0x5
070b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
070c 6804       |h   |		Jump_Zero	0x711
070d 00db       |    |		Load_Top	At_Offset_3
070e e005       |    |		Load	0x0,0x5
070f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0710 c404       |    |		Store	0x2,0x4
0711 e402       |    |		Load	0x2,0x2
0712 4801       |H   |		Short_Literal	0x1
0713 4800       |H   |		Short_Literal	0x0
0714 e00f       |    |		Load	0x0,0xf
0715 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0716 c402       |    |		Store	0x2,0x2
0717 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0718 e403       |    |		Load	0x2,0x3
0719 0092 0b59  |   Y|		Action	Push_String_Extended,0xb59					; "Execute'N(2)"
071b 824e       | N  |		Call	0x1,0x4e
071c c403       |    |		Store	0x2,0x3
071d e403       |    |		Load	0x2,0x3
071e c5f9       |    |		Store	0x2,-0x7
071f 00da       |    |		Load_Top	At_Offset_2
0720 e005       |    |		Load	0x0,0x5
0721 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0722 6804       |h   |		Jump_Zero	0x727
0723 00da       |    |		Load_Top	At_Offset_2
0724 e005       |    |		Load	0x0,0x5
0725 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0726 c405       |    |		Store	0x2,0x5
0727 00d9       |    |		Load_Top	At_Offset_1
0728 e005       |    |		Load	0x0,0x5
0729 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
072a 6804       |h   |		Jump_Zero	0x72f
072b 00d9       |    |		Load_Top	At_Offset_1
072c e005       |    |		Load	0x0,0x5
072d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
072e c406       |    |		Store	0x2,0x6
072f 00db       |    |		Load_Top	At_Offset_3
0730 e005       |    |		Load	0x0,0x5
0731 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0732 6804       |h   |		Jump_Zero	0x737
0733 00db       |    |		Load_Top	At_Offset_3
0734 e005       |    |		Load	0x0,0x5
0735 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0736 c404       |    |		Store	0x2,0x4
0737 e402       |    |		Load	0x2,0x2
0738 4801       |H   |		Short_Literal	0x1
0739 4800       |H   |		Short_Literal	0x0
073a e00f       |    |		Load	0x0,0xf
073b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
073c c402       |    |		Store	0x2,0x2
073d 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
073e 0000 0000  |    |		.XXX[0x2]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 077f       |    |		.CONST	0x077f								; Address of begin
0741 07ae       |    |		.CONST	0x07ae								; Address of exception handler
0742 0003       |    |		.CONST	0x0003								; Number of locals
0743			INIT_0740:
0743 e20d       |    |		Load	0x1,0xd
0744 02c7       |    |		Declare_Variable	Any
0745 00d8       |    |		Load_Top	At_Offset_0
0746 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0747 00db       |    |		Load_Top	At_Offset_3
0748 01db       |    |		Execute	Vector,Length
0749 e24c       | L  |		Load	0x1,0x4c
074a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
074b e5ff       |    |		Load	0x2,-0x1
074c 01db       |    |		Execute	Vector,Length
074d e24c       | L  |		Load	0x1,0x4c
074e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
074f e5fe       |    |		Load	0x2,-0x2
0750 00d9       |    |		Load_Top	At_Offset_1
0751 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0752 e5fb       |    |		Load	0x2,-0x5
0753 e24c       | L  |		Load	0x1,0x4c
0754 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
0755 0119       |    |		Execute	Any,Check_In_Formal_Type
0756 00d9       |    |		Load_Top	At_Offset_1
0757 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0758 e5fd       |    |		Load	0x2,-0x3
0759 e24c       | L  |		Load	0x1,0x4c
075a 2304       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x4
075b 0119       |    |		Execute	Any,Check_In_Formal_Type
075c 00d9       |    |		Load_Top	At_Offset_1
075d 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
075e e5fc       |    |		Load	0x2,-0x4
075f e24c       | L  |		Load	0x1,0x4c
0760 2305       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x5
0761 0119       |    |		Execute	Any,Check_In_Formal_Type
0762 00d9       |    |		Load_Top	At_Offset_1
0763 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0764 00da       |    |		Load_Top	At_Offset_2
0765 e24c       | L  |		Load	0x1,0x4c
0766 2306       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x6
0767 0119       |    |		Execute	Any,Check_In_Formal_Type
0768 00d9       |    |		Load_Top	At_Offset_1
0769 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
076a e5ff       |    |		Load	0x2,-0x1
076b 00d9       |    |		Load_Top	At_Offset_1
076c 00d8       |    |		Load_Top	At_Offset_0
076d 2507       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x7
076e 00da       |    |		Load_Top	At_Offset_2
076f 01da       |    |		Execute	Vector,Bounds
0770 00da       |    |		Load_Top	At_Offset_2
0771 01da       |    |		Execute	Vector,Bounds
0772 00da       |    |		Load_Top	At_Offset_2
0773 027f       |    |		Execute	Discrete,Equal
0774 7001       |p   |		Jump_Nonzero	0x776
0775 08e0       |    |		Execute_Immediate	Raise,0xe0
0776 00cd       |    |		Action	Spare6_Action
0777 027f       |    |		Execute	Discrete,Equal
0778 7001       |p   |		Jump_Nonzero	0x77a
0779 08e0       |    |		Execute_Immediate	Raise,0xe0
077a 00d2       |    |		Pop_Control	Pop_Count_2
077b 00d9       |    |		Load_Top	At_Offset_1
077c 2907       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x7
077d 00d9       |    |		Load_Top	At_Offset_1
077e 016d       | m  |		Execute	Variant_Record,Structure_Write
077f			BODY_0740:
077f e5fe       |    |		Load	0x2,-0x2
0780 8215       |    |		Call	0x1,0x15
0781 6810       |h   |		Jump_Zero	0x792
0782 00d9       |    |		Load_Top	At_Offset_1
0783 e004       |    |		Load	0x0,0x4
0784 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0785 e001       |    |		Load	0x0,0x1
0786 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0787 00ea       |    |		Load_Encached	Null_String_Cache
0788 e004       |    |		Load	0x0,0x4
0789 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
078a e001       |    |		Load	0x0,0x1
078b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
078c e001       |    |		Load	0x0,0x1
078d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
078e c402       |    |		Store	0x2,0x2
078f 00d9       |    |		Load_Top	At_Offset_1
0790 c5f9       |    |		Store	0x2,-0x7
0791 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0792 00d9       |    |		Load_Top	At_Offset_1
0793 0120       |    |		Execute	Any,Is_Value
0794 6803       |h   |		Jump_Zero	0x798
0795 e004       |    |		Load	0x0,0x4
0796 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
0797 7801       |x   |		Jump	0x799
0798 00d9       |    |		Load_Top	At_Offset_1
0799 00d9       |    |		Load_Top	At_Offset_1
079a e5fe       |    |		Load	0x2,-0x2
079b 0219       |    |		Execute	Heap_Access,All_Read
079c e5fa       |    |		Load	0x2,-0x6
079d 824f       | O  |		Call	0x1,0x4f
079e e5ff       |    |		Load	0x2,-0x1
079f e254       | T  |		Load	0x1,0x54
07a0 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
07a1 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
07a2 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
07a3 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
07a4 e004       |    |		Load	0x0,0x4
07a5 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
07a6 00d1       |    |		Pop_Control	Pop_Count_1
07a7 c402       |    |		Store	0x2,0x2
07a8 00d8       |    |		Load_Top	At_Offset_0
07a9 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
07aa 824d       | M  |		Call	0x1,0x4d
07ab 00d9       |    |		Load_Top	At_Offset_1
07ac c5f9       |    |		Store	0x2,-0x7
07ad 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
07ae			TRAP_0740:
07ae e00d       |    |		Load	0x0,0xd
07af 010f       |    |		Execute	Exception,Equal
07b0 6804       |h   |		Jump_Zero	0x7b5
07b1 00d9       |    |		Load_Top	At_Offset_1
07b2 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
07b3 c5f9       |    |		Store	0x2,-0x7
07b4 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
07b5 00da       |    |		Load_Top	At_Offset_2
07b6 0092 0b5a  |   Z|		Action	Push_String_Extended,0xb5a					; "Execute'N(3)"
07b8 824e       | N  |		Call	0x1,0x4e
07b9 c402       |    |		Store	0x2,0x2
07ba 00da       |    |		Load_Top	At_Offset_2
07bb c5f9       |    |		Store	0x2,-0x7
07bc 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
07bd 0000 0000  |    |		.XXX[0x3]
07bf 0000       |    |
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3       |    |		.CONST	0x07c3								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0001       |    |		.CONST	0x0001								; Number of locals
07c3			BODY_07c0:
07c3			INIT_07c0:
07c3 4607       |F   |		Jump_Case	0x8
07c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
07c5 7806       |x   |		Jump	0x7cc								; case 0x1
07c6 7809       |x   |		Jump	0x7d0								; case 0x2
07c7 780d       |x   |		Jump	0x7d5								; case 0x3
07c8 7810       |x   |		Jump	0x7d9								; case 0x4
07c9 7811       |x   |		Jump	0x7db								; case 0x5
07ca 7812       |x   |		Jump	0x7dd								; case 0x6
07cb 7815       |x   |		Jump	0x7e1								; case 0x7
07cc 00da       |    |		Load_Top	At_Offset_2
07cd 0091 0b3a  |   :|		Action	Push_String_Extended_Indexed,0xb3a				; "NIL"
07cf 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
07d0 00db       |    |		Load_Top	At_Offset_3
07d1 00db       |    |		Load_Top	At_Offset_3
07d2 00e0       |    |		Load_Encached	Standard_Cache
07d3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
07d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07d5 00da       |    |		Load_Top	At_Offset_2
07d6 00e0       |    |		Load_Encached	Standard_Cache
07d7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
07d9 00db       |    |		Load_Top	At_Offset_3
07da 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07db 00db       |    |		Load_Top	At_Offset_3
07dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07dd e234       | 4  |		Load	0x1,0x34
07de 00dc       |    |		Load_Top	At_Offset_4
07df 0267       | g  |		Execute	Discrete,Predecessor
07e0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07e1 e234       | 4  |		Load	0x1,0x34
07e2 00dc       |    |		Load_Top	At_Offset_4
07e3 0268       | h  |		Execute	Discrete,Successor
07e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07e5 0000 0000  |    |		.XXX[0x3]
07e7 0000       |    |
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 0806       |    |		.CONST	0x0806								; Address of begin
07e9 0840       | @  |		.CONST	0x0840								; Address of exception handler
07ea 000c       |    |		.CONST	0x000c								; Number of locals
07eb			INIT_07e8:
07eb e20d       |    |		Load	0x1,0xd
07ec 02c7       |    |		Declare_Variable	Any
07ed 00d8       |    |		Load_Top	At_Offset_0
07ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07ef 029f 0ae3  |    |		Declare_Subprogram	INIT_0ae0,For_Call
07f1 029f 0b03  |    |		Declare_Subprogram	INIT_0b00,For_Call
07f3 029f 0b23  |   #|		Declare_Subprogram	INIT_0b20,For_Call
07f5 e004       |    |		Load	0x0,0x4
07f6 1967       | g  |		Execute	Package,Field_Reference,Field_Number 0x67
07f7 00c6       |    |		Action	Check_Subprogram_Elaborated
07f8 e5fb       |    |		Load	0x2,-0x5
07f9 4803       |H   |		Short_Literal	0x3
07fa 4802       |H   |		Short_Literal	0x2
07fb 0099       |    |		Action	Reference_Dynamic
07fc 4804       |H   |		Short_Literal	0x4
07fd 4802       |H   |		Short_Literal	0x2
07fe 0099       |    |		Action	Reference_Dynamic
07ff 4805       |H   |		Short_Literal	0x5
0800 4802       |H   |		Short_Literal	0x2
0801 0099       |    |		Action	Reference_Dynamic
0802 e011       |    |		Load	0x0,0x11
0803 e012       |    |		Load	0x0,0x12
0804 480c       |H   |		Short_Literal	0xc
0805 0007       |    |		Action	Break_Optional
0806			BODY_07e8:
0806 e5f9       |    |		Load	0x2,-0x7
0807 8215       |    |		Call	0x1,0x15
0808 6810       |h   |		Jump_Zero	0x819
0809 e402       |    |		Load	0x2,0x2
080a e004       |    |		Load	0x0,0x4
080b 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
080c e001       |    |		Load	0x0,0x1
080d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
080e 00ea       |    |		Load_Encached	Null_String_Cache
080f e004       |    |		Load	0x0,0x4
0810 1b6d       | m  |		Execute	Package,Field_Read,Field_Number 0x6d
0811 e001       |    |		Load	0x0,0x1
0812 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0813 e001       |    |		Load	0x0,0x1
0814 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0815 c402       |    |		Store	0x2,0x2
0816 e402       |    |		Load	0x2,0x2
0817 c5f6       |    |		Store	0x2,-0xa
0818 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0819 e5f6       |    |		Load	0x2,-0xa
081a 0120       |    |		Execute	Any,Is_Value
081b 6803       |h   |		Jump_Zero	0x81f
081c e004       |    |		Load	0x0,0x4
081d 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
081e 7801       |x   |		Jump	0x820
081f e5f6       |    |		Load	0x2,-0xa
0820 e5f7       |    |		Load	0x2,-0x9
0821 00d8       |    |		Load_Top	At_Offset_0
0822 0120       |    |		Execute	Any,Is_Value
0823 6803       |h   |		Jump_Zero	0x827
0824 e406       |    |		Load	0x2,0x6
0825 011e       |    |		Execute	Any,Convert
0826 7802       |x   |		Jump	0x829
0827 e5fb       |    |		Load	0x2,-0x5
0828 0119       |    |		Execute	Any,Check_In_Formal_Type
0829 e5f9       |    |		Load	0x2,-0x7
082a 0219       |    |		Execute	Heap_Access,All_Read
082b e5f8       |    |		Load	0x2,-0x8
082c 824f       | O  |		Call	0x1,0x4f
082d e5fa       |    |		Load	0x2,-0x6
082e e406       |    |		Load	0x2,0x6
082f 4807       |H   |		Short_Literal	0x7
0830 4802       |H   |		Short_Literal	0x2
0831 0099       |    |		Action	Reference_Dynamic
0832 4808       |H   |		Short_Literal	0x8
0833 4802       |H   |		Short_Literal	0x2
0834 0099       |    |		Action	Reference_Dynamic
0835 4809       |H   |		Short_Literal	0x9
0836 4802       |H   |		Short_Literal	0x2
0837 0099       |    |		Action	Reference_Dynamic
0838 480a       |H   |		Short_Literal	0xa
0839 4802       |H   |		Short_Literal	0x2
083a 0099       |    |		Action	Reference_Dynamic
083b e004       |    |		Load	0x0,0x4
083c 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
083d c5f7       |    |		Store	0x2,-0x9
083e c5f6       |    |		Store	0x2,-0xa
083f 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0840			TRAP_07e8:
0840 e00d       |    |		Load	0x0,0xd
0841 010f       |    |		Execute	Exception,Equal
0842 6801       |h   |		Jump_Zero	0x844
0843 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0844 e402       |    |		Load	0x2,0x2
0845 0092 0b5b  |   [|		Action	Push_String_Extended,0xb5b					; "Execution"
0847 824e       | N  |		Call	0x1,0x4e
0848 c402       |    |		Store	0x2,0x2
0849 e402       |    |		Load	0x2,0x2
084a c5f6       |    |		Store	0x2,-0xa
084b 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
084c 0000 0000  |    |		.BLANK	0000[0x4]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0855       | U  |		.CONST	0x0855								; Address of begin
0851 0891       |    |		.CONST	0x0891								; Address of exception handler
0852 0002       |    |		.CONST	0x0002								; Number of locals
0853			INIT_0850:
0853 e004       |    |		Load	0x0,0x4
0854 1b6c       | l  |		Execute	Package,Field_Read,Field_Number 0x6c
0855			BODY_0850:
0855 00db       |    |		Load_Top	At_Offset_3
0856 e001       |    |		Load	0x0,0x1
0857 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0858 e004       |    |		Load	0x0,0x4
0859 1b6c       | l  |		Execute	Package,Field_Read,Field_Number 0x6c
085a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
085b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
085c 00d8       |    |		Load_Top	At_Offset_0
085d 4610       |F   |		Jump_Case	0x11
085e 7812       |x   |		Jump	0x871								; case 0x0
085f 7813       |x   |		Jump	0x873								; case 0x1
0860 782e       |x.  |		Jump	0x88f								; case 0x2
0861 7813       |x   |		Jump	0x875								; case 0x3
0862 7814       |x   |		Jump	0x877								; case 0x4
0863 7815       |x   |		Jump	0x879								; case 0x5
0864 7816       |x   |		Jump	0x87b								; case 0x6
0865 7817       |x   |		Jump	0x87d								; case 0x7
0866 7818       |x   |		Jump	0x87f								; case 0x8
0867 7819       |x   |		Jump	0x881								; case 0x9
0868 781a       |x   |		Jump	0x883								; case 0xa
0869 781b       |x   |		Jump	0x885								; case 0xb
086a 781c       |x   |		Jump	0x887								; case 0xc
086b 781d       |x   |		Jump	0x889								; case 0xd
086c 781e       |x   |		Jump	0x88b								; case 0xe
086d 781f       |x   |		Jump	0x88d								; case 0xf
086e 7800       |x   |		Jump	0x86f								; case 0x10
086f 4810       |H   |		Short_Literal	0x10
0870 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0871 4800       |H   |		Short_Literal	0x0
0872 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0873 4801       |H   |		Short_Literal	0x1
0874 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0875 4802       |H   |		Short_Literal	0x2
0876 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0877 4803       |H   |		Short_Literal	0x3
0878 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0879 4804       |H   |		Short_Literal	0x4
087a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
087b 4805       |H   |		Short_Literal	0x5
087c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
087d 4806       |H   |		Short_Literal	0x6
087e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
087f 4807       |H   |		Short_Literal	0x7
0880 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0881 4808       |H   |		Short_Literal	0x8
0882 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0883 4809       |H   |		Short_Literal	0x9
0884 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0885 480a       |H   |		Short_Literal	0xa
0886 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0887 480b       |H   |		Short_Literal	0xb
0888 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0889 480c       |H   |		Short_Literal	0xc
088a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
088b 480d       |H   |		Short_Literal	0xd
088c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
088d 480e       |H   |		Short_Literal	0xe
088e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
088f 4811       |H   |		Short_Literal	0x11
0890 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0891			TRAP_0850:
0891 010e       |    |		Execute	Exception,Is_Constraint_Error
0892 6802       |h   |		Jump_Zero	0x895
0893 48ff       |H   |		Short_Literal	0xff
0894 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0895 0100       |    |		Execute	Exception,Raise
0896 0000 0000  |    |		.XXX[0x2]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b       |    |		.CONST	0x089b								; Address of begin
0899 0004       |    |		.CONST	0x0004								; Address of exception handler
089a 0001       |    |		.CONST	0x0001								; Number of locals
089b			BODY_0898:
089b			INIT_0898:
089b e004       |    |		Load	0x0,0x4
089c 1b8d       |    |		Execute	Package,Field_Read,Field_Number 0x8d
089d 0337       | 7  |		Declare_Variable	Array
089e 4801       |H   |		Short_Literal	0x1
089f e5ff       |    |		Load	0x2,-0x1
08a0 01d7       |    |		Execute	Vector,Field_Read
08a1 4801       |H   |		Short_Literal	0x1
08a2 00da       |    |		Load_Top	At_Offset_2
08a3 01d6       |    |		Execute	Vector,Field_Write
08a4 4802       |H   |		Short_Literal	0x2
08a5 e5ff       |    |		Load	0x2,-0x1
08a6 01d7       |    |		Execute	Vector,Field_Read
08a7 4802       |H   |		Short_Literal	0x2
08a8 00da       |    |		Load_Top	At_Offset_2
08a9 01d6       |    |		Execute	Vector,Field_Write
08aa e004       |    |		Load	0x0,0x4
08ab 1b8d       |    |		Execute	Package,Field_Read,Field_Number 0x8d
08ac 01c3       |    |		Execute	Vector,Check_In_Type
08ad e004       |    |		Load	0x0,0x4
08ae 188f       |    |		Execute	Package,Field_Execute,Field_Number 0x8f
08af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b6       |    |		.CONST	0x08b6								; Address of begin
08b1 0004       |    |		.CONST	0x0004								; Address of exception handler
08b2 0002       |    |		.CONST	0x0002								; Number of locals
08b3			INIT_08b0:
08b3 e004       |    |		Load	0x0,0x4
08b4 1b8d       |    |		Execute	Package,Field_Read,Field_Number 0x8d
08b5 0337       | 7  |		Declare_Variable	Array
08b6			BODY_08b0:
08b6 00db       |    |		Load_Top	At_Offset_3
08b7 8215       |    |		Call	0x1,0x15
08b8 6802       |h   |		Jump_Zero	0x8bb
08b9 e23a       | :  |		Load	0x1,0x3a
08ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08bb 00db       |    |		Load_Top	At_Offset_3
08bc 0219       |    |		Execute	Heap_Access,All_Read
08bd e004       |    |		Load	0x0,0x4
08be 1890       |    |		Execute	Package,Field_Execute,Field_Number 0x90
08bf 00d9       |    |		Load_Top	At_Offset_1
08c0 01d4       |    |		Execute	Vector,Structure_Write
08c1 e239       | 9  |		Load	0x1,0x39
08c2 0337       | 7  |		Declare_Variable	Array
08c3 4801       |H   |		Short_Literal	0x1
08c4 00da       |    |		Load_Top	At_Offset_2
08c5 01d7       |    |		Execute	Vector,Field_Read
08c6 4801       |H   |		Short_Literal	0x1
08c7 00da       |    |		Load_Top	At_Offset_2
08c8 01d6       |    |		Execute	Vector,Field_Write
08c9 4802       |H   |		Short_Literal	0x2
08ca 00da       |    |		Load_Top	At_Offset_2
08cb 01d7       |    |		Execute	Vector,Field_Read
08cc 4802       |H   |		Short_Literal	0x2
08cd 00da       |    |		Load_Top	At_Offset_2
08ce 01d6       |    |		Execute	Vector,Field_Write
08cf e239       | 9  |		Load	0x1,0x39
08d0 01c3       |    |		Execute	Vector,Check_In_Type
08d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08d2 0000 0000  |    |		.BLANK	0000[0x6]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db       |    |		.CONST	0x08db								; Address of begin
08d9 0004       |    |		.CONST	0x0004								; Address of exception handler
08da 0001       |    |		.CONST	0x0001								; Number of locals
08db			BODY_08d8:
08db			INIT_08d8:
08db 00da       |    |		Load_Top	At_Offset_2
08dc 823c       | <  |		Call	0x1,0x3c
08dd 823b       | ;  |		Call	0x1,0x3b
08de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08df 0000       |    |		.XXX[0x1]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3       |    |		.CONST	0x08e3								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0001       |    |		.CONST	0x0001								; Number of locals
08e3			BODY_08e0:
08e3			INIT_08e0:
08e3 00da       |    |		Load_Top	At_Offset_2
08e4 e004       |    |		Load	0x0,0x4
08e5 1891       |    |		Execute	Package,Field_Execute,Field_Number 0x91
08e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08e7 0000       |    |		.XXX[0x1]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb       |    |		.CONST	0x08eb								; Address of begin
08e9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ea 0001       |    |		.CONST	0x0001								; Number of locals
08eb			BODY_08e8:
08eb			INIT_08e8:
08eb 00da       |    |		Load_Top	At_Offset_2
08ec 8215       |    |		Call	0x1,0x15
08ed 6802       |h   |		Jump_Zero	0x8f0
08ee 4800       |H   |		Short_Literal	0x0
08ef 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f0 00da       |    |		Load_Top	At_Offset_2
08f1 0219       |    |		Execute	Heap_Access,All_Read
08f2 e004       |    |		Load	0x0,0x4
08f3 1887       |    |		Execute	Package,Field_Execute,Field_Number 0x87
08f4 00d8       |    |		Load_Top	At_Offset_0
08f5 0c06       |    |		Execute_Immediate	Greater_Equal,0x6
08f6 7009       |p   |		Jump_Nonzero	0x900
08f7 4605       |F   |		Jump_Case	0x6
08f8 780a       |x   |		Jump	0x903								; case 0x0
08f9 780b       |x   |		Jump	0x905								; case 0x1
08fa 780c       |x   |		Jump	0x907								; case 0x2
08fb 780d       |x   |		Jump	0x909								; case 0x3
08fc 780e       |x   |		Jump	0x90b								; case 0x4
08fd 7800       |x   |		Jump	0x8fe								; case 0x5
08fe 4805       |H   |		Short_Literal	0x5
08ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0900 00d1       |    |		Pop_Control	Pop_Count_1
0901 4800       |H   |		Short_Literal	0x0
0902 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0903 4800       |H   |		Short_Literal	0x0
0904 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0905 4801       |H   |		Short_Literal	0x1
0906 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0907 4802       |H   |		Short_Literal	0x2
0908 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0909 4803       |H   |		Short_Literal	0x3
090a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
090b 4804       |H   |		Short_Literal	0x4
090c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
090d 0000 0000  |    |		.XXX[0x3]
090f 0000       |    |
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913       |    |		.CONST	0x0913								; Address of begin
0911 0004       |    |		.CONST	0x0004								; Address of exception handler
0912 0001       |    |		.CONST	0x0001								; Number of locals
0913			BODY_0910:
0913			INIT_0910:
0913 00da       |    |		Load_Top	At_Offset_2
0914 8215       |    |		Call	0x1,0x15
0915 6803       |h   |		Jump_Zero	0x919
0916 0092 0b5c  |   \|		Action	Push_String_Extended,0xb5c					; "Unknown"
0918 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0919 00da       |    |		Load_Top	At_Offset_2
091a 0219       |    |		Execute	Heap_Access,All_Read
091b e004       |    |		Load	0x0,0x4
091c 1878       | x  |		Execute	Package,Field_Execute,Field_Number 0x78
091d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
091e 0000 0000  |    |		.XXX[0x2]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0923       | #  |		.CONST	0x0923								; Address of begin
0921 0004       |    |		.CONST	0x0004								; Address of exception handler
0922 0001       |    |		.CONST	0x0001								; Number of locals
0923			BODY_0920:
0923			INIT_0920:
0923 4608       |F   |		Jump_Case	0x9
0924 7808       |x   |		Jump	0x92d								; case 0x0
0925 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0926 782e       |x.  |		Jump	0x955								; case 0x2
0927 782d       |x-  |		Jump	0x955								; case 0x3
0928 782c       |x,  |		Jump	0x955								; case 0x4
0929 782b       |x+  |		Jump	0x955								; case 0x5
092a 782a       |x*  |		Jump	0x955								; case 0x6
092b 7816       |x   |		Jump	0x942								; case 0x7
092c 781e       |x   |		Jump	0x94b								; case 0x8
092d 00da       |    |		Load_Top	At_Offset_2
092e 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
092f 00da       |    |		Load_Top	At_Offset_2
0930 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0931 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0932 00da       |    |		Load_Top	At_Offset_2
0933 2204       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x4
0934 00da       |    |		Load_Top	At_Offset_2
0935 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0936 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0937 00da       |    |		Load_Top	At_Offset_2
0938 2205       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x5
0939 00da       |    |		Load_Top	At_Offset_2
093a 2405       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
093b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
093c 00da       |    |		Load_Top	At_Offset_2
093d 2206       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x6
093e 00da       |    |		Load_Top	At_Offset_2
093f 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
0940 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0941 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0942 00db       |    |		Load_Top	At_Offset_3
0943 4801       |H   |		Short_Literal	0x1
0944 e5fe       |    |		Load	0x2,-0x2
0945 00e9       |    |		Load_Encached	String_Cache
0946 035b       | [  |		Declare_Type	Array,Constrained
0947 4801       |H   |		Short_Literal	0x1
0948 e5ff       |    |		Load	0x2,-0x1
0949 031b       |    |		Declare_Type	Variant_Record,Constrained
094a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
094b 00db       |    |		Load_Top	At_Offset_3
094c 00db       |    |		Load_Top	At_Offset_3
094d 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
094e 4801       |H   |		Short_Literal	0x1
094f e5fe       |    |		Load	0x2,-0x2
0950 00e9       |    |		Load_Encached	String_Cache
0951 0334       | 4  |		Declare_Variable	Array,With_Constraint
0952 2d07       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7
0953 016a       | j  |		QQ_execute	Variant_Record,XXX
0954 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0955 0869       | i  |		Execute_Immediate	Raise,0x69
0956 0000 0000  |    |		.XXX[0x2]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095b       | [  |		.CONST	0x095b								; Address of begin
0959 0004       |    |		.CONST	0x0004								; Address of exception handler
095a 0001       |    |		.CONST	0x0001								; Number of locals
095b			BODY_0958:
095b			INIT_0958:
095b 4801       |H   |		Short_Literal	0x1
095c 00db       |    |		Load_Top	At_Offset_3
095d e001       |    |		Load	0x0,0x1
095e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
095f 6802       |h   |		Jump_Zero	0x962
0960 e00d       |    |		Load	0x0,0xd
0961 0257       | W  |		Execute	Discrete,Raise
0962 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0963 0000 0000  |    |		.BLANK	0000[0x5]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b       | k  |		.CONST	0x096b								; Address of begin
0969 0004       |    |		.CONST	0x0004								; Address of exception handler
096a 0001       |    |		.CONST	0x0001								; Number of locals
096b			BODY_0968:
096b			INIT_0968:
096b 00db       |    |		Load_Top	At_Offset_3
096c 4802       |H   |		Short_Literal	0x2
096d 0092 0b5d  |   ]|		Action	Push_String_Extended,0xb5d					; "detected in Remote_Operations."
096f e5ff       |    |		Load	0x2,-0x1
0970 01cc       |    |		Execute	Vector,Catenate
0971 0092 0b5e  |   ^|		Action	Push_String_Extended,0xb5e					; "; "
0973 01cc       |    |		Execute	Vector,Catenate
0974 e013       |    |		Load	0x0,0x13
0975 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0976 01cc       |    |		Execute	Vector,Catenate
0977 0092 0b5f  |   _|		Action	Push_String_Extended,0xb5f					; "Unhandled exception"
0979 e001       |    |		Load	0x0,0x1
097a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
097b c5fe       |    |		Store	0x2,-0x2
097c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
097d 0000 0000  |    |		.XXX[0x3]
097f 0000       |    |
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983       |    |		.CONST	0x0983								; Address of begin
0981 098f       |    |		.CONST	0x098f								; Address of exception handler
0982 0001       |    |		.CONST	0x0001								; Number of locals
0983			BODY_0980:
0983			INIT_0980:
0983 00da       |    |		Load_Top	At_Offset_2
0984 00d8       |    |		Load_Top	At_Offset_0
0985 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0986 7002       |p   |		Jump_Nonzero	0x989
0987 6014       |`   |		Indirect_Literal	Discrete,0x99c,{0xffffffff, 0xffffc000}
0988 7801       |x   |		Jump	0x98a
0989 600e       |`   |		Indirect_Literal	Discrete,0x998,{0x00000000, 0x00004000}
098a 0273       | s  |		Execute	Discrete,Plus
098b 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
098c 00e2       |    |		Load_Encached	Integer_Cache
098d 025e       | ^  |		Execute	Discrete,Convert
098e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
098f			TRAP_0980:
098f 0007       |    |		Action	Break_Optional
0990 6003       |`   |		Indirect_Literal	Discrete,0x994,{0x00000000, 0x7fffffff}
0991 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0992 0000 0000  |    |		.XXX[0x2]
0994 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0998 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
099c ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffc000}
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09a3       |    |		.CONST	0x09a3								; Address of begin
09a1 0004       |    |		.CONST	0x0004								; Address of exception handler
09a2 0001       |    |		.CONST	0x0001								; Number of locals
09a3			BODY_09a0:
09a3			INIT_09a0:
09a3 480a       |H   |		Short_Literal	0xa
09a4 4820       |H   |		Short_Literal	0x20
09a5 e5fe       |    |		Load	0x2,-0x2
09a6 e247       | G  |		Load	0x1,0x47
09a7 01d5       |    |		Execute	Vector,Field_Reference
09a8 01cb       |    |		Execute	Vector,Append
09a9 e5ff       |    |		Load	0x2,-0x1
09aa 01cc       |    |		Execute	Vector,Catenate
09ab 01cb       |    |		Execute	Vector,Append
09ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
09ad 0000 0000  |    |		.XXX[0x3]
09af 0000       |    |
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09b3       |    |		.CONST	0x09b3								; Address of begin
09b1 09c6       |    |		.CONST	0x09c6								; Address of exception handler
09b2 0001       |    |		.CONST	0x0001								; Number of locals
09b3			BODY_09b0:
09b3			INIT_09b0:
09b3 00db       |    |		Load_Top	At_Offset_3
09b4 4805       |H   |		Short_Literal	0x5
09b5 4808       |H   |		Short_Literal	0x8
09b6 0262       | b  |		Execute	Discrete,In_Range
09b7 7006       |p   |		Jump_Nonzero	0x9be
09b8 00da       |    |		Load_Top	At_Offset_2
09b9 e5fd       |    |		Load	0x2,-0x3
09ba 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
09bb e005       |    |		Load	0x0,0x5
09bc 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09bd 7805       |x   |		Jump	0x9c3
09be 00da       |    |		Load_Top	At_Offset_2
09bf e5fd       |    |		Load	0x2,-0x3
09c0 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
09c1 e005       |    |		Load	0x0,0x5
09c2 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09c3 4800       |H   |		Short_Literal	0x0
09c4 a5fc       |    |		Store_Unchecked	0x2,-0x4
09c5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09c6			TRAP_09b0:
09c6 0007       |    |		Action	Break_Optional
09c7 e5fd       |    |		Load	0x2,-0x3
09c8 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
09c9 0092 0b60  |   `|		Action	Push_String_Extended,0xb60					; "Execution.Process_Output"
09cb 824e       | N  |		Call	0x1,0x4e
09cc e5fd       |    |		Load	0x2,-0x3
09cd 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
09ce 4802       |H   |		Short_Literal	0x2
09cf a5fc       |    |		Store_Unchecked	0x2,-0x4
09d0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09d1 0000 0000  |    |		.BLANK	0000[0x7]
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09db       |    |		.CONST	0x09db								; Address of begin
09d9 09f8       |    |		.CONST	0x09f8								; Address of exception handler
09da 0001       |    |		.CONST	0x0001								; Number of locals
09db			BODY_09d8:
09db			INIT_09d8:
09db 00da       |    |		Load_Top	At_Offset_2
09dc 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
09dd e005       |    |		Load	0x0,0x5
09de 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
09df 680f       |h   |		Jump_Zero	0x9ef
09e0 480a       |H   |		Short_Literal	0xa
09e1 4804       |H   |		Short_Literal	0x4
09e2 4822       |H"  |		Short_Literal	0x22
09e3 0092 0b61  |   a|		Action	Push_String_Extended,0xb61					; "User input is required for \x22"
09e5 e5ff       |    |		Load	0x2,-0x1
09e6 2507       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x7
09e7 01cc       |    |		Execute	Vector,Catenate
09e8 01cb       |    |		Execute	Vector,Append
09e9 8250       | P  |		Call	0x1,0x50
09ea 01ca       |    |		Execute	Vector,Prepend
09eb 00db       |    |		Load_Top	At_Offset_3
09ec 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
09ed e005       |    |		Load	0x0,0x5
09ee 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09ef 00e3       |    |		Load_Encached	Natural_Cache
09f0 e5fe       |    |		Load	0x2,-0x2
09f1 e5ff       |    |		Load	0x2,-0x1
09f2 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
09f3 e005       |    |		Load	0x0,0x5
09f4 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
09f5 00d1       |    |		Pop_Control	Pop_Count_1
09f6 c5fd       |    |		Store	0x2,-0x3
09f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09f8			TRAP_09d8:
09f8 00d8       |    |		Load_Top	At_Offset_0
09f9 0107       |    |		Execute	Exception,Get_Name
09fa 4950       |IP  |		Short_Literal	0x150
09fb 495f       |I_  |		Short_Literal	0x15f
09fc 0262       | b  |		Execute	Discrete,In_Range
09fd 6803       |h   |		Jump_Zero	0xa01
09fe 4800       |H   |		Short_Literal	0x0
09ff a5fc       |    |		Store_Unchecked	0x2,-0x4
0a00 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a01 00db       |    |		Load_Top	At_Offset_3
0a02 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0a03 0092 0b62  |   b|		Action	Push_String_Extended,0xb62					; "Execution.Read_Input"
0a05 824e       | N  |		Call	0x1,0x4e
0a06 e5ff       |    |		Load	0x2,-0x1
0a07 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0a08 4802       |H   |		Short_Literal	0x2
0a09 a5fc       |    |		Store_Unchecked	0x2,-0x4
0a0a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a0b 0000 0000  |    |		.BLANK	0000[0x5]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a13       |    |		.CONST	0x0a13								; Address of begin
0a11 0a25       | %  |		.CONST	0x0a25								; Address of exception handler
0a12 0001       |    |		.CONST	0x0001								; Number of locals
0a13			BODY_0a10:
0a13			INIT_0a10:
0a13 00da       |    |		Load_Top	At_Offset_2
0a14 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0a15 4822       |H"  |		Short_Literal	0x22
0a16 e5ff       |    |		Load	0x2,-0x1
0a17 2507       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x7
0a18 01ca       |    |		Execute	Vector,Prepend
0a19 0092 0b63  |   c|		Action	Push_String_Extended,0xb63					; "\x22 has been aborted"
0a1b 01cc       |    |		Execute	Vector,Catenate
0a1c e004       |    |		Load	0x0,0x4
0a1d 1b52       | R  |		Execute	Package,Field_Read,Field_Number 0x52
0a1e e001       |    |		Load	0x0,0x1
0a1f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a20 00db       |    |		Load_Top	At_Offset_3
0a21 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0a22 4802       |H   |		Short_Literal	0x2
0a23 a5fe       |    |		Store_Unchecked	0x2,-0x2
0a24 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a25			TRAP_0a10:
0a25 0007       |    |		Action	Break_Optional
0a26 00db       |    |		Load_Top	At_Offset_3
0a27 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0a28 0092 0b60  |   `|		Action	Push_String_Extended,0xb60					; "Execution.Process_Output"
0a2a 824e       | N  |		Call	0x1,0x4e
0a2b e5ff       |    |		Load	0x2,-0x1
0a2c 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0a2d 4802       |H   |		Short_Literal	0x2
0a2e a5fe       |    |		Store_Unchecked	0x2,-0x2
0a2f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a33       | 3  |		.CONST	0x0a33								; Address of begin
0a31 0a40       | @  |		.CONST	0x0a40								; Address of exception handler
0a32 0001       |    |		.CONST	0x0001								; Number of locals
0a33			BODY_0a30:
0a33			INIT_0a30:
0a33 e5fd       |    |		Load	0x2,-0x3
0a34 e5fe       |    |		Load	0x2,-0x2
0a35 e014       |    |		Load	0x0,0x14
0a36 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0a37 e015       |    |		Load	0x0,0x15
0a38 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0a39 00ea       |    |		Load_Encached	Null_String_Cache
0a3a e5ff       |    |		Load	0x2,-0x1
0a3b 4801       |H   |		Short_Literal	0x1
0a3c e005       |    |		Load	0x0,0x5
0a3d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0a3e c5fd       |    |		Store	0x2,-0x3
0a3f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a40			TRAP_0a30:
0a40 4922       |I"  |		Short_Literal	0x122
0a41 010f       |    |		Execute	Exception,Equal
0a42 7006       |p   |		Jump_Nonzero	0xa49
0a43 4923       |I#  |		Short_Literal	0x123
0a44 010f       |    |		Execute	Exception,Equal
0a45 7003       |p   |		Jump_Nonzero	0xa49
0a46 4924       |I$  |		Short_Literal	0x124
0a47 010f       |    |		Execute	Exception,Equal
0a48 680e       |h   |		Jump_Zero	0xa57
0a49 e5fc       |    |		Load	0x2,-0x4
0a4a 0092 0b64  |   d|		Action	Push_String_Extended,0xb64					; "The file \x22"
0a4c e5ff       |    |		Load	0x2,-0x1
0a4d 01cc       |    |		Execute	Vector,Catenate
0a4e 0092 0b65  |   e|		Action	Push_String_Extended,0xb65					; "\x22 could not be opened"
0a50 01cc       |    |		Execute	Vector,Catenate
0a51 e004       |    |		Load	0x0,0x4
0a52 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
0a53 e001       |    |		Load	0x0,0x1
0a54 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a55 c5fc       |    |		Store	0x2,-0x4
0a56 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a57 4921       |I!  |		Short_Literal	0x121
0a58 010f       |    |		Execute	Exception,Equal
0a59 680e       |h   |		Jump_Zero	0xa68
0a5a e5fc       |    |		Load	0x2,-0x4
0a5b 0092 0b66  |   f|		Action	Push_String_Extended,0xb66					; "Filename \x22"
0a5d e5ff       |    |		Load	0x2,-0x1
0a5e 01cc       |    |		Execute	Vector,Catenate
0a5f 0092 0b67  |   g|		Action	Push_String_Extended,0xb67					; "\x22 is malformed"
0a61 01cc       |    |		Execute	Vector,Catenate
0a62 e004       |    |		Load	0x0,0x4
0a63 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
0a64 e001       |    |		Load	0x0,0x1
0a65 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a66 c5fc       |    |		Store	0x2,-0x4
0a67 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a68 4925       |I%  |		Short_Literal	0x125
0a69 010f       |    |		Execute	Exception,Equal
0a6a 680e       |h   |		Jump_Zero	0xa79
0a6b e5fc       |    |		Load	0x2,-0x4
0a6c 0092 0b66  |   f|		Action	Push_String_Extended,0xb66					; "Filename \x22"
0a6e e5ff       |    |		Load	0x2,-0x1
0a6f 01cc       |    |		Execute	Vector,Catenate
0a70 0092 0b68  |   h|		Action	Push_String_Extended,0xb68					; "\x22 is ambiguous"
0a72 01cc       |    |		Execute	Vector,Catenate
0a73 e004       |    |		Load	0x0,0x4
0a74 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
0a75 e001       |    |		Load	0x0,0x1
0a76 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a77 c5fc       |    |		Store	0x2,-0x4
0a78 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a79 4931       |I1  |		Short_Literal	0x131
0a7a 010f       |    |		Execute	Exception,Equal
0a7b 680e       |h   |		Jump_Zero	0xa8a
0a7c e5fc       |    |		Load	0x2,-0x4
0a7d 0092 0b69  |   i|		Action	Push_String_Extended,0xb69					; "Insufficient privilege to access \x22"
0a7f e5ff       |    |		Load	0x2,-0x1
0a80 01cc       |    |		Execute	Vector,Catenate
0a81 0092 0b6a  |   j|		Action	Push_String_Extended,0xb6a					; "\x22; check the ACLs on this file"
0a83 01cc       |    |		Execute	Vector,Catenate
0a84 e004       |    |		Load	0x0,0x4
0a85 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0a86 e001       |    |		Load	0x0,0x1
0a87 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a88 c5fc       |    |		Store	0x2,-0x4
0a89 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a8a 4932       |I2  |		Short_Literal	0x132
0a8b 010f       |    |		Execute	Exception,Equal
0a8c 6811       |h   |		Jump_Zero	0xa9e
0a8d e5fc       |    |		Load	0x2,-0x4
0a8e 0092 0b64  |   d|		Action	Push_String_Extended,0xb64					; "The file \x22"
0a90 e5ff       |    |		Load	0x2,-0x1
0a91 01cc       |    |		Execute	Vector,Catenate
0a92 0092 0b6b  |   k|		Action	Push_String_Extended,0xb6b					; "\x22 is not checked out; use Cmvc.Check_Out"
0a94 01cc       |    |		Execute	Vector,Catenate
0a95 0092 0b6c  |   l|		Action	Push_String_Extended,0xb6c					; " before attempting this operation again"
0a97 01cc       |    |		Execute	Vector,Catenate
0a98 e004       |    |		Load	0x0,0x4
0a99 1b4b       | K  |		Execute	Package,Field_Read,Field_Number 0x4b
0a9a e001       |    |		Load	0x0,0x1
0a9b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a9c c5fc       |    |		Store	0x2,-0x4
0a9d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a9e 4933       |I3  |		Short_Literal	0x133
0a9f 010f       |    |		Execute	Exception,Equal
0aa0 680e       |h   |		Jump_Zero	0xaaf
0aa1 e5fc       |    |		Load	0x2,-0x4
0aa2 0092 0b64  |   d|		Action	Push_String_Extended,0xb64					; "The file \x22"
0aa4 e5ff       |    |		Load	0x2,-0x1
0aa5 01cc       |    |		Execute	Vector,Catenate
0aa6 0092 0b6d  |   m|		Action	Push_String_Extended,0xb6d					; "\x22 does not have the appropriate class"
0aa8 01cc       |    |		Execute	Vector,Catenate
0aa9 e004       |    |		Load	0x0,0x4
0aaa 1b4f       | O  |		Execute	Package,Field_Read,Field_Number 0x4f
0aab e001       |    |		Load	0x0,0x1
0aac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0aad c5fc       |    |		Store	0x2,-0x4
0aae 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0aaf 4934       |I4  |		Short_Literal	0x134
0ab0 010f       |    |		Execute	Exception,Equal
0ab1 6811       |h   |		Jump_Zero	0xac3
0ab2 e5fc       |    |		Load	0x2,-0x4
0ab3 0092 0b64  |   d|		Action	Push_String_Extended,0xb64					; "The file \x22"
0ab5 e5ff       |    |		Load	0x2,-0x1
0ab6 01cc       |    |		Execute	Vector,Catenate
0ab7 0092 0b6e  |   n|		Action	Push_String_Extended,0xb6e					; "\x22 is frozen; use Library.Unfreeze before attempting"
0ab9 01cc       |    |		Execute	Vector,Catenate
0aba 0092 0b6f  |   o|		Action	Push_String_Extended,0xb6f					; " this operation again"
0abc 01cc       |    |		Execute	Vector,Catenate
0abd e004       |    |		Load	0x0,0x4
0abe 1b4b       | K  |		Execute	Package,Field_Read,Field_Number 0x4b
0abf e001       |    |		Load	0x0,0x1
0ac0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0ac1 c5fc       |    |		Store	0x2,-0x4
0ac2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ac3 4935       |I5  |		Short_Literal	0x135
0ac4 010f       |    |		Execute	Exception,Equal
0ac5 6811       |h   |		Jump_Zero	0xad7
0ac6 e5fc       |    |		Load	0x2,-0x4
0ac7 0092 0b64  |   d|		Action	Push_String_Extended,0xb64					; "The file \x22"
0ac9 e5ff       |    |		Load	0x2,-0x1
0aca 01cc       |    |		Execute	Vector,Catenate
0acb 0092 0b70  |   p|		Action	Push_String_Extended,0xb70					; "\x22 is locked; use What.Locks to determine who is"
0acd 01cc       |    |		Execute	Vector,Catenate
0ace 0092 0b71  |   q|		Action	Push_String_Extended,0xb71					; " holding the locks on this object"
0ad0 01cc       |    |		Execute	Vector,Catenate
0ad1 e004       |    |		Load	0x0,0x4
0ad2 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0ad3 e001       |    |		Load	0x0,0x1
0ad4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0ad5 c5fc       |    |		Store	0x2,-0x4
0ad6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ad7 e5fc       |    |		Load	0x2,-0x4
0ad8 0092 0b72  |   r|		Action	Push_String_Extended,0xb72					; "Create_Output"
0ada 824e       | N  |		Call	0x1,0x4e
0adb c5fc       |    |		Store	0x2,-0x4
0adc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0add 0000 0000  |    |		.XXX[0x3]
0adf 0000       |    |
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae8       |    |		.CONST	0x0ae8								; Address of begin
0ae1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ae2 0002       |    |		.CONST	0x0002								; Number of locals
0ae3			INIT_0ae0:
0ae3 e7fc       |    |		Load	0x3,-0x4
0ae4 e249       | I  |		Load	0x1,0x49
0ae5 01d7       |    |		Execute	Vector,Field_Read
0ae6 e234       | 4  |		Load	0x1,0x34
0ae7 03f1       |    |		Declare_Variable	Discrete,With_Value
0ae8			BODY_0ae0:
0ae8 00d8       |    |		Load_Top	At_Offset_0
0ae9 e7fd       |    |		Load	0x3,-0x3
0aea 00d8       |    |		Load_Top	At_Offset_0
0aeb 0120       |    |		Execute	Any,Is_Value
0aec 6803       |h   |		Jump_Zero	0xaf0
0aed e5fb       |    |		Load	0x2,-0x5
0aee 011e       |    |		Execute	Any,Convert
0aef 7802       |x   |		Jump	0xaf2
0af0 e5fb       |    |		Load	0x2,-0x5
0af1 0119       |    |		Execute	Any,Check_In_Formal_Type
0af2 e7fe       |    |		Load	0x3,-0x2
0af3 e7ff       |    |		Load	0x3,-0x1
0af4 85fc       |    |		Call	0x2,-0x4
0af5 c7fd       |    |		Store	0x3,-0x3
0af6 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0af7 00d8       |    |		Load_Top	At_Offset_0
0af8 e24b       | K  |		Load	0x1,0x4b
0af9 01d7       |    |		Execute	Vector,Field_Read
0afa a7fc       |    |		Store_Unchecked	0x3,-0x4
0afb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0afc 0000 0000  |    |		.BLANK	0000[0x4]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b08       |    |		.CONST	0x0b08								; Address of begin
0b01 0004       |    |		.CONST	0x0004								; Address of exception handler
0b02 0002       |    |		.CONST	0x0002								; Number of locals
0b03			INIT_0b00:
0b03 e7fc       |    |		Load	0x3,-0x4
0b04 e249       | I  |		Load	0x1,0x49
0b05 01d7       |    |		Execute	Vector,Field_Read
0b06 e234       | 4  |		Load	0x1,0x34
0b07 03f1       |    |		Declare_Variable	Discrete,With_Value
0b08			BODY_0b00:
0b08 00d8       |    |		Load_Top	At_Offset_0
0b09 00e3       |    |		Load_Encached	Natural_Cache
0b0a e7fe       |    |		Load	0x3,-0x2
0b0b e7ff       |    |		Load	0x3,-0x1
0b0c 00d8       |    |		Load_Top	At_Offset_0
0b0d 0120       |    |		Execute	Any,Is_Value
0b0e 6803       |h   |		Jump_Zero	0xb12
0b0f e5fb       |    |		Load	0x2,-0x5
0b10 011e       |    |		Execute	Any,Convert
0b11 7802       |x   |		Jump	0xb14
0b12 e5fb       |    |		Load	0x2,-0x5
0b13 0119       |    |		Execute	Any,Check_In_Formal_Type
0b14 85fd       |    |		Call	0x2,-0x3
0b15 c7ff       |    |		Store	0x3,-0x1
0b16 00d1       |    |		Pop_Control	Pop_Count_1
0b17 c7fd       |    |		Store	0x3,-0x3
0b18 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0b19 00d8       |    |		Load_Top	At_Offset_0
0b1a e24b       | K  |		Load	0x1,0x4b
0b1b 01d7       |    |		Execute	Vector,Field_Read
0b1c a7fc       |    |		Store_Unchecked	0x3,-0x4
0b1d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b1e 0000 0000  |    |		.XXX[0x2]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b28       | (  |		.CONST	0x0b28								; Address of begin
0b21 0004       |    |		.CONST	0x0004								; Address of exception handler
0b22 0002       |    |		.CONST	0x0002								; Number of locals
0b23			INIT_0b20:
0b23 00db       |    |		Load_Top	At_Offset_3
0b24 e249       | I  |		Load	0x1,0x49
0b25 01d7       |    |		Execute	Vector,Field_Read
0b26 e234       | 4  |		Load	0x1,0x34
0b27 03f1       |    |		Declare_Variable	Discrete,With_Value
0b28			BODY_0b20:
0b28 00d8       |    |		Load_Top	At_Offset_0
0b29 e7ff       |    |		Load	0x3,-0x1
0b2a 00d8       |    |		Load_Top	At_Offset_0
0b2b 0120       |    |		Execute	Any,Is_Value
0b2c 6803       |h   |		Jump_Zero	0xb30
0b2d e5fb       |    |		Load	0x2,-0x5
0b2e 011e       |    |		Execute	Any,Convert
0b2f 7802       |x   |		Jump	0xb32
0b30 e5fb       |    |		Load	0x2,-0x5
0b31 0119       |    |		Execute	Any,Check_In_Formal_Type
0b32 85fe       |    |		Call	0x2,-0x2
0b33 c7ff       |    |		Store	0x3,-0x1
0b34 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0b35 00d8       |    |		Load_Top	At_Offset_0
0b36 e24b       | K  |		Load	0x1,0x4b
0b37 01d7       |    |		Execute	Vector,Field_Read
0b38 a7fe       |    |		Store_Unchecked	0x3,-0x2
0b39 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b3a ; --------------------------------------------------------------------------------------
0b3a ; STRING TABLE
0b3a ; --------------------------------------------------------------------------------------
0b3a 0074       | t  |		.STRTAB	0x0074->0x0b74							; "NIL"
0b3b 0075       | u  |		.STRTAB	0x0075->0x0b75							; "READ_INPUT"
0b3c 007d       | }  |		.STRTAB	0x007d->0x0b7a							; "ABORT_COMMAND"
0b3d 0088       |    |		.STRTAB	0x0088->0x0b81							; "!MACHINE.DEVICES.NIL"
0b3e 009a       |    |		.STRTAB	0x009a->0x0b8b							; ":::"
0b3f 009b       |    |		.STRTAB	0x009b->0x0b8c							; "???"
0b40 009c       |    |		.STRTAB	0x009c->0x0b8e							; "---"
0b41 009d       |    |		.STRTAB	0x009d->0x0b8f							; "+++"
0b42 009e       |    |		.STRTAB	0x009e->0x0b91							; ">>>"
0b43 009f       |    |		.STRTAB	0x009f->0x0b92							; "++*"
0b44 00a0       |    |		.STRTAB	0x00a0->0x0b94							; "!!!"
0b45 00a1       |    |		.STRTAB	0x00a1->0x0b95							; "***"
0b46 00a2       |    |		.STRTAB	0x00a2->0x0b97							; "%%%"
0b47 00a3       |    |		.STRTAB	0x00a3->0x0b98							; "###"
0b48 00a4       |    |		.STRTAB	0x00a4->0x0b9a							; "@@@"
0b49 00a5       |    |		.STRTAB	0x00a5->0x0b9b							; "$$$"
0b4a 00a6       |    |		.STRTAB	0x00a6->0x0b9d							; "Acquire"
0b4b 00ab       |    |		.STRTAB	0x00ab->0x0ba0							; "Create_Directory"
0b4c 00b9       |    |		.STRTAB	0x00b9->0x0ba8							; "Create_File"
0b4d 00c2       |    |		.STRTAB	0x00c2->0x0bae							; "Put'N(1)"
0b4e 00c8       |    |		.STRTAB	0x00c8->0x0bb2							; "Put'N(2)"
0b4f 00ce       |    |		.STRTAB	0x00ce->0x0bb6							; "Get'N(1)"
0b50 00d4       |    |		.STRTAB	0x00d4->0x0bba							; "Get'N(2)"
0b51 00da       |    |		.STRTAB	0x00da->0x0bbe							; "Update_Time"
0b52 00e3       |    |		.STRTAB	0x00e3->0x0bc3							; "Copy"
0b53 00e5       |    |		.STRTAB	0x00e5->0x0bc5							; "Link"
0b54 00e7       |    |		.STRTAB	0x00e7->0x0bc7							; "Delete_Directory"
0b55 00f5       |    |		.STRTAB	0x00f5->0x0bcf							; "Delete_File"
0b56 00fe       |    |		.STRTAB	0x00fe->0x0bd5							; "Expunge"
0b57 0103       |    |		.STRTAB	0x0103->0x0bd8							; "Move"
0b58 0105       |    |		.STRTAB	0x0105->0x0bda							; "Execute'N(1)"
0b59 010f       |    |		.STRTAB	0x010f->0x0be0							; "Execute'N(2)"
0b5a 0119       |    |		.STRTAB	0x0119->0x0be6							; "Execute'N(3)"
0b5b 0123       | #  |		.STRTAB	0x0123->0x0bec							; "Execution"
0b5c 012a       | *  |		.STRTAB	0x012a->0x0bf1							; "Unknown"
0b5d 012f       | /  |		.STRTAB	0x012f->0x0bf4							; "detected in Remote_Operations."
0b5e 014b       | K  |		.STRTAB	0x014b->0x0c03							; "; "
0b5f 014b       | K  |		.STRTAB	0x014b->0x0c04							; "Unhandled exception"
0b60 015c       | \  |		.STRTAB	0x015c->0x0c0e							; "Execution.Process_Output"
0b61 0172       | r  |		.STRTAB	0x0172->0x0c1a							; "User input is required for \x22"
0b62 018c       |    |		.STRTAB	0x018c->0x0c28							; "Execution.Read_Input"
0b63 019e       |    |		.STRTAB	0x019e->0x0c32							; "\x22 has been aborted"
0b64 01ae       |    |		.STRTAB	0x01ae->0x0c3b							; "The file \x22"
0b65 01b6       |    |		.STRTAB	0x01b6->0x0c40							; "\x22 could not be opened"
0b66 01c9       |    |		.STRTAB	0x01c9->0x0c4a							; "Filename \x22"
0b67 01d1       |    |		.STRTAB	0x01d1->0x0c4f							; "\x22 is malformed"
0b68 01dd       |    |		.STRTAB	0x01dd->0x0c56							; "\x22 is ambiguous"
0b69 01e9       |    |		.STRTAB	0x01e9->0x0c5d							; "Insufficient privilege to access \x22"
0b6a 0209       |    |		.STRTAB	0x0209->0x0c6e							; "\x22; check the ACLs on this file"
0b6b 0225       | %  |		.STRTAB	0x0225->0x0c7d							; "\x22 is not checked out; use Cmvc.Check_Out"
0b6c 024b       | K  |		.STRTAB	0x024b->0x0c91							; " before attempting this operation again"
0b6d 0270       | p  |		.STRTAB	0x0270->0x0ca5							; "\x22 does not have the appropriate class"
0b6e 0293       |    |		.STRTAB	0x0293->0x0cb7							; "\x22 is frozen; use Library.Unfreeze before attempting"
0b6f 02c4       |    |		.STRTAB	0x02c4->0x0cd1							; " this operation again"
0b70 02d7       |    |		.STRTAB	0x02d7->0x0cdb							; "\x22 is locked; use What.Locks to determine who is"
0b71 0304       |    |		.STRTAB	0x0304->0x0cf3							; " holding the locks on this object"
0b72 0323       | #  |		.STRTAB	0x0323->0x0d03							; "Create_Output"
0b73 032e       | .  |		.STREND 0x032e->0x0d0a
0b74 4e49 4c52  |NILR|		.STRTAB_STRINGS
0d0a 0000 0000  |    |		.BLANK	0000[0x6]
0d10 ; --------------------------------------------------------------------------------------
0d10 ; Debug Table
0d10 ; --------------------------------------------------------------------------------------
0d10 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xd31c,0x0000,0x0001,0x0000
0d16 0000 0000  |    |		.BLANK	0000[0xea]