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

⟦93ab30e62⟧

    Length: 3072 (0xc00)
    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 02f8       |    |		.CONST	0x02f8								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0037       | 7  |		.CONST	0x0037								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x0 = .DEBUG	0x000b,0x034a,0x0000,0x0000,0x0055,0xe795,0x0000,0x1053
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0129       | )  |		Execute	Any,Make_Visible
000d 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 0129       | )  |		Execute	Any,Make_Visible
000f 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
													; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x6 = 0x15,0xfff9
0016 4801       |H   |		Short_Literal	0x1
0017 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call
0019 03fe       |    |		Declare_Type	Discrete,Defined,Visible
001a 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1a,0xfff8
001c 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1c,0xfff7
001e 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1e,0xfff6
0020 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x20,0xfff5
0022 00bf       |    |		Action	Accept_Activation
0023 0092 026e  |   n|		Action	Push_String_Extended,0x26e					; "Attempted use of a NIL handle"
													; Debug Table 0x1 = .DEBUG	0x0023,0x0362,0x0000,0x0000,0x0057,0x7d55,0x0000,0x0008
													; Debug Table 0x1.0x0 = 0x23,0xffff
													; Debug Table 0x1.0x1 = 0x23,0xfffe
													; Debug Table 0x1.0x2 = 0x23,0xfffd
													; Debug Table 0x1.0x3 = 0x23,0xfffc
0025 0092 026f  |   o|		Action	Push_String_Extended,0x26f					; "Handle doesn't have any versions"
													; Debug Table 0x1.0x4 = 0x25,0xfffb
0027 0092 0270  |   p|		Action	Push_String_Extended,0x270					; "Handle doesn't refer to an Ada program"
													; Debug Table 0x1.0x5 = 0x27,0xfffa
0029 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x6 = 0x29,0xfff9
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x7 = 0x2b,0xfff8
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x8 = 0x2d,0xfff7
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x9 = 0x2f,0xfff6
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xa = 0x31,0xfff5
0032 00c7       |    |		Action	Elaborate_Subprogram
0033 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0xb = 0x33,0xfff4
0034 00c7       |    |		Action	Elaborate_Subprogram
0035 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0xc = 0x35,0xfff3
0036 00c7       |    |		Action	Elaborate_Subprogram
0037			BODY_0008:
0037 00bc       |    |		Action	Signal_Activated
0038 00bb       |    |		Action	Signal_Completion
0039 0000 0000  |    |		.BLANK	0000[0x7]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x0043,0x037e,0x0002,0x0000,0x0055,0xe795,0x0000,0x1064
													; Debug Table 0x2.0x0 = 0x43,0x1
0044 e001       |    |		Load	0x0,0x1
0045 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0046 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0047 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x004b,0x0382,0x0002,0x0000,0x0055,0xe795,0x0000,0x106d
													; Debug Table 0x3.0x0 = 0x4b,0x1
004c e001       |    |		Load	0x0,0x1
004d 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
004e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
004f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055       | U  |		.CONST	0x0055								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0002       |    |		.CONST	0x0002								; Number of locals
0053			INIT_0050:
0053 e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x0053,0x0386,0x0001,0x0000,0x0055,0xe795,0x0000,0x1076
													; Debug Table 0x4.0x0 = 0x53,0xffff
0054 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0055			BODY_0050:
0055 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1 = 0x55,0x1
0056 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0057 00e1       |    |		Load_Encached	Boolean_Cache
0058 e5ff       |    |		Load	0x2,-0x1
0059 e001       |    |		Load	0x0,0x1
005a 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
005b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
005c c5fe       |    |		Store	0x2,-0x2
005d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
005e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x2 = 0x5e,0x2
005f 6815       |h   |		Jump_Zero	0x75
0060 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x3 = 0x60,0x3
0061 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0062 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0063 e002       |    |		Load	0x0,0x2
0064 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0065 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0066 e002       |    |		Load	0x0,0x2
0067 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0068 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0069 0092 0271  |   q|		Action	Push_String_Extended,0x271					; "Ada_Implementation.Will_Be_A_Comp_Unit failed"
006b e402       |    |		Load	0x2,0x2
006c e002       |    |		Load	0x0,0x2
006d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006e 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
006f 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0070 e002       |    |		Load	0x0,0x2
0071 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0072 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0073 a5fd       |    |		Store_Unchecked	0x2,-0x3
0074 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0075 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x4 = 0x75,0x4
0076 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0077 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0078 a5fd       |    |		Store_Unchecked	0x2,-0x3
0079 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 4603       |F   |		Jump_Case	0x4							; Debug Table 0x5 = .DEBUG	0x0083,0x0392,0x0005,0x0000,0x0055,0xe795,0x0000,0x108a
0084 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0085 7802       |x   |		Jump	0x88								; case 0x1
0086 7805       |x   |		Jump	0x8c								; case 0x2
0087 7809       |x   |		Jump	0x91								; case 0x3
0088 00da       |    |		Load_Top	At_Offset_2
0089 0091 026c  |   l|		Action	Push_String_Extended_Indexed,0x26c				; "NONE"
008b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
008c 00db       |    |		Load_Top	At_Offset_3
008d 00db       |    |		Load_Top	At_Offset_3
008e 00e0       |    |		Load_Encached	Standard_Cache
008f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0090 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0091 00da       |    |		Load_Top	At_Offset_2
0092 00e0       |    |		Load_Encached	Standard_Cache
0093 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0094 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b1       |    |		.CONST	0x00b1								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0008       |    |		.CONST	0x0008								; Number of locals
009b			INIT_0098:
009b e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x009b,0x0394,0x0001,0x0000,0x0055,0xe795,0x0000,0x1090
													; Debug Table 0x6.0x0 = 0x9b,0xffff
