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

⟦908b3672b⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0790       |    |		.CONST	0x0790								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0109       |    |		.CONST	0x0109								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0069       | i  |		.CONST	0x0069								; Number of locals
000b			INIT_0008:
000b 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
000d 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 029d 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call
0012 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call
0014 029b 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Unelaborated
0016 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call
001a 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call
001c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
001d 00c6       |    |		Action	Check_Subprogram_Elaborated
001e e003       |    |		Load	0x0,0x3
001f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0020 e003       |    |		Load	0x0,0x3
0021 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0022 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0023 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0024 0093 0000  |    |		push_full_address	0x0
0026 612d       |a-  |		Indirect_Literal	Discrete,0x154,{0x80000000, 0x000b0000}
0027 0273       | s  |		Execute	Discrete,Plus
0028 e004       |    |		Load	0x0,0x4
0029 0273       | s  |		Execute	Discrete,Plus
002a e005       |    |		Load	0x0,0x5
002b 0273       | s  |		Execute	Discrete,Plus
002c 4800       |H   |		Short_Literal	0x0
002d 0007       |    |		Action	Break_Optional
002e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002f 00c6       |    |		Action	Check_Subprogram_Elaborated
0030 00ec       |    |		Load_Encached	Diana_Tree_Cache
0031 00ec       |    |		Load_Encached	Diana_Tree_Cache
0032 a006       |    |		Store_Unchecked	0x0,0x6
0033 a007       |    |		Store_Unchecked	0x0,0x7
0034 0093 0000  |    |		push_full_address	0x0
0036 6119       |a   |		Indirect_Literal	Discrete,0x150,{0x80000000, 0x000a0000}
0037 0273       | s  |		Execute	Discrete,Plus
0038 e004       |    |		Load	0x0,0x4
0039 0273       | s  |		Execute	Discrete,Plus
003a e008       |    |		Load	0x0,0x8
003b 0273       | s  |		Execute	Discrete,Plus
003c 4800       |H   |		Short_Literal	0x0
003d 0007       |    |		Action	Break_Optional
003e 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call
0040 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0041 00c6       |    |		Action	Check_Subprogram_Elaborated
0042 00ec       |    |		Load_Encached	Diana_Tree_Cache
0043 e009       |    |		Load	0x0,0x9
0044 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0045 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0046 a007       |    |		Store_Unchecked	0x0,0x7
0047 0093 0000  |    |		push_full_address	0x0
0049 6102       |a   |		Indirect_Literal	Discrete,0x14c,{0x80000000, 0x00090000}
004a 0273       | s  |		Execute	Discrete,Plus
004b e004       |    |		Load	0x0,0x4
004c 0273       | s  |		Execute	Discrete,Plus
004d e00a       |    |		Load	0x0,0xa
004e 0273       | s  |		Execute	Discrete,Plus
004f 4800       |H   |		Short_Literal	0x0
0050 0007       |    |		Action	Break_Optional
0051 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call
0053 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0054 00c6       |    |		Action	Check_Subprogram_Elaborated
0055 00ec       |    |		Load_Encached	Diana_Tree_Cache
0056 e00b       |    |		Load	0x0,0xb
0057 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0058 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0059 a007       |    |		Store_Unchecked	0x0,0x7
005a 0093 0000  |    |		push_full_address	0x0
005c 60eb       |`   |		Indirect_Literal	Discrete,0x148,{0x80000000, 0x00080000}
005d 0273       | s  |		Execute	Discrete,Plus
005e e004       |    |		Load	0x0,0x4
005f 0273       | s  |		Execute	Discrete,Plus
0060 e00c       |    |		Load	0x0,0xc
0061 0273       | s  |		Execute	Discrete,Plus
0062 4800       |H   |		Short_Literal	0x0
0063 0007       |    |		Action	Break_Optional
0064 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call
0066 029d 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call
0068 029b 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Unelaborated
006a 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 029d 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call
006e 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
006f 00c6       |    |		Action	Check_Subprogram_Elaborated
0070 00ec       |    |		Load_Encached	Diana_Tree_Cache
0071 e003       |    |		Load	0x0,0x3
0072 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0073 1937       | 7  |		Execute	Package,Field_Reference,Field_Number 0x37
0074 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0075 0093 0000  |    |		push_full_address	0x0
0077 60cc       |`   |		Indirect_Literal	Discrete,0x144,{0x80000000, 0x00060000}
0078 0273       | s  |		Execute	Discrete,Plus
0079 e004       |    |		Load	0x0,0x4
007a 0273       | s  |		Execute	Discrete,Plus
007b e00d       |    |		Load	0x0,0xd
007c 0273       | s  |		Execute	Discrete,Plus
007d 4800       |H   |		Short_Literal	0x0
007e 0007       |    |		Action	Break_Optional
007f 029d 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call
0081 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
0083 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0084 00c6       |    |		Action	Check_Subprogram_Elaborated
0085 e009       |    |		Load	0x0,0x9
0086 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0087 a00e       |    |		Store_Unchecked	0x0,0xe
0088 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0089 0093 0000  |    |		push_full_address	0x0
008b 60b4       |`   |		Indirect_Literal	Discrete,0x140,{0x80000000, 0x00050000}
008c 0273       | s  |		Execute	Discrete,Plus
008d e004       |    |		Load	0x0,0x4
008e 0273       | s  |		Execute	Discrete,Plus
008f e00f       |    |		Load	0x0,0xf
0090 0273       | s  |		Execute	Discrete,Plus
0091 4800       |H   |		Short_Literal	0x0
0092 0007       |    |		Action	Break_Optional
0093 029d 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call
0095 029d 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call
0097 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0098 00c6       |    |		Action	Check_Subprogram_Elaborated
0099 e00b       |    |		Load	0x0,0xb
009a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
009b a010       |    |		Store_Unchecked	0x0,0x10
009c 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
009d 0093 0000  |    |		push_full_address	0x0
009f 609c       |`   |		Indirect_Literal	Discrete,0x13c,{0x80000000, 0x00040000}
00a0 0273       | s  |		Execute	Discrete,Plus
00a1 e004       |    |		Load	0x0,0x4
00a2 0273       | s  |		Execute	Discrete,Plus
00a3 e011       |    |		Load	0x0,0x11
00a4 0273       | s  |		Execute	Discrete,Plus
00a5 4800       |H   |		Short_Literal	0x0
00a6 0007       |    |		Action	Break_Optional
00a7 029d 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call
00a9 029d 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call
00ab 029d 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call
00ad 029b 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Unelaborated
00af 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
00b3 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
00b4 00c6       |    |		Action	Check_Subprogram_Elaborated
00b5 00ec       |    |		Load_Encached	Diana_Tree_Cache
00b6 e012       |    |		Load	0x0,0x12
00b7 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
00b8 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
00b9 0093 0000  |    |		push_full_address	0x0
00bb 607c       |`|  |		Indirect_Literal	Discrete,0x138,{0x80000000, 0x00030000}
00bc 0273       | s  |		Execute	Discrete,Plus
00bd e004       |    |		Load	0x0,0x4
00be 0273       | s  |		Execute	Discrete,Plus
00bf e013       |    |		Load	0x0,0x13
00c0 0273       | s  |		Execute	Discrete,Plus
00c1 4800       |H   |		Short_Literal	0x0
00c2 0007       |    |		Action	Break_Optional
00c3 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
00c5 029d 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call
00c7 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
00c8 00c6       |    |		Action	Check_Subprogram_Elaborated
00c9 e009       |    |		Load	0x0,0x9
00ca 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00cb 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
00cc 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
00cd 0093 0000  |    |		push_full_address	0x0
00cf 6064       |`d  |		Indirect_Literal	Discrete,0x134,{0x80000000, 0x00020000}
00d0 0273       | s  |		Execute	Discrete,Plus
00d1 e004       |    |		Load	0x0,0x4
00d2 0273       | s  |		Execute	Discrete,Plus
00d3 e014       |    |		Load	0x0,0x14
00d4 0273       | s  |		Execute	Discrete,Plus
00d5 4800       |H   |		Short_Literal	0x0
00d6 0007       |    |		Action	Break_Optional
00d7 029d 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call
00d9 029d 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call
00db 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
00dc 00c6       |    |		Action	Check_Subprogram_Elaborated
00dd e00b       |    |		Load	0x0,0xb
00de 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00df 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
00e0 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
00e1 0093 0000  |    |		push_full_address	0x0
00e3 604c       |`L  |		Indirect_Literal	Discrete,0x130,{0x80000000, 0x00010000}
00e4 0273       | s  |		Execute	Discrete,Plus
00e5 e004       |    |		Load	0x0,0x4
00e6 0273       | s  |		Execute	Discrete,Plus
00e7 e015       |    |		Load	0x0,0x15
00e8 0273       | s  |		Execute	Discrete,Plus
00e9 4800       |H   |		Short_Literal	0x0
00ea 0007       |    |		Action	Break_Optional
00eb 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
00ed 029d 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call
00ef 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call
00f1 029d 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call
00f3 029d 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call
00f5 029d 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call
00f7 029d 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call
00f9 029d 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call
00fb 029d 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call
00fd 029d 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call
00ff 029d 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call
0101 029d 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call
0103 029d 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call
0105 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0106 00c7       |    |		Action	Elaborate_Subprogram
0107 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0108 00c7       |    |		Action	Elaborate_Subprogram
0109			BODY_0008:
0109 00bc       |    |		Action	Signal_Activated
010a 00bb       |    |		Action	Signal_Completion
010b 0000 0000  |    |		.BLANK	0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e5fd       |    |		Load	0x2,-0x3
0114 e5fe       |    |		Load	0x2,-0x2
0115 8016       |    |		Call	0x0,0x16
0116 6806       |h   |		Jump_Zero	0x11d
0117 e5fd       |    |		Load	0x2,-0x3
0118 e5fe       |    |		Load	0x2,-0x2
0119 e5ff       |    |		Load	0x2,-0x1
011a 8269       | i  |		Call	0x1,0x69
011b 00d1       |    |		Pop_Control	Pop_Count_1
011c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
011d e5fd       |    |		Load	0x2,-0x3
011e e5fe       |    |		Load	0x2,-0x2
011f 8017       |    |		Call	0x0,0x17
0120 6806       |h   |		Jump_Zero	0x127
0121 e5fd       |    |		Load	0x2,-0x3
0122 e5fe       |    |		Load	0x2,-0x2
0123 e5ff       |    |		Load	0x2,-0x1
0124 8268       | h  |		Call	0x1,0x68
0125 00d1       |    |		Pop_Control	Pop_Count_1
0126 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0127 e5fd       |    |		Load	0x2,-0x3
0128 e5fe       |    |		Load	0x2,-0x2
0129 e5ff       |    |		Load	0x2,-0x1
012a 8267       | g  |		Call	0x1,0x67
012b 00d1       |    |		Pop_Control	Pop_Count_1
012c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0134 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0138 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
013c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0140 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0144 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0148 8000 0000  |    |		.LITERAL	{0x80000000, 0x00080000}
014c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00090000}
0150 8000 0000  |    |		.LITERAL	{0x80000000, 0x000a0000}
0154 8000 0000  |    |		.LITERAL	{0x80000000, 0x000b0000}
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0165       | e  |		.CONST	0x0165								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0003       |    |		.CONST	0x0003								; Number of locals
015b			INIT_0158:
015b e003       |    |		Load	0x0,0x3
015c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015d 02c7       |    |		Declare_Variable	Any
015e 00d8       |    |		Load_Top	At_Offset_0
015f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0160 e003       |    |		Load	0x0,0x3
0161 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0162 02c7       |    |		Declare_Variable	Any
0163 00d8       |    |		Load_Top	At_Offset_0
0164 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0165			BODY_0158:
0165 e5fe       |    |		Load	0x2,-0x2
0166 00da       |    |		Load_Top	At_Offset_2
0167 0120       |    |		Execute	Any,Is_Value
0168 6803       |h   |		Jump_Zero	0x16c
0169 e003       |    |		Load	0x0,0x3
016a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016b 7801       |x   |		Jump	0x16d
016c 00da       |    |		Load_Top	At_Offset_2
016d e5ff       |    |		Load	0x2,-0x1
016e 8018       |    |		Call	0x0,0x18
016f c402       |    |		Store	0x2,0x2
0170 00d1       |    |		Pop_Control	Pop_Count_1
0171 e5fe       |    |		Load	0x2,-0x2
0172 00d9       |    |		Load_Top	At_Offset_1
0173 0120       |    |		Execute	Any,Is_Value
0174 6803       |h   |		Jump_Zero	0x178
0175 e003       |    |		Load	0x0,0x3
0176 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0177 7801       |x   |		Jump	0x179
0178 00d9       |    |		Load_Top	At_Offset_1
0179 00db       |    |		Load_Top	At_Offset_3
017a 8019       |    |		Call	0x0,0x19
017b c403       |    |		Store	0x2,0x3
017c 00d1       |    |		Pop_Control	Pop_Count_1
017d e5fe       |    |		Load	0x2,-0x2
017e 00d9       |    |		Load_Top	At_Offset_1
017f 00db       |    |		Load_Top	At_Offset_3
0180 801a       |    |		Call	0x0,0x1a
0181 00d1       |    |		Pop_Control	Pop_Count_1
0182 00d9       |    |		Load_Top	At_Offset_1
0183 801b       |    |		Call	0x0,0x1b
0184 681a       |h   |		Jump_Zero	0x19f
0185 e5fe       |    |		Load	0x2,-0x2
0186 00d9       |    |		Load_Top	At_Offset_1
0187 8016       |    |		Call	0x0,0x16
0188 6806       |h   |		Jump_Zero	0x18f
0189 e5fe       |    |		Load	0x2,-0x2
018a 00d9       |    |		Load_Top	At_Offset_1
018b e5ff       |    |		Load	0x2,-0x1
018c 8269       | i  |		Call	0x1,0x69
018d 00d1       |    |		Pop_Control	Pop_Count_1
018e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018f e5fe       |    |		Load	0x2,-0x2
0190 00d9       |    |		Load_Top	At_Offset_1
0191 8017       |    |		Call	0x0,0x17
0192 6806       |h   |		Jump_Zero	0x199
0193 e5fe       |    |		Load	0x2,-0x2
0194 00d9       |    |		Load_Top	At_Offset_1
0195 e5ff       |    |		Load	0x2,-0x1
0196 8268       | h  |		Call	0x1,0x68
0197 00d1       |    |		Pop_Control	Pop_Count_1
0198 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0199 e5fe       |    |		Load	0x2,-0x2
019a 00d9       |    |		Load_Top	At_Offset_1
019b e5ff       |    |		Load	0x2,-0x1
019c 8267       | g  |		Call	0x1,0x67
019d 00d1       |    |		Pop_Control	Pop_Count_1
019e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019f e5fe       |    |		Load	0x2,-0x2
01a0 00d9       |    |		Load_Top	At_Offset_1
01a1 e5ff       |    |		Load	0x2,-0x1
01a2 8266       | f  |		Call	0x1,0x66
01a3 00d1       |    |		Pop_Control	Pop_Count_1
01a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 01b2       |    |		.CONST	0x01b2								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac e009       |    |		Load	0x0,0x9
01ad 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
01ae 0217       |    |		Execute	Heap_Access,All_Reference
01af 0335       | 5  |		Declare_Variable	Array,Duplicate
01b0 00cd       |    |		Action	Spare6_Action
01b1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b2			TRAP_01a8:
01b2 010e       |    |		Execute	Exception,Is_Constraint_Error
01b3 6805       |h   |		Jump_Zero	0x1b9
01b4 e012       |    |		Load	0x0,0x12
01b5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b6 0335       | 5  |		Declare_Variable	Array,Duplicate
01b7 00cd       |    |		Action	Spare6_Action
01b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b9 0100       |    |		Execute	Exception,Raise
01ba 0000 0000  |    |		.BLANK	0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 01cb       |    |		.CONST	0x01cb								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 e00b       |    |		Load	0x0,0xb
01c5 1b6c       | l  |		Execute	Package,Field_Read,Field_Number 0x6c
01c6 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
01c7 0217       |    |		Execute	Heap_Access,All_Reference
01c8 0335       | 5  |		Declare_Variable	Array,Duplicate
01c9 00cd       |    |		Action	Spare6_Action
01ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cb			TRAP_01c0:
01cb 010e       |    |		Execute	Exception,Is_Constraint_Error
01cc 6805       |h   |		Jump_Zero	0x1d2
01cd e012       |    |		Load	0x0,0x12
01ce 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01cf 0335       | 5  |		Declare_Variable	Array,Duplicate
01d0 00cd       |    |		Action	Spare6_Action
01d1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d2 0100       |    |		Execute	Exception,Raise
01d3 0000 0000  |    |		.BLANK	0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db e5f8       |    |		Load	0x2,-0x8
01dc 6809       |h   |		Jump_Zero	0x1e6
01dd e5f6       |    |		Load	0x2,-0xa
01de 0092 06bd  |    |		Action	Push_String_Extended,0x6bd					; "are compatible"
01e0 e5f9       |    |		Load	0x2,-0x7
01e1 e5fa       |    |		Load	0x2,-0x6
01e2 85fd       |    |		Call	0x2,-0x3
01e3 801c       |    |		Call	0x0,0x1c
01e4 00d1       |    |		Pop_Control	Pop_Count_1
01e5 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
01e6 e5f7       |    |		Load	0x2,-0x9
01e7 01db       |    |		Execute	Vector,Length
01e8 700a       |p   |		Jump_Nonzero	0x1f3
01e9 e5f6       |    |		Load	0x2,-0xa
01ea 0092 06be  |    |		Action	Push_String_Extended,0x6be					; "are not compatible"
01ec e5f9       |    |		Load	0x2,-0x7
01ed e5fa       |    |		Load	0x2,-0x6
01ee 85fd       |    |		Call	0x2,-0x3
01ef e5fa       |    |		Load	0x2,-0x6
01f0 85fe       |    |		Call	0x2,-0x2
01f1 00d1       |    |		Pop_Control	Pop_Count_1
01f2 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
01f3 e5f6       |    |		Load	0x2,-0xa
01f4 e5f7       |    |		Load	0x2,-0x9
01f5 e5f9       |    |		Load	0x2,-0x7
01f6 e5fa       |    |		Load	0x2,-0x6
01f7 85fd       |    |		Call	0x2,-0x3
01f8 e5fa       |    |		Load	0x2,-0x6
01f9 85fe       |    |		Call	0x2,-0x2
01fa 00d1       |    |		Pop_Control	Pop_Count_1
01fb 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
01fc 0000 0000  |    |		.BLANK	0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e5fd       |    |		Load	0x2,-0x3
0204 e5fe       |    |		Load	0x2,-0x2
0205 e003       |    |		Load	0x0,0x3
0206 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0207 0119       |    |		Execute	Any,Check_In_Formal_Type
0208 e5ff       |    |		Load	0x2,-0x1
0209 e003       |    |		Load	0x0,0x3
020a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
020b 0119       |    |		Execute	Any,Check_In_Formal_Type
020c 801d       |    |		Call	0x0,0x1d
020d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
020e 0000 0000  |    |		.XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 e5fd       |    |		Load	0x2,-0x3
0214 e5fe       |    |		Load	0x2,-0x2
0215 e5ff       |    |		Load	0x2,-0x1
0216 e003       |    |		Load	0x0,0x3
0217 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0218 0119       |    |		Execute	Any,Check_In_Formal_Type
0219 801e       |    |		Call	0x0,0x1e
021a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021b 0000 0000  |    |		.BLANK	0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e5fd       |    |		Load	0x2,-0x3
0224 e5fe       |    |		Load	0x2,-0x2
0225 e009       |    |		Load	0x0,0x9
0226 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0227 0119       |    |		Execute	Any,Check_In_Formal_Type
0228 e5ff       |    |		Load	0x2,-0x1
0229 801f       |    |		Call	0x0,0x1f
022a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
022b 0000 0000  |    |		.BLANK	0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 e5fd       |    |		Load	0x2,-0x3
0234 e5fe       |    |		Load	0x2,-0x2
0235 e00b       |    |		Load	0x0,0xb
0236 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0237 0119       |    |		Execute	Any,Check_In_Formal_Type
0238 e5ff       |    |		Load	0x2,-0x1
0239 8020       |    |		Call	0x0,0x20
023a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
023b 0000 0000  |    |		.BLANK	0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 00e3       |    |		Load_Encached	Natural_Cache
0244 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0245			BODY_0240:
0245 00cf       |    |		Action	Mark_Auxiliary
0246 e5ff       |    |		Load	0x2,-0x1
0247 01d9       |    |		Execute	Vector,Reverse_Bounds
0248 0263       | c  |		Execute	Discrete,Above_Bound
0249 7008       |p   |		Jump_Nonzero	0x252
024a 00db       |    |		Load_Top	At_Offset_3
024b 00d9       |    |		Load_Top	At_Offset_1
024c e5ff       |    |		Load	0x2,-0x1
024d 01d7       |    |		Execute	Vector,Field_Read
024e 0273       | s  |		Execute	Discrete,Plus
024f c402       |    |		Store	0x2,0x2
0250 00c8       |    |		Action	Pop_Auxiliary_Range
0251 3ff8       |?   |		Loop_Increasing	0x24a
0252 00ce       |    |		Action	Pop_Auxiliary
0253 00d8       |    |		Load_Top	At_Offset_0
0254 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0255 0000 0000  |    |		.XXX[0x3]
0257 0000       |    |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c e5fe       |    |		Load	0x2,-0x2
025d 01da       |    |		Execute	Vector,Bounds
025e 0262       | b  |		Execute	Discrete,In_Range
025f 6804       |h   |		Jump_Zero	0x264
0260 00da       |    |		Load_Top	At_Offset_2
0261 e5fe       |    |		Load	0x2,-0x2
0262 01d7       |    |		Execute	Vector,Field_Read
0263 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0264 4800       |H   |		Short_Literal	0x0
0265 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0288       |    |		.CONST	0x0288								; Address of begin
0269 02a3       |    |		.CONST	0x02a3								; Address of exception handler
026a 000b       |    |		.CONST	0x000b								; Number of locals
026b			INIT_0268:
026b e5f9       |    |		Load	0x2,-0x7
026c 822e       | .  |		Call	0x1,0x2e
026d 00e3       |    |		Load_Encached	Natural_Cache
026e 03f1       |    |		Declare_Variable	Discrete,With_Value
026f 00e1       |    |		Load_Encached	Boolean_Cache
0270 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0271 0093 0000  |    |		push_full_address	0x0
0273 603c       |`<  |		Indirect_Literal	Discrete,0x2b0,{0x80000000, 0x00010000}
0274 0273       | s  |		Execute	Discrete,Plus
0275 e5ff       |    |		Load	0x2,-0x1
0276 6035       |`5  |		Indirect_Literal	Discrete,0x2ac,{0x00000000, 0x0000ffff}
0277 0279       | y  |		Execute	Discrete,And
0278 0273       | s  |		Execute	Discrete,Plus
0279 0007       |    |		Action	Break_Optional
027a 029f 0663  |   c|		Declare_Subprogram	INIT_0660,For_Call
027c e021       | !  |		Load	0x0,0x21
027d 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
027e 00c6       |    |		Action	Check_Subprogram_Elaborated
027f 00e1       |    |		Load_Encached	Boolean_Cache
0280 4805       |H   |		Short_Literal	0x5
0281 4802       |H   |		Short_Literal	0x2
0282 0099       |    |		Action	Reference_Dynamic
0283 e022       | "  |		Load	0x0,0x22
0284 e023       | #  |		Load	0x0,0x23
0285 480a       |H   |		Short_Literal	0xa
0286 029f 068b  |    |		Declare_Subprogram	INIT_0688,For_Call
0288			BODY_0268:
0288 840b       |    |		Call	0x2,0xb
0289 e403       |    |		Load	0x2,0x3
028a e5fb       |    |		Load	0x2,-0x5
028b e406       |    |		Load	0x2,0x6
028c 4807       |H   |		Short_Literal	0x7
028d 4802       |H   |		Short_Literal	0x2
028e 0099       |    |		Action	Reference_Dynamic
028f 4808       |H   |		Short_Literal	0x8
0290 4802       |H   |		Short_Literal	0x2
0291 0099       |    |		Action	Reference_Dynamic
0292 e021       | !  |		Load	0x0,0x21
0293 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0294 c403       |    |		Store	0x2,0x3
0295 e5f8       |    |		Load	0x2,-0x8
0296 e5fb       |    |		Load	0x2,-0x5
0297 0092 06bf  |    |		Action	Push_String_Extended,0x6bf					; "Could not find"
0299 e402       |    |		Load	0x2,0x2
029a 00e0       |    |		Load_Encached	Standard_Cache
029b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
029c 01cc       |    |		Execute	Vector,Catenate
029d 0092 06c0  |    |		Action	Push_String_Extended,0x6c0					; " declarations in"
029f 01cc       |    |		Execute	Vector,Catenate
02a0 8024       | $  |		Call	0x0,0x24
02a1 8025       | %  |		Call	0x0,0x25
02a2 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02a3			TRAP_0268:
02a3 e404       |    |		Load	0x2,0x4
02a4 010f       |    |		Execute	Exception,Equal
02a5 6802       |h   |		Jump_Zero	0x2a8
02a6 e026       | &  |		Load	0x0,0x26
02a7 0257       | W  |		Execute	Discrete,Raise
02a8 0100       |    |		Execute	Exception,Raise
02a9 0000 0000  |    |		.XXX[0x3]
02ab 0000       |    |
02ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
02b0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb e5fb       |    |		Load	0x2,-0x5
02bc e5fc       |    |		Load	0x2,-0x4
02bd e5fd       |    |		Load	0x2,-0x3
02be e5fe       |    |		Load	0x2,-0x2
02bf e5ff       |    |		Load	0x2,-0x1
02c0 e21a       |    |		Load	0x1,0x1a
02c1 e21b       |    |		Load	0x1,0x1b
02c2 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
02c3 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
02c4 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
02c5 8211       |    |		Call	0x1,0x11
02c6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02c7 0000       |    |		.XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc e009       |    |		Load	0x0,0x9
02cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ce 0119       |    |		Execute	Any,Check_In_Formal_Type
02cf 800e       |    |		Call	0x0,0xe
02d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d1 0000 0000  |    |		.BLANK	0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db e5fb       |    |		Load	0x2,-0x5
02dc e5fc       |    |		Load	0x2,-0x4
02dd e5fd       |    |		Load	0x2,-0x3
02de e5fe       |    |		Load	0x2,-0x2
02df e009       |    |		Load	0x0,0x9
02e0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e1 0119       |    |		Execute	Any,Check_In_Formal_Type
02e2 e5ff       |    |		Load	0x2,-0x1
02e3 e221       | !  |		Load	0x1,0x21
02e4 e222       | "  |		Load	0x1,0x22
02e5 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
02e6 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
02e7 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
02e8 8211       |    |		Call	0x1,0x11
02e9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02ea 0000 0000  |    |		.BLANK	0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 e00b       |    |		Load	0x0,0xb
02f5 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
02f6 0119       |    |		Execute	Any,Check_In_Formal_Type
02f7 8010       |    |		Call	0x0,0x10
02f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f9 0000 0000  |    |		.BLANK	0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 e5fb       |    |		Load	0x2,-0x5
0304 e5fc       |    |		Load	0x2,-0x4
0305 e5fd       |    |		Load	0x2,-0x3
0306 e5fe       |    |		Load	0x2,-0x2
0307 e00b       |    |		Load	0x0,0xb
0308 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0309 0119       |    |		Execute	Any,Check_In_Formal_Type
030a e5ff       |    |		Load	0x2,-0x1
030b e228       | (  |		Load	0x1,0x28
030c e229       | )  |		Load	0x1,0x29
030d 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
030e 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
030f 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0310 8211       |    |		Call	0x1,0x11
0311 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0312 0000 0000  |    |		.BLANK	0000[0x6]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031e       |    |		.CONST	0x031e								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b e003       |    |		Load	0x0,0x3
031c 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
031d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031e			BODY_0318:
031e 00db       |    |		Load_Top	At_Offset_3
031f 8027       | '  |		Call	0x0,0x27
0320 7007       |p   |		Jump_Nonzero	0x328
0321 e5fe       |    |		Load	0x2,-0x2
0322 0092 06c1  |    |		Action	Push_String_Extended,0x6c1					; "is not an ada unit"
0324 e5ff       |    |		Load	0x2,-0x1
0325 8028       | (  |		Call	0x0,0x28
0326 8025       | %  |		Call	0x0,0x25
0327 00d1       |    |		Pop_Control	Pop_Count_1
0328 00db       |    |		Load_Top	At_Offset_3
0329 8029       | )  |		Call	0x0,0x29
032a 7007       |p   |		Jump_Nonzero	0x332
032b e5fe       |    |		Load	0x2,-0x2
032c 0092 06c2  |    |		Action	Push_String_Extended,0x6c2					; "is not an ada spec"
032e e5ff       |    |		Load	0x2,-0x1
032f 8028       | (  |		Call	0x0,0x28
0330 8025       | %  |		Call	0x0,0x25
0331 00d1       |    |		Pop_Control	Pop_Count_1
0332 e5fe       |    |		Load	0x2,-0x2
0333 e003       |    |		Load	0x0,0x3
0334 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0335 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0336 e5ff       |    |		Load	0x2,-0x1
0337 802a       | *  |		Call	0x0,0x2a
0338 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0339 00d1       |    |		Pop_Control	Pop_Count_1
033a 00d8       |    |		Load_Top	At_Offset_0
033b 802b       | +  |		Call	0x0,0x2b
033c 700c       |p   |		Jump_Nonzero	0x349
033d e5fe       |    |		Load	0x2,-0x2
033e 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
033f 0a01       |    |		Execute_Immediate	Plus,0x1
0340 e5fe       |    |		Load	0x2,-0x2
0341 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
0342 e5fe       |    |		Load	0x2,-0x2
0343 0092 06c3  |    |		Action	Push_String_Extended,0x6c3					; "is not installed"
0345 e5ff       |    |		Load	0x2,-0x1
0346 8028       | (  |		Call	0x0,0x28
0347 8025       | %  |		Call	0x0,0x25
0348 00d1       |    |		Pop_Control	Pop_Count_1
0349 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
034a 0000 0000  |    |		.BLANK	0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0355       | U  |		.CONST	0x0355								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0003       |    |		.CONST	0x0003								; Number of locals
0353			INIT_0350:
0353 00e5       |    |		Load_Encached	Long_Integer_Cache
0354 00e5       |    |		Load_Encached	Long_Integer_Cache
0355			BODY_0350:
0355 e5ff       |    |		Load	0x2,-0x1
0356 e012       |    |		Load	0x0,0x12
0357 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0358 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0359 7007       |p   |		Jump_Nonzero	0x361
035a e5fd       |    |		Load	0x2,-0x3
035b 0092 06c4  |    |		Action	Push_String_Extended,0x6c4					; "does not have a subsystem id"
035d e5ff       |    |		Load	0x2,-0x1
035e 802c       | ,  |		Call	0x0,0x2c
035f 8025       | %  |		Call	0x0,0x25
0360 00d1       |    |		Pop_Control	Pop_Count_1
0361 e5fe       |    |		Load	0x2,-0x2
0362 e012       |    |		Load	0x0,0x12
0363 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0364 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0365 7007       |p   |		Jump_Nonzero	0x36d
0366 e5fd       |    |		Load	0x2,-0x3
0367 0092 06c4  |    |		Action	Push_String_Extended,0x6c4					; "does not have a subsystem id"
0369 e5fe       |    |		Load	0x2,-0x2
036a 802c       | ,  |		Call	0x0,0x2c
036b 8025       | %  |		Call	0x0,0x25
036c 00d1       |    |		Pop_Control	Pop_Count_1
036d e5ff       |    |		Load	0x2,-0x1
036e e012       |    |		Load	0x0,0x12
036f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0370 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0371 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0372 e5fe       |    |		Load	0x2,-0x2
0373 e012       |    |		Load	0x0,0x12
0374 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0375 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0376 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0377 00d9       |    |		Load_Top	At_Offset_1
0378 6813       |h   |		Jump_Zero	0x38c
0379 00d8       |    |		Load_Top	At_Offset_0
037a 6811       |h   |		Jump_Zero	0x38c
037b 00d9       |    |		Load_Top	At_Offset_1
037c 00d9       |    |		Load_Top	At_Offset_1
037d 027e       | ~  |		Execute	Discrete,Not_Equal
037e 680d       |h   |		Jump_Zero	0x38c
037f e5fd       |    |		Load	0x2,-0x3
0380 0092 06c5  |    |		Action	Push_String_Extended,0x6c5					; "have different subsystem numbers"
0382 4800       |H   |		Short_Literal	0x0
0383 e5fe       |    |		Load	0x2,-0x2
0384 e5ff       |    |		Load	0x2,-0x1
0385 e21a       |    |		Load	0x1,0x1a
0386 e21b       |    |		Load	0x1,0x1b
0387 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0388 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0389 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
038a 8211       |    |		Call	0x1,0x11
038b 00d1       |    |		Pop_Control	Pop_Count_1
038c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
038d 0000 0000  |    |		.XXX[0x3]
038f 0000       |    |
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0399       |    |		.CONST	0x0399								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0003       |    |		.CONST	0x0003								; Number of locals
0393			INIT_0390:
0393 e012       |    |		Load	0x0,0x12
0394 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0395 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0396 e012       |    |		Load	0x0,0x12
0397 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0398 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0399			BODY_0390:
0399 e5ff       |    |		Load	0x2,-0x1
039a e012       |    |		Load	0x0,0x12
039b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
039c 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
039d 7007       |p   |		Jump_Nonzero	0x3a5
039e e5fd       |    |		Load	0x2,-0x3
039f 0092 06c6  |    |		Action	Push_String_Extended,0x6c6					; "does not have a unit number"
03a1 e5ff       |    |		Load	0x2,-0x1
03a2 802c       | ,  |		Call	0x0,0x2c
03a3 8025       | %  |		Call	0x0,0x25
03a4 00d1       |    |		Pop_Control	Pop_Count_1
03a5 e5fe       |    |		Load	0x2,-0x2
03a6 e012       |    |		Load	0x0,0x12
03a7 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03a8 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
03a9 7007       |p   |		Jump_Nonzero	0x3b1
03aa e5fd       |    |		Load	0x2,-0x3
03ab 0092 06c6  |    |		Action	Push_String_Extended,0x6c6					; "does not have a unit number"
03ad e5fe       |    |		Load	0x2,-0x2
03ae 802c       | ,  |		Call	0x0,0x2c
03af 8025       | %  |		Call	0x0,0x25
03b0 00d1       |    |		Pop_Control	Pop_Count_1
03b1 e5ff       |    |		Load	0x2,-0x1
03b2 e012       |    |		Load	0x0,0x12
03b3 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03b4 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
03b5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
03b6 e5fe       |    |		Load	0x2,-0x2
03b7 e012       |    |		Load	0x0,0x12
03b8 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03b9 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
03ba 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03bb 00d9       |    |		Load_Top	At_Offset_1
03bc 6813       |h   |		Jump_Zero	0x3d0
03bd 00d8       |    |		Load_Top	At_Offset_0
03be 6811       |h   |		Jump_Zero	0x3d0
03bf 00d9       |    |		Load_Top	At_Offset_1
03c0 00d9       |    |		Load_Top	At_Offset_1
03c1 027e       | ~  |		Execute	Discrete,Not_Equal
03c2 680d       |h   |		Jump_Zero	0x3d0
03c3 e5fd       |    |		Load	0x2,-0x3
03c4 0092 06c7  |    |		Action	Push_String_Extended,0x6c7					; "have different unit numbers"
03c6 4800       |H   |		Short_Literal	0x0
03c7 e5fe       |    |		Load	0x2,-0x2
03c8 e5ff       |    |		Load	0x2,-0x1
03c9 e21a       |    |		Load	0x1,0x1a
03ca e21b       |    |		Load	0x1,0x1b
03cb 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
03cc 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
03cd 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
03ce 8211       |    |		Call	0x1,0x11
03cf 00d1       |    |		Pop_Control	Pop_Count_1
03d0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03d1 0000 0000  |    |		.BLANK	0000[0x7]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e7       |    |		.CONST	0x03e7								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0004       |    |		.CONST	0x0004								; Number of locals
03db			INIT_03d8:
03db e5fb       |    |		Load	0x2,-0x5
03dc e012       |    |		Load	0x0,0x12
03dd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03de e5fa       |    |		Load	0x2,-0x6
03df 85fd       |    |		Call	0x2,-0x3
03e0 00d9       |    |		Load_Top	At_Offset_1
03e1 01da       |    |		Execute	Vector,Bounds
03e2 49a3       |I   |		Short_Literal	0x1a3
03e3 00eb       |    |		Load_Encached	Diana_Cache
03e4 0098       |    |		Execute	Package,Field_Read_Dynamic
03e5 035b       | [  |		Declare_Type	Array,Constrained
03e6 0337       | 7  |		Declare_Variable	Array
03e7			BODY_03d8:
03e7 00cf       |    |		Action	Mark_Auxiliary
03e8 00db       |    |		Load_Top	At_Offset_3
03e9 01d9       |    |		Execute	Vector,Reverse_Bounds
03ea 0263       | c  |		Execute	Discrete,Above_Bound
03eb 7019       |p   |		Jump_Nonzero	0x405
03ec 00d8       |    |		Load_Top	At_Offset_0
03ed e403       |    |		Load	0x2,0x3
03ee 01da       |    |		Execute	Vector,Bounds
03ef 0262       | b  |		Execute	Discrete,In_Range
03f0 680c       |h   |		Jump_Zero	0x3fd
03f1 00d8       |    |		Load_Top	At_Offset_0
03f2 e402       |    |		Load	0x2,0x2
03f3 01d7       |    |		Execute	Vector,Field_Read
03f4 00d9       |    |		Load_Top	At_Offset_1
03f5 e403       |    |		Load	0x2,0x3
03f6 01d7       |    |		Execute	Vector,Field_Read
03f7 0f00       |    |		Execute_Immediate	Equal,0x0
03f8 0279       | y  |		Execute	Discrete,And
03f9 00d9       |    |		Load_Top	At_Offset_1
03fa e404       |    |		Load	0x2,0x4
03fb 01d6       |    |		Execute	Vector,Field_Write
03fc 7806       |x   |		Jump	0x403
03fd 00d8       |    |		Load_Top	At_Offset_0
03fe e402       |    |		Load	0x2,0x2
03ff 01d7       |    |		Execute	Vector,Field_Read
0400 00d9       |    |		Load_Top	At_Offset_1
0401 e404       |    |		Load	0x2,0x4
0402 01d6       |    |		Execute	Vector,Field_Write
0403 00c8       |    |		Action	Pop_Auxiliary_Range
0404 3fe7       |?   |		Loop_Increasing	0x3ec
0405 00ce       |    |		Action	Pop_Auxiliary
0406 00d8       |    |		Load_Top	At_Offset_0
0407 822e       | .  |		Call	0x1,0x2e
0408 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0409 6806       |h   |		Jump_Zero	0x410
040a e5f9       |    |		Load	0x2,-0x7
040b 00d9       |    |		Load_Top	At_Offset_1
040c e5fa       |    |		Load	0x2,-0x6
040d e5fb       |    |		Load	0x2,-0x5
040e 85fe       |    |		Call	0x2,-0x2
040f 00d1       |    |		Pop_Control	Pop_Count_1
0410 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0411 0000 0000  |    |		.BLANK	0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b e5fc       |    |		Load	0x2,-0x4
041c e5fd       |    |		Load	0x2,-0x3
041d e5fe       |    |		Load	0x2,-0x2
041e e5ff       |    |		Load	0x2,-0x1
041f e232       | 2  |		Load	0x1,0x32
0420 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
0421 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
0422 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0423 8230       | 0  |		Call	0x1,0x30
0424 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0425 0000 0000  |    |		.XXX[0x3]
0427 0000       |    |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00da       |    |		Load_Top	At_Offset_2
042c e009       |    |		Load	0x0,0x9
042d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
042e 0119       |    |		Execute	Any,Check_In_Formal_Type
042f 820f       |    |		Call	0x1,0xf
0430 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0431 0000 0000  |    |		.BLANK	0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b e5fc       |    |		Load	0x2,-0x4
043c e5fd       |    |		Load	0x2,-0x3
043d e5fe       |    |		Load	0x2,-0x2
043e e009       |    |		Load	0x0,0x9
043f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0440 0119       |    |		Execute	Any,Check_In_Formal_Type
0441 e5ff       |    |		Load	0x2,-0x1
0442 e239       | 9  |		Load	0x1,0x39
0443 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0444 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
0445 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
0446 8230       | 0  |		Call	0x1,0x30
0447 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 00da       |    |		Load_Top	At_Offset_2
044c e00b       |    |		Load	0x0,0xb
044d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
044e 0119       |    |		Execute	Any,Check_In_Formal_Type
044f 8210       |    |		Call	0x1,0x10
0450 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0451 0000 0000  |    |		.BLANK	0000[0x7]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b e5fc       |    |		Load	0x2,-0x4
045c e5fd       |    |		Load	0x2,-0x3
045d e5fe       |    |		Load	0x2,-0x2
045e e00b       |    |		Load	0x0,0xb
045f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0460 0119       |    |		Execute	Any,Check_In_Formal_Type
0461 e5ff       |    |		Load	0x2,-0x1
0462 e240       | @  |		Load	0x1,0x40
0463 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0464 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0465 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0466 8230       | 0  |		Call	0x1,0x30
0467 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d       | m  |		.CONST	0x046d								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0002       |    |		.CONST	0x0002								; Number of locals
046b			INIT_0468:
046b e02d       | -  |		Load	0x0,0x2d
046c 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
046d			BODY_0468:
046d 4800       |H   |		Short_Literal	0x0
046e e02d       | -  |		Load	0x0,0x2d
046f 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0470 e5ff       |    |		Load	0x2,-0x1
0471 e02d       | -  |		Load	0x0,0x2d
0472 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0473 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0474 00d8       |    |		Load_Top	At_Offset_0
0475 0f03       |    |		Execute_Immediate	Equal,0x3
0476 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0477 0000       |    |		.XXX[0x1]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 00da       |    |		Load_Top	At_Offset_2
047c e02e       | .  |		Load	0x0,0x2e
047d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
047e 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
047f 7007       |p   |		Jump_Nonzero	0x487
0480 e5fc       |    |		Load	0x2,-0x4
0481 0092 06c8  |    |		Action	Push_String_Extended,0x6c8					; "does not have a major coder version"
0483 e5ff       |    |		Load	0x2,-0x1
0484 802c       | ,  |		Call	0x0,0x2c
0485 8025       | %  |		Call	0x0,0x25
0486 00d1       |    |		Pop_Control	Pop_Count_1
0487 00da       |    |		Load_Top	At_Offset_2
0488 e02e       | .  |		Load	0x0,0x2e
0489 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
048a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
048b 7007       |p   |		Jump_Nonzero	0x493
048c e5fc       |    |		Load	0x2,-0x4
048d 0092 06c9  |    |		Action	Push_String_Extended,0x6c9					; "does not have a minor coder version"
048f e5ff       |    |		Load	0x2,-0x1
0490 802c       | ,  |		Call	0x0,0x2c
0491 8025       | %  |		Call	0x0,0x25
0492 00d1       |    |		Pop_Control	Pop_Count_1
0493 00da       |    |		Load_Top	At_Offset_2
0494 e02e       | .  |		Load	0x0,0x2e
0495 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0496 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0497 a5fe       |    |		Store_Unchecked	0x2,-0x2
0498 00da       |    |		Load_Top	At_Offset_2
0499 e02e       | .  |		Load	0x0,0x2e
049a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
049b 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
049c a5fd       |    |		Store_Unchecked	0x2,-0x3
049d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
049e 0000 0000  |    |		.XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04ac       |    |		.CONST	0x04ac								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0002       |    |		.CONST	0x0002								; Number of locals
04a3			INIT_04a0:
04a3 e00b       |    |		Load	0x0,0xb
04a4 1b67       | g  |		Execute	Package,Field_Read,Field_Number 0x67
04a5 0322       | "  |		Declare_Variable	Record
04a6 00db       |    |		Load_Top	At_Offset_3
04a7 e00b       |    |		Load	0x0,0xb
04a8 1b6c       | l  |		Execute	Package,Field_Read,Field_Number 0x6c
04a9 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
04aa 00d9       |    |		Load_Top	At_Offset_1
04ab 017d       | }  |		Execute	Record,Structure_Write
04ac			BODY_04a0:
04ac 00d8       |    |		Load_Top	At_Offset_0
04ad 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04ae a5fe       |    |		Store_Unchecked	0x2,-0x2
04af 00d8       |    |		Load_Top	At_Offset_0
04b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b1 a5fd       |    |		Store_Unchecked	0x2,-0x3
04b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b3 0000 0000  |    |		.BLANK	0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c3       |    |		.CONST	0x04c3								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0003       |    |		.CONST	0x0003								; Number of locals
04bb			INIT_04b8:
04bb e003       |    |		Load	0x0,0x3
04bc 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
04bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04be e003       |    |		Load	0x0,0x3
04bf 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
04c0 0322       | "  |		Declare_Variable	Record
04c1 00d8       |    |		Load_Top	At_Offset_0
04c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c3			BODY_04b8:
04c3 e5fe       |    |		Load	0x2,-0x2
04c4 e003       |    |		Load	0x0,0x3
04c5 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
04c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04c7 e5ff       |    |		Load	0x2,-0x1
04c8 802a       | *  |		Call	0x0,0x2a
04c9 005b       | [  |		Store_Top	Discrete,At_Offset_3
04ca 00d1       |    |		Pop_Control	Pop_Count_1
04cb 00d9       |    |		Load_Top	At_Offset_1
04cc 802f       | /  |		Call	0x0,0x2f
04cd 7002       |p   |		Jump_Nonzero	0x4d0
04ce e026       | &  |		Load	0x0,0x26
04cf 0257       | W  |		Execute	Discrete,Raise
04d0 e5fe       |    |		Load	0x2,-0x2
04d1 00d9       |    |		Load_Top	At_Offset_1
04d2 e5ff       |    |		Load	0x2,-0x1
04d3 8030       | 0  |		Call	0x0,0x30
04d4 00d2       |    |		Pop_Control	Pop_Count_2
04d5 00d8       |    |		Load_Top	At_Offset_0
04d6 825d       | ]  |		Call	0x1,0x5d
04d7 7002       |p   |		Jump_Nonzero	0x4da
04d8 e026       | &  |		Load	0x0,0x26
04d9 0257       | W  |		Execute	Discrete,Raise
04da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04db 0000 0000  |    |		.BLANK	0000[0x5]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e9       |    |		.CONST	0x04e9								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0006       |    |		.CONST	0x0006								; Number of locals
04e3			INIT_04e0:
04e3 00e2       |    |		Load_Encached	Integer_Cache
04e4 00e2       |    |		Load_Encached	Integer_Cache
04e5 00e2       |    |		Load_Encached	Integer_Cache
04e6 00e2       |    |		Load_Encached	Integer_Cache
04e7 029f 069b  |    |		Declare_Subprogram	INIT_0698,For_Call
04e9			BODY_04e0:
04e9 8406       |    |		Call	0x2,0x6
04ea e5fb       |    |		Load	0x2,-0x5
04eb 00e2       |    |		Load_Encached	Integer_Cache
04ec 00e2       |    |		Load_Encached	Integer_Cache
04ed e5fd       |    |		Load	0x2,-0x3
04ee 825e       | ^  |		Call	0x1,0x5e
04ef c402       |    |		Store	0x2,0x2
04f0 c403       |    |		Store	0x2,0x3
04f1 00d1       |    |		Pop_Control	Pop_Count_1
04f2 e5fb       |    |		Load	0x2,-0x5
04f3 00e2       |    |		Load_Encached	Integer_Cache
04f4 00e2       |    |		Load_Encached	Integer_Cache
04f5 e5fc       |    |		Load	0x2,-0x4
04f6 825e       | ^  |		Call	0x1,0x5e
04f7 c404       |    |		Store	0x2,0x4
04f8 005b       | [  |		Store_Top	Discrete,At_Offset_3
04f9 00d1       |    |		Pop_Control	Pop_Count_1
04fa e402       |    |		Load	0x2,0x2
04fb 00db       |    |		Load_Top	At_Offset_3
04fc 027e       | ~  |		Execute	Discrete,Not_Equal
04fd 7004       |p   |		Jump_Nonzero	0x502
04fe 00db       |    |		Load_Top	At_Offset_3
04ff 00da       |    |		Load_Top	At_Offset_2
0500 027c       | |  |		Execute	Discrete,Less
0501 680d       |h   |		Jump_Zero	0x50f
0502 e5fb       |    |		Load	0x2,-0x5
0503 0092 06ca  |    |		Action	Push_String_Extended,0x6ca					; "were coded with incompatible versions of the code generator"
0505 4800       |H   |		Short_Literal	0x0
0506 e5fe       |    |		Load	0x2,-0x2
0507 e5ff       |    |		Load	0x2,-0x1
0508 e214       |    |		Load	0x1,0x14
0509 e215       |    |		Load	0x1,0x15
050a 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
050b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
050c 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
050d 8211       |    |		Call	0x1,0x11
050e 00d1       |    |		Pop_Control	Pop_Count_1
050f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0519       |    |		.CONST	0x0519								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0006       |    |		.CONST	0x0006								; Number of locals
0513			INIT_0510:
0513 00e2       |    |		Load_Encached	Integer_Cache
0514 00e2       |    |		Load_Encached	Integer_Cache
0515 00e2       |    |		Load_Encached	Integer_Cache
0516 00e2       |    |		Load_Encached	Integer_Cache
0517 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
0519			BODY_0510:
0519 8406       |    |		Call	0x2,0x6
051a e5fc       |    |		Load	0x2,-0x4
051b 00e2       |    |		Load_Encached	Integer_Cache
051c 00e2       |    |		Load_Encached	Integer_Cache
051d e5fd       |    |		Load	0x2,-0x3
051e 825e       | ^  |		Call	0x1,0x5e
051f c402       |    |		Store	0x2,0x2
0520 c403       |    |		Store	0x2,0x3
0521 00d1       |    |		Pop_Control	Pop_Count_1
0522 e5fc       |    |		Load	0x2,-0x4
0523 00e2       |    |		Load_Encached	Integer_Cache
0524 00e2       |    |		Load_Encached	Integer_Cache
0525 e5fe       |    |		Load	0x2,-0x2
0526 825f       | _  |		Call	0x1,0x5f
0527 c404       |    |		Store	0x2,0x4
0528 005b       | [  |		Store_Top	Discrete,At_Offset_3
0529 00d1       |    |		Pop_Control	Pop_Count_1
052a e402       |    |		Load	0x2,0x2
052b 6806       |h   |		Jump_Zero	0x532
052c 00da       |    |		Load_Top	At_Offset_2
052d 6804       |h   |		Jump_Zero	0x532
052e e402       |    |		Load	0x2,0x2
052f 00db       |    |		Load_Top	At_Offset_3
0530 027e       | ~  |		Execute	Discrete,Not_Equal
0531 7004       |p   |		Jump_Nonzero	0x536
0532 00db       |    |		Load_Top	At_Offset_3
0533 00da       |    |		Load_Top	At_Offset_2
0534 027c       | |  |		Execute	Discrete,Less
0535 680d       |h   |		Jump_Zero	0x543
0536 e5fc       |    |		Load	0x2,-0x4
0537 0092 06ca  |    |		Action	Push_String_Extended,0x6ca					; "were coded with incompatible versions of the code generator"
0539 4800       |H   |		Short_Literal	0x0
053a e5fe       |    |		Load	0x2,-0x2
053b e5fd       |    |		Load	0x2,-0x3
053c e228       | (  |		Load	0x1,0x28
053d e229       | )  |		Load	0x1,0x29
053e 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
053f 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0540 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0541 8211       |    |		Call	0x1,0x11
0542 00d1       |    |		Pop_Control	Pop_Count_1
0543 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0544 0000 0000  |    |		.BLANK	0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054d       | M  |		.CONST	0x054d								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0003       |    |		.CONST	0x0003								; Number of locals
054b			INIT_0548:
054b 00ec       |    |		Load_Encached	Diana_Tree_Cache
054c 00ec       |    |		Load_Encached	Diana_Tree_Cache
054d			BODY_0548:
054d e5fd       |    |		Load	0x2,-0x3
054e e5ff       |    |		Load	0x2,-0x1
054f 8245       | E  |		Call	0x1,0x45
0550 00d1       |    |		Pop_Control	Pop_Count_1
0551 e5fd       |    |		Load	0x2,-0x3
0552 e5fe       |    |		Load	0x2,-0x2
0553 8245       | E  |		Call	0x1,0x45
0554 00d1       |    |		Pop_Control	Pop_Count_1
0555 e5fd       |    |		Load	0x2,-0x3
0556 00ec       |    |		Load_Encached	Diana_Tree_Cache
0557 e5ff       |    |		Load	0x2,-0x1
0558 8031       | 1  |		Call	0x0,0x31
0559 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
055a 00d1       |    |		Pop_Control	Pop_Count_1
055b e5fd       |    |		Load	0x2,-0x3
055c 00ec       |    |		Load_Encached	Diana_Tree_Cache
055d e5fe       |    |		Load	0x2,-0x2
055e 8031       | 1  |		Call	0x0,0x31
055f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0560 00d1       |    |		Pop_Control	Pop_Count_1
0561 e5fd       |    |		Load	0x2,-0x3
0562 00d9       |    |		Load_Top	At_Offset_1
0563 00db       |    |		Load_Top	At_Offset_3
0564 8246       | F  |		Call	0x1,0x46
0565 00d1       |    |		Pop_Control	Pop_Count_1
0566 e5fd       |    |		Load	0x2,-0x3
0567 00d9       |    |		Load_Top	At_Offset_1
0568 00db       |    |		Load_Top	At_Offset_3
0569 8247       | G  |		Call	0x1,0x47
056a 00d1       |    |		Pop_Control	Pop_Count_1
056b e5fd       |    |		Load	0x2,-0x3
056c 00d9       |    |		Load_Top	At_Offset_1
056d 00db       |    |		Load_Top	At_Offset_3
056e e24a       | J  |		Load	0x1,0x4a
056f 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
0570 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
0571 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
0572 8248       | H  |		Call	0x1,0x48
0573 00d1       |    |		Pop_Control	Pop_Count_1
0574 e5fd       |    |		Load	0x2,-0x3
0575 00d9       |    |		Load_Top	At_Offset_1
0576 00db       |    |		Load_Top	At_Offset_3
0577 e5fe       |    |		Load	0x2,-0x2
0578 e5ff       |    |		Load	0x2,-0x1
0579 8261       | a  |		Call	0x1,0x61
057a 00d1       |    |		Pop_Control	Pop_Count_1
057b e5fd       |    |		Load	0x2,-0x3
057c 00ea       |    |		Load_Encached	Null_String_Cache
057d 4801       |H   |		Short_Literal	0x1
057e e5fe       |    |		Load	0x2,-0x2
057f e5ff       |    |		Load	0x2,-0x1
0580 e214       |    |		Load	0x1,0x14
0581 e215       |    |		Load	0x1,0x15
0582 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0583 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0584 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0585 8211       |    |		Call	0x1,0x11
0586 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0587 0000       |    |		.XXX[0x1]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058c       |    |		.CONST	0x058c								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0002       |    |		.CONST	0x0002								; Number of locals
058b			INIT_0588:
058b 00ec       |    |		Load_Encached	Diana_Tree_Cache
058c			BODY_0588:
058c e5fd       |    |		Load	0x2,-0x3
058d e5ff       |    |		Load	0x2,-0x1
058e 8245       | E  |		Call	0x1,0x45
058f 00d1       |    |		Pop_Control	Pop_Count_1
0590 e5fd       |    |		Load	0x2,-0x3
0591 00ec       |    |		Load_Encached	Diana_Tree_Cache
0592 e5ff       |    |		Load	0x2,-0x1
0593 8031       | 1  |		Call	0x0,0x31
0594 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0595 00d1       |    |		Pop_Control	Pop_Count_1
0596 e5fd       |    |		Load	0x2,-0x3
0597 e5fe       |    |		Load	0x2,-0x2
0598 00da       |    |		Load_Top	At_Offset_2
0599 e251       | Q  |		Load	0x1,0x51
059a 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
059b 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
059c 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
059d 8248       | H  |		Call	0x1,0x48
059e 00d1       |    |		Pop_Control	Pop_Count_1
059f e5fd       |    |		Load	0x2,-0x3
05a0 00ea       |    |		Load_Encached	Null_String_Cache
05a1 4801       |H   |		Short_Literal	0x1
05a2 e5fe       |    |		Load	0x2,-0x2
05a3 e402       |    |		Load	0x2,0x2
05a4 e221       | !  |		Load	0x1,0x21
05a5 e222       | "  |		Load	0x1,0x22
05a6 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
05a7 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
05a8 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
05a9 8211       |    |		Call	0x1,0x11
05aa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05ab 0000 0000  |    |		.BLANK	0000[0x5]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b4       |    |		.CONST	0x05b4								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0002       |    |		.CONST	0x0002								; Number of locals
05b3			INIT_05b0:
05b3 00ec       |    |		Load_Encached	Diana_Tree_Cache
05b4			BODY_05b0:
05b4 e5fd       |    |		Load	0x2,-0x3
05b5 e5ff       |    |		Load	0x2,-0x1
05b6 8245       | E  |		Call	0x1,0x45
05b7 00d1       |    |		Pop_Control	Pop_Count_1
05b8 e5fd       |    |		Load	0x2,-0x3
05b9 00ec       |    |		Load_Encached	Diana_Tree_Cache
05ba e5ff       |    |		Load	0x2,-0x1
05bb 8031       | 1  |		Call	0x0,0x31
05bc 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
05bd 00d1       |    |		Pop_Control	Pop_Count_1
05be e5fd       |    |		Load	0x2,-0x3
05bf e5fe       |    |		Load	0x2,-0x2
05c0 00da       |    |		Load_Top	At_Offset_2
05c1 e258       | X  |		Load	0x1,0x58
05c2 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
05c3 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
05c4 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
05c5 8248       | H  |		Call	0x1,0x48
05c6 00d1       |    |		Pop_Control	Pop_Count_1
05c7 e5fd       |    |		Load	0x2,-0x3
05c8 00d9       |    |		Load_Top	At_Offset_1
05c9 e5fe       |    |		Load	0x2,-0x2
05ca e5ff       |    |		Load	0x2,-0x1
05cb 8262       | b  |		Call	0x1,0x62
05cc 00d1       |    |		Pop_Control	Pop_Count_1
05cd e5fd       |    |		Load	0x2,-0x3
05ce 00ea       |    |		Load_Encached	Null_String_Cache
05cf 4801       |H   |		Short_Literal	0x1
05d0 e5fe       |    |		Load	0x2,-0x2
05d1 e402       |    |		Load	0x2,0x2
05d2 e228       | (  |		Load	0x1,0x28
05d3 e229       | )  |		Load	0x1,0x29
05d4 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
05d5 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
05d6 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
05d7 8211       |    |		Call	0x1,0x11
05d8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05d9 0000 0000  |    |		.BLANK	0000[0x7]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e8       |    |		.CONST	0x05e8								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0002       |    |		.CONST	0x0002								; Number of locals
05e3			INIT_05e0:
05e3 e003       |    |		Load	0x0,0x3
05e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05e5 02c7       |    |		Declare_Variable	Any
05e6 00d8       |    |		Load_Top	At_Offset_0
05e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05e8			BODY_05e0:
05e8 e5fd       |    |		Load	0x2,-0x3
05e9 00d9       |    |		Load_Top	At_Offset_1
05ea 0120       |    |		Execute	Any,Is_Value
05eb 6803       |h   |		Jump_Zero	0x5ef
05ec e003       |    |		Load	0x0,0x3
05ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ee 7801       |x   |		Jump	0x5f0
05ef 00d9       |    |		Load_Top	At_Offset_1
05f0 e5fe       |    |		Load	0x2,-0x2
05f1 e5ff       |    |		Load	0x2,-0x1
05f2 8032       | 2  |		Call	0x0,0x32
05f3 c402       |    |		Store	0x2,0x2
05f4 00d1       |    |		Pop_Control	Pop_Count_1
05f5 e5fd       |    |		Load	0x2,-0x3
05f6 e5ff       |    |		Load	0x2,-0x1
05f7 00da       |    |		Load_Top	At_Offset_2
05f8 8263       | c  |		Call	0x1,0x63
05f9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05fa 0000 0000  |    |		.BLANK	0000[0x6]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0608       |    |		.CONST	0x0608								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0002       |    |		.CONST	0x0002								; Number of locals
0603			INIT_0600:
0603 e003       |    |		Load	0x0,0x3
0604 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0605 02c7       |    |		Declare_Variable	Any
0606 00d8       |    |		Load_Top	At_Offset_0
0607 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0608			BODY_0600:
0608 e5fd       |    |		Load	0x2,-0x3
0609 00d9       |    |		Load_Top	At_Offset_1
060a 0120       |    |		Execute	Any,Is_Value
060b 6803       |h   |		Jump_Zero	0x60f
060c e003       |    |		Load	0x0,0x3
060d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
060e 7801       |x   |		Jump	0x610
060f 00d9       |    |		Load_Top	At_Offset_1
0610 e5fe       |    |		Load	0x2,-0x2
0611 e5ff       |    |		Load	0x2,-0x1
0612 8032       | 2  |		Call	0x0,0x32
0613 c402       |    |		Store	0x2,0x2
0614 00d1       |    |		Pop_Control	Pop_Count_1
0615 e5fd       |    |		Load	0x2,-0x3
0616 00d9       |    |		Load_Top	At_Offset_1
0617 e5ff       |    |		Load	0x2,-0x1
0618 8263       | c  |		Call	0x1,0x63
0619 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
061a 0000 0000  |    |		.BLANK	0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0628       | (  |		.CONST	0x0628								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0002       |    |		.CONST	0x0002								; Number of locals
0623			INIT_0620:
0623 e009       |    |		Load	0x0,0x9
0624 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0625 02c7       |    |		Declare_Variable	Any
0626 00d8       |    |		Load_Top	At_Offset_0
0627 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0628			BODY_0620:
0628 e5fd       |    |		Load	0x2,-0x3
0629 00d9       |    |		Load_Top	At_Offset_1
062a 0120       |    |		Execute	Any,Is_Value
062b 6803       |h   |		Jump_Zero	0x62f
062c e009       |    |		Load	0x0,0x9
062d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
062e 7801       |x   |		Jump	0x630
062f 00d9       |    |		Load_Top	At_Offset_1
0630 e5fe       |    |		Load	0x2,-0x2
0631 e5ff       |    |		Load	0x2,-0x1
0632 8033       | 3  |		Call	0x0,0x33
0633 c402       |    |		Store	0x2,0x2
0634 00d1       |    |		Pop_Control	Pop_Count_1
0635 e5fd       |    |		Load	0x2,-0x3
0636 00d9       |    |		Load_Top	At_Offset_1
0637 e5ff       |    |		Load	0x2,-0x1
0638 8264       | d  |		Call	0x1,0x64
0639 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
063a 0000 0000  |    |		.BLANK	0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0648       | H  |		.CONST	0x0648								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0002       |    |		.CONST	0x0002								; Number of locals
0643			INIT_0640:
0643 e00b       |    |		Load	0x0,0xb
0644 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0645 02c7       |    |		Declare_Variable	Any
0646 00d8       |    |		Load_Top	At_Offset_0
0647 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0648			BODY_0640:
0648 e5fd       |    |		Load	0x2,-0x3
0649 00d9       |    |		Load_Top	At_Offset_1
064a 0120       |    |		Execute	Any,Is_Value
064b 6803       |h   |		Jump_Zero	0x64f
064c e00b       |    |		Load	0x0,0xb
064d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
064e 7801       |x   |		Jump	0x650
064f 00d9       |    |		Load_Top	At_Offset_1
0650 e5fe       |    |		Load	0x2,-0x2
0651 e5ff       |    |		Load	0x2,-0x1
0652 8034       | 4  |		Call	0x0,0x34
0653 c402       |    |		Store	0x2,0x2
0654 00d1       |    |		Pop_Control	Pop_Count_1
0655 e5fd       |    |		Load	0x2,-0x3
0656 00d9       |    |		Load_Top	At_Offset_1
0657 e5ff       |    |		Load	0x2,-0x1
0658 8265       | e  |		Call	0x1,0x65
0659 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
065a 0000 0000  |    |		.BLANK	0000[0x6]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 00da       |    |		Load_Top	At_Offset_2
0664 e035       | 5  |		Load	0x0,0x35
0665 189e       |    |		Execute	Package,Field_Execute,Field_Number 0x9e
0666 681b       |h   |		Jump_Zero	0x682
0667 e5f9       |    |		Load	0x2,-0x7
0668 00db       |    |		Load_Top	At_Offset_3
0669 e035       | 5  |		Load	0x0,0x35
066a 189d       |    |		Execute	Package,Field_Execute,Field_Number 0x9d
066b 822f       | /  |		Call	0x1,0x2f
066c 6815       |h   |		Jump_Zero	0x682
066d e5f8       |    |		Load	0x2,-0x8
066e 00db       |    |		Load_Top	At_Offset_3
066f e003       |    |		Load	0x0,0x3
0670 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0671 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0672 0092 06cb  |    |		Action	Push_String_Extended,0x6cb					; " has no matching declaration in "
0674 01cc       |    |		Execute	Vector,Catenate
0675 e5fa       |    |		Load	0x2,-0x6
0676 85fd       |    |		Call	0x2,-0x3
0677 01cc       |    |		Execute	Vector,Catenate
0678 e7ff       |    |		Load	0x3,-0x1
0679 8036       | 6  |		Call	0x0,0x36
067a 00d1       |    |		Pop_Control	Pop_Count_1
067b e402       |    |		Load	0x2,0x2
067c 0aff       |    |		Execute_Immediate	Plus,-0x1
067d c402       |    |		Store	0x2,0x2
067e e402       |    |		Load	0x2,0x2
067f 7002       |p   |		Jump_Nonzero	0x682
0680 e404       |    |		Load	0x2,0x4
0681 0257       | W  |		Execute	Discrete,Raise
0682 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0683 0000 0000  |    |		.BLANK	0000[0x5]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b       |    |		.CONST	0x068b								; Address of begin
0689 0692       |    |		.CONST	0x0692								; Address of exception handler
068a 0001       |    |		.CONST	0x0001								; Number of locals
068b			BODY_0688:
068b			INIT_0688:
068b e5f8       |    |		Load	0x2,-0x8
068c 00ea       |    |		Load_Encached	Null_String_Cache
068d 4800       |H   |		Short_Literal	0x0
068e e5fa       |    |		Load	0x2,-0x6
068f e5fb       |    |		Load	0x2,-0x5
0690 85fe       |    |		Call	0x2,-0x2
0691 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0692			TRAP_0688:
0692 e026       | &  |		Load	0x0,0x26
0693 010f       |    |		Execute	Exception,Equal
0694 6801       |h   |		Jump_Zero	0x696
0695 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0696 0100       |    |		Execute	Exception,Raise
0697 0000       |    |		.XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 06a3       |    |		.CONST	0x06a3								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b e5fb       |    |		Load	0x2,-0x5
069c e5ff       |    |		Load	0x2,-0x1
069d 8260       | `  |		Call	0x1,0x60
069e 00d1       |    |		Pop_Control	Pop_Count_1
069f e5fb       |    |		Load	0x2,-0x5
06a0 e5fe       |    |		Load	0x2,-0x2
06a1 8260       | `  |		Call	0x1,0x60
06a2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06a3			TRAP_0698:
06a3 e026       | &  |		Load	0x0,0x26
06a4 010f       |    |		Execute	Exception,Equal
06a5 6802       |h   |		Jump_Zero	0x6a8
06a6 00cc       |    |		Action	Pop_Block
06a7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
06a8 0100       |    |		Execute	Exception,Raise
06a9 0000 0000  |    |		.BLANK	0000[0x7]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 06b7       |    |		.CONST	0x06b7								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 e5fc       |    |		Load	0x2,-0x4
06b4 e5ff       |    |		Load	0x2,-0x1
06b5 8260       | `  |		Call	0x1,0x60
06b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06b7			TRAP_06b0:
06b7 e026       | &  |		Load	0x0,0x26
06b8 010f       |    |		Execute	Exception,Equal
06b9 6802       |h   |		Jump_Zero	0x6bc
06ba 00cc       |    |		Action	Pop_Block
06bb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06bc 0100       |    |		Execute	Exception,Raise
06bd ; --------------------------------------------------------------------------------------
06bd ; STRING TABLE
06bd ; --------------------------------------------------------------------------------------
06bd 0020       |    |		.STRTAB	0x0020->0x06cd							; "are compatible"
06be 002c       | ,  |		.STRTAB	0x002c->0x06d4							; "are not compatible"
06bf 003c       | <  |		.STRTAB	0x003c->0x06dd							; "Could not find"
06c0 0048       | H  |		.STRTAB	0x0048->0x06e4							; " declarations in"
06c1 0056       | V  |		.STRTAB	0x0056->0x06ec							; "is not an ada unit"
06c2 0066       | f  |		.STRTAB	0x0066->0x06f5							; "is not an ada spec"
06c3 0076       | v  |		.STRTAB	0x0076->0x06fe							; "is not installed"
06c4 0084       |    |		.STRTAB	0x0084->0x0706							; "does not have a subsystem id"
06c5 009e       |    |		.STRTAB	0x009e->0x0714							; "have different subsystem numbers"
06c6 00bc       |    |		.STRTAB	0x00bc->0x0724							; "does not have a unit number"
06c7 00d5       |    |		.STRTAB	0x00d5->0x0731							; "have different unit numbers"
06c8 00ee       |    |		.STRTAB	0x00ee->0x073f							; "does not have a major coder version"
06c9 010f       |    |		.STRTAB	0x010f->0x0750							; "does not have a minor coder version"
06ca 0130       | 0  |		.STRTAB	0x0130->0x0762							; "were coded with incompatible versions of the code generator"
06cb 0169       | i  |		.STRTAB	0x0169->0x077f							; " has no matching declaration in "
06cc 0187       |    |		.STREND 0x0187->0x078f
06cd 6172 6520  |are |		.STRTAB_STRINGS
0790 ; --------------------------------------------------------------------------------------
0790 ; Debug Table
0790 ; --------------------------------------------------------------------------------------
0790 0004 0007  |    |		.DEBUG4	0x0004,0x0007,0x45ea,0x0000,0x0001,0x0000
0796 09cc aeeb  |    |		.XXX[0x6a]
0798 ea0c 2cec  |  , |
079a a40e 0e4d  |   M|
079c ec6c ac8e  | l  |
079e ae4c a5c4  | L  |
07a0 0409 2cc4  |  , |
07a2 0e8d 0ca4  |    |
07a4 0c6e ae4e  | n N|
07a6 4cad ce84  |L   |
07a8 0e0c 2cec  |  , |
07aa a40d 2e64  |  .d|
07ac 0c2d 8e4c  | - L|
07ae ac2c 8f20  | ,  |
07b0 0000 0340  |   @|
07b2 0000 0824  |   $|
07b4 040c 6c2d  |  l-|
07b6 8d8d 2dcc  |  - |
07b8 e40e 8d0c  |    |
07ba a409 ccae  |    |
07bc ebea 0c2c  |   ,|
07be eca4 0e0e  |    |
07c0 4dec 6cac  |M l |
07c2 8eae 4ca5  |  L |
07c4 c404 092c  |   ,|
07c6 c40e 8d0c  |    |
07c8 a40c 6eae  |  n |
07ca 4e4c adce  |NL  |
07cc 840e 0c2c  |   ,|
07ce eca4 0d2e  |   .|
07d0 640c 2d8e  |d - |
07d2 4cac 2c8f  |L , |
07d4 2000 0003  |    |
07d6 4000 0008  |@   |
07d8 2404 0c6c  |$  l|
07da 2d8d 8d2d  |-  -|
07dc cce4 0e8d  |    |
07de 0ca4 09cc  |    |
07e0 aeeb ea0c  |    |
07e2 2cec a40e  |,   |
07e4 0e4d ec6c  | M l|
07e6 ac8e ae4c  |   L|
07e8 a5c4 0409  |    |
07ea 2cc4 0e8d  |,   |
07ec 0ca4 0c6e  |   n|
07ee ae4e 4cad  | NL |
07f0 ce84 0e0c  |    |
07f2 2cec a40d  |,   |
07f4 2e64 0c2d  |.d -|
07f6 8e4c ac2c  | L ,|
07f8 8f20 0000  |    |
07fa 0bc0 0000  |    |
07fc 068e 8cae  |    |
07fe 4dad 2dcc  |M - |