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

⟦617e1511c⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 08d0       |    |		.CONST	0x08d0								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 029b       |    |		.CONST	0x029b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 008a       |    |		.CONST	0x008a								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
000d 0129       | )  |		Execute	Any,Make_Visible
000e 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0010 00e3       |    |		Load_Encached	Natural_Cache
0011 0266       | f  |		Execute	Discrete,Bounds
0012 00db       |    |		Load_Top	At_Offset_3
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 4801       |H   |		Short_Literal	0x1
0015 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0016 00e3       |    |		Load_Encached	Natural_Cache
0017 e002       |    |		Load	0x0,0x2
0018 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0019 4801       |H   |		Short_Literal	0x1
001a 628d       |b   |		Indirect_Literal	Discrete,0x2a8,{0x00000000, 0x7fffffff}
001b e20f       |    |		Load	0x1,0xf
001c 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
001d 029f 0843  |   C|		Declare_Subprogram	INIT_0840,For_Call
001f 4800       |H   |		Short_Literal	0x0
0020 4801       |H   |		Short_Literal	0x1
0021 4801       |H   |		Short_Literal	0x1
0022 4800       |H   |		Short_Literal	0x0
0023 4801       |H   |		Short_Literal	0x1
0024 4801       |H   |		Short_Literal	0x1
0025 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0026 e003       |    |		Load	0x0,0x3
0027 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0028 0129       | )  |		Execute	Any,Make_Visible
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00c4       |    |		Action	Make_Default
0058 00c4       |    |		Action	Make_Default
0059 00c4       |    |		Action	Make_Default
005a 00c4       |    |		Action	Make_Default
005b 00c4       |    |		Action	Make_Default
005c 00c4       |    |		Action	Make_Default
005d 00c4       |    |		Action	Make_Default
005e 00c4       |    |		Action	Make_Default
005f 00c4       |    |		Action	Make_Default
0060 00c4       |    |		Action	Make_Default
0061 00c4       |    |		Action	Make_Default
0062 00c4       |    |		Action	Make_Default
0063 00c4       |    |		Action	Make_Default
0064 00c4       |    |		Action	Make_Default
0065 00c4       |    |		Action	Make_Default
0066 00c4       |    |		Action	Make_Default
0067 00c4       |    |		Action	Make_Default
0068 00c4       |    |		Action	Make_Default
0069 00c4       |    |		Action	Make_Default
006a 00c4       |    |		Action	Make_Default
006b 00c4       |    |		Action	Make_Default
006c 00c4       |    |		Action	Make_Default
006d 00c4       |    |		Action	Make_Default
006e 00c4       |    |		Action	Make_Default
006f 00c4       |    |		Action	Make_Default
0070 00c4       |    |		Action	Make_Default
0071 00c4       |    |		Action	Make_Default
0072 00c4       |    |		Action	Make_Default
0073 00c4       |    |		Action	Make_Default
0074 00c4       |    |		Action	Make_Default
0075 00c4       |    |		Action	Make_Default
0076 00c4       |    |		Action	Make_Default
0077 00c4       |    |		Action	Make_Default
0078 00c4       |    |		Action	Make_Default
0079 00c4       |    |		Action	Make_Default
007a 00c4       |    |		Action	Make_Default
007b 00c4       |    |		Action	Make_Default
007c 00c4       |    |		Action	Make_Default
007d 00c4       |    |		Action	Make_Default
007e 00c4       |    |		Action	Make_Default
007f 00c4       |    |		Action	Make_Default
0080 00c4       |    |		Action	Make_Default
0081 00c4       |    |		Action	Make_Default
0082 00c4       |    |		Action	Make_Default
0083 00c4       |    |		Action	Make_Default
0084 00c4       |    |		Action	Make_Default
0085 00c4       |    |		Action	Make_Default
0086 00c4       |    |		Action	Make_Default
0087 00c4       |    |		Action	Make_Default
0088 00c4       |    |		Action	Make_Default
0089 00c4       |    |		Action	Make_Default
008a 00c4       |    |		Action	Make_Default
008b 00c4       |    |		Action	Make_Default
008c 00c4       |    |		Action	Make_Default
008d 00c4       |    |		Action	Make_Default
008e 00c4       |    |		Action	Make_Default
008f 00c4       |    |		Action	Make_Default
0090 00c4       |    |		Action	Make_Default
0091 00c4       |    |		Action	Make_Default
0092 00c4       |    |		Action	Make_Default
0093 00c4       |    |		Action	Make_Default
0094 00c4       |    |		Action	Make_Default
0095 00c4       |    |		Action	Make_Default
0096 00c4       |    |		Action	Make_Default
0097 00c4       |    |		Action	Make_Default
0098 00c4       |    |		Action	Make_Default
0099 00c4       |    |		Action	Make_Default
009a 00c4       |    |		Action	Make_Default
009b 00c4       |    |		Action	Make_Default
009c 00c4       |    |		Action	Make_Default
009d 00c4       |    |		Action	Make_Default
009e 00c4       |    |		Action	Make_Default
009f 00c4       |    |		Action	Make_Default
00a0 00c4       |    |		Action	Make_Default
00a1 00c4       |    |		Action	Make_Default
00a2 00e9       |    |		Load_Encached	String_Cache
00a3 0129       | )  |		Execute	Any,Make_Visible
00a4 c262       | b  |		Store	0x1,0x62
00a5 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
00a7 c27a       | z  |		Store	0x1,0x7a
00a8 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
00aa c213       |    |		Store	0x1,0x13
00ab 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
00ad c27d       | }  |		Store	0x1,0x7d
00ae 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
00b0 c283       |    |		Store	0x1,0x83
00b1 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
00b3 c214       |    |		Store	0x1,0x14
00b4 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
00b6 c215       |    |		Store	0x1,0x15
00b7 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
00b9 c216       |    |		Store	0x1,0x16
00ba 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
00bc c217       |    |		Store	0x1,0x17
00bd 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
00bf c218       |    |		Store	0x1,0x18
00c0 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
00c2 c275       | u  |		Store	0x1,0x75
00c3 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
00c5 c276       | v  |		Store	0x1,0x76
00c6 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
00c8 c27b       | {  |		Store	0x1,0x7b
00c9 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
00cb c27c       | |  |		Store	0x1,0x7c
00cc 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
00ce c266       | f  |		Store	0x1,0x66
00cf 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
00d1 c267       | g  |		Store	0x1,0x67
00d2 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
00d4 c268       | h  |		Store	0x1,0x68
00d5 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
00d7 c269       | i  |		Store	0x1,0x69
00d8 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
00da c286       |    |		Store	0x1,0x86
00db 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
00dd c26a       | j  |		Store	0x1,0x6a
00de 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
00e0 c220       |    |		Store	0x1,0x20
00e1 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
00e3 c221       | !  |		Store	0x1,0x21
00e4 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated
00e6 c26b       | k  |		Store	0x1,0x6b
00e7 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
00e9 c223       | #  |		Store	0x1,0x23
00ea 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
00ec c224       | $  |		Store	0x1,0x24
00ed 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
00ef c225       | %  |		Store	0x1,0x25
00f0 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
00f2 c226       | &  |		Store	0x1,0x26
00f3 e001       |    |		Load	0x0,0x1
00f4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00f5 0129       | )  |		Execute	Any,Make_Visible
00f6 c227       | '  |		Store	0x1,0x27
00f7 00e3       |    |		Load_Encached	Natural_Cache
00f8 0266       | f  |		Execute	Discrete,Bounds
00f9 e001       |    |		Load	0x0,0x1
00fa 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00fb 02a0       |    |		Declare_Subprogram	Null_Subprogram
00fc 4801       |H   |		Short_Literal	0x1
00fd 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00fe c228       | (  |		Store	0x1,0x28
00ff 00e3       |    |		Load_Encached	Natural_Cache
0100 e002       |    |		Load	0x0,0x2
0101 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0102 4801       |H   |		Short_Literal	0x1
0103 61a4       |a   |		Indirect_Literal	Discrete,0x2a8,{0x00000000, 0x7fffffff}
0104 e228       | (  |		Load	0x1,0x28
0105 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
0106 029f 086b  |   k|		Declare_Subprogram	INIT_0868,For_Call
0108 4800       |H   |		Short_Literal	0x0
0109 4801       |H   |		Short_Literal	0x1
010a 4801       |H   |		Short_Literal	0x1
010b 4800       |H   |		Short_Literal	0x0
010c 4801       |H   |		Short_Literal	0x1
010d 4801       |H   |		Short_Literal	0x1
010e 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
010f c229       | )  |		Store	0x1,0x29
0110 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0112 c22a       | *  |		Store	0x1,0x2a
0113 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
0115 c22b       | +  |		Store	0x1,0x2b
0116 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
0118 c22c       | ,  |		Store	0x1,0x2c
0119 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
011b c22d       | -  |		Store	0x1,0x2d
011c 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
011e c22e       | .  |		Store	0x1,0x2e
011f 029a 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call,Visible,Unelaborated
0121 c22f       | /  |		Store	0x1,0x2f
0122 029a 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Outer_Call,Visible,Unelaborated
0124 c230       | 0  |		Store	0x1,0x30
0125 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
0127 c231       | 1  |		Store	0x1,0x31
0128 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated
012a c232       | 2  |		Store	0x1,0x32
012b 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated
012d c233       | 3  |		Store	0x1,0x33
012e 029a 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call,Visible,Unelaborated
0130 c234       | 4  |		Store	0x1,0x34
0131 029a 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call,Visible,Unelaborated
0133 c235       | 5  |		Store	0x1,0x35
0134 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
0136 c236       | 6  |		Store	0x1,0x36
0137 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
0139 c237       | 7  |		Store	0x1,0x37
013a 029a 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Visible,Unelaborated
013c c238       | 8  |		Store	0x1,0x38
013d 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
013f c239       | 9  |		Store	0x1,0x39
0140 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0142 c23a       | :  |		Store	0x1,0x3a
0143 029a 055b  |   [|		Declare_Subprogram	INIT_0558,For_Outer_Call,Visible,Unelaborated
0145 c23b       | ;  |		Store	0x1,0x3b
0146 029a 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call,Visible,Unelaborated
0148 c23c       | <  |		Store	0x1,0x3c
0149 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
014b c23d       | =  |		Store	0x1,0x3d
014c 029a 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call,Visible,Unelaborated
014e c284       |    |		Store	0x1,0x84
014f 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
0151 c285       |    |		Store	0x1,0x85
0152 029a 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call,Visible,Unelaborated
0154 c23e       | >  |		Store	0x1,0x3e
0155 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
0157 c23f       | ?  |		Store	0x1,0x3f
0158 029a 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call,Visible,Unelaborated
015a c240       | @  |		Store	0x1,0x40
015b 029a 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call,Visible,Unelaborated
015d c241       | A  |		Store	0x1,0x41
015e 029a 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call,Visible,Unelaborated
0160 c242       | B  |		Store	0x1,0x42
0161 029a 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Visible,Unelaborated
0163 c243       | C  |		Store	0x1,0x43
0164 029a 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call,Visible,Unelaborated
0166 c244       | D  |		Store	0x1,0x44
0167 029a 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call,Visible,Unelaborated
0169 c245       | E  |		Store	0x1,0x45
016a 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
016c c246       | F  |		Store	0x1,0x46
016d 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
016f c247       | G  |		Store	0x1,0x47
0170 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0172 c248       | H  |		Store	0x1,0x48
0173 029a 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call,Visible,Unelaborated
0175 c249       | I  |		Store	0x1,0x49
0176 029a 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Visible,Unelaborated
0178 c24a       | J  |		Store	0x1,0x4a
0179 029a 064b  |   K|		Declare_Subprogram	INIT_0648,For_Outer_Call,Visible,Unelaborated
017b c24b       | K  |		Store	0x1,0x4b
017c 029a 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call,Visible,Unelaborated
017e c24c       | L  |		Store	0x1,0x4c
017f 029a 0673  |   s|		Declare_Subprogram	INIT_0670,For_Outer_Call,Visible,Unelaborated
0181 c24d       | M  |		Store	0x1,0x4d
0182 029a 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call,Visible,Unelaborated
0184 c24e       | N  |		Store	0x1,0x4e
0185 029a 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call,Visible,Unelaborated
0187 c27f       |    |		Store	0x1,0x7f
0188 029a 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Outer_Call,Visible,Unelaborated
018a c280       |    |		Store	0x1,0x80
018b 029a 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call,Visible,Unelaborated
018d c281       |    |		Store	0x1,0x81
018e 029a 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call,Visible,Unelaborated
0190 c282       |    |		Store	0x1,0x82
0191 029a 06db  |    |		Declare_Subprogram	INIT_06d8,For_Outer_Call,Visible,Unelaborated
0193 c26e       | n  |		Store	0x1,0x6e
0194 029a 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call,Visible,Unelaborated
0196 c26f       | o  |		Store	0x1,0x6f
0197 029a 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call,Visible,Unelaborated
0199 c270       | p  |		Store	0x1,0x70
019a 029a 0703  |    |		Declare_Subprogram	INIT_0700,For_Outer_Call,Visible,Unelaborated
019c c271       | q  |		Store	0x1,0x71
019d 029a 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call,Visible,Unelaborated
019f c24f       | O  |		Store	0x1,0x4f
01a0 029a 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call,Visible,Unelaborated
01a2 c250       | P  |		Store	0x1,0x50
01a3 029a 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call,Visible,Unelaborated
01a5 c251       | Q  |		Store	0x1,0x51
01a6 029a 0753  |   S|		Declare_Subprogram	INIT_0750,For_Outer_Call,Visible,Unelaborated
01a8 c252       | R  |		Store	0x1,0x52
01a9 029a 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call,Visible,Unelaborated
01ab c253       | S  |		Store	0x1,0x53
01ac 029a 077b  |   {|		Declare_Subprogram	INIT_0778,For_Outer_Call,Visible,Unelaborated
01ae c287       |    |		Store	0x1,0x87
01af 029a 0793  |    |		Declare_Subprogram	INIT_0790,For_Outer_Call,Visible,Unelaborated
01b1 c255       | U  |		Store	0x1,0x55
01b2 029a 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call,Visible,Unelaborated
01b4 c288       |    |		Store	0x1,0x88
01b5 029a 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Outer_Call,Visible,Unelaborated
01b7 c289       |    |		Store	0x1,0x89
01b8 029a 07db  |    |		Declare_Subprogram	INIT_07d8,For_Outer_Call,Visible,Unelaborated
01ba c28a       |    |		Store	0x1,0x8a
01bb 029a 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Outer_Call,Visible,Unelaborated
01bd c259       | Y  |		Store	0x1,0x59
01be 029a 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Outer_Call,Visible,Unelaborated
01c0 c25a       | Z  |		Store	0x1,0x5a
01c1 029a 0803  |    |		Declare_Subprogram	INIT_0800,For_Outer_Call,Visible,Unelaborated
01c3 c25b       | [  |		Store	0x1,0x5b
01c4 029a 080b  |    |		Declare_Subprogram	INIT_0808,For_Outer_Call,Visible,Unelaborated
01c6 c272       | r  |		Store	0x1,0x72
01c7 029a 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Visible,Unelaborated
01c9 c273       | s  |		Store	0x1,0x73
01ca 029a 082b  |   +|		Declare_Subprogram	INIT_0828,For_Outer_Call,Visible,Unelaborated
01cc c25e       | ^  |		Store	0x1,0x5e
01cd 029a 0833  |   3|		Declare_Subprogram	INIT_0830,For_Outer_Call,Visible,Unelaborated
01cf c25f       | _  |		Store	0x1,0x5f
01d0 029a 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Outer_Call,Visible,Unelaborated
01d2 c260       | `  |		Store	0x1,0x60
01d3 4807       |H   |		Short_Literal	0x7
01d4 0093 0893  |    |		push_full_address	INIT_0890
01d6 02a0       |    |		Declare_Subprogram	Null_Subprogram
01d7 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
01d8 c261       | a  |		Store	0x1,0x61
01d9 00bf       |    |		Action	Accept_Activation
01da 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
01db 00c7       |    |		Action	Elaborate_Subprogram
01dc 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
01dd 00c7       |    |		Action	Elaborate_Subprogram
01de 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
01df 00c7       |    |		Action	Elaborate_Subprogram
01e0 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
01e1 00c7       |    |		Action	Elaborate_Subprogram
01e2 1d83       |    |		Execute_Immediate	Reference_Lex_1,0x83
01e3 00c7       |    |		Action	Elaborate_Subprogram
01e4 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
01e5 00c7       |    |		Action	Elaborate_Subprogram
01e6 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
01e7 00c7       |    |		Action	Elaborate_Subprogram
01e8 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
01e9 00c7       |    |		Action	Elaborate_Subprogram
01ea 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
01eb 00c7       |    |		Action	Elaborate_Subprogram
01ec 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
01ed 00c7       |    |		Action	Elaborate_Subprogram
01ee 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
01ef 00c7       |    |		Action	Elaborate_Subprogram
01f0 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
01f1 00c7       |    |		Action	Elaborate_Subprogram
01f2 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
01f3 00c7       |    |		Action	Elaborate_Subprogram
01f4 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
01f5 00c7       |    |		Action	Elaborate_Subprogram
01f6 1d66       | f  |		Execute_Immediate	Reference_Lex_1,0x66
01f7 00c7       |    |		Action	Elaborate_Subprogram
01f8 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
01f9 00c7       |    |		Action	Elaborate_Subprogram
01fa 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
01fb 00c7       |    |		Action	Elaborate_Subprogram
01fc 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
01fd 00c7       |    |		Action	Elaborate_Subprogram
01fe 1d6a       | j  |		Execute_Immediate	Reference_Lex_1,0x6a
01ff 00c7       |    |		Action	Elaborate_Subprogram
0200 1d86       |    |		Execute_Immediate	Reference_Lex_1,0x86
0201 00c7       |    |		Action	Elaborate_Subprogram
0202 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0203 00c7       |    |		Action	Elaborate_Subprogram
0204 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0205 00c7       |    |		Action	Elaborate_Subprogram
0206 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
0207 00c7       |    |		Action	Elaborate_Subprogram
0208 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0209 00c7       |    |		Action	Elaborate_Subprogram
020a 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
020b 00c7       |    |		Action	Elaborate_Subprogram
020c 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
020d 00c7       |    |		Action	Elaborate_Subprogram
020e 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
020f 00c7       |    |		Action	Elaborate_Subprogram
0210 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0211 00c7       |    |		Action	Elaborate_Subprogram
0212 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0213 00c7       |    |		Action	Elaborate_Subprogram
0214 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0215 00c7       |    |		Action	Elaborate_Subprogram
0216 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0217 00c7       |    |		Action	Elaborate_Subprogram
0218 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0219 00c7       |    |		Action	Elaborate_Subprogram
021a 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
021b 00c7       |    |		Action	Elaborate_Subprogram
021c 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
021d 00c7       |    |		Action	Elaborate_Subprogram
021e 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
021f 00c7       |    |		Action	Elaborate_Subprogram
0220 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0221 00c7       |    |		Action	Elaborate_Subprogram
0222 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0223 00c7       |    |		Action	Elaborate_Subprogram
0224 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
0225 00c7       |    |		Action	Elaborate_Subprogram
0226 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0227 00c7       |    |		Action	Elaborate_Subprogram
0228 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0229 00c7       |    |		Action	Elaborate_Subprogram
022a 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
022b 00c7       |    |		Action	Elaborate_Subprogram
022c 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
022d 00c7       |    |		Action	Elaborate_Subprogram
022e 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
022f 00c7       |    |		Action	Elaborate_Subprogram
0230 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0231 00c7       |    |		Action	Elaborate_Subprogram
0232 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
0233 00c7       |    |		Action	Elaborate_Subprogram
0234 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
0235 00c7       |    |		Action	Elaborate_Subprogram
0236 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
0237 00c7       |    |		Action	Elaborate_Subprogram
0238 1d84       |    |		Execute_Immediate	Reference_Lex_1,0x84
0239 00c7       |    |		Action	Elaborate_Subprogram
023a 1d85       |    |		Execute_Immediate	Reference_Lex_1,0x85
023b 00c7       |    |		Action	Elaborate_Subprogram
023c 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
023d 00c7       |    |		Action	Elaborate_Subprogram
023e 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
023f 00c7       |    |		Action	Elaborate_Subprogram
0240 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0241 00c7       |    |		Action	Elaborate_Subprogram
0242 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0243 00c7       |    |		Action	Elaborate_Subprogram
0244 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0245 00c7       |    |		Action	Elaborate_Subprogram
0246 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0247 00c7       |    |		Action	Elaborate_Subprogram
0248 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
0249 00c7       |    |		Action	Elaborate_Subprogram
024a 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
024b 00c7       |    |		Action	Elaborate_Subprogram
024c 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
024d 00c7       |    |		Action	Elaborate_Subprogram
024e 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
024f 00c7       |    |		Action	Elaborate_Subprogram
0250 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0251 00c7       |    |		Action	Elaborate_Subprogram
0252 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
0253 00c7       |    |		Action	Elaborate_Subprogram
0254 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
0255 00c7       |    |		Action	Elaborate_Subprogram
0256 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
0257 00c7       |    |		Action	Elaborate_Subprogram
0258 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0259 00c7       |    |		Action	Elaborate_Subprogram
025a 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
025b 00c7       |    |		Action	Elaborate_Subprogram
025c 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
025d 00c7       |    |		Action	Elaborate_Subprogram
025e 1d7f       |    |		Execute_Immediate	Reference_Lex_1,0x7f
025f 00c7       |    |		Action	Elaborate_Subprogram
0260 1d80       |    |		Execute_Immediate	Reference_Lex_1,0x80
0261 00c7       |    |		Action	Elaborate_Subprogram
0262 1d81       |    |		Execute_Immediate	Reference_Lex_1,0x81
0263 00c7       |    |		Action	Elaborate_Subprogram
0264 1d82       |    |		Execute_Immediate	Reference_Lex_1,0x82
0265 00c7       |    |		Action	Elaborate_Subprogram
0266 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
0267 00c7       |    |		Action	Elaborate_Subprogram
0268 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
0269 00c7       |    |		Action	Elaborate_Subprogram
026a 1d70       | p  |		Execute_Immediate	Reference_Lex_1,0x70
026b 00c7       |    |		Action	Elaborate_Subprogram
026c 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
026d 00c7       |    |		Action	Elaborate_Subprogram
026e 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
026f 00c7       |    |		Action	Elaborate_Subprogram
0270 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
0271 00c7       |    |		Action	Elaborate_Subprogram
0272 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
0273 00c7       |    |		Action	Elaborate_Subprogram
0274 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0275 00c7       |    |		Action	Elaborate_Subprogram
0276 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0277 00c7       |    |		Action	Elaborate_Subprogram
0278 1d87       |    |		Execute_Immediate	Reference_Lex_1,0x87
0279 00c7       |    |		Action	Elaborate_Subprogram
027a 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
027b 00c7       |    |		Action	Elaborate_Subprogram
027c 1d88       |    |		Execute_Immediate	Reference_Lex_1,0x88
027d 00c7       |    |		Action	Elaborate_Subprogram
027e 1d89       |    |		Execute_Immediate	Reference_Lex_1,0x89
027f 00c7       |    |		Action	Elaborate_Subprogram
0280 1d8a       |    |		Execute_Immediate	Reference_Lex_1,0x8a
0281 00c7       |    |		Action	Elaborate_Subprogram
0282 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
0283 00c7       |    |		Action	Elaborate_Subprogram
0284 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
0285 00c7       |    |		Action	Elaborate_Subprogram
0286 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
0287 00c7       |    |		Action	Elaborate_Subprogram
0288 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
0289 00c7       |    |		Action	Elaborate_Subprogram
028a 1d73       | s  |		Execute_Immediate	Reference_Lex_1,0x73
028b 00c7       |    |		Action	Elaborate_Subprogram
028c 1d5e       | ^  |		Execute_Immediate	Reference_Lex_1,0x5e
028d 00c7       |    |		Action	Elaborate_Subprogram
028e 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
028f 00c7       |    |		Action	Elaborate_Subprogram
0290 1d60       | `  |		Execute_Immediate	Reference_Lex_1,0x60
0291 00c7       |    |		Action	Elaborate_Subprogram
0292 e004       |    |		Load	0x0,0x4
0293 e005       |    |		Load	0x0,0x5
0294 e006       |    |		Load	0x0,0x6
0295 e007       |    |		Load	0x0,0x7
0296 4804       |H   |		Short_Literal	0x4
0297 e261       | a  |		Load	0x1,0x61
0298 020e       |    |		Execute	Module,Augment_Imports
0299 e261       | a  |		Load	0x1,0x61
029a 020d       |    |		Execute	Module,Elaborate
029b			BODY_0008:
029b 00bc       |    |		Action	Signal_Activated
029c 00bb       |    |		Action	Signal_Completion
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e007       |    |		Load	0x0,0x7
02a4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02a5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02a6 00ca       |    |		Action	Exit_Nullary_Function
02a7 0000       |    |		.XXX[0x1]
02a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
02ac 0000 0000  |    |		.BLANK	0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 e5f9       |    |		Load	0x2,-0x7
02b4 e5fa       |    |		Load	0x2,-0x6
02b5 e008       |    |		Load	0x0,0x8
02b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02b7 e5fb       |    |		Load	0x2,-0x5
02b8 e006       |    |		Load	0x0,0x6
02b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ba 00d9       |    |		Load_Top	At_Offset_1
02bb 00d0       |    |		Action	Swap_Control
02bc 0260       | `  |		Execute	Discrete,In_Type
02bd 7001       |p   |		Jump_Nonzero	0x2bf
02be 0801       |    |		Execute_Immediate	Raise,0x1
02bf e5fc       |    |		Load	0x2,-0x4
02c0 e5fd       |    |		Load	0x2,-0x3
02c1 e5fe       |    |		Load	0x2,-0x2
02c2 e5ff       |    |		Load	0x2,-0x1
02c3 e007       |    |		Load	0x0,0x7
02c4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02c5 1892       |    |		Execute	Package,Field_Execute,Field_Number 0x92
02c6 c5f9       |    |		Store	0x2,-0x7
02c7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
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 e5fd       |    |		Load	0x2,-0x3
02cc e5fe       |    |		Load	0x2,-0x2
02cd e006       |    |		Load	0x0,0x6
02ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02cf 00d9       |    |		Load_Top	At_Offset_1
02d0 00d0       |    |		Action	Swap_Control
02d1 0260       | `  |		Execute	Discrete,In_Type
02d2 7001       |p   |		Jump_Nonzero	0x2d4
02d3 0801       |    |		Execute_Immediate	Raise,0x1
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 e007       |    |		Load	0x0,0x7
02d6 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d8 c5fd       |    |		Store	0x2,-0x3
02d9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02da 0000 0000  |    |		.BLANK	0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e5fd       |    |		Load	0x2,-0x3
02e4 e5fe       |    |		Load	0x2,-0x2
02e5 e006       |    |		Load	0x0,0x6
02e6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e7 00d9       |    |		Load_Top	At_Offset_1
02e8 00d0       |    |		Action	Swap_Control
02e9 0260       | `  |		Execute	Discrete,In_Type
02ea 7001       |p   |		Jump_Nonzero	0x2ec
02eb 0801       |    |		Execute_Immediate	Raise,0x1
02ec e007       |    |		Load	0x0,0x7
02ed 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02ee 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
02ef e5ff       |    |		Load	0x2,-0x1
02f0 e007       |    |		Load	0x0,0x7
02f1 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02f2 1891       |    |		Execute	Package,Field_Execute,Field_Number 0x91
02f3 c5fd       |    |		Store	0x2,-0x3
02f4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02f5 0000 0000  |    |		.XXX[0x3]
02f7 0000       |    |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00db       |    |		Load_Top	At_Offset_3
02fc e006       |    |		Load	0x0,0x6
02fd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff 00d0       |    |		Action	Swap_Control
0300 0260       | `  |		Execute	Discrete,In_Type
0301 7001       |p   |		Jump_Nonzero	0x303
0302 0801       |    |		Execute_Immediate	Raise,0x1
0303 00db       |    |		Load_Top	At_Offset_3
0304 e007       |    |		Load	0x0,0x7
0305 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0306 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
0307 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b e5fb       |    |		Load	0x2,-0x5
030c e5fd       |    |		Load	0x2,-0x3
030d e5fc       |    |		Load	0x2,-0x4
030e e006       |    |		Load	0x0,0x6
030f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0310 00d9       |    |		Load_Top	At_Offset_1
0311 00d0       |    |		Action	Swap_Control
0312 0260       | `  |		Execute	Discrete,In_Type
0313 7001       |p   |		Jump_Nonzero	0x315
0314 0801       |    |		Execute_Immediate	Raise,0x1
0315 e5fe       |    |		Load	0x2,-0x2
0316 e5ff       |    |		Load	0x2,-0x1
0317 e007       |    |		Load	0x0,0x7
0318 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0319 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
031a c5fb       |    |		Store	0x2,-0x5
031b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 e5fc       |    |		Load	0x2,-0x4
0324 e5fd       |    |		Load	0x2,-0x3
0325 e5fe       |    |		Load	0x2,-0x2
0326 e5ff       |    |		Load	0x2,-0x1
0327 e007       |    |		Load	0x0,0x7
0328 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0329 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
032a c5fc       |    |		Store	0x2,-0x4
032b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
032c 0000 0000  |    |		.BLANK	0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 e007       |    |		Load	0x0,0x7
0335 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0336 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0337 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b e5fd       |    |		Load	0x2,-0x3
033c e5fe       |    |		Load	0x2,-0x2
033d 0120       |    |		Execute	Any,Is_Value
033e 6803       |h   |		Jump_Zero	0x342
033f e009       |    |		Load	0x0,0x9
0340 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0341 7801       |x   |		Jump	0x343
0342 e5fe       |    |		Load	0x2,-0x2
0343 e5ff       |    |		Load	0x2,-0x1
0344 e007       |    |		Load	0x0,0x7
0345 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0346 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0347 c5fe       |    |		Store	0x2,-0x2
0348 c5fd       |    |		Store	0x2,-0x3
0349 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
034a 0000 0000  |    |		.BLANK	0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 e5fd       |    |		Load	0x2,-0x3
0354 00e3       |    |		Load_Encached	Natural_Cache
0355 e5ff       |    |		Load	0x2,-0x1
0356 e007       |    |		Load	0x0,0x7
0357 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0358 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0359 c5fe       |    |		Store	0x2,-0x2
035a c5fd       |    |		Store	0x2,-0x3
035b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
035c 0000 0000  |    |		.BLANK	0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 e007       |    |		Load	0x0,0x7
0365 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0366 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
0367 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b e5fd       |    |		Load	0x2,-0x3
036c e5fe       |    |		Load	0x2,-0x2
036d e5ff       |    |		Load	0x2,-0x1
036e e007       |    |		Load	0x0,0x7
036f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0370 187b       | {  |		Execute	Package,Field_Execute,Field_Number 0x7b
0371 c5fd       |    |		Store	0x2,-0x3
0372 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0373 0000 0000  |    |		.BLANK	0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 00da       |    |		Load_Top	At_Offset_2
037c e007       |    |		Load	0x0,0x7
037d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
037e 187c       | |  |		Execute	Package,Field_Execute,Field_Number 0x7c
037f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 e5fd       |    |		Load	0x2,-0x3
0384 e5fe       |    |		Load	0x2,-0x2
0385 e5ff       |    |		Load	0x2,-0x1
0386 e007       |    |		Load	0x0,0x7
0387 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0388 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
0389 c5fd       |    |		Store	0x2,-0x3
038a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038b 0000 0000  |    |		.BLANK	0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 e5fc       |    |		Load	0x2,-0x4
0394 e5fd       |    |		Load	0x2,-0x3
0395 e007       |    |		Load	0x0,0x7
0396 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0397 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
0398 e5fe       |    |		Load	0x2,-0x2
0399 e5ff       |    |		Load	0x2,-0x1
039a e007       |    |		Load	0x0,0x7
039b 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
039c 188b       |    |		Execute	Package,Field_Execute,Field_Number 0x8b
039d c5fc       |    |		Store	0x2,-0x4
039e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
039f 0000       |    |		.XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e5fc       |    |		Load	0x2,-0x4
03a4 e5fd       |    |		Load	0x2,-0x3
03a5 e5fe       |    |		Load	0x2,-0x2
03a6 e007       |    |		Load	0x0,0x7
03a7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03a8 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
03a9 e5ff       |    |		Load	0x2,-0x1
03aa e007       |    |		Load	0x0,0x7
03ab 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
03ac 188c       |    |		Execute	Package,Field_Execute,Field_Number 0x8c
03ad c5fd       |    |		Store	0x2,-0x3
03ae c5fc       |    |		Store	0x2,-0x4
03af 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 e5fc       |    |		Load	0x2,-0x4
03b4 e5fd       |    |		Load	0x2,-0x3
03b5 e007       |    |		Load	0x0,0x7
03b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03b7 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
03b8 e5fe       |    |		Load	0x2,-0x2
03b9 e5ff       |    |		Load	0x2,-0x1
03ba e007       |    |		Load	0x0,0x7
03bb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
03bc 188d       |    |		Execute	Package,Field_Execute,Field_Number 0x8d
03bd c5fc       |    |		Store	0x2,-0x4
03be 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03bf 0000       |    |		.XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 e5fb       |    |		Load	0x2,-0x5
03c4 e007       |    |		Load	0x0,0x7
03c5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c7 e5fd       |    |		Load	0x2,-0x3
03c8 e007       |    |		Load	0x0,0x7
03c9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03ca 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
03cb e5fe       |    |		Load	0x2,-0x2
03cc e5ff       |    |		Load	0x2,-0x1
03cd e007       |    |		Load	0x0,0x7
03ce 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
03cf 188e       |    |		Execute	Package,Field_Execute,Field_Number 0x8e
03d0 c5fc       |    |		Store	0x2,-0x4
03d1 c5fb       |    |		Store	0x2,-0x5
03d2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03d3 0000 0000  |    |		.BLANK	0000[0x5]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db e5fb       |    |		Load	0x2,-0x5
03dc e007       |    |		Load	0x0,0x7
03dd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03de 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03df e5fd       |    |		Load	0x2,-0x3
03e0 e007       |    |		Load	0x0,0x7
03e1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03e2 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
03e3 e5fe       |    |		Load	0x2,-0x2
03e4 e5ff       |    |		Load	0x2,-0x1
03e5 e007       |    |		Load	0x0,0x7
03e6 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
03e7 188f       |    |		Execute	Package,Field_Execute,Field_Number 0x8f
03e8 c5fc       |    |		Store	0x2,-0x4
03e9 c5fb       |    |		Store	0x2,-0x5
03ea 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03eb 0000 0000  |    |		.BLANK	0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 e5fd       |    |		Load	0x2,-0x3
03f4 e007       |    |		Load	0x0,0x7
03f5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03f6 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
03f7 e5fe       |    |		Load	0x2,-0x2
03f8 e5ff       |    |		Load	0x2,-0x1
03f9 e007       |    |		Load	0x0,0x7
03fa 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
03fb 1890       |    |		Execute	Package,Field_Execute,Field_Number 0x90
03fc e00a       |    |		Load	0x0,0xa
03fd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03fe 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03ff 0000       |    |		.XXX[0x1]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 e5fd       |    |		Load	0x2,-0x3
0404 e5fe       |    |		Load	0x2,-0x2
0405 e5ff       |    |		Load	0x2,-0x1
0406 e00b       |    |		Load	0x0,0xb
0407 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0408 e007       |    |		Load	0x0,0x7
0409 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
040a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
040b c5fd       |    |		Store	0x2,-0x3
040c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
040d 0000 0000  |    |		.XXX[0x3]
040f 0000       |    |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 e5fd       |    |		Load	0x2,-0x3
0414 e5fe       |    |		Load	0x2,-0x2
0415 e5ff       |    |		Load	0x2,-0x1
0416 e007       |    |		Load	0x0,0x7
0417 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0418 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0419 c5fd       |    |		Store	0x2,-0x3
041a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
041b 0000 0000  |    |		.BLANK	0000[0x5]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 e5fd       |    |		Load	0x2,-0x3
0424 e5fe       |    |		Load	0x2,-0x2
0425 e5ff       |    |		Load	0x2,-0x1
0426 e007       |    |		Load	0x0,0x7
0427 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0428 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
0429 c5fd       |    |		Store	0x2,-0x3
042a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
042b 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
0434 e007       |    |		Load	0x0,0x7
0435 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0436 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0437 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c e007       |    |		Load	0x0,0x7
043d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
043e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
043f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00da       |    |		Load_Top	At_Offset_2
0444 e007       |    |		Load	0x0,0x7
0445 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0446 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0447 00d8       |    |		Load_Top	At_Offset_0
0448 e00c       |    |		Load	0x0,0xc
0449 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
044a 0122       | "  |		Execute	Any,Make_Root_Type
044b 0260       | `  |		Execute	Discrete,In_Type
044c 7001       |p   |		Jump_Nonzero	0x44e
044d 0801       |    |		Execute_Immediate	Raise,0x1
044e e00c       |    |		Load	0x0,0xc
044f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0450 00d9       |    |		Load_Top	At_Offset_1
0451 00d0       |    |		Action	Swap_Control
0452 0260       | `  |		Execute	Discrete,In_Type
0453 7001       |p   |		Jump_Nonzero	0x455
0454 0801       |    |		Execute_Immediate	Raise,0x1
0455 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0456 0000 0000  |    |		.XXX[0x2]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 00da       |    |		Load_Top	At_Offset_2
045c e007       |    |		Load	0x0,0x7
045d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
045e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
045f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00da       |    |		Load_Top	At_Offset_2
0464 e007       |    |		Load	0x0,0x7
0465 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0466 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0467 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b e5fd       |    |		Load	0x2,-0x3
046c e5fe       |    |		Load	0x2,-0x2
046d e5ff       |    |		Load	0x2,-0x1
046e e007       |    |		Load	0x0,0x7
046f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0470 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0471 c5fd       |    |		Store	0x2,-0x3
0472 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0473 0000 0000  |    |		.BLANK	0000[0x5]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 00da       |    |		Load_Top	At_Offset_2
047c e007       |    |		Load	0x0,0x7
047d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
047e 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
047f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 e5fd       |    |		Load	0x2,-0x3
0484 e5fe       |    |		Load	0x2,-0x2
0485 e5ff       |    |		Load	0x2,-0x1
0486 e007       |    |		Load	0x0,0x7
0487 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0488 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0489 c5fd       |    |		Store	0x2,-0x3
048a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
048b 0000 0000  |    |		.BLANK	0000[0x5]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2
0494 e007       |    |		Load	0x0,0x7
0495 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0496 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0497 e00d       |    |		Load	0x0,0xd
0498 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0499 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
049a 0000 0000  |    |		.BLANK	0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 e5fd       |    |		Load	0x2,-0x3
04a4 e5fe       |    |		Load	0x2,-0x2
04a5 e5ff       |    |		Load	0x2,-0x1
04a6 e007       |    |		Load	0x0,0x7
04a7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04a8 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
04a9 c5fd       |    |		Store	0x2,-0x3
04aa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04ab 0000 0000  |    |		.BLANK	0000[0x5]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3       |    |		.CONST	0x04b3								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0001       |    |		.CONST	0x0001								; Number of locals
04b3			BODY_04b0:
04b3			INIT_04b0:
04b3 e5fd       |    |		Load	0x2,-0x3
04b4 e5fe       |    |		Load	0x2,-0x2
04b5 e5ff       |    |		Load	0x2,-0x1
04b6 e007       |    |		Load	0x0,0x7
04b7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04b8 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04b9 c5fd       |    |		Store	0x2,-0x3
04ba 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04bb 0000 0000  |    |		.BLANK	0000[0x5]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 e5fd       |    |		Load	0x2,-0x3
04c4 e5fe       |    |		Load	0x2,-0x2
04c5 e5ff       |    |		Load	0x2,-0x1
04c6 e007       |    |		Load	0x0,0x7
04c7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04c8 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
04c9 c5fd       |    |		Store	0x2,-0x3
04ca 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04cb 0000 0000  |    |		.BLANK	0000[0x5]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 e5fd       |    |		Load	0x2,-0x3
04d4 e5fe       |    |		Load	0x2,-0x2
04d5 e5ff       |    |		Load	0x2,-0x1
04d6 e007       |    |		Load	0x0,0x7
04d7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04d8 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
04d9 c5fd       |    |		Store	0x2,-0x3
04da 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04db 0000 0000  |    |		.BLANK	0000[0x5]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3       |    |		.CONST	0x04e3								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0001       |    |		.CONST	0x0001								; Number of locals
04e3			BODY_04e0:
04e3			INIT_04e0:
04e3 e5fd       |    |		Load	0x2,-0x3
04e4 e5fe       |    |		Load	0x2,-0x2
04e5 e5ff       |    |		Load	0x2,-0x1
04e6 e007       |    |		Load	0x0,0x7
04e7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04e8 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
04e9 c5fd       |    |		Store	0x2,-0x3
04ea 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04eb 0000 0000  |    |		.BLANK	0000[0x5]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3       |    |		.CONST	0x04f3								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0001       |    |		.CONST	0x0001								; Number of locals
04f3			BODY_04f0:
04f3			INIT_04f0:
04f3 e5fd       |    |		Load	0x2,-0x3
04f4 e5fe       |    |		Load	0x2,-0x2
04f5 e5ff       |    |		Load	0x2,-0x1
04f6 e007       |    |		Load	0x0,0x7
04f7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04f8 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
04f9 c5fd       |    |		Store	0x2,-0x3
04fa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04fb 0000 0000  |    |		.BLANK	0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503       |    |		.CONST	0x0503								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0001       |    |		.CONST	0x0001								; Number of locals
0503			BODY_0500:
0503			INIT_0500:
0503 e5fd       |    |		Load	0x2,-0x3
0504 e5fe       |    |		Load	0x2,-0x2
0505 e5ff       |    |		Load	0x2,-0x1
0506 e007       |    |		Load	0x0,0x7
0507 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0508 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0509 c5fd       |    |		Store	0x2,-0x3
050a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
050b 0000 0000  |    |		.BLANK	0000[0x5]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 e5fd       |    |		Load	0x2,-0x3
0514 e5fe       |    |		Load	0x2,-0x2
0515 e5ff       |    |		Load	0x2,-0x1
0516 e007       |    |		Load	0x0,0x7
0517 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0518 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0519 c5fd       |    |		Store	0x2,-0x3
051a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
051b 0000 0000  |    |		.BLANK	0000[0x5]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 e5fc       |    |		Load	0x2,-0x4
0524 e007       |    |		Load	0x0,0x7
0525 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0526 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0527 e5fe       |    |		Load	0x2,-0x2
0528 e5ff       |    |		Load	0x2,-0x1
0529 e007       |    |		Load	0x0,0x7
052a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
052b 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
052c c5fd       |    |		Store	0x2,-0x3
052d c5fc       |    |		Store	0x2,-0x4
052e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
052f 0000       |    |		.XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 e5fc       |    |		Load	0x2,-0x4
0534 e007       |    |		Load	0x0,0x7
0535 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0536 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0537 e5fe       |    |		Load	0x2,-0x2
0538 e5ff       |    |		Load	0x2,-0x1
0539 e007       |    |		Load	0x0,0x7
053a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
053b 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
053c c5fd       |    |		Store	0x2,-0x3
053d c5fc       |    |		Store	0x2,-0x4
053e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
053f 0000       |    |		.XXX[0x1]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 e5fc       |    |		Load	0x2,-0x4
0544 e007       |    |		Load	0x0,0x7
0545 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0546 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0547 e5fe       |    |		Load	0x2,-0x2
0548 e5ff       |    |		Load	0x2,-0x1
0549 e007       |    |		Load	0x0,0x7
054a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
054b 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
054c c5fd       |    |		Store	0x2,-0x3
054d c5fc       |    |		Store	0x2,-0x4
054e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
054f 0000       |    |		.XXX[0x1]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 00da       |    |		Load_Top	At_Offset_2
0554 e007       |    |		Load	0x0,0x7
0555 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0556 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0557 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b       | [  |		.CONST	0x055b								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0001       |    |		.CONST	0x0001								; Number of locals
055b			BODY_0558:
055b			INIT_0558:
055b 00da       |    |		Load_Top	At_Offset_2
055c e007       |    |		Load	0x0,0x7
055d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
055e 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
055f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 00da       |    |		Load_Top	At_Offset_2
0564 e007       |    |		Load	0x0,0x7
0565 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0566 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0567 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c e007       |    |		Load	0x0,0x7
056d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
056e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
056f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 00da       |    |		Load_Top	At_Offset_2
0574 e007       |    |		Load	0x0,0x7
0575 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0576 1887       |    |		Execute	Package,Field_Execute,Field_Number 0x87
0577 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b       | {  |		.CONST	0x057b								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0001       |    |		.CONST	0x0001								; Number of locals
057b			BODY_0578:
057b			INIT_0578:
057b 00da       |    |		Load_Top	At_Offset_2
057c e007       |    |		Load	0x0,0x7
057d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
057e 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
057f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 00da       |    |		Load_Top	At_Offset_2
0584 e007       |    |		Load	0x0,0x7
0585 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0586 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0587 e00e       |    |		Load	0x0,0xe
0588 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0589 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
058a 0000 0000  |    |		.BLANK	0000[0x6]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 00db       |    |		Load_Top	At_Offset_3
0594 e006       |    |		Load	0x0,0x6
0595 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0596 00d9       |    |		Load_Top	At_Offset_1
0597 00d0       |    |		Action	Swap_Control
0598 0260       | `  |		Execute	Discrete,In_Type
0599 7001       |p   |		Jump_Nonzero	0x59b
059a 0801       |    |		Execute_Immediate	Raise,0x1
059b 00db       |    |		Load_Top	At_Offset_3
059c e007       |    |		Load	0x0,0x7
059d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
059e 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
059f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 e5fc       |    |		Load	0x2,-0x4
05a4 e5fd       |    |		Load	0x2,-0x3
05a5 e006       |    |		Load	0x0,0x6
05a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05a7 00d9       |    |		Load_Top	At_Offset_1
05a8 00d0       |    |		Action	Swap_Control
05a9 0260       | `  |		Execute	Discrete,In_Type
05aa 7001       |p   |		Jump_Nonzero	0x5ac
05ab 0801       |    |		Execute_Immediate	Raise,0x1
05ac e5fe       |    |		Load	0x2,-0x2
05ad e5ff       |    |		Load	0x2,-0x1
05ae e007       |    |		Load	0x0,0x7
05af 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05b0 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
05b1 c5fc       |    |		Store	0x2,-0x4
05b2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05b3 0000 0000  |    |		.BLANK	0000[0x5]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb       |    |		.CONST	0x05bb								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0001       |    |		.CONST	0x0001								; Number of locals
05bb			BODY_05b8:
05bb			INIT_05b8:
05bb 00da       |    |		Load_Top	At_Offset_2
05bc e007       |    |		Load	0x0,0x7
05bd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05be 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
05bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 00da       |    |		Load_Top	At_Offset_2
05c4 e007       |    |		Load	0x0,0x7
05c5 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05c6 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
05c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb 00da       |    |		Load_Top	At_Offset_2
05cc e007       |    |		Load	0x0,0x7
05cd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05ce 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
05cf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3       |    |		.CONST	0x05d3								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0001       |    |		.CONST	0x0001								; Number of locals
05d3			BODY_05d0:
05d3			INIT_05d0:
05d3 00da       |    |		Load_Top	At_Offset_2
05d4 e007       |    |		Load	0x0,0x7
05d5 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05d6 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
05d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5ff       |    |		Load	0x2,-0x1
05de e007       |    |		Load	0x0,0x7
05df 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05e0 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
05e1 c5fd       |    |		Store	0x2,-0x3
05e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05e3 0000 0000  |    |		.BLANK	0000[0x5]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb 00da       |    |		Load_Top	At_Offset_2
05ec e007       |    |		Load	0x0,0x7
05ed 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
05ee 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
05ef e00f       |    |		Load	0x0,0xf
05f0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05f1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f2 0000 0000  |    |		.BLANK	0000[0x6]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 00db       |    |		Load_Top	At_Offset_3
05fc e006       |    |		Load	0x0,0x6
05fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05fe 00d9       |    |		Load_Top	At_Offset_1
05ff 00d0       |    |		Action	Swap_Control
0600 0260       | `  |		Execute	Discrete,In_Type
0601 7001       |p   |		Jump_Nonzero	0x603
0602 0801       |    |		Execute_Immediate	Raise,0x1
0603 00db       |    |		Load_Top	At_Offset_3
0604 e007       |    |		Load	0x0,0x7
0605 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0606 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0607 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b e5fc       |    |		Load	0x2,-0x4
060c e5fd       |    |		Load	0x2,-0x3
060d e006       |    |		Load	0x0,0x6
060e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
060f 00d9       |    |		Load_Top	At_Offset_1
0610 00d0       |    |		Action	Swap_Control
0611 0260       | `  |		Execute	Discrete,In_Type
0612 7001       |p   |		Jump_Nonzero	0x614
0613 0801       |    |		Execute_Immediate	Raise,0x1
0614 e5fe       |    |		Load	0x2,-0x2
0615 e5ff       |    |		Load	0x2,-0x1
0616 e007       |    |		Load	0x0,0x7
0617 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0618 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
0619 c5fc       |    |		Store	0x2,-0x4
061a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
061b 0000 0000  |    |		.BLANK	0000[0x5]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 00db       |    |		Load_Top	At_Offset_3
0624 e006       |    |		Load	0x0,0x6
0625 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0626 00d9       |    |		Load_Top	At_Offset_1
0627 00d0       |    |		Action	Swap_Control
0628 0260       | `  |		Execute	Discrete,In_Type
0629 7001       |p   |		Jump_Nonzero	0x62b
062a 0801       |    |		Execute_Immediate	Raise,0x1
062b 00db       |    |		Load_Top	At_Offset_3
062c e007       |    |		Load	0x0,0x7
062d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
062e 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
062f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 e5fc       |    |		Load	0x2,-0x4
0634 e5fd       |    |		Load	0x2,-0x3
0635 e006       |    |		Load	0x0,0x6
0636 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0637 00d9       |    |		Load_Top	At_Offset_1
0638 00d0       |    |		Action	Swap_Control
0639 0260       | `  |		Execute	Discrete,In_Type
063a 7001       |p   |		Jump_Nonzero	0x63c
063b 0801       |    |		Execute_Immediate	Raise,0x1
063c e5fe       |    |		Load	0x2,-0x2
063d e5ff       |    |		Load	0x2,-0x1
063e e007       |    |		Load	0x0,0x7
063f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0640 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0641 c5fc       |    |		Store	0x2,-0x4
0642 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0643 0000 0000  |    |		.BLANK	0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b       | K  |		.CONST	0x064b								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0001       |    |		.CONST	0x0001								; Number of locals
064b			BODY_0648:
064b			INIT_0648:
064b 00db       |    |		Load_Top	At_Offset_3
064c e006       |    |		Load	0x0,0x6
064d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
064e 00d9       |    |		Load_Top	At_Offset_1
064f 00d0       |    |		Action	Swap_Control
0650 0260       | `  |		Execute	Discrete,In_Type
0651 7001       |p   |		Jump_Nonzero	0x653
0652 0801       |    |		Execute_Immediate	Raise,0x1
0653 00db       |    |		Load_Top	At_Offset_3
0654 e007       |    |		Load	0x0,0x7
0655 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0656 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
0657 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b e5fc       |    |		Load	0x2,-0x4
065c e5fd       |    |		Load	0x2,-0x3
065d e006       |    |		Load	0x0,0x6
065e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
065f 00d9       |    |		Load_Top	At_Offset_1
0660 00d0       |    |		Action	Swap_Control
0661 0260       | `  |		Execute	Discrete,In_Type
0662 7001       |p   |		Jump_Nonzero	0x664
0663 0801       |    |		Execute_Immediate	Raise,0x1
0664 e5fe       |    |		Load	0x2,-0x2
0665 e5ff       |    |		Load	0x2,-0x1
0666 e007       |    |		Load	0x0,0x7
0667 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0668 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0669 c5fc       |    |		Store	0x2,-0x4
066a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
066b 0000 0000  |    |		.BLANK	0000[0x5]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673       | s  |		.CONST	0x0673								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0001       |    |		.CONST	0x0001								; Number of locals
0673			BODY_0670:
0673			INIT_0670:
0673 00db       |    |		Load_Top	At_Offset_3
0674 e006       |    |		Load	0x0,0x6
0675 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0676 00d9       |    |		Load_Top	At_Offset_1
0677 00d0       |    |		Action	Swap_Control
0678 0260       | `  |		Execute	Discrete,In_Type
0679 7001       |p   |		Jump_Nonzero	0x67b
067a 0801       |    |		Execute_Immediate	Raise,0x1
067b 00db       |    |		Load_Top	At_Offset_3
067c e007       |    |		Load	0x0,0x7
067d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
067e 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
067f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 e5fc       |    |		Load	0x2,-0x4
0684 e5fd       |    |		Load	0x2,-0x3
0685 e006       |    |		Load	0x0,0x6
0686 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0687 00d9       |    |		Load_Top	At_Offset_1
0688 00d0       |    |		Action	Swap_Control
0689 0260       | `  |		Execute	Discrete,In_Type
068a 7001       |p   |		Jump_Nonzero	0x68c
068b 0801       |    |		Execute_Immediate	Raise,0x1
068c e5fe       |    |		Load	0x2,-0x2
068d e5ff       |    |		Load	0x2,-0x1
068e e007       |    |		Load	0x0,0x7
068f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0690 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0691 c5fc       |    |		Store	0x2,-0x4
0692 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0693 0000 0000  |    |		.BLANK	0000[0x5]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b 00da       |    |		Load_Top	At_Offset_2
069c e007       |    |		Load	0x0,0x7
069d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
069e 187f       |    |		Execute	Package,Field_Execute,Field_Number 0x7f
069f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3       |    |		.CONST	0x06a3								; Address of begin
06a1 0004       |    |		.CONST	0x0004								; Address of exception handler
06a2 0001       |    |		.CONST	0x0001								; Number of locals
06a3			BODY_06a0:
06a3			INIT_06a0:
06a3 e5fd       |    |		Load	0x2,-0x3
06a4 e5fe       |    |		Load	0x2,-0x2
06a5 e5ff       |    |		Load	0x2,-0x1
06a6 e007       |    |		Load	0x0,0x7
06a7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
06a8 1880       |    |		Execute	Package,Field_Execute,Field_Number 0x80
06a9 c5fd       |    |		Store	0x2,-0x3
06aa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06ab 0000 0000  |    |		.BLANK	0000[0x5]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 00db       |    |		Load_Top	At_Offset_3
06b4 e006       |    |		Load	0x0,0x6
06b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06b6 00d9       |    |		Load_Top	At_Offset_1
06b7 00d0       |    |		Action	Swap_Control
06b8 0260       | `  |		Execute	Discrete,In_Type
06b9 7001       |p   |		Jump_Nonzero	0x6bb
06ba 0801       |    |		Execute_Immediate	Raise,0x1
06bb 00db       |    |		Load_Top	At_Offset_3
06bc e007       |    |		Load	0x0,0x7
06bd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
06be 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
06bf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3       |    |		.CONST	0x06c3								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0001       |    |		.CONST	0x0001								; Number of locals
06c3			BODY_06c0:
06c3			INIT_06c0:
06c3 e5fc       |    |		Load	0x2,-0x4
06c4 e5fd       |    |		Load	0x2,-0x3
06c5 e006       |    |		Load	0x0,0x6
06c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06c7 00d9       |    |		Load_Top	At_Offset_1
06c8 00d0       |    |		Action	Swap_Control
06c9 0260       | `  |		Execute	Discrete,In_Type
06ca 7001       |p   |		Jump_Nonzero	0x6cc
06cb 0801       |    |		Execute_Immediate	Raise,0x1
06cc e5fe       |    |		Load	0x2,-0x2
06cd e5ff       |    |		Load	0x2,-0x1
06ce e007       |    |		Load	0x0,0x7
06cf 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
06d0 1882       |    |		Execute	Package,Field_Execute,Field_Number 0x82
06d1 c5fc       |    |		Store	0x2,-0x4
06d2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06d3 0000 0000  |    |		.BLANK	0000[0x5]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db       |    |		.CONST	0x06db								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0001       |    |		.CONST	0x0001								; Number of locals
06db			BODY_06d8:
06db			INIT_06d8:
06db 00da       |    |		Load_Top	At_Offset_2
06dc e007       |    |		Load	0x0,0x7
06dd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
06de 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
06df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 e5fd       |    |		Load	0x2,-0x3
06e4 e5fe       |    |		Load	0x2,-0x2
06e5 e5ff       |    |		Load	0x2,-0x1
06e6 e007       |    |		Load	0x0,0x7
06e7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
06e8 1872       | r  |		Execute	Package,Field_Execute,Field_Number 0x72
06e9 c5fd       |    |		Store	0x2,-0x3
06ea 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06eb 0000 0000  |    |		.BLANK	0000[0x5]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3       |    |		.CONST	0x06f3								; Address of begin
06f1 0004       |    |		.CONST	0x0004								; Address of exception handler
06f2 0001       |    |		.CONST	0x0001								; Number of locals
06f3			BODY_06f0:
06f3			INIT_06f0:
06f3 00db       |    |		Load_Top	At_Offset_3
06f4 e006       |    |		Load	0x0,0x6
06f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06f6 00d9       |    |		Load_Top	At_Offset_1
06f7 00d0       |    |		Action	Swap_Control
06f8 0260       | `  |		Execute	Discrete,In_Type
06f9 7001       |p   |		Jump_Nonzero	0x6fb
06fa 0801       |    |		Execute_Immediate	Raise,0x1
06fb 00db       |    |		Load_Top	At_Offset_3
06fc e007       |    |		Load	0x0,0x7
06fd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
06fe 1873       | s  |		Execute	Package,Field_Execute,Field_Number 0x73
06ff 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703       |    |		.CONST	0x0703								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0001       |    |		.CONST	0x0001								; Number of locals
0703			BODY_0700:
0703			INIT_0700:
0703 e5fc       |    |		Load	0x2,-0x4
0704 e5fd       |    |		Load	0x2,-0x3
0705 e006       |    |		Load	0x0,0x6
0706 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0707 00d9       |    |		Load_Top	At_Offset_1
0708 00d0       |    |		Action	Swap_Control
0709 0260       | `  |		Execute	Discrete,In_Type
070a 7001       |p   |		Jump_Nonzero	0x70c
070b 0801       |    |		Execute_Immediate	Raise,0x1
070c e5fe       |    |		Load	0x2,-0x2
070d e5ff       |    |		Load	0x2,-0x1
070e e007       |    |		Load	0x0,0x7
070f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0710 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
0711 c5fc       |    |		Store	0x2,-0x4
0712 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0713 0000 0000  |    |		.BLANK	0000[0x5]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b       |    |		.CONST	0x071b								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0001       |    |		.CONST	0x0001								; Number of locals
071b			BODY_0718:
071b			INIT_0718:
071b 00db       |    |		Load_Top	At_Offset_3
071c e006       |    |		Load	0x0,0x6
071d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
071e 00d9       |    |		Load_Top	At_Offset_1
071f 00d0       |    |		Action	Swap_Control
0720 0260       | `  |		Execute	Discrete,In_Type
0721 7001       |p   |		Jump_Nonzero	0x723
0722 0801       |    |		Execute_Immediate	Raise,0x1
0723 00db       |    |		Load_Top	At_Offset_3
0724 e007       |    |		Load	0x0,0x7
0725 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0726 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
0727 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fc       |    |		Load	0x2,-0x4
072c e5fd       |    |		Load	0x2,-0x3
072d e006       |    |		Load	0x0,0x6
072e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
072f 00d9       |    |		Load_Top	At_Offset_1
0730 00d0       |    |		Action	Swap_Control
0731 0260       | `  |		Execute	Discrete,In_Type
0732 7001       |p   |		Jump_Nonzero	0x734
0733 0801       |    |		Execute_Immediate	Raise,0x1
0734 e5fe       |    |		Load	0x2,-0x2
0735 e5ff       |    |		Load	0x2,-0x1
0736 e007       |    |		Load	0x0,0x7
0737 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0738 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0739 c5fc       |    |		Store	0x2,-0x4
073a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
073b 0000 0000  |    |		.BLANK	0000[0x5]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743       | C  |		.CONST	0x0743								; Address of begin
0741 0004       |    |		.CONST	0x0004								; Address of exception handler
0742 0001       |    |		.CONST	0x0001								; Number of locals
0743			BODY_0740:
0743			INIT_0740:
0743 00db       |    |		Load_Top	At_Offset_3
0744 e006       |    |		Load	0x0,0x6
0745 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0746 00d9       |    |		Load_Top	At_Offset_1
0747 00d0       |    |		Action	Swap_Control
0748 0260       | `  |		Execute	Discrete,In_Type
0749 7001       |p   |		Jump_Nonzero	0x74b
074a 0801       |    |		Execute_Immediate	Raise,0x1
074b 00db       |    |		Load_Top	At_Offset_3
074c e007       |    |		Load	0x0,0x7
074d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
074e 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
074f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753       | S  |		.CONST	0x0753								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0001       |    |		.CONST	0x0001								; Number of locals
0753			BODY_0750:
0753			INIT_0750:
0753 e5fc       |    |		Load	0x2,-0x4
0754 e5fd       |    |		Load	0x2,-0x3
0755 e006       |    |		Load	0x0,0x6
0756 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0757 00d9       |    |		Load_Top	At_Offset_1
0758 00d0       |    |		Action	Swap_Control
0759 0260       | `  |		Execute	Discrete,In_Type
075a 7001       |p   |		Jump_Nonzero	0x75c
075b 0801       |    |		Execute_Immediate	Raise,0x1
075c e5fe       |    |		Load	0x2,-0x2
075d e5ff       |    |		Load	0x2,-0x1
075e e007       |    |		Load	0x0,0x7
075f 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0760 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
0761 c5fc       |    |		Store	0x2,-0x4
0762 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0763 0000 0000  |    |		.BLANK	0000[0x5]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b       | k  |		.CONST	0x076b								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0001       |    |		.CONST	0x0001								; Number of locals
076b			BODY_0768:
076b			INIT_0768:
076b 00db       |    |		Load_Top	At_Offset_3
076c e006       |    |		Load	0x0,0x6
076d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
076e 00d9       |    |		Load_Top	At_Offset_1
076f 00d0       |    |		Action	Swap_Control
0770 0260       | `  |		Execute	Discrete,In_Type
0771 7001       |p   |		Jump_Nonzero	0x773
0772 0801       |    |		Execute_Immediate	Raise,0x1
0773 00db       |    |		Load_Top	At_Offset_3
0774 e007       |    |		Load	0x0,0x7
0775 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0776 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0777 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b       | {  |		.CONST	0x077b								; Address of begin
0779 0004       |    |		.CONST	0x0004								; Address of exception handler
077a 0001       |    |		.CONST	0x0001								; Number of locals
077b			BODY_0778:
077b			INIT_0778:
077b e5fb       |    |		Load	0x2,-0x5
077c e5fc       |    |		Load	0x2,-0x4
077d e006       |    |		Load	0x0,0x6
077e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
077f 00d9       |    |		Load_Top	At_Offset_1
0780 00d0       |    |		Action	Swap_Control
0781 0260       | `  |		Execute	Discrete,In_Type
0782 7001       |p   |		Jump_Nonzero	0x784
0783 0801       |    |		Execute_Immediate	Raise,0x1
0784 e5fd       |    |		Load	0x2,-0x3
0785 e5fe       |    |		Load	0x2,-0x2
0786 e5ff       |    |		Load	0x2,-0x1
0787 e007       |    |		Load	0x0,0x7
0788 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0789 1893       |    |		Execute	Package,Field_Execute,Field_Number 0x93
078a c5fb       |    |		Store	0x2,-0x5
078b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
078c 0000 0000  |    |		.BLANK	0000[0x4]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 e5fd       |    |		Load	0x2,-0x3
0794 e006       |    |		Load	0x0,0x6
0795 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0796 00d9       |    |		Load_Top	At_Offset_1
0797 00d0       |    |		Action	Swap_Control
0798 0260       | `  |		Execute	Discrete,In_Type
0799 7001       |p   |		Jump_Nonzero	0x79b
079a 0801       |    |		Execute_Immediate	Raise,0x1
079b e5fe       |    |		Load	0x2,-0x2
079c e5ff       |    |		Load	0x2,-0x1
079d e007       |    |		Load	0x0,0x7
079e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
079f 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
07a0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
07a1 0000 0000  |    |		.BLANK	0000[0x7]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab       |    |		.CONST	0x07ab								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0001       |    |		.CONST	0x0001								; Number of locals
07ab			BODY_07a8:
07ab			INIT_07a8:
07ab e5fa       |    |		Load	0x2,-0x6
07ac e5fb       |    |		Load	0x2,-0x5
07ad e006       |    |		Load	0x0,0x6
07ae 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07af 00d9       |    |		Load_Top	At_Offset_1
07b0 00d0       |    |		Action	Swap_Control
07b1 0260       | `  |		Execute	Discrete,In_Type
07b2 7001       |p   |		Jump_Nonzero	0x7b4
07b3 0801       |    |		Execute_Immediate	Raise,0x1
07b4 e5fc       |    |		Load	0x2,-0x4
07b5 e5fd       |    |		Load	0x2,-0x3
07b6 e5fe       |    |		Load	0x2,-0x2
07b7 e5ff       |    |		Load	0x2,-0x1
07b8 e007       |    |		Load	0x0,0x7
07b9 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
07ba 1894       |    |		Execute	Package,Field_Execute,Field_Number 0x94
07bb c5fa       |    |		Store	0x2,-0x6
07bc 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
07bd 0000 0000  |    |		.XXX[0x3]
07bf 0000       |    |
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3       |    |		.CONST	0x07c3								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0001       |    |		.CONST	0x0001								; Number of locals
07c3			BODY_07c0:
07c3			INIT_07c0:
07c3 e5fb       |    |		Load	0x2,-0x5
07c4 e5fc       |    |		Load	0x2,-0x4
07c5 e006       |    |		Load	0x0,0x6
07c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07c7 00d9       |    |		Load_Top	At_Offset_1
07c8 00d0       |    |		Action	Swap_Control
07c9 0260       | `  |		Execute	Discrete,In_Type
07ca 7001       |p   |		Jump_Nonzero	0x7cc
07cb 0801       |    |		Execute_Immediate	Raise,0x1
07cc e5fd       |    |		Load	0x2,-0x3
07cd e5fe       |    |		Load	0x2,-0x2
07ce e5ff       |    |		Load	0x2,-0x1
07cf e007       |    |		Load	0x0,0x7
07d0 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
07d1 1895       |    |		Execute	Package,Field_Execute,Field_Number 0x95
07d2 c5fb       |    |		Store	0x2,-0x5
07d3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
07d4 0000 0000  |    |		.BLANK	0000[0x4]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db       |    |		.CONST	0x07db								; Address of begin
07d9 0004       |    |		.CONST	0x0004								; Address of exception handler
07da 0001       |    |		.CONST	0x0001								; Number of locals
07db			BODY_07d8:
07db			INIT_07d8:
07db e5fb       |    |		Load	0x2,-0x5
07dc e5fc       |    |		Load	0x2,-0x4
07dd e006       |    |		Load	0x0,0x6
07de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07df 00d9       |    |		Load_Top	At_Offset_1
07e0 00d0       |    |		Action	Swap_Control
07e1 0260       | `  |		Execute	Discrete,In_Type
07e2 7001       |p   |		Jump_Nonzero	0x7e4
07e3 0801       |    |		Execute_Immediate	Raise,0x1
07e4 e5fd       |    |		Load	0x2,-0x3
07e5 e5fe       |    |		Load	0x2,-0x2
07e6 e5ff       |    |		Load	0x2,-0x1
07e7 e007       |    |		Load	0x0,0x7
07e8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
07e9 1896       |    |		Execute	Package,Field_Execute,Field_Number 0x96
07ea c5fb       |    |		Store	0x2,-0x5
07eb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
07ec 0000 0000  |    |		.BLANK	0000[0x4]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3       |    |		.CONST	0x07f3								; Address of begin
07f1 0004       |    |		.CONST	0x0004								; Address of exception handler
07f2 0001       |    |		.CONST	0x0001								; Number of locals
07f3			BODY_07f0:
07f3			INIT_07f0:
07f3 00da       |    |		Load_Top	At_Offset_2
07f4 e007       |    |		Load	0x0,0x7
07f5 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
07f6 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
07f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0004       |    |		.CONST	0x0004								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb 00da       |    |		Load_Top	At_Offset_2
07fc e007       |    |		Load	0x0,0x7
07fd 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
07fe 185b       | [  |		Execute	Package,Field_Execute,Field_Number 0x5b
07ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803       |    |		.CONST	0x0803								; Address of begin
0801 0004       |    |		.CONST	0x0004								; Address of exception handler
0802 0001       |    |		.CONST	0x0001								; Number of locals
0803			BODY_0800:
0803			INIT_0800:
0803 00da       |    |		Load_Top	At_Offset_2
0804 e007       |    |		Load	0x0,0x7
0805 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0806 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
0807 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b       |    |		.CONST	0x080b								; Address of begin
0809 0004       |    |		.CONST	0x0004								; Address of exception handler
080a 0001       |    |		.CONST	0x0001								; Number of locals
080b			BODY_0808:
080b			INIT_0808:
080b e5fc       |    |		Load	0x2,-0x4
080c e007       |    |		Load	0x0,0x7
080d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
080e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
080f e5fe       |    |		Load	0x2,-0x2
0810 e5ff       |    |		Load	0x2,-0x1
0811 e007       |    |		Load	0x0,0x7
0812 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0813 1875       | u  |		Execute	Package,Field_Execute,Field_Number 0x75
0814 c5fd       |    |		Store	0x2,-0x3
0815 c5fc       |    |		Store	0x2,-0x4
0816 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0817 0000       |    |		.XXX[0x1]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 00db       |    |		Load_Top	At_Offset_3
081c 00db       |    |		Load_Top	At_Offset_3
081d e007       |    |		Load	0x0,0x7
081e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
081f 1876       | v  |		Execute	Package,Field_Execute,Field_Number 0x76
0820 e00a       |    |		Load	0x0,0xa
0821 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0822 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0823 0000 0000  |    |		.BLANK	0000[0x5]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0001       |    |		.CONST	0x0001								; Number of locals
082b			BODY_0828:
082b			INIT_0828:
082b 00da       |    |		Load_Top	At_Offset_2
082c e007       |    |		Load	0x0,0x7
082d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
082e 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
082f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833       | 3  |		.CONST	0x0833								; Address of begin
0831 0004       |    |		.CONST	0x0004								; Address of exception handler
0832 0001       |    |		.CONST	0x0001								; Number of locals
0833			BODY_0830:
0833			INIT_0830:
0833 00da       |    |		Load_Top	At_Offset_2
0834 e007       |    |		Load	0x0,0x7
0835 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0836 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
0837 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b       | ;  |		.CONST	0x083b								; Address of begin
0839 0004       |    |		.CONST	0x0004								; Address of exception handler
083a 0001       |    |		.CONST	0x0001								; Number of locals
083b			BODY_0838:
083b			INIT_0838:
083b 00da       |    |		Load_Top	At_Offset_2
083c e007       |    |		Load	0x0,0x7
083d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
083e 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
083f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843       | C  |		.CONST	0x0843								; Address of begin
0841 0004       |    |		.CONST	0x0004								; Address of exception handler
0842 0001       |    |		.CONST	0x0001								; Number of locals
0843			BODY_0840:
0843			INIT_0840:
0843 4608       |F   |		Jump_Case	0x9
0844 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0845 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0846 7819       |x   |		Jump	0x860								; case 0x2
0847 7818       |x   |		Jump	0x860								; case 0x3
0848 7817       |x   |		Jump	0x860								; case 0x4
0849 7816       |x   |		Jump	0x860								; case 0x5
084a 7815       |x   |		Jump	0x860								; case 0x6
084b 7801       |x   |		Jump	0x84d								; case 0x7
084c 7809       |x   |		Jump	0x856								; case 0x8
084d 00db       |    |		Load_Top	At_Offset_3
084e 4801       |H   |		Short_Literal	0x1
084f e5fe       |    |		Load	0x2,-0x2
0850 e20f       |    |		Load	0x1,0xf
0851 035b       | [  |		Declare_Type	Array,Constrained
0852 4801       |H   |		Short_Literal	0x1
0853 e5ff       |    |		Load	0x2,-0x1
0854 031b       |    |		Declare_Type	Variant_Record,Constrained
0855 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0856 00db       |    |		Load_Top	At_Offset_3
0857 00db       |    |		Load_Top	At_Offset_3
0858 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0859 4801       |H   |		Short_Literal	0x1
085a e5fe       |    |		Load	0x2,-0x2
085b e20f       |    |		Load	0x1,0xf
085c 0334       | 4  |		Declare_Variable	Array,With_Constraint
085d 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
085e 016a       | j  |		QQ_execute	Variant_Record,XXX
085f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0860 0869       | i  |		Execute_Immediate	Raise,0x69
0861 0000 0000  |    |		.BLANK	0000[0x7]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b       | k  |		.CONST	0x086b								; Address of begin
0869 0004       |    |		.CONST	0x0004								; Address of exception handler
086a 0001       |    |		.CONST	0x0001								; Number of locals
086b			BODY_0868:
086b			INIT_0868:
086b 4608       |F   |		Jump_Case	0x9
086c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
086d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
086e 7819       |x   |		Jump	0x888								; case 0x2
086f 7818       |x   |		Jump	0x888								; case 0x3
0870 7817       |x   |		Jump	0x888								; case 0x4
0871 7816       |x   |		Jump	0x888								; case 0x5
0872 7815       |x   |		Jump	0x888								; case 0x6
0873 7801       |x   |		Jump	0x875								; case 0x7
0874 7809       |x   |		Jump	0x87e								; case 0x8
0875 00db       |    |		Load_Top	At_Offset_3
0876 4801       |H   |		Short_Literal	0x1
0877 e5fe       |    |		Load	0x2,-0x2
0878 e228       | (  |		Load	0x1,0x28
0879 035b       | [  |		Declare_Type	Array,Constrained
087a 4801       |H   |		Short_Literal	0x1
087b e5ff       |    |		Load	0x2,-0x1
087c 031b       |    |		Declare_Type	Variant_Record,Constrained
087d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
087e 00db       |    |		Load_Top	At_Offset_3
087f 00db       |    |		Load_Top	At_Offset_3
0880 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0881 4801       |H   |		Short_Literal	0x1
0882 e5fe       |    |		Load	0x2,-0x2
0883 e228       | (  |		Load	0x1,0x28
0884 0334       | 4  |		Declare_Variable	Array,With_Constraint
0885 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0886 016a       | j  |		QQ_execute	Variant_Record,XXX
0887 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0888 0869       | i  |		Execute_Immediate	Raise,0x69
0889 0000 0000  |    |		.BLANK	0000[0x7]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 08b0       |    |		.CONST	0x08b0								; Address of begin
0891 0004       |    |		.CONST	0x0004								; Address of exception handler
0892 0017       |    |		.CONST	0x0017								; Number of locals
0893			INIT_0890:
0893 e20f       |    |		Load	0x1,0xf
0894 02a0       |    |		Declare_Subprogram	Null_Subprogram
0895 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
0896 029a 08bb  |    |		Declare_Subprogram	INIT_08b8,For_Outer_Call,Visible,Unelaborated
0898 029a 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Outer_Call,Visible,Unelaborated
089a 00bf       |    |		Action	Accept_Activation
089b e001       |    |		Load	0x0,0x1
089c e002       |    |		Load	0x0,0x2
089d e20f       |    |		Load	0x1,0xf
089e e214       |    |		Load	0x1,0x14
089f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
08a0 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
08a1 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
08a2 00c4       |    |		Action	Make_Default
08a3 e003       |    |		Load	0x0,0x3
08a4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
08a5 c21e       |    |		Store	0x1,0x1e
08a6 e004       |    |		Load	0x0,0x4
08a7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
08a8 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
08a9 0387       |    |		Declare_Variable	Package
08aa 00d8       |    |		Load_Top	At_Offset_0
08ab 020f       |    |		Execute	Module,Activate
08ac 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
08ad 00c7       |    |		Action	Elaborate_Subprogram
08ae 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
08af 00c7       |    |		Action	Elaborate_Subprogram
08b0			BODY_0890:
08b0 00bc       |    |		Action	Signal_Activated
08b1 00bb       |    |		Action	Signal_Completion
08b2 0000 0000  |    |		.BLANK	0000[0x6]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb       |    |		.CONST	0x08bb								; Address of begin
08b9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ba 0001       |    |		.CONST	0x0001								; Number of locals
08bb			BODY_08b8:
08bb			INIT_08b8:
08bb e5fd       |    |		Load	0x2,-0x3
08bc e5fe       |    |		Load	0x2,-0x2
08bd e20f       |    |		Load	0x1,0xf
08be 0119       |    |		Execute	Any,Check_In_Formal_Type
08bf e5ff       |    |		Load	0x2,-0x1
08c0 e217       |    |		Load	0x1,0x17
08c1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
08c2 c5fd       |    |		Store	0x2,-0x3
08c3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08c4 0000 0000  |    |		.BLANK	0000[0x4]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb       |    |		.CONST	0x08cb								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0001       |    |		.CONST	0x0001								; Number of locals
08cb			BODY_08c8:
08cb			INIT_08c8:
08cb 00da       |    |		Load_Top	At_Offset_2
08cc e217       |    |		Load	0x1,0x17
08cd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08cf 0000       |    |		.XXX[0x1]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; Debug Table
08d0 ; --------------------------------------------------------------------------------------
08d0 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0xeb49,0x0000,0x0001,0x0000
08d6 0000 0001  |    |		.XXX[0x56]
08d8 00f9 84cd  |    |
08da 0000 0016  |    |
08dc 0096 d80d  |    |
08de 0000 4732  |  G2|
08e0 00f9 84cd  |    |
08e2 0000 0016  |    |
08e4 0096 d80d  |    |
08e6 0000 4a32  |  J2|
08e8 000e 3c04  |  < |
08ea 0800 10ec  |    |
08ec 00f9 84cd  |    |
08ee 0000 08d0  |    |
08f0 0001 0404  |    |
08f2 0800 0100  |    |
08f4 0000 0000  |    |
08f6 0000 0001  |    |
08f8 000e 3c04  |  < |
08fa 0800 10ec  |    |
08fc 00f9 84cd  |    |
08fe 0000 0bd8  |    |
0900 0001 0404  |    |
0902 0800 0100  |    |
0904 0000 0000  |    |
0906 0000 0001  |    |
0908 000e 3c04  |  < |
090a 0000 0644  |   D|
090c 00f9 84cd  |    |
090e 0000 0527  |   '|
0910 0001 9804  |    |
0912 0800 1380  |    |
0914 0000 0000  |    |
0916 0000 00cd  |    |
0918 000e 3c04  |  < |
091a 0000 007f  |    |
091c 0096 d80d  |    |
091e 0000 4252  |  BR|
0920 000e 3c04  |  < |
0922 0000 003f  |   ?|
0924 0000 0067  |   g|
0926 0000 0c38  |   8|
0928 000e 3c04  |  < |
092a 0800 1c10  |    |
092c 0000 0000  |    |		.BLANK	0000[0x4]
0930 00f9 84cd  |    |		.XXX[0x10]
0932 0000 1196  |    |
0934 0061 0c08  | a  |
0936 0000 7c33  |  |3|
0938 0001 9804  |    |
093a 0800 1380  |    |
093c 0000 0000  |    |
093e 0000 00cd  |    |
0940 0000 0000  |    |		.BLANK	0000[0x7]
0947 0001 000e  |    |		.XXX[0x7]
0949 3c04 0000  |<   |
094b 2a18 0d0b  |*   |
094d 8804       |    |
094e 0000 0000  |    |		.BLANK	0000[0x9]
0957 0003 000e  |    |		.XXX[0xd]
0959 3c04 0000  |<   |
095b 2a18 0d0b  |*   |
095d 8804 0000  |    |
095f 0000 000e  |    |
0961 7404 0800  |t   |
0963 0338       | 8  |
0964 0000 0000  |    |		.BLANK	0000[0x4]
0968 0037 a404  | 7  |		.XXX[0x4]
096a 0800 0138  |   8|
096c 0000 0000  |    |		.BLANK	0000[0x4]
0970 0001 9804  |    |		.XXX[0x50]
0972 0800 1380  |    |
0974 0000 0000  |    |
0976 0000 00cd  |    |
0978 0037 a404  | 7  |
097a 0000 007f  |    |
097c 0061 0c08  | a  |
097e 0000 a5c2  |    |
0980 0037 a404  | 7  |
0982 0000 003f  |   ?|
0984 0002 a011  |    |
0986 0000 0c38  |   8|
0988 00f9 84cd  |    |
098a 0000 1796  |    |
098c 0062 0408  | b  |
098e 0000 0c33  |   3|
0990 00f9 84cd  |    |
0992 0000 17ff  |    |
0994 0062 0408  | b  |
0996 0000 08e3  |    |
0998 0037 a404  | 7  |
099a 0000 003f  |   ?|
099c 0002 f018  |    |
099e 0000 0c38  |   8|
09a0 0036 b004  | 6  |
09a2 0000 0144  |   D|
09a4 0e84 f10a  |    |
09a6 0000 00d1  |    |
09a8 0036 b004  | 6  |
09aa 0000 007f  |    |
09ac 0062 0408  | b  |
09ae 0000 0c72  |   r|
09b0 0036 b004  | 6  |
09b2 0000 003f  |   ?|
09b4 0003 2044  |   D|
09b6 0000 0c38  |   8|
09b8 0036 b004  | 6  |
09ba 0000 0144  |   D|
09bc 0e84 f10a  |    |
09be 0000 00d1  |    |
09c0 0000 0000  |    |		.BLANK	0000[0x7]
09c7 0001 0036  |   6|		.XXX[0x15]
09c9 b004 0000  |    |
09cb 1598 0d0e  |    |
09cd 6404 0000  |d   |
09cf 0000 0002  |    |
09d1 acfa 0000  |    |
09d3 003f 0003  | ?  |
09d5 2034 0000  | 4  |
09d7 0c38 0001  | 8  |
09d9 0404 0800  |    |
09db 0100       |    |
09dc 0000 0000  |    |		.BLANK	0000[0x4]
09e0 0001 9804  |    |		.XXX[0x20]
09e2 0800 1380  |    |
09e4 0000 0000  |    |
09e6 0000 00cd  |    |
09e8 0001 b004  |    |
09ea 0800 0280  |    |
09ec 0000 0000  |    |
09ee 0000 0032  |   2|
09f0 000e 3c04  |  < |
09f2 0000 0cc4  |    |
09f4 00f9 84cd  |    |
09f6 0000 0c38  |   8|
09f8 0001 9804  |    |
09fa 0800 1380  |    |
09fc 0000 0000  |    |
09fe 0000 00f4  |    |