009c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
009d 02ff       |    |		Declare_Variable	Variant_Record
009e 00d8       |    |		Load_Top	At_Offset_0
009f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a0 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0xa0,0xfffe
00a1 1b37       | 7  |		Execute	Package,Field_Read,Field_Number 0x37
00a2 02c7       |    |		Declare_Variable	Any
00a3 00d8       |    |		Load_Top	At_Offset_0
00a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a5 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x2 = 0xa5,0xfffd
00a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a7 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x3 = 0xa7,0xfffc
00a8 e003       |    |		Load	0x0,0x3								; Debug Table 0x6.0x4 = 0xa8,0xfffb
00a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00aa 02c7       |    |		Declare_Variable	Any
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ad 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x6.0x5 = 0xad,0xfffa
00ae 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00af e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x6 = 0xaf,0xfff9
00b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b1			BODY_0098:
00b1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x7 = 0xb1,0x1
00b2 e002       |    |		Load	0x0,0x2
00b3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00b5 6812       |h   |		Jump_Zero	0xc8
00b6 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x8 = 0xb6,0x2
													; Debug Table 0x6.0x9 = 0xb6,0x401
00b7 a5fd       |    |		Store_Unchecked	0x2,-0x3						; Debug Table 0x6.0xa = 0xb7,0x2
00b8 e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0xb = 0xb8,0x3
00b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ba 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00bb e002       |    |		Load	0x0,0x2
00bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bd 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00be e002       |    |		Load	0x0,0x2
00bf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c0 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
00c1 e217       |    |		Load	0x1,0x17
00c2 4807       |H   |		Short_Literal	0x7
00c3 e002       |    |		Load	0x0,0x2
00c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c5 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
00c6 a5fc       |    |		Store_Unchecked	0x2,-0x4
00c7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x6.0xc = 0xc7,0x4
00c8 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0xd = 0xc8,0x5
00c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ca e402       |    |		Load	0x2,0x2
00cb 619c       |a   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00004000}
00cc e003       |    |		Load	0x0,0x3
00cd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ce e5ff       |    |		Load	0x2,-0x1
00cf e002       |    |		Load	0x0,0x2
00d0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d1 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
00d2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00d3 00d1       |    |		Pop_Control	Pop_Count_1
00d4 c404       |    |		Store	0x2,0x4
00d5 e404       |    |		Load	0x2,0x4								; Debug Table 0x6.0xe = 0xd5,0x6
00d6 6833       |h3  |		Jump_Zero	0x10a
00d7 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0xf = 0xd7,0x7
00d8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d9 e001       |    |		Load	0x0,0x1
00da 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00db 618c       |a   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00004000}
00dc e003       |    |		Load	0x0,0x3
00dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00de e5ff       |    |		Load	0x2,-0x1
00df e002       |    |		Load	0x0,0x2
00e0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e1 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
00e2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00e3 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
00e4 c404       |    |		Store	0x2,0x4
00e5 e404       |    |		Load	0x2,0x4								; Debug Table 0x6.0x10 = 0xe5,0x8
00e6 7009       |p   |		Jump_Nonzero	0xf0
00e7 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x11 = 0xe7,0x9
00e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e9 e402       |    |		Load	0x2,0x2
00ea 00da       |    |		Load_Top	At_Offset_2
00eb e001       |    |		Load	0x0,0x1
00ec 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00ed 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ee 00d1       |    |		Pop_Control	Pop_Count_1
00ef c404       |    |		Store	0x2,0x4
00f0 e404       |    |		Load	0x2,0x4								; Debug Table 0x6.0x12 = 0xf0,0xa
00f1 6816       |h   |		Jump_Zero	0x108
00f2 e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x13 = 0xf2,0xb
00f3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f4 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00f5 e002       |    |		Load	0x0,0x2
00f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f7 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00f8 e002       |    |		Load	0x0,0x2
00f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fa 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
00fb e218       |    |		Load	0x1,0x18
00fc e404       |    |		Load	0x2,0x4
00fd e002       |    |		Load	0x0,0x2
00fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ff 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0100 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0101 e002       |    |		Load	0x0,0x2
0102 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0103 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0104 a5fc       |    |		Store_Unchecked	0x2,-0x4
0105 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x14 = 0x105,0xc
													; Debug Table 0x6.0x15 = 0x105,0x801
