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

⟦f06227f07⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0f38       | 8  |		.CONST	0x0f38								; 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 8009       |    |		.CONST	0x8009								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 02c3       |    |		.CONST	0x02c3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 00ee       |    |		.CONST	0x00ee								; 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 00c4       |    |		Action	Make_Default
0091 00c4       |    |		Action	Make_Default
0092 00c4       |    |		Action	Make_Default
0093 00c4       |    |		Action	Make_Default
0094 00c4       |    |		Action	Make_Default
0095 00c4       |    |		Action	Make_Default
0096 00c4       |    |		Action	Make_Default
0097 00c4       |    |		Action	Make_Default
0098 00c4       |    |		Action	Make_Default
0099 00c4       |    |		Action	Make_Default
009a 00c4       |    |		Action	Make_Default
009b 00c4       |    |		Action	Make_Default
009c 00c4       |    |		Action	Make_Default
009d 00c4       |    |		Action	Make_Default
009e 00c4       |    |		Action	Make_Default
009f 00c4       |    |		Action	Make_Default
00a0 00c4       |    |		Action	Make_Default
00a1 00c4       |    |		Action	Make_Default
00a2 00c4       |    |		Action	Make_Default
00a3 00c4       |    |		Action	Make_Default
00a4 00c4       |    |		Action	Make_Default
00a5 00c4       |    |		Action	Make_Default
00a6 00c4       |    |		Action	Make_Default
00a7 00c4       |    |		Action	Make_Default
00a8 00c4       |    |		Action	Make_Default
00a9 00c4       |    |		Action	Make_Default
00aa 00c4       |    |		Action	Make_Default
00ab 00c4       |    |		Action	Make_Default
00ac 00c4       |    |		Action	Make_Default
00ad 00c4       |    |		Action	Make_Default
00ae 00c4       |    |		Action	Make_Default
00af 00c4       |    |		Action	Make_Default
00b0 00c4       |    |		Action	Make_Default
00b1 00c4       |    |		Action	Make_Default
00b2 00c4       |    |		Action	Make_Default
00b3 00c4       |    |		Action	Make_Default
00b4 00c4       |    |		Action	Make_Default
00b5 00c4       |    |		Action	Make_Default
00b6 00c4       |    |		Action	Make_Default
00b7 00c4       |    |		Action	Make_Default
00b8 00c4       |    |		Action	Make_Default
00b9 00c4       |    |		Action	Make_Default
00ba 00c4       |    |		Action	Make_Default
00bb 00c4       |    |		Action	Make_Default
00bc 00c4       |    |		Action	Make_Default
00bd 00c4       |    |		Action	Make_Default
00be 00c4       |    |		Action	Make_Default
00bf 00c4       |    |		Action	Make_Default
00c0 00c4       |    |		Action	Make_Default
00c1 00c4       |    |		Action	Make_Default
00c2 00c4       |    |		Action	Make_Default
00c3 00c4       |    |		Action	Make_Default
00c4 00c4       |    |		Action	Make_Default
00c5 00c4       |    |		Action	Make_Default
00c6 00c4       |    |		Action	Make_Default
00c7 00c4       |    |		Action	Make_Default
00c8 00c4       |    |		Action	Make_Default
00c9 00c4       |    |		Action	Make_Default
00ca 00c4       |    |		Action	Make_Default
00cb 00c4       |    |		Action	Make_Default
00cc 00c4       |    |		Action	Make_Default
00cd 00c4       |    |		Action	Make_Default
00ce 00c4       |    |		Action	Make_Default
00cf 00c4       |    |		Action	Make_Default
00d0 00c4       |    |		Action	Make_Default
00d1 00c4       |    |		Action	Make_Default
00d2 00c4       |    |		Action	Make_Default
00d3 00c4       |    |		Action	Make_Default
00d4 00c4       |    |		Action	Make_Default
00d5 00c4       |    |		Action	Make_Default
00d6 00c4       |    |		Action	Make_Default
00d7 00c4       |    |		Action	Make_Default
00d8 00c4       |    |		Action	Make_Default
00d9 00c4       |    |		Action	Make_Default
00da 00c4       |    |		Action	Make_Default
00db 00c4       |    |		Action	Make_Default
00dc 00c4       |    |		Action	Make_Default
00dd 00c4       |    |		Action	Make_Default
00de 00c4       |    |		Action	Make_Default
00df 00c4       |    |		Action	Make_Default
00e0 00c4       |    |		Action	Make_Default
00e1 00c4       |    |		Action	Make_Default
00e2 00c4       |    |		Action	Make_Default
00e3 4800       |H   |		Short_Literal	0x0
00e4 48ff       |H   |		Short_Literal	0xff
00e5 00e5       |    |		Load_Encached	Long_Integer_Cache
00e6 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00e7 c2be       |    |		Store	0x1,0xbe
00e8 4800       |H   |		Short_Literal	0x0
00e9 48ff       |H   |		Short_Literal	0xff
00ea 00e5       |    |		Load_Encached	Long_Integer_Cache
00eb 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00ec c2bf       |    |		Store	0x1,0xbf
00ed 4800       |H   |		Short_Literal	0x0
00ee 4803       |H   |		Short_Literal	0x3
00ef 029f 032b  |   +|		Declare_Subprogram	INIT_0328,For_Call
00f1 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00f2 c2c3       |    |		Store	0x1,0xc3
00f3 4800       |H   |		Short_Literal	0x0
00f4 4803       |H   |		Short_Literal	0x3
00f5 029f 0353  |   S|		Declare_Subprogram	INIT_0350,For_Call
00f7 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00f8 c2e0       |    |		Store	0x1,0xe0
00f9 e2e0       |    |		Load	0x1,0xe0
00fa 0266       | f  |		Execute	Discrete,Bounds
00fb 00e1       |    |		Load_Encached	Boolean_Cache
00fc 02a0       |    |		Declare_Subprogram	Null_Subprogram
00fd 4801       |H   |		Short_Literal	0x1
00fe 035e       | ^  |		Declare_Type	Array,Defined,Visible
00ff c2c5       |    |		Store	0x1,0xc5
0100 4800       |H   |		Short_Literal	0x0
0101 4803       |H   |		Short_Literal	0x3
0102 029f 037b  |   {|		Declare_Subprogram	INIT_0378,For_Call
0104 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0105 c2c6       |    |		Store	0x1,0xc6
0106 4800       |H   |		Short_Literal	0x0
0107 4801       |H   |		Short_Literal	0x1
0108 029f 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Call
010a 03fe       |    |		Declare_Type	Discrete,Defined,Visible
010b c2c9       |    |		Store	0x1,0xc9
010c 4800       |H   |		Short_Literal	0x0
010d 4801       |H   |		Short_Literal	0x1
010e 029f 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Call
0110 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0111 c2cb       |    |		Store	0x1,0xcb
0112 4802       |H   |		Short_Literal	0x2
0113 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0114 c262       | b  |		Store	0x1,0x62
0115 00e2       |    |		Load_Encached	Integer_Cache
0116 00e1       |    |		Load_Encached	Boolean_Cache
0117 00e9       |    |		Load_Encached	String_Cache
0118 029f 0e73  |   s|		Declare_Subprogram	INIT_0e70,For_Call
011a 4800       |H   |		Short_Literal	0x0
011b 4801       |H   |		Short_Literal	0x1
011c 4801       |H   |		Short_Literal	0x1
011d 4800       |H   |		Short_Literal	0x0
011e 4801       |H   |		Short_Literal	0x1
011f 4801       |H   |		Short_Literal	0x1
0120 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0121 c2e3       |    |		Store	0x1,0xe3
0122 e001       |    |		Load	0x0,0x1
0123 0129       | )  |		Execute	Any,Make_Visible
0124 c2bc       |    |		Store	0x1,0xbc
0125 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
0127 c263       | c  |		Store	0x1,0x63
0128 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
012a c264       | d  |		Store	0x1,0x64
012b 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
012d c265       | e  |		Store	0x1,0x65
012e 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0130 c266       | f  |		Store	0x1,0x66
0131 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0133 c267       | g  |		Store	0x1,0x67
0134 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
0136 c268       | h  |		Store	0x1,0x68
0137 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0139 c269       | i  |		Store	0x1,0x69
013a 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
013c c26a       | j  |		Store	0x1,0x6a
013d 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
013f c26d       | m  |		Store	0x1,0x6d
0140 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0142 c26e       | n  |		Store	0x1,0x6e
0143 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
0145 c2b1       |    |		Store	0x1,0xb1
0146 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
0148 c2b2       |    |		Store	0x1,0xb2
0149 029a 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call,Visible,Unelaborated
014b c26f       | o  |		Store	0x1,0x6f
014c 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated
014e c270       | p  |		Store	0x1,0x70
014f 029a 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call,Visible,Unelaborated
0151 c271       | q  |		Store	0x1,0x71
0152 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0154 c272       | r  |		Store	0x1,0x72
0155 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
0157 c2d0       |    |		Store	0x1,0xd0
0158 4800       |H   |		Short_Literal	0x0
0159 4803       |H   |		Short_Literal	0x3
015a 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
015c 03fe       |    |		Declare_Type	Discrete,Defined,Visible
015d c2b3       |    |		Store	0x1,0xb3
015e 029a 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call,Visible,Unelaborated
0160 c274       | t  |		Store	0x1,0x74
0161 029a 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call,Visible,Unelaborated
0163 c275       | u  |		Store	0x1,0x75
0164 029a 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
0166 c276       | v  |		Store	0x1,0x76
0167 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0169 c2e4       |    |		Store	0x1,0xe4
016a 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
016c c277       | w  |		Store	0x1,0x77
016d 029a 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Visible,Unelaborated
016f c278       | x  |		Store	0x1,0x78
0170 029a 064b  |   K|		Declare_Subprogram	INIT_0648,For_Outer_Call,Visible,Unelaborated
0172 c279       | y  |		Store	0x1,0x79
0173 029a 0673  |   s|		Declare_Subprogram	INIT_0670,For_Outer_Call,Visible,Unelaborated
0175 c27a       | z  |		Store	0x1,0x7a
0176 029a 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Outer_Call,Visible,Unelaborated
0178 c27b       | {  |		Store	0x1,0x7b
0179 029a 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call,Visible,Unelaborated
017b c27c       | |  |		Store	0x1,0x7c
017c 029a 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call,Visible,Unelaborated
017e c2a9       |    |		Store	0x1,0xa9
017f 029a 06cb  |    |		Declare_Subprogram	INIT_06c8,For_Outer_Call,Visible,Unelaborated
0181 c27d       | }  |		Store	0x1,0x7d
0182 029a 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call,Visible,Unelaborated
0184 c2cc       |    |		Store	0x1,0xcc
0185 029a 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call,Visible,Unelaborated
0187 c2cd       |    |		Store	0x1,0xcd
0188 029a 0703  |    |		Declare_Subprogram	INIT_0700,For_Outer_Call,Visible,Unelaborated
018a c287       |    |		Store	0x1,0x87
018b 029a 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call,Visible,Unelaborated
018d c2ce       |    |		Store	0x1,0xce
018e 029a 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call,Visible,Unelaborated
0190 c2cf       |    |		Store	0x1,0xcf
0191 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
0193 c28c       |    |		Store	0x1,0x8c
0194 029a 0753  |   S|		Declare_Subprogram	INIT_0750,For_Outer_Call,Visible,Unelaborated
0196 c290       |    |		Store	0x1,0x90
0197 029a 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call,Visible,Unelaborated
0199 c26b       | k  |		Store	0x1,0x6b
019a 029a 0783  |    |		Declare_Subprogram	INIT_0780,For_Outer_Call,Visible,Unelaborated
019c c2d5       |    |		Store	0x1,0xd5
019d 029a 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call,Visible,Unelaborated
019f c2d1       |    |		Store	0x1,0xd1
01a0 029a 07b3  |    |		Declare_Subprogram	INIT_07b0,For_Outer_Call,Visible,Unelaborated
01a2 c2d2       |    |		Store	0x1,0xd2
01a3 029a 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call,Visible,Unelaborated
01a5 c2d8       |    |		Store	0x1,0xd8
01a6 029a 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call,Visible,Unelaborated
01a8 c2d9       |    |		Store	0x1,0xd9
01a9 029a 080b  |    |		Declare_Subprogram	INIT_0808,For_Outer_Call,Visible,Unelaborated
01ab c2da       |    |		Store	0x1,0xda
01ac 029a 082b  |   +|		Declare_Subprogram	INIT_0828,For_Outer_Call,Visible,Unelaborated
01ae c2db       |    |		Store	0x1,0xdb
01af 029a 084b  |   K|		Declare_Subprogram	INIT_0848,For_Outer_Call,Visible,Unelaborated
01b1 c2dc       |    |		Store	0x1,0xdc
01b2 029a 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call,Visible,Unelaborated
01b4 c2dd       |    |		Store	0x1,0xdd
01b5 029a 086b  |   k|		Declare_Subprogram	INIT_0868,For_Outer_Call,Visible,Unelaborated
01b7 c2d3       |    |		Store	0x1,0xd3
01b8 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
01ba c2b6       |    |		Store	0x1,0xb6
01bb 029a 08ab  |    |		Declare_Subprogram	INIT_08a8,For_Outer_Call,Visible,Unelaborated
01bd c2b7       |    |		Store	0x1,0xb7
01be 029a 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Outer_Call,Visible,Unelaborated
01c0 c2c2       |    |		Store	0x1,0xc2
01c1 029a 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Outer_Call,Visible,Unelaborated
01c3 c2d6       |    |		Store	0x1,0xd6
01c4 029a 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call,Visible,Unelaborated
01c6 c2d7       |    |		Store	0x1,0xd7
01c7 029a 091b  |    |		Declare_Subprogram	INIT_0918,For_Outer_Call,Visible,Unelaborated
01c9 c2b8       |    |		Store	0x1,0xb8
01ca 029a 092b  |   +|		Declare_Subprogram	INIT_0928,For_Outer_Call,Visible,Unelaborated
01cc c2b9       |    |		Store	0x1,0xb9
01cd 029a 094b  |   K|		Declare_Subprogram	INIT_0948,For_Outer_Call,Visible,Unelaborated
01cf c224       | $  |		Store	0x1,0x24
01d0 029a 0953  |   S|		Declare_Subprogram	INIT_0950,For_Outer_Call,Visible,Unelaborated
01d2 c225       | %  |		Store	0x1,0x25
01d3 029a 095b  |   [|		Declare_Subprogram	INIT_0958,For_Outer_Call,Visible,Unelaborated
01d5 c256       | V  |		Store	0x1,0x56
01d6 029a 0973  |   s|		Declare_Subprogram	INIT_0970,For_Outer_Call,Visible,Unelaborated
01d8 c257       | W  |		Store	0x1,0x57
01d9 029a 097b  |   {|		Declare_Subprogram	INIT_0978,For_Outer_Call,Visible,Unelaborated
01db c226       | &  |		Store	0x1,0x26
01dc 029a 09b3  |    |		Declare_Subprogram	INIT_09b0,For_Outer_Call,Visible,Unelaborated
01de c2ca       |    |		Store	0x1,0xca
01df 029a 09cb  |    |		Declare_Subprogram	INIT_09c8,For_Outer_Call,Visible,Unelaborated
01e1 c2df       |    |		Store	0x1,0xdf
01e2 029a 09eb  |    |		Declare_Subprogram	INIT_09e8,For_Outer_Call,Visible,Unelaborated
01e4 c2ba       |    |		Store	0x1,0xba
01e5 029a 0a13  |    |		Declare_Subprogram	INIT_0a10,For_Outer_Call,Visible,Unelaborated
01e7 c2bb       |    |		Store	0x1,0xbb
01e8 029a 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Outer_Call,Visible,Unelaborated
01ea c29e       |    |		Store	0x1,0x9e
01eb 029a 0a93  |    |		Declare_Subprogram	INIT_0a90,For_Outer_Call,Visible,Unelaborated
01ed c29f       |    |		Store	0x1,0x9f
01ee 029a 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Outer_Call,Visible,Unelaborated
01f0 c2a0       |    |		Store	0x1,0xa0
01f1 029a 0aa3  |    |		Declare_Subprogram	INIT_0aa0,For_Outer_Call,Visible,Unelaborated
01f3 c2a1       |    |		Store	0x1,0xa1
01f4 029a 0aab  |    |		Declare_Subprogram	INIT_0aa8,For_Outer_Call,Visible,Unelaborated
01f6 c2e1       |    |		Store	0x1,0xe1
01f7 029a 0abb  |    |		Declare_Subprogram	INIT_0ab8,For_Outer_Call,Visible,Unelaborated
01f9 c2e2       |    |		Store	0x1,0xe2
01fa 029a 0ad3  |    |		Declare_Subprogram	INIT_0ad0,For_Outer_Call,Visible,Unelaborated
01fc c2c7       |    |		Store	0x1,0xc7
01fd 029a 0ae3  |    |		Declare_Subprogram	INIT_0ae0,For_Outer_Call,Visible,Unelaborated
01ff c2c8       |    |		Store	0x1,0xc8
0200 e2be       |    |		Load	0x1,0xbe
0201 e2bf       |    |		Load	0x1,0xbf
0202 02a0       |    |		Declare_Subprogram	Null_Subprogram
0203 4802       |H   |		Short_Literal	0x2
0204 032d       | -  |		Declare_Type	Record,Defined
0205 c2a2       |    |		Store	0x1,0xa2
0206 e2a2       |    |		Load	0x1,0xa2
0207 0322       | "  |		Declare_Variable	Record
0208 4800       |H   |		Short_Literal	0x0
0209 00d9       |    |		Load_Top	At_Offset_1
020a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
020b 4800       |H   |		Short_Literal	0x0
020c 00d9       |    |		Load_Top	At_Offset_1
020d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
020e c2af       |    |		Store	0x1,0xaf
020f e002       |    |		Load	0x0,0x2
0210 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0211 e2a2       |    |		Load	0x1,0xa2
0212 029f 0e5b  |   [|		Declare_Subprogram	INIT_0e58,For_Call
0214 e262       | b  |		Load	0x1,0x62
0215 0326       | &  |		Complete_Type	Record,By_Defining
0216 e262       | b  |		Load	0x1,0x62
0217 0322       | "  |		Declare_Variable	Record
0218 e003       |    |		Load	0x0,0x3
0219 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
021a 00d9       |    |		Load_Top	At_Offset_1
021b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
021c e2af       |    |		Load	0x1,0xaf
021d 00d9       |    |		Load_Top	At_Offset_1
021e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
021f c2a4       |    |		Store	0x1,0xa4
0220 00bf       |    |		Action	Accept_Activation
0221 e2bf       |    |		Load	0x1,0xbf
0222 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0223 029d 0b53  |   S|		Declare_Subprogram	INIT_0b50,For_Outer_Call
0225 1d64       | d  |		Execute_Immediate	Reference_Lex_1,0x64
0226 00c7       |    |		Action	Elaborate_Subprogram
0227 1d65       | e  |		Execute_Immediate	Reference_Lex_1,0x65
0228 00c7       |    |		Action	Elaborate_Subprogram
0229 1d63       | c  |		Execute_Immediate	Reference_Lex_1,0x63
022a 00c7       |    |		Action	Elaborate_Subprogram
022b 1d66       | f  |		Execute_Immediate	Reference_Lex_1,0x66
022c 00c7       |    |		Action	Elaborate_Subprogram
022d 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
022e 00c7       |    |		Action	Elaborate_Subprogram
022f 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
0230 00c7       |    |		Action	Elaborate_Subprogram
0231 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
0232 00c7       |    |		Action	Elaborate_Subprogram
0233 1d6a       | j  |		Execute_Immediate	Reference_Lex_1,0x6a
0234 00c7       |    |		Action	Elaborate_Subprogram
0235 1dd3       |    |		Execute_Immediate	Reference_Lex_1,0xd3
0236 00c7       |    |		Action	Elaborate_Subprogram
0237 1dc2       |    |		Execute_Immediate	Reference_Lex_1,0xc2
0238 00c7       |    |		Action	Elaborate_Subprogram
0239 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
023a 00c7       |    |		Action	Elaborate_Subprogram
023b 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
023c 00c7       |    |		Action	Elaborate_Subprogram
023d 1db1       |    |		Execute_Immediate	Reference_Lex_1,0xb1
023e 00c7       |    |		Action	Elaborate_Subprogram
023f 1db2       |    |		Execute_Immediate	Reference_Lex_1,0xb2
0240 00c7       |    |		Action	Elaborate_Subprogram
0241 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
0242 00c7       |    |		Action	Elaborate_Subprogram
0243 1d70       | p  |		Execute_Immediate	Reference_Lex_1,0x70
0244 00c7       |    |		Action	Elaborate_Subprogram
0245 029d 0b63  |   c|		Declare_Subprogram	INIT_0b60,For_Outer_Call
0247 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
0248 00c7       |    |		Action	Elaborate_Subprogram
0249 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
024a 00c7       |    |		Action	Elaborate_Subprogram
024b 1d74       | t  |		Execute_Immediate	Reference_Lex_1,0x74
024c 00c7       |    |		Action	Elaborate_Subprogram
024d 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
024e 00c7       |    |		Action	Elaborate_Subprogram
024f 1dd0       |    |		Execute_Immediate	Reference_Lex_1,0xd0
0250 00c7       |    |		Action	Elaborate_Subprogram
0251 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
0252 00c7       |    |		Action	Elaborate_Subprogram
0253 029d 0b83  |    |		Declare_Subprogram	INIT_0b80,For_Outer_Call
0255 029d 0bbb  |    |		Declare_Subprogram	INIT_0bb8,For_Outer_Call
0257 1de4       |    |		Execute_Immediate	Reference_Lex_1,0xe4
0258 00c7       |    |		Action	Elaborate_Subprogram
0259 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
025a 00c7       |    |		Action	Elaborate_Subprogram
025b 1da9       |    |		Execute_Immediate	Reference_Lex_1,0xa9
025c 00c7       |    |		Action	Elaborate_Subprogram
025d 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
025e 00c7       |    |		Action	Elaborate_Subprogram
025f 1d79       | y  |		Execute_Immediate	Reference_Lex_1,0x79
0260 00c7       |    |		Action	Elaborate_Subprogram
0261 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
0262 00c7       |    |		Action	Elaborate_Subprogram
0263 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
0264 00c7       |    |		Action	Elaborate_Subprogram
0265 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
0266 00c7       |    |		Action	Elaborate_Subprogram
0267 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
0268 00c7       |    |		Action	Elaborate_Subprogram
0269 1dcc       |    |		Execute_Immediate	Reference_Lex_1,0xcc
026a 00c7       |    |		Action	Elaborate_Subprogram
026b 1dcd       |    |		Execute_Immediate	Reference_Lex_1,0xcd
026c 00c7       |    |		Action	Elaborate_Subprogram
026d 1d87       |    |		Execute_Immediate	Reference_Lex_1,0x87
026e 00c7       |    |		Action	Elaborate_Subprogram
026f 1dce       |    |		Execute_Immediate	Reference_Lex_1,0xce
0270 00c7       |    |		Action	Elaborate_Subprogram
0271 1dcf       |    |		Execute_Immediate	Reference_Lex_1,0xcf
0272 00c7       |    |		Action	Elaborate_Subprogram
0273 1d8c       |    |		Execute_Immediate	Reference_Lex_1,0x8c
0274 00c7       |    |		Action	Elaborate_Subprogram
0275 1d90       |    |		Execute_Immediate	Reference_Lex_1,0x90
0276 00c7       |    |		Action	Elaborate_Subprogram
0277 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
0278 00c7       |    |		Action	Elaborate_Subprogram
0279 1dd5       |    |		Execute_Immediate	Reference_Lex_1,0xd5
027a 00c7       |    |		Action	Elaborate_Subprogram
027b 1dd1       |    |		Execute_Immediate	Reference_Lex_1,0xd1
027c 00c7       |    |		Action	Elaborate_Subprogram
027d 1dd2       |    |		Execute_Immediate	Reference_Lex_1,0xd2
027e 00c7       |    |		Action	Elaborate_Subprogram
027f 029d 0c3b  |   ;|		Declare_Subprogram	INIT_0c38,For_Outer_Call
0281 029d 0cfb  |    |		Declare_Subprogram	INIT_0cf8,For_Outer_Call
0283 029d 0d0b  |    |		Declare_Subprogram	INIT_0d08,For_Outer_Call
0285 1dd8       |    |		Execute_Immediate	Reference_Lex_1,0xd8
0286 00c7       |    |		Action	Elaborate_Subprogram
0287 1dd9       |    |		Execute_Immediate	Reference_Lex_1,0xd9
0288 00c7       |    |		Action	Elaborate_Subprogram
0289 1dda       |    |		Execute_Immediate	Reference_Lex_1,0xda
028a 00c7       |    |		Action	Elaborate_Subprogram
028b 1ddb       |    |		Execute_Immediate	Reference_Lex_1,0xdb
028c 00c7       |    |		Action	Elaborate_Subprogram
028d 1ddc       |    |		Execute_Immediate	Reference_Lex_1,0xdc
028e 00c7       |    |		Action	Elaborate_Subprogram
028f 1ddd       |    |		Execute_Immediate	Reference_Lex_1,0xdd
0290 00c7       |    |		Action	Elaborate_Subprogram
0291 029d 0d23  |   #|		Declare_Subprogram	INIT_0d20,For_Outer_Call
0293 1db6       |    |		Execute_Immediate	Reference_Lex_1,0xb6
0294 00c7       |    |		Action	Elaborate_Subprogram
0295 1db7       |    |		Execute_Immediate	Reference_Lex_1,0xb7
0296 00c7       |    |		Action	Elaborate_Subprogram
0297 1dd6       |    |		Execute_Immediate	Reference_Lex_1,0xd6
0298 00c7       |    |		Action	Elaborate_Subprogram
0299 1dd7       |    |		Execute_Immediate	Reference_Lex_1,0xd7
029a 00c7       |    |		Action	Elaborate_Subprogram
029b 1db8       |    |		Execute_Immediate	Reference_Lex_1,0xb8
029c 00c7       |    |		Action	Elaborate_Subprogram
029d 1db9       |    |		Execute_Immediate	Reference_Lex_1,0xb9
029e 00c7       |    |		Action	Elaborate_Subprogram
029f 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
02a0 00c7       |    |		Action	Elaborate_Subprogram
02a1 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
02a2 00c7       |    |		Action	Elaborate_Subprogram
02a3 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
02a4 00c7       |    |		Action	Elaborate_Subprogram
02a5 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
02a6 00c7       |    |		Action	Elaborate_Subprogram
02a7 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
02a8 00c7       |    |		Action	Elaborate_Subprogram
02a9 1dca       |    |		Execute_Immediate	Reference_Lex_1,0xca
02aa 00c7       |    |		Action	Elaborate_Subprogram
02ab 029d 0d2b  |   +|		Declare_Subprogram	INIT_0d28,For_Outer_Call
02ad 1ddf       |    |		Execute_Immediate	Reference_Lex_1,0xdf
02ae 00c7       |    |		Action	Elaborate_Subprogram
02af 1dba       |    |		Execute_Immediate	Reference_Lex_1,0xba
02b0 00c7       |    |		Action	Elaborate_Subprogram
02b1 1dbb       |    |		Execute_Immediate	Reference_Lex_1,0xbb
02b2 00c7       |    |		Action	Elaborate_Subprogram
02b3 1d9e       |    |		Execute_Immediate	Reference_Lex_1,0x9e
02b4 00c7       |    |		Action	Elaborate_Subprogram
02b5 1d9f       |    |		Execute_Immediate	Reference_Lex_1,0x9f
02b6 00c7       |    |		Action	Elaborate_Subprogram
02b7 1da0       |    |		Execute_Immediate	Reference_Lex_1,0xa0
02b8 00c7       |    |		Action	Elaborate_Subprogram
02b9 1da1       |    |		Execute_Immediate	Reference_Lex_1,0xa1
02ba 00c7       |    |		Action	Elaborate_Subprogram
02bb 1de2       |    |		Execute_Immediate	Reference_Lex_1,0xe2
02bc 00c7       |    |		Action	Elaborate_Subprogram
02bd 1de1       |    |		Execute_Immediate	Reference_Lex_1,0xe1
02be 00c7       |    |		Action	Elaborate_Subprogram
02bf 1dc7       |    |		Execute_Immediate	Reference_Lex_1,0xc7
02c0 00c7       |    |		Action	Elaborate_Subprogram
02c1 1dc8       |    |		Execute_Immediate	Reference_Lex_1,0xc8
02c2 00c7       |    |		Action	Elaborate_Subprogram
02c3			BODY_0008:
02c3 4801       |H   |		Short_Literal	0x1
02c4 e004       |    |		Load	0x0,0x4
02c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c6 4801       |H   |		Short_Literal	0x1
02c7 e005       |    |		Load	0x0,0x5
02c8 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
02c9 e005       |    |		Load	0x0,0x5
02ca 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
02cb 4801       |H   |		Short_Literal	0x1
02cc e004       |    |		Load	0x0,0x4
02cd 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
02ce 4800       |H   |		Short_Literal	0x0
02cf e005       |    |		Load	0x0,0x5
02d0 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
02d1 e005       |    |		Load	0x0,0x5
02d2 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
02d3 4800       |H   |		Short_Literal	0x0
02d4 e004       |    |		Load	0x0,0x4
02d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d6 4800       |H   |		Short_Literal	0x0
02d7 e005       |    |		Load	0x0,0x5
02d8 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
02d9 e005       |    |		Load	0x0,0x5
02da 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
02db 4800       |H   |		Short_Literal	0x0
02dc e004       |    |		Load	0x0,0x4
02dd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02de 00ea       |    |		Load_Encached	Null_String_Cache
02df e005       |    |		Load	0x0,0x5
02e0 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
02e1 e005       |    |		Load	0x0,0x5
02e2 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02e3 4800       |H   |		Short_Literal	0x0
02e4 e004       |    |		Load	0x0,0x4
02e5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02e6 00ea       |    |		Load_Encached	Null_String_Cache
02e7 e005       |    |		Load	0x0,0x5
02e8 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
02e9 e005       |    |		Load	0x0,0x5
02ea 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02eb 4800       |H   |		Short_Literal	0x0
02ec e004       |    |		Load	0x0,0x4
02ed 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02ee 4800       |H   |		Short_Literal	0x0
02ef e005       |    |		Load	0x0,0x5
02f0 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
02f1 e005       |    |		Load	0x0,0x5
02f2 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
02f3 4800       |H   |		Short_Literal	0x0
02f4 e004       |    |		Load	0x0,0x4
02f5 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02f6 00ea       |    |		Load_Encached	Null_String_Cache
02f7 e005       |    |		Load	0x0,0x5
02f8 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
02f9 e005       |    |		Load	0x0,0x5
02fa 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02fb 4800       |H   |		Short_Literal	0x0
02fc e004       |    |		Load	0x0,0x4
02fd 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02fe 00ea       |    |		Load_Encached	Null_String_Cache
02ff e005       |    |		Load	0x0,0x5
0300 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0301 e005       |    |		Load	0x0,0x5
0302 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0303 4800       |H   |		Short_Literal	0x0
0304 e004       |    |		Load	0x0,0x4
0305 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0306 00ea       |    |		Load_Encached	Null_String_Cache
0307 e005       |    |		Load	0x0,0x5
0308 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0309 e005       |    |		Load	0x0,0x5
030a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
030b 4800       |H   |		Short_Literal	0x0
030c e004       |    |		Load	0x0,0x4
030d 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
030e 00ea       |    |		Load_Encached	Null_String_Cache
030f e005       |    |		Load	0x0,0x5
0310 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0311 e005       |    |		Load	0x0,0x5
0312 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0313 4800       |H   |		Short_Literal	0x0
0314 e004       |    |		Load	0x0,0x4
0315 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0316 4800       |H   |		Short_Literal	0x0
0317 e005       |    |		Load	0x0,0x5
0318 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0319 e005       |    |		Load	0x0,0x5
031a 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
031b 4800       |H   |		Short_Literal	0x0
031c e004       |    |		Load	0x0,0x4
031d 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
031e 4801       |H   |		Short_Literal	0x1
031f e005       |    |		Load	0x0,0x5
0320 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0321 e005       |    |		Load	0x0,0x5
0322 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0323 00bc       |    |		Action	Signal_Activated
0324 00bb       |    |		Action	Signal_Completion
0325 0000 0000  |    |		.XXX[0x3]
0327 0000       |    |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 4607       |F   |		Jump_Case	0x8
032c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
032d 7806       |x   |		Jump	0x334								; case 0x1
032e 7809       |x   |		Jump	0x338								; case 0x2
032f 780d       |x   |		Jump	0x33d								; case 0x3
0330 7810       |x   |		Jump	0x341								; case 0x4
0331 7811       |x   |		Jump	0x343								; case 0x5
0332 7812       |x   |		Jump	0x345								; case 0x6
0333 7815       |x   |		Jump	0x349								; case 0x7
0334 00da       |    |		Load_Top	At_Offset_2
0335 0091 0e91  |    |		Action	Push_String_Extended_Indexed,0xe91				; "UPPER"
0337 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0338 00db       |    |		Load_Top	At_Offset_3
0339 00db       |    |		Load_Top	At_Offset_3
033a 00e0       |    |		Load_Encached	Standard_Cache
033b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
033c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
033d 00da       |    |		Load_Top	At_Offset_2
033e 00e0       |    |		Load_Encached	Standard_Cache
033f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0340 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0341 00db       |    |		Load_Top	At_Offset_3
0342 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0343 00db       |    |		Load_Top	At_Offset_3
0344 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0345 e2c3       |    |		Load	0x1,0xc3
0346 00dc       |    |		Load_Top	At_Offset_4
0347 0267       | g  |		Execute	Discrete,Predecessor
0348 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0349 e2c3       |    |		Load	0x1,0xc3
034a 00dc       |    |		Load_Top	At_Offset_4
034b 0268       | h  |		Execute	Discrete,Successor
034c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 4607       |F   |		Jump_Case	0x8
0354 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0355 7806       |x   |		Jump	0x35c								; case 0x1
0356 7809       |x   |		Jump	0x360								; case 0x2
0357 780d       |x   |		Jump	0x365								; case 0x3
0358 7810       |x   |		Jump	0x369								; case 0x4
0359 7811       |x   |		Jump	0x36b								; case 0x5
035a 7812       |x   |		Jump	0x36d								; case 0x6
035b 7815       |x   |		Jump	0x371								; case 0x7
035c 00da       |    |		Load_Top	At_Offset_2
035d 0091 0e95  |    |		Action	Push_String_Extended_Indexed,0xe95				; "ASSEMBLE"
035f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0360 00db       |    |		Load_Top	At_Offset_3
0361 00db       |    |		Load_Top	At_Offset_3
0362 00e0       |    |		Load_Encached	Standard_Cache
0363 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0364 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0365 00da       |    |		Load_Top	At_Offset_2
0366 00e0       |    |		Load_Encached	Standard_Cache
0367 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0368 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0369 00db       |    |		Load_Top	At_Offset_3
036a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
036b 00db       |    |		Load_Top	At_Offset_3
036c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
036d e2e0       |    |		Load	0x1,0xe0
036e 00dc       |    |		Load_Top	At_Offset_4
036f 0267       | g  |		Execute	Discrete,Predecessor
0370 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0371 e2e0       |    |		Load	0x1,0xe0
0372 00dc       |    |		Load_Top	At_Offset_4
0373 0268       | h  |		Execute	Discrete,Successor
0374 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0375 0000 0000  |    |		.XXX[0x3]
0377 0000       |    |
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 0e99  |    |		Action	Push_String_Extended_Indexed,0xe99				; "ON_NORMAL"
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 e2c6       |    |		Load	0x1,0xc6
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 e2c6       |    |		Load	0x1,0xc6
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 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 4607       |F   |		Jump_Case	0x8
03a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03a5 7806       |x   |		Jump	0x3ac								; case 0x1
03a6 7809       |x   |		Jump	0x3b0								; case 0x2
03a7 780d       |x   |		Jump	0x3b5								; case 0x3
03a8 7810       |x   |		Jump	0x3b9								; case 0x4
03a9 7811       |x   |		Jump	0x3bb								; case 0x5
03aa 7812       |x   |		Jump	0x3bd								; case 0x6
03ab 7815       |x   |		Jump	0x3c1								; case 0x7
03ac 00da       |    |		Load_Top	At_Offset_2
03ad 0091 0e9d  |    |		Action	Push_String_Extended_Indexed,0xe9d				; "FTP"
03af 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b0 00db       |    |		Load_Top	At_Offset_3
03b1 00db       |    |		Load_Top	At_Offset_3
03b2 00e0       |    |		Load_Encached	Standard_Cache
03b3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b5 00da       |    |		Load_Top	At_Offset_2
03b6 00e0       |    |		Load_Encached	Standard_Cache
03b7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03b8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b9 00db       |    |		Load_Top	At_Offset_3
03ba 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03bb 00db       |    |		Load_Top	At_Offset_3
03bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03bd e2c9       |    |		Load	0x1,0xc9
03be 00dc       |    |		Load_Top	At_Offset_4
03bf 0267       | g  |		Execute	Discrete,Predecessor
03c0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c1 e2c9       |    |		Load	0x1,0xc9
03c2 00dc       |    |		Load_Top	At_Offset_4
03c3 0268       | h  |		Execute	Discrete,Successor
03c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03c5 0000 0000  |    |		.XXX[0x3]
03c7 0000       |    |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 4607       |F   |		Jump_Case	0x8
03cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03cd 7806       |x   |		Jump	0x3d4								; case 0x1
03ce 7809       |x   |		Jump	0x3d8								; case 0x2
03cf 780d       |x   |		Jump	0x3dd								; case 0x3
03d0 7810       |x   |		Jump	0x3e1								; case 0x4
03d1 7811       |x   |		Jump	0x3e3								; case 0x5
03d2 7812       |x   |		Jump	0x3e5								; case 0x6
03d3 7815       |x   |		Jump	0x3e9								; case 0x7
03d4 00da       |    |		Load_Top	At_Offset_2
03d5 0091 0e9f  |    |		Action	Push_String_Extended_Indexed,0xe9f				; "TEXT"
03d7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03d8 00db       |    |		Load_Top	At_Offset_3
03d9 00db       |    |		Load_Top	At_Offset_3
03da 00e0       |    |		Load_Encached	Standard_Cache
03db 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03dd 00da       |    |		Load_Top	At_Offset_2
03de 00e0       |    |		Load_Encached	Standard_Cache
03df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03e1 00db       |    |		Load_Top	At_Offset_3
03e2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e3 00db       |    |		Load_Top	At_Offset_3
03e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e5 e2cb       |    |		Load	0x1,0xcb
03e6 00dc       |    |		Load_Top	At_Offset_4
03e7 0267       | g  |		Execute	Discrete,Predecessor
03e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e9 e2cb       |    |		Load	0x1,0xcb
03ea 00dc       |    |		Load_Top	At_Offset_4
03eb 0268       | h  |		Execute	Discrete,Successor
03ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ed 0000 0000  |    |		.XXX[0x3]
03ef 0000       |    |
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03f5 0320       |    |		Declare_Variable	Record,Duplicate
03f6 00cd       |    |		Action	Spare6_Action
03f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03fd 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ff 0000       |    |		.XXX[0x1]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00da       |    |		Load_Top	At_Offset_2
0404 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0405 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0406 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0407 0000       |    |		.XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b e262       | b  |		Load	0x1,0x62
040c 0322       | "  |		Declare_Variable	Record
040d 00db       |    |		Load_Top	At_Offset_3
040e 00d9       |    |		Load_Top	At_Offset_1
040f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0410 00d8       |    |		Load_Top	At_Offset_0
0411 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0412 e5ff       |    |		Load	0x2,-0x1
0413 e006       |    |		Load	0x0,0x6
0414 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0415 e006       |    |		Load	0x0,0x6
0416 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0417 00d8       |    |		Load_Top	At_Offset_0
0418 e2be       |    |		Load	0x1,0xbe
0419 0260       | `  |		Execute	Discrete,In_Type
041a 7001       |p   |		Jump_Nonzero	0x41c
041b 0801       |    |		Execute_Immediate	Raise,0x1
041c 00d9       |    |		Load_Top	At_Offset_1
041d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
041e e2e5       |    |		Load	0x1,0xe5
041f 00d0       |    |		Action	Swap_Control
0420 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0421 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0422 0000 0000  |    |		.BLANK	0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b e262       | b  |		Load	0x1,0x62
042c 0322       | "  |		Declare_Variable	Record
042d 00db       |    |		Load_Top	At_Offset_3
042e 00d8       |    |		Load_Top	At_Offset_0
042f 00e3       |    |		Load_Encached	Natural_Cache
0430 0260       | `  |		Execute	Discrete,In_Type
0431 7001       |p   |		Jump_Nonzero	0x433
0432 0801       |    |		Execute_Immediate	Raise,0x1
0433 e006       |    |		Load	0x0,0x6
0434 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0435 e006       |    |		Load	0x0,0x6
0436 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0437 00d9       |    |		Load_Top	At_Offset_1
0438 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0439 00d8       |    |		Load_Top	At_Offset_0
043a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
043b e5ff       |    |		Load	0x2,-0x1
043c 00d9       |    |		Load_Top	At_Offset_1
043d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
043e e2e5       |    |		Load	0x1,0xe5
043f 00d0       |    |		Action	Swap_Control
0440 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0441 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0442 0000 0000  |    |		.BLANK	0000[0x6]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0452       | R  |		.CONST	0x0452								; 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 8263       | c  |		Call	0x1,0x63
044d e007       |    |		Load	0x0,0x7
044e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
044f e008       |    |		Load	0x0,0x8
0450 185d       | ]  |		Execute	Package,Field_Execute,Field_Number 0x5d
0451 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0452			TRAP_0448:
0452 e008       |    |		Load	0x0,0x8
0453 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0454 010f       |    |		Execute	Exception,Equal
0455 6802       |h   |		Jump_Zero	0x458
0456 e2bc       |    |		Load	0x1,0xbc
0457 0257       | W  |		Execute	Discrete,Raise
0458 0100       |    |		Execute	Exception,Raise
0459 0000 0000  |    |		.BLANK	0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 046a       | j  |		.CONST	0x046a								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00da       |    |		Load_Top	At_Offset_2
0464 8263       | c  |		Call	0x1,0x63
0465 e007       |    |		Load	0x0,0x7
0466 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0467 e008       |    |		Load	0x0,0x8
0468 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0469 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046a			TRAP_0460:
046a e008       |    |		Load	0x0,0x8
046b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
046c 010f       |    |		Execute	Exception,Equal
046d 6802       |h   |		Jump_Zero	0x470
046e e2bc       |    |		Load	0x1,0xbc
046f 0257       | W  |		Execute	Discrete,Raise
0470 0100       |    |		Execute	Exception,Raise
0471 0000 0000  |    |		.BLANK	0000[0x7]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0482       |    |		.CONST	0x0482								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 00da       |    |		Load_Top	At_Offset_2
047c 8263       | c  |		Call	0x1,0x63
047d e007       |    |		Load	0x0,0x7
047e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
047f e008       |    |		Load	0x0,0x8
0480 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0481 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0482			TRAP_0478:
0482 e008       |    |		Load	0x0,0x8
0483 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0484 010f       |    |		Execute	Exception,Equal
0485 6802       |h   |		Jump_Zero	0x488
0486 e2bc       |    |		Load	0x1,0xbc
0487 0257       | W  |		Execute	Discrete,Raise
0488 0100       |    |		Execute	Exception,Raise
0489 0000 0000  |    |		.BLANK	0000[0x7]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 049f       |    |		.CONST	0x049f								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2
0494 8263       | c  |		Call	0x1,0x63
0495 e007       |    |		Load	0x0,0x7
0496 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0497 e008       |    |		Load	0x0,0x8
0498 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0499 00d8       |    |		Load_Top	At_Offset_0
049a 00e4       |    |		Load_Encached	Positive_Cache
049b 0260       | `  |		Execute	Discrete,In_Type
049c 7001       |p   |		Jump_Nonzero	0x49e
049d 0801       |    |		Execute_Immediate	Raise,0x1
049e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
049f			TRAP_0490:
049f e008       |    |		Load	0x0,0x8
04a0 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04a1 010f       |    |		Execute	Exception,Equal
04a2 6802       |h   |		Jump_Zero	0x4a5
04a3 e2bc       |    |		Load	0x1,0xbc
04a4 0257       | W  |		Execute	Discrete,Raise
04a5 0100       |    |		Execute	Exception,Raise
04a6 0000 0000  |    |		.XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 04b2       |    |		.CONST	0x04b2								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 00da       |    |		Load_Top	At_Offset_2
04ac 8263       | c  |		Call	0x1,0x63
04ad e007       |    |		Load	0x0,0x7
04ae 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04af e008       |    |		Load	0x0,0x8
04b0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
04b1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b2			TRAP_04a8:
04b2 e008       |    |		Load	0x0,0x8
04b3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04b4 010f       |    |		Execute	Exception,Equal
04b5 6802       |h   |		Jump_Zero	0x4b8
04b6 e2bc       |    |		Load	0x1,0xbc
04b7 0257       | W  |		Execute	Discrete,Raise
04b8 0100       |    |		Execute	Exception,Raise
04b9 0000 0000  |    |		.BLANK	0000[0x7]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 04ca       |    |		.CONST	0x04ca								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 00da       |    |		Load_Top	At_Offset_2
04c4 8263       | c  |		Call	0x1,0x63
04c5 e007       |    |		Load	0x0,0x7
04c6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04c7 e008       |    |		Load	0x0,0x8
04c8 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
04c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ca			TRAP_04c0:
04ca e008       |    |		Load	0x0,0x8
04cb 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04cc 010f       |    |		Execute	Exception,Equal
04cd 6802       |h   |		Jump_Zero	0x4d0
04ce e2bc       |    |		Load	0x1,0xbc
04cf 0257       | W  |		Execute	Discrete,Raise
04d0 0100       |    |		Execute	Exception,Raise
04d1 0000 0000  |    |		.BLANK	0000[0x7]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db       |    |		.CONST	0x04db								; Address of begin
04d9 04e2       |    |		.CONST	0x04e2								; 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 8263       | c  |		Call	0x1,0x63
04dd e007       |    |		Load	0x0,0x7
04de 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04df e008       |    |		Load	0x0,0x8
04e0 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
04e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e2			TRAP_04d8:
04e2 e008       |    |		Load	0x0,0x8
04e3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04e4 010f       |    |		Execute	Exception,Equal
04e5 6802       |h   |		Jump_Zero	0x4e8
04e6 e2bc       |    |		Load	0x1,0xbc
04e7 0257       | W  |		Execute	Discrete,Raise
04e8 0100       |    |		Execute	Exception,Raise
04e9 0000 0000  |    |		.BLANK	0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 0502       |    |		.CONST	0x0502								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0004       |    |		.CONST	0x0004								; Number of locals
04f3			INIT_04f0:
04f3 4820       |H   |		Short_Literal	0x20
04f4 e5fe       |    |		Load	0x2,-0x2
04f5 e009       |    |		Load	0x0,0x9
04f6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04f7 82e6       |    |		Call	0x1,0xe6
04f8 00db       |    |		Load_Top	At_Offset_3
04f9 8263       | c  |		Call	0x1,0x63
04fa e007       |    |		Load	0x0,0x7
04fb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04fc e008       |    |		Load	0x0,0x8
04fd 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
04fe 00d8       |    |		Load_Top	At_Offset_0
04ff 01db       |    |		Execute	Vector,Length
0500 00e3       |    |		Load_Encached	Natural_Cache
0501 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0502			BODY_04f0:
0502 00d8       |    |		Load_Top	At_Offset_0
0503 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0504 681d       |h   |		Jump_Zero	0x522
0505 00da       |    |		Load_Top	At_Offset_2
0506 01db       |    |		Execute	Vector,Length
0507 7002       |p   |		Jump_Nonzero	0x50a
0508 00ea       |    |		Load_Encached	Null_String_Cache
0509 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
050a 00da       |    |		Load_Top	At_Offset_2
050b 01db       |    |		Execute	Vector,Length
050c 00d9       |    |		Load_Top	At_Offset_1
050d 027c       | |  |		Execute	Discrete,Less
050e 6804       |h   |		Jump_Zero	0x513
050f 00da       |    |		Load_Top	At_Offset_2
0510 00da       |    |		Load_Top	At_Offset_2
0511 01cc       |    |		Execute	Vector,Catenate
0512 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0513 4801       |H   |		Short_Literal	0x1
0514 00db       |    |		Load_Top	At_Offset_3
0515 00db       |    |		Load_Top	At_Offset_3
0516 e009       |    |		Load	0x0,0x9
0517 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0518 00db       |    |		Load_Top	At_Offset_3
0519 01dc       |    |		Execute	Vector,Last
051a 027f       |    |		Execute	Discrete,Equal
051b 6802       |h   |		Jump_Zero	0x51e
051c 00da       |    |		Load_Top	At_Offset_2
051d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
051e 00da       |    |		Load_Top	At_Offset_2
051f 00da       |    |		Load_Top	At_Offset_2
0520 01cc       |    |		Execute	Vector,Catenate
0521 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0522 00da       |    |		Load_Top	At_Offset_2
0523 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0524 0000 0000  |    |		.BLANK	0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0531       | 1  |		.CONST	0x0531								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0003       |    |		.CONST	0x0003								; Number of locals
052b			INIT_0528:
052b 00db       |    |		Load_Top	At_Offset_3
052c 00db       |    |		Load_Top	At_Offset_3
052d 826f       | o  |		Call	0x1,0x6f
052e e5fd       |    |		Load	0x2,-0x3
052f e5ff       |    |		Load	0x2,-0x1
0530 826f       | o  |		Call	0x1,0x6f
0531			BODY_0528:
0531 00d9       |    |		Load_Top	At_Offset_1
0532 00d9       |    |		Load_Top	At_Offset_1
0533 01cc       |    |		Execute	Vector,Catenate
0534 82e6       |    |		Call	0x1,0xe6
0535 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0536 0000 0000  |    |		.XXX[0x2]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053f       | ?  |		.CONST	0x053f								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0002       |    |		.CONST	0x0002								; Number of locals
053b			INIT_0538:
053b 00da       |    |		Load_Top	At_Offset_2
053c e5fe       |    |		Load	0x2,-0x2
053d e5fd       |    |		Load	0x2,-0x3
053e 82e7       |    |		Call	0x1,0xe7
053f			BODY_0538:
053f 00d8       |    |		Load_Top	At_Offset_0
0540 01db       |    |		Execute	Vector,Length
0541 7007       |p   |		Jump_Nonzero	0x549
0542 e5fe       |    |		Load	0x2,-0x2
0543 e5ff       |    |		Load	0x2,-0x1
0544 826f       | o  |		Call	0x1,0x6f
0545 e5fd       |    |		Load	0x2,-0x3
0546 01cc       |    |		Execute	Vector,Catenate
0547 82e6       |    |		Call	0x1,0xe6
0548 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0549 00d8       |    |		Load_Top	At_Offset_0
054a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
054b 0000 0000  |    |		.BLANK	0000[0x5]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 055f       | _  |		.CONST	0x055f								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 00da       |    |		Load_Top	At_Offset_2
0554 8263       | c  |		Call	0x1,0x63
0555 e007       |    |		Load	0x0,0x7
0556 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0557 e008       |    |		Load	0x0,0x8
0558 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0559 00d8       |    |		Load_Top	At_Offset_0
055a 00e4       |    |		Load_Encached	Positive_Cache
055b 0260       | `  |		Execute	Discrete,In_Type
055c 7001       |p   |		Jump_Nonzero	0x55e
055d 0801       |    |		Execute_Immediate	Raise,0x1
055e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055f			TRAP_0550:
055f e008       |    |		Load	0x0,0x8
0560 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0561 010f       |    |		Execute	Exception,Equal
0562 6802       |h   |		Jump_Zero	0x565
0563 e2bc       |    |		Load	0x1,0xbc
0564 0257       | W  |		Execute	Discrete,Raise
0565 0100       |    |		Execute	Exception,Raise
0566 0000 0000  |    |		.XXX[0x2]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0572       | r  |		.CONST	0x0572								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c 8263       | c  |		Call	0x1,0x63
056d e007       |    |		Load	0x0,0x7
056e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
056f e008       |    |		Load	0x0,0x8
0570 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0571 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0572			TRAP_0568:
0572 e008       |    |		Load	0x0,0x8
0573 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0574 010f       |    |		Execute	Exception,Equal
0575 6802       |h   |		Jump_Zero	0x578
0576 e2bc       |    |		Load	0x1,0xbc
0577 0257       | W  |		Execute	Discrete,Raise
0578 0100       |    |		Execute	Exception,Raise
0579 0000 0000  |    |		.BLANK	0000[0x7]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 4607       |F   |		Jump_Case	0x8
0584 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0585 7806       |x   |		Jump	0x58c								; case 0x1
0586 7809       |x   |		Jump	0x590								; case 0x2
0587 780d       |x   |		Jump	0x595								; case 0x3
0588 7810       |x   |		Jump	0x599								; case 0x4
0589 7811       |x   |		Jump	0x59b								; case 0x5
058a 7812       |x   |		Jump	0x59d								; case 0x6
058b 7815       |x   |		Jump	0x5a1								; case 0x7
058c 00da       |    |		Load_Top	At_Offset_2
058d 0091 0ea1  |    |		Action	Push_String_Extended_Indexed,0xea1				; "ADA_SPEC"
058f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0590 00db       |    |		Load_Top	At_Offset_3
0591 00db       |    |		Load_Top	At_Offset_3
0592 00e0       |    |		Load_Encached	Standard_Cache
0593 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0594 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0595 00da       |    |		Load_Top	At_Offset_2
0596 00e0       |    |		Load_Encached	Standard_Cache
0597 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0598 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0599 00db       |    |		Load_Top	At_Offset_3
059a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
059b 00db       |    |		Load_Top	At_Offset_3
059c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
059d e2b3       |    |		Load	0x1,0xb3
059e 00dc       |    |		Load_Top	At_Offset_4
059f 0267       | g  |		Execute	Discrete,Predecessor
05a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05a1 e2b3       |    |		Load	0x1,0xb3
05a2 00dc       |    |		Load_Top	At_Offset_4
05a3 0268       | h  |		Execute	Discrete,Successor
05a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05a5 0000 0000  |    |		.XXX[0x3]
05a7 0000       |    |
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 05c2       |    |		.CONST	0x05c2								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab 00db       |    |		Load_Top	At_Offset_3
05ac 4603       |F   |		Jump_Case	0x4
05ad 7805       |x   |		Jump	0x5b3								; case 0x0
05ae 780b       |x   |		Jump	0x5ba								; case 0x1
05af 7811       |x   |		Jump	0x5c1								; case 0x2
05b0 7800       |x   |		Jump	0x5b1								; case 0x3
05b1 00ea       |    |		Load_Encached	Null_String_Cache
05b2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05b3 00da       |    |		Load_Top	At_Offset_2
05b4 8263       | c  |		Call	0x1,0x63
05b5 e007       |    |		Load	0x0,0x7
05b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05b7 e008       |    |		Load	0x0,0x8
05b8 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
05b9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05ba 00da       |    |		Load_Top	At_Offset_2
05bb 8263       | c  |		Call	0x1,0x63
05bc e007       |    |		Load	0x0,0x7
05bd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05be e008       |    |		Load	0x0,0x8
05bf 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
05c0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05c1 0833       | 3  |		Execute_Immediate	Raise,0x33
05c2			TRAP_05a8:
05c2 e008       |    |		Load	0x0,0x8
05c3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
05c4 010f       |    |		Execute	Exception,Equal
05c5 6802       |h   |		Jump_Zero	0x5c8
05c6 e2bc       |    |		Load	0x1,0xbc
05c7 0257       | W  |		Execute	Discrete,Raise
05c8 0100       |    |		Execute	Exception,Raise
05c9 0000 0000  |    |		.BLANK	0000[0x7]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3       |    |		.CONST	0x05d3								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0001       |    |		.CONST	0x0001								; Number of locals
05d3			BODY_05d0:
05d3			INIT_05d0:
05d3 00db       |    |		Load_Top	At_Offset_3
05d4 00db       |    |		Load_Top	At_Offset_3
05d5 8276       | v  |		Call	0x1,0x76
05d6 00db       |    |		Load_Top	At_Offset_3
05d7 8274       | t  |		Call	0x1,0x74
05d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d9 0000 0000  |    |		.BLANK	0000[0x7]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05ea       |    |		.CONST	0x05ea								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0002       |    |		.CONST	0x0002								; Number of locals
05e3			INIT_05e0:
05e3 e002       |    |		Load	0x0,0x2
05e4 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
05e5 02c7       |    |		Declare_Variable	Any
05e6 e5fe       |    |		Load	0x2,-0x2
05e7 e002       |    |		Load	0x0,0x2
05e8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
05e9 a402       |    |		Store_Unchecked	0x2,0x2
05ea			BODY_05e0:
05ea 00d8       |    |		Load_Top	At_Offset_0
05eb e00a       |    |		Load	0x0,0xa
05ec 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05ed 012f       | /  |		Execute	Any,Equal
05ee 680e       |h   |		Jump_Zero	0x5fd
05ef e5fe       |    |		Load	0x2,-0x2
05f0 e00b       |    |		Load	0x0,0xb
05f1 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
05f2 6802       |h   |		Jump_Zero	0x5f5
05f3 4800       |H   |		Short_Literal	0x0
05f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f5 e5fe       |    |		Load	0x2,-0x2
05f6 e00b       |    |		Load	0x0,0xb
05f7 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
05f8 6802       |h   |		Jump_Zero	0x5fb
05f9 4801       |H   |		Short_Literal	0x1
05fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05fb 4803       |H   |		Short_Literal	0x3
05fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05fd 00d8       |    |		Load_Top	At_Offset_0
05fe e00a       |    |		Load	0x0,0xa
05ff 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0600 012f       | /  |		Execute	Any,Equal
0601 6802       |h   |		Jump_Zero	0x604
0602 4802       |H   |		Short_Literal	0x2
0603 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0604 4803       |H   |		Short_Literal	0x3
0605 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0606 0000 0000  |    |		.XXX[0x2]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0612       |    |		.CONST	0x0612								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0003       |    |		.CONST	0x0003								; Number of locals
060b			INIT_0608:
060b 00db       |    |		Load_Top	At_Offset_3
060c 00db       |    |		Load_Top	At_Offset_3
060d 8276       | v  |		Call	0x1,0x76
060e e2b3       |    |		Load	0x1,0xb3
060f 03f1       |    |		Declare_Variable	Discrete,With_Value
0610 029f 0d3b  |   ;|		Declare_Subprogram	INIT_0d38,For_Call
0612			BODY_0608:
0612 8403       |    |		Call	0x2,0x3
0613 0831       | 1  |		Execute_Immediate	Raise,0x31
0614 0000 0000  |    |		.BLANK	0000[0x4]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061f       |    |		.CONST	0x061f								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0002       |    |		.CONST	0x0002								; Number of locals
061b			INIT_0618:
061b e5fd       |    |		Load	0x2,-0x3
061c e5fe       |    |		Load	0x2,-0x2
061d e5ff       |    |		Load	0x2,-0x1
061e 82e4       |    |		Call	0x1,0xe4
061f			BODY_0618:
061f 00d8       |    |		Load_Top	At_Offset_0
0620 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0621 7002       |p   |		Jump_Nonzero	0x624
0622 00ea       |    |		Load_Encached	Null_String_Cache
0623 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0624 4801       |H   |		Short_Literal	0x1
0625 00d9       |    |		Load_Top	At_Offset_1
0626 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0627 00da       |    |		Load_Top	At_Offset_2
0628 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0629 01cf       |    |		Execute	Vector,Slice_Read
062a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
062b 0000 0000  |    |		.BLANK	0000[0x5]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0637       | 7  |		.CONST	0x0637								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0002       |    |		.CONST	0x0002								; Number of locals
0633			INIT_0630:
0633 00da       |    |		Load_Top	At_Offset_2
0634 e5fd       |    |		Load	0x2,-0x3
0635 e5fe       |    |		Load	0x2,-0x2
0636 82e7       |    |		Call	0x1,0xe7
0637			BODY_0630:
0637 00d8       |    |		Load_Top	At_Offset_0
0638 01db       |    |		Execute	Vector,Length
0639 7007       |p   |		Jump_Nonzero	0x641
063a e5fd       |    |		Load	0x2,-0x3
063b e5ff       |    |		Load	0x2,-0x1
063c 826f       | o  |		Call	0x1,0x6f
063d e5fe       |    |		Load	0x2,-0x2
063e 01cc       |    |		Execute	Vector,Catenate
063f 82e6       |    |		Call	0x1,0xe6
0640 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0641 00d8       |    |		Load_Top	At_Offset_0
0642 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0643 0000 0000  |    |		.BLANK	0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 0653       | S  |		.CONST	0x0653								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0002       |    |		.CONST	0x0002								; Number of locals
064b			INIT_0648:
064b 4801       |H   |		Short_Literal	0x1
064c e5fe       |    |		Load	0x2,-0x2
064d e5ff       |    |		Load	0x2,-0x1
064e 82d0       |    |		Call	0x1,0xd0
064f e009       |    |		Load	0x0,0x9
0650 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0651 00e3       |    |		Load_Encached	Natural_Cache
0652 03f1       |    |		Declare_Variable	Discrete,With_Value
0653			BODY_0648:
0653 00d8       |    |		Load_Top	At_Offset_0
0654 7004       |p   |		Jump_Nonzero	0x659
0655 e5fe       |    |		Load	0x2,-0x2
0656 0335       | 5  |		Declare_Variable	Array,Duplicate
0657 00cd       |    |		Action	Spare6_Action
0658 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0659 e5fe       |    |		Load	0x2,-0x2
065a 01dd       |    |		Execute	Vector,First
065b 00d9       |    |		Load_Top	At_Offset_1
065c e5ff       |    |		Load	0x2,-0x1
065d 82d0       |    |		Call	0x1,0xd0
065e 01db       |    |		Execute	Vector,Length
065f 0272       | r  |		Execute	Discrete,Minus
0660 00d8       |    |		Load_Top	At_Offset_0
0661 00e2       |    |		Load_Encached	Integer_Cache
0662 0260       | `  |		Execute	Discrete,In_Type
0663 7001       |p   |		Jump_Nonzero	0x665
0664 0801       |    |		Execute_Immediate	Raise,0x1
0665 e5fe       |    |		Load	0x2,-0x2
0666 01cf       |    |		Execute	Vector,Slice_Read
0667 0335       | 5  |		Declare_Variable	Array,Duplicate
0668 00cd       |    |		Action	Spare6_Action
0669 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
066a 0000 0000  |    |		.BLANK	0000[0x6]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 067b       | {  |		.CONST	0x067b								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0002       |    |		.CONST	0x0002								; Number of locals
0673			INIT_0670:
0673 4801       |H   |		Short_Literal	0x1
0674 e5fe       |    |		Load	0x2,-0x2
0675 e5ff       |    |		Load	0x2,-0x1
0676 82d0       |    |		Call	0x1,0xd0
0677 e009       |    |		Load	0x0,0x9
0678 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0679 00e3       |    |		Load_Encached	Natural_Cache
067a 03f1       |    |		Declare_Variable	Discrete,With_Value
067b			BODY_0670:
067b 00d8       |    |		Load_Top	At_Offset_0
067c 7002       |p   |		Jump_Nonzero	0x67f
067d 00ea       |    |		Load_Encached	Null_String_Cache
067e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
067f e5fd       |    |		Load	0x2,-0x3
0680 6812       |h   |		Jump_Zero	0x693
0681 00d8       |    |		Load_Top	At_Offset_0
0682 e5ff       |    |		Load	0x2,-0x1
0683 82d0       |    |		Call	0x1,0xd0
0684 01db       |    |		Execute	Vector,Length
0685 0272       | r  |		Execute	Discrete,Minus
0686 0a01       |    |		Execute_Immediate	Plus,0x1
0687 00d8       |    |		Load_Top	At_Offset_0
0688 00e2       |    |		Load_Encached	Integer_Cache
0689 0260       | `  |		Execute	Discrete,In_Type
068a 7001       |p   |		Jump_Nonzero	0x68c
068b 0801       |    |		Execute_Immediate	Raise,0x1
068c e5fe       |    |		Load	0x2,-0x2
068d 01dc       |    |		Execute	Vector,Last
068e e5fe       |    |		Load	0x2,-0x2
068f 01cf       |    |		Execute	Vector,Slice_Read
0690 0335       | 5  |		Declare_Variable	Array,Duplicate
0691 00cd       |    |		Action	Spare6_Action
0692 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0693 00d8       |    |		Load_Top	At_Offset_0
0694 0a01       |    |		Execute_Immediate	Plus,0x1
0695 00d8       |    |		Load_Top	At_Offset_0
0696 00e2       |    |		Load_Encached	Integer_Cache
0697 0260       | `  |		Execute	Discrete,In_Type
0698 7001       |p   |		Jump_Nonzero	0x69a
0699 0801       |    |		Execute_Immediate	Raise,0x1
069a e5fe       |    |		Load	0x2,-0x2
069b 01dc       |    |		Execute	Vector,Last
069c e5fe       |    |		Load	0x2,-0x2
069d 01cf       |    |		Execute	Vector,Slice_Read
069e 0335       | 5  |		Declare_Variable	Array,Duplicate
069f 00cd       |    |		Action	Spare6_Action
06a0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
06a1 0000 0000  |    |		.BLANK	0000[0x7]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab       |    |		.CONST	0x06ab								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0001       |    |		.CONST	0x0001								; Number of locals
06ab			BODY_06a8:
06ab			INIT_06a8:
06ab e00c       |    |		Load	0x0,0xc
06ac 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
06ad 0257       | W  |		Execute	Discrete,Raise
06ae 0000 0000  |    |		.XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 00db       |    |		Load_Top	At_Offset_3
06b4 01db       |    |		Execute	Vector,Length
06b5 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
06b6 6805       |h   |		Jump_Zero	0x6bc
06b7 00da       |    |		Load_Top	At_Offset_2
06b8 82d0       |    |		Call	0x1,0xd0
06b9 e5fe       |    |		Load	0x2,-0x2
06ba 01cc       |    |		Execute	Vector,Catenate
06bb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06bc 00ea       |    |		Load_Encached	Null_String_Cache
06bd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06be 0000 0000  |    |		.XXX[0x2]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3       |    |		.CONST	0x06c3								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0001       |    |		.CONST	0x0001								; Number of locals
06c3			BODY_06c0:
06c3			INIT_06c0:
06c3 08e2       |    |		Execute_Immediate	Raise,0xe2
06c4 0000 0000  |    |		.BLANK	0000[0x4]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb       |    |		.CONST	0x06cb								; Address of begin
06c9 06d2       |    |		.CONST	0x06d2								; Address of exception handler
06ca 0001       |    |		.CONST	0x0001								; Number of locals
06cb			BODY_06c8:
06cb			INIT_06c8:
06cb 00da       |    |		Load_Top	At_Offset_2
06cc 8263       | c  |		Call	0x1,0x63
06cd e007       |    |		Load	0x0,0x7
06ce 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06cf e008       |    |		Load	0x0,0x8
06d0 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
06d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06d2			TRAP_06c8:
06d2 e008       |    |		Load	0x0,0x8
06d3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
06d4 010f       |    |		Execute	Exception,Equal
06d5 6802       |h   |		Jump_Zero	0x6d8
06d6 e2bc       |    |		Load	0x1,0xbc
06d7 0257       | W  |		Execute	Discrete,Raise
06d8 0100       |    |		Execute	Exception,Raise
06d9 0000 0000  |    |		.BLANK	0000[0x7]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 00da       |    |		Load_Top	At_Offset_2
06e4 8263       | c  |		Call	0x1,0x63
06e5 e007       |    |		Load	0x0,0x7
06e6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06e7 e008       |    |		Load	0x0,0x8
06e8 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
06e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06ea 0000 0000  |    |		.BLANK	0000[0x6]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3       |    |		.CONST	0x06f3								; Address of begin
06f1 0004       |    |		.CONST	0x0004								; Address of exception handler
06f2 0001       |    |		.CONST	0x0001								; Number of locals
06f3			BODY_06f0:
06f3			INIT_06f0:
06f3 00da       |    |		Load_Top	At_Offset_2
06f4 8263       | c  |		Call	0x1,0x63
06f5 e007       |    |		Load	0x0,0x7
06f6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06f7 e008       |    |		Load	0x0,0x8
06f8 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
06f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06fa 0000 0000  |    |		.BLANK	0000[0x6]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703       |    |		.CONST	0x0703								; Address of begin
0701 070a       |    |		.CONST	0x070a								; Address of exception handler
0702 0001       |    |		.CONST	0x0001								; Number of locals
0703			BODY_0700:
0703			INIT_0700:
0703 00da       |    |		Load_Top	At_Offset_2
0704 8263       | c  |		Call	0x1,0x63
0705 e007       |    |		Load	0x0,0x7
0706 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0707 e008       |    |		Load	0x0,0x8
0708 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
0709 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
070a			TRAP_0700:
070a e008       |    |		Load	0x0,0x8
070b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
070c 010f       |    |		Execute	Exception,Equal
070d 6802       |h   |		Jump_Zero	0x710
070e e2bc       |    |		Load	0x1,0xbc
070f 0257       | W  |		Execute	Discrete,Raise
0710 0100       |    |		Execute	Exception,Raise
0711 0000 0000  |    |		.BLANK	0000[0x7]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b       |    |		.CONST	0x071b								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0001       |    |		.CONST	0x0001								; Number of locals
071b			BODY_0718:
071b			INIT_0718:
071b 00da       |    |		Load_Top	At_Offset_2
071c 8263       | c  |		Call	0x1,0x63
071d e007       |    |		Load	0x0,0x7
071e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
071f e008       |    |		Load	0x0,0x8
0720 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
0721 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0722 0000 0000  |    |		.BLANK	0000[0x6]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b 00da       |    |		Load_Top	At_Offset_2
072c 8263       | c  |		Call	0x1,0x63
072d e007       |    |		Load	0x0,0x7
072e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
072f e008       |    |		Load	0x0,0x8
0730 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0731 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0732 0000 0000  |    |		.BLANK	0000[0x6]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b       | ;  |		.CONST	0x073b								; Address of begin
0739 0742       | B  |		.CONST	0x0742								; Address of exception handler
073a 0001       |    |		.CONST	0x0001								; Number of locals
073b			BODY_0738:
073b			INIT_0738:
073b 00da       |    |		Load_Top	At_Offset_2
073c 8263       | c  |		Call	0x1,0x63
073d e007       |    |		Load	0x0,0x7
073e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
073f e008       |    |		Load	0x0,0x8
0740 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0741 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0742			TRAP_0738:
0742 e008       |    |		Load	0x0,0x8
0743 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0744 010f       |    |		Execute	Exception,Equal
0745 6802       |h   |		Jump_Zero	0x748
0746 e2bc       |    |		Load	0x1,0xbc
0747 0257       | W  |		Execute	Discrete,Raise
0748 0100       |    |		Execute	Exception,Raise
0749 0000 0000  |    |		.BLANK	0000[0x7]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753       | S  |		.CONST	0x0753								; Address of begin
0751 075a       | Z  |		.CONST	0x075a								; Address of exception handler
0752 0001       |    |		.CONST	0x0001								; Number of locals
0753			BODY_0750:
0753			INIT_0750:
0753 00da       |    |		Load_Top	At_Offset_2
0754 8263       | c  |		Call	0x1,0x63
0755 e007       |    |		Load	0x0,0x7
0756 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0757 e008       |    |		Load	0x0,0x8
0758 185b       | [  |		Execute	Package,Field_Execute,Field_Number 0x5b
0759 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
075a			TRAP_0750:
075a e008       |    |		Load	0x0,0x8
075b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
075c 010f       |    |		Execute	Exception,Equal
075d 6802       |h   |		Jump_Zero	0x760
075e e2bc       |    |		Load	0x1,0xbc
075f 0257       | W  |		Execute	Discrete,Raise
0760 0100       |    |		Execute	Exception,Raise
0761 0000 0000  |    |		.BLANK	0000[0x7]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b       | k  |		.CONST	0x076b								; Address of begin
0769 0772       | r  |		.CONST	0x0772								; Address of exception handler
076a 0001       |    |		.CONST	0x0001								; Number of locals
076b			BODY_0768:
076b			INIT_0768:
076b 00da       |    |		Load_Top	At_Offset_2
076c 8263       | c  |		Call	0x1,0x63
076d e007       |    |		Load	0x0,0x7
076e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
076f e008       |    |		Load	0x0,0x8
0770 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
0771 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0772			TRAP_0768:
0772 e008       |    |		Load	0x0,0x8
0773 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0774 010f       |    |		Execute	Exception,Equal
0775 6802       |h   |		Jump_Zero	0x778
0776 e2bc       |    |		Load	0x1,0xbc
0777 0257       | W  |		Execute	Discrete,Raise
0778 0100       |    |		Execute	Exception,Raise
0779 0000 0000  |    |		.BLANK	0000[0x7]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783       |    |		.CONST	0x0783								; Address of begin
0781 078a       |    |		.CONST	0x078a								; Address of exception handler
0782 0001       |    |		.CONST	0x0001								; Number of locals
0783			BODY_0780:
0783			INIT_0780:
0783 00da       |    |		Load_Top	At_Offset_2
0784 8263       | c  |		Call	0x1,0x63
0785 e007       |    |		Load	0x0,0x7
0786 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0787 e008       |    |		Load	0x0,0x8
0788 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0789 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078a			TRAP_0780:
078a e008       |    |		Load	0x0,0x8
078b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
078c 010f       |    |		Execute	Exception,Equal
078d 6802       |h   |		Jump_Zero	0x790
078e e2bc       |    |		Load	0x1,0xbc
078f 0257       | W  |		Execute	Discrete,Raise
0790 0100       |    |		Execute	Exception,Raise
0791 0000 0000  |    |		.BLANK	0000[0x7]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b       |    |		.CONST	0x079b								; Address of begin
0799 07a2       |    |		.CONST	0x07a2								; Address of exception handler
079a 0001       |    |		.CONST	0x0001								; Number of locals
079b			BODY_0798:
079b			INIT_0798:
079b 00da       |    |		Load_Top	At_Offset_2
079c 8263       | c  |		Call	0x1,0x63
079d e007       |    |		Load	0x0,0x7
079e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
079f e008       |    |		Load	0x0,0x8
07a0 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
07a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07a2			TRAP_0798:
07a2 e008       |    |		Load	0x0,0x8
07a3 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
07a4 010f       |    |		Execute	Exception,Equal
07a5 6802       |h   |		Jump_Zero	0x7a8
07a6 e2bc       |    |		Load	0x1,0xbc
07a7 0257       | W  |		Execute	Discrete,Raise
07a8 0100       |    |		Execute	Exception,Raise
07a9 0000 0000  |    |		.BLANK	0000[0x7]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b3       |    |		.CONST	0x07b3								; Address of begin
07b1 07ba       |    |		.CONST	0x07ba								; Address of exception handler
07b2 0001       |    |		.CONST	0x0001								; Number of locals
07b3			BODY_07b0:
07b3			INIT_07b0:
07b3 00da       |    |		Load_Top	At_Offset_2
07b4 8263       | c  |		Call	0x1,0x63
07b5 e007       |    |		Load	0x0,0x7
07b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07b7 e008       |    |		Load	0x0,0x8
07b8 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
07b9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07ba			TRAP_07b0:
07ba e008       |    |		Load	0x0,0x8
07bb 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
07bc 010f       |    |		Execute	Exception,Equal
07bd 6802       |h   |		Jump_Zero	0x7c0
07be e2bc       |    |		Load	0x1,0xbc
07bf 0257       | W  |		Execute	Discrete,Raise
07c0 0100       |    |		Execute	Exception,Raise
07c1 0000 0000  |    |		.BLANK	0000[0x7]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07d4       |    |		.CONST	0x07d4								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0002       |    |		.CONST	0x0002								; Number of locals
07cb			INIT_07c8:
07cb e002       |    |		Load	0x0,0x2
07cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07cd 02c7       |    |		Declare_Variable	Any
07ce e5fd       |    |		Load	0x2,-0x3
07cf 4800       |H   |		Short_Literal	0x0
07d0 e5fe       |    |		Load	0x2,-0x2
07d1 e00b       |    |		Load	0x0,0xb
07d2 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07d3 a402       |    |		Store_Unchecked	0x2,0x2
07d4			BODY_07c8:
07d4 e5fd       |    |		Load	0x2,-0x3
07d5 e5fe       |    |		Load	0x2,-0x2
07d6 4800       |H   |		Short_Literal	0x0
07d7 e5fd       |    |		Load	0x2,-0x3
07d8 e402       |    |		Load	0x2,0x2
07d9 82ea       |    |		Call	0x1,0xea
07da e005       |    |		Load	0x0,0x5
07db 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
07dc e005       |    |		Load	0x0,0x5
07dd 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
07de 4800       |H   |		Short_Literal	0x0
07df 4801       |H   |		Short_Literal	0x1
07e0 e5ff       |    |		Load	0x2,-0x1
07e1 82ec       |    |		Call	0x1,0xec
07e2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
07e3 0000 0000  |    |		.BLANK	0000[0x5]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07f4       |    |		.CONST	0x07f4								; Address of begin
07e9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ea 0002       |    |		.CONST	0x0002								; Number of locals
07eb			INIT_07e8:
07eb e002       |    |		Load	0x0,0x2
07ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07ed 02c7       |    |		Declare_Variable	Any
07ee e5fd       |    |		Load	0x2,-0x3
07ef 4800       |H   |		Short_Literal	0x0
07f0 e5fe       |    |		Load	0x2,-0x2
07f1 e00b       |    |		Load	0x0,0xb
07f2 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
07f3 a402       |    |		Store_Unchecked	0x2,0x2
07f4			BODY_07e8:
07f4 e5fd       |    |		Load	0x2,-0x3
07f5 e5fe       |    |		Load	0x2,-0x2
07f6 4800       |H   |		Short_Literal	0x0
07f7 e5fd       |    |		Load	0x2,-0x3
07f8 e402       |    |		Load	0x2,0x2
07f9 82ea       |    |		Call	0x1,0xea
07fa e005       |    |		Load	0x0,0x5
07fb 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
07fc e005       |    |		Load	0x0,0x5
07fd 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
07fe 4801       |H   |		Short_Literal	0x1
07ff 4801       |H   |		Short_Literal	0x1
0800 e5ff       |    |		Load	0x2,-0x1
0801 82ec       |    |		Call	0x1,0xec
0802 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0803 0000 0000  |    |		.BLANK	0000[0x5]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 0814       |    |		.CONST	0x0814								; Address of begin
0809 0004       |    |		.CONST	0x0004								; Address of exception handler
080a 0002       |    |		.CONST	0x0002								; Number of locals
080b			INIT_0808:
080b e002       |    |		Load	0x0,0x2
080c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
080d 02c7       |    |		Declare_Variable	Any
080e e5fd       |    |		Load	0x2,-0x3
080f 4800       |H   |		Short_Literal	0x0
0810 e5fe       |    |		Load	0x2,-0x2
0811 e00b       |    |		Load	0x0,0xb
0812 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0813 a402       |    |		Store_Unchecked	0x2,0x2
0814			BODY_0808:
0814 e5fd       |    |		Load	0x2,-0x3
0815 e5fe       |    |		Load	0x2,-0x2
0816 4800       |H   |		Short_Literal	0x0
0817 e5fd       |    |		Load	0x2,-0x3
0818 e402       |    |		Load	0x2,0x2
0819 82ea       |    |		Call	0x1,0xea
081a e005       |    |		Load	0x0,0x5
081b 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
081c e005       |    |		Load	0x0,0x5
081d 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
081e 4800       |H   |		Short_Literal	0x0
081f 4803       |H   |		Short_Literal	0x3
0820 e5ff       |    |		Load	0x2,-0x1
0821 82ec       |    |		Call	0x1,0xec
0822 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0823 0000 0000  |    |		.BLANK	0000[0x5]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0834       | 4  |		.CONST	0x0834								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0002       |    |		.CONST	0x0002								; Number of locals
082b			INIT_0828:
082b e002       |    |		Load	0x0,0x2
082c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
082d 02c7       |    |		Declare_Variable	Any
082e e5fd       |    |		Load	0x2,-0x3
082f 4800       |H   |		Short_Literal	0x0
0830 e5fe       |    |		Load	0x2,-0x2
0831 e00b       |    |		Load	0x0,0xb
0832 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0833 a402       |    |		Store_Unchecked	0x2,0x2
0834			BODY_0828:
0834 e5fd       |    |		Load	0x2,-0x3
0835 e5fe       |    |		Load	0x2,-0x2
0836 4800       |H   |		Short_Literal	0x0
0837 e5fd       |    |		Load	0x2,-0x3
0838 e402       |    |		Load	0x2,0x2
0839 82ea       |    |		Call	0x1,0xea
083a e005       |    |		Load	0x0,0x5
083b 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
083c e005       |    |		Load	0x0,0x5
083d 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
083e 4801       |H   |		Short_Literal	0x1
083f 4803       |H   |		Short_Literal	0x3
0840 e5ff       |    |		Load	0x2,-0x1
0841 82ec       |    |		Call	0x1,0xec
0842 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0843 0000 0000  |    |		.BLANK	0000[0x5]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b       | K  |		.CONST	0x084b								; Address of begin
0849 0004       |    |		.CONST	0x0004								; Address of exception handler
084a 0001       |    |		.CONST	0x0001								; Number of locals
084b			BODY_0848:
084b			INIT_0848:
084b e5fc       |    |		Load	0x2,-0x4
084c e5fd       |    |		Load	0x2,-0x3
084d 00ea       |    |		Load_Encached	Null_String_Cache
084e 4800       |H   |		Short_Literal	0x0
084f e5fe       |    |		Load	0x2,-0x2
0850 82eb       |    |		Call	0x1,0xeb
0851 e5ff       |    |		Load	0x2,-0x1
0852 82ec       |    |		Call	0x1,0xec
0853 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0854 0000 0000  |    |		.BLANK	0000[0x4]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b       | [  |		.CONST	0x085b								; Address of begin
0859 0004       |    |		.CONST	0x0004								; Address of exception handler
085a 0001       |    |		.CONST	0x0001								; Number of locals
085b			BODY_0858:
085b			INIT_0858:
085b e5fc       |    |		Load	0x2,-0x4
085c e5fd       |    |		Load	0x2,-0x3
085d 00ea       |    |		Load_Encached	Null_String_Cache
085e 4801       |H   |		Short_Literal	0x1
085f e5fe       |    |		Load	0x2,-0x2
0860 82eb       |    |		Call	0x1,0xeb
0861 e5ff       |    |		Load	0x2,-0x1
0862 82ec       |    |		Call	0x1,0xec
0863 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0864 0000 0000  |    |		.BLANK	0000[0x4]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b       | k  |		.CONST	0x086b								; Address of begin
0869 0872       | r  |		.CONST	0x0872								; Address of exception handler
086a 0001       |    |		.CONST	0x0001								; Number of locals
086b			BODY_0868:
086b			INIT_0868:
086b 00da       |    |		Load_Top	At_Offset_2
086c 8263       | c  |		Call	0x1,0x63
086d e007       |    |		Load	0x0,0x7
086e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
086f e008       |    |		Load	0x0,0x8
0870 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0871 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0872			TRAP_0868:
0872 e008       |    |		Load	0x0,0x8
0873 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0874 010f       |    |		Execute	Exception,Equal
0875 6802       |h   |		Jump_Zero	0x878
0876 e2bc       |    |		Load	0x1,0xbc
0877 0257       | W  |		Execute	Discrete,Raise
0878 0100       |    |		Execute	Exception,Raise
0879 0000 0000  |    |		.BLANK	0000[0x7]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0885       |    |		.CONST	0x0885								; Address of begin
0881 089a       |    |		.CONST	0x089a								; Address of exception handler
0882 0002       |    |		.CONST	0x0002								; Number of locals
0883			INIT_0880:
0883 e008       |    |		Load	0x0,0x8
0884 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0885			BODY_0880:
0885 00db       |    |		Load_Top	At_Offset_3
0886 8263       | c  |		Call	0x1,0x63
0887 e007       |    |		Load	0x0,0x7
0888 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0889 e008       |    |		Load	0x0,0x8
088a 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
088b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
088c 00d8       |    |		Load_Top	At_Offset_0
088d 4603       |F   |		Jump_Case	0x4
088e 7805       |x   |		Jump	0x894								; case 0x0
088f 7806       |x   |		Jump	0x896								; case 0x1
0890 7807       |x   |		Jump	0x898								; case 0x2
0891 7800       |x   |		Jump	0x892								; case 0x3
0892 4803       |H   |		Short_Literal	0x3
0893 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0894 4800       |H   |		Short_Literal	0x0
0895 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0896 4801       |H   |		Short_Literal	0x1
0897 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0898 4802       |H   |		Short_Literal	0x2
0899 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
089a			TRAP_0880:
089a e008       |    |		Load	0x0,0x8
089b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
089c 010f       |    |		Execute	Exception,Equal
089d 6802       |h   |		Jump_Zero	0x8a0
089e e2bc       |    |		Load	0x1,0xbc
089f 0257       | W  |		Execute	Discrete,Raise
08a0 0100       |    |		Execute	Exception,Raise
08a1 0000 0000  |    |		.BLANK	0000[0x7]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ab       |    |		.CONST	0x08ab								; Address of begin
08a9 08b7       |    |		.CONST	0x08b7								; Address of exception handler
08aa 0001       |    |		.CONST	0x0001								; Number of locals
08ab			BODY_08a8:
08ab			INIT_08a8:
08ab 00da       |    |		Load_Top	At_Offset_2
08ac 8263       | c  |		Call	0x1,0x63
08ad e007       |    |		Load	0x0,0x7
08ae 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08af e008       |    |		Load	0x0,0x8
08b0 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
08b1 00d8       |    |		Load_Top	At_Offset_0
08b2 00e4       |    |		Load_Encached	Positive_Cache
08b3 0260       | `  |		Execute	Discrete,In_Type
08b4 7001       |p   |		Jump_Nonzero	0x8b6
08b5 0801       |    |		Execute_Immediate	Raise,0x1
08b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08b7			TRAP_08a8:
08b7 e008       |    |		Load	0x0,0x8
08b8 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
08b9 010f       |    |		Execute	Exception,Equal
08ba 6802       |h   |		Jump_Zero	0x8bd
08bb e2bc       |    |		Load	0x1,0xbc
08bc 0257       | W  |		Execute	Discrete,Raise
08bd 0100       |    |		Execute	Exception,Raise
08be 0000 0000  |    |		.XXX[0x2]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3       |    |		.CONST	0x08c3								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0001       |    |		.CONST	0x0001								; Number of locals
08c3			BODY_08c0:
08c3			INIT_08c0:
08c3 00da       |    |		Load_Top	At_Offset_2
08c4 82d3       |    |		Call	0x1,0xd3
08c5 6817       |h   |		Jump_Zero	0x8dd
08c6 00da       |    |		Load_Top	At_Offset_2
08c7 82b6       |    |		Call	0x1,0xb6
08c8 4603       |F   |		Jump_Case	0x4
08c9 7807       |x   |		Jump	0x8d1								; case 0x0
08ca 780a       |x   |		Jump	0x8d5								; case 0x1
08cb 780d       |x   |		Jump	0x8d9								; case 0x2
08cc 7800       |x   |		Jump	0x8cd								; case 0x3
08cd 00db       |    |		Load_Top	At_Offset_3
08ce 0335       | 5  |		Declare_Variable	Array,Duplicate
08cf 00cd       |    |		Action	Spare6_Action
08d0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08d1 00db       |    |		Load_Top	At_Offset_3
08d2 e009       |    |		Load	0x0,0x9
08d3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
08d4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08d5 00db       |    |		Load_Top	At_Offset_3
08d6 e009       |    |		Load	0x0,0x9
08d7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
08d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08d9 00db       |    |		Load_Top	At_Offset_3
08da e009       |    |		Load	0x0,0x9
08db 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
08dc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08dd 00db       |    |		Load_Top	At_Offset_3
08de 0335       | 5  |		Declare_Variable	Array,Duplicate
08df 00cd       |    |		Action	Spare6_Action
08e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08e1 0000 0000  |    |		.BLANK	0000[0x7]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb       |    |		.CONST	0x08eb								; Address of begin
08e9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ea 0001       |    |		.CONST	0x0001								; Number of locals
08eb			BODY_08e8:
08eb			INIT_08e8:
08eb 00da       |    |		Load_Top	At_Offset_2
08ec 827d       | }  |		Call	0x1,0x7d
08ed 00db       |    |		Load_Top	At_Offset_3
08ee 82ed       |    |		Call	0x1,0xed
08ef 01cc       |    |		Execute	Vector,Catenate
08f0 e5fd       |    |		Load	0x2,-0x3
08f1 01cc       |    |		Execute	Vector,Catenate
08f2 00db       |    |		Load_Top	At_Offset_3
08f3 82ed       |    |		Call	0x1,0xed
08f4 01cc       |    |		Execute	Vector,Catenate
08f5 e5fe       |    |		Load	0x2,-0x2
08f6 01cc       |    |		Execute	Vector,Catenate
08f7 00db       |    |		Load_Top	At_Offset_3
08f8 82ed       |    |		Call	0x1,0xed
08f9 01cc       |    |		Execute	Vector,Catenate
08fa e5fc       |    |		Load	0x2,-0x4
08fb 01cc       |    |		Execute	Vector,Catenate
08fc 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
08fd 0000 0000  |    |		.XXX[0x3]
08ff 0000       |    |
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903       |    |		.CONST	0x0903								; Address of begin
0901 0004       |    |		.CONST	0x0004								; Address of exception handler
0902 0001       |    |		.CONST	0x0001								; Number of locals
0903			BODY_0900:
0903			INIT_0900:
0903 00da       |    |		Load_Top	At_Offset_2
0904 8287       |    |		Call	0x1,0x87
0905 00db       |    |		Load_Top	At_Offset_3
0906 82ed       |    |		Call	0x1,0xed
0907 01cc       |    |		Execute	Vector,Catenate
0908 e5fd       |    |		Load	0x2,-0x3
0909 01cc       |    |		Execute	Vector,Catenate
090a 00db       |    |		Load_Top	At_Offset_3
090b 82ed       |    |		Call	0x1,0xed
090c 01cc       |    |		Execute	Vector,Catenate
090d e5fe       |    |		Load	0x2,-0x2
090e 01cc       |    |		Execute	Vector,Catenate
090f 00db       |    |		Load_Top	At_Offset_3
0910 82ed       |    |		Call	0x1,0xed
0911 01cc       |    |		Execute	Vector,Catenate
0912 e5fc       |    |		Load	0x2,-0x4
0913 01cc       |    |		Execute	Vector,Catenate
0914 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0915 0000 0000  |    |		.XXX[0x3]
0917 0000       |    |
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091b       |    |		.CONST	0x091b								; Address of begin
0919 0004       |    |		.CONST	0x0004								; Address of exception handler
091a 0001       |    |		.CONST	0x0001								; Number of locals
091b			BODY_0918:
091b			INIT_0918:
091b 00da       |    |		Load_Top	At_Offset_2
091c 828c       |    |		Call	0x1,0x8c
091d 00db       |    |		Load_Top	At_Offset_3
091e 82ed       |    |		Call	0x1,0xed
091f 01cc       |    |		Execute	Vector,Catenate
0920 e5fd       |    |		Load	0x2,-0x3
0921 01cc       |    |		Execute	Vector,Catenate
0922 00db       |    |		Load_Top	At_Offset_3
0923 82ed       |    |		Call	0x1,0xed
0924 01cc       |    |		Execute	Vector,Catenate
0925 e5fe       |    |		Load	0x2,-0x2
0926 01cc       |    |		Execute	Vector,Catenate
0927 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092b       | +  |		.CONST	0x092b								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0001       |    |		.CONST	0x0001								; Number of locals
092b			BODY_0928:
092b			INIT_0928:
092b e5fc       |    |		Load	0x2,-0x4
092c 01db       |    |		Execute	Vector,Length
092d 6810       |h   |		Jump_Zero	0x93e
092e 00da       |    |		Load_Top	At_Offset_2
092f 8290       |    |		Call	0x1,0x90
0930 00db       |    |		Load_Top	At_Offset_3
0931 82d5       |    |		Call	0x1,0xd5
0932 01cc       |    |		Execute	Vector,Catenate
0933 e5fc       |    |		Load	0x2,-0x4
0934 01cc       |    |		Execute	Vector,Catenate
0935 00db       |    |		Load_Top	At_Offset_3
0936 82ed       |    |		Call	0x1,0xed
0937 01cc       |    |		Execute	Vector,Catenate
0938 e5fd       |    |		Load	0x2,-0x3
0939 e5fe       |    |		Load	0x2,-0x2
093a e5ff       |    |		Load	0x2,-0x1
093b 8270       | p  |		Call	0x1,0x70
093c 01cc       |    |		Execute	Vector,Catenate
093d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
093e 00da       |    |		Load_Top	At_Offset_2
093f 8290       |    |		Call	0x1,0x90
0940 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0941 0000 0000  |    |		.BLANK	0000[0x7]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094b       | K  |		.CONST	0x094b								; Address of begin
0949 0004       |    |		.CONST	0x0004								; Address of exception handler
094a 0001       |    |		.CONST	0x0001								; Number of locals
094b			BODY_0948:
094b			INIT_0948:
094b 4801       |H   |		Short_Literal	0x1
094c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
094d 0000 0000  |    |		.XXX[0x3]
094f 0000       |    |
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0953       | S  |		.CONST	0x0953								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0001       |    |		.CONST	0x0001								; Number of locals
0953			BODY_0950:
0953			INIT_0950:
0953 4801       |H   |		Short_Literal	0x1
0954 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0955 0000 0000  |    |		.XXX[0x3]
0957 0000       |    |
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 0961       | a  |		.CONST	0x0961								; Address of begin
0959 0966       | f  |		.CONST	0x0966								; Address of exception handler
095a 0002       |    |		.CONST	0x0002								; Number of locals
095b			INIT_0958:
095b e262       | b  |		Load	0x1,0x62
095c 0322       | "  |		Declare_Variable	Record
095d 00db       |    |		Load_Top	At_Offset_3
095e 8267       | g  |		Call	0x1,0x67
095f 00d9       |    |		Load_Top	At_Offset_1
0960 017d       | }  |		Execute	Record,Structure_Write
0961			BODY_0958:
0961 00d8       |    |		Load_Top	At_Offset_0
0962 8263       | c  |		Call	0x1,0x63
0963 e003       |    |		Load	0x0,0x3
0964 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0965 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0966			TRAP_0958:
0966 010e       |    |		Execute	Exception,Is_Constraint_Error
0967 6803       |h   |		Jump_Zero	0x96b
0968 0092 0ea5  |    |		Action	Push_String_Extended,0xea5					; "<UNREGISTERED>"
096a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
096b 0100       |    |		Execute	Exception,Raise
096c 0000 0000  |    |		.BLANK	0000[0x4]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 0973       | s  |		.CONST	0x0973								; Address of begin
0971 0004       |    |		.CONST	0x0004								; Address of exception handler
0972 0001       |    |		.CONST	0x0001								; Number of locals
0973			BODY_0970:
0973			INIT_0970:
0973 00da       |    |		Load_Top	At_Offset_2
0974 00e0       |    |		Load_Encached	Standard_Cache
0975 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0976 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0977 0000       |    |		.XXX[0x1]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 098d       |    |		.CONST	0x098d								; Address of begin
0979 0004       |    |		.CONST	0x0004								; Address of exception handler
097a 0003       |    |		.CONST	0x0003								; Number of locals
097b			INIT_0978:
097b e008       |    |		Load	0x0,0x8
097c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
097d 0337       | 7  |		Declare_Variable	Array
097e e00d       |    |		Load	0x0,0xd
097f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0980 0337       | 7  |		Declare_Variable	Array
0981 00d8       |    |		Load_Top	At_Offset_0
0982 0335       | 5  |		Declare_Variable	Array,Duplicate
0983 00cd       |    |		Action	Spare6_Action
0984 4808       |H   |		Short_Literal	0x8
0985 4800       |H   |		Short_Literal	0x0
0986 4800       |H   |		Short_Literal	0x0
0987 00d9       |    |		Load_Top	At_Offset_1
0988 e404       |    |		Load	0x2,0x4
0989 01d6       |    |		Execute	Vector,Field_Write
098a 3ffb       |?   |		Loop_Increasing	0x986
098b 00d9       |    |		Load_Top	At_Offset_1
098c 01d4       |    |		Execute	Vector,Structure_Write
098d			BODY_0978:
098d e5ff       |    |		Load	0x2,-0x1
098e 8267       | g  |		Call	0x1,0x67
098f 8263       | c  |		Call	0x1,0x63
0990 e007       |    |		Load	0x0,0x7
0991 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0992 e008       |    |		Load	0x0,0x8
0993 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0994 00da       |    |		Load_Top	At_Offset_2
0995 01d4       |    |		Execute	Vector,Structure_Write
0996 00cf       |    |		Action	Mark_Auxiliary
0997 4804       |H   |		Short_Literal	0x4
0998 4800       |H   |		Short_Literal	0x0
0999 0007       |    |		Action	Break_Optional
099a 00d8       |    |		Load_Top	At_Offset_0
099b e402       |    |		Load	0x2,0x2
099c 01d7       |    |		Execute	Vector,Field_Read
099d 00d9       |    |		Load_Top	At_Offset_1
099e 00d8       |    |		Load_Top	At_Offset_0
099f e00d       |    |		Load	0x0,0xd
09a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09a1 0260       | `  |		Execute	Discrete,In_Type
09a2 7001       |p   |		Jump_Nonzero	0x9a4
09a3 0801       |    |		Execute_Immediate	Raise,0x1
09a4 e403       |    |		Load	0x2,0x3
09a5 01d6       |    |		Execute	Vector,Field_Write
09a6 00c8       |    |		Action	Pop_Auxiliary_Range
09a7 3ff2       |?   |		Loop_Increasing	0x99a
09a8 00ce       |    |		Action	Pop_Auxiliary
09a9 00d8       |    |		Load_Top	At_Offset_0
09aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09ab 0000 0000  |    |		.BLANK	0000[0x5]
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09b5       |    |		.CONST	0x09b5								; Address of begin
09b1 0004       |    |		.CONST	0x0004								; Address of exception handler
09b2 0002       |    |		.CONST	0x0002								; Number of locals
09b3			INIT_09b0:
09b3 e008       |    |		Load	0x0,0x8
09b4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
09b5			BODY_09b0:
09b5 00db       |    |		Load_Top	At_Offset_3
09b6 8263       | c  |		Call	0x1,0x63
09b7 e007       |    |		Load	0x0,0x7
09b8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
09b9 e008       |    |		Load	0x0,0x8
09ba 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
09bb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
09bc 00d8       |    |		Load_Top	At_Offset_0
09bd 0f01       |    |		Execute_Immediate	Equal,0x1
09be 7002       |p   |		Jump_Nonzero	0x9c1
09bf 4801       |H   |		Short_Literal	0x1
09c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09c1 4800       |H   |		Short_Literal	0x0
09c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09c3 0000 0000  |    |		.BLANK	0000[0x5]
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cb       |    |		.CONST	0x09cb								; Address of begin
09c9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ca 0001       |    |		.CONST	0x0001								; Number of locals
09cb			BODY_09c8:
09cb			INIT_09c8:
09cb 00da       |    |		Load_Top	At_Offset_2
09cc 01db       |    |		Execute	Vector,Length
09cd 700f       |p   |		Jump_Nonzero	0x9dd
09ce e5fd       |    |		Load	0x2,-0x3
09cf 82ee       |    |		Call	0x1,0xee
09d0 0f00       |    |		Execute_Immediate	Equal,0x0
09d1 e5fd       |    |		Load	0x2,-0x3
09d2 82ee       |    |		Call	0x1,0xee
09d3 0f01       |    |		Execute_Immediate	Equal,0x1
09d4 0278       | x  |		Execute	Discrete,Or
09d5 6805       |h   |		Jump_Zero	0x9db
09d6 00db       |    |		Load_Top	At_Offset_3
09d7 0092 0ea6  |    |		Action	Push_String_Extended,0xea6					; ".exe"
09d9 01cc       |    |		Execute	Vector,Catenate
09da 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
09db 00ea       |    |		Load_Encached	Null_String_Cache
09dc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
09dd 00da       |    |		Load_Top	At_Offset_2
09de 0335       | 5  |		Declare_Variable	Array,Duplicate
09df 00cd       |    |		Action	Spare6_Action
09e0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
09e1 0000 0000  |    |		.BLANK	0000[0x7]
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 09f0       |    |		.CONST	0x09f0								; Address of begin
09e9 0a04       |    |		.CONST	0x0a04								; Address of exception handler
09ea 0002       |    |		.CONST	0x0002								; Number of locals
09eb			INIT_09e8:
09eb e002       |    |		Load	0x0,0x2
09ec 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
09ed 02ff       |    |		Declare_Variable	Variant_Record
09ee 00d8       |    |		Load_Top	At_Offset_0
09ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09f0			BODY_09e8:
09f0 e5fd       |    |		Load	0x2,-0x3
09f1 4801       |H   |		Short_Literal	0x1
09f2 e5fd       |    |		Load	0x2,-0x3
09f3 4801       |H   |		Short_Literal	0x1
09f4 e5fe       |    |		Load	0x2,-0x2
09f5 e00b       |    |		Load	0x0,0xb
09f6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
09f7 e00b       |    |		Load	0x0,0xb
09f8 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
09f9 00d9       |    |		Load_Top	At_Offset_1
09fa 016d       | m  |		Execute	Variant_Record,Structure_Write
09fb 600c       |`   |		Indirect_Literal	Discrete,0xa08,{0x00000000, 0x00004000}
09fc e00e       |    |		Load	0x0,0xe
09fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09fe 0092 0ea7  |    |		Action	Push_String_Extended,0xea7					; "Ftp.Remote_Machine"
0a00 00db       |    |		Load_Top	At_Offset_3
0a01 e00f       |    |		Load	0x0,0xf
0a02 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0a03 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a04			TRAP_09e8:
0a04 0007       |    |		Action	Break_Optional
0a05 00ea       |    |		Load_Encached	Null_String_Cache
0a06 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a07 0000       |    |		.XXX[0x1]
0a08 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0a0c 0000 0000  |    |		.BLANK	0000[0x4]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a18       |    |		.CONST	0x0a18								; Address of begin
0a11 0a2c       | ,  |		.CONST	0x0a2c								; Address of exception handler
0a12 0002       |    |		.CONST	0x0002								; Number of locals
0a13			INIT_0a10:
0a13 e002       |    |		Load	0x0,0x2
0a14 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0a15 02ff       |    |		Declare_Variable	Variant_Record
0a16 00d8       |    |		Load_Top	At_Offset_0
0a17 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a18			BODY_0a10:
0a18 e5fd       |    |		Load	0x2,-0x3
0a19 4801       |H   |		Short_Literal	0x1
0a1a e5fd       |    |		Load	0x2,-0x3
0a1b 4801       |H   |		Short_Literal	0x1
0a1c e5fe       |    |		Load	0x2,-0x2
0a1d e00b       |    |		Load	0x0,0xb
0a1e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0a1f e00b       |    |		Load	0x0,0xb
0a20 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0a21 00d9       |    |		Load_Top	At_Offset_1
0a22 016d       | m  |		Execute	Variant_Record,Structure_Write
0a23 67e4       |g   |		Indirect_Literal	Discrete,0xa08,{0x00000000, 0x00004000}
0a24 e00e       |    |		Load	0x0,0xe
0a25 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a26 0092 0ea8  |    |		Action	Push_String_Extended,0xea8					; "Ftp.Remote_Directory"
0a28 00db       |    |		Load_Top	At_Offset_3
0a29 e00f       |    |		Load	0x0,0xf
0a2a 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0a2b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a2c			TRAP_0a10:
0a2c 0007       |    |		Action	Break_Optional
0a2d 00ea       |    |		Load_Encached	Null_String_Cache
0a2e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a2f 0000       |    |		.XXX[0x1]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a42       | B  |		.CONST	0x0a42								; Address of begin
0a31 0004       |    |		.CONST	0x0004								; Address of exception handler
0a32 0005       |    |		.CONST	0x0005								; Number of locals
0a33			INIT_0a30:
0a33 e010       |    |		Load	0x0,0x10
0a34 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a35 02c7       |    |		Declare_Variable	Any
0a36 e010       |    |		Load	0x0,0x10
0a37 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a38 a402       |    |		Store_Unchecked	0x2,0x2
0a39 e011       |    |		Load	0x0,0x11
0a3a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a3b e002       |    |		Load	0x0,0x2
0a3c 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0a3d 0322       | "  |		Declare_Variable	Record
0a3e 00d8       |    |		Load_Top	At_Offset_0
0a3f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a40 029f 0d53  |   S|		Declare_Subprogram	INIT_0d50,For_Call
0a42			BODY_0a30:
0a42 8405       |    |		Call	0x2,0x5
0a43 4800       |H   |		Short_Literal	0x0
0a44 e004       |    |		Load	0x0,0x4
0a45 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0a46 e5ff       |    |		Load	0x2,-0x1
0a47 01cc       |    |		Execute	Vector,Catenate
0a48 e004       |    |		Load	0x0,0x4
0a49 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0a4a 01cc       |    |		Execute	Vector,Catenate
0a4b 00ea       |    |		Load_Encached	Null_String_Cache
0a4c e5ff       |    |		Load	0x2,-0x1
0a4d e005       |    |		Load	0x0,0x5
0a4e 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
0a4f 01cc       |    |		Execute	Vector,Catenate
0a50 e005       |    |		Load	0x0,0x5
0a51 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0a52 4800       |H   |		Short_Literal	0x0
0a53 e004       |    |		Load	0x0,0x4
0a54 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0a55 e5ff       |    |		Load	0x2,-0x1
0a56 01cc       |    |		Execute	Vector,Catenate
0a57 e004       |    |		Load	0x0,0x4
0a58 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0a59 01cc       |    |		Execute	Vector,Catenate
0a5a 00ea       |    |		Load_Encached	Null_String_Cache
0a5b e5ff       |    |		Load	0x2,-0x1
0a5c e005       |    |		Load	0x0,0x5
0a5d 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0a5e 01cc       |    |		Execute	Vector,Catenate
0a5f e005       |    |		Load	0x0,0x5
0a60 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0a61 4801       |H   |		Short_Literal	0x1
0a62 e004       |    |		Load	0x0,0x4
0a63 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0a64 e5ff       |    |		Load	0x2,-0x1
0a65 01cc       |    |		Execute	Vector,Catenate
0a66 e004       |    |		Load	0x0,0x4
0a67 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0a68 01cc       |    |		Execute	Vector,Catenate
0a69 00ea       |    |		Load_Encached	Null_String_Cache
0a6a e5ff       |    |		Load	0x2,-0x1
0a6b e005       |    |		Load	0x0,0x5
0a6c 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
0a6d 01cc       |    |		Execute	Vector,Catenate
0a6e e005       |    |		Load	0x0,0x5
0a6f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0a70 4801       |H   |		Short_Literal	0x1
0a71 e004       |    |		Load	0x0,0x4
0a72 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0a73 e5ff       |    |		Load	0x2,-0x1
0a74 01cc       |    |		Execute	Vector,Catenate
0a75 e004       |    |		Load	0x0,0x4
0a76 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0a77 01cc       |    |		Execute	Vector,Catenate
0a78 00ea       |    |		Load_Encached	Null_String_Cache
0a79 e5ff       |    |		Load	0x2,-0x1
0a7a e005       |    |		Load	0x0,0x5
0a7b 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0a7c 01cc       |    |		Execute	Vector,Catenate
0a7d e005       |    |		Load	0x0,0x5
0a7e 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0a7f 00db       |    |		Load_Top	At_Offset_3
0a80 00da       |    |		Load_Top	At_Offset_2
0a81 e012       |    |		Load	0x0,0x12
0a82 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0a83 00da       |    |		Load_Top	At_Offset_2
0a84 e402       |    |		Load	0x2,0x2
0a85 00db       |    |		Load_Top	At_Offset_3
0a86 e013       |    |		Load	0x0,0x13
0a87 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0a88 005b       | [  |		Store_Top	Discrete,At_Offset_3
0a89 4800       |H   |		Short_Literal	0x0
0a8a 00db       |    |		Load_Top	At_Offset_3
0a8b e011       |    |		Load	0x0,0x11
0a8c 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0a8d 7000       |p   |		Jump_Nonzero	0xa8e
0a8e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a8f 0000       |    |		.XXX[0x1]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a93       |    |		.CONST	0x0a93								; Address of begin
0a91 0004       |    |		.CONST	0x0004								; Address of exception handler
0a92 0001       |    |		.CONST	0x0001								; Number of locals
0a93			BODY_0a90:
0a93			INIT_0a90:
0a93 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a94 0000 0000  |    |		.BLANK	0000[0x4]
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0a9b       |    |		.CONST	0x0a9b								; Address of begin
0a99 0004       |    |		.CONST	0x0004								; Address of exception handler
0a9a 0001       |    |		.CONST	0x0001								; Number of locals
0a9b			BODY_0a98:
0a9b			INIT_0a98:
0a9b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a9c 0000 0000  |    |		.BLANK	0000[0x4]
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; SUBPROGRAM
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0aa3       |    |		.CONST	0x0aa3								; Address of begin
0aa1 0004       |    |		.CONST	0x0004								; Address of exception handler
0aa2 0001       |    |		.CONST	0x0001								; Number of locals
0aa3			BODY_0aa0:
0aa3			INIT_0aa0:
0aa3 00da       |    |		Load_Top	At_Offset_2
0aa4 829e       |    |		Call	0x1,0x9e
0aa5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0aa6 0000 0000  |    |		.XXX[0x2]
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; SUBPROGRAM
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0aab       |    |		.CONST	0x0aab								; Address of begin
0aa9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aaa 0001       |    |		.CONST	0x0001								; Number of locals
0aab			BODY_0aa8:
0aab			INIT_0aa8:
0aab 00da       |    |		Load_Top	At_Offset_2
0aac e011       |    |		Load	0x0,0x11
0aad 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0aae e011       |    |		Load	0x0,0x11
0aaf 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0ab0 82e2       |    |		Call	0x1,0xe2
0ab1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ab2 0000 0000  |    |		.BLANK	0000[0x6]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0abb       |    |		.CONST	0x0abb								; Address of begin
0ab9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aba 0001       |    |		.CONST	0x0001								; Number of locals
0abb			BODY_0ab8:
0abb			INIT_0ab8:
0abb 00da       |    |		Load_Top	At_Offset_2
0abc 460b       |F   |		Jump_Case	0xc
0abd 780b       |x   |		Jump	0xac9								; case 0x0
0abe 780a       |x   |		Jump	0xac9								; case 0x1
0abf 7809       |x   |		Jump	0xac9								; case 0x2
0ac0 7808       |x   |		Jump	0xac9								; case 0x3
0ac1 7807       |x   |		Jump	0xac9								; case 0x4
0ac2 7808       |x   |		Jump	0xacb								; case 0x5
0ac3 7809       |x   |		Jump	0xacd								; case 0x6
0ac4 7806       |x   |		Jump	0xacb								; case 0x7
0ac5 7805       |x   |		Jump	0xacb								; case 0x8
0ac6 7802       |x   |		Jump	0xac9								; case 0x9
0ac7 7801       |x   |		Jump	0xac9								; case 0xa
0ac8 7800       |x   |		Jump	0xac9								; case 0xb
0ac9 4800       |H   |		Short_Literal	0x0
0aca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0acb 4801       |H   |		Short_Literal	0x1
0acc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0acd 4802       |H   |		Short_Literal	0x2
0ace 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0acf 0000       |    |		.XXX[0x1]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad3       |    |		.CONST	0x0ad3								; Address of begin
0ad1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ad2 0001       |    |		.CONST	0x0001								; Number of locals
0ad3			BODY_0ad0:
0ad3			INIT_0ad0:
0ad3 00da       |    |		Load_Top	At_Offset_2
0ad4 0f00       |    |		Execute_Immediate	Equal,0x0
0ad5 00d8       |    |		Load_Top	At_Offset_0
0ad6 e2c6       |    |		Load	0x1,0xc6
0ad7 0260       | `  |		Execute	Discrete,In_Type
0ad8 7001       |p   |		Jump_Nonzero	0xada
0ad9 0801       |    |		Execute_Immediate	Raise,0x1
0ada 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0adb 0000 0000  |    |		.BLANK	0000[0x5]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae3       |    |		.CONST	0x0ae3								; Address of begin
0ae1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ae2 0001       |    |		.CONST	0x0001								; Number of locals
0ae3			BODY_0ae0:
0ae3			INIT_0ae0:
0ae3 4801       |H   |		Short_Literal	0x1
0ae4 0092 0ea9  |    |		Action	Push_String_Extended,0xea9					; "Assemble"
0ae6 e5ff       |    |		Load	0x2,-0x1
0ae7 e009       |    |		Load	0x0,0x9
0ae8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0ae9 6810       |h   |		Jump_Zero	0xafa
0aea e2c5       |    |		Load	0x1,0xc5
0aeb 0337       | 7  |		Declare_Variable	Array
0aec 4801       |H   |		Short_Literal	0x1
0aed 4800       |H   |		Short_Literal	0x0
0aee 00da       |    |		Load_Top	At_Offset_2
0aef 01d6       |    |		Execute	Vector,Field_Write
0af0 4803       |H   |		Short_Literal	0x3
0af1 4801       |H   |		Short_Literal	0x1
0af2 4800       |H   |		Short_Literal	0x0
0af3 00d9       |    |		Load_Top	At_Offset_1
0af4 e402       |    |		Load	0x2,0x2
0af5 01d6       |    |		Execute	Vector,Field_Write
0af6 3ffb       |?   |		Loop_Increasing	0xaf2
0af7 e2c5       |    |		Load	0x1,0xc5
0af8 01c3       |    |		Execute	Vector,Check_In_Type
0af9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0afa 4801       |H   |		Short_Literal	0x1
0afb 0092 0eaa  |    |		Action	Push_String_Extended,0xeaa					; "Promote"
0afd e5ff       |    |		Load	0x2,-0x1
0afe e009       |    |		Load	0x0,0x9
0aff 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0b00 6815       |h   |		Jump_Zero	0xb16
0b01 e2c5       |    |		Load	0x1,0xc5
0b02 0337       | 7  |		Declare_Variable	Array
0b03 4801       |H   |		Short_Literal	0x1
0b04 4801       |H   |		Short_Literal	0x1
0b05 00da       |    |		Load_Top	At_Offset_2
0b06 01d6       |    |		Execute	Vector,Field_Write
0b07 4800       |H   |		Short_Literal	0x0
0b08 4800       |H   |		Short_Literal	0x0
0b09 00da       |    |		Load_Top	At_Offset_2
0b0a 01d6       |    |		Execute	Vector,Field_Write
0b0b 4800       |H   |		Short_Literal	0x0
0b0c 4802       |H   |		Short_Literal	0x2
0b0d 00da       |    |		Load_Top	At_Offset_2
0b0e 01d6       |    |		Execute	Vector,Field_Write
0b0f 4800       |H   |		Short_Literal	0x0
0b10 4803       |H   |		Short_Literal	0x3
0b11 00da       |    |		Load_Top	At_Offset_2
0b12 01d6       |    |		Execute	Vector,Field_Write
0b13 e2c5       |    |		Load	0x1,0xc5
0b14 01c3       |    |		Execute	Vector,Check_In_Type
0b15 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b16 4801       |H   |		Short_Literal	0x1
0b17 0092 0eab  |    |		Action	Push_String_Extended,0xeab					; "Demote"
0b19 e5ff       |    |		Load	0x2,-0x1
0b1a e009       |    |		Load	0x0,0x9
0b1b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0b1c 6815       |h   |		Jump_Zero	0xb32
0b1d e2c5       |    |		Load	0x1,0xc5
0b1e 0337       | 7  |		Declare_Variable	Array
0b1f 4801       |H   |		Short_Literal	0x1
0b20 4802       |H   |		Short_Literal	0x2
0b21 00da       |    |		Load_Top	At_Offset_2
0b22 01d6       |    |		Execute	Vector,Field_Write
0b23 4800       |H   |		Short_Literal	0x0
0b24 4800       |H   |		Short_Literal	0x0
0b25 00da       |    |		Load_Top	At_Offset_2
0b26 01d6       |    |		Execute	Vector,Field_Write
0b27 4800       |H   |		Short_Literal	0x0
0b28 4801       |H   |		Short_Literal	0x1
0b29 00da       |    |		Load_Top	At_Offset_2
0b2a 01d6       |    |		Execute	Vector,Field_Write
0b2b 4800       |H   |		Short_Literal	0x0
0b2c 4803       |H   |		Short_Literal	0x3
0b2d 00da       |    |		Load_Top	At_Offset_2
0b2e 01d6       |    |		Execute	Vector,Field_Write
0b2f e2c5       |    |		Load	0x1,0xc5
0b30 01c3       |    |		Execute	Vector,Check_In_Type
0b31 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b32 4801       |H   |		Short_Literal	0x1
0b33 0092 0eac  |    |		Action	Push_String_Extended,0xeac					; "Link"
0b35 e5ff       |    |		Load	0x2,-0x1
0b36 e009       |    |		Load	0x0,0x9
0b37 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0b38 6810       |h   |		Jump_Zero	0xb49
0b39 e2c5       |    |		Load	0x1,0xc5
0b3a 0337       | 7  |		Declare_Variable	Array
0b3b 4801       |H   |		Short_Literal	0x1
0b3c 4803       |H   |		Short_Literal	0x3
0b3d 00da       |    |		Load_Top	At_Offset_2
0b3e 01d6       |    |		Execute	Vector,Field_Write
0b3f 4802       |H   |		Short_Literal	0x2
0b40 4800       |H   |		Short_Literal	0x0
0b41 4800       |H   |		Short_Literal	0x0
0b42 00d9       |    |		Load_Top	At_Offset_1
0b43 e402       |    |		Load	0x2,0x2
0b44 01d6       |    |		Execute	Vector,Field_Write
0b45 3ffb       |?   |		Loop_Increasing	0xb41
0b46 e2c5       |    |		Load	0x1,0xc5
0b47 01c3       |    |		Execute	Vector,Check_In_Type
0b48 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b49 0831       | 1  |		Execute_Immediate	Raise,0x31
0b4a 0000 0000  |    |		.BLANK	0000[0x6]
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; --------------------------------------------------------------------------------------
0b50 0b55       | U  |		.CONST	0x0b55								; Address of begin
0b51 0004       |    |		.CONST	0x0004								; Address of exception handler
0b52 0002       |    |		.CONST	0x0002								; Number of locals
0b53			INIT_0b50:
0b53 029f 0d7b  |   {|		Declare_Subprogram	INIT_0d78,For_Call
0b55			BODY_0b50:
0b55 00db       |    |		Load_Top	At_Offset_3
0b56 01dd       |    |		Execute	Vector,First
0b57 0f01       |    |		Execute_Immediate	Equal,0x1
0b58 6802       |h   |		Jump_Zero	0xb5b
0b59 00db       |    |		Load_Top	At_Offset_3
0b5a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b5b 8402       |    |		Call	0x2,0x2
0b5c 0831       | 1  |		Execute_Immediate	Raise,0x31
0b5d 0000 0000  |    |		.XXX[0x3]
0b5f 0000       |    |
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b63       | c  |		.CONST	0x0b63								; Address of begin
0b61 0004       |    |		.CONST	0x0004								; Address of exception handler
0b62 0001       |    |		.CONST	0x0001								; Number of locals
0b63			BODY_0b60:
0b63			INIT_0b60:
0b63 e5fd       |    |		Load	0x2,-0x3
0b64 8263       | c  |		Call	0x1,0x63
0b65 e007       |    |		Load	0x0,0x7
0b66 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b67 e008       |    |		Load	0x0,0x8
0b68 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
0b69 0f04       |    |		Execute_Immediate	Equal,0x4
0b6a 680d       |h   |		Jump_Zero	0xb78
0b6b 0092 0ead  |    |		Action	Push_String_Extended,0xead					; "'"
0b6d e5fe       |    |		Load	0x2,-0x2
0b6e 01cc       |    |		Execute	Vector,Catenate
0b6f 0092 0eae  |    |		Action	Push_String_Extended,0xeae					; "("
0b71 01cc       |    |		Execute	Vector,Catenate
0b72 00db       |    |		Load_Top	At_Offset_3
0b73 01cc       |    |		Execute	Vector,Catenate
0b74 0092 0eaf  |    |		Action	Push_String_Extended,0xeaf					; ")'"
0b76 01cc       |    |		Execute	Vector,Catenate
0b77 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b78 00ea       |    |		Load_Encached	Null_String_Cache
0b79 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b7a 0000 0000  |    |		.BLANK	0000[0x6]
0b80 ; --------------------------------------------------------------------------------------
0b80 ; SUBPROGRAM
0b80 ; --------------------------------------------------------------------------------------
0b80 0b83       |    |		.CONST	0x0b83								; Address of begin
0b81 0004       |    |		.CONST	0x0004								; Address of exception handler
0b82 0001       |    |		.CONST	0x0001								; Number of locals
0b83			BODY_0b80:
0b83			INIT_0b80:
0b83 00da       |    |		Load_Top	At_Offset_2
0b84 4603       |F   |		Jump_Case	0x4
0b85 7805       |x   |		Jump	0xb8b								; case 0x0
0b86 7811       |x   |		Jump	0xb98								; case 0x1
0b87 781d       |x   |		Jump	0xba5								; case 0x2
0b88 7800       |x   |		Jump	0xb89								; case 0x3
0b89 00ea       |    |		Load_Encached	Null_String_Cache
0b8a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0b8b 0092 0eb0  |    |		Action	Push_String_Extended,0xeb0					; "_"
0b8d 4820       |H   |		Short_Literal	0x20
0b8e 4800       |H   |		Short_Literal	0x0
0b8f 480a       |H   |		Short_Literal	0xa
0b90 e5fe       |    |		Load	0x2,-0x2
0b91 e009       |    |		Load	0x0,0x9
0b92 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0b93 01cc       |    |		Execute	Vector,Catenate
0b94 0092 0eb1  |    |		Action	Push_String_Extended,0xeb1					; "_s"
0b96 01cc       |    |		Execute	Vector,Catenate
0b97 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0b98 0092 0eb0  |    |		Action	Push_String_Extended,0xeb0					; "_"
0b9a 4820       |H   |		Short_Literal	0x20
0b9b 4800       |H   |		Short_Literal	0x0
0b9c 480a       |H   |		Short_Literal	0xa
0b9d e5fe       |    |		Load	0x2,-0x2
0b9e e009       |    |		Load	0x0,0x9
0b9f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0ba0 01cc       |    |		Execute	Vector,Catenate
0ba1 0092 0eb2  |    |		Action	Push_String_Extended,0xeb2					; "_b"
0ba3 01cc       |    |		Execute	Vector,Catenate
0ba4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0ba5 0092 0eb0  |    |		Action	Push_String_Extended,0xeb0					; "_"
0ba7 4820       |H   |		Short_Literal	0x20
0ba8 4800       |H   |		Short_Literal	0x0
0ba9 480a       |H   |		Short_Literal	0xa
0baa e5fe       |    |		Load	0x2,-0x2
0bab e009       |    |		Load	0x0,0x9
0bac 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0bad 01cc       |    |		Execute	Vector,Catenate
0bae 0092 0eb3  |    |		Action	Push_String_Extended,0xeb3					; "_t"
0bb0 01cc       |    |		Execute	Vector,Catenate
0bb1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0bb2 0000 0000  |    |		.BLANK	0000[0x6]
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bdb       |    |		.CONST	0x0bdb								; Address of begin
0bb9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bba 0007       |    |		.CONST	0x0007								; Number of locals
0bbb			INIT_0bb8:
0bbb 00da       |    |		Load_Top	At_Offset_2
0bbc e002       |    |		Load	0x0,0x2
0bbd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0bbe 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0bbf 00d8       |    |		Load_Top	At_Offset_0
0bc0 e002       |    |		Load	0x0,0x2
0bc1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0bc2 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0bc3 e5fc       |    |		Load	0x2,-0x4
0bc4 82c2       |    |		Call	0x1,0xc2
0bc5 e5fd       |    |		Load	0x2,-0x3
0bc6 00d8       |    |		Load_Top	At_Offset_0
0bc7 00e4       |    |		Load_Encached	Positive_Cache
0bc8 0260       | `  |		Execute	Discrete,In_Type
0bc9 7001       |p   |		Jump_Nonzero	0xbcb
0bca 0801       |    |		Execute_Immediate	Raise,0x1
0bcb e5fe       |    |		Load	0x2,-0x2
0bcc 82e8       |    |		Call	0x1,0xe8
0bcd e5fc       |    |		Load	0x2,-0x4
0bce 82c2       |    |		Call	0x1,0xc2
0bcf 00d8       |    |		Load_Top	At_Offset_0
0bd0 e5fc       |    |		Load	0x2,-0x4
0bd1 82d0       |    |		Call	0x1,0xd0
0bd2 01cc       |    |		Execute	Vector,Catenate
0bd3 e5fe       |    |		Load	0x2,-0x2
0bd4 e5fc       |    |		Load	0x2,-0x4
0bd5 8274       | t  |		Call	0x1,0x74
0bd6 01cc       |    |		Execute	Vector,Catenate
0bd7 0007       |    |		Action	Break_Optional
0bd8 00e3       |    |		Load_Encached	Natural_Cache
0bd9 029f 0d93  |    |		Declare_Subprogram	INIT_0d90,For_Call
0bdb			BODY_0bb8:
0bdb e5fe       |    |		Load	0x2,-0x2
0bdc 0f02       |    |		Execute_Immediate	Equal,0x2
0bdd 6802       |h   |		Jump_Zero	0xbe0
0bde 8407       |    |		Call	0x2,0x7
0bdf 784e       |xN  |		Jump	0xc2e
0be0 e403       |    |		Load	0x2,0x3
0be1 01dd       |    |		Execute	Vector,First
0be2 e5fc       |    |		Load	0x2,-0x4
0be3 8272       | r  |		Call	0x1,0x72
0be4 0273       | s  |		Execute	Discrete,Plus
0be5 e404       |    |		Load	0x2,0x4
0be6 01db       |    |		Execute	Vector,Length
0be7 0272       | r  |		Execute	Discrete,Minus
0be8 0aff       |    |		Execute_Immediate	Plus,-0x1
0be9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0bea 00d9       |    |		Load_Top	At_Offset_1
0beb e403       |    |		Load	0x2,0x3
0bec 01dc       |    |		Execute	Vector,Last
0bed 027b       | {  |		Execute	Discrete,Greater_Equal
0bee 6804       |h   |		Jump_Zero	0xbf3
0bef e403       |    |		Load	0x2,0x3
0bf0 00db       |    |		Load_Top	At_Offset_3
0bf1 01cc       |    |		Execute	Vector,Catenate
0bf2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0bf3 00d9       |    |		Load_Top	At_Offset_1
0bf4 e403       |    |		Load	0x2,0x3
0bf5 01dd       |    |		Execute	Vector,First
0bf6 027c       | |  |		Execute	Discrete,Less
0bf7 6820       |h   |		Jump_Zero	0xc18
0bf8 e010       |    |		Load	0x0,0x10
0bf9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0bfa 4801       |H   |		Short_Literal	0x1
0bfb 4802       |H   |		Short_Literal	0x2
0bfc e014       |    |		Load	0x0,0x14
0bfd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0bfe 035b       | [  |		Declare_Type	Array,Constrained
0bff 0337       | 7  |		Declare_Variable	Array
0c00 e402       |    |		Load	0x2,0x2
0c01 e014       |    |		Load	0x0,0x14
0c02 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c03 e014       |    |		Load	0x0,0x14
0c04 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c05 0119       |    |		Execute	Any,Check_In_Formal_Type
0c06 4801       |H   |		Short_Literal	0x1
0c07 00da       |    |		Load_Top	At_Offset_2
0c08 01d6       |    |		Execute	Vector,Field_Write
0c09 e5fc       |    |		Load	0x2,-0x4
0c0a 8272       | r  |		Call	0x1,0x72
0c0b e014       |    |		Load	0x0,0x14
0c0c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0c0d e014       |    |		Load	0x0,0x14
0c0e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c0f 0119       |    |		Execute	Any,Check_In_Formal_Type
0c10 4802       |H   |		Short_Literal	0x2
0c11 00da       |    |		Load_Top	At_Offset_2
0c12 01d6       |    |		Execute	Vector,Field_Write
0c13 601c       |`   |		Indirect_Literal	Discrete,0xc30,{0x00000000, 0x000081b8}
0c14 e011       |    |		Load	0x0,0x11
0c15 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0c16 00ea       |    |		Load_Encached	Null_String_Cache
0c17 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0c18 00d9       |    |		Load_Top	At_Offset_1
0c19 e403       |    |		Load	0x2,0x3
0c1a 01d7       |    |		Execute	Vector,Field_Read
0c1b 0f5f       | _  |		Execute_Immediate	Equal,0x5f
0c1c 6809       |h   |		Jump_Zero	0xc26
0c1d e403       |    |		Load	0x2,0x3
0c1e 01dd       |    |		Execute	Vector,First
0c1f 00da       |    |		Load_Top	At_Offset_2
0c20 0aff       |    |		Execute_Immediate	Plus,-0x1
0c21 e403       |    |		Load	0x2,0x3
0c22 01cf       |    |		Execute	Vector,Slice_Read
0c23 00db       |    |		Load_Top	At_Offset_3
0c24 01cc       |    |		Execute	Vector,Catenate
0c25 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0c26 e403       |    |		Load	0x2,0x3
0c27 01dd       |    |		Execute	Vector,First
0c28 00da       |    |		Load_Top	At_Offset_2
0c29 e403       |    |		Load	0x2,0x3
0c2a 01cf       |    |		Execute	Vector,Slice_Read
0c2b 00db       |    |		Load_Top	At_Offset_3
0c2c 01cc       |    |		Execute	Vector,Catenate
0c2d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0c2e 0831       | 1  |		Execute_Immediate	Raise,0x31
0c2f 0000       |    |		.XXX[0x1]
0c30 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b8}
0c34 0000 0000  |    |		.BLANK	0000[0x4]
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c4f       | O  |		.CONST	0x0c4f								; Address of begin
0c39 0004       |    |		.CONST	0x0004								; Address of exception handler
0c3a 0005       |    |		.CONST	0x0005								; Number of locals
0c3b			INIT_0c38:
0c3b e002       |    |		Load	0x0,0x2
0c3c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c3d 02c7       |    |		Declare_Variable	Any
0c3e 00d8       |    |		Load_Top	At_Offset_0
0c3f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c40 e002       |    |		Load	0x0,0x2
0c41 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0c42 02ff       |    |		Declare_Variable	Variant_Record
0c43 00d8       |    |		Load_Top	At_Offset_0
0c44 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c45 e002       |    |		Load	0x0,0x2
0c46 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c47 e5ff       |    |		Load	0x2,-0x1
0c48 e002       |    |		Load	0x0,0x2
0c49 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0c4a 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0c4b 0092 0eb4  |    |		Action	Push_String_Extended,0xeb4					; ".library_switches"
0c4d 01cc       |    |		Execute	Vector,Catenate
0c4e 0007       |    |		Action	Break_Optional
0c4f			BODY_0c38:
0c4f e002       |    |		Load	0x0,0x2
0c50 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c51 e402       |    |		Load	0x2,0x2
0c52 0120       |    |		Execute	Any,Is_Value
0c53 6803       |h   |		Jump_Zero	0xc57
0c54 e002       |    |		Load	0x0,0x2
0c55 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c56 7801       |x   |		Jump	0xc58
0c57 e402       |    |		Load	0x2,0x2
0c58 609b       |`   |		Indirect_Literal	Discrete,0xcf4,{0x00000000, 0x00004000}
0c59 e00e       |    |		Load	0x0,0xe
0c5a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c5b e5ff       |    |		Load	0x2,-0x1
0c5c e002       |    |		Load	0x0,0x2
0c5d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0c5e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0c5f e002       |    |		Load	0x0,0x2
0c60 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0c61 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0c62 c402       |    |		Store	0x2,0x2
0c63 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0c64 00d9       |    |		Load_Top	At_Offset_1
0c65 7005       |p   |		Jump_Nonzero	0xc6b
0c66 00db       |    |		Load_Top	At_Offset_3
0c67 e002       |    |		Load	0x0,0x2
0c68 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c69 012f       | /  |		Execute	Any,Equal
0c6a 684c       |hL  |		Jump_Zero	0xcb7
0c6b e5fe       |    |		Load	0x2,-0x2
0c6c 4801       |H   |		Short_Literal	0x1
0c6d 4802       |H   |		Short_Literal	0x2
0c6e e014       |    |		Load	0x0,0x14
0c6f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0c70 035b       | [  |		Declare_Type	Array,Constrained
0c71 0337       | 7  |		Declare_Variable	Array
0c72 e5ff       |    |		Load	0x2,-0x1
0c73 e002       |    |		Load	0x0,0x2
0c74 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0c75 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0c76 e014       |    |		Load	0x0,0x14
0c77 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c78 e014       |    |		Load	0x0,0x14
0c79 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c7a 0119       |    |		Execute	Any,Check_In_Formal_Type
0c7b 4801       |H   |		Short_Literal	0x1
0c7c 00da       |    |		Load_Top	At_Offset_2
0c7d 01d6       |    |		Execute	Vector,Field_Write
0c7e 00db       |    |		Load_Top	At_Offset_3
0c7f e002       |    |		Load	0x0,0x2
0c80 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c81 011c       |    |		Execute	Any,Convert_Unchecked
0c82 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0c83 e014       |    |		Load	0x0,0x14
0c84 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0c85 e014       |    |		Load	0x0,0x14
0c86 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0c87 0119       |    |		Execute	Any,Check_In_Formal_Type
0c88 4802       |H   |		Short_Literal	0x2
0c89 00da       |    |		Load_Top	At_Offset_2
0c8a 01d6       |    |		Execute	Vector,Field_Write
0c8b 6064       |`d  |		Indirect_Literal	Discrete,0xcf0,{0x00000000, 0x0000810e}
0c8c e011       |    |		Load	0x0,0x11
0c8d 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0c8e 0092 0eb5  |    |		Action	Push_String_Extended,0xeb5					; "<PROFILE>"
0c90 484c       |HL  |		Short_Literal	0x4c
0c91 00da       |    |		Load_Top	At_Offset_2
0c92 e015       |    |		Load	0x0,0x15
0c93 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0c94 0092 0eb5  |    |		Action	Push_String_Extended,0xeb5					; "<PROFILE>"
0c96 e5ff       |    |		Load	0x2,-0x1
0c97 e002       |    |		Load	0x0,0x2
0c98 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0c99 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0c9a 00da       |    |		Load_Top	At_Offset_2
0c9b e015       |    |		Load	0x0,0x15
0c9c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0c9d e002       |    |		Load	0x0,0x2
0c9e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c9f e402       |    |		Load	0x2,0x2
0ca0 0120       |    |		Execute	Any,Is_Value
0ca1 6803       |h   |		Jump_Zero	0xca5
0ca2 e002       |    |		Load	0x0,0x2
0ca3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ca4 7801       |x   |		Jump	0xca6
0ca5 e402       |    |		Load	0x2,0x2
0ca6 604d       |`M  |		Indirect_Literal	Discrete,0xcf4,{0x00000000, 0x00004000}
0ca7 e00e       |    |		Load	0x0,0xe
0ca8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ca9 e5ff       |    |		Load	0x2,-0x1
0caa e002       |    |		Load	0x0,0x2
0cab 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0cac 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0cad e002       |    |		Load	0x0,0x2
0cae 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0caf 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0cb0 c402       |    |		Store	0x2,0x2
0cb1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0cb2 00d9       |    |		Load_Top	At_Offset_1
0cb3 6803       |h   |		Jump_Zero	0xcb7
0cb4 e002       |    |		Load	0x0,0x2
0cb5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0cb6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0cb7 e002       |    |		Load	0x0,0x2
0cb8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cb9 00db       |    |		Load_Top	At_Offset_3
0cba 6039       |`9  |		Indirect_Literal	Discrete,0xcf4,{0x00000000, 0x00004000}
0cbb e00e       |    |		Load	0x0,0xe
0cbc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0cbd 4800       |H   |		Short_Literal	0x0
0cbe e402       |    |		Load	0x2,0x2
0cbf e002       |    |		Load	0x0,0x2
0cc0 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0cc1 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0cc2 00d1       |    |		Pop_Control	Pop_Count_1
0cc3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0cc4 00d9       |    |		Load_Top	At_Offset_1
0cc5 7002       |p   |		Jump_Nonzero	0xcc8
0cc6 00da       |    |		Load_Top	At_Offset_2
0cc7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0cc8 e5fe       |    |		Load	0x2,-0x2
0cc9 4801       |H   |		Short_Literal	0x1
0cca 4802       |H   |		Short_Literal	0x2
0ccb e014       |    |		Load	0x0,0x14
0ccc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ccd 035b       | [  |		Declare_Type	Array,Constrained
0cce 0337       | 7  |		Declare_Variable	Array
0ccf e5ff       |    |		Load	0x2,-0x1
0cd0 e002       |    |		Load	0x0,0x2
0cd1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0cd2 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0cd3 e014       |    |		Load	0x0,0x14
0cd4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0cd5 e014       |    |		Load	0x0,0x14
0cd6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0cd7 0119       |    |		Execute	Any,Check_In_Formal_Type
0cd8 4801       |H   |		Short_Literal	0x1
0cd9 00da       |    |		Load_Top	At_Offset_2
0cda 01d6       |    |		Execute	Vector,Field_Write
0cdb 00db       |    |		Load_Top	At_Offset_3
0cdc e002       |    |		Load	0x0,0x2
0cdd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cde 011c       |    |		Execute	Any,Convert_Unchecked
0cdf 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0ce0 e014       |    |		Load	0x0,0x14
0ce1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ce2 e014       |    |		Load	0x0,0x14
0ce3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ce4 0119       |    |		Execute	Any,Check_In_Formal_Type
0ce5 4802       |H   |		Short_Literal	0x2
0ce6 00da       |    |		Load_Top	At_Offset_2
0ce7 01d6       |    |		Execute	Vector,Field_Write
0ce8 6007       |`   |		Indirect_Literal	Discrete,0xcf0,{0x00000000, 0x0000810e}
0ce9 e011       |    |		Load	0x0,0x11
0cea 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0ceb e002       |    |		Load	0x0,0x2
0cec 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0ced 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0cee 0000 0000  |    |		.XXX[0x2]
0cf0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000810e}
0cf4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
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 00d8       |    |		Load_Top	At_Offset_0
0cfd e008       |    |		Load	0x0,0x8
0cfe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cff 0260       | `  |		Execute	Discrete,In_Type
0d00 7001       |p   |		Jump_Nonzero	0xd02
0d01 0801       |    |		Execute_Immediate	Raise,0x1
0d02 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d03 0000 0000  |    |		.BLANK	0000[0x5]
0d08 ; --------------------------------------------------------------------------------------
0d08 ; SUBPROGRAM
0d08 ; --------------------------------------------------------------------------------------
0d08 0d10       |    |		.CONST	0x0d10								; Address of begin
0d09 0d19       |    |		.CONST	0x0d19								; Address of exception handler
0d0a 0003       |    |		.CONST	0x0003								; Number of locals
0d0b			INIT_0d08:
0d0b e011       |    |		Load	0x0,0x11
0d0c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d0d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0d0e 029f 0e0b  |    |		Declare_Subprogram	INIT_0e08,For_Call
0d10			BODY_0d08:
0d10 4800       |H   |		Short_Literal	0x0
0d11 00da       |    |		Load_Top	At_Offset_2
0d12 e011       |    |		Load	0x0,0x11
0d13 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0d14 7002       |p   |		Jump_Nonzero	0xd17
0d15 00ea       |    |		Load_Encached	Null_String_Cache
0d16 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0d17 8403       |    |		Call	0x2,0x3
0d18 0831       | 1  |		Execute_Immediate	Raise,0x31
0d19			TRAP_0d08:
0d19 0007       |    |		Action	Break_Optional
0d1a 00ea       |    |		Load_Encached	Null_String_Cache
0d1b 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0d1c 0000 0000  |    |		.BLANK	0000[0x4]
0d20 ; --------------------------------------------------------------------------------------
0d20 ; SUBPROGRAM
0d20 ; --------------------------------------------------------------------------------------
0d20 0d23       | #  |		.CONST	0x0d23								; Address of begin
0d21 0004       |    |		.CONST	0x0004								; Address of exception handler
0d22 0001       |    |		.CONST	0x0001								; Number of locals
0d23			BODY_0d20:
0d23			INIT_0d20:
0d23 0092 0eb6  |    |		Action	Push_String_Extended,0xeb6					; " "
0d25 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d26 0000 0000  |    |		.XXX[0x2]
0d28 ; --------------------------------------------------------------------------------------
0d28 ; SUBPROGRAM
0d28 ; --------------------------------------------------------------------------------------
0d28 0d33       | 3  |		.CONST	0x0d33								; Address of begin
0d29 0004       |    |		.CONST	0x0004								; Address of exception handler
0d2a 0002       |    |		.CONST	0x0002								; Number of locals
0d2b			INIT_0d28:
0d2b e008       |    |		Load	0x0,0x8
0d2c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0d2d 02c7       |    |		Declare_Variable	Any
0d2e 00db       |    |		Load_Top	At_Offset_3
0d2f 8263       | c  |		Call	0x1,0x63
0d30 e007       |    |		Load	0x0,0x7
0d31 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d32 a402       |    |		Store_Unchecked	0x2,0x2
0d33			BODY_0d28:
0d33 00d8       |    |		Load_Top	At_Offset_0
0d34 e008       |    |		Load	0x0,0x8
0d35 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
0d36 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d37 0000       |    |		.XXX[0x1]
0d38 ; --------------------------------------------------------------------------------------
0d38 ; SUBPROGRAM
0d38 ; --------------------------------------------------------------------------------------
0d38 0d46       | F  |		.CONST	0x0d46								; Address of begin
0d39 0004       |    |		.CONST	0x0004								; Address of exception handler
0d3a 0004       |    |		.CONST	0x0004								; Number of locals
0d3b			INIT_0d38:
0d3b e5ff       |    |		Load	0x2,-0x1
0d3c 8263       | c  |		Call	0x1,0x63
0d3d e5fd       |    |		Load	0x2,-0x3
0d3e e402       |    |		Load	0x2,0x2
0d3f e5fe       |    |		Load	0x2,-0x2
0d40 e016       |    |		Load	0x0,0x16
0d41 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d42 029f 0e1b  |    |		Declare_Subprogram	INIT_0e18,For_Call
0d44 029f 0e33  |   3|		Declare_Subprogram	INIT_0e30,For_Call
0d46			BODY_0d38:
0d46 00da       |    |		Load_Top	At_Offset_2
0d47 01db       |    |		Execute	Vector,Length
0d48 6802       |h   |		Jump_Zero	0xd4b
0d49 8603       |    |		Call	0x3,0x3
0d4a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d4b 8604       |    |		Call	0x3,0x4
0d4c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d4d 0000 0000  |    |		.XXX[0x3]
0d4f 0000       |    |
0d50 ; --------------------------------------------------------------------------------------
0d50 ; SUBPROGRAM
0d50 ; --------------------------------------------------------------------------------------
0d50 0d53       | S  |		.CONST	0x0d53								; Address of begin
0d51 0d59       | Y  |		.CONST	0x0d59								; Address of exception handler
0d52 0001       |    |		.CONST	0x0001								; Number of locals
0d53			BODY_0d50:
0d53			INIT_0d50:
0d53 e5ff       |    |		Load	0x2,-0x1
0d54 e003       |    |		Load	0x0,0x3
0d55 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0d56 e404       |    |		Load	0x2,0x4
0d57 017d       | }  |		Execute	Record,Structure_Write
0d58 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d59			TRAP_0d50:
0d59 010e       |    |		Execute	Exception,Is_Constraint_Error
0d5a 6815       |h   |		Jump_Zero	0xd70
0d5b e402       |    |		Load	0x2,0x2
0d5c 4801       |H   |		Short_Literal	0x1
0d5d 4801       |H   |		Short_Literal	0x1
0d5e e014       |    |		Load	0x0,0x14
0d5f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d60 035b       | [  |		Declare_Type	Array,Constrained
0d61 0337       | 7  |		Declare_Variable	Array
0d62 e5ff       |    |		Load	0x2,-0x1
0d63 e014       |    |		Load	0x0,0x14
0d64 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d65 e014       |    |		Load	0x0,0x14
0d66 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0d67 0119       |    |		Execute	Any,Check_In_Formal_Type
0d68 4801       |H   |		Short_Literal	0x1
0d69 00da       |    |		Load_Top	At_Offset_2
0d6a 01d6       |    |		Execute	Vector,Field_Write
0d6b 6008       |`   |		Indirect_Literal	Discrete,0xd74,{0x00000000, 0x00008181}
0d6c e011       |    |		Load	0x0,0x11
0d6d 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0d6e 00cc       |    |		Action	Pop_Block
0d6f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0d70 0100       |    |		Execute	Exception,Raise
0d71 0000 0000  |    |		.XXX[0x3]
0d73 0000       |    |
0d74 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008181}
0d78 ; --------------------------------------------------------------------------------------
0d78 ; SUBPROGRAM
0d78 ; --------------------------------------------------------------------------------------
0d78 0d89       |    |		.CONST	0x0d89								; Address of begin
0d79 0004       |    |		.CONST	0x0004								; Address of exception handler
0d7a 0002       |    |		.CONST	0x0002								; Number of locals
0d7b			INIT_0d78:
0d7b 4801       |H   |		Short_Literal	0x1
0d7c e5ff       |    |		Load	0x2,-0x1
0d7d 01db       |    |		Execute	Vector,Length
0d7e 00d8       |    |		Load_Top	At_Offset_0
0d7f 00e2       |    |		Load_Encached	Integer_Cache
0d80 0260       | `  |		Execute	Discrete,In_Type
0d81 7001       |p   |		Jump_Nonzero	0xd83
0d82 0801       |    |		Execute_Immediate	Raise,0x1
0d83 00e9       |    |		Load_Encached	String_Cache
0d84 035b       | [  |		Declare_Type	Array,Constrained
0d85 0337       | 7  |		Declare_Variable	Array
0d86 e5ff       |    |		Load	0x2,-0x1
0d87 00d9       |    |		Load_Top	At_Offset_1
0d88 01d4       |    |		Execute	Vector,Structure_Write
0d89			BODY_0d78:
0d89 00d8       |    |		Load_Top	At_Offset_0
0d8a 00e9       |    |		Load_Encached	String_Cache
0d8b 01c6       |    |		Execute	Vector,Convert_To_Formal
0d8c 00cb       |    |		Action	Pop_Block_With_Result
0d8d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d8e 0000 0000  |    |		.XXX[0x2]
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0dad       |    |		.CONST	0x0dad								; Address of begin
0d91 0004       |    |		.CONST	0x0004								; Address of exception handler
0d92 0003       |    |		.CONST	0x0003								; Number of locals
0d93			INIT_0d90:
0d93 e010       |    |		Load	0x0,0x10
0d94 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0d95 4800       |H   |		Short_Literal	0x0
0d96 e402       |    |		Load	0x2,0x2
0d97 01dd       |    |		Execute	Vector,First
0d98 e402       |    |		Load	0x2,0x2
0d99 01dc       |    |		Execute	Vector,Last
0d9a 0af4       |    |		Execute_Immediate	Plus,-0xc
0d9b 00d8       |    |		Load_Top	At_Offset_0
0d9c 00e2       |    |		Load_Encached	Integer_Cache
0d9d 0260       | `  |		Execute	Discrete,In_Type
0d9e 7001       |p   |		Jump_Nonzero	0xda0
0d9f 0801       |    |		Execute_Immediate	Raise,0x1
0da0 e402       |    |		Load	0x2,0x2
0da1 01cf       |    |		Execute	Vector,Slice_Read
0da2 e00b       |    |		Load	0x0,0xb
0da3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0da4 e002       |    |		Load	0x0,0x2
0da5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0da6 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0da7 00d8       |    |		Load_Top	At_Offset_0
0da8 e002       |    |		Load	0x0,0x2
0da9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0daa 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0dab e5fc       |    |		Load	0x2,-0x4
0dac 82c2       |    |		Call	0x1,0xc2
0dad			BODY_0d90:
0dad 00d8       |    |		Load_Top	At_Offset_0
0dae 01dd       |    |		Execute	Vector,First
0daf e5fc       |    |		Load	0x2,-0x4
0db0 8272       | r  |		Call	0x1,0x72
0db1 0273       | s  |		Execute	Discrete,Plus
0db2 e404       |    |		Load	0x2,0x4
0db3 01db       |    |		Execute	Vector,Length
0db4 0272       | r  |		Execute	Discrete,Minus
0db5 0aff       |    |		Execute_Immediate	Plus,-0x1
0db6 c406       |    |		Store	0x2,0x6
0db7 e406       |    |		Load	0x2,0x6
0db8 00d9       |    |		Load_Top	At_Offset_1
0db9 01dc       |    |		Execute	Vector,Last
0dba 027b       | {  |		Execute	Discrete,Greater_Equal
0dbb 6805       |h   |		Jump_Zero	0xdc1
0dbc 00d8       |    |		Load_Top	At_Offset_0
0dbd e405       |    |		Load	0x2,0x5
0dbe 01cc       |    |		Execute	Vector,Catenate
0dbf 00cb       |    |		Action	Pop_Block_With_Result
0dc0 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0dc1 e406       |    |		Load	0x2,0x6
0dc2 00d9       |    |		Load_Top	At_Offset_1
0dc3 01dd       |    |		Execute	Vector,First
0dc4 027c       | |  |		Execute	Discrete,Less
0dc5 6821       |h!  |		Jump_Zero	0xde7
0dc6 e010       |    |		Load	0x0,0x10
0dc7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0dc8 4801       |H   |		Short_Literal	0x1
0dc9 4802       |H   |		Short_Literal	0x2
0dca e014       |    |		Load	0x0,0x14
0dcb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0dcc 035b       | [  |		Declare_Type	Array,Constrained
0dcd 0337       | 7  |		Declare_Variable	Array
0dce e402       |    |		Load	0x2,0x2
0dcf e014       |    |		Load	0x0,0x14
0dd0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dd1 e014       |    |		Load	0x0,0x14
0dd2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0dd3 0119       |    |		Execute	Any,Check_In_Formal_Type
0dd4 4801       |H   |		Short_Literal	0x1
0dd5 00da       |    |		Load_Top	At_Offset_2
0dd6 01d6       |    |		Execute	Vector,Field_Write
0dd7 e5fc       |    |		Load	0x2,-0x4
0dd8 8272       | r  |		Call	0x1,0x72
0dd9 e014       |    |		Load	0x0,0x14
0dda 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0ddb e014       |    |		Load	0x0,0x14
0ddc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ddd 0119       |    |		Execute	Any,Check_In_Formal_Type
0dde 4802       |H   |		Short_Literal	0x2
0ddf 00da       |    |		Load_Top	At_Offset_2
0de0 01d6       |    |		Execute	Vector,Field_Write
0de1 601e       |`   |		Indirect_Literal	Discrete,0xe00,{0x00000000, 0x000081b8}
0de2 e011       |    |		Load	0x0,0x11
0de3 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0de4 00ea       |    |		Load_Encached	Null_String_Cache
0de5 00cb       |    |		Action	Pop_Block_With_Result
0de6 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0de7 e406       |    |		Load	0x2,0x6
0de8 00d9       |    |		Load_Top	At_Offset_1
0de9 01d7       |    |		Execute	Vector,Field_Read
0dea 0f5f       | _  |		Execute_Immediate	Equal,0x5f
0deb 680a       |h   |		Jump_Zero	0xdf6
0dec 00d8       |    |		Load_Top	At_Offset_0
0ded 01dd       |    |		Execute	Vector,First
0dee e406       |    |		Load	0x2,0x6
0def 0aff       |    |		Execute_Immediate	Plus,-0x1
0df0 00da       |    |		Load_Top	At_Offset_2
0df1 01cf       |    |		Execute	Vector,Slice_Read
0df2 e405       |    |		Load	0x2,0x5
0df3 01cc       |    |		Execute	Vector,Catenate
0df4 00cb       |    |		Action	Pop_Block_With_Result
0df5 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0df6 00d8       |    |		Load_Top	At_Offset_0
0df7 01dd       |    |		Execute	Vector,First
0df8 e406       |    |		Load	0x2,0x6
0df9 00da       |    |		Load_Top	At_Offset_2
0dfa 01cf       |    |		Execute	Vector,Slice_Read
0dfb e405       |    |		Load	0x2,0x5
0dfc 01cc       |    |		Execute	Vector,Catenate
0dfd 00cb       |    |		Action	Pop_Block_With_Result
0dfe 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0dff 0000       |    |		.XXX[0x1]
0e00 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b8}
0e04 0000 0000  |    |		.BLANK	0000[0x4]
0e08 ; --------------------------------------------------------------------------------------
0e08 ; SUBPROGRAM
0e08 ; --------------------------------------------------------------------------------------
0e08 0e14       |    |		.CONST	0x0e14								; Address of begin
0e09 0004       |    |		.CONST	0x0004								; Address of exception handler
0e0a 0002       |    |		.CONST	0x0002								; Number of locals
0e0b			INIT_0e08:
0e0b e5fa       |    |		Load	0x2,-0x6
0e0c e5fb       |    |		Load	0x2,-0x5
0e0d e5fc       |    |		Load	0x2,-0x4
0e0e e5fd       |    |		Load	0x2,-0x3
0e0f e5fe       |    |		Load	0x2,-0x2
0e10 e5ff       |    |		Load	0x2,-0x1
0e11 8263       | c  |		Call	0x1,0x63
0e12 e012       |    |		Load	0x0,0x12
0e13 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0e14			BODY_0e08:
0e14 00d8       |    |		Load_Top	At_Offset_0
0e15 00cb       |    |		Action	Pop_Block_With_Result
0e16 4406       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x6
0e17 0000       |    |		.XXX[0x1]
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e1f       |    |		.CONST	0x0e1f								; Address of begin
0e19 0004       |    |		.CONST	0x0004								; Address of exception handler
0e1a 0002       |    |		.CONST	0x0002								; Number of locals
0e1b			INIT_0e18:
0e1b e602       |    |		Load	0x3,0x2
0e1c 01db       |    |		Execute	Vector,Length
0e1d e2e3       |    |		Load	0x1,0xe3
0e1e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0e1f			BODY_0e18:
0e1f e602       |    |		Load	0x3,0x2
0e20 4801       |H   |		Short_Literal	0x1
0e21 00da       |    |		Load_Top	At_Offset_2
0e22 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e23 00db       |    |		Load_Top	At_Offset_3
0e24 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e25 01ce       |    |		Execute	Vector,Slice_Write
0e26 4800       |H   |		Short_Literal	0x0
0e27 00d9       |    |		Load_Top	At_Offset_1
0e28 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0e29 00d8       |    |		Load_Top	At_Offset_0
0e2a 00cb       |    |		Action	Pop_Block_With_Result
0e2b 00cb       |    |		Action	Pop_Block_With_Result
0e2c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0e2d 0000 0000  |    |		.XXX[0x3]
0e2f 0000       |    |
0e30 ; --------------------------------------------------------------------------------------
0e30 ; SUBPROGRAM
0e30 ; --------------------------------------------------------------------------------------
0e30 0e3c       | <  |		.CONST	0x0e3c								; Address of begin
0e31 0004       |    |		.CONST	0x0004								; Address of exception handler
0e32 0003       |    |		.CONST	0x0003								; Number of locals
0e33			INIT_0e30:
0e33 e5ff       |    |		Load	0x2,-0x1
0e34 e5fd       |    |		Load	0x2,-0x3
0e35 e402       |    |		Load	0x2,0x2
0e36 e5fe       |    |		Load	0x2,-0x2
0e37 82e9       |    |		Call	0x1,0xe9
0e38 00d8       |    |		Load_Top	At_Offset_0
0e39 01db       |    |		Execute	Vector,Length
0e3a e2e3       |    |		Load	0x1,0xe3
0e3b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0e3c			BODY_0e30:
0e3c 4801       |H   |		Short_Literal	0x1
0e3d 00d9       |    |		Load_Top	At_Offset_1
0e3e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0e3f 00d9       |    |		Load_Top	At_Offset_1
0e40 01db       |    |		Execute	Vector,Length
0e41 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e42 680b       |h   |		Jump_Zero	0xe4e
0e43 00d9       |    |		Load_Top	At_Offset_1
0e44 4801       |H   |		Short_Literal	0x1
0e45 00da       |    |		Load_Top	At_Offset_2
0e46 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0e47 00db       |    |		Load_Top	At_Offset_3
0e48 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e49 01ce       |    |		Execute	Vector,Slice_Write
0e4a 00d8       |    |		Load_Top	At_Offset_0
0e4b 00cb       |    |		Action	Pop_Block_With_Result
0e4c 00cb       |    |		Action	Pop_Block_With_Result
0e4d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0e4e 00d8       |    |		Load_Top	At_Offset_0
0e4f 00cb       |    |		Action	Pop_Block_With_Result
0e50 00cb       |    |		Action	Pop_Block_With_Result
0e51 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0e52 0000 0000  |    |		.BLANK	0000[0x6]
0e58 ; --------------------------------------------------------------------------------------
0e58 ; SUBPROGRAM
0e58 ; --------------------------------------------------------------------------------------
0e58 0e5b       | [  |		.CONST	0x0e5b								; Address of begin
0e59 0004       |    |		.CONST	0x0004								; Address of exception handler
0e5a 0001       |    |		.CONST	0x0001								; Number of locals
0e5b			BODY_0e58:
0e5b			INIT_0e58:
0e5b 4608       |F   |		Jump_Case	0x9
0e5c 7808       |x   |		Jump	0xe65								; case 0x0
0e5d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0e5e 780a       |x   |		Jump	0xe69								; case 0x2
0e5f 7809       |x   |		Jump	0xe69								; case 0x3
0e60 7808       |x   |		Jump	0xe69								; case 0x4
0e61 7807       |x   |		Jump	0xe69								; case 0x5
0e62 7806       |x   |		Jump	0xe69								; case 0x6
0e63 7805       |x   |		Jump	0xe69								; case 0x7
0e64 7804       |x   |		Jump	0xe69								; case 0x8
0e65 00da       |    |		Load_Top	At_Offset_2
0e66 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0e67 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0e68 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0e69 0869       | i  |		Execute_Immediate	Raise,0x69
0e6a 0000 0000  |    |		.BLANK	0000[0x6]
0e70 ; --------------------------------------------------------------------------------------
0e70 ; SUBPROGRAM
0e70 ; --------------------------------------------------------------------------------------
0e70 0e73       | s  |		.CONST	0x0e73								; Address of begin
0e71 0004       |    |		.CONST	0x0004								; Address of exception handler
0e72 0001       |    |		.CONST	0x0001								; Number of locals
0e73			BODY_0e70:
0e73			INIT_0e70:
0e73 4608       |F   |		Jump_Case	0x9
0e74 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0e75 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0e76 7819       |x   |		Jump	0xe90								; case 0x2
0e77 7818       |x   |		Jump	0xe90								; case 0x3
0e78 7817       |x   |		Jump	0xe90								; case 0x4
0e79 7816       |x   |		Jump	0xe90								; case 0x5
0e7a 7815       |x   |		Jump	0xe90								; case 0x6
0e7b 7801       |x   |		Jump	0xe7d								; case 0x7
0e7c 7809       |x   |		Jump	0xe86								; case 0x8
0e7d 00db       |    |		Load_Top	At_Offset_3
0e7e 4801       |H   |		Short_Literal	0x1
0e7f e5fe       |    |		Load	0x2,-0x2
0e80 00e9       |    |		Load_Encached	String_Cache
0e81 035b       | [  |		Declare_Type	Array,Constrained
0e82 4801       |H   |		Short_Literal	0x1
0e83 e5ff       |    |		Load	0x2,-0x1
0e84 031b       |    |		Declare_Type	Variant_Record,Constrained
0e85 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0e86 00db       |    |		Load_Top	At_Offset_3
0e87 00db       |    |		Load_Top	At_Offset_3
0e88 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0e89 4801       |H   |		Short_Literal	0x1
0e8a e5fe       |    |		Load	0x2,-0x2
0e8b 00e9       |    |		Load_Encached	String_Cache
0e8c 0334       | 4  |		Declare_Variable	Array,With_Constraint
0e8d 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0e8e 016a       | j  |		QQ_execute	Variant_Record,XXX
0e8f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0e90 0869       | i  |		Execute_Immediate	Raise,0x69
0e91 ; --------------------------------------------------------------------------------------
0e91 ; STRING TABLE
0e91 ; --------------------------------------------------------------------------------------
0e91 004e       | N  |		.STRTAB	0x004e->0x0eb8							; "UPPER"
0e92 0051       | Q  |		.STRTAB	0x0051->0x0eba							; "LOWER"
0e93 0054       | T  |		.STRTAB	0x0054->0x0ebd							; "CAPITALIZE"
0e94 005c       | \  |		.STRTAB	0x005c->0x0ec2							; "DONT_CARE"
0e95 0063       | c  |		.STRTAB	0x0063->0x0ec6							; "ASSEMBLE"
0e96 0069       | i  |		.STRTAB	0x0069->0x0eca							; "PROMOTE"
0e97 006e       | n  |		.STRTAB	0x006e->0x0ece							; "DEMOTE"
0e98 0072       | r  |		.STRTAB	0x0072->0x0ed1							; "LINK"
0e99 0074       | t  |		.STRTAB	0x0074->0x0ed3							; "ON_NORMAL"
0e9a 007b       | {  |		.STRTAB	0x007b->0x0ed7							; "ON_ERROR"
0e9b 0081       |    |		.STRTAB	0x0081->0x0edb							; "ON_WARNING"
0e9c 0089       |    |		.STRTAB	0x0089->0x0ee0							; "ALWAYS"
0e9d 008d       |    |		.STRTAB	0x008d->0x0ee3							; "FTP"
0e9e 008e       |    |		.STRTAB	0x008e->0x0ee5							; "DTIA"
0e9f 0090       |    |		.STRTAB	0x0090->0x0ee7							; "TEXT"
0ea0 0092       |    |		.STRTAB	0x0092->0x0ee9							; "BINARY"
0ea1 0096       |    |		.STRTAB	0x0096->0x0eec							; "ADA_SPEC"
0ea2 009c       |    |		.STRTAB	0x009c->0x0ef0							; "ADA_BODY"
0ea3 00a2       |    |		.STRTAB	0x00a2->0x0ef4							; "SECONDARY"
0ea4 00a9       |    |		.STRTAB	0x00a9->0x0ef8							; "UNKNOWN"
0ea5 00ae       |    |		.STRTAB	0x00ae->0x0efc							; "<UNREGISTERED>"
0ea6 00ba       |    |		.STRTAB	0x00ba->0x0f03							; ".exe"
0ea7 00bc       |    |		.STRTAB	0x00bc->0x0f05							; "Ftp.Remote_Machine"
0ea8 00cc       |    |		.STRTAB	0x00cc->0x0f0e							; "Ftp.Remote_Directory"
0ea9 00de       |    |		.STRTAB	0x00de->0x0f18							; "Assemble"
0eaa 00e4       |    |		.STRTAB	0x00e4->0x0f1c							; "Promote"
0eab 00e9       |    |		.STRTAB	0x00e9->0x0f1f							; "Demote"
0eac 00ed       |    |		.STRTAB	0x00ed->0x0f22							; "Link"
0ead 00ef       |    |		.STRTAB	0x00ef->0x0f24							; "'"
0eae 00ee       |    |		.STRTAB	0x00ee->0x0f25							; "("
0eaf 00ed       |    |		.STRTAB	0x00ed->0x0f25							; ")'"
0eb0 00ed       |    |		.STRTAB	0x00ed->0x0f26							; "_"
0eb1 00ec       |    |		.STRTAB	0x00ec->0x0f27							; "_s"
0eb2 00ec       |    |		.STRTAB	0x00ec->0x0f28							; "_b"
0eb3 00ec       |    |		.STRTAB	0x00ec->0x0f29							; "_t"
0eb4 00ec       |    |		.STRTAB	0x00ec->0x0f2a							; ".library_switches"
0eb5 00fb       |    |		.STRTAB	0x00fb->0x0f32							; "<PROFILE>"
0eb6 0102       |    |		.STRTAB	0x0102->0x0f37							; " "
0eb7 0101       |    |		.STREND 0x0101->0x0f37
0eb8 5550 5045  |UPPE|		.STRTAB_STRINGS
0f38 ; --------------------------------------------------------------------------------------
0f38 ; Debug Table
0f38 ; --------------------------------------------------------------------------------------
0f38 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x2dd6,0x0000,0x0001,0x0000
0f3e 0000 0000  |    |		.XXX[0x18]
0f40 4fe2 8760  |O  `|
0f42 0000 0000  |    |
0f44 0000 0020  |    |
0f46 0000 020a  |    |
0f48 4869 2bea  |Hi+ |
0f4a 48a9 88a8  |H   |
0f4c 2a68 a64b  |*h K|
0f4e e60b e6b0  |    |
0f50 1000 0655  |   U|
0f52 0000 0000  |    |
0f54 0009 8000  |    |
0f56 0000 0000  |    |		.BLANK	0000[0x4]
0f5a 0003 e000  |    |		.XXX[0x2]
0f5c 0000 0000  |    |		.BLANK	0000[0x4]
0f60 01ff ffff  |    |		.XXX[0x17]
0f62 fe00 6d9c  |  m |
0f64 6d00 00ca  |m   |
0f66 a404 fe2d  |   -|
0f68 5004 fe30  |P  0|
0f6a 5000 6d98  |P m |
0f6c 8500 00ca  |    |
0f6e e404 fe2e  |   .|
0f70 5004 fe2f  |P  /|
0f72 5000 6d96  |P m |
0f74 dd00 00cd  |    |
0f76 a000       |    |
0f77 0000 0000  |    |		.BLANK	0000[0x4]
0f7b 6d9a 7d00  |m } |		.XXX[0x4]
0f7d 00ca ae00  |    |
0f7f 0000 0000  |    |		.BLANK	0000[0x4]
0f83 6d9f ad00  |m   |		.XXX[0xc]
0f85 00cb 1404  |    |
0f87 fe31 5004  | 1P |
0f89 fe32 5000  | 2P |
0f8b 6d9e 0d00  |m   |
0f8d 0169 9200  | i  |
0f8f 0000 0000  |    |		.BLANK	0000[0x4]
0f93 6da1 5d00  |m ] |		.XXX[0x1d]
0f95 00cd 9200  |    |
0f97 0000 0004  |    |
0f99 fe33 5100  | 3Q |
0f9b 6da3 5d00  |m ] |
0f9d 016b f400  | k  |
0f9f 0000 0000  |    |
0fa1 0000 0002  |    |
0fa3 7f14 3b00  |  ; |
0fa5 01d9 0400  |    |
0fa7 0000 0005  |    |
0fa9 04ef 0f80  |    |
0fab 8000 32a8  |  2 |
0fad 0000 0000  |    |
0faf 004c       | L  |
0fb0 0000 0000  |    |		.BLANK	0000[0x5]
0fb5 001f       |    |		.XXX[0x1]
0fb6 0000 0000  |    |		.BLANK	0000[0x5]
0fbb 0fff ffff  |    |		.XXX[0x45]
0fbd f013 f8e2  |    |
0fbf b000 0000  |    |
0fc1 0000 0000  |    |
0fc3 1000 0000  |    |
0fc5 0000 0000  |    |
0fc7 0800 32d0  |  2 |
0fc9 1000 0000  |    |
0fcb 0000 0000  |    |
0fcd 0013 f8ea  |    |
0fcf b000 0000  |    |
0fd1 0000 0000  |    |
0fd3 1000 0000  |    |
0fd5 0000 0000  |    |
0fd7 0800 32d0  |  2 |
0fd9 1000 0000  |    |
0fdb 0000 0000  |    |
0fdd 0013 f8f0  |    |
0fdf c000 1717  |    |
0fe1 6502 7f1e  |e   |
0fe3 5802 7f1f  |X   |
0fe5 ab00 01d9  |    |
0fe7 0600 5002  |  P |
0fe9 b200 0000  |    |
0feb 0004 fe49  |   I|
0fed f400 0000  |    |
0fef 0004 fe55  |   U|
0ff1 8800 0cb4  |    |
0ff3 0805 0001  |    |
0ff5 d904 0804  |    |
0ff7 8500 0040  |   @|
0ff9 4fe4 33e0  |O 3 |
0ffb 003b 20c0  | ;  |
0ffd 0a00 5640  |  V@|
0fff 0000       |    |