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

⟦30ac5eaf9⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04b8       |    |		.CONST	0x04b8								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0032       | 2  |		.CONST	0x0032								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0011 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0013 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0015 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0017 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0019 00bf       |    |		Action	Accept_Activation
001a 029d 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call
001c 029d 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call
001e 029d 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call
0020 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
0022 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
0024 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0031 00c7       |    |		Action	Elaborate_Subprogram
0032			BODY_0008:
0032 00bc       |    |		Action	Signal_Activated
0033 00bb       |    |		Action	Signal_Completion
0034 0000 0000  |    |		.BLANK	0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 004a       | J  |		.CONST	0x004a								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0004       |    |		.CONST	0x0004								; Number of locals
003b			INIT_0038:
003b e001       |    |		Load	0x0,0x1
003c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003d 02c7       |    |		Declare_Variable	Any
003e 00d8       |    |		Load_Top	At_Offset_0
003f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0040 e001       |    |		Load	0x0,0x1
0041 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0042 02c7       |    |		Declare_Variable	Any
0043 00d8       |    |		Load_Top	At_Offset_0
0044 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0045 e001       |    |		Load	0x0,0x1
0046 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0047 02c7       |    |		Declare_Variable	Any
0048 00d8       |    |		Load_Top	At_Offset_0
0049 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004a			BODY_0038:
004a e5fa       |    |		Load	0x2,-0x6
004b 4801       |H   |		Short_Literal	0x1
004c e5ff       |    |		Load	0x2,-0x1
004d e002       |    |		Load	0x0,0x2
004e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
004f c402       |    |		Store	0x2,0x2
0050 e5fa       |    |		Load	0x2,-0x6
0051 60ba       |`   |		Indirect_Literal	Discrete,0x10c,{0x00000000, 0x00008870}
0052 e402       |    |		Load	0x2,0x2
0053 8214       |    |		Call	0x1,0x14
0054 00d8       |    |		Load_Top	At_Offset_0
0055 e5fa       |    |		Load	0x2,-0x6
0056 e402       |    |		Load	0x2,0x2
0057 8217       |    |		Call	0x1,0x17
0058 c404       |    |		Store	0x2,0x4
0059 e5fd       |    |		Load	0x2,-0x3
005a e001       |    |		Load	0x0,0x1
005b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
005c 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
005d 01db       |    |		Execute	Vector,Length
005e 681a       |h   |		Jump_Zero	0x79
005f e5fa       |    |		Load	0x2,-0x6
0060 4801       |H   |		Short_Literal	0x1
0061 4801       |H   |		Short_Literal	0x1
0062 e003       |    |		Load	0x0,0x3
0063 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0064 035b       | [  |		Declare_Type	Array,Constrained
0065 0337       | 7  |		Declare_Variable	Array
0066 e5fd       |    |		Load	0x2,-0x3
0067 e003       |    |		Load	0x0,0x3
0068 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0069 e003       |    |		Load	0x0,0x3
006a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006b 0119       |    |		Execute	Any,Check_In_Formal_Type
006c 4801       |H   |		Short_Literal	0x1
006d 00da       |    |		Load_Top	At_Offset_2
006e 01d6       |    |		Execute	Vector,Field_Write
006f 6098       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x0000889c}
0070 e004       |    |		Load	0x0,0x4
0071 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0072 e003       |    |		Load	0x0,0x3
0073 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0074 608f       |`   |		Indirect_Literal	Discrete,0x104,{0x00000000, 0x00008882}
0075 e004       |    |		Load	0x0,0x4
0076 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0077 a5f9       |    |		Store_Unchecked	0x2,-0x7
0078 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0079 e5fa       |    |		Load	0x2,-0x6
007a e5fd       |    |		Load	0x2,-0x3
007b e402       |    |		Load	0x2,0x2
007c e005       |    |		Load	0x0,0x5
007d 186a       | j  |		Execute	Package,Field_Execute,Field_Number 0x6a
007e 681a       |h   |		Jump_Zero	0x99
007f e5fa       |    |		Load	0x2,-0x6
0080 4801       |H   |		Short_Literal	0x1
0081 4801       |H   |		Short_Literal	0x1
0082 e003       |    |		Load	0x0,0x3
0083 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0084 035b       | [  |		Declare_Type	Array,Constrained
0085 0337       | 7  |		Declare_Variable	Array
0086 e402       |    |		Load	0x2,0x2
0087 e002       |    |		Load	0x0,0x2
0088 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0089 e003       |    |		Load	0x0,0x3
008a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008b 0119       |    |		Execute	Any,Check_In_Formal_Type
008c 4801       |H   |		Short_Literal	0x1
008d 00da       |    |		Load_Top	At_Offset_2
008e 01d6       |    |		Execute	Vector,Field_Write
008f 6070       |`p  |		Indirect_Literal	Discrete,0x100,{0x00000000, 0x00008881}
0090 e004       |    |		Load	0x0,0x4
0091 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0092 e003       |    |		Load	0x0,0x3
0093 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0094 606f       |`o  |		Indirect_Literal	Discrete,0x104,{0x00000000, 0x00008882}
0095 e004       |    |		Load	0x0,0x4
0096 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0097 a5f9       |    |		Store_Unchecked	0x2,-0x7
0098 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0099 e5fa       |    |		Load	0x2,-0x6
009a 00db       |    |		Load_Top	At_Offset_3
009b e002       |    |		Load	0x0,0x2
009c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
009d 7016       |p   |		Jump_Nonzero	0xb4
009e e5fa       |    |		Load	0x2,-0x6
009f 4801       |H   |		Short_Literal	0x1
00a0 4801       |H   |		Short_Literal	0x1
00a1 e003       |    |		Load	0x0,0x3
00a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a3 035b       | [  |		Declare_Type	Array,Constrained
00a4 0337       | 7  |		Declare_Variable	Array
00a5 e402       |    |		Load	0x2,0x2
00a6 e002       |    |		Load	0x0,0x2
00a7 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00a8 e003       |    |		Load	0x0,0x3
00a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00aa 0119       |    |		Execute	Any,Check_In_Formal_Type
00ab 4801       |H   |		Short_Literal	0x1
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 01d6       |    |		Execute	Vector,Field_Write
00ae 604d       |`M  |		Indirect_Literal	Discrete,0xfc,{0x00000000, 0x0000889a}
00af e004       |    |		Load	0x0,0x4
00b0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00b1 e004       |    |		Load	0x0,0x4
00b2 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00b3 0257       | W  |		Execute	Discrete,Raise
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 8215       |    |		Call	0x1,0x15
00b6 6816       |h   |		Jump_Zero	0xcd
00b7 e5fa       |    |		Load	0x2,-0x6
00b8 4801       |H   |		Short_Literal	0x1
00b9 4801       |H   |		Short_Literal	0x1
00ba e003       |    |		Load	0x0,0x3
00bb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bc 035b       | [  |		Declare_Type	Array,Constrained
00bd 0337       | 7  |		Declare_Variable	Array
00be e402       |    |		Load	0x2,0x2
00bf e002       |    |		Load	0x0,0x2
00c0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00c1 e003       |    |		Load	0x0,0x3
00c2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c3 0119       |    |		Execute	Any,Check_In_Formal_Type
00c4 4801       |H   |		Short_Literal	0x1
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 01d6       |    |		Execute	Vector,Field_Write
00c7 6030       |`0  |		Indirect_Literal	Discrete,0xf8,{0x00000000, 0x0000889f}
00c8 e004       |    |		Load	0x0,0x4
00c9 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00ca e004       |    |		Load	0x0,0x4
00cb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00cc 0257       | W  |		Execute	Discrete,Raise
00cd e5fa       |    |		Load	0x2,-0x6
00ce 00db       |    |		Load_Top	At_Offset_3
00cf 8218       |    |		Call	0x1,0x18
00d0 e004       |    |		Load	0x0,0x4
00d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d2 e5fa       |    |		Load	0x2,-0x6
00d3 e5fd       |    |		Load	0x2,-0x3
00d4 e5fa       |    |		Load	0x2,-0x6
00d5 4801       |H   |		Short_Literal	0x1
00d6 e402       |    |		Load	0x2,0x2
00d7 e002       |    |		Load	0x0,0x2
00d8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00d9 e005       |    |		Load	0x0,0x5
00da 1886       |    |		Execute	Package,Field_Execute,Field_Number 0x86
00db c5f9       |    |		Store	0x2,-0x7
00dc 4800       |H   |		Short_Literal	0x0
00dd e5f9       |    |		Load	0x2,-0x7
00de e004       |    |		Load	0x0,0x4
00df 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
00e0 7003       |p   |		Jump_Nonzero	0xe4
00e1 e004       |    |		Load	0x0,0x4
00e2 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00e3 0257       | W  |		Execute	Discrete,Raise
00e4 e004       |    |		Load	0x0,0x4
00e5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e6 e5fa       |    |		Load	0x2,-0x6
00e7 e5fb       |    |		Load	0x2,-0x5
00e8 e5fc       |    |		Load	0x2,-0x4
00e9 e5fd       |    |		Load	0x2,-0x3
00ea e5fe       |    |		Load	0x2,-0x2
00eb e402       |    |		Load	0x2,0x2
00ec e005       |    |		Load	0x0,0x5
00ed 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
00ee c5f9       |    |		Store	0x2,-0x7
00ef 4800       |H   |		Short_Literal	0x0
00f0 e5f9       |    |		Load	0x2,-0x7
00f1 e004       |    |		Load	0x0,0x4
00f2 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
00f3 7003       |p   |		Jump_Nonzero	0xf7
00f4 e004       |    |		Load	0x0,0x4
00f5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00f6 0257       | W  |		Execute	Discrete,Raise
00f7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000889f}
00fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000889a}
0100 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008881}
0104 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008882}
0108 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000889c}
010c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008870}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0131       | 1  |		.CONST	0x0131								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0009       |    |		.CONST	0x0009								; Number of locals
0113			INIT_0110:
0113 e001       |    |		Load	0x0,0x1
0114 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0115 02c7       |    |		Declare_Variable	Any
0116 00d8       |    |		Load_Top	At_Offset_0
0117 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0118 e001       |    |		Load	0x0,0x1
0119 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011a 02c7       |    |		Declare_Variable	Any
011b 00d8       |    |		Load_Top	At_Offset_0
011c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011d e001       |    |		Load	0x0,0x1
011e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011f 02c7       |    |		Declare_Variable	Any
0120 00d8       |    |		Load_Top	At_Offset_0
0121 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0122 e001       |    |		Load	0x0,0x1
0123 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0124 02c7       |    |		Declare_Variable	Any
0125 00d8       |    |		Load_Top	At_Offset_0
0126 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0127 e001       |    |		Load	0x0,0x1
0128 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0129 02c7       |    |		Declare_Variable	Any
012a 00d8       |    |		Load_Top	At_Offset_0
012b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012c 00e1       |    |		Load_Encached	Boolean_Cache
012d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
012e 00e2       |    |		Load_Encached	Integer_Cache
012f 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
0131			BODY_0110:
0131 e5fe       |    |		Load	0x2,-0x2
0132 4801       |H   |		Short_Literal	0x1
0133 e5ff       |    |		Load	0x2,-0x1
0134 e002       |    |		Load	0x0,0x2
0135 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0136 c403       |    |		Store	0x2,0x3
0137 00db       |    |		Load_Top	At_Offset_3
0138 e5fe       |    |		Load	0x2,-0x2
0139 e403       |    |		Load	0x2,0x3
013a 8217       |    |		Call	0x1,0x17
013b c406       |    |		Store	0x2,0x6
013c e004       |    |		Load	0x0,0x4
013d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013e 00e2       |    |		Load_Encached	Integer_Cache
013f e402       |    |		Load	0x2,0x2
0140 0120       |    |		Execute	Any,Is_Value
0141 6803       |h   |		Jump_Zero	0x145
0142 e001       |    |		Load	0x0,0x1
0143 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0144 7801       |x   |		Jump	0x146
0145 e402       |    |		Load	0x2,0x2
0146 e5fe       |    |		Load	0x2,-0x2
0147 e403       |    |		Load	0x2,0x3
0148 e005       |    |		Load	0x0,0x5
0149 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
014a c402       |    |		Store	0x2,0x2
014b 005b       | [  |		Store_Top	Discrete,At_Offset_3
014c c5fd       |    |		Store	0x2,-0x3
014d 4800       |H   |		Short_Literal	0x0
014e e5fd       |    |		Load	0x2,-0x3
014f e004       |    |		Load	0x0,0x4
0150 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0151 7003       |p   |		Jump_Nonzero	0x155
0152 e004       |    |		Load	0x0,0x4
0153 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0154 0257       | W  |		Execute	Discrete,Raise
0155 e5fe       |    |		Load	0x2,-0x2
0156 e402       |    |		Load	0x2,0x2
0157 e002       |    |		Load	0x0,0x2
0158 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0159 7016       |p   |		Jump_Nonzero	0x170
015a e5fe       |    |		Load	0x2,-0x2
015b 4801       |H   |		Short_Literal	0x1
015c 4801       |H   |		Short_Literal	0x1
015d e003       |    |		Load	0x0,0x3
015e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015f 035b       | [  |		Declare_Type	Array,Constrained
0160 0337       | 7  |		Declare_Variable	Array
0161 e402       |    |		Load	0x2,0x2
0162 e002       |    |		Load	0x0,0x2
0163 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0164 e003       |    |		Load	0x0,0x3
0165 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0166 0119       |    |		Execute	Any,Check_In_Formal_Type
0167 4801       |H   |		Short_Literal	0x1
0168 00da       |    |		Load_Top	At_Offset_2
0169 01d6       |    |		Execute	Vector,Field_Write
016a 6791       |g   |		Indirect_Literal	Discrete,0xfc,{0x00000000, 0x0000889a}
016b e004       |    |		Load	0x0,0x4
016c 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
016d e004       |    |		Load	0x0,0x4
016e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
016f 0257       | W  |		Execute	Discrete,Raise
0170 e5fe       |    |		Load	0x2,-0x2
0171 e402       |    |		Load	0x2,0x2
0172 8218       |    |		Call	0x1,0x18
0173 8409       |    |		Call	0x2,0x9
0174 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0195       |    |		.CONST	0x0195								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0006       |    |		.CONST	0x0006								; Number of locals
017b			INIT_0178:
017b e001       |    |		Load	0x0,0x1
017c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017d 02c7       |    |		Declare_Variable	Any
017e 00d8       |    |		Load_Top	At_Offset_0
017f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0180 e001       |    |		Load	0x0,0x1
0181 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0182 02c7       |    |		Declare_Variable	Any
0183 00d8       |    |		Load_Top	At_Offset_0
0184 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0185 e001       |    |		Load	0x0,0x1
0186 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0187 02c7       |    |		Declare_Variable	Any
0188 00d8       |    |		Load_Top	At_Offset_0
0189 1c00       |    |		Execute_Immediate	Run_Utility,0x0
018a e001       |    |		Load	0x0,0x1
018b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
018c 02c7       |    |		Declare_Variable	Any
018d 00d8       |    |		Load_Top	At_Offset_0
018e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
018f e001       |    |		Load	0x0,0x1
0190 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0191 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0192 02c7       |    |		Declare_Variable	Any
0193 00d8       |    |		Load_Top	At_Offset_0
0194 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0195			BODY_0178:
0195 e5fe       |    |		Load	0x2,-0x2
0196 4800       |H   |		Short_Literal	0x0
0197 e5ff       |    |		Load	0x2,-0x1
0198 e002       |    |		Load	0x0,0x2
0199 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
019a c406       |    |		Store	0x2,0x6
019b e5fe       |    |		Load	0x2,-0x2
019c e5ff       |    |		Load	0x2,-0x1
019d 00da       |    |		Load_Top	At_Offset_2
019e 6031       |`1  |		Indirect_Literal	Discrete,0x1d0,{0x00000000, 0x0000882b}
019f 8216       |    |		Call	0x1,0x16
01a0 00cf       |    |		Action	Mark_Auxiliary
01a1 7821       |x!  |		Jump	0x1c3
01a2 e5fe       |    |		Load	0x2,-0x2
01a3 4801       |H   |		Short_Literal	0x1
01a4 00db       |    |		Load_Top	At_Offset_3
01a5 e002       |    |		Load	0x0,0x2
01a6 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01a7 c402       |    |		Store	0x2,0x2
01a8 e402       |    |		Load	0x2,0x2
01a9 c404       |    |		Store	0x2,0x4
01aa e5fe       |    |		Load	0x2,-0x2
01ab 6020       |`   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x00008870}
01ac e404       |    |		Load	0x2,0x4
01ad 8214       |    |		Call	0x1,0x14
01ae e004       |    |		Load	0x0,0x4
01af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b0 e5fe       |    |		Load	0x2,-0x2
01b1 e402       |    |		Load	0x2,0x2
01b2 e005       |    |		Load	0x0,0x5
01b3 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
01b4 c5fd       |    |		Store	0x2,-0x3
01b5 4800       |H   |		Short_Literal	0x0
01b6 e5fd       |    |		Load	0x2,-0x3
01b7 e004       |    |		Load	0x0,0x4
01b8 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
01b9 7003       |p   |		Jump_Nonzero	0x1bd
01ba e004       |    |		Load	0x0,0x4
01bb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01bc 0257       | W  |		Execute	Discrete,Raise
01bd 00d9       |    |		Load_Top	At_Offset_1
01be e001       |    |		Load	0x0,0x1
01bf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01c0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01c1 c406       |    |		Store	0x2,0x6
01c2 00c9       |    |		Action	Pop_Auxiliary_Loop
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 e001       |    |		Load	0x0,0x1
01c5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01c6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01c7 6fda       |o   |		Jump_Zero	0x1a2
01c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c9 0000 0000  |    |		.XXX[0x3]
01cb 0000       |    |
01cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008870}
01d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000882b}
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f0       |    |		.CONST	0x01f0								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0006       |    |		.CONST	0x0006								; Number of locals
01db			INIT_01d8:
01db e001       |    |		Load	0x0,0x1
01dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01dd 02c7       |    |		Declare_Variable	Any
01de 00d8       |    |		Load_Top	At_Offset_0
01df 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e0 e001       |    |		Load	0x0,0x1
01e1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e2 02c7       |    |		Declare_Variable	Any
01e3 00d8       |    |		Load_Top	At_Offset_0
01e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e5 00e2       |    |		Load_Encached	Integer_Cache
01e6 e001       |    |		Load	0x0,0x1
01e7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e8 02c7       |    |		Declare_Variable	Any
01e9 00d8       |    |		Load_Top	At_Offset_0
01ea 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01eb e001       |    |		Load	0x0,0x1
01ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ed 02c7       |    |		Declare_Variable	Any
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f0			BODY_01d8:
01f0 e5fc       |    |		Load	0x2,-0x4
01f1 4801       |H   |		Short_Literal	0x1
01f2 e5ff       |    |		Load	0x2,-0x1
01f3 e002       |    |		Load	0x0,0x2
01f4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01f5 c403       |    |		Store	0x2,0x3
01f6 e004       |    |		Load	0x0,0x4
01f7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f8 00e2       |    |		Load_Encached	Integer_Cache
01f9 e402       |    |		Load	0x2,0x2
01fa 0120       |    |		Execute	Any,Is_Value
01fb 6803       |h   |		Jump_Zero	0x1ff
01fc e001       |    |		Load	0x0,0x1
01fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fe 7801       |x   |		Jump	0x200
01ff e402       |    |		Load	0x2,0x2
0200 e5fc       |    |		Load	0x2,-0x4
0201 e403       |    |		Load	0x2,0x3
0202 e005       |    |		Load	0x0,0x5
0203 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
0204 c402       |    |		Store	0x2,0x2
0205 c404       |    |		Store	0x2,0x4
0206 c5fb       |    |		Store	0x2,-0x5
0207 4800       |H   |		Short_Literal	0x0
0208 e5fb       |    |		Load	0x2,-0x5
0209 e004       |    |		Load	0x0,0x4
020a 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
020b 7003       |p   |		Jump_Nonzero	0x20f
020c e004       |    |		Load	0x0,0x4
020d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
020e 0257       | W  |		Execute	Discrete,Raise
020f e004       |    |		Load	0x0,0x4
0210 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0211 00da       |    |		Load_Top	At_Offset_2
0212 0120       |    |		Execute	Any,Is_Value
0213 6803       |h   |		Jump_Zero	0x217
0214 e001       |    |		Load	0x0,0x1
0215 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0216 7801       |x   |		Jump	0x218
0217 00da       |    |		Load_Top	At_Offset_2
0218 e5fc       |    |		Load	0x2,-0x4
0219 e403       |    |		Load	0x2,0x3
021a e005       |    |		Load	0x0,0x5
021b 185d       | ]  |		Execute	Package,Field_Execute,Field_Number 0x5d
021c c405       |    |		Store	0x2,0x5
021d c5fb       |    |		Store	0x2,-0x5
021e 4800       |H   |		Short_Literal	0x0
021f e5fb       |    |		Load	0x2,-0x5
0220 e004       |    |		Load	0x0,0x4
0221 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0222 7003       |p   |		Jump_Nonzero	0x226
0223 e004       |    |		Load	0x0,0x4
0224 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0225 0257       | W  |		Execute	Discrete,Raise
0226 e5fc       |    |		Load	0x2,-0x4
0227 00da       |    |		Load_Top	At_Offset_2
0228 e002       |    |		Load	0x0,0x2
0229 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
022a 701a       |p   |		Jump_Nonzero	0x245
022b e5fc       |    |		Load	0x2,-0x4
022c 4801       |H   |		Short_Literal	0x1
022d 4801       |H   |		Short_Literal	0x1
022e e003       |    |		Load	0x0,0x3
022f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0230 035b       | [  |		Declare_Type	Array,Constrained
0231 0337       | 7  |		Declare_Variable	Array
0232 00db       |    |		Load_Top	At_Offset_3
0233 e002       |    |		Load	0x0,0x2
0234 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0235 e003       |    |		Load	0x0,0x3
0236 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0237 0119       |    |		Execute	Any,Check_In_Formal_Type
0238 4801       |H   |		Short_Literal	0x1
0239 00da       |    |		Load_Top	At_Offset_2
023a 01d6       |    |		Execute	Vector,Field_Write
023b 602c       |`,  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x0000889b}
023c e004       |    |		Load	0x0,0x4
023d 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
023e e003       |    |		Load	0x0,0x3
023f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0240 6023       |`#  |		Indirect_Literal	Discrete,0x264,{0x00000000, 0x00008883}
0241 e004       |    |		Load	0x0,0x4
0242 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0243 a5fb       |    |		Store_Unchecked	0x2,-0x5
0244 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0245 00d8       |    |		Load_Top	At_Offset_0
0246 e5fc       |    |		Load	0x2,-0x4
0247 e403       |    |		Load	0x2,0x3
0248 8217       |    |		Call	0x1,0x17
0249 c406       |    |		Store	0x2,0x6
024a e5fc       |    |		Load	0x2,-0x4
024b e402       |    |		Load	0x2,0x2
024c 8218       |    |		Call	0x1,0x18
024d e004       |    |		Load	0x0,0x4
024e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
024f e5fc       |    |		Load	0x2,-0x4
0250 00db       |    |		Load_Top	At_Offset_3
0251 e002       |    |		Load	0x0,0x2
0252 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
0253 c5fb       |    |		Store	0x2,-0x5
0254 4800       |H   |		Short_Literal	0x0
0255 e5fb       |    |		Load	0x2,-0x5
0256 e004       |    |		Load	0x0,0x4
0257 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0258 7003       |p   |		Jump_Nonzero	0x25c
0259 e004       |    |		Load	0x0,0x4
025a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
025b 0257       | W  |		Execute	Discrete,Raise
025c e5fd       |    |		Load	0x2,-0x3
025d e5fe       |    |		Load	0x2,-0x2
025e 00db       |    |		Load_Top	At_Offset_3
025f e002       |    |		Load	0x0,0x2
0260 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0261 e006       |    |		Load	0x0,0x6
0262 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0263 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0264 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008883}
0268 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000889b}
026c 0000 0000  |    |		.BLANK	0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027d       | }  |		.CONST	0x027d								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0003       |    |		.CONST	0x0003								; Number of locals
0273			INIT_0270:
0273 e001       |    |		Load	0x0,0x1
0274 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0275 02c7       |    |		Declare_Variable	Any
0276 00d8       |    |		Load_Top	At_Offset_0
0277 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0278 e001       |    |		Load	0x0,0x1
0279 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
027a 02c7       |    |		Declare_Variable	Any
027b 00d8       |    |		Load_Top	At_Offset_0
027c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
027d			BODY_0270:
027d e5fd       |    |		Load	0x2,-0x3
027e 4801       |H   |		Short_Literal	0x1
027f e5ff       |    |		Load	0x2,-0x1
0280 e002       |    |		Load	0x0,0x2
0281 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0282 c402       |    |		Store	0x2,0x2
0283 e5fd       |    |		Load	0x2,-0x3
0284 603b       |`;  |		Indirect_Literal	Discrete,0x2c0,{0x00000000, 0x00008870}
0285 00db       |    |		Load_Top	At_Offset_3
0286 8214       |    |		Call	0x1,0x14
0287 00d8       |    |		Load_Top	At_Offset_0
0288 e5fd       |    |		Load	0x2,-0x3
0289 00db       |    |		Load_Top	At_Offset_3
028a 8217       |    |		Call	0x1,0x17
028b c403       |    |		Store	0x2,0x3
028c e5fd       |    |		Load	0x2,-0x3
028d 00da       |    |		Load_Top	At_Offset_2
028e e002       |    |		Load	0x0,0x2
028f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0290 7016       |p   |		Jump_Nonzero	0x2a7
0291 e5fd       |    |		Load	0x2,-0x3
0292 4801       |H   |		Short_Literal	0x1
0293 4801       |H   |		Short_Literal	0x1
0294 e003       |    |		Load	0x0,0x3
0295 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0296 035b       | [  |		Declare_Type	Array,Constrained
0297 0337       | 7  |		Declare_Variable	Array
0298 00db       |    |		Load_Top	At_Offset_3
0299 e002       |    |		Load	0x0,0x2
029a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
029b e003       |    |		Load	0x0,0x3
029c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029d 0119       |    |		Execute	Any,Check_In_Formal_Type
029e 4801       |H   |		Short_Literal	0x1
029f 00da       |    |		Load_Top	At_Offset_2
02a0 01d6       |    |		Execute	Vector,Field_Write
02a1 601a       |`   |		Indirect_Literal	Discrete,0x2bc,{0x00000000, 0x0000889a}
02a2 e004       |    |		Load	0x0,0x4
02a3 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02a4 e004       |    |		Load	0x0,0x4
02a5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02a6 0257       | W  |		Execute	Discrete,Raise
02a7 e5fd       |    |		Load	0x2,-0x3
02a8 00da       |    |		Load_Top	At_Offset_2
02a9 8218       |    |		Call	0x1,0x18
02aa e004       |    |		Load	0x0,0x4
02ab 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ac e5fd       |    |		Load	0x2,-0x3
02ad e5fe       |    |		Load	0x2,-0x2
02ae e402       |    |		Load	0x2,0x2
02af e005       |    |		Load	0x0,0x5
02b0 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
02b1 c5fc       |    |		Store	0x2,-0x4
02b2 4800       |H   |		Short_Literal	0x0
02b3 e5fc       |    |		Load	0x2,-0x4
02b4 e004       |    |		Load	0x0,0x4
02b5 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
02b6 7003       |p   |		Jump_Nonzero	0x2ba
02b7 e004       |    |		Load	0x0,0x4
02b8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02b9 0257       | W  |		Execute	Discrete,Raise
02ba 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02bb 0000       |    |		.XXX[0x1]
02bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000889a}
02c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008870}
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02db       |    |		.CONST	0x02db								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0005       |    |		.CONST	0x0005								; Number of locals
02cb			INIT_02c8:
02cb e001       |    |		Load	0x0,0x1
02cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02cd 02c7       |    |		Declare_Variable	Any
02ce 00d8       |    |		Load_Top	At_Offset_0
02cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d0 e001       |    |		Load	0x0,0x1
02d1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02d2 02c7       |    |		Declare_Variable	Any
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d5 00e2       |    |		Load_Encached	Integer_Cache
02d6 e001       |    |		Load	0x0,0x1
02d7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02d8 02c7       |    |		Declare_Variable	Any
02d9 00d8       |    |		Load_Top	At_Offset_0
02da 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02db			BODY_02c8:
02db e5fd       |    |		Load	0x2,-0x3
02dc 4801       |H   |		Short_Literal	0x1
02dd e5fe       |    |		Load	0x2,-0x2
02de e002       |    |		Load	0x0,0x2
02df 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02e0 c403       |    |		Store	0x2,0x3
02e1 e004       |    |		Load	0x0,0x4
02e2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e3 00e2       |    |		Load_Encached	Integer_Cache
02e4 e402       |    |		Load	0x2,0x2
02e5 0120       |    |		Execute	Any,Is_Value
02e6 6803       |h   |		Jump_Zero	0x2ea
02e7 e001       |    |		Load	0x0,0x1
02e8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02e9 7801       |x   |		Jump	0x2eb
02ea e402       |    |		Load	0x2,0x2
02eb e5fd       |    |		Load	0x2,-0x3
02ec e403       |    |		Load	0x2,0x3
02ed e005       |    |		Load	0x0,0x5
02ee 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
02ef c402       |    |		Store	0x2,0x2
02f0 005b       | [  |		Store_Top	Discrete,At_Offset_3
02f1 c5fc       |    |		Store	0x2,-0x4
02f2 4800       |H   |		Short_Literal	0x0
02f3 e5fc       |    |		Load	0x2,-0x4
02f4 e004       |    |		Load	0x0,0x4
02f5 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
02f6 7003       |p   |		Jump_Nonzero	0x2fa
02f7 e004       |    |		Load	0x0,0x4
02f8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02f9 0257       | W  |		Execute	Discrete,Raise
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb e5fd       |    |		Load	0x2,-0x3
02fc e403       |    |		Load	0x2,0x3
02fd 8217       |    |		Call	0x1,0x17
02fe c405       |    |		Store	0x2,0x5
02ff e5fd       |    |		Load	0x2,-0x3
0300 e402       |    |		Load	0x2,0x2
0301 e002       |    |		Load	0x0,0x2
0302 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0303 7016       |p   |		Jump_Nonzero	0x31a
0304 e5fd       |    |		Load	0x2,-0x3
0305 4801       |H   |		Short_Literal	0x1
0306 4801       |H   |		Short_Literal	0x1
0307 e003       |    |		Load	0x0,0x3
0308 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0309 035b       | [  |		Declare_Type	Array,Constrained
030a 0337       | 7  |		Declare_Variable	Array
030b e402       |    |		Load	0x2,0x2
030c e002       |    |		Load	0x0,0x2
030d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
030e e003       |    |		Load	0x0,0x3
030f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0310 0119       |    |		Execute	Any,Check_In_Formal_Type
0311 4801       |H   |		Short_Literal	0x1
0312 00da       |    |		Load_Top	At_Offset_2
0313 01d6       |    |		Execute	Vector,Field_Write
0314 67a7       |g   |		Indirect_Literal	Discrete,0x2bc,{0x00000000, 0x0000889a}
0315 e004       |    |		Load	0x0,0x4
0316 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0317 e004       |    |		Load	0x0,0x4
0318 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0319 0257       | W  |		Execute	Discrete,Raise
031a e5fd       |    |		Load	0x2,-0x3
031b e402       |    |		Load	0x2,0x2
031c 8218       |    |		Call	0x1,0x18
031d e004       |    |		Load	0x0,0x4
031e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031f e5fd       |    |		Load	0x2,-0x3
0320 e5ff       |    |		Load	0x2,-0x1
0321 e403       |    |		Load	0x2,0x3
0322 e005       |    |		Load	0x0,0x5
0323 186d       | m  |		Execute	Package,Field_Execute,Field_Number 0x6d
0324 c5fc       |    |		Store	0x2,-0x4
0325 4800       |H   |		Short_Literal	0x0
0326 e5fc       |    |		Load	0x2,-0x4
0327 e004       |    |		Load	0x0,0x4
0328 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0329 7003       |p   |		Jump_Nonzero	0x32d
032a e004       |    |		Load	0x0,0x4
032b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
032c 0257       | W  |		Execute	Discrete,Raise
032d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0343       | C  |		.CONST	0x0343								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0005       |    |		.CONST	0x0005								; Number of locals
0333			INIT_0330:
0333 e001       |    |		Load	0x0,0x1
0334 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0335 02c7       |    |		Declare_Variable	Any
0336 00d8       |    |		Load_Top	At_Offset_0
0337 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0338 e001       |    |		Load	0x0,0x1
0339 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
033a 02c7       |    |		Declare_Variable	Any
033b 00d8       |    |		Load_Top	At_Offset_0
033c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
033d 00e2       |    |		Load_Encached	Integer_Cache
033e e001       |    |		Load	0x0,0x1
033f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0340 02c7       |    |		Declare_Variable	Any
0341 00d8       |    |		Load_Top	At_Offset_0
0342 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0343			BODY_0330:
0343 e5fd       |    |		Load	0x2,-0x3
0344 4801       |H   |		Short_Literal	0x1
0345 e5fe       |    |		Load	0x2,-0x2
0346 e002       |    |		Load	0x0,0x2
0347 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0348 c403       |    |		Store	0x2,0x3
0349 e004       |    |		Load	0x0,0x4
034a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
034b 00e2       |    |		Load_Encached	Integer_Cache
034c e402       |    |		Load	0x2,0x2
034d 0120       |    |		Execute	Any,Is_Value
034e 6803       |h   |		Jump_Zero	0x352
034f e001       |    |		Load	0x0,0x1
0350 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0351 7801       |x   |		Jump	0x353
0352 e402       |    |		Load	0x2,0x2
0353 e5fd       |    |		Load	0x2,-0x3
0354 e403       |    |		Load	0x2,0x3
0355 e005       |    |		Load	0x0,0x5
0356 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
0357 c402       |    |		Store	0x2,0x2
0358 005b       | [  |		Store_Top	Discrete,At_Offset_3
0359 c5fc       |    |		Store	0x2,-0x4
035a 4800       |H   |		Short_Literal	0x0
035b e5fc       |    |		Load	0x2,-0x4
035c e004       |    |		Load	0x0,0x4
035d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
035e 7003       |p   |		Jump_Nonzero	0x362
035f e004       |    |		Load	0x0,0x4
0360 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0361 0257       | W  |		Execute	Discrete,Raise
0362 00d8       |    |		Load_Top	At_Offset_0
0363 e5fd       |    |		Load	0x2,-0x3
0364 e403       |    |		Load	0x2,0x3
0365 8217       |    |		Call	0x1,0x17
0366 c405       |    |		Store	0x2,0x5
0367 e5fd       |    |		Load	0x2,-0x3
0368 e402       |    |		Load	0x2,0x2
0369 e002       |    |		Load	0x0,0x2
036a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
036b 7016       |p   |		Jump_Nonzero	0x382
036c e5fd       |    |		Load	0x2,-0x3
036d 4801       |H   |		Short_Literal	0x1
036e 4801       |H   |		Short_Literal	0x1
036f e003       |    |		Load	0x0,0x3
0370 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0371 035b       | [  |		Declare_Type	Array,Constrained
0372 0337       | 7  |		Declare_Variable	Array
0373 e402       |    |		Load	0x2,0x2
0374 e002       |    |		Load	0x0,0x2
0375 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0376 e003       |    |		Load	0x0,0x3
0377 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0378 0119       |    |		Execute	Any,Check_In_Formal_Type
0379 4801       |H   |		Short_Literal	0x1
037a 00da       |    |		Load_Top	At_Offset_2
037b 01d6       |    |		Execute	Vector,Field_Write
037c 601b       |`   |		Indirect_Literal	Discrete,0x398,{0x00000000, 0x0000889a}
037d e004       |    |		Load	0x0,0x4
037e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
037f e004       |    |		Load	0x0,0x4
0380 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0381 0257       | W  |		Execute	Discrete,Raise
0382 e5fd       |    |		Load	0x2,-0x3
0383 e402       |    |		Load	0x2,0x2
0384 8218       |    |		Call	0x1,0x18
0385 e004       |    |		Load	0x0,0x4
0386 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0387 e5fd       |    |		Load	0x2,-0x3
0388 e5ff       |    |		Load	0x2,-0x1
0389 e403       |    |		Load	0x2,0x3
038a e005       |    |		Load	0x0,0x5
038b 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
038c c5fc       |    |		Store	0x2,-0x4
038d 4800       |H   |		Short_Literal	0x0
038e e5fc       |    |		Load	0x2,-0x4
038f e004       |    |		Load	0x0,0x4
0390 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0391 7003       |p   |		Jump_Nonzero	0x395
0392 e004       |    |		Load	0x0,0x4
0393 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0394 0257       | W  |		Execute	Discrete,Raise
0395 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0396 0000 0000  |    |		.XXX[0x2]
0398 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000889a}
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 00da       |    |		Load_Top	At_Offset_2
03a4 e002       |    |		Load	0x0,0x2
03a5 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
03a6 7016       |p   |		Jump_Nonzero	0x3bd
03a7 e5fd       |    |		Load	0x2,-0x3
03a8 4801       |H   |		Short_Literal	0x1
03a9 4801       |H   |		Short_Literal	0x1
03aa e003       |    |		Load	0x0,0x3
03ab 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ac 035b       | [  |		Declare_Type	Array,Constrained
03ad 0337       | 7  |		Declare_Variable	Array
03ae e5ff       |    |		Load	0x2,-0x1
03af e002       |    |		Load	0x0,0x2
03b0 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03b1 e003       |    |		Load	0x0,0x3
03b2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b3 0119       |    |		Execute	Any,Check_In_Formal_Type
03b4 4801       |H   |		Short_Literal	0x1
03b5 00da       |    |		Load_Top	At_Offset_2
03b6 01d6       |    |		Execute	Vector,Field_Write
03b7 e5fe       |    |		Load	0x2,-0x2
03b8 e004       |    |		Load	0x0,0x4
03b9 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03ba e004       |    |		Load	0x0,0x4
03bb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03bc 0257       | W  |		Execute	Discrete,Raise
03bd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03be 0000 0000  |    |		.XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03cb       |    |		.CONST	0x03cb								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0003       |    |		.CONST	0x0003								; Number of locals
03c3			INIT_03c0:
03c3 e001       |    |		Load	0x0,0x1
03c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c5 e001       |    |		Load	0x0,0x1
03c6 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
03c7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03c8 02c7       |    |		Declare_Variable	Any
03c9 00d8       |    |		Load_Top	At_Offset_0
03ca 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03cb			BODY_03c0:
03cb e001       |    |		Load	0x0,0x1
03cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03cd 00d9       |    |		Load_Top	At_Offset_1
03ce 0120       |    |		Execute	Any,Is_Value
03cf 6804       |h   |		Jump_Zero	0x3d4
03d0 e001       |    |		Load	0x0,0x1
03d1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
03d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d3 7801       |x   |		Jump	0x3d5
03d4 00d9       |    |		Load_Top	At_Offset_1
03d5 e5ff       |    |		Load	0x2,-0x1
03d6 e001       |    |		Load	0x0,0x1
03d7 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
03d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d9 c403       |    |		Store	0x2,0x3
03da 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03db 00d9       |    |		Load_Top	At_Offset_1
03dc 6803       |h   |		Jump_Zero	0x3e0
03dd e004       |    |		Load	0x0,0x4
03de 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03df 0257       | W  |		Execute	Discrete,Raise
03e0 00d8       |    |		Load_Top	At_Offset_0
03e1 e001       |    |		Load	0x0,0x1
03e2 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
03e3 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03e4 e002       |    |		Load	0x0,0x2
03e5 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
03e6 6802       |h   |		Jump_Zero	0x3e9
03e7 4801       |H   |		Short_Literal	0x1
03e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03e9 4800       |H   |		Short_Literal	0x0
03ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03eb 0000 0000  |    |		.BLANK	0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00db       |    |		Load_Top	At_Offset_3
03f4 e001       |    |		Load	0x0,0x1
03f5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03f6 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03f7 6816       |h   |		Jump_Zero	0x40e
03f8 e5fc       |    |		Load	0x2,-0x4
03f9 4801       |H   |		Short_Literal	0x1
03fa 4801       |H   |		Short_Literal	0x1
03fb e003       |    |		Load	0x0,0x3
03fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03fd 035b       | [  |		Declare_Type	Array,Constrained
03fe 0337       | 7  |		Declare_Variable	Array
03ff e5fd       |    |		Load	0x2,-0x3
0400 e003       |    |		Load	0x0,0x3
0401 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0402 e003       |    |		Load	0x0,0x3
0403 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0404 0119       |    |		Execute	Any,Check_In_Formal_Type
0405 4801       |H   |		Short_Literal	0x1
0406 00da       |    |		Load_Top	At_Offset_2
0407 01d6       |    |		Execute	Vector,Field_Write
0408 e5ff       |    |		Load	0x2,-0x1
0409 e004       |    |		Load	0x0,0x4
040a 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
040b e004       |    |		Load	0x0,0x4
040c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
040d 0257       | W  |		Execute	Discrete,Raise
040e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
040f 0000       |    |		.XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 00db       |    |		Load_Top	At_Offset_3
0414 4801       |H   |		Short_Literal	0x1
0415 e5ff       |    |		Load	0x2,-0x1
0416 e002       |    |		Load	0x0,0x2
0417 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0418 c5fd       |    |		Store	0x2,-0x3
0419 00db       |    |		Load_Top	At_Offset_3
041a e5fd       |    |		Load	0x2,-0x3
041b e007       |    |		Load	0x0,0x7
041c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
041d 00db       |    |		Load_Top	At_Offset_3
041e e5fd       |    |		Load	0x2,-0x3
041f e007       |    |		Load	0x0,0x7
0420 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0421 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0422 0000 0000  |    |		.BLANK	0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00da       |    |		Load_Top	At_Offset_2
042c e008       |    |		Load	0x0,0x8
042d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
042e 682c       |h,  |		Jump_Zero	0x45b
042f 4801       |H   |		Short_Literal	0x1
0430 4801       |H   |		Short_Literal	0x1
0431 4800       |H   |		Short_Literal	0x0
0432 4801       |H   |		Short_Literal	0x1
0433 e5fe       |    |		Load	0x2,-0x2
0434 e002       |    |		Load	0x0,0x2
0435 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0436 e009       |    |		Load	0x0,0x9
0437 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0438 4800       |H   |		Short_Literal	0x0
0439 0092 04ac  |    |		Action	Push_String_Extended,0x4ac					; "<ALL_WORLDS>"
043b 4802       |H   |		Short_Literal	0x2
043c e5ff       |    |		Load	0x2,-0x1
043d e002       |    |		Load	0x0,0x2
043e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
043f e00a       |    |		Load	0x0,0xa
0440 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0441 00da       |    |		Load_Top	At_Offset_2
0442 e008       |    |		Load	0x0,0x8
0443 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0444 6816       |h   |		Jump_Zero	0x45b
0445 00db       |    |		Load_Top	At_Offset_3
0446 4801       |H   |		Short_Literal	0x1
0447 4801       |H   |		Short_Literal	0x1
0448 e003       |    |		Load	0x0,0x3
0449 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
044a 035b       | [  |		Declare_Type	Array,Constrained
044b 0337       | 7  |		Declare_Variable	Array
044c e5ff       |    |		Load	0x2,-0x1
044d e002       |    |		Load	0x0,0x2
044e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
044f e003       |    |		Load	0x0,0x3
0450 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0451 0119       |    |		Execute	Any,Check_In_Formal_Type
0452 4801       |H   |		Short_Literal	0x1
0453 00da       |    |		Load_Top	At_Offset_2
0454 01d6       |    |		Execute	Vector,Field_Write
0455 6006       |`   |		Indirect_Literal	Discrete,0x45c,{0x00000000, 0x00008805}
0456 e004       |    |		Load	0x0,0x4
0457 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0458 e004       |    |		Load	0x0,0x4
0459 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
045a 0257       | W  |		Execute	Discrete,Raise
045b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
045c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008805}
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0467       | g  |		.CONST	0x0467								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0002       |    |		.CONST	0x0002								; Number of locals
0463			INIT_0460:
0463 e5fe       |    |		Load	0x2,-0x2
0464 e403       |    |		Load	0x2,0x3
0465 e005       |    |		Load	0x0,0x5
0466 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0467			BODY_0460:
0467 4800       |H   |		Short_Literal	0x0
0468 00d9       |    |		Load_Top	At_Offset_1
0469 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
046a e004       |    |		Load	0x0,0x4
046b 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
046c 7005       |p   |		Jump_Nonzero	0x472
046d 00d8       |    |		Load_Top	At_Offset_0
046e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
046f a5fd       |    |		Store_Unchecked	0x2,-0x3
0470 00cc       |    |		Action	Pop_Block
0471 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0472 e004       |    |		Load	0x0,0x4
0473 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0474 e5fe       |    |		Load	0x2,-0x2
0475 e403       |    |		Load	0x2,0x3
0476 e005       |    |		Load	0x0,0x5
0477 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0478 c5fd       |    |		Store	0x2,-0x3
0479 4800       |H   |		Short_Literal	0x0
047a e5fd       |    |		Load	0x2,-0x3
047b e004       |    |		Load	0x0,0x4
047c 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
047d 7003       |p   |		Jump_Nonzero	0x481
047e e004       |    |		Load	0x0,0x4
047f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0480 0257       | W  |		Execute	Discrete,Raise
0481 e5fe       |    |		Load	0x2,-0x2
0482 4801       |H   |		Short_Literal	0x1
0483 4803       |H   |		Short_Literal	0x3
0484 e003       |    |		Load	0x0,0x3
0485 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0486 035b       | [  |		Declare_Type	Array,Constrained
0487 0337       | 7  |		Declare_Variable	Array
0488 e402       |    |		Load	0x2,0x2
0489 e002       |    |		Load	0x0,0x2
048a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
048b e003       |    |		Load	0x0,0x3
048c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
048d 0119       |    |		Execute	Any,Check_In_Formal_Type
048e 4801       |H   |		Short_Literal	0x1
048f 00da       |    |		Load_Top	At_Offset_2
0490 01d6       |    |		Execute	Vector,Field_Write
0491 e5ff       |    |		Load	0x2,-0x1
0492 e003       |    |		Load	0x0,0x3
0493 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0494 e003       |    |		Load	0x0,0x3
0495 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0496 0119       |    |		Execute	Any,Check_In_Formal_Type
0497 4802       |H   |		Short_Literal	0x2
0498 00da       |    |		Load_Top	At_Offset_2
0499 01d6       |    |		Execute	Vector,Field_Write
049a 00da       |    |		Load_Top	At_Offset_2
049b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
049c e003       |    |		Load	0x0,0x3
049d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
049e e003       |    |		Load	0x0,0x3
049f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04a0 0119       |    |		Execute	Any,Check_In_Formal_Type
04a1 4803       |H   |		Short_Literal	0x3
04a2 00da       |    |		Load_Top	At_Offset_2
04a3 01d6       |    |		Execute	Vector,Field_Write
04a4 6003       |`   |		Indirect_Literal	Discrete,0x4a8,{0x00000000, 0x00008862}
04a5 e004       |    |		Load	0x0,0x4
04a6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008862}
04ac ; --------------------------------------------------------------------------------------
04ac ; STRING TABLE
04ac ; --------------------------------------------------------------------------------------
04ac 0004       |    |		.STRTAB	0x0004->0x04ae							; "<ALL_WORLDS>"
04ad 000e       |    |		.STREND 0x000e->0x04b4
04ae 3c41 4c4c  |<ALL|		.STRTAB_STRINGS
04b4 0000 0000  |    |		.BLANK	0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; Debug Table
04b8 ; --------------------------------------------------------------------------------------
04b8 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xe496,0x0000,0x0001,0x0000
04be 0008 e612  |    |		.XXX[0x6]
04c0 0001 b33a  |   :|
04c2 0000 cd7c  |   ||
04c4 0000 0000  |    |		.BLANK	0000[0x4]
04c8 0007 5fc2  |  _ |		.XXX[0xc]
04ca 0009 1bfc  |    |
04cc 0005 457e  |  E~|
04ce 0005 633e  |  c>|
04d0 0000 0000  |    |
04d2 0002 163a  |   :|
04d4 0000 0000  |    |		.BLANK	0000[0x4]
04d8 0005 f5b2  |    |		.XXX[0x2]
04da 0000 0000  |    |		.BLANK	0000[0x4]
04de 0005 f672  |   r|		.XXX[0x8]
04e0 0009 4602  |  F |
04e2 0000 0000  |    |
04e4 0005 04fe  |    |
04e6 0000 0000  |    |		.BLANK	0000[0x4]
04ea 0007 39d6  |  9 |		.XXX[0x4]
04ec 0007 e72a  |   *|
04ee 0000 0000  |    |		.BLANK	0000[0x4]
04f2 0008 d6c0  |    |		.XXX[0x6]
04f4 0009 0088  |    |
04f6 0004 cefe  |    |
04f8 0000 0000  |    |		.BLANK	0000[0x4]
04fc 0005 d332  |   2|		.XXX[0x2]
04fe 0000 0000  |    |		.BLANK	0000[0x4]
0502 0005 14be  |    |		.XXX[0x8]
0504 0000 bd38  |   8|
0506 0009 b730  |   0|
0508 0009 82a2  |    |
050a 0000 0000  |    |		.BLANK	0000[0x4]
050e 0005 f1f2  |    |		.XXX[0xe]
0510 0007 5fc2  |  _ |
0512 0008 bc4a  |   J|
0514 0005 f732  |   2|
0516 0007 f226  |   &|
0518 0000 0000  |    |
051a 0008 a4a8  |    |
051c 0000 0000  |    |		.BLANK	0000[0x4]
0520 0009 5362  |  Sb|		.XXX[0xa]
0522 0000 1132  |   2|
0524 0006 18ce  |    |
0526 0005 fa32  |   2|
0528 0006 9858  |   X|
052a 0000 0000  |    |		.BLANK	0000[0x4]
052e 0007 5fc2  |  _ |		.XXX[0x8]
0530 0008 e612  |    |
0532 0005 217e  |  !~|
0534 0006 9558  |   X|
0536 0000 0000  |    |		.BLANK	0000[0x4]
053a 0001 2c60  |  ,`|		.XXX[0x30]
053c 0007 4d86  |  M |
053e 0000 0000  |    |
0540 0000 1132  |   2|
0542 0005 abcc  |    |
0544 0004 eb7e  |   ~|
0546 0000 2840  |  (@|
0548 0009 e20a  |    |
054a 0000 0000  |    |
054c 0007 5fc2  |  _ |
054e 0003 6158  |  aX|
0550 0004 cd7e  |   ~|
0552 0002 7a6a  |  zj|
0554 0002 8416  |    |
0556 0000 0000  |    |
0558 0007 5fc2  |  _ |
055a 0008 d6c0  |    |
055c 0005 0f7e  |   ~|
055e 0007 a8fa  |    |
0560 0009 e20a  |    |
0562 0005 e472  |   r|
0564 0001 7610  |  v |
0566 0000 0000  |    |
0568 0004 aebe  |    |
056a 0000 0000  |    |		.BLANK	0000[0x4]
056e 0004 9b3e  |   >|		.XXX[0x2]
0570 0000 0000  |    |		.BLANK	0000[0x4]
0574 0008 4928  |  I(|		.XXX[0x14]
0576 0000 bd38  |   8|
0578 0004 0d3a  |   :|
057a 0005 cc72  |   r|
057c 0002 7a6a  |  zj|
057e 0007 9092  |    |
0580 0008 4328  |  C(|
0582 0001 8964  |   d|
0584 0008 f356  |   V|
0586 0009 4ca2  |  L |
0588 0000 0000  |    |		.BLANK	0000[0x4]
058c 0004 b9fe  |    |		.XXX[0x8]
058e 0008 d6c0  |    |
0590 0004 45b6  |  E |
0592 0005 2efe  |  . |
0594 0000 0000  |    |		.BLANK	0000[0x6]
059a 0001 8964  |   d|		.XXX[0x12]
059c 0003 e112  |    |
059e 0000 0000  |    |
05a0 0002 9dba  |    |
05a2 0000 0000  |    |
05a4 0004 fe3e  |   >|
05a6 0000 1132  |   2|
05a8 0008 bc4a  |   J|
05aa 0008 5168  |  Qh|
05ac 0000 0000  |    |		.BLANK	0000[0x4]
05b0 0004 ee7e  |   ~|		.XXX[0x14]
05b2 0003 b7da  |    |
05b4 0004 0d3a  |   :|
05b6 0001 d2ba  |    |
05b8 0005 83fa  |    |
05ba 0000 0000  |    |
05bc 0004 af7e  |   ~|
05be 0008 0dc4  |    |
05c0 0000 0000  |    |
05c2 0001 e93a  |   :|
05c4 0000 0000  |    |		.BLANK	0000[0x4]
05c8 0004 f17e  |   ~|		.XXX[0x14]
05ca 0000 1132  |   2|
05cc 0004 45b6  |  E |
05ce 0005 08be  |    |
05d0 0002 fff6  |    |
05d2 0007 4d86  |  M |
05d4 0004 d97e  |   ~|
05d6 0005 643e  |  d>|
05d8 0000 0000  |    |
05da 0008 49e8  |  I |
05dc 0000 0000  |    |		.BLANK	0000[0x4]
05e0 0005 223e  |  ">|		.XXX[0x1a]
05e2 0002 fff6  |    |
05e4 0008 c87e  |   ~|
05e6 0005 1f3e  |   >|
05e8 0005 773e  |  w>|
05ea 0000 0000  |    |
05ec 0004 d1fe  |    |
05ee 0006 cb1e  |    |
05f0 0000 0000  |    |
05f2 0005 097e  |   ~|
05f4 0006 6ede  |  n |
05f6 0008 bc4a  |   J|
05f8 0009 6e62  |  nb|
05fa 0000 0000  |    |		.BLANK	0000[0x4]
05fe 0004 be7e  |   ~|		.XXX[0x2]