0106 a5fd       |    |		Store_Unchecked	0x2,-0x3						; Debug Table 0x6.0x16 = 0x106,0xc
0107 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x6.0x17 = 0x107,0xd
0108 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x18 = 0x108,0xe
0109 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
010a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x19 = 0x10a,0xf
010b e002       |    |		Load	0x0,0x2
010c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010d 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
010e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010f c406       |    |		Store	0x2,0x6
0110 e003       |    |		Load	0x0,0x3								; Debug Table 0x6.0x1a = 0x110,0x10
0111 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0112 00db       |    |		Load_Top	At_Offset_3
0113 012f       | /  |		Execute	Any,Equal
0114 6821       |h!  |		Jump_Zero	0x136
0115 e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x1b = 0x115,0x11
0116 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0117 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0118 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0119 c406       |    |		Store	0x2,0x6
011a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x1c = 0x11a,0x12
011b 0f01       |    |		Execute_Immediate	Equal,0x1
011c e003       |    |		Load	0x0,0x3
011d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
011e e406       |    |		Load	0x2,0x6
011f 012f       | /  |		Execute	Any,Equal
0120 0279       | y  |		Execute	Discrete,And
0121 680d       |h   |		Jump_Zero	0x12f
0122 e004       |    |		Load	0x0,0x4								; Debug Table 0x6.0x1d = 0x122,0x13
0123 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0124 e003       |    |		Load	0x0,0x3
0125 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0126 c406       |    |		Store	0x2,0x6
0127 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x1e = 0x127,0x14
0128 00db       |    |		Load_Top	At_Offset_3
0129 e5ff       |    |		Load	0x2,-0x1
012a e002       |    |		Load	0x0,0x2
012b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012c 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
012d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
012e 7807       |x   |		Jump	0x136
012f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x1f = 0x12f,0x15
0130 00db       |    |		Load_Top	At_Offset_3
0131 e5ff       |    |		Load	0x2,-0x1
0132 e002       |    |		Load	0x0,0x2
0133 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0134 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0135 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0136 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x20 = 0x136,0x16
0137 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0138 e403       |    |		Load	0x2,0x3
0139 0120       |    |		Execute	Any,Is_Value
013a 6804       |h   |		Jump_Zero	0x13f
013b e001       |    |		Load	0x0,0x1
013c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
013d 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
013e 7801       |x   |		Jump	0x140
013f e403       |    |		Load	0x2,0x3
0140 e001       |    |		Load	0x0,0x1
0141 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0142 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0143 e402       |    |		Load	0x2,0x2
0144 6123       |a#  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00004000}
0145 4801       |H   |		Short_Literal	0x1
0146 4800       |H   |		Short_Literal	0x0
0147 e406       |    |		Load	0x2,0x6
0148 e5fe       |    |		Load	0x2,-0x2
0149 00d8       |    |		Load_Top	At_Offset_0
014a e001       |    |		Load	0x0,0x1
014b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
014c 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
014d 0260       | `  |		Execute	Discrete,In_Type
014e 7002       |p   |		Jump_Nonzero	0x151
014f 48e0       |H   |		Short_Literal	0xe0
0150 0257       | W  |		Execute	Discrete,Raise
0151 e001       |    |		Load	0x0,0x1
0152 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0153 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0154 00d1       |    |		Pop_Control	Pop_Count_1
0155 c405       |    |		Store	0x2,0x5
0156 c403       |    |		Store	0x2,0x3
0157 c404       |    |		Store	0x2,0x4
0158 e404       |    |		Load	0x2,0x4								; Debug Table 0x6.0x21 = 0x158,0x17
0159 6817       |h   |		Jump_Zero	0x171
015a e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x22 = 0x15a,0x18
015b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
015d e002       |    |		Load	0x0,0x2
015e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015f 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0160 e002       |    |		Load	0x0,0x2
0161 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0162 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0163 0092 0272  |   r|		Action	Push_String_Extended,0x272					; "Ada_Implementation.Open failed"
0165 e404       |    |		Load	0x2,0x4
0166 e002       |    |		Load	0x0,0x2
0167 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0168 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0169 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
016a e002       |    |		Load	0x0,0x2
016b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016c 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
016d a5fc       |    |		Store_Unchecked	0x2,-0x4
016e 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x6.0x23 = 0x16e,0x19
													; Debug Table 0x6.0x24 = 0x16e,0xc01
016f a5fd       |    |		Store_Unchecked	0x2,-0x3						; Debug Table 0x6.0x25 = 0x16f,0x19
0170 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x6.0x26 = 0x170,0x1a
0171 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x27 = 0x171,0x1b
0172 e5ff       |    |		Load	0x2,-0x1
0173 e002       |    |		Load	0x0,0x2
0174 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0175 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0176 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0177 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x28 = 0x177,0x1c
0178 6803       |h   |		Jump_Zero	0x17c
0179 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x29 = 0x179,0x1d
017a a5fd       |    |		Store_Unchecked	0x2,-0x3
017b 7802       |x   |		Jump	0x17e
017c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x2a = 0x17c,0x1e
017d a5fd       |    |		Store_Unchecked	0x2,-0x3
017e e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x2b = 0x17e,0x1f
017f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0180 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0181 a5fc       |    |		Store_Unchecked	0x2,-0x4
0182 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0193       |    |		.CONST	0x0193								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0004       |    |		.CONST	0x0004								; Number of locals
018b			INIT_0188:
018b e003       |    |		Load	0x0,0x3								; Debug Table 0x7 = .DEBUG	0x018b,0x03ee,0x0001,0x0000,0x0055,0xe795,0x0000,0x10aa
													; Debug Table 0x7.0x0 = 0x18b,0xffff
018c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018d 02c7       |    |		Declare_Variable	Any
018e 00d8       |    |		Load_Top	At_Offset_0
018f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0190 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x7.0x1 = 0x190,0xfffe
0191 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x2 = 0x191,0xfffd
0192 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0193			BODY_0188:
0193 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x3 = 0x193,0x1
0194 e002       |    |		Load	0x0,0x2
0195 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0196 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0197 6810       |h   |		Jump_Zero	0x1a8
0198 e002       |    |		Load	0x0,0x2								; Debug Table 0x7.0x4 = 0x198,0x2
0199 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
019b e002       |    |		Load	0x0,0x2
019c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019d 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
019e e002       |    |		Load	0x0,0x2
019f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a0 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
01a1 e217       |    |		Load	0x1,0x17
01a2 4807       |H   |		Short_Literal	0x7
01a3 e002       |    |		Load	0x0,0x2
01a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a5 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
01a6 a5fe       |    |		Store_Unchecked	0x2,-0x2
01a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x7.0x5 = 0x1a7,0x3
01a8 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x6 = 0x1a8,0x4
01a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01aa 00ec       |    |		Load_Encached	Diana_Tree_Cache
01ab 60bc       |`   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00004000}
01ac e003       |    |		Load	0x0,0x3
01ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ae e5ff       |    |		Load	0x2,-0x1
01af e002       |    |		Load	0x0,0x2
01b0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b1 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
01b2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01b3 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01b4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01b5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x7 = 0x1b5,0x5
01b6 6814       |h   |		Jump_Zero	0x1cb
01b7 e002       |    |		Load	0x0,0x2								; Debug Table 0x7.0x8 = 0x1b7,0x6
01b8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b9 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01ba e002       |    |		Load	0x0,0x2
01bb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01bc 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01bd e002       |    |		Load	0x0,0x2
01be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01bf 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
01c0 e219       |    |		Load	0x1,0x19
01c1 e404       |    |		Load	0x2,0x4
01c2 e002       |    |		Load	0x0,0x2
01c3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c4 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
01c5 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
01c6 e002       |    |		Load	0x0,0x2
01c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c8 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
01c9 a5fe       |    |		Store_Unchecked	0x2,-0x2
01ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x7.0x9 = 0x1ca,0x7
01cb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0xa = 0x1cb,0x8
01cc e002       |    |		Load	0x0,0x2
01cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ce 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
01cf 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d0 c402       |    |		Store	0x2,0x2
01d1 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0xb = 0x1d1,0x9
01d2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d3 4800       |H   |		Short_Literal	0x0
01d4 4801       |H   |		Short_Literal	0x1
01d5 e402       |    |		Load	0x2,0x2
01d6 e403       |    |		Load	0x2,0x3
01d7 e001       |    |		Load	0x0,0x1
01d8 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01d9 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01da 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01db e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0xc = 0x1db,0xa
01dc e002       |    |		Load	0x0,0x2
01dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01de 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
01df 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01e0 6806       |h   |		Jump_Zero	0x1e7
01e1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0xd = 0x1e1,0xb
01e2 4801       |H   |		Short_Literal	0x1
01e3 4801       |H   |		Short_Literal	0x1
01e4 e003       |    |		Load	0x0,0x3
01e5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e6 c402       |    |		Store	0x2,0x2
01e7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0xe = 0x1e7,0xc
01e8 6815       |h   |		Jump_Zero	0x1fe
01e9 e002       |    |		Load	0x0,0x2								; Debug Table 0x7.0xf = 0x1e9,0xd
01ea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01eb 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01ec e002       |    |		Load	0x0,0x2
01ed 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ee 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01ef e002       |    |		Load	0x0,0x2
01f0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f1 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
01f2 0092 0273  |   s|		Action	Push_String_Extended,0x273					; "Ada_Implementation.Close failed"
01f4 e404       |    |		Load	0x2,0x4
01f5 e002       |    |		Load	0x0,0x2
01f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f7 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
01f8 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
01f9 e002       |    |		Load	0x0,0x2
01fa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01fb 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
01fc a5fe       |    |		Store_Unchecked	0x2,-0x2
01fd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x7.0x10 = 0x1fd,0xe
01fe e002       |    |		Load	0x0,0x2								; Debug Table 0x7.0x11 = 0x1fe,0xf
01ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0200 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0201 a5fe       |    |		Store_Unchecked	0x2,-0x2
0202 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0203 0000 0000  |    |		.BLANK	0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d       |    |		.CONST	0x020d								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b e001       |    |		Load	0x0,0x1								; Debug Table 0x8 = .DEBUG	0x020b,0x0414,0x0001,0x0000,0x0055,0xe795,0x0000,0x10ba
													; Debug Table 0x8.0x0 = 0x20b,0xffff
