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

⟦cde2fdb72⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0aa0       |    |		.CONST	0x0aa0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0164       | d  |		.CONST	0x0164								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0089       |    |		.CONST	0x0089								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00c4       |    |		Action	Make_Default
0058 00c4       |    |		Action	Make_Default
0059 00c4       |    |		Action	Make_Default
005a 00c4       |    |		Action	Make_Default
005b 00c4       |    |		Action	Make_Default
005c 00c4       |    |		Action	Make_Default
005d 00c4       |    |		Action	Make_Default
005e 00c4       |    |		Action	Make_Default
005f 00c4       |    |		Action	Make_Default
0060 00c4       |    |		Action	Make_Default
0061 00c4       |    |		Action	Make_Default
0062 00c4       |    |		Action	Make_Default
0063 00c4       |    |		Action	Make_Default
0064 00c4       |    |		Action	Make_Default
0065 00c4       |    |		Action	Make_Default
0066 00c4       |    |		Action	Make_Default
0067 00c4       |    |		Action	Make_Default
0068 00c4       |    |		Action	Make_Default
0069 00c4       |    |		Action	Make_Default
006a 00c4       |    |		Action	Make_Default
006b 00c4       |    |		Action	Make_Default
006c 00c4       |    |		Action	Make_Default
006d 00c4       |    |		Action	Make_Default
006e 00c4       |    |		Action	Make_Default
006f 00c4       |    |		Action	Make_Default
0070 00c4       |    |		Action	Make_Default
0071 00c4       |    |		Action	Make_Default
0072 00c4       |    |		Action	Make_Default
0073 00c4       |    |		Action	Make_Default
0074 00c4       |    |		Action	Make_Default
0075 00c4       |    |		Action	Make_Default
0076 00c4       |    |		Action	Make_Default
0077 00c4       |    |		Action	Make_Default
0078 00c4       |    |		Action	Make_Default
0079 00c4       |    |		Action	Make_Default
007a 00c4       |    |		Action	Make_Default
007b 00c4       |    |		Action	Make_Default
007c 00c4       |    |		Action	Make_Default
007d e001       |    |		Load	0x0,0x1
007e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
007f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0080 0129       | )  |		Execute	Any,Make_Visible
0081 c25e       | ^  |		Store	0x1,0x5e
0082 e001       |    |		Load	0x0,0x1
0083 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0084 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0085 0129       | )  |		Execute	Any,Make_Visible
0086 c25f       | _  |		Store	0x1,0x5f
0087 e002       |    |		Load	0x0,0x2
0088 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0089 0129       | )  |		Execute	Any,Make_Visible
008a c229       | )  |		Store	0x1,0x29
008b e002       |    |		Load	0x0,0x2
008c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008d 0129       | )  |		Execute	Any,Make_Visible
008e c22a       | *  |		Store	0x1,0x2a
008f e002       |    |		Load	0x0,0x2
0090 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0091 0129       | )  |		Execute	Any,Make_Visible
0092 c22b       | +  |		Store	0x1,0x2b
0093 e002       |    |		Load	0x0,0x2
0094 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0095 0129       | )  |		Execute	Any,Make_Visible
0096 c260       | `  |		Store	0x1,0x60
0097 e002       |    |		Load	0x0,0x2
0098 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0099 0129       | )  |		Execute	Any,Make_Visible
009a c261       | a  |		Store	0x1,0x61
009b e001       |    |		Load	0x0,0x1
009c 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
009d 0129       | )  |		Execute	Any,Make_Visible
009e c278       | x  |		Store	0x1,0x78
009f 4800       |H   |		Short_Literal	0x0
00a0 4801       |H   |		Short_Literal	0x1
00a1 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
00a3 03fe       |    |		Declare_Type	Discrete,Defined,Visible
00a4 c23e       | >  |		Store	0x1,0x3e
00a5 e23e       | >  |		Load	0x1,0x3e
00a6 4801       |H   |		Short_Literal	0x1
00a7 4900       |I   |		Short_Literal	0x100
00a8 e002       |    |		Load	0x0,0x2
00a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00aa 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00ab 0129       | )  |		Execute	Any,Make_Visible
00ac 029f 090b  |    |		Declare_Subprogram	INIT_0908,For_Call
00ae 4801       |H   |		Short_Literal	0x1
00af 4800       |H   |		Short_Literal	0x0
00b0 4801       |H   |		Short_Literal	0x1
00b1 4800       |H   |		Short_Literal	0x0
00b2 4801       |H   |		Short_Literal	0x1
00b3 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
00b4 c24a       | J  |		Store	0x1,0x4a
00b5 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
00b7 c24b       | K  |		Store	0x1,0x4b
00b8 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
00ba c25d       | ]  |		Store	0x1,0x5d
00bb 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
00bd c24d       | M  |		Store	0x1,0x4d
00be 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
00c0 c24e       | N  |		Store	0x1,0x4e
00c1 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
00c3 c250       | P  |		Store	0x1,0x50
00c4 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
00c6 c263       | c  |		Store	0x1,0x63
00c7 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
00c9 c27e       | ~  |		Store	0x1,0x7e
00ca 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
00cc c265       | e  |		Store	0x1,0x65
00cd 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
00cf c277       | w  |		Store	0x1,0x77
00d0 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
00d2 c24f       | O  |		Store	0x1,0x4f
00d3 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
00d5 c270       | p  |		Store	0x1,0x70
00d6 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
00d8 c271       | q  |		Store	0x1,0x71
00d9 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
00db c252       | R  |		Store	0x1,0x52
00dc 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
00de c253       | S  |		Store	0x1,0x53
00df 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
00e1 c254       | T  |		Store	0x1,0x54
00e2 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
00e4 c27d       | }  |		Store	0x1,0x7d
00e5 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
00e7 c27c       | |  |		Store	0x1,0x7c
00e8 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
00ea c272       | r  |		Store	0x1,0x72
00eb 029a 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Outer_Call,Visible,Unelaborated
00ed c276       | v  |		Store	0x1,0x76
00ee 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
00f0 c273       | s  |		Store	0x1,0x73
00f1 029a 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated
00f3 c274       | t  |		Store	0x1,0x74
00f4 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
00f6 c26d       | m  |		Store	0x1,0x6d
00f7 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated
00f9 c26e       | n  |		Store	0x1,0x6e
00fa 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
00fc c21f       |    |		Store	0x1,0x1f
00fd 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
00ff c25c       | \  |		Store	0x1,0x5c
0100 029a 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call,Visible,Unelaborated
0102 c279       | y  |		Store	0x1,0x79
0103 029a 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call,Visible,Unelaborated
0105 c27a       | z  |		Store	0x1,0x7a
0106 029a 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call,Visible,Unelaborated
0108 c27b       | {  |		Store	0x1,0x7b
0109 00bf       |    |		Action	Accept_Activation
010a 4800       |H   |		Short_Literal	0x0
010b 4802       |H   |		Short_Literal	0x2
010c 029f 0723  |   #|		Declare_Subprogram	INIT_0720,For_Call
010e 03fd       |    |		Declare_Type	Discrete,Defined
010f 00d8       |    |		Load_Top	At_Offset_0
0110 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0111 e003       |    |		Load	0x0,0x3
0112 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0113 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0114 02c7       |    |		Declare_Variable	Any
0115 e003       |    |		Load	0x0,0x3
0116 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0117 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0118 a281       |    |		Store_Unchecked	0x1,0x81
0119 4800       |H   |		Short_Literal	0x0
011a e24a       | J  |		Load	0x1,0x4a
011b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
011c 00d8       |    |		Load_Top	At_Offset_0
011d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
011e 029d 074b  |   K|		Declare_Subprogram	INIT_0748,For_Outer_Call
0120 029d 0763  |   c|		Declare_Subprogram	INIT_0760,For_Outer_Call
0122 029d 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Outer_Call
0124 029d 080b  |    |		Declare_Subprogram	INIT_0808,For_Outer_Call
0126 029d 0823  |   #|		Declare_Subprogram	INIT_0820,For_Outer_Call
0128 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
0129 00c7       |    |		Action	Elaborate_Subprogram
012a 1d5d       | ]  |		Execute_Immediate	Reference_Lex_1,0x5d
012b 00c7       |    |		Action	Elaborate_Subprogram
012c 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
012d 00c7       |    |		Action	Elaborate_Subprogram
012e 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
012f 00c7       |    |		Action	Elaborate_Subprogram
0130 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
0131 00c7       |    |		Action	Elaborate_Subprogram
0132 1d63       | c  |		Execute_Immediate	Reference_Lex_1,0x63
0133 00c7       |    |		Action	Elaborate_Subprogram
0134 e004       |    |		Load	0x0,0x4
0135 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
0136 1d7e       | ~  |		Execute_Immediate	Reference_Lex_1,0x7e
0137 00c7       |    |		Action	Elaborate_Subprogram
0138 1d65       | e  |		Execute_Immediate	Reference_Lex_1,0x65
0139 00c7       |    |		Action	Elaborate_Subprogram
013a e005       |    |		Load	0x0,0x5
013b 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
013c 1d77       | w  |		Execute_Immediate	Reference_Lex_1,0x77
013d 00c7       |    |		Action	Elaborate_Subprogram
013e 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
013f 00c7       |    |		Action	Elaborate_Subprogram
0140 1d70       | p  |		Execute_Immediate	Reference_Lex_1,0x70
0141 00c7       |    |		Action	Elaborate_Subprogram
0142 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
0143 00c7       |    |		Action	Elaborate_Subprogram
0144 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
0145 00c7       |    |		Action	Elaborate_Subprogram
0146 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
0147 00c7       |    |		Action	Elaborate_Subprogram
0148 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
0149 00c7       |    |		Action	Elaborate_Subprogram
014a 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
014b 00c7       |    |		Action	Elaborate_Subprogram
014c 1d7c       | |  |		Execute_Immediate	Reference_Lex_1,0x7c
014d 00c7       |    |		Action	Elaborate_Subprogram
014e 1d72       | r  |		Execute_Immediate	Reference_Lex_1,0x72
014f 00c7       |    |		Action	Elaborate_Subprogram
0150 1d76       | v  |		Execute_Immediate	Reference_Lex_1,0x76
0151 00c7       |    |		Action	Elaborate_Subprogram
0152 1d73       | s  |		Execute_Immediate	Reference_Lex_1,0x73
0153 00c7       |    |		Action	Elaborate_Subprogram
0154 1d74       | t  |		Execute_Immediate	Reference_Lex_1,0x74
0155 00c7       |    |		Action	Elaborate_Subprogram
0156 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
0157 00c7       |    |		Action	Elaborate_Subprogram
0158 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
0159 00c7       |    |		Action	Elaborate_Subprogram
015a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
015b 00c7       |    |		Action	Elaborate_Subprogram
015c 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
015d 00c7       |    |		Action	Elaborate_Subprogram
015e 1d79       | y  |		Execute_Immediate	Reference_Lex_1,0x79
015f 00c7       |    |		Action	Elaborate_Subprogram
0160 1d7a       | z  |		Execute_Immediate	Reference_Lex_1,0x7a
0161 00c7       |    |		Action	Elaborate_Subprogram
0162 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
0163 00c7       |    |		Action	Elaborate_Subprogram
0164			BODY_0008:
0164 00bc       |    |		Action	Signal_Activated
0165 00bb       |    |		Action	Signal_Completion
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4607       |F   |		Jump_Case	0x8
016c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
016d 7806       |x   |		Jump	0x174								; case 0x1
016e 7809       |x   |		Jump	0x178								; case 0x2
016f 780d       |x   |		Jump	0x17d								; case 0x3
0170 7810       |x   |		Jump	0x181								; case 0x4
0171 7811       |x   |		Jump	0x183								; case 0x5
0172 7812       |x   |		Jump	0x185								; case 0x6
0173 7815       |x   |		Jump	0x189								; case 0x7
0174 00da       |    |		Load_Top	At_Offset_2
0175 0091 094b  |   K|		Action	Push_String_Extended_Indexed,0x94b				; "ES_OK"
0177 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0178 00db       |    |		Load_Top	At_Offset_3
0179 00db       |    |		Load_Top	At_Offset_3
017a 00e0       |    |		Load_Encached	Standard_Cache
017b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
017c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017d 00da       |    |		Load_Top	At_Offset_2
017e 00e0       |    |		Load_Encached	Standard_Cache
017f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0180 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0181 00db       |    |		Load_Top	At_Offset_3
0182 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0183 00db       |    |		Load_Top	At_Offset_3
0184 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0185 e23e       | >  |		Load	0x1,0x3e
0186 00dc       |    |		Load_Top	At_Offset_4
0187 0267       | g  |		Execute	Discrete,Predecessor
0188 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0189 e23e       | >  |		Load	0x1,0x3e
018a 00dc       |    |		Load_Top	At_Offset_4
018b 0268       | h  |		Execute	Discrete,Successor
018c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018d 0000 0000  |    |		.XXX[0x3]
018f 0000       |    |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 019c       |    |		.CONST	0x019c								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00e1       |    |		Load_Encached	Boolean_Cache
0194 e5fd       |    |		Load	0x2,-0x3
0195 e5fe       |    |		Load	0x2,-0x2
0196 e5ff       |    |		Load	0x2,-0x1
0197 e001       |    |		Load	0x0,0x1
0198 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0199 00d2       |    |		Pop_Control	Pop_Count_2
019a c5fc       |    |		Store	0x2,-0x4
019b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019c			TRAP_0190:
019c e006       |    |		Load	0x0,0x6
019d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019e 010f       |    |		Execute	Exception,Equal
019f 6802       |h   |		Jump_Zero	0x1a2
01a0 00d8       |    |		Load_Top	At_Offset_0
01a1 0101       |    |		Execute	Exception,Reraise
01a2 4801       |H   |		Short_Literal	0x1
01a3 e007       |    |		Load	0x0,0x7
01a4 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
01a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a6 0000 0000  |    |		.XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ba       |    |		.CONST	0x01ba								; Address of begin
01a9 01e7       |    |		.CONST	0x01e7								; Address of exception handler
01aa 0004       |    |		.CONST	0x0004								; Number of locals
01ab			INIT_01a8:
01ab e003       |    |		Load	0x0,0x3
01ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ae 02c7       |    |		Declare_Variable	Any
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b1 e003       |    |		Load	0x0,0x3
01b2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b3 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
01b4 02c7       |    |		Declare_Variable	Any
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b7 e003       |    |		Load	0x0,0x3
01b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b9 1b44       | D  |		Execute	Package,Field_Read,Field_Number 0x44
01ba			BODY_01a8:
01ba 8287       |    |		Call	0x1,0x87
01bb e5fe       |    |		Load	0x2,-0x2
01bc e5ff       |    |		Load	0x2,-0x1
01bd e002       |    |		Load	0x0,0x2
01be 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01bf e008       |    |		Load	0x0,0x8
01c0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01c1 e002       |    |		Load	0x0,0x2
01c2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01c3 00d1       |    |		Pop_Control	Pop_Count_1
01c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c5 0950 e007  | P  |		.XXX[0x22]
01c7 1844 4502  | DE |
01c9 0950 e007  | P  |
01cb 1836 4502  | 6E |
01cd 0951 e5ff  | Q  |
01cf e002 1813  |    |
01d1 0092 0950  |   P|
01d3 e007 183d  |   =|
01d5 4502 0950  |E  P|
01d7 e007 1837  |   7|
01d9 4502 0951  |E  Q|
01db e5ff e002  |    |
01dd 1813 0092  |    |
01df 0950 e007  | P  |
01e1 1839 4502  | 9E |
01e3 0950 e007  | P  |
01e5 183b 4502  | ;E |
01e7			TRAP_01a8:
01e7 e008       |    |		Load	0x0,0x8
01e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e9 010f       |    |		Execute	Exception,Equal
01ea 6809       |h   |		Jump_Zero	0x1f4
01eb 4801       |H   |		Short_Literal	0x1
01ec e5ff       |    |		Load	0x2,-0x1
01ed e002       |    |		Load	0x0,0x2
01ee 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ef 0092 0950  |   P|		Action	Push_String_Extended,0x950					; "object"
01f1 e007       |    |		Load	0x0,0x7
01f2 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
01f3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f4 e006       |    |		Load	0x0,0x6
01f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01f6 010f       |    |		Execute	Exception,Equal
01f7 6802       |h   |		Jump_Zero	0x1fa
01f8 00d8       |    |		Load_Top	At_Offset_0
01f9 0101       |    |		Execute	Exception,Reraise
01fa 4801       |H   |		Short_Literal	0x1
01fb e007       |    |		Load	0x0,0x7
01fc 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
01fd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01fe 0000 0000  |    |		.XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0209       |    |		.CONST	0x0209								; Address of begin
0201 021e       |    |		.CONST	0x021e								; Address of exception handler
0202 0002       |    |		.CONST	0x0002								; Number of locals
0203			INIT_0200:
0203 e003       |    |		Load	0x0,0x3
0204 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0205 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0206 02c7       |    |		Declare_Variable	Any
0207 00d8       |    |		Load_Top	At_Offset_0
0208 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0209			BODY_0200:
0209 e009       |    |		Load	0x0,0x9
020a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
020b 4800       |H   |		Short_Literal	0x0
020c 0092 0952  |   R|		Action	Push_String_Extended,0x952					; "Getting diagram name "
020e e5ff       |    |		Load	0x2,-0x1
020f e002       |    |		Load	0x0,0x2
0210 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0211 e00a       |    |		Load	0x0,0xa
0212 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0213 01cc       |    |		Execute	Vector,Catenate
0214 e00b       |    |		Load	0x0,0xb
0215 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0216 e001       |    |		Load	0x0,0x1
0217 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0218 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0219 e5ff       |    |		Load	0x2,-0x1
021a e001       |    |		Load	0x0,0x1
021b 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
021c c5fe       |    |		Store	0x2,-0x2
021d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021e			TRAP_0200:
021e e006       |    |		Load	0x0,0x6
021f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0220 010f       |    |		Execute	Exception,Equal
0221 6802       |h   |		Jump_Zero	0x224
0222 00d8       |    |		Load_Top	At_Offset_0
0223 0101       |    |		Execute	Exception,Reraise
0224 4801       |H   |		Short_Literal	0x1
0225 e007       |    |		Load	0x0,0x7
0226 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0227 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 023d       | =  |		.CONST	0x023d								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b e009       |    |		Load	0x0,0x9
022c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
022d 4800       |H   |		Short_Literal	0x0
022e 0092 0953  |   S|		Action	Push_String_Extended,0x953					; "Storing diagram name "
0230 e5ff       |    |		Load	0x2,-0x1
0231 e002       |    |		Load	0x0,0x2
0232 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0233 e00a       |    |		Load	0x0,0xa
0234 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0235 01cc       |    |		Execute	Vector,Catenate
0236 e00b       |    |		Load	0x0,0xb
0237 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0238 00db       |    |		Load_Top	At_Offset_3
0239 00db       |    |		Load_Top	At_Offset_3
023a e001       |    |		Load	0x0,0x1
023b 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
023c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023d			TRAP_0228:
023d e006       |    |		Load	0x0,0x6
023e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
023f 010f       |    |		Execute	Exception,Equal
0240 6802       |h   |		Jump_Zero	0x243
0241 00d8       |    |		Load_Top	At_Offset_0
0242 0101       |    |		Execute	Exception,Reraise
0243 4801       |H   |		Short_Literal	0x1
0244 e007       |    |		Load	0x0,0x7
0245 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0246 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0250       | P  |		.CONST	0x0250								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00db       |    |		Load_Top	At_Offset_3
024c 00db       |    |		Load_Top	At_Offset_3
024d e001       |    |		Load	0x0,0x1
024e 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
024f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0250			TRAP_0248:
0250 e006       |    |		Load	0x0,0x6
0251 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0252 010f       |    |		Execute	Exception,Equal
0253 6802       |h   |		Jump_Zero	0x256
0254 00d8       |    |		Load_Top	At_Offset_0
0255 0101       |    |		Execute	Exception,Reraise
0256 4801       |H   |		Short_Literal	0x1
0257 e007       |    |		Load	0x0,0x7
0258 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0259 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
025a 0000 0000  |    |		.BLANK	0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0276       | v  |		.CONST	0x0276								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 e009       |    |		Load	0x0,0x9
0264 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0265 4800       |H   |		Short_Literal	0x0
0266 0092 0954  |   T|		Action	Push_String_Extended,0x954					; "Storing print file name "
0268 e5ff       |    |		Load	0x2,-0x1
0269 e002       |    |		Load	0x0,0x2
026a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
026b e00a       |    |		Load	0x0,0xa
026c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
026d 01cc       |    |		Execute	Vector,Catenate
026e e00b       |    |		Load	0x0,0xb
026f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0270 e5fd       |    |		Load	0x2,-0x3
0271 e5fe       |    |		Load	0x2,-0x2
0272 e5ff       |    |		Load	0x2,-0x1
0273 e001       |    |		Load	0x0,0x1
0274 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0275 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0276			TRAP_0260:
0276 e006       |    |		Load	0x0,0x6
0277 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0278 010f       |    |		Execute	Exception,Equal
0279 6802       |h   |		Jump_Zero	0x27c
027a 00d8       |    |		Load_Top	At_Offset_0
027b 0101       |    |		Execute	Exception,Reraise
027c 4801       |H   |		Short_Literal	0x1
027d e007       |    |		Load	0x0,0x7
027e 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
027f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 028f       |    |		.CONST	0x028f								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 e280       |    |		Load	0x1,0x80
0284 7003       |p   |		Jump_Nonzero	0x288
0285 e280       |    |		Load	0x1,0x80
0286 8284       |    |		Call	0x1,0x84
0287 c280       |    |		Store	0x1,0x80
0288 e5fc       |    |		Load	0x2,-0x4
0289 e280       |    |		Load	0x1,0x80
028a e5fd       |    |		Load	0x2,-0x3
028b e5fe       |    |		Load	0x2,-0x2
028c e5ff       |    |		Load	0x2,-0x1
028d 8288       |    |		Call	0x1,0x88
028e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
028f			TRAP_0280:
028f e006       |    |		Load	0x0,0x6
0290 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0291 010f       |    |		Execute	Exception,Equal
0292 6802       |h   |		Jump_Zero	0x295
0293 00d8       |    |		Load_Top	At_Offset_0
0294 0101       |    |		Execute	Exception,Reraise
0295 4801       |H   |		Short_Literal	0x1
0296 e007       |    |		Load	0x0,0x7
0297 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0298 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0299 0000 0000  |    |		.BLANK	0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 02b8       |    |		.CONST	0x02b8								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 e5fd       |    |		Load	0x2,-0x3
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 e002       |    |		Load	0x0,0x2
02a6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02a7 00d1       |    |		Pop_Control	Pop_Count_1
02a8 00db       |    |		Load_Top	At_Offset_3
02a9 6807       |h   |		Jump_Zero	0x2b1
02aa e5fd       |    |		Load	0x2,-0x3
02ab 0092 0955  |   U|		Action	Push_String_Extended,0x955					; "_mil"
02ad e002       |    |		Load	0x0,0x2
02ae 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02af 00d1       |    |		Pop_Control	Pop_Count_1
02b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b1 e5fd       |    |		Load	0x2,-0x3
02b2 0092 0956  |   V|		Action	Push_String_Extended,0x956					; "_ps"
02b4 e002       |    |		Load	0x0,0x2
02b5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02b6 00d1       |    |		Pop_Control	Pop_Count_1
02b7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b8			TRAP_02a0:
02b8 e006       |    |		Load	0x0,0x6
02b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ba 010f       |    |		Execute	Exception,Equal
02bb 6802       |h   |		Jump_Zero	0x2be
02bc 00d8       |    |		Load_Top	At_Offset_0
02bd 0101       |    |		Execute	Exception,Reraise
02be 4801       |H   |		Short_Literal	0x1
02bf e007       |    |		Load	0x0,0x7
02c0 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
02c1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 02d6       |    |		.CONST	0x02d6								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb e280       |    |		Load	0x1,0x80
02cc 7003       |p   |		Jump_Nonzero	0x2d0
02cd e280       |    |		Load	0x1,0x80
02ce 8284       |    |		Call	0x1,0x84
02cf c280       |    |		Store	0x1,0x80
02d0 e280       |    |		Load	0x1,0x80
02d1 e25f       | _  |		Load	0x1,0x5f
02d2 8289       |    |		Call	0x1,0x89
02d3 c5ff       |    |		Store	0x2,-0x1
02d4 c280       |    |		Store	0x1,0x80
02d5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d6			TRAP_02c8:
02d6 e006       |    |		Load	0x0,0x6
02d7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d8 010f       |    |		Execute	Exception,Equal
02d9 6802       |h   |		Jump_Zero	0x2dc
02da 00d8       |    |		Load_Top	At_Offset_0
02db 0101       |    |		Execute	Exception,Reraise
02dc 4801       |H   |		Short_Literal	0x1
02dd e007       |    |		Load	0x0,0x7
02de 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
02df 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e8       |    |		.CONST	0x02e8								; Address of begin
02e1 02f1       |    |		.CONST	0x02f1								; Address of exception handler
02e2 0002       |    |		.CONST	0x0002								; Number of locals
02e3			INIT_02e0:
02e3 4900       |I   |		Short_Literal	0x100
02e4 e22a       | *  |		Load	0x1,0x2a
02e5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e8			BODY_02e0:
02e8 00d8       |    |		Load_Top	At_Offset_0
02e9 e5ff       |    |		Load	0x2,-0x1
02ea 825d       | ]  |		Call	0x1,0x5d
02eb 00d1       |    |		Pop_Control	Pop_Count_1
02ec e5fe       |    |		Load	0x2,-0x2
02ed 00d9       |    |		Load_Top	At_Offset_1
02ee e001       |    |		Load	0x0,0x1
02ef 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02f0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02f1			TRAP_02e0:
02f1 e006       |    |		Load	0x0,0x6
02f2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f3 010f       |    |		Execute	Exception,Equal
02f4 6802       |h   |		Jump_Zero	0x2f7
02f5 00d8       |    |		Load_Top	At_Offset_0
02f6 0101       |    |		Execute	Exception,Reraise
02f7 4801       |H   |		Short_Literal	0x1
02f8 e007       |    |		Load	0x0,0x7
02f9 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
02fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02fb 0000 0000  |    |		.BLANK	0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0314       |    |		.CONST	0x0314								; Address of begin
0301 033c       | <  |		.CONST	0x033c								; Address of exception handler
0302 0004       |    |		.CONST	0x0004								; Number of locals
0303			INIT_0300:
0303 e00c       |    |		Load	0x0,0xc
0304 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0305 02c7       |    |		Declare_Variable	Any
0306 e00d       |    |		Load	0x0,0xd
0307 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0308 e00c       |    |		Load	0x0,0xc
0309 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
030a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
030b a402       |    |		Store_Unchecked	0x2,0x2
030c 00d8       |    |		Load_Top	At_Offset_0
030d e00c       |    |		Load	0x0,0xc
030e 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
030f e00e       |    |		Load	0x0,0xe
0310 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0311 03f1       |    |		Declare_Variable	Discrete,With_Value
0312 e00f       |    |		Load	0x0,0xf
0313 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0314			BODY_0300:
0314 00d9       |    |		Load_Top	At_Offset_1
0315 e00f       |    |		Load	0x0,0xf
0316 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0317 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0318 e009       |    |		Load	0x0,0x9
0319 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
031a 4800       |H   |		Short_Literal	0x0
031b 0092 0957  |   W|		Action	Push_String_Extended,0x957					; "Common.Definition of object "
031d e5ff       |    |		Load	0x2,-0x1
031e e002       |    |		Load	0x0,0x2
031f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0320 e00a       |    |		Load	0x0,0xa
0321 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0322 01cc       |    |		Execute	Vector,Catenate
0323 e00b       |    |		Load	0x0,0xb
0324 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0325 8010       |    |		Call	0x0,0x10
0326 0092 0958  |   X|		Action	Push_String_Extended,0x958					; "<PROFILE>"
0328 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "$"
032a 0092 095a  |   Z|		Action	Push_String_Extended,0x95a					; "Common.Definition (\x22"
032c e5ff       |    |		Load	0x2,-0x1
032d e002       |    |		Load	0x0,0x2
032e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
032f 01cc       |    |		Execute	Vector,Catenate
0330 0092 095b  |   [|		Action	Push_String_Extended,0x95b					; "\x22)"
0332 01cc       |    |		Execute	Vector,Catenate
0333 e011       |    |		Load	0x0,0x11
0334 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0335 00d8       |    |		Load_Top	At_Offset_0
0336 0e02       |    |		Execute_Immediate	Not_Equal,0x2
0337 6803       |h   |		Jump_Zero	0x33b
0338 00d9       |    |		Load_Top	At_Offset_1
0339 e012       |    |		Load	0x0,0x12
033a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
033b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
033c			TRAP_0300:
033c e006       |    |		Load	0x0,0x6
033d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
033e 010f       |    |		Execute	Exception,Equal
033f 6802       |h   |		Jump_Zero	0x342
0340 00d8       |    |		Load_Top	At_Offset_0
0341 0101       |    |		Execute	Exception,Reraise
0342 4801       |H   |		Short_Literal	0x1
0343 e007       |    |		Load	0x0,0x7
0344 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0345 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0346 0000 0000  |    |		.XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 034f       | O  |		.CONST	0x034f								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 4801       |H   |		Short_Literal	0x1
034c e007       |    |		Load	0x0,0x7
034d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
034e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
034f			TRAP_0348:
034f e006       |    |		Load	0x0,0x6
0350 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0351 010f       |    |		Execute	Exception,Equal
0352 6802       |h   |		Jump_Zero	0x355
0353 00d8       |    |		Load_Top	At_Offset_0
0354 0101       |    |		Execute	Exception,Reraise
0355 4801       |H   |		Short_Literal	0x1
0356 e007       |    |		Load	0x0,0x7
0357 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0358 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0359 0000 0000  |    |		.BLANK	0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0367       | g  |		.CONST	0x0367								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 4801       |H   |		Short_Literal	0x1
0364 e007       |    |		Load	0x0,0x7
0365 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0366 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0367			TRAP_0360:
0367 e006       |    |		Load	0x0,0x6
0368 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0369 010f       |    |		Execute	Exception,Equal
036a 6802       |h   |		Jump_Zero	0x36d
036b 00d8       |    |		Load_Top	At_Offset_0
036c 0101       |    |		Execute	Exception,Reraise
036d 4801       |H   |		Short_Literal	0x1
036e e007       |    |		Load	0x0,0x7
036f 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0370 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0371 0000 0000  |    |		.BLANK	0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 038c       |    |		.CONST	0x038c								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b e009       |    |		Load	0x0,0x9
037c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
037d 4800       |H   |		Short_Literal	0x0
037e 0092 095c  |   \|		Action	Push_String_Extended,0x95c					; "Deleting diagram name "
0380 e5ff       |    |		Load	0x2,-0x1
0381 e002       |    |		Load	0x0,0x2
0382 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0383 e00a       |    |		Load	0x0,0xa
0384 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0385 01cc       |    |		Execute	Vector,Catenate
0386 e00b       |    |		Load	0x0,0xb
0387 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0388 00da       |    |		Load_Top	At_Offset_2
0389 e001       |    |		Load	0x0,0x1
038a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
038b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
038c			TRAP_0378:
038c e006       |    |		Load	0x0,0x6
038d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
038e 010f       |    |		Execute	Exception,Equal
038f 6802       |h   |		Jump_Zero	0x392
0390 00d8       |    |		Load_Top	At_Offset_0
0391 0101       |    |		Execute	Exception,Reraise
0392 4801       |H   |		Short_Literal	0x1
0393 e007       |    |		Load	0x0,0x7
0394 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0395 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0396 0000 0000  |    |		.XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 039f       |    |		.CONST	0x039f								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 4801       |H   |		Short_Literal	0x1
039c e007       |    |		Load	0x0,0x7
039d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
039e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
039f			TRAP_0398:
039f e006       |    |		Load	0x0,0x6
03a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03a1 010f       |    |		Execute	Exception,Equal
03a2 6802       |h   |		Jump_Zero	0x3a5
03a3 00d8       |    |		Load_Top	At_Offset_0
03a4 0101       |    |		Execute	Exception,Reraise
03a5 4801       |H   |		Short_Literal	0x1
03a6 e007       |    |		Load	0x0,0x7
03a7 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
03a8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a9 0000 0000  |    |		.BLANK	0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03cb       |    |		.CONST	0x03cb								; Address of begin
03b1 0450       | P  |		.CONST	0x0450								; Address of exception handler
03b2 0005       |    |		.CONST	0x0005								; Number of locals
03b3			INIT_03b0:
03b3 4900       |I   |		Short_Literal	0x100
03b4 e002       |    |		Load	0x0,0x2
03b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03b7 00d8       |    |		Load_Top	At_Offset_0
03b8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b9 4900       |I   |		Short_Literal	0x100
03ba e002       |    |		Load	0x0,0x2
03bb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03bc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03bd 00d8       |    |		Load_Top	At_Offset_0
03be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03bf e003       |    |		Load	0x0,0x3
03c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c1 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
03c2 02c7       |    |		Declare_Variable	Any
03c3 00d8       |    |		Load_Top	At_Offset_0
03c4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03c5 e003       |    |		Load	0x0,0x3
03c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c8 02c7       |    |		Declare_Variable	Any
03c9 00d8       |    |		Load_Top	At_Offset_0
03ca 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03cb			BODY_03b0:
03cb e5ff       |    |		Load	0x2,-0x1
03cc e002       |    |		Load	0x0,0x2
03cd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
03ce 7009       |p   |		Jump_Nonzero	0x3d8
03cf 00db       |    |		Load_Top	At_Offset_3
03d0 e281       |    |		Load	0x1,0x81
03d1 e003       |    |		Load	0x0,0x3
03d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d3 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03d4 e002       |    |		Load	0x0,0x2
03d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d6 00d1       |    |		Pop_Control	Pop_Count_1
03d7 7821       |x!  |		Jump	0x3f9
03d8 4801       |H   |		Short_Literal	0x1
03d9 e5ff       |    |		Load	0x2,-0x1
03da e002       |    |		Load	0x0,0x2
03db 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03dc 0f21       | !  |		Execute_Immediate	Equal,0x21
03dd 680a       |h   |		Jump_Zero	0x3e8
03de 00db       |    |		Load_Top	At_Offset_3
03df e5ff       |    |		Load	0x2,-0x1
03e0 e002       |    |		Load	0x0,0x2
03e1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e2 e00a       |    |		Load	0x0,0xa
03e3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03e4 e002       |    |		Load	0x0,0x2
03e5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03e6 00d1       |    |		Pop_Control	Pop_Count_1
03e7 7811       |x   |		Jump	0x3f9
03e8 00db       |    |		Load_Top	At_Offset_3
03e9 e281       |    |		Load	0x1,0x81
03ea e003       |    |		Load	0x0,0x3
03eb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ec 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03ed 0092 095d  |   ]|		Action	Push_String_Extended,0x95d					; "."
03ef 01cc       |    |		Execute	Vector,Catenate
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 e002       |    |		Load	0x0,0x2
03f2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f3 e00a       |    |		Load	0x0,0xa
03f4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03f5 01cc       |    |		Execute	Vector,Catenate
03f6 e002       |    |		Load	0x0,0x2
03f7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03f8 00d1       |    |		Pop_Control	Pop_Count_1
03f9 8287       |    |		Call	0x1,0x87
03fa 4801       |H   |		Short_Literal	0x1
03fb e003       |    |		Load	0x0,0x3
03fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03fd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03fe e5ff       |    |		Load	0x2,-0x1
03ff e002       |    |		Load	0x0,0x2
0400 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0401 e003       |    |		Load	0x0,0x3
0402 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0403 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0404 c404       |    |		Store	0x2,0x4
0405 00d9       |    |		Load_Top	At_Offset_1
0406 e003       |    |		Load	0x0,0x3
0407 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0408 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0409 c405       |    |		Store	0x2,0x5
040a 00da       |    |		Load_Top	At_Offset_2
040b 00da       |    |		Load_Top	At_Offset_2
040c e003       |    |		Load	0x0,0x3
040d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
040e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
040f e002       |    |		Load	0x0,0x2
0410 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0411 00d1       |    |		Pop_Control	Pop_Count_1
0412 00da       |    |		Load_Top	At_Offset_2
0413 e002       |    |		Load	0x0,0x2
0414 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0415 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0416 6824       |h$  |		Jump_Zero	0x43b
0417 4801       |H   |		Short_Literal	0x1
0418 00db       |    |		Load_Top	At_Offset_3
0419 e002       |    |		Load	0x0,0x2
041a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
041b 0f5f       | _  |		Execute_Immediate	Equal,0x5f
041c 681e       |h   |		Jump_Zero	0x43b
041d 00db       |    |		Load_Top	At_Offset_3
041e 4801       |H   |		Short_Literal	0x1
041f e402       |    |		Load	0x2,0x2
0420 e002       |    |		Load	0x0,0x2
0421 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0422 e403       |    |		Load	0x2,0x3
0423 e002       |    |		Load	0x0,0x2
0424 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0425 0aff       |    |		Execute_Immediate	Plus,-0x1
0426 0272       | r  |		Execute	Discrete,Minus
0427 00d8       |    |		Load_Top	At_Offset_0
0428 00e4       |    |		Load_Encached	Positive_Cache
0429 0260       | `  |		Execute	Discrete,In_Type
042a 7001       |p   |		Jump_Nonzero	0x42c
042b 0801       |    |		Execute_Immediate	Raise,0x1
042c e002       |    |		Load	0x0,0x2
042d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
042e 00d1       |    |		Pop_Control	Pop_Count_1
042f e009       |    |		Load	0x0,0x9
0430 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0431 4800       |H   |		Short_Literal	0x0
0432 0092 095e  |   ^|		Action	Push_String_Extended,0x95e					; "Generating diagram from indirect file "
0434 e402       |    |		Load	0x2,0x2
0435 e002       |    |		Load	0x0,0x2
0436 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0437 01cc       |    |		Execute	Vector,Catenate
0438 e00b       |    |		Load	0x0,0xb
0439 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
043a 780b       |x   |		Jump	0x446
043b e009       |    |		Load	0x0,0x9
043c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
043d 4800       |H   |		Short_Literal	0x0
043e 0092 095f  |   _|		Action	Push_String_Extended,0x95f					; "Generating diagram for "
0440 e402       |    |		Load	0x2,0x2
0441 e002       |    |		Load	0x0,0x2
0442 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0443 01cc       |    |		Execute	Vector,Catenate
0444 e00b       |    |		Load	0x0,0xb
0445 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0446 e5fe       |    |		Load	0x2,-0x2
0447 7007       |p   |		Jump_Nonzero	0x44f
0448 4801       |H   |		Short_Literal	0x1
0449 e5ff       |    |		Load	0x2,-0x1
044a e002       |    |		Load	0x0,0x2
044b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
044c e008       |    |		Load	0x0,0x8
044d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
044e a5fd       |    |		Store_Unchecked	0x2,-0x3
044f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0450			TRAP_03b0:
0450 e008       |    |		Load	0x0,0x8
0451 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0452 010f       |    |		Execute	Exception,Equal
0453 6809       |h   |		Jump_Zero	0x45d
0454 4801       |H   |		Short_Literal	0x1
0455 e5ff       |    |		Load	0x2,-0x1
0456 e002       |    |		Load	0x0,0x2
0457 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0458 0092 0950  |   P|		Action	Push_String_Extended,0x950					; "object"
045a e007       |    |		Load	0x0,0x7
045b 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
045c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
045d e006       |    |		Load	0x0,0x6
045e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
045f 010f       |    |		Execute	Exception,Equal
0460 6802       |h   |		Jump_Zero	0x463
0461 00d8       |    |		Load_Top	At_Offset_0
0462 0101       |    |		Execute	Exception,Reraise
0463 4801       |H   |		Short_Literal	0x1
0464 e007       |    |		Load	0x0,0x7
0465 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0466 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0467 0000       |    |		.XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0476       | v  |		.CONST	0x0476								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 8287       |    |		Call	0x1,0x87
046c 00db       |    |		Load_Top	At_Offset_3
046d 4801       |H   |		Short_Literal	0x1
046e 4800       |H   |		Short_Literal	0x0
046f e5ff       |    |		Load	0x2,-0x1
0470 e002       |    |		Load	0x0,0x2
0471 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0472 e008       |    |		Load	0x0,0x8
0473 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0474 a5fd       |    |		Store_Unchecked	0x2,-0x3
0475 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0476			TRAP_0468:
0476 e008       |    |		Load	0x0,0x8
0477 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0478 010f       |    |		Execute	Exception,Equal
0479 6809       |h   |		Jump_Zero	0x483
047a 4801       |H   |		Short_Literal	0x1
047b e5ff       |    |		Load	0x2,-0x1
047c e002       |    |		Load	0x0,0x2
047d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
047e 0092 0950  |   P|		Action	Push_String_Extended,0x950					; "object"
0480 e007       |    |		Load	0x0,0x7
0481 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0482 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0483 e008       |    |		Load	0x0,0x8
0484 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0485 010f       |    |		Execute	Exception,Equal
0486 6807       |h   |		Jump_Zero	0x48e
0487 4801       |H   |		Short_Literal	0x1
0488 e5ff       |    |		Load	0x2,-0x1
0489 e002       |    |		Load	0x0,0x2
048a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
048b e007       |    |		Load	0x0,0x7
048c 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
048d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
048e e006       |    |		Load	0x0,0x6
048f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0490 010f       |    |		Execute	Exception,Equal
0491 6802       |h   |		Jump_Zero	0x494
0492 00d8       |    |		Load_Top	At_Offset_0
0493 0101       |    |		Execute	Exception,Reraise
0494 4801       |H   |		Short_Literal	0x1
0495 e007       |    |		Load	0x0,0x7
0496 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0497 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 049f       |    |		.CONST	0x049f								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 4801       |H   |		Short_Literal	0x1
049c e007       |    |		Load	0x0,0x7
049d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
049e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
049f			TRAP_0498:
049f e006       |    |		Load	0x0,0x6
04a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04a1 010f       |    |		Execute	Exception,Equal
04a2 6802       |h   |		Jump_Zero	0x4a5
04a3 00d8       |    |		Load_Top	At_Offset_0
04a4 0101       |    |		Execute	Exception,Reraise
04a5 4801       |H   |		Short_Literal	0x1
04a6 e007       |    |		Load	0x0,0x7
04a7 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
04a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04a9 0000 0000  |    |		.BLANK	0000[0x7]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3       |    |		.CONST	0x04b3								; Address of begin
04b1 04bc       |    |		.CONST	0x04bc								; Address of exception handler
04b2 0001       |    |		.CONST	0x0001								; Number of locals
04b3			BODY_04b0:
04b3			INIT_04b0:
04b3 e001       |    |		Load	0x0,0x1
04b4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04b5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04b6 4800       |H   |		Short_Literal	0x0
04b7 e5ff       |    |		Load	0x2,-0x1
04b8 e001       |    |		Load	0x0,0x1
04b9 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
04ba c5fd       |    |		Store	0x2,-0x3
04bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04bc			TRAP_04b0:
04bc e006       |    |		Load	0x0,0x6
04bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04be 010f       |    |		Execute	Exception,Equal
04bf 6802       |h   |		Jump_Zero	0x4c2
04c0 00d8       |    |		Load_Top	At_Offset_0
04c1 0101       |    |		Execute	Exception,Reraise
04c2 4801       |H   |		Short_Literal	0x1
04c3 e007       |    |		Load	0x0,0x7
04c4 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
04c5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04c6 0000 0000  |    |		.XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 04dd       |    |		.CONST	0x04dd								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00da       |    |		Load_Top	At_Offset_2
04cc e001       |    |		Load	0x0,0x1
04cd 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
04ce 00d1       |    |		Pop_Control	Pop_Count_1
04cf e009       |    |		Load	0x0,0x9
04d0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d1 4803       |H   |		Short_Literal	0x3
04d2 0092 0960  |   `|		Action	Push_String_Extended,0x960					; "The current diagram context is "
04d4 e5ff       |    |		Load	0x2,-0x1
04d5 e002       |    |		Load	0x0,0x2
04d6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04d7 e00a       |    |		Load	0x0,0xa
04d8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04d9 01cc       |    |		Execute	Vector,Catenate
04da e00b       |    |		Load	0x0,0xb
04db 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04dd			TRAP_04c8:
04dd e006       |    |		Load	0x0,0x6
04de 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04df 010f       |    |		Execute	Exception,Equal
04e0 6802       |h   |		Jump_Zero	0x4e3
04e1 00d8       |    |		Load_Top	At_Offset_0
04e2 0101       |    |		Execute	Exception,Reraise
04e3 4801       |H   |		Short_Literal	0x1
04e4 e007       |    |		Load	0x0,0x7
04e5 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
04e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04e7 0000       |    |		.XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0503       |    |		.CONST	0x0503								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 00da       |    |		Load_Top	At_Offset_2
04ec e281       |    |		Load	0x1,0x81
04ed e003       |    |		Load	0x0,0x3
04ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04ef 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
04f0 e002       |    |		Load	0x0,0x2
04f1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04f2 e002       |    |		Load	0x0,0x2
04f3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04f4 00d1       |    |		Pop_Control	Pop_Count_1
04f5 e009       |    |		Load	0x0,0x9
04f6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04f7 4803       |H   |		Short_Literal	0x3
04f8 0092 0961  |   a|		Action	Push_String_Extended,0x961					; "The current object context is "
04fa e5ff       |    |		Load	0x2,-0x1
04fb e002       |    |		Load	0x0,0x2
04fc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04fd e00a       |    |		Load	0x0,0xa
04fe 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04ff 01cc       |    |		Execute	Vector,Catenate
0500 e00b       |    |		Load	0x0,0xb
0501 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0502 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0503			TRAP_04e8:
0503 e006       |    |		Load	0x0,0x6
0504 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0505 010f       |    |		Execute	Exception,Equal
0506 6802       |h   |		Jump_Zero	0x509
0507 00d8       |    |		Load_Top	At_Offset_0
0508 0101       |    |		Execute	Exception,Reraise
0509 4801       |H   |		Short_Literal	0x1
050a e007       |    |		Load	0x0,0x7
050b 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
050c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
050d 0000 0000  |    |		.XXX[0x3]
050f 0000       |    |
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0519       |    |		.CONST	0x0519								; Address of begin
0511 051d       |    |		.CONST	0x051d								; Address of exception handler
0512 0002       |    |		.CONST	0x0002								; Number of locals
0513			INIT_0510:
0513 e003       |    |		Load	0x0,0x3
0514 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0515 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0516 02c7       |    |		Declare_Variable	Any
0517 00d8       |    |		Load_Top	At_Offset_0
0518 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0519			BODY_0510:
0519 00db       |    |		Load_Top	At_Offset_3
051a e001       |    |		Load	0x0,0x1
051b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
051c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
051d			TRAP_0510:
051d e006       |    |		Load	0x0,0x6
051e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
051f 010f       |    |		Execute	Exception,Equal
0520 6802       |h   |		Jump_Zero	0x523
0521 00d8       |    |		Load_Top	At_Offset_0
0522 0101       |    |		Execute	Exception,Reraise
0523 4801       |H   |		Short_Literal	0x1
0524 e007       |    |		Load	0x0,0x7
0525 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0526 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0527 0000       |    |		.XXX[0x1]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0539       | 9  |		.CONST	0x0539								; Address of begin
0529 05d8       |    |		.CONST	0x05d8								; Address of exception handler
052a 0004       |    |		.CONST	0x0004								; Number of locals
052b			INIT_0528:
052b e003       |    |		Load	0x0,0x3
052c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
052d 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
052e 02c7       |    |		Declare_Variable	Any
052f 00d8       |    |		Load_Top	At_Offset_0
0530 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0531 e003       |    |		Load	0x0,0x3
0532 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0533 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0534 02c7       |    |		Declare_Variable	Any
0535 00d8       |    |		Load_Top	At_Offset_0
0536 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0537 029f 0843  |   C|		Declare_Subprogram	INIT_0840,For_Call
0539			BODY_0528:
0539 00da       |    |		Load_Top	At_Offset_2
053a 0120       |    |		Execute	Any,Is_Value
053b 6804       |h   |		Jump_Zero	0x540
053c e003       |    |		Load	0x0,0x3
053d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
053e 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
053f 7801       |x   |		Jump	0x541
0540 00da       |    |		Load_Top	At_Offset_2
0541 e281       |    |		Load	0x1,0x81
0542 e003       |    |		Load	0x0,0x3
0543 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0544 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0545 c402       |    |		Store	0x2,0x2
0546 4801       |H   |		Short_Literal	0x1
0547 e003       |    |		Load	0x0,0x3
0548 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0549 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
054a e5ff       |    |		Load	0x2,-0x1
054b e002       |    |		Load	0x0,0x2
054c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
054d e003       |    |		Load	0x0,0x3
054e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
054f 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0550 c403       |    |		Store	0x2,0x3
0551 00d9       |    |		Load_Top	At_Offset_1
0552 e003       |    |		Load	0x0,0x3
0553 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0554 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0555 c402       |    |		Store	0x2,0x2
0556 00da       |    |		Load_Top	At_Offset_2
0557 e003       |    |		Load	0x0,0x3
0558 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0559 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
055a 4618       |F   |		Jump_Case	0x19
055b 7823       |x#  |		Jump	0x57f								; case 0x0
055c 7822       |x"  |		Jump	0x57f								; case 0x1
055d 7823       |x#  |		Jump	0x581								; case 0x2
055e 7815       |x   |		Jump	0x574								; case 0x3
055f 7814       |x   |		Jump	0x574								; case 0x4
0560 7813       |x   |		Jump	0x574								; case 0x5
0561 7812       |x   |		Jump	0x574								; case 0x6
0562 7811       |x   |		Jump	0x574								; case 0x7
0563 7810       |x   |		Jump	0x574								; case 0x8
0564 7829       |x)  |		Jump	0x58e								; case 0x9
0565 780e       |x   |		Jump	0x574								; case 0xa
0566 780d       |x   |		Jump	0x574								; case 0xb
0567 7831       |x1  |		Jump	0x599								; case 0xc
0568 7839       |x9  |		Jump	0x5a2								; case 0xd
0569 7841       |xA  |		Jump	0x5ab								; case 0xe
056a 7849       |xI  |		Jump	0x5b4								; case 0xf
056b 7851       |xQ  |		Jump	0x5bd								; case 0x10
056c 785d       |x]  |		Jump	0x5ca								; case 0x11
056d 7806       |x   |		Jump	0x574								; case 0x12
056e 7805       |x   |		Jump	0x574								; case 0x13
056f 7804       |x   |		Jump	0x574								; case 0x14
0570 7803       |x   |		Jump	0x574								; case 0x15
0571 7802       |x   |		Jump	0x574								; case 0x16
0572 7801       |x   |		Jump	0x574								; case 0x17
0573 7800       |x   |		Jump	0x574								; case 0x18
0574 4801       |H   |		Short_Literal	0x1
0575 e5ff       |    |		Load	0x2,-0x1
0576 e002       |    |		Load	0x0,0x2
0577 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0578 e00a       |    |		Load	0x0,0xa
0579 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
057a 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
057c e007       |    |		Load	0x0,0x7
057d 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
057e 7855       |xU  |		Jump	0x5d4
057f 8404       |    |		Call	0x2,0x4
0580 7853       |xS  |		Jump	0x5d4
0581 4801       |H   |		Short_Literal	0x1
0582 0092 0963  |   c|		Action	Push_String_Extended,0x963					; "used as the context"
0584 e5ff       |    |		Load	0x2,-0x1
0585 e002       |    |		Load	0x0,0x2
0586 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0587 e00a       |    |		Load	0x0,0xa
0588 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0589 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
058b e007       |    |		Load	0x0,0x7
058c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
058d 7846       |xF  |		Jump	0x5d4
058e 4801       |H   |		Short_Literal	0x1
058f e5ff       |    |		Load	0x2,-0x1
0590 e002       |    |		Load	0x0,0x2
0591 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0592 e00a       |    |		Load	0x0,0xa
0593 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0594 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
0596 e007       |    |		Load	0x0,0x7
0597 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0598 783b       |x;  |		Jump	0x5d4
0599 4801       |H   |		Short_Literal	0x1
059a e5ff       |    |		Load	0x2,-0x1
059b e002       |    |		Load	0x0,0x2
059c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
059d e00a       |    |		Load	0x0,0xa
059e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
059f e007       |    |		Load	0x0,0x7
05a0 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
05a1 7832       |x2  |		Jump	0x5d4
05a2 4801       |H   |		Short_Literal	0x1
05a3 e5ff       |    |		Load	0x2,-0x1
05a4 e002       |    |		Load	0x0,0x2
05a5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05a6 e00a       |    |		Load	0x0,0xa
05a7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05a8 e007       |    |		Load	0x0,0x7
05a9 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
05aa 7829       |x)  |		Jump	0x5d4
05ab 4801       |H   |		Short_Literal	0x1
05ac e5ff       |    |		Load	0x2,-0x1
05ad e002       |    |		Load	0x0,0x2
05ae 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05af e00a       |    |		Load	0x0,0xa
05b0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05b1 e007       |    |		Load	0x0,0x7
05b2 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
05b3 7820       |x   |		Jump	0x5d4
05b4 4801       |H   |		Short_Literal	0x1
05b5 e5ff       |    |		Load	0x2,-0x1
05b6 e002       |    |		Load	0x0,0x2
05b7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05b8 e00a       |    |		Load	0x0,0xa
05b9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05ba e007       |    |		Load	0x0,0x7
05bb 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
05bc 7817       |x   |		Jump	0x5d4
05bd 4801       |H   |		Short_Literal	0x1
05be 0092 0963  |   c|		Action	Push_String_Extended,0x963					; "used as the context"
05c0 e5ff       |    |		Load	0x2,-0x1
05c1 e002       |    |		Load	0x0,0x2
05c2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05c3 e00a       |    |		Load	0x0,0xa
05c4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05c5 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
05c7 e007       |    |		Load	0x0,0x7
05c8 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
05c9 780a       |x   |		Jump	0x5d4
05ca 4801       |H   |		Short_Literal	0x1
05cb e5ff       |    |		Load	0x2,-0x1
05cc e002       |    |		Load	0x0,0x2
05cd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05ce e00a       |    |		Load	0x0,0xa
05cf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
05d0 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
05d2 e007       |    |		Load	0x0,0x7
05d3 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
05d4 00d9       |    |		Load_Top	At_Offset_1
05d5 c281       |    |		Store	0x1,0x81
05d6 8287       |    |		Call	0x1,0x87
05d7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05d8			TRAP_0528:
05d8 e006       |    |		Load	0x0,0x6
05d9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05da 010f       |    |		Execute	Exception,Equal
05db 6802       |h   |		Jump_Zero	0x5de
05dc 00d8       |    |		Load_Top	At_Offset_0
05dd 0101       |    |		Execute	Exception,Reraise
05de 4801       |H   |		Short_Literal	0x1
05df e007       |    |		Load	0x0,0x7
05e0 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
05e1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05e2 0000 0000  |    |		.BLANK	0000[0x6]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 05ee       |    |		.CONST	0x05ee								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb e001       |    |		Load	0x0,0x1
05ec 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05ed 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05ee			TRAP_05e8:
05ee e006       |    |		Load	0x0,0x6
05ef 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05f0 010f       |    |		Execute	Exception,Equal
05f1 6802       |h   |		Jump_Zero	0x5f4
05f2 00d8       |    |		Load_Top	At_Offset_0
05f3 0101       |    |		Execute	Exception,Reraise
05f4 4801       |H   |		Short_Literal	0x1
05f5 e007       |    |		Load	0x0,0x7
05f6 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
05f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0614       |    |		.CONST	0x0614								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb e009       |    |		Load	0x0,0x9
05fc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05fd 4801       |H   |		Short_Literal	0x1
05fe 0092 0964  |   d|		Action	Push_String_Extended,0x964					; "Executing "
0600 e5ff       |    |		Load	0x2,-0x1
0601 e002       |    |		Load	0x0,0x2
0602 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0603 01cc       |    |		Execute	Vector,Catenate
0604 e00b       |    |		Load	0x0,0xb
0605 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0606 8010       |    |		Call	0x0,0x10
0607 0092 0965  |   e|		Action	Push_String_Extended,0x965					; "<RAISE_EXCEPTION>"
0609 0092 0959  |   Y|		Action	Push_String_Extended,0x959					; "$"
060b e5ff       |    |		Load	0x2,-0x1
060c e002       |    |		Load	0x0,0x2
060d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
060e e011       |    |		Load	0x0,0x11
060f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0610 4800       |H   |		Short_Literal	0x0
0611 e012       |    |		Load	0x0,0x12
0612 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0613 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0614			TRAP_05f8:
0614 e006       |    |		Load	0x0,0x6
0615 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0616 010f       |    |		Execute	Exception,Equal
0617 6802       |h   |		Jump_Zero	0x61a
0618 00d8       |    |		Load_Top	At_Offset_0
0619 0101       |    |		Execute	Exception,Reraise
061a 4801       |H   |		Short_Literal	0x1
061b e5ff       |    |		Load	0x2,-0x1
061c e002       |    |		Load	0x0,0x2
061d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
061e e007       |    |		Load	0x0,0x7
061f 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0620 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0621 0000 0000  |    |		.BLANK	0000[0x7]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b       | +  |		.CONST	0x062b								; Address of begin
0629 064b       | K  |		.CONST	0x064b								; Address of exception handler
062a 0001       |    |		.CONST	0x0001								; Number of locals
062b			BODY_0628:
062b			INIT_0628:
062b e5fd       |    |		Load	0x2,-0x3
062c 00db       |    |		Load_Top	At_Offset_3
062d e002       |    |		Load	0x0,0x2
062e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
062f 00d1       |    |		Pop_Control	Pop_Count_1
0630 00db       |    |		Load_Top	At_Offset_3
0631 e002       |    |		Load	0x0,0x2
0632 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0633 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0634 680b       |h   |		Jump_Zero	0x640
0635 4801       |H   |		Short_Literal	0x1
0636 e5fe       |    |		Load	0x2,-0x2
0637 e002       |    |		Load	0x0,0x2
0638 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0639 0e2e       | .  |		Execute_Immediate	Not_Equal,0x2e
063a 6805       |h   |		Jump_Zero	0x640
063b e5fd       |    |		Load	0x2,-0x3
063c 482e       |H.  |		Short_Literal	0x2e
063d e002       |    |		Load	0x0,0x2
063e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
063f 00d1       |    |		Pop_Control	Pop_Count_1
0640 e5fd       |    |		Load	0x2,-0x3
0641 e5fe       |    |		Load	0x2,-0x2
0642 e002       |    |		Load	0x0,0x2
0643 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0644 e00a       |    |		Load	0x0,0xa
0645 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0646 e002       |    |		Load	0x0,0x2
0647 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0648 e002       |    |		Load	0x0,0x2
0649 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
064a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
064b			TRAP_0628:
064b e006       |    |		Load	0x0,0x6
064c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
064d 010f       |    |		Execute	Exception,Equal
064e 6802       |h   |		Jump_Zero	0x651
064f 00d8       |    |		Load_Top	At_Offset_0
0650 0101       |    |		Execute	Exception,Reraise
0651 4801       |H   |		Short_Literal	0x1
0652 e007       |    |		Load	0x0,0x7
0653 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0654 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0655 0000 0000  |    |		.XXX[0x3]
0657 0000       |    |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 066f       | o  |		.CONST	0x066f								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 00da       |    |		Load_Top	At_Offset_2
065c e013       |    |		Load	0x0,0x13
065d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
065e e002       |    |		Load	0x0,0x2
065f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0660 00d1       |    |		Pop_Control	Pop_Count_1
0661 e009       |    |		Load	0x0,0x9
0662 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0663 4803       |H   |		Short_Literal	0x3
0664 0092 0966  |   f|		Action	Push_String_Extended,0x966					; "The current activity is "
0666 e5ff       |    |		Load	0x2,-0x1
0667 e002       |    |		Load	0x0,0x2
0668 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0669 e00a       |    |		Load	0x0,0xa
066a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
066b 01cc       |    |		Execute	Vector,Catenate
066c e00b       |    |		Load	0x0,0xb
066d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
066e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
066f			TRAP_0658:
066f e006       |    |		Load	0x0,0x6
0670 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0671 010f       |    |		Execute	Exception,Equal
0672 6802       |h   |		Jump_Zero	0x675
0673 00d8       |    |		Load_Top	At_Offset_0
0674 0101       |    |		Execute	Exception,Reraise
0675 4801       |H   |		Short_Literal	0x1
0676 e007       |    |		Load	0x0,0x7
0677 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0678 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0679 0000 0000  |    |		.BLANK	0000[0x7]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0691       |    |		.CONST	0x0691								; Address of begin
0681 0715       |    |		.CONST	0x0715								; Address of exception handler
0682 0004       |    |		.CONST	0x0004								; Number of locals
0683			INIT_0680:
0683 e003       |    |		Load	0x0,0x3
0684 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0685 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0686 02c7       |    |		Declare_Variable	Any
0687 00d8       |    |		Load_Top	At_Offset_0
0688 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0689 e003       |    |		Load	0x0,0x3
068a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
068b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
068c 02c7       |    |		Declare_Variable	Any
068d 00d8       |    |		Load_Top	At_Offset_0
068e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
068f 029f 085b  |   [|		Declare_Subprogram	INIT_0858,For_Call
0691			BODY_0680:
0691 00da       |    |		Load_Top	At_Offset_2
0692 0120       |    |		Execute	Any,Is_Value
0693 6804       |h   |		Jump_Zero	0x698
0694 e003       |    |		Load	0x0,0x3
0695 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0696 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0697 7801       |x   |		Jump	0x699
0698 00da       |    |		Load_Top	At_Offset_2
0699 e281       |    |		Load	0x1,0x81
069a e003       |    |		Load	0x0,0x3
069b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
069c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
069d c402       |    |		Store	0x2,0x2
069e 4801       |H   |		Short_Literal	0x1
069f e003       |    |		Load	0x0,0x3
06a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06a1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06a2 e5ff       |    |		Load	0x2,-0x1
06a3 e002       |    |		Load	0x0,0x2
06a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06a5 e003       |    |		Load	0x0,0x3
06a6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06a7 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
06a8 c403       |    |		Store	0x2,0x3
06a9 00d9       |    |		Load_Top	At_Offset_1
06aa e003       |    |		Load	0x0,0x3
06ab 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06ac 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
06ad c402       |    |		Store	0x2,0x2
06ae 00da       |    |		Load_Top	At_Offset_2
06af e003       |    |		Load	0x0,0x3
06b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06b1 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
06b2 4618       |F   |		Jump_Case	0x19
06b3 785f       |x_  |		Jump	0x713								; case 0x0
06b4 785e       |x^  |		Jump	0x713								; case 0x1
06b5 781f       |x   |		Jump	0x6d5								; case 0x2
06b6 7815       |x   |		Jump	0x6cc								; case 0x3
06b7 7814       |x   |		Jump	0x6cc								; case 0x4
06b8 7813       |x   |		Jump	0x6cc								; case 0x5
06b9 7812       |x   |		Jump	0x6cc								; case 0x6
06ba 7811       |x   |		Jump	0x6cc								; case 0x7
06bb 7810       |x   |		Jump	0x6cc								; case 0x8
06bc 7823       |x#  |		Jump	0x6e0								; case 0x9
06bd 780e       |x   |		Jump	0x6cc								; case 0xa
06be 780d       |x   |		Jump	0x6cc								; case 0xb
06bf 7829       |x)  |		Jump	0x6e9								; case 0xc
06c0 782f       |x/  |		Jump	0x6f0								; case 0xd
06c1 7839       |x9  |		Jump	0x6fb								; case 0xe
06c2 783f       |x?  |		Jump	0x702								; case 0xf
06c3 7845       |xE  |		Jump	0x709								; case 0x10
06c4 7807       |x   |		Jump	0x6cc								; case 0x11
06c5 7806       |x   |		Jump	0x6cc								; case 0x12
06c6 7805       |x   |		Jump	0x6cc								; case 0x13
06c7 7804       |x   |		Jump	0x6cc								; case 0x14
06c8 7803       |x   |		Jump	0x6cc								; case 0x15
06c9 7802       |x   |		Jump	0x6cc								; case 0x16
06ca 7801       |x   |		Jump	0x6cc								; case 0x17
06cb 7800       |x   |		Jump	0x6cc								; case 0x18
06cc 4801       |H   |		Short_Literal	0x1
06cd e5ff       |    |		Load	0x2,-0x1
06ce e002       |    |		Load	0x0,0x2
06cf 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06d0 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "activity"
06d2 e007       |    |		Load	0x0,0x7
06d3 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
06d4 783e       |x>  |		Jump	0x713
06d5 4801       |H   |		Short_Literal	0x1
06d6 0092 0968  |   h|		Action	Push_String_Extended,0x968					; "used as the activity"
06d8 e5ff       |    |		Load	0x2,-0x1
06d9 e002       |    |		Load	0x0,0x2
06da 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06db 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "activity"
06dd e007       |    |		Load	0x0,0x7
06de 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
06df 7833       |x3  |		Jump	0x713
06e0 4801       |H   |		Short_Literal	0x1
06e1 e5ff       |    |		Load	0x2,-0x1
06e2 e002       |    |		Load	0x0,0x2
06e3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06e4 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "activity"
06e6 e007       |    |		Load	0x0,0x7
06e7 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
06e8 782a       |x*  |		Jump	0x713
06e9 4801       |H   |		Short_Literal	0x1
06ea e5ff       |    |		Load	0x2,-0x1
06eb e002       |    |		Load	0x0,0x2
06ec 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06ed e007       |    |		Load	0x0,0x7
06ee 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
06ef 7823       |x#  |		Jump	0x713
06f0 4801       |H   |		Short_Literal	0x1
06f1 e5ff       |    |		Load	0x2,-0x1
06f2 e002       |    |		Load	0x0,0x2
06f3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06f4 e00a       |    |		Load	0x0,0xa
06f5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06f6 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "activity"
06f8 e007       |    |		Load	0x0,0x7
06f9 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
06fa 7818       |x   |		Jump	0x713
06fb 4801       |H   |		Short_Literal	0x1
06fc e5ff       |    |		Load	0x2,-0x1
06fd e002       |    |		Load	0x0,0x2
06fe 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06ff e007       |    |		Load	0x0,0x7
0700 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0701 7811       |x   |		Jump	0x713
0702 4801       |H   |		Short_Literal	0x1
0703 e5ff       |    |		Load	0x2,-0x1
0704 e002       |    |		Load	0x0,0x2
0705 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0706 e007       |    |		Load	0x0,0x7
0707 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0708 780a       |x   |		Jump	0x713
0709 4801       |H   |		Short_Literal	0x1
070a 0092 0968  |   h|		Action	Push_String_Extended,0x968					; "used as the activity"
070c e5ff       |    |		Load	0x2,-0x1
070d e002       |    |		Load	0x0,0x2
070e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
070f 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "activity"
0711 e007       |    |		Load	0x0,0x7
0712 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0713 8404       |    |		Call	0x2,0x4
0714 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0715			TRAP_0680:
0715 e006       |    |		Load	0x0,0x6
0716 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0717 010f       |    |		Execute	Exception,Equal
0718 6802       |h   |		Jump_Zero	0x71b
0719 00d8       |    |		Load_Top	At_Offset_0
071a 0101       |    |		Execute	Exception,Reraise
071b 4801       |H   |		Short_Literal	0x1
071c e007       |    |		Load	0x0,0x7
071d 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
071e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
071f 0000       |    |		.XXX[0x1]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723       | #  |		.CONST	0x0723								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0001       |    |		.CONST	0x0001								; Number of locals
0723			BODY_0720:
0723			INIT_0720:
0723 4607       |F   |		Jump_Case	0x8
0724 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0725 7806       |x   |		Jump	0x72c								; case 0x1
0726 7809       |x   |		Jump	0x730								; case 0x2
0727 780d       |x   |		Jump	0x735								; case 0x3
0728 7810       |x   |		Jump	0x739								; case 0x4
0729 7811       |x   |		Jump	0x73b								; case 0x5
072a 7812       |x   |		Jump	0x73d								; case 0x6
072b 7815       |x   |		Jump	0x741								; case 0x7
072c 00da       |    |		Load_Top	At_Offset_2
072d 0091 094d  |   M|		Action	Push_String_Extended_Indexed,0x94d				; "UNKNOWN"
072f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0730 00db       |    |		Load_Top	At_Offset_3
0731 00db       |    |		Load_Top	At_Offset_3
0732 00e0       |    |		Load_Encached	Standard_Cache
0733 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0734 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0735 00da       |    |		Load_Top	At_Offset_2
0736 00e0       |    |		Load_Encached	Standard_Cache
0737 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0738 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0739 00db       |    |		Load_Top	At_Offset_3
073a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
073b 00db       |    |		Load_Top	At_Offset_3
073c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
073d e27f       |    |		Load	0x1,0x7f
073e 00dc       |    |		Load_Top	At_Offset_4
073f 0267       | g  |		Execute	Discrete,Predecessor
0740 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0741 e27f       |    |		Load	0x1,0x7f
0742 00dc       |    |		Load_Top	At_Offset_4
0743 0268       | h  |		Execute	Discrete,Successor
0744 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0745 0000 0000  |    |		.XXX[0x3]
0747 0000       |    |
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 0752       | R  |		.CONST	0x0752								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0003       |    |		.CONST	0x0003								; Number of locals
074b			INIT_0748:
074b e014       |    |		Load	0x0,0x14
074c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
074d 02c7       |    |		Declare_Variable	Any
074e 00d8       |    |		Load_Top	At_Offset_0
074f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0750 029f 0893  |    |		Declare_Subprogram	INIT_0890,For_Call
0752			BODY_0748:
0752 00d9       |    |		Load_Top	At_Offset_1
0753 00ea       |    |		Load_Encached	Null_String_Cache
0754 00ea       |    |		Load_Encached	Null_String_Cache
0755 4801       |H   |		Short_Literal	0x1
0756 e014       |    |		Load	0x0,0x14
0757 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0758 c402       |    |		Store	0x2,0x2
0759 8403       |    |		Call	0x2,0x3
075a 0831       | 1  |		Execute_Immediate	Raise,0x31
075b 0000 0000  |    |		.BLANK	0000[0x5]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0788       |    |		.CONST	0x0788								; Address of begin
0761 07e7       |    |		.CONST	0x07e7								; Address of exception handler
0762 0006       |    |		.CONST	0x0006								; Number of locals
0763			INIT_0760:
0763 4801       |H   |		Short_Literal	0x1
0764 4803       |H   |		Short_Literal	0x3
0765 00e2       |    |		Load_Encached	Integer_Cache
0766 02a0       |    |		Declare_Subprogram	Null_Subprogram
0767 4801       |H   |		Short_Literal	0x1
0768 035d       | ]  |		Declare_Type	Array,Defined
0769 00d8       |    |		Load_Top	At_Offset_0
076a 0337       | 7  |		Declare_Variable	Array
076b 00d8       |    |		Load_Top	At_Offset_0
076c 0335       | 5  |		Declare_Variable	Array,Duplicate
076d 00cd       |    |		Action	Spare6_Action
076e 4800       |H   |		Short_Literal	0x0
076f 4801       |H   |		Short_Literal	0x1
0770 00da       |    |		Load_Top	At_Offset_2
0771 01d6       |    |		Execute	Vector,Field_Write
0772 4800       |H   |		Short_Literal	0x0
0773 4802       |H   |		Short_Literal	0x2
0774 00da       |    |		Load_Top	At_Offset_2
0775 01d6       |    |		Execute	Vector,Field_Write
0776 4800       |H   |		Short_Literal	0x0
0777 4803       |H   |		Short_Literal	0x3
0778 00da       |    |		Load_Top	At_Offset_2
0779 01d6       |    |		Execute	Vector,Field_Write
077a 00d9       |    |		Load_Top	At_Offset_1
077b 01d4       |    |		Execute	Vector,Structure_Write
077c e014       |    |		Load	0x0,0x14
077d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
077e 02c7       |    |		Declare_Variable	Any
077f 00d8       |    |		Load_Top	At_Offset_0
0780 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0781 4801       |H   |		Short_Literal	0x1
0782 4801       |H   |		Short_Literal	0x1
0783 00e9       |    |		Load_Encached	String_Cache
0784 035b       | [  |		Declare_Type	Array,Constrained
0785 0337       | 7  |		Declare_Variable	Array
0786 029f 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Call
0788			BODY_0760:
0788 4800       |H   |		Short_Literal	0x0
0789 a5ff       |    |		Store_Unchecked	0x2,-0x1
078a 8406       |    |		Call	0x2,0x6
078b 00cf       |    |		Action	Mark_Auxiliary
078c 00e8       |    |		Load_Encached	Character_Cache
078d e404       |    |		Load	0x2,0x4
078e e014       |    |		Load	0x0,0x14
078f 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
0790 4801       |H   |		Short_Literal	0x1
0791 e405       |    |		Load	0x2,0x5
0792 01d6       |    |		Execute	Vector,Field_Write
0793 4801       |H   |		Short_Literal	0x1
0794 00db       |    |		Load_Top	At_Offset_3
0795 01d7       |    |		Execute	Vector,Field_Read
0796 0f5f       | _  |		Execute_Immediate	Equal,0x5f
0797 7002       |p   |		Jump_Nonzero	0x79a
0798 00c9       |    |		Action	Pop_Auxiliary_Loop
0799 7ff2       |    |		Jump	0x78c
079a 00c9       |    |		Action	Pop_Auxiliary_Loop
079b e402       |    |		Load	0x2,0x2
079c 01d9       |    |		Execute	Vector,Reverse_Bounds
079d 00cf       |    |		Action	Mark_Auxiliary
079e 00e8       |    |		Load_Encached	Character_Cache
079f e404       |    |		Load	0x2,0x4
07a0 e014       |    |		Load	0x0,0x14
07a1 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
07a2 4801       |H   |		Short_Literal	0x1
07a3 e405       |    |		Load	0x2,0x5
07a4 01d6       |    |		Execute	Vector,Field_Write
07a5 4801       |H   |		Short_Literal	0x1
07a6 e405       |    |		Load	0x2,0x5
07a7 01d7       |    |		Execute	Vector,Field_Read
07a8 0f5f       | _  |		Execute_Immediate	Equal,0x5f
07a9 e404       |    |		Load	0x2,0x4
07aa e014       |    |		Load	0x0,0x14
07ab 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
07ac 0278       | x  |		Execute	Discrete,Or
07ad 7016       |p   |		Jump_Nonzero	0x7c4
07ae 4801       |H   |		Short_Literal	0x1
07af e405       |    |		Load	0x2,0x5
07b0 01d7       |    |		Execute	Vector,Field_Read
07b1 4830       |H0  |		Short_Literal	0x30
07b2 4839       |H9  |		Short_Literal	0x39
07b3 0262       | b  |		Execute	Discrete,In_Range
07b4 680d       |h   |		Jump_Zero	0x7c2
07b5 00d9       |    |		Load_Top	At_Offset_1
07b6 e403       |    |		Load	0x2,0x3
07b7 01d7       |    |		Execute	Vector,Field_Read
07b8 480a       |H   |		Short_Literal	0xa
07b9 0271       | q  |		Execute	Discrete,Times
07ba e405       |    |		Load	0x2,0x5
07bb 00e2       |    |		Load_Encached	Integer_Cache
07bc 00e0       |    |		Load_Encached	Standard_Cache
07bd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
07be 0273       | s  |		Execute	Discrete,Plus
07bf 00da       |    |		Load_Top	At_Offset_2
07c0 e403       |    |		Load	0x2,0x3
07c1 01d6       |    |		Execute	Vector,Field_Write
07c2 00c9       |    |		Action	Pop_Auxiliary_Loop
07c3 7fda       |    |		Jump	0x79e
07c4 00ce       |    |		Action	Pop_Auxiliary
07c5 e404       |    |		Load	0x2,0x4
07c6 e014       |    |		Load	0x0,0x14
07c7 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
07c8 6802       |h   |		Jump_Zero	0x7cb
07c9 00d2       |    |		Pop_Control	Pop_Count_2
07ca 7802       |x   |		Jump	0x7cd
07cb 00c8       |    |		Action	Pop_Auxiliary_Range
07cc 3fd0       |?   |		Loop_Increasing	0x79d
07cd 00ce       |    |		Action	Pop_Auxiliary
07ce 00da       |    |		Load_Top	At_Offset_2
07cf e014       |    |		Load	0x0,0x14
07d0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
07d1 c404       |    |		Store	0x2,0x4
07d2 4801       |H   |		Short_Literal	0x1
07d3 e403       |    |		Load	0x2,0x3
07d4 01d7       |    |		Execute	Vector,Field_Read
07d5 0c0c       |    |		Execute_Immediate	Greater_Equal,0xc
07d6 4802       |H   |		Short_Literal	0x2
07d7 e403       |    |		Load	0x2,0x3
07d8 01d7       |    |		Execute	Vector,Field_Read
07d9 0c05       |    |		Execute_Immediate	Greater_Equal,0x5
07da 0279       | y  |		Execute	Discrete,And
07db 4803       |H   |		Short_Literal	0x3
07dc e403       |    |		Load	0x2,0x3
07dd 01d7       |    |		Execute	Vector,Field_Read
07de 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
07df 0279       | y  |		Execute	Discrete,And
07e0 6803       |h   |		Jump_Zero	0x7e4
07e1 4802       |H   |		Short_Literal	0x2
07e2 a5ff       |    |		Store_Unchecked	0x2,-0x1
07e3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07e4 4801       |H   |		Short_Literal	0x1
07e5 a5ff       |    |		Store_Unchecked	0x2,-0x1
07e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07e7			TRAP_0760:
07e7 e006       |    |		Load	0x0,0x6
07e8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07e9 010f       |    |		Execute	Exception,Equal
07ea 6802       |h   |		Jump_Zero	0x7ed
07eb 00d8       |    |		Load_Top	At_Offset_0
07ec 0101       |    |		Execute	Exception,Reraise
07ed 00db       |    |		Load_Top	At_Offset_3
07ee e014       |    |		Load	0x0,0x14
07ef 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
07f0 c404       |    |		Store	0x2,0x4
07f1 0092 0969  |   i|		Action	Push_String_Extended,0x969					; "Trouble parsing !Machine.Release.Environment.Current"
07f3 e006       |    |		Load	0x0,0x6
07f4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07f6 0000 0000  |    |		.XXX[0x2]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0004       |    |		.CONST	0x0004								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb 4801       |H   |		Short_Literal	0x1
07fc e24a       | J  |		Load	0x1,0x4a
07fd 1c08       |    |		Execute_Immediate	Run_Utility,0x8
07fe 00d8       |    |		Load_Top	At_Offset_0
07ff 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0800 4900       |I   |		Short_Literal	0x100
0801 e5ff       |    |		Load	0x2,-0x1
0802 e002       |    |		Load	0x0,0x2
0803 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0804 00d9       |    |		Load_Top	At_Offset_1
0805 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0806 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0807 0000       |    |		.XXX[0x1]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b       |    |		.CONST	0x080b								; Address of begin
0809 0004       |    |		.CONST	0x0004								; Address of exception handler
080a 0001       |    |		.CONST	0x0001								; Number of locals
080b			BODY_0808:
080b			INIT_0808:
080b 4801       |H   |		Short_Literal	0x1
080c e24a       | J  |		Load	0x1,0x4a
080d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
080e 00d8       |    |		Load_Top	At_Offset_0
080f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0810 4900       |I   |		Short_Literal	0x100
0811 e5ff       |    |		Load	0x2,-0x1
0812 e002       |    |		Load	0x0,0x2
0813 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0814 e002       |    |		Load	0x0,0x2
0815 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0816 00d9       |    |		Load_Top	At_Offset_1
0817 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0818 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0819 0000 0000  |    |		.BLANK	0000[0x7]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 082b       | +  |		.CONST	0x082b								; Address of begin
0821 0004       |    |		.CONST	0x0004								; Address of exception handler
0822 0003       |    |		.CONST	0x0003								; Number of locals
0823			INIT_0820:
0823 e003       |    |		Load	0x0,0x3
0824 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0825 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0826 02c7       |    |		Declare_Variable	Any
0827 00d8       |    |		Load_Top	At_Offset_0
0828 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0829 029f 08bb  |    |		Declare_Subprogram	INIT_08b8,For_Call
082b			BODY_0820:
082b 00d9       |    |		Load_Top	At_Offset_1
082c 0120       |    |		Execute	Any,Is_Value
082d 6804       |h   |		Jump_Zero	0x832
082e e003       |    |		Load	0x0,0x3
082f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0830 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0831 7801       |x   |		Jump	0x833
0832 00d9       |    |		Load_Top	At_Offset_1
0833 e281       |    |		Load	0x1,0x81
0834 e003       |    |		Load	0x0,0x3
0835 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0836 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0837 c402       |    |		Store	0x2,0x2
0838 00d9       |    |		Load_Top	At_Offset_1
0839 e003       |    |		Load	0x0,0x3
083a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
083b 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
083c 6801       |h   |		Jump_Zero	0x83e
083d 8403       |    |		Call	0x2,0x3
083e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
083f 0000       |    |		.XXX[0x1]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0849       | I  |		.CONST	0x0849								; Address of begin
0841 0004       |    |		.CONST	0x0004								; Address of exception handler
0842 0002       |    |		.CONST	0x0002								; Number of locals
0843			INIT_0840:
0843 e403       |    |		Load	0x2,0x3
0844 e003       |    |		Load	0x0,0x3
0845 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0846 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0847 e00a       |    |		Load	0x0,0xa
0848 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0849			BODY_0840:
0849 e009       |    |		Load	0x0,0x9
084a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
084b 4803       |H   |		Short_Literal	0x3
084c 0092 096a  |   j|		Action	Push_String_Extended,0x96a					; "The new object context is "
084e 00db       |    |		Load_Top	At_Offset_3
084f 01cc       |    |		Execute	Vector,Catenate
0850 e00b       |    |		Load	0x0,0xb
0851 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0852 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0853 0000 0000  |    |		.BLANK	0000[0x5]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 0868       | h  |		.CONST	0x0868								; Address of begin
0859 0004       |    |		.CONST	0x0004								; Address of exception handler
085a 0003       |    |		.CONST	0x0003								; Number of locals
085b			INIT_0858:
085b e403       |    |		Load	0x2,0x3
085c e003       |    |		Load	0x0,0x3
085d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
085e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
085f e003       |    |		Load	0x0,0x3
0860 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0861 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0862 02c7       |    |		Declare_Variable	Any
0863 e403       |    |		Load	0x2,0x3
0864 e003       |    |		Load	0x0,0x3
0865 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0866 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0867 a603       |    |		Store_Unchecked	0x3,0x3
0868			BODY_0858:
0868 4801       |H   |		Short_Literal	0x1
0869 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "activity"
086b 00da       |    |		Load_Top	At_Offset_2
086c e003       |    |		Load	0x0,0x3
086d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
086e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
086f e00a       |    |		Load	0x0,0xa
0870 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0871 6811       |h   |		Jump_Zero	0x883
0872 0092 0958  |   X|		Action	Push_String_Extended,0x958					; "<PROFILE>"
0874 00da       |    |		Load_Top	At_Offset_2
0875 e013       |    |		Load	0x0,0x13
0876 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0877 e009       |    |		Load	0x0,0x9
0878 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0879 4803       |H   |		Short_Literal	0x3
087a 0092 096b  |   k|		Action	Push_String_Extended,0x96b					; "The new activity is "
087c e602       |    |		Load	0x3,0x2
087d e00a       |    |		Load	0x0,0xa
087e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
087f 01cc       |    |		Execute	Vector,Catenate
0880 e00b       |    |		Load	0x0,0xb
0881 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0882 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0883 4801       |H   |		Short_Literal	0x1
0884 00da       |    |		Load_Top	At_Offset_2
0885 0092 0967  |   g|		Action	Push_String_Extended,0x967					; "activity"
0887 e007       |    |		Load	0x0,0x7
0888 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0889 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
088a 0000 0000  |    |		.BLANK	0000[0x6]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0896       |    |		.CONST	0x0896								; Address of begin
0891 0004       |    |		.CONST	0x0004								; Address of exception handler
0892 0002       |    |		.CONST	0x0002								; Number of locals
0893			INIT_0890:
0893 e402       |    |		Load	0x2,0x2
0894 e014       |    |		Load	0x0,0x14
0895 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0896			BODY_0890:
0896 e402       |    |		Load	0x2,0x2
0897 e014       |    |		Load	0x0,0x14
0898 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0899 c402       |    |		Store	0x2,0x2
089a 00d8       |    |		Load_Top	At_Offset_0
089b 00cb       |    |		Action	Pop_Block_With_Result
089c 00ca       |    |		Action	Exit_Nullary_Function
089d 0000 0000  |    |		.XXX[0x3]
089f 0000       |    |
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3       |    |		.CONST	0x08a3								; Address of begin
08a1 08ac       |    |		.CONST	0x08ac								; Address of exception handler
08a2 0001       |    |		.CONST	0x0001								; Number of locals
08a3			BODY_08a0:
08a3			INIT_08a0:
08a3 e404       |    |		Load	0x2,0x4
08a4 00ea       |    |		Load_Encached	Null_String_Cache
08a5 0092 096c  |   l|		Action	Push_String_Extended,0x96c					; "!machine.release.environment.current"
08a7 4800       |H   |		Short_Literal	0x0
08a8 e014       |    |		Load	0x0,0x14
08a9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
08aa c404       |    |		Store	0x2,0x4
08ab 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08ac			TRAP_08a0:
08ac 0007       |    |		Action	Break_Optional
08ad 0092 096d  |   m|		Action	Push_String_Extended,0x96d					; "Cant open !Machine.Release.Environment.Current"
08af e006       |    |		Load	0x0,0x6
08b0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
08b1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08b2 0000 0000  |    |		.BLANK	0000[0x6]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bf       |    |		.CONST	0x08bf								; Address of begin
08b9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ba 0002       |    |		.CONST	0x0002								; Number of locals
08bb			INIT_08b8:
08bb e281       |    |		Load	0x1,0x81
08bc e003       |    |		Load	0x0,0x3
08bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08be 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
08bf			BODY_08b8:
08bf e402       |    |		Load	0x2,0x2
08c0 e003       |    |		Load	0x0,0x3
08c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08c2 1845       | E  |		Execute	Package,Field_Execute,Field_Number 0x45
08c3 4618       |F   |		Jump_Case	0x19
08c4 7818       |x   |		Jump	0x8dd								; case 0x0
08c5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1
08c6 781d       |x   |		Jump	0x8e4								; case 0x2
08c7 7815       |x   |		Jump	0x8dd								; case 0x3
08c8 7814       |x   |		Jump	0x8dd								; case 0x4
08c9 7813       |x   |		Jump	0x8dd								; case 0x5
08ca 7812       |x   |		Jump	0x8dd								; case 0x6
08cb 7811       |x   |		Jump	0x8dd								; case 0x7
08cc 7810       |x   |		Jump	0x8dd								; case 0x8
08cd 782f       |x/  |		Jump	0x8fd								; case 0x9
08ce 780e       |x   |		Jump	0x8dd								; case 0xa
08cf 780d       |x   |		Jump	0x8dd								; case 0xb
08d0 780c       |x   |		Jump	0x8dd								; case 0xc
08d1 780b       |x   |		Jump	0x8dd								; case 0xd
08d2 780a       |x   |		Jump	0x8dd								; case 0xe
08d3 7809       |x   |		Jump	0x8dd								; case 0xf
08d4 7818       |x   |		Jump	0x8ed								; case 0x10
08d5 7820       |x   |		Jump	0x8f6								; case 0x11
08d6 7806       |x   |		Jump	0x8dd								; case 0x12
08d7 7805       |x   |		Jump	0x8dd								; case 0x13
08d8 7804       |x   |		Jump	0x8dd								; case 0x14
08d9 7803       |x   |		Jump	0x8dd								; case 0x15
08da 7802       |x   |		Jump	0x8dd								; case 0x16
08db 7801       |x   |		Jump	0x8dd								; case 0x17
08dc 7800       |x   |		Jump	0x8dd								; case 0x18
08dd 4801       |H   |		Short_Literal	0x1
08de 00d9       |    |		Load_Top	At_Offset_1
08df 0092 096e  |   n|		Action	Push_String_Extended,0x96e					; "diagram"
08e1 e007       |    |		Load	0x0,0x7
08e2 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
08e3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08e4 4801       |H   |		Short_Literal	0x1
08e5 0092 0963  |   c|		Action	Push_String_Extended,0x963					; "used as the context"
08e7 00da       |    |		Load_Top	At_Offset_2
08e8 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
08ea e007       |    |		Load	0x0,0x7
08eb 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
08ec 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08ed 4801       |H   |		Short_Literal	0x1
08ee 0092 0963  |   c|		Action	Push_String_Extended,0x963					; "used as the context"
08f0 00da       |    |		Load_Top	At_Offset_2
08f1 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
08f3 e007       |    |		Load	0x0,0x7
08f4 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
08f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08f6 4801       |H   |		Short_Literal	0x1
08f7 00d9       |    |		Load_Top	At_Offset_1
08f8 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
08fa e007       |    |		Load	0x0,0x7
08fb 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
08fc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08fd 4801       |H   |		Short_Literal	0x1
08fe 00d9       |    |		Load_Top	At_Offset_1
08ff 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "library"
0901 e007       |    |		Load	0x0,0x7
0902 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0903 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0904 0000 0000  |    |		.BLANK	0000[0x4]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b       |    |		.CONST	0x090b								; Address of begin
0909 0004       |    |		.CONST	0x0004								; Address of exception handler
090a 0001       |    |		.CONST	0x0001								; Number of locals
090b			BODY_0908:
090b			INIT_0908:
090b 4608       |F   |		Jump_Case	0x9
090c 7808       |x   |		Jump	0x915								; case 0x0
090d 781c       |x   |		Jump	0x92a								; case 0x1
090e 783b       |x;  |		Jump	0x94a								; case 0x2
090f 783a       |x:  |		Jump	0x94a								; case 0x3
0910 7839       |x9  |		Jump	0x94a								; case 0x4
0911 7838       |x8  |		Jump	0x94a								; case 0x5
0912 781f       |x   |		Jump	0x932								; case 0x6
0913 7826       |x&  |		Jump	0x93a								; case 0x7
0914 782e       |x.  |		Jump	0x943								; case 0x8
0915 00da       |    |		Load_Top	At_Offset_2
0916 016c       | l  |		Execute	Variant_Record,Is_Constrained
0917 7009       |p   |		Jump_Nonzero	0x921
0918 00cf       |    |		Action	Mark_Auxiliary
0919 4800       |H   |		Short_Literal	0x0
091a e5ff       |    |		Load	0x2,-0x1
091b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
091c 00d8       |    |		Load_Top	At_Offset_0
091d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
091e c5ff       |    |		Store	0x2,-0x1
091f 00ce       |    |		Action	Pop_Auxiliary
0920 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0921 00da       |    |		Load_Top	At_Offset_2
0922 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0923 6805       |h   |		Jump_Zero	0x929
0924 00da       |    |		Load_Top	At_Offset_2
0925 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
0926 00da       |    |		Load_Top	At_Offset_2
0927 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0928 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0929 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
092a 00da       |    |		Load_Top	At_Offset_2
092b 016b       | k  |		Execute	Variant_Record,Read_Variant
092c 00d8       |    |		Load_Top	At_Offset_0
092d 0f01       |    |		Execute_Immediate	Equal,0x1
092e 6802       |h   |		Jump_Zero	0x931
092f 00db       |    |		Load_Top	At_Offset_3
0930 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
0931 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0932 00db       |    |		Load_Top	At_Offset_3
0933 0f01       |    |		Execute_Immediate	Equal,0x1
0934 7001       |p   |		Jump_Nonzero	0x936
0935 7802       |x   |		Jump	0x938
0936 4801       |H   |		Short_Literal	0x1
0937 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0938 48ff       |H   |		Short_Literal	0xff
0939 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
093a 00db       |    |		Load_Top	At_Offset_3
093b e5fe       |    |		Load	0x2,-0x2
093c 6802       |h   |		Jump_Zero	0x93f
093d 4801       |H   |		Short_Literal	0x1
093e 7801       |x   |		Jump	0x940
093f 48ff       |H   |		Short_Literal	0xff
0940 e5ff       |    |		Load	0x2,-0x1
0941 031b       |    |		Declare_Type	Variant_Record,Constrained
0942 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0943 00db       |    |		Load_Top	At_Offset_3
0944 e5fe       |    |		Load	0x2,-0x2
0945 e5ff       |    |		Load	0x2,-0x1
0946 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0947 e5ff       |    |		Load	0x2,-0x1
0948 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0949 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
094a 0869       | i  |		Execute_Immediate	Raise,0x69
094b ; --------------------------------------------------------------------------------------
094b ; STRING TABLE
094b ; --------------------------------------------------------------------------------------
094b 004a       | J  |		.STRTAB	0x004a->0x0970							; "ES_OK"
094c 004d       | M  |		.STRTAB	0x004d->0x0972							; "ES_ERROR"
094d 0053       | S  |		.STRTAB	0x0053->0x0976							; "UNKNOWN"
094e 0058       | X  |		.STRTAB	0x0058->0x097a							; "D2"
094f 0058       | X  |		.STRTAB	0x0058->0x097b							; "D3"
0950 0058       | X  |		.STRTAB	0x0058->0x097c							; "object"
0951 005c       | \  |		.STRTAB	0x005c->0x097f							; "deleted"
0952 0061       | a  |		.STRTAB	0x0061->0x0982							; "Getting diagram name "
0953 0074       | t  |		.STRTAB	0x0074->0x098d							; "Storing diagram name "
0954 0087       |    |		.STRTAB	0x0087->0x0997							; "Storing print file name "
0955 009d       |    |		.STRTAB	0x009d->0x09a3							; "_mil"
0956 009f       |    |		.STRTAB	0x009f->0x09a5							; "_ps"
0957 00a0       |    |		.STRTAB	0x00a0->0x09a7							; "Common.Definition of object "
0958 00ba       |    |		.STRTAB	0x00ba->0x09b5							; "<PROFILE>"
0959 00c1       |    |		.STRTAB	0x00c1->0x09b9							; "$"
095a 00c0       |    |		.STRTAB	0x00c0->0x09ba							; "Common.Definition (\x22"
095b 00d2       |    |		.STRTAB	0x00d2->0x09c4							; "\x22)"
095c 00d2       |    |		.STRTAB	0x00d2->0x09c5							; "Deleting diagram name "
095d 00e6       |    |		.STRTAB	0x00e6->0x09d0							; "."
095e 00e5       |    |		.STRTAB	0x00e5->0x09d0							; "Generating diagram from indirect file "
095f 0109       |    |		.STRTAB	0x0109->0x09e3							; "Generating diagram for "
0960 011e       |    |		.STRTAB	0x011e->0x09ef							; "The current diagram context is "
0961 013b       | ;  |		.STRTAB	0x013b->0x09fe							; "The current object context is "
0962 0157       | W  |		.STRTAB	0x0157->0x0a0d							; "library"
0963 015c       | \  |		.STRTAB	0x015c->0x0a11							; "used as the context"
0964 016d       | m  |		.STRTAB	0x016d->0x0a1a							; "Executing "
0965 0175       | u  |		.STRTAB	0x0175->0x0a1f							; "<RAISE_EXCEPTION>"
0966 0184       |    |		.STRTAB	0x0184->0x0a28							; "The current activity is "
0967 019a       |    |		.STRTAB	0x019a->0x0a34							; "activity"
0968 01a0       |    |		.STRTAB	0x01a0->0x0a38							; "used as the activity"
0969 01b2       |    |		.STRTAB	0x01b2->0x0a42							; "Trouble parsing !Machine.Release.Environment.Current"
096a 01e4       |    |		.STRTAB	0x01e4->0x0a5c							; "The new object context is "
096b 01fc       |    |		.STRTAB	0x01fc->0x0a69							; "The new activity is "
096c 020e       |    |		.STRTAB	0x020e->0x0a73							; "!machine.release.environment.current"
096d 0230       | 0  |		.STRTAB	0x0230->0x0a85							; "Cant open !Machine.Release.Environment.Current"
096e 025c       | \  |		.STRTAB	0x025c->0x0a9c							; "diagram"
096f 0261       | a  |		.STREND 0x0261->0x0a9f
0970 4553 5f4f  |ES_O|		.STRTAB_STRINGS
0aa0 ; --------------------------------------------------------------------------------------
0aa0 ; Debug Table
0aa0 ; --------------------------------------------------------------------------------------
0aa0 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0f71,0x0000,0x0001,0x0000
0aa6 4801 301f  |H 0 |		.XXX[0x15a]
0aa8 f801 381d  |  8 |
0aaa 5c4d b004  |\M  |
0aac 2401 4bb0  |$ K |
0aae 0a5a 3875  | Z8u|
0ab0 5409 b000  |T   |
0ab2 0c3c 22fa  | <" |
0ab4 8c0f 1808  |    |
0ab6 ac16 1e64  |   d|
0ab8 7c26 c402  ||&  |
0aba c290 0c3f  |   ?|
0abc 4b4a 3c05  |KJ< |
0abe a00c a5a2  |    |
0ac0 a05a 78e7  | Zx |
0ac2 7c0f 3818  || 8 |
0ac4 5228 d821  |R( !|
0ac6 e00f f803  |    |
0ac8 a043 0402  | C  |
0aca 9403 c422  |   "|
0acc 8edb c64b  |   K|
0ace e726 5c16  | &\ |
0ad0 9007 e407  |    |
0ad2 f800 88b8  |    |
0ad4 0c3d 3628  | =6(|
0ad6 2c02 5e2c  |, ^,|
0ad8 6c00 26f6  |l & |
0ada 086e 22be  | n" |
0adc bc03 c420  |    |
0ade 3ef4 5400  |> T |
0ae0 6c1f f800  |l   |
0ae2 741f 8c03  |t   |
0ae4 1811 bb9a  |    |
0ae6 900c a2ac  |    |
0ae8 6c9c 0c3c  |l  <|
0aea ca28 e428  | ( (|
0aec 8233 4803  | 3H |
0aee b34d 7fb1  | M  |
0af0 7c2f f802  ||/  |
0af2 2c47 cc01  |,G  |
0af4 e40a a17a  |   z|
0af6 52e6 1000  |R   |
0af8 0c3e 8403  | >  |
0afa c423 13c0  | #  |
0afc 4013 dbba  |@   |
0afe 0c26 2fc3  | &/ |
0b00 a048 bd3c  | H <|
0b02 f408 6c00  |  l |
0b04 2e22 2000  |."  |
0b06 0c3e b403  | >  |
0b08 c421 baa9  | !  |
0b0a ac06 dbac  |    |
0b0c d821 37b6  | !7 |
0b0e 1087 da64  |   d|
0b10 182f 431b  | /C |
0b12 1f41 380a  | A8 |
0b14 1f30 6c1f  | 0l |
0b16 ec00 5455  |  TU|
0b18 58ec cb68  |X  h|
0b1a 0c3f 4b4a  | ?KJ|
0b1c 680b 1f41  |h  A|
0b1e cc1b f802  |    |
0b20 342c a801  |4,  |
0b22 d68f bffa  |    |
0b24 38db d001  |8   |
0b26 0c91 e00f  |    |
0b28 f803 6c0f  |  l |
0b2a 4ba0 d822  |K  "|
0b2c 8ed9 38ab  |  8 |
0b2e e726 9403  | &  |
0b30 c420 92c6  |    |
0b32 8a1f e407  |    |
0b34 f803 6421  |  d!|
0b36 7d94 1c04  |}   |
0b38 5400 0c3e  |T  >|
0b3a dc03 c423  |   #|
0b3c d000 1c04  |    |
0b3e 2000 0c2f  |   /|
0b40 da64 182d  | d -|
0b42 a001 5e2b  |  ^+|
0b44 fcbe 6004  |  ` |
0b46 5c00 7807  |\ x |
0b48 2788 d820  |'   |
0b4a ac16 1e67  |   g|
0b4c 9c05 d802  |    |
0b4e c631 6f2d  | 1o-|
0b50 240a e40d  |$   |
0b52 7a2a 2029  |z* )|
0b54 e84f f802  | O  |
0b56 0429 b44c  | ) L|
0b58 f804 9409  |    |
0b5a 240b 9684  |$   |
0b5c 5c3c 92c5  |\<  |
0b5e 211f e407  |!   |
0b60 f803 6422  |  d"|
0b62 5000 5046  |P PF|
0b64 3aa8 26f7  |: & |
0b66 7a7c 1c04  |z|  |
0b68 2c02 d406  |,   |
0b6a 4058 0134  |@X 4|
0b6c 5d20 74cd  |] t |
0b6e 8c9c 2402  |  $ |
0b70 4a23 040e  |J#  |
0b72 c14b 7fad  | K  |
0b74 cc08 9c02  |    |
0b76 6001 7c3d  |` |=|
0b78 d643 4858  | CHX|
0b7a 74cf 417a  |t Az|
0b7c 4211 936c  |B  l|
0b7e 36c8 2547  |6 %G|
0b80 b801 d006  |    |
0b82 c84e 4213  | NB |
0b84 7803 ca46  |x  F|
0b86 4e13 a401  |N   |
0b88 5646 1002  |VF  |
0b8a f207 dcfd  |    |
0b8c 4619 400a  |F @ |
0b8e f006 4a23  |  J#|
0b90 040e bc01  |    |
0b92 06be d69f  |    |
0b94 a424 1244  | $ D|
0b96 f806 55fc  |  U |
0b98 2a46 b810  |*F  |
0b9a b41b 2632  |  &2|
0b9c 844e ec02  | N  |
0b9e c633 f021  | 3 !|
0ba0 b2a6 040b  |    |
0ba2 0806 8400  |    |
0ba4 742f 3620  |t/6 |
0ba6 2400 79fa  |$ y |
0ba8 0a9d e82a  |   *|
0baa 0c26 2fc3  | &/ |
0bac a04a e4cc  | J  |
0bae bf88 f408  |    |
0bb0 4400 2e21  |D .!|
0bb2 a000 5e31  |  ^1|
0bb4 ac05 6c7a  |  lz|
0bb6 e001 e829  |   )|
0bb8 1795 8804  |    |
0bba 22f9 301f  |" 0 |
0bbc f800 0451  |   Q|
0bbe f939 b2a4  | 9  |
0bc0 0a5a 3876  | Z8v|
0bc2 a059 e000  | Y  |
0bc4 0c3e 8c0f  | >  |
0bc6 1808 ac16  |    |
0bc8 1e67 9c07  | g  |
0bca 7c02 c291  ||   |
0bcc 37ae 5176  |7 Qv|
0bce 7a4d e84f  |zM O|
0bd0 f802 042b  |   +|
0bd2 0b84 0005  |    |
0bd4 37ae 5176  |7 Qv|
0bd6 7a4d e84f  |zM O|
0bd8 f802 0428  |   (|
0bda 8800 b340  |   @|
0bdc 1007 0019  |    |
0bde bc8c 00d0  |    |
0be0 419c 0030  |A  0|
0be2 6d70 1d00  |mp  |
0be4 1001 55c2  |  U |
0be6 06e2 1041  |   A|
0be8 2af4 00c4  |*   |
0bea 8016 0013  |    |
0bec fd41 5780  | AW |
0bee 2331 1060  |#1 `|
0bf0 ca98 29b9  |  ) |
0bf2 011c 0b40  |   @|
0bf4 11d8 1939  |   9|
0bf6 0a53 22bb  | S" |
0bf8 9409 dd5b  |   [|
0bfa 0bc2 819c  |    |
0bfc 8432 7524  | 2u$|
0bfe 6c1e f1a8  |l   |