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

⟦3c70c57d1⟧

    Length: 8192 (0x2000)
    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 0f00       |    |		.CONST	0x0f00								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8009       |    |		.CONST	0x8009								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0170       | p  |		.CONST	0x0170								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0051       | Q  |		.CONST	0x0051								; Number of locals
000b			INIT_0008:
000b 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
000d 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
000f 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0011 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0013 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0015 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0017 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0019 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
001b 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
001d 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
001f 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0021 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
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 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
005d c240       | @  |		Store	0x1,0x40
005e 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0060 c241       | A  |		Store	0x1,0x41
0061 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0063 c242       | B  |		Store	0x1,0x42
0064 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0066 c243       | C  |		Store	0x1,0x43
0067 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0069 c219       |    |		Store	0x1,0x19
006a 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
006c c21a       |    |		Store	0x1,0x1a
006d 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
006f c21b       |    |		Store	0x1,0x1b
0070 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0072 c21c       |    |		Store	0x1,0x1c
0073 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0075 c21d       |    |		Store	0x1,0x1d
0076 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
0078 c21e       |    |		Store	0x1,0x1e
0079 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
007b c21f       |    |		Store	0x1,0x1f
007c 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
007e c220       |    |		Store	0x1,0x20
007f 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
0081 c221       | !  |		Store	0x1,0x21
0082 029a 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call,Visible,Unelaborated
0084 c222       | "  |		Store	0x1,0x22
0085 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
0087 c223       | #  |		Store	0x1,0x23
0088 029a 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call,Visible,Unelaborated
008a c224       | $  |		Store	0x1,0x24
008b 029a 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call,Visible,Unelaborated
008d c225       | %  |		Store	0x1,0x25
008e 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
0090 c226       | &  |		Store	0x1,0x26
0091 029a 074b  |   K|		Declare_Subprogram	INIT_0748,For_Outer_Call,Visible,Unelaborated
0093 c227       | '  |		Store	0x1,0x27
0094 029a 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Outer_Call,Visible,Unelaborated
0096 c228       | (  |		Store	0x1,0x28
0097 029a 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call,Visible,Unelaborated
0099 c229       | )  |		Store	0x1,0x29
009a 029a 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Visible,Unelaborated
009c c22a       | *  |		Store	0x1,0x2a
009d 029a 082b  |   +|		Declare_Subprogram	INIT_0828,For_Outer_Call,Visible,Unelaborated
009f c22b       | +  |		Store	0x1,0x2b
00a0 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
00a2 c22c       | ,  |		Store	0x1,0x2c
00a3 029a 0893  |    |		Declare_Subprogram	INIT_0890,For_Outer_Call,Visible,Unelaborated
00a5 c22d       | -  |		Store	0x1,0x2d
00a6 029a 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Outer_Call,Visible,Unelaborated
00a8 c22e       | .  |		Store	0x1,0x2e
00a9 029a 08ab  |    |		Declare_Subprogram	INIT_08a8,For_Outer_Call,Visible,Unelaborated
00ab c244       | D  |		Store	0x1,0x44
00ac 029a 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Outer_Call,Visible,Unelaborated
00ae c245       | E  |		Store	0x1,0x45
00af 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
00b1 c246       | F  |		Store	0x1,0x46
00b2 029a 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Outer_Call,Visible,Unelaborated
00b4 c230       | 0  |		Store	0x1,0x30
00b5 029a 08fb  |    |		Declare_Subprogram	INIT_08f8,For_Outer_Call,Visible,Unelaborated
00b7 c247       | G  |		Store	0x1,0x47
00b8 029a 090b  |    |		Declare_Subprogram	INIT_0908,For_Outer_Call,Visible,Unelaborated
00ba c231       | 1  |		Store	0x1,0x31
00bb 029a 0923  |   #|		Declare_Subprogram	INIT_0920,For_Outer_Call,Visible,Unelaborated
00bd c232       | 2  |		Store	0x1,0x32
00be 029a 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Outer_Call,Visible,Unelaborated
00c0 c248       | H  |		Store	0x1,0x48
00c1 029a 0963  |   c|		Declare_Subprogram	INIT_0960,For_Outer_Call,Visible,Unelaborated
00c3 c249       | I  |		Store	0x1,0x49
00c4 029a 0973  |   s|		Declare_Subprogram	INIT_0970,For_Outer_Call,Visible,Unelaborated
00c6 c235       | 5  |		Store	0x1,0x35
00c7 029a 09e3  |    |		Declare_Subprogram	INIT_09e0,For_Outer_Call,Visible,Unelaborated
00c9 c236       | 6  |		Store	0x1,0x36
00ca 029a 0b13  |    |		Declare_Subprogram	INIT_0b10,For_Outer_Call,Visible,Unelaborated
00cc c237       | 7  |		Store	0x1,0x37
00cd 029a 0b6b  |   k|		Declare_Subprogram	INIT_0b68,For_Outer_Call,Visible,Unelaborated
00cf c238       | 8  |		Store	0x1,0x38
00d0 029a 0b7b  |   {|		Declare_Subprogram	INIT_0b78,For_Outer_Call,Visible,Unelaborated
00d2 c239       | 9  |		Store	0x1,0x39
00d3 029a 0bcb  |    |		Declare_Subprogram	INIT_0bc8,For_Outer_Call,Visible,Unelaborated
00d5 c23a       | :  |		Store	0x1,0x3a
00d6 029a 0c1b  |    |		Declare_Subprogram	INIT_0c18,For_Outer_Call,Visible,Unelaborated
00d8 c23b       | ;  |		Store	0x1,0x3b
00d9 029a 0c53  |   S|		Declare_Subprogram	INIT_0c50,For_Outer_Call,Visible,Unelaborated
00db c23c       | <  |		Store	0x1,0x3c
00dc 029a 0c83  |    |		Declare_Subprogram	INIT_0c80,For_Outer_Call,Visible,Unelaborated
00de c23d       | =  |		Store	0x1,0x3d
00df 029a 0cb3  |    |		Declare_Subprogram	INIT_0cb0,For_Outer_Call,Visible,Unelaborated
00e1 c23e       | >  |		Store	0x1,0x3e
00e2 029a 0cfb  |    |		Declare_Subprogram	INIT_0cf8,For_Outer_Call,Visible,Unelaborated
00e4 c23f       | ?  |		Store	0x1,0x3f
00e5 029a 0d13  |    |		Declare_Subprogram	INIT_0d10,For_Outer_Call,Visible,Unelaborated
00e7 c24a       | J  |		Store	0x1,0x4a
00e8 029a 0d23  |   #|		Declare_Subprogram	INIT_0d20,For_Outer_Call,Visible,Unelaborated
00ea c24b       | K  |		Store	0x1,0x4b
00eb 029a 0d2b  |   +|		Declare_Subprogram	INIT_0d28,For_Outer_Call,Visible,Unelaborated
00ed c24e       | N  |		Store	0x1,0x4e
00ee 029a 0d3b  |   ;|		Declare_Subprogram	INIT_0d38,For_Outer_Call,Visible,Unelaborated
00f0 c250       | P  |		Store	0x1,0x50
00f1 00bf       |    |		Action	Accept_Activation
00f2 029d 0d4b  |   K|		Declare_Subprogram	INIT_0d48,For_Outer_Call
00f4 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00f5 00c7       |    |		Action	Elaborate_Subprogram
00f6 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
00f7 00c7       |    |		Action	Elaborate_Subprogram
00f8 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
00f9 00c7       |    |		Action	Elaborate_Subprogram
00fa 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
00fb 00c7       |    |		Action	Elaborate_Subprogram
00fc 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0101 00c7       |    |		Action	Elaborate_Subprogram
0102 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0103 00c7       |    |		Action	Elaborate_Subprogram
0104 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0105 00c7       |    |		Action	Elaborate_Subprogram
0106 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0107 00c7       |    |		Action	Elaborate_Subprogram
0108 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0109 00c7       |    |		Action	Elaborate_Subprogram
010a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
010b 00c7       |    |		Action	Elaborate_Subprogram
010c 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
010d 00c7       |    |		Action	Elaborate_Subprogram
010e 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
010f 00c7       |    |		Action	Elaborate_Subprogram
0110 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0111 00c7       |    |		Action	Elaborate_Subprogram
0112 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0113 00c7       |    |		Action	Elaborate_Subprogram
0114 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0115 00c7       |    |		Action	Elaborate_Subprogram
0116 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0117 00c7       |    |		Action	Elaborate_Subprogram
0118 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0119 00c7       |    |		Action	Elaborate_Subprogram
011a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
011b 00c7       |    |		Action	Elaborate_Subprogram
011c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
011d 00c7       |    |		Action	Elaborate_Subprogram
011e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
011f 00c7       |    |		Action	Elaborate_Subprogram
0120 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0121 00c7       |    |		Action	Elaborate_Subprogram
0122 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0123 00c7       |    |		Action	Elaborate_Subprogram
0124 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0125 00c7       |    |		Action	Elaborate_Subprogram
0126 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0127 00c7       |    |		Action	Elaborate_Subprogram
0128 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0129 00c7       |    |		Action	Elaborate_Subprogram
012a 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
012b 00c7       |    |		Action	Elaborate_Subprogram
012c 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
012d 00c7       |    |		Action	Elaborate_Subprogram
012e 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
012f 00c7       |    |		Action	Elaborate_Subprogram
0130 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0131 00c7       |    |		Action	Elaborate_Subprogram
0132 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0133 00c7       |    |		Action	Elaborate_Subprogram
0134 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0135 00c7       |    |		Action	Elaborate_Subprogram
0136 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0137 00c7       |    |		Action	Elaborate_Subprogram
0138 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0139 00c7       |    |		Action	Elaborate_Subprogram
013a 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
013b 00c7       |    |		Action	Elaborate_Subprogram
013c 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
013d 00c7       |    |		Action	Elaborate_Subprogram
013e 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
013f 00c7       |    |		Action	Elaborate_Subprogram
0140 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
0141 00c7       |    |		Action	Elaborate_Subprogram
0142 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
0143 00c7       |    |		Action	Elaborate_Subprogram
0144 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0145 00c7       |    |		Action	Elaborate_Subprogram
0146 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0147 00c7       |    |		Action	Elaborate_Subprogram
0148 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
0149 00c7       |    |		Action	Elaborate_Subprogram
014a 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
014b 00c7       |    |		Action	Elaborate_Subprogram
014c 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
014d 00c7       |    |		Action	Elaborate_Subprogram
014e 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
014f 00c7       |    |		Action	Elaborate_Subprogram
0150 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
0151 00c7       |    |		Action	Elaborate_Subprogram
0152 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0153 00c7       |    |		Action	Elaborate_Subprogram
0154 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0155 00c7       |    |		Action	Elaborate_Subprogram
0156 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0157 00c7       |    |		Action	Elaborate_Subprogram
0158 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0159 00c7       |    |		Action	Elaborate_Subprogram
015a 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
015b 00c7       |    |		Action	Elaborate_Subprogram
015c 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
015d 00c7       |    |		Action	Elaborate_Subprogram
015e 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
015f 00c7       |    |		Action	Elaborate_Subprogram
0160 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
0161 00c7       |    |		Action	Elaborate_Subprogram
0162 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
0163 00c7       |    |		Action	Elaborate_Subprogram
0164 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
0165 00c7       |    |		Action	Elaborate_Subprogram
0166 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
0169 00c7       |    |		Action	Elaborate_Subprogram
016a 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
016b 00c7       |    |		Action	Elaborate_Subprogram
016c 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
016d 00c7       |    |		Action	Elaborate_Subprogram
016e 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
016f 00c7       |    |		Action	Elaborate_Subprogram
0170			BODY_0008:
0170 00bc       |    |		Action	Signal_Activated
0171 00bb       |    |		Action	Signal_Completion
0172 0000 0000  |    |		.BLANK	0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0182       |    |		.CONST	0x0182								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e001       |    |		Load	0x0,0x1
017c 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
017d 02c7       |    |		Declare_Variable	Any
017e 00db       |    |		Load_Top	At_Offset_3
017f e001       |    |		Load	0x0,0x1
0180 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0181 a402       |    |		Store_Unchecked	0x2,0x2
0182			BODY_0178:
0182 00d8       |    |		Load_Top	At_Offset_0
0183 e002       |    |		Load	0x0,0x2
0184 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0185 012f       | /  |		Execute	Any,Equal
0186 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0187 0000       |    |		.XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0191       |    |		.CONST	0x0191								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c e001       |    |		Load	0x0,0x1
018d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
018e e001       |    |		Load	0x0,0x1
018f 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0190 03f1       |    |		Declare_Variable	Discrete,With_Value
0191			BODY_0188:
0191 00d8       |    |		Load_Top	At_Offset_0
0192 e003       |    |		Load	0x0,0x3
0193 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0194 027f       |    |		Execute	Discrete,Equal
0195 7013       |p   |		Jump_Nonzero	0x1a9
0196 00d8       |    |		Load_Top	At_Offset_0
0197 e003       |    |		Load	0x0,0x3
0198 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0199 027f       |    |		Execute	Discrete,Equal
019a 700c       |p   |		Jump_Nonzero	0x1a7
019b 00d8       |    |		Load_Top	At_Offset_0
019c e003       |    |		Load	0x0,0x3
019d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
019e 027f       |    |		Execute	Discrete,Equal
019f 7005       |p   |		Jump_Nonzero	0x1a5
01a0 00d8       |    |		Load_Top	At_Offset_0
01a1 e003       |    |		Load	0x0,0x3
01a2 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
01a3 027f       |    |		Execute	Discrete,Equal
01a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a5 4801       |H   |		Short_Literal	0x1
01a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a7 4801       |H   |		Short_Literal	0x1
01a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a9 4801       |H   |		Short_Literal	0x1
01aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ab 0000 0000  |    |		.BLANK	0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 e001       |    |		Load	0x0,0x1
01b5 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01b6 e003       |    |		Load	0x0,0x3
01b7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01b8 027f       |    |		Execute	Discrete,Equal
01b9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ba 0000 0000  |    |		.BLANK	0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c9       |    |		.CONST	0x01c9								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0002       |    |		.CONST	0x0002								; Number of locals
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 e001       |    |		Load	0x0,0x1
01c5 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01c6 e001       |    |		Load	0x0,0x1
01c7 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
01c8 03f1       |    |		Declare_Variable	Discrete,With_Value
01c9			BODY_01c0:
01c9 00db       |    |		Load_Top	At_Offset_3
01ca e001       |    |		Load	0x0,0x1
01cb 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01cc e003       |    |		Load	0x0,0x3
01cd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ce 027f       |    |		Execute	Discrete,Equal
01cf 7010       |p   |		Jump_Nonzero	0x1e0
01d0 00db       |    |		Load_Top	At_Offset_3
01d1 e001       |    |		Load	0x0,0x1
01d2 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01d3 e003       |    |		Load	0x0,0x3
01d4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01d5 027f       |    |		Execute	Discrete,Equal
01d6 7007       |p   |		Jump_Nonzero	0x1de
01d7 00db       |    |		Load_Top	At_Offset_3
01d8 e001       |    |		Load	0x0,0x1
01d9 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01da e003       |    |		Load	0x0,0x3
01db 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01dc 027f       |    |		Execute	Discrete,Equal
01dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01de 4801       |H   |		Short_Literal	0x1
01df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e0 4801       |H   |		Short_Literal	0x1
01e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e2 0000 0000  |    |		.BLANK	0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2
01ec e001       |    |		Load	0x0,0x1
01ed 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01ee e003       |    |		Load	0x0,0x3
01ef 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01f0 027f       |    |		Execute	Discrete,Equal
01f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f2 0000 0000  |    |		.BLANK	0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc e001       |    |		Load	0x0,0x1
01fd 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01fe e003       |    |		Load	0x0,0x3
01ff 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0200 027f       |    |		Execute	Discrete,Equal
0201 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c e001       |    |		Load	0x0,0x1
020d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
020e e003       |    |		Load	0x0,0x3
020f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0210 027f       |    |		Execute	Discrete,Equal
0211 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0212 0000 0000  |    |		.BLANK	0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021f       |    |		.CONST	0x021f								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0003       |    |		.CONST	0x0003								; Number of locals
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 8217       |    |		Call	0x1,0x17
021d 00e3       |    |		Load_Encached	Natural_Cache
021e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
021f			BODY_0218:
021f 4800       |H   |		Short_Literal	0x0
0220 00da       |    |		Load_Top	At_Offset_2
0221 482e       |H.  |		Short_Literal	0x2e
0222 e004       |    |		Load	0x0,0x4
0223 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0224 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0225 00d8       |    |		Load_Top	At_Offset_0
0226 7002       |p   |		Jump_Nonzero	0x229
0227 4800       |H   |		Short_Literal	0x0
0228 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0229 4801       |H   |		Short_Literal	0x1
022a 00da       |    |		Load_Top	At_Offset_2
022b 01dd       |    |		Execute	Vector,First
022c 00da       |    |		Load_Top	At_Offset_2
022d 0aff       |    |		Execute_Immediate	Plus,-0x1
022e e402       |    |		Load	0x2,0x2
022f 01cf       |    |		Execute	Vector,Slice_Read
0230 0092 0e57  |   W|		Action	Push_String_Extended,0xe57					; "!Targets"
0232 e004       |    |		Load	0x0,0x4
0233 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0234 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0235 0000 0000  |    |		.XXX[0x3]
0237 0000       |    |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023e       | >  |		.CONST	0x023e								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0003       |    |		.CONST	0x0003								; Number of locals
023b			INIT_0238:
023b e001       |    |		Load	0x0,0x1
023c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023d 00e1       |    |		Load_Encached	Boolean_Cache
023e			BODY_0238:
023e e001       |    |		Load	0x0,0x1
023f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0240 00e1       |    |		Load_Encached	Boolean_Cache
0241 602e       |`.  |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x00004000}
0242 e005       |    |		Load	0x0,0x5
0243 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0244 e5ff       |    |		Load	0x2,-0x1
0245 e001       |    |		Load	0x0,0x1
0246 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0247 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0248 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0249 005a       | Z  |		Store_Top	Discrete,At_Offset_2
024a 00d9       |    |		Load_Top	At_Offset_1
024b 681d       |h   |		Jump_Zero	0x269
024c e5fe       |    |		Load	0x2,-0x2
024d 4801       |H   |		Short_Literal	0x1
024e 4802       |H   |		Short_Literal	0x2
024f e006       |    |		Load	0x0,0x6
0250 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0251 035b       | [  |		Declare_Type	Array,Constrained
0252 0337       | 7  |		Declare_Variable	Array
0253 e5ff       |    |		Load	0x2,-0x1
0254 e006       |    |		Load	0x0,0x6
0255 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0256 e006       |    |		Load	0x0,0x6
0257 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0258 0119       |    |		Execute	Any,Check_In_Formal_Type
0259 4801       |H   |		Short_Literal	0x1
025a 00da       |    |		Load_Top	At_Offset_2
025b 01d6       |    |		Execute	Vector,Field_Write
025c 00db       |    |		Load_Top	At_Offset_3
025d e006       |    |		Load	0x0,0x6
025e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
025f e006       |    |		Load	0x0,0x6
0260 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0261 0119       |    |		Execute	Any,Check_In_Formal_Type
0262 4802       |H   |		Short_Literal	0x2
0263 00da       |    |		Load_Top	At_Offset_2
0264 01d6       |    |		Execute	Vector,Field_Write
0265 6006       |`   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000812c}
0266 8251       | Q  |		Call	0x1,0x51
0267 4801       |H   |		Short_Literal	0x1
0268 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0269 00d8       |    |		Load_Top	At_Offset_0
026a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
026b 0000       |    |		.XXX[0x1]
026c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000812c}
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e       | ~  |		.CONST	0x027e								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0003       |    |		.CONST	0x0003								; Number of locals
027b			INIT_0278:
027b e001       |    |		Load	0x0,0x1
027c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027d 00e1       |    |		Load_Encached	Boolean_Cache
027e			BODY_0278:
027e e5fe       |    |		Load	0x2,-0x2
027f e5ff       |    |		Load	0x2,-0x1
0280 8215       |    |		Call	0x1,0x15
0281 7002       |p   |		Jump_Nonzero	0x284
0282 4801       |H   |		Short_Literal	0x1
0283 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0284 e001       |    |		Load	0x0,0x1
0285 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0286 00e1       |    |		Load_Encached	Boolean_Cache
0287 67e8       |g   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x00004000}
0288 e005       |    |		Load	0x0,0x5
0289 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
028a e5ff       |    |		Load	0x2,-0x1
028b e001       |    |		Load	0x0,0x1
028c 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
028d 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
028e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
028f 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0290 00d9       |    |		Load_Top	At_Offset_1
0291 681d       |h   |		Jump_Zero	0x2af
0292 e5fe       |    |		Load	0x2,-0x2
0293 4801       |H   |		Short_Literal	0x1
0294 4802       |H   |		Short_Literal	0x2
0295 e006       |    |		Load	0x0,0x6
0296 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0297 035b       | [  |		Declare_Type	Array,Constrained
0298 0337       | 7  |		Declare_Variable	Array
0299 e5ff       |    |		Load	0x2,-0x1
029a e006       |    |		Load	0x0,0x6
029b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
029c e006       |    |		Load	0x0,0x6
029d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029e 0119       |    |		Execute	Any,Check_In_Formal_Type
029f 4801       |H   |		Short_Literal	0x1
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 01d6       |    |		Execute	Vector,Field_Write
02a2 00db       |    |		Load_Top	At_Offset_3
02a3 e006       |    |		Load	0x0,0x6
02a4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02a5 e006       |    |		Load	0x0,0x6
02a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a7 0119       |    |		Execute	Any,Check_In_Formal_Type
02a8 4802       |H   |		Short_Literal	0x2
02a9 00da       |    |		Load_Top	At_Offset_2
02aa 01d6       |    |		Execute	Vector,Field_Write
02ab 6008       |`   |		Indirect_Literal	Discrete,0x2b4,{0x00000000, 0x0000817b}
02ac 8251       | Q  |		Call	0x1,0x51
02ad 4801       |H   |		Short_Literal	0x1
02ae 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02af 00d8       |    |		Load_Top	At_Offset_0
02b0 0f00       |    |		Execute_Immediate	Equal,0x0
02b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b2 0000 0000  |    |		.XXX[0x2]
02b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817b}
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc e001       |    |		Load	0x0,0x1
02bd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02be 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
02bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00da       |    |		Load_Top	At_Offset_2
02c4 8241       | A  |		Call	0x1,0x41
02c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c6 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
02cc e001       |    |		Load	0x0,0x1
02cd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ce 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
02cf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02df       |    |		.CONST	0x02df								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0005       |    |		.CONST	0x0005								; Number of locals
02d3			INIT_02d0:
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 8217       |    |		Call	0x1,0x17
02d5 e001       |    |		Load	0x0,0x1
02d6 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
02d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d8 02c7       |    |		Declare_Variable	Any
02d9 00d8       |    |		Load_Top	At_Offset_0
02da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02db e001       |    |		Load	0x0,0x1
02dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02dd 029f 0d63  |   c|		Declare_Subprogram	INIT_0d60,For_Call
02df			BODY_02d0:
02df e001       |    |		Load	0x0,0x1
02e0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e1 00db       |    |		Load_Top	At_Offset_3
02e2 0120       |    |		Execute	Any,Is_Value
02e3 6804       |h   |		Jump_Zero	0x2e8
02e4 e001       |    |		Load	0x0,0x1
02e5 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
02e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e7 7801       |x   |		Jump	0x2e9
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 e5ff       |    |		Load	0x2,-0x1
02ea e001       |    |		Load	0x0,0x1
02eb 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
02ec 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02ed c403       |    |		Store	0x2,0x3
02ee 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02ef 00d9       |    |		Load_Top	At_Offset_1
02f0 6802       |h   |		Jump_Zero	0x2f3
02f1 00ea       |    |		Load_Encached	Null_String_Cache
02f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f3 8405       |    |		Call	0x2,0x5
02f4 0831       | 1  |		Execute_Immediate	Raise,0x31
02f5 0000 0000  |    |		.XXX[0x3]
02f7 0000       |    |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fd       |    |		.CONST	0x02fd								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0002       |    |		.CONST	0x0002								; Number of locals
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 8217       |    |		Call	0x1,0x17
02fd			BODY_02f8:
02fd 4801       |H   |		Short_Literal	0x1
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff 0092 0e58  |   X|		Action	Push_String_Extended,0xe58					; "'SPEC"
0301 e004       |    |		Load	0x0,0x4
0302 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0303 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0304 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0305 0000 0000  |    |		.XXX[0x3]
0307 0000       |    |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d       |    |		.CONST	0x030d								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b 00da       |    |		Load_Top	At_Offset_2
030c 8217       |    |		Call	0x1,0x17
030d			BODY_0308:
030d 4801       |H   |		Short_Literal	0x1
030e 00d9       |    |		Load_Top	At_Offset_1
030f 0092 0e59  |   Y|		Action	Push_String_Extended,0xe59					; "'BODY"
0311 e004       |    |		Load	0x0,0x4
0312 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0313 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0314 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0315 0000 0000  |    |		.XXX[0x3]
0317 0000       |    |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0327       | '  |		.CONST	0x0327								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0004       |    |		.CONST	0x0004								; Number of locals
031b			INIT_0318:
031b 00da       |    |		Load_Top	At_Offset_2
031c e001       |    |		Load	0x0,0x1
031d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
031e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
031f e001       |    |		Load	0x0,0x1
0320 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0321 02c7       |    |		Declare_Variable	Any
0322 00d8       |    |		Load_Top	At_Offset_0
0323 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0324 e001       |    |		Load	0x0,0x1
0325 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0326 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0327			BODY_0318:
0327 e001       |    |		Load	0x0,0x1
0328 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0329 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032a 00da       |    |		Load_Top	At_Offset_2
032b 0120       |    |		Execute	Any,Is_Value
032c 6803       |h   |		Jump_Zero	0x330
032d e001       |    |		Load	0x0,0x1
032e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032f 7801       |x   |		Jump	0x331
0330 00da       |    |		Load_Top	At_Offset_2
0331 601a       |`   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x00004000}
0332 e005       |    |		Load	0x0,0x5
0333 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0334 e007       |    |		Load	0x0,0x7
0335 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0336 e001       |    |		Load	0x0,0x1
0337 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0338 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0339 e402       |    |		Load	0x2,0x2
033a 0092 0e59  |   Y|		Action	Push_String_Extended,0xe59					; "'BODY"
033c 01cc       |    |		Execute	Vector,Catenate
033d e001       |    |		Load	0x0,0x1
033e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
033f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0340 c403       |    |		Store	0x2,0x3
0341 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0342 00d8       |    |		Load_Top	At_Offset_0
0343 6803       |h   |		Jump_Zero	0x347
0344 e001       |    |		Load	0x0,0x1
0345 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0346 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0347 00d9       |    |		Load_Top	At_Offset_1
0348 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0349 0000 0000  |    |		.XXX[0x3]
034b 0000       |    |
034c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035b       | [  |		.CONST	0x035b								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0003       |    |		.CONST	0x0003								; Number of locals
0353			INIT_0350:
0353 e001       |    |		Load	0x0,0x1
0354 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0355 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0356 e001       |    |		Load	0x0,0x1
0357 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0358 02c7       |    |		Declare_Variable	Any
0359 00d8       |    |		Load_Top	At_Offset_0
035a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
035b			BODY_0350:
035b e001       |    |		Load	0x0,0x1
035c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
035d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
035e 00d9       |    |		Load_Top	At_Offset_1
035f 0120       |    |		Execute	Any,Is_Value
0360 6803       |h   |		Jump_Zero	0x364
0361 e001       |    |		Load	0x0,0x1
0362 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0363 7801       |x   |		Jump	0x365
0364 00d9       |    |		Load_Top	At_Offset_1
0365 67e6       |g   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x00004000}
0366 e005       |    |		Load	0x0,0x5
0367 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0368 e007       |    |		Load	0x0,0x7
0369 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
036a e001       |    |		Load	0x0,0x1
036b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
036c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
036d e5ff       |    |		Load	0x2,-0x1
036e e001       |    |		Load	0x0,0x1
036f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0370 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0371 c403       |    |		Store	0x2,0x3
0372 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0373 00d9       |    |		Load_Top	At_Offset_1
0374 7002       |p   |		Jump_Nonzero	0x377
0375 00d8       |    |		Load_Top	At_Offset_0
0376 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0377 e5fe       |    |		Load	0x2,-0x2
0378 7003       |p   |		Jump_Nonzero	0x37c
0379 00d9       |    |		Load_Top	At_Offset_1
037a 0f03       |    |		Execute_Immediate	Equal,0x3
037b 701b       |p   |		Jump_Nonzero	0x397
037c e5fd       |    |		Load	0x2,-0x3
037d 4801       |H   |		Short_Literal	0x1
037e 4802       |H   |		Short_Literal	0x2
037f e006       |    |		Load	0x0,0x6
0380 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0381 035b       | [  |		Declare_Type	Array,Constrained
0382 0337       | 7  |		Declare_Variable	Array
0383 e5ff       |    |		Load	0x2,-0x1
0384 e006       |    |		Load	0x0,0x6
0385 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0386 e006       |    |		Load	0x0,0x6
0387 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0388 0119       |    |		Execute	Any,Check_In_Formal_Type
0389 4801       |H   |		Short_Literal	0x1
038a 00da       |    |		Load_Top	At_Offset_2
038b 01d6       |    |		Execute	Vector,Field_Write
038c 00db       |    |		Load_Top	At_Offset_3
038d e006       |    |		Load	0x0,0x6
038e 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
038f e006       |    |		Load	0x0,0x6
0390 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0391 0119       |    |		Execute	Any,Check_In_Formal_Type
0392 4802       |H   |		Short_Literal	0x2
0393 00da       |    |		Load_Top	At_Offset_2
0394 01d6       |    |		Execute	Vector,Field_Write
0395 6006       |`   |		Indirect_Literal	Discrete,0x39c,{0x00000000, 0x0000817c}
0396 8251       | Q  |		Call	0x1,0x51
0397 e001       |    |		Load	0x0,0x1
0398 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0399 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
039a 0000 0000  |    |		.XXX[0x2]
039c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817c}
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03ab       |    |		.CONST	0x03ab								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0002       |    |		.CONST	0x0002								; Number of locals
03a3			INIT_03a0:
03a3 e001       |    |		Load	0x0,0x1
03a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a5 02c7       |    |		Declare_Variable	Any
03a6 e5fd       |    |		Load	0x2,-0x3
03a7 e5fe       |    |		Load	0x2,-0x2
03a8 e5ff       |    |		Load	0x2,-0x1
03a9 821a       |    |		Call	0x1,0x1a
03aa a402       |    |		Store_Unchecked	0x2,0x2
03ab			BODY_03a0:
03ab 00d8       |    |		Load_Top	At_Offset_0
03ac 8217       |    |		Call	0x1,0x17
03ad 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03ae 0000 0000  |    |		.XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03c3       |    |		.CONST	0x03c3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0005       |    |		.CONST	0x0005								; Number of locals
03b3			INIT_03b0:
03b3 e001       |    |		Load	0x0,0x1
03b4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03b5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b6 e001       |    |		Load	0x0,0x1
03b7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b8 02c7       |    |		Declare_Variable	Any
03b9 e5ff       |    |		Load	0x2,-0x1
03ba a403       |    |		Store_Unchecked	0x2,0x3
03bb e001       |    |		Load	0x0,0x1
03bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03bd e001       |    |		Load	0x0,0x1
03be 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
03bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c0 02c7       |    |		Declare_Variable	Any
03c1 00d8       |    |		Load_Top	At_Offset_0
03c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c3			BODY_03b0:
03c3 00da       |    |		Load_Top	At_Offset_2
03c4 820e       |    |		Call	0x1,0xe
03c5 6802       |h   |		Jump_Zero	0x3c8
03c6 00da       |    |		Load_Top	At_Offset_2
03c7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03c8 e001       |    |		Load	0x0,0x1
03c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ca 00d9       |    |		Load_Top	At_Offset_1
03cb 0120       |    |		Execute	Any,Is_Value
03cc 6804       |h   |		Jump_Zero	0x3d1
03cd e001       |    |		Load	0x0,0x1
03ce 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
03cf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d0 7801       |x   |		Jump	0x3d2
03d1 00d9       |    |		Load_Top	At_Offset_1
03d2 e403       |    |		Load	0x2,0x3
03d3 e001       |    |		Load	0x0,0x1
03d4 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
03d5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03d6 c405       |    |		Store	0x2,0x5
03d7 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03d8 00d9       |    |		Load_Top	At_Offset_1
03d9 6823       |h#  |		Jump_Zero	0x3fd
03da e5fe       |    |		Load	0x2,-0x2
03db 7003       |p   |		Jump_Nonzero	0x3df
03dc 00d9       |    |		Load_Top	At_Offset_1
03dd 0f09       |    |		Execute_Immediate	Equal,0x9
03de 701b       |p   |		Jump_Nonzero	0x3fa
03df e5fd       |    |		Load	0x2,-0x3
03e0 4801       |H   |		Short_Literal	0x1
03e1 4802       |H   |		Short_Literal	0x2
03e2 e006       |    |		Load	0x0,0x6
03e3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03e4 035b       | [  |		Declare_Type	Array,Constrained
03e5 0337       | 7  |		Declare_Variable	Array
03e6 e403       |    |		Load	0x2,0x3
03e7 e006       |    |		Load	0x0,0x6
03e8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03e9 e006       |    |		Load	0x0,0x6
03ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03eb 0119       |    |		Execute	Any,Check_In_Formal_Type
03ec 4801       |H   |		Short_Literal	0x1
03ed 00da       |    |		Load_Top	At_Offset_2
03ee 01d6       |    |		Execute	Vector,Field_Write
03ef e402       |    |		Load	0x2,0x2
03f0 e006       |    |		Load	0x0,0x6
03f1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03f2 e006       |    |		Load	0x0,0x6
03f3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f4 0119       |    |		Execute	Any,Check_In_Formal_Type
03f5 4802       |H   |		Short_Literal	0x2
03f6 00da       |    |		Load_Top	At_Offset_2
03f7 01d6       |    |		Execute	Vector,Field_Write
03f8 602f       |`/  |		Indirect_Literal	Discrete,0x428,{0x00000000, 0x0000817d}
03f9 8251       | Q  |		Call	0x1,0x51
03fa e001       |    |		Load	0x0,0x1
03fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03fc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03fd 00d8       |    |		Load_Top	At_Offset_0
03fe e001       |    |		Load	0x0,0x1
03ff 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0400 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0401 c403       |    |		Store	0x2,0x3
0402 00da       |    |		Load_Top	At_Offset_2
0403 820e       |    |		Call	0x1,0xe
0404 6802       |h   |		Jump_Zero	0x407
0405 00da       |    |		Load_Top	At_Offset_2
0406 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0407 e5fe       |    |		Load	0x2,-0x2
0408 681c       |h   |		Jump_Zero	0x425
0409 e5fd       |    |		Load	0x2,-0x3
040a 4801       |H   |		Short_Literal	0x1
040b 4802       |H   |		Short_Literal	0x2
040c e006       |    |		Load	0x0,0x6
040d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
040e 035b       | [  |		Declare_Type	Array,Constrained
040f 0337       | 7  |		Declare_Variable	Array
0410 e5ff       |    |		Load	0x2,-0x1
0411 e006       |    |		Load	0x0,0x6
0412 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0413 e006       |    |		Load	0x0,0x6
0414 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0415 0119       |    |		Execute	Any,Check_In_Formal_Type
0416 4801       |H   |		Short_Literal	0x1
0417 00da       |    |		Load_Top	At_Offset_2
0418 01d6       |    |		Execute	Vector,Field_Write
0419 0092 0e5a  |   Z|		Action	Push_String_Extended,0xe5a					; "The enclosing world is not a view."
041b e006       |    |		Load	0x0,0x6
041c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
041d e006       |    |		Load	0x0,0x6
041e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
041f 0119       |    |		Execute	Any,Check_In_Formal_Type
0420 4802       |H   |		Short_Literal	0x2
0421 00da       |    |		Load_Top	At_Offset_2
0422 01d6       |    |		Execute	Vector,Field_Write
0423 6004       |`   |		Indirect_Literal	Discrete,0x428,{0x00000000, 0x0000817d}
0424 8251       | Q  |		Call	0x1,0x51
0425 e001       |    |		Load	0x0,0x1
0426 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0427 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0428 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817d}
042c 0000 0000  |    |		.BLANK	0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 e5fd       |    |		Load	0x2,-0x3
0434 e5fe       |    |		Load	0x2,-0x2
0435 e5fd       |    |		Load	0x2,-0x3
0436 e5fe       |    |		Load	0x2,-0x2
0437 e5ff       |    |		Load	0x2,-0x1
0438 821a       |    |		Call	0x1,0x1a
0439 821c       |    |		Call	0x1,0x1c
043a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
043b 0000 0000  |    |		.BLANK	0000[0x5]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0453       | S  |		.CONST	0x0453								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0005       |    |		.CONST	0x0005								; Number of locals
0443			INIT_0440:
0443 e001       |    |		Load	0x0,0x1
0444 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0445 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0446 e001       |    |		Load	0x0,0x1
0447 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0448 02c7       |    |		Declare_Variable	Any
0449 e5ff       |    |		Load	0x2,-0x1
044a a403       |    |		Store_Unchecked	0x2,0x3
044b e001       |    |		Load	0x0,0x1
044c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
044d e001       |    |		Load	0x0,0x1
044e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
044f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0450 02c7       |    |		Declare_Variable	Any
0451 00d8       |    |		Load_Top	At_Offset_0
0452 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0453			BODY_0440:
0453 00da       |    |		Load_Top	At_Offset_2
0454 820d       |    |		Call	0x1,0xd
0455 6807       |h   |		Jump_Zero	0x45d
0456 e5ff       |    |		Load	0x2,-0x1
0457 00d8       |    |		Load_Top	At_Offset_0
0458 0120       |    |		Execute	Any,Is_Value
0459 7002       |p   |		Jump_Nonzero	0x45c
045a 00d8       |    |		Load_Top	At_Offset_0
045b 011e       |    |		Execute	Any,Convert
045c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
045d e001       |    |		Load	0x0,0x1
045e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
045f 00d9       |    |		Load_Top	At_Offset_1
0460 0120       |    |		Execute	Any,Is_Value
0461 6804       |h   |		Jump_Zero	0x466
0462 e001       |    |		Load	0x0,0x1
0463 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0464 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0465 7801       |x   |		Jump	0x467
0466 00d9       |    |		Load_Top	At_Offset_1
0467 e403       |    |		Load	0x2,0x3
0468 e001       |    |		Load	0x0,0x1
0469 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
046a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
046b c405       |    |		Store	0x2,0x5
046c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
046d 00d9       |    |		Load_Top	At_Offset_1
046e 6823       |h#  |		Jump_Zero	0x492
046f e5fe       |    |		Load	0x2,-0x2
0470 7003       |p   |		Jump_Nonzero	0x474
0471 00d9       |    |		Load_Top	At_Offset_1
0472 0f09       |    |		Execute_Immediate	Equal,0x9
0473 701b       |p   |		Jump_Nonzero	0x48f
0474 e5fd       |    |		Load	0x2,-0x3
0475 4801       |H   |		Short_Literal	0x1
0476 4802       |H   |		Short_Literal	0x2
0477 e006       |    |		Load	0x0,0x6
0478 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0479 035b       | [  |		Declare_Type	Array,Constrained
047a 0337       | 7  |		Declare_Variable	Array
047b e403       |    |		Load	0x2,0x3
047c e006       |    |		Load	0x0,0x6
047d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
047e e006       |    |		Load	0x0,0x6
047f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0480 0119       |    |		Execute	Any,Check_In_Formal_Type
0481 4801       |H   |		Short_Literal	0x1
0482 00da       |    |		Load_Top	At_Offset_2
0483 01d6       |    |		Execute	Vector,Field_Write
0484 e402       |    |		Load	0x2,0x2
0485 e006       |    |		Load	0x0,0x6
0486 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0487 e006       |    |		Load	0x0,0x6
0488 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0489 0119       |    |		Execute	Any,Check_In_Formal_Type
048a 4802       |H   |		Short_Literal	0x2
048b 00da       |    |		Load_Top	At_Offset_2
048c 01d6       |    |		Execute	Vector,Field_Write
048d 6032       |`2  |		Indirect_Literal	Discrete,0x4c0,{0x00000000, 0x0000817e}
048e 8251       | Q  |		Call	0x1,0x51
048f e001       |    |		Load	0x0,0x1
0490 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0491 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0492 00d8       |    |		Load_Top	At_Offset_0
0493 e001       |    |		Load	0x0,0x1
0494 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0495 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0496 c403       |    |		Store	0x2,0x3
0497 00da       |    |		Load_Top	At_Offset_2
0498 820d       |    |		Call	0x1,0xd
0499 6802       |h   |		Jump_Zero	0x49c
049a 00da       |    |		Load_Top	At_Offset_2
049b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
049c e5fe       |    |		Load	0x2,-0x2
049d 681c       |h   |		Jump_Zero	0x4ba
049e e5fd       |    |		Load	0x2,-0x3
049f 4801       |H   |		Short_Literal	0x1
04a0 4802       |H   |		Short_Literal	0x2
04a1 e006       |    |		Load	0x0,0x6
04a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04a3 035b       | [  |		Declare_Type	Array,Constrained
04a4 0337       | 7  |		Declare_Variable	Array
04a5 e5ff       |    |		Load	0x2,-0x1
04a6 e006       |    |		Load	0x0,0x6
04a7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04a8 e006       |    |		Load	0x0,0x6
04a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04aa 0119       |    |		Execute	Any,Check_In_Formal_Type
04ab 4801       |H   |		Short_Literal	0x1
04ac 00da       |    |		Load_Top	At_Offset_2
04ad 01d6       |    |		Execute	Vector,Field_Write
04ae 0092 0e5b  |   [|		Action	Push_String_Extended,0xe5b					; "The enclosing world is not a directory."
04b0 e006       |    |		Load	0x0,0x6
04b1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b2 e006       |    |		Load	0x0,0x6
04b3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04b4 0119       |    |		Execute	Any,Check_In_Formal_Type
04b5 4802       |H   |		Short_Literal	0x2
04b6 00da       |    |		Load_Top	At_Offset_2
04b7 01d6       |    |		Execute	Vector,Field_Write
04b8 6007       |`   |		Indirect_Literal	Discrete,0x4c0,{0x00000000, 0x0000817e}
04b9 8251       | Q  |		Call	0x1,0x51
04ba e001       |    |		Load	0x0,0x1
04bb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04bc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04bd 0000 0000  |    |		.XXX[0x3]
04bf 0000       |    |
04c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817e}
04c4 0000 0000  |    |		.BLANK	0000[0x4]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb e5fd       |    |		Load	0x2,-0x3
04cc e5fe       |    |		Load	0x2,-0x2
04cd e5fd       |    |		Load	0x2,-0x3
04ce e5fe       |    |		Load	0x2,-0x2
04cf e5ff       |    |		Load	0x2,-0x1
04d0 821a       |    |		Call	0x1,0x1a
04d1 821e       |    |		Call	0x1,0x1e
04d2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04d3 0000 0000  |    |		.BLANK	0000[0x5]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04e5       |    |		.CONST	0x04e5								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0004       |    |		.CONST	0x0004								; Number of locals
04db			INIT_04d8:
04db e001       |    |		Load	0x0,0x1
04dc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04dd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04de e001       |    |		Load	0x0,0x1
04df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04e0 e001       |    |		Load	0x0,0x1
04e1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04e2 02c7       |    |		Declare_Variable	Any
04e3 00d8       |    |		Load_Top	At_Offset_0
04e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e5			BODY_04d8:
04e5 e5ff       |    |		Load	0x2,-0x1
04e6 820e       |    |		Call	0x1,0xe
04e7 7017       |p   |		Jump_Nonzero	0x4ff
04e8 e5fe       |    |		Load	0x2,-0x2
04e9 6812       |h   |		Jump_Zero	0x4fc
04ea e5fd       |    |		Load	0x2,-0x3
04eb 4801       |H   |		Short_Literal	0x1
04ec 4801       |H   |		Short_Literal	0x1
04ed e006       |    |		Load	0x0,0x6
04ee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ef 035b       | [  |		Declare_Type	Array,Constrained
04f0 0337       | 7  |		Declare_Variable	Array
04f1 e5ff       |    |		Load	0x2,-0x1
04f2 e006       |    |		Load	0x0,0x6
04f3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04f4 e006       |    |		Load	0x0,0x6
04f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04f6 0119       |    |		Execute	Any,Check_In_Formal_Type
04f7 4801       |H   |		Short_Literal	0x1
04f8 00da       |    |		Load_Top	At_Offset_2
04f9 01d6       |    |		Execute	Vector,Field_Write
04fa 6041       |`A  |		Indirect_Literal	Discrete,0x53c,{0x00000000, 0x0000817f}
04fb 8251       | Q  |		Call	0x1,0x51
04fc e001       |    |		Load	0x0,0x1
04fd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04fe 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
04ff e001       |    |		Load	0x0,0x1
0500 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0501 00d9       |    |		Load_Top	At_Offset_1
0502 0120       |    |		Execute	Any,Is_Value
0503 6803       |h   |		Jump_Zero	0x507
0504 e001       |    |		Load	0x0,0x1
0505 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0506 7801       |x   |		Jump	0x508
0507 00d9       |    |		Load_Top	At_Offset_1
0508 e5ff       |    |		Load	0x2,-0x1
0509 e001       |    |		Load	0x0,0x1
050a 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
050b 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
050c c404       |    |		Store	0x2,0x4
050d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
050e 00d9       |    |		Load_Top	At_Offset_1
050f 7002       |p   |		Jump_Nonzero	0x512
0510 00d8       |    |		Load_Top	At_Offset_0
0511 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0512 e5fe       |    |		Load	0x2,-0x2
0513 7003       |p   |		Jump_Nonzero	0x517
0514 00d9       |    |		Load_Top	At_Offset_1
0515 0f09       |    |		Execute_Immediate	Equal,0x9
0516 701b       |p   |		Jump_Nonzero	0x532
0517 e5fd       |    |		Load	0x2,-0x3
0518 4801       |H   |		Short_Literal	0x1
0519 4802       |H   |		Short_Literal	0x2
051a e006       |    |		Load	0x0,0x6
051b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
051c 035b       | [  |		Declare_Type	Array,Constrained
051d 0337       | 7  |		Declare_Variable	Array
051e e5ff       |    |		Load	0x2,-0x1
051f e006       |    |		Load	0x0,0x6
0520 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0521 e006       |    |		Load	0x0,0x6
0522 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0523 0119       |    |		Execute	Any,Check_In_Formal_Type
0524 4801       |H   |		Short_Literal	0x1
0525 00da       |    |		Load_Top	At_Offset_2
0526 01d6       |    |		Execute	Vector,Field_Write
0527 e402       |    |		Load	0x2,0x2
0528 e006       |    |		Load	0x0,0x6
0529 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
052a e006       |    |		Load	0x0,0x6
052b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
052c 0119       |    |		Execute	Any,Check_In_Formal_Type
052d 4802       |H   |		Short_Literal	0x2
052e 00da       |    |		Load_Top	At_Offset_2
052f 01d6       |    |		Execute	Vector,Field_Write
0530 6007       |`   |		Indirect_Literal	Discrete,0x538,{0x00000000, 0x0000817e}
0531 8251       | Q  |		Call	0x1,0x51
0532 e001       |    |		Load	0x0,0x1
0533 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0534 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0535 0000 0000  |    |		.XXX[0x3]
0537 0000       |    |
0538 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817e}
053c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817f}
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 054c       | L  |		.CONST	0x054c								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0003       |    |		.CONST	0x0003								; Number of locals
0543			INIT_0540:
0543 e001       |    |		Load	0x0,0x1
0544 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0545 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0546 e001       |    |		Load	0x0,0x1
0547 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0548 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0549 02c7       |    |		Declare_Variable	Any
054a 00d8       |    |		Load_Top	At_Offset_0
054b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
054c			BODY_0540:
054c 4820       |H   |		Short_Literal	0x20
054d e5ff       |    |		Load	0x2,-0x1
054e e004       |    |		Load	0x0,0x4
054f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0550 01db       |    |		Execute	Vector,Length
0551 6808       |h   |		Jump_Zero	0x55a
0552 4820       |H   |		Short_Literal	0x20
0553 e5ff       |    |		Load	0x2,-0x1
0554 e004       |    |		Load	0x0,0x4
0555 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0556 0092 0e5c  |   \|		Action	Push_String_Extended,0xe5c					; "<>"
0558 01df       |    |		Execute	Vector,Equal
0559 6818       |h   |		Jump_Zero	0x572
055a e5fe       |    |		Load	0x2,-0x2
055b 6812       |h   |		Jump_Zero	0x56e
055c e5fd       |    |		Load	0x2,-0x3
055d 4801       |H   |		Short_Literal	0x1
055e 4801       |H   |		Short_Literal	0x1
055f e006       |    |		Load	0x0,0x6
0560 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0561 035b       | [  |		Declare_Type	Array,Constrained
0562 0337       | 7  |		Declare_Variable	Array
0563 e5ff       |    |		Load	0x2,-0x1
0564 e006       |    |		Load	0x0,0x6
0565 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0566 e006       |    |		Load	0x0,0x6
0567 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0568 0119       |    |		Execute	Any,Check_In_Formal_Type
0569 4801       |H   |		Short_Literal	0x1
056a 00da       |    |		Load_Top	At_Offset_2
056b 01d6       |    |		Execute	Vector,Field_Write
056c 6063       |`c  |		Indirect_Literal	Discrete,0x5d0,{0x00000000, 0x00008180}
056d 8251       | Q  |		Call	0x1,0x51
056e e001       |    |		Load	0x0,0x1
056f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0570 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0571 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0572 e001       |    |		Load	0x0,0x1
0573 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0574 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0575 00d9       |    |		Load_Top	At_Offset_1
0576 6055       |`U  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00004000}
0577 e005       |    |		Load	0x0,0x5
0578 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0579 e007       |    |		Load	0x0,0x7
057a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
057b e008       |    |		Load	0x0,0x8
057c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
057d 4801       |H   |		Short_Literal	0x1
057e 4800       |H   |		Short_Literal	0x0
057f e007       |    |		Load	0x0,0x7
0580 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0581 e001       |    |		Load	0x0,0x1
0582 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0583 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0584 e5ff       |    |		Load	0x2,-0x1
0585 e001       |    |		Load	0x0,0x1
0586 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0587 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0588 c403       |    |		Store	0x2,0x3
0589 005a       | Z  |		Store_Top	Discrete,At_Offset_2
058a 00d9       |    |		Load_Top	At_Offset_1
058b 7002       |p   |		Jump_Nonzero	0x58e
058c 00d8       |    |		Load_Top	At_Offset_0
058d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
058e e5fe       |    |		Load	0x2,-0x2
058f 6831       |h1  |		Jump_Zero	0x5c1
0590 00d9       |    |		Load_Top	At_Offset_1
0591 0f03       |    |		Execute_Immediate	Equal,0x3
0592 6813       |h   |		Jump_Zero	0x5a6
0593 e5fd       |    |		Load	0x2,-0x3
0594 4801       |H   |		Short_Literal	0x1
0595 4801       |H   |		Short_Literal	0x1
0596 e006       |    |		Load	0x0,0x6
0597 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0598 035b       | [  |		Declare_Type	Array,Constrained
0599 0337       | 7  |		Declare_Variable	Array
059a e5ff       |    |		Load	0x2,-0x1
059b e006       |    |		Load	0x0,0x6
059c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
059d e006       |    |		Load	0x0,0x6
059e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
059f 0119       |    |		Execute	Any,Check_In_Formal_Type
05a0 4801       |H   |		Short_Literal	0x1
05a1 00da       |    |		Load_Top	At_Offset_2
05a2 01d6       |    |		Execute	Vector,Field_Write
05a3 602c       |`,  |		Indirect_Literal	Discrete,0x5d0,{0x00000000, 0x00008180}
05a4 8251       | Q  |		Call	0x1,0x51
05a5 781b       |x   |		Jump	0x5c1
05a6 e5fd       |    |		Load	0x2,-0x3
05a7 4801       |H   |		Short_Literal	0x1
05a8 4802       |H   |		Short_Literal	0x2
05a9 e006       |    |		Load	0x0,0x6
05aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ab 035b       | [  |		Declare_Type	Array,Constrained
05ac 0337       | 7  |		Declare_Variable	Array
05ad e5ff       |    |		Load	0x2,-0x1
05ae e006       |    |		Load	0x0,0x6
05af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05b0 e006       |    |		Load	0x0,0x6
05b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b2 0119       |    |		Execute	Any,Check_In_Formal_Type
05b3 4801       |H   |		Short_Literal	0x1
05b4 00da       |    |		Load_Top	At_Offset_2
05b5 01d6       |    |		Execute	Vector,Field_Write
05b6 00db       |    |		Load_Top	At_Offset_3
05b7 e006       |    |		Load	0x0,0x6
05b8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05b9 e006       |    |		Load	0x0,0x6
05ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05bb 0119       |    |		Execute	Any,Check_In_Formal_Type
05bc 4802       |H   |		Short_Literal	0x2
05bd 00da       |    |		Load_Top	At_Offset_2
05be 01d6       |    |		Execute	Vector,Field_Write
05bf 6008       |`   |		Indirect_Literal	Discrete,0x5c8,{0x00000000, 0x0000817c}
05c0 8251       | Q  |		Call	0x1,0x51
05c1 e001       |    |		Load	0x0,0x1
05c2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05c3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
05c4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05c5 0000 0000  |    |		.XXX[0x3]
05c7 0000       |    |
05c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817c}
05cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
05d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008180}
05d4 0000 0000  |    |		.BLANK	0000[0x4]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db e5fd       |    |		Load	0x2,-0x3
05dc e5fe       |    |		Load	0x2,-0x2
05dd e5fd       |    |		Load	0x2,-0x3
05de e5fe       |    |		Load	0x2,-0x2
05df e5ff       |    |		Load	0x2,-0x1
05e0 821a       |    |		Call	0x1,0x1a
05e1 8223       | #  |		Call	0x1,0x23
05e2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05e3 0000 0000  |    |		.BLANK	0000[0x5]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05fa       |    |		.CONST	0x05fa								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0005       |    |		.CONST	0x0005								; Number of locals
05eb			INIT_05e8:
05eb e001       |    |		Load	0x0,0x1
05ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ed 02c7       |    |		Declare_Variable	Any
05ee 00d8       |    |		Load_Top	At_Offset_0
05ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f0 e001       |    |		Load	0x0,0x1
05f1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05f2 02ff       |    |		Declare_Variable	Variant_Record
05f3 00d8       |    |		Load_Top	At_Offset_0
05f4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f5 e001       |    |		Load	0x0,0x1
05f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05f7 e001       |    |		Load	0x0,0x1
05f8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05fa			BODY_05e8:
05fa e001       |    |		Load	0x0,0x1
05fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05fc e402       |    |		Load	0x2,0x2
05fd 0120       |    |		Execute	Any,Is_Value
05fe 6803       |h   |		Jump_Zero	0x602
05ff e001       |    |		Load	0x0,0x1
0600 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0601 7801       |x   |		Jump	0x603
0602 e402       |    |		Load	0x2,0x2
0603 6070       |`p  |		Indirect_Literal	Discrete,0x674,{0x00000000, 0x00004000}
0604 e005       |    |		Load	0x0,0x5
0605 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0606 e5ff       |    |		Load	0x2,-0x1
0607 e001       |    |		Load	0x0,0x1
0608 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0609 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
060a e001       |    |		Load	0x0,0x1
060b 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
060c 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
060d c402       |    |		Store	0x2,0x2
060e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
060f 00d9       |    |		Load_Top	At_Offset_1
0610 7004       |p   |		Jump_Nonzero	0x615
0611 00db       |    |		Load_Top	At_Offset_3
0612 e001       |    |		Load	0x0,0x1
0613 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0614 6823       |h#  |		Jump_Zero	0x638
0615 e5fe       |    |		Load	0x2,-0x2
0616 681e       |h   |		Jump_Zero	0x635
0617 00d9       |    |		Load_Top	At_Offset_1
0618 0f08       |    |		Execute_Immediate	Equal,0x8
0619 701b       |p   |		Jump_Nonzero	0x635
061a e5fd       |    |		Load	0x2,-0x3
061b 4801       |H   |		Short_Literal	0x1
061c 4802       |H   |		Short_Literal	0x2
061d e006       |    |		Load	0x0,0x6
061e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
061f 035b       | [  |		Declare_Type	Array,Constrained
0620 0337       | 7  |		Declare_Variable	Array
0621 e5ff       |    |		Load	0x2,-0x1
0622 e006       |    |		Load	0x0,0x6
0623 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0624 e006       |    |		Load	0x0,0x6
0625 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0626 0119       |    |		Execute	Any,Check_In_Formal_Type
0627 4801       |H   |		Short_Literal	0x1
0628 00da       |    |		Load_Top	At_Offset_2
0629 01d6       |    |		Execute	Vector,Field_Write
062a 00db       |    |		Load_Top	At_Offset_3
062b e006       |    |		Load	0x0,0x6
062c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
062d e006       |    |		Load	0x0,0x6
062e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
062f 0119       |    |		Execute	Any,Check_In_Formal_Type
0630 4802       |H   |		Short_Literal	0x2
0631 00da       |    |		Load_Top	At_Offset_2
0632 01d6       |    |		Execute	Vector,Field_Write
0633 603c       |`<  |		Indirect_Literal	Discrete,0x670,{0x00000000, 0x0000810e}
0634 8251       | Q  |		Call	0x1,0x51
0635 e001       |    |		Load	0x0,0x1
0636 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0637 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0638 e001       |    |		Load	0x0,0x1
0639 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
063a 00db       |    |		Load_Top	At_Offset_3
063b 6038       |`8  |		Indirect_Literal	Discrete,0x674,{0x00000000, 0x00004000}
063c e005       |    |		Load	0x0,0x5
063d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
063e 4800       |H   |		Short_Literal	0x0
063f e402       |    |		Load	0x2,0x2
0640 e001       |    |		Load	0x0,0x1
0641 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0642 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0643 00d1       |    |		Pop_Control	Pop_Count_1
0644 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0645 00d9       |    |		Load_Top	At_Offset_1
0646 7002       |p   |		Jump_Nonzero	0x649
0647 00da       |    |		Load_Top	At_Offset_2
0648 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0649 e5fe       |    |		Load	0x2,-0x2
064a 681b       |h   |		Jump_Zero	0x666
064b e5fd       |    |		Load	0x2,-0x3
064c 4801       |H   |		Short_Literal	0x1
064d 4802       |H   |		Short_Literal	0x2
064e e006       |    |		Load	0x0,0x6
064f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0650 035b       | [  |		Declare_Type	Array,Constrained
0651 0337       | 7  |		Declare_Variable	Array
0652 e402       |    |		Load	0x2,0x2
0653 e006       |    |		Load	0x0,0x6
0654 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0655 e006       |    |		Load	0x0,0x6
0656 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0657 0119       |    |		Execute	Any,Check_In_Formal_Type
0658 4801       |H   |		Short_Literal	0x1
0659 00da       |    |		Load_Top	At_Offset_2
065a 01d6       |    |		Execute	Vector,Field_Write
065b 00db       |    |		Load_Top	At_Offset_3
065c e006       |    |		Load	0x0,0x6
065d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
065e e006       |    |		Load	0x0,0x6
065f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0660 0119       |    |		Execute	Any,Check_In_Formal_Type
0661 4802       |H   |		Short_Literal	0x2
0662 00da       |    |		Load_Top	At_Offset_2
0663 01d6       |    |		Execute	Vector,Field_Write
0664 6007       |`   |		Indirect_Literal	Discrete,0x66c,{0x00000000, 0x0000810f}
0665 8251       | Q  |		Call	0x1,0x51
0666 e001       |    |		Load	0x0,0x1
0667 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0668 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0669 0000 0000  |    |		.XXX[0x3]
066b 0000       |    |
066c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000810f}
0670 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000810e}
0674 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 068b       |    |		.CONST	0x068b								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0005       |    |		.CONST	0x0005								; Number of locals
067b			INIT_0678:
067b e001       |    |		Load	0x0,0x1
067c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
067d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
067e 02c7       |    |		Declare_Variable	Any
067f 00d8       |    |		Load_Top	At_Offset_0
0680 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0681 e001       |    |		Load	0x0,0x1
0682 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0683 e001       |    |		Load	0x0,0x1
0684 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0685 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0686 e001       |    |		Load	0x0,0x1
0687 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0688 02c7       |    |		Declare_Variable	Any
0689 00d8       |    |		Load_Top	At_Offset_0
068a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
068b			BODY_0678:
068b e001       |    |		Load	0x0,0x1
068c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
068d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
068e e402       |    |		Load	0x2,0x2
068f 67e4       |g   |		Indirect_Literal	Discrete,0x674,{0x00000000, 0x00004000}
0690 e005       |    |		Load	0x0,0x5
0691 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0692 e007       |    |		Load	0x0,0x7
0693 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0694 e008       |    |		Load	0x0,0x8
0695 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0696 4801       |H   |		Short_Literal	0x1
0697 4800       |H   |		Short_Literal	0x0
0698 e007       |    |		Load	0x0,0x7
0699 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
069a e001       |    |		Load	0x0,0x1
069b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
069c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
069d e5ff       |    |		Load	0x2,-0x1
069e e001       |    |		Load	0x0,0x1
069f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06a0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06a1 c402       |    |		Store	0x2,0x2
06a2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
06a3 00d9       |    |		Load_Top	At_Offset_1
06a4 7005       |p   |		Jump_Nonzero	0x6aa
06a5 00db       |    |		Load_Top	At_Offset_3
06a6 e001       |    |		Load	0x0,0x1
06a7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06a8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
06a9 6824       |h$  |		Jump_Zero	0x6ce
06aa e5fe       |    |		Load	0x2,-0x2
06ab 7003       |p   |		Jump_Nonzero	0x6af
06ac 00d9       |    |		Load_Top	At_Offset_1
06ad 0f03       |    |		Execute_Immediate	Equal,0x3
06ae 701b       |p   |		Jump_Nonzero	0x6ca
06af e5fd       |    |		Load	0x2,-0x3
06b0 4801       |H   |		Short_Literal	0x1
06b1 4802       |H   |		Short_Literal	0x2
06b2 e006       |    |		Load	0x0,0x6
06b3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06b4 035b       | [  |		Declare_Type	Array,Constrained
06b5 0337       | 7  |		Declare_Variable	Array
06b6 e5ff       |    |		Load	0x2,-0x1
06b7 e006       |    |		Load	0x0,0x6
06b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06b9 e006       |    |		Load	0x0,0x6
06ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06bb 0119       |    |		Execute	Any,Check_In_Formal_Type
06bc 4801       |H   |		Short_Literal	0x1
06bd 00da       |    |		Load_Top	At_Offset_2
06be 01d6       |    |		Execute	Vector,Field_Write
06bf 00db       |    |		Load_Top	At_Offset_3
06c0 e006       |    |		Load	0x0,0x6
06c1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
06c2 e006       |    |		Load	0x0,0x6
06c3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06c4 0119       |    |		Execute	Any,Check_In_Formal_Type
06c5 4802       |H   |		Short_Literal	0x2
06c6 00da       |    |		Load_Top	At_Offset_2
06c7 01d6       |    |		Execute	Vector,Field_Write
06c8 6057       |`W  |		Indirect_Literal	Discrete,0x720,{0x00000000, 0x0000817c}
06c9 8251       | Q  |		Call	0x1,0x51
06ca e001       |    |		Load	0x0,0x1
06cb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06cc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06cd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
06ce e5fd       |    |		Load	0x2,-0x3
06cf e5fe       |    |		Load	0x2,-0x2
06d0 e402       |    |		Load	0x2,0x2
06d1 8228       | (  |		Call	0x1,0x28
06d2 c405       |    |		Store	0x2,0x5
06d3 00d8       |    |		Load_Top	At_Offset_0
06d4 820d       |    |		Call	0x1,0xd
06d5 6846       |hF  |		Jump_Zero	0x71c
06d6 00d8       |    |		Load_Top	At_Offset_0
06d7 8210       |    |		Call	0x1,0x10
06d8 7043       |pC  |		Jump_Nonzero	0x71c
06d9 e001       |    |		Load	0x0,0x1
06da 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06dc e402       |    |		Load	0x2,0x2
06dd 6796       |g   |		Indirect_Literal	Discrete,0x674,{0x00000000, 0x00004000}
06de e005       |    |		Load	0x0,0x5
06df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06e0 e007       |    |		Load	0x0,0x7
06e1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06e2 e008       |    |		Load	0x0,0x8
06e3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06e4 4801       |H   |		Short_Literal	0x1
06e5 4800       |H   |		Short_Literal	0x0
06e6 e007       |    |		Load	0x0,0x7
06e7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06e8 e001       |    |		Load	0x0,0x1
06e9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06ea 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06eb e5ff       |    |		Load	0x2,-0x1
06ec 0092 0e5d  |   ]|		Action	Push_String_Extended,0xe5d					; "??'c(Ada)"
06ee 01cc       |    |		Execute	Vector,Catenate
06ef e001       |    |		Load	0x0,0x1
06f0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06f1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06f2 c402       |    |		Store	0x2,0x2
06f3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
06f4 00d9       |    |		Load_Top	At_Offset_1
06f5 7002       |p   |		Jump_Nonzero	0x6f8
06f6 00db       |    |		Load_Top	At_Offset_3
06f7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
06f8 e5fe       |    |		Load	0x2,-0x2
06f9 7003       |p   |		Jump_Nonzero	0x6fd
06fa 00d9       |    |		Load_Top	At_Offset_1
06fb 0f03       |    |		Execute_Immediate	Equal,0x3
06fc 701b       |p   |		Jump_Nonzero	0x718
06fd e5fd       |    |		Load	0x2,-0x3
06fe 4801       |H   |		Short_Literal	0x1
06ff 4802       |H   |		Short_Literal	0x2
0700 e006       |    |		Load	0x0,0x6
0701 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0702 035b       | [  |		Declare_Type	Array,Constrained
0703 0337       | 7  |		Declare_Variable	Array
0704 e5ff       |    |		Load	0x2,-0x1
0705 e006       |    |		Load	0x0,0x6
0706 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0707 e006       |    |		Load	0x0,0x6
0708 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0709 0119       |    |		Execute	Any,Check_In_Formal_Type
070a 4801       |H   |		Short_Literal	0x1
070b 00da       |    |		Load_Top	At_Offset_2
070c 01d6       |    |		Execute	Vector,Field_Write
070d 00db       |    |		Load_Top	At_Offset_3
070e e006       |    |		Load	0x0,0x6
070f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0710 e006       |    |		Load	0x0,0x6
0711 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0712 0119       |    |		Execute	Any,Check_In_Formal_Type
0713 4802       |H   |		Short_Literal	0x2
0714 00da       |    |		Load_Top	At_Offset_2
0715 01d6       |    |		Execute	Vector,Field_Write
0716 6009       |`   |		Indirect_Literal	Discrete,0x720,{0x00000000, 0x0000817c}
0717 8251       | Q  |		Call	0x1,0x51
0718 e001       |    |		Load	0x0,0x1
0719 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
071a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
071b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
071c 00db       |    |		Load_Top	At_Offset_3
071d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
071e 0000 0000  |    |		.XXX[0x2]
0720 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817c}
0724 0000 0000  |    |		.BLANK	0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b 00da       |    |		Load_Top	At_Offset_2
072c 8217       |    |		Call	0x1,0x17
072d 0092 0e5e  |   ^|		Action	Push_String_Extended,0xe5e					; "??'c(ada)"
072f 01cc       |    |		Execute	Vector,Catenate
0730 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0731 0000 0000  |    |		.BLANK	0000[0x7]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b       | ;  |		.CONST	0x073b								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0001       |    |		.CONST	0x0001								; Number of locals
073b			BODY_0738:
073b			INIT_0738:
073b e5fd       |    |		Load	0x2,-0x3
073c e5fe       |    |		Load	0x2,-0x2
073d e5fd       |    |		Load	0x2,-0x3
073e e5fe       |    |		Load	0x2,-0x2
073f e5ff       |    |		Load	0x2,-0x1
0740 8225       | %  |		Call	0x1,0x25
0741 8221       | !  |		Call	0x1,0x21
0742 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0743 0000 0000  |    |		.BLANK	0000[0x5]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 075d       | ]  |		.CONST	0x075d								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0005       |    |		.CONST	0x0005								; Number of locals
074b			INIT_0748:
074b e001       |    |		Load	0x0,0x1
074c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
074d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
074e 02c7       |    |		Declare_Variable	Any
074f 00db       |    |		Load_Top	At_Offset_3
0750 a402       |    |		Store_Unchecked	0x2,0x2
0751 e009       |    |		Load	0x0,0x9
0752 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0753 02c7       |    |		Declare_Variable	Any
0754 00d8       |    |		Load_Top	At_Offset_0
0755 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0756 e001       |    |		Load	0x0,0x1
0757 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0758 02c7       |    |		Declare_Variable	Any
0759 00d8       |    |		Load_Top	At_Offset_0
075a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
075b e001       |    |		Load	0x0,0x1
075c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
075d			BODY_0748:
075d e001       |    |		Load	0x0,0x1
075e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
075f 00da       |    |		Load_Top	At_Offset_2
0760 0120       |    |		Execute	Any,Is_Value
0761 6803       |h   |		Jump_Zero	0x765
0762 e001       |    |		Load	0x0,0x1
0763 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0764 7801       |x   |		Jump	0x766
0765 00da       |    |		Load_Top	At_Offset_2
0766 e005       |    |		Load	0x0,0x5
0767 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0768 0092 0e5f  |   _|		Action	Push_String_Extended,0xe5f					; "cmvc_set"
076a e009       |    |		Load	0x0,0x9
076b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
076c c404       |    |		Store	0x2,0x4
076d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
076e e001       |    |		Load	0x0,0x1
076f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0770 00db       |    |		Load_Top	At_Offset_3
0771 0120       |    |		Execute	Any,Is_Value
0772 6803       |h   |		Jump_Zero	0x776
0773 e009       |    |		Load	0x0,0x9
0774 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0775 7801       |x   |		Jump	0x777
0776 00db       |    |		Load_Top	At_Offset_3
0777 4800       |H   |		Short_Literal	0x0
0778 4801       |H   |		Short_Literal	0x1
0779 e005       |    |		Load	0x0,0x5
077a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
077b e404       |    |		Load	0x2,0x4
077c e009       |    |		Load	0x0,0x9
077d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
077e c403       |    |		Store	0x2,0x3
077f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0780 00cf       |    |		Action	Mark_Auxiliary
0781 780e       |x   |		Jump	0x790
0782 00db       |    |		Load_Top	At_Offset_3
0783 e5fd       |    |		Load	0x2,-0x3
0784 e5fe       |    |		Load	0x2,-0x2
0785 e402       |    |		Load	0x2,0x2
0786 8228       | (  |		Call	0x1,0x28
0787 e009       |    |		Load	0x0,0x9
0788 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0789 c403       |    |		Store	0x2,0x3
078a e402       |    |		Load	0x2,0x2
078b e001       |    |		Load	0x0,0x1
078c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
078d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
078e c402       |    |		Store	0x2,0x2
078f 00c9       |    |		Action	Pop_Auxiliary_Loop
0790 e402       |    |		Load	0x2,0x2
0791 e001       |    |		Load	0x0,0x1
0792 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0793 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0794 6fed       |o   |		Jump_Zero	0x782
0795 00ce       |    |		Action	Pop_Auxiliary
0796 e001       |    |		Load	0x0,0x1
0797 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0798 00db       |    |		Load_Top	At_Offset_3
0799 e009       |    |		Load	0x0,0x9
079a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
079b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
079c 00da       |    |		Load_Top	At_Offset_2
079d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
079e 0000 0000  |    |		.XXX[0x2]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07aa       |    |		.CONST	0x07aa								; Address of begin
07a1 0004       |    |		.CONST	0x0004								; Address of exception handler
07a2 0003       |    |		.CONST	0x0003								; Number of locals
07a3			INIT_07a0:
07a3 e001       |    |		Load	0x0,0x1
07a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07a5 02c7       |    |		Declare_Variable	Any
07a6 00d8       |    |		Load_Top	At_Offset_0
07a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a8 e001       |    |		Load	0x0,0x1
07a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07aa			BODY_07a0:
07aa e001       |    |		Load	0x0,0x1
07ab 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07ac 00da       |    |		Load_Top	At_Offset_2
07ad 0120       |    |		Execute	Any,Is_Value
07ae 6803       |h   |		Jump_Zero	0x7b2
07af e001       |    |		Load	0x0,0x1
07b0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07b1 7801       |x   |		Jump	0x7b3
07b2 00da       |    |		Load_Top	At_Offset_2
07b3 e5ff       |    |		Load	0x2,-0x1
07b4 e001       |    |		Load	0x0,0x1
07b5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07b6 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07b7 c402       |    |		Store	0x2,0x2
07b8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
07b9 00d8       |    |		Load_Top	At_Offset_0
07ba 7002       |p   |		Jump_Nonzero	0x7bd
07bb 00d9       |    |		Load_Top	At_Offset_1
07bc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
07bd e5fe       |    |		Load	0x2,-0x2
07be 7003       |p   |		Jump_Nonzero	0x7c2
07bf 00d8       |    |		Load_Top	At_Offset_0
07c0 0f09       |    |		Execute_Immediate	Equal,0x9
07c1 701e       |p   |		Jump_Nonzero	0x7e0
07c2 e5fd       |    |		Load	0x2,-0x3
07c3 4801       |H   |		Short_Literal	0x1
07c4 4802       |H   |		Short_Literal	0x2
07c5 e006       |    |		Load	0x0,0x6
07c6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07c7 035b       | [  |		Declare_Type	Array,Constrained
07c8 0337       | 7  |		Declare_Variable	Array
07c9 e5ff       |    |		Load	0x2,-0x1
07ca e001       |    |		Load	0x0,0x1
07cb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07cc 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
07cd e006       |    |		Load	0x0,0x6
07ce 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07cf e006       |    |		Load	0x0,0x6
07d0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07d1 0119       |    |		Execute	Any,Check_In_Formal_Type
07d2 4801       |H   |		Short_Literal	0x1
07d3 00da       |    |		Load_Top	At_Offset_2
07d4 01d6       |    |		Execute	Vector,Field_Write
07d5 00da       |    |		Load_Top	At_Offset_2
07d6 e006       |    |		Load	0x0,0x6
07d7 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
07d8 e006       |    |		Load	0x0,0x6
07d9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07da 0119       |    |		Execute	Any,Check_In_Formal_Type
07db 4802       |H   |		Short_Literal	0x2
07dc 00da       |    |		Load_Top	At_Offset_2
07dd 01d6       |    |		Execute	Vector,Field_Write
07de 6005       |`   |		Indirect_Literal	Discrete,0x7e4,{0x00000000, 0x0000817c}
07df 8251       | Q  |		Call	0x1,0x51
07e0 e001       |    |		Load	0x0,0x1
07e1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07e2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
07e3 0000       |    |		.XXX[0x1]
07e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000817c}
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07fa       |    |		.CONST	0x07fa								; Address of begin
07e9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ea 0005       |    |		.CONST	0x0005								; Number of locals
07eb			INIT_07e8:
07eb e001       |    |		Load	0x0,0x1
07ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07ed 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
07ee 02c7       |    |		Declare_Variable	Any
07ef 00db       |    |		Load_Top	At_Offset_3
07f0 a402       |    |		Store_Unchecked	0x2,0x2
07f1 e001       |    |		Load	0x0,0x1
07f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07f3 02c7       |    |		Declare_Variable	Any
07f4 00d8       |    |		Load_Top	At_Offset_0
07f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07f6 e001       |    |		Load	0x0,0x1
07f7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07f8 029f 0d83  |    |		Declare_Subprogram	INIT_0d80,For_Call
07fa			BODY_07e8:
07fa e001       |    |		Load	0x0,0x1
07fb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07fc 00db       |    |		Load_Top	At_Offset_3
07fd 0120       |    |		Execute	Any,Is_Value
07fe 6803       |h   |		Jump_Zero	0x802
07ff e001       |    |		Load	0x0,0x1
0800 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0801 7801       |x   |		Jump	0x803
0802 00db       |    |		Load_Top	At_Offset_3
0803 e402       |    |		Load	0x2,0x2
0804 e001       |    |		Load	0x0,0x1
0805 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0806 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0807 c403       |    |		Store	0x2,0x3
0808 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0809 0092 0e60  |   `|		Action	Push_String_Extended,0xe60					; "["
080b 00db       |    |		Load_Top	At_Offset_3
080c e001       |    |		Load	0x0,0x1
080d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
080e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
080f 8405       |    |		Call	0x2,0x5
0810 01cc       |    |		Execute	Vector,Catenate
0811 0092 0e61  |   a|		Action	Push_String_Extended,0xe61					; "]"
0813 01cc       |    |		Execute	Vector,Catenate
0814 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0815 0000 0000  |    |		.XXX[0x3]
0817 0000       |    |
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0821       | !  |		.CONST	0x0821								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 00db       |    |		Load_Top	At_Offset_3
081c 00db       |    |		Load_Top	At_Offset_3
081d 822b       | +  |		Call	0x1,0x2b
081e e00a       |    |		Load	0x0,0xa
081f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0820 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0821			TRAP_0818:
0821 010e       |    |		Execute	Exception,Is_Constraint_Error
0822 6803       |h   |		Jump_Zero	0x826
0823 0092 0e62  |   b|		Action	Push_String_Extended,0xe62					; "<UNREGISTERED>"
0825 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0826 0100       |    |		Execute	Exception,Raise
0827 0000       |    |		.XXX[0x1]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0832       | 2  |		.CONST	0x0832								; Address of begin
0829 086b       | k  |		.CONST	0x086b								; Address of exception handler
082a 0003       |    |		.CONST	0x0003								; Number of locals
082b			INIT_0828:
082b e001       |    |		Load	0x0,0x1
082c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
082d e001       |    |		Load	0x0,0x1
082e 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
082f 0322       | "  |		Declare_Variable	Record
0830 00d8       |    |		Load_Top	At_Offset_0
0831 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0832			BODY_0828:
0832 e001       |    |		Load	0x0,0x1
0833 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0834 00d9       |    |		Load_Top	At_Offset_1
0835 6042       |`B  |		Indirect_Literal	Discrete,0x878,{0x00000000, 0x00004000}
0836 e005       |    |		Load	0x0,0x5
0837 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0838 e5ff       |    |		Load	0x2,-0x1
0839 e001       |    |		Load	0x0,0x1
083a 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
083b 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
083c 00d1       |    |		Pop_Control	Pop_Count_1
083d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
083e 00d9       |    |		Load_Top	At_Offset_1
083f 7008       |p   |		Jump_Nonzero	0x848
0840 4801       |H   |		Short_Literal	0x1
0841 00d9       |    |		Load_Top	At_Offset_1
0842 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0843 4801       |H   |		Short_Literal	0x1
0844 00d9       |    |		Load_Top	At_Offset_1
0845 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0846 00d8       |    |		Load_Top	At_Offset_0
0847 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0848 00d8       |    |		Load_Top	At_Offset_0
0849 e001       |    |		Load	0x0,0x1
084a 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
084b 701c       |p   |		Jump_Nonzero	0x868
084c e5fe       |    |		Load	0x2,-0x2
084d 4801       |H   |		Short_Literal	0x1
084e 4802       |H   |		Short_Literal	0x2
084f e006       |    |		Load	0x0,0x6
0850 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0851 035b       | [  |		Declare_Type	Array,Constrained
0852 0337       | 7  |		Declare_Variable	Array
0853 e5ff       |    |		Load	0x2,-0x1
0854 8217       |    |		Call	0x1,0x17
0855 e006       |    |		Load	0x0,0x6
0856 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0857 e006       |    |		Load	0x0,0x6
0858 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0859 0119       |    |		Execute	Any,Check_In_Formal_Type
085a 4801       |H   |		Short_Literal	0x1
085b 00da       |    |		Load_Top	At_Offset_2
085c 01d6       |    |		Execute	Vector,Field_Write
085d 00db       |    |		Load_Top	At_Offset_3
085e e006       |    |		Load	0x0,0x6
085f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0860 e006       |    |		Load	0x0,0x6
0861 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0862 0119       |    |		Execute	Any,Check_In_Formal_Type
0863 4802       |H   |		Short_Literal	0x2
0864 00da       |    |		Load_Top	At_Offset_2
0865 01d6       |    |		Execute	Vector,Field_Write
0866 600d       |`   |		Indirect_Literal	Discrete,0x874,{0x00000000, 0x00008181}
0867 8251       | Q  |		Call	0x1,0x51
0868 e001       |    |		Load	0x0,0x1
0869 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
086a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
086b			TRAP_0828:
086b 010e       |    |		Execute	Exception,Is_Constraint_Error
086c 6803       |h   |		Jump_Zero	0x870
086d e001       |    |		Load	0x0,0x1
086e 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
086f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0870 0100       |    |		Execute	Exception,Raise
0871 0000 0000  |    |		.XXX[0x3]
0873 0000       |    |
0874 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008181}
0878 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
087c 0000 0000  |    |		.BLANK	0000[0x4]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 088b       |    |		.CONST	0x088b								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0002       |    |		.CONST	0x0002								; Number of locals
0883			INIT_0880:
0883 e001       |    |		Load	0x0,0x1
0884 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0885 02c7       |    |		Declare_Variable	Any
0886 e5fe       |    |		Load	0x2,-0x2
0887 4801       |H   |		Short_Literal	0x1
0888 e5ff       |    |		Load	0x2,-0x1
0889 821a       |    |		Call	0x1,0x1a
088a a402       |    |		Store_Unchecked	0x2,0x2
088b			BODY_0880:
088b e5fe       |    |		Load	0x2,-0x2
088c 00d9       |    |		Load_Top	At_Offset_1
088d 822a       | *  |		Call	0x1,0x2a
088e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
088f 0000       |    |		.XXX[0x1]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 089b       |    |		.CONST	0x089b								; Address of begin
0891 0004       |    |		.CONST	0x0004								; Address of exception handler
0892 0002       |    |		.CONST	0x0002								; Number of locals
0893			INIT_0890:
0893 e001       |    |		Load	0x0,0x1
0894 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0895 02c7       |    |		Declare_Variable	Any
0896 e5fe       |    |		Load	0x2,-0x2
0897 4801       |H   |		Short_Literal	0x1
0898 e5ff       |    |		Load	0x2,-0x1
0899 821a       |    |		Call	0x1,0x1a
089a a402       |    |		Store_Unchecked	0x2,0x2
089b			BODY_0890:
089b e5fe       |    |		Load	0x2,-0x2
089c 00d9       |    |		Load_Top	At_Offset_1
089d 822b       | +  |		Call	0x1,0x2b
089e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
089f 0000       |    |		.XXX[0x1]
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 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
08a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08a6 0000 0000  |    |		.XXX[0x2]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08b7       |    |		.CONST	0x08b7								; Address of begin
08a9 0004       |    |		.CONST	0x0004								; Address of exception handler
08aa 0003       |    |		.CONST	0x0003								; Number of locals
08ab			INIT_08a8:
08ab e001       |    |		Load	0x0,0x1
08ac 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
08ad 0322       | "  |		Declare_Variable	Record
08ae 00db       |    |		Load_Top	At_Offset_3
08af 00d9       |    |		Load_Top	At_Offset_1
08b0 017d       | }  |		Execute	Record,Structure_Write
08b1 e001       |    |		Load	0x0,0x1
08b2 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
08b3 0322       | "  |		Declare_Variable	Record
08b4 e5fe       |    |		Load	0x2,-0x2
08b5 00d9       |    |		Load_Top	At_Offset_1
08b6 017d       | }  |		Execute	Record,Structure_Write
08b7			BODY_08a8:
08b7 4801       |H   |		Short_Literal	0x1
08b8 00da       |    |		Load_Top	At_Offset_2
08b9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
08ba 4801       |H   |		Short_Literal	0x1
08bb 00da       |    |		Load_Top	At_Offset_2
08bc 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
08bd 4801       |H   |		Short_Literal	0x1
08be 00d9       |    |		Load_Top	At_Offset_1
08bf 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
08c0 4801       |H   |		Short_Literal	0x1
08c1 00d9       |    |		Load_Top	At_Offset_1
08c2 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
08c3 00d9       |    |		Load_Top	At_Offset_1
08c4 00d9       |    |		Load_Top	At_Offset_1
08c5 017f       |    |		Execute	Record,Equal
08c6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08c7 0000       |    |		.XXX[0x1]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08d1       |    |		.CONST	0x08d1								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0002       |    |		.CONST	0x0002								; Number of locals
08cb			INIT_08c8:
08cb e001       |    |		Load	0x0,0x1
08cc 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
08cd 0322       | "  |		Declare_Variable	Record
08ce 00db       |    |		Load_Top	At_Offset_3
08cf 00d9       |    |		Load_Top	At_Offset_1
08d0 017d       | }  |		Execute	Record,Structure_Write
08d1			BODY_08c8:
08d1 4801       |H   |		Short_Literal	0x1
08d2 00d9       |    |		Load_Top	At_Offset_1
08d3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
08d4 4801       |H   |		Short_Literal	0x1
08d5 00d9       |    |		Load_Top	At_Offset_1
08d6 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
08d7 4800       |H   |		Short_Literal	0x0
08d8 00d9       |    |		Load_Top	At_Offset_1
08d9 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
08da 00d8       |    |		Load_Top	At_Offset_0
08db e00a       |    |		Load	0x0,0xa
08dc 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
08dd 017f       |    |		Execute	Record,Equal
08de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08df 0000       |    |		.XXX[0x1]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3       |    |		.CONST	0x08e3								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0001       |    |		.CONST	0x0001								; Number of locals
08e3			BODY_08e0:
08e3			INIT_08e0:
08e3 00da       |    |		Load_Top	At_Offset_2
08e4 8245       | E  |		Call	0x1,0x45
08e5 0f00       |    |		Execute_Immediate	Equal,0x0
08e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08e7 0000       |    |		.XXX[0x1]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb       |    |		.CONST	0x08eb								; Address of begin
08e9 08f0       |    |		.CONST	0x08f0								; Address of exception handler
08ea 0001       |    |		.CONST	0x0001								; Number of locals
08eb			BODY_08e8:
08eb			INIT_08e8:
08eb 00db       |    |		Load_Top	At_Offset_3
08ec 00db       |    |		Load_Top	At_Offset_3
08ed 822b       | +  |		Call	0x1,0x2b
08ee 8245       | E  |		Call	0x1,0x45
08ef 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08f0			TRAP_08e8:
08f0 010e       |    |		Execute	Exception,Is_Constraint_Error
08f1 6802       |h   |		Jump_Zero	0x8f4
08f2 4800       |H   |		Short_Literal	0x0
08f3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08f4 0100       |    |		Execute	Exception,Raise
08f5 0000 0000  |    |		.XXX[0x3]
08f7 0000       |    |
08f8 ; --------------------------------------------------------------------------------------
08f8 ; SUBPROGRAM
08f8 ; --------------------------------------------------------------------------------------
08f8 08fb       |    |		.CONST	0x08fb								; Address of begin
08f9 0900       |    |		.CONST	0x0900								; Address of exception handler
08fa 0001       |    |		.CONST	0x0001								; Number of locals
08fb			BODY_08f8:
08fb			INIT_08f8:
08fb 00db       |    |		Load_Top	At_Offset_3
08fc 00db       |    |		Load_Top	At_Offset_3
08fd 822b       | +  |		Call	0x1,0x2b
08fe 8246       | F  |		Call	0x1,0x46
08ff 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0900			TRAP_08f8:
0900 010e       |    |		Execute	Exception,Is_Constraint_Error
0901 6802       |h   |		Jump_Zero	0x904
0902 4800       |H   |		Short_Literal	0x0
0903 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0904 0100       |    |		Execute	Exception,Raise
0905 0000 0000  |    |		.XXX[0x3]
0907 0000       |    |
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b       |    |		.CONST	0x090b								; Address of begin
0909 0919       |    |		.CONST	0x0919								; Address of exception handler
090a 0001       |    |		.CONST	0x0001								; Number of locals
090b			BODY_0908:
090b			INIT_0908:
090b 4801       |H   |		Short_Literal	0x1
090c 0092 0e62  |   b|		Action	Push_String_Extended,0xe62					; "<UNREGISTERED>"
090e e5ff       |    |		Load	0x2,-0x1
090f e004       |    |		Load	0x0,0x4
0910 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0911 6802       |h   |		Jump_Zero	0x914
0912 4801       |H   |		Short_Literal	0x1
0913 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0914 00da       |    |		Load_Top	At_Offset_2
0915 e00b       |    |		Load	0x0,0xb
0916 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0917 0f00       |    |		Execute_Immediate	Equal,0x0
0918 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0919			TRAP_0908:
0919 0007       |    |		Action	Break_Optional
091a 4801       |H   |		Short_Literal	0x1
091b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
091c 0000 0000  |    |		.BLANK	0000[0x4]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0923       | #  |		.CONST	0x0923								; Address of begin
0921 0932       | 2  |		.CONST	0x0932								; Address of exception handler
0922 0001       |    |		.CONST	0x0001								; Number of locals
0923			BODY_0920:
0923			INIT_0920:
0923 00da       |    |		Load_Top	At_Offset_2
0924 8231       | 1  |		Call	0x1,0x31
0925 6802       |h   |		Jump_Zero	0x928
0926 4800       |H   |		Short_Literal	0x0
0927 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0928 00da       |    |		Load_Top	At_Offset_2
0929 e00a       |    |		Load	0x0,0xa
092a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
092b e00c       |    |		Load	0x0,0xc
092c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
092d 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
092e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
092f e00d       |    |		Load	0x0,0xd
0930 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0931 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0932			TRAP_0920:
0932 0007       |    |		Action	Break_Optional
0933 4800       |H   |		Short_Literal	0x0
0934 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0935 0000 0000  |    |		.XXX[0x3]
0937 0000       |    |
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 0949       | I  |		.CONST	0x0949								; Address of begin
0939 0957       | W  |		.CONST	0x0957								; Address of exception handler
093a 0002       |    |		.CONST	0x0002								; Number of locals
093b			INIT_0938:
093b 00da       |    |		Load_Top	At_Offset_2
093c 8217       |    |		Call	0x1,0x17
093d 0092 0e63  |   c|		Action	Push_String_Extended,0xe63					; ".STATE.TOOL_STATE."
093f 01cc       |    |		Execute	Vector,Catenate
0940 e5fe       |    |		Load	0x2,-0x2
0941 e00a       |    |		Load	0x0,0xa
0942 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0943 01cc       |    |		Execute	Vector,Catenate
0944 0092 0e64  |   d|		Action	Push_String_Extended,0xe64					; "_STATE_FILE"
0946 01cc       |    |		Execute	Vector,Catenate
0947 e004       |    |		Load	0x0,0x4
0948 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0949			BODY_0938:
0949 0092 0e65  |   e|		Action	Push_String_Extended,0xe65					; "<QUIET>"
094b e00e       |    |		Load	0x0,0xe
094c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
094d 4800       |H   |		Short_Literal	0x0
094e 00da       |    |		Load_Top	At_Offset_2
094f 821a       |    |		Call	0x1,0x1a
0950 e001       |    |		Load	0x0,0x1
0951 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0952 6802       |h   |		Jump_Zero	0x955
0953 00ea       |    |		Load_Encached	Null_String_Cache
0954 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0955 00d8       |    |		Load_Top	At_Offset_0
0956 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0957			TRAP_0938:
0957 0007       |    |		Action	Break_Optional
0958 00ea       |    |		Load_Encached	Null_String_Cache
0959 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
095a 0000 0000  |    |		.BLANK	0000[0x6]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963       | c  |		.CONST	0x0963								; Address of begin
0961 0004       |    |		.CONST	0x0004								; Address of exception handler
0962 0001       |    |		.CONST	0x0001								; Number of locals
0963			BODY_0960:
0963			INIT_0960:
0963 00db       |    |		Load_Top	At_Offset_3
0964 00db       |    |		Load_Top	At_Offset_3
0965 8248       | H  |		Call	0x1,0x48
0966 01db       |    |		Execute	Vector,Length
0967 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0968 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0969 0000 0000  |    |		.BLANK	0000[0x7]
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 098f       |    |		.CONST	0x098f								; Address of begin
0971 09d4       |    |		.CONST	0x09d4								; Address of exception handler
0972 000a       |    |		.CONST	0x000a								; Number of locals
0973			INIT_0970:
0973 4801       |H   |		Short_Literal	0x1
0974 4809       |H   |		Short_Literal	0x9
0975 00e2       |    |		Load_Encached	Integer_Cache
0976 02a0       |    |		Declare_Subprogram	Null_Subprogram
0977 4801       |H   |		Short_Literal	0x1
0978 035d       | ]  |		Declare_Type	Array,Defined
0979 00e3       |    |		Load_Encached	Natural_Cache
097a 00d9       |    |		Load_Top	At_Offset_1
097b 02a0       |    |		Declare_Subprogram	Null_Subprogram
097c 4802       |H   |		Short_Literal	0x2
097d 032d       | -  |		Declare_Type	Record,Defined
097e e5ff       |    |		Load	0x2,-0x1
097f 8217       |    |		Call	0x1,0x17
0980 00d8       |    |		Load_Top	At_Offset_0
0981 0092 0e66  |   f|		Action	Push_String_Extended,0xe66					; ".STATE.LAST_RELEASE_NAME"
0983 01cc       |    |		Execute	Vector,Catenate
0984 0007       |    |		Action	Break_Optional
0985 00da       |    |		Load_Top	At_Offset_2
0986 0322       | "  |		Declare_Variable	Record
0987 029f 0db3  |    |		Declare_Subprogram	INIT_0db0,For_Call
0989 029f 0e0b  |    |		Declare_Subprogram	INIT_0e08,For_Call
098b 029f 0e23  |   #|		Declare_Subprogram	INIT_0e20,For_Call
098d 029f 0e3b  |   ;|		Declare_Subprogram	INIT_0e38,For_Call
098f			BODY_0970:
098f e406       |    |		Load	0x2,0x6
0990 e5fc       |    |		Load	0x2,-0x4
0991 4801       |H   |		Short_Literal	0x1
0992 e405       |    |		Load	0x2,0x5
0993 821a       |    |		Call	0x1,0x1a
0994 8407       |    |		Call	0x2,0x7
0995 00d1       |    |		Pop_Control	Pop_Count_1
0996 e5fe       |    |		Load	0x2,-0x2
0997 e406       |    |		Load	0x2,0x6
0998 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0999 027b       | {  |		Execute	Discrete,Greater_Equal
099a 681e       |h   |		Jump_Zero	0x9b9
099b e5fc       |    |		Load	0x2,-0x4
099c 4801       |H   |		Short_Literal	0x1
099d 4802       |H   |		Short_Literal	0x2
099e e006       |    |		Load	0x0,0x6
099f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09a0 035b       | [  |		Declare_Type	Array,Constrained
09a1 0337       | 7  |		Declare_Variable	Array
09a2 e404       |    |		Load	0x2,0x4
09a3 e006       |    |		Load	0x0,0x6
09a4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09a5 e006       |    |		Load	0x0,0x6
09a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09a7 0119       |    |		Execute	Any,Check_In_Formal_Type
09a8 4801       |H   |		Short_Literal	0x1
09a9 00da       |    |		Load_Top	At_Offset_2
09aa 01d6       |    |		Execute	Vector,Field_Write
09ab e5fe       |    |		Load	0x2,-0x2
09ac e006       |    |		Load	0x0,0x6
09ad 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
09ae e006       |    |		Load	0x0,0x6
09af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09b0 0119       |    |		Execute	Any,Check_In_Formal_Type
09b1 4802       |H   |		Short_Literal	0x2
09b2 00da       |    |		Load_Top	At_Offset_2
09b3 01d6       |    |		Execute	Vector,Field_Write
09b4 6027       |`'  |		Indirect_Literal	Discrete,0x9dc,{0x00000000, 0x00008183}
09b5 e00f       |    |		Load	0x0,0xf
09b6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
09b7 e010       |    |		Load	0x0,0x10
09b8 0257       | W  |		Execute	Discrete,Raise
09b9 e5fd       |    |		Load	0x2,-0x3
09ba 6811       |h   |		Jump_Zero	0x9cc
09bb e404       |    |		Load	0x2,0x4
09bc 8409       |    |		Call	0x2,0x9
09bd e406       |    |		Load	0x2,0x6
09be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09bf 0aff       |    |		Execute_Immediate	Plus,-0x1
09c0 00d8       |    |		Load_Top	At_Offset_0
09c1 00e3       |    |		Load_Encached	Natural_Cache
09c2 0260       | `  |		Execute	Discrete,In_Type
09c3 7001       |p   |		Jump_Nonzero	0x9c5
09c4 0801       |    |		Execute_Immediate	Raise,0x1
09c5 4801       |H   |		Short_Literal	0x1
09c6 840a       |    |		Call	0x2,0xa
09c7 01cc       |    |		Execute	Vector,Catenate
09c8 0092 0e67  |   g|		Action	Push_String_Extended,0xe67					; "_Spec"
09ca 01cc       |    |		Execute	Vector,Catenate
09cb 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
09cc e404       |    |		Load	0x2,0x4
09cd 8408       |    |		Call	0x2,0x8
09ce e406       |    |		Load	0x2,0x6
09cf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09d0 4801       |H   |		Short_Literal	0x1
09d1 840a       |    |		Call	0x2,0xa
09d2 01cc       |    |		Execute	Vector,Catenate
09d3 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
09d4			TRAP_0970:
09d4 e010       |    |		Load	0x0,0x10
09d5 010f       |    |		Execute	Exception,Equal
09d6 6802       |h   |		Jump_Zero	0x9d9
09d7 00ea       |    |		Load_Encached	Null_String_Cache
09d8 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
09d9 0100       |    |		Execute	Exception,Raise
09da 0000 0000  |    |		.XXX[0x2]
09dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008183}
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09f7       |    |		.CONST	0x09f7								; Address of begin
09e1 0004       |    |		.CONST	0x0004								; Address of exception handler
09e2 0006       |    |		.CONST	0x0006								; Number of locals
09e3			INIT_09e0:
09e3 e5fd       |    |		Load	0x2,-0x3
09e4 e00e       |    |		Load	0x0,0xe
09e5 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
09e6 e001       |    |		Load	0x0,0x1
09e7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09e8 02c7       |    |		Declare_Variable	Any
09e9 00d8       |    |		Load_Top	At_Offset_0
09ea 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09eb e009       |    |		Load	0x0,0x9
09ec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09ed 02c7       |    |		Declare_Variable	Any
09ee 00d8       |    |		Load_Top	At_Offset_0
09ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09f0 e009       |    |		Load	0x0,0x9
09f1 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
09f2 02c7       |    |		Declare_Variable	Any
09f3 00d8       |    |		Load_Top	At_Offset_0
09f4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09f5 e001       |    |		Load	0x0,0x1
09f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09f7			BODY_09e0:
09f7 00be       |    |		Action	Activate_Tasks
09f8 e5fd       |    |		Load	0x2,-0x3
09f9 4801       |H   |		Short_Literal	0x1
09fa e5ff       |    |		Load	0x2,-0x1
09fb 8217       |    |		Call	0x1,0x17
09fc 0092 0e68  |   h|		Action	Push_String_Extended,0xe68					; ".STATE.MODEL"
09fe 01cc       |    |		Execute	Vector,Catenate
09ff 821a       |    |		Call	0x1,0x1a
0a00 c403       |    |		Store	0x2,0x3
0a01 00db       |    |		Load_Top	At_Offset_3
0a02 e009       |    |		Load	0x0,0x9
0a03 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0a04 702a       |p*  |		Jump_Nonzero	0xa2f
0a05 e5fe       |    |		Load	0x2,-0x2
0a06 6825       |h%  |		Jump_Zero	0xa2c
0a07 e5fd       |    |		Load	0x2,-0x3
0a08 4801       |H   |		Short_Literal	0x1
0a09 4803       |H   |		Short_Literal	0x3
0a0a e006       |    |		Load	0x0,0x6
0a0b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a0c 035b       | [  |		Declare_Type	Array,Constrained
0a0d 0337       | 7  |		Declare_Variable	Array
0a0e e5ff       |    |		Load	0x2,-0x1
0a0f e006       |    |		Load	0x0,0x6
0a10 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a11 e006       |    |		Load	0x0,0x6
0a12 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a13 0119       |    |		Execute	Any,Check_In_Formal_Type
0a14 4801       |H   |		Short_Literal	0x1
0a15 00da       |    |		Load_Top	At_Offset_2
0a16 01d6       |    |		Execute	Vector,Field_Write
0a17 e403       |    |		Load	0x2,0x3
0a18 e006       |    |		Load	0x0,0x6
0a19 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a1a e006       |    |		Load	0x0,0x6
0a1b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a1c 0119       |    |		Execute	Any,Check_In_Formal_Type
0a1d 4802       |H   |		Short_Literal	0x2
0a1e 00da       |    |		Load_Top	At_Offset_2
0a1f 01d6       |    |		Execute	Vector,Field_Write
0a20 0092 0e69  |   i|		Action	Push_String_Extended,0xe69					; "NOT AN OBJECT SET"
0a22 e006       |    |		Load	0x0,0x6
0a23 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a24 e006       |    |		Load	0x0,0x6
0a25 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a26 0119       |    |		Execute	Any,Check_In_Formal_Type
0a27 4803       |H   |		Short_Literal	0x3
0a28 00da       |    |		Load_Top	At_Offset_2
0a29 01d6       |    |		Execute	Vector,Field_Write
0a2a 60e1       |`   |		Indirect_Literal	Discrete,0xb0c,{0x00000000, 0x00008184}
0a2b 8251       | Q  |		Call	0x1,0x51
0a2c e001       |    |		Load	0x0,0x1
0a2d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a2e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a2f e001       |    |		Load	0x0,0x1
0a30 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a31 00db       |    |		Load_Top	At_Offset_3
0a32 0120       |    |		Execute	Any,Is_Value
0a33 6803       |h   |		Jump_Zero	0xa37
0a34 e009       |    |		Load	0x0,0x9
0a35 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a36 7801       |x   |		Jump	0xa38
0a37 00db       |    |		Load_Top	At_Offset_3
0a38 4800       |H   |		Short_Literal	0x0
0a39 4800       |H   |		Short_Literal	0x0
0a3a e005       |    |		Load	0x0,0x5
0a3b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a3c e403       |    |		Load	0x2,0x3
0a3d e009       |    |		Load	0x0,0x9
0a3e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a3f c404       |    |		Store	0x2,0x4
0a40 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0a41 00d8       |    |		Load_Top	At_Offset_0
0a42 6855       |hU  |		Jump_Zero	0xa98
0a43 e001       |    |		Load	0x0,0x1
0a44 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a45 00db       |    |		Load_Top	At_Offset_3
0a46 e009       |    |		Load	0x0,0x9
0a47 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a48 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0a49 e5fe       |    |		Load	0x2,-0x2
0a4a 6825       |h%  |		Jump_Zero	0xa70
0a4b e5fd       |    |		Load	0x2,-0x3
0a4c 4801       |H   |		Short_Literal	0x1
0a4d 4803       |H   |		Short_Literal	0x3
0a4e e006       |    |		Load	0x0,0x6
0a4f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a50 035b       | [  |		Declare_Type	Array,Constrained
0a51 0337       | 7  |		Declare_Variable	Array
0a52 e5ff       |    |		Load	0x2,-0x1
0a53 e006       |    |		Load	0x0,0x6
0a54 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a55 e006       |    |		Load	0x0,0x6
0a56 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a57 0119       |    |		Execute	Any,Check_In_Formal_Type
0a58 4801       |H   |		Short_Literal	0x1
0a59 00da       |    |		Load_Top	At_Offset_2
0a5a 01d6       |    |		Execute	Vector,Field_Write
0a5b e403       |    |		Load	0x2,0x3
0a5c e006       |    |		Load	0x0,0x6
0a5d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a5e e006       |    |		Load	0x0,0x6
0a5f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a60 0119       |    |		Execute	Any,Check_In_Formal_Type
0a61 4802       |H   |		Short_Literal	0x2
0a62 00da       |    |		Load_Top	At_Offset_2
0a63 01d6       |    |		Execute	Vector,Field_Write
0a64 00da       |    |		Load_Top	At_Offset_2
0a65 e006       |    |		Load	0x0,0x6
0a66 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0a67 e006       |    |		Load	0x0,0x6
0a68 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a69 0119       |    |		Execute	Any,Check_In_Formal_Type
0a6a 4803       |H   |		Short_Literal	0x3
0a6b 00da       |    |		Load_Top	At_Offset_2
0a6c 01d6       |    |		Execute	Vector,Field_Write
0a6d 609e       |`   |		Indirect_Literal	Discrete,0xb0c,{0x00000000, 0x00008184}
0a6e 8251       | Q  |		Call	0x1,0x51
0a6f 7825       |x%  |		Jump	0xa95
0a70 e5fd       |    |		Load	0x2,-0x3
0a71 4801       |H   |		Short_Literal	0x1
0a72 4803       |H   |		Short_Literal	0x3
0a73 e006       |    |		Load	0x0,0x6
0a74 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a75 035b       | [  |		Declare_Type	Array,Constrained
0a76 0337       | 7  |		Declare_Variable	Array
0a77 e5ff       |    |		Load	0x2,-0x1
0a78 e006       |    |		Load	0x0,0x6
0a79 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a7a e006       |    |		Load	0x0,0x6
0a7b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a7c 0119       |    |		Execute	Any,Check_In_Formal_Type
0a7d 4801       |H   |		Short_Literal	0x1
0a7e 00da       |    |		Load_Top	At_Offset_2
0a7f 01d6       |    |		Execute	Vector,Field_Write
0a80 e403       |    |		Load	0x2,0x3
0a81 e006       |    |		Load	0x0,0x6
0a82 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a83 e006       |    |		Load	0x0,0x6
0a84 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a85 0119       |    |		Execute	Any,Check_In_Formal_Type
0a86 4802       |H   |		Short_Literal	0x2
0a87 00da       |    |		Load_Top	At_Offset_2
0a88 01d6       |    |		Execute	Vector,Field_Write
0a89 00da       |    |		Load_Top	At_Offset_2
0a8a e006       |    |		Load	0x0,0x6
0a8b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0a8c e006       |    |		Load	0x0,0x6
0a8d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a8e 0119       |    |		Execute	Any,Check_In_Formal_Type
0a8f 4803       |H   |		Short_Literal	0x3
0a90 00da       |    |		Load_Top	At_Offset_2
0a91 01d6       |    |		Execute	Vector,Field_Write
0a92 6079       |`y  |		Indirect_Literal	Discrete,0xb0c,{0x00000000, 0x00008184}
0a93 e00f       |    |		Load	0x0,0xf
0a94 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0a95 e001       |    |		Load	0x0,0x1
0a96 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a97 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0a98 00d9       |    |		Load_Top	At_Offset_1
0a99 0120       |    |		Execute	Any,Is_Value
0a9a 6803       |h   |		Jump_Zero	0xa9e
0a9b e009       |    |		Load	0x0,0x9
0a9c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0a9d 7801       |x   |		Jump	0xa9f
0a9e 00d9       |    |		Load_Top	At_Offset_1
0a9f 00db       |    |		Load_Top	At_Offset_3
0aa0 e009       |    |		Load	0x0,0x9
0aa1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0aa2 c405       |    |		Store	0x2,0x5
0aa3 00d9       |    |		Load_Top	At_Offset_1
0aa4 e009       |    |		Load	0x0,0x9
0aa5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0aa6 6857       |hW  |		Jump_Zero	0xafe
0aa7 e001       |    |		Load	0x0,0x1
0aa8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0aa9 00db       |    |		Load_Top	At_Offset_3
0aaa e009       |    |		Load	0x0,0x9
0aab 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0aac 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0aad e5fe       |    |		Load	0x2,-0x2
0aae 6826       |h&  |		Jump_Zero	0xad5
0aaf e5fd       |    |		Load	0x2,-0x3
0ab0 4801       |H   |		Short_Literal	0x1
0ab1 4803       |H   |		Short_Literal	0x3
0ab2 e006       |    |		Load	0x0,0x6
0ab3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ab4 035b       | [  |		Declare_Type	Array,Constrained
0ab5 0337       | 7  |		Declare_Variable	Array
0ab6 e5ff       |    |		Load	0x2,-0x1
0ab7 e006       |    |		Load	0x0,0x6
0ab8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ab9 e006       |    |		Load	0x0,0x6
0aba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0abb 0119       |    |		Execute	Any,Check_In_Formal_Type
0abc 4801       |H   |		Short_Literal	0x1
0abd 00da       |    |		Load_Top	At_Offset_2
0abe 01d6       |    |		Execute	Vector,Field_Write
0abf e403       |    |		Load	0x2,0x3
0ac0 e006       |    |		Load	0x0,0x6
0ac1 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ac2 e006       |    |		Load	0x0,0x6
0ac3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ac4 0119       |    |		Execute	Any,Check_In_Formal_Type
0ac5 4802       |H   |		Short_Literal	0x2
0ac6 00da       |    |		Load_Top	At_Offset_2
0ac7 01d6       |    |		Execute	Vector,Field_Write
0ac8 0092 0e6a  |   j|		Action	Push_String_Extended,0xe6a					; "EMPTY OBJECT SET"
0aca e006       |    |		Load	0x0,0x6
0acb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0acc e006       |    |		Load	0x0,0x6
0acd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ace 0119       |    |		Execute	Any,Check_In_Formal_Type
0acf 4803       |H   |		Short_Literal	0x3
0ad0 00da       |    |		Load_Top	At_Offset_2
0ad1 01d6       |    |		Execute	Vector,Field_Write
0ad2 6039       |`9  |		Indirect_Literal	Discrete,0xb0c,{0x00000000, 0x00008184}
0ad3 8251       | Q  |		Call	0x1,0x51
0ad4 7826       |x&  |		Jump	0xafb
0ad5 e5fd       |    |		Load	0x2,-0x3
0ad6 4801       |H   |		Short_Literal	0x1
0ad7 4803       |H   |		Short_Literal	0x3
0ad8 e006       |    |		Load	0x0,0x6
0ad9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0ada 035b       | [  |		Declare_Type	Array,Constrained
0adb 0337       | 7  |		Declare_Variable	Array
0adc e5ff       |    |		Load	0x2,-0x1
0add e006       |    |		Load	0x0,0x6
0ade 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0adf e006       |    |		Load	0x0,0x6
0ae0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ae1 0119       |    |		Execute	Any,Check_In_Formal_Type
0ae2 4801       |H   |		Short_Literal	0x1
0ae3 00da       |    |		Load_Top	At_Offset_2
0ae4 01d6       |    |		Execute	Vector,Field_Write
0ae5 e403       |    |		Load	0x2,0x3
0ae6 e006       |    |		Load	0x0,0x6
0ae7 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0ae8 e006       |    |		Load	0x0,0x6
0ae9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0aea 0119       |    |		Execute	Any,Check_In_Formal_Type
0aeb 4802       |H   |		Short_Literal	0x2
0aec 00da       |    |		Load_Top	At_Offset_2
0aed 01d6       |    |		Execute	Vector,Field_Write
0aee 0092 0e6a  |   j|		Action	Push_String_Extended,0xe6a					; "EMPTY OBJECT SET"
0af0 e006       |    |		Load	0x0,0x6
0af1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0af2 e006       |    |		Load	0x0,0x6
0af3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0af4 0119       |    |		Execute	Any,Check_In_Formal_Type
0af5 4803       |H   |		Short_Literal	0x3
0af6 00da       |    |		Load_Top	At_Offset_2
0af7 01d6       |    |		Execute	Vector,Field_Write
0af8 6013       |`   |		Indirect_Literal	Discrete,0xb0c,{0x00000000, 0x00008184}
0af9 e00f       |    |		Load	0x0,0xf
0afa 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0afb e001       |    |		Load	0x0,0x1
0afc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0afd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0afe 00d9       |    |		Load_Top	At_Offset_1
0aff e009       |    |		Load	0x0,0x9
0b00 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0b01 c403       |    |		Store	0x2,0x3
0b02 e001       |    |		Load	0x0,0x1
0b03 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b04 00db       |    |		Load_Top	At_Offset_3
0b05 e009       |    |		Load	0x0,0x9
0b06 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b07 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0b08 00db       |    |		Load_Top	At_Offset_3
0b09 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b0a 0000 0000  |    |		.XXX[0x2]
0b0c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008184}
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; --------------------------------------------------------------------------------------
0b10 0b18       |    |		.CONST	0x0b18								; Address of begin
0b11 0004       |    |		.CONST	0x0004								; Address of exception handler
0b12 0002       |    |		.CONST	0x0002								; Number of locals
0b13			INIT_0b10:
0b13 e001       |    |		Load	0x0,0x1
0b14 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b15 02c7       |    |		Declare_Variable	Any
0b16 00d8       |    |		Load_Top	At_Offset_0
0b17 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b18			BODY_0b10:
0b18 4801       |H   |		Short_Literal	0x1
0b19 0092 0e6b  |   k|		Action	Push_String_Extended,0xe6b					; "<INHERIT_MODEL>"
0b1b e5ff       |    |		Load	0x2,-0x1
0b1c e004       |    |		Load	0x0,0x4
0b1d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0b1e 6806       |h   |		Jump_Zero	0xb25
0b1f e5fc       |    |		Load	0x2,-0x4
0b20 e5fd       |    |		Load	0x2,-0x3
0b21 e5fe       |    |		Load	0x2,-0x2
0b22 8236       | 6  |		Call	0x1,0x36
0b23 c402       |    |		Store	0x2,0x2
0b24 7814       |x   |		Jump	0xb39
0b25 4800       |H   |		Short_Literal	0x0
0b26 e5ff       |    |		Load	0x2,-0x1
0b27 4821       |H!  |		Short_Literal	0x21
0b28 e004       |    |		Load	0x0,0x4
0b29 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0b2a 6806       |h   |		Jump_Zero	0xb31
0b2b e5fc       |    |		Load	0x2,-0x4
0b2c e5fd       |    |		Load	0x2,-0x3
0b2d e5ff       |    |		Load	0x2,-0x1
0b2e 821a       |    |		Call	0x1,0x1a
0b2f c402       |    |		Store	0x2,0x2
0b30 7808       |x   |		Jump	0xb39
0b31 e5fc       |    |		Load	0x2,-0x4
0b32 e5fd       |    |		Load	0x2,-0x3
0b33 0092 0e6c  |   l|		Action	Push_String_Extended,0xe6c					; "!Model."
0b35 e5ff       |    |		Load	0x2,-0x1
0b36 01cc       |    |		Execute	Vector,Catenate
0b37 821a       |    |		Call	0x1,0x1a
0b38 c402       |    |		Store	0x2,0x2
0b39 00d8       |    |		Load_Top	At_Offset_0
0b3a e001       |    |		Load	0x0,0x1
0b3b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b3c 6803       |h   |		Jump_Zero	0xb40
0b3d e001       |    |		Load	0x0,0x1
0b3e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b3f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0b40 e5fc       |    |		Load	0x2,-0x4
0b41 00d9       |    |		Load_Top	At_Offset_1
0b42 8230       | 0  |		Call	0x1,0x30
0b43 7002       |p   |		Jump_Nonzero	0xb46
0b44 00d8       |    |		Load_Top	At_Offset_0
0b45 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0b46 e5fd       |    |		Load	0x2,-0x3
0b47 6812       |h   |		Jump_Zero	0xb5a
0b48 e5fc       |    |		Load	0x2,-0x4
0b49 4801       |H   |		Short_Literal	0x1
0b4a 4801       |H   |		Short_Literal	0x1
0b4b e006       |    |		Load	0x0,0x6
0b4c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b4d 035b       | [  |		Declare_Type	Array,Constrained
0b4e 0337       | 7  |		Declare_Variable	Array
0b4f 00da       |    |		Load_Top	At_Offset_2
0b50 e006       |    |		Load	0x0,0x6
0b51 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0b52 e006       |    |		Load	0x0,0x6
0b53 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b54 0119       |    |		Execute	Any,Check_In_Formal_Type
0b55 4801       |H   |		Short_Literal	0x1
0b56 00da       |    |		Load_Top	At_Offset_2
0b57 01d6       |    |		Execute	Vector,Field_Write
0b58 6007       |`   |		Indirect_Literal	Discrete,0xb60,{0x00000000, 0x00008185}
0b59 8251       | Q  |		Call	0x1,0x51
0b5a e001       |    |		Load	0x0,0x1
0b5b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b5c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0b5d 0000 0000  |    |		.XXX[0x3]
0b5f 0000       |    |
0b60 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008185}
0b64 0000 0000  |    |		.BLANK	0000[0x4]
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6b       | k  |		.CONST	0x0b6b								; Address of begin
0b69 0004       |    |		.CONST	0x0004								; Address of exception handler
0b6a 0001       |    |		.CONST	0x0001								; Number of locals
0b6b			BODY_0b68:
0b6b			INIT_0b68:
0b6b 00da       |    |		Load_Top	At_Offset_2
0b6c e001       |    |		Load	0x0,0x1
0b6d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0b6e e002       |    |		Load	0x0,0x2
0b6f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0b70 012f       | /  |		Execute	Any,Equal
0b71 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b72 0000 0000  |    |		.BLANK	0000[0x6]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b81       |    |		.CONST	0x0b81								; Address of begin
0b79 0004       |    |		.CONST	0x0004								; Address of exception handler
0b7a 0002       |    |		.CONST	0x0002								; Number of locals
0b7b			INIT_0b78:
0b7b 00da       |    |		Load_Top	At_Offset_2
0b7c e001       |    |		Load	0x0,0x1
0b7d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0b7e e001       |    |		Load	0x0,0x1
0b7f 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0b80 03f1       |    |		Declare_Variable	Discrete,With_Value
0b81			BODY_0b78:
0b81 00db       |    |		Load_Top	At_Offset_3
0b82 8238       | 8  |		Call	0x1,0x38
0b83 7002       |p   |		Jump_Nonzero	0xb86
0b84 4800       |H   |		Short_Literal	0x0
0b85 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b86 00d8       |    |		Load_Top	At_Offset_0
0b87 e003       |    |		Load	0x0,0x3
0b88 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0b89 027f       |    |		Execute	Discrete,Equal
0b8a 7036       |p6  |		Jump_Nonzero	0xbc1
0b8b 00d8       |    |		Load_Top	At_Offset_0
0b8c e003       |    |		Load	0x0,0x3
0b8d 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0b8e 027f       |    |		Execute	Discrete,Equal
0b8f 702f       |p/  |		Jump_Nonzero	0xbbf
0b90 00d8       |    |		Load_Top	At_Offset_0
0b91 e003       |    |		Load	0x0,0x3
0b92 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0b93 027f       |    |		Execute	Discrete,Equal
0b94 7028       |p(  |		Jump_Nonzero	0xbbd
0b95 00d8       |    |		Load_Top	At_Offset_0
0b96 e003       |    |		Load	0x0,0x3
0b97 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0b98 027f       |    |		Execute	Discrete,Equal
0b99 7021       |p!  |		Jump_Nonzero	0xbbb
0b9a 00d8       |    |		Load_Top	At_Offset_0
0b9b e003       |    |		Load	0x0,0x3
0b9c 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0b9d 027f       |    |		Execute	Discrete,Equal
0b9e 701a       |p   |		Jump_Nonzero	0xbb9
0b9f 00d8       |    |		Load_Top	At_Offset_0
0ba0 e003       |    |		Load	0x0,0x3
0ba1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0ba2 027f       |    |		Execute	Discrete,Equal
0ba3 7013       |p   |		Jump_Nonzero	0xbb7
0ba4 00d8       |    |		Load_Top	At_Offset_0
0ba5 e003       |    |		Load	0x0,0x3
0ba6 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0ba7 027f       |    |		Execute	Discrete,Equal
0ba8 700c       |p   |		Jump_Nonzero	0xbb5
0ba9 00d8       |    |		Load_Top	At_Offset_0
0baa e003       |    |		Load	0x0,0x3
0bab 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0bac 027f       |    |		Execute	Discrete,Equal
0bad 7005       |p   |		Jump_Nonzero	0xbb3
0bae 00d8       |    |		Load_Top	At_Offset_0
0baf e003       |    |		Load	0x0,0x3
0bb0 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0bb1 027f       |    |		Execute	Discrete,Equal
0bb2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bb3 4801       |H   |		Short_Literal	0x1
0bb4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bb5 4801       |H   |		Short_Literal	0x1
0bb6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bb7 4801       |H   |		Short_Literal	0x1
0bb8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bb9 4801       |H   |		Short_Literal	0x1
0bba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bbb 4801       |H   |		Short_Literal	0x1
0bbc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bbd 4801       |H   |		Short_Literal	0x1
0bbe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bbf 4801       |H   |		Short_Literal	0x1
0bc0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bc1 4801       |H   |		Short_Literal	0x1
0bc2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bc3 0000 0000  |    |		.BLANK	0000[0x5]
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bd1       |    |		.CONST	0x0bd1								; Address of begin
0bc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bca 0002       |    |		.CONST	0x0002								; Number of locals
0bcb			INIT_0bc8:
0bcb 00da       |    |		Load_Top	At_Offset_2
0bcc e001       |    |		Load	0x0,0x1
0bcd 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0bce e001       |    |		Load	0x0,0x1
0bcf 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0bd0 03f1       |    |		Declare_Variable	Discrete,With_Value
0bd1			BODY_0bc8:
0bd1 00db       |    |		Load_Top	At_Offset_3
0bd2 8238       | 8  |		Call	0x1,0x38
0bd3 7002       |p   |		Jump_Nonzero	0xbd6
0bd4 4800       |H   |		Short_Literal	0x0
0bd5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bd6 00d8       |    |		Load_Top	At_Offset_0
0bd7 e003       |    |		Load	0x0,0x3
0bd8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0bd9 027f       |    |		Execute	Discrete,Equal
0bda 7036       |p6  |		Jump_Nonzero	0xc11
0bdb 00d8       |    |		Load_Top	At_Offset_0
0bdc e003       |    |		Load	0x0,0x3
0bdd 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0bde 027f       |    |		Execute	Discrete,Equal
0bdf 702f       |p/  |		Jump_Nonzero	0xc0f
0be0 00d8       |    |		Load_Top	At_Offset_0
0be1 e003       |    |		Load	0x0,0x3
0be2 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0be3 027f       |    |		Execute	Discrete,Equal
0be4 7028       |p(  |		Jump_Nonzero	0xc0d
0be5 00d8       |    |		Load_Top	At_Offset_0
0be6 e003       |    |		Load	0x0,0x3
0be7 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0be8 027f       |    |		Execute	Discrete,Equal
0be9 7021       |p!  |		Jump_Nonzero	0xc0b
0bea 00d8       |    |		Load_Top	At_Offset_0
0beb e003       |    |		Load	0x0,0x3
0bec 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0bed 027f       |    |		Execute	Discrete,Equal
0bee 701a       |p   |		Jump_Nonzero	0xc09
0bef 00d8       |    |		Load_Top	At_Offset_0
0bf0 e003       |    |		Load	0x0,0x3
0bf1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0bf2 027f       |    |		Execute	Discrete,Equal
0bf3 7013       |p   |		Jump_Nonzero	0xc07
0bf4 00d8       |    |		Load_Top	At_Offset_0
0bf5 e003       |    |		Load	0x0,0x3
0bf6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0bf7 027f       |    |		Execute	Discrete,Equal
0bf8 700c       |p   |		Jump_Nonzero	0xc05
0bf9 00d8       |    |		Load_Top	At_Offset_0
0bfa e003       |    |		Load	0x0,0x3
0bfb 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0bfc 027f       |    |		Execute	Discrete,Equal
0bfd 7005       |p   |		Jump_Nonzero	0xc03
0bfe 00d8       |    |		Load_Top	At_Offset_0
0bff e003       |    |		Load	0x0,0x3
0c00 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0c01 027f       |    |		Execute	Discrete,Equal
0c02 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c03 4801       |H   |		Short_Literal	0x1
0c04 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c05 4801       |H   |		Short_Literal	0x1
0c06 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c07 4801       |H   |		Short_Literal	0x1
0c08 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c09 4801       |H   |		Short_Literal	0x1
0c0a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c0b 4801       |H   |		Short_Literal	0x1
0c0c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c0d 4801       |H   |		Short_Literal	0x1
0c0e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c0f 4801       |H   |		Short_Literal	0x1
0c10 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c11 4801       |H   |		Short_Literal	0x1
0c12 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c13 0000 0000  |    |		.BLANK	0000[0x5]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c21       | !  |		.CONST	0x0c21								; Address of begin
0c19 0004       |    |		.CONST	0x0004								; Address of exception handler
0c1a 0002       |    |		.CONST	0x0002								; Number of locals
0c1b			INIT_0c18:
0c1b 00da       |    |		Load_Top	At_Offset_2
0c1c e001       |    |		Load	0x0,0x1
0c1d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0c1e e001       |    |		Load	0x0,0x1
0c1f 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0c20 03f1       |    |		Declare_Variable	Discrete,With_Value
0c21			BODY_0c18:
0c21 00db       |    |		Load_Top	At_Offset_3
0c22 8238       | 8  |		Call	0x1,0x38
0c23 7002       |p   |		Jump_Nonzero	0xc26
0c24 4800       |H   |		Short_Literal	0x0
0c25 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c26 00d8       |    |		Load_Top	At_Offset_0
0c27 e003       |    |		Load	0x0,0x3
0c28 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0c29 027f       |    |		Execute	Discrete,Equal
0c2a 7021       |p!  |		Jump_Nonzero	0xc4c
0c2b 00d8       |    |		Load_Top	At_Offset_0
0c2c e003       |    |		Load	0x0,0x3
0c2d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0c2e 027f       |    |		Execute	Discrete,Equal
0c2f 701a       |p   |		Jump_Nonzero	0xc4a
0c30 00d8       |    |		Load_Top	At_Offset_0
0c31 e003       |    |		Load	0x0,0x3
0c32 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0c33 027f       |    |		Execute	Discrete,Equal
0c34 7013       |p   |		Jump_Nonzero	0xc48
0c35 00d8       |    |		Load_Top	At_Offset_0
0c36 e003       |    |		Load	0x0,0x3
0c37 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0c38 027f       |    |		Execute	Discrete,Equal
0c39 700c       |p   |		Jump_Nonzero	0xc46
0c3a 00d8       |    |		Load_Top	At_Offset_0
0c3b e003       |    |		Load	0x0,0x3
0c3c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0c3d 027f       |    |		Execute	Discrete,Equal
0c3e 7005       |p   |		Jump_Nonzero	0xc44
0c3f 00d8       |    |		Load_Top	At_Offset_0
0c40 e003       |    |		Load	0x0,0x3
0c41 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0c42 027f       |    |		Execute	Discrete,Equal
0c43 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c44 4801       |H   |		Short_Literal	0x1
0c45 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c46 4801       |H   |		Short_Literal	0x1
0c47 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c48 4801       |H   |		Short_Literal	0x1
0c49 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c4a 4801       |H   |		Short_Literal	0x1
0c4b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c4c 4801       |H   |		Short_Literal	0x1
0c4d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c4e 0000 0000  |    |		.XXX[0x2]
0c50 ; --------------------------------------------------------------------------------------
0c50 ; SUBPROGRAM
0c50 ; --------------------------------------------------------------------------------------
0c50 0c59       | Y  |		.CONST	0x0c59								; Address of begin
0c51 0004       |    |		.CONST	0x0004								; Address of exception handler
0c52 0002       |    |		.CONST	0x0002								; Number of locals
0c53			INIT_0c50:
0c53 00da       |    |		Load_Top	At_Offset_2
0c54 e001       |    |		Load	0x0,0x1
0c55 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0c56 e001       |    |		Load	0x0,0x1
0c57 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0c58 03f1       |    |		Declare_Variable	Discrete,With_Value
0c59			BODY_0c50:
0c59 00db       |    |		Load_Top	At_Offset_3
0c5a 8238       | 8  |		Call	0x1,0x38
0c5b 7002       |p   |		Jump_Nonzero	0xc5e
0c5c 4800       |H   |		Short_Literal	0x0
0c5d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c5e 00d8       |    |		Load_Top	At_Offset_0
0c5f e003       |    |		Load	0x0,0x3
0c60 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0c61 027f       |    |		Execute	Discrete,Equal
0c62 701a       |p   |		Jump_Nonzero	0xc7d
0c63 00d8       |    |		Load_Top	At_Offset_0
0c64 e003       |    |		Load	0x0,0x3
0c65 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0c66 027f       |    |		Execute	Discrete,Equal
0c67 7013       |p   |		Jump_Nonzero	0xc7b
0c68 00d8       |    |		Load_Top	At_Offset_0
0c69 e003       |    |		Load	0x0,0x3
0c6a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0c6b 027f       |    |		Execute	Discrete,Equal
0c6c 700c       |p   |		Jump_Nonzero	0xc79
0c6d 00d8       |    |		Load_Top	At_Offset_0
0c6e e003       |    |		Load	0x0,0x3
0c6f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0c70 027f       |    |		Execute	Discrete,Equal
0c71 7005       |p   |		Jump_Nonzero	0xc77
0c72 00d8       |    |		Load_Top	At_Offset_0
0c73 e003       |    |		Load	0x0,0x3
0c74 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0c75 027f       |    |		Execute	Discrete,Equal
0c76 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c77 4801       |H   |		Short_Literal	0x1
0c78 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c79 4801       |H   |		Short_Literal	0x1
0c7a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c7b 4801       |H   |		Short_Literal	0x1
0c7c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c7d 4801       |H   |		Short_Literal	0x1
0c7e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c7f 0000       |    |		.XXX[0x1]
0c80 ; --------------------------------------------------------------------------------------
0c80 ; SUBPROGRAM
0c80 ; --------------------------------------------------------------------------------------
0c80 0c89       |    |		.CONST	0x0c89								; Address of begin
0c81 0004       |    |		.CONST	0x0004								; Address of exception handler
0c82 0002       |    |		.CONST	0x0002								; Number of locals
0c83			INIT_0c80:
0c83 00da       |    |		Load_Top	At_Offset_2
0c84 e001       |    |		Load	0x0,0x1
0c85 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0c86 e001       |    |		Load	0x0,0x1
0c87 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0c88 03f1       |    |		Declare_Variable	Discrete,With_Value
0c89			BODY_0c80:
0c89 00db       |    |		Load_Top	At_Offset_3
0c8a 8238       | 8  |		Call	0x1,0x38
0c8b 7002       |p   |		Jump_Nonzero	0xc8e
0c8c 4800       |H   |		Short_Literal	0x0
0c8d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0c8e 00d8       |    |		Load_Top	At_Offset_0
0c8f e003       |    |		Load	0x0,0x3
0c90 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0c91 027f       |    |		Execute	Discrete,Equal
0c92 701a       |p   |		Jump_Nonzero	0xcad
0c93 00d8       |    |		Load_Top	At_Offset_0
0c94 e003       |    |		Load	0x0,0x3
0c95 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0c96 027f       |    |		Execute	Discrete,Equal
0c97 7013       |p   |		Jump_Nonzero	0xcab
0c98 00d8       |    |		Load_Top	At_Offset_0
0c99 e003       |    |		Load	0x0,0x3
0c9a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0c9b 027f       |    |		Execute	Discrete,Equal
0c9c 700c       |p   |		Jump_Nonzero	0xca9
0c9d 00d8       |    |		Load_Top	At_Offset_0
0c9e e003       |    |		Load	0x0,0x3
0c9f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0ca0 027f       |    |		Execute	Discrete,Equal
0ca1 7005       |p   |		Jump_Nonzero	0xca7
0ca2 00d8       |    |		Load_Top	At_Offset_0
0ca3 e003       |    |		Load	0x0,0x3
0ca4 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0ca5 027f       |    |		Execute	Discrete,Equal
0ca6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ca7 4801       |H   |		Short_Literal	0x1
0ca8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ca9 4801       |H   |		Short_Literal	0x1
0caa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cab 4801       |H   |		Short_Literal	0x1
0cac 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0cad 4801       |H   |		Short_Literal	0x1
0cae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0caf 0000       |    |		.XXX[0x1]
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cc1       |    |		.CONST	0x0cc1								; Address of begin
0cb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cb2 0003       |    |		.CONST	0x0003								; Number of locals
0cb3			INIT_0cb0:
0cb3 00da       |    |		Load_Top	At_Offset_2
0cb4 e00e       |    |		Load	0x0,0xe
0cb5 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0cb6 e00e       |    |		Load	0x0,0xe
0cb7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0cb8 03f1       |    |		Declare_Variable	Discrete,With_Value
0cb9 e00e       |    |		Load	0x0,0xe
0cba 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0cbb 0337       | 7  |		Declare_Variable	Array
0cbc e5ff       |    |		Load	0x2,-0x1
0cbd e00e       |    |		Load	0x0,0xe
0cbe 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0cbf 00d9       |    |		Load_Top	At_Offset_1
0cc0 01d4       |    |		Execute	Vector,Structure_Write
0cc1			BODY_0cb0:
0cc1 e5fe       |    |		Load	0x2,-0x2
0cc2 6802       |h   |		Jump_Zero	0xcc5
0cc3 4803       |H   |		Short_Literal	0x3
0cc4 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0cc5 e5fd       |    |		Load	0x2,-0x3
0cc6 4800       |H   |		Short_Literal	0x0
0cc7 00da       |    |		Load_Top	At_Offset_2
0cc8 01d7       |    |		Execute	Vector,Field_Read
0cc9 0279       | y  |		Execute	Discrete,And
0cca 4800       |H   |		Short_Literal	0x0
0ccb 00da       |    |		Load_Top	At_Offset_2
0ccc 01d6       |    |		Execute	Vector,Field_Write
0ccd e5fc       |    |		Load	0x2,-0x4
0cce 4803       |H   |		Short_Literal	0x3
0ccf 00da       |    |		Load_Top	At_Offset_2
0cd0 01d7       |    |		Execute	Vector,Field_Read
0cd1 0279       | y  |		Execute	Discrete,And
0cd2 4803       |H   |		Short_Literal	0x3
0cd3 00da       |    |		Load_Top	At_Offset_2
0cd4 01d6       |    |		Execute	Vector,Field_Write
0cd5 e5fb       |    |		Load	0x2,-0x5
0cd6 4802       |H   |		Short_Literal	0x2
0cd7 00da       |    |		Load_Top	At_Offset_2
0cd8 01d7       |    |		Execute	Vector,Field_Read
0cd9 0279       | y  |		Execute	Discrete,And
0cda 4802       |H   |		Short_Literal	0x2
0cdb 00da       |    |		Load_Top	At_Offset_2
0cdc 01d6       |    |		Execute	Vector,Field_Write
0cdd e00e       |    |		Load	0x0,0xe
0cde 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0cdf e00e       |    |		Load	0x0,0xe
0ce0 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0ce1 e00e       |    |		Load	0x0,0xe
0ce2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ce3 e00e       |    |		Load	0x0,0xe
0ce4 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0ce5 e00e       |    |		Load	0x0,0xe
0ce6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ce7 e00e       |    |		Load	0x0,0xe
0ce8 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0ce9 e00e       |    |		Load	0x0,0xe
0cea 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0ceb e00e       |    |		Load	0x0,0xe
0cec 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0ced e403       |    |		Load	0x2,0x3
0cee e402       |    |		Load	0x2,0x2
0cef e00e       |    |		Load	0x0,0xe
0cf0 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0cf1 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0cf2 0000 0000  |    |		.BLANK	0000[0x6]
0cf8 ; --------------------------------------------------------------------------------------
0cf8 ; SUBPROGRAM
0cf8 ; --------------------------------------------------------------------------------------
0cf8 0d07       |    |		.CONST	0x0d07								; Address of begin
0cf9 0004       |    |		.CONST	0x0004								; Address of exception handler
0cfa 0002       |    |		.CONST	0x0002								; Number of locals
0cfb			INIT_0cf8:
0cfb e00e       |    |		Load	0x0,0xe
0cfc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0cfd 02c7       |    |		Declare_Variable	Any
0cfe e5fb       |    |		Load	0x2,-0x5
0cff e5fc       |    |		Load	0x2,-0x4
0d00 e5fd       |    |		Load	0x2,-0x3
0d01 e5fe       |    |		Load	0x2,-0x2
0d02 e5ff       |    |		Load	0x2,-0x1
0d03 e00e       |    |		Load	0x0,0xe
0d04 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0d05 823e       | >  |		Call	0x1,0x3e
0d06 a402       |    |		Store_Unchecked	0x2,0x2
0d07			BODY_0cf8:
0d07 00d8       |    |		Load_Top	At_Offset_0
0d08 e00e       |    |		Load	0x0,0xe
0d09 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0d0a 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0d0b 0000 0000  |    |		.BLANK	0000[0x5]
0d10 ; --------------------------------------------------------------------------------------
0d10 ; SUBPROGRAM
0d10 ; --------------------------------------------------------------------------------------
0d10 0d13       |    |		.CONST	0x0d13								; Address of begin
0d11 0004       |    |		.CONST	0x0004								; Address of exception handler
0d12 0001       |    |		.CONST	0x0001								; Number of locals
0d13			BODY_0d10:
0d13			INIT_0d10:
0d13 00da       |    |		Load_Top	At_Offset_2
0d14 e00a       |    |		Load	0x0,0xa
0d15 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0d16 e006       |    |		Load	0x0,0x6
0d17 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d18 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d19 0000 0000  |    |		.BLANK	0000[0x7]
0d20 ; --------------------------------------------------------------------------------------
0d20 ; SUBPROGRAM
0d20 ; --------------------------------------------------------------------------------------
0d20 0d23       | #  |		.CONST	0x0d23								; Address of begin
0d21 0004       |    |		.CONST	0x0004								; Address of exception handler
0d22 0001       |    |		.CONST	0x0001								; Number of locals
0d23			BODY_0d20:
0d23			INIT_0d20:
0d23 00da       |    |		Load_Top	At_Offset_2
0d24 8241       | A  |		Call	0x1,0x41
0d25 e006       |    |		Load	0x0,0x6
0d26 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0d27 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d28 ; --------------------------------------------------------------------------------------
0d28 ; SUBPROGRAM
0d28 ; --------------------------------------------------------------------------------------
0d28 0d2b       | +  |		.CONST	0x0d2b								; Address of begin
0d29 0004       |    |		.CONST	0x0004								; Address of exception handler
0d2a 0001       |    |		.CONST	0x0001								; Number of locals
0d2b			BODY_0d28:
0d2b			INIT_0d28:
0d2b 00db       |    |		Load_Top	At_Offset_3
0d2c 4800       |H   |		Short_Literal	0x0
0d2d e5ff       |    |		Load	0x2,-0x1
0d2e 8223       | #  |		Call	0x1,0x23
0d2f e011       |    |		Load	0x0,0x11
0d30 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0d31 e011       |    |		Load	0x0,0x11
0d32 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d33 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0d34 0000 0000  |    |		.BLANK	0000[0x4]
0d38 ; --------------------------------------------------------------------------------------
0d38 ; SUBPROGRAM
0d38 ; --------------------------------------------------------------------------------------
0d38 0d3b       | ;  |		.CONST	0x0d3b								; Address of begin
0d39 0004       |    |		.CONST	0x0004								; Address of exception handler
0d3a 0001       |    |		.CONST	0x0001								; Number of locals
0d3b			BODY_0d38:
0d3b			INIT_0d38:
0d3b 00db       |    |		Load_Top	At_Offset_3
0d3c 4800       |H   |		Short_Literal	0x0
0d3d e5ff       |    |		Load	0x2,-0x1
0d3e 8223       | #  |		Call	0x1,0x23
0d3f e011       |    |		Load	0x0,0x11
0d40 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0d41 e011       |    |		Load	0x0,0x11
0d42 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d43 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0d44 0000 0000  |    |		.BLANK	0000[0x4]
0d48 ; --------------------------------------------------------------------------------------
0d48 ; SUBPROGRAM
0d48 ; --------------------------------------------------------------------------------------
0d48 0d52       | R  |		.CONST	0x0d52								; Address of begin
0d49 0004       |    |		.CONST	0x0004								; Address of exception handler
0d4a 0002       |    |		.CONST	0x0002								; Number of locals
0d4b			INIT_0d48:
0d4b 00db       |    |		Load_Top	At_Offset_3
0d4c 00db       |    |		Load_Top	At_Offset_3
0d4d e00f       |    |		Load	0x0,0xf
0d4e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0d4f e00f       |    |		Load	0x0,0xf
0d50 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d51 03f1       |    |		Declare_Variable	Discrete,With_Value
0d52			BODY_0d48:
0d52 e5fd       |    |		Load	0x2,-0x3
0d53 00d9       |    |		Load_Top	At_Offset_1
0d54 e00f       |    |		Load	0x0,0xf
0d55 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0d56 4803       |H   |		Short_Literal	0x3
0d57 00d9       |    |		Load_Top	At_Offset_1
0d58 e00f       |    |		Load	0x0,0xf
0d59 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0d5a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0d5b 0000 0000  |    |		.BLANK	0000[0x5]
0d60 ; --------------------------------------------------------------------------------------
0d60 ; SUBPROGRAM
0d60 ; --------------------------------------------------------------------------------------
0d60 0d6a       | j  |		.CONST	0x0d6a								; Address of begin
0d61 0004       |    |		.CONST	0x0004								; Address of exception handler
0d62 0002       |    |		.CONST	0x0002								; Number of locals
0d63			INIT_0d60:
0d63 e403       |    |		Load	0x2,0x3
0d64 e001       |    |		Load	0x0,0x1
0d65 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0d66 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0d67 e001       |    |		Load	0x0,0x1
0d68 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d69 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0d6a			BODY_0d60:
0d6a e402       |    |		Load	0x2,0x2
0d6b 01dd       |    |		Execute	Vector,First
0d6c 00d9       |    |		Load_Top	At_Offset_1
0d6d 01db       |    |		Execute	Vector,Length
0d6e 0273       | s  |		Execute	Discrete,Plus
0d6f 0a01       |    |		Execute_Immediate	Plus,0x1
0d70 00d8       |    |		Load_Top	At_Offset_0
0d71 00e2       |    |		Load_Encached	Integer_Cache
0d72 0260       | `  |		Execute	Discrete,In_Type
0d73 7001       |p   |		Jump_Nonzero	0xd75
0d74 0801       |    |		Execute_Immediate	Raise,0x1
0d75 e402       |    |		Load	0x2,0x2
0d76 01dc       |    |		Execute	Vector,Last
0d77 e402       |    |		Load	0x2,0x2
0d78 01cf       |    |		Execute	Vector,Slice_Read
0d79 00cb       |    |		Action	Pop_Block_With_Result
0d7a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d7b 0000 0000  |    |		.BLANK	0000[0x5]
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d83       |    |		.CONST	0x0d83								; Address of begin
0d81 0004       |    |		.CONST	0x0004								; Address of exception handler
0d82 0001       |    |		.CONST	0x0001								; Number of locals
0d83			BODY_0d80:
0d83			INIT_0d80:
0d83 e402       |    |		Load	0x2,0x2
0d84 e001       |    |		Load	0x0,0x1
0d85 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d86 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0d87 c402       |    |		Store	0x2,0x2
0d88 e402       |    |		Load	0x2,0x2
0d89 e001       |    |		Load	0x0,0x1
0d8a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d8b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0d8c 6802       |h   |		Jump_Zero	0xd8f
0d8d 00da       |    |		Load_Top	At_Offset_2
0d8e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d8f e001       |    |		Load	0x0,0x1
0d90 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0d91 e403       |    |		Load	0x2,0x3
0d92 0120       |    |		Execute	Any,Is_Value
0d93 6803       |h   |		Jump_Zero	0xd97
0d94 e001       |    |		Load	0x0,0x1
0d95 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0d96 7801       |x   |		Jump	0xd98
0d97 e403       |    |		Load	0x2,0x3
0d98 e402       |    |		Load	0x2,0x2
0d99 e001       |    |		Load	0x0,0x1
0d9a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0d9b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0d9c c403       |    |		Store	0x2,0x3
0d9d c404       |    |		Store	0x2,0x4
0d9e 00da       |    |		Load_Top	At_Offset_2
0d9f 0092 0e6d  |   m|		Action	Push_String_Extended,0xe6d					; ","
0da1 01cc       |    |		Execute	Vector,Catenate
0da2 e403       |    |		Load	0x2,0x3
0da3 e001       |    |		Load	0x0,0x1
0da4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0da5 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0da6 01cc       |    |		Execute	Vector,Catenate
0da7 8405       |    |		Call	0x2,0x5
0da8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0da9 0000 0000  |    |		.BLANK	0000[0x7]
0db0 ; --------------------------------------------------------------------------------------
0db0 ; SUBPROGRAM
0db0 ; --------------------------------------------------------------------------------------
0db0 0db8       |    |		.CONST	0x0db8								; Address of begin
0db1 0dde       |    |		.CONST	0x0dde								; Address of exception handler
0db2 0002       |    |		.CONST	0x0002								; Number of locals
0db3			INIT_0db0:
0db3 e012       |    |		Load	0x0,0x12
0db4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0db5 02c7       |    |		Declare_Variable	Any
0db6 00d8       |    |		Load_Top	At_Offset_0
0db7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0db8			BODY_0db0:
0db8 00d8       |    |		Load_Top	At_Offset_0
0db9 00ea       |    |		Load_Encached	Null_String_Cache
0dba e405       |    |		Load	0x2,0x5
0dbb 4800       |H   |		Short_Literal	0x0
0dbc e012       |    |		Load	0x0,0x12
0dbd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0dbe c602       |    |		Store	0x3,0x2
0dbf 00e2       |    |		Load_Encached	Integer_Cache
0dc0 4800       |H   |		Short_Literal	0x0
0dc1 00da       |    |		Load_Top	At_Offset_2
0dc2 e012       |    |		Load	0x0,0x12
0dc3 1869       | i  |		Execute	Package,Field_Execute,Field_Number 0x69
0dc4 e7fe       |    |		Load	0x3,-0x2
0dc5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0dc6 00cf       |    |		Action	Mark_Auxiliary
0dc7 e402       |    |		Load	0x2,0x2
0dc8 01d9       |    |		Execute	Vector,Reverse_Bounds
0dc9 0007       |    |		Action	Break_Optional
0dca e7fe       |    |		Load	0x3,-0x2
0dcb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0dcc 00d9       |    |		Load_Top	At_Offset_1
0dcd 00e2       |    |		Load_Encached	Integer_Cache
0dce 4800       |H   |		Short_Literal	0x0
0dcf e602       |    |		Load	0x3,0x2
0dd0 e012       |    |		Load	0x0,0x12
0dd1 1869       | i  |		Execute	Package,Field_Execute,Field_Number 0x69
0dd2 00d9       |    |		Load_Top	At_Offset_1
0dd3 00db       |    |		Load_Top	At_Offset_3
0dd4 01d6       |    |		Execute	Vector,Field_Write
0dd5 00d2       |    |		Pop_Control	Pop_Count_2
0dd6 00c8       |    |		Action	Pop_Auxiliary_Range
0dd7 3ff2       |?   |		Loop_Increasing	0xdca
0dd8 00ce       |    |		Action	Pop_Auxiliary
0dd9 00d8       |    |		Load_Top	At_Offset_0
0dda e012       |    |		Load	0x0,0x12
0ddb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0ddc c602       |    |		Store	0x3,0x2
0ddd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0dde			TRAP_0db0:
0dde 0007       |    |		Action	Break_Optional
0ddf e5fc       |    |		Load	0x2,-0x4
0de0 4801       |H   |		Short_Literal	0x1
0de1 4802       |H   |		Short_Literal	0x2
0de2 e006       |    |		Load	0x0,0x6
0de3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0de4 035b       | [  |		Declare_Type	Array,Constrained
0de5 0337       | 7  |		Declare_Variable	Array
0de6 4800       |H   |		Short_Literal	0x0
0de7 4801       |H   |		Short_Literal	0x1
0de8 e013       |    |		Load	0x0,0x13
0de9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0dea e006       |    |		Load	0x0,0x6
0deb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0dec e006       |    |		Load	0x0,0x6
0ded 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0dee 0119       |    |		Execute	Any,Check_In_Formal_Type
0def 4801       |H   |		Short_Literal	0x1
0df0 00da       |    |		Load_Top	At_Offset_2
0df1 01d6       |    |		Execute	Vector,Field_Write
0df2 e404       |    |		Load	0x2,0x4
0df3 e006       |    |		Load	0x0,0x6
0df4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0df5 e006       |    |		Load	0x0,0x6
0df6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0df7 0119       |    |		Execute	Any,Check_In_Formal_Type
0df8 4802       |H   |		Short_Literal	0x2
0df9 00da       |    |		Load_Top	At_Offset_2
0dfa 01d6       |    |		Execute	Vector,Field_Write
0dfb 6004       |`   |		Indirect_Literal	Discrete,0xe00,{0x00000000, 0x00008182}
0dfc e00f       |    |		Load	0x0,0xf
0dfd 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0dfe e010       |    |		Load	0x0,0x10
0dff 0257       | W  |		Execute	Discrete,Raise
0e00 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008182}
0e04 0000 0000  |    |		.BLANK	0000[0x4]
0e08 ; --------------------------------------------------------------------------------------
0e08 ; SUBPROGRAM
0e08 ; --------------------------------------------------------------------------------------
0e08 0e13       |    |		.CONST	0x0e13								; Address of begin
0e09 0004       |    |		.CONST	0x0004								; Address of exception handler
0e0a 0002       |    |		.CONST	0x0002								; Number of locals
0e0b			INIT_0e08:
0e0b 4801       |H   |		Short_Literal	0x1
0e0c 00db       |    |		Load_Top	At_Offset_3
0e0d 0092 0e6e  |   n|		Action	Push_String_Extended,0xe6e					; "_Working"
0e0f e004       |    |		Load	0x0,0x4
0e10 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e11 00e3       |    |		Load_Encached	Natural_Cache
0e12 03f1       |    |		Declare_Variable	Discrete,With_Value
0e13			BODY_0e08:
0e13 00d8       |    |		Load_Top	At_Offset_0
0e14 7002       |p   |		Jump_Nonzero	0xe17
0e15 e010       |    |		Load	0x0,0x10
0e16 0257       | W  |		Execute	Discrete,Raise
0e17 00db       |    |		Load_Top	At_Offset_3
0e18 01dd       |    |		Execute	Vector,First
0e19 00d9       |    |		Load_Top	At_Offset_1
0e1a 0aff       |    |		Execute_Immediate	Plus,-0x1
0e1b e7ff       |    |		Load	0x3,-0x1
0e1c 01cf       |    |		Execute	Vector,Slice_Read
0e1d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e1e 0000 0000  |    |		.XXX[0x2]
0e20 ; --------------------------------------------------------------------------------------
0e20 ; SUBPROGRAM
0e20 ; --------------------------------------------------------------------------------------
0e20 0e2b       | +  |		.CONST	0x0e2b								; Address of begin
0e21 0004       |    |		.CONST	0x0004								; Address of exception handler
0e22 0002       |    |		.CONST	0x0002								; Number of locals
0e23			INIT_0e20:
0e23 4801       |H   |		Short_Literal	0x1
0e24 00db       |    |		Load_Top	At_Offset_3
0e25 0092 0e67  |   g|		Action	Push_String_Extended,0xe67					; "_Spec"
0e27 e004       |    |		Load	0x0,0x4
0e28 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e29 00e3       |    |		Load_Encached	Natural_Cache
0e2a 03f1       |    |		Declare_Variable	Discrete,With_Value
0e2b			BODY_0e20:
0e2b 00d8       |    |		Load_Top	At_Offset_0
0e2c 7002       |p   |		Jump_Nonzero	0xe2f
0e2d e010       |    |		Load	0x0,0x10
0e2e 0257       | W  |		Execute	Discrete,Raise
0e2f 00db       |    |		Load_Top	At_Offset_3
0e30 01dd       |    |		Execute	Vector,First
0e31 00d9       |    |		Load_Top	At_Offset_1
0e32 0aff       |    |		Execute_Immediate	Plus,-0x1
0e33 e7ff       |    |		Load	0x3,-0x1
0e34 01cf       |    |		Execute	Vector,Slice_Read
0e35 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e36 0000 0000  |    |		.XXX[0x2]
0e38 ; --------------------------------------------------------------------------------------
0e38 ; SUBPROGRAM
0e38 ; --------------------------------------------------------------------------------------
0e38 0e3b       | ;  |		.CONST	0x0e3b								; Address of begin
0e39 0004       |    |		.CONST	0x0004								; Address of exception handler
0e3a 0001       |    |		.CONST	0x0001								; Number of locals
0e3b			BODY_0e38:
0e3b			INIT_0e38:
0e3b 00da       |    |		Load_Top	At_Offset_2
0e3c e7fe       |    |		Load	0x3,-0x2
0e3d 027d       | }  |		Execute	Discrete,Greater
0e3e 6802       |h   |		Jump_Zero	0xe41
0e3f 00ea       |    |		Load_Encached	Null_String_Cache
0e40 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e41 485f       |H_  |		Short_Literal	0x5f
0e42 4820       |H   |		Short_Literal	0x20
0e43 4800       |H   |		Short_Literal	0x0
0e44 480a       |H   |		Short_Literal	0xa
0e45 e7ff       |    |		Load	0x3,-0x1
0e46 e406       |    |		Load	0x2,0x6
0e47 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0e48 01d7       |    |		Execute	Vector,Field_Read
0e49 e004       |    |		Load	0x0,0x4
0e4a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0e4b 01ca       |    |		Execute	Vector,Prepend
0e4c e7fe       |    |		Load	0x3,-0x2
0e4d e7ff       |    |		Load	0x3,-0x1
0e4e 0a01       |    |		Execute_Immediate	Plus,0x1
0e4f 00d8       |    |		Load_Top	At_Offset_0
0e50 00e3       |    |		Load_Encached	Natural_Cache
0e51 0260       | `  |		Execute	Discrete,In_Type
0e52 7001       |p   |		Jump_Nonzero	0xe54
0e53 0801       |    |		Execute_Immediate	Raise,0x1
0e54 840a       |    |		Call	0x2,0xa
0e55 01cc       |    |		Execute	Vector,Catenate
0e56 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e57 ; --------------------------------------------------------------------------------------
0e57 ; STRING TABLE
0e57 ; --------------------------------------------------------------------------------------
0e57 0032       | 2  |		.STRTAB	0x0032->0x0e70							; "!Targets"
0e58 0038       | 8  |		.STRTAB	0x0038->0x0e74							; "'SPEC"
0e59 003b       | ;  |		.STRTAB	0x003b->0x0e76							; "'BODY"
0e5a 003e       | >  |		.STRTAB	0x003e->0x0e79							; "The enclosing world is not a view."
0e5b 005e       | ^  |		.STRTAB	0x005e->0x0e8a							; "The enclosing world is not a directory."
0e5c 0083       |    |		.STRTAB	0x0083->0x0e9d							; "<>"
0e5d 0083       |    |		.STRTAB	0x0083->0x0e9e							; "??'c(Ada)"
0e5e 008a       |    |		.STRTAB	0x008a->0x0ea3							; "??'c(ada)"
0e5f 0091       |    |		.STRTAB	0x0091->0x0ea7							; "cmvc_set"
0e60 0097       |    |		.STRTAB	0x0097->0x0eab							; "["
0e61 0096       |    |		.STRTAB	0x0096->0x0eac							; "]"
0e62 0095       |    |		.STRTAB	0x0095->0x0eac							; "<UNREGISTERED>"
0e63 00a1       |    |		.STRTAB	0x00a1->0x0eb3							; ".STATE.TOOL_STATE."
0e64 00b1       |    |		.STRTAB	0x00b1->0x0ebc							; "_STATE_FILE"
0e65 00ba       |    |		.STRTAB	0x00ba->0x0ec2							; "<QUIET>"
0e66 00bf       |    |		.STRTAB	0x00bf->0x0ec5							; ".STATE.LAST_RELEASE_NAME"
0e67 00d5       |    |		.STRTAB	0x00d5->0x0ed1							; "_Spec"
0e68 00d8       |    |		.STRTAB	0x00d8->0x0ed4							; ".STATE.MODEL"
0e69 00e2       |    |		.STRTAB	0x00e2->0x0eda							; "NOT AN OBJECT SET"
0e6a 00f1       |    |		.STRTAB	0x00f1->0x0ee2							; "EMPTY OBJECT SET"
0e6b 00ff       |    |		.STRTAB	0x00ff->0x0eea							; "<INHERIT_MODEL>"
0e6c 010c       |    |		.STRTAB	0x010c->0x0ef2							; "!Model."
0e6d 0111       |    |		.STRTAB	0x0111->0x0ef5							; ","
0e6e 0110       |    |		.STRTAB	0x0110->0x0ef6							; "_Working"
0e6f 0116       |    |		.STREND 0x0116->0x0efa
0e70 2154 6172  |!Tar|		.STRTAB_STRINGS
0efa 0000 0000  |    |		.BLANK	0000[0x6]
0f00 ; --------------------------------------------------------------------------------------
0f00 ; Debug Table
0f00 ; --------------------------------------------------------------------------------------
0f00 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x4f76,0x0000,0x0001,0x0000
0f06 0000 0000  |    |		.BLANK	0000[0xfa]