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

⟦e38a3ad01⟧

    Length: 7168 (0x1c00)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0920       |    |		.CONST	0x0920								; 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 0006       |    |		.CONST	0x0006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0067       | g  |		.CONST	0x0067								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x09e2,0x8000,0x0000,0x0054,0xf1d5,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x14,0xfffa
0016 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x16,0xfff9
0018 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x18,0xfff8
001a 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1a,0xfff7
001c 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1c,0xfff6
001e 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1e,0xfff5
0020 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x20,0xfff4
0022 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x22,0xfff3
0024 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x24,0xfff2
0026 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x26,0xfff1
0028 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x28,0xfff0
002a 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x2a,0xffef
002c 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x2c,0xffee
002e 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x2e,0xffed
0030 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x13 = 0x30,0xffec
0031 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x14 = 0x31,0xffeb
0032 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x15 = 0x32,0xffea
0033 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0033,0x0a10,0x8000,0x0000,0x0057,0x9665,0x0000,0x003b
													; Debug Table 0x1.0x0 = 0x33,0xffff
0034 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x34,0xfffe
0035 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x35,0xfffd
0036 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x36,0xfffc
0037 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x37,0xfffb
0038 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x38,0xfffa
0039 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x39,0xfff9
003a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x3a,0xfff8
003b 029d 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call			; Debug Table 0x1.0x8 = 0x3b,0xfff7
003d 029d 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call			; Debug Table 0x1.0x9 = 0x3d,0xfff6
003f 029d 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call			; Debug Table 0x1.0xa = 0x3f,0xfff5
0041 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call			; Debug Table 0x1.0xb = 0x41,0xfff4
0043 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0xc = 0x43,0xfff3
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0xd = 0x45,0xfff2
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0xe = 0x47,0xfff1
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xf = 0x49,0xfff0
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x10 = 0x4b,0xffef
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x11 = 0x4d,0xffee
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x12 = 0x4f,0xffed
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x13 = 0x51,0xffec
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x14 = 0x53,0xffeb
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x15 = 0x55,0xffea
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x16 = 0x57,0xffe9
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x17 = 0x59,0xffe8
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x18 = 0x5b,0xffe7
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x19 = 0x5d,0xffe6
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0x1a = 0x5f,0xffe5
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x1b = 0x61,0xffe4
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x1c = 0x63,0xffe3
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x1d = 0x65,0xffe2
0066 00c7       |    |		Action	Elaborate_Subprogram
0067			BODY_0008:
0067 00bc       |    |		Action	Signal_Activated
0068 00bb       |    |		Action	Signal_Completion
0069 0000 0000  |    |		.BLANK	0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 0092 05d4  |    |		Action	Push_String_Extended,0x5d4					; "Ada.Code_Unit"
													; Debug Table 0x2 = .DEBUG	0x0073,0x0a4e,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0008
													; Debug Table 0x2.0x0 = 0x73,0x1
0075 e001       |    |		Load	0x0,0x1
0076 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0077 4804       |H   |		Short_Literal	0x4							; Debug Table 0x2.0x1 = 0x77,0x2
0078 8221       | !  |		Call	0x1,0x21
0079 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
007a 0000 0000  |    |		.BLANK	0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 0092 05d5  |    |		Action	Push_String_Extended,0x5d5					; "Ada.Install_Unit"
													; Debug Table 0x3 = .DEBUG	0x0083,0x0a54,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x000c
													; Debug Table 0x3.0x0 = 0x83,0x1
0085 e001       |    |		Load	0x0,0x1
0086 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0087 4803       |H   |		Short_Literal	0x3							; Debug Table 0x3.0x1 = 0x87,0x2
0088 8221       | !  |		Call	0x1,0x21
0089 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008a 0000 0000  |    |		.BLANK	0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 0092 05d6  |    |		Action	Push_String_Extended,0x5d6					; "Ada.Source_Unit"
													; Debug Table 0x4 = .DEBUG	0x0093,0x0a5a,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0010
													; Debug Table 0x4.0x0 = 0x93,0x1
0095 e001       |    |		Load	0x0,0x1
0096 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0097 4802       |H   |		Short_Literal	0x2							; Debug Table 0x4.0x1 = 0x97,0x2
0098 8221       | !  |		Call	0x1,0x21
0099 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00b3       |    |		.CONST	0x00b3								; Address of begin
00a1 0142       | B  |		.CONST	0x0142								; Address of exception handler
00a2 0006       |    |		.CONST	0x0006								; Number of locals
00a3			INIT_00a0:
00a3 e002       |    |		Load	0x0,0x2								; Debug Table 0x5 = .DEBUG	0x00a3,0x0a60,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0014
													; Debug Table 0x5.0x0 = 0xa3,0xffff
00a4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a6 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x1 = 0xa6,0xfffe
00a7 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x2 = 0xa7,0xfffd
00a8 e003       |    |		Load	0x0,0x3								; Debug Table 0x5.0x3 = 0xa8,0xfffc
00a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00aa 0322       | "  |		Declare_Variable	Record
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ad e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x4 = 0xad,0xfffb
00ae e004       |    |		Load	0x0,0x4
00af 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b0 e004       |    |		Load	0x0,0x4
00b1 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00b2 03f1       |    |		Declare_Variable	Discrete,With_Value
00b3			BODY_00a0:
00b3 0092 05d7  |    |		Action	Push_String_Extended,0x5d7					; "Ada.Withdraw"
													; Debug Table 0x5.0x5 = 0xb3,0x1
00b5 e001       |    |		Load	0x0,0x1
00b6 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00b7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x6 = 0xb7,0x2
00b8 4604       |F   |		Jump_Case	0x5
00b9 7863       |xc  |		Jump	0x11d								; case 0x0
00ba 7862       |xb  |		Jump	0x11d								; case 0x1
00bb 7861       |xa  |		Jump	0x11d								; case 0x2
00bc 7801       |x   |		Jump	0xbe								; case 0x3
00bd 785f       |x_  |		Jump	0x11d								; case 0x4
00be 821f       |    |		Call	0x1,0x1f							; Debug Table 0x5.0x7 = 0xbe,0x3
00bf 680e       |h   |		Jump_Zero	0xce
00c0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x8 = 0xc0,0x4
00c1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00c2 00ec       |    |		Load_Encached	Diana_Tree_Cache
00c3 e005       |    |		Load	0x0,0x5
00c4 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00c5 4801       |H   |		Short_Literal	0x1
00c6 e006       |    |		Load	0x0,0x6
00c7 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00c8 e006       |    |		Load	0x0,0x6
00c9 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00cc 00d1       |    |		Pop_Control	Pop_Count_1
00cd 7861       |xa  |		Jump	0x12f
00ce e006       |    |		Load	0x0,0x6								; Debug Table 0x5.0x9 = 0xce,0x5
00cf 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00d2 e002       |    |		Load	0x0,0x2								; Debug Table 0x5.0xa = 0xd2,0x6
00d3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d5 e002       |    |		Load	0x0,0x2
00d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d7 e007       |    |		Load	0x0,0x7
00d8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00d9 4800       |H   |		Short_Literal	0x0
00da e008       |    |		Load	0x0,0x8
00db 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00dc c403       |    |		Store	0x2,0x3
00dd c402       |    |		Store	0x2,0x2
00de 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0xb = 0xde,0x7
00df e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xc = 0xdf,0x401
00e0 0007       |    |		Action	Break_Optional
00e1 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x5.0xd = 0xe1,0x402
00e2 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0xe = 0xe2,0x403
00e3 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0xf = 0xe3,0x404
00e4 0b00       |    |		Execute_Immediate	Case_Compare,0x0				; Debug Table 0x5.0x10 = 0xe4,0x7
00e5 7024       |p$  |		Jump_Nonzero	0x10a
00e6 0b39       | 9  |		Execute_Immediate	Case_Compare,0x39
00e7 7027       |p'  |		Jump_Nonzero	0x10f
00e8 0b30       | 0  |		Execute_Immediate	Case_Compare,0x30
00e9 7025       |p%  |		Jump_Nonzero	0x10f
00ea e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x11 = 0xea,0xd
00eb e009       |    |		Load	0x0,0x9
00ec 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
00ed 7004       |p   |		Jump_Nonzero	0xf2
00ee e403       |    |		Load	0x2,0x3
00ef e009       |    |		Load	0x0,0x9
00f0 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
00f1 6826       |h&  |		Jump_Zero	0x118
00f2 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x12 = 0xf2,0xe
00f3 00eb       |    |		Load_Encached	Diana_Cache
00f4 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
00f5 a404       |    |		Store_Unchecked	0x2,0x4
00f6 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x13 = 0xf6,0xf
00f7 e404       |    |		Load	0x2,0x4								; Debug Table 0x5.0x14 = 0xf7,0x801
00f8 0007       |    |		Action	Break_Optional
00f9 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x5.0x15 = 0xf9,0x802
00fa 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x16 = 0xfa,0x803
00fb 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x17 = 0xfb,0x804
00fc 0ba8       |    |		Execute_Immediate	Case_Compare,0xa8				; Debug Table 0x5.0x18 = 0xfc,0xf
00fd 7003       |p   |		Jump_Nonzero	0x101
00fe 0b49       | I  |		Execute_Immediate	Case_Compare,0x49
00ff 7004       |p   |		Jump_Nonzero	0x104
0100 7807       |x   |		Jump	0x108								; Debug Table 0x5.0x19 = 0x100,0x12
0101 e404       |    |		Load	0x2,0x4								; Debug Table 0x5.0x1a = 0x101,0x10
0102 a403       |    |		Store_Unchecked	0x2,0x3
0103 7804       |x   |		Jump	0x108
0104 e404       |    |		Load	0x2,0x4								; Debug Table 0x5.0x1b = 0x104,0x11
0105 00eb       |    |		Load_Encached	Diana_Cache
0106 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0107 a403       |    |		Store_Unchecked	0x2,0x3
0108 00d1       |    |		Pop_Control	Pop_Count_1
0109 780e       |x   |		Jump	0x118
010a 0092 05d8  |    |		Action	Push_String_Extended,0x5d8					; "Command failed - no selection"
													; Debug Table 0x5.0x1c = 0x10a,0x8
010c e00a       |    |		Load	0x0,0xa
010d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
010e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x5.0x1d = 0x10e,0x9
010f e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x1e = 0x10f,0xa
0110 e00b       |    |		Load	0x0,0xb
0111 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0112 6805       |h   |		Jump_Zero	0x118
0113 0092 05d9  |    |		Action	Push_String_Extended,0x5d9					; "Command failed - not an ada object"
													; Debug Table 0x5.0x1f = 0x113,0xb
0115 e00a       |    |		Load	0x0,0xa
0116 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0117 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x5.0x20 = 0x117,0xc
0118 00d1       |    |		Pop_Control	Pop_Count_1
0119 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x21 = 0x119,0x13
011a 00da       |    |		Load_Top	At_Offset_2
011b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
011c 7812       |x   |		Jump	0x12f
011d e006       |    |		Load	0x0,0x6								; Debug Table 0x5.0x22 = 0x11d,0x14
011e 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
011f 00da       |    |		Load_Top	At_Offset_2
0120 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0121 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x23 = 0x121,0x15
0122 4801       |H   |		Short_Literal	0x1
0123 e007       |    |		Load	0x0,0x7
0124 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0125 e002       |    |		Load	0x0,0x2
0126 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0127 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0128 0092 05da  |    |		Action	Push_String_Extended,0x5da					; "Withdraw"
012a e5ff       |    |		Load	0x2,-0x1
012b e00c       |    |		Load	0x0,0xc
012c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
012d 00da       |    |		Load_Top	At_Offset_2
012e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x24 = 0x12f,0x16
0130 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0131 0007       |    |		Action	Break_Optional
0132 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x25 = 0x132,0xc01
0133 021d       |    |		Execute	Heap_Access,Is_Null
0134 00d0       |    |		Action	Swap_Control
0135 00d1       |    |		Pop_Control	Pop_Count_1
0136 7006       |p   |		Jump_Nonzero	0x13d							; Debug Table 0x5.0x26 = 0x136,0x16
0137 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x27 = 0x137,0x17
0138 4801       |H   |		Short_Literal	0x1
0139 4801       |H   |		Short_Literal	0x1
013a e405       |    |		Load	0x2,0x5
013b e003       |    |		Load	0x0,0x3
013c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
013d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x28 = 0x13d,0x18
013e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
013f e006       |    |		Load	0x0,0x6
0140 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0141 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0142			TRAP_00a0:
0142 0007       |    |		Action	Break_Optional
0143 e00d       |    |		Load	0x0,0xd								; Debug Table 0x5.0x29 = 0x143,0x19
0144 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0145 0092 05db  |    |		Action	Push_String_Extended,0x5db					; "*** Exception in Ada.Withdraw: "
													; Debug Table 0x5.0x2a = 0x145,0x1a
0147 e00e       |    |		Load	0x0,0xe
0148 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0149 01cc       |    |		Execute	Vector,Catenate
014a e00d       |    |		Load	0x0,0xd
014b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
014c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x2b = 0x14c,0x1b
014d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
014e e006       |    |		Load	0x0,0x6
014f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0150 00d1       |    |		Pop_Control	Pop_Count_1
0151 0092 05dc  |    |		Action	Push_String_Extended,0x5dc					; "Withdraw failed - internal error"
													; Debug Table 0x5.0x2c = 0x151,0x1c
0153 e00a       |    |		Load	0x0,0xa
0154 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0155 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015c       | \  |		.CONST	0x015c								; Address of begin
0159 0176       | v  |		.CONST	0x0176								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6 = .DEBUG	0x015b,0x0abc,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x001d
													; Debug Table 0x6.0x0 = 0x15b,0xffff
015c			BODY_0158:
015c 0092 05dd  |    |		Action	Push_String_Extended,0x5dd					; "Ada.Diana_Edit"
													; Debug Table 0x6.0x1 = 0x15c,0x1
