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

⟦82a63661f⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 05f8       |    |		.CONST	0x05f8								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01b3       |    |		.CONST	0x01b3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0056       | V  |		.CONST	0x0056								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
000d 0129       | )  |		Execute	Any,Make_Visible
000e 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0010 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0012 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0014 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0016 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0018 00e3       |    |		Load_Encached	Natural_Cache
0019 0266       | f  |		Execute	Discrete,Bounds
001a e20d       |    |		Load	0x1,0xd
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 4801       |H   |		Short_Literal	0x1
001d 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
001e 00e3       |    |		Load_Encached	Natural_Cache
001f e002       |    |		Load	0x0,0x2
0020 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0021 4801       |H   |		Short_Literal	0x1
0022 619d       |a   |		Indirect_Literal	Discrete,0x1c0,{0x00000000, 0x7fffffff}
0023 e213       |    |		Load	0x1,0x13
0024 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
0025 029f 0593  |    |		Declare_Subprogram	INIT_0590,For_Call
0027 4800       |H   |		Short_Literal	0x0
0028 4801       |H   |		Short_Literal	0x1
0029 4801       |H   |		Short_Literal	0x1
002a 4800       |H   |		Short_Literal	0x0
002b 4801       |H   |		Short_Literal	0x1
002c 4801       |H   |		Short_Literal	0x1
002d 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
002e 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
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 e003       |    |		Load	0x0,0x3
0072 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0073 0129       | )  |		Execute	Any,Make_Visible
0074 c24b       | K  |		Store	0x1,0x4b
0075 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0077 c24c       | L  |		Store	0x1,0x4c
0078 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
007a c24d       | M  |		Store	0x1,0x4d
007b 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
007d c218       |    |		Store	0x1,0x18
007e 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0080 c219       |    |		Store	0x1,0x19
0081 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0083 c24e       | N  |		Store	0x1,0x4e
0084 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated
0086 c24f       | O  |		Store	0x1,0x4f
0087 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0089 c21c       |    |		Store	0x1,0x1c
008a 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
008c c21d       |    |		Store	0x1,0x1d
008d 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
008f c21e       |    |		Store	0x1,0x1e
0090 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0092 c21f       |    |		Store	0x1,0x1f
0093 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0095 c220       |    |		Store	0x1,0x20
0096 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0098 c221       | !  |		Store	0x1,0x21
0099 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
009b c222       | "  |		Store	0x1,0x22
009c 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
009e c223       | #  |		Store	0x1,0x23
009f 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
00a1 c224       | $  |		Store	0x1,0x24
00a2 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
00a4 c225       | %  |		Store	0x1,0x25
00a5 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
00a7 c226       | &  |		Store	0x1,0x26
00a8 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
00aa c227       | '  |		Store	0x1,0x27
00ab 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
00ad c228       | (  |		Store	0x1,0x28
00ae 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
00b0 c250       | P  |		Store	0x1,0x50
00b1 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
00b3 c251       | Q  |		Store	0x1,0x51
00b4 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
00b6 c252       | R  |		Store	0x1,0x52
00b7 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
00b9 c253       | S  |		Store	0x1,0x53
00ba 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
00bc c254       | T  |		Store	0x1,0x54
00bd 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
00bf c255       | U  |		Store	0x1,0x55
00c0 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
00c2 c229       | )  |		Store	0x1,0x29
00c3 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
00c5 c22a       | *  |		Store	0x1,0x2a
00c6 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
00c8 c22b       | +  |		Store	0x1,0x2b
00c9 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
00cb c22c       | ,  |		Store	0x1,0x2c
00cc 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
00ce c22d       | -  |		Store	0x1,0x2d
00cf 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
00d1 c22e       | .  |		Store	0x1,0x2e
00d2 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
00d4 c22f       | /  |		Store	0x1,0x2f
00d5 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
00d7 c230       | 0  |		Store	0x1,0x30
00d8 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
00da c231       | 1  |		Store	0x1,0x31
00db 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
00dd c256       | V  |		Store	0x1,0x56
00de 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
00e0 c233       | 3  |		Store	0x1,0x33
00e1 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
00e3 c234       | 4  |		Store	0x1,0x34
00e4 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
00e6 c235       | 5  |		Store	0x1,0x35
00e7 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
00e9 c236       | 6  |		Store	0x1,0x36
00ea 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
00ec c237       | 7  |		Store	0x1,0x37
00ed 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
00ef c238       | 8  |		Store	0x1,0x38
00f0 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
00f2 c239       | 9  |		Store	0x1,0x39
00f3 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
00f5 c23a       | :  |		Store	0x1,0x3a
00f6 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
00f8 c23b       | ;  |		Store	0x1,0x3b
00f9 029a 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call,Visible,Unelaborated
00fb c23c       | <  |		Store	0x1,0x3c
00fc 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
00fe c23d       | =  |		Store	0x1,0x3d
00ff 029a 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call,Visible,Unelaborated
0101 c23e       | >  |		Store	0x1,0x3e
0102 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated
0104 c23f       | ?  |		Store	0x1,0x3f
0105 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated
0107 c240       | @  |		Store	0x1,0x40
0108 029a 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call,Visible,Unelaborated
010a c241       | A  |		Store	0x1,0x41
010b 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
010d c242       | B  |		Store	0x1,0x42
010e 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated
0110 c243       | C  |		Store	0x1,0x43
0111 029a 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call,Visible,Unelaborated
0113 c244       | D  |		Store	0x1,0x44
0114 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0116 c245       | E  |		Store	0x1,0x45
0117 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
0119 c246       | F  |		Store	0x1,0x46
011a 029a 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call,Visible,Unelaborated
011c c247       | G  |		Store	0x1,0x47
011d 029a 057b  |   {|		Declare_Subprogram	INIT_0578,For_Outer_Call,Visible,Unelaborated
011f c248       | H  |		Store	0x1,0x48
0120 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated
0122 c249       | I  |		Store	0x1,0x49
0123 4807       |H   |		Short_Literal	0x7
0124 0093 05bb  |    |		push_full_address	INIT_05b8
0126 02a0       |    |		Declare_Subprogram	Null_Subprogram
0127 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0128 c24a       | J  |		Store	0x1,0x4a
0129 00bf       |    |		Action	Accept_Activation
012a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
012b 00c7       |    |		Action	Elaborate_Subprogram
012c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
012d 00c7       |    |		Action	Elaborate_Subprogram
012e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
012f 00c7       |    |		Action	Elaborate_Subprogram
0130 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0131 00c7       |    |		Action	Elaborate_Subprogram
0132 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0133 00c7       |    |		Action	Elaborate_Subprogram
0134 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0135 00c7       |    |		Action	Elaborate_Subprogram
0136 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0137 00c7       |    |		Action	Elaborate_Subprogram
0138 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
0139 00c7       |    |		Action	Elaborate_Subprogram
013a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
013b 00c7       |    |		Action	Elaborate_Subprogram
013c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
013d 00c7       |    |		Action	Elaborate_Subprogram
013e 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
013f 00c7       |    |		Action	Elaborate_Subprogram
0140 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
0141 00c7       |    |		Action	Elaborate_Subprogram
0142 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0143 00c7       |    |		Action	Elaborate_Subprogram
0144 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0145 00c7       |    |		Action	Elaborate_Subprogram
0146 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0147 00c7       |    |		Action	Elaborate_Subprogram
0148 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0149 00c7       |    |		Action	Elaborate_Subprogram
014a 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
014b 00c7       |    |		Action	Elaborate_Subprogram
014c 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
014d 00c7       |    |		Action	Elaborate_Subprogram
014e 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
014f 00c7       |    |		Action	Elaborate_Subprogram
0150 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0151 00c7       |    |		Action	Elaborate_Subprogram
0152 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0153 00c7       |    |		Action	Elaborate_Subprogram
0154 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0155 00c7       |    |		Action	Elaborate_Subprogram
0156 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0157 00c7       |    |		Action	Elaborate_Subprogram
0158 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0159 00c7       |    |		Action	Elaborate_Subprogram
015a 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
015b 00c7       |    |		Action	Elaborate_Subprogram
015c 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
015d 00c7       |    |		Action	Elaborate_Subprogram
015e 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
015f 00c7       |    |		Action	Elaborate_Subprogram
0160 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0161 00c7       |    |		Action	Elaborate_Subprogram
0162 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0163 00c7       |    |		Action	Elaborate_Subprogram
0164 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
0165 00c7       |    |		Action	Elaborate_Subprogram
0166 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
0167 00c7       |    |		Action	Elaborate_Subprogram
0168 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0169 00c7       |    |		Action	Elaborate_Subprogram
016a 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
016b 00c7       |    |		Action	Elaborate_Subprogram
016c 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
016d 00c7       |    |		Action	Elaborate_Subprogram
016e 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
016f 00c7       |    |		Action	Elaborate_Subprogram
0170 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0171 00c7       |    |		Action	Elaborate_Subprogram
0172 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0173 00c7       |    |		Action	Elaborate_Subprogram
0174 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0175 00c7       |    |		Action	Elaborate_Subprogram
0176 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0177 00c7       |    |		Action	Elaborate_Subprogram
0178 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0179 00c7       |    |		Action	Elaborate_Subprogram
017a 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
017b 00c7       |    |		Action	Elaborate_Subprogram
017c 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
017d 00c7       |    |		Action	Elaborate_Subprogram
017e 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
017f 00c7       |    |		Action	Elaborate_Subprogram
0180 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0181 00c7       |    |		Action	Elaborate_Subprogram
0182 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0183 00c7       |    |		Action	Elaborate_Subprogram
0184 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0185 00c7       |    |		Action	Elaborate_Subprogram
0186 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0187 00c7       |    |		Action	Elaborate_Subprogram
0188 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0189 00c7       |    |		Action	Elaborate_Subprogram
018a 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
018b 00c7       |    |		Action	Elaborate_Subprogram
018c 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
018d 00c7       |    |		Action	Elaborate_Subprogram
018e 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
018f 00c7       |    |		Action	Elaborate_Subprogram
0190 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
0191 00c7       |    |		Action	Elaborate_Subprogram
0192 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
0193 00c7       |    |		Action	Elaborate_Subprogram
0194 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0195 00c7       |    |		Action	Elaborate_Subprogram
0196 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0197 00c7       |    |		Action	Elaborate_Subprogram
0198 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0199 00c7       |    |		Action	Elaborate_Subprogram
019a 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
019b 00c7       |    |		Action	Elaborate_Subprogram
019c 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
019d 00c7       |    |		Action	Elaborate_Subprogram
019e 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
019f 00c7       |    |		Action	Elaborate_Subprogram
01a0 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
01a1 00c7       |    |		Action	Elaborate_Subprogram
01a2 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
01a3 00c7       |    |		Action	Elaborate_Subprogram
01a4 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
01a5 00c7       |    |		Action	Elaborate_Subprogram
01a6 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
01a7 00c7       |    |		Action	Elaborate_Subprogram
01a8 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
01a9 00c7       |    |		Action	Elaborate_Subprogram
01aa e004       |    |		Load	0x0,0x4
01ab e005       |    |		Load	0x0,0x5
01ac e006       |    |		Load	0x0,0x6
01ad e007       |    |		Load	0x0,0x7
01ae 4804       |H   |		Short_Literal	0x4
01af e24a       | J  |		Load	0x1,0x4a
01b0 020e       |    |		Execute	Module,Augment_Imports
01b1 e24a       | J  |		Load	0x1,0x4a
01b2 020d       |    |		Execute	Module,Elaborate
01b3			BODY_0008:
01b3 00bc       |    |		Action	Signal_Activated
01b4 00bb       |    |		Action	Signal_Completion
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb e007       |    |		Load	0x0,0x7
01bc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01bd 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01be 00ca       |    |		Action	Exit_Nullary_Function
01bf 0000       |    |		.XXX[0x1]
01c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc e007       |    |		Load	0x0,0x7
01cd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01ce 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01cf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 e007       |    |		Load	0x0,0x7
01d5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01d6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc e007       |    |		Load	0x0,0x7
01dd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01de 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 e007       |    |		Load	0x0,0x7
01e5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01e6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb e007       |    |		Load	0x0,0x7
01ec 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01ed 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01ee e008       |    |		Load	0x0,0x8
01ef 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f0 00ca       |    |		Action	Exit_Nullary_Function
01f1 0000 0000  |    |		.BLANK	0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e5fd       |    |		Load	0x2,-0x3
01fc e5fe       |    |		Load	0x2,-0x2
01fd e007       |    |		Load	0x0,0x7
01fe 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01ff 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
0200 e5ff       |    |		Load	0x2,-0x1
0201 e007       |    |		Load	0x0,0x7
0202 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0203 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0204 c5fd       |    |		Store	0x2,-0x3
0205 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0206 0000 0000  |    |		.XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b e5fd       |    |		Load	0x2,-0x3
020c e5fe       |    |		Load	0x2,-0x2
020d e007       |    |		Load	0x0,0x7
020e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
020f 1b59       | Y  |		Execute	Package,Field_Read,Field_Number 0x59
0210 e5ff       |    |		Load	0x2,-0x1
0211 e009       |    |		Load	0x0,0x9
0212 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0213 e007       |    |		Load	0x0,0x7
0214 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0215 185b       | [  |		Execute	Package,Field_Execute,Field_Number 0x5b
0216 c5fd       |    |		Store	0x2,-0x3
0217 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c e007       |    |		Load	0x0,0x7
021d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
021e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
021f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e5fd       |    |		Load	0x2,-0x3
0224 e5fe       |    |		Load	0x2,-0x2
0225 e5ff       |    |		Load	0x2,-0x1
0226 e007       |    |		Load	0x0,0x7
0227 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0228 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0229 c5fd       |    |		Store	0x2,-0x3
022a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022b 0000 0000  |    |		.BLANK	0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 00db       |    |		Load_Top	At_Offset_3
0234 00db       |    |		Load_Top	At_Offset_3
0235 e007       |    |		Load	0x0,0x7
0236 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0237 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
0238 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00db       |    |		Load_Top	At_Offset_3
0244 00db       |    |		Load_Top	At_Offset_3
0245 e007       |    |		Load	0x0,0x7
0246 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0247 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0248 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0249 0000 0000  |    |		.BLANK	0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 e007       |    |		Load	0x0,0x7
0255 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0256 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0257 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c e007       |    |		Load	0x0,0x7
025d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
025e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
025f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 e007       |    |		Load	0x0,0x7
0265 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0266 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0267 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00da       |    |		Load_Top	At_Offset_2
026c e007       |    |		Load	0x0,0x7
026d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
026e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
026f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 e5fd       |    |		Load	0x2,-0x3
0274 e5fe       |    |		Load	0x2,-0x2
0275 e5ff       |    |		Load	0x2,-0x1
0276 e007       |    |		Load	0x0,0x7
0277 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0278 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0279 c5fd       |    |		Store	0x2,-0x3
027a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
027b 0000 0000  |    |		.BLANK	0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 e007       |    |		Load	0x0,0x7
0285 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0286 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0287 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b e5fd       |    |		Load	0x2,-0x3
028c e5fe       |    |		Load	0x2,-0x2
028d 0120       |    |		Execute	Any,Is_Value
028e 6803       |h   |		Jump_Zero	0x292
028f e00a       |    |		Load	0x0,0xa
0290 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0291 7801       |x   |		Jump	0x293
0292 e5fe       |    |		Load	0x2,-0x2
0293 e5ff       |    |		Load	0x2,-0x1
0294 e007       |    |		Load	0x0,0x7
0295 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0296 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0297 c5fe       |    |		Store	0x2,-0x2
0298 c5fd       |    |		Store	0x2,-0x3
0299 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029a 0000 0000  |    |		.BLANK	0000[0x6]
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 e5fd       |    |		Load	0x2,-0x3
02a4 e00a       |    |		Load	0x0,0xa
02a5 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02a6 e5ff       |    |		Load	0x2,-0x1
02a7 e007       |    |		Load	0x0,0x7
02a8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02a9 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02aa c5fe       |    |		Store	0x2,-0x2
02ab c5fd       |    |		Store	0x2,-0x3
02ac 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ad 0000 0000  |    |		.XXX[0x3]
02af 0000       |    |
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 e5fd       |    |		Load	0x2,-0x3
02b4 e5fe       |    |		Load	0x2,-0x2
02b5 0120       |    |		Execute	Any,Is_Value
02b6 6803       |h   |		Jump_Zero	0x2ba
02b7 e00a       |    |		Load	0x0,0xa
02b8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02b9 7801       |x   |		Jump	0x2bb
02ba e5fe       |    |		Load	0x2,-0x2
02bb e5ff       |    |		Load	0x2,-0x1
02bc e007       |    |		Load	0x0,0x7
02bd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02be 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02bf c5fe       |    |		Store	0x2,-0x2
02c0 c5fd       |    |		Store	0x2,-0x3
02c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c2 0000 0000  |    |		.BLANK	0000[0x6]
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 e5ff       |    |		Load	0x2,-0x1
02ce e007       |    |		Load	0x0,0x7
02cf 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02d0 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02d1 00d1       |    |		Pop_Control	Pop_Count_1
02d2 c5fd       |    |		Store	0x2,-0x3
02d3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d4 0000 0000  |    |		.BLANK	0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db e5fd       |    |		Load	0x2,-0x3
02dc e5fe       |    |		Load	0x2,-0x2
02dd 0120       |    |		Execute	Any,Is_Value
02de 6803       |h   |		Jump_Zero	0x2e2
02df e00a       |    |		Load	0x0,0xa
02e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e1 7801       |x   |		Jump	0x2e3
02e2 e5fe       |    |		Load	0x2,-0x2
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 e007       |    |		Load	0x0,0x7
02e5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02e6 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02e7 c5fe       |    |		Store	0x2,-0x2
02e8 c5fd       |    |		Store	0x2,-0x3
02e9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ea 0000 0000  |    |		.BLANK	0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 e007       |    |		Load	0x0,0x7
02f5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02f6 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
02f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5fd       |    |		Load	0x2,-0x3
02fc e5fe       |    |		Load	0x2,-0x2
02fd e5ff       |    |		Load	0x2,-0x1
02fe e007       |    |		Load	0x0,0x7
02ff 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0300 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0301 c5fd       |    |		Store	0x2,-0x3
0302 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0303 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
030c e007       |    |		Load	0x0,0x7
030d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
030e 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
030f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00db       |    |		Load_Top	At_Offset_3
0314 00db       |    |		Load_Top	At_Offset_3
0315 e007       |    |		Load	0x0,0x7
0316 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0317 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0318 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0319 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0324 e007       |    |		Load	0x0,0x7
0325 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0326 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0327 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b e5fd       |    |		Load	0x2,-0x3
032c e5fe       |    |		Load	0x2,-0x2
032d e5ff       |    |		Load	0x2,-0x1
032e e007       |    |		Load	0x0,0x7
032f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0330 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
0331 c5fd       |    |		Store	0x2,-0x3
0332 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0333 0000 0000  |    |		.BLANK	0000[0x5]
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 00db       |    |		Load_Top	At_Offset_3
033c e006       |    |		Load	0x0,0x6
033d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
033e 00d9       |    |		Load_Top	At_Offset_1
033f 00d0       |    |		Action	Swap_Control
0340 0260       | `  |		Execute	Discrete,In_Type
0341 7001       |p   |		Jump_Nonzero	0x343
0342 0801       |    |		Execute_Immediate	Raise,0x1
0343 00db       |    |		Load_Top	At_Offset_3
0344 e007       |    |		Load	0x0,0x7
0345 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0346 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0347 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b e5fc       |    |		Load	0x2,-0x4
034c e5fd       |    |		Load	0x2,-0x3
034d e006       |    |		Load	0x0,0x6
034e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034f 00d9       |    |		Load_Top	At_Offset_1
0350 00d0       |    |		Action	Swap_Control
0351 0260       | `  |		Execute	Discrete,In_Type
0352 7001       |p   |		Jump_Nonzero	0x354
0353 0801       |    |		Execute_Immediate	Raise,0x1
0354 e5fe       |    |		Load	0x2,-0x2
0355 e5ff       |    |		Load	0x2,-0x1
0356 e007       |    |		Load	0x0,0x7
0357 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0358 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
0359 c5fc       |    |		Store	0x2,-0x4
035a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
035b 0000 0000  |    |		.BLANK	0000[0x5]
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 00db       |    |		Load_Top	At_Offset_3
0364 e006       |    |		Load	0x0,0x6
0365 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0366 00d9       |    |		Load_Top	At_Offset_1
0367 00d0       |    |		Action	Swap_Control
0368 0260       | `  |		Execute	Discrete,In_Type
0369 7001       |p   |		Jump_Nonzero	0x36b
036a 0801       |    |		Execute_Immediate	Raise,0x1
036b 00db       |    |		Load_Top	At_Offset_3
036c e007       |    |		Load	0x0,0x7
036d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
036e 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
036f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 e5fc       |    |		Load	0x2,-0x4
0374 e5fd       |    |		Load	0x2,-0x3
0375 e006       |    |		Load	0x0,0x6
0376 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0377 00d9       |    |		Load_Top	At_Offset_1
0378 00d0       |    |		Action	Swap_Control
0379 0260       | `  |		Execute	Discrete,In_Type
037a 7001       |p   |		Jump_Nonzero	0x37c
037b 0801       |    |		Execute_Immediate	Raise,0x1
037c e5fe       |    |		Load	0x2,-0x2
037d e5ff       |    |		Load	0x2,-0x1
037e e007       |    |		Load	0x0,0x7
037f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0380 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0381 c5fc       |    |		Store	0x2,-0x4
0382 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0383 0000 0000  |    |		.BLANK	0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 00db       |    |		Load_Top	At_Offset_3
038c e006       |    |		Load	0x0,0x6
038d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
038e 00d9       |    |		Load_Top	At_Offset_1
038f 00d0       |    |		Action	Swap_Control
0390 0260       | `  |		Execute	Discrete,In_Type
0391 7001       |p   |		Jump_Nonzero	0x393
0392 0801       |    |		Execute_Immediate	Raise,0x1
0393 00db       |    |		Load_Top	At_Offset_3
0394 e007       |    |		Load	0x0,0x7
0395 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0396 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0397 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b e5fc       |    |		Load	0x2,-0x4
039c e5fd       |    |		Load	0x2,-0x3
039d e006       |    |		Load	0x0,0x6
039e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
039f 00d9       |    |		Load_Top	At_Offset_1
03a0 00d0       |    |		Action	Swap_Control
03a1 0260       | `  |		Execute	Discrete,In_Type
03a2 7001       |p   |		Jump_Nonzero	0x3a4
03a3 0801       |    |		Execute_Immediate	Raise,0x1
03a4 e5fe       |    |		Load	0x2,-0x2
03a5 e5ff       |    |		Load	0x2,-0x1
03a6 e007       |    |		Load	0x0,0x7
03a7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03a8 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
03a9 c5fc       |    |		Store	0x2,-0x4
03aa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03ab 0000 0000  |    |		.BLANK	0000[0x5]
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 00db       |    |		Load_Top	At_Offset_3
03b4 e006       |    |		Load	0x0,0x6
03b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b6 00d9       |    |		Load_Top	At_Offset_1
03b7 00d0       |    |		Action	Swap_Control
03b8 0260       | `  |		Execute	Discrete,In_Type
03b9 7001       |p   |		Jump_Nonzero	0x3bb
03ba 0801       |    |		Execute_Immediate	Raise,0x1
03bb 00db       |    |		Load_Top	At_Offset_3
03bc e007       |    |		Load	0x0,0x7
03bd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03be 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
03bf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fc       |    |		Load	0x2,-0x4
03c4 e5fd       |    |		Load	0x2,-0x3
03c5 e006       |    |		Load	0x0,0x6
03c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c7 00d9       |    |		Load_Top	At_Offset_1
03c8 00d0       |    |		Action	Swap_Control
03c9 0260       | `  |		Execute	Discrete,In_Type
03ca 7001       |p   |		Jump_Nonzero	0x3cc
03cb 0801       |    |		Execute_Immediate	Raise,0x1
03cc e5fe       |    |		Load	0x2,-0x2
03cd e5ff       |    |		Load	0x2,-0x1
03ce e007       |    |		Load	0x0,0x7
03cf 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03d0 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
03d1 c5fc       |    |		Store	0x2,-0x4
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 00db       |    |		Load_Top	At_Offset_3
03dc e006       |    |		Load	0x0,0x6
03dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03de 00d9       |    |		Load_Top	At_Offset_1
03df 00d0       |    |		Action	Swap_Control
03e0 0260       | `  |		Execute	Discrete,In_Type
03e1 7001       |p   |		Jump_Nonzero	0x3e3
03e2 0801       |    |		Execute_Immediate	Raise,0x1
03e3 00db       |    |		Load_Top	At_Offset_3
03e4 e007       |    |		Load	0x0,0x7
03e5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03e6 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
03e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb e5fc       |    |		Load	0x2,-0x4
03ec e5fd       |    |		Load	0x2,-0x3
03ed e006       |    |		Load	0x0,0x6
03ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ef 00d9       |    |		Load_Top	At_Offset_1
03f0 00d0       |    |		Action	Swap_Control
03f1 0260       | `  |		Execute	Discrete,In_Type
03f2 7001       |p   |		Jump_Nonzero	0x3f4
03f3 0801       |    |		Execute_Immediate	Raise,0x1
03f4 e5fe       |    |		Load	0x2,-0x2
03f5 e5ff       |    |		Load	0x2,-0x1
03f6 e007       |    |		Load	0x0,0x7
03f7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03f8 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
03f9 c5fc       |    |		Store	0x2,-0x4
03fa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03fb 0000 0000  |    |		.BLANK	0000[0x5]
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 00db       |    |		Load_Top	At_Offset_3
0404 e006       |    |		Load	0x0,0x6
0405 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0406 00d9       |    |		Load_Top	At_Offset_1
0407 00d0       |    |		Action	Swap_Control
0408 0260       | `  |		Execute	Discrete,In_Type
0409 7001       |p   |		Jump_Nonzero	0x40b
040a 0801       |    |		Execute_Immediate	Raise,0x1
040b 00db       |    |		Load_Top	At_Offset_3
040c e007       |    |		Load	0x0,0x7
040d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
040e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
040f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fb       |    |		Load	0x2,-0x5
0414 e5fc       |    |		Load	0x2,-0x4
0415 e006       |    |		Load	0x0,0x6
0416 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0417 00d9       |    |		Load_Top	At_Offset_1
0418 00d0       |    |		Action	Swap_Control
0419 0260       | `  |		Execute	Discrete,In_Type
041a 7001       |p   |		Jump_Nonzero	0x41c
041b 0801       |    |		Execute_Immediate	Raise,0x1
041c e5fd       |    |		Load	0x2,-0x3
041d e5fe       |    |		Load	0x2,-0x2
041e e5ff       |    |		Load	0x2,-0x1
041f e007       |    |		Load	0x0,0x7
0420 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0421 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
0422 c5fb       |    |		Store	0x2,-0x5
0423 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0424 0000 0000  |    |		.BLANK	0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00db       |    |		Load_Top	At_Offset_3
042c e006       |    |		Load	0x0,0x6
042d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
042e 00d9       |    |		Load_Top	At_Offset_1
042f 00d0       |    |		Action	Swap_Control
0430 0260       | `  |		Execute	Discrete,In_Type
0431 7001       |p   |		Jump_Nonzero	0x433
0432 0801       |    |		Execute_Immediate	Raise,0x1
0433 00db       |    |		Load_Top	At_Offset_3
0434 e007       |    |		Load	0x0,0x7
0435 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0436 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0437 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fc       |    |		Load	0x2,-0x4
043c e5fd       |    |		Load	0x2,-0x3
043d e006       |    |		Load	0x0,0x6
043e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
043f 00d9       |    |		Load_Top	At_Offset_1
0440 00d0       |    |		Action	Swap_Control
0441 0260       | `  |		Execute	Discrete,In_Type
0442 7001       |p   |		Jump_Nonzero	0x444
0443 0801       |    |		Execute_Immediate	Raise,0x1
0444 e5fe       |    |		Load	0x2,-0x2
0445 e5ff       |    |		Load	0x2,-0x1
0446 e007       |    |		Load	0x0,0x7
0447 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0448 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0449 c5fc       |    |		Store	0x2,-0x4
044a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
044b 0000 0000  |    |		.BLANK	0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 e007       |    |		Load	0x0,0x7
0455 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0456 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0457 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5fd       |    |		Load	0x2,-0x3
045c e5fe       |    |		Load	0x2,-0x2
045d e5ff       |    |		Load	0x2,-0x1
045e e007       |    |		Load	0x0,0x7
045f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0460 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0461 c5fd       |    |		Store	0x2,-0x3
0462 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0463 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
046c e007       |    |		Load	0x0,0x7
046d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
046e 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
046f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00da       |    |		Load_Top	At_Offset_2
0474 e007       |    |		Load	0x0,0x7
0475 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0476 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0477 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
047e 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
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 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0488 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
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 e5fd       |    |		Load	0x2,-0x3
0494 e5fe       |    |		Load	0x2,-0x2
0495 e5ff       |    |		Load	0x2,-0x1
0496 e007       |    |		Load	0x0,0x7
0497 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0498 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0499 c5fd       |    |		Store	0x2,-0x3
049a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
049b 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
04a4 e007       |    |		Load	0x0,0x7
04a5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04a6 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
04a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 00db       |    |		Load_Top	At_Offset_3
04ac e006       |    |		Load	0x0,0x6
04ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04ae 00d9       |    |		Load_Top	At_Offset_1
04af 00d0       |    |		Action	Swap_Control
04b0 0260       | `  |		Execute	Discrete,In_Type
04b1 7001       |p   |		Jump_Nonzero	0x4b3
04b2 0801       |    |		Execute_Immediate	Raise,0x1
04b3 00db       |    |		Load_Top	At_Offset_3
04b4 e007       |    |		Load	0x0,0x7
04b5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04b6 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
04b7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb e5fc       |    |		Load	0x2,-0x4
04bc e5fd       |    |		Load	0x2,-0x3
04bd e006       |    |		Load	0x0,0x6
04be 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04bf 00d9       |    |		Load_Top	At_Offset_1
04c0 00d0       |    |		Action	Swap_Control
04c1 0260       | `  |		Execute	Discrete,In_Type
04c2 7001       |p   |		Jump_Nonzero	0x4c4
04c3 0801       |    |		Execute_Immediate	Raise,0x1
04c4 e5fe       |    |		Load	0x2,-0x2
04c5 e5ff       |    |		Load	0x2,-0x1
04c6 e007       |    |		Load	0x0,0x7
04c7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04c8 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
04c9 c5fc       |    |		Store	0x2,-0x4
04ca 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
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 00db       |    |		Load_Top	At_Offset_3
04d4 e006       |    |		Load	0x0,0x6
04d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04d6 00d9       |    |		Load_Top	At_Offset_1
04d7 00d0       |    |		Action	Swap_Control
04d8 0260       | `  |		Execute	Discrete,In_Type
04d9 7001       |p   |		Jump_Nonzero	0x4db
04da 0801       |    |		Execute_Immediate	Raise,0x1
04db 00db       |    |		Load_Top	At_Offset_3
04dc e007       |    |		Load	0x0,0x7
04dd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04de 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
04df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 00db       |    |		Load_Top	At_Offset_3
04e4 e006       |    |		Load	0x0,0x6
04e5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04e6 00d9       |    |		Load_Top	At_Offset_1
04e7 00d0       |    |		Action	Swap_Control
04e8 0260       | `  |		Execute	Discrete,In_Type
04e9 7001       |p   |		Jump_Nonzero	0x4eb
04ea 0801       |    |		Execute_Immediate	Raise,0x1
04eb 00db       |    |		Load_Top	At_Offset_3
04ec e007       |    |		Load	0x0,0x7
04ed 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04ee 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
04ef 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fc       |    |		Load	0x2,-0x4
04f4 e5fd       |    |		Load	0x2,-0x3
04f5 e006       |    |		Load	0x0,0x6
04f6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04f7 00d9       |    |		Load_Top	At_Offset_1
04f8 00d0       |    |		Action	Swap_Control
04f9 0260       | `  |		Execute	Discrete,In_Type
04fa 7001       |p   |		Jump_Nonzero	0x4fc
04fb 0801       |    |		Execute_Immediate	Raise,0x1
04fc e5fe       |    |		Load	0x2,-0x2
04fd e5ff       |    |		Load	0x2,-0x1
04fe e007       |    |		Load	0x0,0x7
04ff 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0500 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
0501 c5fc       |    |		Store	0x2,-0x4
0502 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0503 0000 0000  |    |		.BLANK	0000[0x5]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b e5fd       |    |		Load	0x2,-0x3
050c e006       |    |		Load	0x0,0x6
050d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
050e 00d9       |    |		Load_Top	At_Offset_1
050f 00d0       |    |		Action	Swap_Control
0510 0260       | `  |		Execute	Discrete,In_Type
0511 7001       |p   |		Jump_Nonzero	0x513
0512 0801       |    |		Execute_Immediate	Raise,0x1
0513 e5fe       |    |		Load	0x2,-0x2
0514 e5ff       |    |		Load	0x2,-0x1
0515 e007       |    |		Load	0x0,0x7
0516 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0517 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0518 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0519 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fb       |    |		Load	0x2,-0x5
0524 e5fc       |    |		Load	0x2,-0x4
0525 e006       |    |		Load	0x0,0x6
0526 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0527 00d9       |    |		Load_Top	At_Offset_1
0528 00d0       |    |		Action	Swap_Control
0529 0260       | `  |		Execute	Discrete,In_Type
052a 7001       |p   |		Jump_Nonzero	0x52c
052b 0801       |    |		Execute_Immediate	Raise,0x1
052c e5fd       |    |		Load	0x2,-0x3
052d e5fe       |    |		Load	0x2,-0x2
052e e5ff       |    |		Load	0x2,-0x1
052f e007       |    |		Load	0x0,0x7
0530 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0531 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0532 c5fb       |    |		Store	0x2,-0x5
0533 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0534 0000 0000  |    |		.BLANK	0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b       | ;  |		.CONST	0x053b								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0001       |    |		.CONST	0x0001								; Number of locals
053b			BODY_0538:
053b			INIT_0538:
053b e5fc       |    |		Load	0x2,-0x4
053c e5fd       |    |		Load	0x2,-0x3
053d e006       |    |		Load	0x0,0x6
053e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
053f 00d9       |    |		Load_Top	At_Offset_1
0540 00d0       |    |		Action	Swap_Control
0541 0260       | `  |		Execute	Discrete,In_Type
0542 7001       |p   |		Jump_Nonzero	0x544
0543 0801       |    |		Execute_Immediate	Raise,0x1
0544 e5fe       |    |		Load	0x2,-0x2
0545 e5ff       |    |		Load	0x2,-0x1
0546 e007       |    |		Load	0x0,0x7
0547 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0548 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
0549 c5fc       |    |		Store	0x2,-0x4
054a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
054b 0000 0000  |    |		.BLANK	0000[0x5]
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 e5fc       |    |		Load	0x2,-0x4
0554 e5fd       |    |		Load	0x2,-0x3
0555 e006       |    |		Load	0x0,0x6
0556 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0557 00d9       |    |		Load_Top	At_Offset_1
0558 00d0       |    |		Action	Swap_Control
0559 0260       | `  |		Execute	Discrete,In_Type
055a 7001       |p   |		Jump_Nonzero	0x55c
055b 0801       |    |		Execute_Immediate	Raise,0x1
055c e5fe       |    |		Load	0x2,-0x2
055d e5ff       |    |		Load	0x2,-0x1
055e e007       |    |		Load	0x0,0x7
055f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0560 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0561 c5fc       |    |		Store	0x2,-0x4
0562 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0563 0000 0000  |    |		.BLANK	0000[0x5]
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 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
056e 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
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 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0576 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
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 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
057e 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
057f e008       |    |		Load	0x0,0x8
0580 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0581 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0582 0000 0000  |    |		.BLANK	0000[0x6]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b       |    |		.CONST	0x058b								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0001       |    |		.CONST	0x0001								; Number of locals
058b			BODY_0588:
058b			INIT_0588:
058b 00da       |    |		Load_Top	At_Offset_2
058c e007       |    |		Load	0x0,0x7
058d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
058e 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
058f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 4608       |F   |		Jump_Case	0x9
0594 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0595 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0596 7819       |x   |		Jump	0x5b0								; case 0x2
0597 7818       |x   |		Jump	0x5b0								; case 0x3
0598 7817       |x   |		Jump	0x5b0								; case 0x4
0599 7816       |x   |		Jump	0x5b0								; case 0x5
059a 7815       |x   |		Jump	0x5b0								; case 0x6
059b 7801       |x   |		Jump	0x59d								; case 0x7
059c 7809       |x   |		Jump	0x5a6								; case 0x8
059d 00db       |    |		Load_Top	At_Offset_3
059e 4801       |H   |		Short_Literal	0x1
059f e5fe       |    |		Load	0x2,-0x2
05a0 e213       |    |		Load	0x1,0x13
05a1 035b       | [  |		Declare_Type	Array,Constrained
05a2 4801       |H   |		Short_Literal	0x1
05a3 e5ff       |    |		Load	0x2,-0x1
05a4 031b       |    |		Declare_Type	Variant_Record,Constrained
05a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05a6 00db       |    |		Load_Top	At_Offset_3
05a7 00db       |    |		Load_Top	At_Offset_3
05a8 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05a9 4801       |H   |		Short_Literal	0x1
05aa e5fe       |    |		Load	0x2,-0x2
05ab e213       |    |		Load	0x1,0x13
05ac 0334       | 4  |		Declare_Variable	Array,With_Constraint
05ad 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
05ae 016a       | j  |		QQ_execute	Variant_Record,XXX
05af 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05b0 0869       | i  |		Execute_Immediate	Raise,0x69
05b1 0000 0000  |    |		.BLANK	0000[0x7]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05d8       |    |		.CONST	0x05d8								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0017       |    |		.CONST	0x0017								; Number of locals
05bb			INIT_05b8:
05bb e20f       |    |		Load	0x1,0xf
05bc 02a0       |    |		Declare_Subprogram	Null_Subprogram
05bd 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
05be 029a 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
05c0 029a 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call,Visible,Unelaborated
05c2 00bf       |    |		Action	Accept_Activation
05c3 e001       |    |		Load	0x0,0x1
05c4 e002       |    |		Load	0x0,0x2
05c5 e20f       |    |		Load	0x1,0xf
05c6 e214       |    |		Load	0x1,0x14
05c7 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
05c8 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
05c9 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
05ca 00c4       |    |		Action	Make_Default
05cb e003       |    |		Load	0x0,0x3
05cc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05cd c21e       |    |		Store	0x1,0x1e
05ce e004       |    |		Load	0x0,0x4
05cf 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05d0 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
05d1 0387       |    |		Declare_Variable	Package
05d2 00d8       |    |		Load_Top	At_Offset_0
05d3 020f       |    |		Execute	Module,Activate
05d4 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
05d5 00c7       |    |		Action	Elaborate_Subprogram
05d6 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
05d7 00c7       |    |		Action	Elaborate_Subprogram
05d8			BODY_05b8:
05d8 00bc       |    |		Action	Signal_Activated
05d9 00bb       |    |		Action	Signal_Completion
05da 0000 0000  |    |		.BLANK	0000[0x6]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 00db       |    |		Load_Top	At_Offset_3
05e4 e20f       |    |		Load	0x1,0xf
05e5 0119       |    |		Execute	Any,Check_In_Formal_Type
05e6 00db       |    |		Load_Top	At_Offset_3
05e7 e217       |    |		Load	0x1,0x17
05e8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05e9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ea 0000 0000  |    |		.BLANK	0000[0x6]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3       |    |		.CONST	0x05f3								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0001       |    |		.CONST	0x0001								; Number of locals
05f3			BODY_05f0:
05f3			INIT_05f0:
05f3 00da       |    |		Load_Top	At_Offset_2
05f4 e217       |    |		Load	0x1,0x17
05f5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05f7 0000       |    |		.XXX[0x1]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug Table
05f8 ; --------------------------------------------------------------------------------------
05f8 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xd956,0x0000,0x0001,0x0000
05fe 01b6 203b  |   ;|		.XXX[0x2]