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

⟦c33d5cd8f⟧

    Length: 7168 (0x1c00)
    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 0c18       |    |		.CONST	0x0c18								; 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 0070       | p  |		.CONST	0x0070								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002d       | -  |		.CONST	0x002d								; Number of locals
000b			INIT_0008:
000b 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e e001       |    |		Load	0x0,0x1
000f e002       |    |		Load	0x0,0x2
0010 e003       |    |		Load	0x0,0x3
0011 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0012 e004       |    |		Load	0x0,0x4
0013 0387       |    |		Declare_Variable	Package
0014 00d8       |    |		Load_Top	At_Offset_0
0015 020f       |    |		Execute	Module,Activate
0016 00d8       |    |		Load_Top	At_Offset_0
0017 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0018 00d8       |    |		Load_Top	At_Offset_0
0019 0007       |    |		Action	Break_Optional
001a 0092 0a79  |   y|		Action	Push_String_Extended,0xa79					; " * RCI_CMVC * "
001c 029d 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call
001e 029d 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call
0020 e005       |    |		Load	0x0,0x5
0021 e006       |    |		Load	0x0,0x6
0022 e20f       |    |		Load	0x1,0xf
0023 e210       |    |		Load	0x1,0x10
0024 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0025 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0026 0092 0a7a  |   z|		Action	Push_String_Extended,0xa7a					; "RCI_Primary_Job_Map"
0028 e007       |    |		Load	0x0,0x7
0029 0387       |    |		Declare_Variable	Package
002a 00d8       |    |		Load_Top	At_Offset_0
002b 020f       |    |		Execute	Module,Activate
002c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 029d 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call
0030 029d 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call
0032 029d 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call
0034 029d 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call
0036 029d 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call
0038 029d 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call
003a 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call
003c 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
003e 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call
0040 029d 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call
0042 029d 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call
0044 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call
0046 029d 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call
0048 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call
004a 029d 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call
004c 029d 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call
004e 029d 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call
0050 029d 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call
0052 029d 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call
0054 029d 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call
0056 029d 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Outer_Call
0058 029d 086b  |   k|		Declare_Subprogram	INIT_0868,For_Outer_Call
005a 029d 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call
005c 029d 094b  |   K|		Declare_Subprogram	INIT_0948,For_Outer_Call
005e e008       |    |		Load	0x0,0x8
005f e009       |    |		Load	0x0,0x9
0060 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0061 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0062 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0063 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0064 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0065 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0066 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0067 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0068 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0069 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
006a 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
006b e00a       |    |		Load	0x0,0xa
006c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006d 0387       |    |		Declare_Variable	Package
006e 00d8       |    |		Load_Top	At_Offset_0
006f 020f       |    |		Execute	Module,Activate
0070			BODY_0008:
0070 e00b       |    |		Load	0x0,0xb
0071 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0072 0322       | "  |		Declare_Variable	Record
0073 e00c       |    |		Load	0x0,0xc
0074 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0075 00d9       |    |		Load_Top	At_Offset_1
0076 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0077 4801       |H   |		Short_Literal	0x1
0078 00d9       |    |		Load_Top	At_Offset_1
0079 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007a e00c       |    |		Load	0x0,0xc
007b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
007c 00d9       |    |		Load_Top	At_Offset_1
007d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
007e 4801       |H   |		Short_Literal	0x1
007f 00d9       |    |		Load_Top	At_Offset_1
0080 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0081 e00c       |    |		Load	0x0,0xc
0082 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0083 00d9       |    |		Load_Top	At_Offset_1
0084 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0085 4801       |H   |		Short_Literal	0x1
0086 00d9       |    |		Load_Top	At_Offset_1
0087 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0088 4800       |H   |		Short_Literal	0x0
0089 00d9       |    |		Load_Top	At_Offset_1
008a 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
008b 00d9       |    |		Load_Top	At_Offset_1
008c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
008d e00a       |    |		Load	0x0,0xa
008e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
008f 00bc       |    |		Action	Signal_Activated
0090 00bb       |    |		Action	Signal_Completion
0091 0000 0000  |    |		.BLANK	0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009c 0000 0000  |    |		.BLANK	0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a5       |    |		.CONST	0x00a5								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0002       |    |		.CONST	0x0002								; Number of locals
00a3			INIT_00a0:
00a3 e20f       |    |		Load	0x1,0xf
00a4 0007       |    |		Action	Break_Optional
00a5			BODY_00a0:
00a5 e20e       |    |		Load	0x1,0xe
00a6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00a7 e00d       |    |		Load	0x0,0xd
00a8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a9 e00e       |    |		Load	0x0,0xe
00aa 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ab e20e       |    |		Load	0x1,0xe
00ac 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ad 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00ae 00d8       |    |		Load_Top	At_Offset_0
00af a5ff       |    |		Store_Unchecked	0x2,-0x1
00b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bc 0000 0000  |    |		.BLANK	0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 e00f       |    |		Load	0x0,0xf
00c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c5			BODY_00c0:
00c5 e5fe       |    |		Load	0x2,-0x2
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 e00f       |    |		Load	0x0,0xf
00c8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c9 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00ca e5fd       |    |		Load	0x2,-0x3
00cb 00d9       |    |		Load_Top	At_Offset_1
00cc e00f       |    |		Load	0x0,0xf
00cd 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
00ce 4803       |H   |		Short_Literal	0x3
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 e00f       |    |		Load	0x0,0xf
00d1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00d3 0000 0000  |    |		.BLANK	0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00df       |    |		.CONST	0x00df								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0002       |    |		.CONST	0x0002								; Number of locals
00db			INIT_00d8:
00db e010       |    |		Load	0x0,0x10
00dc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00dd e010       |    |		Load	0x0,0x10
00de 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00df			BODY_00d8:
00df 4801       |H   |		Short_Literal	0x1
00e0 0092 0a7b  |   {|		Action	Push_String_Extended,0xa7b					; "*system"
00e2 00da       |    |		Load_Top	At_Offset_2
00e3 e011       |    |		Load	0x0,0x11
00e4 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00e5 00ca       |    |		Action	Exit_Nullary_Function
00e6 0000 0000  |    |		.XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed       |    |		.CONST	0x00ed								; Address of begin
00e9 0109       |    |		.CONST	0x0109								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb 0092 0a7c  |   ||		Action	Push_String_Extended,0xa7c					; "RcI"
00ed			BODY_00e8:
00ed 00d8       |    |		Load_Top	At_Offset_0
00ee e012       |    |		Load	0x0,0x12
00ef 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f0 7006       |p   |		Jump_Nonzero	0xf7
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 e013       |    |		Load	0x0,0x13
00f3 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00f4 601f       |`   |		Indirect_Literal	Discrete,0x114,{0x00000000, 0x00008f48}
00f5 8215       |    |		Call	0x1,0x15
00f6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f7 8216       |    |		Call	0x1,0x16
00f8 6801       |h   |		Jump_Zero	0xfa
00f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00fa e00d       |    |		Load	0x0,0xd
00fb 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00fc 4801       |H   |		Short_Literal	0x1
00fd 00da       |    |		Load_Top	At_Offset_2
00fe e014       |    |		Load	0x0,0x14
00ff 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0100 e014       |    |		Load	0x0,0x14
0101 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0102 7005       |p   |		Jump_Nonzero	0x108
0103 00db       |    |		Load_Top	At_Offset_3
0104 e013       |    |		Load	0x0,0x13
0105 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0106 6009       |`   |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x00008f47}
0107 8215       |    |		Call	0x1,0x15
0108 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0109			TRAP_00e8:
0109 4884       |H   |		Short_Literal	0x84
010a 010f       |    |		Execute	Exception,Equal
010b 6801       |h   |		Jump_Zero	0x10d
010c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010d 0100       |    |		Execute	Exception,Raise
010e 0000 0000  |    |		.XXX[0x2]
0110 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008f47}
0114 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008f48}
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0134       | 4  |		.CONST	0x0134								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2
011c e00b       |    |		Load	0x0,0xb
011d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
011e e015       |    |		Load	0x0,0x15
011f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0120 6812       |h   |		Jump_Zero	0x133
0121 00db       |    |		Load_Top	At_Offset_3
0122 4801       |H   |		Short_Literal	0x1
0123 4801       |H   |		Short_Literal	0x1
0124 e013       |    |		Load	0x0,0x13
0125 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0126 035b       | [  |		Declare_Type	Array,Constrained
0127 0337       | 7  |		Declare_Variable	Array
0128 e5ff       |    |		Load	0x2,-0x1
0129 e015       |    |		Load	0x0,0x15
012a 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
012b e013       |    |		Load	0x0,0x13
012c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012d 0119       |    |		Execute	Any,Check_In_Formal_Type
012e 4801       |H   |		Short_Literal	0x1
012f 00da       |    |		Load_Top	At_Offset_2
0130 01d6       |    |		Execute	Vector,Field_Write
0131 600e       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00008f91}
0132 8215       |    |		Call	0x1,0x15
0133 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0134			TRAP_0118:
0134 010e       |    |		Execute	Exception,Is_Constraint_Error
0135 6806       |h   |		Jump_Zero	0x13c
0136 e5fe       |    |		Load	0x2,-0x2
0137 e013       |    |		Load	0x0,0x13
0138 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0139 6006       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00008f91}
013a 8215       |    |		Call	0x1,0x15
013b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013c 0100       |    |		Execute	Exception,Raise
013d 0000 0000  |    |		.XXX[0x3]
013f 0000       |    |
0140 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008f91}
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b e016       |    |		Load	0x0,0x16
014c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
014d 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
014e e016       |    |		Load	0x0,0x16
014f 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0150 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0151 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0152 00ca       |    |		Action	Exit_Nullary_Function
0153 0000 0000  |    |		.BLANK	0000[0x5]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b 0092 0a7d  |   }|		Action	Push_String_Extended,0xa7d					; "D_12_7"
015d			BODY_0158:
015d 00d8       |    |		Load_Top	At_Offset_0
015e 8219       |    |		Call	0x1,0x19
015f 01bf       |    |		Execute	Vector,Less_Equal
0160 00ca       |    |		Action	Exit_Nullary_Function
0161 0000 0000  |    |		.BLANK	0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0174       | t  |		.CONST	0x0174								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0003       |    |		.CONST	0x0003								; Number of locals
016b			INIT_0168:
016b e003       |    |		Load	0x0,0x3
016c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
016e 02c7       |    |		Declare_Variable	Any
016f 00d8       |    |		Load_Top	At_Offset_0
0170 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0171 e003       |    |		Load	0x0,0x3
0172 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0173 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0174			BODY_0168:
0174 e003       |    |		Load	0x0,0x3
0175 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0176 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0177 00da       |    |		Load_Top	At_Offset_2
0178 601f       |`   |		Indirect_Literal	Discrete,0x198,{0x00000000, 0x00004000}
0179 e017       |    |		Load	0x0,0x17
017a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
017b e00d       |    |		Load	0x0,0xd
017c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
017d e00e       |    |		Load	0x0,0xe
017e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
017f 4801       |H   |		Short_Literal	0x1
0180 4800       |H   |		Short_Literal	0x0
0181 e00d       |    |		Load	0x0,0xd
0182 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0183 e003       |    |		Load	0x0,0x3
0184 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0185 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0186 e5ff       |    |		Load	0x2,-0x1
0187 e003       |    |		Load	0x0,0x3
0188 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0189 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
018a c402       |    |		Store	0x2,0x2
018b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
018c 00d8       |    |		Load_Top	At_Offset_0
018d 0e00       |    |		Execute_Immediate	Not_Equal,0x0
018e 00d9       |    |		Load_Top	At_Offset_1
018f 0e03       |    |		Execute_Immediate	Not_Equal,0x3
0190 0279       | y  |		Execute	Discrete,And
0191 6804       |h   |		Jump_Zero	0x196
0192 e003       |    |		Load	0x0,0x3
0193 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0194 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 00d9       |    |		Load_Top	At_Offset_1
0197 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0198 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
019c 0000 0000  |    |		.BLANK	0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b5       |    |		.CONST	0x01b5								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0007       |    |		.CONST	0x0007								; Number of locals
01a3			INIT_01a0:
01a3 e003       |    |		Load	0x0,0x3
01a4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01a6 02c7       |    |		Declare_Variable	Any
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a9 e003       |    |		Load	0x0,0x3
01aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ab 02c7       |    |		Declare_Variable	Any
01ac 00d8       |    |		Load_Top	At_Offset_0
01ad 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ae e00f       |    |		Load	0x0,0xf
01af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01b1 00e2       |    |		Load_Encached	Integer_Cache
01b2 00e1       |    |		Load_Encached	Boolean_Cache
01b3 029f 097b  |   {|		Declare_Subprogram	INIT_0978,For_Call
01b5			BODY_01a0:
01b5 e5ff       |    |		Load	0x2,-0x1
01b6 e015       |    |		Load	0x0,0x15
01b7 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01b8 7001       |p   |		Jump_Nonzero	0x1ba
01b9 8407       |    |		Call	0x2,0x7
01ba 4800       |H   |		Short_Literal	0x0
01bb a5fc       |    |		Store_Unchecked	0x2,-0x4
01bc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 4604       |F   |		Jump_Case	0x5
01c5 7806       |x   |		Jump	0x1cc								; case 0x0
01c6 7806       |x   |		Jump	0x1cd								; case 0x1
01c7 7807       |x   |		Jump	0x1cf								; case 0x2
01c8 7808       |x   |		Jump	0x1d1								; case 0x3
01c9 7800       |x   |		Jump	0x1ca								; case 0x4
01ca 4803       |H   |		Short_Literal	0x3
01cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cc 08e0       |    |		Execute_Immediate	Raise,0xe0
01cd 4800       |H   |		Short_Literal	0x0
01ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cf 4801       |H   |		Short_Literal	0x1
01d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d1 4802       |H   |		Short_Literal	0x2
01d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d3 0000 0000  |    |		.BLANK	0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00cf       |    |		Action	Mark_Auxiliary
01dc e5fe       |    |		Load	0x2,-0x2
01dd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01de 4801       |H   |		Short_Literal	0x1
01df 0263       | c  |		Execute	Discrete,Above_Bound
01e0 7026       |p&  |		Jump_Nonzero	0x207
01e1 e018       |    |		Load	0x0,0x18
01e2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01e3 0322       | "  |		Declare_Variable	Record
01e4 00d9       |    |		Load_Top	At_Offset_1
01e5 e5fe       |    |		Load	0x2,-0x2
01e6 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01e7 01d5       |    |		Execute	Vector,Field_Reference
01e8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01e9 e018       |    |		Load	0x0,0x18
01ea 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01eb 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
01ec 0119       |    |		Execute	Any,Check_In_Formal_Type
01ed 00d9       |    |		Load_Top	At_Offset_1
01ee 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ef 00d9       |    |		Load_Top	At_Offset_1
01f0 e5fe       |    |		Load	0x2,-0x2
01f1 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01f2 01d5       |    |		Execute	Vector,Field_Reference
01f3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f4 821d       |    |		Call	0x1,0x1d
01f5 00d9       |    |		Load_Top	At_Offset_1
01f6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f7 e5ff       |    |		Load	0x2,-0x1
01f8 0217       |    |		Execute	Heap_Access,All_Reference
01f9 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01fa 00d9       |    |		Load_Top	At_Offset_1
01fb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01fc e018       |    |		Load	0x0,0x18
01fd 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
01fe e5ff       |    |		Load	0x2,-0x1
01ff 0217       |    |		Execute	Heap_Access,All_Reference
0200 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0201 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0202 e5ff       |    |		Load	0x2,-0x1
0203 0217       |    |		Execute	Heap_Access,All_Reference
0204 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0205 00c8       |    |		Action	Pop_Auxiliary_Range
0206 3fda       |?   |		Loop_Increasing	0x1e1
0207 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020f       |    |		.CONST	0x020f								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b e00d       |    |		Load	0x0,0xd
020c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020d e214       |    |		Load	0x1,0x14
020e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
020f			BODY_0208:
020f 00d8       |    |		Load_Top	At_Offset_0
0210 e5fe       |    |		Load	0x2,-0x2
0211 e20e       |    |		Load	0x1,0xe
0212 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0213 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0214 4800       |H   |		Short_Literal	0x0
0215 e00d       |    |		Load	0x0,0xd
0216 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0217 00da       |    |		Load_Top	At_Offset_2
0218 e214       |    |		Load	0x1,0x14
0219 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
021a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021b 0000 0000  |    |		.BLANK	0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022e       | .  |		.CONST	0x022e								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0004       |    |		.CONST	0x0004								; Number of locals
0223			INIT_0220:
0223 e00d       |    |		Load	0x0,0xd
0224 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0225 e214       |    |		Load	0x1,0x14
0226 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0227 e20e       |    |		Load	0x1,0xe
0228 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0229 e003       |    |		Load	0x0,0x3
022a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
022b 02c7       |    |		Declare_Variable	Any
022c 00d8       |    |		Load_Top	At_Offset_0
022d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022e			BODY_0220:
022e e20e       |    |		Load	0x1,0xe
022f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0230 00db       |    |		Load_Top	At_Offset_3
0231 e20e       |    |		Load	0x1,0xe
0232 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0233 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0234 00cf       |    |		Action	Mark_Auxiliary
0235 7817       |x   |		Jump	0x24d
0236 00da       |    |		Load_Top	At_Offset_2
0237 e20e       |    |		Load	0x1,0xe
0238 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0239 c404       |    |		Store	0x2,0x4
023a e5ff       |    |		Load	0x2,-0x1
023b 0217       |    |		Execute	Heap_Access,All_Reference
023c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
023d 00da       |    |		Load_Top	At_Offset_2
023e e5fe       |    |		Load	0x2,-0x2
023f e5ff       |    |		Load	0x2,-0x1
0240 0217       |    |		Execute	Heap_Access,All_Reference
0241 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0242 4801       |H   |		Short_Literal	0x1
0243 e404       |    |		Load	0x2,0x4
0244 e015       |    |		Load	0x0,0x15
0245 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0246 e019       |    |		Load	0x0,0x19
0247 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0248 00da       |    |		Load_Top	At_Offset_2
0249 e20e       |    |		Load	0x1,0xe
024a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
024b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
024c 00c9       |    |		Action	Pop_Auxiliary_Loop
024d 00da       |    |		Load_Top	At_Offset_2
024e e20e       |    |		Load	0x1,0xe
024f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0250 6fe5       |o   |		Jump_Zero	0x236
0251 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0252 0000 0000  |    |		.BLANK	0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025f       | _  |		.CONST	0x025f								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0002       |    |		.CONST	0x0002								; Number of locals
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c e003       |    |		Load	0x0,0x3
025d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
025e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
025f			BODY_0258:
025f 0092 0a7e  |   ~|		Action	Push_String_Extended,0xa7e					; "<PROFILE>"
0261 4801       |H   |		Short_Literal	0x1
0262 00da       |    |		Load_Top	At_Offset_2
0263 0092 0a7f  |    |		Action	Push_String_Extended,0xa7f					; ".state.tool_state"
0265 01cc       |    |		Execute	Vector,Catenate
0266 e01a       |    |		Load	0x0,0x1a
0267 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0268 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 029a       |    |		.CONST	0x029a								; Address of begin
0271 033a       | :  |		.CONST	0x033a								; Address of exception handler
0272 0009       |    |		.CONST	0x0009								; Number of locals
0273			INIT_0270:
0273 e003       |    |		Load	0x0,0x3
0274 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0275 02c7       |    |		Declare_Variable	Any
0276 e5fa       |    |		Load	0x2,-0x6
0277 e5ff       |    |		Load	0x2,-0x1
0278 e01b       |    |		Load	0x0,0x1b
0279 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
027a a402       |    |		Store_Unchecked	0x2,0x2
027b 00d8       |    |		Load_Top	At_Offset_0
027c e003       |    |		Load	0x0,0x3
027d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
027e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
027f e003       |    |		Load	0x0,0x3
0280 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0281 0322       | "  |		Declare_Variable	Record
0282 e5fa       |    |		Load	0x2,-0x6
0283 0217       |    |		Execute	Heap_Access,All_Reference
0284 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0285 e5fc       |    |		Load	0x2,-0x4
0286 e015       |    |		Load	0x0,0x15
0287 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0288 00d9       |    |		Load_Top	At_Offset_1
0289 017d       | }  |		Execute	Record,Structure_Write
028a 00d8       |    |		Load_Top	At_Offset_0
028b e5fe       |    |		Load	0x2,-0x2
028c e01c       |    |		Load	0x0,0x1c
028d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
028e 00d9       |    |		Load_Top	At_Offset_1
028f e5fe       |    |		Load	0x2,-0x2
0290 e01c       |    |		Load	0x0,0x1c
0291 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0292 00da       |    |		Load_Top	At_Offset_2
0293 e5fe       |    |		Load	0x2,-0x2
0294 e01c       |    |		Load	0x0,0x1c
0295 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0296 e00f       |    |		Load	0x0,0xf
0297 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0298 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0299 00e1       |    |		Load_Encached	Boolean_Cache
029a			BODY_0270:
029a e01d       |    |		Load	0x0,0x1d
029b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
029c 4801       |H   |		Short_Literal	0x1
029d 0092 0a80  |    |		Action	Push_String_Extended,0xa80					; "In Create_View_Preprocess"
029f e01e       |    |		Load	0x0,0x1e
02a0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02a1 e5fa       |    |		Load	0x2,-0x6
02a2 0217       |    |		Execute	Heap_Access,All_Reference
02a3 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02a4 8217       |    |		Call	0x1,0x17
02a5 e5fa       |    |		Load	0x2,-0x6
02a6 0217       |    |		Execute	Heap_Access,All_Reference
02a7 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02a8 e404       |    |		Load	0x2,0x4
02a9 8218       |    |		Call	0x1,0x18
02aa e5fa       |    |		Load	0x2,-0x6
02ab 0217       |    |		Execute	Heap_Access,All_Reference
02ac 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ad e01f       |    |		Load	0x0,0x1f
02ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02af 4801       |H   |		Short_Literal	0x1
02b0 e020       |    |		Load	0x0,0x20
02b1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02b2 e5fd       |    |		Load	0x2,-0x3
02b3 4603       |F   |		Jump_Case	0x4
02b4 7834       |x4  |		Jump	0x2e9								; case 0x0
02b5 7802       |x   |		Jump	0x2b8								; case 0x1
02b6 7832       |x2  |		Jump	0x2e9								; case 0x2
02b7 7800       |x   |		Jump	0x2b8								; case 0x3
02b8 821a       |    |		Call	0x1,0x1a
02b9 6818       |h   |		Jump_Zero	0x2d2
02ba 4801       |H   |		Short_Literal	0x1
02bb 4801       |H   |		Short_Literal	0x1
02bc e013       |    |		Load	0x0,0x13
02bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02be 035b       | [  |		Declare_Type	Array,Constrained
02bf 0337       | 7  |		Declare_Variable	Array
02c0 e5fe       |    |		Load	0x2,-0x2
02c1 e013       |    |		Load	0x0,0x13
02c2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02c3 e013       |    |		Load	0x0,0x13
02c4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c5 0119       |    |		Execute	Any,Check_In_Formal_Type
02c6 4801       |H   |		Short_Literal	0x1
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 01d6       |    |		Execute	Vector,Field_Write
02c9 6086       |`   |		Indirect_Literal	Discrete,0x350,{0x00000000, 0x00008f30}
02ca e00f       |    |		Load	0x0,0xf
02cb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02cc e00f       |    |		Load	0x0,0xf
02cd 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
02ce e5fa       |    |		Load	0x2,-0x6
02cf e021       | !  |		Load	0x0,0x21
02d0 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02d1 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
02d2 e01d       |    |		Load	0x0,0x1d
02d3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d4 4801       |H   |		Short_Literal	0x1
02d5 4801       |H   |		Short_Literal	0x1
02d6 e013       |    |		Load	0x0,0x13
02d7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02d8 035b       | [  |		Declare_Type	Array,Constrained
02d9 0337       | 7  |		Declare_Variable	Array
02da e5fe       |    |		Load	0x2,-0x2
02db e013       |    |		Load	0x0,0x13
02dc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02dd e013       |    |		Load	0x0,0x13
02de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02df 0119       |    |		Execute	Any,Check_In_Formal_Type
02e0 4801       |H   |		Short_Literal	0x1
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 01d6       |    |		Execute	Vector,Field_Write
02e3 606c       |`l  |		Indirect_Literal	Discrete,0x350,{0x00000000, 0x00008f30}
02e4 e00f       |    |		Load	0x0,0xf
02e5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02e6 e00f       |    |		Load	0x0,0xf
02e7 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
02e8 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
02e9 e5fb       |    |		Load	0x2,-0x5
02ea 0f07       |    |		Execute_Immediate	Equal,0x7
02eb 6841       |hA  |		Jump_Zero	0x32d
02ec 00da       |    |		Load_Top	At_Offset_2
02ed e404       |    |		Load	0x2,0x4
02ee e406       |    |		Load	0x2,0x6
02ef e405       |    |		Load	0x2,0x5
02f0 e5fe       |    |		Load	0x2,-0x2
02f1 e403       |    |		Load	0x2,0x3
02f2 e022       | "  |		Load	0x0,0x22
02f3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02f4 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 7001       |p   |		Jump_Nonzero	0x2f8
02f7 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
02f8 e00f       |    |		Load	0x0,0xf
02f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fa 4800       |H   |		Short_Literal	0x0
02fb e5fa       |    |		Load	0x2,-0x6
02fc 0217       |    |		Execute	Heap_Access,All_Reference
02fd 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02fe e403       |    |		Load	0x2,0x3
02ff 0092 0a81  |    |		Action	Push_String_Extended,0xa81					; ".units"
0301 01cc       |    |		Execute	Vector,Catenate
0302 e023       | #  |		Load	0x0,0x23
0303 188c       |    |		Execute	Package,Field_Execute,Field_Number 0x8c
0304 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0305 4800       |H   |		Short_Literal	0x0
0306 00da       |    |		Load_Top	At_Offset_2
0307 e00f       |    |		Load	0x0,0xf
0308 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0309 7016       |p   |		Jump_Nonzero	0x320
030a e5fa       |    |		Load	0x2,-0x6
030b 0217       |    |		Execute	Heap_Access,All_Reference
030c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
030d 4801       |H   |		Short_Literal	0x1
030e 4801       |H   |		Short_Literal	0x1
030f e013       |    |		Load	0x0,0x13
0310 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0311 035b       | [  |		Declare_Type	Array,Constrained
0312 0337       | 7  |		Declare_Variable	Array
0313 e403       |    |		Load	0x2,0x3
0314 e013       |    |		Load	0x0,0x13
0315 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0316 e013       |    |		Load	0x0,0x13
0317 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0318 0119       |    |		Execute	Any,Check_In_Formal_Type
0319 4801       |H   |		Short_Literal	0x1
031a 00da       |    |		Load_Top	At_Offset_2
031b 01d6       |    |		Execute	Vector,Field_Write
031c 602f       |`/  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x000081b6}
031d e00f       |    |		Load	0x0,0xf
031e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
031f 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0320 00da       |    |		Load_Top	At_Offset_2
0321 e404       |    |		Load	0x2,0x4
0322 e406       |    |		Load	0x2,0x6
0323 e405       |    |		Load	0x2,0x5
0324 4801       |H   |		Short_Literal	0x1
0325 e5fe       |    |		Load	0x2,-0x2
0326 e022       | "  |		Load	0x0,0x22
0327 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0328 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0329 00d8       |    |		Load_Top	At_Offset_0
032a 7001       |p   |		Jump_Nonzero	0x32c
032b 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
032c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
032d 00da       |    |		Load_Top	At_Offset_2
032e e404       |    |		Load	0x2,0x4
032f e406       |    |		Load	0x2,0x6
0330 e405       |    |		Load	0x2,0x5
0331 4800       |H   |		Short_Literal	0x0
0332 e5fe       |    |		Load	0x2,-0x2
0333 e022       | "  |		Load	0x0,0x22
0334 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0335 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0336 00d8       |    |		Load_Top	At_Offset_0
0337 7001       |p   |		Jump_Nonzero	0x339
0338 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0339 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
033a			TRAP_0270:
033a e00f       |    |		Load	0x0,0xf
033b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
033c 010f       |    |		Execute	Exception,Equal
033d 6803       |h   |		Jump_Zero	0x341
033e e01d       |    |		Load	0x0,0x1d
033f 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0340 0257       | W  |		Execute	Discrete,Raise
0341 e5fa       |    |		Load	0x2,-0x6
0342 0217       |    |		Execute	Heap_Access,All_Reference
0343 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0344 0092 0a82  |    |		Action	Push_String_Extended,0xa82					; "Create_View_Preprocess"
0346 e024       | $  |		Load	0x0,0x24
0347 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0348 e01d       |    |		Load	0x0,0x1d
0349 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
034a 0257       | W  |		Execute	Discrete,Raise
034b 0000       |    |		.XXX[0x1]
034c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b6}
0350 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008f30}
0354 0000 0000  |    |		.BLANK	0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0393       |    |		.CONST	0x0393								; Address of begin
0359 0475       | u  |		.CONST	0x0475								; Address of exception handler
035a 000e       |    |		.CONST	0x000e								; Number of locals
035b			INIT_0358:
035b e003       |    |		Load	0x0,0x3
035c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
035d 02c7       |    |		Declare_Variable	Any
035e e5fb       |    |		Load	0x2,-0x5
035f e5fe       |    |		Load	0x2,-0x2
0360 e01b       |    |		Load	0x0,0x1b
0361 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0362 a402       |    |		Store_Unchecked	0x2,0x2
0363 00d8       |    |		Load_Top	At_Offset_0
0364 e003       |    |		Load	0x0,0x3
0365 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0366 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0367 e003       |    |		Load	0x0,0x3
0368 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0369 0322       | "  |		Declare_Variable	Record
036a e5fb       |    |		Load	0x2,-0x5
036b 0217       |    |		Execute	Heap_Access,All_Reference
036c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
036d e5fd       |    |		Load	0x2,-0x3
036e e015       |    |		Load	0x0,0x15
036f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0370 00d9       |    |		Load_Top	At_Offset_1
0371 017d       | }  |		Execute	Record,Structure_Write
0372 00d8       |    |		Load_Top	At_Offset_0
0373 00db       |    |		Load_Top	At_Offset_3
0374 e01c       |    |		Load	0x0,0x1c
0375 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0376 00d9       |    |		Load_Top	At_Offset_1
0377 e402       |    |		Load	0x2,0x2
0378 e01c       |    |		Load	0x0,0x1c
0379 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
037a 00da       |    |		Load_Top	At_Offset_2
037b e402       |    |		Load	0x2,0x2
037c e01c       |    |		Load	0x0,0x1c
037d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
037e 00db       |    |		Load_Top	At_Offset_3
037f e402       |    |		Load	0x2,0x2
0380 e01c       |    |		Load	0x0,0x1c
0381 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0382 00e1       |    |		Load_Encached	Boolean_Cache
0383 e00f       |    |		Load	0x0,0xf
0384 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0385 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0386 e003       |    |		Load	0x0,0x3
0387 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0388 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0389 02c7       |    |		Declare_Variable	Any
038a 00d8       |    |		Load_Top	At_Offset_0
038b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
038c e003       |    |		Load	0x0,0x3
038d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
038e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
038f 029f 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Call
0391 029f 09eb  |    |		Declare_Subprogram	INIT_09e8,For_Call
0393			BODY_0358:
0393 e01d       |    |		Load	0x0,0x1d
0394 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0395 4801       |H   |		Short_Literal	0x1
0396 0092 0a83  |    |		Action	Push_String_Extended,0xa83					; "In Create_View_Midprocess"
0398 e01e       |    |		Load	0x0,0x1e
0399 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
039a e5fb       |    |		Load	0x2,-0x5
039b 0217       |    |		Execute	Heap_Access,All_Reference
039c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
039d 8217       |    |		Call	0x1,0x17
039e e5fb       |    |		Load	0x2,-0x5
039f 0217       |    |		Execute	Heap_Access,All_Reference
03a0 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
03a1 e404       |    |		Load	0x2,0x4
03a2 8218       |    |		Call	0x1,0x18
03a3 e5fb       |    |		Load	0x2,-0x5
03a4 0217       |    |		Execute	Heap_Access,All_Reference
03a5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a6 e01f       |    |		Load	0x0,0x1f
03a7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03a8 e5fc       |    |		Load	0x2,-0x4
03a9 0f04       |    |		Execute_Immediate	Equal,0x4
03aa 7001       |p   |		Jump_Nonzero	0x3ac
03ab 7813       |x   |		Jump	0x3bf
03ac 0092 0a84  |    |		Action	Push_String_Extended,0xa84					; "True"
03ae 0092 0a85  |    |		Action	Push_String_Extended,0xa85					; "RCI can't set Host_Only switch in "
03b0 e403       |    |		Load	0x2,0x3
03b1 01cc       |    |		Execute	Vector,Catenate
03b2 e5fb       |    |		Load	0x2,-0x5
03b3 0092 0a86  |    |		Action	Push_String_Extended,0xa86					; "RCI.host_only"
03b5 0092 0a87  |    |		Action	Push_String_Extended,0xa87					; "RCI can't get associated switch file for "
03b7 e403       |    |		Load	0x2,0x3
03b8 01cc       |    |		Execute	Vector,Catenate
03b9 e5fb       |    |		Load	0x2,-0x5
03ba e402       |    |		Load	0x2,0x2
03bb e021       | !  |		Load	0x0,0x21
03bc 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
03bd e021       | !  |		Load	0x0,0x21
03be 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
03bf 4800       |H   |		Short_Literal	0x0
03c0 e5fb       |    |		Load	0x2,-0x5
03c1 e025       | %  |		Load	0x0,0x25
03c2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03c3 4800       |H   |		Short_Literal	0x0
03c4 e020       |    |		Load	0x0,0x20
03c5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03c6 e402       |    |		Load	0x2,0x2
03c7 e015       |    |		Load	0x0,0x15
03c8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03c9 7026       |p&  |		Jump_Nonzero	0x3f0
03ca e00f       |    |		Load	0x0,0xf
03cb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03cc e5fb       |    |		Load	0x2,-0x5
03cd 0217       |    |		Execute	Heap_Access,All_Reference
03ce 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
03cf 4801       |H   |		Short_Literal	0x1
03d0 0092 0a88  |    |		Action	Push_String_Extended,0xa88					; "<DEFAULT>"
03d2 0092 0a88  |    |		Action	Push_String_Extended,0xa88					; "<DEFAULT>"
03d4 0092 0a88  |    |		Action	Push_String_Extended,0xa88					; "<DEFAULT>"
03d6 0092 0a88  |    |		Action	Push_String_Extended,0xa88					; "<DEFAULT>"
03d8 0092 0a88  |    |		Action	Push_String_Extended,0xa88					; "<DEFAULT>"
03da 4800       |H   |		Short_Literal	0x0
03db e404       |    |		Load	0x2,0x4
03dc e407       |    |		Load	0x2,0x7
03dd 00ea       |    |		Load_Encached	Null_String_Cache
03de e406       |    |		Load	0x2,0x6
03df e405       |    |		Load	0x2,0x5
03e0 e402       |    |		Load	0x2,0x2
03e1 e026       | &  |		Load	0x0,0x26
03e2 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03e3 c40a       |    |		Store	0x2,0xa
03e4 4800       |H   |		Short_Literal	0x0
03e5 e40a       |    |		Load	0x2,0xa
03e6 e00f       |    |		Load	0x0,0xf
03e7 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
03e8 7007       |p   |		Jump_Nonzero	0x3f0
03e9 e5fb       |    |		Load	0x2,-0x5
03ea 0217       |    |		Execute	Heap_Access,All_Reference
03eb 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
03ec e40a       |    |		Load	0x2,0xa
03ed e00f       |    |		Load	0x0,0xf
03ee 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
03ef 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03f0 4800       |H   |		Short_Literal	0x0
03f1 e40a       |    |		Load	0x2,0xa
03f2 e00f       |    |		Load	0x0,0xf
03f3 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
03f4 7007       |p   |		Jump_Nonzero	0x3fc
03f5 e5fb       |    |		Load	0x2,-0x5
03f6 0217       |    |		Execute	Heap_Access,All_Reference
03f7 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
03f8 e40a       |    |		Load	0x2,0xa
03f9 e00f       |    |		Load	0x0,0xf
03fa 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
03fb 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
03fc e015       |    |		Load	0x0,0x15
03fd 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
03fe 7009       |p   |		Jump_Nonzero	0x408
03ff e406       |    |		Load	0x2,0x6
0400 01db       |    |		Execute	Vector,Length
0401 6872       |hr  |		Jump_Zero	0x474
0402 4800       |H   |		Short_Literal	0x0
0403 e211       |    |		Load	0x1,0x11
0404 e408       |    |		Load	0x2,0x8
0405 e011       |    |		Load	0x0,0x11
0406 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0407 686c       |hl  |		Jump_Zero	0x474
0408 e5fc       |    |		Load	0x2,-0x4
0409 4608       |F   |		Jump_Case	0x9
040a 7808       |x   |		Jump	0x413								; case 0x0
040b 7807       |x   |		Jump	0x413								; case 0x1
040c 7806       |x   |		Jump	0x413								; case 0x2
040d 7805       |x   |		Jump	0x413								; case 0x3
040e 7864       |xd  |		Jump	0x473								; case 0x4
040f 7803       |x   |		Jump	0x413								; case 0x5
0410 7842       |xB  |		Jump	0x453								; case 0x6
0411 7820       |x   |		Jump	0x432								; case 0x7
0412 7800       |x   |		Jump	0x413								; case 0x8
0413 e00f       |    |		Load	0x0,0xf
0414 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0415 e404       |    |		Load	0x2,0x4
0416 e406       |    |		Load	0x2,0x6
0417 e405       |    |		Load	0x2,0x5
0418 e402       |    |		Load	0x2,0x2
0419 8027       | '  |		Call	0x0,0x27
041a c40a       |    |		Store	0x2,0xa
041b 4800       |H   |		Short_Literal	0x0
041c e40a       |    |		Load	0x2,0xa
041d e00f       |    |		Load	0x0,0xf
041e 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
041f 7006       |p   |		Jump_Nonzero	0x426
0420 e01d       |    |		Load	0x0,0x1d
0421 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0422 e40a       |    |		Load	0x2,0xa
0423 e00f       |    |		Load	0x0,0xf
0424 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0425 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0426 e407       |    |		Load	0x2,0x7
0427 e404       |    |		Load	0x2,0x4
0428 e406       |    |		Load	0x2,0x6
0429 e405       |    |		Load	0x2,0x5
042a 4800       |H   |		Short_Literal	0x0
042b e403       |    |		Load	0x2,0x3
042c e022       | "  |		Load	0x0,0x22
042d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
042e a409       |    |		Store_Unchecked	0x2,0x9
042f e409       |    |		Load	0x2,0x9
0430 7042       |pB  |		Jump_Nonzero	0x473
0431 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0432 e00f       |    |		Load	0x0,0xf
0433 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0434 e404       |    |		Load	0x2,0x4
0435 e406       |    |		Load	0x2,0x6
0436 e405       |    |		Load	0x2,0x5
0437 e402       |    |		Load	0x2,0x2
0438 8027       | '  |		Call	0x0,0x27
0439 c40a       |    |		Store	0x2,0xa
043a 4800       |H   |		Short_Literal	0x0
043b e40a       |    |		Load	0x2,0xa
043c e00f       |    |		Load	0x0,0xf
043d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
043e 7006       |p   |		Jump_Nonzero	0x445
043f e01d       |    |		Load	0x0,0x1d
0440 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0441 e40a       |    |		Load	0x2,0xa
0442 e00f       |    |		Load	0x0,0xf
0443 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0444 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0445 e407       |    |		Load	0x2,0x7
0446 e404       |    |		Load	0x2,0x4
0447 e406       |    |		Load	0x2,0x6
0448 e405       |    |		Load	0x2,0x5
0449 4801       |H   |		Short_Literal	0x1
044a e403       |    |		Load	0x2,0x3
044b e022       | "  |		Load	0x0,0x22
044c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
044d a409       |    |		Store_Unchecked	0x2,0x9
044e e409       |    |		Load	0x2,0x9
044f 7001       |p   |		Jump_Nonzero	0x451
0450 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0451 840d       |    |		Call	0x2,0xd
0452 7820       |x   |		Jump	0x473
0453 e00f       |    |		Load	0x0,0xf
0454 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0455 e404       |    |		Load	0x2,0x4
0456 e406       |    |		Load	0x2,0x6
0457 e405       |    |		Load	0x2,0x5
0458 e402       |    |		Load	0x2,0x2
0459 8027       | '  |		Call	0x0,0x27
045a c40a       |    |		Store	0x2,0xa
045b 4800       |H   |		Short_Literal	0x0
045c e40a       |    |		Load	0x2,0xa
045d e00f       |    |		Load	0x0,0xf
045e 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
045f 7006       |p   |		Jump_Nonzero	0x466
0460 e01d       |    |		Load	0x0,0x1d
0461 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0462 e40a       |    |		Load	0x2,0xa
0463 e00f       |    |		Load	0x0,0xf
0464 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0465 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0466 e407       |    |		Load	0x2,0x7
0467 e404       |    |		Load	0x2,0x4
0468 e406       |    |		Load	0x2,0x6
0469 e405       |    |		Load	0x2,0x5
046a 4801       |H   |		Short_Literal	0x1
046b e403       |    |		Load	0x2,0x3
046c e022       | "  |		Load	0x0,0x22
046d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
046e a409       |    |		Store_Unchecked	0x2,0x9
046f e409       |    |		Load	0x2,0x9
0470 7001       |p   |		Jump_Nonzero	0x472
0471 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0472 840d       |    |		Call	0x2,0xd
0473 840e       |    |		Call	0x2,0xe
0474 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0475			TRAP_0358:
0475 e00f       |    |		Load	0x0,0xf
0476 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0477 010f       |    |		Execute	Exception,Equal
0478 6803       |h   |		Jump_Zero	0x47c
0479 e01d       |    |		Load	0x0,0x1d
047a 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
047b 0257       | W  |		Execute	Discrete,Raise
047c e5fb       |    |		Load	0x2,-0x5
047d 0217       |    |		Execute	Heap_Access,All_Reference
047e 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
047f 0092 0a89  |    |		Action	Push_String_Extended,0xa89					; "Create_View_Midprocess"
0481 e024       | $  |		Load	0x0,0x24
0482 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0483 e01d       |    |		Load	0x0,0x1d
0484 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0485 0257       | W  |		Execute	Discrete,Raise
0486 0000 0000  |    |		.XXX[0x2]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 04be       |    |		.CONST	0x04be								; Address of begin
0489 050c       |    |		.CONST	0x050c								; Address of exception handler
048a 000b       |    |		.CONST	0x000b								; Number of locals
048b			INIT_0488:
048b e003       |    |		Load	0x0,0x3
048c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
048d 02c7       |    |		Declare_Variable	Any
048e e5fc       |    |		Load	0x2,-0x4
048f e5fe       |    |		Load	0x2,-0x2
0490 e01b       |    |		Load	0x0,0x1b
0491 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0492 a402       |    |		Store_Unchecked	0x2,0x2
0493 00d8       |    |		Load_Top	At_Offset_0
0494 e003       |    |		Load	0x0,0x3
0495 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0496 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0497 e003       |    |		Load	0x0,0x3
0498 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0499 02c7       |    |		Declare_Variable	Any
049a e5fc       |    |		Load	0x2,-0x4
049b e5ff       |    |		Load	0x2,-0x1
049c e01b       |    |		Load	0x0,0x1b
049d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
049e a404       |    |		Store_Unchecked	0x2,0x4
049f 00d8       |    |		Load_Top	At_Offset_0
04a0 e003       |    |		Load	0x0,0x3
04a1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04a2 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
04a3 e003       |    |		Load	0x0,0x3
04a4 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
04a5 0322       | "  |		Declare_Variable	Record
04a6 e5fc       |    |		Load	0x2,-0x4
04a7 0217       |    |		Execute	Heap_Access,All_Reference
04a8 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
04a9 e402       |    |		Load	0x2,0x2
04aa e015       |    |		Load	0x0,0x15
04ab 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
04ac 00d9       |    |		Load_Top	At_Offset_1
04ad 017d       | }  |		Execute	Record,Structure_Write
04ae 00d8       |    |		Load_Top	At_Offset_0
04af e402       |    |		Load	0x2,0x2
04b0 e01c       |    |		Load	0x0,0x1c
04b1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04b2 00d9       |    |		Load_Top	At_Offset_1
04b3 e402       |    |		Load	0x2,0x2
04b4 e01c       |    |		Load	0x0,0x1c
04b5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04b6 00da       |    |		Load_Top	At_Offset_2
04b7 e402       |    |		Load	0x2,0x2
04b8 e01c       |    |		Load	0x0,0x1c
04b9 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
04ba e00f       |    |		Load	0x0,0xf
04bb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04bc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
04bd 00e1       |    |		Load_Encached	Boolean_Cache
04be			BODY_0488:
04be e01d       |    |		Load	0x0,0x1d
04bf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04c0 4801       |H   |		Short_Literal	0x1
04c1 0092 0a8a  |    |		Action	Push_String_Extended,0xa8a					; "In Create_View_Postprocess"
04c3 e01e       |    |		Load	0x0,0x1e
04c4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c5 e5fc       |    |		Load	0x2,-0x4
04c6 0217       |    |		Execute	Heap_Access,All_Reference
04c7 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
04c8 8217       |    |		Call	0x1,0x17
04c9 e5fc       |    |		Load	0x2,-0x4
04ca 0217       |    |		Execute	Heap_Access,All_Reference
04cb 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
04cc e406       |    |		Load	0x2,0x6
04cd 8218       |    |		Call	0x1,0x18
04ce e5fc       |    |		Load	0x2,-0x4
04cf 0217       |    |		Execute	Heap_Access,All_Reference
04d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04d1 e01f       |    |		Load	0x0,0x1f
04d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d3 e5fd       |    |		Load	0x2,-0x3
04d4 4608       |F   |		Jump_Case	0x9
04d5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x0
04d6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x1
04d7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x2
04d8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x3
04d9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x4
04da 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x5
04db 7802       |x   |		Jump	0x4de								; case 0x6
04dc 7812       |x   |		Jump	0x4ef								; case 0x7
04dd 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; case 0x8
04de 4801       |H   |		Short_Literal	0x1
04df e5fc       |    |		Load	0x2,-0x4
04e0 e025       | %  |		Load	0x0,0x25
04e1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e2 e5fc       |    |		Load	0x2,-0x4
04e3 e402       |    |		Load	0x2,0x2
04e4 8221       | !  |		Call	0x1,0x21
04e5 00da       |    |		Load_Top	At_Offset_2
04e6 e406       |    |		Load	0x2,0x6
04e7 e408       |    |		Load	0x2,0x8
04e8 e407       |    |		Load	0x2,0x7
04e9 e403       |    |		Load	0x2,0x3
04ea e405       |    |		Load	0x2,0x5
04eb e022       | "  |		Load	0x0,0x22
04ec 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ed 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04ee 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04ef 4801       |H   |		Short_Literal	0x1
04f0 e5fc       |    |		Load	0x2,-0x4
04f1 e025       | %  |		Load	0x0,0x25
04f2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04f3 e5fc       |    |		Load	0x2,-0x4
04f4 e402       |    |		Load	0x2,0x2
04f5 8221       | !  |		Call	0x1,0x21
04f6 e00f       |    |		Load	0x0,0xf
04f7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f8 e5fc       |    |		Load	0x2,-0x4
04f9 0217       |    |		Execute	Heap_Access,All_Reference
04fa 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
04fb e405       |    |		Load	0x2,0x5
04fc 0092 0a81  |    |		Action	Push_String_Extended,0xa81					; ".units"
04fe 01cc       |    |		Execute	Vector,Catenate
04ff e023       | #  |		Load	0x0,0x23
0500 1884       |    |		Execute	Package,Field_Execute,Field_Number 0x84
0501 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0502 00da       |    |		Load_Top	At_Offset_2
0503 e406       |    |		Load	0x2,0x6
0504 e408       |    |		Load	0x2,0x8
0505 e407       |    |		Load	0x2,0x7
0506 e403       |    |		Load	0x2,0x3
0507 e405       |    |		Load	0x2,0x5
0508 e022       | "  |		Load	0x0,0x22
0509 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
050a 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
050b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
050c			TRAP_0488:
050c e00f       |    |		Load	0x0,0xf
050d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
050e 010f       |    |		Execute	Exception,Equal
050f 6803       |h   |		Jump_Zero	0x513
0510 e01d       |    |		Load	0x0,0x1d
0511 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0512 0257       | W  |		Execute	Discrete,Raise
0513 e5fc       |    |		Load	0x2,-0x4
0514 0217       |    |		Execute	Heap_Access,All_Reference
0515 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0516 0092 0a8b  |    |		Action	Push_String_Extended,0xa8b					; "Create_View_Postprocess"
0518 e024       | $  |		Load	0x0,0x24
0519 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
051a e01d       |    |		Load	0x0,0x1d
051b 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
051c 0257       | W  |		Execute	Discrete,Raise
051d 0000 0000  |    |		.XXX[0x3]
051f 0000       |    |
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0547       | G  |		.CONST	0x0547								; Address of begin
0521 0591       |    |		.CONST	0x0591								; Address of exception handler
0522 0007       |    |		.CONST	0x0007								; Number of locals
0523			INIT_0520:
0523 e003       |    |		Load	0x0,0x3
0524 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0525 02c7       |    |		Declare_Variable	Any
0526 e5fe       |    |		Load	0x2,-0x2
0527 e5ff       |    |		Load	0x2,-0x1
0528 e01b       |    |		Load	0x0,0x1b
0529 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
052a a402       |    |		Store_Unchecked	0x2,0x2
052b 00d8       |    |		Load_Top	At_Offset_0
052c e003       |    |		Load	0x0,0x3
052d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
052e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
052f e003       |    |		Load	0x0,0x3
0530 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0531 0322       | "  |		Declare_Variable	Record
0532 e5fe       |    |		Load	0x2,-0x2
0533 0217       |    |		Execute	Heap_Access,All_Reference
0534 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0535 00db       |    |		Load_Top	At_Offset_3
0536 e015       |    |		Load	0x0,0x15
0537 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0538 00d9       |    |		Load_Top	At_Offset_1
0539 017d       | }  |		Execute	Record,Structure_Write
053a e028       | (  |		Load	0x0,0x28
053b 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
053c 02c7       |    |		Declare_Variable	Any
053d 00d9       |    |		Load_Top	At_Offset_1
053e e028       | (  |		Load	0x0,0x28
053f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0540 a405       |    |		Store_Unchecked	0x2,0x5
0541 e029       | )  |		Load	0x0,0x29
0542 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0543 0322       | "  |		Declare_Variable	Record
0544 00d8       |    |		Load_Top	At_Offset_0
0545 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0546 00e1       |    |		Load_Encached	Boolean_Cache
0547			BODY_0520:
0547 e01d       |    |		Load	0x0,0x1d
0548 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0549 4801       |H   |		Short_Literal	0x1
054a 0092 0a8c  |    |		Action	Push_String_Extended,0xa8c					; "In Destroy_View_Preprocess"
054c e01e       |    |		Load	0x0,0x1e
054d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
054e e5fe       |    |		Load	0x2,-0x2
054f 0217       |    |		Execute	Heap_Access,All_Reference
0550 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0551 8217       |    |		Call	0x1,0x17
0552 e5fe       |    |		Load	0x2,-0x2
0553 0217       |    |		Execute	Heap_Access,All_Reference
0554 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0555 e404       |    |		Load	0x2,0x4
0556 8218       |    |		Call	0x1,0x18
0557 e5fe       |    |		Load	0x2,-0x2
0558 0217       |    |		Execute	Heap_Access,All_Reference
0559 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
055a e01f       |    |		Load	0x0,0x1f
055b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
055c 00d9       |    |		Load_Top	At_Offset_1
055d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
055e e5fe       |    |		Load	0x2,-0x2
055f 0217       |    |		Execute	Heap_Access,All_Reference
0560 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0561 e402       |    |		Load	0x2,0x2
0562 e405       |    |		Load	0x2,0x5
0563 e028       | (  |		Load	0x0,0x28
0564 18ba       |    |		Execute	Package,Field_Execute,Field_Number 0xba
0565 e02a       | *  |		Load	0x0,0x2a
0566 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0567 00d1       |    |		Pop_Control	Pop_Count_1
0568 00d9       |    |		Load_Top	At_Offset_1
0569 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
056a e5fe       |    |		Load	0x2,-0x2
056b 0217       |    |		Execute	Heap_Access,All_Reference
056c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
056d e402       |    |		Load	0x2,0x2
056e e405       |    |		Load	0x2,0x5
056f e028       | (  |		Load	0x0,0x28
0570 18bb       |    |		Execute	Package,Field_Execute,Field_Number 0xbb
0571 e02a       | *  |		Load	0x0,0x2a
0572 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0573 00d1       |    |		Pop_Control	Pop_Count_1
0574 00db       |    |		Load_Top	At_Offset_3
0575 00da       |    |		Load_Top	At_Offset_2
0576 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0577 821a       |    |		Call	0x1,0x1a
0578 680f       |h   |		Jump_Zero	0x588
0579 e5fe       |    |		Load	0x2,-0x2
057a 0217       |    |		Execute	Heap_Access,All_Reference
057b 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
057c e402       |    |		Load	0x2,0x2
057d e015       |    |		Load	0x0,0x15
057e 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
057f 7008       |p   |		Jump_Nonzero	0x588
0580 e5fd       |    |		Load	0x2,-0x3
0581 4800       |H   |		Short_Literal	0x0
0582 00db       |    |		Load_Top	At_Offset_3
0583 e403       |    |		Load	0x2,0x3
0584 e029       | )  |		Load	0x0,0x29
0585 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0586 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0587 c5fd       |    |		Store	0x2,-0x3
0588 00db       |    |		Load_Top	At_Offset_3
0589 e403       |    |		Load	0x2,0x3
058a e022       | "  |		Load	0x0,0x22
058b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
058c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
058d 00d8       |    |		Load_Top	At_Offset_0
058e 7001       |p   |		Jump_Nonzero	0x590
058f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0590 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0591			TRAP_0520:
0591 e00f       |    |		Load	0x0,0xf
0592 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0593 010f       |    |		Execute	Exception,Equal
0594 6803       |h   |		Jump_Zero	0x598
0595 e01d       |    |		Load	0x0,0x1d
0596 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0597 0257       | W  |		Execute	Discrete,Raise
0598 e5fe       |    |		Load	0x2,-0x2
0599 0217       |    |		Execute	Heap_Access,All_Reference
059a 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
059b 0092 0a8d  |    |		Action	Push_String_Extended,0xa8d					; "Destroy_View_Preprocess"
059d e024       | $  |		Load	0x0,0x24
059e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
059f e01d       |    |		Load	0x0,0x1d
05a0 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
05a1 0257       | W  |		Execute	Discrete,Raise
05a2 0000 0000  |    |		.BLANK	0000[0x6]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b3       |    |		.CONST	0x05b3								; Address of begin
05a9 05d6       |    |		.CONST	0x05d6								; Address of exception handler
05aa 0003       |    |		.CONST	0x0003								; Number of locals
05ab			INIT_05a8:
05ab e003       |    |		Load	0x0,0x3
05ac 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
05ad 0322       | "  |		Declare_Variable	Record
05ae e5fe       |    |		Load	0x2,-0x2
05af 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05b0 00d9       |    |		Load_Top	At_Offset_1
05b1 017d       | }  |		Execute	Record,Structure_Write
05b2 00e1       |    |		Load_Encached	Boolean_Cache
05b3			BODY_05a8:
05b3 e01d       |    |		Load	0x0,0x1d
05b4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05b5 4801       |H   |		Short_Literal	0x1
05b6 0092 0a8e  |    |		Action	Push_String_Extended,0xa8e					; "In Destroy_View_Postprocess"
05b8 e01e       |    |		Load	0x0,0x1e
05b9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05ba e5fd       |    |		Load	0x2,-0x3
05bb 0217       |    |		Execute	Heap_Access,All_Reference
05bc 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
05bd 8217       |    |		Call	0x1,0x17
05be e5fd       |    |		Load	0x2,-0x3
05bf 0217       |    |		Execute	Heap_Access,All_Reference
05c0 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
05c1 00da       |    |		Load_Top	At_Offset_2
05c2 8218       |    |		Call	0x1,0x18
05c3 e5fd       |    |		Load	0x2,-0x3
05c4 0217       |    |		Execute	Heap_Access,All_Reference
05c5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05c6 e01f       |    |		Load	0x0,0x1f
05c7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05c8 00d9       |    |		Load_Top	At_Offset_1
05c9 e5fe       |    |		Load	0x2,-0x2
05ca 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
05cb e02b       | +  |		Load	0x0,0x2b
05cc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05cd e5fe       |    |		Load	0x2,-0x2
05ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05cf e02b       | +  |		Load	0x0,0x2b
05d0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05d1 e5ff       |    |		Load	0x2,-0x1
05d2 e022       | "  |		Load	0x0,0x22
05d3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
05d4 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05d5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05d6			TRAP_05a8:
05d6 e00f       |    |		Load	0x0,0xf
05d7 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
05d8 010f       |    |		Execute	Exception,Equal
05d9 6803       |h   |		Jump_Zero	0x5dd
05da e01d       |    |		Load	0x0,0x1d
05db 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
05dc 0257       | W  |		Execute	Discrete,Raise
05dd e5fd       |    |		Load	0x2,-0x3
05de 0217       |    |		Execute	Heap_Access,All_Reference
05df 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
05e0 0092 0a8f  |    |		Action	Push_String_Extended,0xa8f					; "Destroy_View_Postprocess"
05e2 e024       | $  |		Load	0x0,0x24
05e3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05e4 e01d       |    |		Load	0x0,0x1d
05e5 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
05e6 0257       | W  |		Execute	Discrete,Raise
05e7 0000       |    |		.XXX[0x1]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 0619       |    |		.CONST	0x0619								; Address of begin
05e9 06d0       |    |		.CONST	0x06d0								; Address of exception handler
05ea 000a       |    |		.CONST	0x000a								; Number of locals
05eb			INIT_05e8:
05eb e01b       |    |		Load	0x0,0x1b
05ec 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
05ed 02c7       |    |		Declare_Variable	Any
05ee 00d8       |    |		Load_Top	At_Offset_0
05ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f0 e003       |    |		Load	0x0,0x3
05f1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05f2 02c7       |    |		Declare_Variable	Any
05f3 e5fd       |    |		Load	0x2,-0x3
05f4 e5fe       |    |		Load	0x2,-0x2
05f5 e01b       |    |		Load	0x0,0x1b
05f6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05f7 a403       |    |		Store_Unchecked	0x2,0x3
05f8 00d8       |    |		Load_Top	At_Offset_0
05f9 e003       |    |		Load	0x0,0x3
05fa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05fb 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
05fc e003       |    |		Load	0x0,0x3
05fd 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
05fe 0322       | "  |		Declare_Variable	Record
05ff e5fd       |    |		Load	0x2,-0x3
0600 0217       |    |		Execute	Heap_Access,All_Reference
0601 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0602 00db       |    |		Load_Top	At_Offset_3
0603 e015       |    |		Load	0x0,0x15
0604 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0605 00d9       |    |		Load_Top	At_Offset_1
0606 017d       | }  |		Execute	Record,Structure_Write
0607 00e1       |    |		Load_Encached	Boolean_Cache
0608 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0609 60e2       |`   |		Indirect_Literal	Discrete,0x6ec,{0x00000000, 0x00002710}
060a e02b       | +  |		Load	0x0,0x2b
060b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
060c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
060d 00d8       |    |		Load_Top	At_Offset_0
060e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
060f e003       |    |		Load	0x0,0x3
0610 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0611 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0612 e003       |    |		Load	0x0,0x3
0613 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0614 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0615 02c7       |    |		Declare_Variable	Any
0616 00d8       |    |		Load_Top	At_Offset_0
0617 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0618 00e1       |    |		Load_Encached	Boolean_Cache
0619			BODY_05e8:
0619 00be       |    |		Action	Activate_Tasks
061a e01d       |    |		Load	0x0,0x1d
061b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
061c 4801       |H   |		Short_Literal	0x1
061d 0092 0a90  |    |		Action	Push_String_Extended,0xa90					; "In Import_Preprocess"
061f e01e       |    |		Load	0x0,0x1e
0620 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0621 e5fd       |    |		Load	0x2,-0x3
0622 0217       |    |		Execute	Heap_Access,All_Reference
0623 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0624 8217       |    |		Call	0x1,0x17
0625 e5fd       |    |		Load	0x2,-0x3
0626 0217       |    |		Execute	Heap_Access,All_Reference
0627 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0628 e405       |    |		Load	0x2,0x5
0629 8218       |    |		Call	0x1,0x18
062a e5fd       |    |		Load	0x2,-0x3
062b 0217       |    |		Execute	Heap_Access,All_Reference
062c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
062d e01f       |    |		Load	0x0,0x1f
062e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
062f e403       |    |		Load	0x2,0x3
0630 e015       |    |		Load	0x0,0x15
0631 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0632 6801       |h   |		Jump_Zero	0x634
0633 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0634 e402       |    |		Load	0x2,0x2
0635 e5ff       |    |		Load	0x2,-0x1
0636 e01b       |    |		Load	0x0,0x1b
0637 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0638 c402       |    |		Store	0x2,0x2
0639 e402       |    |		Load	0x2,0x2
063a e01b       |    |		Load	0x0,0x1b
063b 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
063c 7015       |p   |		Jump_Nonzero	0x652
063d 00db       |    |		Load_Top	At_Offset_3
063e 485b       |H[  |		Short_Literal	0x5b
063f e5fd       |    |		Load	0x2,-0x3
0640 e402       |    |		Load	0x2,0x2
0641 e01b       |    |		Load	0x0,0x1b
0642 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0643 e01b       |    |		Load	0x0,0x1b
0644 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0645 e003       |    |		Load	0x0,0x3
0646 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0647 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0648 01ca       |    |		Execute	Vector,Prepend
0649 e02b       | +  |		Load	0x0,0x2b
064a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
064b 00d1       |    |		Pop_Control	Pop_Count_1
064c e402       |    |		Load	0x2,0x2
064d e01b       |    |		Load	0x0,0x1b
064e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
064f c402       |    |		Store	0x2,0x2
0650 4801       |H   |		Short_Literal	0x1
0651 a406       |    |		Store_Unchecked	0x2,0x6
0652 00cf       |    |		Action	Mark_Auxiliary
0653 7814       |x   |		Jump	0x668
0654 e407       |    |		Load	0x2,0x7
0655 482c       |H,  |		Short_Literal	0x2c
0656 e5fd       |    |		Load	0x2,-0x3
0657 e402       |    |		Load	0x2,0x2
0658 e01b       |    |		Load	0x0,0x1b
0659 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
065a e01b       |    |		Load	0x0,0x1b
065b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
065c e003       |    |		Load	0x0,0x3
065d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
065e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
065f 01ca       |    |		Execute	Vector,Prepend
0660 e02b       | +  |		Load	0x0,0x2b
0661 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0662 00d1       |    |		Pop_Control	Pop_Count_1
0663 e402       |    |		Load	0x2,0x2
0664 e01b       |    |		Load	0x0,0x1b
0665 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0666 c402       |    |		Store	0x2,0x2
0667 00c9       |    |		Action	Pop_Auxiliary_Loop
0668 e402       |    |		Load	0x2,0x2
0669 e01b       |    |		Load	0x0,0x1b
066a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
066b 6fe8       |o   |		Jump_Zero	0x654
066c 00ce       |    |		Action	Pop_Auxiliary
066d e406       |    |		Load	0x2,0x6
066e 6860       |h`  |		Jump_Zero	0x6cf
066f 00db       |    |		Load_Top	At_Offset_3
0670 485d       |H]  |		Short_Literal	0x5d
0671 e02b       | +  |		Load	0x0,0x2b
0672 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0673 00d1       |    |		Pop_Control	Pop_Count_1
0674 e003       |    |		Load	0x0,0x3
0675 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0676 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0677 00da       |    |		Load_Top	At_Offset_2
0678 606f       |`o  |		Indirect_Literal	Discrete,0x6e8,{0x00000000, 0x00004000}
0679 e017       |    |		Load	0x0,0x17
067a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
067b e00d       |    |		Load	0x0,0xd
067c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
067d e00e       |    |		Load	0x0,0xe
067e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
067f 4801       |H   |		Short_Literal	0x1
0680 4800       |H   |		Short_Literal	0x0
0681 e00d       |    |		Load	0x0,0xd
0682 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0683 e003       |    |		Load	0x0,0x3
0684 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0685 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0686 e407       |    |		Load	0x2,0x7
0687 e02b       | +  |		Load	0x0,0x2b
0688 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0689 e003       |    |		Load	0x0,0x3
068a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
068b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
068c c409       |    |		Store	0x2,0x9
068d 005b       | [  |		Store_Top	Discrete,At_Offset_3
068e 00da       |    |		Load_Top	At_Offset_2
068f 6836       |h6  |		Jump_Zero	0x6c6
0690 e01d       |    |		Load	0x0,0x1d
0691 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0692 4801       |H   |		Short_Literal	0x1
0693 4802       |H   |		Short_Literal	0x2
0694 e013       |    |		Load	0x0,0x13
0695 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0696 035b       | [  |		Declare_Type	Array,Constrained
0697 0337       | 7  |		Declare_Variable	Array
0698 e407       |    |		Load	0x2,0x7
0699 e02b       | +  |		Load	0x0,0x2b
069a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
069b e013       |    |		Load	0x0,0x13
069c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
069d e013       |    |		Load	0x0,0x13
069e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
069f 0119       |    |		Execute	Any,Check_In_Formal_Type
06a0 4801       |H   |		Short_Literal	0x1
06a1 00da       |    |		Load_Top	At_Offset_2
06a2 01d6       |    |		Execute	Vector,Field_Write
06a3 6044       |`D  |		Indirect_Literal	Discrete,0x6e8,{0x00000000, 0x00004000}
06a4 e017       |    |		Load	0x0,0x17
06a5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06a6 e00d       |    |		Load	0x0,0xd
06a7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06a8 e00e       |    |		Load	0x0,0xe
06a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06aa 4801       |H   |		Short_Literal	0x1
06ab 4800       |H   |		Short_Literal	0x0
06ac e00d       |    |		Load	0x0,0xd
06ad 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06ae e003       |    |		Load	0x0,0x3
06af 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06b0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06b1 e407       |    |		Load	0x2,0x7
06b2 e02b       | +  |		Load	0x0,0x2b
06b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06b4 e408       |    |		Load	0x2,0x8
06b5 e003       |    |		Load	0x0,0x3
06b6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
06b7 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
06b8 e013       |    |		Load	0x0,0x13
06b9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06ba e013       |    |		Load	0x0,0x13
06bb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06bc 0119       |    |		Execute	Any,Check_In_Formal_Type
06bd 4802       |H   |		Short_Literal	0x2
06be 00da       |    |		Load_Top	At_Offset_2
06bf 01d6       |    |		Execute	Vector,Field_Write
06c0 6023       |`#  |		Indirect_Literal	Discrete,0x6e4,{0x00000000, 0x00008f14}
06c1 e00f       |    |		Load	0x0,0xf
06c2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06c3 e00f       |    |		Load	0x0,0xf
06c4 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
06c5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06c6 e405       |    |		Load	0x2,0x5
06c7 e404       |    |		Load	0x2,0x4
06c8 00db       |    |		Load_Top	At_Offset_3
06c9 e022       | "  |		Load	0x0,0x22
06ca 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06cb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
06cc 00d8       |    |		Load_Top	At_Offset_0
06cd 7001       |p   |		Jump_Nonzero	0x6cf
06ce 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06cf 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06d0			TRAP_05e8:
06d0 e00f       |    |		Load	0x0,0xf
06d1 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
06d2 010f       |    |		Execute	Exception,Equal
06d3 6803       |h   |		Jump_Zero	0x6d7
06d4 e01d       |    |		Load	0x0,0x1d
06d5 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
06d6 0257       | W  |		Execute	Discrete,Raise
06d7 e5fd       |    |		Load	0x2,-0x3
06d8 0217       |    |		Execute	Heap_Access,All_Reference
06d9 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
06da 0092 0a91  |    |		Action	Push_String_Extended,0xa91					; "Import_Preprocess"
06dc e024       | $  |		Load	0x0,0x24
06dd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06de e01d       |    |		Load	0x0,0x1d
06df 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
06e0 0257       | W  |		Execute	Discrete,Raise
06e1 0000 0000  |    |		.XXX[0x3]
06e3 0000       |    |
06e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008f14}
06e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
06ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002710}
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 0721       | !  |		.CONST	0x0721								; Address of begin
06f1 07dc       |    |		.CONST	0x07dc								; Address of exception handler
06f2 000a       |    |		.CONST	0x000a								; Number of locals
06f3			INIT_06f0:
06f3 e01b       |    |		Load	0x0,0x1b
06f4 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
06f5 02c7       |    |		Declare_Variable	Any
06f6 00d8       |    |		Load_Top	At_Offset_0
06f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f8 e003       |    |		Load	0x0,0x3
06f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
06fa 02c7       |    |		Declare_Variable	Any
06fb e5fd       |    |		Load	0x2,-0x3
06fc e5fe       |    |		Load	0x2,-0x2
06fd e01b       |    |		Load	0x0,0x1b
06fe 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06ff a403       |    |		Store_Unchecked	0x2,0x3
0700 00d8       |    |		Load_Top	At_Offset_0
0701 e003       |    |		Load	0x0,0x3
0702 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0703 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0704 e003       |    |		Load	0x0,0x3
0705 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0706 0322       | "  |		Declare_Variable	Record
0707 e5fd       |    |		Load	0x2,-0x3
0708 0217       |    |		Execute	Heap_Access,All_Reference
0709 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
070a 00db       |    |		Load_Top	At_Offset_3
070b e015       |    |		Load	0x0,0x15
070c 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
070d 00d9       |    |		Load_Top	At_Offset_1
070e 017d       | }  |		Execute	Record,Structure_Write
070f 00e1       |    |		Load_Encached	Boolean_Cache
0710 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0711 67da       |g   |		Indirect_Literal	Discrete,0x6ec,{0x00000000, 0x00002710}
0712 e02b       | +  |		Load	0x0,0x2b
0713 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0714 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0715 00d8       |    |		Load_Top	At_Offset_0
0716 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0717 e003       |    |		Load	0x0,0x3
0718 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0719 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
071a e003       |    |		Load	0x0,0x3
071b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
071c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
071d 02c7       |    |		Declare_Variable	Any
071e 00d8       |    |		Load_Top	At_Offset_0
071f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0720 00e1       |    |		Load_Encached	Boolean_Cache
0721			BODY_06f0:
0721 00be       |    |		Action	Activate_Tasks
0722 e01d       |    |		Load	0x0,0x1d
0723 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0724 4801       |H   |		Short_Literal	0x1
0725 0092 0a92  |    |		Action	Push_String_Extended,0xa92					; "In Import_Postprocess"
0727 e01e       |    |		Load	0x0,0x1e
0728 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0729 e5fd       |    |		Load	0x2,-0x3
072a 0217       |    |		Execute	Heap_Access,All_Reference
072b 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
072c 8217       |    |		Call	0x1,0x17
072d e5fd       |    |		Load	0x2,-0x3
072e 0217       |    |		Execute	Heap_Access,All_Reference
072f 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0730 e405       |    |		Load	0x2,0x5
0731 8218       |    |		Call	0x1,0x18
0732 e5fd       |    |		Load	0x2,-0x3
0733 0217       |    |		Execute	Heap_Access,All_Reference
0734 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0735 e01f       |    |		Load	0x0,0x1f
0736 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0737 4801       |H   |		Short_Literal	0x1
0738 e5fd       |    |		Load	0x2,-0x3
0739 e025       | %  |		Load	0x0,0x25
073a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
073b e403       |    |		Load	0x2,0x3
073c e015       |    |		Load	0x0,0x15
073d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
073e 6801       |h   |		Jump_Zero	0x740
073f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0740 e402       |    |		Load	0x2,0x2
0741 e5ff       |    |		Load	0x2,-0x1
0742 e01b       |    |		Load	0x0,0x1b
0743 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0744 c402       |    |		Store	0x2,0x2
0745 e402       |    |		Load	0x2,0x2
0746 e01b       |    |		Load	0x0,0x1b
0747 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0748 7015       |p   |		Jump_Nonzero	0x75e
0749 00db       |    |		Load_Top	At_Offset_3
074a 485b       |H[  |		Short_Literal	0x5b
074b e5fd       |    |		Load	0x2,-0x3
074c e402       |    |		Load	0x2,0x2
074d e01b       |    |		Load	0x0,0x1b
074e 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
074f e01b       |    |		Load	0x0,0x1b
0750 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0751 e003       |    |		Load	0x0,0x3
0752 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0753 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0754 01ca       |    |		Execute	Vector,Prepend
0755 e02b       | +  |		Load	0x0,0x2b
0756 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0757 00d1       |    |		Pop_Control	Pop_Count_1
0758 e402       |    |		Load	0x2,0x2
0759 e01b       |    |		Load	0x0,0x1b
075a 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
075b c402       |    |		Store	0x2,0x2
075c 4801       |H   |		Short_Literal	0x1
075d a406       |    |		Store_Unchecked	0x2,0x6
075e 00cf       |    |		Action	Mark_Auxiliary
075f 7814       |x   |		Jump	0x774
0760 e407       |    |		Load	0x2,0x7
0761 482c       |H,  |		Short_Literal	0x2c
0762 e5fd       |    |		Load	0x2,-0x3
0763 e402       |    |		Load	0x2,0x2
0764 e01b       |    |		Load	0x0,0x1b
0765 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0766 e01b       |    |		Load	0x0,0x1b
0767 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0768 e003       |    |		Load	0x0,0x3
0769 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
076a 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
076b 01ca       |    |		Execute	Vector,Prepend
076c e02b       | +  |		Load	0x0,0x2b
076d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
076e 00d1       |    |		Pop_Control	Pop_Count_1
076f e402       |    |		Load	0x2,0x2
0770 e01b       |    |		Load	0x0,0x1b
0771 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0772 c402       |    |		Store	0x2,0x2
0773 00c9       |    |		Action	Pop_Auxiliary_Loop
0774 e402       |    |		Load	0x2,0x2
0775 e01b       |    |		Load	0x0,0x1b
0776 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0777 6fe8       |o   |		Jump_Zero	0x760
0778 00ce       |    |		Action	Pop_Auxiliary
0779 e406       |    |		Load	0x2,0x6
077a 6860       |h`  |		Jump_Zero	0x7db
077b 00db       |    |		Load_Top	At_Offset_3
077c 485d       |H]  |		Short_Literal	0x5d
077d e02b       | +  |		Load	0x0,0x2b
077e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
077f 00d1       |    |		Pop_Control	Pop_Count_1
0780 e003       |    |		Load	0x0,0x3
0781 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0782 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0783 00da       |    |		Load_Top	At_Offset_2
0784 6763       |gc  |		Indirect_Literal	Discrete,0x6e8,{0x00000000, 0x00004000}
0785 e017       |    |		Load	0x0,0x17
0786 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0787 e00d       |    |		Load	0x0,0xd
0788 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0789 e00e       |    |		Load	0x0,0xe
078a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
078b 4801       |H   |		Short_Literal	0x1
078c 4800       |H   |		Short_Literal	0x0
078d e00d       |    |		Load	0x0,0xd
078e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
078f e003       |    |		Load	0x0,0x3
0790 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0791 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0792 e407       |    |		Load	0x2,0x7
0793 e02b       | +  |		Load	0x0,0x2b
0794 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0795 e003       |    |		Load	0x0,0x3
0796 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0797 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0798 c409       |    |		Store	0x2,0x9
0799 005b       | [  |		Store_Top	Discrete,At_Offset_3
079a 00da       |    |		Load_Top	At_Offset_2
079b 6836       |h6  |		Jump_Zero	0x7d2
079c e01d       |    |		Load	0x0,0x1d
079d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
079e 4801       |H   |		Short_Literal	0x1
079f 4802       |H   |		Short_Literal	0x2
07a0 e013       |    |		Load	0x0,0x13
07a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07a2 035b       | [  |		Declare_Type	Array,Constrained
07a3 0337       | 7  |		Declare_Variable	Array
07a4 e407       |    |		Load	0x2,0x7
07a5 e02b       | +  |		Load	0x0,0x2b
07a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07a7 e013       |    |		Load	0x0,0x13
07a8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07a9 e013       |    |		Load	0x0,0x13
07aa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07ab 0119       |    |		Execute	Any,Check_In_Formal_Type
07ac 4801       |H   |		Short_Literal	0x1
07ad 00da       |    |		Load_Top	At_Offset_2
07ae 01d6       |    |		Execute	Vector,Field_Write
07af 6738       |g8  |		Indirect_Literal	Discrete,0x6e8,{0x00000000, 0x00004000}
07b0 e017       |    |		Load	0x0,0x17
07b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07b2 e00d       |    |		Load	0x0,0xd
07b3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07b4 e00e       |    |		Load	0x0,0xe
07b5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07b6 4801       |H   |		Short_Literal	0x1
07b7 4800       |H   |		Short_Literal	0x0
07b8 e00d       |    |		Load	0x0,0xd
07b9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07ba e003       |    |		Load	0x0,0x3
07bb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07bc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
07bd e407       |    |		Load	0x2,0x7
07be e02b       | +  |		Load	0x0,0x2b
07bf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07c0 e408       |    |		Load	0x2,0x8
07c1 e003       |    |		Load	0x0,0x3
07c2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
07c3 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
07c4 e013       |    |		Load	0x0,0x13
07c5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07c6 e013       |    |		Load	0x0,0x13
07c7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07c8 0119       |    |		Execute	Any,Check_In_Formal_Type
07c9 4802       |H   |		Short_Literal	0x2
07ca 00da       |    |		Load_Top	At_Offset_2
07cb 01d6       |    |		Execute	Vector,Field_Write
07cc 6717       |g   |		Indirect_Literal	Discrete,0x6e4,{0x00000000, 0x00008f14}
07cd e00f       |    |		Load	0x0,0xf
07ce 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
07cf e00f       |    |		Load	0x0,0xf
07d0 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
07d1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
07d2 e405       |    |		Load	0x2,0x5
07d3 e404       |    |		Load	0x2,0x4
07d4 00db       |    |		Load_Top	At_Offset_3
07d5 e022       | "  |		Load	0x0,0x22
07d6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
07d7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
07d8 00d8       |    |		Load_Top	At_Offset_0
07d9 7001       |p   |		Jump_Nonzero	0x7db
07da 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
07db 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
07dc			TRAP_06f0:
07dc e00f       |    |		Load	0x0,0xf
07dd 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
07de 010f       |    |		Execute	Exception,Equal
07df 6803       |h   |		Jump_Zero	0x7e3
07e0 e01d       |    |		Load	0x0,0x1d
07e1 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
07e2 0257       | W  |		Execute	Discrete,Raise
07e3 e5fd       |    |		Load	0x2,-0x3
07e4 0217       |    |		Execute	Heap_Access,All_Reference
07e5 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
07e6 0092 0a93  |    |		Action	Push_String_Extended,0xa93					; "Import_Postprocess"
07e8 e024       | $  |		Load	0x0,0x24
07e9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07ea e01d       |    |		Load	0x0,0x1d
07eb 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
07ec 0257       | W  |		Execute	Discrete,Raise
07ed 0000 0000  |    |		.XXX[0x3]
07ef 0000       |    |
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 0811       |    |		.CONST	0x0811								; Address of begin
07f1 0854       | T  |		.CONST	0x0854								; Address of exception handler
07f2 0006       |    |		.CONST	0x0006								; Number of locals
07f3			INIT_07f0:
07f3 e01b       |    |		Load	0x0,0x1b
07f4 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
07f5 02c7       |    |		Declare_Variable	Any
07f6 00d8       |    |		Load_Top	At_Offset_0
07f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07f8 e003       |    |		Load	0x0,0x3
07f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07fa 02c7       |    |		Declare_Variable	Any
07fb e5fd       |    |		Load	0x2,-0x3
07fc e5fe       |    |		Load	0x2,-0x2
07fd e01b       |    |		Load	0x0,0x1b
07fe 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
07ff a403       |    |		Store_Unchecked	0x2,0x3
0800 00d8       |    |		Load_Top	At_Offset_0
0801 e003       |    |		Load	0x0,0x3
0802 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0803 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0804 e003       |    |		Load	0x0,0x3
0805 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0806 0322       | "  |		Declare_Variable	Record
0807 e5fd       |    |		Load	0x2,-0x3
0808 0217       |    |		Execute	Heap_Access,All_Reference
0809 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
080a 00db       |    |		Load_Top	At_Offset_3
080b e015       |    |		Load	0x0,0x15
080c 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
080d 00d9       |    |		Load_Top	At_Offset_1
080e 017d       | }  |		Execute	Record,Structure_Write
080f 00e1       |    |		Load_Encached	Boolean_Cache
0810 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0811			BODY_07f0:
0811 00be       |    |		Action	Activate_Tasks
0812 e01d       |    |		Load	0x0,0x1d
0813 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0814 4801       |H   |		Short_Literal	0x1
0815 0092 0a94  |    |		Action	Push_String_Extended,0xa94					; "In Remove_Import_Preprocess"
0817 e01e       |    |		Load	0x0,0x1e
0818 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0819 e5fd       |    |		Load	0x2,-0x3
081a 0217       |    |		Execute	Heap_Access,All_Reference
081b 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
081c 8217       |    |		Call	0x1,0x17
081d e5fd       |    |		Load	0x2,-0x3
081e 0217       |    |		Execute	Heap_Access,All_Reference
081f 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0820 00da       |    |		Load_Top	At_Offset_2
0821 8218       |    |		Call	0x1,0x18
0822 e5fd       |    |		Load	0x2,-0x3
0823 0217       |    |		Execute	Heap_Access,All_Reference
0824 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0825 e01f       |    |		Load	0x0,0x1f
0826 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0827 00db       |    |		Load_Top	At_Offset_3
0828 e015       |    |		Load	0x0,0x15
0829 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
082a 6801       |h   |		Jump_Zero	0x82c
082b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
082c 4800       |H   |		Short_Literal	0x0
082d e5fd       |    |		Load	0x2,-0x3
082e e025       | %  |		Load	0x0,0x25
082f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0830 e402       |    |		Load	0x2,0x2
0831 e5ff       |    |		Load	0x2,-0x1
0832 e01b       |    |		Load	0x0,0x1b
0833 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0834 c402       |    |		Store	0x2,0x2
0835 00cf       |    |		Action	Mark_Auxiliary
0836 7814       |x   |		Jump	0x84b
0837 00da       |    |		Load_Top	At_Offset_2
0838 e404       |    |		Load	0x2,0x4
0839 e5fd       |    |		Load	0x2,-0x3
083a e402       |    |		Load	0x2,0x2
083b e01b       |    |		Load	0x0,0x1b
083c 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
083d e01b       |    |		Load	0x0,0x1b
083e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
083f e022       | "  |		Load	0x0,0x22
0840 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0841 6802       |h   |		Jump_Zero	0x844
0842 00d9       |    |		Load_Top	At_Offset_1
0843 7801       |x   |		Jump	0x845
0844 4800       |H   |		Short_Literal	0x0
0845 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0846 e402       |    |		Load	0x2,0x2
0847 e01b       |    |		Load	0x0,0x1b
0848 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0849 c402       |    |		Store	0x2,0x2
084a 00c9       |    |		Action	Pop_Auxiliary_Loop
084b e402       |    |		Load	0x2,0x2
084c e01b       |    |		Load	0x0,0x1b
084d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
084e 6fe8       |o   |		Jump_Zero	0x837
084f 00ce       |    |		Action	Pop_Auxiliary
0850 00d8       |    |		Load_Top	At_Offset_0
0851 7001       |p   |		Jump_Nonzero	0x853
0852 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0853 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0854			TRAP_07f0:
0854 e00f       |    |		Load	0x0,0xf
0855 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0856 010f       |    |		Execute	Exception,Equal
0857 6803       |h   |		Jump_Zero	0x85b
0858 e01d       |    |		Load	0x0,0x1d
0859 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
085a 0257       | W  |		Execute	Discrete,Raise
085b e5fd       |    |		Load	0x2,-0x3
085c 0217       |    |		Execute	Heap_Access,All_Reference
085d 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
085e 0092 0a95  |    |		Action	Push_String_Extended,0xa95					; "Remove_Import_Preprocess"
0860 e024       | $  |		Load	0x0,0x24
0861 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0862 e01d       |    |		Load	0x0,0x1d
0863 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0864 0257       | W  |		Execute	Discrete,Raise
0865 0000 0000  |    |		.XXX[0x3]
0867 0000       |    |
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 0889       |    |		.CONST	0x0889								; Address of begin
0869 08cc       |    |		.CONST	0x08cc								; Address of exception handler
086a 0006       |    |		.CONST	0x0006								; Number of locals
086b			INIT_0868:
086b e01b       |    |		Load	0x0,0x1b
086c 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
086d 02c7       |    |		Declare_Variable	Any
086e 00d8       |    |		Load_Top	At_Offset_0
086f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0870 e003       |    |		Load	0x0,0x3
0871 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0872 02c7       |    |		Declare_Variable	Any
0873 e5fd       |    |		Load	0x2,-0x3
0874 e5fe       |    |		Load	0x2,-0x2
0875 e01b       |    |		Load	0x0,0x1b
0876 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0877 a403       |    |		Store_Unchecked	0x2,0x3
0878 00d8       |    |		Load_Top	At_Offset_0
0879 e003       |    |		Load	0x0,0x3
087a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
087b 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
087c e003       |    |		Load	0x0,0x3
087d 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
087e 0322       | "  |		Declare_Variable	Record
087f e5fd       |    |		Load	0x2,-0x3
0880 0217       |    |		Execute	Heap_Access,All_Reference
0881 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0882 00db       |    |		Load_Top	At_Offset_3
0883 e015       |    |		Load	0x0,0x15
0884 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0885 00d9       |    |		Load_Top	At_Offset_1
0886 017d       | }  |		Execute	Record,Structure_Write
0887 00e1       |    |		Load_Encached	Boolean_Cache
0888 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0889			BODY_0868:
0889 00be       |    |		Action	Activate_Tasks
088a e01d       |    |		Load	0x0,0x1d
088b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
088c 4801       |H   |		Short_Literal	0x1
088d 0092 0a96  |    |		Action	Push_String_Extended,0xa96					; "In Remove_Import_Postprocess"
088f e01e       |    |		Load	0x0,0x1e
0890 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0891 e5fd       |    |		Load	0x2,-0x3
0892 0217       |    |		Execute	Heap_Access,All_Reference
0893 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0894 8217       |    |		Call	0x1,0x17
0895 e5fd       |    |		Load	0x2,-0x3
0896 0217       |    |		Execute	Heap_Access,All_Reference
0897 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0898 00da       |    |		Load_Top	At_Offset_2
0899 8218       |    |		Call	0x1,0x18
089a e5fd       |    |		Load	0x2,-0x3
089b 0217       |    |		Execute	Heap_Access,All_Reference
089c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
089d e01f       |    |		Load	0x0,0x1f
089e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
089f 4801       |H   |		Short_Literal	0x1
08a0 e5fd       |    |		Load	0x2,-0x3
08a1 e025       | %  |		Load	0x0,0x25
08a2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08a3 00db       |    |		Load_Top	At_Offset_3
08a4 e015       |    |		Load	0x0,0x15
08a5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08a6 6801       |h   |		Jump_Zero	0x8a8
08a7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
08a8 e402       |    |		Load	0x2,0x2
08a9 e5ff       |    |		Load	0x2,-0x1
08aa e01b       |    |		Load	0x0,0x1b
08ab 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
08ac c402       |    |		Store	0x2,0x2
08ad 00cf       |    |		Action	Mark_Auxiliary
08ae 7814       |x   |		Jump	0x8c3
08af 00da       |    |		Load_Top	At_Offset_2
08b0 e404       |    |		Load	0x2,0x4
08b1 e5fd       |    |		Load	0x2,-0x3
08b2 e402       |    |		Load	0x2,0x2
08b3 e01b       |    |		Load	0x0,0x1b
08b4 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
08b5 e01b       |    |		Load	0x0,0x1b
08b6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
08b7 e022       | "  |		Load	0x0,0x22
08b8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
08b9 6802       |h   |		Jump_Zero	0x8bc
08ba 00d9       |    |		Load_Top	At_Offset_1
08bb 7801       |x   |		Jump	0x8bd
08bc 4800       |H   |		Short_Literal	0x0
08bd 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
08be e402       |    |		Load	0x2,0x2
08bf e01b       |    |		Load	0x0,0x1b
08c0 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
08c1 c402       |    |		Store	0x2,0x2
08c2 00c9       |    |		Action	Pop_Auxiliary_Loop
08c3 e402       |    |		Load	0x2,0x2
08c4 e01b       |    |		Load	0x0,0x1b
08c5 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
08c6 6fe8       |o   |		Jump_Zero	0x8af
08c7 00ce       |    |		Action	Pop_Auxiliary
08c8 00d8       |    |		Load_Top	At_Offset_0
08c9 7001       |p   |		Jump_Nonzero	0x8cb
08ca 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
08cb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
08cc			TRAP_0868:
08cc e00f       |    |		Load	0x0,0xf
08cd 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
08ce 010f       |    |		Execute	Exception,Equal
08cf 6803       |h   |		Jump_Zero	0x8d3
08d0 e01d       |    |		Load	0x0,0x1d
08d1 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
08d2 0257       | W  |		Execute	Discrete,Raise
08d3 e5fd       |    |		Load	0x2,-0x3
08d4 0217       |    |		Execute	Heap_Access,All_Reference
08d5 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
08d6 0092 0a97  |    |		Action	Push_String_Extended,0xa97					; "Remove_Import_Postprocess"
08d8 e024       | $  |		Load	0x0,0x24
08d9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08da e01d       |    |		Load	0x0,0x1d
08db 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
08dc 0257       | W  |		Execute	Discrete,Raise
08dd 0000 0000  |    |		.XXX[0x3]
08df 0000       |    |
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08f6       |    |		.CONST	0x08f6								; Address of begin
08e1 0935       | 5  |		.CONST	0x0935								; Address of exception handler
08e2 0007       |    |		.CONST	0x0007								; Number of locals
08e3			INIT_08e0:
08e3 e01d       |    |		Load	0x0,0x1d
08e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08e5 02c7       |    |		Declare_Variable	Any
08e6 e5fc       |    |		Load	0x2,-0x4
08e7 0217       |    |		Execute	Heap_Access,All_Reference
08e8 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
08e9 a402       |    |		Store_Unchecked	0x2,0x2
08ea e00f       |    |		Load	0x0,0xf
08eb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08ec 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08ed e003       |    |		Load	0x0,0x3
08ee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08ef 02c7       |    |		Declare_Variable	Any
08f0 00d8       |    |		Load_Top	At_Offset_0
08f1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08f2 00e1       |    |		Load_Encached	Boolean_Cache
08f3 00e1       |    |		Load_Encached	Boolean_Cache
08f4 029f 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Call
08f6			BODY_08e0:
08f6 e01d       |    |		Load	0x0,0x1d
08f7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08f8 4801       |H   |		Short_Literal	0x1
08f9 0092 0a98  |    |		Action	Push_String_Extended,0xa98					; "In Source_Change_Preprocess"
08fb e01e       |    |		Load	0x0,0x1e
08fc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
08fd e5fc       |    |		Load	0x2,-0x4
08fe 0217       |    |		Execute	Heap_Access,All_Reference
08ff 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0900 8217       |    |		Call	0x1,0x17
0901 e5fc       |    |		Load	0x2,-0x4
0902 0217       |    |		Execute	Heap_Access,All_Reference
0903 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0904 e01f       |    |		Load	0x0,0x1f
0905 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0906 e5ff       |    |		Load	0x2,-0x1
0907 e003       |    |		Load	0x0,0x3
0908 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0909 701a       |p   |		Jump_Nonzero	0x924
090a e00f       |    |		Load	0x0,0xf
090b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
090c 00e1       |    |		Load_Encached	Boolean_Cache
090d e5fc       |    |		Load	0x2,-0x4
090e 0217       |    |		Execute	Heap_Access,All_Reference
090f 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0910 e5ff       |    |		Load	0x2,-0x1
0911 e023       | #  |		Load	0x0,0x23
0912 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
0913 005b       | [  |		Store_Top	Discrete,At_Offset_3
0914 c403       |    |		Store	0x2,0x3
0915 4800       |H   |		Short_Literal	0x0
0916 e403       |    |		Load	0x2,0x3
0917 e00f       |    |		Load	0x0,0xf
0918 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0919 7004       |p   |		Jump_Nonzero	0x91e
091a e403       |    |		Load	0x2,0x3
091b e00f       |    |		Load	0x0,0xf
091c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
091d 7806       |x   |		Jump	0x924
091e 00d9       |    |		Load_Top	At_Offset_1
091f 6804       |h   |		Jump_Zero	0x924
0920 e5ff       |    |		Load	0x2,-0x1
0921 e5fc       |    |		Load	0x2,-0x4
0922 821f       |    |		Call	0x1,0x1f
0923 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0924 00e1       |    |		Load_Encached	Boolean_Cache
0925 e404       |    |		Load	0x2,0x4
0926 0120       |    |		Execute	Any,Is_Value
0927 6803       |h   |		Jump_Zero	0x92b
0928 e003       |    |		Load	0x0,0x3
0929 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
092a 7801       |x   |		Jump	0x92c
092b e404       |    |		Load	0x2,0x4
092c e402       |    |		Load	0x2,0x2
092d e5fe       |    |		Load	0x2,-0x2
092e 821c       |    |		Call	0x1,0x1c
092f c404       |    |		Store	0x2,0x4
0930 005b       | [  |		Store_Top	Discrete,At_Offset_3
0931 00da       |    |		Load_Top	At_Offset_2
0932 6801       |h   |		Jump_Zero	0x934
0933 8407       |    |		Call	0x2,0x7
0934 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0935			TRAP_08e0:
0935 e00f       |    |		Load	0x0,0xf
0936 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0937 010f       |    |		Execute	Exception,Equal
0938 6803       |h   |		Jump_Zero	0x93c
0939 e01d       |    |		Load	0x0,0x1d
093a 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
093b 0257       | W  |		Execute	Discrete,Raise
093c e5fc       |    |		Load	0x2,-0x4
093d 0217       |    |		Execute	Heap_Access,All_Reference
093e 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
093f 0092 0a99  |    |		Action	Push_String_Extended,0xa99					; "Source_Change_Preprocess"
0941 e024       | $  |		Load	0x0,0x24
0942 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0943 e01d       |    |		Load	0x0,0x1d
0944 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0945 0257       | W  |		Execute	Discrete,Raise
0946 0000 0000  |    |		.XXX[0x2]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 0953       | S  |		.CONST	0x0953								; Address of begin
0949 0967       | g  |		.CONST	0x0967								; Address of exception handler
094a 0002       |    |		.CONST	0x0002								; Number of locals
094b			INIT_0948:
094b e003       |    |		Load	0x0,0x3
094c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
094d 02c7       |    |		Declare_Variable	Any
094e e5fe       |    |		Load	0x2,-0x2
094f e5ff       |    |		Load	0x2,-0x1
0950 e01b       |    |		Load	0x0,0x1b
0951 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0952 a402       |    |		Store_Unchecked	0x2,0x2
0953			BODY_0948:
0953 e01d       |    |		Load	0x0,0x1d
0954 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0955 4801       |H   |		Short_Literal	0x1
0956 0092 0a9a  |    |		Action	Push_String_Extended,0xa9a					; "In Source_Change_Postprocess"
0958 e01e       |    |		Load	0x0,0x1e
0959 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
095a e5fe       |    |		Load	0x2,-0x2
095b 0217       |    |		Execute	Heap_Access,All_Reference
095c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
095d 8217       |    |		Call	0x1,0x17
095e e5fe       |    |		Load	0x2,-0x2
095f 0217       |    |		Execute	Heap_Access,All_Reference
0960 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0961 e01f       |    |		Load	0x0,0x1f
0962 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0963 00d8       |    |		Load_Top	At_Offset_0
0964 e5fe       |    |		Load	0x2,-0x2
0965 8220       |    |		Call	0x1,0x20
0966 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0967			TRAP_0948:
0967 e00f       |    |		Load	0x0,0xf
0968 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0969 010f       |    |		Execute	Exception,Equal
096a 6803       |h   |		Jump_Zero	0x96e
096b e01d       |    |		Load	0x0,0x1d
096c 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
096d 0257       | W  |		Execute	Discrete,Raise
096e e5fe       |    |		Load	0x2,-0x2
096f 0217       |    |		Execute	Heap_Access,All_Reference
0970 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0971 0092 0a9b  |    |		Action	Push_String_Extended,0xa9b					; "Source_Change_Postprocess"
0973 e024       | $  |		Load	0x0,0x24
0974 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0975 e01d       |    |		Load	0x0,0x1d
0976 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0977 0257       | W  |		Execute	Discrete,Raise
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 098d       |    |		.CONST	0x098d								; Address of begin
0979 0004       |    |		.CONST	0x0004								; Address of exception handler
097a 0002       |    |		.CONST	0x0002								; Number of locals
097b			INIT_0978:
097b e5fe       |    |		Load	0x2,-0x2
097c 4801       |H   |		Short_Literal	0x1
097d e5ff       |    |		Load	0x2,-0x1
097e e015       |    |		Load	0x0,0x15
097f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0980 e015       |    |		Load	0x0,0x15
0981 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0982 0092 0a9c  |    |		Action	Push_String_Extended,0xa9c					; ".@'c(ada).<secondary_"
0984 01cc       |    |		Execute	Vector,Catenate
0985 e5ff       |    |		Load	0x2,-0x1
0986 e015       |    |		Load	0x0,0x15
0987 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0988 01cc       |    |		Execute	Vector,Catenate
0989 0092 0a9d  |    |		Action	Push_String_Extended,0xa9d					; ">"
098b 01cc       |    |		Execute	Vector,Catenate
098c 0007       |    |		Action	Break_Optional
098d			BODY_0978:
098d 00d8       |    |		Load_Top	At_Offset_0
098e 821b       |    |		Call	0x1,0x1b
098f c402       |    |		Store	0x2,0x2
0990 e402       |    |		Load	0x2,0x2
0991 e003       |    |		Load	0x0,0x3
0992 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0993 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0994 7022       |p"  |		Jump_Nonzero	0x9b7
0995 e402       |    |		Load	0x2,0x2
0996 e003       |    |		Load	0x0,0x3
0997 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0998 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0999 701d       |p   |		Jump_Nonzero	0x9b7
099a e5fe       |    |		Load	0x2,-0x2
099b 4801       |H   |		Short_Literal	0x1
099c e402       |    |		Load	0x2,0x2
099d e015       |    |		Load	0x0,0x15
099e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
099f c403       |    |		Store	0x2,0x3
09a0 e00f       |    |		Load	0x0,0xf
09a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09a2 00e2       |    |		Load_Encached	Integer_Cache
09a3 00e1       |    |		Load_Encached	Boolean_Cache
09a4 e5fd       |    |		Load	0x2,-0x3
09a5 0120       |    |		Execute	Any,Is_Value
09a6 6803       |h   |		Jump_Zero	0x9aa
09a7 e003       |    |		Load	0x0,0x3
09a8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09a9 7801       |x   |		Jump	0x9ab
09aa e5fd       |    |		Load	0x2,-0x3
09ab e5fe       |    |		Load	0x2,-0x2
09ac e403       |    |		Load	0x2,0x3
09ad e023       | #  |		Load	0x0,0x23
09ae 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
09af c5fd       |    |		Store	0x2,-0x3
09b0 c406       |    |		Store	0x2,0x6
09b1 c405       |    |		Store	0x2,0x5
09b2 c404       |    |		Store	0x2,0x4
09b3 e406       |    |		Load	0x2,0x6
09b4 a5fc       |    |		Store_Unchecked	0x2,-0x4
09b5 00cc       |    |		Action	Pop_Block
09b6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb       |    |		.CONST	0x09bb								; Address of begin
09b9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ba 0001       |    |		.CONST	0x0001								; Number of locals
09bb			BODY_09b8:
09bb			INIT_09b8:
09bb e00f       |    |		Load	0x0,0xf
09bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09bd e5fb       |    |		Load	0x2,-0x5
09be 0217       |    |		Execute	Heap_Access,All_Reference
09bf 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
09c0 e403       |    |		Load	0x2,0x3
09c1 0092 0a81  |    |		Action	Push_String_Extended,0xa81					; ".units"
09c3 01cc       |    |		Execute	Vector,Catenate
09c4 e023       | #  |		Load	0x0,0x23
09c5 1883       |    |		Execute	Package,Field_Execute,Field_Number 0x83
09c6 c40a       |    |		Store	0x2,0xa
09c7 e40a       |    |		Load	0x2,0xa
09c8 6816       |h   |		Jump_Zero	0x9df
09c9 e5fb       |    |		Load	0x2,-0x5
09ca 0217       |    |		Execute	Heap_Access,All_Reference
09cb 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
09cc 4801       |H   |		Short_Literal	0x1
09cd 4801       |H   |		Short_Literal	0x1
09ce e013       |    |		Load	0x0,0x13
09cf 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09d0 035b       | [  |		Declare_Type	Array,Constrained
09d1 0337       | 7  |		Declare_Variable	Array
09d2 e403       |    |		Load	0x2,0x3
09d3 e013       |    |		Load	0x0,0x13
09d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09d5 e013       |    |		Load	0x0,0x13
09d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09d7 0119       |    |		Execute	Any,Check_In_Formal_Type
09d8 4801       |H   |		Short_Literal	0x1
09d9 00da       |    |		Load_Top	At_Offset_2
09da 01d6       |    |		Execute	Vector,Field_Write
09db 6004       |`   |		Indirect_Literal	Discrete,0x9e0,{0x00000000, 0x000081b7}
09dc e00f       |    |		Load	0x0,0xf
09dd 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
09de 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09df 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b7}
09e4 0000 0000  |    |		.BLANK	0000[0x4]
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 09f2       |    |		.CONST	0x09f2								; Address of begin
09e9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ea 0002       |    |		.CONST	0x0002								; Number of locals
09eb			INIT_09e8:
09eb 0092 0a9e  |    |		Action	Push_String_Extended,0xa9e					; "<WARN>"
09ed 4800       |H   |		Short_Literal	0x0
09ee 4800       |H   |		Short_Literal	0x0
09ef e403       |    |		Load	0x2,0x3
09f0 e02c       | ,  |		Load	0x0,0x2c
09f1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
09f2			BODY_09e8:
09f2 4801       |H   |		Short_Literal	0x1
09f3 0092 0a9f  |    |		Action	Push_String_Extended,0xa9f					; "<NONE>"
09f5 00da       |    |		Load_Top	At_Offset_2
09f6 e011       |    |		Load	0x0,0x11
09f7 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
09f8 7048       |pH  |		Jump_Nonzero	0xa41
09f9 e003       |    |		Load	0x0,0x3
09fa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
09fb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09fc e40b       |    |		Load	0x2,0xb
09fd 604a       |`J  |		Indirect_Literal	Discrete,0xa48,{0x00000000, 0x00004000}
09fe e017       |    |		Load	0x0,0x17
09ff 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a00 e00d       |    |		Load	0x0,0xd
0a01 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a02 e00e       |    |		Load	0x0,0xe
0a03 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a04 4801       |H   |		Short_Literal	0x1
0a05 4800       |H   |		Short_Literal	0x0
0a06 e00d       |    |		Load	0x0,0xd
0a07 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a08 e003       |    |		Load	0x0,0x3
0a09 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a0a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a0b e602       |    |		Load	0x3,0x2
0a0c e003       |    |		Load	0x0,0x3
0a0d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a0e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0a0f c40b       |    |		Store	0x2,0xb
0a10 c40c       |    |		Store	0x2,0xc
0a11 e40c       |    |		Load	0x2,0xc
0a12 6828       |h(  |		Jump_Zero	0xa3b
0a13 e01d       |    |		Load	0x0,0x1d
0a14 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a15 4801       |H   |		Short_Literal	0x1
0a16 4803       |H   |		Short_Literal	0x3
0a17 e013       |    |		Load	0x0,0x13
0a18 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a19 035b       | [  |		Declare_Type	Array,Constrained
0a1a 0337       | 7  |		Declare_Variable	Array
0a1b 00da       |    |		Load_Top	At_Offset_2
0a1c e013       |    |		Load	0x0,0x13
0a1d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a1e e013       |    |		Load	0x0,0x13
0a1f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a20 0119       |    |		Execute	Any,Check_In_Formal_Type
0a21 4801       |H   |		Short_Literal	0x1
0a22 00da       |    |		Load_Top	At_Offset_2
0a23 01d6       |    |		Execute	Vector,Field_Write
0a24 e402       |    |		Load	0x2,0x2
0a25 e013       |    |		Load	0x0,0x13
0a26 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a27 e013       |    |		Load	0x0,0x13
0a28 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a29 0119       |    |		Execute	Any,Check_In_Formal_Type
0a2a 4802       |H   |		Short_Literal	0x2
0a2b 00da       |    |		Load_Top	At_Offset_2
0a2c 01d6       |    |		Execute	Vector,Field_Write
0a2d e40c       |    |		Load	0x2,0xc
0a2e e013       |    |		Load	0x0,0x13
0a2f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a30 e013       |    |		Load	0x0,0x13
0a31 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a32 0119       |    |		Execute	Any,Check_In_Formal_Type
0a33 4803       |H   |		Short_Literal	0x3
0a34 00da       |    |		Load_Top	At_Offset_2
0a35 01d6       |    |		Execute	Vector,Field_Write
0a36 600d       |`   |		Indirect_Literal	Discrete,0xa44,{0x00000000, 0x00008146}
0a37 e00f       |    |		Load	0x0,0xf
0a38 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0a39 00cc       |    |		Action	Pop_Block
0a3a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0a3b e404       |    |		Load	0x2,0x4
0a3c e403       |    |		Load	0x2,0x3
0a3d e40b       |    |		Load	0x2,0xb
0a3e e022       | "  |		Load	0x0,0x22
0a3f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a40 a409       |    |		Store_Unchecked	0x2,0x9
0a41 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a42 0000 0000  |    |		.XXX[0x2]
0a44 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008146}
0a48 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0a4c 0000 0000  |    |		.BLANK	0000[0x4]
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a5a       | Z  |		.CONST	0x0a5a								; Address of begin
0a51 0004       |    |		.CONST	0x0004								; Address of exception handler
0a52 0002       |    |		.CONST	0x0002								; Number of locals
0a53			INIT_0a50:
0a53 e402       |    |		Load	0x2,0x2
0a54 e5fe       |    |		Load	0x2,-0x2
0a55 e003       |    |		Load	0x0,0x3
0a56 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0a57 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0a58 e019       |    |		Load	0x0,0x19
0a59 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0a5a			BODY_0a50:
0a5a 821a       |    |		Call	0x1,0x1a
0a5b 6809       |h   |		Jump_Zero	0xa65
0a5c e00f       |    |		Load	0x0,0xf
0a5d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a5e e402       |    |		Load	0x2,0x2
0a5f e5fd       |    |		Load	0x2,-0x3
0a60 00db       |    |		Load_Top	At_Offset_3
0a61 e019       |    |		Load	0x0,0x19
0a62 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a63 c403       |    |		Store	0x2,0x3
0a64 7808       |x   |		Jump	0xa6d
0a65 e00f       |    |		Load	0x0,0xf
0a66 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a67 e402       |    |		Load	0x2,0x2
0a68 4801       |H   |		Short_Literal	0x1
0a69 00db       |    |		Load_Top	At_Offset_3
0a6a e019       |    |		Load	0x0,0x19
0a6b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0a6c c403       |    |		Store	0x2,0x3
0a6d 4800       |H   |		Short_Literal	0x0
0a6e e403       |    |		Load	0x2,0x3
0a6f e00f       |    |		Load	0x0,0xf
0a70 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0a71 7003       |p   |		Jump_Nonzero	0xa75
0a72 e00f       |    |		Load	0x0,0xf
0a73 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0a74 0257       | W  |		Execute	Discrete,Raise
0a75 00d8       |    |		Load_Top	At_Offset_0
0a76 e5fc       |    |		Load	0x2,-0x4
0a77 821e       |    |		Call	0x1,0x1e
0a78 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a79 ; --------------------------------------------------------------------------------------
0a79 ; STRING TABLE
0a79 ; --------------------------------------------------------------------------------------
0a79 0050       | P  |		.STRTAB	0x0050->0x0aa1							; " * RCI_CMVC * "
0a7a 005c       | \  |		.STRTAB	0x005c->0x0aa8							; "RCI_Primary_Job_Map"
0a7b 006d       | m  |		.STRTAB	0x006d->0x0ab1							; "*system"
0a7c 0072       | r  |		.STRTAB	0x0072->0x0ab5							; "RcI"
0a7d 0073       | s  |		.STRTAB	0x0073->0x0ab6							; "D_12_7"
0a7e 0077       | w  |		.STRTAB	0x0077->0x0ab9							; "<PROFILE>"
0a7f 007e       | ~  |		.STRTAB	0x007e->0x0abe							; ".state.tool_state"
0a80 008d       |    |		.STRTAB	0x008d->0x0ac6							; "In Create_View_Preprocess"
0a81 00a4       |    |		.STRTAB	0x00a4->0x0ad3							; ".units"
0a82 00a8       |    |		.STRTAB	0x00a8->0x0ad6							; "Create_View_Preprocess"
0a83 00bc       |    |		.STRTAB	0x00bc->0x0ae1							; "In Create_View_Midprocess"
0a84 00d3       |    |		.STRTAB	0x00d3->0x0aed							; "True"
0a85 00d5       |    |		.STRTAB	0x00d5->0x0aef							; "RCI can't set Host_Only switch in "
0a86 00f5       |    |		.STRTAB	0x00f5->0x0b00							; "RCI.host_only"
0a87 0100       |    |		.STRTAB	0x0100->0x0b07							; "RCI can't get associated switch file for "
0a88 0127       | '  |		.STRTAB	0x0127->0x0b1b							; "<DEFAULT>"
0a89 012e       | .  |		.STRTAB	0x012e->0x0b20							; "Create_View_Midprocess"
0a8a 0142       | B  |		.STRTAB	0x0142->0x0b2b							; "In Create_View_Postprocess"
0a8b 015a       | Z  |		.STRTAB	0x015a->0x0b38							; "Create_View_Postprocess"
0a8c 016f       | o  |		.STRTAB	0x016f->0x0b43							; "In Destroy_View_Preprocess"
0a8d 0187       |    |		.STRTAB	0x0187->0x0b50							; "Destroy_View_Preprocess"
0a8e 019c       |    |		.STRTAB	0x019c->0x0b5c							; "In Destroy_View_Postprocess"
0a8f 01b5       |    |		.STRTAB	0x01b5->0x0b69							; "Destroy_View_Postprocess"
0a90 01cb       |    |		.STRTAB	0x01cb->0x0b75							; "In Import_Preprocess"
0a91 01dd       |    |		.STRTAB	0x01dd->0x0b7f							; "Import_Preprocess"
0a92 01ec       |    |		.STRTAB	0x01ec->0x0b88							; "In Import_Postprocess"
0a93 01ff       |    |		.STRTAB	0x01ff->0x0b92							; "Import_Postprocess"
0a94 020f       |    |		.STRTAB	0x020f->0x0b9b							; "In Remove_Import_Preprocess"
0a95 0228       | (  |		.STRTAB	0x0228->0x0ba9							; "Remove_Import_Preprocess"
0a96 023e       | >  |		.STRTAB	0x023e->0x0bb5							; "In Remove_Import_Postprocess"
0a97 0258       | X  |		.STRTAB	0x0258->0x0bc3							; "Remove_Import_Postprocess"
0a98 026f       | o  |		.STRTAB	0x026f->0x0bcf							; "In Source_Change_Preprocess"
0a99 0288       |    |		.STRTAB	0x0288->0x0bdd							; "Source_Change_Preprocess"
0a9a 029e       |    |		.STRTAB	0x029e->0x0be9							; "In Source_Change_Postprocess"
0a9b 02b8       |    |		.STRTAB	0x02b8->0x0bf7							; "Source_Change_Postprocess"
0a9c 02cf       |    |		.STRTAB	0x02cf->0x0c03							; ".@'c(ada).<secondary_"
0a9d 02e2       |    |		.STRTAB	0x02e2->0x0c0e							; ">"
0a9e 02e1       |    |		.STRTAB	0x02e1->0x0c0e							; "<WARN>"
0a9f 02e5       |    |		.STRTAB	0x02e5->0x0c11							; "<NONE>"
0aa0 02e9       |    |		.STREND 0x02e9->0x0c14
0aa1 202a 2052  | * R|		.STRTAB_STRINGS
0c15 0000 0000  |    |		.XXX[0x3]
0c17 0000       |    |
0c18 ; --------------------------------------------------------------------------------------
0c18 ; Debug Table
0c18 ; --------------------------------------------------------------------------------------
0c18 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x42b9,0x0000,0x0001,0x0000
0c1e 0000 0010  |    |		.XXX[0xd]
0c20 0000 0400  |    |
0c22 0000 2200  |  " |
0c24 0000 0010  |    |
0c26 0000 00a4  |    |
0c28 0000 100f  |    |
0c2a 2c20       |,   |
0c2b 0000 0000  |    |		.BLANK	0000[0x1d]
0c48 0406 00de  |    |		.XXX[0x1c]
0c4a 6400 0000  |d   |
0c4c 0da3 8c04  |    |
0c4e 0020 0000  |    |
0c50 8000 0000  |    |
0c52 a650 0000  | P  |
0c54 8000 0006  |    |
0c56 400a 0000  |@   |
0c58 0144 0000  | D  |
0c5a 0080 0000  |    |
0c5c 0440 0000  | @  |
0c5e 0002 0000  |    |
0c60 0014 8000  |    |
0c62 0202 75e6  |  u |
0c64 0000 0000  |    |		.BLANK	0000[0x1b]
0c7f 0600 0001  |    |		.XXX[0x1f]
0c81 4080 c01b  |@   |
0c83 ce00 0000  |    |
0c85 01b4 4c80  |  L |
0c87 8004 0002  |    |
0c89 9000 0000  |    |
0c8b 0b86 0000  |    |
0c8d 1000 0000  |    |
0c8f 1801 4000  |  @ |
0c91 0000 4000  |  @ |
0c93 0010 0000  |    |
0c95 0088 0000  |    |
0c97 0000 4000  |  @ |
0c99 0002 9000  |    |
0c9b 0040 3e56  | @>V|
0c9d 8000       |    |
0c9e 0000 0000  |    |		.BLANK	0000[0x1a]
0cb8 00c0 0009  |    |		.XXX[0x1f]
0cba f510 1803  |    |
0cbc 7a20 0000  |z   |
0cbe 90d6 c990  |    |
0cc0 1000 8000  |    |
0cc2 5200 0000  |R   |
0cc4 0200 c000  |    |
0cc6 0300 0000  |    |
0cc8 0300 2800  |  ( |
0cca 0000 0800  |    |
0ccc 0002 0000  |    |
0cce 0011 0000  |    |
0cd0 0000 0800  |    |
0cd2 0000 5200  |  R |
0cd4 0008 07ec  |    |
0cd6 0800       |    |
0cd7 0000 0000  |    |		.BLANK	0000[0x1a]
0cf1 0018 0001  |    |		.XXX[0x1f]
0cf3 3f9a 0300  |?   |
0cf5 6f44 0000  |oD  |
0cf7 121a d932  |   2|
0cf9 0200 1000  |    |
0cfb 0a40 0000  | @  |
0cfd 0040 1800  | @  |
0cff 0060 0000  | `  |
0d01 0060 0500  | `  |
0d03 0000 0100  |    |
0d05 0000 4000  |  @ |
0d07 0002 2000  |    |
0d09 0000 0100  |    |
0d0b 0000 0a40  |   @|
0d0d 0001 00fd  |    |
0d0f 8100       |    |
0d10 0000 0000  |    |		.BLANK	0000[0x1a]
0d2a 0003 0000  |    |		.XXX[0x3]
0d2c 27f3       |'   |
0d2d 0000 0000  |    |		.BLANK	0000[0xd]
0d3a 0004 00a0  |    |		.XXX[0xc]
0d3c 0000 0000  |    |
0d3e 0000 0800  |    |
0d40 0000 4400  |  D |
0d42 0000 0020  |    |
0d44 0000 0140  |   @|
0d46 0000 0000  |    |		.BLANK	0000[0x2e]
0d74 8014 0000  |    |		.XXX[0xb]
0d76 0000 0000  |    |
0d78 0100 0000  |    |
0d7a 0880 0000  |    |
0d7c 0004 0000  |    |
0d7e 0028       | (  |
0d7f 0000 0000  |    |		.BLANK	0000[0x2e]
0dad 1002 8000  |    |		.XXX[0xb]
0daf 0000 0000  |    |
0db1 0020 0000  |    |
0db3 0110 0000  |    |
0db5 0000 8000  |    |
0db7 0005       |    |
0db8 0000 0000  |    |		.BLANK	0000[0x48]