015e e001       |    |		Load	0x0,0x1
015f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0160 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x2 = 0x160,0x2
0161 4801       |H   |		Short_Literal	0x1
0162 e007       |    |		Load	0x0,0x7
0163 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0164 e002       |    |		Load	0x0,0x2
0165 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0166 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0167 0092 05dd  |    |		Action	Push_String_Extended,0x5dd					; "Ada.Diana_Edit"
0169 e5ff       |    |		Load	0x2,-0x1
016a e00c       |    |		Load	0x0,0xc
016b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
016c 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
016d 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x3 = 0x16d,0x3
016e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x4 = 0x16e,0x401
016f 021d       |    |		Execute	Heap_Access,Is_Null
0170 6801       |h   |		Jump_Zero	0x172							; Debug Table 0x6.0x5 = 0x170,0x3
0171 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x6.0x6 = 0x171,0x4
0172 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x7 = 0x172,0x5
0173 e00f       |    |		Load	0x0,0xf
0174 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0175 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0176			TRAP_0158:
0176 62d5       |b   |		Indirect_Literal	Discrete,0x44c,{0x00000000, 0x578dd501}
0177 010f       |    |		Execute	Exception,Equal
0178 6801       |h   |		Jump_Zero	0x17a
0179 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x6.0x8 = 0x179,0x6
017a e00d       |    |		Load	0x0,0xd								; Debug Table 0x6.0x9 = 0x17a,0x7
017b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
017c 0092 05de  |    |		Action	Push_String_Extended,0x5de					; "*** Exception in Ada.Diana_Edit: "
													; Debug Table 0x6.0xa = 0x17c,0x8
017e e00e       |    |		Load	0x0,0xe
017f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0180 01cc       |    |		Execute	Vector,Catenate
0181 e00d       |    |		Load	0x0,0xd
0182 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0183 0092 05df  |    |		Action	Push_String_Extended,0x5df					; "Diana_Edit failed - internal error"
													; Debug Table 0x6.0xb = 0x183,0x9
0185 e00a       |    |		Load	0x0,0xa
0186 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0187 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018c       |    |		.CONST	0x018c								; Address of begin
0189 01a5       |    |		.CONST	0x01a5								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x7 = .DEBUG	0x018b,0x0ad6,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0026
													; Debug Table 0x7.0x0 = 0x18b,0xffff
018c			BODY_0188:
018c 0092 05e0  |    |		Action	Push_String_Extended,0x5e0					; "Ada.Install_Stub"
													; Debug Table 0x7.0x1 = 0x18c,0x1
018e e001       |    |		Load	0x0,0x1
018f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0190 e005       |    |		Load	0x0,0x5								; Debug Table 0x7.0x2 = 0x190,0x2
0191 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0192 4801       |H   |		Short_Literal	0x1
0193 e006       |    |		Load	0x0,0x6
0194 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0195 e006       |    |		Load	0x0,0x6
0196 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0197 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0198 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x3 = 0x198,0x3
0199 e003       |    |		Load	0x0,0x3
019a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
019b 4604       |F   |		Jump_Case	0x5
019c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x0
019d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1
019e 7802       |x   |		Jump	0x1a1								; case 0x2
019f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x3
01a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x4
01a1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x4 = 0x1a1,0x4
01a2 e003       |    |		Load	0x0,0x3
01a3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a5			TRAP_0188:
01a5 62a6       |b   |		Indirect_Literal	Discrete,0x44c,{0x00000000, 0x578dd501}
01a6 010f       |    |		Execute	Exception,Equal
01a7 6801       |h   |		Jump_Zero	0x1a9
01a8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x7.0x5 = 0x1a8,0x6
01a9 e00d       |    |		Load	0x0,0xd								; Debug Table 0x7.0x6 = 0x1a9,0x7
01aa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ab 0092 05e1  |    |		Action	Push_String_Extended,0x5e1					; "*** Exception in Ada.Install_Stub: "
													; Debug Table 0x7.0x7 = 0x1ab,0x8
01ad e00e       |    |		Load	0x0,0xe
01ae 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01af 01cc       |    |		Execute	Vector,Catenate
01b0 e00d       |    |		Load	0x0,0xd
01b1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b2 0092 05e2  |    |		Action	Push_String_Extended,0x5e2					; "Install_Stub failed - internal error"
													; Debug Table 0x7.0x8 = 0x1b2,0x9
01b4 e00a       |    |		Load	0x0,0xa
01b5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b7 0000       |    |		.XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01be       |    |		.CONST	0x01be								; Address of begin
01b9 01f2       |    |		.CONST	0x01f2								; Address of exception handler
01ba 0004       |    |		.CONST	0x0004								; Number of locals
01bb			INIT_01b8:
01bb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8 = .DEBUG	0x01bb,0x0aea,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x002a
													; Debug Table 0x8.0x0 = 0x1bb,0xffff
01bc 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x8.0x1 = 0x1bc,0xfffe
01bd 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8.0x2 = 0x1bd,0xfffd
01be			BODY_01b8:
01be 0092 05e3  |    |		Action	Push_String_Extended,0x5e3					; "Ada.Make_Inline"
													; Debug Table 0x8.0x3 = 0x1be,0x1
01c0 e001       |    |		Load	0x0,0x1
01c1 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01c2 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x4 = 0x1c2,0x2
01c3 4801       |H   |		Short_Literal	0x1
01c4 e007       |    |		Load	0x0,0x7
01c5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01c6 e002       |    |		Load	0x0,0x2
01c7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01c8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01c9 00ea       |    |		Load_Encached	Null_String_Cache
01ca 0092 05e4  |    |		Action	Push_String_Extended,0x5e4					; "<IMAGE>"
01cc e00c       |    |		Load	0x0,0xc
01cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ce 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01cf 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x5 = 0x1cf,0x3
01d0 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x6 = 0x1d0,0x401
01d1 021d       |    |		Execute	Heap_Access,Is_Null
01d2 6805       |h   |		Jump_Zero	0x1d8							; Debug Table 0x8.0x7 = 0x1d2,0x3
01d3 0092 05e5  |    |		Action	Push_String_Extended,0x5e5					; "Make_Inline failed - unit is not an Ada object"
													; Debug Table 0x8.0x8 = 0x1d3,0x4
01d5 e00a       |    |		Load	0x0,0xa
01d6 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x8.0x9 = 0x1d7,0x5
01d8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0xa = 0x1d8,0x6
01d9 00eb       |    |		Load_Encached	Diana_Cache
01da 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
01db 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0xb = 0x1db,0x801
01dc 021d       |    |		Execute	Heap_Access,Is_Null
01dd 00d0       |    |		Action	Swap_Control
01de 00d1       |    |		Pop_Control	Pop_Count_1
01df 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2				; Debug Table 0x8.0xc = 0x1df,0x6
01e0 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8.0xd = 0x1e0,0x7
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 8010       |    |		Call	0x0,0x10
01e3 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01e4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0xe = 0x1e4,0x8
01e5 680b       |h   |		Jump_Zero	0x1f1
01e6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0xf = 0x1e6,0xc01
01e7 021d       |    |		Execute	Heap_Access,Is_Null
01e8 7008       |p   |		Jump_Nonzero	0x1f1							; Debug Table 0x8.0x10 = 0x1e8,0x8
01e9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x11 = 0x1e9,0x9
01ea 4801       |H   |		Short_Literal	0x1
01eb 4800       |H   |		Short_Literal	0x0
01ec e006       |    |		Load	0x0,0x6
01ed 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
01ee e404       |    |		Load	0x2,0x4
01ef e006       |    |		Load	0x0,0x6
01f0 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f2			TRAP_01b8:
01f2 6259       |bY  |		Indirect_Literal	Discrete,0x44c,{0x00000000, 0x578dd501}
01f3 010f       |    |		Execute	Exception,Equal
01f4 6801       |h   |		Jump_Zero	0x1f6
01f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x8.0x12 = 0x1f5,0xa
01f6 e00d       |    |		Load	0x0,0xd								; Debug Table 0x8.0x13 = 0x1f6,0xb
01f7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01f8 0092 05e6  |    |		Action	Push_String_Extended,0x5e6					; "*** Exception in Ada.Make_Inline: "
													; Debug Table 0x8.0x14 = 0x1f8,0xc
01fa e00e       |    |		Load	0x0,0xe
01fb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01fc 01cc       |    |		Execute	Vector,Catenate
01fd e00d       |    |		Load	0x0,0xd
01fe 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01ff 0092 05e7  |    |		Action	Push_String_Extended,0x5e7					; "Make_Inline failed - internal error"
													; Debug Table 0x8.0x15 = 0x1ff,0xd
0201 e00a       |    |		Load	0x0,0xa
0202 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0203 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0216       |    |		.CONST	0x0216								; Address of begin
0209 0236       | 6  |		.CONST	0x0236								; Address of exception handler
020a 0004       |    |		.CONST	0x0004								; Number of locals
020b			INIT_0208:
020b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9 = .DEBUG	0x020b,0x0b18,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x002e
													; Debug Table 0x9.0x0 = 0x20b,0xffff
020c e006       |    |		Load	0x0,0x6								; Debug Table 0x9.0x1 = 0x20c,0xfffe
020d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
020e 0322       | "  |		Declare_Variable	Record
020f 00d8       |    |		Load_Top	At_Offset_0
0210 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0211 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x2 = 0x211,0xfffd
0212 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0213 02ff       |    |		Declare_Variable	Variant_Record
0214 00d8       |    |		Load_Top	At_Offset_0
0215 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0216			BODY_0208:
0216 0092 05e8  |    |		Action	Push_String_Extended,0x5e8					; "Ada.Make_Separate"
													; Debug Table 0x9.0x3 = 0x216,0x1
0218 e001       |    |		Load	0x0,0x1
0219 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
021a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x4 = 0x21a,0x2
021b 00ec       |    |		Load_Encached	Diana_Tree_Cache
021c e005       |    |		Load	0x0,0x5
021d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
021e 4801       |H   |		Short_Literal	0x1
021f e006       |    |		Load	0x0,0x6
0220 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0221 e006       |    |		Load	0x0,0x6
0222 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0223 c402       |    |		Store	0x2,0x2
0224 00d1       |    |		Pop_Control	Pop_Count_1
0225 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x5 = 0x225,0x3
0226 00db       |    |		Load_Top	At_Offset_3
0227 8011       |    |		Call	0x0,0x11
0228 00d1       |    |		Pop_Control	Pop_Count_1
0229 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x6 = 0x229,0x4
022a e002       |    |		Load	0x0,0x2
022b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
022c 7008       |p   |		Jump_Nonzero	0x235
022d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x7 = 0x22d,0x5
022e e007       |    |		Load	0x0,0x7
022f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0230 4800       |H   |		Short_Literal	0x0
0231 4800       |H   |		Short_Literal	0x0
0232 e004       |    |		Load	0x0,0x4
0233 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0234 00d1       |    |		Pop_Control	Pop_Count_1
0235 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0236			TRAP_0208:
0236 6215       |b   |		Indirect_Literal	Discrete,0x44c,{0x00000000, 0x578dd501}
0237 010f       |    |		Execute	Exception,Equal
0238 6801       |h   |		Jump_Zero	0x23a
0239 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x9.0x8 = 0x239,0x6
023a e00d       |    |		Load	0x0,0xd								; Debug Table 0x9.0x9 = 0x23a,0x7
023b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
023c 0092 05e9  |    |		Action	Push_String_Extended,0x5e9					; "*** Exception in Ada.Make_Separate: "
													; Debug Table 0x9.0xa = 0x23c,0x8
023e e00e       |    |		Load	0x0,0xe
023f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0240 01cc       |    |		Execute	Vector,Catenate
0241 e00d       |    |		Load	0x0,0xd
0242 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0243 0092 05ea  |    |		Action	Push_String_Extended,0x5ea					; "Make_Separate failed - internal error"
													; Debug Table 0x9.0xb = 0x243,0x9
0245 e00a       |    |		Load	0x0,0xa
0246 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0247 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 027d       | }  |		.CONST	0x027d								; Address of begin
0249 0359       | Y  |		.CONST	0x0359								; Address of exception handler
024a 000e       |    |		.CONST	0x000e								; Number of locals
024b			INIT_0248:
024b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xa = .DEBUG	0x024b,0x0b32,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0032
													; Debug Table 0xa.0x0 = 0x24b,0xffff
024c e006       |    |		Load	0x0,0x6								; Debug Table 0xa.0x1 = 0x24c,0xfffe
024d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
024e 0322       | "  |		Declare_Variable	Record
024f 00d8       |    |		Load_Top	At_Offset_0
0250 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0251 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xa.0x2 = 0x251,0xfffd
0252 e006       |    |		Load	0x0,0x6								; Debug Table 0xa.0x3 = 0x252,0xfffc
0253 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0254 0322       | "  |		Declare_Variable	Record
0255 00d8       |    |		Load_Top	At_Offset_0
0256 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0257 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x4 = 0x257,0xfffb
0258 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0259 e006       |    |		Load	0x0,0x6								; Debug Table 0xa.0x5 = 0x259,0xfffa
025a 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
025b 0322       | "  |		Declare_Variable	Record
025c e006       |    |		Load	0x0,0x6								; Debug Table 0xa.0x6 = 0x25c,0xfff9
025d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
025e e003       |    |		Load	0x0,0x3								; Debug Table 0xa.0x7 = 0x25e,0xfff8
025f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0260 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x8 = 0x260,0xfff7
0261 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0262 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0263 02c7       |    |		Declare_Variable	Any
0264 00d8       |    |		Load_Top	At_Offset_0
0265 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0266 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x9 = 0x266,0xfff6
0267 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0268 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0269 02c7       |    |		Declare_Variable	Any
026a 00d8       |    |		Load_Top	At_Offset_0
026b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
026c e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0xa = 0x26c,0xfff5
026d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
026e 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
026f 02c7       |    |		Declare_Variable	Any
0270 00d8       |    |		Load_Top	At_Offset_0
0271 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0272 e005       |    |		Load	0x0,0x5								; Debug Table 0xa.0xb = 0x272,0xfff4
0273 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0274 0322       | "  |		Declare_Variable	Record
0275 00d8       |    |		Load_Top	At_Offset_0
0276 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0277 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0xc = 0x277,0xfff3
0278 e004       |    |		Load	0x0,0x4
0279 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
027a e004       |    |		Load	0x0,0x4
027b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
027c 03f1       |    |		Declare_Variable	Discrete,With_Value
027d			BODY_0248:
027d 0092 05eb  |    |		Action	Push_String_Extended,0x5eb					; "Ada.Other_Part"
													; Debug Table 0xa.0xd = 0x27d,0x1
