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

⟦f5c3ce3a2⟧

    Length: 18432 (0x4800)
    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 23f8       |#   |		.CONST	0x23f8								; 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 8016       |    |		.CONST	0x8016								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0370       | p  |		.CONST	0x0370								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 00a9       |    |		.CONST	0x00a9								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00c4       |    |		Action	Make_Default
0058 00c4       |    |		Action	Make_Default
0059 00c4       |    |		Action	Make_Default
005a 00c4       |    |		Action	Make_Default
005b 00c4       |    |		Action	Make_Default
005c 00c4       |    |		Action	Make_Default
005d 00c4       |    |		Action	Make_Default
005e 00c4       |    |		Action	Make_Default
005f 00c4       |    |		Action	Make_Default
0060 00c4       |    |		Action	Make_Default
0061 00c4       |    |		Action	Make_Default
0062 00c4       |    |		Action	Make_Default
0063 00c4       |    |		Action	Make_Default
0064 00c4       |    |		Action	Make_Default
0065 00c4       |    |		Action	Make_Default
0066 00c4       |    |		Action	Make_Default
0067 00c4       |    |		Action	Make_Default
0068 00c4       |    |		Action	Make_Default
0069 00c4       |    |		Action	Make_Default
006a 00c4       |    |		Action	Make_Default
006b 00c4       |    |		Action	Make_Default
006c 00c4       |    |		Action	Make_Default
006d 00c4       |    |		Action	Make_Default
006e 00c4       |    |		Action	Make_Default
006f 00c4       |    |		Action	Make_Default
0070 00c4       |    |		Action	Make_Default
0071 00c4       |    |		Action	Make_Default
0072 00c4       |    |		Action	Make_Default
0073 00c4       |    |		Action	Make_Default
0074 00c4       |    |		Action	Make_Default
0075 00c4       |    |		Action	Make_Default
0076 00c4       |    |		Action	Make_Default
0077 00c4       |    |		Action	Make_Default
0078 00c4       |    |		Action	Make_Default
0079 00c4       |    |		Action	Make_Default
007a 00c4       |    |		Action	Make_Default
007b 00c4       |    |		Action	Make_Default
007c 00c4       |    |		Action	Make_Default
007d 00c4       |    |		Action	Make_Default
007e 00c4       |    |		Action	Make_Default
007f 00c4       |    |		Action	Make_Default
0080 00c4       |    |		Action	Make_Default
0081 00c4       |    |		Action	Make_Default
0082 00c4       |    |		Action	Make_Default
0083 00c4       |    |		Action	Make_Default
0084 00c4       |    |		Action	Make_Default
0085 00c4       |    |		Action	Make_Default
0086 00c4       |    |		Action	Make_Default
0087 00c4       |    |		Action	Make_Default
0088 00c4       |    |		Action	Make_Default
0089 00c4       |    |		Action	Make_Default
008a 00c4       |    |		Action	Make_Default
008b 00c4       |    |		Action	Make_Default
008c 00c4       |    |		Action	Make_Default
008d 00c4       |    |		Action	Make_Default
008e 00c4       |    |		Action	Make_Default
008f 00c4       |    |		Action	Make_Default
0090 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0091 c20f       |    |		Store	0x1,0xf
0092 00c4       |    |		Action	Make_Default
0093 00d1       |    |		Pop_Control	Pop_Count_1
0094 e001       |    |		Load	0x0,0x1
0095 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0096 0129       | )  |		Execute	Any,Make_Visible
0097 c243       | C  |		Store	0x1,0x43
0098 4800       |H   |		Short_Literal	0x0
0099 4810       |H   |		Short_Literal	0x10
009a 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
009c 03fe       |    |		Declare_Type	Discrete,Defined,Visible
009d c26c       | l  |		Store	0x1,0x6c
009e e001       |    |		Load	0x0,0x1
009f 191c       |    |		Execute	Package,Field_Reference,Field_Number 0x1c
00a0 0129       | )  |		Execute	Any,Make_Visible
00a1 c245       | E  |		Store	0x1,0x45
00a2 4803       |H   |		Short_Literal	0x3
00a3 0092 1d26  |   &|		Action	Push_String_Extended,0x1d26					; "CONNECTION_ERROR"
00a5 8245       | E  |		Call	0x1,0x45
00a6 e001       |    |		Load	0x0,0x1
00a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a8 011e       |    |		Execute	Any,Convert
00a9 0129       | )  |		Execute	Any,Make_Visible
00aa c26d       | m  |		Store	0x1,0x6d
00ab 4802       |H   |		Short_Literal	0x2
00ac 0092 1d29  |   )|		Action	Push_String_Extended,0x1d29					; "ACCESS_ERROR"
00ae 8245       | E  |		Call	0x1,0x45
00af e001       |    |		Load	0x0,0x1
00b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b1 011e       |    |		Execute	Any,Convert
00b2 0129       | )  |		Execute	Any,Make_Visible
00b3 c247       | G  |		Store	0x1,0x47
00b4 4802       |H   |		Short_Literal	0x2
00b5 0092 1d2a  |   *|		Action	Push_String_Extended,0x1d2a					; "DEVICE_ERROR"
00b7 8245       | E  |		Call	0x1,0x45
00b8 e001       |    |		Load	0x0,0x1
00b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ba 011e       |    |		Execute	Any,Convert
00bb 0129       | )  |		Execute	Any,Make_Visible
00bc c248       | H  |		Store	0x1,0x48
00bd 4802       |H   |		Short_Literal	0x2
00be 0092 1d2b  |   +|		Action	Push_String_Extended,0x1d2b					; "LOCK_ERROR"
00c0 8245       | E  |		Call	0x1,0x45
00c1 e001       |    |		Load	0x0,0x1
00c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c3 011e       |    |		Execute	Any,Convert
00c4 0129       | )  |		Execute	Any,Make_Visible
00c5 c249       | I  |		Store	0x1,0x49
00c6 4802       |H   |		Short_Literal	0x2
00c7 0092 1d2c  |   ,|		Action	Push_String_Extended,0x1d2c					; "NAME_ERROR"
00c9 8245       | E  |		Call	0x1,0x45
00ca e001       |    |		Load	0x0,0x1
00cb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00cc 011e       |    |		Execute	Any,Convert
00cd 0129       | )  |		Execute	Any,Make_Visible
00ce c24a       | J  |		Store	0x1,0x4a
00cf 4802       |H   |		Short_Literal	0x2
00d0 0092 1d2d  |   -|		Action	Push_String_Extended,0x1d2d					; "POLICY_ERROR"
00d2 8245       | E  |		Call	0x1,0x45
00d3 e001       |    |		Load	0x0,0x1
00d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d5 011e       |    |		Execute	Any,Convert
00d6 0129       | )  |		Execute	Any,Make_Visible
00d7 c24b       | K  |		Store	0x1,0x4b
00d8 4802       |H   |		Short_Literal	0x2
00d9 0092 1d2e  |   .|		Action	Push_String_Extended,0x1d2e					; "STATUS_ERROR"
00db 8245       | E  |		Call	0x1,0x45
00dc e001       |    |		Load	0x0,0x1
00dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00de 011e       |    |		Execute	Any,Convert
00df 0129       | )  |		Execute	Any,Make_Visible
00e0 c24c       | L  |		Store	0x1,0x4c
00e1 4802       |H   |		Short_Literal	0x2
00e2 0092 1d2f  |   /|		Action	Push_String_Extended,0x1d2f					; "STORAGE_ERROR"
00e4 8245       | E  |		Call	0x1,0x45
00e5 e001       |    |		Load	0x0,0x1
00e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e7 011e       |    |		Execute	Any,Convert
00e8 0129       | )  |		Execute	Any,Make_Visible
00e9 c24d       | M  |		Store	0x1,0x4d
00ea 4802       |H   |		Short_Literal	0x2
00eb 0092 1d30  |   0|		Action	Push_String_Extended,0x1d30					; "UNSUPPORTED"
00ed 8245       | E  |		Call	0x1,0x45
00ee e001       |    |		Load	0x0,0x1
00ef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f0 011e       |    |		Execute	Any,Convert
00f1 0129       | )  |		Execute	Any,Make_Visible
00f2 c24e       | N  |		Store	0x1,0x4e
00f3 4802       |H   |		Short_Literal	0x2
00f4 0092 1d31  |   1|		Action	Push_String_Extended,0x1d31					; "USE_ERROR"
00f6 8245       | E  |		Call	0x1,0x45
00f7 e001       |    |		Load	0x0,0x1
00f8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f9 011e       |    |		Execute	Any,Convert
00fa 0129       | )  |		Execute	Any,Make_Visible
00fb c24f       | O  |		Store	0x1,0x4f
00fc 4802       |H   |		Short_Literal	0x2
00fd 0092 1d32  |   2|		Action	Push_String_Extended,0x1d32					; "COMMAND_ERROR"
00ff 8245       | E  |		Call	0x1,0x45
0100 e001       |    |		Load	0x0,0x1
0101 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0102 011e       |    |		Execute	Any,Convert
0103 0129       | )  |		Execute	Any,Make_Visible
0104 c250       | P  |		Store	0x1,0x50
0105 4802       |H   |		Short_Literal	0x2
0106 0092 1d33  |   3|		Action	Push_String_Extended,0x1d33					; "COMMAND_TERMINATED"
0108 8245       | E  |		Call	0x1,0x45
0109 e001       |    |		Load	0x0,0x1
010a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010b 011e       |    |		Execute	Any,Convert
010c 0129       | )  |		Execute	Any,Make_Visible
010d c251       | Q  |		Store	0x1,0x51
010e 4802       |H   |		Short_Literal	0x2
010f 0092 1d34  |   4|		Action	Push_String_Extended,0x1d34					; "COMMAND_TIMED_OUT"
0111 8245       | E  |		Call	0x1,0x45
0112 e001       |    |		Load	0x0,0x1
0113 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0114 011e       |    |		Execute	Any,Convert
0115 0129       | )  |		Execute	Any,Make_Visible
0116 c252       | R  |		Store	0x1,0x52
0117 4802       |H   |		Short_Literal	0x2
0118 0092 1d35  |   5|		Action	Push_String_Extended,0x1d35					; "RESOURCE_LIMIT"
011a 8245       | E  |		Call	0x1,0x45
011b e001       |    |		Load	0x0,0x1
011c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011d 011e       |    |		Execute	Any,Convert
011e 0129       | )  |		Execute	Any,Make_Visible
011f c254       | T  |		Store	0x1,0x54
0120 4802       |H   |		Short_Literal	0x2
0121 0092 1d27  |   '|		Action	Push_String_Extended,0x1d27					; "INTERNAL_ERROR"
0123 8245       | E  |		Call	0x1,0x45
0124 e001       |    |		Load	0x0,0x1
0125 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0126 011e       |    |		Execute	Any,Convert
0127 0129       | )  |		Execute	Any,Make_Visible
0128 c255       | U  |		Store	0x1,0x55
0129 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
012b c269       | i  |		Store	0x1,0x69
012c 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
012e c285       |    |		Store	0x1,0x85
012f 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0131 c283       |    |		Store	0x1,0x83
0132 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
0134 c258       | X  |		Store	0x1,0x58
0135 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
0137 c259       | Y  |		Store	0x1,0x59
0138 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
013a c25a       | Z  |		Store	0x1,0x5a
013b 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
013d c25b       | [  |		Store	0x1,0x5b
013e 029a 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call,Visible,Unelaborated
0140 c25c       | \  |		Store	0x1,0x5c
0141 4800       |H   |		Short_Literal	0x0
0142 48ff       |H   |		Short_Literal	0xff
0143 00e5       |    |		Load_Encached	Long_Integer_Cache
0144 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0145 c28c       |    |		Store	0x1,0x8c
0146 4801       |H   |		Short_Literal	0x1
0147 4802       |H   |		Short_Literal	0x2
0148 e28c       |    |		Load	0x1,0x8c
0149 02a0       |    |		Declare_Subprogram	Null_Subprogram
014a 4801       |H   |		Short_Literal	0x1
014b 035e       | ^  |		Declare_Type	Array,Defined,Visible
014c c28d       |    |		Store	0x1,0x8d
014d e28d       |    |		Load	0x1,0x8d
014e 0337       | 7  |		Declare_Variable	Array
014f 4800       |H   |		Short_Literal	0x0
0150 4801       |H   |		Short_Literal	0x1
0151 00da       |    |		Load_Top	At_Offset_2
0152 01d6       |    |		Execute	Vector,Field_Write
0153 4800       |H   |		Short_Literal	0x0
0154 4802       |H   |		Short_Literal	0x2
0155 00da       |    |		Load_Top	At_Offset_2
0156 01d6       |    |		Execute	Vector,Field_Write
0157 e28d       |    |		Load	0x1,0x8d
0158 01c3       |    |		Execute	Vector,Check_In_Type
0159 0129       | )  |		Execute	Any,Make_Visible
015a c28e       |    |		Store	0x1,0x8e
015b 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
015d c28f       |    |		Store	0x1,0x8f
015e 029a 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Visible,Unelaborated
0160 c290       |    |		Store	0x1,0x90
0161 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
0163 c275       | u  |		Store	0x1,0x75
0164 4800       |H   |		Short_Literal	0x0
0165 48ff       |H   |		Short_Literal	0xff
0166 00e3       |    |		Load_Encached	Natural_Cache
0167 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0168 c286       |    |		Store	0x1,0x86
0169 029a 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call,Visible,Unelaborated
016b c291       |    |		Store	0x1,0x91
016c 029a 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call,Visible,Unelaborated
016e c287       |    |		Store	0x1,0x87
016f 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
0171 c278       | x  |		Store	0x1,0x78
0172 029a 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Visible,Unelaborated
0174 c279       | y  |		Store	0x1,0x79
0175 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0177 c27a       | z  |		Store	0x1,0x7a
0178 029a 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call,Visible,Unelaborated
017a c27b       | {  |		Store	0x1,0x7b
017b 029a 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call,Visible,Unelaborated
017d c27c       | |  |		Store	0x1,0x7c
017e 029a 070b  |    |		Declare_Subprogram	INIT_0708,For_Outer_Call,Visible,Unelaborated
0180 c27d       | }  |		Store	0x1,0x7d
0181 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
0183 c27e       | ~  |		Store	0x1,0x7e
0184 029a 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call,Visible,Unelaborated
0186 c26f       | o  |		Store	0x1,0x6f
0187 029a 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Visible,Unelaborated
0189 c27f       |    |		Store	0x1,0x7f
018a 029a 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call,Visible,Unelaborated
018c c284       |    |		Store	0x1,0x84
018d 029a 08fb  |    |		Declare_Subprogram	INIT_08f8,For_Outer_Call,Visible,Unelaborated
018f c281       |    |		Store	0x1,0x81
0190 029a 096b  |   k|		Declare_Subprogram	INIT_0968,For_Outer_Call,Visible,Unelaborated
0192 c282       |    |		Store	0x1,0x82
0193 029a 09db  |    |		Declare_Subprogram	INIT_09d8,For_Outer_Call,Visible,Unelaborated
0195 c270       | p  |		Store	0x1,0x70
0196 029a 0a3b  |   ;|		Declare_Subprogram	INIT_0a38,For_Outer_Call,Visible,Unelaborated
0198 c271       | q  |		Store	0x1,0x71
0199 4800       |H   |		Short_Literal	0x0
019a 4802       |H   |		Short_Literal	0x2
019b 029f 0a63  |   c|		Declare_Subprogram	INIT_0a60,For_Call
019d 03fe       |    |		Declare_Type	Discrete,Defined,Visible
019e c22a       | *  |		Store	0x1,0x2a
019f 029a 0a8b  |    |		Declare_Subprogram	INIT_0a88,For_Outer_Call,Visible,Unelaborated
01a1 c267       | g  |		Store	0x1,0x67
01a2 029a 0afb  |    |		Declare_Subprogram	INIT_0af8,For_Outer_Call,Visible,Unelaborated
01a4 c268       | h  |		Store	0x1,0x68
01a5 00e3       |    |		Load_Encached	Natural_Cache
01a6 4800       |H   |		Short_Literal	0x0
01a7 4801       |H   |		Short_Literal	0x1
01a8 4801       |H   |		Short_Literal	0x1
01a9 480d       |H   |		Short_Literal	0xd
01aa 0318       |    |		Declare_Type	Variant_Record,Incomplete
01ab 029f 0b6b  |   k|		Declare_Subprogram	INIT_0b68,For_Call
01ad 00d9       |    |		Load_Top	At_Offset_1
01ae 012a       | *  |		Execute	Any,Change_Utility
01af c272       | r  |		Store	0x1,0x72
01b0 e272       | r  |		Load	0x1,0x72
01b1 02a0       |    |		Declare_Subprogram	Null_Subprogram
01b2 e20f       |    |		Load	0x1,0xf
01b3 03a3       |    |		Complete_Type	Heap_Access,By_Defining
01b4 e20f       |    |		Load	0x1,0xf
01b5 0129       | )  |		Execute	Any,Make_Visible
01b6 c242       | B  |		Store	0x1,0x42
01b7 00bf       |    |		Action	Accept_Activation
01b8 0092 1e12  |    |		Action	Push_String_Extended,0x1e12					; "localhost"
01ba e002       |    |		Load	0x0,0x2
01bb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01bc 00d8       |    |		Load_Top	At_Offset_0
01bd e002       |    |		Load	0x0,0x2
01be 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 e002       |    |		Load	0x0,0x2
01c1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c2 e003       |    |		Load	0x0,0x3
01c3 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01c4 02a0       |    |		Declare_Subprogram	Null_Subprogram
01c5 03ad       |    |		Declare_Type	Heap_Access,Defined
01c6 4800       |H   |		Short_Literal	0x0
01c7 4805       |H   |		Short_Literal	0x5
01c8 029f 0bcb  |    |		Declare_Subprogram	INIT_0bc8,For_Call
01ca 03fd       |    |		Declare_Type	Discrete,Defined
01cb 00e1       |    |		Load_Encached	Boolean_Cache
01cc 00d9       |    |		Load_Top	At_Offset_1
01cd e28d       |    |		Load	0x1,0x8d
01ce e295       |    |		Load	0x1,0x95
01cf 4801       |H   |		Short_Literal	0x1
01d0 4802       |H   |		Short_Literal	0x2
01d1 e004       |    |		Load	0x0,0x4
01d2 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01d3 035b       | [  |		Declare_Type	Array,Constrained
01d4 e005       |    |		Load	0x0,0x5
01d5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d6 e243       | C  |		Load	0x1,0x43
01d7 00e1       |    |		Load_Encached	Boolean_Cache
01d8 4801       |H   |		Short_Literal	0x1
01d9 61ca       |a   |		Indirect_Literal	Discrete,0x3a4,{0x00000000, 0x00000fa0}
01da e006       |    |		Load	0x0,0x6
01db 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01dc 035b       | [  |		Declare_Type	Array,Constrained
01dd 00e3       |    |		Load_Encached	Natural_Cache
01de 00e3       |    |		Load_Encached	Natural_Cache
01df 4801       |H   |		Short_Literal	0x1
01e0 61bf       |a   |		Indirect_Literal	Discrete,0x3a0,{0x00000000, 0x7fffffff}
01e1 e004       |    |		Load	0x0,0x4
01e2 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01e3 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
01e4 029f 0b6b  |   k|		Declare_Subprogram	INIT_0b68,For_Call
01e6 4800       |H   |		Short_Literal	0x0
01e7 4801       |H   |		Short_Literal	0x1
01e8 480b       |H   |		Short_Literal	0xb
01e9 e272       | r  |		Load	0x1,0x72
01ea 0307       |    |		Complete_Type	Variant_Record,By_Defining
01eb e007       |    |		Load	0x0,0x7
01ec e008       |    |		Load	0x0,0x8
01ed e003       |    |		Load	0x0,0x3
01ee 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01ef e295       |    |		Load	0x1,0x95
01f0 e009       |    |		Load	0x0,0x9
01f1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f2 0387       |    |		Declare_Variable	Package
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 020f       |    |		Execute	Module,Activate
01f5 e00a       |    |		Load	0x0,0xa
01f6 e00b       |    |		Load	0x0,0xb
01f7 e272       | r  |		Load	0x1,0x72
01f8 e20f       |    |		Load	0x1,0xf
01f9 e009       |    |		Load	0x0,0x9
01fa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fb 0387       |    |		Declare_Variable	Package
01fc 00d8       |    |		Load_Top	At_Offset_0
01fd 020f       |    |		Execute	Module,Activate
01fe 4800       |H   |		Short_Literal	0x0
01ff 480b       |H   |		Short_Literal	0xb
0200 029f 0bf3  |    |		Declare_Subprogram	INIT_0bf0,For_Call
0202 03fd       |    |		Declare_Type	Discrete,Defined
0203 00d8       |    |		Load_Top	At_Offset_0
0204 0266       | f  |		Execute	Discrete,Bounds
0205 e28d       |    |		Load	0x1,0x8d
0206 02a0       |    |		Declare_Subprogram	Null_Subprogram
0207 4801       |H   |		Short_Literal	0x1
0208 035d       | ]  |		Declare_Type	Array,Defined
0209 00d8       |    |		Load_Top	At_Offset_0
020a 0337       | 7  |		Declare_Variable	Array
020b 00d8       |    |		Load_Top	At_Offset_0
020c 0335       | 5  |		Declare_Variable	Array,Duplicate
020d 00cd       |    |		Action	Spare6_Action
020e e28d       |    |		Load	0x1,0x8d
020f 0337       | 7  |		Declare_Variable	Array
0210 4802       |H   |		Short_Literal	0x2
0211 4801       |H   |		Short_Literal	0x1
0212 00da       |    |		Load_Top	At_Offset_2
0213 01d6       |    |		Execute	Vector,Field_Write
0214 4801       |H   |		Short_Literal	0x1
0215 4802       |H   |		Short_Literal	0x2
0216 00da       |    |		Load_Top	At_Offset_2
0217 01d6       |    |		Execute	Vector,Field_Write
0218 e28d       |    |		Load	0x1,0x8d
0219 01c3       |    |		Execute	Vector,Check_In_Type
021a e28d       |    |		Load	0x1,0x8d
021b 0119       |    |		Execute	Any,Check_In_Formal_Type
021c 4800       |H   |		Short_Literal	0x0
021d 00da       |    |		Load_Top	At_Offset_2
021e 01d6       |    |		Execute	Vector,Field_Write
021f e28d       |    |		Load	0x1,0x8d
0220 0337       | 7  |		Declare_Variable	Array
0221 4802       |H   |		Short_Literal	0x2
0222 4801       |H   |		Short_Literal	0x1
0223 00da       |    |		Load_Top	At_Offset_2
0224 01d6       |    |		Execute	Vector,Field_Write
0225 4801       |H   |		Short_Literal	0x1
0226 4802       |H   |		Short_Literal	0x2
0227 00da       |    |		Load_Top	At_Offset_2
0228 01d6       |    |		Execute	Vector,Field_Write
0229 e28d       |    |		Load	0x1,0x8d
022a 01c3       |    |		Execute	Vector,Check_In_Type
022b e28d       |    |		Load	0x1,0x8d
022c 0119       |    |		Execute	Any,Check_In_Formal_Type
022d 4801       |H   |		Short_Literal	0x1
022e 00da       |    |		Load_Top	At_Offset_2
022f 01d6       |    |		Execute	Vector,Field_Write
0230 e28d       |    |		Load	0x1,0x8d
0231 0337       | 7  |		Declare_Variable	Array
0232 4802       |H   |		Short_Literal	0x2
0233 4801       |H   |		Short_Literal	0x1
0234 00da       |    |		Load_Top	At_Offset_2
0235 01d6       |    |		Execute	Vector,Field_Write
0236 4801       |H   |		Short_Literal	0x1
0237 4802       |H   |		Short_Literal	0x2
0238 00da       |    |		Load_Top	At_Offset_2
0239 01d6       |    |		Execute	Vector,Field_Write
023a e28d       |    |		Load	0x1,0x8d
023b 01c3       |    |		Execute	Vector,Check_In_Type
023c e28d       |    |		Load	0x1,0x8d
023d 0119       |    |		Execute	Any,Check_In_Formal_Type
023e 4802       |H   |		Short_Literal	0x2
023f 00da       |    |		Load_Top	At_Offset_2
0240 01d6       |    |		Execute	Vector,Field_Write
0241 e28d       |    |		Load	0x1,0x8d
0242 0337       | 7  |		Declare_Variable	Array
0243 4802       |H   |		Short_Literal	0x2
0244 4801       |H   |		Short_Literal	0x1
0245 00da       |    |		Load_Top	At_Offset_2
0246 01d6       |    |		Execute	Vector,Field_Write
0247 4801       |H   |		Short_Literal	0x1
0248 4802       |H   |		Short_Literal	0x2
0249 00da       |    |		Load_Top	At_Offset_2
024a 01d6       |    |		Execute	Vector,Field_Write
024b e28d       |    |		Load	0x1,0x8d
024c 01c3       |    |		Execute	Vector,Check_In_Type
024d e28d       |    |		Load	0x1,0x8d
024e 0119       |    |		Execute	Any,Check_In_Formal_Type
024f 4803       |H   |		Short_Literal	0x3
0250 00da       |    |		Load_Top	At_Offset_2
0251 01d6       |    |		Execute	Vector,Field_Write
0252 e28d       |    |		Load	0x1,0x8d
0253 0337       | 7  |		Declare_Variable	Array
0254 4802       |H   |		Short_Literal	0x2
0255 4801       |H   |		Short_Literal	0x1
0256 00da       |    |		Load_Top	At_Offset_2
0257 01d6       |    |		Execute	Vector,Field_Write
0258 4801       |H   |		Short_Literal	0x1
0259 4802       |H   |		Short_Literal	0x2
025a 00da       |    |		Load_Top	At_Offset_2
025b 01d6       |    |		Execute	Vector,Field_Write
025c e28d       |    |		Load	0x1,0x8d
025d 01c3       |    |		Execute	Vector,Check_In_Type
025e e28d       |    |		Load	0x1,0x8d
025f 0119       |    |		Execute	Any,Check_In_Formal_Type
0260 4804       |H   |		Short_Literal	0x4
0261 00da       |    |		Load_Top	At_Offset_2
0262 01d6       |    |		Execute	Vector,Field_Write
0263 e28d       |    |		Load	0x1,0x8d
0264 0337       | 7  |		Declare_Variable	Array
0265 4802       |H   |		Short_Literal	0x2
0266 4801       |H   |		Short_Literal	0x1
0267 00da       |    |		Load_Top	At_Offset_2
0268 01d6       |    |		Execute	Vector,Field_Write
0269 4801       |H   |		Short_Literal	0x1
026a 4802       |H   |		Short_Literal	0x2
026b 00da       |    |		Load_Top	At_Offset_2
026c 01d6       |    |		Execute	Vector,Field_Write
026d e28d       |    |		Load	0x1,0x8d
026e 01c3       |    |		Execute	Vector,Check_In_Type
026f e28d       |    |		Load	0x1,0x8d
0270 0119       |    |		Execute	Any,Check_In_Formal_Type
0271 4805       |H   |		Short_Literal	0x5
0272 00da       |    |		Load_Top	At_Offset_2
0273 01d6       |    |		Execute	Vector,Field_Write
0274 e28d       |    |		Load	0x1,0x8d
0275 0337       | 7  |		Declare_Variable	Array
0276 4802       |H   |		Short_Literal	0x2
0277 4801       |H   |		Short_Literal	0x1
0278 00da       |    |		Load_Top	At_Offset_2
0279 01d6       |    |		Execute	Vector,Field_Write
027a 4801       |H   |		Short_Literal	0x1
027b 4802       |H   |		Short_Literal	0x2
027c 00da       |    |		Load_Top	At_Offset_2
027d 01d6       |    |		Execute	Vector,Field_Write
027e e28d       |    |		Load	0x1,0x8d
027f 01c3       |    |		Execute	Vector,Check_In_Type
0280 e28d       |    |		Load	0x1,0x8d
0281 0119       |    |		Execute	Any,Check_In_Formal_Type
0282 4806       |H   |		Short_Literal	0x6
0283 00da       |    |		Load_Top	At_Offset_2
0284 01d6       |    |		Execute	Vector,Field_Write
0285 e28d       |    |		Load	0x1,0x8d
0286 0337       | 7  |		Declare_Variable	Array
0287 4802       |H   |		Short_Literal	0x2
0288 4801       |H   |		Short_Literal	0x1
0289 00da       |    |		Load_Top	At_Offset_2
028a 01d6       |    |		Execute	Vector,Field_Write
028b 4801       |H   |		Short_Literal	0x1
028c 4802       |H   |		Short_Literal	0x2
028d 00da       |    |		Load_Top	At_Offset_2
028e 01d6       |    |		Execute	Vector,Field_Write
028f e28d       |    |		Load	0x1,0x8d
0290 01c3       |    |		Execute	Vector,Check_In_Type
0291 e28d       |    |		Load	0x1,0x8d
0292 0119       |    |		Execute	Any,Check_In_Formal_Type
0293 4807       |H   |		Short_Literal	0x7
0294 00da       |    |		Load_Top	At_Offset_2
0295 01d6       |    |		Execute	Vector,Field_Write
0296 e28d       |    |		Load	0x1,0x8d
0297 0337       | 7  |		Declare_Variable	Array
0298 4802       |H   |		Short_Literal	0x2
0299 4801       |H   |		Short_Literal	0x1
029a 00da       |    |		Load_Top	At_Offset_2
029b 01d6       |    |		Execute	Vector,Field_Write
029c 4801       |H   |		Short_Literal	0x1
029d 4802       |H   |		Short_Literal	0x2
029e 00da       |    |		Load_Top	At_Offset_2
029f 01d6       |    |		Execute	Vector,Field_Write
02a0 e28d       |    |		Load	0x1,0x8d
02a1 01c3       |    |		Execute	Vector,Check_In_Type
02a2 e28d       |    |		Load	0x1,0x8d
02a3 0119       |    |		Execute	Any,Check_In_Formal_Type
02a4 4808       |H   |		Short_Literal	0x8
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 01d6       |    |		Execute	Vector,Field_Write
02a7 e28d       |    |		Load	0x1,0x8d
02a8 0337       | 7  |		Declare_Variable	Array
02a9 4802       |H   |		Short_Literal	0x2
02aa 4801       |H   |		Short_Literal	0x1
02ab 00da       |    |		Load_Top	At_Offset_2
02ac 01d6       |    |		Execute	Vector,Field_Write
02ad 4801       |H   |		Short_Literal	0x1
02ae 4802       |H   |		Short_Literal	0x2
02af 00da       |    |		Load_Top	At_Offset_2
02b0 01d6       |    |		Execute	Vector,Field_Write
02b1 e28d       |    |		Load	0x1,0x8d
02b2 01c3       |    |		Execute	Vector,Check_In_Type
02b3 e28d       |    |		Load	0x1,0x8d
02b4 0119       |    |		Execute	Any,Check_In_Formal_Type
02b5 4809       |H   |		Short_Literal	0x9
02b6 00da       |    |		Load_Top	At_Offset_2
02b7 01d6       |    |		Execute	Vector,Field_Write
02b8 e28d       |    |		Load	0x1,0x8d
02b9 0337       | 7  |		Declare_Variable	Array
02ba 4802       |H   |		Short_Literal	0x2
02bb 4801       |H   |		Short_Literal	0x1
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d6       |    |		Execute	Vector,Field_Write
02be 4801       |H   |		Short_Literal	0x1
02bf 4802       |H   |		Short_Literal	0x2
02c0 00da       |    |		Load_Top	At_Offset_2
02c1 01d6       |    |		Execute	Vector,Field_Write
02c2 e28d       |    |		Load	0x1,0x8d
02c3 01c3       |    |		Execute	Vector,Check_In_Type
02c4 e28d       |    |		Load	0x1,0x8d
02c5 0119       |    |		Execute	Any,Check_In_Formal_Type
02c6 480a       |H   |		Short_Literal	0xa
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 01d6       |    |		Execute	Vector,Field_Write
02c9 e28d       |    |		Load	0x1,0x8d
02ca 0337       | 7  |		Declare_Variable	Array
02cb 4802       |H   |		Short_Literal	0x2
02cc 4801       |H   |		Short_Literal	0x1
02cd 00da       |    |		Load_Top	At_Offset_2
02ce 01d6       |    |		Execute	Vector,Field_Write
02cf 4801       |H   |		Short_Literal	0x1
02d0 4802       |H   |		Short_Literal	0x2
02d1 00da       |    |		Load_Top	At_Offset_2
02d2 01d6       |    |		Execute	Vector,Field_Write
02d3 e28d       |    |		Load	0x1,0x8d
02d4 01c3       |    |		Execute	Vector,Check_In_Type
02d5 e28d       |    |		Load	0x1,0x8d
02d6 0119       |    |		Execute	Any,Check_In_Formal_Type
02d7 480b       |H   |		Short_Literal	0xb
02d8 00da       |    |		Load_Top	At_Offset_2
02d9 01d6       |    |		Execute	Vector,Field_Write
02da 00d9       |    |		Load_Top	At_Offset_1
02db 01d4       |    |		Execute	Vector,Structure_Write
02dc 4800       |H   |		Short_Literal	0x0
02dd 481c       |H   |		Short_Literal	0x1c
02de 029f 0c1b  |    |		Declare_Subprogram	INIT_0c18,For_Call
02e0 03fd       |    |		Declare_Type	Discrete,Defined
02e1 e26c       | l  |		Load	0x1,0x6c
02e2 0007       |    |		Action	Break_Optional
02e3 4800       |H   |		Short_Literal	0x0
02e4 e00c       |    |		Load	0x0,0xc
02e5 02a0       |    |		Declare_Subprogram	Null_Subprogram
02e6 038e       |    |		Declare_Type	Package,Defined
02e7 0387       |    |		Declare_Variable	Package
02e8 4800       |H   |		Short_Literal	0x0
02e9 4800       |H   |		Short_Literal	0x0
02ea 00b6       |    |		Action	Make_Scope
02eb e00f       |    |		Load	0x0,0xf
02ec e004       |    |		Load	0x0,0x4
02ed e001       |    |		Load	0x0,0x1
02ee e003       |    |		Load	0x0,0x3
02ef e005       |    |		Load	0x0,0x5
02f0 e292       |    |		Load	0x1,0x92
02f1 e010       |    |		Load	0x0,0x10
02f2 e006       |    |		Load	0x0,0x6
02f3 e29c       |    |		Load	0x1,0x9c
02f4 e011       |    |		Load	0x0,0x11
02f5 e012       |    |		Load	0x0,0x12
02f6 e013       |    |		Load	0x0,0x13
02f7 e272       | r  |		Load	0x1,0x72
02f8 e297       |    |		Load	0x1,0x97
02f9 e298       |    |		Load	0x1,0x98
02fa e002       |    |		Load	0x0,0x2
02fb e014       |    |		Load	0x0,0x14
02fc e02a       | *  |		Load	0x0,0x2a
02fd e02b       | +  |		Load	0x0,0x2b
02fe e017       |    |		Load	0x0,0x17
02ff 4817       |H   |		Short_Literal	0x17
0300 e29e       |    |		Load	0x1,0x9e
0301 020e       |    |		Execute	Module,Augment_Imports
0302 00d8       |    |		Load_Top	At_Offset_0
0303 020f       |    |		Execute	Module,Activate
0304 4800       |H   |		Short_Literal	0x0
0305 e015       |    |		Load	0x0,0x15
0306 02a0       |    |		Declare_Subprogram	Null_Subprogram
0307 038e       |    |		Declare_Type	Package,Defined
0308 0387       |    |		Declare_Variable	Package
0309 e016       |    |		Load	0x0,0x16
030a 00b6       |    |		Action	Make_Scope
030b e001       |    |		Load	0x0,0x1
030c e017       |    |		Load	0x0,0x17
030d e018       |    |		Load	0x0,0x18
030e e019       |    |		Load	0x0,0x19
030f 4806       |H   |		Short_Literal	0x6
0310 e29f       |    |		Load	0x1,0x9f
0311 020e       |    |		Execute	Module,Augment_Imports
0312 00d8       |    |		Load_Top	At_Offset_0
0313 020f       |    |		Execute	Module,Activate
0314 4800       |H   |		Short_Literal	0x0
0315 e01a       |    |		Load	0x0,0x1a
0316 02a0       |    |		Declare_Subprogram	Null_Subprogram
0317 038e       |    |		Declare_Type	Package,Defined
0318 e01b       |    |		Load	0x0,0x1b
0319 4801       |H   |		Short_Literal	0x1
031a 00da       |    |		Load_Top	At_Offset_2
031b 020e       |    |		Execute	Module,Augment_Imports
031c 0387       |    |		Declare_Variable	Package
031d e006       |    |		Load	0x0,0x6
031e e012       |    |		Load	0x0,0x12
031f 4802       |H   |		Short_Literal	0x2
0320 00db       |    |		Load_Top	At_Offset_3
0321 020e       |    |		Execute	Module,Augment_Imports
0322 00d8       |    |		Load_Top	At_Offset_0
0323 020f       |    |		Execute	Module,Activate
0324 029d 0c43  |   C|		Declare_Subprogram	INIT_0c40,For_Outer_Call
0326 029d 0c6b  |   k|		Declare_Subprogram	INIT_0c68,For_Outer_Call
0328 029d 0ca3  |    |		Declare_Subprogram	INIT_0ca0,For_Outer_Call
032a 029d 0ccb  |    |		Declare_Subprogram	INIT_0cc8,For_Outer_Call
032c 029d 0ce3  |    |		Declare_Subprogram	INIT_0ce0,For_Outer_Call
032e 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
032f 00c7       |    |		Action	Elaborate_Subprogram
0330 1d85       |    |		Execute_Immediate	Reference_Lex_1,0x85
0331 00c7       |    |		Action	Elaborate_Subprogram
0332 1d83       |    |		Execute_Immediate	Reference_Lex_1,0x83
0333 00c7       |    |		Action	Elaborate_Subprogram
0334 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
0335 00c7       |    |		Action	Elaborate_Subprogram
0336 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
0337 00c7       |    |		Action	Elaborate_Subprogram
0338 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
0339 00c7       |    |		Action	Elaborate_Subprogram
033a 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
033b 00c7       |    |		Action	Elaborate_Subprogram
033c 1d91       |    |		Execute_Immediate	Reference_Lex_1,0x91
033d 00c7       |    |		Action	Elaborate_Subprogram
033e 029d 0cfb  |    |		Declare_Subprogram	INIT_0cf8,For_Outer_Call
0340 1d87       |    |		Execute_Immediate	Reference_Lex_1,0x87
0341 00c7       |    |		Action	Elaborate_Subprogram
0342 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
0343 00c7       |    |		Action	Elaborate_Subprogram
0344 1d8f       |    |		Execute_Immediate	Reference_Lex_1,0x8f
0345 00c7       |    |		Action	Elaborate_Subprogram
0346 1d90       |    |		Execute_Immediate	Reference_Lex_1,0x90
0347 00c7       |    |		Action	Elaborate_Subprogram
0348 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
0349 00c7       |    |		Action	Elaborate_Subprogram
034a 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
034b 00c7       |    |		Action	Elaborate_Subprogram
034c 1d79       | y  |		Execute_Immediate	Reference_Lex_1,0x79
034d 00c7       |    |		Action	Elaborate_Subprogram
034e 029d 0d0b  |    |		Declare_Subprogram	INIT_0d08,For_Outer_Call
0350 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
0351 00c7       |    |		Action	Elaborate_Subprogram
0352 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
0353 00c7       |    |		Action	Elaborate_Subprogram
0354 029d 0d9b  |    |		Declare_Subprogram	INIT_0d98,For_Outer_Call
0356 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
0357 00c7       |    |		Action	Elaborate_Subprogram
0358 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
0359 00c7       |    |		Action	Elaborate_Subprogram
035a 1d7e       | ~  |		Execute_Immediate	Reference_Lex_1,0x7e
035b 00c7       |    |		Action	Elaborate_Subprogram
035c 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
035d 00c7       |    |		Action	Elaborate_Subprogram
035e 1d7f       |    |		Execute_Immediate	Reference_Lex_1,0x7f
035f 00c7       |    |		Action	Elaborate_Subprogram
0360 1d84       |    |		Execute_Immediate	Reference_Lex_1,0x84
0361 00c7       |    |		Action	Elaborate_Subprogram
0362 1d81       |    |		Execute_Immediate	Reference_Lex_1,0x81
0363 00c7       |    |		Action	Elaborate_Subprogram
0364 029d 0e1b  |    |		Declare_Subprogram	INIT_0e18,For_Outer_Call
0366 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
0367 00c7       |    |		Action	Elaborate_Subprogram
0368 1d70       | p  |		Execute_Immediate	Reference_Lex_1,0x70
0369 00c7       |    |		Action	Elaborate_Subprogram
036a 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
036b 00c7       |    |		Action	Elaborate_Subprogram
036c 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
036d 00c7       |    |		Action	Elaborate_Subprogram
036e 1d82       |    |		Execute_Immediate	Reference_Lex_1,0x82
036f 00c7       |    |		Action	Elaborate_Subprogram
0370			BODY_0008:
0370 00bc       |    |		Action	Signal_Activated
0371 00bb       |    |		Action	Signal_Completion
0372 0000 0000  |    |		.BLANK	0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 4607       |F   |		Jump_Case	0x8
037c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
037d 7806       |x   |		Jump	0x384								; case 0x1
037e 7809       |x   |		Jump	0x388								; case 0x2
037f 780d       |x   |		Jump	0x38d								; case 0x3
0380 7810       |x   |		Jump	0x391								; case 0x4
0381 7811       |x   |		Jump	0x393								; case 0x5
0382 7812       |x   |		Jump	0x395								; case 0x6
0383 7815       |x   |		Jump	0x399								; case 0x7
0384 00da       |    |		Load_Top	At_Offset_2
0385 0091 1d25  |   %|		Action	Push_String_Extended_Indexed,0x1d25				; "NO_ERROR"
0387 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0388 00db       |    |		Load_Top	At_Offset_3
0389 00db       |    |		Load_Top	At_Offset_3
038a 00e0       |    |		Load_Encached	Standard_Cache
038b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
038c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
038d 00da       |    |		Load_Top	At_Offset_2
038e 00e0       |    |		Load_Encached	Standard_Cache
038f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0390 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0391 00db       |    |		Load_Top	At_Offset_3
0392 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0393 00db       |    |		Load_Top	At_Offset_3
0394 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0395 e26c       | l  |		Load	0x1,0x6c
0396 00dc       |    |		Load_Top	At_Offset_4
0397 0267       | g  |		Execute	Discrete,Predecessor
0398 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0399 e26c       | l  |		Load	0x1,0x6c
039a 00dc       |    |		Load_Top	At_Offset_4
039b 0268       | h  |		Execute	Discrete,Successor
039c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
039d 0000 0000  |    |		.XXX[0x3]
039f 0000       |    |
03a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
03a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000fa0}
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 00db       |    |		Load_Top	At_Offset_3
03ac 00db       |    |		Load_Top	At_Offset_3
03ad e29e       |    |		Load	0x1,0x9e
03ae 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03af a5fd       |    |		Store_Unchecked	0x2,-0x3
03b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b1 0000 0000  |    |		.BLANK	0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c3       |    |		.CONST	0x03c3								; Address of begin
03b9 043c       | <  |		.CONST	0x043c								; Address of exception handler
03ba 0004       |    |		.CONST	0x0004								; Number of locals
03bb			INIT_03b8:
03bb e29d       |    |		Load	0x1,0x9d
03bc 0007       |    |		Action	Break_Optional
03bd e243       | C  |		Load	0x1,0x43
03be 02c7       |    |		Declare_Variable	Any
03bf 00d8       |    |		Load_Top	At_Offset_0
03c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c1 029f 0e9b  |    |		Declare_Subprogram	INIT_0e98,For_Call
03c3			BODY_03b8:
03c3 e5fe       |    |		Load	0x2,-0x2
03c4 e20f       |    |		Load	0x1,0xf
03c5 021f       |    |		Execute	Heap_Access,Equal
03c6 6803       |h   |		Jump_Zero	0x3ca
03c7 82a4       |    |		Call	0x1,0xa4
03c8 c5fd       |    |		Store	0x2,-0x3
03c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ca 00d9       |    |		Load_Top	At_Offset_1
03cb e001       |    |		Load	0x0,0x1
03cc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03cd c403       |    |		Store	0x2,0x3
03ce 00d9       |    |		Load_Top	At_Offset_1
03cf c5fd       |    |		Store	0x2,-0x3
03d0 e5fe       |    |		Load	0x2,-0x2
03d1 e29e       |    |		Load	0x1,0x9e
03d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03d3 c5fe       |    |		Store	0x2,-0x2
03d4 4801       |H   |		Short_Literal	0x1
03d5 e5fe       |    |		Load	0x2,-0x2
03d6 0217       |    |		Execute	Heap_Access,All_Reference
03d7 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
03d8 e001       |    |		Load	0x0,0x1
03d9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03da 6805       |h   |		Jump_Zero	0x3e0
03db e5fe       |    |		Load	0x2,-0x2
03dc 0217       |    |		Execute	Heap_Access,All_Reference
03dd 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
03de c5fd       |    |		Store	0x2,-0x3
03df 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e0 e5fe       |    |		Load	0x2,-0x2
03e1 0217       |    |		Execute	Heap_Access,All_Reference
03e2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03e3 7057       |pW  |		Jump_Nonzero	0x43b
03e4 e293       |    |		Load	0x1,0x93
03e5 e5fe       |    |		Load	0x2,-0x2
03e6 e29e       |    |		Load	0x1,0x9e
03e7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03e8 e5fe       |    |		Load	0x2,-0x2
03e9 0217       |    |		Execute	Heap_Access,All_Reference
03ea 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
03eb 0217       |    |		Execute	Heap_Access,All_Reference
03ec e003       |    |		Load	0x0,0x3
03ed 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03ee e5fe       |    |		Load	0x2,-0x2
03ef e29e       |    |		Load	0x1,0x9e
03f0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03f1 e5fe       |    |		Load	0x2,-0x2
03f2 0217       |    |		Execute	Heap_Access,All_Reference
03f3 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
03f4 0217       |    |		Execute	Heap_Access,All_Reference
03f5 e003       |    |		Load	0x0,0x3
03f6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f7 e5fe       |    |		Load	0x2,-0x2
03f8 e29e       |    |		Load	0x1,0x9e
03f9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03fa e5ff       |    |		Load	0x2,-0x1
03fb e5fe       |    |		Load	0x2,-0x2
03fc e29e       |    |		Load	0x1,0x9e
03fd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03fe 8404       |    |		Call	0x2,0x4
03ff e5fe       |    |		Load	0x2,-0x2
0400 e29e       |    |		Load	0x1,0x9e
0401 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0402 00d8       |    |		Load_Top	At_Offset_0
0403 00e3       |    |		Load_Encached	Natural_Cache
0404 0260       | `  |		Execute	Discrete,In_Type
0405 7001       |p   |		Jump_Nonzero	0x407
0406 0801       |    |		Execute_Immediate	Raise,0x1
0407 82a1       |    |		Call	0x1,0xa1
0408 e5fe       |    |		Load	0x2,-0x2
0409 0217       |    |		Execute	Heap_Access,All_Reference
040a 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
040b e5fe       |    |		Load	0x2,-0x2
040c e29e       |    |		Load	0x1,0x9e
040d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
040e 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
040f 00da       |    |		Load_Top	At_Offset_2
0410 682a       |h*  |		Jump_Zero	0x43b
0411 e5fe       |    |		Load	0x2,-0x2
0412 e29e       |    |		Load	0x1,0x9e
0413 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0414 00da       |    |		Load_Top	At_Offset_2
0415 0f03       |    |		Execute_Immediate	Equal,0x3
0416 681f       |h   |		Jump_Zero	0x436
0417 00d9       |    |		Load_Top	At_Offset_1
0418 4802       |H   |		Short_Literal	0x2
0419 4822       |H"  |		Short_Literal	0x22
041a 0092 1e13  |    |		Action	Push_String_Extended,0x1e13					; "Unable to login as user \x22"
041c e5fe       |    |		Load	0x2,-0x2
041d 0217       |    |		Execute	Heap_Access,All_Reference
041e 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
041f 0217       |    |		Execute	Heap_Access,All_Reference
0420 e003       |    |		Load	0x0,0x3
0421 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0422 01cc       |    |		Execute	Vector,Catenate
0423 0092 1e14  |    |		Action	Push_String_Extended,0x1e14					; "\x22 on host \x22"
0425 01cc       |    |		Execute	Vector,Catenate
0426 e5fe       |    |		Load	0x2,-0x2
0427 0217       |    |		Execute	Heap_Access,All_Reference
0428 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0429 0217       |    |		Execute	Heap_Access,All_Reference
042a e003       |    |		Load	0x0,0x3
042b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
042c 01cc       |    |		Execute	Vector,Catenate
042d 01cb       |    |		Execute	Vector,Append
042e 0092 1d28  |   (|		Action	Push_String_Extended,0x1d28					; "BAD_USER"
0430 e001       |    |		Load	0x0,0x1
0431 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0432 c403       |    |		Store	0x2,0x3
0433 00d9       |    |		Load_Top	At_Offset_1
0434 c5fd       |    |		Store	0x2,-0x3
0435 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0436 00ea       |    |		Load_Encached	Null_String_Cache
0437 00db       |    |		Load_Top	At_Offset_3
0438 e5fe       |    |		Load	0x2,-0x2
0439 82a3       |    |		Call	0x1,0xa3
043a c5fd       |    |		Store	0x2,-0x3
043b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
043c			TRAP_03b8:
043c e013       |    |		Load	0x0,0x13
043d 010f       |    |		Execute	Exception,Equal
043e 6805       |h   |		Jump_Zero	0x444
043f e5fe       |    |		Load	0x2,-0x2
0440 0217       |    |		Execute	Heap_Access,All_Reference
0441 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0442 c5fd       |    |		Store	0x2,-0x3
0443 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0444 0100       |    |		Execute	Exception,Raise
0445 0000 0000  |    |		.XXX[0x3]
0447 0000       |    |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 00da       |    |		Load_Top	At_Offset_2
044c 0217       |    |		Execute	Heap_Access,All_Reference
044d 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
044e e005       |    |		Load	0x0,0x5
044f 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0450 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0451 0000 0000  |    |		.BLANK	0000[0x7]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0461       | a  |		.CONST	0x0461								; Address of begin
0459 0477       | w  |		.CONST	0x0477								; Address of exception handler
045a 0003       |    |		.CONST	0x0003								; Number of locals
045b			INIT_0458:
045b e243       | C  |		Load	0x1,0x43
045c 02c7       |    |		Declare_Variable	Any
045d 00d8       |    |		Load_Top	At_Offset_0
045e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045f 029f 0ebb  |    |		Declare_Subprogram	INIT_0eb8,For_Call
0461			BODY_0458:
0461 e5ff       |    |		Load	0x2,-0x1
0462 e20f       |    |		Load	0x1,0xf
0463 021f       |    |		Execute	Heap_Access,Equal
0464 6803       |h   |		Jump_Zero	0x468
0465 82a4       |    |		Call	0x1,0xa4
0466 c5fe       |    |		Store	0x2,-0x2
0467 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0468 8403       |    |		Call	0x2,0x3
0469 00d9       |    |		Load_Top	At_Offset_1
046a e001       |    |		Load	0x0,0x1
046b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
046c c402       |    |		Store	0x2,0x2
046d e5ff       |    |		Load	0x2,-0x1
046e 0217       |    |		Execute	Heap_Access,All_Reference
046f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0470 7003       |p   |		Jump_Nonzero	0x474
0471 e5ff       |    |		Load	0x2,-0x1
0472 e29e       |    |		Load	0x1,0x9e
0473 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0474 00d9       |    |		Load_Top	At_Offset_1
0475 c5fe       |    |		Store	0x2,-0x2
0476 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0477			TRAP_0458:
0477 e013       |    |		Load	0x0,0x13
0478 010f       |    |		Execute	Exception,Equal
0479 6805       |h   |		Jump_Zero	0x47f
047a e5ff       |    |		Load	0x2,-0x1
047b 0217       |    |		Execute	Heap_Access,All_Reference
047c 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
047d c5fe       |    |		Store	0x2,-0x2
047e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
047f 0100       |    |		Execute	Exception,Raise
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 00da       |    |		Load_Top	At_Offset_2
0484 e20f       |    |		Load	0x1,0xf
0485 021e       |    |		Execute	Heap_Access,Maximum
0486 680d       |h   |		Jump_Zero	0x494
0487 00da       |    |		Load_Top	At_Offset_2
0488 0219       |    |		Execute	Heap_Access,All_Read
0489 00d8       |    |		Load_Top	At_Offset_0
048a 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
048b e297       |    |		Load	0x1,0x97
048c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
048d 00d9       |    |		Load_Top	At_Offset_1
048e 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
048f 00d1       |    |		Pop_Control	Pop_Count_1
0490 00da       |    |		Load_Top	At_Offset_2
0491 e298       |    |		Load	0x1,0x98
0492 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0493 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0494 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0495 0000 0000  |    |		.XXX[0x3]
0497 0000       |    |
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049f       |    |		.CONST	0x049f								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0002       |    |		.CONST	0x0002								; Number of locals
049b			INIT_0498:
049b e243       | C  |		Load	0x1,0x43
049c 02c7       |    |		Declare_Variable	Any
049d 00d8       |    |		Load_Top	At_Offset_0
049e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
049f			BODY_0498:
049f 00db       |    |		Load_Top	At_Offset_3
04a0 e20f       |    |		Load	0x1,0xf
04a1 021f       |    |		Execute	Heap_Access,Equal
04a2 6803       |h   |		Jump_Zero	0x4a6
04a3 82a4       |    |		Call	0x1,0xa4
04a4 c5fe       |    |		Store	0x2,-0x2
04a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04a6 00d8       |    |		Load_Top	At_Offset_0
04a7 e001       |    |		Load	0x0,0x1
04a8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04a9 c402       |    |		Store	0x2,0x2
04aa 00db       |    |		Load_Top	At_Offset_3
04ab 0217       |    |		Execute	Heap_Access,All_Reference
04ac 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
04ad e005       |    |		Load	0x0,0x5
04ae 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
04af 6818       |h   |		Jump_Zero	0x4c8
04b0 00d8       |    |		Load_Top	At_Offset_0
04b1 0120       |    |		Execute	Any,Is_Value
04b2 6802       |h   |		Jump_Zero	0x4b5
04b3 e243       | C  |		Load	0x1,0x43
04b4 7801       |x   |		Jump	0x4b6
04b5 00d8       |    |		Load_Top	At_Offset_0
04b6 e5ff       |    |		Load	0x2,-0x1
04b7 4809       |H   |		Short_Literal	0x9
04b8 8268       | h  |		Call	0x1,0x68
04b9 c402       |    |		Store	0x2,0x2
04ba 4800       |H   |		Short_Literal	0x0
04bb 0092 1d26  |   &|		Action	Push_String_Extended,0x1d26					; "CONNECTION_ERROR"
04bd 00da       |    |		Load_Top	At_Offset_2
04be e001       |    |		Load	0x0,0x1
04bf 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04c0 e017       |    |		Load	0x0,0x17
04c1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04c2 700e       |p   |		Jump_Nonzero	0x4d1
04c3 00d8       |    |		Load_Top	At_Offset_0
04c4 e001       |    |		Load	0x0,0x1
04c5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04c6 c402       |    |		Store	0x2,0x2
04c7 7809       |x   |		Jump	0x4d1
04c8 00d8       |    |		Load_Top	At_Offset_0
04c9 4802       |H   |		Short_Literal	0x2
04ca 0092 1e15  |    |		Action	Push_String_Extended,0x1e15					; "Not Connected"
04cc 0092 1d26  |   &|		Action	Push_String_Extended,0x1d26					; "CONNECTION_ERROR"
04ce e001       |    |		Load	0x0,0x1
04cf 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04d0 c402       |    |		Store	0x2,0x2
04d1 00d8       |    |		Load_Top	At_Offset_0
04d2 c5fe       |    |		Store	0x2,-0x2
04d3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04d4 0000 0000  |    |		.BLANK	0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db       |    |		.CONST	0x04db								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0001       |    |		.CONST	0x0001								; Number of locals
04db			BODY_04d8:
04db			INIT_04d8:
04db 00da       |    |		Load_Top	At_Offset_2
04dc e20f       |    |		Load	0x1,0xf
04dd 021f       |    |		Execute	Heap_Access,Equal
04de 6803       |h   |		Jump_Zero	0x4e2
04df 0092 1e16  |    |		Action	Push_String_Extended,0x1e16					; "Null Connection"
04e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e2 00da       |    |		Load_Top	At_Offset_2
04e3 0217       |    |		Execute	Heap_Access,All_Reference
04e4 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
04e5 0217       |    |		Execute	Heap_Access,All_Reference
04e6 e003       |    |		Load	0x0,0x3
04e7 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04e8 0092 1e17  |    |		Action	Push_String_Extended,0x1e17					; "/"
04ea 01cc       |    |		Execute	Vector,Catenate
04eb 00db       |    |		Load_Top	At_Offset_3
04ec 0217       |    |		Execute	Heap_Access,All_Reference
04ed 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
04ee 0217       |    |		Execute	Heap_Access,All_Reference
04ef e003       |    |		Load	0x0,0x3
04f0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04f1 01cc       |    |		Execute	Vector,Catenate
04f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f3 0000 0000  |    |		.BLANK	0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 00da       |    |		Load_Top	At_Offset_2
04fc e20f       |    |		Load	0x1,0xf
04fd 021f       |    |		Execute	Heap_Access,Equal
04fe 6803       |h   |		Jump_Zero	0x502
04ff e003       |    |		Load	0x0,0x3
0500 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0501 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0502 00da       |    |		Load_Top	At_Offset_2
0503 0217       |    |		Execute	Heap_Access,All_Reference
0504 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0505 0217       |    |		Execute	Heap_Access,All_Reference
0506 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0507 00cd       |    |		Action	Spare6_Action
0508 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0509 0000 0000  |    |		.BLANK	0000[0x7]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 00da       |    |		Load_Top	At_Offset_2
0514 e28e       |    |		Load	0x1,0x8e
0515 01df       |    |		Execute	Vector,Equal
0516 6803       |h   |		Jump_Zero	0x51a
0517 0092 1e18  |    |		Action	Push_String_Extended,0x1e18					; "???"
0519 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
051a 482e       |H.  |		Short_Literal	0x2e
051b 4820       |H   |		Short_Literal	0x20
051c 4800       |H   |		Short_Literal	0x0
051d 480a       |H   |		Short_Literal	0xa
051e 4801       |H   |		Short_Literal	0x1
051f e5ff       |    |		Load	0x2,-0x1
0520 01d7       |    |		Execute	Vector,Field_Read
0521 e017       |    |		Load	0x0,0x17
0522 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0523 01cb       |    |		Execute	Vector,Append
0524 4820       |H   |		Short_Literal	0x20
0525 4800       |H   |		Short_Literal	0x0
0526 480a       |H   |		Short_Literal	0xa
0527 4802       |H   |		Short_Literal	0x2
0528 e5ff       |    |		Load	0x2,-0x1
0529 01d7       |    |		Execute	Vector,Field_Read
052a e017       |    |		Load	0x0,0x17
052b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
052c 01cc       |    |		Execute	Vector,Catenate
052d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
052e 0000 0000  |    |		.XXX[0x2]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 00da       |    |		Load_Top	At_Offset_2
0534 e20f       |    |		Load	0x1,0xf
0535 021f       |    |		Execute	Heap_Access,Equal
0536 6802       |h   |		Jump_Zero	0x539
0537 e28e       |    |		Load	0x1,0x8e
0538 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0539 00da       |    |		Load_Top	At_Offset_2
053a 0217       |    |		Execute	Heap_Access,All_Reference
053b 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
053c 0335       | 5  |		Declare_Variable	Array,Duplicate
053d 00cd       |    |		Action	Spare6_Action
053e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
053f 0000       |    |		.XXX[0x1]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 00da       |    |		Load_Top	At_Offset_2
0544 8290       |    |		Call	0x1,0x90
0545 828f       |    |		Call	0x1,0x8f
0546 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0547 0000       |    |		.XXX[0x1]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 00da       |    |		Load_Top	At_Offset_2
054c 00d8       |    |		Load_Top	At_Offset_0
054d 0c06       |    |		Execute_Immediate	Greater_Equal,0x6
054e 700a       |p   |		Jump_Nonzero	0x559
054f 4605       |F   |		Jump_Case	0x6
0550 780c       |x   |		Jump	0x55d								; case 0x0
0551 780e       |x   |		Jump	0x560								; case 0x1
0552 7810       |x   |		Jump	0x563								; case 0x2
0553 7812       |x   |		Jump	0x566								; case 0x3
0554 7814       |x   |		Jump	0x569								; case 0x4
0555 7800       |x   |		Jump	0x556								; case 0x5
0556 0092 1e19  |    |		Action	Push_String_Extended,0x1e19					; "Vax"
0558 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0559 00d1       |    |		Pop_Control	Pop_Count_1
055a 0092 1e1a  |    |		Action	Push_String_Extended,0x1e1a					; "Unknown"
055c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055d 0092 1e1a  |    |		Action	Push_String_Extended,0x1e1a					; "Unknown"
055f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0560 0092 1e1b  |    |		Action	Push_String_Extended,0x1e1b					; "Sun"
0562 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0563 0092 1e1c  |    |		Action	Push_String_Extended,0x1e1c					; "Apollo"
0565 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0566 0092 1e1d  |    |		Action	Push_String_Extended,0x1e1d					; "Ibm"
0568 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0569 0092 1e1e  |    |		Action	Push_String_Extended,0x1e1e					; "Hp"
056b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
056c 0000 0000  |    |		.BLANK	0000[0x4]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0575       | u  |		.CONST	0x0575								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0002       |    |		.CONST	0x0002								; Number of locals
0573			INIT_0570:
0573 00da       |    |		Load_Top	At_Offset_2
0574 82a6       |    |		Call	0x1,0xa6
0575			BODY_0570:
0575 00d8       |    |		Load_Top	At_Offset_0
0576 4605       |F   |		Jump_Case	0x6
0577 7807       |x   |		Jump	0x57f								; case 0x0
0578 7808       |x   |		Jump	0x581								; case 0x1
0579 7809       |x   |		Jump	0x583								; case 0x2
057a 780a       |x   |		Jump	0x585								; case 0x3
057b 780b       |x   |		Jump	0x587								; case 0x4
057c 7800       |x   |		Jump	0x57d								; case 0x5
057d 4805       |H   |		Short_Literal	0x5
057e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
057f 4800       |H   |		Short_Literal	0x0
0580 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0581 4801       |H   |		Short_Literal	0x1
0582 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0583 4802       |H   |		Short_Literal	0x2
0584 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0585 4803       |H   |		Short_Literal	0x3
0586 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0587 4804       |H   |		Short_Literal	0x4
0588 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0589 0000 0000  |    |		.BLANK	0000[0x7]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 00da       |    |		Load_Top	At_Offset_2
0594 8287       |    |		Call	0x1,0x87
0595 8291       |    |		Call	0x1,0x91
0596 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0597 0000       |    |		.XXX[0x1]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05b8       |    |		.CONST	0x05b8								; Address of begin
0599 05fa       |    |		.CONST	0x05fa								; Address of exception handler
059a 000a       |    |		.CONST	0x000a								; Number of locals
059b			INIT_0598:
059b 0092 1e1f  |    |		Action	Push_String_Extended,0x1e1f					; "create"
059d 4800       |H   |		Short_Literal	0x0
059e e5fb       |    |		Load	0x2,-0x5
059f 82a2       |    |		Call	0x1,0xa2
05a0 e243       | C  |		Load	0x1,0x43
05a1 02c7       |    |		Declare_Variable	Any
05a2 00d8       |    |		Load_Top	At_Offset_0
05a3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a4 e29d       |    |		Load	0x1,0x9d
05a5 0007       |    |		Action	Break_Optional
05a6 4800       |H   |		Short_Literal	0x0
05a7 4805       |H   |		Short_Literal	0x5
05a8 029f 0ecb  |    |		Declare_Subprogram	INIT_0ec8,For_Call
05aa 03fd       |    |		Declare_Type	Discrete,Defined
05ab 4800       |H   |		Short_Literal	0x0
05ac 4808       |H   |		Short_Literal	0x8
05ad 029f 0ef3  |    |		Declare_Subprogram	INIT_0ef0,For_Call
05af 03fd       |    |		Declare_Type	Discrete,Defined
05b0 029f 0f1b  |    |		Declare_Subprogram	INIT_0f18,For_Call
05b2 029f 0f33  |   3|		Declare_Subprogram	INIT_0f30,For_Call
05b4 029f 0f4b  |   K|		Declare_Subprogram	INIT_0f48,For_Call
05b6 029f 0fbb  |    |		Declare_Subprogram	INIT_0fb8,For_Call
05b8			BODY_0598:
05b8 e5fb       |    |		Load	0x2,-0x5
05b9 e20f       |    |		Load	0x1,0xf
05ba 021f       |    |		Execute	Heap_Access,Equal
05bb 6803       |h   |		Jump_Zero	0x5bf
05bc 82a4       |    |		Call	0x1,0xa4
05bd c5fa       |    |		Store	0x2,-0x6
05be 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05bf e402       |    |		Load	0x2,0x2
05c0 01db       |    |		Execute	Vector,Length
05c1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
05c2 6806       |h   |		Jump_Zero	0x5c9
05c3 e402       |    |		Load	0x2,0x2
05c4 480b       |H   |		Short_Literal	0xb
05c5 e5fb       |    |		Load	0x2,-0x5
05c6 82a3       |    |		Call	0x1,0xa3
05c7 c5fa       |    |		Store	0x2,-0x6
05c8 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05c9 e5fb       |    |		Load	0x2,-0x5
05ca 0217       |    |		Execute	Heap_Access,All_Reference
05cb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05cc 6803       |h   |		Jump_Zero	0x5d0
05cd 82a5       |    |		Call	0x1,0xa5
05ce c5fa       |    |		Store	0x2,-0x6
05cf 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05d0 e5fd       |    |		Load	0x2,-0x3
05d1 e5ff       |    |		Load	0x2,-0x1
05d2 e2a0       |    |		Load	0x1,0xa0
05d3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05d4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05d5 e403       |    |		Load	0x2,0x3
05d6 e001       |    |		Load	0x0,0x1
05d7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05d8 c403       |    |		Store	0x2,0x3
05d9 e403       |    |		Load	0x2,0x3
05da c5fa       |    |		Store	0x2,-0x6
05db e404       |    |		Load	0x2,0x4
05dc 4800       |H   |		Short_Literal	0x0
05dd e5fb       |    |		Load	0x2,-0x5
05de 8409       |    |		Call	0x2,0x9
05df c404       |    |		Store	0x2,0x4
05e0 e404       |    |		Load	0x2,0x4
05e1 7005       |p   |		Jump_Nonzero	0x5e7
05e2 e29d       |    |		Load	0x1,0x9d
05e3 4800       |H   |		Short_Literal	0x0
05e4 e5fb       |    |		Load	0x2,-0x5
05e5 840a       |    |		Call	0x2,0xa
05e6 c404       |    |		Store	0x2,0x4
05e7 e404       |    |		Load	0x2,0x4
05e8 7006       |p   |		Jump_Nonzero	0x5ef
05e9 00ea       |    |		Load_Encached	Null_String_Cache
05ea e404       |    |		Load	0x2,0x4
05eb e5fb       |    |		Load	0x2,-0x5
05ec 82a3       |    |		Call	0x1,0xa3
05ed c5fa       |    |		Store	0x2,-0x6
05ee 7807       |x   |		Jump	0x5f6
05ef e5fb       |    |		Load	0x2,-0x5
05f0 e29e       |    |		Load	0x1,0x9e
05f1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05f2 e404       |    |		Load	0x2,0x4
05f3 e5fb       |    |		Load	0x2,-0x5
05f4 82a3       |    |		Call	0x1,0xa3
05f5 c5fa       |    |		Store	0x2,-0x6
05f6 e2a0       |    |		Load	0x1,0xa0
05f7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05f9 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
05fa			TRAP_0598:
05fa e013       |    |		Load	0x0,0x13
05fb 010f       |    |		Execute	Exception,Equal
05fc 6808       |h   |		Jump_Zero	0x605
05fd e2a0       |    |		Load	0x1,0xa0
05fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05ff 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0600 e5fb       |    |		Load	0x2,-0x5
0601 0217       |    |		Execute	Heap_Access,All_Reference
0602 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0603 c5fa       |    |		Store	0x2,-0x6
0604 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0605 0100       |    |		Execute	Exception,Raise
0606 0000 0000  |    |		.XXX[0x2]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0615       |    |		.CONST	0x0615								; Address of begin
0609 0656       | V  |		.CONST	0x0656								; Address of exception handler
060a 0003       |    |		.CONST	0x0003								; Number of locals
060b			INIT_0608:
060b 0092 1e20  |    |		Action	Push_String_Extended,0x1e20					; "put"
060d 4801       |H   |		Short_Literal	0x1
060e e5fb       |    |		Load	0x2,-0x5
060f 82a2       |    |		Call	0x1,0xa2
0610 e01b       |    |		Load	0x0,0x1b
0611 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0612 02c7       |    |		Declare_Variable	Any
0613 00d8       |    |		Load_Top	At_Offset_0
0614 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0615			BODY_0608:
0615 e5fb       |    |		Load	0x2,-0x5
0616 e20f       |    |		Load	0x1,0xf
0617 021f       |    |		Execute	Heap_Access,Equal
0618 6803       |h   |		Jump_Zero	0x61c
0619 82a4       |    |		Call	0x1,0xa4
061a c5fa       |    |		Store	0x2,-0x6
061b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
061c 00d9       |    |		Load_Top	At_Offset_1
061d 01db       |    |		Execute	Vector,Length
061e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
061f 6806       |h   |		Jump_Zero	0x626
0620 00d9       |    |		Load_Top	At_Offset_1
0621 480b       |H   |		Short_Literal	0xb
0622 e5fb       |    |		Load	0x2,-0x5
0623 82a3       |    |		Call	0x1,0xa3
0624 c5fa       |    |		Store	0x2,-0x6
0625 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0626 e5fb       |    |		Load	0x2,-0x5
0627 0217       |    |		Execute	Heap_Access,All_Reference
0628 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0629 6812       |h   |		Jump_Zero	0x63c
062a e5fa       |    |		Load	0x2,-0x6
062b 0120       |    |		Execute	Any,Is_Value
062c 6802       |h   |		Jump_Zero	0x62f
062d e243       | C  |		Load	0x1,0x43
062e 7801       |x   |		Jump	0x630
062f e5fa       |    |		Load	0x2,-0x6
0630 e5fe       |    |		Load	0x2,-0x2
0631 e5fb       |    |		Load	0x2,-0x5
0632 0217       |    |		Execute	Heap_Access,All_Reference
0633 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0634 0217       |    |		Execute	Heap_Access,All_Reference
0635 e003       |    |		Load	0x0,0x3
0636 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0637 e5ff       |    |		Load	0x2,-0x1
0638 e29f       |    |		Load	0x1,0x9f
0639 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
063a c5fa       |    |		Store	0x2,-0x6
063b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
063c 00d8       |    |		Load_Top	At_Offset_0
063d e01c       |    |		Load	0x0,0x1c
063e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
063f e01d       |    |		Load	0x0,0x1d
0640 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0641 00ea       |    |		Load_Encached	Null_String_Cache
0642 e5ff       |    |		Load	0x2,-0x1
0643 4800       |H   |		Short_Literal	0x0
0644 e01b       |    |		Load	0x0,0x1b
0645 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0646 c403       |    |		Store	0x2,0x3
0647 e5fa       |    |		Load	0x2,-0x6
0648 0120       |    |		Execute	Any,Is_Value
0649 6802       |h   |		Jump_Zero	0x64c
064a e243       | C  |		Load	0x1,0x43
064b 7801       |x   |		Jump	0x64d
064c e5fa       |    |		Load	0x2,-0x6
064d e5fb       |    |		Load	0x2,-0x5
064e e5fc       |    |		Load	0x2,-0x4
064f e5fd       |    |		Load	0x2,-0x3
0650 e5fe       |    |		Load	0x2,-0x2
0651 4800       |H   |		Short_Literal	0x0
0652 e403       |    |		Load	0x2,0x3
0653 82a7       |    |		Call	0x1,0xa7
0654 c5fa       |    |		Store	0x2,-0x6
0655 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0656			TRAP_0608:
0656 0007       |    |		Action	Break_Optional
0657 0092 1e21  |   !|		Action	Push_String_Extended,0x1e21					; "Unable to open "
0659 e5ff       |    |		Load	0x2,-0x1
065a 01cc       |    |		Execute	Vector,Catenate
065b 0092 1e22  |   "|		Action	Push_String_Extended,0x1e22					; " for input"
065d 01cc       |    |		Execute	Vector,Catenate
065e 4807       |H   |		Short_Literal	0x7
065f e5fb       |    |		Load	0x2,-0x5
0660 82a3       |    |		Call	0x1,0xa3
0661 c5fa       |    |		Store	0x2,-0x6
0662 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0663 0000 0000  |    |		.BLANK	0000[0x5]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 0670       | p  |		.CONST	0x0670								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0002       |    |		.CONST	0x0002								; Number of locals
066b			INIT_0668:
066b 0092 1e20  |    |		Action	Push_String_Extended,0x1e20					; "put"
066d 4801       |H   |		Short_Literal	0x1
066e e5fb       |    |		Load	0x2,-0x5
066f 82a2       |    |		Call	0x1,0xa2
0670			BODY_0668:
0670 e5fb       |    |		Load	0x2,-0x5
0671 e20f       |    |		Load	0x1,0xf
0672 021f       |    |		Execute	Heap_Access,Equal
0673 6803       |h   |		Jump_Zero	0x677
0674 82a4       |    |		Call	0x1,0xa4
0675 c5fa       |    |		Store	0x2,-0x6
0676 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0677 00d8       |    |		Load_Top	At_Offset_0
0678 01db       |    |		Execute	Vector,Length
0679 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
067a 6806       |h   |		Jump_Zero	0x681
067b 00d8       |    |		Load_Top	At_Offset_0
067c 480b       |H   |		Short_Literal	0xb
067d e5fb       |    |		Load	0x2,-0x5
067e 82a3       |    |		Call	0x1,0xa3
067f c5fa       |    |		Store	0x2,-0x6
0680 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0681 e5fb       |    |		Load	0x2,-0x5
0682 0217       |    |		Execute	Heap_Access,All_Reference
0683 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0684 6803       |h   |		Jump_Zero	0x688
0685 82a5       |    |		Call	0x1,0xa5
0686 c5fa       |    |		Store	0x2,-0x6
0687 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0688 e5fa       |    |		Load	0x2,-0x6
0689 0120       |    |		Execute	Any,Is_Value
068a 6802       |h   |		Jump_Zero	0x68d
068b e243       | C  |		Load	0x1,0x43
068c 7801       |x   |		Jump	0x68e
068d e5fa       |    |		Load	0x2,-0x6
068e e5fb       |    |		Load	0x2,-0x5
068f e5fc       |    |		Load	0x2,-0x4
0690 e5fd       |    |		Load	0x2,-0x3
0691 e5fe       |    |		Load	0x2,-0x2
0692 4801       |H   |		Short_Literal	0x1
0693 e5ff       |    |		Load	0x2,-0x1
0694 82a7       |    |		Call	0x1,0xa7
0695 c5fa       |    |		Store	0x2,-0x6
0696 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0697 0000       |    |		.XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06a5       |    |		.CONST	0x06a5								; Address of begin
0699 06f4       |    |		.CONST	0x06f4								; Address of exception handler
069a 0003       |    |		.CONST	0x0003								; Number of locals
069b			INIT_0698:
069b 0092 1e23  |   #|		Action	Push_String_Extended,0x1e23					; "get"
069d 4802       |H   |		Short_Literal	0x2
069e e5fb       |    |		Load	0x2,-0x5
069f 82a2       |    |		Call	0x1,0xa2
06a0 e01b       |    |		Load	0x0,0x1b
06a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a2 02c7       |    |		Declare_Variable	Any
06a3 00d8       |    |		Load_Top	At_Offset_0
06a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06a5			BODY_0698:
06a5 e5fb       |    |		Load	0x2,-0x5
06a6 e20f       |    |		Load	0x1,0xf
06a7 021f       |    |		Execute	Heap_Access,Equal
06a8 6803       |h   |		Jump_Zero	0x6ac
06a9 82a4       |    |		Call	0x1,0xa4
06aa c5fa       |    |		Store	0x2,-0x6
06ab 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
06ac 00d9       |    |		Load_Top	At_Offset_1
06ad 01db       |    |		Execute	Vector,Length
06ae 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
06af 6806       |h   |		Jump_Zero	0x6b6
06b0 00d9       |    |		Load_Top	At_Offset_1
06b1 480b       |H   |		Short_Literal	0xb
06b2 e5fb       |    |		Load	0x2,-0x5
06b3 82a3       |    |		Call	0x1,0xa3
06b4 c5fa       |    |		Store	0x2,-0x6
06b5 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
06b6 e5fb       |    |		Load	0x2,-0x5
06b7 0217       |    |		Execute	Heap_Access,All_Reference
06b8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
06b9 6812       |h   |		Jump_Zero	0x6cc
06ba e5fa       |    |		Load	0x2,-0x6
06bb 0120       |    |		Execute	Any,Is_Value
06bc 6802       |h   |		Jump_Zero	0x6bf
06bd e243       | C  |		Load	0x1,0x43
06be 7801       |x   |		Jump	0x6c0
06bf e5fa       |    |		Load	0x2,-0x6
06c0 e5fd       |    |		Load	0x2,-0x3
06c1 e5ff       |    |		Load	0x2,-0x1
06c2 e5fb       |    |		Load	0x2,-0x5
06c3 0217       |    |		Execute	Heap_Access,All_Reference
06c4 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
06c5 0217       |    |		Execute	Heap_Access,All_Reference
06c6 e003       |    |		Load	0x0,0x3
06c7 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
06c8 e29f       |    |		Load	0x1,0x9f
06c9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06ca c5fa       |    |		Store	0x2,-0x6
06cb 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
06cc e5fc       |    |		Load	0x2,-0x4
06cd 680b       |h   |		Jump_Zero	0x6d9
06ce 00d8       |    |		Load_Top	At_Offset_0
06cf e01c       |    |		Load	0x0,0x1c
06d0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06d1 e01d       |    |		Load	0x0,0x1d
06d2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06d3 00ea       |    |		Load_Encached	Null_String_Cache
06d4 e5fd       |    |		Load	0x2,-0x3
06d5 e01b       |    |		Load	0x0,0x1b
06d6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06d7 c403       |    |		Store	0x2,0x3
06d8 780d       |x   |		Jump	0x6e6
06d9 00d8       |    |		Load_Top	At_Offset_0
06da e01c       |    |		Load	0x0,0x1c
06db 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06dc e01d       |    |		Load	0x0,0x1d
06dd 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
06de e01d       |    |		Load	0x0,0x1d
06df 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06e0 00ea       |    |		Load_Encached	Null_String_Cache
06e1 e5fd       |    |		Load	0x2,-0x3
06e2 4801       |H   |		Short_Literal	0x1
06e3 e01b       |    |		Load	0x0,0x1b
06e4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06e5 c403       |    |		Store	0x2,0x3
06e6 e5fa       |    |		Load	0x2,-0x6
06e7 0120       |    |		Execute	Any,Is_Value
06e8 6802       |h   |		Jump_Zero	0x6eb
06e9 e243       | C  |		Load	0x1,0x43
06ea 7801       |x   |		Jump	0x6ec
06eb e5fa       |    |		Load	0x2,-0x6
06ec e5fb       |    |		Load	0x2,-0x5
06ed 4800       |H   |		Short_Literal	0x0
06ee 00db       |    |		Load_Top	At_Offset_3
06ef e5fe       |    |		Load	0x2,-0x2
06f0 e5ff       |    |		Load	0x2,-0x1
06f1 82a8       |    |		Call	0x1,0xa8
06f2 c5fa       |    |		Store	0x2,-0x6
06f3 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
06f4			TRAP_0698:
06f4 0007       |    |		Action	Break_Optional
06f5 0092 1e21  |   !|		Action	Push_String_Extended,0x1e21					; "Unable to open "
06f7 e5fd       |    |		Load	0x2,-0x3
06f8 01cc       |    |		Execute	Vector,Catenate
06f9 0092 1e24  |   $|		Action	Push_String_Extended,0x1e24					; " for output"
06fb 01cc       |    |		Execute	Vector,Catenate
06fc 4807       |H   |		Short_Literal	0x7
06fd e5fb       |    |		Load	0x2,-0x5
06fe 82a3       |    |		Call	0x1,0xa3
06ff c5fa       |    |		Store	0x2,-0x6
0700 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0701 0000 0000  |    |		.BLANK	0000[0x7]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0710       |    |		.CONST	0x0710								; Address of begin
0709 0004       |    |		.CONST	0x0004								; Address of exception handler
070a 0002       |    |		.CONST	0x0002								; Number of locals
070b			INIT_0708:
070b 0092 1e23  |   #|		Action	Push_String_Extended,0x1e23					; "get"
070d 4802       |H   |		Short_Literal	0x2
070e e5fc       |    |		Load	0x2,-0x4
070f 82a2       |    |		Call	0x1,0xa2
0710			BODY_0708:
0710 e5fc       |    |		Load	0x2,-0x4
0711 e20f       |    |		Load	0x1,0xf
0712 021f       |    |		Execute	Heap_Access,Equal
0713 6803       |h   |		Jump_Zero	0x717
0714 82a4       |    |		Call	0x1,0xa4
0715 c5fb       |    |		Store	0x2,-0x5
0716 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0717 00d8       |    |		Load_Top	At_Offset_0
0718 01db       |    |		Execute	Vector,Length
0719 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
071a 6806       |h   |		Jump_Zero	0x721
071b 00d8       |    |		Load_Top	At_Offset_0
071c 480b       |H   |		Short_Literal	0xb
071d e5fc       |    |		Load	0x2,-0x4
071e 82a3       |    |		Call	0x1,0xa3
071f c5fb       |    |		Store	0x2,-0x5
0720 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0721 e5fc       |    |		Load	0x2,-0x4
0722 0217       |    |		Execute	Heap_Access,All_Reference
0723 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0724 6803       |h   |		Jump_Zero	0x728
0725 82a5       |    |		Call	0x1,0xa5
0726 c5fb       |    |		Store	0x2,-0x5
0727 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0728 e5fb       |    |		Load	0x2,-0x5
0729 0120       |    |		Execute	Any,Is_Value
072a 6802       |h   |		Jump_Zero	0x72d
072b e243       | C  |		Load	0x1,0x43
072c 7801       |x   |		Jump	0x72e
072d e5fb       |    |		Load	0x2,-0x5
072e e5fc       |    |		Load	0x2,-0x4
072f 4801       |H   |		Short_Literal	0x1
0730 e5fd       |    |		Load	0x2,-0x3
0731 e5fe       |    |		Load	0x2,-0x2
0732 e5ff       |    |		Load	0x2,-0x1
0733 82a8       |    |		Call	0x1,0xa8
0734 c5fb       |    |		Store	0x2,-0x5
0735 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0736 0000 0000  |    |		.XXX[0x2]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0758       | X  |		.CONST	0x0758								; Address of begin
0739 079b       |    |		.CONST	0x079b								; Address of exception handler
073a 000a       |    |		.CONST	0x000a								; Number of locals
073b			INIT_0738:
073b 0092 1e25  |   %|		Action	Push_String_Extended,0x1e25					; "last_update"
073d 4803       |H   |		Short_Literal	0x3
073e e5fd       |    |		Load	0x2,-0x3
073f 82a2       |    |		Call	0x1,0xa2
0740 e243       | C  |		Load	0x1,0x43
0741 02c7       |    |		Declare_Variable	Any
0742 00d8       |    |		Load_Top	At_Offset_0
0743 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0744 e29d       |    |		Load	0x1,0x9d
0745 0007       |    |		Action	Break_Optional
0746 4800       |H   |		Short_Literal	0x0
0747 4805       |H   |		Short_Literal	0x5
0748 029f 0ff3  |    |		Declare_Subprogram	INIT_0ff0,For_Call
074a 03fd       |    |		Declare_Type	Discrete,Defined
074b 4800       |H   |		Short_Literal	0x0
074c 4808       |H   |		Short_Literal	0x8
074d 029f 101b  |    |		Declare_Subprogram	INIT_1018,For_Call
074f 03fd       |    |		Declare_Type	Discrete,Defined
0750 029f 1043  |   C|		Declare_Subprogram	INIT_1040,For_Call
0752 029f 105b  |   [|		Declare_Subprogram	INIT_1058,For_Call
0754 029f 1073  |   s|		Declare_Subprogram	INIT_1070,For_Call
0756 029f 10d3  |    |		Declare_Subprogram	INIT_10d0,For_Call
0758			BODY_0738:
0758 4800       |H   |		Short_Literal	0x0
0759 a5fc       |    |		Store_Unchecked	0x2,-0x4
075a e5fd       |    |		Load	0x2,-0x3
075b e20f       |    |		Load	0x1,0xf
075c 021f       |    |		Execute	Heap_Access,Equal
075d 6803       |h   |		Jump_Zero	0x761
075e 82a4       |    |		Call	0x1,0xa4
075f c5fb       |    |		Store	0x2,-0x5
0760 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0761 e402       |    |		Load	0x2,0x2
0762 01db       |    |		Execute	Vector,Length
0763 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0764 6806       |h   |		Jump_Zero	0x76b
0765 e402       |    |		Load	0x2,0x2
0766 480b       |H   |		Short_Literal	0xb
0767 e5fd       |    |		Load	0x2,-0x3
0768 82a3       |    |		Call	0x1,0xa3
0769 c5fb       |    |		Store	0x2,-0x5
076a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
076b e5fd       |    |		Load	0x2,-0x3
076c 0217       |    |		Execute	Heap_Access,All_Reference
076d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
076e 6803       |h   |		Jump_Zero	0x772
076f 82a5       |    |		Call	0x1,0xa5
0770 c5fb       |    |		Store	0x2,-0x5
0771 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0772 e5ff       |    |		Load	0x2,-0x1
0773 e2a0       |    |		Load	0x1,0xa0
0774 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0775 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0776 e403       |    |		Load	0x2,0x3
0777 e001       |    |		Load	0x0,0x1
0778 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0779 c403       |    |		Store	0x2,0x3
077a e403       |    |		Load	0x2,0x3
077b c5fb       |    |		Store	0x2,-0x5
077c e404       |    |		Load	0x2,0x4
077d 4803       |H   |		Short_Literal	0x3
077e e5fd       |    |		Load	0x2,-0x3
077f 8409       |    |		Call	0x2,0x9
0780 c404       |    |		Store	0x2,0x4
0781 e404       |    |		Load	0x2,0x4
0782 7005       |p   |		Jump_Nonzero	0x788
0783 e29d       |    |		Load	0x1,0x9d
0784 4803       |H   |		Short_Literal	0x3
0785 e5fd       |    |		Load	0x2,-0x3
0786 840a       |    |		Call	0x2,0xa
0787 c404       |    |		Store	0x2,0x4
0788 e404       |    |		Load	0x2,0x4
0789 7006       |p   |		Jump_Nonzero	0x790
078a 00ea       |    |		Load_Encached	Null_String_Cache
078b e404       |    |		Load	0x2,0x4
078c e5fd       |    |		Load	0x2,-0x3
078d 82a3       |    |		Call	0x1,0xa3
078e c5fb       |    |		Store	0x2,-0x5
078f 7807       |x   |		Jump	0x797
0790 e5fd       |    |		Load	0x2,-0x3
0791 e29e       |    |		Load	0x1,0x9e
0792 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0793 e404       |    |		Load	0x2,0x4
0794 e5fd       |    |		Load	0x2,-0x3
0795 82a3       |    |		Call	0x1,0xa3
0796 c5fb       |    |		Store	0x2,-0x5
0797 e2a0       |    |		Load	0x1,0xa0
0798 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0799 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
079a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
079b			TRAP_0738:
079b e013       |    |		Load	0x0,0x13
079c 010f       |    |		Execute	Exception,Equal
079d 6808       |h   |		Jump_Zero	0x7a6
079e e2a0       |    |		Load	0x1,0xa0
079f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
07a0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07a1 e5fd       |    |		Load	0x2,-0x3
07a2 0217       |    |		Execute	Heap_Access,All_Reference
07a3 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
07a4 c5fb       |    |		Store	0x2,-0x5
07a5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
07a6 0100       |    |		Execute	Exception,Raise
07a7 0000       |    |		.XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07c8       |    |		.CONST	0x07c8								; Address of begin
07a9 080b       |    |		.CONST	0x080b								; Address of exception handler
07aa 000a       |    |		.CONST	0x000a								; Number of locals
07ab			INIT_07a8:
07ab 0092 1e26  |   &|		Action	Push_String_Extended,0x1e26					; "file_existence"
07ad 4804       |H   |		Short_Literal	0x4
07ae e5fe       |    |		Load	0x2,-0x2
07af 82a2       |    |		Call	0x1,0xa2
07b0 e243       | C  |		Load	0x1,0x43
07b1 02c7       |    |		Declare_Variable	Any
07b2 00d8       |    |		Load_Top	At_Offset_0
07b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07b4 e29d       |    |		Load	0x1,0x9d
07b5 0007       |    |		Action	Break_Optional
07b6 4800       |H   |		Short_Literal	0x0
07b7 4803       |H   |		Short_Literal	0x3
07b8 029f 1123  |   #|		Declare_Subprogram	INIT_1120,For_Call
07ba 03fd       |    |		Declare_Type	Discrete,Defined
07bb 4800       |H   |		Short_Literal	0x0
07bc 4808       |H   |		Short_Literal	0x8
07bd 029f 114b  |   K|		Declare_Subprogram	INIT_1148,For_Call
07bf 03fd       |    |		Declare_Type	Discrete,Defined
07c0 029f 1173  |   s|		Declare_Subprogram	INIT_1170,For_Call
07c2 029f 118b  |    |		Declare_Subprogram	INIT_1188,For_Call
07c4 029f 11a3  |    |		Declare_Subprogram	INIT_11a0,For_Call
07c6 029f 11fb  |    |		Declare_Subprogram	INIT_11f8,For_Call
07c8			BODY_07a8:
07c8 4800       |H   |		Short_Literal	0x0
07c9 a5fd       |    |		Store_Unchecked	0x2,-0x3
07ca e5fe       |    |		Load	0x2,-0x2
07cb e20f       |    |		Load	0x1,0xf
07cc 021f       |    |		Execute	Heap_Access,Equal
07cd 6803       |h   |		Jump_Zero	0x7d1
07ce 82a4       |    |		Call	0x1,0xa4
07cf c5fc       |    |		Store	0x2,-0x4
07d0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07d1 e402       |    |		Load	0x2,0x2
07d2 01db       |    |		Execute	Vector,Length
07d3 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
07d4 6806       |h   |		Jump_Zero	0x7db
07d5 e402       |    |		Load	0x2,0x2
07d6 480b       |H   |		Short_Literal	0xb
07d7 e5fe       |    |		Load	0x2,-0x2
07d8 82a3       |    |		Call	0x1,0xa3
07d9 c5fc       |    |		Store	0x2,-0x4
07da 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07db e5fe       |    |		Load	0x2,-0x2
07dc 0217       |    |		Execute	Heap_Access,All_Reference
07dd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07de 6803       |h   |		Jump_Zero	0x7e2
07df 82a5       |    |		Call	0x1,0xa5
07e0 c5fc       |    |		Store	0x2,-0x4
07e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e2 e5ff       |    |		Load	0x2,-0x1
07e3 e2a0       |    |		Load	0x1,0xa0
07e4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
07e5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
07e6 e403       |    |		Load	0x2,0x3
07e7 e001       |    |		Load	0x0,0x1
07e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07e9 c403       |    |		Store	0x2,0x3
07ea e403       |    |		Load	0x2,0x3
07eb c5fc       |    |		Store	0x2,-0x4
07ec e404       |    |		Load	0x2,0x4
07ed 4804       |H   |		Short_Literal	0x4
07ee e5fe       |    |		Load	0x2,-0x2
07ef 8409       |    |		Call	0x2,0x9
07f0 c404       |    |		Store	0x2,0x4
07f1 e404       |    |		Load	0x2,0x4
07f2 7005       |p   |		Jump_Nonzero	0x7f8
07f3 e29d       |    |		Load	0x1,0x9d
07f4 4804       |H   |		Short_Literal	0x4
07f5 e5fe       |    |		Load	0x2,-0x2
07f6 840a       |    |		Call	0x2,0xa
07f7 c404       |    |		Store	0x2,0x4
07f8 e404       |    |		Load	0x2,0x4
07f9 7006       |p   |		Jump_Nonzero	0x800
07fa 00ea       |    |		Load_Encached	Null_String_Cache
07fb e404       |    |		Load	0x2,0x4
07fc e5fe       |    |		Load	0x2,-0x2
07fd 82a3       |    |		Call	0x1,0xa3
07fe c5fc       |    |		Store	0x2,-0x4
07ff 7807       |x   |		Jump	0x807
0800 e5fe       |    |		Load	0x2,-0x2
0801 e29e       |    |		Load	0x1,0x9e
0802 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0803 e404       |    |		Load	0x2,0x4
0804 e5fe       |    |		Load	0x2,-0x2
0805 82a3       |    |		Call	0x1,0xa3
0806 c5fc       |    |		Store	0x2,-0x4
0807 e2a0       |    |		Load	0x1,0xa0
0808 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0809 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
080a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
080b			TRAP_07a8:
080b e013       |    |		Load	0x0,0x13
080c 010f       |    |		Execute	Exception,Equal
080d 6808       |h   |		Jump_Zero	0x816
080e e2a0       |    |		Load	0x1,0xa0
080f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0810 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0811 e5fe       |    |		Load	0x2,-0x2
0812 0217       |    |		Execute	Heap_Access,All_Reference
0813 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0814 c5fc       |    |		Store	0x2,-0x4
0815 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0816 0100       |    |		Execute	Exception,Raise
0817 0000       |    |		.XXX[0x1]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 0838       | 8  |		.CONST	0x0838								; Address of begin
0819 087b       | {  |		.CONST	0x087b								; Address of exception handler
081a 000a       |    |		.CONST	0x000a								; Number of locals
081b			INIT_0818:
081b 0092 1e27  |   '|		Action	Push_String_Extended,0x1e27					; "copy"
081d 4805       |H   |		Short_Literal	0x5
081e e5fb       |    |		Load	0x2,-0x5
081f 82a2       |    |		Call	0x1,0xa2
0820 e243       | C  |		Load	0x1,0x43
0821 02c7       |    |		Declare_Variable	Any
0822 00d8       |    |		Load_Top	At_Offset_0
0823 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0824 e29d       |    |		Load	0x1,0x9d
0825 0007       |    |		Action	Break_Optional
0826 4800       |H   |		Short_Literal	0x0
0827 4805       |H   |		Short_Literal	0x5
0828 029f 124b  |   K|		Declare_Subprogram	INIT_1248,For_Call
082a 03fd       |    |		Declare_Type	Discrete,Defined
082b 4800       |H   |		Short_Literal	0x0
082c 480a       |H   |		Short_Literal	0xa
082d 029f 1273  |   s|		Declare_Subprogram	INIT_1270,For_Call
082f 03fd       |    |		Declare_Type	Discrete,Defined
0830 029f 129b  |    |		Declare_Subprogram	INIT_1298,For_Call
0832 029f 12b3  |    |		Declare_Subprogram	INIT_12b0,For_Call
0834 029f 12cb  |    |		Declare_Subprogram	INIT_12c8,For_Call
0836 029f 133b  |   ;|		Declare_Subprogram	INIT_1338,For_Call
0838			BODY_0818:
0838 e5fb       |    |		Load	0x2,-0x5
0839 e20f       |    |		Load	0x1,0xf
083a 021f       |    |		Execute	Heap_Access,Equal
083b 6803       |h   |		Jump_Zero	0x83f
083c 82a4       |    |		Call	0x1,0xa4
083d c5fa       |    |		Store	0x2,-0x6
083e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
083f e402       |    |		Load	0x2,0x2
0840 01db       |    |		Execute	Vector,Length
0841 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0842 6806       |h   |		Jump_Zero	0x849
0843 e402       |    |		Load	0x2,0x2
0844 480b       |H   |		Short_Literal	0xb
0845 e5fb       |    |		Load	0x2,-0x5
0846 82a3       |    |		Call	0x1,0xa3
0847 c5fa       |    |		Store	0x2,-0x6
0848 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0849 e5fb       |    |		Load	0x2,-0x5
084a 0217       |    |		Execute	Heap_Access,All_Reference
084b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
084c 6803       |h   |		Jump_Zero	0x850
084d 82a5       |    |		Call	0x1,0xa5
084e c5fa       |    |		Store	0x2,-0x6
084f 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0850 e5fd       |    |		Load	0x2,-0x3
0851 e5fe       |    |		Load	0x2,-0x2
0852 e5ff       |    |		Load	0x2,-0x1
0853 e2a0       |    |		Load	0x1,0xa0
0854 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0855 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0856 e403       |    |		Load	0x2,0x3
0857 e001       |    |		Load	0x0,0x1
0858 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0859 c403       |    |		Store	0x2,0x3
085a e403       |    |		Load	0x2,0x3
085b c5fa       |    |		Store	0x2,-0x6
085c e404       |    |		Load	0x2,0x4
085d 4805       |H   |		Short_Literal	0x5
085e e5fb       |    |		Load	0x2,-0x5
085f 8409       |    |		Call	0x2,0x9
0860 c404       |    |		Store	0x2,0x4
0861 e404       |    |		Load	0x2,0x4
0862 7005       |p   |		Jump_Nonzero	0x868
0863 e29d       |    |		Load	0x1,0x9d
0864 4805       |H   |		Short_Literal	0x5
0865 e5fb       |    |		Load	0x2,-0x5
0866 840a       |    |		Call	0x2,0xa
0867 c404       |    |		Store	0x2,0x4
0868 e404       |    |		Load	0x2,0x4
0869 7006       |p   |		Jump_Nonzero	0x870
086a 00ea       |    |		Load_Encached	Null_String_Cache
086b e404       |    |		Load	0x2,0x4
086c e5fb       |    |		Load	0x2,-0x5
086d 82a3       |    |		Call	0x1,0xa3
086e c5fa       |    |		Store	0x2,-0x6
086f 7807       |x   |		Jump	0x877
0870 e5fb       |    |		Load	0x2,-0x5
0871 e29e       |    |		Load	0x1,0x9e
0872 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0873 e404       |    |		Load	0x2,0x4
0874 e5fb       |    |		Load	0x2,-0x5
0875 82a3       |    |		Call	0x1,0xa3
0876 c5fa       |    |		Store	0x2,-0x6
0877 e2a0       |    |		Load	0x1,0xa0
0878 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0879 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
087a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
087b			TRAP_0818:
087b e013       |    |		Load	0x0,0x13
087c 010f       |    |		Execute	Exception,Equal
087d 6808       |h   |		Jump_Zero	0x886
087e e2a0       |    |		Load	0x1,0xa0
087f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0880 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0881 e5fb       |    |		Load	0x2,-0x5
0882 0217       |    |		Execute	Heap_Access,All_Reference
0883 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0884 c5fa       |    |		Store	0x2,-0x6
0885 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0886 0100       |    |		Execute	Exception,Raise
0887 0000       |    |		.XXX[0x1]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 08a8       |    |		.CONST	0x08a8								; Address of begin
0889 08e9       |    |		.CONST	0x08e9								; Address of exception handler
088a 000a       |    |		.CONST	0x000a								; Number of locals
088b			INIT_0888:
088b 0092 1e28  |   (|		Action	Push_String_Extended,0x1e28					; "delete"
088d 4806       |H   |		Short_Literal	0x6
088e e5fc       |    |		Load	0x2,-0x4
088f 82a2       |    |		Call	0x1,0xa2
0890 e243       | C  |		Load	0x1,0x43
0891 02c7       |    |		Declare_Variable	Any
0892 00d8       |    |		Load_Top	At_Offset_0
0893 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0894 e29d       |    |		Load	0x1,0x9d
0895 0007       |    |		Action	Break_Optional
0896 4800       |H   |		Short_Literal	0x0
0897 4805       |H   |		Short_Literal	0x5
0898 029f 1373  |   s|		Declare_Subprogram	INIT_1370,For_Call
089a 03fd       |    |		Declare_Type	Discrete,Defined
089b 4800       |H   |		Short_Literal	0x0
089c 4809       |H   |		Short_Literal	0x9
089d 029f 139b  |    |		Declare_Subprogram	INIT_1398,For_Call
089f 03fd       |    |		Declare_Type	Discrete,Defined
08a0 029f 13c3  |    |		Declare_Subprogram	INIT_13c0,For_Call
08a2 029f 13db  |    |		Declare_Subprogram	INIT_13d8,For_Call
08a4 029f 13f3  |    |		Declare_Subprogram	INIT_13f0,For_Call
08a6 029f 145b  |   [|		Declare_Subprogram	INIT_1458,For_Call
08a8			BODY_0888:
08a8 e5fc       |    |		Load	0x2,-0x4
08a9 e20f       |    |		Load	0x1,0xf
08aa 021f       |    |		Execute	Heap_Access,Equal
08ab 6803       |h   |		Jump_Zero	0x8af
08ac 82a4       |    |		Call	0x1,0xa4
08ad c5fb       |    |		Store	0x2,-0x5
08ae 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08af e402       |    |		Load	0x2,0x2
08b0 01db       |    |		Execute	Vector,Length
08b1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
08b2 6806       |h   |		Jump_Zero	0x8b9
08b3 e402       |    |		Load	0x2,0x2
08b4 480b       |H   |		Short_Literal	0xb
08b5 e5fc       |    |		Load	0x2,-0x4
08b6 82a3       |    |		Call	0x1,0xa3
08b7 c5fb       |    |		Store	0x2,-0x5
08b8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08b9 e5fc       |    |		Load	0x2,-0x4
08ba 0217       |    |		Execute	Heap_Access,All_Reference
08bb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
08bc 6803       |h   |		Jump_Zero	0x8c0
08bd 82a5       |    |		Call	0x1,0xa5
08be c5fb       |    |		Store	0x2,-0x5
08bf 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08c0 e5ff       |    |		Load	0x2,-0x1
08c1 e2a0       |    |		Load	0x1,0xa0
08c2 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
08c3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
08c4 e403       |    |		Load	0x2,0x3
08c5 e001       |    |		Load	0x0,0x1
08c6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
08c7 c403       |    |		Store	0x2,0x3
08c8 e403       |    |		Load	0x2,0x3
08c9 c5fb       |    |		Store	0x2,-0x5
08ca e404       |    |		Load	0x2,0x4
08cb 4806       |H   |		Short_Literal	0x6
08cc e5fc       |    |		Load	0x2,-0x4
08cd 8409       |    |		Call	0x2,0x9
08ce c404       |    |		Store	0x2,0x4
08cf e404       |    |		Load	0x2,0x4
08d0 7005       |p   |		Jump_Nonzero	0x8d6
08d1 e29d       |    |		Load	0x1,0x9d
08d2 4806       |H   |		Short_Literal	0x6
08d3 e5fc       |    |		Load	0x2,-0x4
08d4 840a       |    |		Call	0x2,0xa
08d5 c404       |    |		Store	0x2,0x4
08d6 e404       |    |		Load	0x2,0x4
08d7 7006       |p   |		Jump_Nonzero	0x8de
08d8 00ea       |    |		Load_Encached	Null_String_Cache
08d9 e404       |    |		Load	0x2,0x4
08da e5fc       |    |		Load	0x2,-0x4
08db 82a3       |    |		Call	0x1,0xa3
08dc c5fb       |    |		Store	0x2,-0x5
08dd 7807       |x   |		Jump	0x8e5
08de e5fc       |    |		Load	0x2,-0x4
08df e29e       |    |		Load	0x1,0x9e
08e0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
08e1 e404       |    |		Load	0x2,0x4
08e2 e5fc       |    |		Load	0x2,-0x4
08e3 82a3       |    |		Call	0x1,0xa3
08e4 c5fb       |    |		Store	0x2,-0x5
08e5 e2a0       |    |		Load	0x1,0xa0
08e6 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
08e7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08e8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08e9			TRAP_0888:
08e9 e013       |    |		Load	0x0,0x13
08ea 010f       |    |		Execute	Exception,Equal
08eb 6808       |h   |		Jump_Zero	0x8f4
08ec e2a0       |    |		Load	0x1,0xa0
08ed 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
08ee 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08ef e5fc       |    |		Load	0x2,-0x4
08f0 0217       |    |		Execute	Heap_Access,All_Reference
08f1 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
08f2 c5fb       |    |		Store	0x2,-0x5
08f3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08f4 0100       |    |		Execute	Exception,Raise
08f5 0000 0000  |    |		.XXX[0x3]
08f7 0000       |    |
08f8 ; --------------------------------------------------------------------------------------
08f8 ; SUBPROGRAM
08f8 ; --------------------------------------------------------------------------------------
08f8 0918       |    |		.CONST	0x0918								; Address of begin
08f9 095a       | Z  |		.CONST	0x095a								; Address of exception handler
08fa 000a       |    |		.CONST	0x000a								; Number of locals
08fb			INIT_08f8:
08fb 0092 1e29  |   )|		Action	Push_String_Extended,0x1e29					; "move"
08fd 4807       |H   |		Short_Literal	0x7
08fe e5fc       |    |		Load	0x2,-0x4
08ff 82a2       |    |		Call	0x1,0xa2
0900 e243       | C  |		Load	0x1,0x43
0901 02c7       |    |		Declare_Variable	Any
0902 00d8       |    |		Load_Top	At_Offset_0
0903 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0904 e29d       |    |		Load	0x1,0x9d
0905 0007       |    |		Action	Break_Optional
0906 4800       |H   |		Short_Literal	0x0
0907 4804       |H   |		Short_Literal	0x4
0908 029f 1493  |    |		Declare_Subprogram	INIT_1490,For_Call
090a 03fd       |    |		Declare_Type	Discrete,Defined
090b 4800       |H   |		Short_Literal	0x0
090c 4807       |H   |		Short_Literal	0x7
090d 029f 14bb  |    |		Declare_Subprogram	INIT_14b8,For_Call
090f 03fd       |    |		Declare_Type	Discrete,Defined
0910 029f 14e3  |    |		Declare_Subprogram	INIT_14e0,For_Call
0912 029f 14fb  |    |		Declare_Subprogram	INIT_14f8,For_Call
0914 029f 1513  |    |		Declare_Subprogram	INIT_1510,For_Call
0916 029f 157b  |   {|		Declare_Subprogram	INIT_1578,For_Call
0918			BODY_08f8:
0918 e5fc       |    |		Load	0x2,-0x4
0919 e20f       |    |		Load	0x1,0xf
091a 021f       |    |		Execute	Heap_Access,Equal
091b 6803       |h   |		Jump_Zero	0x91f
091c 82a4       |    |		Call	0x1,0xa4
091d c5fb       |    |		Store	0x2,-0x5
091e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
091f e402       |    |		Load	0x2,0x2
0920 01db       |    |		Execute	Vector,Length
0921 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0922 6806       |h   |		Jump_Zero	0x929
0923 e402       |    |		Load	0x2,0x2
0924 480b       |H   |		Short_Literal	0xb
0925 e5fc       |    |		Load	0x2,-0x4
0926 82a3       |    |		Call	0x1,0xa3
0927 c5fb       |    |		Store	0x2,-0x5
0928 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0929 e5fc       |    |		Load	0x2,-0x4
092a 0217       |    |		Execute	Heap_Access,All_Reference
092b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
092c 6803       |h   |		Jump_Zero	0x930
092d 82a5       |    |		Call	0x1,0xa5
092e c5fb       |    |		Store	0x2,-0x5
092f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0930 e5fe       |    |		Load	0x2,-0x2
0931 e5ff       |    |		Load	0x2,-0x1
0932 e2a0       |    |		Load	0x1,0xa0
0933 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0934 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0935 e403       |    |		Load	0x2,0x3
0936 e001       |    |		Load	0x0,0x1
0937 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0938 c403       |    |		Store	0x2,0x3
0939 e403       |    |		Load	0x2,0x3
093a c5fb       |    |		Store	0x2,-0x5
093b e404       |    |		Load	0x2,0x4
093c 4807       |H   |		Short_Literal	0x7
093d e5fc       |    |		Load	0x2,-0x4
093e 8409       |    |		Call	0x2,0x9
093f c404       |    |		Store	0x2,0x4
0940 e404       |    |		Load	0x2,0x4
0941 7005       |p   |		Jump_Nonzero	0x947
0942 e29d       |    |		Load	0x1,0x9d
0943 4807       |H   |		Short_Literal	0x7
0944 e5fc       |    |		Load	0x2,-0x4
0945 840a       |    |		Call	0x2,0xa
0946 c404       |    |		Store	0x2,0x4
0947 e404       |    |		Load	0x2,0x4
0948 7006       |p   |		Jump_Nonzero	0x94f
0949 00ea       |    |		Load_Encached	Null_String_Cache
094a e404       |    |		Load	0x2,0x4
094b e5fc       |    |		Load	0x2,-0x4
094c 82a3       |    |		Call	0x1,0xa3
094d c5fb       |    |		Store	0x2,-0x5
094e 7807       |x   |		Jump	0x956
094f e5fc       |    |		Load	0x2,-0x4
0950 e29e       |    |		Load	0x1,0x9e
0951 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0952 e404       |    |		Load	0x2,0x4
0953 e5fc       |    |		Load	0x2,-0x4
0954 82a3       |    |		Call	0x1,0xa3
0955 c5fb       |    |		Store	0x2,-0x5
0956 e2a0       |    |		Load	0x1,0xa0
0957 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0958 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0959 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
095a			TRAP_08f8:
095a e013       |    |		Load	0x0,0x13
095b 010f       |    |		Execute	Exception,Equal
095c 6808       |h   |		Jump_Zero	0x965
095d e2a0       |    |		Load	0x1,0xa0
095e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
095f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0960 e5fc       |    |		Load	0x2,-0x4
0961 0217       |    |		Execute	Heap_Access,All_Reference
0962 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0963 c5fb       |    |		Store	0x2,-0x5
0964 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0965 0100       |    |		Execute	Exception,Raise
0966 0000 0000  |    |		.XXX[0x2]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 0988       |    |		.CONST	0x0988								; Address of begin
0969 09c9       |    |		.CONST	0x09c9								; Address of exception handler
096a 000a       |    |		.CONST	0x000a								; Number of locals
096b			INIT_0968:
096b 0092 1e2a  |   *|		Action	Push_String_Extended,0x1e2a					; "expunge"
096d 480b       |H   |		Short_Literal	0xb
096e e5fd       |    |		Load	0x2,-0x3
096f 82a2       |    |		Call	0x1,0xa2
0970 e243       | C  |		Load	0x1,0x43
0971 02c7       |    |		Declare_Variable	Any
0972 00d8       |    |		Load_Top	At_Offset_0
0973 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0974 e29d       |    |		Load	0x1,0x9d
0975 0007       |    |		Action	Break_Optional
0976 4800       |H   |		Short_Literal	0x0
0977 4803       |H   |		Short_Literal	0x3
0978 029f 15b3  |    |		Declare_Subprogram	INIT_15b0,For_Call
097a 03fd       |    |		Declare_Type	Discrete,Defined
097b 4800       |H   |		Short_Literal	0x0
097c 4808       |H   |		Short_Literal	0x8
097d 029f 15db  |    |		Declare_Subprogram	INIT_15d8,For_Call
097f 03fd       |    |		Declare_Type	Discrete,Defined
0980 029f 1603  |    |		Declare_Subprogram	INIT_1600,For_Call
0982 029f 161b  |    |		Declare_Subprogram	INIT_1618,For_Call
0984 029f 1633  |   3|		Declare_Subprogram	INIT_1630,For_Call
0986 029f 1693  |    |		Declare_Subprogram	INIT_1690,For_Call
0988			BODY_0968:
0988 e5fd       |    |		Load	0x2,-0x3
0989 e20f       |    |		Load	0x1,0xf
098a 021f       |    |		Execute	Heap_Access,Equal
098b 6803       |h   |		Jump_Zero	0x98f
098c 82a4       |    |		Call	0x1,0xa4
098d c5fc       |    |		Store	0x2,-0x4
098e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
098f e402       |    |		Load	0x2,0x2
0990 01db       |    |		Execute	Vector,Length
0991 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0992 6806       |h   |		Jump_Zero	0x999
0993 e402       |    |		Load	0x2,0x2
0994 480b       |H   |		Short_Literal	0xb
0995 e5fd       |    |		Load	0x2,-0x3
0996 82a3       |    |		Call	0x1,0xa3
0997 c5fc       |    |		Store	0x2,-0x4
0998 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0999 e5fd       |    |		Load	0x2,-0x3
099a 0217       |    |		Execute	Heap_Access,All_Reference
099b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
099c 6803       |h   |		Jump_Zero	0x9a0
099d 82a5       |    |		Call	0x1,0xa5
099e c5fc       |    |		Store	0x2,-0x4
099f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09a0 e5ff       |    |		Load	0x2,-0x1
09a1 e2a0       |    |		Load	0x1,0xa0
09a2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
09a3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
09a4 e403       |    |		Load	0x2,0x3
09a5 e001       |    |		Load	0x0,0x1
09a6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09a7 c403       |    |		Store	0x2,0x3
09a8 e403       |    |		Load	0x2,0x3
09a9 c5fc       |    |		Store	0x2,-0x4
09aa e404       |    |		Load	0x2,0x4
09ab 480b       |H   |		Short_Literal	0xb
09ac e5fd       |    |		Load	0x2,-0x3
09ad 8409       |    |		Call	0x2,0x9
09ae c404       |    |		Store	0x2,0x4
09af e404       |    |		Load	0x2,0x4
09b0 7005       |p   |		Jump_Nonzero	0x9b6
09b1 e29d       |    |		Load	0x1,0x9d
09b2 480b       |H   |		Short_Literal	0xb
09b3 e5fd       |    |		Load	0x2,-0x3
09b4 840a       |    |		Call	0x2,0xa
09b5 c404       |    |		Store	0x2,0x4
09b6 e404       |    |		Load	0x2,0x4
09b7 7006       |p   |		Jump_Nonzero	0x9be
09b8 00ea       |    |		Load_Encached	Null_String_Cache
09b9 e404       |    |		Load	0x2,0x4
09ba e5fd       |    |		Load	0x2,-0x3
09bb 82a3       |    |		Call	0x1,0xa3
09bc c5fc       |    |		Store	0x2,-0x4
09bd 7807       |x   |		Jump	0x9c5
09be e5fd       |    |		Load	0x2,-0x3
09bf e29e       |    |		Load	0x1,0x9e
09c0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
09c1 e404       |    |		Load	0x2,0x4
09c2 e5fd       |    |		Load	0x2,-0x3
09c3 82a3       |    |		Call	0x1,0xa3
09c4 c5fc       |    |		Store	0x2,-0x4
09c5 e2a0       |    |		Load	0x1,0xa0
09c6 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
09c7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09c8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09c9			TRAP_0968:
09c9 e013       |    |		Load	0x0,0x13
09ca 010f       |    |		Execute	Exception,Equal
09cb 6808       |h   |		Jump_Zero	0x9d4
09cc e2a0       |    |		Load	0x1,0xa0
09cd 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
09ce 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09cf e5fd       |    |		Load	0x2,-0x3
09d0 0217       |    |		Execute	Heap_Access,All_Reference
09d1 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
09d2 c5fc       |    |		Store	0x2,-0x4
09d3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
09d4 0100       |    |		Execute	Exception,Raise
09d5 0000 0000  |    |		.XXX[0x3]
09d7 0000       |    |
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09e5       |    |		.CONST	0x09e5								; Address of begin
09d9 0a25       | %  |		.CONST	0x0a25								; Address of exception handler
09da 0003       |    |		.CONST	0x0003								; Number of locals
09db			INIT_09d8:
09db 0092 1e2b  |   +|		Action	Push_String_Extended,0x1e2b					; "ls"
09dd 4808       |H   |		Short_Literal	0x8
09de e5fb       |    |		Load	0x2,-0x5
09df 82a2       |    |		Call	0x1,0xa2
09e0 e01b       |    |		Load	0x0,0x1b
09e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09e2 02c7       |    |		Declare_Variable	Any
09e3 00d8       |    |		Load_Top	At_Offset_0
09e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09e5			BODY_09d8:
09e5 e5fb       |    |		Load	0x2,-0x5
09e6 e20f       |    |		Load	0x1,0xf
09e7 021f       |    |		Execute	Heap_Access,Equal
09e8 6803       |h   |		Jump_Zero	0x9ec
09e9 82a4       |    |		Call	0x1,0xa4
09ea c5fa       |    |		Store	0x2,-0x6
09eb 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
09ec 00d9       |    |		Load_Top	At_Offset_1
09ed 01db       |    |		Execute	Vector,Length
09ee 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
09ef 6806       |h   |		Jump_Zero	0x9f6
09f0 00d9       |    |		Load_Top	At_Offset_1
09f1 480b       |H   |		Short_Literal	0xb
09f2 e5fb       |    |		Load	0x2,-0x5
09f3 82a3       |    |		Call	0x1,0xa3
09f4 c5fa       |    |		Store	0x2,-0x6
09f5 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
09f6 e5fb       |    |		Load	0x2,-0x5
09f7 0217       |    |		Execute	Heap_Access,All_Reference
09f8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09f9 6803       |h   |		Jump_Zero	0x9fd
09fa 82a5       |    |		Call	0x1,0xa5
09fb c5fa       |    |		Store	0x2,-0x6
09fc 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
09fd e5fc       |    |		Load	0x2,-0x4
09fe 680b       |h   |		Jump_Zero	0xa0a
09ff 00d8       |    |		Load_Top	At_Offset_0
0a00 e01c       |    |		Load	0x0,0x1c
0a01 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a02 e01d       |    |		Load	0x0,0x1d
0a03 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0a04 00ea       |    |		Load_Encached	Null_String_Cache
0a05 e5fd       |    |		Load	0x2,-0x3
0a06 e01b       |    |		Load	0x0,0x1b
0a07 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a08 c403       |    |		Store	0x2,0x3
0a09 780d       |x   |		Jump	0xa17
0a0a 00d8       |    |		Load_Top	At_Offset_0
0a0b e01c       |    |		Load	0x0,0x1c
0a0c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a0d e01d       |    |		Load	0x0,0x1d
0a0e 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0a0f e01d       |    |		Load	0x0,0x1d
0a10 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0a11 00ea       |    |		Load_Encached	Null_String_Cache
0a12 e5fd       |    |		Load	0x2,-0x3
0a13 4801       |H   |		Short_Literal	0x1
0a14 e01b       |    |		Load	0x0,0x1b
0a15 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0a16 c403       |    |		Store	0x2,0x3
0a17 e5fa       |    |		Load	0x2,-0x6
0a18 0120       |    |		Execute	Any,Is_Value
0a19 6802       |h   |		Jump_Zero	0xa1c
0a1a e243       | C  |		Load	0x1,0x43
0a1b 7801       |x   |		Jump	0xa1d
0a1c e5fa       |    |		Load	0x2,-0x6
0a1d e5fb       |    |		Load	0x2,-0x5
0a1e 4800       |H   |		Short_Literal	0x0
0a1f 00db       |    |		Load_Top	At_Offset_3
0a20 e5fe       |    |		Load	0x2,-0x2
0a21 e5ff       |    |		Load	0x2,-0x1
0a22 82a9       |    |		Call	0x1,0xa9
0a23 c5fa       |    |		Store	0x2,-0x6
0a24 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0a25			TRAP_09d8:
0a25 0007       |    |		Action	Break_Optional
0a26 0092 1e21  |   !|		Action	Push_String_Extended,0x1e21					; "Unable to open "
0a28 e5fd       |    |		Load	0x2,-0x3
0a29 01cc       |    |		Execute	Vector,Catenate
0a2a 0092 1e24  |   $|		Action	Push_String_Extended,0x1e24					; " for output"
0a2c 01cc       |    |		Execute	Vector,Catenate
0a2d 4807       |H   |		Short_Literal	0x7
0a2e e5fb       |    |		Load	0x2,-0x5
0a2f 82a3       |    |		Call	0x1,0xa3
0a30 c5fa       |    |		Store	0x2,-0x6
0a31 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0a32 0000 0000  |    |		.BLANK	0000[0x6]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a40       | @  |		.CONST	0x0a40								; Address of begin
0a39 0004       |    |		.CONST	0x0004								; Address of exception handler
0a3a 0002       |    |		.CONST	0x0002								; Number of locals
0a3b			INIT_0a38:
0a3b 0092 1e2b  |   +|		Action	Push_String_Extended,0x1e2b					; "ls"
0a3d 4808       |H   |		Short_Literal	0x8
0a3e e5fc       |    |		Load	0x2,-0x4
0a3f 82a2       |    |		Call	0x1,0xa2
0a40			BODY_0a38:
0a40 e5fc       |    |		Load	0x2,-0x4
0a41 e20f       |    |		Load	0x1,0xf
0a42 021f       |    |		Execute	Heap_Access,Equal
0a43 6803       |h   |		Jump_Zero	0xa47
0a44 82a4       |    |		Call	0x1,0xa4
0a45 c5fb       |    |		Store	0x2,-0x5
0a46 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a47 00d8       |    |		Load_Top	At_Offset_0
0a48 01db       |    |		Execute	Vector,Length
0a49 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0a4a 6806       |h   |		Jump_Zero	0xa51
0a4b 00d8       |    |		Load_Top	At_Offset_0
0a4c 480b       |H   |		Short_Literal	0xb
0a4d e5fc       |    |		Load	0x2,-0x4
0a4e 82a3       |    |		Call	0x1,0xa3
0a4f c5fb       |    |		Store	0x2,-0x5
0a50 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a51 e5fb       |    |		Load	0x2,-0x5
0a52 0120       |    |		Execute	Any,Is_Value
0a53 6802       |h   |		Jump_Zero	0xa56
0a54 e243       | C  |		Load	0x1,0x43
0a55 7801       |x   |		Jump	0xa57
0a56 e5fb       |    |		Load	0x2,-0x5
0a57 e5fc       |    |		Load	0x2,-0x4
0a58 4801       |H   |		Short_Literal	0x1
0a59 e5fd       |    |		Load	0x2,-0x3
0a5a e5fe       |    |		Load	0x2,-0x2
0a5b e5ff       |    |		Load	0x2,-0x1
0a5c 82a9       |    |		Call	0x1,0xa9
0a5d c5fb       |    |		Store	0x2,-0x5
0a5e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a5f 0000       |    |		.XXX[0x1]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a63       | c  |		.CONST	0x0a63								; Address of begin
0a61 0004       |    |		.CONST	0x0004								; Address of exception handler
0a62 0001       |    |		.CONST	0x0001								; Number of locals
0a63			BODY_0a60:
0a63			INIT_0a60:
0a63 4607       |F   |		Jump_Case	0x8
0a64 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0a65 7806       |x   |		Jump	0xa6c								; case 0x1
0a66 7809       |x   |		Jump	0xa70								; case 0x2
0a67 780d       |x   |		Jump	0xa75								; case 0x3
0a68 7810       |x   |		Jump	0xa79								; case 0x4
0a69 7811       |x   |		Jump	0xa7b								; case 0x5
0a6a 7812       |x   |		Jump	0xa7d								; case 0x6
0a6b 7815       |x   |		Jump	0xa81								; case 0x7
0a6c 00da       |    |		Load_Top	At_Offset_2
0a6d 0091 1d36  |   6|		Action	Push_String_Extended_Indexed,0x1d36				; "NIL"
0a6f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0a70 00db       |    |		Load_Top	At_Offset_3
0a71 00db       |    |		Load_Top	At_Offset_3
0a72 00e0       |    |		Load_Encached	Standard_Cache
0a73 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a74 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0a75 00da       |    |		Load_Top	At_Offset_2
0a76 00e0       |    |		Load_Encached	Standard_Cache
0a77 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0a78 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0a79 00db       |    |		Load_Top	At_Offset_3
0a7a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0a7b 00db       |    |		Load_Top	At_Offset_3
0a7c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0a7d e22a       | *  |		Load	0x1,0x2a
0a7e 00dc       |    |		Load_Top	At_Offset_4
0a7f 0267       | g  |		Execute	Discrete,Predecessor
0a80 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0a81 e22a       | *  |		Load	0x1,0x2a
0a82 00dc       |    |		Load_Top	At_Offset_4
0a83 0268       | h  |		Execute	Discrete,Successor
0a84 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0a85 0000 0000  |    |		.XXX[0x3]
0a87 0000       |    |
0a88 ; --------------------------------------------------------------------------------------
0a88 ; SUBPROGRAM
0a88 ; --------------------------------------------------------------------------------------
0a88 0aa8       |    |		.CONST	0x0aa8								; Address of begin
0a89 0ae5       |    |		.CONST	0x0ae5								; Address of exception handler
0a8a 000a       |    |		.CONST	0x000a								; Number of locals
0a8b			INIT_0a88:
0a8b 0092 1e2c  |   ,|		Action	Push_String_Extended,0x1e2c					; "input_to_shell"
0a8d 4809       |H   |		Short_Literal	0x9
0a8e e5f8       |    |		Load	0x2,-0x8
0a8f 82a2       |    |		Call	0x1,0xa2
0a90 e243       | C  |		Load	0x1,0x43
0a91 02c7       |    |		Declare_Variable	Any
0a92 00d8       |    |		Load_Top	At_Offset_0
0a93 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a94 e29d       |    |		Load	0x1,0x9d
0a95 0007       |    |		Action	Break_Optional
0a96 4800       |H   |		Short_Literal	0x0
0a97 4807       |H   |		Short_Literal	0x7
0a98 029f 16cb  |    |		Declare_Subprogram	INIT_16c8,For_Call
0a9a 03fd       |    |		Declare_Type	Discrete,Defined
0a9b 4800       |H   |		Short_Literal	0x0
0a9c 480b       |H   |		Short_Literal	0xb
0a9d 029f 16f3  |    |		Declare_Subprogram	INIT_16f0,For_Call
0a9f 03fd       |    |		Declare_Type	Discrete,Defined
0aa0 029f 171b  |    |		Declare_Subprogram	INIT_1718,For_Call
0aa2 029f 1733  |   3|		Declare_Subprogram	INIT_1730,For_Call
0aa4 029f 174b  |   K|		Declare_Subprogram	INIT_1748,For_Call
0aa6 029f 17ab  |    |		Declare_Subprogram	INIT_17a8,For_Call
0aa8			BODY_0a88:
0aa8 e5f8       |    |		Load	0x2,-0x8
0aa9 e20f       |    |		Load	0x1,0xf
0aaa 021f       |    |		Execute	Heap_Access,Equal
0aab 6803       |h   |		Jump_Zero	0xaaf
0aac 82a4       |    |		Call	0x1,0xa4
0aad c5f6       |    |		Store	0x2,-0xa
0aae 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0aaf e402       |    |		Load	0x2,0x2
0ab0 01db       |    |		Execute	Vector,Length
0ab1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0ab2 6806       |h   |		Jump_Zero	0xab9
0ab3 e402       |    |		Load	0x2,0x2
0ab4 480b       |H   |		Short_Literal	0xb
0ab5 e5f8       |    |		Load	0x2,-0x8
0ab6 82a3       |    |		Call	0x1,0xa3
0ab7 c5f6       |    |		Store	0x2,-0xa
0ab8 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0ab9 e5f8       |    |		Load	0x2,-0x8
0aba 0217       |    |		Execute	Heap_Access,All_Reference
0abb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0abc 6803       |h   |		Jump_Zero	0xac0
0abd 82a5       |    |		Call	0x1,0xa5
0abe c5f6       |    |		Store	0x2,-0xa
0abf 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0ac0 e403       |    |		Load	0x2,0x3
0ac1 e001       |    |		Load	0x0,0x1
0ac2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ac3 c403       |    |		Store	0x2,0x3
0ac4 e403       |    |		Load	0x2,0x3
0ac5 c5f6       |    |		Store	0x2,-0xa
0ac6 e404       |    |		Load	0x2,0x4
0ac7 4809       |H   |		Short_Literal	0x9
0ac8 e5f8       |    |		Load	0x2,-0x8
0ac9 8409       |    |		Call	0x2,0x9
0aca c404       |    |		Store	0x2,0x4
0acb e404       |    |		Load	0x2,0x4
0acc 7005       |p   |		Jump_Nonzero	0xad2
0acd e29d       |    |		Load	0x1,0x9d
0ace 4809       |H   |		Short_Literal	0x9
0acf e5f8       |    |		Load	0x2,-0x8
0ad0 840a       |    |		Call	0x2,0xa
0ad1 c404       |    |		Store	0x2,0x4
0ad2 e404       |    |		Load	0x2,0x4
0ad3 7006       |p   |		Jump_Nonzero	0xada
0ad4 00ea       |    |		Load_Encached	Null_String_Cache
0ad5 e404       |    |		Load	0x2,0x4
0ad6 e5f8       |    |		Load	0x2,-0x8
0ad7 82a3       |    |		Call	0x1,0xa3
0ad8 c5f6       |    |		Store	0x2,-0xa
0ad9 7807       |x   |		Jump	0xae1
0ada e5f8       |    |		Load	0x2,-0x8
0adb e29e       |    |		Load	0x1,0x9e
0adc 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0add e404       |    |		Load	0x2,0x4
0ade e5f8       |    |		Load	0x2,-0x8
0adf 82a3       |    |		Call	0x1,0xa3
0ae0 c5f6       |    |		Store	0x2,-0xa
0ae1 e2a0       |    |		Load	0x1,0xa0
0ae2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0ae3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ae4 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0ae5			TRAP_0a88:
0ae5 e013       |    |		Load	0x0,0x13
0ae6 010f       |    |		Execute	Exception,Equal
0ae7 6808       |h   |		Jump_Zero	0xaf0
0ae8 e2a0       |    |		Load	0x1,0xa0
0ae9 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0aea 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0aeb e5f8       |    |		Load	0x2,-0x8
0aec 0217       |    |		Execute	Heap_Access,All_Reference
0aed 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0aee c5f6       |    |		Store	0x2,-0xa
0aef 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0af0 0100       |    |		Execute	Exception,Raise
0af1 0000 0000  |    |		.BLANK	0000[0x7]
0af8 ; --------------------------------------------------------------------------------------
0af8 ; SUBPROGRAM
0af8 ; --------------------------------------------------------------------------------------
0af8 0b18       |    |		.CONST	0x0b18								; Address of begin
0af9 0b59       | Y  |		.CONST	0x0b59								; Address of exception handler
0afa 000a       |    |		.CONST	0x000a								; Number of locals
0afb			INIT_0af8:
0afb 0092 1e2d  |   -|		Action	Push_String_Extended,0x1e2d					; "signal_to_shell"
0afd 480a       |H   |		Short_Literal	0xa
0afe e5fe       |    |		Load	0x2,-0x2
0aff 82a2       |    |		Call	0x1,0xa2
0b00 e243       | C  |		Load	0x1,0x43
0b01 02c7       |    |		Declare_Variable	Any
0b02 00d8       |    |		Load_Top	At_Offset_0
0b03 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b04 e29d       |    |		Load	0x1,0x9d
0b05 0007       |    |		Action	Break_Optional
0b06 4800       |H   |		Short_Literal	0x0
0b07 4802       |H   |		Short_Literal	0x2
0b08 029f 1873  |   s|		Declare_Subprogram	INIT_1870,For_Call
0b0a 03fd       |    |		Declare_Type	Discrete,Defined
0b0b 4800       |H   |		Short_Literal	0x0
0b0c 4804       |H   |		Short_Literal	0x4
0b0d 029f 189b  |    |		Declare_Subprogram	INIT_1898,For_Call
0b0f 03fd       |    |		Declare_Type	Discrete,Defined
0b10 029f 18c3  |    |		Declare_Subprogram	INIT_18c0,For_Call
0b12 029f 18db  |    |		Declare_Subprogram	INIT_18d8,For_Call
0b14 029f 18f3  |    |		Declare_Subprogram	INIT_18f0,For_Call
0b16 029f 194b  |   K|		Declare_Subprogram	INIT_1948,For_Call
0b18			BODY_0af8:
0b18 e5fe       |    |		Load	0x2,-0x2
0b19 e20f       |    |		Load	0x1,0xf
0b1a 021f       |    |		Execute	Heap_Access,Equal
0b1b 6803       |h   |		Jump_Zero	0xb1f
0b1c 82a4       |    |		Call	0x1,0xa4
0b1d c5fd       |    |		Store	0x2,-0x3
0b1e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b1f e402       |    |		Load	0x2,0x2
0b20 01db       |    |		Execute	Vector,Length
0b21 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0b22 6806       |h   |		Jump_Zero	0xb29
0b23 e402       |    |		Load	0x2,0x2
0b24 480b       |H   |		Short_Literal	0xb
0b25 e5fe       |    |		Load	0x2,-0x2
0b26 82a3       |    |		Call	0x1,0xa3
0b27 c5fd       |    |		Store	0x2,-0x3
0b28 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b29 e5fe       |    |		Load	0x2,-0x2
0b2a 0217       |    |		Execute	Heap_Access,All_Reference
0b2b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0b2c 6803       |h   |		Jump_Zero	0xb30
0b2d 82a5       |    |		Call	0x1,0xa5
0b2e c5fd       |    |		Store	0x2,-0x3
0b2f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b30 e5ff       |    |		Load	0x2,-0x1
0b31 e2a0       |    |		Load	0x1,0xa0
0b32 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0b33 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0b34 e403       |    |		Load	0x2,0x3
0b35 e001       |    |		Load	0x0,0x1
0b36 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b37 c403       |    |		Store	0x2,0x3
0b38 e403       |    |		Load	0x2,0x3
0b39 c5fd       |    |		Store	0x2,-0x3
0b3a e404       |    |		Load	0x2,0x4
0b3b 480a       |H   |		Short_Literal	0xa
0b3c e5fe       |    |		Load	0x2,-0x2
0b3d 8409       |    |		Call	0x2,0x9
0b3e c404       |    |		Store	0x2,0x4
0b3f e404       |    |		Load	0x2,0x4
0b40 7005       |p   |		Jump_Nonzero	0xb46
0b41 e29d       |    |		Load	0x1,0x9d
0b42 480a       |H   |		Short_Literal	0xa
0b43 e5fe       |    |		Load	0x2,-0x2
0b44 840a       |    |		Call	0x2,0xa
0b45 c404       |    |		Store	0x2,0x4
0b46 e404       |    |		Load	0x2,0x4
0b47 7006       |p   |		Jump_Nonzero	0xb4e
0b48 00ea       |    |		Load_Encached	Null_String_Cache
0b49 e404       |    |		Load	0x2,0x4
0b4a e5fe       |    |		Load	0x2,-0x2
0b4b 82a3       |    |		Call	0x1,0xa3
0b4c c5fd       |    |		Store	0x2,-0x3
0b4d 7807       |x   |		Jump	0xb55
0b4e e5fe       |    |		Load	0x2,-0x2
0b4f e29e       |    |		Load	0x1,0x9e
0b50 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0b51 e404       |    |		Load	0x2,0x4
0b52 e5fe       |    |		Load	0x2,-0x2
0b53 82a3       |    |		Call	0x1,0xa3
0b54 c5fd       |    |		Store	0x2,-0x3
0b55 e2a0       |    |		Load	0x1,0xa0
0b56 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0b57 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b58 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b59			TRAP_0af8:
0b59 e013       |    |		Load	0x0,0x13
0b5a 010f       |    |		Execute	Exception,Equal
0b5b 6808       |h   |		Jump_Zero	0xb64
0b5c e2a0       |    |		Load	0x1,0xa0
0b5d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0b5e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b5f e5fe       |    |		Load	0x2,-0x2
0b60 0217       |    |		Execute	Heap_Access,All_Reference
0b61 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0b62 c5fd       |    |		Store	0x2,-0x3
0b63 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b64 0100       |    |		Execute	Exception,Raise
0b65 0000 0000  |    |		.XXX[0x3]
0b67 0000       |    |
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6b       | k  |		.CONST	0x0b6b								; Address of begin
0b69 0004       |    |		.CONST	0x0004								; Address of exception handler
0b6a 0001       |    |		.CONST	0x0001								; Number of locals
0b6b			BODY_0b68:
0b6b			BODY_0b68:
0b6b			INIT_0b68:
0b6b			INIT_0b68:
0b6b 4608       |F   |		Jump_Case	0x9
0b6c 7808       |x   |		Jump	0xb75								; case 0x0
0b6d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0b6e 7855       |xU  |		Jump	0xbc4								; case 0x2
0b6f 7854       |xT  |		Jump	0xbc4								; case 0x3
0b70 7853       |xS  |		Jump	0xbc4								; case 0x4
0b71 7852       |xR  |		Jump	0xbc4								; case 0x5
0b72 7851       |xQ  |		Jump	0xbc4								; case 0x6
0b73 783b       |x;  |		Jump	0xbaf								; case 0x7
0b74 7844       |xD  |		Jump	0xbb9								; case 0x8
0b75 4800       |H   |		Short_Literal	0x0
0b76 00db       |    |		Load_Top	At_Offset_3
0b77 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0b78 4800       |H   |		Short_Literal	0x0
0b79 00db       |    |		Load_Top	At_Offset_3
0b7a 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0b7b e28e       |    |		Load	0x1,0x8e
0b7c 00db       |    |		Load_Top	At_Offset_3
0b7d 00d9       |    |		Load_Top	At_Offset_1
0b7e 00d9       |    |		Load_Top	At_Offset_1
0b7f 2304       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x4
0b80 0119       |    |		Execute	Any,Check_In_Formal_Type
0b81 00d1       |    |		Pop_Control	Pop_Count_1
0b82 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0b83 e272       | r  |		Load	0x1,0x72
0b84 2306       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x6
0b85 0337       | 7  |		Declare_Variable	Array
0b86 4800       |H   |		Short_Literal	0x0
0b87 4801       |H   |		Short_Literal	0x1
0b88 00da       |    |		Load_Top	At_Offset_2
0b89 01d6       |    |		Execute	Vector,Field_Write
0b8a 4800       |H   |		Short_Literal	0x0
0b8b 4802       |H   |		Short_Literal	0x2
0b8c 00da       |    |		Load_Top	At_Offset_2
0b8d 01d6       |    |		Execute	Vector,Field_Write
0b8e 00db       |    |		Load_Top	At_Offset_3
0b8f 00d9       |    |		Load_Top	At_Offset_1
0b90 00d9       |    |		Load_Top	At_Offset_1
0b91 2306       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x6
0b92 0119       |    |		Execute	Any,Check_In_Formal_Type
0b93 00d1       |    |		Pop_Control	Pop_Count_1
0b94 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0b95 00da       |    |		Load_Top	At_Offset_2
0b96 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
0b97 e005       |    |		Load	0x0,0x5
0b98 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b99 00db       |    |		Load_Top	At_Offset_3
0b9a 00d9       |    |		Load_Top	At_Offset_1
0b9b 00d9       |    |		Load_Top	At_Offset_1
0b9c 2307       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x7
0b9d 0119       |    |		Execute	Any,Check_In_Formal_Type
0b9e 00d1       |    |		Pop_Control	Pop_Count_1
0b9f 2807       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0ba0 00da       |    |		Load_Top	At_Offset_2
0ba1 2208       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x8
0ba2 00da       |    |		Load_Top	At_Offset_2
0ba3 2408       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x8
0ba4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ba5 4801       |H   |		Short_Literal	0x1
0ba6 00db       |    |		Load_Top	At_Offset_3
0ba7 2809       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
0ba8 4801       |H   |		Short_Literal	0x1
0ba9 00db       |    |		Load_Top	At_Offset_3
0baa 280b       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0bab 4800       |H   |		Short_Literal	0x0
0bac 00db       |    |		Load_Top	At_Offset_3
0bad 280c       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0bae 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0baf 00db       |    |		Load_Top	At_Offset_3
0bb0 4801       |H   |		Short_Literal	0x1
0bb1 e5fe       |    |		Load	0x2,-0x2
0bb2 e004       |    |		Load	0x0,0x4
0bb3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0bb4 035b       | [  |		Declare_Type	Array,Constrained
0bb5 4801       |H   |		Short_Literal	0x1
0bb6 e5ff       |    |		Load	0x2,-0x1
0bb7 031b       |    |		Declare_Type	Variant_Record,Constrained
0bb8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bb9 00db       |    |		Load_Top	At_Offset_3
0bba 00db       |    |		Load_Top	At_Offset_3
0bbb 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0bbc 4801       |H   |		Short_Literal	0x1
0bbd e5fe       |    |		Load	0x2,-0x2
0bbe e004       |    |		Load	0x0,0x4
0bbf 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0bc0 0334       | 4  |		Declare_Variable	Array,With_Constraint
0bc1 2d0d       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0xd
0bc2 016a       | j  |		QQ_execute	Variant_Record,XXX
0bc3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bc4 0869       | i  |		Execute_Immediate	Raise,0x69
0bc5 0000 0000  |    |		.XXX[0x3]
0bc7 0000       |    |
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bcb       |    |		.CONST	0x0bcb								; Address of begin
0bc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bca 0001       |    |		.CONST	0x0001								; Number of locals
0bcb			BODY_0bc8:
0bcb			INIT_0bc8:
0bcb 4607       |F   |		Jump_Case	0x8
0bcc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0bcd 7806       |x   |		Jump	0xbd4								; case 0x1
0bce 7809       |x   |		Jump	0xbd8								; case 0x2
0bcf 780d       |x   |		Jump	0xbdd								; case 0x3
0bd0 7810       |x   |		Jump	0xbe1								; case 0x4
0bd1 7811       |x   |		Jump	0xbe3								; case 0x5
0bd2 7812       |x   |		Jump	0xbe5								; case 0x6
0bd3 7815       |x   |		Jump	0xbe9								; case 0x7
0bd4 00da       |    |		Load_Top	At_Offset_2
0bd5 0091 1d39  |   9|		Action	Push_String_Extended_Indexed,0x1d39				; "NIL_PLATFORM"
0bd7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0bd8 00db       |    |		Load_Top	At_Offset_3
0bd9 00db       |    |		Load_Top	At_Offset_3
0bda 00e0       |    |		Load_Encached	Standard_Cache
0bdb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0bdc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bdd 00da       |    |		Load_Top	At_Offset_2
0bde 00e0       |    |		Load_Encached	Standard_Cache
0bdf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0be0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0be1 00db       |    |		Load_Top	At_Offset_3
0be2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0be3 00db       |    |		Load_Top	At_Offset_3
0be4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0be5 e296       |    |		Load	0x1,0x96
0be6 00dc       |    |		Load_Top	At_Offset_4
0be7 0267       | g  |		Execute	Discrete,Predecessor
0be8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0be9 e296       |    |		Load	0x1,0x96
0bea 00dc       |    |		Load_Top	At_Offset_4
0beb 0268       | h  |		Execute	Discrete,Successor
0bec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0bed 0000 0000  |    |		.XXX[0x3]
0bef 0000       |    |
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf3       |    |		.CONST	0x0bf3								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0001       |    |		.CONST	0x0001								; Number of locals
0bf3			BODY_0bf0:
0bf3			INIT_0bf0:
0bf3 4607       |F   |		Jump_Case	0x8
0bf4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0bf5 7806       |x   |		Jump	0xbfc								; case 0x1
0bf6 7809       |x   |		Jump	0xc00								; case 0x2
0bf7 780d       |x   |		Jump	0xc05								; case 0x3
0bf8 7810       |x   |		Jump	0xc09								; case 0x4
0bf9 7811       |x   |		Jump	0xc0b								; case 0x5
0bfa 7812       |x   |		Jump	0xc0d								; case 0x6
0bfb 7815       |x   |		Jump	0xc11								; case 0x7
0bfc 00da       |    |		Load_Top	At_Offset_2
0bfd 0091 1d3f  |   ?|		Action	Push_String_Extended_Indexed,0x1d3f				; "CREATE_R"
0bff 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0c00 00db       |    |		Load_Top	At_Offset_3
0c01 00db       |    |		Load_Top	At_Offset_3
0c02 00e0       |    |		Load_Encached	Standard_Cache
0c03 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0c04 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c05 00da       |    |		Load_Top	At_Offset_2
0c06 00e0       |    |		Load_Encached	Standard_Cache
0c07 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0c08 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0c09 00db       |    |		Load_Top	At_Offset_3
0c0a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c0b 00db       |    |		Load_Top	At_Offset_3
0c0c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c0d e299       |    |		Load	0x1,0x99
0c0e 00dc       |    |		Load_Top	At_Offset_4
0c0f 0267       | g  |		Execute	Discrete,Predecessor
0c10 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c11 e299       |    |		Load	0x1,0x99
0c12 00dc       |    |		Load_Top	At_Offset_4
0c13 0268       | h  |		Execute	Discrete,Successor
0c14 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c15 0000 0000  |    |		.XXX[0x3]
0c17 0000       |    |
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c1b       |    |		.CONST	0x0c1b								; Address of begin
0c19 0004       |    |		.CONST	0x0004								; Address of exception handler
0c1a 0001       |    |		.CONST	0x0001								; Number of locals
0c1b			BODY_0c18:
0c1b			INIT_0c18:
0c1b 4607       |F   |		Jump_Case	0x8
0c1c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0c1d 7806       |x   |		Jump	0xc24								; case 0x1
0c1e 7809       |x   |		Jump	0xc28								; case 0x2
0c1f 780d       |x   |		Jump	0xc2d								; case 0x3
0c20 7810       |x   |		Jump	0xc31								; case 0x4
0c21 7811       |x   |		Jump	0xc33								; case 0x5
0c22 7812       |x   |		Jump	0xc35								; case 0x6
0c23 7815       |x   |		Jump	0xc39								; case 0x7
0c24 00da       |    |		Load_Top	At_Offset_2
0c25 0091 1d4b  |   K|		Action	Push_String_Extended_Indexed,0x1d4b				; "DISCONNECT_F"
0c27 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0c28 00db       |    |		Load_Top	At_Offset_3
0c29 00db       |    |		Load_Top	At_Offset_3
0c2a 00e0       |    |		Load_Encached	Standard_Cache
0c2b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0c2c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c2d 00da       |    |		Load_Top	At_Offset_2
0c2e 00e0       |    |		Load_Encached	Standard_Cache
0c2f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0c30 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0c31 00db       |    |		Load_Top	At_Offset_3
0c32 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c33 00db       |    |		Load_Top	At_Offset_3
0c34 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c35 e29c       |    |		Load	0x1,0x9c
0c36 00dc       |    |		Load_Top	At_Offset_4
0c37 0267       | g  |		Execute	Discrete,Predecessor
0c38 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c39 e29c       |    |		Load	0x1,0x9c
0c3a 00dc       |    |		Load_Top	At_Offset_4
0c3b 0268       | h  |		Execute	Discrete,Successor
0c3c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0c3d 0000 0000  |    |		.XXX[0x3]
0c3f 0000       |    |
0c40 ; --------------------------------------------------------------------------------------
0c40 ; SUBPROGRAM
0c40 ; --------------------------------------------------------------------------------------
0c40 0c43       | C  |		.CONST	0x0c43								; Address of begin
0c41 0c5d       | ]  |		.CONST	0x0c5d								; Address of exception handler
0c42 0001       |    |		.CONST	0x0001								; Number of locals
0c43			BODY_0c40:
0c43			INIT_0c40:
0c43 e28d       |    |		Load	0x1,0x8d
0c44 0337       | 7  |		Declare_Variable	Array
0c45 00db       |    |		Load_Top	At_Offset_3
0c46 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
0c47 00d8       |    |		Load_Top	At_Offset_0
0c48 e28c       |    |		Load	0x1,0x8c
0c49 0260       | `  |		Execute	Discrete,In_Type
0c4a 7001       |p   |		Jump_Nonzero	0xc4c
0c4b 0801       |    |		Execute_Immediate	Raise,0x1
0c4c 4801       |H   |		Short_Literal	0x1
0c4d 00da       |    |		Load_Top	At_Offset_2
0c4e 01d6       |    |		Execute	Vector,Field_Write
0c4f 00db       |    |		Load_Top	At_Offset_3
0c50 48ff       |H   |		Short_Literal	0xff
0c51 0279       | y  |		Execute	Discrete,And
0c52 00d8       |    |		Load_Top	At_Offset_0
0c53 e28c       |    |		Load	0x1,0x8c
0c54 0260       | `  |		Execute	Discrete,In_Type
0c55 7001       |p   |		Jump_Nonzero	0xc57
0c56 0801       |    |		Execute_Immediate	Raise,0x1
0c57 4802       |H   |		Short_Literal	0x2
0c58 00da       |    |		Load_Top	At_Offset_2
0c59 01d6       |    |		Execute	Vector,Field_Write
0c5a e28d       |    |		Load	0x1,0x8d
0c5b 01c3       |    |		Execute	Vector,Check_In_Type
0c5c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c5d			TRAP_0c40:
0c5d 010e       |    |		Execute	Exception,Is_Constraint_Error
0c5e 6802       |h   |		Jump_Zero	0xc61
0c5f e28e       |    |		Load	0x1,0x8e
0c60 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c61 0100       |    |		Execute	Exception,Raise
0c62 0000 0000  |    |		.BLANK	0000[0x6]
0c68 ; --------------------------------------------------------------------------------------
0c68 ; SUBPROGRAM
0c68 ; --------------------------------------------------------------------------------------
0c68 0c6b       | k  |		.CONST	0x0c6b								; Address of begin
0c69 0004       |    |		.CONST	0x0004								; Address of exception handler
0c6a 0001       |    |		.CONST	0x0001								; Number of locals
0c6b			BODY_0c68:
0c6b			INIT_0c68:
0c6b 00da       |    |		Load_Top	At_Offset_2
0c6c 0217       |    |		Execute	Heap_Access,All_Reference
0c6d 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0c6e e5fe       |    |		Load	0x2,-0x2
0c6f e29b       |    |		Load	0x1,0x9b
0c70 01d5       |    |		Execute	Vector,Field_Reference
0c71 01c1       |    |		Execute	Vector,Less
0c72 6827       |h'  |		Jump_Zero	0xc9a
0c73 0092 1e2e  |   .|		Action	Push_String_Extended,0x1e2e					; "Remote operation "
0c75 e5fd       |    |		Load	0x2,-0x3
0c76 e017       |    |		Load	0x0,0x17
0c77 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0c78 01cc       |    |		Execute	Vector,Catenate
0c79 0092 1e2f  |   /|		Action	Push_String_Extended,0x1e2f					; " is not supported by "
0c7b 01cc       |    |		Execute	Vector,Catenate
0c7c 00db       |    |		Load_Top	At_Offset_3
0c7d 8278       | x  |		Call	0x1,0x78
0c7e 01cc       |    |		Execute	Vector,Catenate
0c7f 0092 1e30  |   0|		Action	Push_String_Extended,0x1e30					; " server version "
0c81 01cc       |    |		Execute	Vector,Catenate
0c82 00db       |    |		Load_Top	At_Offset_3
0c83 0217       |    |		Execute	Heap_Access,All_Reference
0c84 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0c85 828f       |    |		Call	0x1,0x8f
0c86 01cc       |    |		Execute	Vector,Catenate
0c87 0092 1e31  |   1|		Action	Push_String_Extended,0x1e31					; " on host \x22"
0c89 01cc       |    |		Execute	Vector,Catenate
0c8a 00db       |    |		Load_Top	At_Offset_3
0c8b 0217       |    |		Execute	Heap_Access,All_Reference
0c8c 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0c8d 0217       |    |		Execute	Heap_Access,All_Reference
0c8e e003       |    |		Load	0x0,0x3
0c8f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0c90 01cc       |    |		Execute	Vector,Catenate
0c91 0092 1e32  |   2|		Action	Push_String_Extended,0x1e32					; "\x22.  This operation requires at least server version "
0c93 01cc       |    |		Execute	Vector,Catenate
0c94 e5fe       |    |		Load	0x2,-0x2
0c95 e29b       |    |		Load	0x1,0x9b
0c96 01d5       |    |		Execute	Vector,Field_Reference
0c97 828f       |    |		Call	0x1,0x8f
0c98 01cc       |    |		Execute	Vector,Catenate
0c99 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0c9a 00ea       |    |		Load_Encached	Null_String_Cache
0c9b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0c9c 0000 0000  |    |		.BLANK	0000[0x4]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0ca7       |    |		.CONST	0x0ca7								; Address of begin
0ca1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ca2 0002       |    |		.CONST	0x0002								; Number of locals
0ca3			INIT_0ca0:
0ca3 e243       | C  |		Load	0x1,0x43
0ca4 02c7       |    |		Declare_Variable	Any
0ca5 00d8       |    |		Load_Top	At_Offset_0
0ca6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ca7			BODY_0ca0:
0ca7 00d8       |    |		Load_Top	At_Offset_0
0ca8 e001       |    |		Load	0x0,0x1
0ca9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0caa c402       |    |		Store	0x2,0x2
0cab e5fe       |    |		Load	0x2,-0x2
0cac 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0cad 700e       |p   |		Jump_Nonzero	0xcbc
0cae 0f01       |    |		Execute_Immediate	Equal,0x1
0caf 700f       |p   |		Jump_Nonzero	0xcbf
0cb0 00d8       |    |		Load_Top	At_Offset_0
0cb1 4802       |H   |		Short_Literal	0x2
0cb2 e5fd       |    |		Load	0x2,-0x3
0cb3 e5fe       |    |		Load	0x2,-0x2
0cb4 e26c       | l  |		Load	0x1,0x6c
0cb5 011c       |    |		Execute	Any,Convert_Unchecked
0cb6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0cb7 e001       |    |		Load	0x0,0x1
0cb8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0cb9 c402       |    |		Store	0x2,0x2
0cba 00d8       |    |		Load_Top	At_Offset_0
0cbb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0cbc 00d1       |    |		Pop_Control	Pop_Count_1
0cbd 00d8       |    |		Load_Top	At_Offset_0
0cbe 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0cbf 00db       |    |		Load_Top	At_Offset_3
0cc0 0217       |    |		Execute	Heap_Access,All_Reference
0cc1 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0cc2 00d8       |    |		Load_Top	At_Offset_0
0cc3 0120       |    |		Execute	Any,Is_Value
0cc4 7002       |p   |		Jump_Nonzero	0xcc7
0cc5 00d8       |    |		Load_Top	At_Offset_0
0cc6 011e       |    |		Execute	Any,Convert
0cc7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0cc8 ; --------------------------------------------------------------------------------------
0cc8 ; SUBPROGRAM
0cc8 ; --------------------------------------------------------------------------------------
0cc8 0ccf       |    |		.CONST	0x0ccf								; Address of begin
0cc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0cca 0002       |    |		.CONST	0x0002								; Number of locals
0ccb			INIT_0cc8:
0ccb e243       | C  |		Load	0x1,0x43
0ccc 02c7       |    |		Declare_Variable	Any
0ccd 00d8       |    |		Load_Top	At_Offset_0
0cce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ccf			BODY_0cc8:
0ccf 00d8       |    |		Load_Top	At_Offset_0
0cd0 4802       |H   |		Short_Literal	0x2
0cd1 0092 1e16  |    |		Action	Push_String_Extended,0x1e16					; "Null Connection"
0cd3 0092 1d26  |   &|		Action	Push_String_Extended,0x1d26					; "CONNECTION_ERROR"
0cd5 e001       |    |		Load	0x0,0x1
0cd6 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0cd7 c402       |    |		Store	0x2,0x2
0cd8 00d8       |    |		Load_Top	At_Offset_0
0cd9 00ca       |    |		Action	Exit_Nullary_Function
0cda 0000 0000  |    |		.BLANK	0000[0x6]
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0ce8       |    |		.CONST	0x0ce8								; Address of begin
0ce1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ce2 0002       |    |		.CONST	0x0002								; Number of locals
0ce3			INIT_0ce0:
0ce3 e001       |    |		Load	0x0,0x1
0ce4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ce5 02c7       |    |		Declare_Variable	Any
0ce6 00d8       |    |		Load_Top	At_Offset_0
0ce7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ce8			BODY_0ce0:
0ce8 00d8       |    |		Load_Top	At_Offset_0
0ce9 4802       |H   |		Short_Literal	0x2
0cea 0092 1e33  |   3|		Action	Push_String_Extended,0x1e33					; "Not Implemented on R1000"
0cec 0092 1d31  |   1|		Action	Push_String_Extended,0x1d31					; "USE_ERROR"
0cee e001       |    |		Load	0x0,0x1
0cef 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0cf0 c402       |    |		Store	0x2,0x2
0cf1 00d8       |    |		Load_Top	At_Offset_0
0cf2 00ca       |    |		Action	Exit_Nullary_Function
0cf3 0000 0000  |    |		.BLANK	0000[0x5]
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0cfb       |    |		.CONST	0x0cfb								; Address of begin
0cf9 0004       |    |		.CONST	0x0004								; Address of exception handler
0cfa 0001       |    |		.CONST	0x0001								; Number of locals
0cfb			BODY_0cf8:
0cfb			INIT_0cf8:
0cfb 00da       |    |		Load_Top	At_Offset_2
0cfc e20f       |    |		Load	0x1,0xf
0cfd 021f       |    |		Execute	Heap_Access,Equal
0cfe 6802       |h   |		Jump_Zero	0xd01
0cff 4800       |H   |		Short_Literal	0x0
0d00 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d01 00da       |    |		Load_Top	At_Offset_2
0d02 0217       |    |		Execute	Heap_Access,All_Reference
0d03 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0d04 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d05 0000 0000  |    |		.XXX[0x3]
0d07 0000       |    |
0d08 ; --------------------------------------------------------------------------------------
0d08 ; SUBPROGRAM
0d08 ; --------------------------------------------------------------------------------------
0d08 0d30       | 0  |		.CONST	0x0d30								; Address of begin
0d09 0d87       |    |		.CONST	0x0d87								; Address of exception handler
0d0a 000c       |    |		.CONST	0x000c								; Number of locals
0d0b			INIT_0d08:
0d0b 0092 1e20  |    |		Action	Push_String_Extended,0x1e20					; "put"
0d0d 4801       |H   |		Short_Literal	0x1
0d0e e5fa       |    |		Load	0x2,-0x6
0d0f 82a2       |    |		Call	0x1,0xa2
0d10 e2a0       |    |		Load	0x1,0xa0
0d11 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d12 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d13 0322       | "  |		Declare_Variable	Record
0d14 00d8       |    |		Load_Top	At_Offset_0
0d15 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d16 e243       | C  |		Load	0x1,0x43
0d17 02c7       |    |		Declare_Variable	Any
0d18 00d8       |    |		Load_Top	At_Offset_0
0d19 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0d1a e29d       |    |		Load	0x1,0x9d
0d1b 0007       |    |		Action	Break_Optional
0d1c 00e3       |    |		Load_Encached	Natural_Cache
0d1d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0d1e 4800       |H   |		Short_Literal	0x0
0d1f 4805       |H   |		Short_Literal	0x5
0d20 029f 1983  |    |		Declare_Subprogram	INIT_1980,For_Call
0d22 03fd       |    |		Declare_Type	Discrete,Defined
0d23 4800       |H   |		Short_Literal	0x0
0d24 4809       |H   |		Short_Literal	0x9
0d25 029f 19ab  |    |		Declare_Subprogram	INIT_19a8,For_Call
0d27 03fd       |    |		Declare_Type	Discrete,Defined
0d28 029f 19d3  |    |		Declare_Subprogram	INIT_19d0,For_Call
0d2a 029f 19eb  |    |		Declare_Subprogram	INIT_19e8,For_Call
0d2c 029f 1a03  |    |		Declare_Subprogram	INIT_1a00,For_Call
0d2e 029f 1a93  |    |		Declare_Subprogram	INIT_1a90,For_Call
0d30			BODY_0d08:
0d30 e404       |    |		Load	0x2,0x4
0d31 e001       |    |		Load	0x0,0x1
0d32 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d33 c404       |    |		Store	0x2,0x4
0d34 e404       |    |		Load	0x2,0x4
0d35 c5f9       |    |		Store	0x2,-0x7
0d36 e5fa       |    |		Load	0x2,-0x6
0d37 e20f       |    |		Load	0x1,0xf
0d38 021f       |    |		Execute	Heap_Access,Equal
0d39 6803       |h   |		Jump_Zero	0xd3d
0d3a 82a4       |    |		Call	0x1,0xa4
0d3b c5f9       |    |		Store	0x2,-0x7
0d3c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0d3d e402       |    |		Load	0x2,0x2
0d3e 01db       |    |		Execute	Vector,Length
0d3f 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0d40 6806       |h   |		Jump_Zero	0xd47
0d41 e402       |    |		Load	0x2,0x2
0d42 480b       |H   |		Short_Literal	0xb
0d43 e5fa       |    |		Load	0x2,-0x6
0d44 82a3       |    |		Call	0x1,0xa3
0d45 c5f9       |    |		Store	0x2,-0x7
0d46 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0d47 e5fa       |    |		Load	0x2,-0x6
0d48 0217       |    |		Execute	Heap_Access,All_Reference
0d49 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0d4a 6803       |h   |		Jump_Zero	0xd4e
0d4b 82a5       |    |		Call	0x1,0xa5
0d4c c5f9       |    |		Store	0x2,-0x7
0d4d 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0d4e e403       |    |		Load	0x2,0x3
0d4f e5fd       |    |		Load	0x2,-0x3
0d50 e5fe       |    |		Load	0x2,-0x2
0d51 e5ff       |    |		Load	0x2,-0x1
0d52 e2a0       |    |		Load	0x1,0xa0
0d53 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d54 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0d55 00d1       |    |		Pop_Control	Pop_Count_1
0d56 e405       |    |		Load	0x2,0x5
0d57 4801       |H   |		Short_Literal	0x1
0d58 e5fa       |    |		Load	0x2,-0x6
0d59 840b       |    |		Call	0x2,0xb
0d5a c405       |    |		Store	0x2,0x5
0d5b e5fa       |    |		Load	0x2,-0x6
0d5c 0217       |    |		Execute	Heap_Access,All_Reference
0d5d 2c0b       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0d5e e5fa       |    |		Load	0x2,-0x6
0d5f 0217       |    |		Execute	Heap_Access,All_Reference
0d60 240a       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
0d61 01dd       |    |		Execute	Vector,First
0d62 027f       |    |		Execute	Discrete,Equal
0d63 6805       |h   |		Jump_Zero	0xd69
0d64 e5fa       |    |		Load	0x2,-0x6
0d65 0217       |    |		Execute	Heap_Access,All_Reference
0d66 2c0c       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
0d67 0f00       |    |		Execute_Immediate	Equal,0x0
0d68 7801       |x   |		Jump	0xd6a
0d69 4800       |H   |		Short_Literal	0x0
0d6a 7001       |p   |		Jump_Nonzero	0xd6c
0d6b 0887       |    |		Execute_Immediate	Raise,0x87
0d6c e405       |    |		Load	0x2,0x5
0d6d 7005       |p   |		Jump_Nonzero	0xd73
0d6e e29d       |    |		Load	0x1,0x9d
0d6f 4801       |H   |		Short_Literal	0x1
0d70 e5fa       |    |		Load	0x2,-0x6
0d71 840c       |    |		Call	0x2,0xc
0d72 c405       |    |		Store	0x2,0x5
0d73 e405       |    |		Load	0x2,0x5
0d74 7006       |p   |		Jump_Nonzero	0xd7b
0d75 00ea       |    |		Load_Encached	Null_String_Cache
0d76 e405       |    |		Load	0x2,0x5
0d77 e5fa       |    |		Load	0x2,-0x6
0d78 82a3       |    |		Call	0x1,0xa3
0d79 c5f9       |    |		Store	0x2,-0x7
0d7a 7807       |x   |		Jump	0xd82
0d7b e5fa       |    |		Load	0x2,-0x6
0d7c e29e       |    |		Load	0x1,0x9e
0d7d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0d7e e405       |    |		Load	0x2,0x5
0d7f e5fa       |    |		Load	0x2,-0x6
0d80 82a3       |    |		Call	0x1,0xa3
0d81 c5f9       |    |		Store	0x2,-0x7
0d82 e403       |    |		Load	0x2,0x3
0d83 e2a0       |    |		Load	0x1,0xa0
0d84 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d85 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d86 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0d87			TRAP_0d08:
0d87 e013       |    |		Load	0x0,0x13
0d88 010f       |    |		Execute	Exception,Equal
0d89 6809       |h   |		Jump_Zero	0xd93
0d8a e403       |    |		Load	0x2,0x3
0d8b e2a0       |    |		Load	0x1,0xa0
0d8c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d8d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d8e e5fa       |    |		Load	0x2,-0x6
0d8f 0217       |    |		Execute	Heap_Access,All_Reference
0d90 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0d91 c5f9       |    |		Store	0x2,-0x7
0d92 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0d93 0100       |    |		Execute	Exception,Raise
0d94 0000 0000  |    |		.BLANK	0000[0x4]
0d98 ; --------------------------------------------------------------------------------------
0d98 ; SUBPROGRAM
0d98 ; --------------------------------------------------------------------------------------
0d98 0dc0       |    |		.CONST	0x0dc0								; Address of begin
0d99 0e06       |    |		.CONST	0x0e06								; Address of exception handler
0d9a 000c       |    |		.CONST	0x000c								; Number of locals
0d9b			INIT_0d98:
0d9b 0092 1e23  |   #|		Action	Push_String_Extended,0x1e23					; "get"
0d9d 4802       |H   |		Short_Literal	0x2
0d9e e5fb       |    |		Load	0x2,-0x5
0d9f 82a2       |    |		Call	0x1,0xa2
0da0 e2a0       |    |		Load	0x1,0xa0
0da1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0da2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0da3 0322       | "  |		Declare_Variable	Record
0da4 00d8       |    |		Load_Top	At_Offset_0
0da5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0da6 e243       | C  |		Load	0x1,0x43
0da7 02c7       |    |		Declare_Variable	Any
0da8 00d8       |    |		Load_Top	At_Offset_0
0da9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0daa e29d       |    |		Load	0x1,0x9d
0dab 0007       |    |		Action	Break_Optional
0dac 00e3       |    |		Load_Encached	Natural_Cache
0dad 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0dae 4800       |H   |		Short_Literal	0x0
0daf 4804       |H   |		Short_Literal	0x4
0db0 029f 1acb  |    |		Declare_Subprogram	INIT_1ac8,For_Call
0db2 03fd       |    |		Declare_Type	Discrete,Defined
0db3 4800       |H   |		Short_Literal	0x0
0db4 4809       |H   |		Short_Literal	0x9
0db5 029f 1af3  |    |		Declare_Subprogram	INIT_1af0,For_Call
0db7 03fd       |    |		Declare_Type	Discrete,Defined
0db8 029f 1b1b  |    |		Declare_Subprogram	INIT_1b18,For_Call
0dba 029f 1b33  |   3|		Declare_Subprogram	INIT_1b30,For_Call
0dbc 029f 1b4b  |   K|		Declare_Subprogram	INIT_1b48,For_Call
0dbe 029f 1bab  |    |		Declare_Subprogram	INIT_1ba8,For_Call
0dc0			BODY_0d98:
0dc0 e404       |    |		Load	0x2,0x4
0dc1 e001       |    |		Load	0x0,0x1
0dc2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dc3 c404       |    |		Store	0x2,0x4
0dc4 e404       |    |		Load	0x2,0x4
0dc5 c5fa       |    |		Store	0x2,-0x6
0dc6 e5fb       |    |		Load	0x2,-0x5
0dc7 e20f       |    |		Load	0x1,0xf
0dc8 021f       |    |		Execute	Heap_Access,Equal
0dc9 6803       |h   |		Jump_Zero	0xdcd
0dca 82a4       |    |		Call	0x1,0xa4
0dcb c5fa       |    |		Store	0x2,-0x6
0dcc 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0dcd e402       |    |		Load	0x2,0x2
0dce 01db       |    |		Execute	Vector,Length
0dcf 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0dd0 6806       |h   |		Jump_Zero	0xdd7
0dd1 e402       |    |		Load	0x2,0x2
0dd2 480b       |H   |		Short_Literal	0xb
0dd3 e5fb       |    |		Load	0x2,-0x5
0dd4 82a3       |    |		Call	0x1,0xa3
0dd5 c5fa       |    |		Store	0x2,-0x6
0dd6 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0dd7 e5fb       |    |		Load	0x2,-0x5
0dd8 0217       |    |		Execute	Heap_Access,All_Reference
0dd9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0dda 6803       |h   |		Jump_Zero	0xdde
0ddb 82a5       |    |		Call	0x1,0xa5
0ddc c5fa       |    |		Store	0x2,-0x6
0ddd 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0dde e403       |    |		Load	0x2,0x3
0ddf e5fc       |    |		Load	0x2,-0x4
0de0 e5fd       |    |		Load	0x2,-0x3
0de1 e5ff       |    |		Load	0x2,-0x1
0de2 e2a0       |    |		Load	0x1,0xa0
0de3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0de4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0de5 00d1       |    |		Pop_Control	Pop_Count_1
0de6 e405       |    |		Load	0x2,0x5
0de7 4802       |H   |		Short_Literal	0x2
0de8 e5fb       |    |		Load	0x2,-0x5
0de9 840b       |    |		Call	0x2,0xb
0dea c405       |    |		Store	0x2,0x5
0deb e405       |    |		Load	0x2,0x5
0dec 7005       |p   |		Jump_Nonzero	0xdf2
0ded e29d       |    |		Load	0x1,0x9d
0dee 4802       |H   |		Short_Literal	0x2
0def e5fb       |    |		Load	0x2,-0x5
0df0 840c       |    |		Call	0x2,0xc
0df1 c405       |    |		Store	0x2,0x5
0df2 e405       |    |		Load	0x2,0x5
0df3 7006       |p   |		Jump_Nonzero	0xdfa
0df4 00ea       |    |		Load_Encached	Null_String_Cache
0df5 e405       |    |		Load	0x2,0x5
0df6 e5fb       |    |		Load	0x2,-0x5
0df7 82a3       |    |		Call	0x1,0xa3
0df8 c5fa       |    |		Store	0x2,-0x6
0df9 7807       |x   |		Jump	0xe01
0dfa e5fb       |    |		Load	0x2,-0x5
0dfb e29e       |    |		Load	0x1,0x9e
0dfc 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0dfd e405       |    |		Load	0x2,0x5
0dfe e5fb       |    |		Load	0x2,-0x5
0dff 82a3       |    |		Call	0x1,0xa3
0e00 c5fa       |    |		Store	0x2,-0x6
0e01 e403       |    |		Load	0x2,0x3
0e02 e2a0       |    |		Load	0x1,0xa0
0e03 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e04 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e05 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0e06			TRAP_0d98:
0e06 e013       |    |		Load	0x0,0x13
0e07 010f       |    |		Execute	Exception,Equal
0e08 6809       |h   |		Jump_Zero	0xe12
0e09 e403       |    |		Load	0x2,0x3
0e0a e2a0       |    |		Load	0x1,0xa0
0e0b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0e0c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e0d e5fb       |    |		Load	0x2,-0x5
0e0e 0217       |    |		Execute	Heap_Access,All_Reference
0e0f 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0e10 c5fa       |    |		Store	0x2,-0x6
0e11 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0e12 0100       |    |		Execute	Exception,Raise
0e13 0000 0000  |    |		.BLANK	0000[0x5]
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e40       | @  |		.CONST	0x0e40								; Address of begin
0e19 0e87       |    |		.CONST	0x0e87								; Address of exception handler
0e1a 000c       |    |		.CONST	0x000c								; Number of locals
0e1b			INIT_0e18:
0e1b 0092 1e2b  |   +|		Action	Push_String_Extended,0x1e2b					; "ls"
0e1d 4808       |H   |		Short_Literal	0x8
0e1e e5fb       |    |		Load	0x2,-0x5
0e1f 82a2       |    |		Call	0x1,0xa2
0e20 e2a0       |    |		Load	0x1,0xa0
0e21 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0e22 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0e23 0322       | "  |		Declare_Variable	Record
0e24 00d8       |    |		Load_Top	At_Offset_0
0e25 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e26 e243       | C  |		Load	0x1,0x43
0e27 02c7       |    |		Declare_Variable	Any
0e28 00d8       |    |		Load_Top	At_Offset_0
0e29 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e2a e29d       |    |		Load	0x1,0x9d
0e2b 0007       |    |		Action	Break_Optional
0e2c 00e3       |    |		Load_Encached	Natural_Cache
0e2d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0e2e 4800       |H   |		Short_Literal	0x0
0e2f 4804       |H   |		Short_Literal	0x4
0e30 029f 1c03  |    |		Declare_Subprogram	INIT_1c00,For_Call
0e32 03fd       |    |		Declare_Type	Discrete,Defined
0e33 4800       |H   |		Short_Literal	0x0
0e34 4803       |H   |		Short_Literal	0x3
0e35 029f 1c2b  |   +|		Declare_Subprogram	INIT_1c28,For_Call
0e37 03fd       |    |		Declare_Type	Discrete,Defined
0e38 029f 1c53  |   S|		Declare_Subprogram	INIT_1c50,For_Call
0e3a 029f 1c6b  |   k|		Declare_Subprogram	INIT_1c68,For_Call
0e3c 029f 1c83  |    |		Declare_Subprogram	INIT_1c80,For_Call
0e3e 029f 1cd3  |    |		Declare_Subprogram	INIT_1cd0,For_Call
0e40			BODY_0e18:
0e40 e5fb       |    |		Load	0x2,-0x5
0e41 e20f       |    |		Load	0x1,0xf
0e42 021f       |    |		Execute	Heap_Access,Equal
0e43 6803       |h   |		Jump_Zero	0xe47
0e44 82a4       |    |		Call	0x1,0xa4
0e45 c5fa       |    |		Store	0x2,-0x6
0e46 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0e47 e402       |    |		Load	0x2,0x2
0e48 01db       |    |		Execute	Vector,Length
0e49 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e4a 6806       |h   |		Jump_Zero	0xe51
0e4b e402       |    |		Load	0x2,0x2
0e4c 480b       |H   |		Short_Literal	0xb
0e4d e5fb       |    |		Load	0x2,-0x5
0e4e 82a3       |    |		Call	0x1,0xa3
0e4f c5fa       |    |		Store	0x2,-0x6
0e50 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0e51 e5fb       |    |		Load	0x2,-0x5
0e52 0217       |    |		Execute	Heap_Access,All_Reference
0e53 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0e54 6803       |h   |		Jump_Zero	0xe58
0e55 82a5       |    |		Call	0x1,0xa5
0e56 c5fa       |    |		Store	0x2,-0x6
0e57 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0e58 e403       |    |		Load	0x2,0x3
0e59 e5fc       |    |		Load	0x2,-0x4
0e5a e5fd       |    |		Load	0x2,-0x3
0e5b e5fe       |    |		Load	0x2,-0x2
0e5c e5ff       |    |		Load	0x2,-0x1
0e5d e2a0       |    |		Load	0x1,0xa0
0e5e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0e5f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0e60 00d1       |    |		Pop_Control	Pop_Count_1
0e61 e404       |    |		Load	0x2,0x4
0e62 e001       |    |		Load	0x0,0x1
0e63 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e64 c404       |    |		Store	0x2,0x4
0e65 e404       |    |		Load	0x2,0x4
0e66 c5fa       |    |		Store	0x2,-0x6
0e67 e405       |    |		Load	0x2,0x5
0e68 4808       |H   |		Short_Literal	0x8
0e69 e5fb       |    |		Load	0x2,-0x5
0e6a 840b       |    |		Call	0x2,0xb
0e6b c405       |    |		Store	0x2,0x5
0e6c e405       |    |		Load	0x2,0x5
0e6d 7005       |p   |		Jump_Nonzero	0xe73
0e6e e29d       |    |		Load	0x1,0x9d
0e6f 4808       |H   |		Short_Literal	0x8
0e70 e5fb       |    |		Load	0x2,-0x5
0e71 840c       |    |		Call	0x2,0xc
0e72 c405       |    |		Store	0x2,0x5
0e73 e405       |    |		Load	0x2,0x5
0e74 7006       |p   |		Jump_Nonzero	0xe7b
0e75 00ea       |    |		Load_Encached	Null_String_Cache
0e76 e405       |    |		Load	0x2,0x5
0e77 e5fb       |    |		Load	0x2,-0x5
0e78 82a3       |    |		Call	0x1,0xa3
0e79 c5fa       |    |		Store	0x2,-0x6
0e7a 7807       |x   |		Jump	0xe82
0e7b e5fb       |    |		Load	0x2,-0x5
0e7c e29e       |    |		Load	0x1,0x9e
0e7d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e7e e405       |    |		Load	0x2,0x5
0e7f e5fb       |    |		Load	0x2,-0x5
0e80 82a3       |    |		Call	0x1,0xa3
0e81 c5fa       |    |		Store	0x2,-0x6
0e82 e403       |    |		Load	0x2,0x3
0e83 e2a0       |    |		Load	0x1,0xa0
0e84 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0e85 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e86 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0e87			TRAP_0e18:
0e87 e013       |    |		Load	0x0,0x13
0e88 010f       |    |		Execute	Exception,Equal
0e89 6809       |h   |		Jump_Zero	0xe93
0e8a e403       |    |		Load	0x2,0x3
0e8b e2a0       |    |		Load	0x1,0xa0
0e8c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0e8d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0e8e e5fb       |    |		Load	0x2,-0x5
0e8f 0217       |    |		Execute	Heap_Access,All_Reference
0e90 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0e91 c5fa       |    |		Store	0x2,-0x6
0e92 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0e93 0100       |    |		Execute	Exception,Raise
0e94 0000 0000  |    |		.BLANK	0000[0x4]
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0e9c       |    |		.CONST	0x0e9c								; Address of begin
0e99 0eaa       |    |		.CONST	0x0eaa								; Address of exception handler
0e9a 0002       |    |		.CONST	0x0002								; Number of locals
0e9b			INIT_0e98:
0e9b 00e3       |    |		Load_Encached	Natural_Cache
0e9c			BODY_0e98:
0e9c e5fe       |    |		Load	0x2,-0x2
0e9d e29e       |    |		Load	0x1,0x9e
0e9e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0e9f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0ea0 00d8       |    |		Load_Top	At_Offset_0
0ea1 00d8       |    |		Load_Top	At_Offset_0
0ea2 e296       |    |		Load	0x1,0x96
0ea3 0260       | `  |		Execute	Discrete,In_Type
0ea4 7001       |p   |		Jump_Nonzero	0xea6
0ea5 0801       |    |		Execute_Immediate	Raise,0x1
0ea6 e5fe       |    |		Load	0x2,-0x2
0ea7 0217       |    |		Execute	Heap_Access,All_Reference
0ea8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0ea9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0eaa			TRAP_0e98:
0eaa 010e       |    |		Execute	Exception,Is_Constraint_Error
0eab 6805       |h   |		Jump_Zero	0xeb1
0eac 4800       |H   |		Short_Literal	0x0
0ead e5fe       |    |		Load	0x2,-0x2
0eae 0217       |    |		Execute	Heap_Access,All_Reference
0eaf 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0eb0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0eb1 0100       |    |		Execute	Exception,Raise
0eb2 0000 0000  |    |		.BLANK	0000[0x6]
0eb8 ; --------------------------------------------------------------------------------------
0eb8 ; SUBPROGRAM
0eb8 ; --------------------------------------------------------------------------------------
0eb8 0ebb       |    |		.CONST	0x0ebb								; Address of begin
0eb9 0ec0       |    |		.CONST	0x0ec0								; Address of exception handler
0eba 0001       |    |		.CONST	0x0001								; Number of locals
0ebb			BODY_0eb8:
0ebb			INIT_0eb8:
0ebb 4800       |H   |		Short_Literal	0x0
0ebc e5ff       |    |		Load	0x2,-0x1
0ebd e29e       |    |		Load	0x1,0x9e
0ebe 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0ebf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ec0			TRAP_0eb8:
0ec0 0007       |    |		Action	Break_Optional
0ec1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ec2 0000 0000  |    |		.BLANK	0000[0x6]
0ec8 ; --------------------------------------------------------------------------------------
0ec8 ; SUBPROGRAM
0ec8 ; --------------------------------------------------------------------------------------
0ec8 0ecb       |    |		.CONST	0x0ecb								; Address of begin
0ec9 0004       |    |		.CONST	0x0004								; Address of exception handler
0eca 0001       |    |		.CONST	0x0001								; Number of locals
0ecb			BODY_0ec8:
0ecb			INIT_0ec8:
0ecb 4607       |F   |		Jump_Case	0x8
0ecc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0ecd 7806       |x   |		Jump	0xed4								; case 0x1
0ece 7809       |x   |		Jump	0xed8								; case 0x2
0ecf 780d       |x   |		Jump	0xedd								; case 0x3
0ed0 7810       |x   |		Jump	0xee1								; case 0x4
0ed1 7811       |x   |		Jump	0xee3								; case 0x5
0ed2 7812       |x   |		Jump	0xee5								; case 0x6
0ed3 7815       |x   |		Jump	0xee9								; case 0x7
0ed4 00da       |    |		Load_Top	At_Offset_2
0ed5 0091 1d68  |   h|		Action	Push_String_Extended_Indexed,0x1d68				; "SENTINEL"
0ed7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0ed8 00db       |    |		Load_Top	At_Offset_3
0ed9 00db       |    |		Load_Top	At_Offset_3
0eda 00e0       |    |		Load_Encached	Standard_Cache
0edb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0edc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0edd 00da       |    |		Load_Top	At_Offset_2
0ede 00e0       |    |		Load_Encached	Standard_Cache
0edf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0ee0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0ee1 00db       |    |		Load_Top	At_Offset_3
0ee2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0ee3 00db       |    |		Load_Top	At_Offset_3
0ee4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0ee5 e405       |    |		Load	0x2,0x5
0ee6 00dc       |    |		Load_Top	At_Offset_4
0ee7 0267       | g  |		Execute	Discrete,Predecessor
0ee8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0ee9 e405       |    |		Load	0x2,0x5
0eea 00dc       |    |		Load_Top	At_Offset_4
0eeb 0268       | h  |		Execute	Discrete,Successor
0eec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0eed 0000 0000  |    |		.XXX[0x3]
0eef 0000       |    |
0ef0 ; --------------------------------------------------------------------------------------
0ef0 ; SUBPROGRAM
0ef0 ; --------------------------------------------------------------------------------------
0ef0 0ef3       |    |		.CONST	0x0ef3								; Address of begin
0ef1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ef2 0001       |    |		.CONST	0x0001								; Number of locals
0ef3			BODY_0ef0:
0ef3			INIT_0ef0:
0ef3 4607       |F   |		Jump_Case	0x8
0ef4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0ef5 7806       |x   |		Jump	0xefc								; case 0x1
0ef6 7809       |x   |		Jump	0xf00								; case 0x2
0ef7 780d       |x   |		Jump	0xf05								; case 0x3
0ef8 7810       |x   |		Jump	0xf09								; case 0x4
0ef9 7811       |x   |		Jump	0xf0b								; case 0x5
0efa 7812       |x   |		Jump	0xf0d								; case 0x6
0efb 7815       |x   |		Jump	0xf11								; case 0x7
0efc 00da       |    |		Load_Top	At_Offset_2
0efd 0091 1d6e  |   n|		Action	Push_String_Extended_Indexed,0x1d6e				; "NO_ERROR"
0eff 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0f00 00db       |    |		Load_Top	At_Offset_3
0f01 00db       |    |		Load_Top	At_Offset_3
0f02 00e0       |    |		Load_Encached	Standard_Cache
0f03 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0f04 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f05 00da       |    |		Load_Top	At_Offset_2
0f06 00e0       |    |		Load_Encached	Standard_Cache
0f07 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0f08 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0f09 00db       |    |		Load_Top	At_Offset_3
0f0a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f0b 00db       |    |		Load_Top	At_Offset_3
0f0c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f0d e406       |    |		Load	0x2,0x6
0f0e 00dc       |    |		Load_Top	At_Offset_4
0f0f 0267       | g  |		Execute	Discrete,Predecessor
0f10 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f11 e406       |    |		Load	0x2,0x6
0f12 00dc       |    |		Load_Top	At_Offset_4
0f13 0268       | h  |		Execute	Discrete,Successor
0f14 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0f15 0000 0000  |    |		.XXX[0x3]
0f17 0000       |    |
0f18 ; --------------------------------------------------------------------------------------
0f18 ; SUBPROGRAM
0f18 ; --------------------------------------------------------------------------------------
0f18 0f1d       |    |		.CONST	0x0f1d								; Address of begin
0f19 0f26       | &  |		.CONST	0x0f26								; Address of exception handler
0f1a 0002       |    |		.CONST	0x0002								; Number of locals
0f1b			INIT_0f18:
0f1b e405       |    |		Load	0x2,0x5
0f1c 0007       |    |		Action	Break_Optional
0f1d			BODY_0f18:
0f1d 00db       |    |		Load_Top	At_Offset_3
0f1e e29c       |    |		Load	0x1,0x9c
0f1f 011c       |    |		Execute	Any,Convert_Unchecked
0f20 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f21 e405       |    |		Load	0x2,0x5
0f22 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0f23 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0f24 00db       |    |		Load_Top	At_Offset_3
0f25 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f26			TRAP_0f18:
0f26 0007       |    |		Action	Break_Optional
0f27 e01e       |    |		Load	0x0,0x1e
0f28 0257       | W  |		Execute	Discrete,Raise
0f29 0000 0000  |    |		.BLANK	0000[0x7]
0f30 ; --------------------------------------------------------------------------------------
0f30 ; SUBPROGRAM
0f30 ; --------------------------------------------------------------------------------------
0f30 0f35       | 5  |		.CONST	0x0f35								; Address of begin
0f31 0f3e       | >  |		.CONST	0x0f3e								; Address of exception handler
0f32 0002       |    |		.CONST	0x0002								; Number of locals
0f33			INIT_0f30:
0f33 e406       |    |		Load	0x2,0x6
0f34 0007       |    |		Action	Break_Optional
0f35			BODY_0f30:
0f35 00db       |    |		Load_Top	At_Offset_3
0f36 e26c       | l  |		Load	0x1,0x6c
0f37 011c       |    |		Execute	Any,Convert_Unchecked
0f38 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0f39 e406       |    |		Load	0x2,0x6
0f3a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0f3b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0f3c 00db       |    |		Load_Top	At_Offset_3
0f3d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f3e			TRAP_0f30:
0f3e 0007       |    |		Action	Break_Optional
0f3f 4802       |H   |		Short_Literal	0x2
0f40 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0f41 0000 0000  |    |		.BLANK	0000[0x7]
0f48 ; --------------------------------------------------------------------------------------
0f48 ; SUBPROGRAM
0f48 ; --------------------------------------------------------------------------------------
0f48 0f4e       | N  |		.CONST	0x0f4e								; Address of begin
0f49 0fa7       |    |		.CONST	0x0fa7								; Address of exception handler
0f4a 0002       |    |		.CONST	0x0002								; Number of locals
0f4b			INIT_0f48:
0f4b 00db       |    |		Load_Top	At_Offset_3
0f4c 00e3       |    |		Load_Encached	Natural_Cache
0f4d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0f4e			BODY_0f48:
0f4e 4800       |H   |		Short_Literal	0x0
0f4f e5fb       |    |		Load	0x2,-0x5
0f50 e29e       |    |		Load	0x1,0x9e
0f51 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f52 e2a0       |    |		Load	0x1,0xa0
0f53 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f54 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0f55 8408       |    |		Call	0x2,0x8
0f56 a7fd       |    |		Store_Unchecked	0x3,-0x3
0f57 e7fd       |    |		Load	0x3,-0x3
0f58 6809       |h   |		Jump_Zero	0xf62
0f59 4801       |H   |		Short_Literal	0x1
0f5a e5fb       |    |		Load	0x2,-0x5
0f5b e29e       |    |		Load	0x1,0x9e
0f5c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f5d 4802       |H   |		Short_Literal	0x2
0f5e e7ff       |    |		Load	0x3,-0x1
0f5f e29e       |    |		Load	0x1,0x9e
0f60 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f61 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0f62 4801       |H   |		Short_Literal	0x1
0f63 e7ff       |    |		Load	0x3,-0x1
0f64 e29e       |    |		Load	0x1,0x9e
0f65 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f66 00d8       |    |		Load_Top	At_Offset_0
0f67 e7ff       |    |		Load	0x3,-0x1
0f68 e29e       |    |		Load	0x1,0x9e
0f69 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0f6a 4803       |H   |		Short_Literal	0x3
0f6b e7ff       |    |		Load	0x3,-0x1
0f6c e29e       |    |		Load	0x1,0x9e
0f6d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f6e e5fd       |    |		Load	0x2,-0x3
0f6f e7ff       |    |		Load	0x3,-0x1
0f70 e29e       |    |		Load	0x1,0x9e
0f71 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f72 4819       |H   |		Short_Literal	0x19
0f73 e7ff       |    |		Load	0x3,-0x1
0f74 e29e       |    |		Load	0x1,0x9e
0f75 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f76 e5fc       |    |		Load	0x2,-0x4
0f77 e7ff       |    |		Load	0x3,-0x1
0f78 e29e       |    |		Load	0x1,0x9e
0f79 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0f7a 4804       |H   |		Short_Literal	0x4
0f7b e7ff       |    |		Load	0x3,-0x1
0f7c e29e       |    |		Load	0x1,0x9e
0f7d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f7e e5ff       |    |		Load	0x2,-0x1
0f7f e7ff       |    |		Load	0x3,-0x1
0f80 e29e       |    |		Load	0x1,0x9e
0f81 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f82 481c       |H   |		Short_Literal	0x1c
0f83 e7ff       |    |		Load	0x3,-0x1
0f84 e29e       |    |		Load	0x1,0x9e
0f85 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f86 e5fe       |    |		Load	0x2,-0x2
0f87 e7ff       |    |		Load	0x3,-0x1
0f88 e29e       |    |		Load	0x1,0x9e
0f89 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0f8a e2a0       |    |		Load	0x1,0xa0
0f8b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0f8c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0f8d 8408       |    |		Call	0x2,0x8
0f8e a7fd       |    |		Store_Unchecked	0x3,-0x3
0f8f e7fd       |    |		Load	0x3,-0x3
0f90 6809       |h   |		Jump_Zero	0xf9a
0f91 4801       |H   |		Short_Literal	0x1
0f92 e5fb       |    |		Load	0x2,-0x5
0f93 e29e       |    |		Load	0x1,0x9e
0f94 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0f95 4802       |H   |		Short_Literal	0x2
0f96 e7ff       |    |		Load	0x3,-0x1
0f97 e29e       |    |		Load	0x1,0x9e
0f98 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f99 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0f9a 4801       |H   |		Short_Literal	0x1
0f9b e7ff       |    |		Load	0x3,-0x1
0f9c e29e       |    |		Load	0x1,0x9e
0f9d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0f9e 4801       |H   |		Short_Literal	0x1
0f9f e5fb       |    |		Load	0x2,-0x5
0fa0 e29e       |    |		Load	0x1,0x9e
0fa1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0fa2 00d8       |    |		Load_Top	At_Offset_0
0fa3 e7ff       |    |		Load	0x3,-0x1
0fa4 e29e       |    |		Load	0x1,0x9e
0fa5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0fa6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fa7			TRAP_0f48:
0fa7 e01e       |    |		Load	0x0,0x1e
0fa8 010f       |    |		Execute	Exception,Equal
0fa9 6803       |h   |		Jump_Zero	0xfad
0faa 4802       |H   |		Short_Literal	0x2
0fab a7fd       |    |		Store_Unchecked	0x3,-0x3
0fac 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fad e013       |    |		Load	0x0,0x13
0fae 010f       |    |		Execute	Exception,Equal
0faf 6803       |h   |		Jump_Zero	0xfb3
0fb0 4801       |H   |		Short_Literal	0x1
0fb1 a7fd       |    |		Store_Unchecked	0x3,-0x3
0fb2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fb3 0100       |    |		Execute	Exception,Raise
0fb4 0000 0000  |    |		.BLANK	0000[0x4]
0fb8 ; --------------------------------------------------------------------------------------
0fb8 ; SUBPROGRAM
0fb8 ; --------------------------------------------------------------------------------------
0fb8 0fc0       |    |		.CONST	0x0fc0								; Address of begin
0fb9 0fd8       |    |		.CONST	0x0fd8								; Address of exception handler
0fba 0003       |    |		.CONST	0x0003								; Number of locals
0fbb			INIT_0fb8:
0fbb 00db       |    |		Load_Top	At_Offset_3
0fbc 00e3       |    |		Load_Encached	Natural_Cache
0fbd 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0fbe e29c       |    |		Load	0x1,0x9c
0fbf 0007       |    |		Action	Break_Optional
0fc0			BODY_0fb8:
0fc0 e7ff       |    |		Load	0x3,-0x1
0fc1 e29e       |    |		Load	0x1,0x9e
0fc2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0fc3 8407       |    |		Call	0x2,0x7
0fc4 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0fc5 00d8       |    |		Load_Top	At_Offset_0
0fc6 0f01       |    |		Execute_Immediate	Equal,0x1
0fc7 7002       |p   |		Jump_Nonzero	0xfca
0fc8 e01e       |    |		Load	0x0,0x1e
0fc9 0257       | W  |		Execute	Discrete,Raise
0fca e7ff       |    |		Load	0x3,-0x1
0fcb e29e       |    |		Load	0x1,0x9e
0fcc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0fcd 00da       |    |		Load_Top	At_Offset_2
0fce 027f       |    |		Execute	Discrete,Equal
0fcf 7002       |p   |		Jump_Nonzero	0xfd2
0fd0 e01e       |    |		Load	0x0,0x1e
0fd1 0257       | W  |		Execute	Discrete,Raise
0fd2 e2a0       |    |		Load	0x1,0xa0
0fd3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0fd4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0fd5 8408       |    |		Call	0x2,0x8
0fd6 a7fd       |    |		Store_Unchecked	0x3,-0x3
0fd7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fd8			TRAP_0fb8:
0fd8 e011       |    |		Load	0x0,0x11
0fd9 010f       |    |		Execute	Exception,Equal
0fda 6806       |h   |		Jump_Zero	0xfe1
0fdb e7ff       |    |		Load	0x3,-0x1
0fdc e29e       |    |		Load	0x1,0x9e
0fdd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0fde 8408       |    |		Call	0x2,0x8
0fdf a7fd       |    |		Store_Unchecked	0x3,-0x3
0fe0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fe1 e013       |    |		Load	0x0,0x13
0fe2 010f       |    |		Execute	Exception,Equal
0fe3 6803       |h   |		Jump_Zero	0xfe7
0fe4 4801       |H   |		Short_Literal	0x1
0fe5 a7fd       |    |		Store_Unchecked	0x3,-0x3
0fe6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fe7 e01e       |    |		Load	0x0,0x1e
0fe8 010f       |    |		Execute	Exception,Equal
0fe9 6803       |h   |		Jump_Zero	0xfed
0fea 4802       |H   |		Short_Literal	0x2
0feb a7fd       |    |		Store_Unchecked	0x3,-0x3
0fec 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0fed 0100       |    |		Execute	Exception,Raise
0fee 0000 0000  |    |		.XXX[0x2]
0ff0 ; --------------------------------------------------------------------------------------
0ff0 ; SUBPROGRAM
0ff0 ; --------------------------------------------------------------------------------------
0ff0 0ff3       |    |		.CONST	0x0ff3								; Address of begin
0ff1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ff2 0001       |    |		.CONST	0x0001								; Number of locals
0ff3			BODY_0ff0:
0ff3			INIT_0ff0:
0ff3 4607       |F   |		Jump_Case	0x8
0ff4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0ff5 7806       |x   |		Jump	0xffc								; case 0x1
0ff6 7809       |x   |		Jump	0x1000								; case 0x2
0ff7 780d       |x   |		Jump	0x1005								; case 0x3
0ff8 7810       |x   |		Jump	0x1009								; case 0x4
0ff9 7811       |x   |		Jump	0x100b								; case 0x5
0ffa 7812       |x   |		Jump	0x100d								; case 0x6
0ffb 7815       |x   |		Jump	0x1011								; case 0x7
0ffc 00da       |    |		Load_Top	At_Offset_2
0ffd 0091 1d77  |   w|		Action	Push_String_Extended_Indexed,0x1d77				; "SENTINEL"
0fff 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1000 00db       |    |		Load_Top	At_Offset_3
1001 00db       |    |		Load_Top	At_Offset_3
1002 00e0       |    |		Load_Encached	Standard_Cache
1003 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1004 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1005 00da       |    |		Load_Top	At_Offset_2
1006 00e0       |    |		Load_Encached	Standard_Cache
1007 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1008 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1009 00db       |    |		Load_Top	At_Offset_3
100a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
100b 00db       |    |		Load_Top	At_Offset_3
100c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
100d e405       |    |		Load	0x2,0x5
100e 00dc       |    |		Load_Top	At_Offset_4
100f 0267       | g  |		Execute	Discrete,Predecessor
1010 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1011 e405       |    |		Load	0x2,0x5
1012 00dc       |    |		Load_Top	At_Offset_4
1013 0268       | h  |		Execute	Discrete,Successor
1014 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1015 0000 0000  |    |		.XXX[0x3]
1017 0000       |    |
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 101b       |    |		.CONST	0x101b								; Address of begin
1019 0004       |    |		.CONST	0x0004								; Address of exception handler
101a 0001       |    |		.CONST	0x0001								; Number of locals
101b			BODY_1018:
101b			INIT_1018:
101b 4607       |F   |		Jump_Case	0x8
101c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
101d 7806       |x   |		Jump	0x1024								; case 0x1
101e 7809       |x   |		Jump	0x1028								; case 0x2
101f 780d       |x   |		Jump	0x102d								; case 0x3
1020 7810       |x   |		Jump	0x1031								; case 0x4
1021 7811       |x   |		Jump	0x1033								; case 0x5
1022 7812       |x   |		Jump	0x1035								; case 0x6
1023 7815       |x   |		Jump	0x1039								; case 0x7
1024 00da       |    |		Load_Top	At_Offset_2
1025 0091 1d7d  |   }|		Action	Push_String_Extended_Indexed,0x1d7d				; "NO_ERROR"
1027 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1028 00db       |    |		Load_Top	At_Offset_3
1029 00db       |    |		Load_Top	At_Offset_3
102a 00e0       |    |		Load_Encached	Standard_Cache
102b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
102c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
102d 00da       |    |		Load_Top	At_Offset_2
102e 00e0       |    |		Load_Encached	Standard_Cache
102f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1030 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1031 00db       |    |		Load_Top	At_Offset_3
1032 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1033 00db       |    |		Load_Top	At_Offset_3
1034 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1035 e406       |    |		Load	0x2,0x6
1036 00dc       |    |		Load_Top	At_Offset_4
1037 0267       | g  |		Execute	Discrete,Predecessor
1038 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1039 e406       |    |		Load	0x2,0x6
103a 00dc       |    |		Load_Top	At_Offset_4
103b 0268       | h  |		Execute	Discrete,Successor
103c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
103d 0000 0000  |    |		.XXX[0x3]
103f 0000       |    |
1040 ; --------------------------------------------------------------------------------------
1040 ; SUBPROGRAM
1040 ; --------------------------------------------------------------------------------------
1040 1045       | E  |		.CONST	0x1045								; Address of begin
1041 104e       | N  |		.CONST	0x104e								; Address of exception handler
1042 0002       |    |		.CONST	0x0002								; Number of locals
1043			INIT_1040:
1043 e405       |    |		Load	0x2,0x5
1044 0007       |    |		Action	Break_Optional
1045			BODY_1040:
1045 00db       |    |		Load_Top	At_Offset_3
1046 e29c       |    |		Load	0x1,0x9c
1047 011c       |    |		Execute	Any,Convert_Unchecked
1048 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1049 e405       |    |		Load	0x2,0x5
104a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
104b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
104c 00db       |    |		Load_Top	At_Offset_3
104d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
104e			TRAP_1040:
104e 0007       |    |		Action	Break_Optional
104f e01f       |    |		Load	0x0,0x1f
1050 0257       | W  |		Execute	Discrete,Raise
1051 0000 0000  |    |		.BLANK	0000[0x7]
1058 ; --------------------------------------------------------------------------------------
1058 ; SUBPROGRAM
1058 ; --------------------------------------------------------------------------------------
1058 105d       | ]  |		.CONST	0x105d								; Address of begin
1059 1066       | f  |		.CONST	0x1066								; Address of exception handler
105a 0002       |    |		.CONST	0x0002								; Number of locals
105b			INIT_1058:
105b e406       |    |		Load	0x2,0x6
105c 0007       |    |		Action	Break_Optional
105d			BODY_1058:
105d 00db       |    |		Load_Top	At_Offset_3
105e e26c       | l  |		Load	0x1,0x6c
105f 011c       |    |		Execute	Any,Convert_Unchecked
1060 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1061 e406       |    |		Load	0x2,0x6
1062 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1063 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1064 00db       |    |		Load_Top	At_Offset_3
1065 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1066			TRAP_1058:
1066 0007       |    |		Action	Break_Optional
1067 4802       |H   |		Short_Literal	0x2
1068 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1069 0000 0000  |    |		.BLANK	0000[0x7]
1070 ; --------------------------------------------------------------------------------------
1070 ; SUBPROGRAM
1070 ; --------------------------------------------------------------------------------------
1070 1076       | v  |		.CONST	0x1076								; Address of begin
1071 10bf       |    |		.CONST	0x10bf								; Address of exception handler
1072 0002       |    |		.CONST	0x0002								; Number of locals
1073			INIT_1070:
1073 00db       |    |		Load_Top	At_Offset_3
1074 00e3       |    |		Load_Encached	Natural_Cache
1075 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1076			BODY_1070:
1076 4800       |H   |		Short_Literal	0x0
1077 e5fd       |    |		Load	0x2,-0x3
1078 e29e       |    |		Load	0x1,0x9e
1079 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
107a e2a0       |    |		Load	0x1,0xa0
107b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
107c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
107d 8408       |    |		Call	0x2,0x8
107e a7fd       |    |		Store_Unchecked	0x3,-0x3
107f e7fd       |    |		Load	0x3,-0x3
1080 6809       |h   |		Jump_Zero	0x108a
1081 4801       |H   |		Short_Literal	0x1
1082 e5fd       |    |		Load	0x2,-0x3
1083 e29e       |    |		Load	0x1,0x9e
1084 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1085 4802       |H   |		Short_Literal	0x2
1086 e7ff       |    |		Load	0x3,-0x1
1087 e29e       |    |		Load	0x1,0x9e
1088 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1089 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
108a 4801       |H   |		Short_Literal	0x1
108b e7ff       |    |		Load	0x3,-0x1
108c e29e       |    |		Load	0x1,0x9e
108d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
108e 00d8       |    |		Load_Top	At_Offset_0
108f e7ff       |    |		Load	0x3,-0x1
1090 e29e       |    |		Load	0x1,0x9e
1091 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1092 480b       |H   |		Short_Literal	0xb
1093 e7ff       |    |		Load	0x3,-0x1
1094 e29e       |    |		Load	0x1,0x9e
1095 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1096 e5ff       |    |		Load	0x2,-0x1
1097 e7ff       |    |		Load	0x3,-0x1
1098 e29e       |    |		Load	0x1,0x9e
1099 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
109a 481c       |H   |		Short_Literal	0x1c
109b e7ff       |    |		Load	0x3,-0x1
109c e29e       |    |		Load	0x1,0x9e
109d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
109e e5fe       |    |		Load	0x2,-0x2
109f e7ff       |    |		Load	0x3,-0x1
10a0 e29e       |    |		Load	0x1,0x9e
10a1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
10a2 e2a0       |    |		Load	0x1,0xa0
10a3 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
10a4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
10a5 8408       |    |		Call	0x2,0x8
10a6 a7fd       |    |		Store_Unchecked	0x3,-0x3
10a7 e7fd       |    |		Load	0x3,-0x3
10a8 6809       |h   |		Jump_Zero	0x10b2
10a9 4801       |H   |		Short_Literal	0x1
10aa e5fd       |    |		Load	0x2,-0x3
10ab e29e       |    |		Load	0x1,0x9e
10ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
10ad 4802       |H   |		Short_Literal	0x2
10ae e7ff       |    |		Load	0x3,-0x1
10af e29e       |    |		Load	0x1,0x9e
10b0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
10b1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
10b2 4801       |H   |		Short_Literal	0x1
10b3 e7ff       |    |		Load	0x3,-0x1
10b4 e29e       |    |		Load	0x1,0x9e
10b5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
10b6 4801       |H   |		Short_Literal	0x1
10b7 e5fd       |    |		Load	0x2,-0x3
10b8 e29e       |    |		Load	0x1,0x9e
10b9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
10ba 00d8       |    |		Load_Top	At_Offset_0
10bb e7ff       |    |		Load	0x3,-0x1
10bc e29e       |    |		Load	0x1,0x9e
10bd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
10be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
10bf			TRAP_1070:
10bf e01f       |    |		Load	0x0,0x1f
10c0 010f       |    |		Execute	Exception,Equal
10c1 6803       |h   |		Jump_Zero	0x10c5
10c2 4802       |H   |		Short_Literal	0x2
10c3 a7fd       |    |		Store_Unchecked	0x3,-0x3
10c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
10c5 e013       |    |		Load	0x0,0x13
10c6 010f       |    |		Execute	Exception,Equal
10c7 6803       |h   |		Jump_Zero	0x10cb
10c8 4801       |H   |		Short_Literal	0x1
10c9 a7fd       |    |		Store_Unchecked	0x3,-0x3
10ca 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
10cb 0100       |    |		Execute	Exception,Raise
10cc 0000 0000  |    |		.BLANK	0000[0x4]
10d0 ; --------------------------------------------------------------------------------------
10d0 ; SUBPROGRAM
10d0 ; --------------------------------------------------------------------------------------
10d0 10d9       |    |		.CONST	0x10d9								; Address of begin
10d1 1107       |    |		.CONST	0x1107								; Address of exception handler
10d2 0004       |    |		.CONST	0x0004								; Number of locals
10d3			INIT_10d0:
10d3 00db       |    |		Load_Top	At_Offset_3
10d4 00e3       |    |		Load_Encached	Natural_Cache
10d5 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
10d6 e29c       |    |		Load	0x1,0x9c
10d7 0007       |    |		Action	Break_Optional
10d8 00e2       |    |		Load_Encached	Integer_Cache
10d9			BODY_10d0:
10d9 4800       |H   |		Short_Literal	0x0
10da a5fc       |    |		Store_Unchecked	0x2,-0x4
10db e7ff       |    |		Load	0x3,-0x1
10dc e29e       |    |		Load	0x1,0x9e
10dd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
10de 8407       |    |		Call	0x2,0x7
10df 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
10e0 00d9       |    |		Load_Top	At_Offset_1
10e1 0f08       |    |		Execute_Immediate	Equal,0x8
10e2 7002       |p   |		Jump_Nonzero	0x10e5
10e3 e01f       |    |		Load	0x0,0x1f
10e4 0257       | W  |		Execute	Discrete,Raise
10e5 e7ff       |    |		Load	0x3,-0x1
10e6 e29e       |    |		Load	0x1,0x9e
10e7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
10e8 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
10e9 00d8       |    |		Load_Top	At_Offset_0
10ea e2a0       |    |		Load	0x1,0xa0
10eb 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
10ec 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
10ed 00d8       |    |		Load_Top	At_Offset_0
10ee a5fc       |    |		Store_Unchecked	0x2,-0x4
10ef e7ff       |    |		Load	0x3,-0x1
10f0 e29e       |    |		Load	0x1,0x9e
10f1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
10f2 8407       |    |		Call	0x2,0x7
10f3 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
10f4 00d9       |    |		Load_Top	At_Offset_1
10f5 0f01       |    |		Execute_Immediate	Equal,0x1
10f6 7002       |p   |		Jump_Nonzero	0x10f9
10f7 e01f       |    |		Load	0x0,0x1f
10f8 0257       | W  |		Execute	Discrete,Raise
10f9 e7ff       |    |		Load	0x3,-0x1
10fa e29e       |    |		Load	0x1,0x9e
10fb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
10fc 00db       |    |		Load_Top	At_Offset_3
10fd 027f       |    |		Execute	Discrete,Equal
10fe 7002       |p   |		Jump_Nonzero	0x1101
10ff e01f       |    |		Load	0x0,0x1f
1100 0257       | W  |		Execute	Discrete,Raise
1101 e2a0       |    |		Load	0x1,0xa0
1102 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
1103 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1104 8408       |    |		Call	0x2,0x8
1105 a7fd       |    |		Store_Unchecked	0x3,-0x3
1106 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1107			TRAP_10d0:
1107 e011       |    |		Load	0x0,0x11
1108 010f       |    |		Execute	Exception,Equal
1109 6806       |h   |		Jump_Zero	0x1110
110a e7ff       |    |		Load	0x3,-0x1
110b e29e       |    |		Load	0x1,0x9e
110c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
110d 8408       |    |		Call	0x2,0x8
110e a7fd       |    |		Store_Unchecked	0x3,-0x3
110f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1110 e013       |    |		Load	0x0,0x13
1111 010f       |    |		Execute	Exception,Equal
1112 6803       |h   |		Jump_Zero	0x1116
1113 4801       |H   |		Short_Literal	0x1
1114 a7fd       |    |		Store_Unchecked	0x3,-0x3
1115 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1116 e01f       |    |		Load	0x0,0x1f
1117 010f       |    |		Execute	Exception,Equal
1118 6803       |h   |		Jump_Zero	0x111c
1119 4802       |H   |		Short_Literal	0x2
111a a7fd       |    |		Store_Unchecked	0x3,-0x3
111b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
111c 0100       |    |		Execute	Exception,Raise
111d 0000 0000  |    |		.XXX[0x3]
111f 0000       |    |
1120 ; --------------------------------------------------------------------------------------
1120 ; SUBPROGRAM
1120 ; --------------------------------------------------------------------------------------
1120 1123       | #  |		.CONST	0x1123								; Address of begin
1121 0004       |    |		.CONST	0x0004								; Address of exception handler
1122 0001       |    |		.CONST	0x0001								; Number of locals
1123			BODY_1120:
1123			INIT_1120:
1123 4607       |F   |		Jump_Case	0x8
1124 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1125 7806       |x   |		Jump	0x112c								; case 0x1
1126 7809       |x   |		Jump	0x1130								; case 0x2
1127 780d       |x   |		Jump	0x1135								; case 0x3
1128 7810       |x   |		Jump	0x1139								; case 0x4
1129 7811       |x   |		Jump	0x113b								; case 0x5
112a 7812       |x   |		Jump	0x113d								; case 0x6
112b 7815       |x   |		Jump	0x1141								; case 0x7
112c 00da       |    |		Load_Top	At_Offset_2
112d 0091 1d86  |    |		Action	Push_String_Extended_Indexed,0x1d86				; "SENTINEL"
112f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1130 00db       |    |		Load_Top	At_Offset_3
1131 00db       |    |		Load_Top	At_Offset_3
1132 00e0       |    |		Load_Encached	Standard_Cache
1133 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1134 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1135 00da       |    |		Load_Top	At_Offset_2
1136 00e0       |    |		Load_Encached	Standard_Cache
1137 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1138 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1139 00db       |    |		Load_Top	At_Offset_3
113a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
113b 00db       |    |		Load_Top	At_Offset_3
113c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
113d e405       |    |		Load	0x2,0x5
113e 00dc       |    |		Load_Top	At_Offset_4
113f 0267       | g  |		Execute	Discrete,Predecessor
1140 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1141 e405       |    |		Load	0x2,0x5
1142 00dc       |    |		Load_Top	At_Offset_4
1143 0268       | h  |		Execute	Discrete,Successor
1144 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1145 0000 0000  |    |		.XXX[0x3]
1147 0000       |    |
1148 ; --------------------------------------------------------------------------------------
1148 ; SUBPROGRAM
1148 ; --------------------------------------------------------------------------------------
1148 114b       | K  |		.CONST	0x114b								; Address of begin
1149 0004       |    |		.CONST	0x0004								; Address of exception handler
114a 0001       |    |		.CONST	0x0001								; Number of locals
114b			BODY_1148:
114b			INIT_1148:
114b 4607       |F   |		Jump_Case	0x8
114c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
114d 7806       |x   |		Jump	0x1154								; case 0x1
114e 7809       |x   |		Jump	0x1158								; case 0x2
114f 780d       |x   |		Jump	0x115d								; case 0x3
1150 7810       |x   |		Jump	0x1161								; case 0x4
1151 7811       |x   |		Jump	0x1163								; case 0x5
1152 7812       |x   |		Jump	0x1165								; case 0x6
1153 7815       |x   |		Jump	0x1169								; case 0x7
1154 00da       |    |		Load_Top	At_Offset_2
1155 0091 1d8a  |    |		Action	Push_String_Extended_Indexed,0x1d8a				; "NO_ERROR"
1157 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1158 00db       |    |		Load_Top	At_Offset_3
1159 00db       |    |		Load_Top	At_Offset_3
115a 00e0       |    |		Load_Encached	Standard_Cache
115b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
115c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
115d 00da       |    |		Load_Top	At_Offset_2
115e 00e0       |    |		Load_Encached	Standard_Cache
115f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1160 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1161 00db       |    |		Load_Top	At_Offset_3
1162 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1163 00db       |    |		Load_Top	At_Offset_3
1164 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1165 e406       |    |		Load	0x2,0x6
1166 00dc       |    |		Load_Top	At_Offset_4
1167 0267       | g  |		Execute	Discrete,Predecessor
1168 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1169 e406       |    |		Load	0x2,0x6
116a 00dc       |    |		Load_Top	At_Offset_4
116b 0268       | h  |		Execute	Discrete,Successor
116c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
116d 0000 0000  |    |		.XXX[0x3]
116f 0000       |    |
1170 ; --------------------------------------------------------------------------------------
1170 ; SUBPROGRAM
1170 ; --------------------------------------------------------------------------------------
1170 1175       | u  |		.CONST	0x1175								; Address of begin
1171 117e       | ~  |		.CONST	0x117e								; Address of exception handler
1172 0002       |    |		.CONST	0x0002								; Number of locals
1173			INIT_1170:
1173 e405       |    |		Load	0x2,0x5
1174 0007       |    |		Action	Break_Optional
1175			BODY_1170:
1175 00db       |    |		Load_Top	At_Offset_3
1176 e29c       |    |		Load	0x1,0x9c
1177 011c       |    |		Execute	Any,Convert_Unchecked
1178 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1179 e405       |    |		Load	0x2,0x5
117a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
117b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
117c 00db       |    |		Load_Top	At_Offset_3
117d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
117e			TRAP_1170:
117e 0007       |    |		Action	Break_Optional
117f e020       |    |		Load	0x0,0x20
1180 0257       | W  |		Execute	Discrete,Raise
1181 0000 0000  |    |		.BLANK	0000[0x7]
1188 ; --------------------------------------------------------------------------------------
1188 ; SUBPROGRAM
1188 ; --------------------------------------------------------------------------------------
1188 118d       |    |		.CONST	0x118d								; Address of begin
1189 1196       |    |		.CONST	0x1196								; Address of exception handler
118a 0002       |    |		.CONST	0x0002								; Number of locals
118b			INIT_1188:
118b e406       |    |		Load	0x2,0x6
118c 0007       |    |		Action	Break_Optional
118d			BODY_1188:
118d 00db       |    |		Load_Top	At_Offset_3
118e e26c       | l  |		Load	0x1,0x6c
118f 011c       |    |		Execute	Any,Convert_Unchecked
1190 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1191 e406       |    |		Load	0x2,0x6
1192 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1193 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1194 00db       |    |		Load_Top	At_Offset_3
1195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1196			TRAP_1188:
1196 0007       |    |		Action	Break_Optional
1197 4802       |H   |		Short_Literal	0x2
1198 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1199 0000 0000  |    |		.BLANK	0000[0x7]
11a0 ; --------------------------------------------------------------------------------------
11a0 ; SUBPROGRAM
11a0 ; --------------------------------------------------------------------------------------
11a0 11a6       |    |		.CONST	0x11a6								; Address of begin
11a1 11e7       |    |		.CONST	0x11e7								; Address of exception handler
11a2 0002       |    |		.CONST	0x0002								; Number of locals
11a3			INIT_11a0:
11a3 00db       |    |		Load_Top	At_Offset_3
11a4 00e3       |    |		Load_Encached	Natural_Cache
11a5 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
11a6			BODY_11a0:
11a6 4800       |H   |		Short_Literal	0x0
11a7 e5fe       |    |		Load	0x2,-0x2
11a8 e29e       |    |		Load	0x1,0x9e
11a9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11aa e2a0       |    |		Load	0x1,0xa0
11ab 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
11ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11ad 8408       |    |		Call	0x2,0x8
11ae a7fd       |    |		Store_Unchecked	0x3,-0x3
11af e7fd       |    |		Load	0x3,-0x3
11b0 6809       |h   |		Jump_Zero	0x11ba
11b1 4801       |H   |		Short_Literal	0x1
11b2 e5fe       |    |		Load	0x2,-0x2
11b3 e29e       |    |		Load	0x1,0x9e
11b4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11b5 4802       |H   |		Short_Literal	0x2
11b6 e7ff       |    |		Load	0x3,-0x1
11b7 e29e       |    |		Load	0x1,0x9e
11b8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
11b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
11ba 4801       |H   |		Short_Literal	0x1
11bb e7ff       |    |		Load	0x3,-0x1
11bc e29e       |    |		Load	0x1,0x9e
11bd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
11be 00d8       |    |		Load_Top	At_Offset_0
11bf e7ff       |    |		Load	0x3,-0x1
11c0 e29e       |    |		Load	0x1,0x9e
11c1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
11c2 480b       |H   |		Short_Literal	0xb
11c3 e7ff       |    |		Load	0x3,-0x1
11c4 e29e       |    |		Load	0x1,0x9e
11c5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
11c6 e5ff       |    |		Load	0x2,-0x1
11c7 e7ff       |    |		Load	0x3,-0x1
11c8 e29e       |    |		Load	0x1,0x9e
11c9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
11ca e2a0       |    |		Load	0x1,0xa0
11cb 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
11cc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11cd 8408       |    |		Call	0x2,0x8
11ce a7fd       |    |		Store_Unchecked	0x3,-0x3
11cf e7fd       |    |		Load	0x3,-0x3
11d0 6809       |h   |		Jump_Zero	0x11da
11d1 4801       |H   |		Short_Literal	0x1
11d2 e5fe       |    |		Load	0x2,-0x2
11d3 e29e       |    |		Load	0x1,0x9e
11d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11d5 4802       |H   |		Short_Literal	0x2
11d6 e7ff       |    |		Load	0x3,-0x1
11d7 e29e       |    |		Load	0x1,0x9e
11d8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
11d9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
11da 4801       |H   |		Short_Literal	0x1
11db e7ff       |    |		Load	0x3,-0x1
11dc e29e       |    |		Load	0x1,0x9e
11dd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
11de 4801       |H   |		Short_Literal	0x1
11df e5fe       |    |		Load	0x2,-0x2
11e0 e29e       |    |		Load	0x1,0x9e
11e1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
11e2 00d8       |    |		Load_Top	At_Offset_0
11e3 e7ff       |    |		Load	0x3,-0x1
11e4 e29e       |    |		Load	0x1,0x9e
11e5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
11e6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
11e7			TRAP_11a0:
11e7 e020       |    |		Load	0x0,0x20
11e8 010f       |    |		Execute	Exception,Equal
11e9 6803       |h   |		Jump_Zero	0x11ed
11ea 4802       |H   |		Short_Literal	0x2
11eb a7fd       |    |		Store_Unchecked	0x3,-0x3
11ec 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
11ed e013       |    |		Load	0x0,0x13
11ee 010f       |    |		Execute	Exception,Equal
11ef 6803       |h   |		Jump_Zero	0x11f3
11f0 4801       |H   |		Short_Literal	0x1
11f1 a7fd       |    |		Store_Unchecked	0x3,-0x3
11f2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
11f3 0100       |    |		Execute	Exception,Raise
11f4 0000 0000  |    |		.BLANK	0000[0x4]
11f8 ; --------------------------------------------------------------------------------------
11f8 ; SUBPROGRAM
11f8 ; --------------------------------------------------------------------------------------
11f8 1201       |    |		.CONST	0x1201								; Address of begin
11f9 122f       | /  |		.CONST	0x122f								; Address of exception handler
11fa 0004       |    |		.CONST	0x0004								; Number of locals
11fb			INIT_11f8:
11fb 00db       |    |		Load_Top	At_Offset_3
11fc 00e3       |    |		Load_Encached	Natural_Cache
11fd 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
11fe e29c       |    |		Load	0x1,0x9c
11ff 0007       |    |		Action	Break_Optional
1200 00e1       |    |		Load_Encached	Boolean_Cache
1201			BODY_11f8:
1201 4800       |H   |		Short_Literal	0x0
1202 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1203 e7ff       |    |		Load	0x3,-0x1
1204 e29e       |    |		Load	0x1,0x9e
1205 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1206 8407       |    |		Call	0x2,0x7
1207 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1208 00d9       |    |		Load_Top	At_Offset_1
1209 0f09       |    |		Execute_Immediate	Equal,0x9
120a 7002       |p   |		Jump_Nonzero	0x120d
120b e020       |    |		Load	0x0,0x20
120c 0257       | W  |		Execute	Discrete,Raise
120d e7ff       |    |		Load	0x3,-0x1
120e e29e       |    |		Load	0x1,0x9e
120f 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
1210 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1211 00d8       |    |		Load_Top	At_Offset_0
1212 e2a0       |    |		Load	0x1,0xa0
1213 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
1214 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
1215 00d8       |    |		Load_Top	At_Offset_0
1216 a5fd       |    |		Store_Unchecked	0x2,-0x3
1217 e7ff       |    |		Load	0x3,-0x1
1218 e29e       |    |		Load	0x1,0x9e
1219 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
121a 8407       |    |		Call	0x2,0x7
121b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
121c 00d9       |    |		Load_Top	At_Offset_1
121d 0f01       |    |		Execute_Immediate	Equal,0x1
121e 7002       |p   |		Jump_Nonzero	0x1221
121f e020       |    |		Load	0x0,0x20
1220 0257       | W  |		Execute	Discrete,Raise
1221 e7ff       |    |		Load	0x3,-0x1
1222 e29e       |    |		Load	0x1,0x9e
1223 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1224 00db       |    |		Load_Top	At_Offset_3
1225 027f       |    |		Execute	Discrete,Equal
1226 7002       |p   |		Jump_Nonzero	0x1229
1227 e020       |    |		Load	0x0,0x20
1228 0257       | W  |		Execute	Discrete,Raise
1229 e2a0       |    |		Load	0x1,0xa0
122a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
122b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
122c 8408       |    |		Call	0x2,0x8
122d a7fd       |    |		Store_Unchecked	0x3,-0x3
122e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
122f			TRAP_11f8:
122f e011       |    |		Load	0x0,0x11
1230 010f       |    |		Execute	Exception,Equal
1231 6806       |h   |		Jump_Zero	0x1238
1232 e7ff       |    |		Load	0x3,-0x1
1233 e29e       |    |		Load	0x1,0x9e
1234 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1235 8408       |    |		Call	0x2,0x8
1236 a7fd       |    |		Store_Unchecked	0x3,-0x3
1237 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1238 e013       |    |		Load	0x0,0x13
1239 010f       |    |		Execute	Exception,Equal
123a 6803       |h   |		Jump_Zero	0x123e
123b 4801       |H   |		Short_Literal	0x1
123c a7fd       |    |		Store_Unchecked	0x3,-0x3
123d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
123e e020       |    |		Load	0x0,0x20
123f 010f       |    |		Execute	Exception,Equal
1240 6803       |h   |		Jump_Zero	0x1244
1241 4802       |H   |		Short_Literal	0x2
1242 a7fd       |    |		Store_Unchecked	0x3,-0x3
1243 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1244 0100       |    |		Execute	Exception,Raise
1245 0000 0000  |    |		.XXX[0x3]
1247 0000       |    |
1248 ; --------------------------------------------------------------------------------------
1248 ; SUBPROGRAM
1248 ; --------------------------------------------------------------------------------------
1248 124b       | K  |		.CONST	0x124b								; Address of begin
1249 0004       |    |		.CONST	0x0004								; Address of exception handler
124a 0001       |    |		.CONST	0x0001								; Number of locals
124b			BODY_1248:
124b			INIT_1248:
124b 4607       |F   |		Jump_Case	0x8
124c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
124d 7806       |x   |		Jump	0x1254								; case 0x1
124e 7809       |x   |		Jump	0x1258								; case 0x2
124f 780d       |x   |		Jump	0x125d								; case 0x3
1250 7810       |x   |		Jump	0x1261								; case 0x4
1251 7811       |x   |		Jump	0x1263								; case 0x5
1252 7812       |x   |		Jump	0x1265								; case 0x6
1253 7815       |x   |		Jump	0x1269								; case 0x7
1254 00da       |    |		Load_Top	At_Offset_2
1255 0091 1d93  |    |		Action	Push_String_Extended_Indexed,0x1d93				; "SENTINEL"
1257 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1258 00db       |    |		Load_Top	At_Offset_3
1259 00db       |    |		Load_Top	At_Offset_3
125a 00e0       |    |		Load_Encached	Standard_Cache
125b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
125c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
125d 00da       |    |		Load_Top	At_Offset_2
125e 00e0       |    |		Load_Encached	Standard_Cache
125f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1260 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1261 00db       |    |		Load_Top	At_Offset_3
1262 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1263 00db       |    |		Load_Top	At_Offset_3
1264 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1265 e405       |    |		Load	0x2,0x5
1266 00dc       |    |		Load_Top	At_Offset_4
1267 0267       | g  |		Execute	Discrete,Predecessor
1268 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1269 e405       |    |		Load	0x2,0x5
126a 00dc       |    |		Load_Top	At_Offset_4
126b 0268       | h  |		Execute	Discrete,Successor
126c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
126d 0000 0000  |    |		.XXX[0x3]
126f 0000       |    |
1270 ; --------------------------------------------------------------------------------------
1270 ; SUBPROGRAM
1270 ; --------------------------------------------------------------------------------------
1270 1273       | s  |		.CONST	0x1273								; Address of begin
1271 0004       |    |		.CONST	0x0004								; Address of exception handler
1272 0001       |    |		.CONST	0x0001								; Number of locals
1273			BODY_1270:
1273			INIT_1270:
1273 4607       |F   |		Jump_Case	0x8
1274 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1275 7806       |x   |		Jump	0x127c								; case 0x1
1276 7809       |x   |		Jump	0x1280								; case 0x2
1277 780d       |x   |		Jump	0x1285								; case 0x3
1278 7810       |x   |		Jump	0x1289								; case 0x4
1279 7811       |x   |		Jump	0x128b								; case 0x5
127a 7812       |x   |		Jump	0x128d								; case 0x6
127b 7815       |x   |		Jump	0x1291								; case 0x7
127c 00da       |    |		Load_Top	At_Offset_2
127d 0091 1d99  |    |		Action	Push_String_Extended_Indexed,0x1d99				; "NO_ERROR"
127f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1280 00db       |    |		Load_Top	At_Offset_3
1281 00db       |    |		Load_Top	At_Offset_3
1282 00e0       |    |		Load_Encached	Standard_Cache
1283 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1284 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1285 00da       |    |		Load_Top	At_Offset_2
1286 00e0       |    |		Load_Encached	Standard_Cache
1287 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1288 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1289 00db       |    |		Load_Top	At_Offset_3
128a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
128b 00db       |    |		Load_Top	At_Offset_3
128c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
128d e406       |    |		Load	0x2,0x6
128e 00dc       |    |		Load_Top	At_Offset_4
128f 0267       | g  |		Execute	Discrete,Predecessor
1290 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1291 e406       |    |		Load	0x2,0x6
1292 00dc       |    |		Load_Top	At_Offset_4
1293 0268       | h  |		Execute	Discrete,Successor
1294 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1295 0000 0000  |    |		.XXX[0x3]
1297 0000       |    |
1298 ; --------------------------------------------------------------------------------------
1298 ; SUBPROGRAM
1298 ; --------------------------------------------------------------------------------------
1298 129d       |    |		.CONST	0x129d								; Address of begin
1299 12a6       |    |		.CONST	0x12a6								; Address of exception handler
129a 0002       |    |		.CONST	0x0002								; Number of locals
129b			INIT_1298:
129b e405       |    |		Load	0x2,0x5
129c 0007       |    |		Action	Break_Optional
129d			BODY_1298:
129d 00db       |    |		Load_Top	At_Offset_3
129e e29c       |    |		Load	0x1,0x9c
129f 011c       |    |		Execute	Any,Convert_Unchecked
12a0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
12a1 e405       |    |		Load	0x2,0x5
12a2 1c02       |    |		Execute_Immediate	Run_Utility,0x2
12a3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
12a4 00db       |    |		Load_Top	At_Offset_3
12a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
12a6			TRAP_1298:
12a6 0007       |    |		Action	Break_Optional
12a7 e021       | !  |		Load	0x0,0x21
12a8 0257       | W  |		Execute	Discrete,Raise
12a9 0000 0000  |    |		.BLANK	0000[0x7]
12b0 ; --------------------------------------------------------------------------------------
12b0 ; SUBPROGRAM
12b0 ; --------------------------------------------------------------------------------------
12b0 12b5       |    |		.CONST	0x12b5								; Address of begin
12b1 12be       |    |		.CONST	0x12be								; Address of exception handler
12b2 0002       |    |		.CONST	0x0002								; Number of locals
12b3			INIT_12b0:
12b3 e406       |    |		Load	0x2,0x6
12b4 0007       |    |		Action	Break_Optional
12b5			BODY_12b0:
12b5 00db       |    |		Load_Top	At_Offset_3
12b6 e26c       | l  |		Load	0x1,0x6c
12b7 011c       |    |		Execute	Any,Convert_Unchecked
12b8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
12b9 e406       |    |		Load	0x2,0x6
12ba 1c02       |    |		Execute_Immediate	Run_Utility,0x2
12bb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
12bc 00db       |    |		Load_Top	At_Offset_3
12bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
12be			TRAP_12b0:
12be 0007       |    |		Action	Break_Optional
12bf 4802       |H   |		Short_Literal	0x2
12c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
12c1 0000 0000  |    |		.BLANK	0000[0x7]
12c8 ; --------------------------------------------------------------------------------------
12c8 ; SUBPROGRAM
12c8 ; --------------------------------------------------------------------------------------
12c8 12ce       |    |		.CONST	0x12ce								; Address of begin
12c9 1327       | '  |		.CONST	0x1327								; Address of exception handler
12ca 0002       |    |		.CONST	0x0002								; Number of locals
12cb			INIT_12c8:
12cb 00db       |    |		Load_Top	At_Offset_3
12cc 00e3       |    |		Load_Encached	Natural_Cache
12cd 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
12ce			BODY_12c8:
12ce 4800       |H   |		Short_Literal	0x0
12cf e5fb       |    |		Load	0x2,-0x5
12d0 e29e       |    |		Load	0x1,0x9e
12d1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
12d2 e2a0       |    |		Load	0x1,0xa0
12d3 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
12d4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
12d5 8408       |    |		Call	0x2,0x8
12d6 a7fd       |    |		Store_Unchecked	0x3,-0x3
12d7 e7fd       |    |		Load	0x3,-0x3
12d8 6809       |h   |		Jump_Zero	0x12e2
12d9 4801       |H   |		Short_Literal	0x1
12da e5fb       |    |		Load	0x2,-0x5
12db e29e       |    |		Load	0x1,0x9e
12dc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
12dd 4802       |H   |		Short_Literal	0x2
12de e7ff       |    |		Load	0x3,-0x1
12df e29e       |    |		Load	0x1,0x9e
12e0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
12e2 4801       |H   |		Short_Literal	0x1
12e3 e7ff       |    |		Load	0x3,-0x1
12e4 e29e       |    |		Load	0x1,0x9e
12e5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12e6 00d8       |    |		Load_Top	At_Offset_0
12e7 e7ff       |    |		Load	0x3,-0x1
12e8 e29e       |    |		Load	0x1,0x9e
12e9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
12ea 480c       |H   |		Short_Literal	0xc
12eb e7ff       |    |		Load	0x3,-0x1
12ec e29e       |    |		Load	0x1,0x9e
12ed 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12ee e5fd       |    |		Load	0x2,-0x3
12ef e7ff       |    |		Load	0x3,-0x1
12f0 e29e       |    |		Load	0x1,0x9e
12f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
12f2 4807       |H   |		Short_Literal	0x7
12f3 e7ff       |    |		Load	0x3,-0x1
12f4 e29e       |    |		Load	0x1,0x9e
12f5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12f6 e5ff       |    |		Load	0x2,-0x1
12f7 e7ff       |    |		Load	0x3,-0x1
12f8 e29e       |    |		Load	0x1,0x9e
12f9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
12fa 4806       |H   |		Short_Literal	0x6
12fb e7ff       |    |		Load	0x3,-0x1
12fc e29e       |    |		Load	0x1,0x9e
12fd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
12fe e5fe       |    |		Load	0x2,-0x2
12ff e7ff       |    |		Load	0x3,-0x1
1300 e29e       |    |		Load	0x1,0x9e
1301 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1302 481c       |H   |		Short_Literal	0x1c
1303 e7ff       |    |		Load	0x3,-0x1
1304 e29e       |    |		Load	0x1,0x9e
1305 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1306 e5fc       |    |		Load	0x2,-0x4
1307 e7ff       |    |		Load	0x3,-0x1
1308 e29e       |    |		Load	0x1,0x9e
1309 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
130a e2a0       |    |		Load	0x1,0xa0
130b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
130c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
130d 8408       |    |		Call	0x2,0x8
130e a7fd       |    |		Store_Unchecked	0x3,-0x3
130f e7fd       |    |		Load	0x3,-0x3
1310 6809       |h   |		Jump_Zero	0x131a
1311 4801       |H   |		Short_Literal	0x1
1312 e5fb       |    |		Load	0x2,-0x5
1313 e29e       |    |		Load	0x1,0x9e
1314 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1315 4802       |H   |		Short_Literal	0x2
1316 e7ff       |    |		Load	0x3,-0x1
1317 e29e       |    |		Load	0x1,0x9e
1318 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1319 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
131a 4801       |H   |		Short_Literal	0x1
131b e7ff       |    |		Load	0x3,-0x1
131c e29e       |    |		Load	0x1,0x9e
131d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
131e 4801       |H   |		Short_Literal	0x1
131f e5fb       |    |		Load	0x2,-0x5
1320 e29e       |    |		Load	0x1,0x9e
1321 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1322 00d8       |    |		Load_Top	At_Offset_0
1323 e7ff       |    |		Load	0x3,-0x1
1324 e29e       |    |		Load	0x1,0x9e
1325 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1326 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1327			TRAP_12c8:
1327 e021       | !  |		Load	0x0,0x21
1328 010f       |    |		Execute	Exception,Equal
1329 6803       |h   |		Jump_Zero	0x132d
132a 4802       |H   |		Short_Literal	0x2
132b a7fd       |    |		Store_Unchecked	0x3,-0x3
132c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
132d e013       |    |		Load	0x0,0x13
132e 010f       |    |		Execute	Exception,Equal
132f 6803       |h   |		Jump_Zero	0x1333
1330 4801       |H   |		Short_Literal	0x1
1331 a7fd       |    |		Store_Unchecked	0x3,-0x3
1332 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1333 0100       |    |		Execute	Exception,Raise
1334 0000 0000  |    |		.BLANK	0000[0x4]
1338 ; --------------------------------------------------------------------------------------
1338 ; SUBPROGRAM
1338 ; --------------------------------------------------------------------------------------
1338 1340       | @  |		.CONST	0x1340								; Address of begin
1339 1358       | X  |		.CONST	0x1358								; Address of exception handler
133a 0003       |    |		.CONST	0x0003								; Number of locals
133b			INIT_1338:
133b 00db       |    |		Load_Top	At_Offset_3
133c 00e3       |    |		Load_Encached	Natural_Cache
133d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
133e e29c       |    |		Load	0x1,0x9c
133f 0007       |    |		Action	Break_Optional
1340			BODY_1338:
1340 e7ff       |    |		Load	0x3,-0x1
1341 e29e       |    |		Load	0x1,0x9e
1342 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1343 8407       |    |		Call	0x2,0x7
1344 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1345 00d8       |    |		Load_Top	At_Offset_0
1346 0f01       |    |		Execute_Immediate	Equal,0x1
1347 7002       |p   |		Jump_Nonzero	0x134a
1348 e021       | !  |		Load	0x0,0x21
1349 0257       | W  |		Execute	Discrete,Raise
134a e7ff       |    |		Load	0x3,-0x1
134b e29e       |    |		Load	0x1,0x9e
134c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
134d 00da       |    |		Load_Top	At_Offset_2
134e 027f       |    |		Execute	Discrete,Equal
134f 7002       |p   |		Jump_Nonzero	0x1352
1350 e021       | !  |		Load	0x0,0x21
1351 0257       | W  |		Execute	Discrete,Raise
1352 e2a0       |    |		Load	0x1,0xa0
1353 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
1354 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1355 8408       |    |		Call	0x2,0x8
1356 a7fd       |    |		Store_Unchecked	0x3,-0x3
1357 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1358			TRAP_1338:
1358 e011       |    |		Load	0x0,0x11
1359 010f       |    |		Execute	Exception,Equal
135a 6806       |h   |		Jump_Zero	0x1361
135b e7ff       |    |		Load	0x3,-0x1
135c e29e       |    |		Load	0x1,0x9e
135d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
135e 8408       |    |		Call	0x2,0x8
135f a7fd       |    |		Store_Unchecked	0x3,-0x3
1360 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1361 e013       |    |		Load	0x0,0x13
1362 010f       |    |		Execute	Exception,Equal
1363 6803       |h   |		Jump_Zero	0x1367
1364 4801       |H   |		Short_Literal	0x1
1365 a7fd       |    |		Store_Unchecked	0x3,-0x3
1366 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1367 e021       | !  |		Load	0x0,0x21
1368 010f       |    |		Execute	Exception,Equal
1369 6803       |h   |		Jump_Zero	0x136d
136a 4802       |H   |		Short_Literal	0x2
136b a7fd       |    |		Store_Unchecked	0x3,-0x3
136c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
136d 0100       |    |		Execute	Exception,Raise
136e 0000 0000  |    |		.XXX[0x2]
1370 ; --------------------------------------------------------------------------------------
1370 ; SUBPROGRAM
1370 ; --------------------------------------------------------------------------------------
1370 1373       | s  |		.CONST	0x1373								; Address of begin
1371 0004       |    |		.CONST	0x0004								; Address of exception handler
1372 0001       |    |		.CONST	0x0001								; Number of locals
1373			BODY_1370:
1373			INIT_1370:
1373 4607       |F   |		Jump_Case	0x8
1374 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1375 7806       |x   |		Jump	0x137c								; case 0x1
1376 7809       |x   |		Jump	0x1380								; case 0x2
1377 780d       |x   |		Jump	0x1385								; case 0x3
1378 7810       |x   |		Jump	0x1389								; case 0x4
1379 7811       |x   |		Jump	0x138b								; case 0x5
137a 7812       |x   |		Jump	0x138d								; case 0x6
137b 7815       |x   |		Jump	0x1391								; case 0x7
137c 00da       |    |		Load_Top	At_Offset_2
137d 0091 1da4  |    |		Action	Push_String_Extended_Indexed,0x1da4				; "SENTINEL"
137f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1380 00db       |    |		Load_Top	At_Offset_3
1381 00db       |    |		Load_Top	At_Offset_3
1382 00e0       |    |		Load_Encached	Standard_Cache
1383 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1384 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1385 00da       |    |		Load_Top	At_Offset_2
1386 00e0       |    |		Load_Encached	Standard_Cache
1387 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1388 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1389 00db       |    |		Load_Top	At_Offset_3
138a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
138b 00db       |    |		Load_Top	At_Offset_3
138c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
138d e405       |    |		Load	0x2,0x5
138e 00dc       |    |		Load_Top	At_Offset_4
138f 0267       | g  |		Execute	Discrete,Predecessor
1390 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1391 e405       |    |		Load	0x2,0x5
1392 00dc       |    |		Load_Top	At_Offset_4
1393 0268       | h  |		Execute	Discrete,Successor
1394 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1395 0000 0000  |    |		.XXX[0x3]
1397 0000       |    |
1398 ; --------------------------------------------------------------------------------------
1398 ; SUBPROGRAM
1398 ; --------------------------------------------------------------------------------------
1398 139b       |    |		.CONST	0x139b								; Address of begin
1399 0004       |    |		.CONST	0x0004								; Address of exception handler
139a 0001       |    |		.CONST	0x0001								; Number of locals
139b			BODY_1398:
139b			INIT_1398:
139b 4607       |F   |		Jump_Case	0x8
139c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
139d 7806       |x   |		Jump	0x13a4								; case 0x1
139e 7809       |x   |		Jump	0x13a8								; case 0x2
139f 780d       |x   |		Jump	0x13ad								; case 0x3
13a0 7810       |x   |		Jump	0x13b1								; case 0x4
13a1 7811       |x   |		Jump	0x13b3								; case 0x5
13a2 7812       |x   |		Jump	0x13b5								; case 0x6
13a3 7815       |x   |		Jump	0x13b9								; case 0x7
13a4 00da       |    |		Load_Top	At_Offset_2
13a5 0091 1daa  |    |		Action	Push_String_Extended_Indexed,0x1daa				; "NO_ERROR"
13a7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
13a8 00db       |    |		Load_Top	At_Offset_3
13a9 00db       |    |		Load_Top	At_Offset_3
13aa 00e0       |    |		Load_Encached	Standard_Cache
13ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
13ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
13ad 00da       |    |		Load_Top	At_Offset_2
13ae 00e0       |    |		Load_Encached	Standard_Cache
13af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
13b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
13b1 00db       |    |		Load_Top	At_Offset_3
13b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
13b3 00db       |    |		Load_Top	At_Offset_3
13b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
13b5 e406       |    |		Load	0x2,0x6
13b6 00dc       |    |		Load_Top	At_Offset_4
13b7 0267       | g  |		Execute	Discrete,Predecessor
13b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
13b9 e406       |    |		Load	0x2,0x6
13ba 00dc       |    |		Load_Top	At_Offset_4
13bb 0268       | h  |		Execute	Discrete,Successor
13bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
13bd 0000 0000  |    |		.XXX[0x3]
13bf 0000       |    |
13c0 ; --------------------------------------------------------------------------------------
13c0 ; SUBPROGRAM
13c0 ; --------------------------------------------------------------------------------------
13c0 13c5       |    |		.CONST	0x13c5								; Address of begin
13c1 13ce       |    |		.CONST	0x13ce								; Address of exception handler
13c2 0002       |    |		.CONST	0x0002								; Number of locals
13c3			INIT_13c0:
13c3 e405       |    |		Load	0x2,0x5
13c4 0007       |    |		Action	Break_Optional
13c5			BODY_13c0:
13c5 00db       |    |		Load_Top	At_Offset_3
13c6 e29c       |    |		Load	0x1,0x9c
13c7 011c       |    |		Execute	Any,Convert_Unchecked
13c8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
13c9 e405       |    |		Load	0x2,0x5
13ca 1c02       |    |		Execute_Immediate	Run_Utility,0x2
13cb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
13cc 00db       |    |		Load_Top	At_Offset_3
13cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
13ce			TRAP_13c0:
13ce 0007       |    |		Action	Break_Optional
13cf e022       | "  |		Load	0x0,0x22
13d0 0257       | W  |		Execute	Discrete,Raise
13d1 0000 0000  |    |		.BLANK	0000[0x7]
13d8 ; --------------------------------------------------------------------------------------
13d8 ; SUBPROGRAM
13d8 ; --------------------------------------------------------------------------------------
13d8 13dd       |    |		.CONST	0x13dd								; Address of begin
13d9 13e6       |    |		.CONST	0x13e6								; Address of exception handler
13da 0002       |    |		.CONST	0x0002								; Number of locals
13db			INIT_13d8:
13db e406       |    |		Load	0x2,0x6
13dc 0007       |    |		Action	Break_Optional
13dd			BODY_13d8:
13dd 00db       |    |		Load_Top	At_Offset_3
13de e26c       | l  |		Load	0x1,0x6c
13df 011c       |    |		Execute	Any,Convert_Unchecked
13e0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
13e1 e406       |    |		Load	0x2,0x6
13e2 1c02       |    |		Execute_Immediate	Run_Utility,0x2
13e3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
13e4 00db       |    |		Load_Top	At_Offset_3
13e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
13e6			TRAP_13d8:
13e6 0007       |    |		Action	Break_Optional
13e7 4802       |H   |		Short_Literal	0x2
13e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
13e9 0000 0000  |    |		.BLANK	0000[0x7]
13f0 ; --------------------------------------------------------------------------------------
13f0 ; SUBPROGRAM
13f0 ; --------------------------------------------------------------------------------------
13f0 13f6       |    |		.CONST	0x13f6								; Address of begin
13f1 1447       | G  |		.CONST	0x1447								; Address of exception handler
13f2 0002       |    |		.CONST	0x0002								; Number of locals
13f3			INIT_13f0:
13f3 00db       |    |		Load_Top	At_Offset_3
13f4 00e3       |    |		Load_Encached	Natural_Cache
13f5 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
13f6			BODY_13f0:
13f6 4800       |H   |		Short_Literal	0x0
13f7 e5fc       |    |		Load	0x2,-0x4
13f8 e29e       |    |		Load	0x1,0x9e
13f9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
13fa e2a0       |    |		Load	0x1,0xa0
13fb 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
13fc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
13fd 8408       |    |		Call	0x2,0x8
13fe a7fd       |    |		Store_Unchecked	0x3,-0x3
13ff e7fd       |    |		Load	0x3,-0x3
1400 6809       |h   |		Jump_Zero	0x140a
1401 4801       |H   |		Short_Literal	0x1
1402 e5fc       |    |		Load	0x2,-0x4
1403 e29e       |    |		Load	0x1,0x9e
1404 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1405 4802       |H   |		Short_Literal	0x2
1406 e7ff       |    |		Load	0x3,-0x1
1407 e29e       |    |		Load	0x1,0x9e
1408 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1409 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
140a 4801       |H   |		Short_Literal	0x1
140b e7ff       |    |		Load	0x3,-0x1
140c e29e       |    |		Load	0x1,0x9e
140d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
140e 00d8       |    |		Load_Top	At_Offset_0
140f e7ff       |    |		Load	0x3,-0x1
1410 e29e       |    |		Load	0x1,0x9e
1411 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1412 481a       |H   |		Short_Literal	0x1a
1413 e7ff       |    |		Load	0x3,-0x1
1414 e29e       |    |		Load	0x1,0x9e
1415 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1416 e5fe       |    |		Load	0x2,-0x2
1417 e7ff       |    |		Load	0x3,-0x1
1418 e29e       |    |		Load	0x1,0x9e
1419 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
141a 4804       |H   |		Short_Literal	0x4
141b e7ff       |    |		Load	0x3,-0x1
141c e29e       |    |		Load	0x1,0x9e
141d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
141e e5ff       |    |		Load	0x2,-0x1
141f e7ff       |    |		Load	0x3,-0x1
1420 e29e       |    |		Load	0x1,0x9e
1421 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1422 481c       |H   |		Short_Literal	0x1c
1423 e7ff       |    |		Load	0x3,-0x1
1424 e29e       |    |		Load	0x1,0x9e
1425 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1426 e5fd       |    |		Load	0x2,-0x3
1427 e7ff       |    |		Load	0x3,-0x1
1428 e29e       |    |		Load	0x1,0x9e
1429 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
142a e2a0       |    |		Load	0x1,0xa0
142b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
142c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
142d 8408       |    |		Call	0x2,0x8
142e a7fd       |    |		Store_Unchecked	0x3,-0x3
142f e7fd       |    |		Load	0x3,-0x3
1430 6809       |h   |		Jump_Zero	0x143a
1431 4801       |H   |		Short_Literal	0x1
1432 e5fc       |    |		Load	0x2,-0x4
1433 e29e       |    |		Load	0x1,0x9e
1434 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1435 4802       |H   |		Short_Literal	0x2
1436 e7ff       |    |		Load	0x3,-0x1
1437 e29e       |    |		Load	0x1,0x9e
1438 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1439 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
143a 4801       |H   |		Short_Literal	0x1
143b e7ff       |    |		Load	0x3,-0x1
143c e29e       |    |		Load	0x1,0x9e
143d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
143e 4801       |H   |		Short_Literal	0x1
143f e5fc       |    |		Load	0x2,-0x4
1440 e29e       |    |		Load	0x1,0x9e
1441 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1442 00d8       |    |		Load_Top	At_Offset_0
1443 e7ff       |    |		Load	0x3,-0x1
1444 e29e       |    |		Load	0x1,0x9e
1445 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1446 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1447			TRAP_13f0:
1447 e022       | "  |		Load	0x0,0x22
1448 010f       |    |		Execute	Exception,Equal
1449 6803       |h   |		Jump_Zero	0x144d
144a 4802       |H   |		Short_Literal	0x2
144b a7fd       |    |		Store_Unchecked	0x3,-0x3
144c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
144d e013       |    |		Load	0x0,0x13
144e 010f       |    |		Execute	Exception,Equal
144f 6803       |h   |		Jump_Zero	0x1453
1450 4801       |H   |		Short_Literal	0x1
1451 a7fd       |    |		Store_Unchecked	0x3,-0x3
1452 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1453 0100       |    |		Execute	Exception,Raise
1454 0000 0000  |    |		.BLANK	0000[0x4]
1458 ; --------------------------------------------------------------------------------------
1458 ; SUBPROGRAM
1458 ; --------------------------------------------------------------------------------------
1458 1460       | `  |		.CONST	0x1460								; Address of begin
1459 1478       | x  |		.CONST	0x1478								; Address of exception handler
145a 0003       |    |		.CONST	0x0003								; Number of locals
145b			INIT_1458:
145b 00db       |    |		Load_Top	At_Offset_3
145c 00e3       |    |		Load_Encached	Natural_Cache
145d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
145e e29c       |    |		Load	0x1,0x9c
145f 0007       |    |		Action	Break_Optional
1460			BODY_1458:
1460 e7ff       |    |		Load	0x3,-0x1
1461 e29e       |    |		Load	0x1,0x9e
1462 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1463 8407       |    |		Call	0x2,0x7
1464 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1465 00d8       |    |		Load_Top	At_Offset_0
1466 0f01       |    |		Execute_Immediate	Equal,0x1
1467 7002       |p   |		Jump_Nonzero	0x146a
1468 e022       | "  |		Load	0x0,0x22
1469 0257       | W  |		Execute	Discrete,Raise
146a e7ff       |    |		Load	0x3,-0x1
146b e29e       |    |		Load	0x1,0x9e
146c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
146d 00da       |    |		Load_Top	At_Offset_2
146e 027f       |    |		Execute	Discrete,Equal
146f 7002       |p   |		Jump_Nonzero	0x1472
1470 e022       | "  |		Load	0x0,0x22
1471 0257       | W  |		Execute	Discrete,Raise
1472 e2a0       |    |		Load	0x1,0xa0
1473 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
1474 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1475 8408       |    |		Call	0x2,0x8
1476 a7fd       |    |		Store_Unchecked	0x3,-0x3
1477 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1478			TRAP_1458:
1478 e011       |    |		Load	0x0,0x11
1479 010f       |    |		Execute	Exception,Equal
147a 6806       |h   |		Jump_Zero	0x1481
147b e7ff       |    |		Load	0x3,-0x1
147c e29e       |    |		Load	0x1,0x9e
147d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
147e 8408       |    |		Call	0x2,0x8
147f a7fd       |    |		Store_Unchecked	0x3,-0x3
1480 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1481 e013       |    |		Load	0x0,0x13
1482 010f       |    |		Execute	Exception,Equal
1483 6803       |h   |		Jump_Zero	0x1487
1484 4801       |H   |		Short_Literal	0x1
1485 a7fd       |    |		Store_Unchecked	0x3,-0x3
1486 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1487 e022       | "  |		Load	0x0,0x22
1488 010f       |    |		Execute	Exception,Equal
1489 6803       |h   |		Jump_Zero	0x148d
148a 4802       |H   |		Short_Literal	0x2
148b a7fd       |    |		Store_Unchecked	0x3,-0x3
148c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
148d 0100       |    |		Execute	Exception,Raise
148e 0000 0000  |    |		.XXX[0x2]
1490 ; --------------------------------------------------------------------------------------
1490 ; SUBPROGRAM
1490 ; --------------------------------------------------------------------------------------
1490 1493       |    |		.CONST	0x1493								; Address of begin
1491 0004       |    |		.CONST	0x0004								; Address of exception handler
1492 0001       |    |		.CONST	0x0001								; Number of locals
1493			BODY_1490:
1493			INIT_1490:
1493 4607       |F   |		Jump_Case	0x8
1494 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1495 7806       |x   |		Jump	0x149c								; case 0x1
1496 7809       |x   |		Jump	0x14a0								; case 0x2
1497 780d       |x   |		Jump	0x14a5								; case 0x3
1498 7810       |x   |		Jump	0x14a9								; case 0x4
1499 7811       |x   |		Jump	0x14ab								; case 0x5
149a 7812       |x   |		Jump	0x14ad								; case 0x6
149b 7815       |x   |		Jump	0x14b1								; case 0x7
149c 00da       |    |		Load_Top	At_Offset_2
149d 0091 1db4  |    |		Action	Push_String_Extended_Indexed,0x1db4				; "SENTINEL"
149f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
14a0 00db       |    |		Load_Top	At_Offset_3
14a1 00db       |    |		Load_Top	At_Offset_3
14a2 00e0       |    |		Load_Encached	Standard_Cache
14a3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
14a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14a5 00da       |    |		Load_Top	At_Offset_2
14a6 00e0       |    |		Load_Encached	Standard_Cache
14a7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
14a8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
14a9 00db       |    |		Load_Top	At_Offset_3
14aa 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14ab 00db       |    |		Load_Top	At_Offset_3
14ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14ad e405       |    |		Load	0x2,0x5
14ae 00dc       |    |		Load_Top	At_Offset_4
14af 0267       | g  |		Execute	Discrete,Predecessor
14b0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14b1 e405       |    |		Load	0x2,0x5
14b2 00dc       |    |		Load_Top	At_Offset_4
14b3 0268       | h  |		Execute	Discrete,Successor
14b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14b5 0000 0000  |    |		.XXX[0x3]
14b7 0000       |    |
14b8 ; --------------------------------------------------------------------------------------
14b8 ; SUBPROGRAM
14b8 ; --------------------------------------------------------------------------------------
14b8 14bb       |    |		.CONST	0x14bb								; Address of begin
14b9 0004       |    |		.CONST	0x0004								; Address of exception handler
14ba 0001       |    |		.CONST	0x0001								; Number of locals
14bb			BODY_14b8:
14bb			INIT_14b8:
14bb 4607       |F   |		Jump_Case	0x8
14bc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
14bd 7806       |x   |		Jump	0x14c4								; case 0x1
14be 7809       |x   |		Jump	0x14c8								; case 0x2
14bf 780d       |x   |		Jump	0x14cd								; case 0x3
14c0 7810       |x   |		Jump	0x14d1								; case 0x4
14c1 7811       |x   |		Jump	0x14d3								; case 0x5
14c2 7812       |x   |		Jump	0x14d5								; case 0x6
14c3 7815       |x   |		Jump	0x14d9								; case 0x7
14c4 00da       |    |		Load_Top	At_Offset_2
14c5 0091 1db9  |    |		Action	Push_String_Extended_Indexed,0x1db9				; "NO_ERROR"
14c7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
14c8 00db       |    |		Load_Top	At_Offset_3
14c9 00db       |    |		Load_Top	At_Offset_3
14ca 00e0       |    |		Load_Encached	Standard_Cache
14cb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
14cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14cd 00da       |    |		Load_Top	At_Offset_2
14ce 00e0       |    |		Load_Encached	Standard_Cache
14cf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
14d0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
14d1 00db       |    |		Load_Top	At_Offset_3
14d2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14d3 00db       |    |		Load_Top	At_Offset_3
14d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14d5 e406       |    |		Load	0x2,0x6
14d6 00dc       |    |		Load_Top	At_Offset_4
14d7 0267       | g  |		Execute	Discrete,Predecessor
14d8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14d9 e406       |    |		Load	0x2,0x6
14da 00dc       |    |		Load_Top	At_Offset_4
14db 0268       | h  |		Execute	Discrete,Successor
14dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
14dd 0000 0000  |    |		.XXX[0x3]
14df 0000       |    |
14e0 ; --------------------------------------------------------------------------------------
14e0 ; SUBPROGRAM
14e0 ; --------------------------------------------------------------------------------------
14e0 14e5       |    |		.CONST	0x14e5								; Address of begin
14e1 14ee       |    |		.CONST	0x14ee								; Address of exception handler
14e2 0002       |    |		.CONST	0x0002								; Number of locals
14e3			INIT_14e0:
14e3 e405       |    |		Load	0x2,0x5
14e4 0007       |    |		Action	Break_Optional
14e5			BODY_14e0:
14e5 00db       |    |		Load_Top	At_Offset_3
14e6 e29c       |    |		Load	0x1,0x9c
14e7 011c       |    |		Execute	Any,Convert_Unchecked
14e8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
14e9 e405       |    |		Load	0x2,0x5
14ea 1c02       |    |		Execute_Immediate	Run_Utility,0x2
14eb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
14ec 00db       |    |		Load_Top	At_Offset_3
14ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
14ee			TRAP_14e0:
14ee 0007       |    |		Action	Break_Optional
14ef e023       | #  |		Load	0x0,0x23
14f0 0257       | W  |		Execute	Discrete,Raise
14f1 0000 0000  |    |		.BLANK	0000[0x7]
14f8 ; --------------------------------------------------------------------------------------
14f8 ; SUBPROGRAM
14f8 ; --------------------------------------------------------------------------------------
14f8 14fd       |    |		.CONST	0x14fd								; Address of begin
14f9 1506       |    |		.CONST	0x1506								; Address of exception handler
14fa 0002       |    |		.CONST	0x0002								; Number of locals
14fb			INIT_14f8:
14fb e406       |    |		Load	0x2,0x6
14fc 0007       |    |		Action	Break_Optional
14fd			BODY_14f8:
14fd 00db       |    |		Load_Top	At_Offset_3
14fe e26c       | l  |		Load	0x1,0x6c
14ff 011c       |    |		Execute	Any,Convert_Unchecked
1500 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1501 e406       |    |		Load	0x2,0x6
1502 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1503 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1504 00db       |    |		Load_Top	At_Offset_3
1505 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1506			TRAP_14f8:
1506 0007       |    |		Action	Break_Optional
1507 4802       |H   |		Short_Literal	0x2
1508 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1509 0000 0000  |    |		.BLANK	0000[0x7]
1510 ; --------------------------------------------------------------------------------------
1510 ; SUBPROGRAM
1510 ; --------------------------------------------------------------------------------------
1510 1516       |    |		.CONST	0x1516								; Address of begin
1511 1567       | g  |		.CONST	0x1567								; Address of exception handler
1512 0002       |    |		.CONST	0x0002								; Number of locals
1513			INIT_1510:
1513 00db       |    |		Load_Top	At_Offset_3
1514 00e3       |    |		Load_Encached	Natural_Cache
1515 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1516			BODY_1510:
1516 4800       |H   |		Short_Literal	0x0
1517 e5fc       |    |		Load	0x2,-0x4
1518 e29e       |    |		Load	0x1,0x9e
1519 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
151a e2a0       |    |		Load	0x1,0xa0
151b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
151c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
151d 8408       |    |		Call	0x2,0x8
151e a7fd       |    |		Store_Unchecked	0x3,-0x3
151f e7fd       |    |		Load	0x3,-0x3
1520 6809       |h   |		Jump_Zero	0x152a
1521 4801       |H   |		Short_Literal	0x1
1522 e5fc       |    |		Load	0x2,-0x4
1523 e29e       |    |		Load	0x1,0x9e
1524 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1525 4802       |H   |		Short_Literal	0x2
1526 e7ff       |    |		Load	0x3,-0x1
1527 e29e       |    |		Load	0x1,0x9e
1528 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1529 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
152a 4801       |H   |		Short_Literal	0x1
152b e7ff       |    |		Load	0x3,-0x1
152c e29e       |    |		Load	0x1,0x9e
152d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
152e 00d8       |    |		Load_Top	At_Offset_0
152f e7ff       |    |		Load	0x3,-0x1
1530 e29e       |    |		Load	0x1,0x9e
1531 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1532 4807       |H   |		Short_Literal	0x7
1533 e7ff       |    |		Load	0x3,-0x1
1534 e29e       |    |		Load	0x1,0x9e
1535 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1536 e5ff       |    |		Load	0x2,-0x1
1537 e7ff       |    |		Load	0x3,-0x1
1538 e29e       |    |		Load	0x1,0x9e
1539 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
153a 4806       |H   |		Short_Literal	0x6
153b e7ff       |    |		Load	0x3,-0x1
153c e29e       |    |		Load	0x1,0x9e
153d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
153e e5fe       |    |		Load	0x2,-0x2
153f e7ff       |    |		Load	0x3,-0x1
1540 e29e       |    |		Load	0x1,0x9e
1541 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1542 481c       |H   |		Short_Literal	0x1c
1543 e7ff       |    |		Load	0x3,-0x1
1544 e29e       |    |		Load	0x1,0x9e
1545 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1546 e5fd       |    |		Load	0x2,-0x3
1547 e7ff       |    |		Load	0x3,-0x1
1548 e29e       |    |		Load	0x1,0x9e
1549 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
154a e2a0       |    |		Load	0x1,0xa0
154b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
154c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
154d 8408       |    |		Call	0x2,0x8
154e a7fd       |    |		Store_Unchecked	0x3,-0x3
154f e7fd       |    |		Load	0x3,-0x3
1550 6809       |h   |		Jump_Zero	0x155a
1551 4801       |H   |		Short_Literal	0x1
1552 e5fc       |    |		Load	0x2,-0x4
1553 e29e       |    |		Load	0x1,0x9e
1554 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1555 4802       |H   |		Short_Literal	0x2
1556 e7ff       |    |		Load	0x3,-0x1
1557 e29e       |    |		Load	0x1,0x9e
1558 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1559 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
155a 4801       |H   |		Short_Literal	0x1
155b e7ff       |    |		Load	0x3,-0x1
155c e29e       |    |		Load	0x1,0x9e
155d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
155e 4801       |H   |		Short_Literal	0x1
155f e5fc       |    |		Load	0x2,-0x4
1560 e29e       |    |		Load	0x1,0x9e
1561 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1562 00d8       |    |		Load_Top	At_Offset_0
1563 e7ff       |    |		Load	0x3,-0x1
1564 e29e       |    |		Load	0x1,0x9e
1565 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1566 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1567			TRAP_1510:
1567 e023       | #  |		Load	0x0,0x23
1568 010f       |    |		Execute	Exception,Equal
1569 6803       |h   |		Jump_Zero	0x156d
156a 4802       |H   |		Short_Literal	0x2
156b a7fd       |    |		Store_Unchecked	0x3,-0x3
156c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
156d e013       |    |		Load	0x0,0x13
156e 010f       |    |		Execute	Exception,Equal
156f 6803       |h   |		Jump_Zero	0x1573
1570 4801       |H   |		Short_Literal	0x1
1571 a7fd       |    |		Store_Unchecked	0x3,-0x3
1572 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1573 0100       |    |		Execute	Exception,Raise
1574 0000 0000  |    |		.BLANK	0000[0x4]
1578 ; --------------------------------------------------------------------------------------
1578 ; SUBPROGRAM
1578 ; --------------------------------------------------------------------------------------
1578 1580       |    |		.CONST	0x1580								; Address of begin
1579 1598       |    |		.CONST	0x1598								; Address of exception handler
157a 0003       |    |		.CONST	0x0003								; Number of locals
157b			INIT_1578:
157b 00db       |    |		Load_Top	At_Offset_3
157c 00e3       |    |		Load_Encached	Natural_Cache
157d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
157e e29c       |    |		Load	0x1,0x9c
157f 0007       |    |		Action	Break_Optional
1580			BODY_1578:
1580 e7ff       |    |		Load	0x3,-0x1
1581 e29e       |    |		Load	0x1,0x9e
1582 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1583 8407       |    |		Call	0x2,0x7
1584 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1585 00d8       |    |		Load_Top	At_Offset_0
1586 0f01       |    |		Execute_Immediate	Equal,0x1
1587 7002       |p   |		Jump_Nonzero	0x158a
1588 e023       | #  |		Load	0x0,0x23
1589 0257       | W  |		Execute	Discrete,Raise
158a e7ff       |    |		Load	0x3,-0x1
158b e29e       |    |		Load	0x1,0x9e
158c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
158d 00da       |    |		Load_Top	At_Offset_2
158e 027f       |    |		Execute	Discrete,Equal
158f 7002       |p   |		Jump_Nonzero	0x1592
1590 e023       | #  |		Load	0x0,0x23
1591 0257       | W  |		Execute	Discrete,Raise
1592 e2a0       |    |		Load	0x1,0xa0
1593 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
1594 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1595 8408       |    |		Call	0x2,0x8
1596 a7fd       |    |		Store_Unchecked	0x3,-0x3
1597 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1598			TRAP_1578:
1598 e011       |    |		Load	0x0,0x11
1599 010f       |    |		Execute	Exception,Equal
159a 6806       |h   |		Jump_Zero	0x15a1
159b e7ff       |    |		Load	0x3,-0x1
159c e29e       |    |		Load	0x1,0x9e
159d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
159e 8408       |    |		Call	0x2,0x8
159f a7fd       |    |		Store_Unchecked	0x3,-0x3
15a0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15a1 e013       |    |		Load	0x0,0x13
15a2 010f       |    |		Execute	Exception,Equal
15a3 6803       |h   |		Jump_Zero	0x15a7
15a4 4801       |H   |		Short_Literal	0x1
15a5 a7fd       |    |		Store_Unchecked	0x3,-0x3
15a6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15a7 e023       | #  |		Load	0x0,0x23
15a8 010f       |    |		Execute	Exception,Equal
15a9 6803       |h   |		Jump_Zero	0x15ad
15aa 4802       |H   |		Short_Literal	0x2
15ab a7fd       |    |		Store_Unchecked	0x3,-0x3
15ac 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
15ad 0100       |    |		Execute	Exception,Raise
15ae 0000 0000  |    |		.XXX[0x2]
15b0 ; --------------------------------------------------------------------------------------
15b0 ; SUBPROGRAM
15b0 ; --------------------------------------------------------------------------------------
15b0 15b3       |    |		.CONST	0x15b3								; Address of begin
15b1 0004       |    |		.CONST	0x0004								; Address of exception handler
15b2 0001       |    |		.CONST	0x0001								; Number of locals
15b3			BODY_15b0:
15b3			INIT_15b0:
15b3 4607       |F   |		Jump_Case	0x8
15b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
15b5 7806       |x   |		Jump	0x15bc								; case 0x1
15b6 7809       |x   |		Jump	0x15c0								; case 0x2
15b7 780d       |x   |		Jump	0x15c5								; case 0x3
15b8 7810       |x   |		Jump	0x15c9								; case 0x4
15b9 7811       |x   |		Jump	0x15cb								; case 0x5
15ba 7812       |x   |		Jump	0x15cd								; case 0x6
15bb 7815       |x   |		Jump	0x15d1								; case 0x7
15bc 00da       |    |		Load_Top	At_Offset_2
15bd 0091 1dc1  |    |		Action	Push_String_Extended_Indexed,0x1dc1				; "SENTINEL"
15bf 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15c0 00db       |    |		Load_Top	At_Offset_3
15c1 00db       |    |		Load_Top	At_Offset_3
15c2 00e0       |    |		Load_Encached	Standard_Cache
15c3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
15c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15c5 00da       |    |		Load_Top	At_Offset_2
15c6 00e0       |    |		Load_Encached	Standard_Cache
15c7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
15c8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15c9 00db       |    |		Load_Top	At_Offset_3
15ca 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15cb 00db       |    |		Load_Top	At_Offset_3
15cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15cd e405       |    |		Load	0x2,0x5
15ce 00dc       |    |		Load_Top	At_Offset_4
15cf 0267       | g  |		Execute	Discrete,Predecessor
15d0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15d1 e405       |    |		Load	0x2,0x5
15d2 00dc       |    |		Load_Top	At_Offset_4
15d3 0268       | h  |		Execute	Discrete,Successor
15d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15d5 0000 0000  |    |		.XXX[0x3]
15d7 0000       |    |
15d8 ; --------------------------------------------------------------------------------------
15d8 ; SUBPROGRAM
15d8 ; --------------------------------------------------------------------------------------
15d8 15db       |    |		.CONST	0x15db								; Address of begin
15d9 0004       |    |		.CONST	0x0004								; Address of exception handler
15da 0001       |    |		.CONST	0x0001								; Number of locals
15db			BODY_15d8:
15db			INIT_15d8:
15db 4607       |F   |		Jump_Case	0x8
15dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
15dd 7806       |x   |		Jump	0x15e4								; case 0x1
15de 7809       |x   |		Jump	0x15e8								; case 0x2
15df 780d       |x   |		Jump	0x15ed								; case 0x3
15e0 7810       |x   |		Jump	0x15f1								; case 0x4
15e1 7811       |x   |		Jump	0x15f3								; case 0x5
15e2 7812       |x   |		Jump	0x15f5								; case 0x6
15e3 7815       |x   |		Jump	0x15f9								; case 0x7
15e4 00da       |    |		Load_Top	At_Offset_2
15e5 0091 1dc5  |    |		Action	Push_String_Extended_Indexed,0x1dc5				; "NO_ERROR"
15e7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15e8 00db       |    |		Load_Top	At_Offset_3
15e9 00db       |    |		Load_Top	At_Offset_3
15ea 00e0       |    |		Load_Encached	Standard_Cache
15eb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
15ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15ed 00da       |    |		Load_Top	At_Offset_2
15ee 00e0       |    |		Load_Encached	Standard_Cache
15ef 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
15f0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
15f1 00db       |    |		Load_Top	At_Offset_3
15f2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15f3 00db       |    |		Load_Top	At_Offset_3
15f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15f5 e406       |    |		Load	0x2,0x6
15f6 00dc       |    |		Load_Top	At_Offset_4
15f7 0267       | g  |		Execute	Discrete,Predecessor
15f8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15f9 e406       |    |		Load	0x2,0x6
15fa 00dc       |    |		Load_Top	At_Offset_4
15fb 0268       | h  |		Execute	Discrete,Successor
15fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
15fd 0000 0000  |    |		.XXX[0x3]
15ff 0000       |    |
1600 ; --------------------------------------------------------------------------------------
1600 ; SUBPROGRAM
1600 ; --------------------------------------------------------------------------------------
1600 1605       |    |		.CONST	0x1605								; Address of begin
1601 160e       |    |		.CONST	0x160e								; Address of exception handler
1602 0002       |    |		.CONST	0x0002								; Number of locals
1603			INIT_1600:
1603 e405       |    |		Load	0x2,0x5
1604 0007       |    |		Action	Break_Optional
1605			BODY_1600:
1605 00db       |    |		Load_Top	At_Offset_3
1606 e29c       |    |		Load	0x1,0x9c
1607 011c       |    |		Execute	Any,Convert_Unchecked
1608 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1609 e405       |    |		Load	0x2,0x5
160a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
160b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
160c 00db       |    |		Load_Top	At_Offset_3
160d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
160e			TRAP_1600:
160e 0007       |    |		Action	Break_Optional
160f e024       | $  |		Load	0x0,0x24
1610 0257       | W  |		Execute	Discrete,Raise
1611 0000 0000  |    |		.BLANK	0000[0x7]
1618 ; --------------------------------------------------------------------------------------
1618 ; SUBPROGRAM
1618 ; --------------------------------------------------------------------------------------
1618 161d       |    |		.CONST	0x161d								; Address of begin
1619 1626       | &  |		.CONST	0x1626								; Address of exception handler
161a 0002       |    |		.CONST	0x0002								; Number of locals
161b			INIT_1618:
161b e406       |    |		Load	0x2,0x6
161c 0007       |    |		Action	Break_Optional
161d			BODY_1618:
161d 00db       |    |		Load_Top	At_Offset_3
161e e26c       | l  |		Load	0x1,0x6c
161f 011c       |    |		Execute	Any,Convert_Unchecked
1620 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1621 e406       |    |		Load	0x2,0x6
1622 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1623 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1624 00db       |    |		Load_Top	At_Offset_3
1625 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1626			TRAP_1618:
1626 0007       |    |		Action	Break_Optional
1627 4802       |H   |		Short_Literal	0x2
1628 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1629 0000 0000  |    |		.BLANK	0000[0x7]
1630 ; --------------------------------------------------------------------------------------
1630 ; SUBPROGRAM
1630 ; --------------------------------------------------------------------------------------
1630 1636       | 6  |		.CONST	0x1636								; Address of begin
1631 167f       |    |		.CONST	0x167f								; Address of exception handler
1632 0002       |    |		.CONST	0x0002								; Number of locals
1633			INIT_1630:
1633 00db       |    |		Load_Top	At_Offset_3
1634 00e3       |    |		Load_Encached	Natural_Cache
1635 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1636			BODY_1630:
1636 4800       |H   |		Short_Literal	0x0
1637 e5fd       |    |		Load	0x2,-0x3
1638 e29e       |    |		Load	0x1,0x9e
1639 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
163a e2a0       |    |		Load	0x1,0xa0
163b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
163c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
163d 8408       |    |		Call	0x2,0x8
163e a7fd       |    |		Store_Unchecked	0x3,-0x3
163f e7fd       |    |		Load	0x3,-0x3
1640 6809       |h   |		Jump_Zero	0x164a
1641 4801       |H   |		Short_Literal	0x1
1642 e5fd       |    |		Load	0x2,-0x3
1643 e29e       |    |		Load	0x1,0x9e
1644 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1645 4802       |H   |		Short_Literal	0x2
1646 e7ff       |    |		Load	0x3,-0x1
1647 e29e       |    |		Load	0x1,0x9e
1648 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1649 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
164a 4801       |H   |		Short_Literal	0x1
164b e7ff       |    |		Load	0x3,-0x1
164c e29e       |    |		Load	0x1,0x9e
164d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
164e 00d8       |    |		Load_Top	At_Offset_0
164f e7ff       |    |		Load	0x3,-0x1
1650 e29e       |    |		Load	0x1,0x9e
1651 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1652 481b       |H   |		Short_Literal	0x1b
1653 e7ff       |    |		Load	0x3,-0x1
1654 e29e       |    |		Load	0x1,0x9e
1655 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1656 e5ff       |    |		Load	0x2,-0x1
1657 e7ff       |    |		Load	0x3,-0x1
1658 e29e       |    |		Load	0x1,0x9e
1659 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
165a 481c       |H   |		Short_Literal	0x1c
165b e7ff       |    |		Load	0x3,-0x1
165c e29e       |    |		Load	0x1,0x9e
165d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
165e e5fe       |    |		Load	0x2,-0x2
165f e7ff       |    |		Load	0x3,-0x1
1660 e29e       |    |		Load	0x1,0x9e
1661 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1662 e2a0       |    |		Load	0x1,0xa0
1663 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
1664 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1665 8408       |    |		Call	0x2,0x8
1666 a7fd       |    |		Store_Unchecked	0x3,-0x3
1667 e7fd       |    |		Load	0x3,-0x3
1668 6809       |h   |		Jump_Zero	0x1672
1669 4801       |H   |		Short_Literal	0x1
166a e5fd       |    |		Load	0x2,-0x3
166b e29e       |    |		Load	0x1,0x9e
166c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
166d 4802       |H   |		Short_Literal	0x2
166e e7ff       |    |		Load	0x3,-0x1
166f e29e       |    |		Load	0x1,0x9e
1670 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1671 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1672 4801       |H   |		Short_Literal	0x1
1673 e7ff       |    |		Load	0x3,-0x1
1674 e29e       |    |		Load	0x1,0x9e
1675 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1676 4801       |H   |		Short_Literal	0x1
1677 e5fd       |    |		Load	0x2,-0x3
1678 e29e       |    |		Load	0x1,0x9e
1679 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
167a 00d8       |    |		Load_Top	At_Offset_0
167b e7ff       |    |		Load	0x3,-0x1
167c e29e       |    |		Load	0x1,0x9e
167d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
167e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
167f			TRAP_1630:
167f e024       | $  |		Load	0x0,0x24
1680 010f       |    |		Execute	Exception,Equal
1681 6803       |h   |		Jump_Zero	0x1685
1682 4802       |H   |		Short_Literal	0x2
1683 a7fd       |    |		Store_Unchecked	0x3,-0x3
1684 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1685 e013       |    |		Load	0x0,0x13
1686 010f       |    |		Execute	Exception,Equal
1687 6803       |h   |		Jump_Zero	0x168b
1688 4801       |H   |		Short_Literal	0x1
1689 a7fd       |    |		Store_Unchecked	0x3,-0x3
168a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
168b 0100       |    |		Execute	Exception,Raise
168c 0000 0000  |    |		.BLANK	0000[0x4]
1690 ; --------------------------------------------------------------------------------------
1690 ; SUBPROGRAM
1690 ; --------------------------------------------------------------------------------------
1690 1698       |    |		.CONST	0x1698								; Address of begin
1691 16b0       |    |		.CONST	0x16b0								; Address of exception handler
1692 0003       |    |		.CONST	0x0003								; Number of locals
1693			INIT_1690:
1693 00db       |    |		Load_Top	At_Offset_3
1694 00e3       |    |		Load_Encached	Natural_Cache
1695 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1696 e29c       |    |		Load	0x1,0x9c
1697 0007       |    |		Action	Break_Optional
1698			BODY_1690:
1698 e7ff       |    |		Load	0x3,-0x1
1699 e29e       |    |		Load	0x1,0x9e
169a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
169b 8407       |    |		Call	0x2,0x7
169c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
169d 00d8       |    |		Load_Top	At_Offset_0
169e 0f01       |    |		Execute_Immediate	Equal,0x1
169f 7002       |p   |		Jump_Nonzero	0x16a2
16a0 e024       | $  |		Load	0x0,0x24
16a1 0257       | W  |		Execute	Discrete,Raise
16a2 e7ff       |    |		Load	0x3,-0x1
16a3 e29e       |    |		Load	0x1,0x9e
16a4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
16a5 00da       |    |		Load_Top	At_Offset_2
16a6 027f       |    |		Execute	Discrete,Equal
16a7 7002       |p   |		Jump_Nonzero	0x16aa
16a8 e024       | $  |		Load	0x0,0x24
16a9 0257       | W  |		Execute	Discrete,Raise
16aa e2a0       |    |		Load	0x1,0xa0
16ab 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
16ac 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
16ad 8408       |    |		Call	0x2,0x8
16ae a7fd       |    |		Store_Unchecked	0x3,-0x3
16af 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
16b0			TRAP_1690:
16b0 e011       |    |		Load	0x0,0x11
16b1 010f       |    |		Execute	Exception,Equal
16b2 6806       |h   |		Jump_Zero	0x16b9
16b3 e7ff       |    |		Load	0x3,-0x1
16b4 e29e       |    |		Load	0x1,0x9e
16b5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
16b6 8408       |    |		Call	0x2,0x8
16b7 a7fd       |    |		Store_Unchecked	0x3,-0x3
16b8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
16b9 e013       |    |		Load	0x0,0x13
16ba 010f       |    |		Execute	Exception,Equal
16bb 6803       |h   |		Jump_Zero	0x16bf
16bc 4801       |H   |		Short_Literal	0x1
16bd a7fd       |    |		Store_Unchecked	0x3,-0x3
16be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
16bf e024       | $  |		Load	0x0,0x24
16c0 010f       |    |		Execute	Exception,Equal
16c1 6803       |h   |		Jump_Zero	0x16c5
16c2 4802       |H   |		Short_Literal	0x2
16c3 a7fd       |    |		Store_Unchecked	0x3,-0x3
16c4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
16c5 0100       |    |		Execute	Exception,Raise
16c6 0000 0000  |    |		.XXX[0x2]
16c8 ; --------------------------------------------------------------------------------------
16c8 ; SUBPROGRAM
16c8 ; --------------------------------------------------------------------------------------
16c8 16cb       |    |		.CONST	0x16cb								; Address of begin
16c9 0004       |    |		.CONST	0x0004								; Address of exception handler
16ca 0001       |    |		.CONST	0x0001								; Number of locals
16cb			BODY_16c8:
16cb			INIT_16c8:
16cb 4607       |F   |		Jump_Case	0x8
16cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
16cd 7806       |x   |		Jump	0x16d4								; case 0x1
16ce 7809       |x   |		Jump	0x16d8								; case 0x2
16cf 780d       |x   |		Jump	0x16dd								; case 0x3
16d0 7810       |x   |		Jump	0x16e1								; case 0x4
16d1 7811       |x   |		Jump	0x16e3								; case 0x5
16d2 7812       |x   |		Jump	0x16e5								; case 0x6
16d3 7815       |x   |		Jump	0x16e9								; case 0x7
16d4 00da       |    |		Load_Top	At_Offset_2
16d5 0091 1dce  |    |		Action	Push_String_Extended_Indexed,0x1dce				; "SENTINEL"
16d7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
16d8 00db       |    |		Load_Top	At_Offset_3
16d9 00db       |    |		Load_Top	At_Offset_3
16da 00e0       |    |		Load_Encached	Standard_Cache
16db 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
16dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16dd 00da       |    |		Load_Top	At_Offset_2
16de 00e0       |    |		Load_Encached	Standard_Cache
16df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
16e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
16e1 00db       |    |		Load_Top	At_Offset_3
16e2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16e3 00db       |    |		Load_Top	At_Offset_3
16e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16e5 e405       |    |		Load	0x2,0x5
16e6 00dc       |    |		Load_Top	At_Offset_4
16e7 0267       | g  |		Execute	Discrete,Predecessor
16e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16e9 e405       |    |		Load	0x2,0x5
16ea 00dc       |    |		Load_Top	At_Offset_4
16eb 0268       | h  |		Execute	Discrete,Successor
16ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
16ed 0000 0000  |    |		.XXX[0x3]
16ef 0000       |    |
16f0 ; --------------------------------------------------------------------------------------
16f0 ; SUBPROGRAM
16f0 ; --------------------------------------------------------------------------------------
16f0 16f3       |    |		.CONST	0x16f3								; Address of begin
16f1 0004       |    |		.CONST	0x0004								; Address of exception handler
16f2 0001       |    |		.CONST	0x0001								; Number of locals
16f3			BODY_16f0:
16f3			INIT_16f0:
16f3 4607       |F   |		Jump_Case	0x8
16f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
16f5 7806       |x   |		Jump	0x16fc								; case 0x1
16f6 7809       |x   |		Jump	0x1700								; case 0x2
16f7 780d       |x   |		Jump	0x1705								; case 0x3
16f8 7810       |x   |		Jump	0x1709								; case 0x4
16f9 7811       |x   |		Jump	0x170b								; case 0x5
16fa 7812       |x   |		Jump	0x170d								; case 0x6
16fb 7815       |x   |		Jump	0x1711								; case 0x7
16fc 00da       |    |		Load_Top	At_Offset_2
16fd 0091 1dd6  |    |		Action	Push_String_Extended_Indexed,0x1dd6				; "NO_ERROR"
16ff 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1700 00db       |    |		Load_Top	At_Offset_3
1701 00db       |    |		Load_Top	At_Offset_3
1702 00e0       |    |		Load_Encached	Standard_Cache
1703 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1704 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1705 00da       |    |		Load_Top	At_Offset_2
1706 00e0       |    |		Load_Encached	Standard_Cache
1707 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1708 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1709 00db       |    |		Load_Top	At_Offset_3
170a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
170b 00db       |    |		Load_Top	At_Offset_3
170c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
170d e406       |    |		Load	0x2,0x6
170e 00dc       |    |		Load_Top	At_Offset_4
170f 0267       | g  |		Execute	Discrete,Predecessor
1710 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1711 e406       |    |		Load	0x2,0x6
1712 00dc       |    |		Load_Top	At_Offset_4
1713 0268       | h  |		Execute	Discrete,Successor
1714 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1715 0000 0000  |    |		.XXX[0x3]
1717 0000       |    |
1718 ; --------------------------------------------------------------------------------------
1718 ; SUBPROGRAM
1718 ; --------------------------------------------------------------------------------------
1718 171d       |    |		.CONST	0x171d								; Address of begin
1719 1726       | &  |		.CONST	0x1726								; Address of exception handler
171a 0002       |    |		.CONST	0x0002								; Number of locals
171b			INIT_1718:
171b e405       |    |		Load	0x2,0x5
171c 0007       |    |		Action	Break_Optional
171d			BODY_1718:
171d 00db       |    |		Load_Top	At_Offset_3
171e e29c       |    |		Load	0x1,0x9c
171f 011c       |    |		Execute	Any,Convert_Unchecked
1720 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1721 e405       |    |		Load	0x2,0x5
1722 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1723 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1724 00db       |    |		Load_Top	At_Offset_3
1725 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1726			TRAP_1718:
1726 0007       |    |		Action	Break_Optional
1727 e025       | %  |		Load	0x0,0x25
1728 0257       | W  |		Execute	Discrete,Raise
1729 0000 0000  |    |		.BLANK	0000[0x7]
1730 ; --------------------------------------------------------------------------------------
1730 ; SUBPROGRAM
1730 ; --------------------------------------------------------------------------------------
1730 1735       | 5  |		.CONST	0x1735								; Address of begin
1731 173e       | >  |		.CONST	0x173e								; Address of exception handler
1732 0002       |    |		.CONST	0x0002								; Number of locals
1733			INIT_1730:
1733 e406       |    |		Load	0x2,0x6
1734 0007       |    |		Action	Break_Optional
1735			BODY_1730:
1735 00db       |    |		Load_Top	At_Offset_3
1736 e26c       | l  |		Load	0x1,0x6c
1737 011c       |    |		Execute	Any,Convert_Unchecked
1738 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1739 e406       |    |		Load	0x2,0x6
173a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
173b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
173c 00db       |    |		Load_Top	At_Offset_3
173d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
173e			TRAP_1730:
173e 0007       |    |		Action	Break_Optional
173f 4802       |H   |		Short_Literal	0x2
1740 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1741 0000 0000  |    |		.BLANK	0000[0x7]
1748 ; --------------------------------------------------------------------------------------
1748 ; SUBPROGRAM
1748 ; --------------------------------------------------------------------------------------
1748 174e       | N  |		.CONST	0x174e								; Address of begin
1749 1797       |    |		.CONST	0x1797								; Address of exception handler
174a 0002       |    |		.CONST	0x0002								; Number of locals
174b			INIT_1748:
174b 00db       |    |		Load_Top	At_Offset_3
174c 00e3       |    |		Load_Encached	Natural_Cache
174d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
174e			BODY_1748:
174e 4800       |H   |		Short_Literal	0x0
174f e5f8       |    |		Load	0x2,-0x8
1750 e29e       |    |		Load	0x1,0x9e
1751 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1752 e2a0       |    |		Load	0x1,0xa0
1753 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1754 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1755 8408       |    |		Call	0x2,0x8
1756 a7fd       |    |		Store_Unchecked	0x3,-0x3
1757 e7fd       |    |		Load	0x3,-0x3
1758 6809       |h   |		Jump_Zero	0x1762
1759 4801       |H   |		Short_Literal	0x1
175a e5f8       |    |		Load	0x2,-0x8
175b e29e       |    |		Load	0x1,0x9e
175c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
175d 4802       |H   |		Short_Literal	0x2
175e e7ff       |    |		Load	0x3,-0x1
175f e29e       |    |		Load	0x1,0x9e
1760 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1761 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1762 4801       |H   |		Short_Literal	0x1
1763 e7ff       |    |		Load	0x3,-0x1
1764 e29e       |    |		Load	0x1,0x9e
1765 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1766 00d8       |    |		Load_Top	At_Offset_0
1767 e7ff       |    |		Load	0x3,-0x1
1768 e29e       |    |		Load	0x1,0x9e
1769 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
176a 4811       |H   |		Short_Literal	0x11
176b e7ff       |    |		Load	0x3,-0x1
176c e29e       |    |		Load	0x1,0x9e
176d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
176e e5fa       |    |		Load	0x2,-0x6
176f e7ff       |    |		Load	0x3,-0x1
1770 e29e       |    |		Load	0x1,0x9e
1771 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1772 4817       |H   |		Short_Literal	0x17
1773 e7ff       |    |		Load	0x3,-0x1
1774 e29e       |    |		Load	0x1,0x9e
1775 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1776 e5f9       |    |		Load	0x2,-0x7
1777 e7ff       |    |		Load	0x3,-0x1
1778 e29e       |    |		Load	0x1,0x9e
1779 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
177a e2a0       |    |		Load	0x1,0xa0
177b 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
177c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
177d 8408       |    |		Call	0x2,0x8
177e a7fd       |    |		Store_Unchecked	0x3,-0x3
177f e7fd       |    |		Load	0x3,-0x3
1780 6809       |h   |		Jump_Zero	0x178a
1781 4801       |H   |		Short_Literal	0x1
1782 e5f8       |    |		Load	0x2,-0x8
1783 e29e       |    |		Load	0x1,0x9e
1784 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1785 4802       |H   |		Short_Literal	0x2
1786 e7ff       |    |		Load	0x3,-0x1
1787 e29e       |    |		Load	0x1,0x9e
1788 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1789 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
178a 4801       |H   |		Short_Literal	0x1
178b e7ff       |    |		Load	0x3,-0x1
178c e29e       |    |		Load	0x1,0x9e
178d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
178e 4801       |H   |		Short_Literal	0x1
178f e5f8       |    |		Load	0x2,-0x8
1790 e29e       |    |		Load	0x1,0x9e
1791 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1792 00d8       |    |		Load_Top	At_Offset_0
1793 e7ff       |    |		Load	0x3,-0x1
1794 e29e       |    |		Load	0x1,0x9e
1795 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1796 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1797			TRAP_1748:
1797 e025       | %  |		Load	0x0,0x25
1798 010f       |    |		Execute	Exception,Equal
1799 6803       |h   |		Jump_Zero	0x179d
179a 4802       |H   |		Short_Literal	0x2
179b a7fd       |    |		Store_Unchecked	0x3,-0x3
179c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
179d e013       |    |		Load	0x0,0x13
179e 010f       |    |		Execute	Exception,Equal
179f 6803       |h   |		Jump_Zero	0x17a3
17a0 4801       |H   |		Short_Literal	0x1
17a1 a7fd       |    |		Store_Unchecked	0x3,-0x3
17a2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
17a3 0100       |    |		Execute	Exception,Raise
17a4 0000 0000  |    |		.BLANK	0000[0x4]
17a8 ; --------------------------------------------------------------------------------------
17a8 ; SUBPROGRAM
17a8 ; --------------------------------------------------------------------------------------
17a8 17b8       |    |		.CONST	0x17b8								; Address of begin
17a9 185a       | Z  |		.CONST	0x185a								; Address of exception handler
17aa 0006       |    |		.CONST	0x0006								; Number of locals
17ab			INIT_17a8:
17ab 00db       |    |		Load_Top	At_Offset_3
17ac 00e3       |    |		Load_Encached	Natural_Cache
17ad 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
17ae e29c       |    |		Load	0x1,0x9c
17af 0007       |    |		Action	Break_Optional
17b0 e22a       | *  |		Load	0x1,0x2a
17b1 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
17b2 4801       |H   |		Short_Literal	0x1
17b3 4864       |Hd  |		Short_Literal	0x64
17b4 00e9       |    |		Load_Encached	String_Cache
17b5 035b       | [  |		Declare_Type	Array,Constrained
17b6 0337       | 7  |		Declare_Variable	Array
17b7 00e3       |    |		Load_Encached	Natural_Cache
17b8			BODY_17a8:
17b8 e7ff       |    |		Load	0x3,-0x1
17b9 e29e       |    |		Load	0x1,0x9e
17ba 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
17bb 8407       |    |		Call	0x2,0x7
17bc a603       |    |		Store_Unchecked	0x3,0x3
17bd 00cf       |    |		Action	Mark_Auxiliary
17be e603       |    |		Load	0x3,0x3
17bf 461c       |F   |		Jump_Case	0x1d
17c0 7885       |x   |		Jump	0x1846								; case 0x0
17c1 7884       |x   |		Jump	0x1846								; case 0x1
17c2 7883       |x   |		Jump	0x1846								; case 0x2
17c3 7882       |x   |		Jump	0x1846								; case 0x3
17c4 7881       |x   |		Jump	0x1846								; case 0x4
17c5 7880       |x   |		Jump	0x1846								; case 0x5
17c6 787f       |x   |		Jump	0x1846								; case 0x6
17c7 787e       |x~  |		Jump	0x1846								; case 0x7
17c8 787d       |x}  |		Jump	0x1846								; case 0x8
17c9 787c       |x|  |		Jump	0x1846								; case 0x9
17ca 787b       |x{  |		Jump	0x1846								; case 0xa
17cb 787a       |xz  |		Jump	0x1846								; case 0xb
17cc 7879       |xy  |		Jump	0x1846								; case 0xc
17cd 7878       |xx  |		Jump	0x1846								; case 0xd
17ce 7877       |xw  |		Jump	0x1846								; case 0xe
17cf 7876       |xv  |		Jump	0x1846								; case 0xf
17d0 7875       |xu  |		Jump	0x1846								; case 0x10
17d1 7874       |xt  |		Jump	0x1846								; case 0x11
17d2 7873       |xs  |		Jump	0x1846								; case 0x12
17d3 7809       |x   |		Jump	0x17dd								; case 0x13
17d4 781a       |x   |		Jump	0x17ef								; case 0x14
17d5 7870       |xp  |		Jump	0x1846								; case 0x15
17d6 786f       |xo  |		Jump	0x1846								; case 0x16
17d7 7829       |x)  |		Jump	0x1801								; case 0x17
17d8 786d       |xm  |		Jump	0x1846								; case 0x18
17d9 786c       |xl  |		Jump	0x1846								; case 0x19
17da 786b       |xk  |		Jump	0x1846								; case 0x1a
17db 786a       |xj  |		Jump	0x1846								; case 0x1b
17dc 7869       |xi  |		Jump	0x1846								; case 0x1c
17dd 00db       |    |		Load_Top	At_Offset_3
17de e5f7       |    |		Load	0x2,-0x9
17df 00d8       |    |		Load_Top	At_Offset_0
17e0 0120       |    |		Execute	Any,Is_Value
17e1 6803       |h   |		Jump_Zero	0x17e5
17e2 e5fb       |    |		Load	0x2,-0x5
17e3 011e       |    |		Execute	Any,Convert
17e4 7802       |x   |		Jump	0x17e7
17e5 e5fb       |    |		Load	0x2,-0x5
17e6 0119       |    |		Execute	Any,Check_In_Formal_Type
17e7 4802       |H   |		Short_Literal	0x2
17e8 e7ff       |    |		Load	0x3,-0x1
17e9 e29e       |    |		Load	0x1,0x9e
17ea 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
17eb 85fc       |    |		Call	0x2,-0x4
17ec c5f7       |    |		Store	0x2,-0x9
17ed c604       |    |		Store	0x3,0x4
17ee 781f       |x   |		Jump	0x180e
17ef 00db       |    |		Load_Top	At_Offset_3
17f0 e5f7       |    |		Load	0x2,-0x9
17f1 00d8       |    |		Load_Top	At_Offset_0
17f2 0120       |    |		Execute	Any,Is_Value
17f3 6803       |h   |		Jump_Zero	0x17f7
17f4 e5fb       |    |		Load	0x2,-0x5
17f5 011e       |    |		Execute	Any,Convert
17f6 7802       |x   |		Jump	0x17f9
17f7 e5fb       |    |		Load	0x2,-0x5
17f8 0119       |    |		Execute	Any,Check_In_Formal_Type
17f9 4807       |H   |		Short_Literal	0x7
17fa e7ff       |    |		Load	0x3,-0x1
17fb e29e       |    |		Load	0x1,0x9e
17fc 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
17fd 85fc       |    |		Call	0x2,-0x4
17fe c5f7       |    |		Store	0x2,-0x9
17ff c604       |    |		Store	0x3,0x4
1800 780d       |x   |		Jump	0x180e
1801 00db       |    |		Load_Top	At_Offset_3
1802 e5f7       |    |		Load	0x2,-0x9
1803 00d8       |    |		Load_Top	At_Offset_0
1804 0120       |    |		Execute	Any,Is_Value
1805 6803       |h   |		Jump_Zero	0x1809
1806 e5fb       |    |		Load	0x2,-0x5
1807 011e       |    |		Execute	Any,Convert
1808 7802       |x   |		Jump	0x180b
1809 e5fb       |    |		Load	0x2,-0x5
180a 0119       |    |		Execute	Any,Check_In_Formal_Type
180b 85fe       |    |		Call	0x2,-0x2
180c c5f7       |    |		Store	0x2,-0x9
180d c604       |    |		Store	0x3,0x4
180e 00cf       |    |		Action	Mark_Auxiliary
180f 781d       |x   |		Jump	0x182d
1810 4811       |H   |		Short_Literal	0x11
1811 e7ff       |    |		Load	0x3,-0x1
1812 e29e       |    |		Load	0x1,0x9e
1813 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1814 e604       |    |		Load	0x3,0x4
1815 00e3       |    |		Load_Encached	Natural_Cache
1816 e605       |    |		Load	0x3,0x5
1817 e5f7       |    |		Load	0x2,-0x9
1818 00d8       |    |		Load_Top	At_Offset_0
1819 0120       |    |		Execute	Any,Is_Value
181a 6803       |h   |		Jump_Zero	0x181e
181b e5fb       |    |		Load	0x2,-0x5
181c 011e       |    |		Execute	Any,Convert
181d 7802       |x   |		Jump	0x1820
181e e5fb       |    |		Load	0x2,-0x5
181f 0119       |    |		Execute	Any,Check_In_Formal_Type
1820 85fd       |    |		Call	0x2,-0x3
1821 c5f7       |    |		Store	0x2,-0x9
1822 00d1       |    |		Pop_Control	Pop_Count_1
1823 c606       |    |		Store	0x3,0x6
1824 c604       |    |		Store	0x3,0x4
1825 4801       |H   |		Short_Literal	0x1
1826 00db       |    |		Load_Top	At_Offset_3
1827 e605       |    |		Load	0x3,0x5
1828 01cf       |    |		Execute	Vector,Slice_Read
1829 e7ff       |    |		Load	0x3,-0x1
182a e29e       |    |		Load	0x1,0x9e
182b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
182c 00c9       |    |		Action	Pop_Auxiliary_Loop
182d e604       |    |		Load	0x3,0x4
182e 0f01       |    |		Execute_Immediate	Equal,0x1
182f 77e0       |w   |		Jump_Nonzero	0x1810
1830 00ce       |    |		Action	Pop_Auxiliary
1831 00db       |    |		Load_Top	At_Offset_3
1832 4602       |F   |		Jump_Case	0x3
1833 7807       |x   |		Jump	0x183b								; case 0x0
1834 780a       |x   |		Jump	0x183f								; case 0x1
1835 7800       |x   |		Jump	0x1836								; case 0x2
1836 4815       |H   |		Short_Literal	0x15
1837 e7ff       |    |		Load	0x3,-0x1
1838 e29e       |    |		Load	0x1,0x9e
1839 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
183a 7804       |x   |		Jump	0x183f
183b 4816       |H   |		Short_Literal	0x16
183c e7ff       |    |		Load	0x3,-0x1
183d e29e       |    |		Load	0x1,0x9e
183e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
183f e7ff       |    |		Load	0x3,-0x1
1840 e29e       |    |		Load	0x1,0x9e
1841 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1842 8407       |    |		Call	0x2,0x7
1843 a603       |    |		Store_Unchecked	0x3,0x3
1844 00c9       |    |		Action	Pop_Auxiliary_Loop
1845 7f78       | x  |		Jump	0x17be
1846 00ce       |    |		Action	Pop_Auxiliary
1847 00db       |    |		Load_Top	At_Offset_3
1848 0f01       |    |		Execute_Immediate	Equal,0x1
1849 7002       |p   |		Jump_Nonzero	0x184c
184a e025       | %  |		Load	0x0,0x25
184b 0257       | W  |		Execute	Discrete,Raise
184c e7ff       |    |		Load	0x3,-0x1
184d e29e       |    |		Load	0x1,0x9e
184e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
184f e602       |    |		Load	0x3,0x2
1850 027f       |    |		Execute	Discrete,Equal
1851 7002       |p   |		Jump_Nonzero	0x1854
1852 e025       | %  |		Load	0x0,0x25
1853 0257       | W  |		Execute	Discrete,Raise
1854 e2a0       |    |		Load	0x1,0xa0
1855 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
1856 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1857 8408       |    |		Call	0x2,0x8
1858 a7fd       |    |		Store_Unchecked	0x3,-0x3
1859 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
185a			TRAP_17a8:
185a e011       |    |		Load	0x0,0x11
185b 010f       |    |		Execute	Exception,Equal
185c 6806       |h   |		Jump_Zero	0x1863
185d e7ff       |    |		Load	0x3,-0x1
185e e29e       |    |		Load	0x1,0x9e
185f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1860 8408       |    |		Call	0x2,0x8
1861 a7fd       |    |		Store_Unchecked	0x3,-0x3
1862 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1863 e013       |    |		Load	0x0,0x13
1864 010f       |    |		Execute	Exception,Equal
1865 6803       |h   |		Jump_Zero	0x1869
1866 4801       |H   |		Short_Literal	0x1
1867 a7fd       |    |		Store_Unchecked	0x3,-0x3
1868 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1869 e025       | %  |		Load	0x0,0x25
186a 010f       |    |		Execute	Exception,Equal
186b 6803       |h   |		Jump_Zero	0x186f
186c 4802       |H   |		Short_Literal	0x2
186d a7fd       |    |		Store_Unchecked	0x3,-0x3
186e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
186f 0100       |    |		Execute	Exception,Raise
1870 ; --------------------------------------------------------------------------------------
1870 ; SUBPROGRAM
1870 ; --------------------------------------------------------------------------------------
1870 1873       | s  |		.CONST	0x1873								; Address of begin
1871 0004       |    |		.CONST	0x0004								; Address of exception handler
1872 0001       |    |		.CONST	0x0001								; Number of locals
1873			BODY_1870:
1873			INIT_1870:
1873 4607       |F   |		Jump_Case	0x8
1874 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1875 7806       |x   |		Jump	0x187c								; case 0x1
1876 7809       |x   |		Jump	0x1880								; case 0x2
1877 780d       |x   |		Jump	0x1885								; case 0x3
1878 7810       |x   |		Jump	0x1889								; case 0x4
1879 7811       |x   |		Jump	0x188b								; case 0x5
187a 7812       |x   |		Jump	0x188d								; case 0x6
187b 7815       |x   |		Jump	0x1891								; case 0x7
187c 00da       |    |		Load_Top	At_Offset_2
187d 0091 1de2  |    |		Action	Push_String_Extended_Indexed,0x1de2				; "SENTINEL"
187f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1880 00db       |    |		Load_Top	At_Offset_3
1881 00db       |    |		Load_Top	At_Offset_3
1882 00e0       |    |		Load_Encached	Standard_Cache
1883 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1884 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1885 00da       |    |		Load_Top	At_Offset_2
1886 00e0       |    |		Load_Encached	Standard_Cache
1887 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1888 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1889 00db       |    |		Load_Top	At_Offset_3
188a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
188b 00db       |    |		Load_Top	At_Offset_3
188c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
188d e405       |    |		Load	0x2,0x5
188e 00dc       |    |		Load_Top	At_Offset_4
188f 0267       | g  |		Execute	Discrete,Predecessor
1890 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1891 e405       |    |		Load	0x2,0x5
1892 00dc       |    |		Load_Top	At_Offset_4
1893 0268       | h  |		Execute	Discrete,Successor
1894 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1895 0000 0000  |    |		.XXX[0x3]
1897 0000       |    |
1898 ; --------------------------------------------------------------------------------------
1898 ; SUBPROGRAM
1898 ; --------------------------------------------------------------------------------------
1898 189b       |    |		.CONST	0x189b								; Address of begin
1899 0004       |    |		.CONST	0x0004								; Address of exception handler
189a 0001       |    |		.CONST	0x0001								; Number of locals
189b			BODY_1898:
189b			INIT_1898:
189b 4607       |F   |		Jump_Case	0x8
189c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
189d 7806       |x   |		Jump	0x18a4								; case 0x1
189e 7809       |x   |		Jump	0x18a8								; case 0x2
189f 780d       |x   |		Jump	0x18ad								; case 0x3
18a0 7810       |x   |		Jump	0x18b1								; case 0x4
18a1 7811       |x   |		Jump	0x18b3								; case 0x5
18a2 7812       |x   |		Jump	0x18b5								; case 0x6
18a3 7815       |x   |		Jump	0x18b9								; case 0x7
18a4 00da       |    |		Load_Top	At_Offset_2
18a5 0091 1de5  |    |		Action	Push_String_Extended_Indexed,0x1de5				; "NO_ERROR"
18a7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
18a8 00db       |    |		Load_Top	At_Offset_3
18a9 00db       |    |		Load_Top	At_Offset_3
18aa 00e0       |    |		Load_Encached	Standard_Cache
18ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
18ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
18ad 00da       |    |		Load_Top	At_Offset_2
18ae 00e0       |    |		Load_Encached	Standard_Cache
18af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
18b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
18b1 00db       |    |		Load_Top	At_Offset_3
18b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
18b3 00db       |    |		Load_Top	At_Offset_3
18b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
18b5 e406       |    |		Load	0x2,0x6
18b6 00dc       |    |		Load_Top	At_Offset_4
18b7 0267       | g  |		Execute	Discrete,Predecessor
18b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
18b9 e406       |    |		Load	0x2,0x6
18ba 00dc       |    |		Load_Top	At_Offset_4
18bb 0268       | h  |		Execute	Discrete,Successor
18bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
18bd 0000 0000  |    |		.XXX[0x3]
18bf 0000       |    |
18c0 ; --------------------------------------------------------------------------------------
18c0 ; SUBPROGRAM
18c0 ; --------------------------------------------------------------------------------------
18c0 18c5       |    |		.CONST	0x18c5								; Address of begin
18c1 18ce       |    |		.CONST	0x18ce								; Address of exception handler
18c2 0002       |    |		.CONST	0x0002								; Number of locals
18c3			INIT_18c0:
18c3 e405       |    |		Load	0x2,0x5
18c4 0007       |    |		Action	Break_Optional
18c5			BODY_18c0:
18c5 00db       |    |		Load_Top	At_Offset_3
18c6 e29c       |    |		Load	0x1,0x9c
18c7 011c       |    |		Execute	Any,Convert_Unchecked
18c8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
18c9 e405       |    |		Load	0x2,0x5
18ca 1c02       |    |		Execute_Immediate	Run_Utility,0x2
18cb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
18cc 00db       |    |		Load_Top	At_Offset_3
18cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
18ce			TRAP_18c0:
18ce 0007       |    |		Action	Break_Optional
18cf e026       | &  |		Load	0x0,0x26
18d0 0257       | W  |		Execute	Discrete,Raise
18d1 0000 0000  |    |		.BLANK	0000[0x7]
18d8 ; --------------------------------------------------------------------------------------
18d8 ; SUBPROGRAM
18d8 ; --------------------------------------------------------------------------------------
18d8 18dd       |    |		.CONST	0x18dd								; Address of begin
18d9 18e6       |    |		.CONST	0x18e6								; Address of exception handler
18da 0002       |    |		.CONST	0x0002								; Number of locals
18db			INIT_18d8:
18db e406       |    |		Load	0x2,0x6
18dc 0007       |    |		Action	Break_Optional
18dd			BODY_18d8:
18dd 00db       |    |		Load_Top	At_Offset_3
18de e26c       | l  |		Load	0x1,0x6c
18df 011c       |    |		Execute	Any,Convert_Unchecked
18e0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
18e1 e406       |    |		Load	0x2,0x6
18e2 1c02       |    |		Execute_Immediate	Run_Utility,0x2
18e3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
18e4 00db       |    |		Load_Top	At_Offset_3
18e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
18e6			TRAP_18d8:
18e6 0007       |    |		Action	Break_Optional
18e7 4802       |H   |		Short_Literal	0x2
18e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
18e9 0000 0000  |    |		.BLANK	0000[0x7]
18f0 ; --------------------------------------------------------------------------------------
18f0 ; SUBPROGRAM
18f0 ; --------------------------------------------------------------------------------------
18f0 18f6       |    |		.CONST	0x18f6								; Address of begin
18f1 1937       | 7  |		.CONST	0x1937								; Address of exception handler
18f2 0002       |    |		.CONST	0x0002								; Number of locals
18f3			INIT_18f0:
18f3 00db       |    |		Load_Top	At_Offset_3
18f4 00e3       |    |		Load_Encached	Natural_Cache
18f5 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
18f6			BODY_18f0:
18f6 4800       |H   |		Short_Literal	0x0
18f7 e5fe       |    |		Load	0x2,-0x2
18f8 e29e       |    |		Load	0x1,0x9e
18f9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
18fa e2a0       |    |		Load	0x1,0xa0
18fb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
18fc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
18fd 8408       |    |		Call	0x2,0x8
18fe a7fd       |    |		Store_Unchecked	0x3,-0x3
18ff e7fd       |    |		Load	0x3,-0x3
1900 6809       |h   |		Jump_Zero	0x190a
1901 4801       |H   |		Short_Literal	0x1
1902 e5fe       |    |		Load	0x2,-0x2
1903 e29e       |    |		Load	0x1,0x9e
1904 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1905 4802       |H   |		Short_Literal	0x2
1906 e7ff       |    |		Load	0x3,-0x1
1907 e29e       |    |		Load	0x1,0x9e
1908 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1909 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
190a 4801       |H   |		Short_Literal	0x1
190b e7ff       |    |		Load	0x3,-0x1
190c e29e       |    |		Load	0x1,0x9e
190d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
190e 00d8       |    |		Load_Top	At_Offset_0
190f e7ff       |    |		Load	0x3,-0x1
1910 e29e       |    |		Load	0x1,0x9e
1911 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1912 4812       |H   |		Short_Literal	0x12
1913 e7ff       |    |		Load	0x3,-0x1
1914 e29e       |    |		Load	0x1,0x9e
1915 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1916 e5ff       |    |		Load	0x2,-0x1
1917 e7ff       |    |		Load	0x3,-0x1
1918 e29e       |    |		Load	0x1,0x9e
1919 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
191a e2a0       |    |		Load	0x1,0xa0
191b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
191c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
191d 8408       |    |		Call	0x2,0x8
191e a7fd       |    |		Store_Unchecked	0x3,-0x3
191f e7fd       |    |		Load	0x3,-0x3
1920 6809       |h   |		Jump_Zero	0x192a
1921 4801       |H   |		Short_Literal	0x1
1922 e5fe       |    |		Load	0x2,-0x2
1923 e29e       |    |		Load	0x1,0x9e
1924 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1925 4802       |H   |		Short_Literal	0x2
1926 e7ff       |    |		Load	0x3,-0x1
1927 e29e       |    |		Load	0x1,0x9e
1928 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1929 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
192a 4801       |H   |		Short_Literal	0x1
192b e7ff       |    |		Load	0x3,-0x1
192c e29e       |    |		Load	0x1,0x9e
192d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
192e 4801       |H   |		Short_Literal	0x1
192f e5fe       |    |		Load	0x2,-0x2
1930 e29e       |    |		Load	0x1,0x9e
1931 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1932 00d8       |    |		Load_Top	At_Offset_0
1933 e7ff       |    |		Load	0x3,-0x1
1934 e29e       |    |		Load	0x1,0x9e
1935 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1936 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1937			TRAP_18f0:
1937 e026       | &  |		Load	0x0,0x26
1938 010f       |    |		Execute	Exception,Equal
1939 6803       |h   |		Jump_Zero	0x193d
193a 4802       |H   |		Short_Literal	0x2
193b a7fd       |    |		Store_Unchecked	0x3,-0x3
193c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
193d e013       |    |		Load	0x0,0x13
193e 010f       |    |		Execute	Exception,Equal
193f 6803       |h   |		Jump_Zero	0x1943
1940 4801       |H   |		Short_Literal	0x1
1941 a7fd       |    |		Store_Unchecked	0x3,-0x3
1942 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1943 0100       |    |		Execute	Exception,Raise
1944 0000 0000  |    |		.BLANK	0000[0x4]
1948 ; --------------------------------------------------------------------------------------
1948 ; SUBPROGRAM
1948 ; --------------------------------------------------------------------------------------
1948 1950       | P  |		.CONST	0x1950								; Address of begin
1949 1968       | h  |		.CONST	0x1968								; Address of exception handler
194a 0003       |    |		.CONST	0x0003								; Number of locals
194b			INIT_1948:
194b 00db       |    |		Load_Top	At_Offset_3
194c 00e3       |    |		Load_Encached	Natural_Cache
194d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
194e e29c       |    |		Load	0x1,0x9c
194f 0007       |    |		Action	Break_Optional
1950			BODY_1948:
1950 e7ff       |    |		Load	0x3,-0x1
1951 e29e       |    |		Load	0x1,0x9e
1952 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1953 8407       |    |		Call	0x2,0x7
1954 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1955 00d8       |    |		Load_Top	At_Offset_0
1956 0f01       |    |		Execute_Immediate	Equal,0x1
1957 7002       |p   |		Jump_Nonzero	0x195a
1958 e026       | &  |		Load	0x0,0x26
1959 0257       | W  |		Execute	Discrete,Raise
195a e7ff       |    |		Load	0x3,-0x1
195b e29e       |    |		Load	0x1,0x9e
195c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
195d 00da       |    |		Load_Top	At_Offset_2
195e 027f       |    |		Execute	Discrete,Equal
195f 7002       |p   |		Jump_Nonzero	0x1962
1960 e026       | &  |		Load	0x0,0x26
1961 0257       | W  |		Execute	Discrete,Raise
1962 e2a0       |    |		Load	0x1,0xa0
1963 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
1964 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1965 8408       |    |		Call	0x2,0x8
1966 a7fd       |    |		Store_Unchecked	0x3,-0x3
1967 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1968			TRAP_1948:
1968 e011       |    |		Load	0x0,0x11
1969 010f       |    |		Execute	Exception,Equal
196a 6806       |h   |		Jump_Zero	0x1971
196b e7ff       |    |		Load	0x3,-0x1
196c e29e       |    |		Load	0x1,0x9e
196d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
196e 8408       |    |		Call	0x2,0x8
196f a7fd       |    |		Store_Unchecked	0x3,-0x3
1970 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1971 e013       |    |		Load	0x0,0x13
1972 010f       |    |		Execute	Exception,Equal
1973 6803       |h   |		Jump_Zero	0x1977
1974 4801       |H   |		Short_Literal	0x1
1975 a7fd       |    |		Store_Unchecked	0x3,-0x3
1976 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1977 e026       | &  |		Load	0x0,0x26
1978 010f       |    |		Execute	Exception,Equal
1979 6803       |h   |		Jump_Zero	0x197d
197a 4802       |H   |		Short_Literal	0x2
197b a7fd       |    |		Store_Unchecked	0x3,-0x3
197c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
197d 0100       |    |		Execute	Exception,Raise
197e 0000 0000  |    |		.XXX[0x2]
1980 ; --------------------------------------------------------------------------------------
1980 ; SUBPROGRAM
1980 ; --------------------------------------------------------------------------------------
1980 1983       |    |		.CONST	0x1983								; Address of begin
1981 0004       |    |		.CONST	0x0004								; Address of exception handler
1982 0001       |    |		.CONST	0x0001								; Number of locals
1983			BODY_1980:
1983			INIT_1980:
1983 4607       |F   |		Jump_Case	0x8
1984 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1985 7806       |x   |		Jump	0x198c								; case 0x1
1986 7809       |x   |		Jump	0x1990								; case 0x2
1987 780d       |x   |		Jump	0x1995								; case 0x3
1988 7810       |x   |		Jump	0x1999								; case 0x4
1989 7811       |x   |		Jump	0x199b								; case 0x5
198a 7812       |x   |		Jump	0x199d								; case 0x6
198b 7815       |x   |		Jump	0x19a1								; case 0x7
198c 00da       |    |		Load_Top	At_Offset_2
198d 0091 1dea  |    |		Action	Push_String_Extended_Indexed,0x1dea				; "SENTINEL"
198f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1990 00db       |    |		Load_Top	At_Offset_3
1991 00db       |    |		Load_Top	At_Offset_3
1992 00e0       |    |		Load_Encached	Standard_Cache
1993 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1994 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1995 00da       |    |		Load_Top	At_Offset_2
1996 00e0       |    |		Load_Encached	Standard_Cache
1997 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1998 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1999 00db       |    |		Load_Top	At_Offset_3
199a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
199b 00db       |    |		Load_Top	At_Offset_3
199c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
199d e407       |    |		Load	0x2,0x7
199e 00dc       |    |		Load_Top	At_Offset_4
199f 0267       | g  |		Execute	Discrete,Predecessor
19a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
19a1 e407       |    |		Load	0x2,0x7
19a2 00dc       |    |		Load_Top	At_Offset_4
19a3 0268       | h  |		Execute	Discrete,Successor
19a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
19a5 0000 0000  |    |		.XXX[0x3]
19a7 0000       |    |
19a8 ; --------------------------------------------------------------------------------------
19a8 ; SUBPROGRAM
19a8 ; --------------------------------------------------------------------------------------
19a8 19ab       |    |		.CONST	0x19ab								; Address of begin
19a9 0004       |    |		.CONST	0x0004								; Address of exception handler
19aa 0001       |    |		.CONST	0x0001								; Number of locals
19ab			BODY_19a8:
19ab			INIT_19a8:
19ab 4607       |F   |		Jump_Case	0x8
19ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
19ad 7806       |x   |		Jump	0x19b4								; case 0x1
19ae 7809       |x   |		Jump	0x19b8								; case 0x2
19af 780d       |x   |		Jump	0x19bd								; case 0x3
19b0 7810       |x   |		Jump	0x19c1								; case 0x4
19b1 7811       |x   |		Jump	0x19c3								; case 0x5
19b2 7812       |x   |		Jump	0x19c5								; case 0x6
19b3 7815       |x   |		Jump	0x19c9								; case 0x7
19b4 00da       |    |		Load_Top	At_Offset_2
19b5 0091 1df0  |    |		Action	Push_String_Extended_Indexed,0x1df0				; "NO_ERROR"
19b7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
19b8 00db       |    |		Load_Top	At_Offset_3
19b9 00db       |    |		Load_Top	At_Offset_3
19ba 00e0       |    |		Load_Encached	Standard_Cache
19bb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
19bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
19bd 00da       |    |		Load_Top	At_Offset_2
19be 00e0       |    |		Load_Encached	Standard_Cache
19bf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
19c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
19c1 00db       |    |		Load_Top	At_Offset_3
19c2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
19c3 00db       |    |		Load_Top	At_Offset_3
19c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
19c5 e408       |    |		Load	0x2,0x8
19c6 00dc       |    |		Load_Top	At_Offset_4
19c7 0267       | g  |		Execute	Discrete,Predecessor
19c8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
19c9 e408       |    |		Load	0x2,0x8
19ca 00dc       |    |		Load_Top	At_Offset_4
19cb 0268       | h  |		Execute	Discrete,Successor
19cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
19cd 0000 0000  |    |		.XXX[0x3]
19cf 0000       |    |
19d0 ; --------------------------------------------------------------------------------------
19d0 ; SUBPROGRAM
19d0 ; --------------------------------------------------------------------------------------
19d0 19d5       |    |		.CONST	0x19d5								; Address of begin
19d1 19de       |    |		.CONST	0x19de								; Address of exception handler
19d2 0002       |    |		.CONST	0x0002								; Number of locals
19d3			INIT_19d0:
19d3 e407       |    |		Load	0x2,0x7
19d4 0007       |    |		Action	Break_Optional
19d5			BODY_19d0:
19d5 00db       |    |		Load_Top	At_Offset_3
19d6 e29c       |    |		Load	0x1,0x9c
19d7 011c       |    |		Execute	Any,Convert_Unchecked
19d8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
19d9 e407       |    |		Load	0x2,0x7
19da 1c02       |    |		Execute_Immediate	Run_Utility,0x2
19db 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
19dc 00db       |    |		Load_Top	At_Offset_3
19dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
19de			TRAP_19d0:
19de 0007       |    |		Action	Break_Optional
19df e027       | '  |		Load	0x0,0x27
19e0 0257       | W  |		Execute	Discrete,Raise
19e1 0000 0000  |    |		.BLANK	0000[0x7]
19e8 ; --------------------------------------------------------------------------------------
19e8 ; SUBPROGRAM
19e8 ; --------------------------------------------------------------------------------------
19e8 19ed       |    |		.CONST	0x19ed								; Address of begin
19e9 19f6       |    |		.CONST	0x19f6								; Address of exception handler
19ea 0002       |    |		.CONST	0x0002								; Number of locals
19eb			INIT_19e8:
19eb e408       |    |		Load	0x2,0x8
19ec 0007       |    |		Action	Break_Optional
19ed			BODY_19e8:
19ed 00db       |    |		Load_Top	At_Offset_3
19ee e26c       | l  |		Load	0x1,0x6c
19ef 011c       |    |		Execute	Any,Convert_Unchecked
19f0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
19f1 e408       |    |		Load	0x2,0x8
19f2 1c02       |    |		Execute_Immediate	Run_Utility,0x2
19f3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
19f4 00db       |    |		Load_Top	At_Offset_3
19f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
19f6			TRAP_19e8:
19f6 0007       |    |		Action	Break_Optional
19f7 4802       |H   |		Short_Literal	0x2
19f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
19f9 0000 0000  |    |		.BLANK	0000[0x7]
1a00 ; --------------------------------------------------------------------------------------
1a00 ; SUBPROGRAM
1a00 ; --------------------------------------------------------------------------------------
1a00 1a06       |    |		.CONST	0x1a06								; Address of begin
1a01 1a7e       | ~  |		.CONST	0x1a7e								; Address of exception handler
1a02 0002       |    |		.CONST	0x0002								; Number of locals
1a03			INIT_1a00:
1a03 00db       |    |		Load_Top	At_Offset_3
1a04 00e3       |    |		Load_Encached	Natural_Cache
1a05 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1a06			BODY_1a00:
1a06 4800       |H   |		Short_Literal	0x0
1a07 e5fa       |    |		Load	0x2,-0x6
1a08 e29e       |    |		Load	0x1,0x9e
1a09 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1a0a e403       |    |		Load	0x2,0x3
1a0b e2a0       |    |		Load	0x1,0xa0
1a0c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1a0d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1a0e 840a       |    |		Call	0x2,0xa
1a0f a7fd       |    |		Store_Unchecked	0x3,-0x3
1a10 e7fd       |    |		Load	0x3,-0x3
1a11 6809       |h   |		Jump_Zero	0x1a1b
1a12 4801       |H   |		Short_Literal	0x1
1a13 e5fa       |    |		Load	0x2,-0x6
1a14 e29e       |    |		Load	0x1,0x9e
1a15 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1a16 4802       |H   |		Short_Literal	0x2
1a17 e7ff       |    |		Load	0x3,-0x1
1a18 e29e       |    |		Load	0x1,0x9e
1a19 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a1a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a1b 4801       |H   |		Short_Literal	0x1
1a1c e7ff       |    |		Load	0x3,-0x1
1a1d e29e       |    |		Load	0x1,0x9e
1a1e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a1f 00d8       |    |		Load_Top	At_Offset_0
1a20 e7ff       |    |		Load	0x3,-0x1
1a21 e29e       |    |		Load	0x1,0x9e
1a22 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1a23 4818       |H   |		Short_Literal	0x18
1a24 e7ff       |    |		Load	0x3,-0x1
1a25 e29e       |    |		Load	0x1,0x9e
1a26 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a27 e5fc       |    |		Load	0x2,-0x4
1a28 e7ff       |    |		Load	0x3,-0x1
1a29 e29e       |    |		Load	0x1,0x9e
1a2a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
1a2b 4806       |H   |		Short_Literal	0x6
1a2c e7ff       |    |		Load	0x3,-0x1
1a2d e29e       |    |		Load	0x1,0x9e
1a2e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a2f e5fd       |    |		Load	0x2,-0x3
1a30 e7ff       |    |		Load	0x3,-0x1
1a31 e29e       |    |		Load	0x1,0x9e
1a32 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1a33 481c       |H   |		Short_Literal	0x1c
1a34 e7ff       |    |		Load	0x3,-0x1
1a35 e29e       |    |		Load	0x1,0x9e
1a36 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a37 e5fb       |    |		Load	0x2,-0x5
1a38 e7ff       |    |		Load	0x3,-0x1
1a39 e29e       |    |		Load	0x1,0x9e
1a3a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1a3b 4801       |H   |		Short_Literal	0x1
1a3c a406       |    |		Store_Unchecked	0x2,0x6
1a3d 00cf       |    |		Action	Mark_Auxiliary
1a3e 7815       |x   |		Jump	0x1a54
1a3f 4805       |H   |		Short_Literal	0x5
1a40 e7ff       |    |		Load	0x3,-0x1
1a41 e29e       |    |		Load	0x1,0x9e
1a42 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a43 e406       |    |		Load	0x2,0x6
1a44 00d8       |    |		Load_Top	At_Offset_0
1a45 00e4       |    |		Load_Encached	Positive_Cache
1a46 0260       | `  |		Execute	Discrete,In_Type
1a47 7001       |p   |		Jump_Nonzero	0x1a49
1a48 0801       |    |		Execute_Immediate	Raise,0x1
1a49 e403       |    |		Load	0x2,0x3
1a4a e2a0       |    |		Load	0x1,0xa0
1a4b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1a4c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1a4d e7ff       |    |		Load	0x3,-0x1
1a4e e29e       |    |		Load	0x1,0x9e
1a4f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
1a50 e406       |    |		Load	0x2,0x6
1a51 0a01       |    |		Execute_Immediate	Plus,0x1
1a52 c406       |    |		Store	0x2,0x6
1a53 00c9       |    |		Action	Pop_Auxiliary_Loop
1a54 e406       |    |		Load	0x2,0x6
1a55 00d8       |    |		Load_Top	At_Offset_0
1a56 00e4       |    |		Load_Encached	Positive_Cache
1a57 0260       | `  |		Execute	Discrete,In_Type
1a58 7001       |p   |		Jump_Nonzero	0x1a5a
1a59 0801       |    |		Execute_Immediate	Raise,0x1
1a5a e403       |    |		Load	0x2,0x3
1a5b e2a0       |    |		Load	0x1,0xa0
1a5c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1a5d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1a5e 6fe0       |o   |		Jump_Zero	0x1a3f
1a5f 00ce       |    |		Action	Pop_Auxiliary
1a60 e403       |    |		Load	0x2,0x3
1a61 e2a0       |    |		Load	0x1,0xa0
1a62 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1a63 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1a64 840a       |    |		Call	0x2,0xa
1a65 a7fd       |    |		Store_Unchecked	0x3,-0x3
1a66 e7fd       |    |		Load	0x3,-0x3
1a67 6809       |h   |		Jump_Zero	0x1a71
1a68 4801       |H   |		Short_Literal	0x1
1a69 e5fa       |    |		Load	0x2,-0x6
1a6a e29e       |    |		Load	0x1,0x9e
1a6b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1a6c 4802       |H   |		Short_Literal	0x2
1a6d e7ff       |    |		Load	0x3,-0x1
1a6e e29e       |    |		Load	0x1,0x9e
1a6f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a70 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a71 4801       |H   |		Short_Literal	0x1
1a72 e7ff       |    |		Load	0x3,-0x1
1a73 e29e       |    |		Load	0x1,0x9e
1a74 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1a75 4801       |H   |		Short_Literal	0x1
1a76 e5fa       |    |		Load	0x2,-0x6
1a77 e29e       |    |		Load	0x1,0x9e
1a78 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1a79 00d8       |    |		Load_Top	At_Offset_0
1a7a e7ff       |    |		Load	0x3,-0x1
1a7b e29e       |    |		Load	0x1,0x9e
1a7c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1a7d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a7e			TRAP_1a00:
1a7e e027       | '  |		Load	0x0,0x27
1a7f 010f       |    |		Execute	Exception,Equal
1a80 6803       |h   |		Jump_Zero	0x1a84
1a81 4802       |H   |		Short_Literal	0x2
1a82 a7fd       |    |		Store_Unchecked	0x3,-0x3
1a83 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a84 e013       |    |		Load	0x0,0x13
1a85 010f       |    |		Execute	Exception,Equal
1a86 6803       |h   |		Jump_Zero	0x1a8a
1a87 4801       |H   |		Short_Literal	0x1
1a88 a7fd       |    |		Store_Unchecked	0x3,-0x3
1a89 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1a8a 0100       |    |		Execute	Exception,Raise
1a8b 0000 0000  |    |		.BLANK	0000[0x5]
1a90 ; --------------------------------------------------------------------------------------
1a90 ; SUBPROGRAM
1a90 ; --------------------------------------------------------------------------------------
1a90 1a98       |    |		.CONST	0x1a98								; Address of begin
1a91 1ab1       |    |		.CONST	0x1ab1								; Address of exception handler
1a92 0003       |    |		.CONST	0x0003								; Number of locals
1a93			INIT_1a90:
1a93 00db       |    |		Load_Top	At_Offset_3
1a94 00e3       |    |		Load_Encached	Natural_Cache
1a95 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1a96 e29c       |    |		Load	0x1,0x9c
1a97 0007       |    |		Action	Break_Optional
1a98			BODY_1a90:
1a98 e7ff       |    |		Load	0x3,-0x1
1a99 e29e       |    |		Load	0x1,0x9e
1a9a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1a9b 8409       |    |		Call	0x2,0x9
1a9c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1a9d 00d8       |    |		Load_Top	At_Offset_0
1a9e 0f01       |    |		Execute_Immediate	Equal,0x1
1a9f 7002       |p   |		Jump_Nonzero	0x1aa2
1aa0 e027       | '  |		Load	0x0,0x27
1aa1 0257       | W  |		Execute	Discrete,Raise
1aa2 e7ff       |    |		Load	0x3,-0x1
1aa3 e29e       |    |		Load	0x1,0x9e
1aa4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1aa5 00da       |    |		Load_Top	At_Offset_2
1aa6 027f       |    |		Execute	Discrete,Equal
1aa7 7002       |p   |		Jump_Nonzero	0x1aaa
1aa8 e027       | '  |		Load	0x0,0x27
1aa9 0257       | W  |		Execute	Discrete,Raise
1aaa e403       |    |		Load	0x2,0x3
1aab e2a0       |    |		Load	0x1,0xa0
1aac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
1aad 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
1aae 840a       |    |		Call	0x2,0xa
1aaf a7fd       |    |		Store_Unchecked	0x3,-0x3
1ab0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1ab1			TRAP_1a90:
1ab1 e011       |    |		Load	0x0,0x11
1ab2 010f       |    |		Execute	Exception,Equal
1ab3 6806       |h   |		Jump_Zero	0x1aba
1ab4 e7ff       |    |		Load	0x3,-0x1
1ab5 e29e       |    |		Load	0x1,0x9e
1ab6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1ab7 840a       |    |		Call	0x2,0xa
1ab8 a7fd       |    |		Store_Unchecked	0x3,-0x3
1ab9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1aba e013       |    |		Load	0x0,0x13
1abb 010f       |    |		Execute	Exception,Equal
1abc 6803       |h   |		Jump_Zero	0x1ac0
1abd 4801       |H   |		Short_Literal	0x1
1abe a7fd       |    |		Store_Unchecked	0x3,-0x3
1abf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1ac0 e027       | '  |		Load	0x0,0x27
1ac1 010f       |    |		Execute	Exception,Equal
1ac2 6803       |h   |		Jump_Zero	0x1ac6
1ac3 4802       |H   |		Short_Literal	0x2
1ac4 a7fd       |    |		Store_Unchecked	0x3,-0x3
1ac5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1ac6 0100       |    |		Execute	Exception,Raise
1ac7 0000       |    |		.XXX[0x1]
1ac8 ; --------------------------------------------------------------------------------------
1ac8 ; SUBPROGRAM
1ac8 ; --------------------------------------------------------------------------------------
1ac8 1acb       |    |		.CONST	0x1acb								; Address of begin
1ac9 0004       |    |		.CONST	0x0004								; Address of exception handler
1aca 0001       |    |		.CONST	0x0001								; Number of locals
1acb			BODY_1ac8:
1acb			INIT_1ac8:
1acb 4607       |F   |		Jump_Case	0x8
1acc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1acd 7806       |x   |		Jump	0x1ad4								; case 0x1
1ace 7809       |x   |		Jump	0x1ad8								; case 0x2
1acf 780d       |x   |		Jump	0x1add								; case 0x3
1ad0 7810       |x   |		Jump	0x1ae1								; case 0x4
1ad1 7811       |x   |		Jump	0x1ae3								; case 0x5
1ad2 7812       |x   |		Jump	0x1ae5								; case 0x6
1ad3 7815       |x   |		Jump	0x1ae9								; case 0x7
1ad4 00da       |    |		Load_Top	At_Offset_2
1ad5 0091 1dfa  |    |		Action	Push_String_Extended_Indexed,0x1dfa				; "SENTINEL"
1ad7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1ad8 00db       |    |		Load_Top	At_Offset_3
1ad9 00db       |    |		Load_Top	At_Offset_3
1ada 00e0       |    |		Load_Encached	Standard_Cache
1adb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1adc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1add 00da       |    |		Load_Top	At_Offset_2
1ade 00e0       |    |		Load_Encached	Standard_Cache
1adf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1ae0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1ae1 00db       |    |		Load_Top	At_Offset_3
1ae2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1ae3 00db       |    |		Load_Top	At_Offset_3
1ae4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1ae5 e407       |    |		Load	0x2,0x7
1ae6 00dc       |    |		Load_Top	At_Offset_4
1ae7 0267       | g  |		Execute	Discrete,Predecessor
1ae8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1ae9 e407       |    |		Load	0x2,0x7
1aea 00dc       |    |		Load_Top	At_Offset_4
1aeb 0268       | h  |		Execute	Discrete,Successor
1aec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1aed 0000 0000  |    |		.XXX[0x3]
1aef 0000       |    |
1af0 ; --------------------------------------------------------------------------------------
1af0 ; SUBPROGRAM
1af0 ; --------------------------------------------------------------------------------------
1af0 1af3       |    |		.CONST	0x1af3								; Address of begin
1af1 0004       |    |		.CONST	0x0004								; Address of exception handler
1af2 0001       |    |		.CONST	0x0001								; Number of locals
1af3			BODY_1af0:
1af3			INIT_1af0:
1af3 4607       |F   |		Jump_Case	0x8
1af4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1af5 7806       |x   |		Jump	0x1afc								; case 0x1
1af6 7809       |x   |		Jump	0x1b00								; case 0x2
1af7 780d       |x   |		Jump	0x1b05								; case 0x3
1af8 7810       |x   |		Jump	0x1b09								; case 0x4
1af9 7811       |x   |		Jump	0x1b0b								; case 0x5
1afa 7812       |x   |		Jump	0x1b0d								; case 0x6
1afb 7815       |x   |		Jump	0x1b11								; case 0x7
1afc 00da       |    |		Load_Top	At_Offset_2
1afd 0091 1dff  |    |		Action	Push_String_Extended_Indexed,0x1dff				; "NO_ERROR"
1aff 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1b00 00db       |    |		Load_Top	At_Offset_3
1b01 00db       |    |		Load_Top	At_Offset_3
1b02 00e0       |    |		Load_Encached	Standard_Cache
1b03 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1b04 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1b05 00da       |    |		Load_Top	At_Offset_2
1b06 00e0       |    |		Load_Encached	Standard_Cache
1b07 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1b08 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1b09 00db       |    |		Load_Top	At_Offset_3
1b0a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1b0b 00db       |    |		Load_Top	At_Offset_3
1b0c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1b0d e408       |    |		Load	0x2,0x8
1b0e 00dc       |    |		Load_Top	At_Offset_4
1b0f 0267       | g  |		Execute	Discrete,Predecessor
1b10 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1b11 e408       |    |		Load	0x2,0x8
1b12 00dc       |    |		Load_Top	At_Offset_4
1b13 0268       | h  |		Execute	Discrete,Successor
1b14 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1b15 0000 0000  |    |		.XXX[0x3]
1b17 0000       |    |
1b18 ; --------------------------------------------------------------------------------------
1b18 ; SUBPROGRAM
1b18 ; --------------------------------------------------------------------------------------
1b18 1b1d       |    |		.CONST	0x1b1d								; Address of begin
1b19 1b26       | &  |		.CONST	0x1b26								; Address of exception handler
1b1a 0002       |    |		.CONST	0x0002								; Number of locals
1b1b			INIT_1b18:
1b1b e407       |    |		Load	0x2,0x7
1b1c 0007       |    |		Action	Break_Optional
1b1d			BODY_1b18:
1b1d 00db       |    |		Load_Top	At_Offset_3
1b1e e29c       |    |		Load	0x1,0x9c
1b1f 011c       |    |		Execute	Any,Convert_Unchecked
1b20 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1b21 e407       |    |		Load	0x2,0x7
1b22 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1b23 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1b24 00db       |    |		Load_Top	At_Offset_3
1b25 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1b26			TRAP_1b18:
1b26 0007       |    |		Action	Break_Optional
1b27 e028       | (  |		Load	0x0,0x28
1b28 0257       | W  |		Execute	Discrete,Raise
1b29 0000 0000  |    |		.BLANK	0000[0x7]
1b30 ; --------------------------------------------------------------------------------------
1b30 ; SUBPROGRAM
1b30 ; --------------------------------------------------------------------------------------
1b30 1b35       | 5  |		.CONST	0x1b35								; Address of begin
1b31 1b3e       | >  |		.CONST	0x1b3e								; Address of exception handler
1b32 0002       |    |		.CONST	0x0002								; Number of locals
1b33			INIT_1b30:
1b33 e408       |    |		Load	0x2,0x8
1b34 0007       |    |		Action	Break_Optional
1b35			BODY_1b30:
1b35 00db       |    |		Load_Top	At_Offset_3
1b36 e26c       | l  |		Load	0x1,0x6c
1b37 011c       |    |		Execute	Any,Convert_Unchecked
1b38 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1b39 e408       |    |		Load	0x2,0x8
1b3a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1b3b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1b3c 00db       |    |		Load_Top	At_Offset_3
1b3d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1b3e			TRAP_1b30:
1b3e 0007       |    |		Action	Break_Optional
1b3f 4802       |H   |		Short_Literal	0x2
1b40 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1b41 0000 0000  |    |		.BLANK	0000[0x7]
1b48 ; --------------------------------------------------------------------------------------
1b48 ; SUBPROGRAM
1b48 ; --------------------------------------------------------------------------------------
1b48 1b4e       | N  |		.CONST	0x1b4e								; Address of begin
1b49 1b99       |    |		.CONST	0x1b99								; Address of exception handler
1b4a 0002       |    |		.CONST	0x0002								; Number of locals
1b4b			INIT_1b48:
1b4b 00db       |    |		Load_Top	At_Offset_3
1b4c 00e3       |    |		Load_Encached	Natural_Cache
1b4d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1b4e			BODY_1b48:
1b4e 4800       |H   |		Short_Literal	0x0
1b4f e5fb       |    |		Load	0x2,-0x5
1b50 e29e       |    |		Load	0x1,0x9e
1b51 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b52 e403       |    |		Load	0x2,0x3
1b53 e2a0       |    |		Load	0x1,0xa0
1b54 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b55 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b56 840a       |    |		Call	0x2,0xa
1b57 a7fd       |    |		Store_Unchecked	0x3,-0x3
1b58 e7fd       |    |		Load	0x3,-0x3
1b59 6809       |h   |		Jump_Zero	0x1b63
1b5a 4801       |H   |		Short_Literal	0x1
1b5b e5fb       |    |		Load	0x2,-0x5
1b5c e29e       |    |		Load	0x1,0x9e
1b5d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b5e 4802       |H   |		Short_Literal	0x2
1b5f e7ff       |    |		Load	0x3,-0x1
1b60 e29e       |    |		Load	0x1,0x9e
1b61 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b62 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1b63 4801       |H   |		Short_Literal	0x1
1b64 e7ff       |    |		Load	0x3,-0x1
1b65 e29e       |    |		Load	0x1,0x9e
1b66 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b67 00d8       |    |		Load_Top	At_Offset_0
1b68 e7ff       |    |		Load	0x3,-0x1
1b69 e29e       |    |		Load	0x1,0x9e
1b6a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1b6b 4807       |H   |		Short_Literal	0x7
1b6c e7ff       |    |		Load	0x3,-0x1
1b6d e29e       |    |		Load	0x1,0x9e
1b6e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b6f e5ff       |    |		Load	0x2,-0x1
1b70 e7ff       |    |		Load	0x3,-0x1
1b71 e29e       |    |		Load	0x1,0x9e
1b72 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1b73 481c       |H   |		Short_Literal	0x1c
1b74 e7ff       |    |		Load	0x3,-0x1
1b75 e29e       |    |		Load	0x1,0x9e
1b76 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b77 e5fe       |    |		Load	0x2,-0x2
1b78 e7ff       |    |		Load	0x3,-0x1
1b79 e29e       |    |		Load	0x1,0x9e
1b7a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1b7b e403       |    |		Load	0x2,0x3
1b7c e2a0       |    |		Load	0x1,0xa0
1b7d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1b7e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b7f 840a       |    |		Call	0x2,0xa
1b80 a7fd       |    |		Store_Unchecked	0x3,-0x3
1b81 e7fd       |    |		Load	0x3,-0x3
1b82 6809       |h   |		Jump_Zero	0x1b8c
1b83 4801       |H   |		Short_Literal	0x1
1b84 e5fb       |    |		Load	0x2,-0x5
1b85 e29e       |    |		Load	0x1,0x9e
1b86 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b87 4802       |H   |		Short_Literal	0x2
1b88 e7ff       |    |		Load	0x3,-0x1
1b89 e29e       |    |		Load	0x1,0x9e
1b8a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b8b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1b8c 4801       |H   |		Short_Literal	0x1
1b8d e7ff       |    |		Load	0x3,-0x1
1b8e e29e       |    |		Load	0x1,0x9e
1b8f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1b90 4801       |H   |		Short_Literal	0x1
1b91 e5fb       |    |		Load	0x2,-0x5
1b92 e29e       |    |		Load	0x1,0x9e
1b93 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
1b94 00d8       |    |		Load_Top	At_Offset_0
1b95 e7ff       |    |		Load	0x3,-0x1
1b96 e29e       |    |		Load	0x1,0x9e
1b97 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1b98 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1b99			TRAP_1b48:
1b99 e028       | (  |		Load	0x0,0x28
1b9a 010f       |    |		Execute	Exception,Equal
1b9b 6803       |h   |		Jump_Zero	0x1b9f
1b9c 4802       |H   |		Short_Literal	0x2
1b9d a7fd       |    |		Store_Unchecked	0x3,-0x3
1b9e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1b9f e013       |    |		Load	0x0,0x13
1ba0 010f       |    |		Execute	Exception,Equal
1ba1 6803       |h   |		Jump_Zero	0x1ba5
1ba2 4801       |H   |		Short_Literal	0x1
1ba3 a7fd       |    |		Store_Unchecked	0x3,-0x3
1ba4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1ba5 0100       |    |		Execute	Exception,Raise
1ba6 0000 0000  |    |		.XXX[0x2]
1ba8 ; --------------------------------------------------------------------------------------
1ba8 ; SUBPROGRAM
1ba8 ; --------------------------------------------------------------------------------------
1ba8 1bb0       |    |		.CONST	0x1bb0								; Address of begin
1ba9 1be7       |    |		.CONST	0x1be7								; Address of exception handler
1baa 0003       |    |		.CONST	0x0003								; Number of locals
1bab			INIT_1ba8:
1bab 00db       |    |		Load_Top	At_Offset_3
1bac 00e3       |    |		Load_Encached	Natural_Cache
1bad 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1bae e29c       |    |		Load	0x1,0x9c
1baf 0007       |    |		Action	Break_Optional
1bb0			BODY_1ba8:
1bb0 e7ff       |    |		Load	0x3,-0x1
1bb1 e29e       |    |		Load	0x1,0x9e
1bb2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1bb3 8409       |    |		Call	0x2,0x9
1bb4 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1bb5 4801       |H   |		Short_Literal	0x1
1bb6 a406       |    |		Store_Unchecked	0x2,0x6
1bb7 00cf       |    |		Action	Mark_Auxiliary
1bb8 7816       |x   |		Jump	0x1bcf
1bb9 e7ff       |    |		Load	0x3,-0x1
1bba e29e       |    |		Load	0x1,0x9e
1bbb 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1bbc e406       |    |		Load	0x2,0x6
1bbd 00d8       |    |		Load_Top	At_Offset_0
1bbe 00e4       |    |		Load_Encached	Positive_Cache
1bbf 0260       | `  |		Execute	Discrete,In_Type
1bc0 7001       |p   |		Jump_Nonzero	0x1bc2
1bc1 0801       |    |		Execute_Immediate	Raise,0x1
1bc2 e403       |    |		Load	0x2,0x3
1bc3 e2a0       |    |		Load	0x1,0xa0
1bc4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1bc5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1bc6 e7ff       |    |		Load	0x3,-0x1
1bc7 e29e       |    |		Load	0x1,0x9e
1bc8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1bc9 8409       |    |		Call	0x2,0x9
1bca 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1bcb e406       |    |		Load	0x2,0x6
1bcc 0a01       |    |		Execute_Immediate	Plus,0x1
1bcd c406       |    |		Store	0x2,0x6
1bce 00c9       |    |		Action	Pop_Auxiliary_Loop
1bcf 00d9       |    |		Load_Top	At_Offset_1
1bd0 0f05       |    |		Execute_Immediate	Equal,0x5
1bd1 77e7       |w   |		Jump_Nonzero	0x1bb9
1bd2 00ce       |    |		Action	Pop_Auxiliary
1bd3 00d8       |    |		Load_Top	At_Offset_0
1bd4 0f01       |    |		Execute_Immediate	Equal,0x1
1bd5 7002       |p   |		Jump_Nonzero	0x1bd8
1bd6 e028       | (  |		Load	0x0,0x28
1bd7 0257       | W  |		Execute	Discrete,Raise
1bd8 e7ff       |    |		Load	0x3,-0x1
1bd9 e29e       |    |		Load	0x1,0x9e
1bda 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1bdb 00da       |    |		Load_Top	At_Offset_2
1bdc 027f       |    |		Execute	Discrete,Equal
1bdd 7002       |p   |		Jump_Nonzero	0x1be0
1bde e028       | (  |		Load	0x0,0x28
1bdf 0257       | W  |		Execute	Discrete,Raise
1be0 e403       |    |		Load	0x2,0x3
1be1 e2a0       |    |		Load	0x1,0xa0
1be2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
1be3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1be4 840a       |    |		Call	0x2,0xa
1be5 a7fd       |    |		Store_Unchecked	0x3,-0x3
1be6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1be7			TRAP_1ba8:
1be7 e011       |    |		Load	0x0,0x11
1be8 010f       |    |		Execute	Exception,Equal
1be9 6806       |h   |		Jump_Zero	0x1bf0
1bea e7ff       |    |		Load	0x3,-0x1
1beb e29e       |    |		Load	0x1,0x9e
1bec 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1bed 840a       |    |		Call	0x2,0xa
1bee a7fd       |    |		Store_Unchecked	0x3,-0x3
1bef 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1bf0 e013       |    |		Load	0x0,0x13
1bf1 010f       |    |		Execute	Exception,Equal
1bf2 6803       |h   |		Jump_Zero	0x1bf6
1bf3 4801       |H   |		Short_Literal	0x1
1bf4 a7fd       |    |		Store_Unchecked	0x3,-0x3
1bf5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1bf6 e028       | (  |		Load	0x0,0x28
1bf7 010f       |    |		Execute	Exception,Equal
1bf8 6803       |h   |		Jump_Zero	0x1bfc
1bf9 4802       |H   |		Short_Literal	0x2
1bfa a7fd       |    |		Store_Unchecked	0x3,-0x3
1bfb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1bfc 0100       |    |		Execute	Exception,Raise
1bfd 0000 0000  |    |		.XXX[0x3]
1bff 0000       |    |
1c00 ; --------------------------------------------------------------------------------------
1c00 ; SUBPROGRAM
1c00 ; --------------------------------------------------------------------------------------
1c00 1c03       |    |		.CONST	0x1c03								; Address of begin
1c01 0004       |    |		.CONST	0x0004								; Address of exception handler
1c02 0001       |    |		.CONST	0x0001								; Number of locals
1c03			BODY_1c00:
1c03			INIT_1c00:
1c03 4607       |F   |		Jump_Case	0x8
1c04 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1c05 7806       |x   |		Jump	0x1c0c								; case 0x1
1c06 7809       |x   |		Jump	0x1c10								; case 0x2
1c07 780d       |x   |		Jump	0x1c15								; case 0x3
1c08 7810       |x   |		Jump	0x1c19								; case 0x4
1c09 7811       |x   |		Jump	0x1c1b								; case 0x5
1c0a 7812       |x   |		Jump	0x1c1d								; case 0x6
1c0b 7815       |x   |		Jump	0x1c21								; case 0x7
1c0c 00da       |    |		Load_Top	At_Offset_2
1c0d 0091 1e09  |    |		Action	Push_String_Extended_Indexed,0x1e09				; "SENTINEL"
1c0f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1c10 00db       |    |		Load_Top	At_Offset_3
1c11 00db       |    |		Load_Top	At_Offset_3
1c12 00e0       |    |		Load_Encached	Standard_Cache
1c13 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1c14 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c15 00da       |    |		Load_Top	At_Offset_2
1c16 00e0       |    |		Load_Encached	Standard_Cache
1c17 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1c18 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1c19 00db       |    |		Load_Top	At_Offset_3
1c1a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c1b 00db       |    |		Load_Top	At_Offset_3
1c1c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c1d e407       |    |		Load	0x2,0x7
1c1e 00dc       |    |		Load_Top	At_Offset_4
1c1f 0267       | g  |		Execute	Discrete,Predecessor
1c20 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c21 e407       |    |		Load	0x2,0x7
1c22 00dc       |    |		Load_Top	At_Offset_4
1c23 0268       | h  |		Execute	Discrete,Successor
1c24 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c25 0000 0000  |    |		.XXX[0x3]
1c27 0000       |    |
1c28 ; --------------------------------------------------------------------------------------
1c28 ; SUBPROGRAM
1c28 ; --------------------------------------------------------------------------------------
1c28 1c2b       | +  |		.CONST	0x1c2b								; Address of begin
1c29 0004       |    |		.CONST	0x0004								; Address of exception handler
1c2a 0001       |    |		.CONST	0x0001								; Number of locals
1c2b			BODY_1c28:
1c2b			INIT_1c28:
1c2b 4607       |F   |		Jump_Case	0x8
1c2c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
1c2d 7806       |x   |		Jump	0x1c34								; case 0x1
1c2e 7809       |x   |		Jump	0x1c38								; case 0x2
1c2f 780d       |x   |		Jump	0x1c3d								; case 0x3
1c30 7810       |x   |		Jump	0x1c41								; case 0x4
1c31 7811       |x   |		Jump	0x1c43								; case 0x5
1c32 7812       |x   |		Jump	0x1c45								; case 0x6
1c33 7815       |x   |		Jump	0x1c49								; case 0x7
1c34 00da       |    |		Load_Top	At_Offset_2
1c35 0091 1e0e  |    |		Action	Push_String_Extended_Indexed,0x1e0e				; "NO_ERROR"
1c37 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1c38 00db       |    |		Load_Top	At_Offset_3
1c39 00db       |    |		Load_Top	At_Offset_3
1c3a 00e0       |    |		Load_Encached	Standard_Cache
1c3b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
1c3c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c3d 00da       |    |		Load_Top	At_Offset_2
1c3e 00e0       |    |		Load_Encached	Standard_Cache
1c3f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1c40 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
1c41 00db       |    |		Load_Top	At_Offset_3
1c42 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c43 00db       |    |		Load_Top	At_Offset_3
1c44 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c45 e408       |    |		Load	0x2,0x8
1c46 00dc       |    |		Load_Top	At_Offset_4
1c47 0267       | g  |		Execute	Discrete,Predecessor
1c48 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c49 e408       |    |		Load	0x2,0x8
1c4a 00dc       |    |		Load_Top	At_Offset_4
1c4b 0268       | h  |		Execute	Discrete,Successor
1c4c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
1c4d 0000 0000  |    |		.XXX[0x3]
1c4f 0000       |    |
1c50 ; --------------------------------------------------------------------------------------
1c50 ; SUBPROGRAM
1c50 ; --------------------------------------------------------------------------------------
1c50 1c55       | U  |		.CONST	0x1c55								; Address of begin
1c51 1c5e       | ^  |		.CONST	0x1c5e								; Address of exception handler
1c52 0002       |    |		.CONST	0x0002								; Number of locals
1c53			INIT_1c50:
1c53 e407       |    |		Load	0x2,0x7
1c54 0007       |    |		Action	Break_Optional
1c55			BODY_1c50:
1c55 00db       |    |		Load_Top	At_Offset_3
1c56 e29c       |    |		Load	0x1,0x9c
1c57 011c       |    |		Execute	Any,Convert_Unchecked
1c58 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1c59 e407       |    |		Load	0x2,0x7
1c5a 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1c5b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1c5c 00db       |    |		Load_Top	At_Offset_3
1c5d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1c5e			TRAP_1c50:
1c5e 0007       |    |		Action	Break_Optional
1c5f e029       | )  |		Load	0x0,0x29
1c60 0257       | W  |		Execute	Discrete,Raise
1c61 0000 0000  |    |		.BLANK	0000[0x7]
1c68 ; --------------------------------------------------------------------------------------
1c68 ; SUBPROGRAM
1c68 ; --------------------------------------------------------------------------------------
1c68 1c6d       | m  |		.CONST	0x1c6d								; Address of begin
1c69 1c76       | v  |		.CONST	0x1c76								; Address of exception handler
1c6a 0002       |    |		.CONST	0x0002								; Number of locals
1c6b			INIT_1c68:
1c6b e408       |    |		Load	0x2,0x8
1c6c 0007       |    |		Action	Break_Optional
1c6d			BODY_1c68:
1c6d 00db       |    |		Load_Top	At_Offset_3
1c6e e26c       | l  |		Load	0x1,0x6c
1c6f 011c       |    |		Execute	Any,Convert_Unchecked
1c70 1c01       |    |		Execute_Immediate	Run_Utility,0x1
1c71 e408       |    |		Load	0x2,0x8
1c72 1c02       |    |		Execute_Immediate	Run_Utility,0x2
1c73 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1c74 00db       |    |		Load_Top	At_Offset_3
1c75 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1c76			TRAP_1c68:
1c76 0007       |    |		Action	Break_Optional
1c77 4802       |H   |		Short_Literal	0x2
1c78 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
1c79 0000 0000  |    |		.BLANK	0000[0x7]
1c80 ; --------------------------------------------------------------------------------------
1c80 ; SUBPROGRAM
1c80 ; --------------------------------------------------------------------------------------
1c80 1c86       |    |		.CONST	0x1c86								; Address of begin
1c81 1cc1       |    |		.CONST	0x1cc1								; Address of exception handler
1c82 0002       |    |		.CONST	0x0002								; Number of locals
1c83			INIT_1c80:
1c83 00db       |    |		Load_Top	At_Offset_3
1c84 00e3       |    |		Load_Encached	Natural_Cache
1c85 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1c86			BODY_1c80:
1c86 e403       |    |		Load	0x2,0x3
1c87 e2a0       |    |		Load	0x1,0xa0
1c88 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
1c89 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1c8a 840a       |    |		Call	0x2,0xa
1c8b a7fd       |    |		Store_Unchecked	0x3,-0x3
1c8c e7fd       |    |		Load	0x3,-0x3
1c8d 6805       |h   |		Jump_Zero	0x1c93
1c8e 4802       |H   |		Short_Literal	0x2
1c8f e7ff       |    |		Load	0x3,-0x1
1c90 e29e       |    |		Load	0x1,0x9e
1c91 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1c92 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1c93 4801       |H   |		Short_Literal	0x1
1c94 e7ff       |    |		Load	0x3,-0x1
1c95 e29e       |    |		Load	0x1,0x9e
1c96 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1c97 00d8       |    |		Load_Top	At_Offset_0
1c98 e7ff       |    |		Load	0x3,-0x1
1c99 e29e       |    |		Load	0x1,0x9e
1c9a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1c9b 480f       |H   |		Short_Literal	0xf
1c9c e7ff       |    |		Load	0x3,-0x1
1c9d e29e       |    |		Load	0x1,0x9e
1c9e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1c9f e5ff       |    |		Load	0x2,-0x1
1ca0 e7ff       |    |		Load	0x3,-0x1
1ca1 e29e       |    |		Load	0x1,0x9e
1ca2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
1ca3 4810       |H   |		Short_Literal	0x10
1ca4 e7ff       |    |		Load	0x3,-0x1
1ca5 e29e       |    |		Load	0x1,0x9e
1ca6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1ca7 e5fe       |    |		Load	0x2,-0x2
1ca8 e7ff       |    |		Load	0x3,-0x1
1ca9 e29e       |    |		Load	0x1,0x9e
1caa 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1cab e403       |    |		Load	0x2,0x3
1cac e2a0       |    |		Load	0x1,0xa0
1cad 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
1cae 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1caf 840a       |    |		Call	0x2,0xa
1cb0 a7fd       |    |		Store_Unchecked	0x3,-0x3
1cb1 e7fd       |    |		Load	0x3,-0x3
1cb2 6805       |h   |		Jump_Zero	0x1cb8
1cb3 4802       |H   |		Short_Literal	0x2
1cb4 e7ff       |    |		Load	0x3,-0x1
1cb5 e29e       |    |		Load	0x1,0x9e
1cb6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1cb7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1cb8 4801       |H   |		Short_Literal	0x1
1cb9 e7ff       |    |		Load	0x3,-0x1
1cba e29e       |    |		Load	0x1,0x9e
1cbb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1cbc 00d8       |    |		Load_Top	At_Offset_0
1cbd e7ff       |    |		Load	0x3,-0x1
1cbe e29e       |    |		Load	0x1,0x9e
1cbf 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
1cc0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1cc1			TRAP_1c80:
1cc1 e029       | )  |		Load	0x0,0x29
1cc2 010f       |    |		Execute	Exception,Equal
1cc3 6803       |h   |		Jump_Zero	0x1cc7
1cc4 4802       |H   |		Short_Literal	0x2
1cc5 a7fd       |    |		Store_Unchecked	0x3,-0x3
1cc6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1cc7 e013       |    |		Load	0x0,0x13
1cc8 010f       |    |		Execute	Exception,Equal
1cc9 6803       |h   |		Jump_Zero	0x1ccd
1cca 4801       |H   |		Short_Literal	0x1
1ccb a7fd       |    |		Store_Unchecked	0x3,-0x3
1ccc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1ccd 0100       |    |		Execute	Exception,Raise
1cce 0000 0000  |    |		.XXX[0x2]
1cd0 ; --------------------------------------------------------------------------------------
1cd0 ; SUBPROGRAM
1cd0 ; --------------------------------------------------------------------------------------
1cd0 1cd8       |    |		.CONST	0x1cd8								; Address of begin
1cd1 1d0f       |    |		.CONST	0x1d0f								; Address of exception handler
1cd2 0003       |    |		.CONST	0x0003								; Number of locals
1cd3			INIT_1cd0:
1cd3 00db       |    |		Load_Top	At_Offset_3
1cd4 00e3       |    |		Load_Encached	Natural_Cache
1cd5 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1cd6 e29c       |    |		Load	0x1,0x9c
1cd7 0007       |    |		Action	Break_Optional
1cd8			BODY_1cd0:
1cd8 e7ff       |    |		Load	0x3,-0x1
1cd9 e29e       |    |		Load	0x1,0x9e
1cda 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1cdb 8409       |    |		Call	0x2,0x9
1cdc 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
1cdd 4801       |H   |		Short_Literal	0x1
1cde a406       |    |		Store_Unchecked	0x2,0x6
1cdf 00cf       |    |		Action	Mark_Auxiliary
1ce0 7816       |x   |		Jump	0x1cf7
1ce1 e7ff       |    |		Load	0x3,-0x1
1ce2 e29e       |    |		Load	0x1,0x9e
1ce3 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1ce4 e406       |    |		Load	0x2,0x6
1ce5 00d8       |    |		Load_Top	At_Offset_0
1ce6 00e4       |    |		Load_Encached	Positive_Cache
1ce7 0260       | `  |		Execute	Discrete,In_Type
1ce8 7001       |p   |		Jump_Nonzero	0x1cea
1ce9 0801       |    |		Execute_Immediate	Raise,0x1
1cea e403       |    |		Load	0x2,0x3
1ceb e2a0       |    |		Load	0x1,0xa0
1cec 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
1ced 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
1cee e7ff       |    |		Load	0x3,-0x1
1cef e29e       |    |		Load	0x1,0x9e
1cf0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
1cf1 8409       |    |		Call	0x2,0x9
1cf2 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1cf3 e406       |    |		Load	0x2,0x6
1cf4 0a01       |    |		Execute_Immediate	Plus,0x1
1cf5 c406       |    |		Store	0x2,0x6
1cf6 00c9       |    |		Action	Pop_Auxiliary_Loop
1cf7 00d9       |    |		Load_Top	At_Offset_1
1cf8 0f0e       |    |		Execute_Immediate	Equal,0xe
1cf9 77e7       |w   |		Jump_Nonzero	0x1ce1
1cfa 00ce       |    |		Action	Pop_Auxiliary
1cfb 00d8       |    |		Load_Top	At_Offset_0
1cfc 0f01       |    |		Execute_Immediate	Equal,0x1
1cfd 7002       |p   |		Jump_Nonzero	0x1d00
1cfe e029       | )  |		Load	0x0,0x29
1cff 0257       | W  |		Execute	Discrete,Raise
1d00 e7ff       |    |		Load	0x3,-0x1
1d01 e29e       |    |		Load	0x1,0x9e
1d02 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
1d03 00da       |    |		Load_Top	At_Offset_2
1d04 027f       |    |		Execute	Discrete,Equal
1d05 7002       |p   |		Jump_Nonzero	0x1d08
1d06 e029       | )  |		Load	0x0,0x29
1d07 0257       | W  |		Execute	Discrete,Raise
1d08 e403       |    |		Load	0x2,0x3
1d09 e2a0       |    |		Load	0x1,0xa0
1d0a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
1d0b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
1d0c 840a       |    |		Call	0x2,0xa
1d0d a7fd       |    |		Store_Unchecked	0x3,-0x3
1d0e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1d0f			TRAP_1cd0:
1d0f e011       |    |		Load	0x0,0x11
1d10 010f       |    |		Execute	Exception,Equal
1d11 6806       |h   |		Jump_Zero	0x1d18
1d12 e7ff       |    |		Load	0x3,-0x1
1d13 e29e       |    |		Load	0x1,0x9e
1d14 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
1d15 840a       |    |		Call	0x2,0xa
1d16 a7fd       |    |		Store_Unchecked	0x3,-0x3
1d17 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1d18 e013       |    |		Load	0x0,0x13
1d19 010f       |    |		Execute	Exception,Equal
1d1a 6803       |h   |		Jump_Zero	0x1d1e
1d1b 4801       |H   |		Short_Literal	0x1
1d1c a7fd       |    |		Store_Unchecked	0x3,-0x3
1d1d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1d1e e029       | )  |		Load	0x0,0x29
1d1f 010f       |    |		Execute	Exception,Equal
1d20 6803       |h   |		Jump_Zero	0x1d24
1d21 4802       |H   |		Short_Literal	0x2
1d22 a7fd       |    |		Store_Unchecked	0x3,-0x3
1d23 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
1d24 0100       |    |		Execute	Exception,Raise
1d25 ; --------------------------------------------------------------------------------------
1d25 ; STRING TABLE
1d25 ; --------------------------------------------------------------------------------------
1d25 0220       |    |		.STRTAB	0x0220->0x1e35							; "NO_ERROR"
1d26 0226       | &  |		.STRTAB	0x0226->0x1e39							; "CONNECTION_ERROR"
1d27 0234       | 4  |		.STRTAB	0x0234->0x1e41							; "INTERNAL_ERROR"
1d28 0240       | @  |		.STRTAB	0x0240->0x1e48							; "BAD_USER"
1d29 0246       | F  |		.STRTAB	0x0246->0x1e4c							; "ACCESS_ERROR"
1d2a 0250       | P  |		.STRTAB	0x0250->0x1e52							; "DEVICE_ERROR"
1d2b 025a       | Z  |		.STRTAB	0x025a->0x1e58							; "LOCK_ERROR"
1d2c 0262       | b  |		.STRTAB	0x0262->0x1e5d							; "NAME_ERROR"
1d2d 026a       | j  |		.STRTAB	0x026a->0x1e62							; "POLICY_ERROR"
1d2e 0274       | t  |		.STRTAB	0x0274->0x1e68							; "STATUS_ERROR"
1d2f 027e       | ~  |		.STRTAB	0x027e->0x1e6e							; "STORAGE_ERROR"
1d30 0289       |    |		.STRTAB	0x0289->0x1e74							; "UNSUPPORTED"
1d31 0292       |    |		.STRTAB	0x0292->0x1e7a							; "USE_ERROR"
1d32 0299       |    |		.STRTAB	0x0299->0x1e7e							; "COMMAND_ERROR"
1d33 02a4       |    |		.STRTAB	0x02a4->0x1e85							; "COMMAND_TERMINATED"
1d34 02b4       |    |		.STRTAB	0x02b4->0x1e8e							; "COMMAND_TIMED_OUT"
1d35 02c3       |    |		.STRTAB	0x02c3->0x1e96							; "RESOURCE_LIMIT"
1d36 02cf       |    |		.STRTAB	0x02cf->0x1e9d							; "NIL"
1d37 02d0       |    |		.STRTAB	0x02d0->0x1e9f							; "READ_INPUT"
1d38 02d8       |    |		.STRTAB	0x02d8->0x1ea4							; "ABORT_COMMAND"
1d39 02e3       |    |		.STRTAB	0x02e3->0x1eaa							; "NIL_PLATFORM"
1d3a 02ed       |    |		.STRTAB	0x02ed->0x1eb0							; "SUN_PLATFORM"
1d3b 02f7       |    |		.STRTAB	0x02f7->0x1eb6							; "APOLLO_PLATFORM"
1d3c 0304       |    |		.STRTAB	0x0304->0x1ebe							; "IBM_PLATFORM"
1d3d 030e       |    |		.STRTAB	0x030e->0x1ec4							; "HP_PLATFORM"
1d3e 0317       |    |		.STRTAB	0x0317->0x1ec9							; "VAX_PLATFORM"
1d3f 0321       | !  |		.STRTAB	0x0321->0x1ecf							; "CREATE_R"
1d40 0327       | '  |		.STRTAB	0x0327->0x1ed3							; "PUT_R"
1d41 032a       | *  |		.STRTAB	0x032a->0x1ed6							; "GET_R"
1d42 032d       | -  |		.STRTAB	0x032d->0x1ed8							; "LAST_UPDATE_R"
1d43 0338       | 8  |		.STRTAB	0x0338->0x1edf							; "FILE_EXISTENCE_R"
1d44 0346       | F  |		.STRTAB	0x0346->0x1ee7							; "COPY_R"
1d45 034a       | J  |		.STRTAB	0x034a->0x1eea							; "DELETE_R"
1d46 0350       | P  |		.STRTAB	0x0350->0x1eee							; "MOVE_R"
1d47 0354       | T  |		.STRTAB	0x0354->0x1ef1							; "LS_R"
1d48 0356       | V  |		.STRTAB	0x0356->0x1ef3							; "INPUT_TO_SHELL_R"
1d49 0364       | d  |		.STRTAB	0x0364->0x1efb							; "SIGNAL_TO_SHELL_R"
1d4a 0373       | s  |		.STRTAB	0x0373->0x1f03							; "EXPUNGE_R"
1d4b 037a       | z  |		.STRTAB	0x037a->0x1f08							; "DISCONNECT_F"
1d4c 0384       |    |		.STRTAB	0x0384->0x1f0e							; "SENTINEL"
1d4d 038a       |    |		.STRTAB	0x038a->0x1f12							; "ERR"
1d4e 038b       |    |		.STRTAB	0x038b->0x1f13							; "IS_DIRECTORY_F"
1d4f 0397       |    |		.STRTAB	0x0397->0x1f1a							; "REMOTE_FILE_F"
1d50 03a2       |    |		.STRTAB	0x03a2->0x1f21							; "CONTENT_F"
1d51 03a9       |    |		.STRTAB	0x03a9->0x1f25							; "TO_REMOTE_FILE_F"
1d52 03b7       |    |		.STRTAB	0x03b7->0x1f2d							; "FROM_REMOTE_FILE_F"
1d53 03c7       |    |		.STRTAB	0x03c7->0x1f36							; "IN_SECONDS_F"
1d54 03d1       |    |		.STRTAB	0x03d1->0x1f3c							; "EXISTS_F"
1d55 03d7       |    |		.STRTAB	0x03d7->0x1f40							; "TIME_F"
1d56 03db       |    |		.STRTAB	0x03db->0x1f43							; "OF_REMOTE_FILE_F"
1d57 03e9       |    |		.STRTAB	0x03e9->0x1f4b							; "LINK_F"
1d58 03ed       |    |		.STRTAB	0x03ed->0x1f4e							; "EXPUNGE_F"
1d59 03f4       |    |		.STRTAB	0x03f4->0x1f53							; "A_LINE_F"
1d5a 03fa       |    |		.STRTAB	0x03fa->0x1f57							; "FROM_REMOTE_DIRECTORY_F"
1d5b 040f       |    |		.STRTAB	0x040f->0x1f62							; "LEVEL_F"
1d5c 0414       |    |		.STRTAB	0x0414->0x1f66							; "INPUT_F"
1d5d 0419       |    |		.STRTAB	0x0419->0x1f69							; "SIGNAL_F"
1d5e 041f       |    |		.STRTAB	0x041f->0x1f6d							; "STD_OUTPUT_F"
1d5f 0429       | )  |		.STRTAB	0x0429->0x1f73							; "STD_ERROR_F"
1d60 0432       | 2  |		.STRTAB	0x0432->0x1f79							; "ABORT_F"
1d61 0437       | 7  |		.STRTAB	0x0437->0x1f7c							; "CONTINUE_F"
1d62 043f       | ?  |		.STRTAB	0x043f->0x1f81							; "TIMEOUT_F"
1d63 0446       | F  |		.STRTAB	0x0446->0x1f86							; "APPEND_F"
1d64 044c       | L  |		.STRTAB	0x044c->0x1f8a							; "CREATE_DIR_F"
1d65 0456       | V  |		.STRTAB	0x0456->0x1f90							; "RECURSIVE_F"
1d66 045f       | _  |		.STRTAB	0x045f->0x1f95							; "OBJECT_F"
1d67 0465       | e  |		.STRTAB	0x0465->0x1f99							; "OPTIONS_F"
1d68 046c       | l  |		.STRTAB	0x046c->0x1f9e							; "SENTINEL"
1d69 0472       | r  |		.STRTAB	0x0472->0x1fa2							; "ERROR"
1d6a 0475       | u  |		.STRTAB	0x0475->0x1fa4							; "IS_DIRECTORY_F"
1d6b 0481       |    |		.STRTAB	0x0481->0x1fab							; "REMOTE_F"
1d6c 0487       |    |		.STRTAB	0x0487->0x1faf							; "OPTIONS_F"
1d6d 048e       |    |		.STRTAB	0x048e->0x1fb4							; "CREATE_DIR_F"
1d6e 0498       |    |		.STRTAB	0x0498->0x1fba							; "NO_ERROR"
1d6f 049e       |    |		.STRTAB	0x049e->0x1fbe							; "CONNECTION_ERROR"
1d70 04ac       |    |		.STRTAB	0x04ac->0x1fc6							; "INTERNAL_ERROR"
1d71 04b8       |    |		.STRTAB	0x04b8->0x1fcd							; "POLICY_ERROR"
1d72 04c2       |    |		.STRTAB	0x04c2->0x1fd3							; "STATUS_ERROR"
1d73 04cc       |    |		.STRTAB	0x04cc->0x1fd9							; "USE_ERROR"
1d74 04d3       |    |		.STRTAB	0x04d3->0x1fdd							; "DEVICE_ERROR"
1d75 04dd       |    |		.STRTAB	0x04dd->0x1fe3							; "NAME_ERROR"
1d76 04e5       |    |		.STRTAB	0x04e5->0x1fe8							; "UNSUPPORTED"
1d77 04ee       |    |		.STRTAB	0x04ee->0x1fee							; "SENTINEL"
1d78 04f4       |    |		.STRTAB	0x04f4->0x1ff2							; "ERROR"
1d79 04f7       |    |		.STRTAB	0x04f7->0x1ff4							; "OF_REMOTE_FILE_F"
1d7a 0505       |    |		.STRTAB	0x0505->0x1ffc							; "IN_SECONDS_F"
1d7b 050f       |    |		.STRTAB	0x050f->0x2002							; "TIME_F"
1d7c 0513       |    |		.STRTAB	0x0513->0x2005							; "OPTIONS_F"
1d7d 051a       |    |		.STRTAB	0x051a->0x200a							; "NO_ERROR"
1d7e 0520       |    |		.STRTAB	0x0520->0x200e							; "CONNECTION_ERROR"
1d7f 052e       | .  |		.STRTAB	0x052e->0x2016							; "INTERNAL_ERROR"
1d80 053a       | :  |		.STRTAB	0x053a->0x201d							; "POLICY_ERROR"
1d81 0544       | D  |		.STRTAB	0x0544->0x2023							; "STATUS_ERROR"
1d82 054e       | N  |		.STRTAB	0x054e->0x2029							; "DEVICE_ERROR"
1d83 0558       | X  |		.STRTAB	0x0558->0x202f							; "NAME_ERROR"
1d84 0560       | `  |		.STRTAB	0x0560->0x2034							; "USE_ERROR"
1d85 0567       | g  |		.STRTAB	0x0567->0x2038							; "UNSUPPORTED"
1d86 0570       | p  |		.STRTAB	0x0570->0x203e							; "SENTINEL"
1d87 0576       | v  |		.STRTAB	0x0576->0x2042							; "ERROR"
1d88 0579       | y  |		.STRTAB	0x0579->0x2044							; "OF_REMOTE_FILE_F"
1d89 0587       |    |		.STRTAB	0x0587->0x204c							; "EXISTS_F"
1d8a 058d       |    |		.STRTAB	0x058d->0x2050							; "NO_ERROR"
1d8b 0593       |    |		.STRTAB	0x0593->0x2054							; "CONNECTION_ERROR"
1d8c 05a1       |    |		.STRTAB	0x05a1->0x205c							; "INTERNAL_ERROR"
1d8d 05ad       |    |		.STRTAB	0x05ad->0x2063							; "POLICY_ERROR"
1d8e 05b7       |    |		.STRTAB	0x05b7->0x2069							; "STATUS_ERROR"
1d8f 05c1       |    |		.STRTAB	0x05c1->0x206f							; "DEVICE_ERROR"
1d90 05cb       |    |		.STRTAB	0x05cb->0x2075							; "NAME_ERROR"
1d91 05d3       |    |		.STRTAB	0x05d3->0x207a							; "USE_ERROR"
1d92 05da       |    |		.STRTAB	0x05da->0x207f							; "UNSUPPORTED"
1d93 05e3       |    |		.STRTAB	0x05e3->0x2084							; "SENTINEL"
1d94 05e9       |    |		.STRTAB	0x05e9->0x2088							; "ERROR"
1d95 05ec       |    |		.STRTAB	0x05ec->0x208b							; "LINK_F"
1d96 05f0       |    |		.STRTAB	0x05f0->0x208e							; "FROM_REMOTE_FILE_F"
1d97 0600       |    |		.STRTAB	0x0600->0x2097							; "TO_REMOTE_FILE_F"
1d98 060e       |    |		.STRTAB	0x060e->0x209f							; "OPTIONS_F"
1d99 0615       |    |		.STRTAB	0x0615->0x20a3							; "NO_ERROR"
1d9a 061b       |    |		.STRTAB	0x061b->0x20a7							; "CONNECTION_ERROR"
1d9b 0629       | )  |		.STRTAB	0x0629->0x20af							; "INTERNAL_ERROR"
1d9c 0635       | 5  |		.STRTAB	0x0635->0x20b6							; "ACCESS_ERROR"
1d9d 063f       | ?  |		.STRTAB	0x063f->0x20bc							; "POLICY_ERROR"
1d9e 0649       | I  |		.STRTAB	0x0649->0x20c2							; "RESOURCE_LIMIT"
1d9f 0655       | U  |		.STRTAB	0x0655->0x20c9							; "STATUS_ERROR"
1da0 065f       | _  |		.STRTAB	0x065f->0x20cf							; "DEVICE_ERROR"
1da1 0669       | i  |		.STRTAB	0x0669->0x20d5							; "USE_ERROR"
1da2 0670       | p  |		.STRTAB	0x0670->0x20da							; "NAME_ERROR"
1da3 0678       | x  |		.STRTAB	0x0678->0x20df							; "UNSUPPORTED"
1da4 0681       |    |		.STRTAB	0x0681->0x20e4							; "SENTINEL"
1da5 0687       |    |		.STRTAB	0x0687->0x20e8							; "ERROR"
1da6 068a       |    |		.STRTAB	0x068a->0x20eb							; "EXPUNGE_F"
1da7 0691       |    |		.STRTAB	0x0691->0x20ef							; "REMOTE_FILE_F"
1da8 069c       |    |		.STRTAB	0x069c->0x20f6							; "OPTIONS_F"
1da9 06a3       |    |		.STRTAB	0x06a3->0x20fa							; "RECURSIVE_F"
1daa 06ac       |    |		.STRTAB	0x06ac->0x2100							; "NO_ERROR"
1dab 06b2       |    |		.STRTAB	0x06b2->0x2104							; "CONNECTION_ERROR"
1dac 06c0       |    |		.STRTAB	0x06c0->0x210c							; "INTERNAL_ERROR"
1dad 06cc       |    |		.STRTAB	0x06cc->0x2113							; "ACCESS_ERROR"
1dae 06d6       |    |		.STRTAB	0x06d6->0x2119							; "POLICY_ERROR"
1daf 06e0       |    |		.STRTAB	0x06e0->0x211f							; "STATUS_ERROR"
1db0 06ea       |    |		.STRTAB	0x06ea->0x2125							; "DEVICE_ERROR"
1db1 06f4       |    |		.STRTAB	0x06f4->0x212b							; "NAME_ERROR"
1db2 06fc       |    |		.STRTAB	0x06fc->0x2130							; "USE_ERROR"
1db3 0703       |    |		.STRTAB	0x0703->0x2134							; "UNSUPPORTED"
1db4 070c       |    |		.STRTAB	0x070c->0x213a							; "SENTINEL"
1db5 0712       |    |		.STRTAB	0x0712->0x213e							; "ERROR"
1db6 0715       |    |		.STRTAB	0x0715->0x2140							; "FROM_REMOTE_FILE_F"
1db7 0725       | %  |		.STRTAB	0x0725->0x2149							; "TO_REMOTE_FILE_F"
1db8 0733       | 3  |		.STRTAB	0x0733->0x2151							; "OPTIONS_F"
1db9 073a       | :  |		.STRTAB	0x073a->0x2156							; "NO_ERROR"
1dba 0740       | @  |		.STRTAB	0x0740->0x215a							; "CONNECTION_ERROR"
1dbb 074e       | N  |		.STRTAB	0x074e->0x2162							; "INTERNAL_ERROR"
1dbc 075a       | Z  |		.STRTAB	0x075a->0x2169							; "POLICY_ERROR"
1dbd 0764       | d  |		.STRTAB	0x0764->0x216f							; "DEVICE_ERROR"
1dbe 076e       | n  |		.STRTAB	0x076e->0x2175							; "NAME_ERROR"
1dbf 0776       | v  |		.STRTAB	0x0776->0x217a							; "USE_ERROR"
1dc0 077d       | }  |		.STRTAB	0x077d->0x217e							; "UNSUPPORTED"
1dc1 0786       |    |		.STRTAB	0x0786->0x2184							; "SENTINEL"
1dc2 078c       |    |		.STRTAB	0x078c->0x2188							; "ERROR"
1dc3 078f       |    |		.STRTAB	0x078f->0x218a							; "OBJECT_F"
1dc4 0795       |    |		.STRTAB	0x0795->0x218e							; "OPTIONS_F"
1dc5 079c       |    |		.STRTAB	0x079c->0x2193							; "NO_ERROR"
1dc6 07a2       |    |		.STRTAB	0x07a2->0x2197							; "CONNECTION_ERROR"
1dc7 07b0       |    |		.STRTAB	0x07b0->0x219f							; "INTERNAL_ERROR"
1dc8 07bc       |    |		.STRTAB	0x07bc->0x21a6							; "POLICY_ERROR"
1dc9 07c6       |    |		.STRTAB	0x07c6->0x21ac							; "STATUS_ERROR"
1dca 07d0       |    |		.STRTAB	0x07d0->0x21b2							; "USE_ERROR"
1dcb 07d7       |    |		.STRTAB	0x07d7->0x21b6							; "DEVICE_ERROR"
1dcc 07e1       |    |		.STRTAB	0x07e1->0x21bc							; "NAME_ERROR"
1dcd 07e9       |    |		.STRTAB	0x07e9->0x21c1							; "UNSUPPORTED"
1dce 07f2       |    |		.STRTAB	0x07f2->0x21c7							; "SENTINEL"
1dcf 07f8       |    |		.STRTAB	0x07f8->0x21cb							; "ERROR"
1dd0 07fb       |    |		.STRTAB	0x07fb->0x21cd							; "INPUT_F"
1dd1 0800       |    |		.STRTAB	0x0800->0x21d1							; "STD_OUTPUT_F"
1dd2 080a       |    |		.STRTAB	0x080a->0x21d7							; "STD_ERROR_F"
1dd3 0813       |    |		.STRTAB	0x0813->0x21dc							; "ABORT_F"
1dd4 0818       |    |		.STRTAB	0x0818->0x21e0							; "CONTINUE_F"
1dd5 0820       |    |		.STRTAB	0x0820->0x21e5							; "TIMEOUT_F"
1dd6 0827       | '  |		.STRTAB	0x0827->0x21e9							; "NO_ERROR"
1dd7 082d       | -  |		.STRTAB	0x082d->0x21ed							; "CONNECTION_ERROR"
1dd8 083b       | ;  |		.STRTAB	0x083b->0x21f5							; "INTERNAL_ERROR"
1dd9 0847       | G  |		.STRTAB	0x0847->0x21fc							; "ACCESS_ERROR"
1dda 0851       | Q  |		.STRTAB	0x0851->0x2202							; "RESOURCE_LIMIT"
1ddb 085d       | ]  |		.STRTAB	0x085d->0x2209							; "STATUS_ERROR"
1ddc 0867       | g  |		.STRTAB	0x0867->0x220f							; "DEVICE_ERROR"
1ddd 0871       | q  |		.STRTAB	0x0871->0x2215							; "USE_ERROR"
1dde 0878       | x  |		.STRTAB	0x0878->0x221a							; "COMMAND_ERROR"
1ddf 0883       |    |		.STRTAB	0x0883->0x2220							; "COMMAND_TERMINATED"
1de0 0893       |    |		.STRTAB	0x0893->0x2229							; "COMMAND_TIMED_OUT"
1de1 08a2       |    |		.STRTAB	0x08a2->0x2232							; "UNSUPPORTED"
1de2 08ab       |    |		.STRTAB	0x08ab->0x2237							; "SENTINEL"
1de3 08b1       |    |		.STRTAB	0x08b1->0x223b							; "ERROR"
1de4 08b4       |    |		.STRTAB	0x08b4->0x223e							; "SIGNAL_F"
1de5 08ba       |    |		.STRTAB	0x08ba->0x2242							; "NO_ERROR"
1de6 08c0       |    |		.STRTAB	0x08c0->0x2246							; "CONNECTION_ERROR"
1de7 08ce       |    |		.STRTAB	0x08ce->0x224e							; "INTERNAL_ERROR"
1de8 08da       |    |		.STRTAB	0x08da->0x2255							; "COMMAND_TERMINATED"
1de9 08ea       |    |		.STRTAB	0x08ea->0x225e							; "UNSUPPORTED"
1dea 08f3       |    |		.STRTAB	0x08f3->0x2263							; "SENTINEL"
1deb 08f9       |    |		.STRTAB	0x08f9->0x2267							; "ERROR"
1dec 08fc       |    |		.STRTAB	0x08fc->0x226a							; "TO_REMOTE_FILE_F"
1ded 090a       |    |		.STRTAB	0x090a->0x2272							; "CONTENT_F"
1dee 0911       |    |		.STRTAB	0x0911->0x2276							; "APPEND_F"
1def 0917       |    |		.STRTAB	0x0917->0x227a							; "OPTIONS_F"
1df0 091e       |    |		.STRTAB	0x091e->0x227f							; "NO_ERROR"
1df1 0924       | $  |		.STRTAB	0x0924->0x2283							; "CONNECTION_ERROR"
1df2 0932       | 2  |		.STRTAB	0x0932->0x228b							; "INTERNAL_ERROR"
1df3 093e       | >  |		.STRTAB	0x093e->0x2292							; "POLICY_ERROR"
1df4 0948       | H  |		.STRTAB	0x0948->0x2298							; "RESOURCE_LIMIT"
1df5 0954       | T  |		.STRTAB	0x0954->0x229f							; "STATUS_ERROR"
1df6 095e       | ^  |		.STRTAB	0x095e->0x22a5							; "USE_ERROR"
1df7 0965       | e  |		.STRTAB	0x0965->0x22a9							; "DEVICE_ERROR"
1df8 096f       | o  |		.STRTAB	0x096f->0x22af							; "NAME_ERROR"
1df9 0977       | w  |		.STRTAB	0x0977->0x22b4							; "UNSUPPORTED"
1dfa 0980       |    |		.STRTAB	0x0980->0x22ba							; "SENTINEL"
1dfb 0986       |    |		.STRTAB	0x0986->0x22be							; "ERROR"
1dfc 0989       |    |		.STRTAB	0x0989->0x22c0							; "FROM_REMOTE_FILE_F"
1dfd 0999       |    |		.STRTAB	0x0999->0x22c9							; "CONTENT_F"
1dfe 09a0       |    |		.STRTAB	0x09a0->0x22ce							; "OPTIONS_F"
1dff 09a7       |    |		.STRTAB	0x09a7->0x22d2							; "NO_ERROR"
1e00 09ad       |    |		.STRTAB	0x09ad->0x22d6							; "CONNECTION_ERROR"
1e01 09bb       |    |		.STRTAB	0x09bb->0x22de							; "INTERNAL_ERROR"
1e02 09c7       |    |		.STRTAB	0x09c7->0x22e5							; "POLICY_ERROR"
1e03 09d1       |    |		.STRTAB	0x09d1->0x22eb							; "RESOURCE_LIMIT"
1e04 09dd       |    |		.STRTAB	0x09dd->0x22f2							; "STATUS_ERROR"
1e05 09e7       |    |		.STRTAB	0x09e7->0x22f8							; "DEVICE_ERROR"
1e06 09f1       |    |		.STRTAB	0x09f1->0x22fe							; "USE_ERROR"
1e07 09f8       |    |		.STRTAB	0x09f8->0x2303							; "NAME_ERROR"
1e08 0a00       |    |		.STRTAB	0x0a00->0x2308							; "UNSUPPORTED"
1e09 0a09       |    |		.STRTAB	0x0a09->0x230d							; "SENTINEL"
1e0a 0a0f       |    |		.STRTAB	0x0a0f->0x2311							; "ERROR"
1e0b 0a12       |    |		.STRTAB	0x0a12->0x2314							; "FROM_REMOTE_DIRECTORY_F"
1e0c 0a27       | '  |		.STRTAB	0x0a27->0x231f							; "LEVEL_F"
1e0d 0a2c       | ,  |		.STRTAB	0x0a2c->0x2323							; "A_LINE_F"
1e0e 0a32       | 2  |		.STRTAB	0x0a32->0x2327							; "NO_ERROR"
1e0f 0a38       | 8  |		.STRTAB	0x0a38->0x232b							; "CONNECTION_ERROR"
1e10 0a46       | F  |		.STRTAB	0x0a46->0x2333							; "INTERNAL_ERROR"
1e11 0a52       | R  |		.STRTAB	0x0a52->0x233a							; "UNSUPPORTED"
1e12 0a5b       | [  |		.STRTAB	0x0a5b->0x233f							; "localhost"
1e13 0a62       | b  |		.STRTAB	0x0a62->0x2344							; "Unable to login as user \x22"
1e14 0a79       | y  |		.STRTAB	0x0a79->0x2350							; "\x22 on host \x22"
1e15 0a82       |    |		.STRTAB	0x0a82->0x2356							; "Not Connected"
1e16 0a8d       |    |		.STRTAB	0x0a8d->0x235c							; "Null Connection"
1e17 0a9a       |    |		.STRTAB	0x0a9a->0x2364							; "/"
1e18 0a99       |    |		.STRTAB	0x0a99->0x2364							; "???"
1e19 0a9a       |    |		.STRTAB	0x0a9a->0x2366							; "Vax"
1e1a 0a9b       |    |		.STRTAB	0x0a9b->0x2367							; "Unknown"
1e1b 0aa0       |    |		.STRTAB	0x0aa0->0x236b							; "Sun"
1e1c 0aa1       |    |		.STRTAB	0x0aa1->0x236c							; "Apollo"
1e1d 0aa5       |    |		.STRTAB	0x0aa5->0x236f							; "Ibm"
1e1e 0aa6       |    |		.STRTAB	0x0aa6->0x2371							; "Hp"
1e1f 0aa6       |    |		.STRTAB	0x0aa6->0x2372							; "create"
1e20 0aaa       |    |		.STRTAB	0x0aaa->0x2375							; "put"
1e21 0aab       |    |		.STRTAB	0x0aab->0x2376							; "Unable to open "
1e22 0ab8       |    |		.STRTAB	0x0ab8->0x237e							; " for input"
1e23 0ac0       |    |		.STRTAB	0x0ac0->0x2383							; "get"
1e24 0ac1       |    |		.STRTAB	0x0ac1->0x2384							; " for output"
1e25 0aca       |    |		.STRTAB	0x0aca->0x238a							; "last_update"
1e26 0ad3       |    |		.STRTAB	0x0ad3->0x238f							; "file_existence"
1e27 0adf       |    |		.STRTAB	0x0adf->0x2396							; "copy"
1e28 0ae1       |    |		.STRTAB	0x0ae1->0x2398							; "delete"
1e29 0ae5       |    |		.STRTAB	0x0ae5->0x239b							; "move"
1e2a 0ae7       |    |		.STRTAB	0x0ae7->0x239d							; "expunge"
1e2b 0aec       |    |		.STRTAB	0x0aec->0x23a1							; "ls"
1e2c 0aec       |    |		.STRTAB	0x0aec->0x23a2							; "input_to_shell"
1e2d 0af8       |    |		.STRTAB	0x0af8->0x23a9							; "signal_to_shell"
1e2e 0b05       |    |		.STRTAB	0x0b05->0x23b0							; "Remote operation "
1e2f 0b14       |    |		.STRTAB	0x0b14->0x23b9							; " is not supported by "
1e30 0b27       | '  |		.STRTAB	0x0b27->0x23c3							; " server version "
1e31 0b35       | 5  |		.STRTAB	0x0b35->0x23cb							; " on host \x22"
1e32 0b3d       | =  |		.STRTAB	0x0b3d->0x23d0							; "\x22.  This operation requires at least server version "
1e33 0b6f       | o  |		.STRTAB	0x0b6f->0x23ea							; "Not Implemented on R1000"
1e34 0b85       |    |		.STREND 0x0b85->0x23f6
1e35 4e4f 5f45  |NO_E|		.STRTAB_STRINGS
23f7 0000       |    |		.XXX[0x1]
23f8 ; --------------------------------------------------------------------------------------
23f8 ; Debug Table
23f8 ; --------------------------------------------------------------------------------------
23f8 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xd2ec,0x0000,0x0001,0x0000
23fe 0000 0000  |    |		.XXX[0x2]