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

⟦8e04fe0c0⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0b70       | p  |		.CONST	0x0b70								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8007       |    |		.CONST	0x8007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 02e9       |    |		.CONST	0x02e9								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 014f       | O  |		.CONST	0x014f								; Number of locals
000b			INIT_0008:
000b 00e2       |    |		Load_Encached	Integer_Cache
000c 0129       | )  |		Execute	Any,Make_Visible
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 e001       |    |		Load	0x0,0x1
0021 0129       | )  |		Execute	Any,Make_Visible
0022 c210       |    |		Store	0x1,0x10
0023 e002       |    |		Load	0x0,0x2
0024 0129       | )  |		Execute	Any,Make_Visible
0025 c211       |    |		Store	0x1,0x11
0026 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0028 c212       |    |		Store	0x1,0x12
0029 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
002b c213       |    |		Store	0x1,0x13
002c 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
002e c20f       |    |		Store	0x1,0xf
002f e003       |    |		Load	0x0,0x3
0030 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
0031 c215       |    |		Store	0x1,0x15
0032 e004       |    |		Load	0x0,0x4
0033 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
0034 c216       |    |		Store	0x1,0x16
0035 e005       |    |		Load	0x0,0x5
0036 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
0037 c21b       |    |		Store	0x1,0x1b
0038 e006       |    |		Load	0x0,0x6
0039 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
003a c21f       |    |		Store	0x1,0x1f
003b e007       |    |		Load	0x0,0x7
003c 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
003d c220       |    |		Store	0x1,0x20
003e 00bf       |    |		Action	Accept_Activation
003f 4804       |H   |		Short_Literal	0x4
0040 4804       |H   |		Short_Literal	0x4
0041 e008       |    |		Load	0x0,0x8
0042 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0043 03f8       |    |		Declare_Type	Discrete,Constrained
0044 e009       |    |		Load	0x0,0x9
0045 1b3e       | >  |		Execute	Package,Field_Read,Field_Number 0x3e
0046 e009       |    |		Load	0x0,0x9
0047 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
0048 4800       |H   |		Short_Literal	0x0
0049 e009       |    |		Load	0x0,0x9
004a 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
004b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
004c 00d8       |    |		Load_Top	At_Offset_0
004d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
004e e009       |    |		Load	0x0,0x9
004f 1b78       | x  |		Execute	Package,Field_Read,Field_Number 0x78
0050 029b 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Unelaborated
0052 e00a       |    |		Load	0x0,0xa
0053 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0054 029b 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Unelaborated
0056 e00b       |    |		Load	0x0,0xb
0057 e00c       |    |		Load	0x0,0xc
0058 4804       |H   |		Short_Literal	0x4
0059 4804       |H   |		Short_Literal	0x4
005a 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
005b e00a       |    |		Load	0x0,0xa
005c 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
005d 0387       |    |		Declare_Variable	Package
005e 00d8       |    |		Load_Top	At_Offset_0
005f 020f       |    |		Execute	Module,Activate
0060 e00d       |    |		Load	0x0,0xd
0061 e00e       |    |		Load	0x0,0xe
0062 00da       |    |		Load_Top	At_Offset_2
0063 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0064 e00a       |    |		Load	0x0,0xa
0065 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0066 0387       |    |		Declare_Variable	Package
0067 00d8       |    |		Load_Top	At_Offset_0
0068 020f       |    |		Execute	Module,Activate
0069 02a0       |    |		Declare_Subprogram	Null_Subprogram
006a 4800       |H   |		Short_Literal	0x0
006b 032d       | -  |		Declare_Type	Record,Defined
006c e00f       |    |		Load	0x0,0xf
006d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
006f e223       | #  |		Load	0x1,0x23
0070 029f 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Call
0072 4802       |H   |		Short_Literal	0x2
0073 032d       | -  |		Declare_Type	Record,Defined
0074 4900       |I   |		Short_Literal	0x100
0075 e010       |    |		Load	0x0,0x10
0076 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0077 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0078 e223       | #  |		Load	0x1,0x23
0079 029f 0503  |    |		Declare_Subprogram	INIT_0500,For_Call
007b 4802       |H   |		Short_Literal	0x2
007c 032d       | -  |		Declare_Type	Record,Defined
007d 4900       |I   |		Short_Literal	0x100
007e e010       |    |		Load	0x0,0x10
007f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0080 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0081 4900       |I   |		Short_Literal	0x100
0082 e010       |    |		Load	0x0,0x10
0083 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0084 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0085 029f 0523  |   #|		Declare_Subprogram	INIT_0520,For_Call
0087 4802       |H   |		Short_Literal	0x2
0088 032d       | -  |		Declare_Type	Record,Defined
0089 4900       |I   |		Short_Literal	0x100
008a e010       |    |		Load	0x0,0x10
008b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008c 1c07       |    |		Execute_Immediate	Run_Utility,0x7
008d 4900       |I   |		Short_Literal	0x100
008e e010       |    |		Load	0x0,0x10
008f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0090 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0091 029f 054b  |   K|		Declare_Subprogram	INIT_0548,For_Call
0093 4802       |H   |		Short_Literal	0x2
0094 032d       | -  |		Declare_Type	Record,Defined
0095 4900       |I   |		Short_Literal	0x100
0096 e010       |    |		Load	0x0,0x10
0097 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0098 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0099 4900       |I   |		Short_Literal	0x100
009a e010       |    |		Load	0x0,0x10
009b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009c 1c07       |    |		Execute_Immediate	Run_Utility,0x7
009d 00e1       |    |		Load_Encached	Boolean_Cache
009e e223       | #  |		Load	0x1,0x23
009f 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
00a1 4804       |H   |		Short_Literal	0x4
00a2 032d       | -  |		Declare_Type	Record,Defined
00a3 4900       |I   |		Short_Literal	0x100
00a4 e010       |    |		Load	0x0,0x10
00a5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a6 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00a7 e00f       |    |		Load	0x0,0xf
00a8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00aa 029f 059b  |    |		Declare_Subprogram	INIT_0598,For_Call
00ac 4802       |H   |		Short_Literal	0x2
00ad 032d       | -  |		Declare_Type	Record,Defined
00ae 4900       |I   |		Short_Literal	0x100
00af e010       |    |		Load	0x0,0x10
00b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b1 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00b2 e009       |    |		Load	0x0,0x9
00b3 1b78       | x  |		Execute	Package,Field_Read,Field_Number 0x78
00b4 029f 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Call
00b6 4802       |H   |		Short_Literal	0x2
00b7 032d       | -  |		Declare_Type	Record,Defined
00b8 e009       |    |		Load	0x0,0x9
00b9 1b78       | x  |		Execute	Package,Field_Read,Field_Number 0x78
00ba 4900       |I   |		Short_Literal	0x100
00bb e010       |    |		Load	0x0,0x10
00bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00bd 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00be e00f       |    |		Load	0x0,0xf
00bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00c1 029f 05db  |    |		Declare_Subprogram	INIT_05d8,For_Call
00c3 4803       |H   |		Short_Literal	0x3
00c4 032d       | -  |		Declare_Type	Record,Defined
00c5 00e1       |    |		Load_Encached	Boolean_Cache
00c6 e009       |    |		Load	0x0,0x9
00c7 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
00c8 029f 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Call
00ca 4802       |H   |		Short_Literal	0x2
00cb 032d       | -  |		Declare_Type	Record,Defined
00cc 00e1       |    |		Load_Encached	Boolean_Cache
00cd 4900       |I   |		Short_Literal	0x100
00ce e010       |    |		Load	0x0,0x10
00cf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d0 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00d1 029f 0613  |    |		Declare_Subprogram	INIT_0610,For_Call
00d3 4802       |H   |		Short_Literal	0x2
00d4 032d       | -  |		Declare_Type	Record,Defined
00d5 00e3       |    |		Load_Encached	Natural_Cache
00d6 e00f       |    |		Load	0x0,0xf
00d7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00d9 e223       | #  |		Load	0x1,0x23
00da 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
00dc 4800       |H   |		Short_Literal	0x0
00dd 4802       |H   |		Short_Literal	0x2
00de 4800       |H   |		Short_Literal	0x0
00df 4800       |H   |		Short_Literal	0x0
00e0 4801       |H   |		Short_Literal	0x1
00e1 031d       |    |		Declare_Type	Variant_Record,Defined
00e2 e011       |    |		Load	0x0,0x11
00e3 e012       |    |		Load	0x0,0x12
00e4 e222       | "  |		Load	0x1,0x22
00e5 e013       |    |		Load	0x0,0x13
00e6 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00e7 0387       |    |		Declare_Variable	Package
00e8 00d8       |    |		Load_Top	At_Offset_0
00e9 020f       |    |		Execute	Module,Activate
00ea e014       |    |		Load	0x0,0x14
00eb e015       |    |		Load	0x0,0x15
00ec e225       | %  |		Load	0x1,0x25
00ed e013       |    |		Load	0x0,0x13
00ee 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00ef 0387       |    |		Declare_Variable	Package
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 020f       |    |		Execute	Module,Activate
00f2 e013       |    |		Load	0x0,0x13
00f3 1927       | '  |		Execute	Package,Field_Reference,Field_Number 0x27
00f4 0007       |    |		Action	Break_Optional
00f5 e013       |    |		Load	0x0,0x13
00f6 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
00f7 0007       |    |		Action	Break_Optional
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
00fa 0007       |    |		Action	Break_Optional
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
00fd 0007       |    |		Action	Break_Optional
00fe e013       |    |		Load	0x0,0x13
00ff 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0100 0007       |    |		Action	Break_Optional
0101 e013       |    |		Load	0x0,0x13
0102 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0103 0007       |    |		Action	Break_Optional
0104 029d 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call
0106 029d 0663  |   c|		Declare_Subprogram	INIT_0660,For_Outer_Call
0108 029d 0673  |   s|		Declare_Subprogram	INIT_0670,For_Outer_Call
010a 029d 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call
010c 029d 0693  |    |		Declare_Subprogram	INIT_0690,For_Outer_Call
010e 029d 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Outer_Call
0110 029d 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Outer_Call
0112 029d 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Outer_Call
0114 029d 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call
0116 029d 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call
0118 029d 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call
011a 029d 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Outer_Call
011c 029d 0713  |    |		Declare_Subprogram	INIT_0710,For_Outer_Call
011e 029d 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call
0120 029d 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call
0122 029d 075b  |   [|		Declare_Subprogram	INIT_0758,For_Outer_Call
0124 029d 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call
0126 029d 0783  |    |		Declare_Subprogram	INIT_0780,For_Outer_Call
0128 029d 0793  |    |		Declare_Subprogram	INIT_0790,For_Outer_Call
012a 029d 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Outer_Call
012c e229       | )  |		Load	0x1,0x29
012d 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
012e 00c6       |    |		Action	Check_Subprogram_Elaborated
012f e010       |    |		Load	0x0,0x10
0130 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0131 e230       | 0  |		Load	0x1,0x30
0132 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0133 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
0134 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0135 e016       |    |		Load	0x0,0x16
0136 e017       |    |		Load	0x0,0x17
0137 4800       |H   |		Short_Literal	0x0
0138 0007       |    |		Action	Break_Optional
0139 029d 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call
013b e229       | )  |		Load	0x1,0x29
013c 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
013d 00c6       |    |		Action	Check_Subprogram_Elaborated
013e e010       |    |		Load	0x0,0x10
013f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0140 e22d       | -  |		Load	0x1,0x2d
0141 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0142 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0143 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
0144 e018       |    |		Load	0x0,0x18
0145 e019       |    |		Load	0x0,0x19
0146 4800       |H   |		Short_Literal	0x0
0147 0007       |    |		Action	Break_Optional
0148 029d 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call
014a e229       | )  |		Load	0x1,0x29
014b 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
014c 00c6       |    |		Action	Check_Subprogram_Elaborated
014d e010       |    |		Load	0x0,0x10
014e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
014f e22c       | ,  |		Load	0x1,0x2c
0150 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0151 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
0152 1d64       | d  |		Execute_Immediate	Reference_Lex_1,0x64
0153 e01a       |    |		Load	0x0,0x1a
0154 e01b       |    |		Load	0x0,0x1b
0155 4800       |H   |		Short_Literal	0x0
0156 0007       |    |		Action	Break_Optional
0157 029d 080b  |    |		Declare_Subprogram	INIT_0808,For_Outer_Call
0159 e229       | )  |		Load	0x1,0x29
015a 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
015b 00c6       |    |		Action	Check_Subprogram_Elaborated
015c e231       | 1  |		Load	0x1,0x31
015d e223       | #  |		Load	0x1,0x23
015e 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
015f 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0160 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
0161 e01c       |    |		Load	0x0,0x1c
0162 e01d       |    |		Load	0x0,0x1d
0163 4800       |H   |		Short_Literal	0x0
0164 0007       |    |		Action	Break_Optional
0165 029d 082b  |   +|		Declare_Subprogram	INIT_0828,For_Outer_Call
0167 e229       | )  |		Load	0x1,0x29
0168 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0169 00c6       |    |		Action	Check_Subprogram_Elaborated
016a e22e       | .  |		Load	0x1,0x2e
016b e223       | #  |		Load	0x1,0x23
016c 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
016d 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
016e 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
016f e01e       |    |		Load	0x0,0x1e
0170 e01f       |    |		Load	0x0,0x1f
0171 4800       |H   |		Short_Literal	0x0
0172 0007       |    |		Action	Break_Optional
0173 029d 0843  |   C|		Declare_Subprogram	INIT_0840,For_Outer_Call
0175 e229       | )  |		Load	0x1,0x29
0176 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0177 00c6       |    |		Action	Check_Subprogram_Elaborated
0178 e233       | 3  |		Load	0x1,0x33
0179 e223       | #  |		Load	0x1,0x23
017a 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
017b 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
017c 1d7f       |    |		Execute_Immediate	Reference_Lex_1,0x7f
017d e020       |    |		Load	0x0,0x20
017e e021       | !  |		Load	0x0,0x21
017f 4800       |H   |		Short_Literal	0x0
0180 0007       |    |		Action	Break_Optional
0181 029d 0863  |   c|		Declare_Subprogram	INIT_0860,For_Outer_Call
0183 e229       | )  |		Load	0x1,0x29
0184 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0185 00c6       |    |		Action	Check_Subprogram_Elaborated
0186 e233       | 3  |		Load	0x1,0x33
0187 e223       | #  |		Load	0x1,0x23
0188 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
0189 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
018a 1d88       |    |		Execute_Immediate	Reference_Lex_1,0x88
018b e022       | "  |		Load	0x0,0x22
018c e023       | #  |		Load	0x0,0x23
018d 4800       |H   |		Short_Literal	0x0
018e 0007       |    |		Action	Break_Optional
018f 029d 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call
0191 e229       | )  |		Load	0x1,0x29
0192 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0193 00c6       |    |		Action	Check_Subprogram_Elaborated
0194 e232       | 2  |		Load	0x1,0x32
0195 e22d       | -  |		Load	0x1,0x2d
0196 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
0197 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0198 1d91       |    |		Execute_Immediate	Reference_Lex_1,0x91
0199 e024       | $  |		Load	0x0,0x24
019a e025       | %  |		Load	0x0,0x25
019b 4800       |H   |		Short_Literal	0x0
019c 0007       |    |		Action	Break_Optional
019d 029d 08b3  |    |		Declare_Subprogram	INIT_08b0,For_Outer_Call
019f e229       | )  |		Load	0x1,0x29
01a0 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
01a1 00c6       |    |		Action	Check_Subprogram_Elaborated
01a2 e22b       | +  |		Load	0x1,0x2b
01a3 e236       | 6  |		Load	0x1,0x36
01a4 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
01a5 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
01a6 1d9a       |    |		Execute_Immediate	Reference_Lex_1,0x9a
01a7 e026       | &  |		Load	0x0,0x26
01a8 e027       | '  |		Load	0x0,0x27
01a9 4800       |H   |		Short_Literal	0x0
01aa 0007       |    |		Action	Break_Optional
01ab 029d 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Outer_Call
01ad e229       | )  |		Load	0x1,0x29
01ae 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
01af 00c6       |    |		Action	Check_Subprogram_Elaborated
01b0 e010       |    |		Load	0x0,0x10
01b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b2 e22d       | -  |		Load	0x1,0x2d
01b3 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01b4 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
01b5 1da3       |    |		Execute_Immediate	Reference_Lex_1,0xa3
01b6 e028       | (  |		Load	0x0,0x28
01b7 e029       | )  |		Load	0x0,0x29
01b8 4800       |H   |		Short_Literal	0x0
01b9 0007       |    |		Action	Break_Optional
01ba 029d 08f3  |    |		Declare_Subprogram	INIT_08f0,For_Outer_Call
01bc e229       | )  |		Load	0x1,0x29
01bd 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
01be 00c6       |    |		Action	Check_Subprogram_Elaborated
01bf e010       |    |		Load	0x0,0x10
01c0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01c1 e223       | #  |		Load	0x1,0x23
01c2 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01c3 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
01c4 1dac       |    |		Execute_Immediate	Reference_Lex_1,0xac
01c5 e02a       | *  |		Load	0x0,0x2a
01c6 e02b       | +  |		Load	0x0,0x2b
01c7 4800       |H   |		Short_Literal	0x0
01c8 0007       |    |		Action	Break_Optional
01c9 029d 090b  |    |		Declare_Subprogram	INIT_0908,For_Outer_Call
01cb e229       | )  |		Load	0x1,0x29
01cc 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
01cd 00c6       |    |		Action	Check_Subprogram_Elaborated
01ce e010       |    |		Load	0x0,0x10
01cf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01d0 e223       | #  |		Load	0x1,0x23
01d1 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01d2 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
01d3 1db5       |    |		Execute_Immediate	Reference_Lex_1,0xb5
01d4 e02c       | ,  |		Load	0x0,0x2c
01d5 e02d       | -  |		Load	0x0,0x2d
01d6 4800       |H   |		Short_Literal	0x0
01d7 0007       |    |		Action	Break_Optional
01d8 029d 0923  |   #|		Declare_Subprogram	INIT_0920,For_Outer_Call
01da e229       | )  |		Load	0x1,0x29
01db 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
01dc 00c6       |    |		Action	Check_Subprogram_Elaborated
01dd e010       |    |		Load	0x0,0x10
01de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01df e22d       | -  |		Load	0x1,0x2d
01e0 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01e1 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
01e2 1dbe       |    |		Execute_Immediate	Reference_Lex_1,0xbe
01e3 e02e       | .  |		Load	0x0,0x2e
01e4 e02f       | /  |		Load	0x0,0x2f
01e5 4800       |H   |		Short_Literal	0x0
01e6 0007       |    |		Action	Break_Optional
01e7 029d 0943  |   C|		Declare_Subprogram	INIT_0940,For_Outer_Call
01e9 e229       | )  |		Load	0x1,0x29
01ea 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
01eb 00c6       |    |		Action	Check_Subprogram_Elaborated
01ec e010       |    |		Load	0x0,0x10
01ed 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ee e223       | #  |		Load	0x1,0x23
01ef 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01f0 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
01f1 1dc7       |    |		Execute_Immediate	Reference_Lex_1,0xc7
01f2 e030       | 0  |		Load	0x0,0x30
01f3 e031       | 1  |		Load	0x0,0x31
01f4 4800       |H   |		Short_Literal	0x0
01f5 0007       |    |		Action	Break_Optional
01f6 029d 095b  |   [|		Declare_Subprogram	INIT_0958,For_Outer_Call
01f8 e229       | )  |		Load	0x1,0x29
01f9 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
01fa 00c6       |    |		Action	Check_Subprogram_Elaborated
01fb e010       |    |		Load	0x0,0x10
01fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01fd e234       | 4  |		Load	0x1,0x34
01fe 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
01ff 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
0200 1dd0       |    |		Execute_Immediate	Reference_Lex_1,0xd0
0201 e032       | 2  |		Load	0x0,0x32
0202 e033       | 3  |		Load	0x0,0x33
0203 4800       |H   |		Short_Literal	0x0
0204 0007       |    |		Action	Break_Optional
0205 029d 097b  |   {|		Declare_Subprogram	INIT_0978,For_Outer_Call
0207 e229       | )  |		Load	0x1,0x29
0208 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0209 00c6       |    |		Action	Check_Subprogram_Elaborated
020a e010       |    |		Load	0x0,0x10
020b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
020c e22c       | ,  |		Load	0x1,0x2c
020d 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
020e 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
020f 1dd9       |    |		Execute_Immediate	Reference_Lex_1,0xd9
0210 e034       | 4  |		Load	0x0,0x34
0211 e035       | 5  |		Load	0x0,0x35
0212 4800       |H   |		Short_Literal	0x0
0213 0007       |    |		Action	Break_Optional
0214 029d 099b  |    |		Declare_Subprogram	INIT_0998,For_Outer_Call
0216 e229       | )  |		Load	0x1,0x29
0217 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0218 00c6       |    |		Action	Check_Subprogram_Elaborated
0219 e010       |    |		Load	0x0,0x10
021a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
021b e22c       | ,  |		Load	0x1,0x2c
021c 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
021d 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
021e 1de2       |    |		Execute_Immediate	Reference_Lex_1,0xe2
021f e036       | 6  |		Load	0x0,0x36
0220 e037       | 7  |		Load	0x0,0x37
0221 4800       |H   |		Short_Literal	0x0
0222 0007       |    |		Action	Break_Optional
0223 029d 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Outer_Call
0225 e229       | )  |		Load	0x1,0x29
0226 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0227 00c6       |    |		Action	Check_Subprogram_Elaborated
0228 e235       | 5  |		Load	0x1,0x35
0229 e236       | 6  |		Load	0x1,0x36
022a 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
022b 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
022c 1deb       |    |		Execute_Immediate	Reference_Lex_1,0xeb
022d e038       | 8  |		Load	0x0,0x38
022e e039       | 9  |		Load	0x0,0x39
022f 4800       |H   |		Short_Literal	0x0
0230 0007       |    |		Action	Break_Optional
0231 029d 09db  |    |		Declare_Subprogram	INIT_09d8,For_Outer_Call
0233 e229       | )  |		Load	0x1,0x29
0234 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0235 00c6       |    |		Action	Check_Subprogram_Elaborated
0236 e235       | 5  |		Load	0x1,0x35
0237 e236       | 6  |		Load	0x1,0x36
0238 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
0239 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
023a 1df4       |    |		Execute_Immediate	Reference_Lex_1,0xf4
023b e03a       | :  |		Load	0x0,0x3a
023c e03b       | ;  |		Load	0x0,0x3b
023d 4800       |H   |		Short_Literal	0x0
023e 0007       |    |		Action	Break_Optional
023f 029d 09fb  |    |		Declare_Subprogram	INIT_09f8,For_Outer_Call
0241 e229       | )  |		Load	0x1,0x29
0242 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
0243 00c6       |    |		Action	Check_Subprogram_Elaborated
0244 e22b       | +  |		Load	0x1,0x2b
0245 e22d       | -  |		Load	0x1,0x2d
0246 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
0247 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0248 1dfd       |    |		Execute_Immediate	Reference_Lex_1,0xfd
0249 e03c       | <  |		Load	0x0,0x3c
024a e03d       | =  |		Load	0x0,0x3d
024b 4800       |H   |		Short_Literal	0x0
024c 0007       |    |		Action	Break_Optional
024d 029d 0a1b  |    |		Declare_Subprogram	INIT_0a18,For_Outer_Call
024f e229       | )  |		Load	0x1,0x29
0250 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
0251 00c6       |    |		Action	Check_Subprogram_Elaborated
0252 e22b       | +  |		Load	0x1,0x2b
0253 e22d       | -  |		Load	0x1,0x2d
0254 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
0255 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0256 4906       |I   |		Short_Literal	0x106
0257 4801       |H   |		Short_Literal	0x1
0258 0099       |    |		Action	Reference_Dynamic
0259 e03e       | >  |		Load	0x0,0x3e
025a e03f       | ?  |		Load	0x0,0x3f
025b 4800       |H   |		Short_Literal	0x0
025c 0007       |    |		Action	Break_Optional
025d 029d 0a3b  |   ;|		Declare_Subprogram	INIT_0a38,For_Outer_Call
025f e229       | )  |		Load	0x1,0x29
0260 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0261 00c6       |    |		Action	Check_Subprogram_Elaborated
0262 e010       |    |		Load	0x0,0x10
0263 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0264 e223       | #  |		Load	0x1,0x23
0265 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0266 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0267 490f       |I   |		Short_Literal	0x10f
0268 4801       |H   |		Short_Literal	0x1
0269 0099       |    |		Action	Reference_Dynamic
026a e040       | @  |		Load	0x0,0x40
026b e041       | A  |		Load	0x0,0x41
026c 4800       |H   |		Short_Literal	0x0
026d 0007       |    |		Action	Break_Optional
026e 029d 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Outer_Call
0270 e229       | )  |		Load	0x1,0x29
0271 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0272 00c6       |    |		Action	Check_Subprogram_Elaborated
0273 e010       |    |		Load	0x0,0x10
0274 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0275 e223       | #  |		Load	0x1,0x23
0276 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0277 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0278 4918       |I   |		Short_Literal	0x118
0279 4801       |H   |		Short_Literal	0x1
027a 0099       |    |		Action	Reference_Dynamic
027b e042       | B  |		Load	0x0,0x42
027c e043       | C  |		Load	0x0,0x43
027d 4800       |H   |		Short_Literal	0x0
027e 0007       |    |		Action	Break_Optional
027f 029d 0a6b  |   k|		Declare_Subprogram	INIT_0a68,For_Outer_Call
0281 e229       | )  |		Load	0x1,0x29
0282 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
0283 00c6       |    |		Action	Check_Subprogram_Elaborated
0284 e22b       | +  |		Load	0x1,0x2b
0285 e223       | #  |		Load	0x1,0x23
0286 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
0287 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0288 4921       |I!  |		Short_Literal	0x121
0289 4801       |H   |		Short_Literal	0x1
028a 0099       |    |		Action	Reference_Dynamic
028b e044       | D  |		Load	0x0,0x44
028c e045       | E  |		Load	0x0,0x45
028d 4800       |H   |		Short_Literal	0x0
028e 0007       |    |		Action	Break_Optional
028f 029d 0a83  |    |		Declare_Subprogram	INIT_0a80,For_Outer_Call
0291 e229       | )  |		Load	0x1,0x29
0292 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0293 00c6       |    |		Action	Check_Subprogram_Elaborated
0294 e010       |    |		Load	0x0,0x10
0295 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0296 e223       | #  |		Load	0x1,0x23
0297 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
0298 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0299 492a       |I*  |		Short_Literal	0x12a
029a 4801       |H   |		Short_Literal	0x1
029b 0099       |    |		Action	Reference_Dynamic
029c e046       | F  |		Load	0x0,0x46
029d e047       | G  |		Load	0x0,0x47
029e 4800       |H   |		Short_Literal	0x0
029f 0007       |    |		Action	Break_Optional
02a0 029d 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Outer_Call
02a2 e229       | )  |		Load	0x1,0x29
02a3 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
02a4 00c6       |    |		Action	Check_Subprogram_Elaborated
02a5 e22f       | /  |		Load	0x1,0x2f
02a6 e22d       | -  |		Load	0x1,0x2d
02a7 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
02a8 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
02a9 4933       |I3  |		Short_Literal	0x133
02aa 4801       |H   |		Short_Literal	0x1
02ab 0099       |    |		Action	Reference_Dynamic
02ac e048       | H  |		Load	0x0,0x48
02ad e049       | I  |		Load	0x0,0x49
02ae 4800       |H   |		Short_Literal	0x0
02af 0007       |    |		Action	Break_Optional
02b0 029d 0acb  |    |		Declare_Subprogram	INIT_0ac8,For_Outer_Call
02b2 e229       | )  |		Load	0x1,0x29
02b3 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
02b4 00c6       |    |		Action	Check_Subprogram_Elaborated
02b5 e22b       | +  |		Load	0x1,0x2b
02b6 e22d       | -  |		Load	0x1,0x2d
02b7 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
02b8 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
02b9 493c       |I<  |		Short_Literal	0x13c
02ba 4801       |H   |		Short_Literal	0x1
02bb 0099       |    |		Action	Reference_Dynamic
02bc e04a       | J  |		Load	0x0,0x4a
02bd e04b       | K  |		Load	0x0,0x4b
02be 4800       |H   |		Short_Literal	0x0
02bf 0007       |    |		Action	Break_Optional
02c0 029d 0aeb  |    |		Declare_Subprogram	INIT_0ae8,For_Outer_Call
02c2 e229       | )  |		Load	0x1,0x29
02c3 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
02c4 00c6       |    |		Action	Check_Subprogram_Elaborated
02c5 e010       |    |		Load	0x0,0x10
02c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c7 e223       | #  |		Load	0x1,0x23
02c8 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
02c9 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
02ca 4945       |IE  |		Short_Literal	0x145
02cb 4801       |H   |		Short_Literal	0x1
02cc 0099       |    |		Action	Reference_Dynamic
02cd e04c       | L  |		Load	0x0,0x4c
02ce e04d       | M  |		Load	0x0,0x4d
02cf 4800       |H   |		Short_Literal	0x0
02d0 0007       |    |		Action	Break_Optional
02d1 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
02d2 00c7       |    |		Action	Elaborate_Subprogram
02d3 029d 0b03  |    |		Declare_Subprogram	INIT_0b00,For_Outer_Call
02d5 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
02d6 00c7       |    |		Action	Elaborate_Subprogram
02d7 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
02d8 00c7       |    |		Action	Elaborate_Subprogram
02d9 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
02da 00c7       |    |		Action	Elaborate_Subprogram
02db 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
02dc 00c7       |    |		Action	Elaborate_Subprogram
02dd 029d 0b1b  |    |		Declare_Subprogram	INIT_0b18,For_Outer_Call
02df 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
02e0 00c7       |    |		Action	Elaborate_Subprogram
02e1 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
02e2 00c7       |    |		Action	Elaborate_Subprogram
02e3 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
02e4 00c7       |    |		Action	Elaborate_Subprogram
02e5 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
02e6 00c7       |    |		Action	Elaborate_Subprogram
02e7 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
02e8 00c7       |    |		Action	Elaborate_Subprogram
02e9			BODY_0008:
02e9 00bc       |    |		Action	Signal_Activated
02ea 00bb       |    |		Action	Signal_Completion
02eb 0000 0000  |    |		.BLANK	0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f6       |    |		.CONST	0x02f6								; Address of begin
02f1 030a       |    |		.CONST	0x030a								; Address of exception handler
02f2 0002       |    |		.CONST	0x0002								; Number of locals
02f3			INIT_02f0:
02f3 e00a       |    |		Load	0x0,0xa
02f4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02f5 0337       | 7  |		Declare_Variable	Array
02f6			BODY_02f0:
02f6 00db       |    |		Load_Top	At_Offset_3
02f7 e010       |    |		Load	0x0,0x10
02f8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02f9 e009       |    |		Load	0x0,0x9
02fa 186d       | m  |		Execute	Package,Field_Execute,Field_Number 0x6d
02fb e5fe       |    |		Load	0x2,-0x2
02fc e010       |    |		Load	0x0,0x10
02fd 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02fe e009       |    |		Load	0x0,0x9
02ff 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
0300 00d8       |    |		Load_Top	At_Offset_0
0301 6016       |`   |		Indirect_Literal	Discrete,0x318,{0x00007fff, 0xffffffff}
0302 4800       |H   |		Short_Literal	0x0
0303 e22a       | *  |		Load	0x1,0x2a
0304 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0305 00d1       |    |		Pop_Control	Pop_Count_1
0306 00d8       |    |		Load_Top	At_Offset_0
0307 834e       | N  |		Call	0x1,0x14e
0308 a5fd       |    |		Store_Unchecked	0x2,-0x3
0309 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030a			TRAP_02f0:
030a e04e       | N  |		Load	0x0,0x4e
030b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
030c 010f       |    |		Execute	Exception,Equal
030d 6802       |h   |		Jump_Zero	0x310
030e e211       |    |		Load	0x1,0x11
030f 0257       | W  |		Execute	Discrete,Raise
0310 e00a       |    |		Load	0x0,0xa
0311 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0312 010f       |    |		Execute	Exception,Equal
0313 6802       |h   |		Jump_Zero	0x316
0314 e210       |    |		Load	0x1,0x10
0315 0257       | W  |		Execute	Discrete,Raise
0316 0100       |    |		Execute	Exception,Raise
0317 0000       |    |		.XXX[0x1]
0318 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
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 e22a       | *  |		Load	0x1,0x2a
0324 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0325 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0326 0000 0000  |    |		.XXX[0x2]
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 e22a       | *  |		Load	0x1,0x2a
032c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
032d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032e 0000 0000  |    |		.XXX[0x2]
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 4801       |H   |		Short_Literal	0x1
0334 e009       |    |		Load	0x0,0x9
0335 1b4a       | J  |		Execute	Package,Field_Read,Field_Number 0x4a
0336 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0337 00d8       |    |		Load_Top	At_Offset_0
0338 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0339 4900       |I   |		Short_Literal	0x100
033a e5ff       |    |		Load	0x2,-0x1
033b e010       |    |		Load	0x0,0x10
033c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
033d e010       |    |		Load	0x0,0x10
033e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
033f 00d9       |    |		Load_Top	At_Offset_1
0340 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0341 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0342 0000 0000  |    |		.BLANK	0000[0x6]
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 00db       |    |		Load_Top	At_Offset_3
034c 6197       |a   |		Indirect_Literal	Discrete,0x4e4,{0x00000000, 0x20000888}
034d 027f       |    |		Execute	Discrete,Equal
034e 7002       |p   |		Jump_Nonzero	0x351
034f 4801       |H   |		Short_Literal	0x1
0350 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0351 e5fd       |    |		Load	0x2,-0x3
0352 0f04       |    |		Execute_Immediate	Equal,0x4
0353 7002       |p   |		Jump_Nonzero	0x356
0354 4802       |H   |		Short_Literal	0x2
0355 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0356 e5fc       |    |		Load	0x2,-0x4
0357 00d8       |    |		Load_Top	At_Offset_0
0358 4801       |H   |		Short_Literal	0x1
0359 481e       |H   |		Short_Literal	0x1e
035a 0262       | b  |		Execute	Discrete,In_Range
035b 6980       |i   |		Jump_Zero	0x4dc
035c 0aff       |    |		Execute_Immediate	Plus,-0x1
035d 461d       |F   |		Jump_Case	0x1e
035e 7839       |x9  |		Jump	0x398								; case 0x0
035f 78ba       |x   |		Jump	0x41a								; case 0x1
0360 782d       |x-  |		Jump	0x38e								; case 0x2
0361 78cc       |x   |		Jump	0x42e								; case 0x3
0362 783f       |x?  |		Jump	0x3a2								; case 0x4
0363 7848       |xH  |		Jump	0x3ac								; case 0x5
0364 7851       |xQ  |		Jump	0x3b6								; case 0x6
0365 785a       |xZ  |		Jump	0x3c0								; case 0x7
0366 7863       |xc  |		Jump	0x3ca								; case 0x8
0367 786c       |xl  |		Jump	0x3d4								; case 0x9
0368 7875       |xu  |		Jump	0x3de								; case 0xa
0369 787e       |x~  |		Jump	0x3e8								; case 0xb
036a 7887       |x   |		Jump	0x3f2								; case 0xc
036b 7890       |x   |		Jump	0x3fc								; case 0xd
036c 7899       |x   |		Jump	0x406								; case 0xe
036d 78a2       |x   |		Jump	0x410								; case 0xf
036e 7970       |yp  |		Jump	0x4df								; case 0x10
036f 78b4       |x   |		Jump	0x424								; case 0x11
0370 796e       |yn  |		Jump	0x4df								; case 0x12
0371 78c6       |x   |		Jump	0x438								; case 0x13
0372 78cf       |x   |		Jump	0x442								; case 0x14
0373 78d8       |x   |		Jump	0x44c								; case 0x15
0374 78e9       |x   |		Jump	0x45e								; case 0x16
0375 78fa       |x   |		Jump	0x470								; case 0x17
0376 790b       |y   |		Jump	0x482								; case 0x18
0377 791c       |y   |		Jump	0x494								; case 0x19
0378 792d       |y-  |		Jump	0x4a6								; case 0x1a
0379 793e       |y>  |		Jump	0x4b8								; case 0x1b
037a 794f       |yO  |		Jump	0x4ca								; case 0x1c
037b 7800       |x   |		Jump	0x37c								; case 0x1d
037c 00da       |    |		Load_Top	At_Offset_2
037d e346       | F  |		Load	0x1,0x146
037e e347       | G  |		Load	0x1,0x147
037f 4948       |IH  |		Short_Literal	0x148
0380 4801       |H   |		Short_Literal	0x1
0381 0099       |    |		Action	Reference_Dynamic
0382 4949       |II  |		Short_Literal	0x149
0383 4801       |H   |		Short_Literal	0x1
0384 0099       |    |		Action	Reference_Dynamic
0385 494a       |IJ  |		Short_Literal	0x14a
0386 4801       |H   |		Short_Literal	0x1
0387 0099       |    |		Action	Reference_Dynamic
0388 494b       |IK  |		Short_Literal	0x14b
0389 4801       |H   |		Short_Literal	0x1
038a 0099       |    |		Action	Reference_Dynamic
038b e229       | )  |		Load	0x1,0x29
038c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
038d 7951       |yQ  |		Jump	0x4df
038e 00da       |    |		Load_Top	At_Offset_2
038f e265       | e  |		Load	0x1,0x65
0390 e266       | f  |		Load	0x1,0x66
0391 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
0392 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
0393 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
0394 1d6a       | j  |		Execute_Immediate	Reference_Lex_1,0x6a
0395 e229       | )  |		Load	0x1,0x29
0396 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0397 7947       |yG  |		Jump	0x4df
0398 00da       |    |		Load_Top	At_Offset_2
0399 e253       | S  |		Load	0x1,0x53
039a e254       | T  |		Load	0x1,0x54
039b 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
039c 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
039d 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
039e 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
039f e229       | )  |		Load	0x1,0x29
03a0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03a1 793d       |y=  |		Jump	0x4df
03a2 00da       |    |		Load_Top	At_Offset_2
03a3 e277       | w  |		Load	0x1,0x77
03a4 e278       | x  |		Load	0x1,0x78
03a5 1d79       | y  |		Execute_Immediate	Reference_Lex_1,0x79
03a6 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
03a7 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
03a8 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
03a9 e229       | )  |		Load	0x1,0x29
03aa 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03ab 7933       |y3  |		Jump	0x4df
03ac 00da       |    |		Load_Top	At_Offset_2
03ad e280       |    |		Load	0x1,0x80
03ae e281       |    |		Load	0x1,0x81
03af 1d82       |    |		Execute_Immediate	Reference_Lex_1,0x82
03b0 1d83       |    |		Execute_Immediate	Reference_Lex_1,0x83
03b1 1d84       |    |		Execute_Immediate	Reference_Lex_1,0x84
03b2 1d85       |    |		Execute_Immediate	Reference_Lex_1,0x85
03b3 e229       | )  |		Load	0x1,0x29
03b4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03b5 7929       |y)  |		Jump	0x4df
03b6 00da       |    |		Load_Top	At_Offset_2
03b7 e289       |    |		Load	0x1,0x89
03b8 e28a       |    |		Load	0x1,0x8a
03b9 1d8b       |    |		Execute_Immediate	Reference_Lex_1,0x8b
03ba 1d8c       |    |		Execute_Immediate	Reference_Lex_1,0x8c
03bb 1d8d       |    |		Execute_Immediate	Reference_Lex_1,0x8d
03bc 1d8e       |    |		Execute_Immediate	Reference_Lex_1,0x8e
03bd e229       | )  |		Load	0x1,0x29
03be 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03bf 791f       |y   |		Jump	0x4df
03c0 00da       |    |		Load_Top	At_Offset_2
03c1 e292       |    |		Load	0x1,0x92
03c2 e293       |    |		Load	0x1,0x93
03c3 1d94       |    |		Execute_Immediate	Reference_Lex_1,0x94
03c4 1d95       |    |		Execute_Immediate	Reference_Lex_1,0x95
03c5 1d96       |    |		Execute_Immediate	Reference_Lex_1,0x96
03c6 1d97       |    |		Execute_Immediate	Reference_Lex_1,0x97
03c7 e229       | )  |		Load	0x1,0x29
03c8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03c9 7915       |y   |		Jump	0x4df
03ca 00da       |    |		Load_Top	At_Offset_2
03cb e29b       |    |		Load	0x1,0x9b
03cc e29c       |    |		Load	0x1,0x9c
03cd 1d9d       |    |		Execute_Immediate	Reference_Lex_1,0x9d
03ce 1d9e       |    |		Execute_Immediate	Reference_Lex_1,0x9e
03cf 1d9f       |    |		Execute_Immediate	Reference_Lex_1,0x9f
03d0 1da0       |    |		Execute_Immediate	Reference_Lex_1,0xa0
03d1 e229       | )  |		Load	0x1,0x29
03d2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03d3 790b       |y   |		Jump	0x4df
03d4 00da       |    |		Load_Top	At_Offset_2
03d5 e2a4       |    |		Load	0x1,0xa4
03d6 e2a5       |    |		Load	0x1,0xa5
03d7 1da6       |    |		Execute_Immediate	Reference_Lex_1,0xa6
03d8 1da7       |    |		Execute_Immediate	Reference_Lex_1,0xa7
03d9 1da8       |    |		Execute_Immediate	Reference_Lex_1,0xa8
03da 1da9       |    |		Execute_Immediate	Reference_Lex_1,0xa9
03db e229       | )  |		Load	0x1,0x29
03dc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03dd 7901       |y   |		Jump	0x4df
03de 00da       |    |		Load_Top	At_Offset_2
03df e2ad       |    |		Load	0x1,0xad
03e0 e2ae       |    |		Load	0x1,0xae
03e1 1daf       |    |		Execute_Immediate	Reference_Lex_1,0xaf
03e2 1db0       |    |		Execute_Immediate	Reference_Lex_1,0xb0
03e3 1db1       |    |		Execute_Immediate	Reference_Lex_1,0xb1
03e4 1db2       |    |		Execute_Immediate	Reference_Lex_1,0xb2
03e5 e229       | )  |		Load	0x1,0x29
03e6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03e7 78f7       |x   |		Jump	0x4df
03e8 00da       |    |		Load_Top	At_Offset_2
03e9 e2b6       |    |		Load	0x1,0xb6
03ea e2b7       |    |		Load	0x1,0xb7
03eb 1db8       |    |		Execute_Immediate	Reference_Lex_1,0xb8
03ec 1db9       |    |		Execute_Immediate	Reference_Lex_1,0xb9
03ed 1dba       |    |		Execute_Immediate	Reference_Lex_1,0xba
03ee 1dbb       |    |		Execute_Immediate	Reference_Lex_1,0xbb
03ef e229       | )  |		Load	0x1,0x29
03f0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03f1 78ed       |x   |		Jump	0x4df
03f2 00da       |    |		Load_Top	At_Offset_2
03f3 e2bf       |    |		Load	0x1,0xbf
03f4 e2c0       |    |		Load	0x1,0xc0
03f5 1dc1       |    |		Execute_Immediate	Reference_Lex_1,0xc1
03f6 1dc2       |    |		Execute_Immediate	Reference_Lex_1,0xc2
03f7 1dc3       |    |		Execute_Immediate	Reference_Lex_1,0xc3
03f8 1dc4       |    |		Execute_Immediate	Reference_Lex_1,0xc4
03f9 e229       | )  |		Load	0x1,0x29
03fa 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03fb 78e3       |x   |		Jump	0x4df
03fc 00da       |    |		Load_Top	At_Offset_2
03fd e2c8       |    |		Load	0x1,0xc8
03fe e2c9       |    |		Load	0x1,0xc9
03ff 1dca       |    |		Execute_Immediate	Reference_Lex_1,0xca
0400 1dcb       |    |		Execute_Immediate	Reference_Lex_1,0xcb
0401 1dcc       |    |		Execute_Immediate	Reference_Lex_1,0xcc
0402 1dcd       |    |		Execute_Immediate	Reference_Lex_1,0xcd
0403 e229       | )  |		Load	0x1,0x29
0404 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0405 78d9       |x   |		Jump	0x4df
0406 00da       |    |		Load_Top	At_Offset_2
0407 e2d1       |    |		Load	0x1,0xd1
0408 e2d2       |    |		Load	0x1,0xd2
0409 1dd3       |    |		Execute_Immediate	Reference_Lex_1,0xd3
040a 1dd4       |    |		Execute_Immediate	Reference_Lex_1,0xd4
040b 1dd5       |    |		Execute_Immediate	Reference_Lex_1,0xd5
040c 1dd6       |    |		Execute_Immediate	Reference_Lex_1,0xd6
040d e229       | )  |		Load	0x1,0x29
040e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
040f 78cf       |x   |		Jump	0x4df
0410 00da       |    |		Load_Top	At_Offset_2
0411 e2da       |    |		Load	0x1,0xda
0412 e2db       |    |		Load	0x1,0xdb
0413 1ddc       |    |		Execute_Immediate	Reference_Lex_1,0xdc
0414 1ddd       |    |		Execute_Immediate	Reference_Lex_1,0xdd
0415 1dde       |    |		Execute_Immediate	Reference_Lex_1,0xde
0416 1ddf       |    |		Execute_Immediate	Reference_Lex_1,0xdf
0417 e229       | )  |		Load	0x1,0x29
0418 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0419 78c5       |x   |		Jump	0x4df
041a 00da       |    |		Load_Top	At_Offset_2
041b e25c       | \  |		Load	0x1,0x5c
041c e25d       | ]  |		Load	0x1,0x5d
041d 1d5e       | ^  |		Execute_Immediate	Reference_Lex_1,0x5e
041e 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
041f 1d60       | `  |		Execute_Immediate	Reference_Lex_1,0x60
0420 1d61       | a  |		Execute_Immediate	Reference_Lex_1,0x61
0421 e229       | )  |		Load	0x1,0x29
0422 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0423 78bb       |x   |		Jump	0x4df
0424 00da       |    |		Load_Top	At_Offset_2
0425 e2e3       |    |		Load	0x1,0xe3
0426 e2e4       |    |		Load	0x1,0xe4
0427 1de5       |    |		Execute_Immediate	Reference_Lex_1,0xe5
0428 1de6       |    |		Execute_Immediate	Reference_Lex_1,0xe6
0429 1de7       |    |		Execute_Immediate	Reference_Lex_1,0xe7
042a 1de8       |    |		Execute_Immediate	Reference_Lex_1,0xe8
042b e229       | )  |		Load	0x1,0x29
042c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
042d 78b1       |x   |		Jump	0x4df
042e 00da       |    |		Load_Top	At_Offset_2
042f e26e       | n  |		Load	0x1,0x6e
0430 e26f       | o  |		Load	0x1,0x6f
0431 1d70       | p  |		Execute_Immediate	Reference_Lex_1,0x70
0432 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
0433 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
0434 1d73       | s  |		Execute_Immediate	Reference_Lex_1,0x73
0435 e229       | )  |		Load	0x1,0x29
0436 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0437 78a7       |x   |		Jump	0x4df
0438 00da       |    |		Load_Top	At_Offset_2
0439 e2ec       |    |		Load	0x1,0xec
043a e2ed       |    |		Load	0x1,0xed
043b 1dee       |    |		Execute_Immediate	Reference_Lex_1,0xee
043c 1def       |    |		Execute_Immediate	Reference_Lex_1,0xef
043d 1df0       |    |		Execute_Immediate	Reference_Lex_1,0xf0
043e 1df1       |    |		Execute_Immediate	Reference_Lex_1,0xf1
043f e229       | )  |		Load	0x1,0x29
0440 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0441 789d       |x   |		Jump	0x4df
0442 00da       |    |		Load_Top	At_Offset_2
0443 e2f5       |    |		Load	0x1,0xf5
0444 e2f6       |    |		Load	0x1,0xf6
0445 1df7       |    |		Execute_Immediate	Reference_Lex_1,0xf7
0446 1df8       |    |		Execute_Immediate	Reference_Lex_1,0xf8
0447 1df9       |    |		Execute_Immediate	Reference_Lex_1,0xf9
0448 1dfa       |    |		Execute_Immediate	Reference_Lex_1,0xfa
0449 e229       | )  |		Load	0x1,0x29
044a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
044b 7893       |x   |		Jump	0x4df
044c 00da       |    |		Load_Top	At_Offset_2
044d e2fe       |    |		Load	0x1,0xfe
044e e2ff       |    |		Load	0x1,0xff
044f 4900       |I   |		Short_Literal	0x100
0450 4801       |H   |		Short_Literal	0x1
0451 0099       |    |		Action	Reference_Dynamic
0452 4901       |I   |		Short_Literal	0x101
0453 4801       |H   |		Short_Literal	0x1
0454 0099       |    |		Action	Reference_Dynamic
0455 4902       |I   |		Short_Literal	0x102
0456 4801       |H   |		Short_Literal	0x1
0457 0099       |    |		Action	Reference_Dynamic
0458 4903       |I   |		Short_Literal	0x103
0459 4801       |H   |		Short_Literal	0x1
045a 0099       |    |		Action	Reference_Dynamic
045b e229       | )  |		Load	0x1,0x29
045c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
045d 7881       |x   |		Jump	0x4df
045e 00da       |    |		Load_Top	At_Offset_2
045f e307       |    |		Load	0x1,0x107
0460 e308       |    |		Load	0x1,0x108
0461 4909       |I   |		Short_Literal	0x109
0462 4801       |H   |		Short_Literal	0x1
0463 0099       |    |		Action	Reference_Dynamic
0464 490a       |I   |		Short_Literal	0x10a
0465 4801       |H   |		Short_Literal	0x1
0466 0099       |    |		Action	Reference_Dynamic
0467 490b       |I   |		Short_Literal	0x10b
0468 4801       |H   |		Short_Literal	0x1
0469 0099       |    |		Action	Reference_Dynamic
046a 490c       |I   |		Short_Literal	0x10c
046b 4801       |H   |		Short_Literal	0x1
046c 0099       |    |		Action	Reference_Dynamic
046d e229       | )  |		Load	0x1,0x29
046e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
046f 786f       |xo  |		Jump	0x4df
0470 00da       |    |		Load_Top	At_Offset_2
0471 e310       |    |		Load	0x1,0x110
0472 e311       |    |		Load	0x1,0x111
0473 4912       |I   |		Short_Literal	0x112
0474 4801       |H   |		Short_Literal	0x1
0475 0099       |    |		Action	Reference_Dynamic
0476 4913       |I   |		Short_Literal	0x113
0477 4801       |H   |		Short_Literal	0x1
0478 0099       |    |		Action	Reference_Dynamic
0479 4914       |I   |		Short_Literal	0x114
047a 4801       |H   |		Short_Literal	0x1
047b 0099       |    |		Action	Reference_Dynamic
047c 4915       |I   |		Short_Literal	0x115
047d 4801       |H   |		Short_Literal	0x1
047e 0099       |    |		Action	Reference_Dynamic
047f e229       | )  |		Load	0x1,0x29
0480 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0481 785d       |x]  |		Jump	0x4df
0482 00da       |    |		Load_Top	At_Offset_2
0483 e319       |    |		Load	0x1,0x119
0484 e31a       |    |		Load	0x1,0x11a
0485 491b       |I   |		Short_Literal	0x11b
0486 4801       |H   |		Short_Literal	0x1
0487 0099       |    |		Action	Reference_Dynamic
0488 491c       |I   |		Short_Literal	0x11c
0489 4801       |H   |		Short_Literal	0x1
048a 0099       |    |		Action	Reference_Dynamic
048b 491d       |I   |		Short_Literal	0x11d
048c 4801       |H   |		Short_Literal	0x1
048d 0099       |    |		Action	Reference_Dynamic
048e 491e       |I   |		Short_Literal	0x11e
048f 4801       |H   |		Short_Literal	0x1
0490 0099       |    |		Action	Reference_Dynamic
0491 e229       | )  |		Load	0x1,0x29
0492 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0493 784b       |xK  |		Jump	0x4df
0494 00da       |    |		Load_Top	At_Offset_2
0495 e322       | "  |		Load	0x1,0x122
0496 e323       | #  |		Load	0x1,0x123
0497 4924       |I$  |		Short_Literal	0x124
0498 4801       |H   |		Short_Literal	0x1
0499 0099       |    |		Action	Reference_Dynamic
049a 4925       |I%  |		Short_Literal	0x125
049b 4801       |H   |		Short_Literal	0x1
049c 0099       |    |		Action	Reference_Dynamic
049d 4926       |I&  |		Short_Literal	0x126
049e 4801       |H   |		Short_Literal	0x1
049f 0099       |    |		Action	Reference_Dynamic
04a0 4927       |I'  |		Short_Literal	0x127
04a1 4801       |H   |		Short_Literal	0x1
04a2 0099       |    |		Action	Reference_Dynamic
04a3 e229       | )  |		Load	0x1,0x29
04a4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04a5 7839       |x9  |		Jump	0x4df
04a6 00da       |    |		Load_Top	At_Offset_2
04a7 e32b       | +  |		Load	0x1,0x12b
04a8 e32c       | ,  |		Load	0x1,0x12c
04a9 492d       |I-  |		Short_Literal	0x12d
04aa 4801       |H   |		Short_Literal	0x1
04ab 0099       |    |		Action	Reference_Dynamic
04ac 492e       |I.  |		Short_Literal	0x12e
04ad 4801       |H   |		Short_Literal	0x1
04ae 0099       |    |		Action	Reference_Dynamic
04af 492f       |I/  |		Short_Literal	0x12f
04b0 4801       |H   |		Short_Literal	0x1
04b1 0099       |    |		Action	Reference_Dynamic
04b2 4930       |I0  |		Short_Literal	0x130
04b3 4801       |H   |		Short_Literal	0x1
04b4 0099       |    |		Action	Reference_Dynamic
04b5 e229       | )  |		Load	0x1,0x29
04b6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04b7 7827       |x'  |		Jump	0x4df
04b8 00da       |    |		Load_Top	At_Offset_2
04b9 e334       | 4  |		Load	0x1,0x134
04ba e335       | 5  |		Load	0x1,0x135
04bb 4936       |I6  |		Short_Literal	0x136
04bc 4801       |H   |		Short_Literal	0x1
04bd 0099       |    |		Action	Reference_Dynamic
04be 4937       |I7  |		Short_Literal	0x137
04bf 4801       |H   |		Short_Literal	0x1
04c0 0099       |    |		Action	Reference_Dynamic
04c1 4938       |I8  |		Short_Literal	0x138
04c2 4801       |H   |		Short_Literal	0x1
04c3 0099       |    |		Action	Reference_Dynamic
04c4 4939       |I9  |		Short_Literal	0x139
04c5 4801       |H   |		Short_Literal	0x1
04c6 0099       |    |		Action	Reference_Dynamic
04c7 e229       | )  |		Load	0x1,0x29
04c8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04c9 7815       |x   |		Jump	0x4df
04ca 00da       |    |		Load_Top	At_Offset_2
04cb e33d       | =  |		Load	0x1,0x13d
04cc e33e       | >  |		Load	0x1,0x13e
04cd 493f       |I?  |		Short_Literal	0x13f
04ce 4801       |H   |		Short_Literal	0x1
04cf 0099       |    |		Action	Reference_Dynamic
04d0 4940       |I@  |		Short_Literal	0x140
04d1 4801       |H   |		Short_Literal	0x1
04d2 0099       |    |		Action	Reference_Dynamic
04d3 4941       |IA  |		Short_Literal	0x141
04d4 4801       |H   |		Short_Literal	0x1
04d5 0099       |    |		Action	Reference_Dynamic
04d6 4942       |IB  |		Short_Literal	0x142
04d7 4801       |H   |		Short_Literal	0x1
04d8 0099       |    |		Action	Reference_Dynamic
04d9 e229       | )  |		Load	0x1,0x29
04da 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04db 7803       |x   |		Jump	0x4df
04dc 00d1       |    |		Pop_Control	Pop_Count_1
04dd 4803       |H   |		Short_Literal	0x3
04de 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04df 4800       |H   |		Short_Literal	0x0
04e0 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
04e1 0000 0000  |    |		.XXX[0x3]
04e3 0000       |    |
04e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x20000888}
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 4608       |F   |		Jump_Case	0x9
04ec 7808       |x   |		Jump	0x4f5								; case 0x0
04ed 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
04ee 780a       |x   |		Jump	0x4f9								; case 0x2
04ef 7809       |x   |		Jump	0x4f9								; case 0x3
04f0 7808       |x   |		Jump	0x4f9								; case 0x4
04f1 7807       |x   |		Jump	0x4f9								; case 0x5
04f2 7806       |x   |		Jump	0x4f9								; case 0x6
04f3 7805       |x   |		Jump	0x4f9								; case 0x7
04f4 7804       |x   |		Jump	0x4f9								; case 0x8
04f5 00da       |    |		Load_Top	At_Offset_2
04f6 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04f8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04f9 0869       | i  |		Execute_Immediate	Raise,0x69
04fa 0000 0000  |    |		.BLANK	0000[0x6]
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 4608       |F   |		Jump_Case	0x9
0504 7808       |x   |		Jump	0x50d								; case 0x0
0505 7811       |x   |		Jump	0x517								; case 0x1
0506 7814       |x   |		Jump	0x51b								; case 0x2
0507 7813       |x   |		Jump	0x51b								; case 0x3
0508 7812       |x   |		Jump	0x51b								; case 0x4
0509 7811       |x   |		Jump	0x51b								; case 0x5
050a 7810       |x   |		Jump	0x51b								; case 0x6
050b 780f       |x   |		Jump	0x51b								; case 0x7
050c 780e       |x   |		Jump	0x51b								; case 0x8
050d 00da       |    |		Load_Top	At_Offset_2
050e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
050f 0125       | %  |		Execute	Any,Set_Constraint
0510 00da       |    |		Load_Top	At_Offset_2
0511 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0512 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0513 00da       |    |		Load_Top	At_Offset_2
0514 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0515 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0516 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0517 00da       |    |		Load_Top	At_Offset_2
0518 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0519 0125       | %  |		Execute	Any,Set_Constraint
051a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
051b 0869       | i  |		Execute_Immediate	Raise,0x69
051c 0000 0000  |    |		.BLANK	0000[0x4]
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 4608       |F   |		Jump_Case	0x9
0524 7808       |x   |		Jump	0x52d								; case 0x0
0525 7814       |x   |		Jump	0x53a								; case 0x1
0526 781a       |x   |		Jump	0x541								; case 0x2
0527 7819       |x   |		Jump	0x541								; case 0x3
0528 7818       |x   |		Jump	0x541								; case 0x4
0529 7817       |x   |		Jump	0x541								; case 0x5
052a 7816       |x   |		Jump	0x541								; case 0x6
052b 7815       |x   |		Jump	0x541								; case 0x7
052c 7814       |x   |		Jump	0x541								; case 0x8
052d 00da       |    |		Load_Top	At_Offset_2
052e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
052f 0125       | %  |		Execute	Any,Set_Constraint
0530 00da       |    |		Load_Top	At_Offset_2
0531 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0532 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0533 00da       |    |		Load_Top	At_Offset_2
0534 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0535 0125       | %  |		Execute	Any,Set_Constraint
0536 00da       |    |		Load_Top	At_Offset_2
0537 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0538 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0539 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
053a 00da       |    |		Load_Top	At_Offset_2
053b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
053c 0125       | %  |		Execute	Any,Set_Constraint
053d 00da       |    |		Load_Top	At_Offset_2
053e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
053f 0125       | %  |		Execute	Any,Set_Constraint
0540 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0541 0869       | i  |		Execute_Immediate	Raise,0x69
0542 0000 0000  |    |		.BLANK	0000[0x6]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054b       | K  |		.CONST	0x054b								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0001       |    |		.CONST	0x0001								; Number of locals
054b			BODY_0548:
054b			INIT_0548:
054b 4608       |F   |		Jump_Case	0x9
054c 7808       |x   |		Jump	0x555								; case 0x0
054d 7814       |x   |		Jump	0x562								; case 0x1
054e 781a       |x   |		Jump	0x569								; case 0x2
054f 7819       |x   |		Jump	0x569								; case 0x3
0550 7818       |x   |		Jump	0x569								; case 0x4
0551 7817       |x   |		Jump	0x569								; case 0x5
0552 7816       |x   |		Jump	0x569								; case 0x6
0553 7815       |x   |		Jump	0x569								; case 0x7
0554 7814       |x   |		Jump	0x569								; case 0x8
0555 00da       |    |		Load_Top	At_Offset_2
0556 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0557 0125       | %  |		Execute	Any,Set_Constraint
0558 00da       |    |		Load_Top	At_Offset_2
0559 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
055a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
055b 00da       |    |		Load_Top	At_Offset_2
055c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
055d 0125       | %  |		Execute	Any,Set_Constraint
055e 00da       |    |		Load_Top	At_Offset_2
055f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0560 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0561 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0562 00da       |    |		Load_Top	At_Offset_2
0563 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0564 0125       | %  |		Execute	Any,Set_Constraint
0565 00da       |    |		Load_Top	At_Offset_2
0566 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0567 0125       | %  |		Execute	Any,Set_Constraint
0568 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0569 0869       | i  |		Execute_Immediate	Raise,0x69
056a 0000 0000  |    |		.BLANK	0000[0x6]
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 4608       |F   |		Jump_Case	0x9
0574 7808       |x   |		Jump	0x57d								; case 0x0
0575 7817       |x   |		Jump	0x58d								; case 0x1
0576 781d       |x   |		Jump	0x594								; case 0x2
0577 781c       |x   |		Jump	0x594								; case 0x3
0578 781b       |x   |		Jump	0x594								; case 0x4
0579 781a       |x   |		Jump	0x594								; case 0x5
057a 7819       |x   |		Jump	0x594								; case 0x6
057b 7818       |x   |		Jump	0x594								; case 0x7
057c 7817       |x   |		Jump	0x594								; case 0x8
057d 00da       |    |		Load_Top	At_Offset_2
057e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
057f 0125       | %  |		Execute	Any,Set_Constraint
0580 00da       |    |		Load_Top	At_Offset_2
0581 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0582 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0583 00da       |    |		Load_Top	At_Offset_2
0584 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0585 0125       | %  |		Execute	Any,Set_Constraint
0586 00da       |    |		Load_Top	At_Offset_2
0587 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0588 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0589 00da       |    |		Load_Top	At_Offset_2
058a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
058b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
058d 00da       |    |		Load_Top	At_Offset_2
058e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
058f 0125       | %  |		Execute	Any,Set_Constraint
0590 00da       |    |		Load_Top	At_Offset_2
0591 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0592 0125       | %  |		Execute	Any,Set_Constraint
0593 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0594 0869       | i  |		Execute_Immediate	Raise,0x69
0595 0000 0000  |    |		.XXX[0x3]
0597 0000       |    |
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b       |    |		.CONST	0x059b								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0001       |    |		.CONST	0x0001								; Number of locals
059b			BODY_0598:
059b			INIT_0598:
059b 4608       |F   |		Jump_Case	0x9
059c 7808       |x   |		Jump	0x5a5								; case 0x0
059d 780e       |x   |		Jump	0x5ac								; case 0x1
059e 7811       |x   |		Jump	0x5b0								; case 0x2
059f 7810       |x   |		Jump	0x5b0								; case 0x3
05a0 780f       |x   |		Jump	0x5b0								; case 0x4
05a1 780e       |x   |		Jump	0x5b0								; case 0x5
05a2 780d       |x   |		Jump	0x5b0								; case 0x6
05a3 780c       |x   |		Jump	0x5b0								; case 0x7
05a4 780b       |x   |		Jump	0x5b0								; case 0x8
05a5 00da       |    |		Load_Top	At_Offset_2
05a6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05a7 0125       | %  |		Execute	Any,Set_Constraint
05a8 00da       |    |		Load_Top	At_Offset_2
05a9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05aa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05ab 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05ac 00da       |    |		Load_Top	At_Offset_2
05ad 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05ae 0125       | %  |		Execute	Any,Set_Constraint
05af 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05b0 0869       | i  |		Execute_Immediate	Raise,0x69
05b1 0000 0000  |    |		.BLANK	0000[0x7]
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 4608       |F   |		Jump_Case	0x9
05bc 7808       |x   |		Jump	0x5c5								; case 0x0
05bd 780e       |x   |		Jump	0x5cc								; case 0x1
05be 7811       |x   |		Jump	0x5d0								; case 0x2
05bf 7810       |x   |		Jump	0x5d0								; case 0x3
05c0 780f       |x   |		Jump	0x5d0								; case 0x4
05c1 780e       |x   |		Jump	0x5d0								; case 0x5
05c2 780d       |x   |		Jump	0x5d0								; case 0x6
05c3 780c       |x   |		Jump	0x5d0								; case 0x7
05c4 780b       |x   |		Jump	0x5d0								; case 0x8
05c5 00da       |    |		Load_Top	At_Offset_2
05c6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05c7 0125       | %  |		Execute	Any,Set_Constraint
05c8 00da       |    |		Load_Top	At_Offset_2
05c9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05ca 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05cb 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05cc 00da       |    |		Load_Top	At_Offset_2
05cd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05ce 0125       | %  |		Execute	Any,Set_Constraint
05cf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05d0 0869       | i  |		Execute_Immediate	Raise,0x69
05d1 0000 0000  |    |		.BLANK	0000[0x7]
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 4608       |F   |		Jump_Case	0x9
05dc 7808       |x   |		Jump	0x5e5								; case 0x0
05dd 780e       |x   |		Jump	0x5ec								; case 0x1
05de 7811       |x   |		Jump	0x5f0								; case 0x2
05df 7810       |x   |		Jump	0x5f0								; case 0x3
05e0 780f       |x   |		Jump	0x5f0								; case 0x4
05e1 780e       |x   |		Jump	0x5f0								; case 0x5
05e2 780d       |x   |		Jump	0x5f0								; case 0x6
05e3 780c       |x   |		Jump	0x5f0								; case 0x7
05e4 780b       |x   |		Jump	0x5f0								; case 0x8
05e5 00da       |    |		Load_Top	At_Offset_2
05e6 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05e7 0125       | %  |		Execute	Any,Set_Constraint
05e8 00da       |    |		Load_Top	At_Offset_2
05e9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05ea 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05eb 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05ec 00da       |    |		Load_Top	At_Offset_2
05ed 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05ee 0125       | %  |		Execute	Any,Set_Constraint
05ef 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05f0 0869       | i  |		Execute_Immediate	Raise,0x69
05f1 0000 0000  |    |		.BLANK	0000[0x7]
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 4608       |F   |		Jump_Case	0x9
05fc 7808       |x   |		Jump	0x605								; case 0x0
05fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05fe 780a       |x   |		Jump	0x609								; case 0x2
05ff 7809       |x   |		Jump	0x609								; case 0x3
0600 7808       |x   |		Jump	0x609								; case 0x4
0601 7807       |x   |		Jump	0x609								; case 0x5
0602 7806       |x   |		Jump	0x609								; case 0x6
0603 7805       |x   |		Jump	0x609								; case 0x7
0604 7804       |x   |		Jump	0x609								; case 0x8
0605 00da       |    |		Load_Top	At_Offset_2
0606 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0607 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0608 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0609 0869       | i  |		Execute_Immediate	Raise,0x69
060a 0000 0000  |    |		.BLANK	0000[0x6]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 4608       |F   |		Jump_Case	0x9
0614 7808       |x   |		Jump	0x61d								; case 0x0
0615 780e       |x   |		Jump	0x624								; case 0x1
0616 7811       |x   |		Jump	0x628								; case 0x2
0617 7810       |x   |		Jump	0x628								; case 0x3
0618 780f       |x   |		Jump	0x628								; case 0x4
0619 780e       |x   |		Jump	0x628								; case 0x5
061a 780d       |x   |		Jump	0x628								; case 0x6
061b 780c       |x   |		Jump	0x628								; case 0x7
061c 780b       |x   |		Jump	0x628								; case 0x8
061d 00da       |    |		Load_Top	At_Offset_2
061e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
061f 0125       | %  |		Execute	Any,Set_Constraint
0620 00da       |    |		Load_Top	At_Offset_2
0621 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0622 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0623 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0624 00da       |    |		Load_Top	At_Offset_2
0625 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0626 0125       | %  |		Execute	Any,Set_Constraint
0627 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0628 0869       | i  |		Execute_Immediate	Raise,0x69
0629 0000 0000  |    |		.BLANK	0000[0x7]
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 4608       |F   |		Jump_Case	0x9
0634 7808       |x   |		Jump	0x63d								; case 0x0
0635 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0636 781e       |x   |		Jump	0x655								; case 0x2
0637 781d       |x   |		Jump	0x655								; case 0x3
0638 781c       |x   |		Jump	0x655								; case 0x4
0639 781b       |x   |		Jump	0x655								; case 0x5
063a 781a       |x   |		Jump	0x655								; case 0x6
063b 7811       |x   |		Jump	0x64d								; case 0x7
063c 7814       |x   |		Jump	0x651								; case 0x8
063d 00da       |    |		Load_Top	At_Offset_2
063e 016c       | l  |		Execute	Variant_Record,Is_Constrained
063f 7009       |p   |		Jump_Nonzero	0x649
0640 00cf       |    |		Action	Mark_Auxiliary
0641 4800       |H   |		Short_Literal	0x0
0642 e5ff       |    |		Load	0x2,-0x1
0643 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0644 00d8       |    |		Load_Top	At_Offset_0
0645 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0646 c5ff       |    |		Store	0x2,-0x1
0647 00ce       |    |		Action	Pop_Auxiliary
0648 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0649 00da       |    |		Load_Top	At_Offset_2
064a 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
064b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
064c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
064d 00db       |    |		Load_Top	At_Offset_3
064e e5ff       |    |		Load	0x2,-0x1
064f 031b       |    |		Declare_Type	Variant_Record,Constrained
0650 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0651 00db       |    |		Load_Top	At_Offset_3
0652 00db       |    |		Load_Top	At_Offset_3
0653 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0654 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0655 0869       | i  |		Execute_Immediate	Raise,0x69
0656 0000 0000  |    |		.XXX[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 00da       |    |		Load_Top	At_Offset_2
065c 8239       | 9  |		Call	0x1,0x39
065d e010       |    |		Load	0x0,0x10
065e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
065f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 00db       |    |		Load_Top	At_Offset_3
0664 00db       |    |		Load_Top	At_Offset_3
0665 8239       | 9  |		Call	0x1,0x39
0666 e010       |    |		Load	0x0,0x10
0667 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0668 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0669 0000 0000  |    |		.BLANK	0000[0x7]
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 e010       |    |		Load	0x0,0x10
0675 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0676 00db       |    |		Load_Top	At_Offset_3
0677 823a       | :  |		Call	0x1,0x3a
0678 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0679 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0684 8239       | 9  |		Call	0x1,0x39
0685 e00f       |    |		Load	0x0,0xf
0686 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0687 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0688 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0689 0000 0000  |    |		.BLANK	0000[0x7]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693       |    |		.CONST	0x0693								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0001       |    |		.CONST	0x0001								; Number of locals
0693			BODY_0690:
0693			INIT_0690:
0693 00db       |    |		Load_Top	At_Offset_3
0694 e00f       |    |		Load	0x0,0xf
0695 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0696 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0697 00db       |    |		Load_Top	At_Offset_3
0698 823a       | :  |		Call	0x1,0x3a
0699 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
069a 0000 0000  |    |		.BLANK	0000[0x6]
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 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06a4 0000 0000  |    |		.BLANK	0000[0x4]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab       |    |		.CONST	0x06ab								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0001       |    |		.CONST	0x0001								; Number of locals
06ab			BODY_06a8:
06ab			INIT_06a8:
06ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06ac 0000 0000  |    |		.BLANK	0000[0x4]
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 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06b5 00db       |    |		Load_Top	At_Offset_3
06b6 823b       | ;  |		Call	0x1,0x3b
06b7 00db       |    |		Load_Top	At_Offset_3
06b8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06b9 6804       |h   |		Jump_Zero	0x6be
06ba 00db       |    |		Load_Top	At_Offset_3
06bb 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
06bc 00db       |    |		Load_Top	At_Offset_3
06bd 8241       | A  |		Call	0x1,0x41
06be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06bf 0000       |    |		.XXX[0x1]
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 00db       |    |		Load_Top	At_Offset_3
06c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06c5 00db       |    |		Load_Top	At_Offset_3
06c6 8243       | C  |		Call	0x1,0x43
06c7 00db       |    |		Load_Top	At_Offset_3
06c8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
06c9 00db       |    |		Load_Top	At_Offset_3
06ca 8246       | F  |		Call	0x1,0x46
06cb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06cc 0000 0000  |    |		.BLANK	0000[0x4]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3       |    |		.CONST	0x06d3								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0001       |    |		.CONST	0x0001								; Number of locals
06d3			BODY_06d0:
06d3			INIT_06d0:
06d3 00db       |    |		Load_Top	At_Offset_3
06d4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
06d5 00db       |    |		Load_Top	At_Offset_3
06d6 8241       | A  |		Call	0x1,0x41
06d7 00db       |    |		Load_Top	At_Offset_3
06d8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
06d9 00db       |    |		Load_Top	At_Offset_3
06da 8246       | F  |		Call	0x1,0x46
06db 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06dc 0000 0000  |    |		.BLANK	0000[0x4]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e9       |    |		.CONST	0x06e9								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0003       |    |		.CONST	0x0003								; Number of locals
06e3			INIT_06e0:
06e3 4900       |I   |		Short_Literal	0x100
06e4 00db       |    |		Load_Top	At_Offset_3
06e5 8240       | @  |		Call	0x1,0x40
06e6 4900       |I   |		Short_Literal	0x100
06e7 e5ff       |    |		Load	0x2,-0x1
06e8 8240       | @  |		Call	0x1,0x40
06e9			BODY_06e0:
06e9 e22e       | .  |		Load	0x1,0x2e
06ea 0322       | "  |		Declare_Variable	Record
06eb 00d8       |    |		Load_Top	At_Offset_0
06ec 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06ed 00da       |    |		Load_Top	At_Offset_2
06ee 00d9       |    |		Load_Top	At_Offset_1
06ef 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06f0 00d9       |    |		Load_Top	At_Offset_1
06f1 00d9       |    |		Load_Top	At_Offset_1
06f2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
06f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06f4 0000 0000  |    |		.BLANK	0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0701       |    |		.CONST	0x0701								; Address of begin
06f9 0004       |    |		.CONST	0x0004								; Address of exception handler
06fa 0003       |    |		.CONST	0x0003								; Number of locals
06fb			INIT_06f8:
06fb 4900       |I   |		Short_Literal	0x100
06fc 00db       |    |		Load_Top	At_Offset_3
06fd 8240       | @  |		Call	0x1,0x40
06fe 4900       |I   |		Short_Literal	0x100
06ff e5ff       |    |		Load	0x2,-0x1
0700 8240       | @  |		Call	0x1,0x40
0701			BODY_06f8:
0701 e22f       | /  |		Load	0x1,0x2f
0702 0322       | "  |		Declare_Variable	Record
0703 00d8       |    |		Load_Top	At_Offset_0
0704 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0705 00da       |    |		Load_Top	At_Offset_2
0706 00d9       |    |		Load_Top	At_Offset_1
0707 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0708 00d9       |    |		Load_Top	At_Offset_1
0709 00d9       |    |		Load_Top	At_Offset_1
070a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
070b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
070c 0000 0000  |    |		.BLANK	0000[0x4]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713       |    |		.CONST	0x0713								; Address of begin
0711 0004       |    |		.CONST	0x0004								; Address of exception handler
0712 0001       |    |		.CONST	0x0001								; Number of locals
0713			BODY_0710:
0713			INIT_0710:
0713 00db       |    |		Load_Top	At_Offset_3
0714 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0715 00db       |    |		Load_Top	At_Offset_3
0716 8241       | A  |		Call	0x1,0x41
0717 00db       |    |		Load_Top	At_Offset_3
0718 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0719 00db       |    |		Load_Top	At_Offset_3
071a 8241       | A  |		Call	0x1,0x41
071b 00db       |    |		Load_Top	At_Offset_3
071c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
071d 00db       |    |		Load_Top	At_Offset_3
071e 823e       | >  |		Call	0x1,0x3e
071f 00db       |    |		Load_Top	At_Offset_3
0720 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0721 00db       |    |		Load_Top	At_Offset_3
0722 8246       | F  |		Call	0x1,0x46
0723 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0724 0000 0000  |    |		.BLANK	0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072e       | .  |		.CONST	0x072e								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0002       |    |		.CONST	0x0002								; Number of locals
072b			INIT_0728:
072b 4900       |I   |		Short_Literal	0x100
072c 00db       |    |		Load_Top	At_Offset_3
072d 8240       | @  |		Call	0x1,0x40
072e			BODY_0728:
072e e231       | 1  |		Load	0x1,0x31
072f 0322       | "  |		Declare_Variable	Record
0730 00d8       |    |		Load_Top	At_Offset_0
0731 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0732 00d9       |    |		Load_Top	At_Offset_1
0733 00d9       |    |		Load_Top	At_Offset_1
0734 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0735 e5ff       |    |		Load	0x2,-0x1
0736 8242       | B  |		Call	0x1,0x42
0737 00d9       |    |		Load_Top	At_Offset_1
0738 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0739 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
073a 0000 0000  |    |		.BLANK	0000[0x6]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0748       | H  |		.CONST	0x0748								; Address of begin
0741 0004       |    |		.CONST	0x0004								; Address of exception handler
0742 0003       |    |		.CONST	0x0003								; Number of locals
0743			INIT_0740:
0743 4900       |I   |		Short_Literal	0x100
0744 00db       |    |		Load_Top	At_Offset_3
0745 8240       | @  |		Call	0x1,0x40
0746 e225       | %  |		Load	0x1,0x25
0747 0007       |    |		Action	Break_Optional
0748			BODY_0740:
0748 e238       | 8  |		Load	0x1,0x38
0749 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
074a e5ff       |    |		Load	0x2,-0x1
074b 823c       | <  |		Call	0x1,0x3c
074c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
074d e232       | 2  |		Load	0x1,0x32
074e 0322       | "  |		Declare_Variable	Record
074f 00d8       |    |		Load_Top	At_Offset_0
0750 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0751 00da       |    |		Load_Top	At_Offset_2
0752 00d9       |    |		Load_Top	At_Offset_1
0753 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0754 00d9       |    |		Load_Top	At_Offset_1
0755 00d9       |    |		Load_Top	At_Offset_1
0756 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0757 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075e       | ^  |		.CONST	0x075e								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0003       |    |		.CONST	0x0003								; Number of locals
075b			INIT_0758:
075b e225       | %  |		Load	0x1,0x25
075c 029f 0b43  |   C|		Declare_Subprogram	INIT_0b40,For_Call
075e			BODY_0758:
075e e238       | 8  |		Load	0x1,0x38
075f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0760 e5ff       |    |		Load	0x2,-0x1
0761 823c       | <  |		Call	0x1,0x3c
0762 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0763 8403       |    |		Call	0x2,0x3
0764 0831       | 1  |		Execute_Immediate	Raise,0x31
0765 0000 0000  |    |		.XXX[0x3]
0767 0000       |    |
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076c       | l  |		.CONST	0x076c								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0002       |    |		.CONST	0x0002								; Number of locals
076b			INIT_0768:
076b 00e1       |    |		Load_Encached	Boolean_Cache
076c			BODY_0768:
076c 00e1       |    |		Load_Encached	Boolean_Cache
076d e5ff       |    |		Load	0x2,-0x1
076e 823d       | =  |		Call	0x1,0x3d
076f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0770 e235       | 5  |		Load	0x1,0x35
0771 0322       | "  |		Declare_Variable	Record
0772 00d8       |    |		Load_Top	At_Offset_0
0773 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0774 00d9       |    |		Load_Top	At_Offset_1
0775 00d9       |    |		Load_Top	At_Offset_1
0776 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0777 4900       |I   |		Short_Literal	0x100
0778 e5ff       |    |		Load	0x2,-0x1
0779 8240       | @  |		Call	0x1,0x40
077a 00d9       |    |		Load_Top	At_Offset_1
077b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
077c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
077d 0000 0000  |    |		.XXX[0x3]
077f 0000       |    |
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783       |    |		.CONST	0x0783								; Address of begin
0781 0004       |    |		.CONST	0x0004								; Address of exception handler
0782 0001       |    |		.CONST	0x0001								; Number of locals
0783			BODY_0780:
0783			INIT_0780:
0783 00db       |    |		Load_Top	At_Offset_3
0784 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0785 00db       |    |		Load_Top	At_Offset_3
0786 823e       | >  |		Call	0x1,0x3e
0787 00db       |    |		Load_Top	At_Offset_3
0788 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0789 00db       |    |		Load_Top	At_Offset_3
078a 8246       | F  |		Call	0x1,0x46
078b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00db       |    |		Load_Top	At_Offset_3
0794 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0795 00db       |    |		Load_Top	At_Offset_3
0796 8243       | C  |		Call	0x1,0x43
0797 00db       |    |		Load_Top	At_Offset_3
0798 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0799 00db       |    |		Load_Top	At_Offset_3
079a 8246       | F  |		Call	0x1,0x46
079b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
079c 0000 0000  |    |		.BLANK	0000[0x4]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a7       |    |		.CONST	0x07a7								; Address of begin
07a1 07b9       |    |		.CONST	0x07b9								; Address of exception handler
07a2 0002       |    |		.CONST	0x0002								; Number of locals
07a3			INIT_07a0:
07a3 e230       | 0  |		Load	0x1,0x30
07a4 0322       | "  |		Declare_Variable	Record
07a5 00d8       |    |		Load_Top	At_Offset_0
07a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a7			BODY_07a0:
07a7 00e1       |    |		Load_Encached	Boolean_Cache
07a8 00d9       |    |		Load_Top	At_Offset_1
07a9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07aa 00da       |    |		Load_Top	At_Offset_2
07ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07ac e5ff       |    |		Load	0x2,-0x1
07ad e009       |    |		Load	0x0,0x9
07ae 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
07af 00d2       |    |		Pop_Control	Pop_Count_2
07b0 00d9       |    |		Load_Top	At_Offset_1
07b1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07b2 e224       | $  |		Load	0x1,0x24
07b3 00d9       |    |		Load_Top	At_Offset_1
07b4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
07b5 00d8       |    |		Load_Top	At_Offset_0
07b6 e5fe       |    |		Load	0x2,-0x2
07b7 017d       | }  |		Execute	Record,Structure_Write
07b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07b9			TRAP_07a0:
07b9 e04e       | N  |		Load	0x0,0x4e
07ba 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07bb 010f       |    |		Execute	Exception,Equal
07bc 6806       |h   |		Jump_Zero	0x7c3
07bd e04e       | N  |		Load	0x0,0x4e
07be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07bf 8226       | &  |		Call	0x1,0x26
07c0 e5fe       |    |		Load	0x2,-0x2
07c1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
07c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07c3 0100       |    |		Execute	Exception,Raise
07c4 0000 0000  |    |		.BLANK	0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cf       |    |		.CONST	0x07cf								; Address of begin
07c9 07dc       |    |		.CONST	0x07dc								; Address of exception handler
07ca 0002       |    |		.CONST	0x0002								; Number of locals
07cb			INIT_07c8:
07cb e22d       | -  |		Load	0x1,0x2d
07cc 0322       | "  |		Declare_Variable	Record
07cd 00d8       |    |		Load_Top	At_Offset_0
07ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07cf			BODY_07c8:
07cf 00d8       |    |		Load_Top	At_Offset_0
07d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d1 e5ff       |    |		Load	0x2,-0x1
07d2 e009       |    |		Load	0x0,0x9
07d3 185d       | ]  |		Execute	Package,Field_Execute,Field_Number 0x5d
07d4 00d1       |    |		Pop_Control	Pop_Count_1
07d5 e224       | $  |		Load	0x1,0x24
07d6 e5fe       |    |		Load	0x2,-0x2
07d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07d8 00d8       |    |		Load_Top	At_Offset_0
07d9 e5fe       |    |		Load	0x2,-0x2
07da 017d       | }  |		Execute	Record,Structure_Write
07db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07dc			TRAP_07c8:
07dc e04e       | N  |		Load	0x0,0x4e
07dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07de 010f       |    |		Execute	Exception,Equal
07df 6806       |h   |		Jump_Zero	0x7e6
07e0 e04e       | N  |		Load	0x0,0x4e
07e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07e2 8226       | &  |		Call	0x1,0x26
07e3 e5fe       |    |		Load	0x2,-0x2
07e4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07e5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07e6 0100       |    |		Execute	Exception,Raise
07e7 0000       |    |		.XXX[0x1]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb       |    |		.CONST	0x07eb								; Address of begin
07e9 07f7       |    |		.CONST	0x07f7								; Address of exception handler
07ea 0001       |    |		.CONST	0x0001								; Number of locals
07eb			BODY_07e8:
07eb			INIT_07e8:
07eb e00f       |    |		Load	0x0,0xf
07ec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07ed 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
07ee 00db       |    |		Load_Top	At_Offset_3
07ef e009       |    |		Load	0x0,0x9
07f0 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
07f1 e5fe       |    |		Load	0x2,-0x2
07f2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07f3 e224       | $  |		Load	0x1,0x24
07f4 e5fe       |    |		Load	0x2,-0x2
07f5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07f6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07f7			TRAP_07e8:
07f7 e04e       | N  |		Load	0x0,0x4e
07f8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07f9 010f       |    |		Execute	Exception,Equal
07fa 6806       |h   |		Jump_Zero	0x801
07fb e04e       | N  |		Load	0x0,0x4e
07fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07fd 8226       | &  |		Call	0x1,0x26
07fe e5fe       |    |		Load	0x2,-0x2
07ff 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0800 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0801 0100       |    |		Execute	Exception,Raise
0802 0000 0000  |    |		.BLANK	0000[0x6]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080f       |    |		.CONST	0x080f								; Address of begin
0809 0816       |    |		.CONST	0x0816								; Address of exception handler
080a 0002       |    |		.CONST	0x0002								; Number of locals
080b			INIT_0808:
080b e22d       | -  |		Load	0x1,0x2d
080c 0322       | "  |		Declare_Variable	Record
080d 00d8       |    |		Load_Top	At_Offset_0
080e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
080f			BODY_0808:
080f 00db       |    |		Load_Top	At_Offset_3
0810 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0811 e5ff       |    |		Load	0x2,-0x1
0812 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0813 e009       |    |		Load	0x0,0x9
0814 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
0815 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0816			TRAP_0808:
0816 e04e       | N  |		Load	0x0,0x4e
0817 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0818 010f       |    |		Execute	Exception,Equal
0819 6806       |h   |		Jump_Zero	0x820
081a e04e       | N  |		Load	0x0,0x4e
081b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
081c 8226       | &  |		Call	0x1,0x26
081d e5fe       |    |		Load	0x2,-0x2
081e 016d       | m  |		Execute	Variant_Record,Structure_Write
081f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0820 0100       |    |		Execute	Exception,Raise
0821 0000 0000  |    |		.BLANK	0000[0x7]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 0835       | 5  |		.CONST	0x0835								; 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 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
082d 00db       |    |		Load_Top	At_Offset_3
082e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
082f e009       |    |		Load	0x0,0x9
0830 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
0831 e224       | $  |		Load	0x1,0x24
0832 e5fe       |    |		Load	0x2,-0x2
0833 016d       | m  |		Execute	Variant_Record,Structure_Write
0834 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0835			TRAP_0828:
0835 e04e       | N  |		Load	0x0,0x4e
0836 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0837 010f       |    |		Execute	Exception,Equal
0838 6806       |h   |		Jump_Zero	0x83f
0839 e04e       | N  |		Load	0x0,0x4e
083a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
083b 8226       | &  |		Call	0x1,0x26
083c e5fe       |    |		Load	0x2,-0x2
083d 016d       | m  |		Execute	Variant_Record,Structure_Write
083e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
083f 0100       |    |		Execute	Exception,Raise
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843       | C  |		.CONST	0x0843								; Address of begin
0841 084f       | O  |		.CONST	0x084f								; Address of exception handler
0842 0001       |    |		.CONST	0x0001								; Number of locals
0843			BODY_0840:
0843			INIT_0840:
0843 00da       |    |		Load_Top	At_Offset_2
0844 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0845 00db       |    |		Load_Top	At_Offset_3
0846 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0847 e5ff       |    |		Load	0x2,-0x1
0848 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0849 e009       |    |		Load	0x0,0x9
084a 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
084b e224       | $  |		Load	0x1,0x24
084c e5fe       |    |		Load	0x2,-0x2
084d 016d       | m  |		Execute	Variant_Record,Structure_Write
084e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
084f			TRAP_0840:
084f e04e       | N  |		Load	0x0,0x4e
0850 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0851 010f       |    |		Execute	Exception,Equal
0852 6806       |h   |		Jump_Zero	0x859
0853 e04e       | N  |		Load	0x0,0x4e
0854 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0855 8226       | &  |		Call	0x1,0x26
0856 e5fe       |    |		Load	0x2,-0x2
0857 016d       | m  |		Execute	Variant_Record,Structure_Write
0858 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0859 0100       |    |		Execute	Exception,Raise
085a 0000 0000  |    |		.BLANK	0000[0x6]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863       | c  |		.CONST	0x0863								; Address of begin
0861 0870       | p  |		.CONST	0x0870								; Address of exception handler
0862 0001       |    |		.CONST	0x0001								; Number of locals
0863			BODY_0860:
0863			INIT_0860:
0863 4800       |H   |		Short_Literal	0x0
0864 00db       |    |		Load_Top	At_Offset_3
0865 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0866 e5ff       |    |		Load	0x2,-0x1
0867 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0868 e5ff       |    |		Load	0x2,-0x1
0869 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
086a e009       |    |		Load	0x0,0x9
086b 187e       | ~  |		Execute	Package,Field_Execute,Field_Number 0x7e
086c e224       | $  |		Load	0x1,0x24
086d e5fe       |    |		Load	0x2,-0x2
086e 016d       | m  |		Execute	Variant_Record,Structure_Write
086f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0870			TRAP_0860:
0870 e04e       | N  |		Load	0x0,0x4e
0871 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0872 010f       |    |		Execute	Exception,Equal
0873 6806       |h   |		Jump_Zero	0x87a
0874 e04e       | N  |		Load	0x0,0x4e
0875 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0876 8226       | &  |		Call	0x1,0x26
0877 e5fe       |    |		Load	0x2,-0x2
0878 016d       | m  |		Execute	Variant_Record,Structure_Write
0879 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
087a 0100       |    |		Execute	Exception,Raise
087b 0000 0000  |    |		.BLANK	0000[0x5]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0889       |    |		.CONST	0x0889								; Address of begin
0881 089e       |    |		.CONST	0x089e								; Address of exception handler
0882 0002       |    |		.CONST	0x0002								; Number of locals
0883			INIT_0880:
0883 4900       |I   |		Short_Literal	0x100
0884 e010       |    |		Load	0x0,0x10
0885 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0886 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0887 00d8       |    |		Load_Top	At_Offset_0
0888 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0889			BODY_0880:
0889 00d8       |    |		Load_Top	At_Offset_0
088a e5ff       |    |		Load	0x2,-0x1
088b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
088c e5ff       |    |		Load	0x2,-0x1
088d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
088e e009       |    |		Load	0x0,0x9
088f 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0890 00d1       |    |		Pop_Control	Pop_Count_1
0891 e22d       | -  |		Load	0x1,0x2d
0892 0322       | "  |		Declare_Variable	Record
0893 00d8       |    |		Load_Top	At_Offset_0
0894 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0895 00d9       |    |		Load_Top	At_Offset_1
0896 00d9       |    |		Load_Top	At_Offset_1
0897 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0898 e224       | $  |		Load	0x1,0x24
0899 00d9       |    |		Load_Top	At_Offset_1
089a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
089b e5fe       |    |		Load	0x2,-0x2
089c 017d       | }  |		Execute	Record,Structure_Write
089d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
089e			TRAP_0880:
089e e04e       | N  |		Load	0x0,0x4e
089f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08a0 010f       |    |		Execute	Exception,Equal
08a1 6806       |h   |		Jump_Zero	0x8a8
08a2 e04e       | N  |		Load	0x0,0x4e
08a3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08a4 8226       | &  |		Call	0x1,0x26
08a5 e5fe       |    |		Load	0x2,-0x2
08a6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08a8 0100       |    |		Execute	Exception,Raise
08a9 0000 0000  |    |		.BLANK	0000[0x7]
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b3       |    |		.CONST	0x08b3								; Address of begin
08b1 08bd       |    |		.CONST	0x08bd								; Address of exception handler
08b2 0001       |    |		.CONST	0x0001								; Number of locals
08b3			BODY_08b0:
08b3			INIT_08b0:
08b3 e009       |    |		Load	0x0,0x9
08b4 1b5f       | _  |		Execute	Package,Field_Read,Field_Number 0x5f
08b5 e009       |    |		Load	0x0,0x9
08b6 1877       | w  |		Execute	Package,Field_Execute,Field_Number 0x77
08b7 e5fe       |    |		Load	0x2,-0x2
08b8 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08b9 e224       | $  |		Load	0x1,0x24
08ba e5fe       |    |		Load	0x2,-0x2
08bb 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
08bc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08bd			TRAP_08b0:
08bd e04e       | N  |		Load	0x0,0x4e
08be 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08bf 010f       |    |		Execute	Exception,Equal
08c0 6806       |h   |		Jump_Zero	0x8c7
08c1 e04e       | N  |		Load	0x0,0x4e
08c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08c3 8226       | &  |		Call	0x1,0x26
08c4 e5fe       |    |		Load	0x2,-0x2
08c5 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
08c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08c7 0100       |    |		Execute	Exception,Raise
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08d1       |    |		.CONST	0x08d1								; Address of begin
08c9 08e3       |    |		.CONST	0x08e3								; Address of exception handler
08ca 0002       |    |		.CONST	0x0002								; Number of locals
08cb			INIT_08c8:
08cb 4900       |I   |		Short_Literal	0x100
08cc e010       |    |		Load	0x0,0x10
08cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08ce 1c08       |    |		Execute_Immediate	Run_Utility,0x8
08cf 00d8       |    |		Load_Top	At_Offset_0
08d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08d1			BODY_08c8:
08d1 00d8       |    |		Load_Top	At_Offset_0
08d2 e5ff       |    |		Load	0x2,-0x1
08d3 e009       |    |		Load	0x0,0x9
08d4 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
08d5 00d1       |    |		Pop_Control	Pop_Count_1
08d6 e22d       | -  |		Load	0x1,0x2d
08d7 0322       | "  |		Declare_Variable	Record
08d8 00d8       |    |		Load_Top	At_Offset_0
08d9 1c01       |    |		Execute_Immediate	Run_Utility,0x1
08da 00d9       |    |		Load_Top	At_Offset_1
08db 00d9       |    |		Load_Top	At_Offset_1
08dc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
08dd e224       | $  |		Load	0x1,0x24
08de 00d9       |    |		Load_Top	At_Offset_1
08df 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08e0 e5fe       |    |		Load	0x2,-0x2
08e1 017d       | }  |		Execute	Record,Structure_Write
08e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08e3			TRAP_08c8:
08e3 e04e       | N  |		Load	0x0,0x4e
08e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08e5 010f       |    |		Execute	Exception,Equal
08e6 6806       |h   |		Jump_Zero	0x8ed
08e7 e04e       | N  |		Load	0x0,0x4e
08e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08e9 8226       | &  |		Call	0x1,0x26
08ea e5fe       |    |		Load	0x2,-0x2
08eb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08ec 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08ed 0100       |    |		Execute	Exception,Raise
08ee 0000 0000  |    |		.XXX[0x2]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3       |    |		.CONST	0x08f3								; Address of begin
08f1 08fa       |    |		.CONST	0x08fa								; Address of exception handler
08f2 0001       |    |		.CONST	0x0001								; Number of locals
08f3			BODY_08f0:
08f3			INIT_08f0:
08f3 00da       |    |		Load_Top	At_Offset_2
08f4 e009       |    |		Load	0x0,0x9
08f5 1870       | p  |		Execute	Package,Field_Execute,Field_Number 0x70
08f6 e224       | $  |		Load	0x1,0x24
08f7 e5fe       |    |		Load	0x2,-0x2
08f8 016d       | m  |		Execute	Variant_Record,Structure_Write
08f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08fa			TRAP_08f0:
08fa e04e       | N  |		Load	0x0,0x4e
08fb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08fc 010f       |    |		Execute	Exception,Equal
08fd 6806       |h   |		Jump_Zero	0x904
08fe e04e       | N  |		Load	0x0,0x4e
08ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0900 8226       | &  |		Call	0x1,0x26
0901 e5fe       |    |		Load	0x2,-0x2
0902 016d       | m  |		Execute	Variant_Record,Structure_Write
0903 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0904 0100       |    |		Execute	Exception,Raise
0905 0000 0000  |    |		.XXX[0x3]
0907 0000       |    |
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b       |    |		.CONST	0x090b								; Address of begin
0909 0912       |    |		.CONST	0x0912								; Address of exception handler
090a 0001       |    |		.CONST	0x0001								; Number of locals
090b			BODY_0908:
090b			INIT_0908:
090b 00da       |    |		Load_Top	At_Offset_2
090c e009       |    |		Load	0x0,0x9
090d 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
090e e224       | $  |		Load	0x1,0x24
090f e5fe       |    |		Load	0x2,-0x2
0910 016d       | m  |		Execute	Variant_Record,Structure_Write
0911 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0912			TRAP_0908:
0912 e04e       | N  |		Load	0x0,0x4e
0913 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0914 010f       |    |		Execute	Exception,Equal
0915 6806       |h   |		Jump_Zero	0x91c
0916 e04e       | N  |		Load	0x0,0x4e
0917 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0918 8226       | &  |		Call	0x1,0x26
0919 e5fe       |    |		Load	0x2,-0x2
091a 016d       | m  |		Execute	Variant_Record,Structure_Write
091b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
091c 0100       |    |		Execute	Exception,Raise
091d 0000 0000  |    |		.XXX[0x3]
091f 0000       |    |
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0927       | '  |		.CONST	0x0927								; Address of begin
0921 0934       | 4  |		.CONST	0x0934								; Address of exception handler
0922 0002       |    |		.CONST	0x0002								; Number of locals
0923			INIT_0920:
0923 e22d       | -  |		Load	0x1,0x2d
0924 0322       | "  |		Declare_Variable	Record
0925 00d8       |    |		Load_Top	At_Offset_0
0926 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0927			BODY_0920:
0927 00d8       |    |		Load_Top	At_Offset_0
0928 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0929 e5ff       |    |		Load	0x2,-0x1
092a e009       |    |		Load	0x0,0x9
092b 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
092c 00d1       |    |		Pop_Control	Pop_Count_1
092d e224       | $  |		Load	0x1,0x24
092e e5fe       |    |		Load	0x2,-0x2
092f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0930 00d8       |    |		Load_Top	At_Offset_0
0931 e5fe       |    |		Load	0x2,-0x2
0932 017d       | }  |		Execute	Record,Structure_Write
0933 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0934			TRAP_0920:
0934 e04e       | N  |		Load	0x0,0x4e
0935 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0936 010f       |    |		Execute	Exception,Equal
0937 6806       |h   |		Jump_Zero	0x93e
0938 e04e       | N  |		Load	0x0,0x4e
0939 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
093a 8226       | &  |		Call	0x1,0x26
093b e5fe       |    |		Load	0x2,-0x2
093c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
093d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
093e 0100       |    |		Execute	Exception,Raise
093f 0000       |    |		.XXX[0x1]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943       | C  |		.CONST	0x0943								; Address of begin
0941 094a       | J  |		.CONST	0x094a								; Address of exception handler
0942 0001       |    |		.CONST	0x0001								; Number of locals
0943			BODY_0940:
0943			INIT_0940:
0943 00da       |    |		Load_Top	At_Offset_2
0944 e009       |    |		Load	0x0,0x9
0945 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
0946 e224       | $  |		Load	0x1,0x24
0947 e5fe       |    |		Load	0x2,-0x2
0948 016d       | m  |		Execute	Variant_Record,Structure_Write
0949 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
094a			TRAP_0940:
094a e04e       | N  |		Load	0x0,0x4e
094b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
094c 010f       |    |		Execute	Exception,Equal
094d 6806       |h   |		Jump_Zero	0x954
094e e04e       | N  |		Load	0x0,0x4e
094f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0950 8226       | &  |		Call	0x1,0x26
0951 e5fe       |    |		Load	0x2,-0x2
0952 016d       | m  |		Execute	Variant_Record,Structure_Write
0953 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0954 0100       |    |		Execute	Exception,Raise
0955 0000 0000  |    |		.XXX[0x3]
0957 0000       |    |
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095f       | _  |		.CONST	0x095f								; Address of begin
0959 0969       | i  |		.CONST	0x0969								; Address of exception handler
095a 0002       |    |		.CONST	0x0002								; Number of locals
095b			INIT_0958:
095b e234       | 4  |		Load	0x1,0x34
095c 0322       | "  |		Declare_Variable	Record
095d 00d8       |    |		Load_Top	At_Offset_0
095e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
095f			BODY_0958:
095f 00e1       |    |		Load_Encached	Boolean_Cache
0960 e5ff       |    |		Load	0x2,-0x1
0961 e009       |    |		Load	0x0,0x9
0962 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0963 e5fe       |    |		Load	0x2,-0x2
0964 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0965 e224       | $  |		Load	0x1,0x24
0966 e5fe       |    |		Load	0x2,-0x2
0967 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0968 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0969			TRAP_0958:
0969 e04e       | N  |		Load	0x0,0x4e
096a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
096b 010f       |    |		Execute	Exception,Equal
096c 6806       |h   |		Jump_Zero	0x973
096d e04e       | N  |		Load	0x0,0x4e
096e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
096f 8226       | &  |		Call	0x1,0x26
0970 e5fe       |    |		Load	0x2,-0x2
0971 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0972 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0973 0100       |    |		Execute	Exception,Raise
0974 0000 0000  |    |		.BLANK	0000[0x4]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 097b       | {  |		.CONST	0x097b								; Address of begin
0979 0988       |    |		.CONST	0x0988								; Address of exception handler
097a 0001       |    |		.CONST	0x0001								; Number of locals
097b			BODY_0978:
097b			INIT_0978:
097b e00f       |    |		Load	0x0,0xf
097c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
097d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
097e 4800       |H   |		Short_Literal	0x0
097f e5ff       |    |		Load	0x2,-0x1
0980 e009       |    |		Load	0x0,0x9
0981 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
0982 e5fe       |    |		Load	0x2,-0x2
0983 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0984 e224       | $  |		Load	0x1,0x24
0985 e5fe       |    |		Load	0x2,-0x2
0986 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0987 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0988			TRAP_0978:
0988 e04e       | N  |		Load	0x0,0x4e
0989 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
098a 010f       |    |		Execute	Exception,Equal
098b 6806       |h   |		Jump_Zero	0x992
098c e04e       | N  |		Load	0x0,0x4e
098d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
098e 8226       | &  |		Call	0x1,0x26
098f e5fe       |    |		Load	0x2,-0x2
0990 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0991 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0992 0100       |    |		Execute	Exception,Raise
0993 0000 0000  |    |		.BLANK	0000[0x5]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099b       |    |		.CONST	0x099b								; Address of begin
0999 09a8       |    |		.CONST	0x09a8								; Address of exception handler
099a 0001       |    |		.CONST	0x0001								; Number of locals
099b			BODY_0998:
099b			INIT_0998:
099b e00f       |    |		Load	0x0,0xf
099c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
099d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
099e 4800       |H   |		Short_Literal	0x0
099f e5ff       |    |		Load	0x2,-0x1
09a0 e009       |    |		Load	0x0,0x9
09a1 187c       | |  |		Execute	Package,Field_Execute,Field_Number 0x7c
09a2 e5fe       |    |		Load	0x2,-0x2
09a3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09a4 e224       | $  |		Load	0x1,0x24
09a5 e5fe       |    |		Load	0x2,-0x2
09a6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
09a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09a8			TRAP_0998:
09a8 e04e       | N  |		Load	0x0,0x4e
09a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09aa 010f       |    |		Execute	Exception,Equal
09ab 6806       |h   |		Jump_Zero	0x9b2
09ac e04e       | N  |		Load	0x0,0x4e
09ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09ae 8226       | &  |		Call	0x1,0x26
09af e5fe       |    |		Load	0x2,-0x2
09b0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
09b1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09b2 0100       |    |		Execute	Exception,Raise
09b3 0000 0000  |    |		.BLANK	0000[0x5]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb       |    |		.CONST	0x09bb								; Address of begin
09b9 09c9       |    |		.CONST	0x09c9								; Address of exception handler
09ba 0001       |    |		.CONST	0x0001								; Number of locals
09bb			BODY_09b8:
09bb			INIT_09b8:
09bb e009       |    |		Load	0x0,0x9
09bc 1b5e       | ^  |		Execute	Package,Field_Read,Field_Number 0x5e
09bd 00db       |    |		Load_Top	At_Offset_3
09be 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09bf e5ff       |    |		Load	0x2,-0x1
09c0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
09c1 e009       |    |		Load	0x0,0x9
09c2 1872       | r  |		Execute	Package,Field_Execute,Field_Number 0x72
09c3 e5fe       |    |		Load	0x2,-0x2
09c4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09c5 e224       | $  |		Load	0x1,0x24
09c6 e5fe       |    |		Load	0x2,-0x2
09c7 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09c9			TRAP_09b8:
09c9 e04e       | N  |		Load	0x0,0x4e
09ca 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09cb 010f       |    |		Execute	Exception,Equal
09cc 6806       |h   |		Jump_Zero	0x9d3
09cd e04e       | N  |		Load	0x0,0x4e
09ce 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09cf 8226       | &  |		Call	0x1,0x26
09d0 e5fe       |    |		Load	0x2,-0x2
09d1 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09d3 0100       |    |		Execute	Exception,Raise
09d4 0000 0000  |    |		.BLANK	0000[0x4]
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09db       |    |		.CONST	0x09db								; Address of begin
09d9 09e9       |    |		.CONST	0x09e9								; Address of exception handler
09da 0001       |    |		.CONST	0x0001								; Number of locals
09db			BODY_09d8:
09db			INIT_09d8:
09db e009       |    |		Load	0x0,0x9
09dc 1b5e       | ^  |		Execute	Package,Field_Read,Field_Number 0x5e
09dd 00db       |    |		Load_Top	At_Offset_3
09de 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09df e5ff       |    |		Load	0x2,-0x1
09e0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
09e1 e009       |    |		Load	0x0,0x9
09e2 1876       | v  |		Execute	Package,Field_Execute,Field_Number 0x76
09e3 e5fe       |    |		Load	0x2,-0x2
09e4 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09e5 e224       | $  |		Load	0x1,0x24
09e6 e5fe       |    |		Load	0x2,-0x2
09e7 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09e8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09e9			TRAP_09d8:
09e9 e04e       | N  |		Load	0x0,0x4e
09ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09eb 010f       |    |		Execute	Exception,Equal
09ec 6806       |h   |		Jump_Zero	0x9f3
09ed e04e       | N  |		Load	0x0,0x4e
09ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09ef 8226       | &  |		Call	0x1,0x26
09f0 e5fe       |    |		Load	0x2,-0x2
09f1 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09f2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09f3 0100       |    |		Execute	Exception,Raise
09f4 0000 0000  |    |		.BLANK	0000[0x4]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09ff       |    |		.CONST	0x09ff								; Address of begin
09f9 0a0b       |    |		.CONST	0x0a0b								; Address of exception handler
09fa 0002       |    |		.CONST	0x0002								; Number of locals
09fb			INIT_09f8:
09fb e22d       | -  |		Load	0x1,0x2d
09fc 0322       | "  |		Declare_Variable	Record
09fd 00d8       |    |		Load_Top	At_Offset_0
09fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09ff			BODY_09f8:
09ff 00d8       |    |		Load_Top	At_Offset_0
0a00 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a01 e009       |    |		Load	0x0,0x9
0a02 1873       | s  |		Execute	Package,Field_Execute,Field_Number 0x73
0a03 00d1       |    |		Pop_Control	Pop_Count_1
0a04 e224       | $  |		Load	0x1,0x24
0a05 00d9       |    |		Load_Top	At_Offset_1
0a06 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a07 00d8       |    |		Load_Top	At_Offset_0
0a08 e5fe       |    |		Load	0x2,-0x2
0a09 017d       | }  |		Execute	Record,Structure_Write
0a0a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a0b			TRAP_09f8:
0a0b e04e       | N  |		Load	0x0,0x4e
0a0c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a0d 010f       |    |		Execute	Exception,Equal
0a0e 6806       |h   |		Jump_Zero	0xa15
0a0f e04e       | N  |		Load	0x0,0x4e
0a10 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a11 8226       | &  |		Call	0x1,0x26
0a12 e5fe       |    |		Load	0x2,-0x2
0a13 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a14 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a15 0100       |    |		Execute	Exception,Raise
0a16 0000 0000  |    |		.XXX[0x2]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a1f       |    |		.CONST	0x0a1f								; Address of begin
0a19 0a2b       | +  |		.CONST	0x0a2b								; Address of exception handler
0a1a 0002       |    |		.CONST	0x0002								; Number of locals
0a1b			INIT_0a18:
0a1b e22d       | -  |		Load	0x1,0x2d
0a1c 0322       | "  |		Declare_Variable	Record
0a1d 00d8       |    |		Load_Top	At_Offset_0
0a1e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a1f			BODY_0a18:
0a1f 00d8       |    |		Load_Top	At_Offset_0
0a20 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a21 e009       |    |		Load	0x0,0x9
0a22 1874       | t  |		Execute	Package,Field_Execute,Field_Number 0x74
0a23 00d1       |    |		Pop_Control	Pop_Count_1
0a24 e224       | $  |		Load	0x1,0x24
0a25 00d9       |    |		Load_Top	At_Offset_1
0a26 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a27 00d8       |    |		Load_Top	At_Offset_0
0a28 e5fe       |    |		Load	0x2,-0x2
0a29 017d       | }  |		Execute	Record,Structure_Write
0a2a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a2b			TRAP_0a18:
0a2b e04e       | N  |		Load	0x0,0x4e
0a2c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a2d 010f       |    |		Execute	Exception,Equal
0a2e 6806       |h   |		Jump_Zero	0xa35
0a2f e04e       | N  |		Load	0x0,0x4e
0a30 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a31 8226       | &  |		Call	0x1,0x26
0a32 e5fe       |    |		Load	0x2,-0x2
0a33 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a34 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a35 0100       |    |		Execute	Exception,Raise
0a36 0000 0000  |    |		.XXX[0x2]
0a38 ; --------------------------------------------------------------------------------------
0a38 ; SUBPROGRAM
0a38 ; --------------------------------------------------------------------------------------
0a38 0a3b       | ;  |		.CONST	0x0a3b								; Address of begin
0a39 0a42       | B  |		.CONST	0x0a42								; Address of exception handler
0a3a 0001       |    |		.CONST	0x0001								; Number of locals
0a3b			BODY_0a38:
0a3b			INIT_0a38:
0a3b 00da       |    |		Load_Top	At_Offset_2
0a3c e009       |    |		Load	0x0,0x9
0a3d 186d       | m  |		Execute	Package,Field_Execute,Field_Number 0x6d
0a3e e224       | $  |		Load	0x1,0x24
0a3f e5fe       |    |		Load	0x2,-0x2
0a40 016d       | m  |		Execute	Variant_Record,Structure_Write
0a41 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a42			TRAP_0a38:
0a42 e04e       | N  |		Load	0x0,0x4e
0a43 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a44 010f       |    |		Execute	Exception,Equal
0a45 6806       |h   |		Jump_Zero	0xa4c
0a46 e04e       | N  |		Load	0x0,0x4e
0a47 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a48 8226       | &  |		Call	0x1,0x26
0a49 e5fe       |    |		Load	0x2,-0x2
0a4a 016d       | m  |		Execute	Variant_Record,Structure_Write
0a4b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a4c 0100       |    |		Execute	Exception,Raise
0a4d 0000 0000  |    |		.XXX[0x3]
0a4f 0000       |    |
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a53       | S  |		.CONST	0x0a53								; Address of begin
0a51 0a5a       | Z  |		.CONST	0x0a5a								; Address of exception handler
0a52 0001       |    |		.CONST	0x0001								; Number of locals
0a53			BODY_0a50:
0a53			INIT_0a50:
0a53 00da       |    |		Load_Top	At_Offset_2
0a54 e009       |    |		Load	0x0,0x9
0a55 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
0a56 e224       | $  |		Load	0x1,0x24
0a57 e5fe       |    |		Load	0x2,-0x2
0a58 016d       | m  |		Execute	Variant_Record,Structure_Write
0a59 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a5a			TRAP_0a50:
0a5a e04e       | N  |		Load	0x0,0x4e
0a5b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a5c 010f       |    |		Execute	Exception,Equal
0a5d 6806       |h   |		Jump_Zero	0xa64
0a5e e04e       | N  |		Load	0x0,0x4e
0a5f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a60 8226       | &  |		Call	0x1,0x26
0a61 e5fe       |    |		Load	0x2,-0x2
0a62 016d       | m  |		Execute	Variant_Record,Structure_Write
0a63 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a64 0100       |    |		Execute	Exception,Raise
0a65 0000 0000  |    |		.XXX[0x3]
0a67 0000       |    |
0a68 ; --------------------------------------------------------------------------------------
0a68 ; SUBPROGRAM
0a68 ; --------------------------------------------------------------------------------------
0a68 0a6b       | k  |		.CONST	0x0a6b								; Address of begin
0a69 0a71       | q  |		.CONST	0x0a71								; Address of exception handler
0a6a 0001       |    |		.CONST	0x0001								; Number of locals
0a6b			BODY_0a68:
0a6b			INIT_0a68:
0a6b e009       |    |		Load	0x0,0x9
0a6c 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0a6d e224       | $  |		Load	0x1,0x24
0a6e e5fe       |    |		Load	0x2,-0x2
0a6f 016d       | m  |		Execute	Variant_Record,Structure_Write
0a70 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a71			TRAP_0a68:
0a71 e04e       | N  |		Load	0x0,0x4e
0a72 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a73 010f       |    |		Execute	Exception,Equal
0a74 6806       |h   |		Jump_Zero	0xa7b
0a75 e04e       | N  |		Load	0x0,0x4e
0a76 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a77 8226       | &  |		Call	0x1,0x26
0a78 e5fe       |    |		Load	0x2,-0x2
0a79 016d       | m  |		Execute	Variant_Record,Structure_Write
0a7a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a7b 0100       |    |		Execute	Exception,Raise
0a7c 0000 0000  |    |		.BLANK	0000[0x4]
0a80 ; --------------------------------------------------------------------------------------
0a80 ; SUBPROGRAM
0a80 ; --------------------------------------------------------------------------------------
0a80 0a83       |    |		.CONST	0x0a83								; Address of begin
0a81 0a8a       |    |		.CONST	0x0a8a								; Address of exception handler
0a82 0001       |    |		.CONST	0x0001								; Number of locals
0a83			BODY_0a80:
0a83			INIT_0a80:
0a83 00da       |    |		Load_Top	At_Offset_2
0a84 e009       |    |		Load	0x0,0x9
0a85 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
0a86 e224       | $  |		Load	0x1,0x24
0a87 e5fe       |    |		Load	0x2,-0x2
0a88 016d       | m  |		Execute	Variant_Record,Structure_Write
0a89 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a8a			TRAP_0a80:
0a8a e04e       | N  |		Load	0x0,0x4e
0a8b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a8c 010f       |    |		Execute	Exception,Equal
0a8d 6806       |h   |		Jump_Zero	0xa94
0a8e e04e       | N  |		Load	0x0,0x4e
0a8f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a90 8226       | &  |		Call	0x1,0x26
0a91 e5fe       |    |		Load	0x2,-0x2
0a92 016d       | m  |		Execute	Variant_Record,Structure_Write
0a93 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a94 0100       |    |		Execute	Exception,Raise
0a95 0000 0000  |    |		.XXX[0x3]
0a97 0000       |    |
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0aa1       |    |		.CONST	0x0aa1								; Address of begin
0a99 0ab6       |    |		.CONST	0x0ab6								; Address of exception handler
0a9a 0002       |    |		.CONST	0x0002								; Number of locals
0a9b			INIT_0a98:
0a9b 4900       |I   |		Short_Literal	0x100
0a9c e010       |    |		Load	0x0,0x10
0a9d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a9e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a9f 00d8       |    |		Load_Top	At_Offset_0
0aa0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0aa1			BODY_0a98:
0aa1 00d8       |    |		Load_Top	At_Offset_0
0aa2 e5ff       |    |		Load	0x2,-0x1
0aa3 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0aa4 e5ff       |    |		Load	0x2,-0x1
0aa5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0aa6 e009       |    |		Load	0x0,0x9
0aa7 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
0aa8 00d1       |    |		Pop_Control	Pop_Count_1
0aa9 e22d       | -  |		Load	0x1,0x2d
0aaa 0322       | "  |		Declare_Variable	Record
0aab 00d8       |    |		Load_Top	At_Offset_0
0aac 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0aad 00d9       |    |		Load_Top	At_Offset_1
0aae 00d9       |    |		Load_Top	At_Offset_1
0aaf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0ab0 e224       | $  |		Load	0x1,0x24
0ab1 00d9       |    |		Load_Top	At_Offset_1
0ab2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ab3 e5fe       |    |		Load	0x2,-0x2
0ab4 017d       | }  |		Execute	Record,Structure_Write
0ab5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ab6			TRAP_0a98:
0ab6 e04e       | N  |		Load	0x0,0x4e
0ab7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ab8 010f       |    |		Execute	Exception,Equal
0ab9 6806       |h   |		Jump_Zero	0xac0
0aba e04e       | N  |		Load	0x0,0x4e
0abb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0abc 8226       | &  |		Call	0x1,0x26
0abd e5fe       |    |		Load	0x2,-0x2
0abe 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0abf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ac0 0100       |    |		Execute	Exception,Raise
0ac1 0000 0000  |    |		.BLANK	0000[0x7]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0acf       |    |		.CONST	0x0acf								; Address of begin
0ac9 0adb       |    |		.CONST	0x0adb								; Address of exception handler
0aca 0002       |    |		.CONST	0x0002								; Number of locals
0acb			INIT_0ac8:
0acb e22d       | -  |		Load	0x1,0x2d
0acc 0322       | "  |		Declare_Variable	Record
0acd 00d8       |    |		Load_Top	At_Offset_0
0ace 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0acf			BODY_0ac8:
0acf 00d8       |    |		Load_Top	At_Offset_0
0ad0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ad1 e009       |    |		Load	0x0,0x9
0ad2 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
0ad3 00d1       |    |		Pop_Control	Pop_Count_1
0ad4 e224       | $  |		Load	0x1,0x24
0ad5 00d9       |    |		Load_Top	At_Offset_1
0ad6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ad7 00d8       |    |		Load_Top	At_Offset_0
0ad8 e5fe       |    |		Load	0x2,-0x2
0ad9 017d       | }  |		Execute	Record,Structure_Write
0ada 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0adb			TRAP_0ac8:
0adb e04e       | N  |		Load	0x0,0x4e
0adc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0add 010f       |    |		Execute	Exception,Equal
0ade 6806       |h   |		Jump_Zero	0xae5
0adf e04e       | N  |		Load	0x0,0x4e
0ae0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ae1 8226       | &  |		Call	0x1,0x26
0ae2 e5fe       |    |		Load	0x2,-0x2
0ae3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ae4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ae5 0100       |    |		Execute	Exception,Raise
0ae6 0000 0000  |    |		.XXX[0x2]
0ae8 ; --------------------------------------------------------------------------------------
0ae8 ; SUBPROGRAM
0ae8 ; --------------------------------------------------------------------------------------
0ae8 0aeb       |    |		.CONST	0x0aeb								; Address of begin
0ae9 0af2       |    |		.CONST	0x0af2								; Address of exception handler
0aea 0001       |    |		.CONST	0x0001								; Number of locals
0aeb			BODY_0ae8:
0aeb			INIT_0ae8:
0aeb 00da       |    |		Load_Top	At_Offset_2
0aec e009       |    |		Load	0x0,0x9
0aed 187b       | {  |		Execute	Package,Field_Execute,Field_Number 0x7b
0aee e224       | $  |		Load	0x1,0x24
0aef e5fe       |    |		Load	0x2,-0x2
0af0 016d       | m  |		Execute	Variant_Record,Structure_Write
0af1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0af2			TRAP_0ae8:
0af2 e04e       | N  |		Load	0x0,0x4e
0af3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0af4 010f       |    |		Execute	Exception,Equal
0af5 6806       |h   |		Jump_Zero	0xafc
0af6 e04e       | N  |		Load	0x0,0x4e
0af7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0af8 8226       | &  |		Call	0x1,0x26
0af9 e5fe       |    |		Load	0x2,-0x2
0afa 016d       | m  |		Execute	Variant_Record,Structure_Write
0afb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0afc 0100       |    |		Execute	Exception,Raise
0afd 0000 0000  |    |		.XXX[0x3]
0aff 0000       |    |
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b03       |    |		.CONST	0x0b03								; Address of begin
0b01 0004       |    |		.CONST	0x0004								; Address of exception handler
0b02 0001       |    |		.CONST	0x0001								; Number of locals
0b03			BODY_0b00:
0b03			INIT_0b00:
0b03 4800       |H   |		Short_Literal	0x0
0b04 00db       |    |		Load_Top	At_Offset_3
0b05 01d7       |    |		Execute	Vector,Field_Read
0b06 0908       |    |		Execute_Immediate	Binary_Scale,0x8
0b07 4801       |H   |		Short_Literal	0x1
0b08 e5ff       |    |		Load	0x2,-0x1
0b09 01d7       |    |		Execute	Vector,Field_Read
0b0a 0273       | s  |		Execute	Discrete,Plus
0b0b 00d8       |    |		Load_Top	At_Offset_0
0b0c e20d       |    |		Load	0x1,0xd
0b0d 0260       | `  |		Execute	Discrete,In_Type
0b0e 7001       |p   |		Jump_Nonzero	0xb10
0b0f 0801       |    |		Execute_Immediate	Raise,0x1
0b10 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b11 0000 0000  |    |		.BLANK	0000[0x7]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b21       | !  |		.CONST	0x0b21								; Address of begin
0b19 0004       |    |		.CONST	0x0004								; Address of exception handler
0b1a 0003       |    |		.CONST	0x0003								; Number of locals
0b1b			INIT_0b18:
0b1b e04f       | O  |		Load	0x0,0x4f
0b1c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b1d 02c7       |    |		Declare_Variable	Any
0b1e 00d8       |    |		Load_Top	At_Offset_0
0b1f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b20 00e1       |    |		Load_Encached	Boolean_Cache
0b21			BODY_0b18:
0b21 4801       |H   |		Short_Literal	0x1
0b22 e050       | P  |		Load	0x0,0x50
0b23 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b24 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b25 e5ff       |    |		Load	0x2,-0x1
0b26 e051       | Q  |		Load	0x0,0x51
0b27 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b28 c402       |    |		Store	0x2,0x2
0b29 00d9       |    |		Load_Top	At_Offset_1
0b2a e04f       | O  |		Load	0x0,0x4f
0b2b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b2c 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0b2d 680e       |h   |		Jump_Zero	0xb3c
0b2e 00d9       |    |		Load_Top	At_Offset_1
0b2f e04f       | O  |		Load	0x0,0x4f
0b30 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b31 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0b32 6802       |h   |		Jump_Zero	0xb35
0b33 4801       |H   |		Short_Literal	0x1
0b34 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b35 0092 0b56  |   V|		Action	Push_String_Extended,0xb56					; "The Diagram Name refers to a invalid object"
0b37 e052       | R  |		Load	0x0,0x52
0b38 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0b39 e04e       | N  |		Load	0x0,0x4e
0b3a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b3b 0257       | W  |		Execute	Discrete,Raise
0b3c 4800       |H   |		Short_Literal	0x0
0b3d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b3e 0000 0000  |    |		.XXX[0x2]
0b40 ; --------------------------------------------------------------------------------------
0b40 ; SUBPROGRAM
0b40 ; --------------------------------------------------------------------------------------
0b40 0b46       | F  |		.CONST	0x0b46								; Address of begin
0b41 0004       |    |		.CONST	0x0004								; Address of exception handler
0b42 0002       |    |		.CONST	0x0002								; Number of locals
0b43			INIT_0b40:
0b43 4900       |I   |		Short_Literal	0x100
0b44 e5ff       |    |		Load	0x2,-0x1
0b45 8240       | @  |		Call	0x1,0x40
0b46			BODY_0b40:
0b46 e233       | 3  |		Load	0x1,0x33
0b47 0322       | "  |		Declare_Variable	Record
0b48 00d8       |    |		Load_Top	At_Offset_0
0b49 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0b4a e402       |    |		Load	0x2,0x2
0b4b 00d9       |    |		Load_Top	At_Offset_1
0b4c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b4d 00d9       |    |		Load_Top	At_Offset_1
0b4e 00d9       |    |		Load_Top	At_Offset_1
0b4f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b50 e5ff       |    |		Load	0x2,-0x1
0b51 8242       | B  |		Call	0x1,0x42
0b52 00d9       |    |		Load_Top	At_Offset_1
0b53 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0b54 00cb       |    |		Action	Pop_Block_With_Result
0b55 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b56 ; --------------------------------------------------------------------------------------
0b56 ; STRING TABLE
0b56 ; --------------------------------------------------------------------------------------
0b56 0004       |    |		.STRTAB	0x0004->0x0b58							; "The Diagram Name refers to a invalid object"
0b57 002d       | -  |		.STREND 0x002d->0x0b6d
0b58 5468 6520  |The |		.STRTAB_STRINGS
0b6e 0000 0000  |    |		.XXX[0x2]
0b70 ; --------------------------------------------------------------------------------------
0b70 ; Debug Table
0b70 ; --------------------------------------------------------------------------------------
0b70 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0fc7,0x0000,0x0001,0x0000
0b76 654d 86e0  |eM  |		.XXX[0x8a]
0b78 5529 501a  |U)P |
0b7a 36e4 c998  |6   |
0b7c 0017 c796  |    |
0b7e 2674 c9cb  |&t  |
0b80 9293 c661  |   a|
0b82 ddbf 7efe  |  ~ |
0b84 041c 5df8  |  ] |
0b86 aa8d 1b8b  |    |
0b88 15c1 9762  |   b|
0b8a 0170 0ea2  | p  |
0b8c 18bd 5e69  |  ^i|
0b8e d39b ac5e  |   ^|
0b90 c183 0a19  |    |
0b92 9770 e036  | p 6|
0b94 50c5 5072  |P Pr|
0b96 41bc 0037  |A  7|
0b98 c616 2a70  |  *p|
0b9a c1bb 9a90  |    |
0b9c a78e 1b3b  |   ;|
0b9e b33e d917  | >  |
0ba0 9cf8 e91d  |    |
0ba2 c5be e0ce  |    |
0ba4 909a 5645  |  VE|
0ba6 8dcb c4dd  |    |
0ba8 c262 52e7  | bR |
0baa 3399 e7b7  |3   |
0bac 42e2 7f3a  |B  :|
0bae 416c 74d7  |Alt |
0bb0 4605 cf5c  |F  \|
0bb2 0c77 c494  | w  |
0bb4 2070 e1b3  | p  |
0bb6 4a32 e668  |J2 h|
0bb8 9ab5 e742  |   B|
0bba de34 5865  | 4Xe|
0bbc 8bb5 77df  |  w |
0bbe 798d 2734  |y '4|
0bc0 8064 0079  | d y|
0bc2 f184 15cd  |    |
0bc4 92f0 871d  |    |
0bc6 ff46 945e  | F ^|
0bc8 65a4 16fb  |e   |
0bca d779 a826  | y &|
0bcc d81b 0175  |   u|
0bce 62d1 8511  |b   |
0bd0 69d0 c247  |i  G|
0bd2 1963 4aa4  | cJ |
0bd4 1d72 1afb  | r  |
0bd6 35c1 5209  |5 R |
0bd8 2cc7 e314  |,   |
0bda 5c85 3906  |\ 9 |
0bdc 1d99 ba70  |   p|
0bde c412 2597  |  % |
0be0 8105 1e2a  |   *|
0be2 3927 1489  |9'  |
0be4 70d3 2254  |p "T|
0be6 5035 d405  |P5  |
0be8 c306 30d7  |  0 |
0bea 7a61 1a39  |za 9|
0bec 0348 800d  | H  |
0bee bc68 ea1b  | h  |
0bf0 6244 c803  |bD  |
0bf2 5582 2338  |U #8|
0bf4 e667 8e3b  | g ;|
0bf6 37d7 e28e  |7   |
0bf8 14d0 f0d8  |    |
0bfa 9144 d261  | D a|
0bfc d890 3501  |  5 |
0bfe f502 8e20  |    |