027f e001       |    |		Load	0x0,0x1
0280 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0281 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0xe = 0x281,0x2
0282 a409       |    |		Store_Unchecked	0x2,0x9
0283 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xf = 0x283,0x3
0284 4604       |F   |		Jump_Case	0x5
0285 7854       |xT  |		Jump	0x2da								; case 0x0
0286 7853       |xS  |		Jump	0x2da								; case 0x1
0287 7852       |xR  |		Jump	0x2da								; case 0x2
0288 7801       |x   |		Jump	0x28a								; case 0x3
0289 7850       |xP  |		Jump	0x2da								; case 0x4
028a e007       |    |		Load	0x0,0x7								; Debug Table 0xa.0x10 = 0x28a,0x4
028b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
028c e005       |    |		Load	0x0,0x5
028d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
028e 00da       |    |		Load_Top	At_Offset_2
028f 017d       | }  |		Execute	Record,Structure_Write
0290 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x11 = 0x290,0x5
0291 8222       | "  |		Call	0x1,0x22
0292 6831       |h1  |		Jump_Zero	0x2c4
0293 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x12 = 0x293,0x6
0294 e006       |    |		Load	0x0,0x6
0295 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0296 e006       |    |		Load	0x0,0x6
0297 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0298 e403       |    |		Load	0x2,0x3
0299 017d       | }  |		Execute	Record,Structure_Write
029a e403       |    |		Load	0x2,0x3								; Debug Table 0xa.0x13 = 0x29a,0x7
029b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029c e002       |    |		Load	0x0,0x2
029d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
029e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
029f c40a       |    |		Store	0x2,0xa
02a0 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x14 = 0x2a0,0x8
02a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02a2 00db       |    |		Load_Top	At_Offset_3
02a3 0120       |    |		Execute	Any,Is_Value
02a4 6804       |h   |		Jump_Zero	0x2a9
02a5 e002       |    |		Load	0x0,0x2
02a6 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02a7 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
02a8 7801       |x   |		Jump	0x2aa
02a9 00db       |    |		Load_Top	At_Offset_3
02aa e002       |    |		Load	0x0,0x2
02ab 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02ac 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02ad 619a       |a   |		Indirect_Literal	Discrete,0x448,{0x00000000, 0x00004000}
02ae 4801       |H   |		Short_Literal	0x1
02af 4800       |H   |		Short_Literal	0x0
02b0 e403       |    |		Load	0x2,0x3
02b1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b2 e012       |    |		Load	0x0,0x12
02b3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b4 4800       |H   |		Short_Literal	0x0
02b5 e40a       |    |		Load	0x2,0xa
02b6 e002       |    |		Load	0x0,0x2
02b7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02b8 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
02b9 c402       |    |		Store	0x2,0x2
02ba c40c       |    |		Store	0x2,0xc
02bb c406       |    |		Store	0x2,0x6
02bc e406       |    |		Load	0x2,0x6								; Debug Table 0xa.0x15 = 0x2bc,0x9
02bd 0092 05ec  |    |		Action	Push_String_Extended,0x5ec					; "Ada.Open"
02bf e003       |    |		Load	0x0,0x3
02c0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02c1 4802       |H   |		Short_Literal	0x2							; Debug Table 0xa.0x16 = 0x2c1,0xa
02c2 a409       |    |		Store_Unchecked	0x2,0x9
02c3 7828       |x(  |		Jump	0x2ec
02c4 e405       |    |		Load	0x2,0x5								; Debug Table 0xa.0x17 = 0x2c4,0xb
02c5 e407       |    |		Load	0x2,0x7
02c6 e006       |    |		Load	0x0,0x6
02c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c8 e005       |    |		Load	0x0,0x5
02c9 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02ca 4801       |H   |		Short_Literal	0x1
02cb e006       |    |		Load	0x0,0x6
02cc 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
02cd e006       |    |		Load	0x0,0x6
02ce 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02cf c408       |    |		Store	0x2,0x8
02d0 00d2       |    |		Pop_Control	Pop_Count_2
02d1 e407       |    |		Load	0x2,0x7								; Debug Table 0xa.0x18 = 0x2d1,0xc
02d2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d3 a402       |    |		Store_Unchecked	0x2,0x2
02d4 e408       |    |		Load	0x2,0x8								; Debug Table 0xa.0x19 = 0x2d4,0xd
02d5 0f01       |    |		Execute_Immediate	Equal,0x1
02d6 6815       |h   |		Jump_Zero	0x2ec
02d7 4802       |H   |		Short_Literal	0x2							; Debug Table 0xa.0x1a = 0x2d7,0xe
02d8 a409       |    |		Store_Unchecked	0x2,0x9
02d9 7812       |x   |		Jump	0x2ec
02da 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x1b = 0x2da,0xf
02db 4801       |H   |		Short_Literal	0x1
02dc e007       |    |		Load	0x0,0x7
02dd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02de e002       |    |		Load	0x0,0x2
02df 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02e0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e1 0092 05ed  |    |		Action	Push_String_Extended,0x5ed					; "Other_Part"
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 e00c       |    |		Load	0x0,0xc
02e5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e6 a402       |    |		Store_Unchecked	0x2,0x2
02e7 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x1c = 0x2e7,0x10
02e8 e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0x1d = 0x2e8,0x401
02e9 021d       |    |		Execute	Heap_Access,Is_Null
02ea 6801       |h   |		Jump_Zero	0x2ec							; Debug Table 0xa.0x1e = 0x2ea,0x10
02eb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0xa.0x1f = 0x2eb,0x11
02ec e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0x20 = 0x2ec,0x12
02ed e00c       |    |		Load	0x0,0xc
02ee 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ef a404       |    |		Store_Unchecked	0x2,0x4
02f0 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x21 = 0x2f0,0x13
02f1 e404       |    |		Load	0x2,0x4								; Debug Table 0xa.0x22 = 0x2f1,0x801
02f2 021d       |    |		Execute	Heap_Access,Is_Null
02f3 685e       |h^  |		Jump_Zero	0x352							; Debug Table 0xa.0x23 = 0x2f3,0x13
02f4 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x24 = 0x2f4,0x14
02f5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f6 e002       |    |		Load	0x0,0x2
02f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f8 614f       |aO  |		Indirect_Literal	Discrete,0x448,{0x00000000, 0x00004000}
02f9 e012       |    |		Load	0x0,0x12
02fa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02fb e402       |    |		Load	0x2,0x2
02fc e002       |    |		Load	0x0,0x2
02fd 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
02fe 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02ff c404       |    |		Store	0x2,0x4
0300 c406       |    |		Store	0x2,0x6
0301 e406       |    |		Load	0x2,0x6								; Debug Table 0xa.0x25 = 0x301,0x15
0302 684f       |hO  |		Jump_Zero	0x352
0303 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x26 = 0x303,0x16
0304 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0305 e40a       |    |		Load	0x2,0xa
0306 0120       |    |		Execute	Any,Is_Value
0307 6804       |h   |		Jump_Zero	0x30c
0308 e002       |    |		Load	0x0,0x2
0309 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
030a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
030b 7801       |x   |		Jump	0x30d
030c e40a       |    |		Load	0x2,0xa
030d e402       |    |		Load	0x2,0x2
030e e002       |    |		Load	0x0,0x2
030f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0310 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0311 c40a       |    |		Store	0x2,0xa
0312 c406       |    |		Store	0x2,0x6
0313 e406       |    |		Load	0x2,0x6								; Debug Table 0xa.0x27 = 0x313,0x17
0314 0092 05ee  |    |		Action	Push_String_Extended,0x5ee					; "Ada.Get_Unit"
0316 e003       |    |		Load	0x0,0x3
0317 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0318 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x28 = 0x318,0x18
0319 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031a e40b       |    |		Load	0x2,0xb
031b 0120       |    |		Execute	Any,Is_Value
031c 6804       |h   |		Jump_Zero	0x321
031d e002       |    |		Load	0x0,0x2
031e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
031f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0320 7801       |x   |		Jump	0x322
0321 e40b       |    |		Load	0x2,0xb
0322 6125       |a%  |		Indirect_Literal	Discrete,0x448,{0x00000000, 0x00004000}
0323 e012       |    |		Load	0x0,0x12
0324 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0325 e40a       |    |		Load	0x2,0xa
0326 e002       |    |		Load	0x0,0x2
0327 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0328 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0329 c40b       |    |		Store	0x2,0xb
032a c406       |    |		Store	0x2,0x6
032b e406       |    |		Load	0x2,0x6								; Debug Table 0xa.0x29 = 0x32b,0x19
032c 6805       |h   |		Jump_Zero	0x332
032d 0092 05ef  |    |		Action	Push_String_Extended,0x5ef					; "Other part failed - not found"
													; Debug Table 0xa.0x2a = 0x32d,0x1a
032f e00a       |    |		Load	0x0,0xa
0330 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0331 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0xa.0x2b = 0x331,0x1b
0332 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x2c = 0x332,0x1c
0333 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0334 00db       |    |		Load_Top	At_Offset_3
0335 0120       |    |		Execute	Any,Is_Value
0336 6804       |h   |		Jump_Zero	0x33b
0337 e002       |    |		Load	0x0,0x2
0338 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0339 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
033a 7801       |x   |		Jump	0x33c
033b 00db       |    |		Load_Top	At_Offset_3
033c e002       |    |		Load	0x0,0x2
033d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
033e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
033f 6108       |a   |		Indirect_Literal	Discrete,0x448,{0x00000000, 0x00004000}
0340 4801       |H   |		Short_Literal	0x1
0341 4800       |H   |		Short_Literal	0x0
0342 4800       |H   |		Short_Literal	0x0
0343 e012       |    |		Load	0x0,0x12
0344 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0345 4800       |H   |		Short_Literal	0x0
0346 e40b       |    |		Load	0x2,0xb
0347 e002       |    |		Load	0x0,0x2
0348 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0349 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
034a c404       |    |		Store	0x2,0x4
034b c40c       |    |		Store	0x2,0xc
034c c406       |    |		Store	0x2,0x6
034d e406       |    |		Load	0x2,0x6								; Debug Table 0xa.0x2d = 0x34d,0x1d
034e 0092 05ec  |    |		Action	Push_String_Extended,0x5ec					; "Ada.Open"
0350 e003       |    |		Load	0x0,0x3
0351 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0352 e409       |    |		Load	0x2,0x9								; Debug Table 0xa.0x2e = 0x352,0x1e
0353 4800       |H   |		Short_Literal	0x0
0354 e5fe       |    |		Load	0x2,-0x2
0355 e404       |    |		Load	0x2,0x4
0356 e003       |    |		Load	0x0,0x3
0357 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0358 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0359			TRAP_0248:
0359 0007       |    |		Action	Break_Optional
035a e00d       |    |		Load	0x0,0xd								; Debug Table 0xa.0x2f = 0x35a,0x1f
035b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
035c 0092 05f0  |    |		Action	Push_String_Extended,0x5f0					; "*** Exception in Ada.Other_Part: "
													; Debug Table 0xa.0x30 = 0x35c,0x20
035e e00e       |    |		Load	0x0,0xe
035f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0360 01cc       |    |		Execute	Vector,Catenate
0361 e00d       |    |		Load	0x0,0xd
0362 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0363 0092 05f1  |    |		Action	Push_String_Extended,0x5f1					; "Other_Part failed - internal error"
													; Debug Table 0xa.0x31 = 0x363,0x21
0365 e00a       |    |		Load	0x0,0xa
0366 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0367 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0373       | s  |		.CONST	0x0373								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 0092 05f2  |    |		Action	Push_String_Extended,0x5f2					; "Ada.Replace_Id"
													; Debug Table 0xb = .DEBUG	0x036b,0x0b98,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0040
													; Debug Table 0xb.0x0 = 0x36b,0x1
036d e001       |    |		Load	0x0,0x1
036e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
036f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x1 = 0x36f,0x2
0370 00db       |    |		Load_Top	At_Offset_3
0371 8013       |    |		Call	0x0,0x13
0372 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0373			TRAP_0368:
0373 0007       |    |		Action	Break_Optional
0374 e00d       |    |		Load	0x0,0xd								; Debug Table 0xb.0x2 = 0x374,0x3
0375 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0376 0092 05f3  |    |		Action	Push_String_Extended,0x5f3					; "*** Exception in Ada.Replace_Id: "
													; Debug Table 0xb.0x3 = 0x376,0x4
0378 e00e       |    |		Load	0x0,0xe
0379 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
037a 01cc       |    |		Execute	Vector,Catenate
037b e00d       |    |		Load	0x0,0xd
037c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
037d 0092 05f4  |    |		Action	Push_String_Extended,0x5f4					; "Replace_Id failed - internal error"
													; Debug Table 0xb.0x4 = 0x37d,0x5
037f e00a       |    |		Load	0x0,0xa
0380 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0381 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0382 0000 0000  |    |		.BLANK	0000[0x6]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0396       |    |		.CONST	0x0396								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 0092 05f5  |    |		Action	Push_String_Extended,0x5f5					; "Ada.Show_Usage"
													; Debug Table 0xc = .DEBUG	0x038b,0x0ba4,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x004e
													; Debug Table 0xc.0x0 = 0x38b,0x1
038d e001       |    |		Load	0x0,0x1
038e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
038f e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xc.0x1 = 0x38f,0x2
0390 e5fd       |    |		Load	0x2,-0x3
0391 e5fe       |    |		Load	0x2,-0x2
0392 e5ff       |    |		Load	0x2,-0x1
0393 e014       |    |		Load	0x0,0x14
0394 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0395 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0396			TRAP_0388:
0396 0007       |    |		Action	Break_Optional
0397 e00d       |    |		Load	0x0,0xd								; Debug Table 0xc.0x2 = 0x397,0x3
0398 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0399 0092 05f6  |    |		Action	Push_String_Extended,0x5f6					; "*** Exception in Ada.Show_Usage: "
													; Debug Table 0xc.0x3 = 0x399,0x4
039b e00e       |    |		Load	0x0,0xe
039c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
039d 01cc       |    |		Execute	Vector,Catenate
039e e00d       |    |		Load	0x0,0xd
039f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03a0 0092 05f7  |    |		Action	Push_String_Extended,0x5f7					; "Show_Usage failed - internal error"
													; Debug Table 0xc.0x4 = 0x3a0,0x5
03a2 e00a       |    |		Load	0x0,0xa
03a3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03a4 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03a5 0000 0000  |    |		.XXX[0x3]
03a7 0000       |    |
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 03b5       |    |		.CONST	0x03b5								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 0092 05f8  |    |		Action	Push_String_Extended,0x5f8					; "Ada.Show_Unused"
													; Debug Table 0xd = .DEBUG	0x03ab,0x0bb0,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0066
													; Debug Table 0xd.0x0 = 0x3ab,0x1
03ad e001       |    |		Load	0x0,0x1
03ae 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03af e014       |    |		Load	0x0,0x14							; Debug Table 0xd.0x1 = 0x3af,0x2
03b0 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03b1 e5fe       |    |		Load	0x2,-0x2
03b2 e5ff       |    |		Load	0x2,-0x1
03b3 8015       |    |		Call	0x0,0x15
03b4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b5			TRAP_03a8:
03b5 0007       |    |		Action	Break_Optional
03b6 e00d       |    |		Load	0x0,0xd								; Debug Table 0xd.0x2 = 0x3b6,0x3
03b7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03b8 0092 05f9  |    |		Action	Push_String_Extended,0x5f9					; "*** Exception in Ada.Show_Unused: "
													; Debug Table 0xd.0x3 = 0x3b8,0x4
03ba e00e       |    |		Load	0x0,0xe
03bb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03bc 01cc       |    |		Execute	Vector,Catenate
03bd e00d       |    |		Load	0x0,0xd
03be 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03bf 0092 05fa  |    |		Action	Push_String_Extended,0x5fa					; "Show_Unused failed - internal error"
													; Debug Table 0xd.0x4 = 0x3bf,0x5
03c1 e00a       |    |		Load	0x0,0xa
03c2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03c3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03c4 0000 0000  |    |		.BLANK	0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 03d2       |    |		.CONST	0x03d2								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 0092 05fb  |    |		Action	Push_String_Extended,0x5fb					; "Ada.Create_Body"
													; Debug Table 0xe = .DEBUG	0x03cb,0x0bbc,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0074
													; Debug Table 0xe.0x0 = 0x3cb,0x1
03cd e001       |    |		Load	0x0,0x1
03ce 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03cf 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x1 = 0x3cf,0x2
03d0 8016       |    |		Call	0x0,0x16
03d1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03d2			TRAP_03c8:
03d2 0007       |    |		Action	Break_Optional
03d3 e00d       |    |		Load	0x0,0xd								; Debug Table 0xe.0x2 = 0x3d3,0x3
03d4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03d5 0092 05fc  |    |		Action	Push_String_Extended,0x5fc					; "*** Exception in Ada.Create_Body: "
													; Debug Table 0xe.0x3 = 0x3d5,0x4
03d7 e00e       |    |		Load	0x0,0xe
03d8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03d9 01cc       |    |		Execute	Vector,Catenate
03da e00d       |    |		Load	0x0,0xd
03db 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03dc 0092 05fd  |    |		Action	Push_String_Extended,0x5fd					; "Create_Body failed - internal error"
													; Debug Table 0xe.0x4 = 0x3dc,0x5
03de e00a       |    |		Load	0x0,0xa
03df 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03e1 0000 0000  |    |		.BLANK	0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f2       |    |		.CONST	0x03f2								; Address of begin
03e9 0436       | 6  |		.CONST	0x0436								; Address of exception handler
03ea 0003       |    |		.CONST	0x0003								; Number of locals
03eb			INIT_03e8:
03eb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xf = .DEBUG	0x03eb,0x0bc8,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x007d
													; Debug Table 0xf.0x0 = 0x3eb,0xffff
03ec 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xf.0x1 = 0x3ec,0xfffe
03ed e004       |    |		Load	0x0,0x4
03ee 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ef e004       |    |		Load	0x0,0x4
03f0 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
03f1 03f1       |    |		Declare_Variable	Discrete,With_Value
03f2			BODY_03e8:
03f2 0092 05fe  |    |		Action	Push_String_Extended,0x5fe					; "Ada.Create_Private"
													; Debug Table 0xf.0x2 = 0x3f2,0x1
03f4 e001       |    |		Load	0x0,0x1
03f5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03f6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x3 = 0x3f6,0x2
03f7 4604       |F   |		Jump_Case	0x5
03f8 780d       |x   |		Jump	0x406								; case 0x0
03f9 780c       |x   |		Jump	0x406								; case 0x1
03fa 780b       |x   |		Jump	0x406								; case 0x2
03fb 7801       |x   |		Jump	0x3fd								; case 0x3
03fc 7809       |x   |		Jump	0x406								; case 0x4
03fd e005       |    |		Load	0x0,0x5								; Debug Table 0xf.0x4 = 0x3fd,0x3
03fe 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03ff 4801       |H   |		Short_Literal	0x1
0400 e006       |    |		Load	0x0,0x6
0401 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0402 e006       |    |		Load	0x0,0x6
0403 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0404 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0405 7812       |x   |		Jump	0x418
0406 4801       |H   |		Short_Literal	0x1							; Debug Table 0xf.0x5 = 0x406,0x4
0407 4801       |H   |		Short_Literal	0x1
0408 e007       |    |		Load	0x0,0x7
0409 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
040a e002       |    |		Load	0x0,0x2
040b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
040c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
040d 0092 05ff  |    |		Action	Push_String_Extended,0x5ff					; "Ada.Create_Private_Part"
040f e5ff       |    |		Load	0x2,-0x1
0410 e00c       |    |		Load	0x0,0xc
0411 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0412 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0413 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0x6 = 0x413,0x5
0414 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0x7 = 0x414,0x401
0415 021d       |    |		Execute	Heap_Access,Is_Null
0416 6801       |h   |		Jump_Zero	0x418							; Debug Table 0xf.0x8 = 0x416,0x5
0417 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xf.0x9 = 0x417,0x6
0418 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0xa = 0x418,0x7
0419 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0xb = 0x419,0x801
041a 021d       |    |		Execute	Heap_Access,Is_Null
041b 6805       |h   |		Jump_Zero	0x421							; Debug Table 0xf.0xc = 0x41b,0x7
041c 0092 0600  |    |		Action	Push_String_Extended,0x600					; "Private_Part failed - no visible part selected"
													; Debug Table 0xf.0xd = 0x41c,0x8
041e e00a       |    |		Load	0x0,0xa
041f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0420 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xf.0xe = 0x420,0x9
0421 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0xf = 0x421,0xa
0422 e002       |    |		Load	0x0,0x2
0423 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0424 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0425 700c       |p   |		Jump_Nonzero	0x432
0426 0092 0601  |    |		Action	Push_String_Extended,0x601					; "Private_Part failed - "
													; Debug Table 0xf.0x10 = 0x426,0xb
0428 00da       |    |		Load_Top	At_Offset_2
0429 e017       |    |		Load	0x0,0x17
042a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
042b 01cc       |    |		Execute	Vector,Catenate
042c 0092 0602  |    |		Action	Push_String_Extended,0x602					; " must be source"
042e 01cc       |    |		Execute	Vector,Catenate
042f e00a       |    |		Load	0x0,0xa
0430 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0431 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xf.0x11 = 0x431,0xc
0432 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0x12 = 0x432,0xd
0433 8018       |    |		Call	0x0,0x18
0434 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0435 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0436			TRAP_03e8:
0436 0007       |    |		Action	Break_Optional
0437 e00d       |    |		Load	0x0,0xd								; Debug Table 0xf.0x13 = 0x437,0xe
0438 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0439 0092 0603  |    |		Action	Push_String_Extended,0x603					; "*** Exception in Ada.Create_Private: "
													; Debug Table 0xf.0x14 = 0x439,0xf
043b e00e       |    |		Load	0x0,0xe
043c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
043d 01cc       |    |		Execute	Vector,Catenate
043e e00d       |    |		Load	0x0,0xd
043f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0440 0092 0604  |    |		Action	Push_String_Extended,0x604					; "Create_Private failed - internal error"
													; Debug Table 0xf.0x15 = 0x440,0x10
0442 e00a       |    |		Load	0x0,0xa
0443 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0444 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0445 0000 0000  |    |		.XXX[0x3]
0447 0000       |    |
0448 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
044c 0000 0000  |    |		.LITERAL	{0x00000000, 0x578dd501}
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0458       | X  |		.CONST	0x0458								; Address of begin
0451 0471       | q  |		.CONST	0x0471								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e006       |    |		Load	0x0,0x6								; Debug Table 0x10 = .DEBUG	0x0453,0x0bf6,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0086
													; Debug Table 0x10.0x0 = 0x453,0xffff
0454 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0455 0322       | "  |		Declare_Variable	Record
0456 00d8       |    |		Load_Top	At_Offset_0
0457 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0458			BODY_0450:
0458 0092 0605  |    |		Action	Push_String_Extended,0x605					; "Ada.Get_Errors"
													; Debug Table 0x10.0x1 = 0x458,0x1
045a e001       |    |		Load	0x0,0x1
045b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
045c e005       |    |		Load	0x0,0x5								; Debug Table 0x10.0x2 = 0x45c,0x2
045d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
045e e006       |    |		Load	0x0,0x6
045f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0460 e006       |    |		Load	0x0,0x6
0461 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0462 00d9       |    |		Load_Top	At_Offset_1
0463 017d       | }  |		Execute	Record,Structure_Write
0464 e007       |    |		Load	0x0,0x7								; Debug Table 0x10.0x3 = 0x464,0x3
0465 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0466 00d9       |    |		Load_Top	At_Offset_1
0467 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0468 e004       |    |		Load	0x0,0x4
0469 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
046a e007       |    |		Load	0x0,0x7								; Debug Table 0x10.0x4 = 0x46a,0x4
046b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
046c 00d9       |    |		Load_Top	At_Offset_1
046d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
046e e004       |    |		Load	0x0,0x4
046f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0470 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0471			TRAP_0450:
0471 0007       |    |		Action	Break_Optional
0472 e00d       |    |		Load	0x0,0xd								; Debug Table 0x10.0x5 = 0x472,0x5
0473 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0474 0092 0606  |    |		Action	Push_String_Extended,0x606					; "*** Exception in Ada.Get_Errors: "
													; Debug Table 0x10.0x6 = 0x474,0x6