020c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
020d			BODY_0208:
020d e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x1 = 0x20d,0x1
020e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
020f e001       |    |		Load	0x0,0x1
0210 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0211 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0212 e5ff       |    |		Load	0x2,-0x1
0213 e001       |    |		Load	0x0,0x1
0214 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0215 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0216 c5fe       |    |		Store	0x2,-0x2
0217 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0218 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2 = 0x218,0x2
0219 6815       |h   |		Jump_Zero	0x22f
021a e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x3 = 0x21a,0x3
021b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
021d e002       |    |		Load	0x0,0x2
021e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021f 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0220 e002       |    |		Load	0x0,0x2
0221 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0222 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0223 0092 0274  |   t|		Action	Push_String_Extended,0x274					; "Ada_Implementation.Get_root failed"
0225 e402       |    |		Load	0x2,0x2
0226 e002       |    |		Load	0x0,0x2
0227 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0228 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0229 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
022a e002       |    |		Load	0x0,0x2
022b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
022c 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
022d a5fd       |    |		Store_Unchecked	0x2,-0x3
022e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022f e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x4 = 0x22f,0x4
0230 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0231 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
0232 a5fd       |    |		Store_Unchecked	0x2,-0x3
0233 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0234 0000 0000  |    |		.BLANK	0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023f       | ?  |		.CONST	0x023f								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0003       |    |		.CONST	0x0003								; Number of locals
023b			INIT_0238:
023b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9 = .DEBUG	0x023b,0x0420,0x0001,0x0000,0x0055,0xe795,0x0000,0x10ce
													; Debug Table 0x9.0x0 = 0x23b,0xffff
