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

⟦6328de9f6⟧

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

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 05b8       |    |		.CONST	0x05b8								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006a       | j  |		.CONST	0x006a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0030       | 0  |		.CONST	0x0030								; Number of locals
000b			INIT_0008:
000b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000d 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0015 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0017 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0019 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
001b 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
001d 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
001f 00bf       |    |		Action	Accept_Activation
0020 e001       |    |		Load	0x0,0x1
0021 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0022 193b       | ;  |		Execute	Package,Field_Reference,Field_Number 0x3b
0023 0007       |    |		Action	Break_Optional
0024 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call
0026 029d 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call
0028 029d 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call
002a 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call
002c 029d 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call
002e 029d 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call
0030 029d 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call
0032 029d 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call
0034 029d 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call
0036 e002       |    |		Load	0x0,0x2
0037 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
0038 00c6       |    |		Action	Check_Subprogram_Elaborated
0039 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
003a e003       |    |		Load	0x0,0x3
003b e004       |    |		Load	0x0,0x4
003c 4800       |H   |		Short_Literal	0x0
003d 0007       |    |		Action	Break_Optional
003e e002       |    |		Load	0x0,0x2
003f 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
0040 00c6       |    |		Action	Check_Subprogram_Elaborated
0041 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0042 e005       |    |		Load	0x0,0x5
0043 e006       |    |		Load	0x0,0x6
0044 4800       |H   |		Short_Literal	0x0
0045 0007       |    |		Action	Break_Optional
0046 e002       |    |		Load	0x0,0x2
0047 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
0048 00c6       |    |		Action	Check_Subprogram_Elaborated
0049 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
004a e007       |    |		Load	0x0,0x7
004b e008       |    |		Load	0x0,0x8
004c 4800       |H   |		Short_Literal	0x0
004d 0007       |    |		Action	Break_Optional
004e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 029d 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call
0052 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 029d 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call
0056 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
0060 029d 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call
0062 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0069 00c7       |    |		Action	Elaborate_Subprogram
006a			BODY_0008:
006a 00bc       |    |		Action	Signal_Activated
006b 00bb       |    |		Action	Signal_Completion
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007d       | }  |		.CONST	0x007d								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0006       |    |		.CONST	0x0006								; Number of locals
0073			INIT_0070:
0073 e002       |    |		Load	0x0,0x2
0074 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
0075 00c6       |    |		Action	Check_Subprogram_Elaborated
0076 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0077 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "Cant find"
0079 e009       |    |		Load	0x0,0x9
007a e00a       |    |		Load	0x0,0xa
007b 4806       |H   |		Short_Literal	0x6
007c 0007       |    |		Action	Break_Optional
007d			BODY_0070:
007d e5fe       |    |		Load	0x2,-0x2
007e e001       |    |		Load	0x0,0x1
007f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0080 e5ff       |    |		Load	0x2,-0x1
0081 4802       |H   |		Short_Literal	0x2
0082 4802       |H   |		Short_Literal	0x2
0083 0099       |    |		Action	Reference_Dynamic
0084 e403       |    |		Load	0x2,0x3
0085 4804       |H   |		Short_Literal	0x4
0086 4802       |H   |		Short_Literal	0x2
0087 0099       |    |		Action	Reference_Dynamic
0088 e002       |    |		Load	0x0,0x2
0089 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
008a 00d1       |    |		Pop_Control	Pop_Count_1
008b e5fe       |    |		Load	0x2,-0x2
008c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
008d 6802       |h   |		Jump_Zero	0x90
008e e00b       |    |		Load	0x0,0xb
008f 0257       | W  |		Execute	Discrete,Raise
0090 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0091 0000 0000  |    |		.BLANK	0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a5       |    |		.CONST	0x00a5								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0006       |    |		.CONST	0x0006								; Number of locals
009b			INIT_0098:
009b e002       |    |		Load	0x0,0x2
009c 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
009d 00c6       |    |		Action	Check_Subprogram_Elaborated
009e 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
009f 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "Cant find"
00a1 e00c       |    |		Load	0x0,0xc
00a2 e00d       |    |		Load	0x0,0xd
00a3 4806       |H   |		Short_Literal	0x6
00a4 0007       |    |		Action	Break_Optional
00a5			BODY_0098:
00a5 e5fe       |    |		Load	0x2,-0x2
00a6 e001       |    |		Load	0x0,0x1
00a7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00a8 e5ff       |    |		Load	0x2,-0x1
00a9 4802       |H   |		Short_Literal	0x2
00aa 4802       |H   |		Short_Literal	0x2
00ab 0099       |    |		Action	Reference_Dynamic
00ac e403       |    |		Load	0x2,0x3
00ad 4804       |H   |		Short_Literal	0x4
00ae 4802       |H   |		Short_Literal	0x2
00af 0099       |    |		Action	Reference_Dynamic
00b0 e002       |    |		Load	0x0,0x2
00b1 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00b2 00d1       |    |		Pop_Control	Pop_Count_1
00b3 e5fe       |    |		Load	0x2,-0x2
00b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b5 6802       |h   |		Jump_Zero	0xb8
00b6 e00b       |    |		Load	0x0,0xb
00b7 0257       | W  |		Execute	Discrete,Raise
00b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d1       |    |		.CONST	0x00d1								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0007       |    |		.CONST	0x0007								; Number of locals
00c3			INIT_00c0:
00c3 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
00c5 e002       |    |		Load	0x0,0x2
00c6 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
00c7 00c6       |    |		Action	Check_Subprogram_Elaborated
00c8 4802       |H   |		Short_Literal	0x2
00c9 4802       |H   |		Short_Literal	0x2
00ca 0099       |    |		Action	Reference_Dynamic
00cb 0092 04d9  |    |		Action	Push_String_Extended,0x4d9					; "Cant find"
00cd e00e       |    |		Load	0x0,0xe
00ce e00f       |    |		Load	0x0,0xf
00cf 4807       |H   |		Short_Literal	0x7
00d0 0007       |    |		Action	Break_Optional
00d1			BODY_00c0:
00d1 e5fe       |    |		Load	0x2,-0x2
00d2 e001       |    |		Load	0x0,0x1
00d3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 4803       |H   |		Short_Literal	0x3
00d6 4802       |H   |		Short_Literal	0x2
00d7 0099       |    |		Action	Reference_Dynamic
00d8 e404       |    |		Load	0x2,0x4
00d9 4805       |H   |		Short_Literal	0x5
00da 4802       |H   |		Short_Literal	0x2
00db 0099       |    |		Action	Reference_Dynamic
00dc e002       |    |		Load	0x0,0x2
00dd 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00de 00d1       |    |		Pop_Control	Pop_Count_1
00df e5fe       |    |		Load	0x2,-0x2
00e0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e1 6802       |h   |		Jump_Zero	0xe4
00e2 e00b       |    |		Load	0x0,0xb
00e3 0257       | W  |		Execute	Discrete,Raise
00e4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f1       |    |		.CONST	0x00f1								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0003       |    |		.CONST	0x0003								; Number of locals
00eb			INIT_00e8:
00eb e001       |    |		Load	0x0,0x1
00ec 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00ed 02ff       |    |		Declare_Variable	Variant_Record
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f0 00e1       |    |		Load_Encached	Boolean_Cache
00f1			BODY_00e8:
00f1 00e1       |    |		Load_Encached	Boolean_Cache
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 e5ff       |    |		Load	0x2,-0x1
00f4 e5fe       |    |		Load	0x2,-0x2
00f5 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
00f6 e010       |    |		Load	0x0,0x10
00f7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00f8 00d1       |    |		Pop_Control	Pop_Count_1
00f9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 e011       |    |		Load	0x0,0x11
0105 1b6a       | j  |		Execute	Package,Field_Read,Field_Number 0x6a
0106 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0107 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0112       |    |		.CONST	0x0112								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c e5fd       |    |		Load	0x2,-0x3
010d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
010e e012       |    |		Load	0x0,0x12
010f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0110 c5fe       |    |		Store	0x2,-0x2
0111 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0112			TRAP_0108:
0112 e012       |    |		Load	0x0,0x12
0113 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0114 010f       |    |		Execute	Exception,Equal
0115 6809       |h   |		Jump_Zero	0x11f
0116 e5fd       |    |		Load	0x2,-0x3
0117 e5ff       |    |		Load	0x2,-0x1
0118 0092 04da  |    |		Action	Push_String_Extended,0x4da					; "Could not get enclosing subsystem for"
011a e013       |    |		Load	0x0,0x13
011b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
011c e014       |    |		Load	0x0,0x14
011d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
011e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011f 0100       |    |		Execute	Exception,Raise
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0128       | (  |		.CONST	0x0128								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 e001       |    |		Load	0x0,0x1
0124 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0125 02c7       |    |		Declare_Variable	Any
0126 00d8       |    |		Load_Top	At_Offset_0
0127 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0128			BODY_0120:
0128 e5fd       |    |		Load	0x2,-0x3
0129 00d9       |    |		Load_Top	At_Offset_1
012a 0120       |    |		Execute	Any,Is_Value
012b 6803       |h   |		Jump_Zero	0x12f
012c e001       |    |		Load	0x0,0x1
012d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
012e 7801       |x   |		Jump	0x130
012f 00d9       |    |		Load_Top	At_Offset_1
0130 e5ff       |    |		Load	0x2,-0x1
0131 8212       |    |		Call	0x1,0x12
0132 c402       |    |		Store	0x2,0x2
0133 00d1       |    |		Pop_Control	Pop_Count_1
0134 e5fd       |    |		Load	0x2,-0x3
0135 e5fe       |    |		Load	0x2,-0x2
0136 0120       |    |		Execute	Any,Is_Value
0137 6803       |h   |		Jump_Zero	0x13b
0138 e001       |    |		Load	0x0,0x1
0139 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
013a 7801       |x   |		Jump	0x13c
013b e5fe       |    |		Load	0x2,-0x2
013c 00da       |    |		Load_Top	At_Offset_2
013d e5ff       |    |		Load	0x2,-0x1
013e 822f       | /  |		Call	0x1,0x2f
013f c5fe       |    |		Store	0x2,-0x2
0140 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0141 0000 0000  |    |		.BLANK	0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0159       | Y  |		.CONST	0x0159								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0005       |    |		.CONST	0x0005								; Number of locals
014b			INIT_0148:
014b e001       |    |		Load	0x0,0x1
014c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
014d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
014e e001       |    |		Load	0x0,0x1
014f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0150 e001       |    |		Load	0x0,0x1
0151 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0152 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0153 0092 04db  |    |		Action	Push_String_Extended,0x4db					; "'L(INTERNAL)."
0155 e5ff       |    |		Load	0x2,-0x1
0156 8217       |    |		Call	0x1,0x17
0157 01cc       |    |		Execute	Vector,Catenate
0158 0007       |    |		Action	Break_Optional
0159			BODY_0148:
0159 e001       |    |		Load	0x0,0x1
015a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015b e001       |    |		Load	0x0,0x1
015c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
015e 6061       |`a  |		Indirect_Literal	Discrete,0x1c0,{0x00000000, 0x00004000}
015f e5fc       |    |		Load	0x2,-0x4
0160 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0161 4800       |H   |		Short_Literal	0x0
0162 e5fe       |    |		Load	0x2,-0x2
0163 e001       |    |		Load	0x0,0x1
0164 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0165 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0166 c402       |    |		Store	0x2,0x2
0167 005b       | [  |		Store_Top	Discrete,At_Offset_3
0168 00da       |    |		Load_Top	At_Offset_2
0169 e002       |    |		Load	0x0,0x2
016a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
016b 700a       |p   |		Jump_Nonzero	0x176
016c e5fc       |    |		Load	0x2,-0x4
016d 00db       |    |		Load_Top	At_Offset_3
016e e5fe       |    |		Load	0x2,-0x2
016f 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "Could not establish naming context for"
0171 e013       |    |		Load	0x0,0x13
0172 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0173 e014       |    |		Load	0x0,0x14
0174 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0175 00d1       |    |		Pop_Control	Pop_Count_1
0176 e001       |    |		Load	0x0,0x1
0177 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0178 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0179 e5fd       |    |		Load	0x2,-0x3
017a 0120       |    |		Execute	Any,Is_Value
017b 6803       |h   |		Jump_Zero	0x17f
017c e001       |    |		Load	0x0,0x1
017d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017e 7801       |x   |		Jump	0x180
017f e5fd       |    |		Load	0x2,-0x3
0180 603f       |`?  |		Indirect_Literal	Discrete,0x1c0,{0x00000000, 0x00004000}
0181 e5fc       |    |		Load	0x2,-0x4
0182 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0183 e402       |    |		Load	0x2,0x2
0184 e405       |    |		Load	0x2,0x5
0185 e001       |    |		Load	0x0,0x1
0186 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0187 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0188 c5fd       |    |		Store	0x2,-0x3
0189 005a       | Z  |		Store_Top	Discrete,At_Offset_2
018a 00d9       |    |		Load_Top	At_Offset_1
018b 460e       |F   |		Jump_Case	0xf
018c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
018d 780d       |x   |		Jump	0x19b								; case 0x1
018e 780c       |x   |		Jump	0x19b								; case 0x2
018f 7827       |x'  |		Jump	0x1b7								; case 0x3
0190 780a       |x   |		Jump	0x19b								; case 0x4
0191 7809       |x   |		Jump	0x19b								; case 0x5
0192 7808       |x   |		Jump	0x19b								; case 0x6
0193 7807       |x   |		Jump	0x19b								; case 0x7
0194 7806       |x   |		Jump	0x19b								; case 0x8
0195 7805       |x   |		Jump	0x19b								; case 0x9
0196 7804       |x   |		Jump	0x19b								; case 0xa
0197 7803       |x   |		Jump	0x19b								; case 0xb
0198 7802       |x   |		Jump	0x19b								; case 0xc
0199 7801       |x   |		Jump	0x19b								; case 0xd
019a 7800       |x   |		Jump	0x19b								; case 0xe
019b e5fc       |    |		Load	0x2,-0x4
019c 0092 04dd  |    |		Action	Push_String_Extended,0x4dd					; "because "
019e 6021       |`!  |		Indirect_Literal	Discrete,0x1c0,{0x00000000, 0x00004000}
019f e5fc       |    |		Load	0x2,-0x4
01a0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01a1 e015       |    |		Load	0x0,0x15
01a2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01a3 e016       |    |		Load	0x0,0x16
01a4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01a5 4801       |H   |		Short_Literal	0x1
01a6 4800       |H   |		Short_Literal	0x0
01a7 e402       |    |		Load	0x2,0x2
01a8 e405       |    |		Load	0x2,0x5
01a9 e404       |    |		Load	0x2,0x4
01aa e001       |    |		Load	0x0,0x1
01ab 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01ac 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
01ad 01cc       |    |		Execute	Vector,Catenate
01ae e5ff       |    |		Load	0x2,-0x1
01af 0092 04de  |    |		Action	Push_String_Extended,0x4de					; "Could not find corresponding unit for"
01b1 e013       |    |		Load	0x0,0x13
01b2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01b3 e014       |    |		Load	0x0,0x14
01b4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01b5 00d1       |    |		Pop_Control	Pop_Count_1
01b6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b7 e5fc       |    |		Load	0x2,-0x4
01b8 e5fe       |    |		Load	0x2,-0x2
01b9 e5ff       |    |		Load	0x2,-0x1
01ba 821a       |    |		Call	0x1,0x1a
01bb 00d1       |    |		Pop_Control	Pop_Count_1
01bc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d0       |    |		.CONST	0x01d0								; Address of begin
01c9 01e9       |    |		.CONST	0x01e9								; Address of exception handler
01ca 0002       |    |		.CONST	0x0002								; Number of locals
01cb			INIT_01c8:
01cb e001       |    |		Load	0x0,0x1
01cc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01cd 02ff       |    |		Declare_Variable	Variant_Record
01ce 00d8       |    |		Load_Top	At_Offset_0
01cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d0			BODY_01c8:
01d0 e5fe       |    |		Load	0x2,-0x2
01d1 e5fc       |    |		Load	0x2,-0x4
01d2 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01d3 e010       |    |		Load	0x0,0x10
01d4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01d5 00d9       |    |		Load_Top	At_Offset_1
01d6 016d       | m  |		Execute	Variant_Record,Structure_Write
01d7 e5fc       |    |		Load	0x2,-0x4
01d8 e5fd       |    |		Load	0x2,-0x3
01d9 0120       |    |		Execute	Any,Is_Value
01da 6803       |h   |		Jump_Zero	0x1de
01db e017       |    |		Load	0x0,0x17
01dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01dd 7801       |x   |		Jump	0x1df
01de e5fd       |    |		Load	0x2,-0x3
01df 00da       |    |		Load_Top	At_Offset_2
01e0 e018       |    |		Load	0x0,0x18
01e1 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01e2 0162       | b  |		Execute	Variant_Record,Check_In_Type
01e3 e5fe       |    |		Load	0x2,-0x2
01e4 e5ff       |    |		Load	0x2,-0x1
01e5 e002       |    |		Load	0x0,0x2
01e6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01e7 c5fd       |    |		Store	0x2,-0x3
01e8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e9			TRAP_01c8:
01e9 e010       |    |		Load	0x0,0x10
01ea 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
01eb 010f       |    |		Execute	Exception,Equal
01ec 6805       |h   |		Jump_Zero	0x1f2
01ed e5fc       |    |		Load	0x2,-0x4
01ee e5fe       |    |		Load	0x2,-0x2
01ef e5ff       |    |		Load	0x2,-0x1
01f0 821a       |    |		Call	0x1,0x1a
01f1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f2 0100       |    |		Execute	Exception,Raise
01f3 0000 0000  |    |		.BLANK	0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0209       |    |		.CONST	0x0209								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e5fc       |    |		Load	0x2,-0x4
01fc e5fd       |    |		Load	0x2,-0x3
01fd 0120       |    |		Execute	Any,Is_Value
01fe 6803       |h   |		Jump_Zero	0x202
01ff e011       |    |		Load	0x0,0x11
0200 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0201 7801       |x   |		Jump	0x203
0202 e5fd       |    |		Load	0x2,-0x3
0203 e5fe       |    |		Load	0x2,-0x2
0204 e5ff       |    |		Load	0x2,-0x1
0205 e002       |    |		Load	0x0,0x2
0206 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0207 c5fd       |    |		Store	0x2,-0x3
0208 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0209			TRAP_01f8:
0209 0007       |    |		Action	Break_Optional
020a e5fc       |    |		Load	0x2,-0x4
020b e5fe       |    |		Load	0x2,-0x2
020c e5ff       |    |		Load	0x2,-0x1
020d 821a       |    |		Call	0x1,0x1a
020e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020f 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
0214 e002       |    |		Load	0x0,0x2
0215 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0216 680e       |h   |		Jump_Zero	0x225
0217 e5fd       |    |		Load	0x2,-0x3
0218 00ea       |    |		Load_Encached	Null_String_Cache
0219 e5fe       |    |		Load	0x2,-0x2
021a 0092 04df  |    |		Action	Push_String_Extended,0x4df					; "specified for subsystem"
021c e5ff       |    |		Load	0x2,-0x1
021d 0092 04e0  |    |		Action	Push_String_Extended,0x4e0					; "Duplicate spec view"
021f e013       |    |		Load	0x0,0x13
0220 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0221 e014       |    |		Load	0x0,0x14
0222 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0223 00d1       |    |		Pop_Control	Pop_Count_1
0224 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0225 e5fd       |    |		Load	0x2,-0x3
0226 00ea       |    |		Load_Encached	Null_String_Cache
0227 e5fe       |    |		Load	0x2,-0x2
0228 0092 04df  |    |		Action	Push_String_Extended,0x4df					; "specified for subsystem"
022a e5ff       |    |		Load	0x2,-0x1
022b 0092 04e1  |    |		Action	Push_String_Extended,0x4e1					; "Duplicate load view"
022d e013       |    |		Load	0x0,0x13
022e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
022f e014       |    |		Load	0x0,0x14
0230 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0231 00d1       |    |		Pop_Control	Pop_Count_1
0232 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0233 0000 0000  |    |		.BLANK	0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b 00da       |    |		Load_Top	At_Offset_2
023c e002       |    |		Load	0x0,0x2
023d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
023e 680b       |h   |		Jump_Zero	0x24a
023f 00db       |    |		Load_Top	At_Offset_3
0240 00db       |    |		Load_Top	At_Offset_3
0241 0092 04e2  |    |		Action	Push_String_Extended,0x4e2					; "No corresponding load view found for"
0243 e013       |    |		Load	0x0,0x13
0244 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0245 e5ff       |    |		Load	0x2,-0x1
0246 e014       |    |		Load	0x0,0x14
0247 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0248 00d1       |    |		Pop_Control	Pop_Count_1
0249 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024a 00db       |    |		Load_Top	At_Offset_3
024b 00db       |    |		Load_Top	At_Offset_3
024c 0092 04e3  |    |		Action	Push_String_Extended,0x4e3					; "No corresponding spec view found for"
024e e013       |    |		Load	0x0,0x13
024f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0250 e5ff       |    |		Load	0x2,-0x1
0251 e014       |    |		Load	0x0,0x14
0252 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0253 00d1       |    |		Pop_Control	Pop_Count_1
0254 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e5fd       |    |		Load	0x2,-0x3
025c 00ea       |    |		Load_Encached	Null_String_Cache
025d e5fe       |    |		Load	0x2,-0x2
025e 0092 04e4  |    |		Action	Push_String_Extended,0x4e4					; "in view"
0260 e5ff       |    |		Load	0x2,-0x1
0261 0092 04e5  |    |		Action	Push_String_Extended,0x4e5					; "No corresponding unit found for"
0263 e013       |    |		Load	0x0,0x13
0264 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0265 e5ff       |    |		Load	0x2,-0x1
0266 e014       |    |		Load	0x0,0x14
0267 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0268 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0282       |    |		.CONST	0x0282								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0006       |    |		.CONST	0x0006								; Number of locals
0273			INIT_0270:
0273 0092 04e6  |    |		Action	Push_String_Extended,0x4e6					; "Code_Database"
0275 e001       |    |		Load	0x0,0x1
0276 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0277 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0278 e001       |    |		Load	0x0,0x1
0279 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027a e001       |    |		Load	0x0,0x1
027b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
027c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
027d e001       |    |		Load	0x0,0x1
027e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
027f 02ff       |    |		Declare_Variable	Variant_Record
0280 00d8       |    |		Load_Top	At_Offset_0
0281 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0282			BODY_0270:
0282 e018       |    |		Load	0x0,0x18
0283 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0284 e019       |    |		Load	0x0,0x19
0285 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0286 e5fe       |    |		Load	0x2,-0x2
0287 016d       | m  |		Execute	Variant_Record,Structure_Write
0288 4800       |H   |		Short_Literal	0x0
0289 a5fd       |    |		Store_Unchecked	0x2,-0x3
028a e001       |    |		Load	0x0,0x1
028b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028c e001       |    |		Load	0x0,0x1
028d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
028e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
028f 605c       |`\  |		Indirect_Literal	Discrete,0x2ec,{0x00000000, 0x00004000}
0290 e5fc       |    |		Load	0x2,-0x4
0291 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0292 4800       |H   |		Short_Literal	0x0
0293 e5ff       |    |		Load	0x2,-0x1
0294 e001       |    |		Load	0x0,0x1
0295 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0296 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0297 c403       |    |		Store	0x2,0x3
0298 005b       | [  |		Store_Top	Discrete,At_Offset_3
0299 00da       |    |		Load_Top	At_Offset_2
029a e002       |    |		Load	0x0,0x2
029b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
029c 700a       |p   |		Jump_Nonzero	0x2a7
029d e5fc       |    |		Load	0x2,-0x4
029e 00db       |    |		Load_Top	At_Offset_3
029f e5ff       |    |		Load	0x2,-0x1
02a0 0092 04dc  |    |		Action	Push_String_Extended,0x4dc					; "Could not establish naming context for"
02a2 e013       |    |		Load	0x0,0x13
02a3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02a4 e014       |    |		Load	0x0,0x14
02a5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02a6 00d1       |    |		Pop_Control	Pop_Count_1
02a7 e001       |    |		Load	0x0,0x1
02a8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02a9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02aa 00d9       |    |		Load_Top	At_Offset_1
02ab 6040       |`@  |		Indirect_Literal	Discrete,0x2ec,{0x00000000, 0x00004000}
02ac e5fc       |    |		Load	0x2,-0x4
02ad 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ae 4800       |H   |		Short_Literal	0x0
02af e403       |    |		Load	0x2,0x3
02b0 e402       |    |		Load	0x2,0x2
02b1 e001       |    |		Load	0x0,0x1
02b2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02b3 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
02b4 00d1       |    |		Pop_Control	Pop_Count_1
02b5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 460e       |F   |		Jump_Case	0xf
02b8 782a       |x*  |		Jump	0x2e3								; case 0x0
02b9 780d       |x   |		Jump	0x2c7								; case 0x1
02ba 780c       |x   |		Jump	0x2c7								; case 0x2
02bb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x3
02bc 780a       |x   |		Jump	0x2c7								; case 0x4
02bd 7809       |x   |		Jump	0x2c7								; case 0x5
02be 7808       |x   |		Jump	0x2c7								; case 0x6
02bf 7807       |x   |		Jump	0x2c7								; case 0x7
02c0 7806       |x   |		Jump	0x2c7								; case 0x8
02c1 7805       |x   |		Jump	0x2c7								; case 0x9
02c2 7804       |x   |		Jump	0x2c7								; case 0xa
02c3 7803       |x   |		Jump	0x2c7								; case 0xb
02c4 7802       |x   |		Jump	0x2c7								; case 0xc
02c5 7801       |x   |		Jump	0x2c7								; case 0xd
02c6 7800       |x   |		Jump	0x2c7								; case 0xe
02c7 e5fc       |    |		Load	0x2,-0x4
02c8 0092 04e7  |    |		Action	Push_String_Extended,0x4e7					; " because "
02ca 6021       |`!  |		Indirect_Literal	Discrete,0x2ec,{0x00000000, 0x00004000}
02cb e5fc       |    |		Load	0x2,-0x4
02cc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cd e015       |    |		Load	0x0,0x15
02ce 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02cf e016       |    |		Load	0x0,0x16
02d0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02d1 4801       |H   |		Short_Literal	0x1
02d2 4800       |H   |		Short_Literal	0x0
02d3 e403       |    |		Load	0x2,0x3
02d4 e402       |    |		Load	0x2,0x2
02d5 e405       |    |		Load	0x2,0x5
02d6 e001       |    |		Load	0x0,0x1
02d7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02d8 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
02d9 01cc       |    |		Execute	Vector,Catenate
02da e5ff       |    |		Load	0x2,-0x1
02db 0092 04e8  |    |		Action	Push_String_Extended,0x4e8					; "Could not get code database for"
02dd e013       |    |		Load	0x0,0x13
02de 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02df e014       |    |		Load	0x0,0x14
02e0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02e1 00d1       |    |		Pop_Control	Pop_Count_1
02e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02e3 00d8       |    |		Load_Top	At_Offset_0
02e4 e018       |    |		Load	0x0,0x18
02e5 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
02e6 0162       | b  |		Execute	Variant_Record,Check_In_Type
02e7 e5fe       |    |		Load	0x2,-0x2
02e8 016d       | m  |		Execute	Variant_Record,Structure_Write
02e9 4801       |H   |		Short_Literal	0x1
02ea a5fd       |    |		Store_Unchecked	0x2,-0x3
02eb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f7       |    |		.CONST	0x02f7								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0003       |    |		.CONST	0x0003								; Number of locals
02f3			INIT_02f0:
02f3 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
02f5 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
02f7			BODY_02f0:
02f7 8402       |    |		Call	0x2,0x2
02f8 8403       |    |		Call	0x2,0x3
02f9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fa 0000 0000  |    |		.BLANK	0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0309       |    |		.CONST	0x0309								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0004       |    |		.CONST	0x0004								; Number of locals
0303			INIT_0300:
0303 029f 048b  |    |		Declare_Subprogram	INIT_0488,For_Call
0305 029f 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Call
0307 029f 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Call
0309			BODY_0300:
0309 8402       |    |		Call	0x2,0x2
030a 8403       |    |		Call	0x2,0x3
030b 8404       |    |		Call	0x2,0x4
030c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030d 0000 0000  |    |		.XXX[0x3]
030f 0000       |    |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00db       |    |		Load_Top	At_Offset_3
0314 e001       |    |		Load	0x0,0x1
0315 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0316 7005       |p   |		Jump_Nonzero	0x31c
0317 e5fc       |    |		Load	0x2,-0x4
0318 00db       |    |		Load_Top	At_Offset_3
0319 e5fe       |    |		Load	0x2,-0x2
031a 821c       |    |		Call	0x1,0x1c
031b 00d1       |    |		Pop_Control	Pop_Count_1
031c e5fd       |    |		Load	0x2,-0x3
031d e001       |    |		Load	0x0,0x1
031e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
031f 7005       |p   |		Jump_Nonzero	0x325
0320 e5fc       |    |		Load	0x2,-0x4
0321 00db       |    |		Load_Top	At_Offset_3
0322 e5fd       |    |		Load	0x2,-0x3
0323 821d       |    |		Call	0x1,0x1d
0324 00d1       |    |		Pop_Control	Pop_Count_1
0325 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00db       |    |		Load_Top	At_Offset_3
032c e001       |    |		Load	0x0,0x1
032d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
032e 7005       |p   |		Jump_Nonzero	0x334
032f e5fc       |    |		Load	0x2,-0x4
0330 00db       |    |		Load_Top	At_Offset_3
0331 e5fe       |    |		Load	0x2,-0x2
0332 821c       |    |		Call	0x1,0x1c
0333 00d1       |    |		Pop_Control	Pop_Count_1
0334 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0335 0000 0000  |    |		.XXX[0x3]
0337 0000       |    |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b e5fd       |    |		Load	0x2,-0x3
033c e001       |    |		Load	0x0,0x1
033d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
033e 7005       |p   |		Jump_Nonzero	0x344
033f e5fc       |    |		Load	0x2,-0x4
0340 00db       |    |		Load_Top	At_Offset_3
0341 e5fd       |    |		Load	0x2,-0x3
0342 821d       |    |		Call	0x1,0x1d
0343 00d1       |    |		Pop_Control	Pop_Count_1
0344 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0345 0000 0000  |    |		.XXX[0x3]
0347 0000       |    |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0355       | U  |		.CONST	0x0355								; Address of begin
0349 03a8       |    |		.CONST	0x03a8								; Address of exception handler
034a 0003       |    |		.CONST	0x0003								; Number of locals
034b			INIT_0348:
034b e001       |    |		Load	0x0,0x1
034c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034d 02c7       |    |		Declare_Variable	Any
034e 00d8       |    |		Load_Top	At_Offset_0
034f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0350 e001       |    |		Load	0x0,0x1
0351 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0352 02c7       |    |		Declare_Variable	Any
0353 00d8       |    |		Load_Top	At_Offset_0
0354 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0355			BODY_0348:
0355 e5ff       |    |		Load	0x2,-0x1
0356 e002       |    |		Load	0x0,0x2
0357 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0358 6820       |h   |		Jump_Zero	0x379
0359 e5fe       |    |		Load	0x2,-0x2
035a 00da       |    |		Load_Top	At_Offset_2
035b 0120       |    |		Execute	Any,Is_Value
035c 6803       |h   |		Jump_Zero	0x360
035d e001       |    |		Load	0x0,0x1
035e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
035f 7801       |x   |		Jump	0x361
0360 00da       |    |		Load_Top	At_Offset_2
0361 e5ff       |    |		Load	0x2,-0x1
0362 e002       |    |		Load	0x0,0x2
0363 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0364 c402       |    |		Store	0x2,0x2
0365 00d1       |    |		Pop_Control	Pop_Count_1
0366 e5fe       |    |		Load	0x2,-0x2
0367 00d9       |    |		Load_Top	At_Offset_1
0368 0120       |    |		Execute	Any,Is_Value
0369 6803       |h   |		Jump_Zero	0x36d
036a e001       |    |		Load	0x0,0x1
036b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
036c 7801       |x   |		Jump	0x36e
036d 00d9       |    |		Load_Top	At_Offset_1
036e 00db       |    |		Load_Top	At_Offset_3
036f e002       |    |		Load	0x0,0x2
0370 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0371 c403       |    |		Store	0x2,0x3
0372 00d1       |    |		Pop_Control	Pop_Count_1
0373 e5fe       |    |		Load	0x2,-0x2
0374 00d9       |    |		Load_Top	At_Offset_1
0375 00db       |    |		Load_Top	At_Offset_3
0376 821c       |    |		Call	0x1,0x1c
0377 00d1       |    |		Pop_Control	Pop_Count_1
0378 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0379 e5ff       |    |		Load	0x2,-0x1
037a e002       |    |		Load	0x0,0x2
037b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
037c 6815       |h   |		Jump_Zero	0x392
037d e5ff       |    |		Load	0x2,-0x1
037e c402       |    |		Store	0x2,0x2
037f e5fe       |    |		Load	0x2,-0x2
0380 00d9       |    |		Load_Top	At_Offset_1
0381 0120       |    |		Execute	Any,Is_Value
0382 6803       |h   |		Jump_Zero	0x386
0383 e001       |    |		Load	0x0,0x1
0384 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0385 7801       |x   |		Jump	0x387
0386 00d9       |    |		Load_Top	At_Offset_1
0387 e5ff       |    |		Load	0x2,-0x1
0388 e002       |    |		Load	0x0,0x2
0389 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
038a c403       |    |		Store	0x2,0x3
038b 00d1       |    |		Pop_Control	Pop_Count_1
038c e5fe       |    |		Load	0x2,-0x2
038d 00d9       |    |		Load_Top	At_Offset_1
038e 00db       |    |		Load_Top	At_Offset_3
038f 821c       |    |		Call	0x1,0x1c
0390 00d1       |    |		Pop_Control	Pop_Count_1
0391 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0392 e5ff       |    |		Load	0x2,-0x1
0393 e002       |    |		Load	0x0,0x2
0394 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0395 6808       |h   |		Jump_Zero	0x39e
0396 e5fe       |    |		Load	0x2,-0x2
0397 e5ff       |    |		Load	0x2,-0x1
0398 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0399 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
039a e002       |    |		Load	0x0,0x2
039b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
039c 00d1       |    |		Pop_Control	Pop_Count_1
039d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
039e e5fe       |    |		Load	0x2,-0x2
039f 0092 04e9  |    |		Action	Push_String_Extended,0x4e9					; "is not an ada unit, view or activity"
03a1 e5ff       |    |		Load	0x2,-0x1
03a2 e013       |    |		Load	0x0,0x13
03a3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a4 e014       |    |		Load	0x0,0x14
03a5 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03a6 00d1       |    |		Pop_Control	Pop_Count_1
03a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a8			TRAP_0348:
03a8 e00b       |    |		Load	0x0,0xb
03a9 010f       |    |		Execute	Exception,Equal
03aa 6801       |h   |		Jump_Zero	0x3ac
03ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ac 0100       |    |		Execute	Exception,Raise
03ad 0000 0000  |    |		.XXX[0x3]
03af 0000       |    |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03bd       |    |		.CONST	0x03bd								; Address of begin
03b1 0410       |    |		.CONST	0x0410								; Address of exception handler
03b2 0003       |    |		.CONST	0x0003								; Number of locals
03b3			INIT_03b0:
03b3 e001       |    |		Load	0x0,0x1
03b4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b5 02c7       |    |		Declare_Variable	Any
03b6 00d8       |    |		Load_Top	At_Offset_0
03b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b8 e001       |    |		Load	0x0,0x1
03b9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ba 02c7       |    |		Declare_Variable	Any
03bb 00d8       |    |		Load_Top	At_Offset_0
03bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03bd			BODY_03b0:
03bd e5ff       |    |		Load	0x2,-0x1
03be e002       |    |		Load	0x0,0x2
03bf 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03c0 6820       |h   |		Jump_Zero	0x3e1
03c1 e5fe       |    |		Load	0x2,-0x2
03c2 00da       |    |		Load_Top	At_Offset_2
03c3 0120       |    |		Execute	Any,Is_Value
03c4 6803       |h   |		Jump_Zero	0x3c8
03c5 e001       |    |		Load	0x0,0x1
03c6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03c7 7801       |x   |		Jump	0x3c9
03c8 00da       |    |		Load_Top	At_Offset_2
03c9 e5ff       |    |		Load	0x2,-0x1
03ca e002       |    |		Load	0x0,0x2
03cb 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03cc c402       |    |		Store	0x2,0x2
03cd 00d1       |    |		Pop_Control	Pop_Count_1
03ce e5fe       |    |		Load	0x2,-0x2
03cf 00d9       |    |		Load_Top	At_Offset_1
03d0 0120       |    |		Execute	Any,Is_Value
03d1 6803       |h   |		Jump_Zero	0x3d5
03d2 e001       |    |		Load	0x0,0x1
03d3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03d4 7801       |x   |		Jump	0x3d6
03d5 00d9       |    |		Load_Top	At_Offset_1
03d6 00db       |    |		Load_Top	At_Offset_3
03d7 e002       |    |		Load	0x0,0x2
03d8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03d9 c403       |    |		Store	0x2,0x3
03da 00d1       |    |		Pop_Control	Pop_Count_1
03db e5fe       |    |		Load	0x2,-0x2
03dc 00d9       |    |		Load_Top	At_Offset_1
03dd 00db       |    |		Load_Top	At_Offset_3
03de 821d       |    |		Call	0x1,0x1d
03df 00d1       |    |		Pop_Control	Pop_Count_1
03e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e1 e5ff       |    |		Load	0x2,-0x1
03e2 e002       |    |		Load	0x0,0x2
03e3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03e4 6815       |h   |		Jump_Zero	0x3fa
03e5 e5ff       |    |		Load	0x2,-0x1
03e6 c402       |    |		Store	0x2,0x2
03e7 e5fe       |    |		Load	0x2,-0x2
03e8 00d9       |    |		Load_Top	At_Offset_1
03e9 0120       |    |		Execute	Any,Is_Value
03ea 6803       |h   |		Jump_Zero	0x3ee
03eb e001       |    |		Load	0x0,0x1
03ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ed 7801       |x   |		Jump	0x3ef
03ee 00d9       |    |		Load_Top	At_Offset_1
03ef e5ff       |    |		Load	0x2,-0x1
03f0 e002       |    |		Load	0x0,0x2
03f1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03f2 c403       |    |		Store	0x2,0x3
03f3 00d1       |    |		Pop_Control	Pop_Count_1
03f4 e5fe       |    |		Load	0x2,-0x2
03f5 00d9       |    |		Load_Top	At_Offset_1
03f6 00db       |    |		Load_Top	At_Offset_3
03f7 821d       |    |		Call	0x1,0x1d
03f8 00d1       |    |		Pop_Control	Pop_Count_1
03f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03fa e5ff       |    |		Load	0x2,-0x1
03fb e002       |    |		Load	0x0,0x2
03fc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03fd 6808       |h   |		Jump_Zero	0x406
03fe e5fe       |    |		Load	0x2,-0x2
03ff e5ff       |    |		Load	0x2,-0x1
0400 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0401 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0402 e002       |    |		Load	0x0,0x2
0403 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0404 00d1       |    |		Pop_Control	Pop_Count_1
0405 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0406 e5fe       |    |		Load	0x2,-0x2
0407 0092 04e9  |    |		Action	Push_String_Extended,0x4e9					; "is not an ada unit, view or activity"
0409 e5ff       |    |		Load	0x2,-0x1
040a e013       |    |		Load	0x0,0x13
040b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
040c e014       |    |		Load	0x0,0x14
040d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
040e 00d1       |    |		Pop_Control	Pop_Count_1
040f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0410			TRAP_03b0:
0410 e00b       |    |		Load	0x0,0xb
0411 010f       |    |		Execute	Exception,Equal
0412 6801       |h   |		Jump_Zero	0x414
0413 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0414 0100       |    |		Execute	Exception,Raise
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0422       | "  |		.CONST	0x0422								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00db       |    |		Load_Top	At_Offset_3
041c e5fc       |    |		Load	0x2,-0x4
041d 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
041e e012       |    |		Load	0x0,0x12
041f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0420 c5fd       |    |		Store	0x2,-0x3
0421 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0422			TRAP_0418:
0422 e012       |    |		Load	0x0,0x12
0423 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0424 010f       |    |		Execute	Exception,Equal
0425 6804       |h   |		Jump_Zero	0x42a
0426 e5fc       |    |		Load	0x2,-0x4
0427 e5ff       |    |		Load	0x2,-0x1
0428 8219       |    |		Call	0x1,0x19
0429 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
042a 0100       |    |		Execute	Exception,Raise
042b 0000 0000  |    |		.BLANK	0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 043a       | :  |		.CONST	0x043a								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00db       |    |		Load_Top	At_Offset_3
0434 e5fc       |    |		Load	0x2,-0x4
0435 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0436 e012       |    |		Load	0x0,0x12
0437 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0438 c5fd       |    |		Store	0x2,-0x3
0439 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
043a			TRAP_0430:
043a e012       |    |		Load	0x0,0x12
043b 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
043c 010f       |    |		Execute	Exception,Equal
043d 6804       |h   |		Jump_Zero	0x442
043e e5fc       |    |		Load	0x2,-0x4
043f e5ff       |    |		Load	0x2,-0x1
0440 8219       |    |		Call	0x1,0x19
0441 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0442 0100       |    |		Execute	Exception,Raise
0443 0000 0000  |    |		.BLANK	0000[0x5]
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 00db       |    |		Load_Top	At_Offset_3
044c 00db       |    |		Load_Top	At_Offset_3
044d e001       |    |		Load	0x0,0x1
044e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
044f 0119       |    |		Execute	Any,Check_In_Formal_Type
0450 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0451 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0452 e002       |    |		Load	0x0,0x2
0453 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0454 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0455 0000 0000  |    |		.XXX[0x3]
0457 0000       |    |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0463       | c  |		.CONST	0x0463								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 4801       |H   |		Short_Literal	0x1
045c e5fe       |    |		Load	0x2,-0x2
045d e5ff       |    |		Load	0x2,-0x1
045e e5fd       |    |		Load	0x2,-0x3
045f 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0460 e012       |    |		Load	0x0,0x12
0461 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0462 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0463			TRAP_0458:
0463 e012       |    |		Load	0x0,0x12
0464 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0465 010f       |    |		Execute	Exception,Equal
0466 6802       |h   |		Jump_Zero	0x469
0467 00cc       |    |		Action	Pop_Block
0468 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0469 0100       |    |		Execute	Exception,Raise
046a 0000 0000  |    |		.BLANK	0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 047b       | {  |		.CONST	0x047b								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 4801       |H   |		Short_Literal	0x1
0474 e5ff       |    |		Load	0x2,-0x1
0475 e5fe       |    |		Load	0x2,-0x2
0476 e5fd       |    |		Load	0x2,-0x3
0477 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0478 e012       |    |		Load	0x0,0x12
0479 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
047a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
047b			TRAP_0470:
047b e012       |    |		Load	0x0,0x12
047c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
047d 010f       |    |		Execute	Exception,Equal
047e 6805       |h   |		Jump_Zero	0x484
047f e5fd       |    |		Load	0x2,-0x3
0480 e5fe       |    |		Load	0x2,-0x2
0481 e5ff       |    |		Load	0x2,-0x1
0482 8218       |    |		Call	0x1,0x18
0483 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0484 0100       |    |		Execute	Exception,Raise
0485 0000 0000  |    |		.XXX[0x3]
0487 0000       |    |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0493       |    |		.CONST	0x0493								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 4801       |H   |		Short_Literal	0x1
048c e5fe       |    |		Load	0x2,-0x2
048d e5ff       |    |		Load	0x2,-0x1
048e e5fd       |    |		Load	0x2,-0x3
048f 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0490 e012       |    |		Load	0x0,0x12
0491 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0492 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0493			TRAP_0488:
0493 e012       |    |		Load	0x0,0x12
0494 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0495 010f       |    |		Execute	Exception,Equal
0496 6802       |h   |		Jump_Zero	0x499
0497 00cc       |    |		Action	Pop_Block
0498 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0499 0100       |    |		Execute	Exception,Raise
049a 0000 0000  |    |		.BLANK	0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 04ab       |    |		.CONST	0x04ab								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 4801       |H   |		Short_Literal	0x1
04a4 e5ff       |    |		Load	0x2,-0x1
04a5 e5fe       |    |		Load	0x2,-0x2
04a6 e5fd       |    |		Load	0x2,-0x3
04a7 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
04a8 e012       |    |		Load	0x0,0x12
04a9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04ab			TRAP_04a0:
04ab e012       |    |		Load	0x0,0x12
04ac 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
04ad 010f       |    |		Execute	Exception,Equal
04ae 6801       |h   |		Jump_Zero	0x4b0
04af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04b0 0100       |    |		Execute	Exception,Raise
04b1 0000 0000  |    |		.BLANK	0000[0x7]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c1       |    |		.CONST	0x04c1								; Address of begin
04b9 04d3       |    |		.CONST	0x04d3								; Address of exception handler
04ba 0003       |    |		.CONST	0x0003								; Number of locals
04bb			INIT_04b8:
04bb e018       |    |		Load	0x0,0x18
04bc 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
04bd 02ff       |    |		Declare_Variable	Variant_Record
04be 00d8       |    |		Load_Top	At_Offset_0
04bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c0 00e1       |    |		Load_Encached	Boolean_Cache
04c1			BODY_04b8:
04c1 e5fd       |    |		Load	0x2,-0x3
04c2 00e1       |    |		Load_Encached	Boolean_Cache
04c3 00db       |    |		Load_Top	At_Offset_3
04c4 e5ff       |    |		Load	0x2,-0x1
04c5 821b       |    |		Call	0x1,0x1b
04c6 00d1       |    |		Pop_Control	Pop_Count_1
04c7 005a       | Z  |		Store_Top	Discrete,At_Offset_2
04c8 00d1       |    |		Pop_Control	Pop_Count_1
04c9 00d8       |    |		Load_Top	At_Offset_0
04ca 6807       |h   |		Jump_Zero	0x4d2
04cb 4801       |H   |		Short_Literal	0x1
04cc 00da       |    |		Load_Top	At_Offset_2
04cd e5ff       |    |		Load	0x2,-0x1
04ce e5fd       |    |		Load	0x2,-0x3
04cf 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
04d0 e010       |    |		Load	0x0,0x10
04d1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04d2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04d3			TRAP_04b8:
04d3 e012       |    |		Load	0x0,0x12
04d4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
04d5 010f       |    |		Execute	Exception,Equal
04d6 6801       |h   |		Jump_Zero	0x4d8
04d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04d8 0100       |    |		Execute	Exception,Raise
04d9 ; --------------------------------------------------------------------------------------
04d9 ; STRING TABLE
04d9 ; --------------------------------------------------------------------------------------
04d9 0024       | $  |		.STRTAB	0x0024->0x04eb							; "Cant find"
04da 002b       | +  |		.STRTAB	0x002b->0x04ef							; "Could not get enclosing subsystem for"
04db 004e       | N  |		.STRTAB	0x004e->0x0502							; "'L(INTERNAL)."
04dc 0059       | Y  |		.STRTAB	0x0059->0x0508							; "Could not establish naming context for"
04dd 007d       | }  |		.STRTAB	0x007d->0x051b							; "because "
04de 0083       |    |		.STRTAB	0x0083->0x051f							; "Could not find corresponding unit for"
04df 00a6       |    |		.STRTAB	0x00a6->0x0532							; "specified for subsystem"
04e0 00bb       |    |		.STRTAB	0x00bb->0x053d							; "Duplicate spec view"
04e1 00cc       |    |		.STRTAB	0x00cc->0x0547							; "Duplicate load view"
04e2 00dd       |    |		.STRTAB	0x00dd->0x0550							; "No corresponding load view found for"
04e3 00ff       |    |		.STRTAB	0x00ff->0x0562							; "No corresponding spec view found for"
04e4 0121       | !  |		.STRTAB	0x0121->0x0574							; "in view"
04e5 0126       | &  |		.STRTAB	0x0126->0x0578							; "No corresponding unit found for"
04e6 0143       | C  |		.STRTAB	0x0143->0x0587							; "Code_Database"
04e7 014e       | N  |		.STRTAB	0x014e->0x058e							; " because "
04e8 0155       | U  |		.STRTAB	0x0155->0x0592							; "Could not get code database for"
04e9 0172       | r  |		.STRTAB	0x0172->0x05a2							; "is not an ada unit, view or activity"
04ea 0194       |    |		.STREND 0x0194->0x05b4
04eb 4361 6e74  |Cant|		.STRTAB_STRINGS
05b4 0000 0000  |    |		.BLANK	0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; Debug Table
05b8 ; --------------------------------------------------------------------------------------
05b8 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xa50b,0x0000,0x0001,0x0000
05be 0000 2000  |    |		.XXX[0x1b]
05c0 041c 2000  |    |
05c2 0000 0000  |    |
05c4 0004 0000  |    |
05c6 0000 590c  |  Y |
05c8 0000 0005  |    |
05ca 8000 0475  |   u|
05cc 8063 3cd4  | c< |
05ce 8000 0000  |    |
05d0 0000 0000  |    |
05d2 01d9 4040  |  @@|
05d4 0000 002f  |   /|
05d6 3640 4000  |6@@ |
05d8 0020       |    |
05d9 0000 0000  |    |		.BLANK	0000[0x6]
05df 1000       |    |		.XXX[0x1]
05e0 0000 0000  |    |		.BLANK	0000[0x5]
05e5 2000 0000  |    |		.XXX[0x1b]
05e7 0000 0000  |    |
05e9 07f3 d5b1  |    |
05eb 5e9a c000  |^   |
05ed 0043 f9ea  | C  |
05ef d8af 6138  |  a8|
05f1 0000 21fc  |  ! |
05f3 f56c 57b0  | lW |
05f5 9c00 0010  |    |
05f7 0002 0e10  |    |
05f9 0000 0000  |    |
05fb 0000 0200  |    |
05fd 0000 002c  |   ,|
05ff 8600       |    |