0476 e00e       |    |		Load	0x0,0xe
0477 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0478 01cc       |    |		Execute	Vector,Catenate
0479 e00d       |    |		Load	0x0,0xd
047a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
047b 0092 0607  |    |		Action	Push_String_Extended,0x607					; "Get_Errors failed - internal error"
													; Debug Table 0x10.0x7 = 0x47b,0x7
047d e00a       |    |		Load	0x0,0xa
047e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
047f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 0092 0608  |    |		Action	Push_String_Extended,0x608					; "Insert_Blank_Line is not yet implemented"
													; Debug Table 0x11 = .DEBUG	0x0483,0x0c08,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x008a
													; Debug Table 0x11.0x0 = 0x483,0x1
0485 e00a       |    |		Load	0x0,0xa
0486 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0487 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b 0092 0609  |    |		Action	Push_String_Extended,0x609					; "Delete_Blank_Line is not yet implemented"
													; Debug Table 0x12 = .DEBUG	0x048b,0x0c0c,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0093
													; Debug Table 0x12.0x0 = 0x48b,0x1
048d e00a       |    |		Load	0x0,0xa
048e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
048f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0499       |    |		.CONST	0x0499								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x13 = .DEBUG	0x0493,0x0c10,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x009c
													; Debug Table 0x13.0x0 = 0x493,0x1
0494 e5fd       |    |		Load	0x2,-0x3
0495 e5fe       |    |		Load	0x2,-0x2
0496 e5ff       |    |		Load	0x2,-0x1
0497 8019       |    |		Call	0x0,0x19
0498 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0499			TRAP_0490:
0499 0007       |    |		Action	Break_Optional
049a e00d       |    |		Load	0x0,0xd								; Debug Table 0x13.0x1 = 0x49a,0x2
049b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
049c 0092 060a  |    |		Action	Push_String_Extended,0x60a					; "*** Exception in Ada.Expand_Names: "
													; Debug Table 0x13.0x2 = 0x49c,0x3
049e e00e       |    |		Load	0x0,0xe
049f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04a0 01cc       |    |		Execute	Vector,Catenate
04a1 e00d       |    |		Load	0x0,0xd
04a2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04a3 0092 060b  |    |		Action	Push_String_Extended,0x60b					; "Expand_Names failed - internal error"
													; Debug Table 0x13.0x3 = 0x4a3,0x4
04a5 e00a       |    |		Load	0x0,0xa
04a6 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04a7 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 4801       |H   |		Short_Literal	0x1							; Debug Table 0x14 = .DEBUG	0x04ab,0x0c1a,0x0002,0x0000,0x0057,0x9665,0x0000,0x0078
													; Debug Table 0x14.0x0 = 0x4ab,0x1