023c e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x1 = 0x23c,0xfffe
023d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023e 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
023f			BODY_0238:
023f e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x2 = 0x23f,0x1
0240 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0241 1b30       | 0  |		Execute	Package,Field_Read,Field_Number 0x30
0242 e20d       |    |		Load	0x1,0xd
0243 e5ff       |    |		Load	0x2,-0x1
0244 8215       |    |		Call	0x1,0x15
0245 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0246 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0247 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x3 = 0x247,0x2
0248 a5fd       |    |		Store_Unchecked	0x2,-0x3
0249 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x4 = 0x249,0x3
024a e002       |    |		Load	0x0,0x2
024b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
024c 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
024d 6801       |h   |		Jump_Zero	0x24f
024e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x9.0x5 = 0x24e,0x4
024f e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x6 = 0x24f,0x5
0250 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0251 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0252 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0253 00da       |    |		Load_Top	At_Offset_2
0254 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9.0x7 = 0x254,0x401
0255 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x8 = 0x255,0x5
0256 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0257 e001       |    |		Load	0x0,0x1
0258 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0259 e001       |    |		Load	0x0,0x1
025a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
025b 00ea       |    |		Load_Encached	Null_String_Cache
025c e002       |    |		Load	0x0,0x2
025d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
025e 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
025f e002       |    |		Load	0x0,0x2
0260 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0261 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0262 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0263 a5fe       |    |		Store_Unchecked	0x2,-0x2
0264 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0265 0000 0000  |    |		.XXX[0x3]
0267 0000       |    |
0268 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
026c ; --------------------------------------------------------------------------------------
026c ; STRING TABLE
026c ; --------------------------------------------------------------------------------------
026c 0014       |    |		.STRTAB	0x0014->0x0276							; "NONE"
026d 0016       |    |		.STRTAB	0x0016->0x0278							; "READ"
026e 0018       |    |		.STRTAB	0x0018->0x027a							; "Attempted use of a NIL handle"
026f 0033       | 3  |		.STRTAB	0x0033->0x0288							; "Handle doesn't have any versions"
0270 0051       | Q  |		.STRTAB	0x0051->0x0298							; "Handle doesn't refer to an Ada program"
0271 0075       | u  |		.STRTAB	0x0075->0x02ab							; "Ada_Implementation.Will_Be_A_Comp_Unit failed"
0272 00a0       |    |		.STRTAB	0x00a0->0x02c2							; "Ada_Implementation.Open failed"
0273 00bc       |    |		.STRTAB	0x00bc->0x02d1							; "Ada_Implementation.Close failed"
0274 00d9       |    |		.STRTAB	0x00d9->0x02e0							; "Ada_Implementation.Get_root failed"
0275 00f9       |    |		.STREND 0x00f9->0x02f1
0276 4e4f 4e45  |NONE|		.STRTAB_STRINGS
02f2 0000 0000  |    |		.BLANK	0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug Table
02f8 ; --------------------------------------------------------------------------------------
02f8 0003 000a  |    |		.CONST	0x0003,0x000a
02fa 000b 034a  |   J|		.DEBUG	0x000b,0x034a,0x0000,0x0000,0x0055,0xe795,0x0000,0x1053
0302 0023 0362  | # b|		.DEBUG	0x0023,0x0362,0x0000,0x0000,0x0057,0x7d55,0x0000,0x0008
030a 0043 037e  | C ~|		.DEBUG	0x0043,0x037e,0x0002,0x0000,0x0055,0xe795,0x0000,0x1064
0312 004b 0382  | K  |		.DEBUG	0x004b,0x0382,0x0002,0x0000,0x0055,0xe795,0x0000,0x106d
031a 0053 0386  | S  |		.DEBUG	0x0053,0x0386,0x0001,0x0000,0x0055,0xe795,0x0000,0x1076
0322 0083 0392  |    |		.DEBUG	0x0083,0x0392,0x0005,0x0000,0x0055,0xe795,0x0000,0x108a
032a 009b 0394  |    |		.DEBUG	0x009b,0x0394,0x0001,0x0000,0x0055,0xe795,0x0000,0x1090
0332 018b 03ee  |    |		.DEBUG	0x018b,0x03ee,0x0001,0x0000,0x0055,0xe795,0x0000,0x10aa
033a 020b 0414  |    |		.DEBUG	0x020b,0x0414,0x0001,0x0000,0x0055,0xe795,0x0000,0x10ba
0342 023b 0420  | ;  |		.DEBUG	0x023b,0x0420,0x0001,0x0000,0x0055,0xe795,0x0000,0x10ce
034a ; --------------------------------------------------------------------------------------
034a ; Debug3 Subtable 0x0
034a ; --------------------------------------------------------------------------------------
034a 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
034c 000b ffff  |    |		.CONST	0x000b,0xffff
034e 000d fffe  |    |		.CONST	0x000d,0xfffe
0350 000f fffd  |    |		.CONST	0x000f,0xfffd
0352 000f fffc  |    |		.CONST	0x000f,0xfffc
0354 0011 fffb  |    |		.CONST	0x0011,0xfffb
0356 0013 fffa  |    |		.CONST	0x0013,0xfffa
0358 0015 fff9  |    |		.CONST	0x0015,0xfff9
035a 001a fff8  |    |		.CONST	0x001a,0xfff8
035c 001c fff7  |    |		.CONST	0x001c,0xfff7
035e 001e fff6  |    |		.CONST	0x001e,0xfff6
0360 0020 fff5  |    |		.CONST	0x0020,0xfff5
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug3 Subtable 0x1
0362 ; --------------------------------------------------------------------------------------
0362 000d 0000  |    |		.DBG3TAB	0x000d,0x0000
0364 0023 ffff  | #  |		.CONST	0x0023,0xffff
0366 0023 fffe  | #  |		.CONST	0x0023,0xfffe
0368 0023 fffd  | #  |		.CONST	0x0023,0xfffd
036a 0023 fffc  | #  |		.CONST	0x0023,0xfffc
036c 0025 fffb  | %  |		.CONST	0x0025,0xfffb
036e 0027 fffa  | '  |		.CONST	0x0027,0xfffa
0370 0029 fff9  | )  |		.CONST	0x0029,0xfff9
0372 002b fff8  | +  |		.CONST	0x002b,0xfff8
0374 002d fff7  | -  |		.CONST	0x002d,0xfff7
0376 002f fff6  | /  |		.CONST	0x002f,0xfff6
0378 0031 fff5  | 1  |		.CONST	0x0031,0xfff5
037a 0033 fff4  | 3  |		.CONST	0x0033,0xfff4
037c 0035 fff3  | 5  |		.CONST	0x0035,0xfff3
037e ; --------------------------------------------------------------------------------------
037e ; Debug3 Subtable 0x2
037e ; --------------------------------------------------------------------------------------
037e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0380 0043 0001  | C  |		.CONST	0x0043,0x0001
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug3 Subtable 0x3
0382 ; --------------------------------------------------------------------------------------
0382 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0384 004b 0001  | K  |		.CONST	0x004b,0x0001
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug3 Subtable 0x4
0386 ; --------------------------------------------------------------------------------------
0386 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0388 0053 ffff  | S  |		.CONST	0x0053,0xffff
038a 0055 0001  | U  |		.CONST	0x0055,0x0001
038c 005e 0002  | ^  |		.CONST	0x005e,0x0002
038e 0060 0003  | `  |		.CONST	0x0060,0x0003
0390 0075 0004  | u  |		.CONST	0x0075,0x0004
0392 ; --------------------------------------------------------------------------------------
0392 ; Debug3 Subtable 0x5
0392 ; --------------------------------------------------------------------------------------
0392 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0394 ; --------------------------------------------------------------------------------------
0394 ; Debug3 Subtable 0x6
0394 ; --------------------------------------------------------------------------------------
0394 0007 0025  |   %|		.DBG3TAB	0x0007,0x0025
0396 009b ffff  |    |		.CONST	0x009b,0xffff
0398 00a0 fffe  |    |		.CONST	0x00a0,0xfffe
039a 00a5 fffd  |    |		.CONST	0x00a5,0xfffd
039c 00a7 fffc  |    |		.CONST	0x00a7,0xfffc
039e 00a8 fffb  |    |		.CONST	0x00a8,0xfffb
03a0 00ad fffa  |    |		.CONST	0x00ad,0xfffa
03a2 00af fff9  |    |		.CONST	0x00af,0xfff9
03a4 00b1 0001  |    |		.CONST	0x00b1,0x0001
03a6 00b6 0002  |    |		.CONST	0x00b6,0x0002
03a8 00b6 0401  |    |		.CONST	0x00b6,0x0401
03aa 00b7 0002  |    |		.CONST	0x00b7,0x0002
03ac 00b8 0003  |    |		.CONST	0x00b8,0x0003
03ae 00c7 0004  |    |		.CONST	0x00c7,0x0004
03b0 00c8 0005  |    |		.CONST	0x00c8,0x0005
03b2 00d5 0006  |    |		.CONST	0x00d5,0x0006
03b4 00d7 0007  |    |		.CONST	0x00d7,0x0007
03b6 00e5 0008  |    |		.CONST	0x00e5,0x0008
03b8 00e7 0009  |    |		.CONST	0x00e7,0x0009
03ba 00f0 000a  |    |		.CONST	0x00f0,0x000a
03bc 00f2 000b  |    |		.CONST	0x00f2,0x000b
03be 0105 000c  |    |		.CONST	0x0105,0x000c
03c0 0105 0801  |    |		.CONST	0x0105,0x0801
03c2 0106 000c  |    |		.CONST	0x0106,0x000c
03c4 0107 000d  |    |		.CONST	0x0107,0x000d
03c6 0108 000e  |    |		.CONST	0x0108,0x000e
03c8 010a 000f  |    |		.CONST	0x010a,0x000f
03ca 0110 0010  |    |		.CONST	0x0110,0x0010
03cc 0115 0011  |    |		.CONST	0x0115,0x0011
03ce 011a 0012  |    |		.CONST	0x011a,0x0012
03d0 0122 0013  | "  |		.CONST	0x0122,0x0013
03d2 0127 0014  | '  |		.CONST	0x0127,0x0014
03d4 012f 0015  | /  |		.CONST	0x012f,0x0015
03d6 0136 0016  | 6  |		.CONST	0x0136,0x0016
03d8 0158 0017  | X  |		.CONST	0x0158,0x0017
03da 015a 0018  | Z  |		.CONST	0x015a,0x0018
03dc 016e 0019  | n  |		.CONST	0x016e,0x0019
03de 016e 0c01  | n  |		.CONST	0x016e,0x0c01
03e0 016f 0019  | o  |		.CONST	0x016f,0x0019
03e2 0170 001a  | p  |		.CONST	0x0170,0x001a
03e4 0171 001b  | q  |		.CONST	0x0171,0x001b
03e6 0177 001c  | w  |		.CONST	0x0177,0x001c
03e8 0179 001d  | y  |		.CONST	0x0179,0x001d
03ea 017c 001e  | |  |		.CONST	0x017c,0x001e
03ec 017e 001f  | ~  |		.CONST	0x017e,0x001f
03ee ; --------------------------------------------------------------------------------------
03ee ; Debug3 Subtable 0x7
03ee ; --------------------------------------------------------------------------------------
03ee 0003 000f  |    |		.DBG3TAB	0x0003,0x000f
03f0 018b ffff  |    |		.CONST	0x018b,0xffff
03f2 0190 fffe  |    |		.CONST	0x0190,0xfffe
03f4 0191 fffd  |    |		.CONST	0x0191,0xfffd
03f6 0193 0001  |    |		.CONST	0x0193,0x0001
03f8 0198 0002  |    |		.CONST	0x0198,0x0002
03fa 01a7 0003  |    |		.CONST	0x01a7,0x0003
03fc 01a8 0004  |    |		.CONST	0x01a8,0x0004
03fe 01b5 0005  |    |		.CONST	0x01b5,0x0005
0400 01b7 0006  |    |		.CONST	0x01b7,0x0006
0402 01ca 0007  |    |		.CONST	0x01ca,0x0007
0404 01cb 0008  |    |		.CONST	0x01cb,0x0008
0406 01d1 0009  |    |		.CONST	0x01d1,0x0009
0408 01db 000a  |    |		.CONST	0x01db,0x000a
040a 01e1 000b  |    |		.CONST	0x01e1,0x000b
040c 01e7 000c  |    |		.CONST	0x01e7,0x000c
040e 01e9 000d  |    |		.CONST	0x01e9,0x000d
0410 01fd 000e  |    |		.CONST	0x01fd,0x000e
0412 01fe 000f  |    |		.CONST	0x01fe,0x000f
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug3 Subtable 0x8
0414 ; --------------------------------------------------------------------------------------
0414 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0416 020b ffff  |    |		.CONST	0x020b,0xffff
0418 020d 0001  |    |		.CONST	0x020d,0x0001
041a 0218 0002  |    |		.CONST	0x0218,0x0002
041c 021a 0003  |    |		.CONST	0x021a,0x0003
041e 022f 0004  | /  |		.CONST	0x022f,0x0004
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug3 Subtable 0x9
0420 ; --------------------------------------------------------------------------------------
0420 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
0422 023b ffff  | ;  |		.CONST	0x023b,0xffff
0424 023c fffe  | <  |		.CONST	0x023c,0xfffe
0426 023f 0001  | ?  |		.CONST	0x023f,0x0001
0428 0247 0002  | G  |		.CONST	0x0247,0x0002
042a 0249 0003  | I  |		.CONST	0x0249,0x0003
042c 024e 0004  | N  |		.CONST	0x024e,0x0004
042e 024f 0005  | O  |		.CONST	0x024f,0x0005
0430 0254 0401  | T  |		.CONST	0x0254,0x0401
0432 0255 0005  | U  |		.CONST	0x0255,0x0005
0434 0000 0000  |    |		.BLANK	0000[0x1cc]