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

⟦9de3e471e⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0c08       |    |		.CONST	0x0c08								; 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 8007       |    |		.CONST	0x8007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 026d       | m  |		.CONST	0x026d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 00dc       |    |		.CONST	0x00dc								; 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 4800       |H   |		Short_Literal	0x0
00d7 48ff       |H   |		Short_Literal	0xff
00d8 00e5       |    |		Load_Encached	Long_Integer_Cache
00d9 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00da c2be       |    |		Store	0x1,0xbe
00db 4800       |H   |		Short_Literal	0x0
00dc 48ff       |H   |		Short_Literal	0xff
00dd 00e5       |    |		Load_Encached	Long_Integer_Cache
00de 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00df c2bf       |    |		Store	0x1,0xbf
00e0 4800       |H   |		Short_Literal	0x0
00e1 4803       |H   |		Short_Literal	0x3
00e2 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
00e4 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00e5 c2c3       |    |		Store	0x1,0xc3
00e6 4800       |H   |		Short_Literal	0x0
00e7 4804       |H   |		Short_Literal	0x4
00e8 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
00ea 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00eb c2c4       |    |		Store	0x1,0xc4
00ec e2c4       |    |		Load	0x1,0xc4
00ed 0266       | f  |		Execute	Discrete,Bounds
00ee 00e1       |    |		Load_Encached	Boolean_Cache
00ef 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f0 4801       |H   |		Short_Literal	0x1
00f1 035e       | ^  |		Declare_Type	Array,Defined,Visible
00f2 c2c5       |    |		Store	0x1,0xc5
00f3 4800       |H   |		Short_Literal	0x0
00f4 4803       |H   |		Short_Literal	0x3
00f5 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
00f7 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00f8 c2c6       |    |		Store	0x1,0xc6
00f9 4800       |H   |		Short_Literal	0x0
00fa 4801       |H   |		Short_Literal	0x1
00fb 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
00fd 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00fe c2c9       |    |		Store	0x1,0xc9
00ff 4800       |H   |		Short_Literal	0x0
0100 4801       |H   |		Short_Literal	0x1
0101 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call
0103 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0104 c2cb       |    |		Store	0x1,0xcb
0105 4802       |H   |		Short_Literal	0x2
0106 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0107 c262       | b  |		Store	0x1,0x62
0108 e001       |    |		Load	0x0,0x1
0109 0129       | )  |		Execute	Any,Make_Visible
010a c2bc       |    |		Store	0x1,0xbc
010b 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
010d c263       | c  |		Store	0x1,0x63
010e 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0110 c264       | d  |		Store	0x1,0x64
0111 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0113 c265       | e  |		Store	0x1,0x65
0114 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0116 c266       | f  |		Store	0x1,0x66
0117 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0119 c267       | g  |		Store	0x1,0x67
011a 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
011c c268       | h  |		Store	0x1,0x68
011d 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
011f c269       | i  |		Store	0x1,0x69
0120 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
0122 c26a       | j  |		Store	0x1,0x6a
0123 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0125 c26d       | m  |		Store	0x1,0x6d
0126 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated
0128 c26e       | n  |		Store	0x1,0x6e
0129 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
012b c2b1       |    |		Store	0x1,0xb1
012c 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
012e c2b2       |    |		Store	0x1,0xb2
012f 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
0131 c26f       | o  |		Store	0x1,0x6f
0132 029a 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call,Visible,Unelaborated
0134 c270       | p  |		Store	0x1,0x70
0135 029a 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Outer_Call,Visible,Unelaborated
0137 c271       | q  |		Store	0x1,0x71
0138 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
013a c272       | r  |		Store	0x1,0x72
013b 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated
013d c2d0       |    |		Store	0x1,0xd0
013e 4800       |H   |		Short_Literal	0x0
013f 4803       |H   |		Short_Literal	0x3
0140 029f 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Call
0142 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0143 c2b3       |    |		Store	0x1,0xb3
0144 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
0146 c274       | t  |		Store	0x1,0x74
0147 029a 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call,Visible,Unelaborated
0149 c275       | u  |		Store	0x1,0x75
014a 029a 055b  |   [|		Declare_Subprogram	INIT_0558,For_Outer_Call,Visible,Unelaborated
014c c276       | v  |		Store	0x1,0x76
014d 029a 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call,Visible,Unelaborated
014f c277       | w  |		Store	0x1,0x77
0150 029a 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call,Visible,Unelaborated
0152 c278       | x  |		Store	0x1,0x78
0153 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
0155 c279       | y  |		Store	0x1,0x79
0156 029a 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call,Visible,Unelaborated
0158 c27a       | z  |		Store	0x1,0x7a
0159 029a 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call,Visible,Unelaborated
015b c27b       | {  |		Store	0x1,0x7b
015c 029a 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call,Visible,Unelaborated
015e c27c       | |  |		Store	0x1,0x7c
015f 029a 0693  |    |		Declare_Subprogram	INIT_0690,For_Outer_Call,Visible,Unelaborated
0161 c2a9       |    |		Store	0x1,0xa9
0162 029a 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call,Visible,Unelaborated
0164 c27d       | }  |		Store	0x1,0x7d
0165 029a 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call,Visible,Unelaborated
0167 c2cc       |    |		Store	0x1,0xcc
0168 029a 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call,Visible,Unelaborated
016a c2cd       |    |		Store	0x1,0xcd
016b 029a 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call,Visible,Unelaborated
016d c287       |    |		Store	0x1,0x87
016e 029a 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call,Visible,Unelaborated
0170 c2ce       |    |		Store	0x1,0xce
0171 029a 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Outer_Call,Visible,Unelaborated
0173 c2cf       |    |		Store	0x1,0xcf
0174 029a 070b  |    |		Declare_Subprogram	INIT_0708,For_Outer_Call,Visible,Unelaborated
0176 c28c       |    |		Store	0x1,0x8c
0177 029a 0723  |   #|		Declare_Subprogram	INIT_0720,For_Outer_Call,Visible,Unelaborated
0179 c290       |    |		Store	0x1,0x90
017a 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
017c c26b       | k  |		Store	0x1,0x6b
017d 029a 0753  |   S|		Declare_Subprogram	INIT_0750,For_Outer_Call,Visible,Unelaborated
017f c2d5       |    |		Store	0x1,0xd5
0180 029a 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call,Visible,Unelaborated
0182 c2d1       |    |		Store	0x1,0xd1
0183 029a 0783  |    |		Declare_Subprogram	INIT_0780,For_Outer_Call,Visible,Unelaborated
0185 c2d2       |    |		Store	0x1,0xd2
0186 029a 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call,Visible,Unelaborated
0188 c2d3       |    |		Store	0x1,0xd3
0189 029a 07b3  |    |		Declare_Subprogram	INIT_07b0,For_Outer_Call,Visible,Unelaborated
018b c2b6       |    |		Store	0x1,0xb6
018c 029a 07db  |    |		Declare_Subprogram	INIT_07d8,For_Outer_Call,Visible,Unelaborated
018e c2b7       |    |		Store	0x1,0xb7
018f 029a 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Outer_Call,Visible,Unelaborated
0191 c2c2       |    |		Store	0x1,0xc2
0192 029a 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Visible,Unelaborated
0194 c2d6       |    |		Store	0x1,0xd6
0195 029a 0833  |   3|		Declare_Subprogram	INIT_0830,For_Outer_Call,Visible,Unelaborated
0197 c2d7       |    |		Store	0x1,0xd7
0198 029a 084b  |   K|		Declare_Subprogram	INIT_0848,For_Outer_Call,Visible,Unelaborated
019a c2b8       |    |		Store	0x1,0xb8
019b 029a 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call,Visible,Unelaborated
019d c2b9       |    |		Store	0x1,0xb9
019e 029a 087b  |   {|		Declare_Subprogram	INIT_0878,For_Outer_Call,Visible,Unelaborated
01a0 c224       | $  |		Store	0x1,0x24
01a1 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
01a3 c225       | %  |		Store	0x1,0x25
01a4 029a 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call,Visible,Unelaborated
01a6 c256       | V  |		Store	0x1,0x56
01a7 029a 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Outer_Call,Visible,Unelaborated
01a9 c257       | W  |		Store	0x1,0x57
01aa 029a 08ab  |    |		Declare_Subprogram	INIT_08a8,For_Outer_Call,Visible,Unelaborated
01ac c226       | &  |		Store	0x1,0x26
01ad 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
01af c2ca       |    |		Store	0x1,0xca
01b0 029a 08fb  |    |		Declare_Subprogram	INIT_08f8,For_Outer_Call,Visible,Unelaborated
01b2 c2ba       |    |		Store	0x1,0xba
01b3 029a 0923  |   #|		Declare_Subprogram	INIT_0920,For_Outer_Call,Visible,Unelaborated
01b5 c2bb       |    |		Store	0x1,0xbb
01b6 029a 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call,Visible,Unelaborated
01b8 c29e       |    |		Store	0x1,0x9e
01b9 029a 096b  |   k|		Declare_Subprogram	INIT_0968,For_Outer_Call,Visible,Unelaborated
01bb c29f       |    |		Store	0x1,0x9f
01bc 029a 0973  |   s|		Declare_Subprogram	INIT_0970,For_Outer_Call,Visible,Unelaborated
01be c2a0       |    |		Store	0x1,0xa0
01bf 029a 097b  |   {|		Declare_Subprogram	INIT_0978,For_Outer_Call,Visible,Unelaborated
01c1 c2a1       |    |		Store	0x1,0xa1
01c2 029a 0983  |    |		Declare_Subprogram	INIT_0980,For_Outer_Call,Visible,Unelaborated
01c4 c2c7       |    |		Store	0x1,0xc7
01c5 029a 0993  |    |		Declare_Subprogram	INIT_0990,For_Outer_Call,Visible,Unelaborated
01c7 c2c8       |    |		Store	0x1,0xc8
01c8 e2be       |    |		Load	0x1,0xbe
01c9 e2bf       |    |		Load	0x1,0xbf
01ca 02a0       |    |		Declare_Subprogram	Null_Subprogram
01cb 4802       |H   |		Short_Literal	0x2
01cc 032d       | -  |		Declare_Type	Record,Defined
01cd c2a2       |    |		Store	0x1,0xa2
01ce e2a2       |    |		Load	0x1,0xa2
01cf 0322       | "  |		Declare_Variable	Record
01d0 4800       |H   |		Short_Literal	0x0
01d1 00d9       |    |		Load_Top	At_Offset_1
01d2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01d3 4800       |H   |		Short_Literal	0x0
01d4 00d9       |    |		Load_Top	At_Offset_1
01d5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d6 c2af       |    |		Store	0x1,0xaf
01d7 e002       |    |		Load	0x0,0x2
01d8 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
01d9 e2a2       |    |		Load	0x1,0xa2
01da 029f 0b5b  |   [|		Declare_Subprogram	INIT_0b58,For_Call
01dc e262       | b  |		Load	0x1,0x62
01dd 0326       | &  |		Complete_Type	Record,By_Defining
01de e262       | b  |		Load	0x1,0x62
01df 0322       | "  |		Declare_Variable	Record
01e0 e003       |    |		Load	0x0,0x3
01e1 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
01e2 00d9       |    |		Load_Top	At_Offset_1
01e3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01e4 e2af       |    |		Load	0x1,0xaf
01e5 00d9       |    |		Load_Top	At_Offset_1
01e6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01e7 c2a4       |    |		Store	0x1,0xa4
01e8 00bf       |    |		Action	Accept_Activation
01e9 e2bf       |    |		Load	0x1,0xbf
01ea 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01eb 029d 0a1b  |    |		Declare_Subprogram	INIT_0a18,For_Outer_Call
01ed 1d64       | d  |		Execute_Immediate	Reference_Lex_1,0x64
01ee 00c7       |    |		Action	Elaborate_Subprogram
01ef 1d65       | e  |		Execute_Immediate	Reference_Lex_1,0x65
01f0 00c7       |    |		Action	Elaborate_Subprogram
01f1 1d63       | c  |		Execute_Immediate	Reference_Lex_1,0x63
01f2 00c7       |    |		Action	Elaborate_Subprogram
01f3 1d66       | f  |		Execute_Immediate	Reference_Lex_1,0x66
01f4 00c7       |    |		Action	Elaborate_Subprogram
01f5 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
01f6 00c7       |    |		Action	Elaborate_Subprogram
01f7 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
01f8 00c7       |    |		Action	Elaborate_Subprogram
01f9 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
01fa 00c7       |    |		Action	Elaborate_Subprogram
01fb 1d6a       | j  |		Execute_Immediate	Reference_Lex_1,0x6a
01fc 00c7       |    |		Action	Elaborate_Subprogram
01fd 1dd3       |    |		Execute_Immediate	Reference_Lex_1,0xd3
01fe 00c7       |    |		Action	Elaborate_Subprogram
01ff 1dc2       |    |		Execute_Immediate	Reference_Lex_1,0xc2
0200 00c7       |    |		Action	Elaborate_Subprogram
0201 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
0202 00c7       |    |		Action	Elaborate_Subprogram
0203 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
0204 00c7       |    |		Action	Elaborate_Subprogram
0205 1db1       |    |		Execute_Immediate	Reference_Lex_1,0xb1
0206 00c7       |    |		Action	Elaborate_Subprogram
0207 1db2       |    |		Execute_Immediate	Reference_Lex_1,0xb2
0208 00c7       |    |		Action	Elaborate_Subprogram
0209 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
020a 00c7       |    |		Action	Elaborate_Subprogram
020b 1d70       | p  |		Execute_Immediate	Reference_Lex_1,0x70
020c 00c7       |    |		Action	Elaborate_Subprogram
020d 029d 0a2b  |   +|		Declare_Subprogram	INIT_0a28,For_Outer_Call
020f 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
0210 00c7       |    |		Action	Elaborate_Subprogram
0211 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
0212 00c7       |    |		Action	Elaborate_Subprogram
0213 1d74       | t  |		Execute_Immediate	Reference_Lex_1,0x74
0214 00c7       |    |		Action	Elaborate_Subprogram
0215 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
0216 00c7       |    |		Action	Elaborate_Subprogram
0217 1dd0       |    |		Execute_Immediate	Reference_Lex_1,0xd0
0218 00c7       |    |		Action	Elaborate_Subprogram
0219 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
021a 00c7       |    |		Action	Elaborate_Subprogram
021b 029d 0a4b  |   K|		Declare_Subprogram	INIT_0a48,For_Outer_Call
021d 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
021e 00c7       |    |		Action	Elaborate_Subprogram
021f 1da9       |    |		Execute_Immediate	Reference_Lex_1,0xa9
0220 00c7       |    |		Action	Elaborate_Subprogram
0221 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
0222 00c7       |    |		Action	Elaborate_Subprogram
0223 1d79       | y  |		Execute_Immediate	Reference_Lex_1,0x79
0224 00c7       |    |		Action	Elaborate_Subprogram
0225 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
0226 00c7       |    |		Action	Elaborate_Subprogram
0227 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
0228 00c7       |    |		Action	Elaborate_Subprogram
0229 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
022a 00c7       |    |		Action	Elaborate_Subprogram
022b 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
022c 00c7       |    |		Action	Elaborate_Subprogram
022d 1dcc       |    |		Execute_Immediate	Reference_Lex_1,0xcc
022e 00c7       |    |		Action	Elaborate_Subprogram
022f 1dcd       |    |		Execute_Immediate	Reference_Lex_1,0xcd
0230 00c7       |    |		Action	Elaborate_Subprogram
0231 1d87       |    |		Execute_Immediate	Reference_Lex_1,0x87
0232 00c7       |    |		Action	Elaborate_Subprogram
0233 1dce       |    |		Execute_Immediate	Reference_Lex_1,0xce
0234 00c7       |    |		Action	Elaborate_Subprogram
0235 1dcf       |    |		Execute_Immediate	Reference_Lex_1,0xcf
0236 00c7       |    |		Action	Elaborate_Subprogram
0237 1d8c       |    |		Execute_Immediate	Reference_Lex_1,0x8c
0238 00c7       |    |		Action	Elaborate_Subprogram
0239 1d90       |    |		Execute_Immediate	Reference_Lex_1,0x90
023a 00c7       |    |		Action	Elaborate_Subprogram
023b 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
023c 00c7       |    |		Action	Elaborate_Subprogram
023d 1dd5       |    |		Execute_Immediate	Reference_Lex_1,0xd5
023e 00c7       |    |		Action	Elaborate_Subprogram
023f 1dd1       |    |		Execute_Immediate	Reference_Lex_1,0xd1
0240 00c7       |    |		Action	Elaborate_Subprogram
0241 1dd2       |    |		Execute_Immediate	Reference_Lex_1,0xd2
0242 00c7       |    |		Action	Elaborate_Subprogram
0243 029d 0a83  |    |		Declare_Subprogram	INIT_0a80,For_Outer_Call
0245 1db6       |    |		Execute_Immediate	Reference_Lex_1,0xb6
0246 00c7       |    |		Action	Elaborate_Subprogram
0247 1db7       |    |		Execute_Immediate	Reference_Lex_1,0xb7
0248 00c7       |    |		Action	Elaborate_Subprogram
0249 1dd6       |    |		Execute_Immediate	Reference_Lex_1,0xd6
024a 00c7       |    |		Action	Elaborate_Subprogram
024b 1dd7       |    |		Execute_Immediate	Reference_Lex_1,0xd7
024c 00c7       |    |		Action	Elaborate_Subprogram
024d 1db8       |    |		Execute_Immediate	Reference_Lex_1,0xb8
024e 00c7       |    |		Action	Elaborate_Subprogram
024f 1db9       |    |		Execute_Immediate	Reference_Lex_1,0xb9
0250 00c7       |    |		Action	Elaborate_Subprogram
0251 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0252 00c7       |    |		Action	Elaborate_Subprogram
0253 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0254 00c7       |    |		Action	Elaborate_Subprogram
0255 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
0256 00c7       |    |		Action	Elaborate_Subprogram
0257 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
0258 00c7       |    |		Action	Elaborate_Subprogram
0259 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
025a 00c7       |    |		Action	Elaborate_Subprogram
025b 1dca       |    |		Execute_Immediate	Reference_Lex_1,0xca
025c 00c7       |    |		Action	Elaborate_Subprogram
025d 1dba       |    |		Execute_Immediate	Reference_Lex_1,0xba
025e 00c7       |    |		Action	Elaborate_Subprogram
025f 1dbb       |    |		Execute_Immediate	Reference_Lex_1,0xbb
0260 00c7       |    |		Action	Elaborate_Subprogram
0261 1d9e       |    |		Execute_Immediate	Reference_Lex_1,0x9e
0262 00c7       |    |		Action	Elaborate_Subprogram
0263 1d9f       |    |		Execute_Immediate	Reference_Lex_1,0x9f
0264 00c7       |    |		Action	Elaborate_Subprogram
0265 1da0       |    |		Execute_Immediate	Reference_Lex_1,0xa0
0266 00c7       |    |		Action	Elaborate_Subprogram
0267 1da1       |    |		Execute_Immediate	Reference_Lex_1,0xa1
0268 00c7       |    |		Action	Elaborate_Subprogram
0269 1dc7       |    |		Execute_Immediate	Reference_Lex_1,0xc7
026a 00c7       |    |		Action	Elaborate_Subprogram
026b 1dc8       |    |		Execute_Immediate	Reference_Lex_1,0xc8
026c 00c7       |    |		Action	Elaborate_Subprogram
026d			BODY_0008:
026d 00ea       |    |		Load_Encached	Null_String_Cache
026e 4800       |H   |		Short_Literal	0x0
026f e004       |    |		Load	0x0,0x4
0270 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0271 e004       |    |		Load	0x0,0x4
0272 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0273 00ea       |    |		Load_Encached	Null_String_Cache
0274 4800       |H   |		Short_Literal	0x0
0275 e004       |    |		Load	0x0,0x4
0276 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0277 e004       |    |		Load	0x0,0x4
0278 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0279 00ea       |    |		Load_Encached	Null_String_Cache
027a 00ea       |    |		Load_Encached	Null_String_Cache
027b e004       |    |		Load	0x0,0x4
027c 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
027d e004       |    |		Load	0x0,0x4
027e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
027f 00ea       |    |		Load_Encached	Null_String_Cache
0280 00ea       |    |		Load_Encached	Null_String_Cache
0281 e004       |    |		Load	0x0,0x4
0282 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0283 e004       |    |		Load	0x0,0x4
0284 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0285 00ea       |    |		Load_Encached	Null_String_Cache
0286 00ea       |    |		Load_Encached	Null_String_Cache
0287 e004       |    |		Load	0x0,0x4
0288 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0289 e004       |    |		Load	0x0,0x4
028a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
028b 00ea       |    |		Load_Encached	Null_String_Cache
028c 00ea       |    |		Load_Encached	Null_String_Cache
028d e004       |    |		Load	0x0,0x4
028e 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
028f e004       |    |		Load	0x0,0x4
0290 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0291 00ea       |    |		Load_Encached	Null_String_Cache
0292 4800       |H   |		Short_Literal	0x0
0293 e004       |    |		Load	0x0,0x4
0294 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0295 e004       |    |		Load	0x0,0x4
0296 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0297 00bc       |    |		Action	Signal_Activated
0298 00bb       |    |		Action	Signal_Completion
0299 0000 0000  |    |		.BLANK	0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 4607       |F   |		Jump_Case	0x8
02a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02a5 7806       |x   |		Jump	0x2ac								; case 0x1
02a6 7809       |x   |		Jump	0x2b0								; case 0x2
02a7 780d       |x   |		Jump	0x2b5								; case 0x3
02a8 7810       |x   |		Jump	0x2b9								; case 0x4
02a9 7811       |x   |		Jump	0x2bb								; case 0x5
02aa 7812       |x   |		Jump	0x2bd								; case 0x6
02ab 7815       |x   |		Jump	0x2c1								; case 0x7
02ac 00da       |    |		Load_Top	At_Offset_2
02ad 0091 0b6a  |   j|		Action	Push_String_Extended_Indexed,0xb6a				; "UPPER"
02af 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02b0 00db       |    |		Load_Top	At_Offset_3
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 00e0       |    |		Load_Encached	Standard_Cache
02b3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b5 00da       |    |		Load_Top	At_Offset_2
02b6 00e0       |    |		Load_Encached	Standard_Cache
02b7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02b8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02b9 00db       |    |		Load_Top	At_Offset_3
02ba 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02bd e2c3       |    |		Load	0x1,0xc3
02be 00dc       |    |		Load_Top	At_Offset_4
02bf 0267       | g  |		Execute	Discrete,Predecessor
02c0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c1 e2c3       |    |		Load	0x1,0xc3
02c2 00dc       |    |		Load_Top	At_Offset_4
02c3 0268       | h  |		Execute	Discrete,Successor
02c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c5 0000 0000  |    |		.XXX[0x3]
02c7 0000       |    |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 4607       |F   |		Jump_Case	0x8
02cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02cd 7806       |x   |		Jump	0x2d4								; case 0x1
02ce 7809       |x   |		Jump	0x2d8								; case 0x2
02cf 780d       |x   |		Jump	0x2dd								; case 0x3
02d0 7810       |x   |		Jump	0x2e1								; case 0x4
02d1 7811       |x   |		Jump	0x2e3								; case 0x5
02d2 7812       |x   |		Jump	0x2e5								; case 0x6
02d3 7815       |x   |		Jump	0x2e9								; case 0x7
02d4 00da       |    |		Load_Top	At_Offset_2
02d5 0091 0b6e  |   n|		Action	Push_String_Extended_Indexed,0xb6e				; "ASSEMBLE"
02d7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 00db       |    |		Load_Top	At_Offset_3
02da 00e0       |    |		Load_Encached	Standard_Cache
02db 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02dd 00da       |    |		Load_Top	At_Offset_2
02de 00e0       |    |		Load_Encached	Standard_Cache
02df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02e1 00db       |    |		Load_Top	At_Offset_3
02e2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e3 00db       |    |		Load_Top	At_Offset_3
02e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e5 e2c4       |    |		Load	0x1,0xc4
02e6 00dc       |    |		Load_Top	At_Offset_4
02e7 0267       | g  |		Execute	Discrete,Predecessor
02e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e9 e2c4       |    |		Load	0x1,0xc4
02ea 00dc       |    |		Load_Top	At_Offset_4
02eb 0268       | h  |		Execute	Discrete,Successor
02ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ed 0000 0000  |    |		.XXX[0x3]
02ef 0000       |    |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 4607       |F   |		Jump_Case	0x8
02f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02f5 7806       |x   |		Jump	0x2fc								; case 0x1
02f6 7809       |x   |		Jump	0x300								; case 0x2
02f7 780d       |x   |		Jump	0x305								; case 0x3
02f8 7810       |x   |		Jump	0x309								; case 0x4
02f9 7811       |x   |		Jump	0x30b								; case 0x5
02fa 7812       |x   |		Jump	0x30d								; case 0x6
02fb 7815       |x   |		Jump	0x311								; case 0x7
02fc 00da       |    |		Load_Top	At_Offset_2
02fd 0091 0b73  |   s|		Action	Push_String_Extended_Indexed,0xb73				; "ON_NORMAL"
02ff 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0300 00db       |    |		Load_Top	At_Offset_3
0301 00db       |    |		Load_Top	At_Offset_3
0302 00e0       |    |		Load_Encached	Standard_Cache
0303 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0304 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0305 00da       |    |		Load_Top	At_Offset_2
0306 00e0       |    |		Load_Encached	Standard_Cache
0307 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0308 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0309 00db       |    |		Load_Top	At_Offset_3
030a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
030b 00db       |    |		Load_Top	At_Offset_3
030c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
030d e2c6       |    |		Load	0x1,0xc6
030e 00dc       |    |		Load_Top	At_Offset_4
030f 0267       | g  |		Execute	Discrete,Predecessor
0310 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0311 e2c6       |    |		Load	0x1,0xc6
0312 00dc       |    |		Load_Top	At_Offset_4
0313 0268       | h  |		Execute	Discrete,Successor
0314 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0315 0000 0000  |    |		.XXX[0x3]
0317 0000       |    |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 4607       |F   |		Jump_Case	0x8
031c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
031d 7806       |x   |		Jump	0x324								; case 0x1
031e 7809       |x   |		Jump	0x328								; case 0x2
031f 780d       |x   |		Jump	0x32d								; case 0x3
0320 7810       |x   |		Jump	0x331								; case 0x4
0321 7811       |x   |		Jump	0x333								; case 0x5
0322 7812       |x   |		Jump	0x335								; case 0x6
0323 7815       |x   |		Jump	0x339								; case 0x7
0324 00da       |    |		Load_Top	At_Offset_2
0325 0091 0b77  |   w|		Action	Push_String_Extended_Indexed,0xb77				; "FTP"
0327 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0328 00db       |    |		Load_Top	At_Offset_3
0329 00db       |    |		Load_Top	At_Offset_3
032a 00e0       |    |		Load_Encached	Standard_Cache
032b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
032c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
032d 00da       |    |		Load_Top	At_Offset_2
032e 00e0       |    |		Load_Encached	Standard_Cache
032f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0330 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0331 00db       |    |		Load_Top	At_Offset_3
0332 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0333 00db       |    |		Load_Top	At_Offset_3
0334 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0335 e2c9       |    |		Load	0x1,0xc9
0336 00dc       |    |		Load_Top	At_Offset_4
0337 0267       | g  |		Execute	Discrete,Predecessor
0338 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0339 e2c9       |    |		Load	0x1,0xc9
033a 00dc       |    |		Load_Top	At_Offset_4
033b 0268       | h  |		Execute	Discrete,Successor
033c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 4607       |F   |		Jump_Case	0x8
0344 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0345 7806       |x   |		Jump	0x34c								; case 0x1
0346 7809       |x   |		Jump	0x350								; case 0x2
0347 780d       |x   |		Jump	0x355								; case 0x3
0348 7810       |x   |		Jump	0x359								; case 0x4
0349 7811       |x   |		Jump	0x35b								; case 0x5
034a 7812       |x   |		Jump	0x35d								; case 0x6
034b 7815       |x   |		Jump	0x361								; case 0x7
034c 00da       |    |		Load_Top	At_Offset_2
034d 0091 0b79  |   y|		Action	Push_String_Extended_Indexed,0xb79				; "TEXT"
034f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0350 00db       |    |		Load_Top	At_Offset_3
0351 00db       |    |		Load_Top	At_Offset_3
0352 00e0       |    |		Load_Encached	Standard_Cache
0353 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0354 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0355 00da       |    |		Load_Top	At_Offset_2
0356 00e0       |    |		Load_Encached	Standard_Cache
0357 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0358 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0359 00db       |    |		Load_Top	At_Offset_3
035a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
035b 00db       |    |		Load_Top	At_Offset_3
035c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
035d e2cb       |    |		Load	0x1,0xcb
035e 00dc       |    |		Load_Top	At_Offset_4
035f 0267       | g  |		Execute	Discrete,Predecessor
0360 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0361 e2cb       |    |		Load	0x1,0xcb
0362 00dc       |    |		Load_Top	At_Offset_4
0363 0268       | h  |		Execute	Discrete,Successor
0364 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0365 0000 0000  |    |		.XXX[0x3]
0367 0000       |    |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00da       |    |		Load_Top	At_Offset_2
036c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
036d 0320       |    |		Declare_Variable	Record,Duplicate
036e 00cd       |    |		Action	Spare6_Action
036f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 00da       |    |		Load_Top	At_Offset_2
0374 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0375 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0376 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0377 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
037c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
037d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
037e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037f 0000       |    |		.XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 e262       | b  |		Load	0x1,0x62
0384 0322       | "  |		Declare_Variable	Record
0385 00db       |    |		Load_Top	At_Offset_3
0386 00d9       |    |		Load_Top	At_Offset_1
0387 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0388 00d8       |    |		Load_Top	At_Offset_0
0389 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
038a e5ff       |    |		Load	0x2,-0x1
038b e005       |    |		Load	0x0,0x5
038c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
038d e005       |    |		Load	0x0,0x5
038e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
038f 00d8       |    |		Load_Top	At_Offset_0
0390 e2be       |    |		Load	0x1,0xbe
0391 0260       | `  |		Execute	Discrete,In_Type
0392 7001       |p   |		Jump_Nonzero	0x394
0393 0801       |    |		Execute_Immediate	Raise,0x1
0394 00d9       |    |		Load_Top	At_Offset_1
0395 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0396 e2d8       |    |		Load	0x1,0xd8
0397 00d0       |    |		Action	Swap_Control
0398 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0399 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
039a 0000 0000  |    |		.BLANK	0000[0x6]
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 e262       | b  |		Load	0x1,0x62
03a4 0322       | "  |		Declare_Variable	Record
03a5 00db       |    |		Load_Top	At_Offset_3
03a6 00d8       |    |		Load_Top	At_Offset_0
03a7 00e3       |    |		Load_Encached	Natural_Cache
03a8 0260       | `  |		Execute	Discrete,In_Type
03a9 7001       |p   |		Jump_Nonzero	0x3ab
03aa 0801       |    |		Execute_Immediate	Raise,0x1
03ab e005       |    |		Load	0x0,0x5
03ac 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03ad e005       |    |		Load	0x0,0x5
03ae 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03af 00d9       |    |		Load_Top	At_Offset_1
03b0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b1 00d8       |    |		Load_Top	At_Offset_0
03b2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03b3 e5ff       |    |		Load	0x2,-0x1
03b4 00d9       |    |		Load_Top	At_Offset_1
03b5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b6 e2d8       |    |		Load	0x1,0xd8
03b7 00d0       |    |		Action	Swap_Control
03b8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03b9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ba 0000 0000  |    |		.BLANK	0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 03ca       |    |		.CONST	0x03ca								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 00da       |    |		Load_Top	At_Offset_2
03c4 8263       | c  |		Call	0x1,0x63
03c5 e006       |    |		Load	0x0,0x6
03c6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03c7 e007       |    |		Load	0x0,0x7
03c8 185b       | [  |		Execute	Package,Field_Execute,Field_Number 0x5b
03c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ca			TRAP_03c0:
03ca e007       |    |		Load	0x0,0x7
03cb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03cc 010f       |    |		Execute	Exception,Equal
03cd 6802       |h   |		Jump_Zero	0x3d0
03ce e2bc       |    |		Load	0x1,0xbc
03cf 0257       | W  |		Execute	Discrete,Raise
03d0 0100       |    |		Execute	Exception,Raise
03d1 0000 0000  |    |		.BLANK	0000[0x7]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 03e2       |    |		.CONST	0x03e2								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00da       |    |		Load_Top	At_Offset_2
03dc 8263       | c  |		Call	0x1,0x63
03dd e006       |    |		Load	0x0,0x6
03de 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03df e007       |    |		Load	0x0,0x7
03e0 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
03e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e2			TRAP_03d8:
03e2 e007       |    |		Load	0x0,0x7
03e3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03e4 010f       |    |		Execute	Exception,Equal
03e5 6802       |h   |		Jump_Zero	0x3e8
03e6 e2bc       |    |		Load	0x1,0xbc
03e7 0257       | W  |		Execute	Discrete,Raise
03e8 0100       |    |		Execute	Exception,Raise
03e9 0000 0000  |    |		.BLANK	0000[0x7]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 03fa       |    |		.CONST	0x03fa								; 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 8263       | c  |		Call	0x1,0x63
03f5 e006       |    |		Load	0x0,0x6
03f6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03f7 e007       |    |		Load	0x0,0x7
03f8 185d       | ]  |		Execute	Package,Field_Execute,Field_Number 0x5d
03f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fa			TRAP_03f0:
03fa e007       |    |		Load	0x0,0x7
03fb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03fc 010f       |    |		Execute	Exception,Equal
03fd 6802       |h   |		Jump_Zero	0x400
03fe e2bc       |    |		Load	0x1,0xbc
03ff 0257       | W  |		Execute	Discrete,Raise
0400 0100       |    |		Execute	Exception,Raise
0401 0000 0000  |    |		.BLANK	0000[0x7]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0417       |    |		.CONST	0x0417								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00da       |    |		Load_Top	At_Offset_2
040c 8263       | c  |		Call	0x1,0x63
040d e006       |    |		Load	0x0,0x6
040e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
040f e007       |    |		Load	0x0,0x7
0410 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0411 00d8       |    |		Load_Top	At_Offset_0
0412 00e4       |    |		Load_Encached	Positive_Cache
0413 0260       | `  |		Execute	Discrete,In_Type
0414 7001       |p   |		Jump_Nonzero	0x416
0415 0801       |    |		Execute_Immediate	Raise,0x1
0416 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0417			TRAP_0408:
0417 e007       |    |		Load	0x0,0x7
0418 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0419 010f       |    |		Execute	Exception,Equal
041a 6802       |h   |		Jump_Zero	0x41d
041b e2bc       |    |		Load	0x1,0xbc
041c 0257       | W  |		Execute	Discrete,Raise
041d 0100       |    |		Execute	Exception,Raise
041e 0000 0000  |    |		.XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 042a       | *  |		.CONST	0x042a								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 00da       |    |		Load_Top	At_Offset_2
0424 8263       | c  |		Call	0x1,0x63
0425 e006       |    |		Load	0x0,0x6
0426 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0427 e007       |    |		Load	0x0,0x7
0428 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
0429 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042a			TRAP_0420:
042a e007       |    |		Load	0x0,0x7
042b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
042c 010f       |    |		Execute	Exception,Equal
042d 6802       |h   |		Jump_Zero	0x430
042e e2bc       |    |		Load	0x1,0xbc
042f 0257       | W  |		Execute	Discrete,Raise
0430 0100       |    |		Execute	Exception,Raise
0431 0000 0000  |    |		.BLANK	0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0442       | B  |		.CONST	0x0442								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c 8263       | c  |		Call	0x1,0x63
043d e006       |    |		Load	0x0,0x6
043e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
043f e007       |    |		Load	0x0,0x7
0440 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0441 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0442			TRAP_0438:
0442 e007       |    |		Load	0x0,0x7
0443 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0444 010f       |    |		Execute	Exception,Equal
0445 6802       |h   |		Jump_Zero	0x448
0446 e2bc       |    |		Load	0x1,0xbc
0447 0257       | W  |		Execute	Discrete,Raise
0448 0100       |    |		Execute	Exception,Raise
0449 0000 0000  |    |		.BLANK	0000[0x7]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 045a       | Z  |		.CONST	0x045a								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 8263       | c  |		Call	0x1,0x63
0455 e006       |    |		Load	0x0,0x6
0456 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0457 e007       |    |		Load	0x0,0x7
0458 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0459 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
045a			TRAP_0450:
045a e007       |    |		Load	0x0,0x7
045b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
045c 010f       |    |		Execute	Exception,Equal
045d 6802       |h   |		Jump_Zero	0x460
045e e2bc       |    |		Load	0x1,0xbc
045f 0257       | W  |		Execute	Discrete,Raise
0460 0100       |    |		Execute	Exception,Raise
0461 0000 0000  |    |		.BLANK	0000[0x7]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 047a       | z  |		.CONST	0x047a								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0004       |    |		.CONST	0x0004								; Number of locals
046b			INIT_0468:
046b 4820       |H   |		Short_Literal	0x20
046c e5fe       |    |		Load	0x2,-0x2
046d e008       |    |		Load	0x0,0x8
046e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
046f 82d9       |    |		Call	0x1,0xd9
0470 00db       |    |		Load_Top	At_Offset_3
0471 8263       | c  |		Call	0x1,0x63
0472 e006       |    |		Load	0x0,0x6
0473 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0474 e007       |    |		Load	0x0,0x7
0475 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
0476 00d8       |    |		Load_Top	At_Offset_0
0477 01db       |    |		Execute	Vector,Length
0478 00e3       |    |		Load_Encached	Natural_Cache
0479 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
047a			BODY_0468:
047a 00d8       |    |		Load_Top	At_Offset_0
047b 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
047c 681d       |h   |		Jump_Zero	0x49a
047d 00da       |    |		Load_Top	At_Offset_2
047e 01db       |    |		Execute	Vector,Length
047f 7002       |p   |		Jump_Nonzero	0x482
0480 00ea       |    |		Load_Encached	Null_String_Cache
0481 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0482 00da       |    |		Load_Top	At_Offset_2
0483 01db       |    |		Execute	Vector,Length
0484 00d9       |    |		Load_Top	At_Offset_1
0485 027c       | |  |		Execute	Discrete,Less
0486 6804       |h   |		Jump_Zero	0x48b
0487 00da       |    |		Load_Top	At_Offset_2
0488 00da       |    |		Load_Top	At_Offset_2
0489 01cc       |    |		Execute	Vector,Catenate
048a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
048b 4801       |H   |		Short_Literal	0x1
048c 00db       |    |		Load_Top	At_Offset_3
048d 00db       |    |		Load_Top	At_Offset_3
048e e008       |    |		Load	0x0,0x8
048f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0490 00db       |    |		Load_Top	At_Offset_3
0491 01dc       |    |		Execute	Vector,Last
0492 027f       |    |		Execute	Discrete,Equal
0493 6802       |h   |		Jump_Zero	0x496
0494 00da       |    |		Load_Top	At_Offset_2
0495 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0496 00da       |    |		Load_Top	At_Offset_2
0497 00da       |    |		Load_Top	At_Offset_2
0498 01cc       |    |		Execute	Vector,Catenate
0499 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
049a 00da       |    |		Load_Top	At_Offset_2
049b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
049c 0000 0000  |    |		.BLANK	0000[0x4]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a9       |    |		.CONST	0x04a9								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0003       |    |		.CONST	0x0003								; Number of locals
04a3			INIT_04a0:
04a3 00db       |    |		Load_Top	At_Offset_3
04a4 00db       |    |		Load_Top	At_Offset_3
04a5 826f       | o  |		Call	0x1,0x6f
04a6 e5fd       |    |		Load	0x2,-0x3
04a7 e5ff       |    |		Load	0x2,-0x1
04a8 826f       | o  |		Call	0x1,0x6f
04a9			BODY_04a0:
04a9 00d9       |    |		Load_Top	At_Offset_1
04aa 00d9       |    |		Load_Top	At_Offset_1
04ab 01cc       |    |		Execute	Vector,Catenate
04ac 82d9       |    |		Call	0x1,0xd9
04ad 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04ae 0000 0000  |    |		.XXX[0x2]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b7       |    |		.CONST	0x04b7								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0002       |    |		.CONST	0x0002								; Number of locals
04b3			INIT_04b0:
04b3 00da       |    |		Load_Top	At_Offset_2
04b4 e5fe       |    |		Load	0x2,-0x2
04b5 e5fd       |    |		Load	0x2,-0x3
04b6 82da       |    |		Call	0x1,0xda
04b7			BODY_04b0:
04b7 00d8       |    |		Load_Top	At_Offset_0
04b8 01db       |    |		Execute	Vector,Length
04b9 7007       |p   |		Jump_Nonzero	0x4c1
04ba e5fe       |    |		Load	0x2,-0x2
04bb e5ff       |    |		Load	0x2,-0x1
04bc 826f       | o  |		Call	0x1,0x6f
04bd e5fd       |    |		Load	0x2,-0x3
04be 01cc       |    |		Execute	Vector,Catenate
04bf 82d9       |    |		Call	0x1,0xd9
04c0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04c1 00d8       |    |		Load_Top	At_Offset_0
04c2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04c3 0000 0000  |    |		.BLANK	0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 04d7       |    |		.CONST	0x04d7								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 8263       | c  |		Call	0x1,0x63
04cd e006       |    |		Load	0x0,0x6
04ce 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04cf e007       |    |		Load	0x0,0x7
04d0 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
04d1 00d8       |    |		Load_Top	At_Offset_0
04d2 00e4       |    |		Load_Encached	Positive_Cache
04d3 0260       | `  |		Execute	Discrete,In_Type
04d4 7001       |p   |		Jump_Nonzero	0x4d6
04d5 0801       |    |		Execute_Immediate	Raise,0x1
04d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d7			TRAP_04c8:
04d7 e007       |    |		Load	0x0,0x7
04d8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
04d9 010f       |    |		Execute	Exception,Equal
04da 6802       |h   |		Jump_Zero	0x4dd
04db e2bc       |    |		Load	0x1,0xbc
04dc 0257       | W  |		Execute	Discrete,Raise
04dd 0100       |    |		Execute	Exception,Raise
04de 0000 0000  |    |		.XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3       |    |		.CONST	0x04e3								; Address of begin
04e1 04ea       |    |		.CONST	0x04ea								; Address of exception handler
04e2 0001       |    |		.CONST	0x0001								; Number of locals
04e3			BODY_04e0:
04e3			INIT_04e0:
04e3 00da       |    |		Load_Top	At_Offset_2
04e4 8263       | c  |		Call	0x1,0x63
04e5 e006       |    |		Load	0x0,0x6
04e6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e7 e007       |    |		Load	0x0,0x7
04e8 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
04e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ea			TRAP_04e0:
04ea e007       |    |		Load	0x0,0x7
04eb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
04ec 010f       |    |		Execute	Exception,Equal
04ed 6802       |h   |		Jump_Zero	0x4f0
04ee e2bc       |    |		Load	0x1,0xbc
04ef 0257       | W  |		Execute	Discrete,Raise
04f0 0100       |    |		Execute	Exception,Raise
04f1 0000 0000  |    |		.BLANK	0000[0x7]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 4607       |F   |		Jump_Case	0x8
04fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
04fd 7806       |x   |		Jump	0x504								; case 0x1
04fe 7809       |x   |		Jump	0x508								; case 0x2
04ff 780d       |x   |		Jump	0x50d								; case 0x3
0500 7810       |x   |		Jump	0x511								; case 0x4
0501 7811       |x   |		Jump	0x513								; case 0x5
0502 7812       |x   |		Jump	0x515								; case 0x6
0503 7815       |x   |		Jump	0x519								; case 0x7
0504 00da       |    |		Load_Top	At_Offset_2
0505 0091 0b7b  |   {|		Action	Push_String_Extended_Indexed,0xb7b				; "ADA_SPEC"
0507 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0508 00db       |    |		Load_Top	At_Offset_3
0509 00db       |    |		Load_Top	At_Offset_3
050a 00e0       |    |		Load_Encached	Standard_Cache
050b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
050c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
050d 00da       |    |		Load_Top	At_Offset_2
050e 00e0       |    |		Load_Encached	Standard_Cache
050f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0510 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0511 00db       |    |		Load_Top	At_Offset_3
0512 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0513 00db       |    |		Load_Top	At_Offset_3
0514 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0515 e2b3       |    |		Load	0x1,0xb3
0516 00dc       |    |		Load_Top	At_Offset_4
0517 0267       | g  |		Execute	Discrete,Predecessor
0518 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0519 e2b3       |    |		Load	0x1,0xb3
051a 00dc       |    |		Load_Top	At_Offset_4
051b 0268       | h  |		Execute	Discrete,Successor
051c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
051d 0000 0000  |    |		.XXX[0x3]
051f 0000       |    |
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 053a       | :  |		.CONST	0x053a								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 00db       |    |		Load_Top	At_Offset_3
0524 4603       |F   |		Jump_Case	0x4
0525 7805       |x   |		Jump	0x52b								; case 0x0
0526 780b       |x   |		Jump	0x532								; case 0x1
0527 7811       |x   |		Jump	0x539								; case 0x2
0528 7800       |x   |		Jump	0x529								; case 0x3
0529 00ea       |    |		Load_Encached	Null_String_Cache
052a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
052b 00da       |    |		Load_Top	At_Offset_2
052c 8263       | c  |		Call	0x1,0x63
052d e006       |    |		Load	0x0,0x6
052e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
052f e007       |    |		Load	0x0,0x7
0530 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0531 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0532 00da       |    |		Load_Top	At_Offset_2
0533 8263       | c  |		Call	0x1,0x63
0534 e006       |    |		Load	0x0,0x6
0535 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0536 e007       |    |		Load	0x0,0x7
0537 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
0538 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0539 0833       | 3  |		Execute_Immediate	Raise,0x33
053a			TRAP_0520:
053a e007       |    |		Load	0x0,0x7
053b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
053c 010f       |    |		Execute	Exception,Equal
053d 6802       |h   |		Jump_Zero	0x540
053e e2bc       |    |		Load	0x1,0xbc
053f 0257       | W  |		Execute	Discrete,Raise
0540 0100       |    |		Execute	Exception,Raise
0541 0000 0000  |    |		.BLANK	0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 00db       |    |		Load_Top	At_Offset_3
054c 00db       |    |		Load_Top	At_Offset_3
054d 8276       | v  |		Call	0x1,0x76
054e 00db       |    |		Load_Top	At_Offset_3
054f 8274       | t  |		Call	0x1,0x74
0550 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0551 0000 0000  |    |		.BLANK	0000[0x7]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0562       | b  |		.CONST	0x0562								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0002       |    |		.CONST	0x0002								; Number of locals
055b			INIT_0558:
055b e002       |    |		Load	0x0,0x2
055c 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
055d 02c7       |    |		Declare_Variable	Any
055e e5fe       |    |		Load	0x2,-0x2
055f e002       |    |		Load	0x0,0x2
0560 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0561 a402       |    |		Store_Unchecked	0x2,0x2
0562			BODY_0558:
0562 00d8       |    |		Load_Top	At_Offset_0
0563 e009       |    |		Load	0x0,0x9
0564 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0565 012f       | /  |		Execute	Any,Equal
0566 680e       |h   |		Jump_Zero	0x575
0567 e5fe       |    |		Load	0x2,-0x2
0568 e00a       |    |		Load	0x0,0xa
0569 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
056a 6802       |h   |		Jump_Zero	0x56d
056b 4800       |H   |		Short_Literal	0x0
056c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
056d e5fe       |    |		Load	0x2,-0x2
056e e00a       |    |		Load	0x0,0xa
056f 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0570 6802       |h   |		Jump_Zero	0x573
0571 4801       |H   |		Short_Literal	0x1
0572 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0573 4803       |H   |		Short_Literal	0x3
0574 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0575 00d8       |    |		Load_Top	At_Offset_0
0576 e009       |    |		Load	0x0,0x9
0577 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0578 012f       | /  |		Execute	Any,Equal
0579 6802       |h   |		Jump_Zero	0x57c
057a 4802       |H   |		Short_Literal	0x2
057b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
057c 4803       |H   |		Short_Literal	0x3
057d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
057e 0000 0000  |    |		.XXX[0x2]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 05a5       |    |		.CONST	0x05a5								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0009       |    |		.CONST	0x0009								; Number of locals
0583			INIT_0580:
0583 00db       |    |		Load_Top	At_Offset_3
0584 e002       |    |		Load	0x0,0x2
0585 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0586 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0587 00d8       |    |		Load_Top	At_Offset_0
0588 e002       |    |		Load	0x0,0x2
0589 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
058a 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
058b e5ff       |    |		Load	0x2,-0x1
058c 82c2       |    |		Call	0x1,0xc2
058d e5fe       |    |		Load	0x2,-0x2
058e e5ff       |    |		Load	0x2,-0x1
058f 8276       | v  |		Call	0x1,0x76
0590 e2b3       |    |		Load	0x1,0xb3
0591 03f1       |    |		Declare_Variable	Discrete,With_Value
0592 e5fd       |    |		Load	0x2,-0x3
0593 00d9       |    |		Load_Top	At_Offset_1
0594 82db       |    |		Call	0x1,0xdb
0595 e5ff       |    |		Load	0x2,-0x1
0596 82c2       |    |		Call	0x1,0xc2
0597 00d8       |    |		Load_Top	At_Offset_0
0598 e5ff       |    |		Load	0x2,-0x1
0599 82d0       |    |		Call	0x1,0xd0
059a 01cc       |    |		Execute	Vector,Catenate
059b 00da       |    |		Load_Top	At_Offset_2
059c e5ff       |    |		Load	0x2,-0x1
059d 8274       | t  |		Call	0x1,0x74
059e 01cc       |    |		Execute	Vector,Catenate
059f 0007       |    |		Action	Break_Optional
05a0 00e3       |    |		Load_Encached	Natural_Cache
05a1 029f 0a8b  |    |		Declare_Subprogram	INIT_0a88,For_Call
05a3 029f 0aa3  |    |		Declare_Subprogram	INIT_0aa0,For_Call
05a5			BODY_0580:
05a5 8408       |    |		Call	0x2,0x8
05a6 e404       |    |		Load	0x2,0x4
05a7 0f02       |    |		Execute_Immediate	Equal,0x2
05a8 6802       |h   |		Jump_Zero	0x5ab
05a9 8409       |    |		Call	0x2,0x9
05aa 784e       |xN  |		Jump	0x5f9
05ab e403       |    |		Load	0x2,0x3
05ac 01dd       |    |		Execute	Vector,First
05ad e5ff       |    |		Load	0x2,-0x1
05ae 8272       | r  |		Call	0x1,0x72
05af 0273       | s  |		Execute	Discrete,Plus
05b0 e405       |    |		Load	0x2,0x5
05b1 01db       |    |		Execute	Vector,Length
05b2 0272       | r  |		Execute	Discrete,Minus
05b3 0aff       |    |		Execute_Immediate	Plus,-0x1
05b4 005b       | [  |		Store_Top	Discrete,At_Offset_3
05b5 00da       |    |		Load_Top	At_Offset_2
05b6 e403       |    |		Load	0x2,0x3
05b7 01dc       |    |		Execute	Vector,Last
05b8 027b       | {  |		Execute	Discrete,Greater_Equal
05b9 6804       |h   |		Jump_Zero	0x5be
05ba e403       |    |		Load	0x2,0x3
05bb e406       |    |		Load	0x2,0x6
05bc 01cc       |    |		Execute	Vector,Catenate
05bd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05be 00da       |    |		Load_Top	At_Offset_2
05bf e403       |    |		Load	0x2,0x3
05c0 01dd       |    |		Execute	Vector,First
05c1 027c       | |  |		Execute	Discrete,Less
05c2 6820       |h   |		Jump_Zero	0x5e3
05c3 e00b       |    |		Load	0x0,0xb
05c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05c5 4801       |H   |		Short_Literal	0x1
05c6 4802       |H   |		Short_Literal	0x2
05c7 e00c       |    |		Load	0x0,0xc
05c8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05c9 035b       | [  |		Declare_Type	Array,Constrained
05ca 0337       | 7  |		Declare_Variable	Array
05cb e402       |    |		Load	0x2,0x2
05cc e00c       |    |		Load	0x0,0xc
05cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05ce e00c       |    |		Load	0x0,0xc
05cf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05d0 0119       |    |		Execute	Any,Check_In_Formal_Type
05d1 4801       |H   |		Short_Literal	0x1
05d2 00da       |    |		Load_Top	At_Offset_2
05d3 01d6       |    |		Execute	Vector,Field_Write
05d4 e5ff       |    |		Load	0x2,-0x1
05d5 8272       | r  |		Call	0x1,0x72
05d6 e00c       |    |		Load	0x0,0xc
05d7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05d8 e00c       |    |		Load	0x0,0xc
05d9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05da 0119       |    |		Execute	Any,Check_In_Formal_Type
05db 4802       |H   |		Short_Literal	0x2
05dc 00da       |    |		Load_Top	At_Offset_2
05dd 01d6       |    |		Execute	Vector,Field_Write
05de 601d       |`   |		Indirect_Literal	Discrete,0x5fc,{0x00000000, 0x000081b8}
05df e00d       |    |		Load	0x0,0xd
05e0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
05e1 00ea       |    |		Load_Encached	Null_String_Cache
05e2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05e3 00da       |    |		Load_Top	At_Offset_2
05e4 e403       |    |		Load	0x2,0x3
05e5 01d7       |    |		Execute	Vector,Field_Read
05e6 0f5f       | _  |		Execute_Immediate	Equal,0x5f
05e7 6809       |h   |		Jump_Zero	0x5f1
05e8 e403       |    |		Load	0x2,0x3
05e9 01dd       |    |		Execute	Vector,First
05ea 00db       |    |		Load_Top	At_Offset_3
05eb 0aff       |    |		Execute_Immediate	Plus,-0x1
05ec e403       |    |		Load	0x2,0x3
05ed 01cf       |    |		Execute	Vector,Slice_Read
05ee e406       |    |		Load	0x2,0x6
05ef 01cc       |    |		Execute	Vector,Catenate
05f0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05f1 e403       |    |		Load	0x2,0x3
05f2 01dd       |    |		Execute	Vector,First
05f3 00db       |    |		Load_Top	At_Offset_3
05f4 e403       |    |		Load	0x2,0x3
05f5 01cf       |    |		Execute	Vector,Slice_Read
05f6 e406       |    |		Load	0x2,0x6
05f7 01cc       |    |		Execute	Vector,Catenate
05f8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05f9 0831       | 1  |		Execute_Immediate	Raise,0x31
05fa 0000 0000  |    |		.XXX[0x2]
05fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b8}
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0607       |    |		.CONST	0x0607								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0002       |    |		.CONST	0x0002								; Number of locals
0603			INIT_0600:
0603 00da       |    |		Load_Top	At_Offset_2
0604 e5fd       |    |		Load	0x2,-0x3
0605 e5fe       |    |		Load	0x2,-0x2
0606 82da       |    |		Call	0x1,0xda
0607			BODY_0600:
0607 00d8       |    |		Load_Top	At_Offset_0
0608 01db       |    |		Execute	Vector,Length
0609 7007       |p   |		Jump_Nonzero	0x611
060a e5fd       |    |		Load	0x2,-0x3
060b e5ff       |    |		Load	0x2,-0x1
060c 826f       | o  |		Call	0x1,0x6f
060d e5fe       |    |		Load	0x2,-0x2
060e 01cc       |    |		Execute	Vector,Catenate
060f 82d9       |    |		Call	0x1,0xd9
0610 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0611 00d8       |    |		Load_Top	At_Offset_0
0612 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0613 0000 0000  |    |		.BLANK	0000[0x5]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0623       | #  |		.CONST	0x0623								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0002       |    |		.CONST	0x0002								; Number of locals
061b			INIT_0618:
061b 4801       |H   |		Short_Literal	0x1
061c e5fe       |    |		Load	0x2,-0x2
061d e5ff       |    |		Load	0x2,-0x1
061e 82d0       |    |		Call	0x1,0xd0
061f e008       |    |		Load	0x0,0x8
0620 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0621 00e3       |    |		Load_Encached	Natural_Cache
0622 03f1       |    |		Declare_Variable	Discrete,With_Value
0623			BODY_0618:
0623 00d8       |    |		Load_Top	At_Offset_0
0624 7004       |p   |		Jump_Nonzero	0x629
0625 e5fe       |    |		Load	0x2,-0x2
0626 0335       | 5  |		Declare_Variable	Array,Duplicate
0627 00cd       |    |		Action	Spare6_Action
0628 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0629 e5fe       |    |		Load	0x2,-0x2
062a 01dd       |    |		Execute	Vector,First
062b 00d9       |    |		Load_Top	At_Offset_1
062c e5ff       |    |		Load	0x2,-0x1
062d 82d0       |    |		Call	0x1,0xd0
062e 01db       |    |		Execute	Vector,Length
062f 0272       | r  |		Execute	Discrete,Minus
0630 00d8       |    |		Load_Top	At_Offset_0
0631 00e2       |    |		Load_Encached	Integer_Cache
0632 0260       | `  |		Execute	Discrete,In_Type
0633 7001       |p   |		Jump_Nonzero	0x635
0634 0801       |    |		Execute_Immediate	Raise,0x1
0635 e5fe       |    |		Load	0x2,-0x2
0636 01cf       |    |		Execute	Vector,Slice_Read
0637 0335       | 5  |		Declare_Variable	Array,Duplicate
0638 00cd       |    |		Action	Spare6_Action
0639 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
063a 0000 0000  |    |		.BLANK	0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 064b       | K  |		.CONST	0x064b								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0002       |    |		.CONST	0x0002								; Number of locals
0643			INIT_0640:
0643 4801       |H   |		Short_Literal	0x1
0644 e5fe       |    |		Load	0x2,-0x2
0645 e5ff       |    |		Load	0x2,-0x1
0646 82d0       |    |		Call	0x1,0xd0
0647 e008       |    |		Load	0x0,0x8
0648 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0649 00e3       |    |		Load_Encached	Natural_Cache
064a 03f1       |    |		Declare_Variable	Discrete,With_Value
064b			BODY_0640:
064b 00d8       |    |		Load_Top	At_Offset_0
064c 7002       |p   |		Jump_Nonzero	0x64f
064d 00ea       |    |		Load_Encached	Null_String_Cache
064e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
064f e5fd       |    |		Load	0x2,-0x3
0650 6812       |h   |		Jump_Zero	0x663
0651 00d8       |    |		Load_Top	At_Offset_0
0652 e5ff       |    |		Load	0x2,-0x1
0653 82d0       |    |		Call	0x1,0xd0
0654 01db       |    |		Execute	Vector,Length
0655 0272       | r  |		Execute	Discrete,Minus
0656 0a01       |    |		Execute_Immediate	Plus,0x1
0657 00d8       |    |		Load_Top	At_Offset_0
0658 00e2       |    |		Load_Encached	Integer_Cache
0659 0260       | `  |		Execute	Discrete,In_Type
065a 7001       |p   |		Jump_Nonzero	0x65c
065b 0801       |    |		Execute_Immediate	Raise,0x1
065c e5fe       |    |		Load	0x2,-0x2
065d 01dc       |    |		Execute	Vector,Last
065e e5fe       |    |		Load	0x2,-0x2
065f 01cf       |    |		Execute	Vector,Slice_Read
0660 0335       | 5  |		Declare_Variable	Array,Duplicate
0661 00cd       |    |		Action	Spare6_Action
0662 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0663 00d8       |    |		Load_Top	At_Offset_0
0664 0a01       |    |		Execute_Immediate	Plus,0x1
0665 00d8       |    |		Load_Top	At_Offset_0
0666 00e2       |    |		Load_Encached	Integer_Cache
0667 0260       | `  |		Execute	Discrete,In_Type
0668 7001       |p   |		Jump_Nonzero	0x66a
0669 0801       |    |		Execute_Immediate	Raise,0x1
066a e5fe       |    |		Load	0x2,-0x2
066b 01dc       |    |		Execute	Vector,Last
066c e5fe       |    |		Load	0x2,-0x2
066d 01cf       |    |		Execute	Vector,Slice_Read
066e 0335       | 5  |		Declare_Variable	Array,Duplicate
066f 00cd       |    |		Action	Spare6_Action
0670 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0671 0000 0000  |    |		.BLANK	0000[0x7]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b       | {  |		.CONST	0x067b								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0001       |    |		.CONST	0x0001								; Number of locals
067b			BODY_0678:
067b			INIT_0678:
067b e00e       |    |		Load	0x0,0xe
067c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
067d 0257       | W  |		Execute	Discrete,Raise
067e 0000 0000  |    |		.XXX[0x2]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 00db       |    |		Load_Top	At_Offset_3
0684 01db       |    |		Execute	Vector,Length
0685 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0686 6805       |h   |		Jump_Zero	0x68c
0687 00da       |    |		Load_Top	At_Offset_2
0688 82d0       |    |		Call	0x1,0xd0
0689 e5fe       |    |		Load	0x2,-0x2
068a 01cc       |    |		Execute	Vector,Catenate
068b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
068c 00ea       |    |		Load_Encached	Null_String_Cache
068d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
068e 0000 0000  |    |		.XXX[0x2]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693       |    |		.CONST	0x0693								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0001       |    |		.CONST	0x0001								; Number of locals
0693			BODY_0690:
0693			INIT_0690:
0693 08e2       |    |		Execute_Immediate	Raise,0xe2
0694 0000 0000  |    |		.BLANK	0000[0x4]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 06a2       |    |		.CONST	0x06a2								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b 00da       |    |		Load_Top	At_Offset_2
069c 8263       | c  |		Call	0x1,0x63
069d e006       |    |		Load	0x0,0x6
069e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
069f e007       |    |		Load	0x0,0x7
06a0 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
06a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06a2			TRAP_0698:
06a2 e007       |    |		Load	0x0,0x7
06a3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
06a4 010f       |    |		Execute	Exception,Equal
06a5 6802       |h   |		Jump_Zero	0x6a8
06a6 e2bc       |    |		Load	0x1,0xbc
06a7 0257       | W  |		Execute	Discrete,Raise
06a8 0100       |    |		Execute	Exception,Raise
06a9 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
06b4 8263       | c  |		Call	0x1,0x63
06b5 e006       |    |		Load	0x0,0x6
06b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06b7 e007       |    |		Load	0x0,0x7
06b8 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
06b9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06ba 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
06c4 8263       | c  |		Call	0x1,0x63
06c5 e006       |    |		Load	0x0,0x6
06c6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06c7 e007       |    |		Load	0x0,0x7
06c8 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
06c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06ca 0000 0000  |    |		.BLANK	0000[0x6]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3       |    |		.CONST	0x06d3								; Address of begin
06d1 06da       |    |		.CONST	0x06da								; Address of exception handler
06d2 0001       |    |		.CONST	0x0001								; Number of locals
06d3			BODY_06d0:
06d3			INIT_06d0:
06d3 00da       |    |		Load_Top	At_Offset_2
06d4 8263       | c  |		Call	0x1,0x63
06d5 e006       |    |		Load	0x0,0x6
06d6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06d7 e007       |    |		Load	0x0,0x7
06d8 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
06d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06da			TRAP_06d0:
06da e007       |    |		Load	0x0,0x7
06db 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
06dc 010f       |    |		Execute	Exception,Equal
06dd 6802       |h   |		Jump_Zero	0x6e0
06de e2bc       |    |		Load	0x1,0xbc
06df 0257       | W  |		Execute	Discrete,Raise
06e0 0100       |    |		Execute	Exception,Raise
06e1 0000 0000  |    |		.BLANK	0000[0x7]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb       |    |		.CONST	0x06eb								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0001       |    |		.CONST	0x0001								; Number of locals
06eb			BODY_06e8:
06eb			INIT_06e8:
06eb 00da       |    |		Load_Top	At_Offset_2
06ec 8263       | c  |		Call	0x1,0x63
06ed e006       |    |		Load	0x0,0x6
06ee 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06ef e007       |    |		Load	0x0,0x7
06f0 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
06f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06f2 0000 0000  |    |		.BLANK	0000[0x6]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb       |    |		.CONST	0x06fb								; Address of begin
06f9 0004       |    |		.CONST	0x0004								; Address of exception handler
06fa 0001       |    |		.CONST	0x0001								; Number of locals
06fb			BODY_06f8:
06fb			INIT_06f8:
06fb 00da       |    |		Load_Top	At_Offset_2
06fc 8263       | c  |		Call	0x1,0x63
06fd e006       |    |		Load	0x0,0x6
06fe 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06ff e007       |    |		Load	0x0,0x7
0700 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0701 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0702 0000 0000  |    |		.BLANK	0000[0x6]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b       |    |		.CONST	0x070b								; Address of begin
0709 0712       |    |		.CONST	0x0712								; Address of exception handler
070a 0001       |    |		.CONST	0x0001								; Number of locals
070b			BODY_0708:
070b			INIT_0708:
070b 00da       |    |		Load_Top	At_Offset_2
070c 8263       | c  |		Call	0x1,0x63
070d e006       |    |		Load	0x0,0x6
070e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
070f e007       |    |		Load	0x0,0x7
0710 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0711 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0712			TRAP_0708:
0712 e007       |    |		Load	0x0,0x7
0713 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0714 010f       |    |		Execute	Exception,Equal
0715 6802       |h   |		Jump_Zero	0x718
0716 e2bc       |    |		Load	0x1,0xbc
0717 0257       | W  |		Execute	Discrete,Raise
0718 0100       |    |		Execute	Exception,Raise
0719 0000 0000  |    |		.BLANK	0000[0x7]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723       | #  |		.CONST	0x0723								; Address of begin
0721 072a       | *  |		.CONST	0x072a								; Address of exception handler
0722 0001       |    |		.CONST	0x0001								; Number of locals
0723			BODY_0720:
0723			INIT_0720:
0723 00da       |    |		Load_Top	At_Offset_2
0724 8263       | c  |		Call	0x1,0x63
0725 e006       |    |		Load	0x0,0x6
0726 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0727 e007       |    |		Load	0x0,0x7
0728 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
0729 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
072a			TRAP_0720:
072a e007       |    |		Load	0x0,0x7
072b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
072c 010f       |    |		Execute	Exception,Equal
072d 6802       |h   |		Jump_Zero	0x730
072e e2bc       |    |		Load	0x1,0xbc
072f 0257       | W  |		Execute	Discrete,Raise
0730 0100       |    |		Execute	Exception,Raise
0731 0000 0000  |    |		.BLANK	0000[0x7]
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 e006       |    |		Load	0x0,0x6
073e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
073f e007       |    |		Load	0x0,0x7
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 e007       |    |		Load	0x0,0x7
0743 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
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 e006       |    |		Load	0x0,0x6
0756 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0757 e007       |    |		Load	0x0,0x7
0758 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0759 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
075a			TRAP_0750:
075a e007       |    |		Load	0x0,0x7
075b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
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 e006       |    |		Load	0x0,0x6
076e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
076f e007       |    |		Load	0x0,0x7
0770 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
0771 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0772			TRAP_0768:
0772 e007       |    |		Load	0x0,0x7
0773 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
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 e006       |    |		Load	0x0,0x6
0786 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0787 e007       |    |		Load	0x0,0x7
0788 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
0789 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078a			TRAP_0780:
078a e007       |    |		Load	0x0,0x7
078b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
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 e006       |    |		Load	0x0,0x6
079e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
079f e007       |    |		Load	0x0,0x7
07a0 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
07a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07a2			TRAP_0798:
07a2 e007       |    |		Load	0x0,0x7
07a3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
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 07b5       |    |		.CONST	0x07b5								; Address of begin
07b1 07ca       |    |		.CONST	0x07ca								; Address of exception handler
07b2 0002       |    |		.CONST	0x0002								; Number of locals
07b3			INIT_07b0:
07b3 e007       |    |		Load	0x0,0x7
07b4 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
07b5			BODY_07b0:
07b5 00db       |    |		Load_Top	At_Offset_3
07b6 8263       | c  |		Call	0x1,0x63
07b7 e006       |    |		Load	0x0,0x6
07b8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07b9 e007       |    |		Load	0x0,0x7
07ba 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
07bb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
07bc 00d8       |    |		Load_Top	At_Offset_0
07bd 4603       |F   |		Jump_Case	0x4
07be 7805       |x   |		Jump	0x7c4								; case 0x0
07bf 7806       |x   |		Jump	0x7c6								; case 0x1
07c0 7807       |x   |		Jump	0x7c8								; case 0x2
07c1 7800       |x   |		Jump	0x7c2								; case 0x3
07c2 4803       |H   |		Short_Literal	0x3
07c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07c4 4800       |H   |		Short_Literal	0x0
07c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07c6 4801       |H   |		Short_Literal	0x1
07c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07c8 4802       |H   |		Short_Literal	0x2
07c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07ca			TRAP_07b0:
07ca e007       |    |		Load	0x0,0x7
07cb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
07cc 010f       |    |		Execute	Exception,Equal
07cd 6802       |h   |		Jump_Zero	0x7d0
07ce e2bc       |    |		Load	0x1,0xbc
07cf 0257       | W  |		Execute	Discrete,Raise
07d0 0100       |    |		Execute	Exception,Raise
07d1 0000 0000  |    |		.BLANK	0000[0x7]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db       |    |		.CONST	0x07db								; Address of begin
07d9 07e7       |    |		.CONST	0x07e7								; Address of exception handler
07da 0001       |    |		.CONST	0x0001								; Number of locals
07db			BODY_07d8:
07db			INIT_07d8:
07db 00da       |    |		Load_Top	At_Offset_2
07dc 8263       | c  |		Call	0x1,0x63
07dd e006       |    |		Load	0x0,0x6
07de 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07df e007       |    |		Load	0x0,0x7
07e0 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
07e1 00d8       |    |		Load_Top	At_Offset_0
07e2 00e4       |    |		Load_Encached	Positive_Cache
07e3 0260       | `  |		Execute	Discrete,In_Type
07e4 7001       |p   |		Jump_Nonzero	0x7e6
07e5 0801       |    |		Execute_Immediate	Raise,0x1
07e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07e7			TRAP_07d8:
07e7 e007       |    |		Load	0x0,0x7
07e8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
07e9 010f       |    |		Execute	Exception,Equal
07ea 6802       |h   |		Jump_Zero	0x7ed
07eb e2bc       |    |		Load	0x1,0xbc
07ec 0257       | W  |		Execute	Discrete,Raise
07ed 0100       |    |		Execute	Exception,Raise
07ee 0000 0000  |    |		.XXX[0x2]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3       |    |		.CONST	0x07f3								; Address of begin
07f1 0004       |    |		.CONST	0x0004								; Address of exception handler
07f2 0001       |    |		.CONST	0x0001								; Number of locals
07f3			BODY_07f0:
07f3			INIT_07f0:
07f3 00da       |    |		Load_Top	At_Offset_2
07f4 82d3       |    |		Call	0x1,0xd3
07f5 6817       |h   |		Jump_Zero	0x80d
07f6 00da       |    |		Load_Top	At_Offset_2
07f7 82b6       |    |		Call	0x1,0xb6
07f8 4603       |F   |		Jump_Case	0x4
07f9 7807       |x   |		Jump	0x801								; case 0x0
07fa 780a       |x   |		Jump	0x805								; case 0x1
07fb 780d       |x   |		Jump	0x809								; case 0x2
07fc 7800       |x   |		Jump	0x7fd								; case 0x3
07fd 00db       |    |		Load_Top	At_Offset_3
07fe 0335       | 5  |		Declare_Variable	Array,Duplicate
07ff 00cd       |    |		Action	Spare6_Action
0800 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0801 00db       |    |		Load_Top	At_Offset_3
0802 e008       |    |		Load	0x0,0x8
0803 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0804 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0805 00db       |    |		Load_Top	At_Offset_3
0806 e008       |    |		Load	0x0,0x8
0807 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0808 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0809 00db       |    |		Load_Top	At_Offset_3
080a e008       |    |		Load	0x0,0x8
080b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
080c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
080d 00db       |    |		Load_Top	At_Offset_3
080e 0335       | 5  |		Declare_Variable	Array,Duplicate
080f 00cd       |    |		Action	Spare6_Action
0810 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0811 0000 0000  |    |		.BLANK	0000[0x7]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 00da       |    |		Load_Top	At_Offset_2
081c 827d       | }  |		Call	0x1,0x7d
081d 00db       |    |		Load_Top	At_Offset_3
081e 82dc       |    |		Call	0x1,0xdc
081f 01cc       |    |		Execute	Vector,Catenate
0820 e5fd       |    |		Load	0x2,-0x3
0821 01cc       |    |		Execute	Vector,Catenate
0822 00db       |    |		Load_Top	At_Offset_3
0823 82dc       |    |		Call	0x1,0xdc
0824 01cc       |    |		Execute	Vector,Catenate
0825 e5fe       |    |		Load	0x2,-0x2
0826 01cc       |    |		Execute	Vector,Catenate
0827 00db       |    |		Load_Top	At_Offset_3
0828 82dc       |    |		Call	0x1,0xdc
0829 01cc       |    |		Execute	Vector,Catenate
082a e5fc       |    |		Load	0x2,-0x4
082b 01cc       |    |		Execute	Vector,Catenate
082c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
082d 0000 0000  |    |		.XXX[0x3]
082f 0000       |    |
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833       | 3  |		.CONST	0x0833								; Address of begin
0831 0004       |    |		.CONST	0x0004								; Address of exception handler
0832 0001       |    |		.CONST	0x0001								; Number of locals
0833			BODY_0830:
0833			INIT_0830:
0833 00da       |    |		Load_Top	At_Offset_2
0834 8287       |    |		Call	0x1,0x87
0835 00db       |    |		Load_Top	At_Offset_3
0836 82dc       |    |		Call	0x1,0xdc
0837 01cc       |    |		Execute	Vector,Catenate
0838 e5fd       |    |		Load	0x2,-0x3
0839 01cc       |    |		Execute	Vector,Catenate
083a 00db       |    |		Load_Top	At_Offset_3
083b 82dc       |    |		Call	0x1,0xdc
083c 01cc       |    |		Execute	Vector,Catenate
083d e5fe       |    |		Load	0x2,-0x2
083e 01cc       |    |		Execute	Vector,Catenate
083f 00db       |    |		Load_Top	At_Offset_3
0840 82dc       |    |		Call	0x1,0xdc
0841 01cc       |    |		Execute	Vector,Catenate
0842 e5fc       |    |		Load	0x2,-0x4
0843 01cc       |    |		Execute	Vector,Catenate
0844 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0845 0000 0000  |    |		.XXX[0x3]
0847 0000       |    |
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 00da       |    |		Load_Top	At_Offset_2
084c 828c       |    |		Call	0x1,0x8c
084d 00db       |    |		Load_Top	At_Offset_3
084e 82dc       |    |		Call	0x1,0xdc
084f 01cc       |    |		Execute	Vector,Catenate
0850 e5fd       |    |		Load	0x2,-0x3
0851 01cc       |    |		Execute	Vector,Catenate
0852 00db       |    |		Load_Top	At_Offset_3
0853 82dc       |    |		Call	0x1,0xdc
0854 01cc       |    |		Execute	Vector,Catenate
0855 e5fe       |    |		Load	0x2,-0x2
0856 01cc       |    |		Execute	Vector,Catenate
0857 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
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 01db       |    |		Execute	Vector,Length
085d 6810       |h   |		Jump_Zero	0x86e
085e 00da       |    |		Load_Top	At_Offset_2
085f 8290       |    |		Call	0x1,0x90
0860 00db       |    |		Load_Top	At_Offset_3
0861 82d5       |    |		Call	0x1,0xd5
0862 01cc       |    |		Execute	Vector,Catenate
0863 e5fc       |    |		Load	0x2,-0x4
0864 01cc       |    |		Execute	Vector,Catenate
0865 00db       |    |		Load_Top	At_Offset_3
0866 82dc       |    |		Call	0x1,0xdc
0867 01cc       |    |		Execute	Vector,Catenate
0868 e5fd       |    |		Load	0x2,-0x3
0869 e5fe       |    |		Load	0x2,-0x2
086a e5ff       |    |		Load	0x2,-0x1
086b 8270       | p  |		Call	0x1,0x70
086c 01cc       |    |		Execute	Vector,Catenate
086d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
086e 00da       |    |		Load_Top	At_Offset_2
086f 8290       |    |		Call	0x1,0x90
0870 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0871 0000 0000  |    |		.BLANK	0000[0x7]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087b       | {  |		.CONST	0x087b								; Address of begin
0879 0004       |    |		.CONST	0x0004								; Address of exception handler
087a 0001       |    |		.CONST	0x0001								; Number of locals
087b			BODY_0878:
087b			INIT_0878:
087b 4801       |H   |		Short_Literal	0x1
087c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
087d 0000 0000  |    |		.XXX[0x3]
087f 0000       |    |
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883       |    |		.CONST	0x0883								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0001       |    |		.CONST	0x0001								; Number of locals
0883			BODY_0880:
0883			INIT_0880:
0883 4801       |H   |		Short_Literal	0x1
0884 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0885 0000 0000  |    |		.XXX[0x3]
0887 0000       |    |
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 0891       |    |		.CONST	0x0891								; Address of begin
0889 0896       |    |		.CONST	0x0896								; Address of exception handler
088a 0002       |    |		.CONST	0x0002								; Number of locals
088b			INIT_0888:
088b e262       | b  |		Load	0x1,0x62
088c 0322       | "  |		Declare_Variable	Record
088d 00db       |    |		Load_Top	At_Offset_3
088e 8267       | g  |		Call	0x1,0x67
088f 00d9       |    |		Load_Top	At_Offset_1
0890 017d       | }  |		Execute	Record,Structure_Write
0891			BODY_0888:
0891 00d8       |    |		Load_Top	At_Offset_0
0892 8263       | c  |		Call	0x1,0x63
0893 e003       |    |		Load	0x0,0x3
0894 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0895 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0896			TRAP_0888:
0896 010e       |    |		Execute	Exception,Is_Constraint_Error
0897 6803       |h   |		Jump_Zero	0x89b
0898 0092 0b7f  |    |		Action	Push_String_Extended,0xb7f					; "<UNREGISTERED>"
089a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
089b 0100       |    |		Execute	Exception,Raise
089c 0000 0000  |    |		.BLANK	0000[0x4]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3       |    |		.CONST	0x08a3								; Address of begin
08a1 0004       |    |		.CONST	0x0004								; Address of exception handler
08a2 0001       |    |		.CONST	0x0001								; Number of locals
08a3			BODY_08a0:
08a3			INIT_08a0:
08a3 00da       |    |		Load_Top	At_Offset_2
08a4 00e0       |    |		Load_Encached	Standard_Cache
08a5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
08a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08a7 0000       |    |		.XXX[0x1]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08bd       |    |		.CONST	0x08bd								; Address of begin
08a9 0004       |    |		.CONST	0x0004								; Address of exception handler
08aa 0003       |    |		.CONST	0x0003								; Number of locals
08ab			INIT_08a8:
08ab e007       |    |		Load	0x0,0x7
08ac 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
08ad 0337       | 7  |		Declare_Variable	Array
08ae e00f       |    |		Load	0x0,0xf
08af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08b0 0337       | 7  |		Declare_Variable	Array
08b1 00d8       |    |		Load_Top	At_Offset_0
08b2 0335       | 5  |		Declare_Variable	Array,Duplicate
08b3 00cd       |    |		Action	Spare6_Action
08b4 4808       |H   |		Short_Literal	0x8
08b5 4800       |H   |		Short_Literal	0x0
08b6 4800       |H   |		Short_Literal	0x0
08b7 00d9       |    |		Load_Top	At_Offset_1
08b8 e404       |    |		Load	0x2,0x4
08b9 01d6       |    |		Execute	Vector,Field_Write
08ba 3ffb       |?   |		Loop_Increasing	0x8b6
08bb 00d9       |    |		Load_Top	At_Offset_1
08bc 01d4       |    |		Execute	Vector,Structure_Write
08bd			BODY_08a8:
08bd e5ff       |    |		Load	0x2,-0x1
08be 8267       | g  |		Call	0x1,0x67
08bf 8263       | c  |		Call	0x1,0x63
08c0 e006       |    |		Load	0x0,0x6
08c1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08c2 e007       |    |		Load	0x0,0x7
08c3 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
08c4 00da       |    |		Load_Top	At_Offset_2
08c5 01d4       |    |		Execute	Vector,Structure_Write
08c6 00cf       |    |		Action	Mark_Auxiliary
08c7 4804       |H   |		Short_Literal	0x4
08c8 4800       |H   |		Short_Literal	0x0
08c9 0007       |    |		Action	Break_Optional
08ca 00d8       |    |		Load_Top	At_Offset_0
08cb e402       |    |		Load	0x2,0x2
08cc 01d7       |    |		Execute	Vector,Field_Read
08cd 00d9       |    |		Load_Top	At_Offset_1
08ce 00d8       |    |		Load_Top	At_Offset_0
08cf e00f       |    |		Load	0x0,0xf
08d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08d1 0260       | `  |		Execute	Discrete,In_Type
08d2 7001       |p   |		Jump_Nonzero	0x8d4
08d3 0801       |    |		Execute_Immediate	Raise,0x1
08d4 e403       |    |		Load	0x2,0x3
08d5 01d6       |    |		Execute	Vector,Field_Write
08d6 00c8       |    |		Action	Pop_Auxiliary_Range
08d7 3ff2       |?   |		Loop_Increasing	0x8ca
08d8 00ce       |    |		Action	Pop_Auxiliary
08d9 00d8       |    |		Load_Top	At_Offset_0
08da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08db 0000 0000  |    |		.BLANK	0000[0x5]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e5       |    |		.CONST	0x08e5								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0002       |    |		.CONST	0x0002								; Number of locals
08e3			INIT_08e0:
08e3 e007       |    |		Load	0x0,0x7
08e4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
08e5			BODY_08e0:
08e5 00db       |    |		Load_Top	At_Offset_3
08e6 8263       | c  |		Call	0x1,0x63
08e7 e006       |    |		Load	0x0,0x6
08e8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08e9 e007       |    |		Load	0x0,0x7
08ea 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
08eb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
08ec 00d8       |    |		Load_Top	At_Offset_0
08ed 0f01       |    |		Execute_Immediate	Equal,0x1
08ee 7002       |p   |		Jump_Nonzero	0x8f1
08ef 4801       |H   |		Short_Literal	0x1
08f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f1 4800       |H   |		Short_Literal	0x0
08f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f3 0000 0000  |    |		.BLANK	0000[0x5]
08f8 ; --------------------------------------------------------------------------------------
08f8 ; SUBPROGRAM
08f8 ; --------------------------------------------------------------------------------------
08f8 0900       |    |		.CONST	0x0900								; Address of begin
08f9 0914       |    |		.CONST	0x0914								; Address of exception handler
08fa 0002       |    |		.CONST	0x0002								; Number of locals
08fb			INIT_08f8:
08fb e002       |    |		Load	0x0,0x2
08fc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
08fd 02ff       |    |		Declare_Variable	Variant_Record
08fe 00d8       |    |		Load_Top	At_Offset_0
08ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0900			BODY_08f8:
0900 e5fd       |    |		Load	0x2,-0x3
0901 4801       |H   |		Short_Literal	0x1
0902 e5fd       |    |		Load	0x2,-0x3
0903 4801       |H   |		Short_Literal	0x1
0904 e5fe       |    |		Load	0x2,-0x2
0905 e00a       |    |		Load	0x0,0xa
0906 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0907 e00a       |    |		Load	0x0,0xa
0908 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0909 00d9       |    |		Load_Top	At_Offset_1
090a 016d       | m  |		Execute	Variant_Record,Structure_Write
090b 600c       |`   |		Indirect_Literal	Discrete,0x918,{0x00000000, 0x00004000}
090c e010       |    |		Load	0x0,0x10
090d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
090e 0092 0b80  |    |		Action	Push_String_Extended,0xb80					; "Ftp.Remote_Machine"
0910 00db       |    |		Load_Top	At_Offset_3
0911 e011       |    |		Load	0x0,0x11
0912 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0913 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0914			TRAP_08f8:
0914 0007       |    |		Action	Break_Optional
0915 00ea       |    |		Load_Encached	Null_String_Cache
0916 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0917 0000       |    |		.XXX[0x1]
0918 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
091c 0000 0000  |    |		.BLANK	0000[0x4]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0928       | (  |		.CONST	0x0928								; Address of begin
0921 093c       | <  |		.CONST	0x093c								; Address of exception handler
0922 0002       |    |		.CONST	0x0002								; Number of locals
0923			INIT_0920:
0923 e002       |    |		Load	0x0,0x2
0924 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0925 02ff       |    |		Declare_Variable	Variant_Record
0926 00d8       |    |		Load_Top	At_Offset_0
0927 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0928			BODY_0920:
0928 e5fd       |    |		Load	0x2,-0x3
0929 4801       |H   |		Short_Literal	0x1
092a e5fd       |    |		Load	0x2,-0x3
092b 4801       |H   |		Short_Literal	0x1
092c e5fe       |    |		Load	0x2,-0x2
092d e00a       |    |		Load	0x0,0xa
092e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
092f e00a       |    |		Load	0x0,0xa
0930 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0931 00d9       |    |		Load_Top	At_Offset_1
0932 016d       | m  |		Execute	Variant_Record,Structure_Write
0933 67e4       |g   |		Indirect_Literal	Discrete,0x918,{0x00000000, 0x00004000}
0934 e010       |    |		Load	0x0,0x10
0935 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0936 0092 0b81  |    |		Action	Push_String_Extended,0xb81					; "Ftp.Remote_Directory"
0938 00db       |    |		Load_Top	At_Offset_3
0939 e011       |    |		Load	0x0,0x11
093a 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
093b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
093c			TRAP_0920:
093c 0007       |    |		Action	Break_Optional
093d 00ea       |    |		Load_Encached	Null_String_Cache
093e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
093f 0000       |    |		.XXX[0x1]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0952       | R  |		.CONST	0x0952								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0005       |    |		.CONST	0x0005								; Number of locals
0943			INIT_0940:
0943 e00b       |    |		Load	0x0,0xb
0944 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0945 02c7       |    |		Declare_Variable	Any
0946 e00b       |    |		Load	0x0,0xb
0947 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0948 a402       |    |		Store_Unchecked	0x2,0x2
0949 e00d       |    |		Load	0x0,0xd
094a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
094b e002       |    |		Load	0x0,0x2
094c 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
094d 0322       | "  |		Declare_Variable	Record
094e 00d8       |    |		Load_Top	At_Offset_0
094f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0950 029f 0b1b  |    |		Declare_Subprogram	INIT_0b18,For_Call
0952			BODY_0940:
0952 8405       |    |		Call	0x2,0x5
0953 00db       |    |		Load_Top	At_Offset_3
0954 00da       |    |		Load_Top	At_Offset_2
0955 e012       |    |		Load	0x0,0x12
0956 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0957 00da       |    |		Load_Top	At_Offset_2
0958 e402       |    |		Load	0x2,0x2
0959 00db       |    |		Load_Top	At_Offset_3
095a e013       |    |		Load	0x0,0x13
095b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
095c 005b       | [  |		Store_Top	Discrete,At_Offset_3
095d 4800       |H   |		Short_Literal	0x0
095e 00db       |    |		Load_Top	At_Offset_3
095f e00d       |    |		Load	0x0,0xd
0960 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0961 7000       |p   |		Jump_Nonzero	0x962
0962 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0963 0000 0000  |    |		.BLANK	0000[0x5]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b       | k  |		.CONST	0x096b								; Address of begin
0969 0004       |    |		.CONST	0x0004								; Address of exception handler
096a 0001       |    |		.CONST	0x0001								; Number of locals
096b			BODY_0968:
096b			INIT_0968:
096b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0974 0000 0000  |    |		.BLANK	0000[0x4]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097b       | {  |		.CONST	0x097b								; Address of begin
0979 0004       |    |		.CONST	0x0004								; Address of exception handler
097a 0001       |    |		.CONST	0x0001								; Number of locals
097b			BODY_0978:
097b			INIT_0978:
097b 00da       |    |		Load_Top	At_Offset_2
097c 829e       |    |		Call	0x1,0x9e
097d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
097e 0000 0000  |    |		.XXX[0x2]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983       |    |		.CONST	0x0983								; Address of begin
0981 0004       |    |		.CONST	0x0004								; Address of exception handler
0982 0001       |    |		.CONST	0x0001								; Number of locals
0983			BODY_0980:
0983			INIT_0980:
0983 00da       |    |		Load_Top	At_Offset_2
0984 0f00       |    |		Execute_Immediate	Equal,0x0
0985 00d8       |    |		Load_Top	At_Offset_0
0986 e2c6       |    |		Load	0x1,0xc6
0987 0260       | `  |		Execute	Discrete,In_Type
0988 7001       |p   |		Jump_Nonzero	0x98a
0989 0801       |    |		Execute_Immediate	Raise,0x1
098a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
098b 0000 0000  |    |		.BLANK	0000[0x5]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993       |    |		.CONST	0x0993								; Address of begin
0991 0004       |    |		.CONST	0x0004								; Address of exception handler
0992 0001       |    |		.CONST	0x0001								; Number of locals
0993			BODY_0990:
0993			INIT_0990:
0993 4801       |H   |		Short_Literal	0x1
0994 0092 0b82  |    |		Action	Push_String_Extended,0xb82					; "Assemble"
0996 e5ff       |    |		Load	0x2,-0x1
0997 e008       |    |		Load	0x0,0x8
0998 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0999 6810       |h   |		Jump_Zero	0x9aa
099a e2c5       |    |		Load	0x1,0xc5
099b 0337       | 7  |		Declare_Variable	Array
099c 4801       |H   |		Short_Literal	0x1
099d 4800       |H   |		Short_Literal	0x0
099e 00da       |    |		Load_Top	At_Offset_2
099f 01d6       |    |		Execute	Vector,Field_Write
09a0 4804       |H   |		Short_Literal	0x4
09a1 4801       |H   |		Short_Literal	0x1
09a2 4800       |H   |		Short_Literal	0x0
09a3 00d9       |    |		Load_Top	At_Offset_1
09a4 e402       |    |		Load	0x2,0x2
09a5 01d6       |    |		Execute	Vector,Field_Write
09a6 3ffb       |?   |		Loop_Increasing	0x9a2
09a7 e2c5       |    |		Load	0x1,0xc5
09a8 01c3       |    |		Execute	Vector,Check_In_Type
09a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09aa 4801       |H   |		Short_Literal	0x1
09ab 0092 0b83  |    |		Action	Push_String_Extended,0xb83					; "Promote"
09ad e5ff       |    |		Load	0x2,-0x1
09ae e008       |    |		Load	0x0,0x8
09af 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
09b0 6814       |h   |		Jump_Zero	0x9c5
09b1 e2c5       |    |		Load	0x1,0xc5
09b2 0337       | 7  |		Declare_Variable	Array
09b3 4801       |H   |		Short_Literal	0x1
09b4 4801       |H   |		Short_Literal	0x1
09b5 00da       |    |		Load_Top	At_Offset_2
09b6 01d6       |    |		Execute	Vector,Field_Write
09b7 4800       |H   |		Short_Literal	0x0
09b8 4800       |H   |		Short_Literal	0x0
09b9 00da       |    |		Load_Top	At_Offset_2
09ba 01d6       |    |		Execute	Vector,Field_Write
09bb 4804       |H   |		Short_Literal	0x4
09bc 4802       |H   |		Short_Literal	0x2
09bd 4800       |H   |		Short_Literal	0x0
09be 00d9       |    |		Load_Top	At_Offset_1
09bf e402       |    |		Load	0x2,0x2
09c0 01d6       |    |		Execute	Vector,Field_Write
09c1 3ffb       |?   |		Loop_Increasing	0x9bd
09c2 e2c5       |    |		Load	0x1,0xc5
09c3 01c3       |    |		Execute	Vector,Check_In_Type
09c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09c5 4801       |H   |		Short_Literal	0x1
09c6 0092 0b84  |    |		Action	Push_String_Extended,0xb84					; "Demote"
09c8 e5ff       |    |		Load	0x2,-0x1
09c9 e008       |    |		Load	0x0,0x8
09ca 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
09cb 6819       |h   |		Jump_Zero	0x9e5
09cc e2c5       |    |		Load	0x1,0xc5
09cd 0337       | 7  |		Declare_Variable	Array
09ce 4801       |H   |		Short_Literal	0x1
09cf 4802       |H   |		Short_Literal	0x2
09d0 00da       |    |		Load_Top	At_Offset_2
09d1 01d6       |    |		Execute	Vector,Field_Write
09d2 4800       |H   |		Short_Literal	0x0
09d3 4800       |H   |		Short_Literal	0x0
09d4 00da       |    |		Load_Top	At_Offset_2
09d5 01d6       |    |		Execute	Vector,Field_Write
09d6 4800       |H   |		Short_Literal	0x0
09d7 4801       |H   |		Short_Literal	0x1
09d8 00da       |    |		Load_Top	At_Offset_2
09d9 01d6       |    |		Execute	Vector,Field_Write
09da 4800       |H   |		Short_Literal	0x0
09db 4803       |H   |		Short_Literal	0x3
09dc 00da       |    |		Load_Top	At_Offset_2
09dd 01d6       |    |		Execute	Vector,Field_Write
09de 4800       |H   |		Short_Literal	0x0
09df 4804       |H   |		Short_Literal	0x4
09e0 00da       |    |		Load_Top	At_Offset_2
09e1 01d6       |    |		Execute	Vector,Field_Write
09e2 e2c5       |    |		Load	0x1,0xc5
09e3 01c3       |    |		Execute	Vector,Check_In_Type
09e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09e5 4801       |H   |		Short_Literal	0x1
09e6 0092 0b85  |    |		Action	Push_String_Extended,0xb85					; "Bind"
09e8 e5ff       |    |		Load	0x2,-0x1
09e9 e008       |    |		Load	0x0,0x8
09ea 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
09eb 6814       |h   |		Jump_Zero	0xa00
09ec e2c5       |    |		Load	0x1,0xc5
09ed 0337       | 7  |		Declare_Variable	Array
09ee 4801       |H   |		Short_Literal	0x1
09ef 4803       |H   |		Short_Literal	0x3
09f0 00da       |    |		Load_Top	At_Offset_2
09f1 01d6       |    |		Execute	Vector,Field_Write
09f2 4802       |H   |		Short_Literal	0x2
09f3 4800       |H   |		Short_Literal	0x0
09f4 4800       |H   |		Short_Literal	0x0
09f5 00d9       |    |		Load_Top	At_Offset_1
09f6 e402       |    |		Load	0x2,0x2
09f7 01d6       |    |		Execute	Vector,Field_Write
09f8 3ffb       |?   |		Loop_Increasing	0x9f4
09f9 4800       |H   |		Short_Literal	0x0
09fa 4804       |H   |		Short_Literal	0x4
09fb 00da       |    |		Load_Top	At_Offset_2
09fc 01d6       |    |		Execute	Vector,Field_Write
09fd e2c5       |    |		Load	0x1,0xc5
09fe 01c3       |    |		Execute	Vector,Check_In_Type
09ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a00 4801       |H   |		Short_Literal	0x1
0a01 0092 0b86  |    |		Action	Push_String_Extended,0xb86					; "Link"
0a03 e5ff       |    |		Load	0x2,-0x1
0a04 e008       |    |		Load	0x0,0x8
0a05 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0a06 6810       |h   |		Jump_Zero	0xa17
0a07 e2c5       |    |		Load	0x1,0xc5
0a08 0337       | 7  |		Declare_Variable	Array
0a09 4801       |H   |		Short_Literal	0x1
0a0a 4804       |H   |		Short_Literal	0x4
0a0b 00da       |    |		Load_Top	At_Offset_2
0a0c 01d6       |    |		Execute	Vector,Field_Write
0a0d 4803       |H   |		Short_Literal	0x3
0a0e 4800       |H   |		Short_Literal	0x0
0a0f 4800       |H   |		Short_Literal	0x0
0a10 00d9       |    |		Load_Top	At_Offset_1
0a11 e402       |    |		Load	0x2,0x2
0a12 01d6       |    |		Execute	Vector,Field_Write
0a13 3ffb       |?   |		Loop_Increasing	0xa0f
0a14 e2c5       |    |		Load	0x1,0xc5
0a15 01c3       |    |		Execute	Vector,Check_In_Type
0a16 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a17 0831       | 1  |		Execute_Immediate	Raise,0x31
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a1d       |    |		.CONST	0x0a1d								; Address of begin
0a19 0004       |    |		.CONST	0x0004								; Address of exception handler
0a1a 0002       |    |		.CONST	0x0002								; Number of locals
0a1b			INIT_0a18:
0a1b 029f 0b43  |   C|		Declare_Subprogram	INIT_0b40,For_Call
0a1d			BODY_0a18:
0a1d 00db       |    |		Load_Top	At_Offset_3
0a1e 01dd       |    |		Execute	Vector,First
0a1f 0f01       |    |		Execute_Immediate	Equal,0x1
0a20 6802       |h   |		Jump_Zero	0xa23
0a21 00db       |    |		Load_Top	At_Offset_3
0a22 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a23 8402       |    |		Call	0x2,0x2
0a24 0831       | 1  |		Execute_Immediate	Raise,0x31
0a25 0000 0000  |    |		.XXX[0x3]
0a27 0000       |    |
0a28 ; --------------------------------------------------------------------------------------
0a28 ; SUBPROGRAM
0a28 ; --------------------------------------------------------------------------------------
0a28 0a2b       | +  |		.CONST	0x0a2b								; Address of begin
0a29 0004       |    |		.CONST	0x0004								; Address of exception handler
0a2a 0001       |    |		.CONST	0x0001								; Number of locals
0a2b			BODY_0a28:
0a2b			INIT_0a28:
0a2b e5fd       |    |		Load	0x2,-0x3
0a2c 8263       | c  |		Call	0x1,0x63
0a2d e006       |    |		Load	0x0,0x6
0a2e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a2f e007       |    |		Load	0x0,0x7
0a30 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
0a31 0f04       |    |		Execute_Immediate	Equal,0x4
0a32 680d       |h   |		Jump_Zero	0xa40
0a33 0092 0b87  |    |		Action	Push_String_Extended,0xb87					; "'"
0a35 e5fe       |    |		Load	0x2,-0x2
0a36 01cc       |    |		Execute	Vector,Catenate
0a37 0092 0b88  |    |		Action	Push_String_Extended,0xb88					; "("
0a39 01cc       |    |		Execute	Vector,Catenate
0a3a 00db       |    |		Load_Top	At_Offset_3
0a3b 01cc       |    |		Execute	Vector,Catenate
0a3c 0092 0b89  |    |		Action	Push_String_Extended,0xb89					; ")'"
0a3e 01cc       |    |		Execute	Vector,Catenate
0a3f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a40 00ea       |    |		Load_Encached	Null_String_Cache
0a41 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a42 0000 0000  |    |		.BLANK	0000[0x6]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a4b       | K  |		.CONST	0x0a4b								; Address of begin
0a49 0004       |    |		.CONST	0x0004								; Address of exception handler
0a4a 0001       |    |		.CONST	0x0001								; Number of locals
0a4b			BODY_0a48:
0a4b			INIT_0a48:
0a4b 00da       |    |		Load_Top	At_Offset_2
0a4c 4603       |F   |		Jump_Case	0x4
0a4d 7805       |x   |		Jump	0xa53								; case 0x0
0a4e 7811       |x   |		Jump	0xa60								; case 0x1
0a4f 781d       |x   |		Jump	0xa6d								; case 0x2
0a50 7800       |x   |		Jump	0xa51								; case 0x3
0a51 00ea       |    |		Load_Encached	Null_String_Cache
0a52 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a53 0092 0b8a  |    |		Action	Push_String_Extended,0xb8a					; "_"
0a55 4820       |H   |		Short_Literal	0x20
0a56 4800       |H   |		Short_Literal	0x0
0a57 480a       |H   |		Short_Literal	0xa
0a58 e5fe       |    |		Load	0x2,-0x2
0a59 e008       |    |		Load	0x0,0x8
0a5a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a5b 01cc       |    |		Execute	Vector,Catenate
0a5c 0092 0b8b  |    |		Action	Push_String_Extended,0xb8b					; "_s"
0a5e 01cc       |    |		Execute	Vector,Catenate
0a5f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a60 0092 0b8a  |    |		Action	Push_String_Extended,0xb8a					; "_"
0a62 4820       |H   |		Short_Literal	0x20
0a63 4800       |H   |		Short_Literal	0x0
0a64 480a       |H   |		Short_Literal	0xa
0a65 e5fe       |    |		Load	0x2,-0x2
0a66 e008       |    |		Load	0x0,0x8
0a67 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a68 01cc       |    |		Execute	Vector,Catenate
0a69 0092 0b8c  |    |		Action	Push_String_Extended,0xb8c					; "_b"
0a6b 01cc       |    |		Execute	Vector,Catenate
0a6c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a6d 0092 0b8a  |    |		Action	Push_String_Extended,0xb8a					; "_"
0a6f 4820       |H   |		Short_Literal	0x20
0a70 4800       |H   |		Short_Literal	0x0
0a71 480a       |H   |		Short_Literal	0xa
0a72 e5fe       |    |		Load	0x2,-0x2
0a73 e008       |    |		Load	0x0,0x8
0a74 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a75 01cc       |    |		Execute	Vector,Catenate
0a76 0092 0b8d  |    |		Action	Push_String_Extended,0xb8d					; "_t"
0a78 01cc       |    |		Execute	Vector,Catenate
0a79 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a7a 0000 0000  |    |		.BLANK	0000[0x6]
0a80 ; --------------------------------------------------------------------------------------
0a80 ; SUBPROGRAM
0a80 ; --------------------------------------------------------------------------------------
0a80 0a83       |    |		.CONST	0x0a83								; Address of begin
0a81 0004       |    |		.CONST	0x0004								; Address of exception handler
0a82 0001       |    |		.CONST	0x0001								; Number of locals
0a83			BODY_0a80:
0a83			INIT_0a80:
0a83 0092 0b8e  |    |		Action	Push_String_Extended,0xb8e					; " "
0a85 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0a86 0000 0000  |    |		.XXX[0x2]
0a88 ; --------------------------------------------------------------------------------------
0a88 ; SUBPROGRAM
0a88 ; --------------------------------------------------------------------------------------
0a88 0a92       |    |		.CONST	0x0a92								; Address of begin
0a89 0004       |    |		.CONST	0x0004								; Address of exception handler
0a8a 0002       |    |		.CONST	0x0002								; Number of locals
0a8b			INIT_0a88:
0a8b e5ff       |    |		Load	0x2,-0x1
0a8c 8263       | c  |		Call	0x1,0x63
0a8d e5fd       |    |		Load	0x2,-0x3
0a8e e404       |    |		Load	0x2,0x4
0a8f e5fe       |    |		Load	0x2,-0x2
0a90 e014       |    |		Load	0x0,0x14
0a91 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a92			BODY_0a88:
0a92 00d8       |    |		Load_Top	At_Offset_0
0a93 01db       |    |		Execute	Vector,Length
0a94 6803       |h   |		Jump_Zero	0xa98
0a95 00d8       |    |		Load_Top	At_Offset_0
0a96 00cb       |    |		Action	Pop_Block_With_Result
0a97 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a98 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a99 0000 0000  |    |		.BLANK	0000[0x7]
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; SUBPROGRAM
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0abd       |    |		.CONST	0x0abd								; Address of begin
0aa1 0004       |    |		.CONST	0x0004								; Address of exception handler
0aa2 0003       |    |		.CONST	0x0003								; Number of locals
0aa3			INIT_0aa0:
0aa3 e00b       |    |		Load	0x0,0xb
0aa4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0aa5 4800       |H   |		Short_Literal	0x0
0aa6 e402       |    |		Load	0x2,0x2
0aa7 01dd       |    |		Execute	Vector,First
0aa8 e402       |    |		Load	0x2,0x2
0aa9 01dc       |    |		Execute	Vector,Last
0aaa 0af4       |    |		Execute_Immediate	Plus,-0xc
0aab 00d8       |    |		Load_Top	At_Offset_0
0aac 00e2       |    |		Load_Encached	Integer_Cache
0aad 0260       | `  |		Execute	Discrete,In_Type
0aae 7001       |p   |		Jump_Nonzero	0xab0
0aaf 0801       |    |		Execute_Immediate	Raise,0x1
0ab0 e402       |    |		Load	0x2,0x2
0ab1 01cf       |    |		Execute	Vector,Slice_Read
0ab2 e00a       |    |		Load	0x0,0xa
0ab3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ab4 e002       |    |		Load	0x0,0x2
0ab5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0ab6 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0ab7 00d8       |    |		Load_Top	At_Offset_0
0ab8 e002       |    |		Load	0x0,0x2
0ab9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0aba 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0abb e5ff       |    |		Load	0x2,-0x1
0abc 82c2       |    |		Call	0x1,0xc2
0abd			BODY_0aa0:
0abd 00d8       |    |		Load_Top	At_Offset_0
0abe 01dd       |    |		Execute	Vector,First
0abf e5ff       |    |		Load	0x2,-0x1
0ac0 8272       | r  |		Call	0x1,0x72
0ac1 0273       | s  |		Execute	Discrete,Plus
0ac2 e405       |    |		Load	0x2,0x5
0ac3 01db       |    |		Execute	Vector,Length
0ac4 0272       | r  |		Execute	Discrete,Minus
0ac5 0aff       |    |		Execute_Immediate	Plus,-0x1
0ac6 c407       |    |		Store	0x2,0x7
0ac7 e407       |    |		Load	0x2,0x7
0ac8 00d9       |    |		Load_Top	At_Offset_1
0ac9 01dc       |    |		Execute	Vector,Last
0aca 027b       | {  |		Execute	Discrete,Greater_Equal
0acb 6805       |h   |		Jump_Zero	0xad1
0acc 00d8       |    |		Load_Top	At_Offset_0
0acd e406       |    |		Load	0x2,0x6
0ace 01cc       |    |		Execute	Vector,Catenate
0acf 00cb       |    |		Action	Pop_Block_With_Result
0ad0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0ad1 e407       |    |		Load	0x2,0x7
0ad2 00d9       |    |		Load_Top	At_Offset_1
0ad3 01dd       |    |		Execute	Vector,First
0ad4 027c       | |  |		Execute	Discrete,Less
0ad5 6821       |h!  |		Jump_Zero	0xaf7
0ad6 e00b       |    |		Load	0x0,0xb
0ad7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ad8 4801       |H   |		Short_Literal	0x1
0ad9 4802       |H   |		Short_Literal	0x2
0ada e00c       |    |		Load	0x0,0xc
0adb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0adc 035b       | [  |		Declare_Type	Array,Constrained
0add 0337       | 7  |		Declare_Variable	Array
0ade e402       |    |		Load	0x2,0x2
0adf e00c       |    |		Load	0x0,0xc
0ae0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0ae1 e00c       |    |		Load	0x0,0xc
0ae2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ae3 0119       |    |		Execute	Any,Check_In_Formal_Type
0ae4 4801       |H   |		Short_Literal	0x1
0ae5 00da       |    |		Load_Top	At_Offset_2
0ae6 01d6       |    |		Execute	Vector,Field_Write
0ae7 e5ff       |    |		Load	0x2,-0x1
0ae8 8272       | r  |		Call	0x1,0x72
0ae9 e00c       |    |		Load	0x0,0xc
0aea 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0aeb e00c       |    |		Load	0x0,0xc
0aec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0aed 0119       |    |		Execute	Any,Check_In_Formal_Type
0aee 4802       |H   |		Short_Literal	0x2
0aef 00da       |    |		Load_Top	At_Offset_2
0af0 01d6       |    |		Execute	Vector,Field_Write
0af1 601e       |`   |		Indirect_Literal	Discrete,0xb10,{0x00000000, 0x000081b8}
0af2 e00d       |    |		Load	0x0,0xd
0af3 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0af4 00ea       |    |		Load_Encached	Null_String_Cache
0af5 00cb       |    |		Action	Pop_Block_With_Result
0af6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0af7 e407       |    |		Load	0x2,0x7
0af8 00d9       |    |		Load_Top	At_Offset_1
0af9 01d7       |    |		Execute	Vector,Field_Read
0afa 0f5f       | _  |		Execute_Immediate	Equal,0x5f
0afb 680a       |h   |		Jump_Zero	0xb06
0afc 00d8       |    |		Load_Top	At_Offset_0
0afd 01dd       |    |		Execute	Vector,First
0afe e407       |    |		Load	0x2,0x7
0aff 0aff       |    |		Execute_Immediate	Plus,-0x1
0b00 00da       |    |		Load_Top	At_Offset_2
0b01 01cf       |    |		Execute	Vector,Slice_Read
0b02 e406       |    |		Load	0x2,0x6
0b03 01cc       |    |		Execute	Vector,Catenate
0b04 00cb       |    |		Action	Pop_Block_With_Result
0b05 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b06 00d8       |    |		Load_Top	At_Offset_0
0b07 01dd       |    |		Execute	Vector,First
0b08 e407       |    |		Load	0x2,0x7
0b09 00da       |    |		Load_Top	At_Offset_2
0b0a 01cf       |    |		Execute	Vector,Slice_Read
0b0b e406       |    |		Load	0x2,0x6
0b0c 01cc       |    |		Execute	Vector,Catenate
0b0d 00cb       |    |		Action	Pop_Block_With_Result
0b0e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b0f 0000       |    |		.XXX[0x1]
0b10 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b8}
0b14 0000 0000  |    |		.BLANK	0000[0x4]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1b       |    |		.CONST	0x0b1b								; Address of begin
0b19 0b21       | !  |		.CONST	0x0b21								; Address of exception handler
0b1a 0001       |    |		.CONST	0x0001								; Number of locals
0b1b			BODY_0b18:
0b1b			INIT_0b18:
0b1b e5ff       |    |		Load	0x2,-0x1
0b1c e003       |    |		Load	0x0,0x3
0b1d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0b1e e404       |    |		Load	0x2,0x4
0b1f 017d       | }  |		Execute	Record,Structure_Write
0b20 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b21			TRAP_0b18:
0b21 010e       |    |		Execute	Exception,Is_Constraint_Error
0b22 6815       |h   |		Jump_Zero	0xb38
0b23 e402       |    |		Load	0x2,0x2
0b24 4801       |H   |		Short_Literal	0x1
0b25 4801       |H   |		Short_Literal	0x1
0b26 e00c       |    |		Load	0x0,0xc
0b27 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b28 035b       | [  |		Declare_Type	Array,Constrained
0b29 0337       | 7  |		Declare_Variable	Array
0b2a e5ff       |    |		Load	0x2,-0x1
0b2b e00c       |    |		Load	0x0,0xc
0b2c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b2d e00c       |    |		Load	0x0,0xc
0b2e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b2f 0119       |    |		Execute	Any,Check_In_Formal_Type
0b30 4801       |H   |		Short_Literal	0x1
0b31 00da       |    |		Load_Top	At_Offset_2
0b32 01d6       |    |		Execute	Vector,Field_Write
0b33 6008       |`   |		Indirect_Literal	Discrete,0xb3c,{0x00000000, 0x00008181}
0b34 e00d       |    |		Load	0x0,0xd
0b35 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0b36 00cc       |    |		Action	Pop_Block
0b37 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b38 0100       |    |		Execute	Exception,Raise
0b39 0000 0000  |    |		.XXX[0x3]
0b3b 0000       |    |
0b3c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008181}
0b40 ; --------------------------------------------------------------------------------------
0b40 ; SUBPROGRAM
0b40 ; --------------------------------------------------------------------------------------
0b40 0b51       | Q  |		.CONST	0x0b51								; Address of begin
0b41 0004       |    |		.CONST	0x0004								; Address of exception handler
0b42 0002       |    |		.CONST	0x0002								; Number of locals
0b43			INIT_0b40:
0b43 4801       |H   |		Short_Literal	0x1
0b44 e5ff       |    |		Load	0x2,-0x1
0b45 01db       |    |		Execute	Vector,Length
0b46 00d8       |    |		Load_Top	At_Offset_0
0b47 00e2       |    |		Load_Encached	Integer_Cache
0b48 0260       | `  |		Execute	Discrete,In_Type
0b49 7001       |p   |		Jump_Nonzero	0xb4b
0b4a 0801       |    |		Execute_Immediate	Raise,0x1
0b4b 00e9       |    |		Load_Encached	String_Cache
0b4c 035b       | [  |		Declare_Type	Array,Constrained
0b4d 0337       | 7  |		Declare_Variable	Array
0b4e e5ff       |    |		Load	0x2,-0x1
0b4f 00d9       |    |		Load_Top	At_Offset_1
0b50 01d4       |    |		Execute	Vector,Structure_Write
0b51			BODY_0b40:
0b51 00d8       |    |		Load_Top	At_Offset_0
0b52 00e9       |    |		Load_Encached	String_Cache
0b53 01c6       |    |		Execute	Vector,Convert_To_Formal
0b54 00cb       |    |		Action	Pop_Block_With_Result
0b55 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b56 0000 0000  |    |		.XXX[0x2]
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b5b       | [  |		.CONST	0x0b5b								; Address of begin
0b59 0004       |    |		.CONST	0x0004								; Address of exception handler
0b5a 0001       |    |		.CONST	0x0001								; Number of locals
0b5b			BODY_0b58:
0b5b			INIT_0b58:
0b5b 4608       |F   |		Jump_Case	0x9
0b5c 7808       |x   |		Jump	0xb65								; case 0x0
0b5d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0b5e 780a       |x   |		Jump	0xb69								; case 0x2
0b5f 7809       |x   |		Jump	0xb69								; case 0x3
0b60 7808       |x   |		Jump	0xb69								; case 0x4
0b61 7807       |x   |		Jump	0xb69								; case 0x5
0b62 7806       |x   |		Jump	0xb69								; case 0x6
0b63 7805       |x   |		Jump	0xb69								; case 0x7
0b64 7804       |x   |		Jump	0xb69								; case 0x8
0b65 00da       |    |		Load_Top	At_Offset_2
0b66 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0b67 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b68 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0b69 0869       | i  |		Execute_Immediate	Raise,0x69
0b6a ; --------------------------------------------------------------------------------------
0b6a ; STRING TABLE
0b6a ; --------------------------------------------------------------------------------------
0b6a 004c       | L  |		.STRTAB	0x004c->0x0b90							; "UPPER"
0b6b 004f       | O  |		.STRTAB	0x004f->0x0b92							; "LOWER"
0b6c 0052       | R  |		.STRTAB	0x0052->0x0b95							; "CAPITALIZE"
0b6d 005a       | Z  |		.STRTAB	0x005a->0x0b9a							; "DONT_CARE"
0b6e 0061       | a  |		.STRTAB	0x0061->0x0b9e							; "ASSEMBLE"
0b6f 0067       | g  |		.STRTAB	0x0067->0x0ba2							; "PROMOTE"
0b70 006c       | l  |		.STRTAB	0x006c->0x0ba6							; "DEMOTE"
0b71 0070       | p  |		.STRTAB	0x0070->0x0ba9							; "BIND"
0b72 0072       | r  |		.STRTAB	0x0072->0x0bab							; "LINK"
0b73 0074       | t  |		.STRTAB	0x0074->0x0bad							; "ON_NORMAL"
0b74 007b       | {  |		.STRTAB	0x007b->0x0bb1							; "ON_ERROR"
0b75 0081       |    |		.STRTAB	0x0081->0x0bb5							; "ON_WARNING"
0b76 0089       |    |		.STRTAB	0x0089->0x0bba							; "ALWAYS"
0b77 008d       |    |		.STRTAB	0x008d->0x0bbd							; "FTP"
0b78 008e       |    |		.STRTAB	0x008e->0x0bbf							; "DTIA"
0b79 0090       |    |		.STRTAB	0x0090->0x0bc1							; "TEXT"
0b7a 0092       |    |		.STRTAB	0x0092->0x0bc3							; "BINARY"
0b7b 0096       |    |		.STRTAB	0x0096->0x0bc6							; "ADA_SPEC"
0b7c 009c       |    |		.STRTAB	0x009c->0x0bca							; "ADA_BODY"
0b7d 00a2       |    |		.STRTAB	0x00a2->0x0bce							; "SECONDARY"
0b7e 00a9       |    |		.STRTAB	0x00a9->0x0bd2							; "UNKNOWN"
0b7f 00ae       |    |		.STRTAB	0x00ae->0x0bd6							; "<UNREGISTERED>"
0b80 00ba       |    |		.STRTAB	0x00ba->0x0bdd							; "Ftp.Remote_Machine"
0b81 00ca       |    |		.STRTAB	0x00ca->0x0be6							; "Ftp.Remote_Directory"
0b82 00dc       |    |		.STRTAB	0x00dc->0x0bf0							; "Assemble"
0b83 00e2       |    |		.STRTAB	0x00e2->0x0bf4							; "Promote"
0b84 00e7       |    |		.STRTAB	0x00e7->0x0bf7							; "Demote"
0b85 00eb       |    |		.STRTAB	0x00eb->0x0bfa							; "Bind"
0b86 00ed       |    |		.STRTAB	0x00ed->0x0bfc							; "Link"
0b87 00ef       |    |		.STRTAB	0x00ef->0x0bfe							; "'"
0b88 00ee       |    |		.STRTAB	0x00ee->0x0bff							; "("
0b89 00ed       |    |		.STRTAB	0x00ed->0x0bff							; ")'"
0b8a 00ed       |    |		.STRTAB	0x00ed->0x0c00							; "_"
0b8b 00ec       |    |		.STRTAB	0x00ec->0x0c01							; "_s"
0b8c 00ec       |    |		.STRTAB	0x00ec->0x0c02							; "_b"
0b8d 00ec       |    |		.STRTAB	0x00ec->0x0c03							; "_t"
0b8e 00ec       |    |		.STRTAB	0x00ec->0x0c04							; " "
0b8f 00eb       |    |		.STREND 0x00eb->0x0c04
0b90 5550 5045  |UPPE|		.STRTAB_STRINGS
0c05 0000 0000  |    |		.XXX[0x3]
0c07 0000       |    |
0c08 ; --------------------------------------------------------------------------------------
0c08 ; Debug Table
0c08 ; --------------------------------------------------------------------------------------
0c08 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xf65d,0x0000,0x0001,0x0000
0c0e 0000 0000  |    |		.BLANK	0000[0x2c]
0c3a 0083 1831  |   1|		.XXX[0x17]
0c3c 0000 0000  |    |
0c3e 0000 0050  |   P|
0c40 4504 d003  |E   |
0c42 8ea3 3b17  |  ; |
0c44 0039 2980  | 9) |
0c46 0000 0005  |    |
0c48 0000 0000  |    |
0c4a 022c cc00  | ,  |
0c4c 736b 8000  |sk  |
0c4e 0000 0721  |   !|
0c50 7800       |x   |
0c51 0000 0000  |    |		.BLANK	0000[0x7]
0c58 0096 9800  |    |		.XXX[0x1d]
0c5a 1ccb a000  |    |
0c5c 0000 0550  |   P|
0c5e 0001 c94c  |   L|
0c60 0000 0000  |    |
0c62 0180 0000  |    |
0c64 0007 2c44  |  ,D|
0c66 2240 00e6  |"@  |
0c68 d700 0000  |    |
0c6a 000e 6280  |  b |
0c6c 01d5 4b06  |  K |
0c6e 3900 2b5d  |9 +]|
0c70 c000 0000  |    |
0c72 0399 7400  |  t |
0c74 e4a6       |    |
0c75 0000 0000  |    |		.BLANK	0000[0x7]
0c7c 001c fb60  |   `|		.XXX[0x13]
0c7e 0003 9620  |    |
0c80 0000 009d  |    |
0c82 8b80 1d11  |    |
0c84 e000 0000  |    |
0c86 0540 0000  | @  |
0c88 0001 1666  |   f|
0c8a 003a b000  | :  |
0c8c 0000 0003  |    |
0c8e a060       | `  |
0c8f 0000 0000  |    |		.BLANK	0000[0x8]
0c97 4b4c 000e  |KL  |		.XXX[0x1d]
0c99 a460 0000  | `  |
0c9b 0001 d000  |    |
0c9d 00e8 8f00  |    |
0c9f 0000 0001  |    |
0ca1 4000 0000  |@   |
0ca3 03a5 c611  |    |
0ca5 2000 7560  |  u`|
0ca7 0000 0000  |    |
0ca9 0750 8800  | P  |
0cab ee8e 831c  |    |
0cad 8015 aee0  |    |
0caf 0000 0001  |    |
0cb1 d48c 0074  |   t|
0cb3 4780       |G   |
0cb4 0000 0000  |    |		.BLANK	0000[0x7]
0cbb 0ebc 4000  |  @ |		.XXX[0x13]
0cbd 01d2 e200  |    |
0cbf 0000 4ec5  |  N |
0cc1 c00e c780  |    |
0cc3 0000 0001  |    |
0cc5 4000 0000  |@   |
0cc7 008b 3300  |  3 |
0cc9 1dd5 2000  |    |
0ccb 0000 01d8  |    |
0ccd 0200       |    |
0cce 0000 0000  |    |		.BLANK	0000[0x7]
0cd5 0025 a600  | %  |		.XXX[0x1d]
0cd7 0771 7800  | qx |
0cd9 0000 0124  |   $|
0cdb 0000 763c  |  v<|
0cdd 0000 0000  |    |
0cdf 00e0 0000  |    |
0ce1 0001 dab5  |    |
0ce3 0890 003b  |   ;|
0ce5 aa40 0000  | @  |
0ce7 0003 b7e8  |    |
0ce9 0000 0041  |   A|
0ceb 8e40 0ad7  | @  |
0ced 7000 0000  |p   |
0cef 00ee 2f00  |  / |
0cf1 3b1e       |;   |
0cf2 0000 0000  |    |		.BLANK	0000[0x7]
0cf9 0007 7d68  |  }h|		.XXX[0xb]
0cfb 0000 ed5a  |   Z|
0cfd 0000 0000  |    |
0cff 12b2 0043  |   C|
0d01 24cb 8800  |$   |
0d03 02b8       |    |
0d04 0000 0000  |    |		.BLANK	0000[0x4]
0d08 0043 24cb  | C$ |		.XXX[0x2c]
0d0a 0000 0036  |   6|
0d0c 0002 1013  |    |
0d0e 0000 1332  |   2|
0d10 0043 24cb  | C$ |
0d12 0000 0036  |   6|
0d14 0002 1013  |    |
0d16 0000 1532  |   2|
0d18 0043 24cb  | C$ |
0d1a 0000 0036  |   6|
0d1c 0002 1013  |    |
0d1e 0000 1632  |   2|
0d20 0043 24cb  | C$ |
0d22 0000 0036  |   6|
0d24 0002 1013  |    |
0d26 0000 1732  |   2|
0d28 0043 24cb  | C$ |
0d2a 0000 0036  |   6|
0d2c 0002 1013  |    |
0d2e 0000 17b2  |    |
0d30 0043 24cb  | C$ |
0d32 8800 0138  |   8|
0d34 0000 0000  |    |		.BLANK	0000[0x4]
0d38 0043 24cb  | C$ |		.XXX[0x24]
0d3a 0000 0036  |   6|
0d3c 0002 1013  |    |
0d3e 0000 1832  |   2|
0d40 0043 24cb  | C$ |
0d42 0000 0016  |    |
0d44 0002 1013  |    |
0d46 0000 18b2  |    |
0d48 000b 8004  |    |
0d4a 0000 0158  |   X|
0d4c 0043 28cb  | C( |
0d4e 0000 0000  |    |
0d50 0043 24cb  | C$ |
0d52 0000 04c4  |    |
0d54 0000 0000  |    |
0d56 0000 0003  |    |
0d58 0043 24cb  | C$ |
0d5a 0800 0738  |   8|
0d5c 0000 0000  |    |		.BLANK	0000[0x4]
0d60 0001 0404  |    |		.XXX[0x10]
0d62 0800 0400  |    |
0d64 0000 0000  |    |
0d66 0000 0071  |   q|
0d68 0043 24cb  | C$ |
0d6a 0000 0002  |    |
0d6c 0043 24cb  | C$ |
0d6e 0000 1440  |   @|
0d70 0000 0000  |    |		.BLANK	0000[0x7]
0d77 0037       | 7  |		.XXX[0x1]
0d78 0000 0000  |    |		.BLANK	0000[0x7]
0d7f 0006       |    |		.XXX[0x1]
0d80 0000 0000  |    |		.BLANK	0000[0x7]
0d87 0071 000b  | q  |		.XXX[0x5]
0d89 8004 0000  |    |
0d8b 0158       | X  |
0d8c 0000 0000  |    |		.BLANK	0000[0x74]