04ac 0092 060c  |    |		Action	Push_String_Extended,0x60c					; "ADA"
04ae e008       |    |		Load	0x0,0x8
04af 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
04b0 e01a       |    |		Load	0x0,0x1a
04b1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04b2 00ca       |    |		Action	Exit_Nullary_Function
04b3 0000 0000  |    |		.BLANK	0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c6       |    |		.CONST	0x04c6								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0005       |    |		.CONST	0x0005								; Number of locals
04bb			INIT_04b8:
04bb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15 = .DEBUG	0x04bb,0x0c1e,0x0002,0x0000,0x0057,0x9665,0x0000,0x0092
													; Debug Table 0x15.0x0 = 0x4bb,0xffff
04bc e002       |    |		Load	0x0,0x2								; Debug Table 0x15.0x1 = 0x4bc,0xfffe
04bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04be 02c7       |    |		Declare_Variable	Any
04bf 00d8       |    |		Load_Top	At_Offset_0
04c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c1 e002       |    |		Load	0x0,0x2								; Debug Table 0x15.0x2 = 0x4c1,0xfffd
04c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04c3 e002       |    |		Load	0x0,0x2								; Debug Table 0x15.0x3 = 0x4c3,0xfffc
04c4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04c5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04c6			BODY_04b8:
04c6 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0x4 = 0x4c6,0x1
04c7 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x5 = 0x4c7,0x401
04c8 a402       |    |		Store_Unchecked	0x2,0x2							; Debug Table 0x15.0x6 = 0x4c8,0x1
04c9 e002       |    |		Load	0x0,0x2								; Debug Table 0x15.0x7 = 0x4c9,0x2
04ca 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04cb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04cc e002       |    |		Load	0x0,0x2
04cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04ce e007       |    |		Load	0x0,0x7
04cf 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04d0 4800       |H   |		Short_Literal	0x0
04d1 e008       |    |		Load	0x0,0x8
04d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d3 c402       |    |		Store	0x2,0x2
04d4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04d5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x8 = 0x4d5,0x3
04d6 460e       |F   |		Jump_Case	0xf
04d7 780e       |x   |		Jump	0x4e6								; case 0x0
04d8 780f       |x   |		Jump	0x4e8								; case 0x1
04d9 780e       |x   |		Jump	0x4e8								; case 0x2
04da 780d       |x   |		Jump	0x4e8								; case 0x3
04db 780c       |x   |		Jump	0x4e8								; case 0x4
04dc 780b       |x   |		Jump	0x4e8								; case 0x5
04dd 780a       |x   |		Jump	0x4e8								; case 0x6
04de 7809       |x   |		Jump	0x4e8								; case 0x7
04df 7808       |x   |		Jump	0x4e8								; case 0x8
04e0 780a       |x   |		Jump	0x4eb								; case 0x9
04e1 7806       |x   |		Jump	0x4e8								; case 0xa
04e2 7808       |x   |		Jump	0x4eb								; case 0xb
04e3 7804       |x   |		Jump	0x4e8								; case 0xc
04e4 7803       |x   |		Jump	0x4e8								; case 0xd
04e5 7802       |x   |		Jump	0x4e8								; case 0xe
04e6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x15.0x9 = 0x4e6,0x4
04e7 00ca       |    |		Action	Exit_Nullary_Function
04e8 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0xa = 0x4e8,0x6
04e9 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0xb = 0x4e9,0x801
04ea 00ca       |    |		Action	Exit_Nullary_Function						; Debug Table 0x15.0xc = 0x4ea,0x6
04eb e002       |    |		Load	0x0,0x2								; Debug Table 0x15.0xd = 0x4eb,0x7
04ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ee 00db       |    |		Load_Top	At_Offset_3
04ef 0120       |    |		Execute	Any,Is_Value
04f0 6803       |h   |		Jump_Zero	0x4f4
04f1 e002       |    |		Load	0x0,0x2
04f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04f3 7801       |x   |		Jump	0x4f5
04f4 00db       |    |		Load_Top	At_Offset_3
04f5 e007       |    |		Load	0x0,0x7
04f6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04f7 4800       |H   |		Short_Literal	0x0
04f8 e002       |    |		Load	0x0,0x2
04f9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04fa 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04fb e008       |    |		Load	0x0,0x8
04fc 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04fd c403       |    |		Store	0x2,0x3
04fe 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04ff 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0xe = 0x4ff,0x8
0500 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0501 7003       |p   |		Jump_Nonzero	0x505
0502 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0xf = 0x502,0xb
0503 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x10 = 0x503,0xc01
0504 00ca       |    |		Action	Exit_Nullary_Function						; Debug Table 0x15.0x11 = 0x504,0xb
0505 e002       |    |		Load	0x0,0x2								; Debug Table 0x15.0x12 = 0x505,0x9
0506 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0507 e002       |    |		Load	0x0,0x2
0508 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0509 673e       |g>  |		Indirect_Literal	Discrete,0x448,{0x00000000, 0x00004000}
050a e012       |    |		Load	0x0,0x12
050b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
050c 4800       |H   |		Short_Literal	0x0
050d e403       |    |		Load	0x2,0x3
050e e002       |    |		Load	0x0,0x2
050f 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0510 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0511 c402       |    |		Store	0x2,0x2
0512 005b       | [  |		Store_Top	Discrete,At_Offset_3
0513 e402       |    |		Load	0x2,0x2								; Debug Table 0x15.0x13 = 0x513,0xa
0514 00ca       |    |		Action	Exit_Nullary_Function
0515 0000 0000  |    |		.XXX[0x3]
0517 0000       |    |
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0523       | #  |		.CONST	0x0523								; Address of begin
0519 05a0       |    |		.CONST	0x05a0								; Address of exception handler
051a 0005       |    |		.CONST	0x0005								; Number of locals
051b			INIT_0518:
051b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x16 = .DEBUG	0x051b,0x0c48,0x0001,0x0000,0x0057,0x9665,0x0000,0x0119
													; Debug Table 0x16.0x0 = 0x51b,0xffff
051c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16.0x1 = 0x51c,0xfffe
051d 00e4       |    |		Load_Encached	Positive_Cache						; Debug Table 0x16.0x2 = 0x51d,0xfffd
051e e003       |    |		Load	0x0,0x3								; Debug Table 0x16.0x3 = 0x51e,0xfffc
051f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0520 0322       | "  |		Declare_Variable	Record
0521 00d8       |    |		Load_Top	At_Offset_0
0522 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0523			BODY_0518:
0523 821f       |    |		Call	0x1,0x1f							; Debug Table 0x16.0x4 = 0x523,0x1
0524 6823       |h#  |		Jump_Zero	0x548
0525 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0x5 = 0x525,0x2
0526 e006       |    |		Load	0x0,0x6								; Debug Table 0x16.0x6 = 0x526,0xfbff
0527 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0528 0322       | "  |		Declare_Variable	Record
0529 e006       |    |		Load	0x0,0x6								; Debug Table 0x16.0x7 = 0x529,0xfbfe
052a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
052b 0322       | "  |		Declare_Variable	Record
052c 00d8       |    |		Load_Top	At_Offset_0
052d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
052e e006       |    |		Load	0x0,0x6								; Debug Table 0x16.0x8 = 0x52e,0xfbfd
052f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0530 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x16.0x9 = 0x530,0x401
0531 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0532 00da       |    |		Load_Top	At_Offset_2
0533 e406       |    |		Load	0x2,0x6
0534 e006       |    |		Load	0x0,0x6
0535 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0536 e005       |    |		Load	0x0,0x5
0537 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0538 4801       |H   |		Short_Literal	0x1
0539 e006       |    |		Load	0x0,0x6
053a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
053b e006       |    |		Load	0x0,0x6
053c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
053d c408       |    |		Store	0x2,0x8
053e 00d3       |    |		Pop_Control	Pop_Count_3
053f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0xa = 0x53f,0x402
0540 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0541 e405       |    |		Load	0x2,0x5
0542 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0543 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0xb = 0x543,0x403
0544 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0545 c404       |    |		Store	0x2,0x4
0546 00d3       |    |		Pop_Control	Pop_Count_3
0547 784a       |xJ  |		Jump	0x592
0548 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0xc = 0x548,0x3
0549 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16.0xd = 0x549,0xf7ff
054a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16.0xe = 0x54a,0xf7fe
054b e006       |    |		Load	0x0,0x6								; Debug Table 0x16.0xf = 0x54b,0x801
054c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
054d 00db       |    |		Load_Top	At_Offset_3
054e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
054f 8220       |    |		Call	0x1,0x20							; Debug Table 0x16.0x10 = 0x54f,0x802
0550 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0551 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0x11 = 0x551,0x803
0552 e406       |    |		Load	0x2,0x6								; Debug Table 0x16.0x12 = 0x552,0xc01
0553 0007       |    |		Action	Break_Optional
0554 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x16.0x13 = 0x554,0xc02
0555 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0x14 = 0x555,0xc03
0556 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0x15 = 0x556,0xc04
0557 0b00       |    |		Execute_Immediate	Case_Compare,0x0				; Debug Table 0x16.0x16 = 0x557,0x803
0558 7024       |p$  |		Jump_Nonzero	0x57d
0559 0b39       | 9  |		Execute_Immediate	Case_Compare,0x39
055a 7027       |p'  |		Jump_Nonzero	0x582
055b 0b30       | 0  |		Execute_Immediate	Case_Compare,0x30
055c 7025       |p%  |		Jump_Nonzero	0x582
055d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0x17 = 0x55d,0x809
055e e009       |    |		Load	0x0,0x9
055f 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0560 7004       |p   |		Jump_Nonzero	0x565
0561 00da       |    |		Load_Top	At_Offset_2
0562 e009       |    |		Load	0x0,0x9
0563 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0564 6826       |h&  |		Jump_Zero	0x58b
0565 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0x18 = 0x565,0x80a
0566 00eb       |    |		Load_Encached	Diana_Cache
0567 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0568 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0569 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0x19 = 0x569,0x80b
056a e407       |    |		Load	0x2,0x7								; Debug Table 0x16.0x1a = 0x56a,0x1001
056b 0007       |    |		Action	Break_Optional
056c 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x16.0x1b = 0x56c,0x1002
056d 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0x1c = 0x56d,0x1003
056e 0007       |    |		Action	Break_Optional							; Debug Table 0x16.0x1d = 0x56e,0x1004
056f 0ba8       |    |		Execute_Immediate	Case_Compare,0xa8				; Debug Table 0x16.0x1e = 0x56f,0x80b
0570 7003       |p   |		Jump_Nonzero	0x574
0571 0b49       | I  |		Execute_Immediate	Case_Compare,0x49
0572 7004       |p   |		Jump_Nonzero	0x577
0573 7807       |x   |		Jump	0x57b								; Debug Table 0x16.0x1f = 0x573,0x80e
0574 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0x20 = 0x574,0x80c
0575 a406       |    |		Store_Unchecked	0x2,0x6
0576 7804       |x   |		Jump	0x57b
0577 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0x21 = 0x577,0x80d
0578 00eb       |    |		Load_Encached	Diana_Cache
0579 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
057a a406       |    |		Store_Unchecked	0x2,0x6
057b 00d1       |    |		Pop_Control	Pop_Count_1
057c 780e       |x   |		Jump	0x58b
057d 0092 05d8  |    |		Action	Push_String_Extended,0x5d8					; "Command failed - no selection"
													; Debug Table 0x16.0x22 = 0x57d,0x804
057f e00a       |    |		Load	0x0,0xa
0580 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0581 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x16.0x23 = 0x581,0x805
0582 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0x24 = 0x582,0x806
0583 e00b       |    |		Load	0x0,0xb
0584 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0585 6805       |h   |		Jump_Zero	0x58b
0586 0092 05d9  |    |		Action	Push_String_Extended,0x5d9					; "Command failed - not an ada object"
													; Debug Table 0x16.0x25 = 0x586,0x807
0588 e00a       |    |		Load	0x0,0xa
0589 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
058a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x16.0x26 = 0x58a,0x808
058b 00d1       |    |		Pop_Control	Pop_Count_1
058c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x16.0x27 = 0x58c,0x80f
058d 00db       |    |		Load_Top	At_Offset_3
058e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
058f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x16.0x28 = 0x58f,0x810
0590 a404       |    |		Store_Unchecked	0x2,0x4
0591 00d2       |    |		Pop_Control	Pop_Count_2
0592 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x16.0x29 = 0x592,0x4
0593 00ec       |    |		Load_Encached	Diana_Tree_Cache
0594 00db       |    |		Load_Top	At_Offset_3
0595 e5ff       |    |		Load	0x2,-0x1
0596 e405       |    |		Load	0x2,0x5
0597 e003       |    |		Load	0x0,0x3
0598 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0599 c403       |    |		Store	0x2,0x3
059a c402       |    |		Store	0x2,0x2
059b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x2a = 0x59b,0x5
059c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
059d e006       |    |		Load	0x0,0x6
059e 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
059f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05a0			TRAP_0518:
05a0 0007       |    |		Action	Break_Optional
05a1 e00d       |    |		Load	0x0,0xd								; Debug Table 0x16.0x2b = 0x5a1,0x6
05a2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05a3 0092 060d  |    |		Action	Push_String_Extended,0x60d					; "*** Exception in Ada.Change_State: "
													; Debug Table 0x16.0x2c = 0x5a3,0x7
05a5 e00e       |    |		Load	0x0,0xe
05a6 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05a7 01cc       |    |		Execute	Vector,Catenate
05a8 e00d       |    |		Load	0x0,0xd
05a9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05aa 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x16.0x2d = 0x5aa,0x8
05ab 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05ac e006       |    |		Load	0x0,0x6
05ad 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
05ae 00d1       |    |		Pop_Control	Pop_Count_1
05af 0092 060e  |    |		Action	Push_String_Extended,0x60e					; "Operation failed - internal error"
													; Debug Table 0x16.0x2e = 0x5af,0x9
05b1 e00a       |    |		Load	0x0,0xa
05b2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b4 0000 0000  |    |		.BLANK	0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb       |    |		.CONST	0x05bb								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0001       |    |		.CONST	0x0001								; Number of locals
05bb			BODY_05b8:
05bb			INIT_05b8:
05bb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x17 = .DEBUG	0x05bb,0x0ca8,0x0002,0x0000,0x0057,0x9665,0x0000,0x024a
													; Debug Table 0x17.0x0 = 0x5bb,0x1
05bc 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
05bd 7002       |p   |		Jump_Nonzero	0x5c0
05be 4801       |H   |		Short_Literal	0x1							; Debug Table 0x17.0x1 = 0x5be,0x2
05bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05c0 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x17.0x2 = 0x5c0,0x3
05c1 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
05c2 00db       |    |		Load_Top	At_Offset_3
05c3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
05c4 027e       | ~  |		Execute	Discrete,Not_Equal
05c5 7006       |p   |		Jump_Nonzero	0x5cc
05c6 00da       |    |		Load_Top	At_Offset_2
05c7 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
05c8 00db       |    |		Load_Top	At_Offset_3
05c9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05ca 027e       | ~  |		Execute	Discrete,Not_Equal
05cb 6802       |h   |		Jump_Zero	0x5ce
05cc 4801       |H   |		Short_Literal	0x1							; Debug Table 0x17.0x3 = 0x5cc,0x4
05cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ce 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x17.0x4 = 0x5ce,0x5
05cf 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05d0 e005       |    |		Load	0x0,0x5
05d1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05d2 0f01       |    |		Execute_Immediate	Equal,0x1
05d3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d4 ; --------------------------------------------------------------------------------------
05d4 ; STRING TABLE
05d4 ; --------------------------------------------------------------------------------------
05d4 0078       | x  |		.STRTAB	0x0078->0x0610							; "Ada.Code_Unit"
05d5 0083       |    |		.STRTAB	0x0083->0x0616							; "Ada.Install_Unit"
05d6 0091       |    |		.STRTAB	0x0091->0x061e							; "Ada.Source_Unit"
05d7 009e       |    |		.STRTAB	0x009e->0x0626							; "Ada.Withdraw"
05d8 00a8       |    |		.STRTAB	0x00a8->0x062c							; "Command failed - no selection"
05d9 00c3       |    |		.STRTAB	0x00c3->0x063a							; "Command failed - not an ada object"
05da 00e3       |    |		.STRTAB	0x00e3->0x064b							; "Withdraw"
05db 00e9       |    |		.STRTAB	0x00e9->0x064f							; "*** Exception in Ada.Withdraw: "
05dc 0106       |    |		.STRTAB	0x0106->0x065f							; "Withdraw failed - internal error"
05dd 0124       | $  |		.STRTAB	0x0124->0x066f							; "Ada.Diana_Edit"
05de 0130       | 0  |		.STRTAB	0x0130->0x0676							; "*** Exception in Ada.Diana_Edit: "
05df 014f       | O  |		.STRTAB	0x014f->0x0686							; "Diana_Edit failed - internal error"
05e0 016f       | o  |		.STRTAB	0x016f->0x0697							; "Ada.Install_Stub"
05e1 017d       | }  |		.STRTAB	0x017d->0x069f							; "*** Exception in Ada.Install_Stub: "
05e2 019e       |    |		.STRTAB	0x019e->0x06b1							; "Install_Stub failed - internal error"
05e3 01c0       |    |		.STRTAB	0x01c0->0x06c3							; "Ada.Make_Inline"
05e4 01cd       |    |		.STRTAB	0x01cd->0x06ca							; "<IMAGE>"
05e5 01d2       |    |		.STRTAB	0x01d2->0x06ce							; "Make_Inline failed - unit is not an Ada object"
05e6 01fe       |    |		.STRTAB	0x01fe->0x06e5							; "*** Exception in Ada.Make_Inline: "
05e7 021e       |    |		.STRTAB	0x021e->0x06f6							; "Make_Inline failed - internal error"
05e8 023f       | ?  |		.STRTAB	0x023f->0x0707							; "Ada.Make_Separate"
05e9 024e       | N  |		.STRTAB	0x024e->0x0710							; "*** Exception in Ada.Make_Separate: "
05ea 0270       | p  |		.STRTAB	0x0270->0x0722							; "Make_Separate failed - internal error"
05eb 0293       |    |		.STRTAB	0x0293->0x0734							; "Ada.Other_Part"
05ec 029f       |    |		.STRTAB	0x029f->0x073b							; "Ada.Open"
05ed 02a5       |    |		.STRTAB	0x02a5->0x073f							; "Other_Part"
05ee 02ad       |    |		.STRTAB	0x02ad->0x0744							; "Ada.Get_Unit"
05ef 02b7       |    |		.STRTAB	0x02b7->0x074a							; "Other part failed - not found"
05f0 02d2       |    |		.STRTAB	0x02d2->0x0759							; "*** Exception in Ada.Other_Part: "
05f1 02f1       |    |		.STRTAB	0x02f1->0x0769							; "Other_Part failed - internal error"
05f2 0311       |    |		.STRTAB	0x0311->0x077a							; "Ada.Replace_Id"
05f3 031d       |    |		.STRTAB	0x031d->0x0781							; "*** Exception in Ada.Replace_Id: "
05f4 033c       | <  |		.STRTAB	0x033c->0x0792							; "Replace_Id failed - internal error"
05f5 035c       | \  |		.STRTAB	0x035c->0x07a3							; "Ada.Show_Usage"
05f6 0368       | h  |		.STRTAB	0x0368->0x07aa							; "*** Exception in Ada.Show_Usage: "
05f7 0387       |    |		.STRTAB	0x0387->0x07ba							; "Show_Usage failed - internal error"
05f8 03a7       |    |		.STRTAB	0x03a7->0x07cb							; "Ada.Show_Unused"
05f9 03b4       |    |		.STRTAB	0x03b4->0x07d3							; "*** Exception in Ada.Show_Unused: "
05fa 03d4       |    |		.STRTAB	0x03d4->0x07e4							; "Show_Unused failed - internal error"
05fb 03f5       |    |		.STRTAB	0x03f5->0x07f5							; "Ada.Create_Body"
05fc 0402       |    |		.STRTAB	0x0402->0x07fd							; "*** Exception in Ada.Create_Body: "
05fd 0422       | "  |		.STRTAB	0x0422->0x080e							; "Create_Body failed - internal error"
05fe 0443       | C  |		.STRTAB	0x0443->0x081f							; "Ada.Create_Private"
05ff 0453       | S  |		.STRTAB	0x0453->0x0828							; "Ada.Create_Private_Part"
0600 0468       | h  |		.STRTAB	0x0468->0x0834							; "Private_Part failed - no visible part selected"
0601 0494       |    |		.STRTAB	0x0494->0x084b							; "Private_Part failed - "
0602 04a8       |    |		.STRTAB	0x04a8->0x0856							; " must be source"
0603 04b5       |    |		.STRTAB	0x04b5->0x085d							; "*** Exception in Ada.Create_Private: "
0604 04d8       |    |		.STRTAB	0x04d8->0x0870							; "Create_Private failed - internal error"
0605 04fc       |    |		.STRTAB	0x04fc->0x0883							; "Ada.Get_Errors"
0606 0508       |    |		.STRTAB	0x0508->0x088a							; "*** Exception in Ada.Get_Errors: "
0607 0527       | '  |		.STRTAB	0x0527->0x089a							; "Get_Errors failed - internal error"
0608 0547       | G  |		.STRTAB	0x0547->0x08ab							; "Insert_Blank_Line is not yet implemented"
0609 056d       | m  |		.STRTAB	0x056d->0x08bf							; "Delete_Blank_Line is not yet implemented"
060a 0593       |    |		.STRTAB	0x0593->0x08d3							; "*** Exception in Ada.Expand_Names: "
060b 05b4       |    |		.STRTAB	0x05b4->0x08e5							; "Expand_Names failed - internal error"
060c 05d6       |    |		.STRTAB	0x05d6->0x08f7							; "ADA"
060d 05d7       |    |		.STRTAB	0x05d7->0x08f8							; "*** Exception in Ada.Change_State: "
060e 05f8       |    |		.STRTAB	0x05f8->0x090a							; "Operation failed - internal error"
060f 0617       |    |		.STREND 0x0617->0x091a
0610 4164 612e  |Ada.|		.STRTAB_STRINGS
091b 0000 0000  |    |		.BLANK	0000[0x5]
0920 ; --------------------------------------------------------------------------------------
0920 ; Debug Table
0920 ; --------------------------------------------------------------------------------------
0920 0003 0018  |    |		.CONST	0x0003,0x0018
0922 000b 09e2  |    |		.DEBUG	0x000b,0x09e2,0x8000,0x0000,0x0054,0xf1d5,0x0000,0x0003
092a 0033 0a10  | 3  |		.DEBUG	0x0033,0x0a10,0x8000,0x0000,0x0057,0x9665,0x0000,0x003b
0932 0073 0a4e  | s N|		.DEBUG	0x0073,0x0a4e,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0008
093a 0083 0a54  |   T|		.DEBUG	0x0083,0x0a54,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x000c
0942 0093 0a5a  |   Z|		.DEBUG	0x0093,0x0a5a,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0010
094a 00a3 0a60  |   `|		.DEBUG	0x00a3,0x0a60,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0014
0952 015b 0abc  | [  |		.DEBUG	0x015b,0x0abc,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x001d
095a 018b 0ad6  |    |		.DEBUG	0x018b,0x0ad6,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0026
0962 01bb 0aea  |    |		.DEBUG	0x01bb,0x0aea,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x002a
096a 020b 0b18  |    |		.DEBUG	0x020b,0x0b18,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x002e
0972 024b 0b32  | K 2|		.DEBUG	0x024b,0x0b32,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0032
097a 036b 0b98  | k  |		.DEBUG	0x036b,0x0b98,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0040
0982 038b 0ba4  |    |		.DEBUG	0x038b,0x0ba4,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x004e
098a 03ab 0bb0  |    |		.DEBUG	0x03ab,0x0bb0,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0066
0992 03cb 0bbc  |    |		.DEBUG	0x03cb,0x0bbc,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0074
099a 03eb 0bc8  |    |		.DEBUG	0x03eb,0x0bc8,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x007d
09a2 0453 0bf6  | S  |		.DEBUG	0x0453,0x0bf6,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0086
09aa 0483 0c08  |    |		.DEBUG	0x0483,0x0c08,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x008a
09b2 048b 0c0c  |    |		.DEBUG	0x048b,0x0c0c,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x0093
09ba 0493 0c10  |    |		.DEBUG	0x0493,0x0c10,0x0001,0x0000,0x0054,0xf1d5,0x0000,0x009c
09c2 04ab 0c1a  |    |		.DEBUG	0x04ab,0x0c1a,0x0002,0x0000,0x0057,0x9665,0x0000,0x0078
09ca 04bb 0c1e  |    |		.DEBUG	0x04bb,0x0c1e,0x0002,0x0000,0x0057,0x9665,0x0000,0x0092
09d2 051b 0c48  |   H|		.DEBUG	0x051b,0x0c48,0x0001,0x0000,0x0057,0x9665,0x0000,0x0119
09da 05bb 0ca8  |    |		.DEBUG	0x05bb,0x0ca8,0x0002,0x0000,0x0057,0x9665,0x0000,0x024a
09e2 ; --------------------------------------------------------------------------------------
09e2 ; Debug3 Subtable 0x0
09e2 ; --------------------------------------------------------------------------------------
09e2 0016 0000  |    |		.DBG3TAB	0x0016,0x0000
09e4 000b ffff  |    |		.CONST	0x000b,0xffff
09e6 000c fffe  |    |		.CONST	0x000c,0xfffe
09e8 000e fffd  |    |		.CONST	0x000e,0xfffd
09ea 0010 fffc  |    |		.CONST	0x0010,0xfffc
09ec 0012 fffb  |    |		.CONST	0x0012,0xfffb
09ee 0014 fffa  |    |		.CONST	0x0014,0xfffa
09f0 0016 fff9  |    |		.CONST	0x0016,0xfff9
09f2 0018 fff8  |    |		.CONST	0x0018,0xfff8
09f4 001a fff7  |    |		.CONST	0x001a,0xfff7
09f6 001c fff6  |    |		.CONST	0x001c,0xfff6
09f8 001e fff5  |    |		.CONST	0x001e,0xfff5
09fa 0020 fff4  |    |		.CONST	0x0020,0xfff4
09fc 0022 fff3  | "  |		.CONST	0x0022,0xfff3
09fe 0024 fff2  | $  |		.CONST	0x0024,0xfff2
0a00 0026 fff1  | &  |		.CONST	0x0026,0xfff1
0a02 0028 fff0  | (  |		.CONST	0x0028,0xfff0
0a04 002a ffef  | *  |		.CONST	0x002a,0xffef
0a06 002c ffee  | ,  |		.CONST	0x002c,0xffee
0a08 002e ffed  | .  |		.CONST	0x002e,0xffed
0a0a 0030 ffec  | 0  |		.CONST	0x0030,0xffec
0a0c 0031 ffeb  | 1  |		.CONST	0x0031,0xffeb
0a0e 0032 ffea  | 2  |		.CONST	0x0032,0xffea
0a10 ; --------------------------------------------------------------------------------------
0a10 ; Debug3 Subtable 0x1
0a10 ; --------------------------------------------------------------------------------------
0a10 001e 0000  |    |		.DBG3TAB	0x001e,0x0000
0a12 0033 ffff  | 3  |		.CONST	0x0033,0xffff
0a14 0034 fffe  | 4  |		.CONST	0x0034,0xfffe
0a16 0035 fffd  | 5  |		.CONST	0x0035,0xfffd
0a18 0036 fffc  | 6  |		.CONST	0x0036,0xfffc
0a1a 0037 fffb  | 7  |		.CONST	0x0037,0xfffb
0a1c 0038 fffa  | 8  |		.CONST	0x0038,0xfffa
0a1e 0039 fff9  | 9  |		.CONST	0x0039,0xfff9
0a20 003a fff8  | :  |		.CONST	0x003a,0xfff8
0a22 003b fff7  | ;  |		.CONST	0x003b,0xfff7
0a24 003d fff6  | =  |		.CONST	0x003d,0xfff6
0a26 003f fff5  | ?  |		.CONST	0x003f,0xfff5
0a28 0041 fff4  | A  |		.CONST	0x0041,0xfff4
0a2a 0043 fff3  | C  |		.CONST	0x0043,0xfff3
0a2c 0045 fff2  | E  |		.CONST	0x0045,0xfff2
0a2e 0047 fff1  | G  |		.CONST	0x0047,0xfff1
0a30 0049 fff0  | I  |		.CONST	0x0049,0xfff0
0a32 004b ffef  | K  |		.CONST	0x004b,0xffef
0a34 004d ffee  | M  |		.CONST	0x004d,0xffee
0a36 004f ffed  | O  |		.CONST	0x004f,0xffed
0a38 0051 ffec  | Q  |		.CONST	0x0051,0xffec
0a3a 0053 ffeb  | S  |		.CONST	0x0053,0xffeb
0a3c 0055 ffea  | U  |		.CONST	0x0055,0xffea
0a3e 0057 ffe9  | W  |		.CONST	0x0057,0xffe9
0a40 0059 ffe8  | Y  |		.CONST	0x0059,0xffe8
0a42 005b ffe7  | [  |		.CONST	0x005b,0xffe7
0a44 005d ffe6  | ]  |		.CONST	0x005d,0xffe6
0a46 005f ffe5  | _  |		.CONST	0x005f,0xffe5
0a48 0061 ffe4  | a  |		.CONST	0x0061,0xffe4
0a4a 0063 ffe3  | c  |		.CONST	0x0063,0xffe3
0a4c 0065 ffe2  | e  |		.CONST	0x0065,0xffe2
0a4e ; --------------------------------------------------------------------------------------
0a4e ; Debug3 Subtable 0x2
0a4e ; --------------------------------------------------------------------------------------
0a4e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0a50 0073 0001  | s  |		.CONST	0x0073,0x0001
0a52 0077 0002  | w  |		.CONST	0x0077,0x0002
0a54 ; --------------------------------------------------------------------------------------
0a54 ; Debug3 Subtable 0x3
0a54 ; --------------------------------------------------------------------------------------
0a54 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0a56 0083 0001  |    |		.CONST	0x0083,0x0001
0a58 0087 0002  |    |		.CONST	0x0087,0x0002
0a5a ; --------------------------------------------------------------------------------------
0a5a ; Debug3 Subtable 0x4
0a5a ; --------------------------------------------------------------------------------------
0a5a 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0a5c 0093 0001  |    |		.CONST	0x0093,0x0001
0a5e 0097 0002  |    |		.CONST	0x0097,0x0002
0a60 ; --------------------------------------------------------------------------------------
0a60 ; Debug3 Subtable 0x5
0a60 ; --------------------------------------------------------------------------------------
0a60 0005 0028  |   (|		.DBG3TAB	0x0005,0x0028
0a62 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0a64 00a6 fffe  |    |		.CONST	0x00a6,0xfffe
0a66 00a7 fffd  |    |		.CONST	0x00a7,0xfffd
0a68 00a8 fffc  |    |		.CONST	0x00a8,0xfffc
0a6a 00ad fffb  |    |		.CONST	0x00ad,0xfffb
0a6c 00b3 0001  |    |		.CONST	0x00b3,0x0001
0a6e 00b7 0002  |    |		.CONST	0x00b7,0x0002
0a70 00be 0003  |    |		.CONST	0x00be,0x0003
0a72 00c0 0004  |    |		.CONST	0x00c0,0x0004
0a74 00ce 0005  |    |		.CONST	0x00ce,0x0005
0a76 00d2 0006  |    |		.CONST	0x00d2,0x0006
0a78 00de 0007  |    |		.CONST	0x00de,0x0007
0a7a 00df 0401  |    |		.CONST	0x00df,0x0401
0a7c 00e1 0402  |    |		.CONST	0x00e1,0x0402
0a7e 00e2 0403  |    |		.CONST	0x00e2,0x0403
0a80 00e3 0404  |    |		.CONST	0x00e3,0x0404
0a82 00e4 0007  |    |		.CONST	0x00e4,0x0007
0a84 00ea 000d  |    |		.CONST	0x00ea,0x000d
0a86 00f2 000e  |    |		.CONST	0x00f2,0x000e
0a88 00f6 000f  |    |		.CONST	0x00f6,0x000f
0a8a 00f7 0801  |    |		.CONST	0x00f7,0x0801
0a8c 00f9 0802  |    |		.CONST	0x00f9,0x0802
0a8e 00fa 0803  |    |		.CONST	0x00fa,0x0803
0a90 00fb 0804  |    |		.CONST	0x00fb,0x0804
0a92 00fc 000f  |    |		.CONST	0x00fc,0x000f
0a94 0100 0012  |    |		.CONST	0x0100,0x0012
0a96 0101 0010  |    |		.CONST	0x0101,0x0010
0a98 0104 0011  |    |		.CONST	0x0104,0x0011
0a9a 010a 0008  |    |		.CONST	0x010a,0x0008
0a9c 010e 0009  |    |		.CONST	0x010e,0x0009
0a9e 010f 000a  |    |		.CONST	0x010f,0x000a
0aa0 0113 000b  |    |		.CONST	0x0113,0x000b
0aa2 0117 000c  |    |		.CONST	0x0117,0x000c
0aa4 0119 0013  |    |		.CONST	0x0119,0x0013
0aa6 011d 0014  |    |		.CONST	0x011d,0x0014
0aa8 0121 0015  | !  |		.CONST	0x0121,0x0015
0aaa 012f 0016  | /  |		.CONST	0x012f,0x0016
0aac 0132 0c01  | 2  |		.CONST	0x0132,0x0c01
0aae 0136 0016  | 6  |		.CONST	0x0136,0x0016
0ab0 0137 0017  | 7  |		.CONST	0x0137,0x0017
0ab2 013d 0018  | =  |		.CONST	0x013d,0x0018
0ab4 0143 0019  | C  |		.CONST	0x0143,0x0019
0ab6 0145 001a  | E  |		.CONST	0x0145,0x001a
0ab8 014c 001b  | L  |		.CONST	0x014c,0x001b
0aba 0151 001c  | Q  |		.CONST	0x0151,0x001c
0abc ; --------------------------------------------------------------------------------------
0abc ; Debug3 Subtable 0x6
0abc ; --------------------------------------------------------------------------------------
0abc 0001 000b  |    |		.DBG3TAB	0x0001,0x000b
0abe 015b ffff  | [  |		.CONST	0x015b,0xffff
0ac0 015c 0001  | \  |		.CONST	0x015c,0x0001
0ac2 0160 0002  | `  |		.CONST	0x0160,0x0002
0ac4 016d 0003  | m  |		.CONST	0x016d,0x0003
0ac6 016e 0401  | n  |		.CONST	0x016e,0x0401
0ac8 0170 0003  | p  |		.CONST	0x0170,0x0003
0aca 0171 0004  | q  |		.CONST	0x0171,0x0004
0acc 0172 0005  | r  |		.CONST	0x0172,0x0005
0ace 0179 0006  | y  |		.CONST	0x0179,0x0006
0ad0 017a 0007  | z  |		.CONST	0x017a,0x0007
0ad2 017c 0008  | |  |		.CONST	0x017c,0x0008
0ad4 0183 0009  |    |		.CONST	0x0183,0x0009
0ad6 ; --------------------------------------------------------------------------------------
0ad6 ; Debug3 Subtable 0x7
0ad6 ; --------------------------------------------------------------------------------------
0ad6 0001 0008  |    |		.DBG3TAB	0x0001,0x0008
0ad8 018b ffff  |    |		.CONST	0x018b,0xffff
0ada 018c 0001  |    |		.CONST	0x018c,0x0001
0adc 0190 0002  |    |		.CONST	0x0190,0x0002
0ade 0198 0003  |    |		.CONST	0x0198,0x0003
0ae0 01a1 0004  |    |		.CONST	0x01a1,0x0004
0ae2 01a8 0006  |    |		.CONST	0x01a8,0x0006
0ae4 01a9 0007  |    |		.CONST	0x01a9,0x0007
0ae6 01ab 0008  |    |		.CONST	0x01ab,0x0008
0ae8 01b2 0009  |    |		.CONST	0x01b2,0x0009
0aea ; --------------------------------------------------------------------------------------
0aea ; Debug3 Subtable 0x8
0aea ; --------------------------------------------------------------------------------------
0aea 0003 0013  |    |		.DBG3TAB	0x0003,0x0013
0aec 01bb ffff  |    |		.CONST	0x01bb,0xffff
0aee 01bc fffe  |    |		.CONST	0x01bc,0xfffe
0af0 01bd fffd  |    |		.CONST	0x01bd,0xfffd
0af2 01be 0001  |    |		.CONST	0x01be,0x0001
0af4 01c2 0002  |    |		.CONST	0x01c2,0x0002
0af6 01cf 0003  |    |		.CONST	0x01cf,0x0003
0af8 01d0 0401  |    |		.CONST	0x01d0,0x0401
0afa 01d2 0003  |    |		.CONST	0x01d2,0x0003
0afc 01d3 0004  |    |		.CONST	0x01d3,0x0004
0afe 01d7 0005  |    |		.CONST	0x01d7,0x0005
0b00 01d8 0006  |    |		.CONST	0x01d8,0x0006
0b02 01db 0801  |    |		.CONST	0x01db,0x0801
0b04 01df 0006  |    |		.CONST	0x01df,0x0006
0b06 01e0 0007  |    |		.CONST	0x01e0,0x0007
0b08 01e4 0008  |    |		.CONST	0x01e4,0x0008
0b0a 01e6 0c01  |    |		.CONST	0x01e6,0x0c01
0b0c 01e8 0008  |    |		.CONST	0x01e8,0x0008
0b0e 01e9 0009  |    |		.CONST	0x01e9,0x0009
0b10 01f5 000a  |    |		.CONST	0x01f5,0x000a
0b12 01f6 000b  |    |		.CONST	0x01f6,0x000b
0b14 01f8 000c  |    |		.CONST	0x01f8,0x000c
0b16 01ff 000d  |    |		.CONST	0x01ff,0x000d
0b18 ; --------------------------------------------------------------------------------------
0b18 ; Debug3 Subtable 0x9
0b18 ; --------------------------------------------------------------------------------------
0b18 0003 0009  |    |		.DBG3TAB	0x0003,0x0009
0b1a 020b ffff  |    |		.CONST	0x020b,0xffff
0b1c 020c fffe  |    |		.CONST	0x020c,0xfffe
0b1e 0211 fffd  |    |		.CONST	0x0211,0xfffd
0b20 0216 0001  |    |		.CONST	0x0216,0x0001
0b22 021a 0002  |    |		.CONST	0x021a,0x0002
0b24 0225 0003  | %  |		.CONST	0x0225,0x0003
0b26 0229 0004  | )  |		.CONST	0x0229,0x0004
0b28 022d 0005  | -  |		.CONST	0x022d,0x0005
0b2a 0239 0006  | 9  |		.CONST	0x0239,0x0006
0b2c 023a 0007  | :  |		.CONST	0x023a,0x0007
0b2e 023c 0008  | <  |		.CONST	0x023c,0x0008
0b30 0243 0009  | C  |		.CONST	0x0243,0x0009
0b32 ; --------------------------------------------------------------------------------------
0b32 ; Debug3 Subtable 0xa
0b32 ; --------------------------------------------------------------------------------------
0b32 000d 0025  |   %|		.DBG3TAB	0x000d,0x0025
0b34 024b ffff  | K  |		.CONST	0x024b,0xffff
0b36 024c fffe  | L  |		.CONST	0x024c,0xfffe
0b38 0251 fffd  | Q  |		.CONST	0x0251,0xfffd
0b3a 0252 fffc  | R  |		.CONST	0x0252,0xfffc
0b3c 0257 fffb  | W  |		.CONST	0x0257,0xfffb
0b3e 0259 fffa  | Y  |		.CONST	0x0259,0xfffa
0b40 025c fff9  | \  |		.CONST	0x025c,0xfff9
0b42 025e fff8  | ^  |		.CONST	0x025e,0xfff8
0b44 0260 fff7  | `  |		.CONST	0x0260,0xfff7
0b46 0266 fff6  | f  |		.CONST	0x0266,0xfff6
0b48 026c fff5  | l  |		.CONST	0x026c,0xfff5
0b4a 0272 fff4  | r  |		.CONST	0x0272,0xfff4
0b4c 0277 fff3  | w  |		.CONST	0x0277,0xfff3
0b4e 027d 0001  | }  |		.CONST	0x027d,0x0001
0b50 0281 0002  |    |		.CONST	0x0281,0x0002
0b52 0283 0003  |    |		.CONST	0x0283,0x0003
0b54 028a 0004  |    |		.CONST	0x028a,0x0004
0b56 0290 0005  |    |		.CONST	0x0290,0x0005
0b58 0293 0006  |    |		.CONST	0x0293,0x0006
0b5a 029a 0007  |    |		.CONST	0x029a,0x0007
0b5c 02a0 0008  |    |		.CONST	0x02a0,0x0008
0b5e 02bc 0009  |    |		.CONST	0x02bc,0x0009
0b60 02c1 000a  |    |		.CONST	0x02c1,0x000a
0b62 02c4 000b  |    |		.CONST	0x02c4,0x000b
0b64 02d1 000c  |    |		.CONST	0x02d1,0x000c
0b66 02d4 000d  |    |		.CONST	0x02d4,0x000d
0b68 02d7 000e  |    |		.CONST	0x02d7,0x000e
0b6a 02da 000f  |    |		.CONST	0x02da,0x000f
0b6c 02e7 0010  |    |		.CONST	0x02e7,0x0010
0b6e 02e8 0401  |    |		.CONST	0x02e8,0x0401
0b70 02ea 0010  |    |		.CONST	0x02ea,0x0010
0b72 02eb 0011  |    |		.CONST	0x02eb,0x0011
0b74 02ec 0012  |    |		.CONST	0x02ec,0x0012
0b76 02f0 0013  |    |		.CONST	0x02f0,0x0013
0b78 02f1 0801  |    |		.CONST	0x02f1,0x0801
0b7a 02f3 0013  |    |		.CONST	0x02f3,0x0013
0b7c 02f4 0014  |    |		.CONST	0x02f4,0x0014
0b7e 0301 0015  |    |		.CONST	0x0301,0x0015
0b80 0303 0016  |    |		.CONST	0x0303,0x0016
0b82 0313 0017  |    |		.CONST	0x0313,0x0017
0b84 0318 0018  |    |		.CONST	0x0318,0x0018
0b86 032b 0019  | +  |		.CONST	0x032b,0x0019
0b88 032d 001a  | -  |		.CONST	0x032d,0x001a
0b8a 0331 001b  | 1  |		.CONST	0x0331,0x001b
0b8c 0332 001c  | 2  |		.CONST	0x0332,0x001c
0b8e 034d 001d  | M  |		.CONST	0x034d,0x001d
0b90 0352 001e  | R  |		.CONST	0x0352,0x001e
0b92 035a 001f  | Z  |		.CONST	0x035a,0x001f
0b94 035c 0020  | \  |		.CONST	0x035c,0x0020
0b96 0363 0021  | c !|		.CONST	0x0363,0x0021
0b98 ; --------------------------------------------------------------------------------------
0b98 ; Debug3 Subtable 0xb
0b98 ; --------------------------------------------------------------------------------------
0b98 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0b9a 036b 0001  | k  |		.CONST	0x036b,0x0001
0b9c 036f 0002  | o  |		.CONST	0x036f,0x0002
0b9e 0374 0003  | t  |		.CONST	0x0374,0x0003
0ba0 0376 0004  | v  |		.CONST	0x0376,0x0004
0ba2 037d 0005  | }  |		.CONST	0x037d,0x0005
0ba4 ; --------------------------------------------------------------------------------------
0ba4 ; Debug3 Subtable 0xc
0ba4 ; --------------------------------------------------------------------------------------
0ba4 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0ba6 038b 0001  |    |		.CONST	0x038b,0x0001
0ba8 038f 0002  |    |		.CONST	0x038f,0x0002
0baa 0397 0003  |    |		.CONST	0x0397,0x0003
0bac 0399 0004  |    |		.CONST	0x0399,0x0004
0bae 03a0 0005  |    |		.CONST	0x03a0,0x0005
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; Debug3 Subtable 0xd
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0bb2 03ab 0001  |    |		.CONST	0x03ab,0x0001
0bb4 03af 0002  |    |		.CONST	0x03af,0x0002
0bb6 03b6 0003  |    |		.CONST	0x03b6,0x0003
0bb8 03b8 0004  |    |		.CONST	0x03b8,0x0004
0bba 03bf 0005  |    |		.CONST	0x03bf,0x0005
0bbc ; --------------------------------------------------------------------------------------
0bbc ; Debug3 Subtable 0xe
0bbc ; --------------------------------------------------------------------------------------
0bbc 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0bbe 03cb 0001  |    |		.CONST	0x03cb,0x0001
0bc0 03cf 0002  |    |		.CONST	0x03cf,0x0002
0bc2 03d3 0003  |    |		.CONST	0x03d3,0x0003
0bc4 03d5 0004  |    |		.CONST	0x03d5,0x0004
0bc6 03dc 0005  |    |		.CONST	0x03dc,0x0005
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; Debug3 Subtable 0xf
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0002 0014  |    |		.DBG3TAB	0x0002,0x0014
0bca 03eb ffff  |    |		.CONST	0x03eb,0xffff
0bcc 03ec fffe  |    |		.CONST	0x03ec,0xfffe
0bce 03f2 0001  |    |		.CONST	0x03f2,0x0001
0bd0 03f6 0002  |    |		.CONST	0x03f6,0x0002
0bd2 03fd 0003  |    |		.CONST	0x03fd,0x0003
0bd4 0406 0004  |    |		.CONST	0x0406,0x0004
0bd6 0413 0005  |    |		.CONST	0x0413,0x0005
0bd8 0414 0401  |    |		.CONST	0x0414,0x0401
0bda 0416 0005  |    |		.CONST	0x0416,0x0005
0bdc 0417 0006  |    |		.CONST	0x0417,0x0006
0bde 0418 0007  |    |		.CONST	0x0418,0x0007
0be0 0419 0801  |    |		.CONST	0x0419,0x0801
0be2 041b 0007  |    |		.CONST	0x041b,0x0007
0be4 041c 0008  |    |		.CONST	0x041c,0x0008
0be6 0420 0009  |    |		.CONST	0x0420,0x0009
0be8 0421 000a  | !  |		.CONST	0x0421,0x000a
0bea 0426 000b  | &  |		.CONST	0x0426,0x000b
0bec 0431 000c  | 1  |		.CONST	0x0431,0x000c
0bee 0432 000d  | 2  |		.CONST	0x0432,0x000d
0bf0 0437 000e  | 7  |		.CONST	0x0437,0x000e
0bf2 0439 000f  | 9  |		.CONST	0x0439,0x000f
0bf4 0440 0010  | @  |		.CONST	0x0440,0x0010
0bf6 ; --------------------------------------------------------------------------------------
0bf6 ; Debug3 Subtable 0x10
0bf6 ; --------------------------------------------------------------------------------------
0bf6 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
0bf8 0453 ffff  | S  |		.CONST	0x0453,0xffff
0bfa 0458 0001  | X  |		.CONST	0x0458,0x0001
0bfc 045c 0002  | \  |		.CONST	0x045c,0x0002
0bfe 0464 0003  | d  |		.CONST	0x0464,0x0003
0c00 046a 0004  | j  |		.CONST	0x046a,0x0004
0c02 0472 0005  | r  |		.CONST	0x0472,0x0005
0c04 0474 0006  | t  |		.CONST	0x0474,0x0006
0c06 047b 0007  | {  |		.CONST	0x047b,0x0007
0c08 ; --------------------------------------------------------------------------------------
0c08 ; Debug3 Subtable 0x11
0c08 ; --------------------------------------------------------------------------------------
0c08 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0c0a 0483 0001  |    |		.CONST	0x0483,0x0001
0c0c ; --------------------------------------------------------------------------------------
0c0c ; Debug3 Subtable 0x12
0c0c ; --------------------------------------------------------------------------------------
0c0c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0c0e 048b 0001  |    |		.CONST	0x048b,0x0001
0c10 ; --------------------------------------------------------------------------------------
0c10 ; Debug3 Subtable 0x13
0c10 ; --------------------------------------------------------------------------------------
0c10 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0c12 0493 0001  |    |		.CONST	0x0493,0x0001
0c14 049a 0002  |    |		.CONST	0x049a,0x0002
0c16 049c 0003  |    |		.CONST	0x049c,0x0003
0c18 04a3 0004  |    |		.CONST	0x04a3,0x0004
0c1a ; --------------------------------------------------------------------------------------
0c1a ; Debug3 Subtable 0x14
0c1a ; --------------------------------------------------------------------------------------
0c1a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0c1c 04ab 0001  |    |		.CONST	0x04ab,0x0001
0c1e ; --------------------------------------------------------------------------------------
0c1e ; Debug3 Subtable 0x15
0c1e ; --------------------------------------------------------------------------------------
0c1e 0004 0010  |    |		.DBG3TAB	0x0004,0x0010
0c20 04bb ffff  |    |		.CONST	0x04bb,0xffff
0c22 04bc fffe  |    |		.CONST	0x04bc,0xfffe
0c24 04c1 fffd  |    |		.CONST	0x04c1,0xfffd
0c26 04c3 fffc  |    |		.CONST	0x04c3,0xfffc
0c28 04c6 0001  |    |		.CONST	0x04c6,0x0001
0c2a 04c7 0401  |    |		.CONST	0x04c7,0x0401
0c2c 04c8 0001  |    |		.CONST	0x04c8,0x0001
0c2e 04c9 0002  |    |		.CONST	0x04c9,0x0002
0c30 04d5 0003  |    |		.CONST	0x04d5,0x0003
0c32 04e6 0004  |    |		.CONST	0x04e6,0x0004
0c34 04e8 0006  |    |		.CONST	0x04e8,0x0006
0c36 04e9 0801  |    |		.CONST	0x04e9,0x0801
0c38 04ea 0006  |    |		.CONST	0x04ea,0x0006
0c3a 04eb 0007  |    |		.CONST	0x04eb,0x0007
0c3c 04ff 0008  |    |		.CONST	0x04ff,0x0008
0c3e 0502 000b  |    |		.CONST	0x0502,0x000b
0c40 0503 0c01  |    |		.CONST	0x0503,0x0c01
0c42 0504 000b  |    |		.CONST	0x0504,0x000b
0c44 0505 0009  |    |		.CONST	0x0505,0x0009
0c46 0513 000a  |    |		.CONST	0x0513,0x000a
0c48 ; --------------------------------------------------------------------------------------
0c48 ; Debug3 Subtable 0x16
0c48 ; --------------------------------------------------------------------------------------
0c48 0009 0026  |   &|		.DBG3TAB	0x0009,0x0026
0c4a 051b ffff  |    |		.CONST	0x051b,0xffff
0c4c 051c fffe  |    |		.CONST	0x051c,0xfffe
0c4e 051d fffd  |    |		.CONST	0x051d,0xfffd
0c50 051e fffc  |    |		.CONST	0x051e,0xfffc
0c52 0523 0001  | #  |		.CONST	0x0523,0x0001
0c54 0525 0002  | %  |		.CONST	0x0525,0x0002
0c56 0526 fbff  | &  |		.CONST	0x0526,0xfbff
0c58 0529 fbfe  | )  |		.CONST	0x0529,0xfbfe
0c5a 052e fbfd  | .  |		.CONST	0x052e,0xfbfd
0c5c 0530 0401  | 0  |		.CONST	0x0530,0x0401
0c5e 053f 0402  | ?  |		.CONST	0x053f,0x0402
0c60 0543 0403  | C  |		.CONST	0x0543,0x0403
0c62 0548 0003  | H  |		.CONST	0x0548,0x0003
0c64 0549 f7ff  | I  |		.CONST	0x0549,0xf7ff
0c66 054a f7fe  | J  |		.CONST	0x054a,0xf7fe
0c68 054b 0801  | K  |		.CONST	0x054b,0x0801
0c6a 054f 0802  | O  |		.CONST	0x054f,0x0802
0c6c 0551 0803  | Q  |		.CONST	0x0551,0x0803
0c6e 0552 0c01  | R  |		.CONST	0x0552,0x0c01
0c70 0554 0c02  | T  |		.CONST	0x0554,0x0c02
0c72 0555 0c03  | U  |		.CONST	0x0555,0x0c03
0c74 0556 0c04  | V  |		.CONST	0x0556,0x0c04
0c76 0557 0803  | W  |		.CONST	0x0557,0x0803
0c78 055d 0809  | ]  |		.CONST	0x055d,0x0809
0c7a 0565 080a  | e  |		.CONST	0x0565,0x080a
0c7c 0569 080b  | i  |		.CONST	0x0569,0x080b
0c7e 056a 1001  | j  |		.CONST	0x056a,0x1001
0c80 056c 1002  | l  |		.CONST	0x056c,0x1002
0c82 056d 1003  | m  |		.CONST	0x056d,0x1003
0c84 056e 1004  | n  |		.CONST	0x056e,0x1004
0c86 056f 080b  | o  |		.CONST	0x056f,0x080b
0c88 0573 080e  | s  |		.CONST	0x0573,0x080e
0c8a 0574 080c  | t  |		.CONST	0x0574,0x080c
0c8c 0577 080d  | w  |		.CONST	0x0577,0x080d
0c8e 057d 0804  | }  |		.CONST	0x057d,0x0804
0c90 0581 0805  |    |		.CONST	0x0581,0x0805
0c92 0582 0806  |    |		.CONST	0x0582,0x0806
0c94 0586 0807  |    |		.CONST	0x0586,0x0807
0c96 058a 0808  |    |		.CONST	0x058a,0x0808
0c98 058c 080f  |    |		.CONST	0x058c,0x080f
0c9a 058f 0810  |    |		.CONST	0x058f,0x0810
0c9c 0592 0004  |    |		.CONST	0x0592,0x0004
0c9e 059b 0005  |    |		.CONST	0x059b,0x0005
0ca0 05a1 0006  |    |		.CONST	0x05a1,0x0006
0ca2 05a3 0007  |    |		.CONST	0x05a3,0x0007
0ca4 05aa 0008  |    |		.CONST	0x05aa,0x0008
0ca6 05af 0009  |    |		.CONST	0x05af,0x0009
0ca8 ; --------------------------------------------------------------------------------------
0ca8 ; Debug3 Subtable 0x17
0ca8 ; --------------------------------------------------------------------------------------
0ca8 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0caa 05bb 0001  |    |		.CONST	0x05bb,0x0001
0cac 05be 0002  |    |		.CONST	0x05be,0x0002
0cae 05c0 0003  |    |		.CONST	0x05c0,0x0003
0cb0 05cc 0004  |    |		.CONST	0x05cc,0x0004
0cb2 05ce 0005  |    |		.CONST	0x05ce,0x0005
0cb4 0000 0000  |    |		.BLANK	0000[0x14c]