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

⟦17fe43619⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0898       |    |		.CONST	0x0898								; 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 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00de       |    |		.CONST	0x00de								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002c       | ,  |		.CONST	0x002c								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible			; Debug Table 0x0 = .DEBUG	0x000b,0x09a2,0x8000,0x0000,0x0032,0xc954,0x0000,0x0011
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 00c4       |    |		Action	Make_Default							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4802       |H   |		Short_Literal	0x2
000f 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
0011 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0012 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x12,0xfffc
0014 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x14,0xfffb
0016 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x16,0xfffa
0018 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x18,0xfff9
001a 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1a,0xfff8
001c 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1c,0xfff7
001e 029a 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1e,0xfff6
0020 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xa = 0x20,0xfff5
0021 637e       |c~  |		Indirect_Literal	Discrete,0x3a0,{0x00000000, 0x0000ffff}
0022 00e3       |    |		Load_Encached	Natural_Cache
0023 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0024 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x24,0xfff4
0026 029a 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x26,0xfff3
0028 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x28,0xfff2
002a 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x2a,0xfff1
002c 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x2c,0xfff0
002e 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x2e,0xffef
0030 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x30,0xffee
0032 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x12 = 0x32,0xffed
0033 029a 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x33,0xffec
0035 029a 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x14 = 0x35,0xffeb
0037 480c       |H   |		Short_Literal	0xc							; Debug Table 0x0.0x15 = 0x37,0xffea
0038 032a       | *  |		Declare_Type	Record,Incomplete
0039 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x16 = 0x39,0xffe9
003a 02a0       |    |		Declare_Subprogram	Null_Subprogram
003b e20d       |    |		Load	0x1,0xd
003c 03a3       |    |		Complete_Type	Heap_Access,By_Defining
003d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x17 = 0x3d,0xffe8
003e e20d       |    |		Load	0x1,0xd								; Debug Table 0x0.0x18 = 0x3e,0xffe7
003f 0129       | )  |		Execute	Any,Make_Visible
0040 c20e       |    |		Store	0x1,0xe
0041 00bf       |    |		Action	Accept_Activation
0042 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0042,0x09d6,0x8000,0x0000,0x0032,0xcc64,0x0000,0x002f
													; Debug Table 0x1.0x0 = 0x42,0xffff
0043 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x43,0xfffe
0044 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x44,0xfffd
0045 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x45,0xfffc
0046 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x46,0xfffb
0047 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x47,0xfffa
0048 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x48,0xfff9
0049 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x49,0xfff8
004a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x8 = 0x4a,0xfff7
004b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x9 = 0x4b,0xfff6
004c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xa = 0x4c,0xfff5
004d 4806       |H   |		Short_Literal	0x6							; Debug Table 0x1.0xb = 0x4d,0xfff4
004e 032a       | *  |		Declare_Type	Record,Incomplete
004f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0xc = 0x4f,0xfff3
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 03ad       |    |		Declare_Type	Heap_Access,Defined
0052 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xd = 0x52,0xfff2
0053 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0xe = 0x53,0xfff1
0054 00e3       |    |		Load_Encached	Natural_Cache
0055 00e3       |    |		Load_Encached	Natural_Cache
0056 00e3       |    |		Load_Encached	Natural_Cache
0057 e217       |    |		Load	0x1,0x17
0058 e001       |    |		Load	0x0,0x1
0059 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005a 02a0       |    |		Declare_Subprogram	Null_Subprogram
005b e222       | "  |		Load	0x1,0x22
005c 0326       | &  |		Complete_Type	Record,By_Defining
005d e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xf = 0x5d,0xfff0
005e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
005f 00f0       |    |		Load_Encached	Segment_Cache
0060 e003       |    |		Load	0x0,0x3
0061 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0062 e004       |    |		Load	0x0,0x4
0063 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0064 e223       | #  |		Load	0x1,0x23
0065 e005       |    |		Load	0x0,0x5
0066 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0067 00e1       |    |		Load_Encached	Boolean_Cache
0068 00e1       |    |		Load_Encached	Boolean_Cache
0069 00e1       |    |		Load_Encached	Boolean_Cache
006a 00e1       |    |		Load_Encached	Boolean_Cache
006b e006       |    |		Load	0x0,0x6
006c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006d 00ec       |    |		Load_Encached	Diana_Tree_Cache
006e 029f 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Call
0070 e221       | !  |		Load	0x1,0x21
0071 0326       | &  |		Complete_Type	Record,By_Defining
0072 e20f       |    |		Load	0x1,0xf								; Debug Table 0x1.0x10 = 0x72,0xffef
0073 0266       | f  |		Execute	Discrete,Bounds
0074 e007       |    |		Load	0x0,0x7
0075 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0076 02a0       |    |		Declare_Subprogram	Null_Subprogram
0077 4801       |H   |		Short_Literal	0x1
0078 035d       | ]  |		Declare_Type	Array,Defined
0079 00d8       |    |		Load_Top	At_Offset_0
007a 0337       | 7  |		Declare_Variable	Array
007b 00d8       |    |		Load_Top	At_Offset_0
007c 0337       | 7  |		Declare_Variable	Array
007d e007       |    |		Load	0x0,0x7
007e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
007f 4800       |H   |		Short_Literal	0x0
0080 00da       |    |		Load_Top	At_Offset_2
0081 01d6       |    |		Execute	Vector,Field_Write
0082 e007       |    |		Load	0x0,0x7
0083 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0084 4801       |H   |		Short_Literal	0x1
0085 00da       |    |		Load_Top	At_Offset_2
0086 01d6       |    |		Execute	Vector,Field_Write
0087 e007       |    |		Load	0x0,0x7
0088 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0089 0322       | "  |		Declare_Variable	Record
008a 4800       |H   |		Short_Literal	0x0
008b 00d9       |    |		Load_Top	At_Offset_1
008c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
008d 4800       |H   |		Short_Literal	0x0
008e 00d9       |    |		Load_Top	At_Offset_1
008f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0090 4800       |H   |		Short_Literal	0x0
0091 00d9       |    |		Load_Top	At_Offset_1
0092 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0093 e007       |    |		Load	0x0,0x7
0094 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0095 0337       | 7  |		Declare_Variable	Array
0096 4801       |H   |		Short_Literal	0x1
0097 4802       |H   |		Short_Literal	0x2
0098 00da       |    |		Load_Top	At_Offset_2
0099 01d6       |    |		Execute	Vector,Field_Write
009a 4800       |H   |		Short_Literal	0x0
009b 4800       |H   |		Short_Literal	0x0
009c 00da       |    |		Load_Top	At_Offset_2
009d 01d6       |    |		Execute	Vector,Field_Write
009e 4800       |H   |		Short_Literal	0x0
009f 4801       |H   |		Short_Literal	0x1
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 01d6       |    |		Execute	Vector,Field_Write
00a2 4800       |H   |		Short_Literal	0x0
00a3 4803       |H   |		Short_Literal	0x3
00a4 00da       |    |		Load_Top	At_Offset_2
00a5 01d6       |    |		Execute	Vector,Field_Write
00a6 e007       |    |		Load	0x0,0x7
00a7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a8 0119       |    |		Execute	Any,Check_In_Formal_Type
00a9 00d9       |    |		Load_Top	At_Offset_1
00aa 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00ab 4802       |H   |		Short_Literal	0x2
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 01d6       |    |		Execute	Vector,Field_Write
00ae 00d9       |    |		Load_Top	At_Offset_1
00af 01d4       |    |		Execute	Vector,Structure_Write
00b0 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x11 = 0xb0,0xffee
00b1 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x12 = 0xb1,0xffed
00b2 029d 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call			; Debug Table 0x1.0x13 = 0xb2,0xffec
00b4 029d 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call			; Debug Table 0x1.0x14 = 0xb4,0xffeb
00b6 029d 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call			; Debug Table 0x1.0x15 = 0xb6,0xffea
00b8 029d 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call			; Debug Table 0x1.0x16 = 0xb8,0xffe9
00ba 029d 0673  |   s|		Declare_Subprogram	INIT_0670,For_Outer_Call			; Debug Table 0x1.0x17 = 0xba,0xffe8
00bc 029d 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call			; Debug Table 0x1.0x18 = 0xbc,0xffe7
00be 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x19 = 0xbe,0xffe6
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x1a = 0xc0,0xffe5
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x1b = 0xc2,0xffe4
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x1c = 0xc4,0xffe3
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x1d = 0xc6,0xffe2
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x1e = 0xc8,0xffe1
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x1f = 0xca,0xffe0
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x20 = 0xcc,0xffdf
00cd 00c7       |    |		Action	Elaborate_Subprogram
00ce 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x21 = 0xce,0xffde
00cf 00c7       |    |		Action	Elaborate_Subprogram
00d0 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x22 = 0xd0,0xffdd
00d1 00c7       |    |		Action	Elaborate_Subprogram
00d2 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0x23 = 0xd2,0xffdc
00d3 00c7       |    |		Action	Elaborate_Subprogram
00d4 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x24 = 0xd4,0xffdb
00d5 00c7       |    |		Action	Elaborate_Subprogram
00d6 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x25 = 0xd6,0xffda
00d7 00c7       |    |		Action	Elaborate_Subprogram
00d8 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x26 = 0xd8,0xffd9
00d9 00c7       |    |		Action	Elaborate_Subprogram
00da 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0x27 = 0xda,0xffd8
00db 00c7       |    |		Action	Elaborate_Subprogram
00dc 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0x28 = 0xdc,0xffd7
00dd 00c7       |    |		Action	Elaborate_Subprogram
00de			BODY_0008:
00de 00bc       |    |		Action	Signal_Activated
00df 00bb       |    |		Action	Signal_Completion
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x00e3,0x0a2a,0x0005,0x0000,0x0032,0xc954,0x0000,0x001a
00e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00e5 7802       |x   |		Jump	0xe8								; case 0x1
00e6 7805       |x   |		Jump	0xec								; case 0x2
00e7 7809       |x   |		Jump	0xf1								; case 0x3
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 0091 07d0  |    |		Action	Push_String_Extended_Indexed,0x7d0				; "REGULAR"
00eb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 00db       |    |		Load_Top	At_Offset_3
00ee 00e0       |    |		Load_Encached	Standard_Cache
00ef 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f1 00da       |    |		Load_Top	At_Offset_2
00f2 00e0       |    |		Load_Encached	Standard_Cache
00f3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 011c       |    |		.CONST	0x011c								; Address of begin
00f9 021e       |    |		.CONST	0x021e								; Address of exception handler
00fa 0009       |    |		.CONST	0x0009								; Number of locals
00fb			INIT_00f8:
00fb e008       |    |		Load	0x0,0x8								; Debug Table 0x3 = .DEBUG	0x00fb,0x0a2c,0x0001,0x0000,0x0032,0xc954,0x0000,0x0021
													; Debug Table 0x3.0x0 = 0xfb,0xffff
00fc 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00fd 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00fe 02c7       |    |		Declare_Variable	Any
00ff 00d8       |    |		Load_Top	At_Offset_0
0100 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0101 e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x1 = 0x101,0xfffe
0102 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0103 02c7       |    |		Declare_Variable	Any
0104 00d8       |    |		Load_Top	At_Offset_0
0105 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0106 e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x2 = 0x106,0xfffd
0107 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0108 02ff       |    |		Declare_Variable	Variant_Record
0109 00d8       |    |		Load_Top	At_Offset_0
010a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010b e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x3 = 0x10b,0xfffc
010c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
010d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010e 02c7       |    |		Declare_Variable	Any
010f 00d8       |    |		Load_Top	At_Offset_0
0110 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0111 e009       |    |		Load	0x0,0x9								; Debug Table 0x3.0x4 = 0x111,0xfffb
0112 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0113 02ff       |    |		Declare_Variable	Variant_Record
0114 00d8       |    |		Load_Top	At_Offset_0
0115 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0116 e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x5 = 0x116,0xfffa
0117 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0118 e00a       |    |		Load	0x0,0xa								; Debug Table 0x3.0x6 = 0x118,0xfff9
0119 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011a 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
011c			BODY_00f8:
011c e20d       |    |		Load	0x1,0xd								; Debug Table 0x3.0x7 = 0x11c,0x1
011d e5fd       |    |		Load	0x2,-0x3
011e 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
011f 00d8       |    |		Load_Top	At_Offset_0
0120 0217       |    |		Execute	Heap_Access,All_Reference
0121 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0122 a5fb       |    |		Store_Unchecked	0x2,-0x5
0123 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x8 = 0x123,0x2
0124 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x9 = 0x124,0x3
0125 e5fb       |    |		Load	0x2,-0x5
0126 0217       |    |		Execute	Heap_Access,All_Reference
0127 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0128 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0xa = 0x128,0x4
0129 e5fb       |    |		Load	0x2,-0x5
012a 0217       |    |		Execute	Heap_Access,All_Reference
012b 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
012c e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x3.0xb = 0x12c,0x5
012d e005       |    |		Load	0x0,0x5
012e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
012f 012f       | /  |		Execute	Any,Equal
0130 680c       |h   |		Jump_Zero	0x13d
0131 e00b       |    |		Load	0x0,0xb								; Debug Table 0x3.0xc = 0x131,0x6
0132 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0133 e005       |    |		Load	0x0,0x5
0134 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0135 e5fb       |    |		Load	0x2,-0x5
0136 0217       |    |		Execute	Heap_Access,All_Reference
0137 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0138 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0xd = 0x138,0x7
0139 e5fb       |    |		Load	0x2,-0x5
013a 0217       |    |		Execute	Heap_Access,All_Reference
013b 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
013c 7808       |x   |		Jump	0x145
013d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x3.0xe = 0x13d,0x8
013e e5fb       |    |		Load	0x2,-0x5
013f 0217       |    |		Execute	Heap_Access,All_Reference
0140 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0141 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0xf = 0x141,0x9
0142 e5fb       |    |		Load	0x2,-0x5
0143 0217       |    |		Execute	Heap_Access,All_Reference
0144 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0145 e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x10 = 0x145,0xa
0146 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0147 e405       |    |		Load	0x2,0x5
0148 0120       |    |		Execute	Any,Is_Value
0149 6804       |h   |		Jump_Zero	0x14e
014a e008       |    |		Load	0x0,0x8
014b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
014c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
014d 7801       |x   |		Jump	0x14f
014e e405       |    |		Load	0x2,0x5
014f e5ff       |    |		Load	0x2,-0x1
0150 e008       |    |		Load	0x0,0x8
0151 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0152 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0153 c405       |    |		Store	0x2,0x5
0154 005b       | [  |		Store_Top	Discrete,At_Offset_3
0155 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x11 = 0x155,0xb
0156 0092 07d3  |    |		Action	Push_String_Extended,0x7d3					; "INITIALIZE, obtaining the Ada Unit"
0158 e407       |    |		Load	0x2,0x7
0159 8227       | '  |		Call	0x1,0x27
015a c5fa       |    |		Store	0x2,-0x6
015b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x12 = 0x15b,0xc
015c e009       |    |		Load	0x0,0x9
015d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
015e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
015f e009       |    |		Load	0x0,0x9
0160 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0161 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0162 e406       |    |		Load	0x2,0x6
0163 016d       | m  |		Execute	Variant_Record,Structure_Write
0164 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x13 = 0x164,0xd
0165 0217       |    |		Execute	Heap_Access,All_Reference
0166 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0167 e406       |    |		Load	0x2,0x6
0168 e009       |    |		Load	0x0,0x9
0169 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
016a 680c       |h   |		Jump_Zero	0x177
016b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x14 = 0x16b,0xe
016c e009       |    |		Load	0x0,0x9
016d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
016e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
016f e5fb       |    |		Load	0x2,-0x5
0170 0217       |    |		Execute	Heap_Access,All_Reference
0171 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0172 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x15 = 0x172,0xf
0173 e5fb       |    |		Load	0x2,-0x5
0174 0217       |    |		Execute	Heap_Access,All_Reference
0175 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0176 782a       |x*  |		Jump	0x1a1
0177 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x16 = 0x177,0x10
0178 0219       |    |		Execute	Heap_Access,All_Read
0179 e008       |    |		Load	0x0,0x8
017a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017b e402       |    |		Load	0x2,0x2
017c 0120       |    |		Execute	Any,Is_Value
017d 6804       |h   |		Jump_Zero	0x182
017e e008       |    |		Load	0x0,0x8
017f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0180 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0181 7801       |x   |		Jump	0x183
0182 e402       |    |		Load	0x2,0x2
0183 e008       |    |		Load	0x0,0x8
0184 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0185 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0186 6215       |b   |		Indirect_Literal	Discrete,0x39c,{0x00000000, 0x00004000}
0187 4801       |H   |		Short_Literal	0x1
0188 4800       |H   |		Short_Literal	0x0
0189 4800       |H   |		Short_Literal	0x0
018a e5fb       |    |		Load	0x2,-0x5
018b 0217       |    |		Execute	Heap_Access,All_Reference
018c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
018d 4802       |H   |		Short_Literal	0x2
018e e405       |    |		Load	0x2,0x5
018f e008       |    |		Load	0x0,0x8
0190 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0191 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0192 00db       |    |		Load_Top	At_Offset_3
0193 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0194 c402       |    |		Store	0x2,0x2
0195 c407       |    |		Store	0x2,0x7
0196 00d1       |    |		Pop_Control	Pop_Count_1
0197 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x17 = 0x197,0x11
0198 0092 07d4  |    |		Action	Push_String_Extended,0x7d4					; "INITIALIZE, opening the ada unit version"
019a e407       |    |		Load	0x2,0x7
019b 8227       | '  |		Call	0x1,0x27
019c c5fa       |    |		Store	0x2,-0x6
019d 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x18 = 0x19d,0x12
019e e5fb       |    |		Load	0x2,-0x5
019f 0217       |    |		Execute	Heap_Access,All_Reference
01a0 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01a1 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x19 = 0x1a1,0x13
01a2 0217       |    |		Execute	Heap_Access,All_Reference
01a3 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01a4 6835       |h5  |		Jump_Zero	0x1da
01a5 e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x1a = 0x1a5,0x14
01a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a7 e404       |    |		Load	0x2,0x4
01a8 61f3       |a   |		Indirect_Literal	Discrete,0x39c,{0x00000000, 0x00004000}
01a9 4800       |H   |		Short_Literal	0x0
01aa e5fb       |    |		Load	0x2,-0x5
01ab 0217       |    |		Execute	Heap_Access,All_Reference
01ac 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01ad e405       |    |		Load	0x2,0x5
01ae e008       |    |		Load	0x0,0x8
01af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01b0 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01b1 00d1       |    |		Pop_Control	Pop_Count_1
01b2 005b       | [  |		Store_Top	Discrete,At_Offset_3
01b3 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x1b = 0x1b3,0x15
01b4 0092 07d5  |    |		Action	Push_String_Extended,0x7d5					; "INITIALIZE, getting the ada image version"
01b6 e407       |    |		Load	0x2,0x7
01b7 8227       | '  |		Call	0x1,0x27
01b8 c5fa       |    |		Store	0x2,-0x6
01b9 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x1c = 0x1b9,0x16
01ba 0219       |    |		Execute	Heap_Access,All_Read
01bb e00a       |    |		Load	0x0,0xa
01bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
01bf 0120       |    |		Execute	Any,Is_Value
01c0 6803       |h   |		Jump_Zero	0x1c4
01c1 e006       |    |		Load	0x0,0x6
01c2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01c3 7802       |x   |		Jump	0x1c6
01c4 00d9       |    |		Load_Top	At_Offset_1
01c5 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
01c6 4800       |H   |		Short_Literal	0x0
01c7 e5fb       |    |		Load	0x2,-0x5
01c8 0217       |    |		Execute	Heap_Access,All_Reference
01c9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01ca e5fd       |    |		Load	0x2,-0x3
01cb 4802       |H   |		Short_Literal	0x2
01cc e404       |    |		Load	0x2,0x4
01cd e006       |    |		Load	0x0,0x6
01ce 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01cf 00da       |    |		Load_Top	At_Offset_2
01d0 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01d1 005b       | [  |		Store_Top	Discrete,At_Offset_3
01d2 00d1       |    |		Pop_Control	Pop_Count_1
01d3 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x1d = 0x1d3,0x17
01d4 0092 07d6  |    |		Action	Push_String_Extended,0x7d6					; "INITIALIZE, opening the image object"
01d6 00db       |    |		Load_Top	At_Offset_3
01d7 8228       | (  |		Call	0x1,0x28
01d8 c5fa       |    |		Store	0x2,-0x6
01d9 7834       |x4  |		Jump	0x20e
01da e008       |    |		Load	0x0,0x8								; Debug Table 0x3.0x1e = 0x1da,0x18
01db 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01dc e404       |    |		Load	0x2,0x4
01dd 61be       |a   |		Indirect_Literal	Discrete,0x39c,{0x00000000, 0x00004000}
01de 4800       |H   |		Short_Literal	0x0
01df e5fb       |    |		Load	0x2,-0x5
01e0 0217       |    |		Execute	Heap_Access,All_Reference
01e1 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01e2 e405       |    |		Load	0x2,0x5
01e3 e008       |    |		Load	0x0,0x8
01e4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01e5 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
01e6 00d1       |    |		Pop_Control	Pop_Count_1
01e7 005b       | [  |		Store_Top	Discrete,At_Offset_3
01e8 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x1f = 0x1e8,0x19
01e9 0092 07d5  |    |		Action	Push_String_Extended,0x7d5					; "INITIALIZE, getting the ada image version"
01eb e407       |    |		Load	0x2,0x7
01ec 8227       | '  |		Call	0x1,0x27
01ed c5fa       |    |		Store	0x2,-0x6
01ee e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3.0x20 = 0x1ee,0x1a
01ef 0219       |    |		Execute	Heap_Access,All_Read
01f0 e00a       |    |		Load	0x0,0xa
01f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
01f4 0120       |    |		Execute	Any,Is_Value
01f5 6803       |h   |		Jump_Zero	0x1f9
01f6 e006       |    |		Load	0x0,0x6
01f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f8 7802       |x   |		Jump	0x1fb
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
01fb 4800       |H   |		Short_Literal	0x0
01fc e5fb       |    |		Load	0x2,-0x5
01fd 0217       |    |		Execute	Heap_Access,All_Reference
01fe 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01ff e5fd       |    |		Load	0x2,-0x3
0200 4801       |H   |		Short_Literal	0x1
0201 e404       |    |		Load	0x2,0x4
0202 e006       |    |		Load	0x0,0x6
0203 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0204 00da       |    |		Load_Top	At_Offset_2
0205 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0206 005b       | [  |		Store_Top	Discrete,At_Offset_3
0207 00d1       |    |		Pop_Control	Pop_Count_1
0208 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x21 = 0x208,0x1b
0209 0092 07d6  |    |		Action	Push_String_Extended,0x7d6					; "INITIALIZE, opening the image object"
020b 00db       |    |		Load_Top	At_Offset_3
020c 8228       | (  |		Call	0x1,0x28
020d c5fa       |    |		Store	0x2,-0x6
020e 6189       |a   |		Indirect_Literal	Discrete,0x398,{0x00000000, 0x00014000}		; Debug Table 0x3.0x22 = 0x20e,0x1c
020f 6188       |a   |		Indirect_Literal	Discrete,0x398,{0x00000000, 0x00014000}
0210 e004       |    |		Load	0x0,0x4
0211 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0212 012c       | ,  |		Execute	Any,Size
0213 e00c       |    |		Load	0x0,0xc
0214 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0215 025b       | [  |		Execute	Discrete,Check_In_Type
0216 e5fd       |    |		Load	0x2,-0x3
0217 e003       |    |		Load	0x0,0x3
0218 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0219 e5fb       |    |		Load	0x2,-0x5
021a 0217       |    |		Execute	Heap_Access,All_Reference
021b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
021c 8409       |    |		Call	0x2,0x9								; Debug Table 0x3.0x23 = 0x21c,0x1d
021d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
021e			TRAP_00f8:
021e 6175       |au  |		Indirect_Literal	Discrete,0x394,{0x00000000, 0x32c95401}
021f 010f       |    |		Execute	Exception,Equal
0220 6801       |h   |		Jump_Zero	0x222
0221 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x3.0x24 = 0x221,0x1e
0222 0100       |    |		Execute	Exception,Raise
0223 0000 0000  |    |		.BLANK	0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023d       | =  |		.CONST	0x023d								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0007       |    |		.CONST	0x0007								; Number of locals
022b			INIT_0228:
022b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4 = .DEBUG	0x022b,0x0a78,0x0001,0x0000,0x0032,0xc954,0x0000,0x0048
													; Debug Table 0x4.0x0 = 0x22b,0xffff
022c 00db       |    |		Load_Top	At_Offset_3
022d 0217       |    |		Execute	Heap_Access,All_Reference
022e 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
022f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0230 e008       |    |		Load	0x0,0x8								; Debug Table 0x4.0x1 = 0x230,0xfffe
0231 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0232 e00a       |    |		Load	0x0,0xa								; Debug Table 0x4.0x2 = 0x232,0xfffd
0233 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0234 e223       | #  |		Load	0x1,0x23							; Debug Table 0x4.0x3 = 0x234,0xfffc
0235 0007       |    |		Action	Break_Optional
0236 e00d       |    |		Load	0x0,0xd								; Debug Table 0x4.0x4 = 0x236,0xfffb
0237 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0238 02c7       |    |		Declare_Variable	Any
0239 00d8       |    |		Load_Top	At_Offset_0
023a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
023b 029f 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Call
023d			BODY_0228:
023d 8407       |    |		Call	0x2,0x7								; Debug Table 0x4.0x5 = 0x23d,0x1
023e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x6 = 0x23e,0x2
023f e402       |    |		Load	0x2,0x2
0240 822c       | ,  |		Call	0x1,0x2c
0241 c5ff       |    |		Store	0x2,-0x1
0242 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x7 = 0x242,0x3
0243 0217       |    |		Execute	Heap_Access,All_Reference
0244 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0245 6848       |hH  |		Jump_Zero	0x28e
0246 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x8 = 0x246,0x4
0247 0120       |    |		Execute	Any,Is_Value
0248 6803       |h   |		Jump_Zero	0x24c
0249 e00d       |    |		Load	0x0,0xd
024a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
024b 7801       |x   |		Jump	0x24d
024c 00d9       |    |		Load_Top	At_Offset_1
024d 4800       |H   |		Short_Literal	0x0
024e 4801       |H   |		Short_Literal	0x1
024f e5ff       |    |		Load	0x2,-0x1
0250 0217       |    |		Execute	Heap_Access,All_Reference
0251 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0252 e00d       |    |		Load	0x0,0xd
0253 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0254 c406       |    |		Store	0x2,0x6
0255 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x9 = 0x255,0x5
0256 0217       |    |		Execute	Heap_Access,All_Reference
0257 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0258 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0259 00cf       |    |		Action	Mark_Auxiliary
025a 782c       |x,  |		Jump	0x287
025b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xa = 0x25b,0x7
025c 0217       |    |		Execute	Heap_Access,All_Reference
025d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
025e 6823       |h#  |		Jump_Zero	0x282
025f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0xb = 0x25f,0x8
0260 e405       |    |		Load	0x2,0x5
0261 0217       |    |		Execute	Heap_Access,All_Reference
0262 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0263 0217       |    |		Execute	Heap_Access,All_Reference
0264 e405       |    |		Load	0x2,0x5
0265 0217       |    |		Execute	Heap_Access,All_Reference
0266 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0267 e00d       |    |		Load	0x0,0xd
0268 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0269 025b       | [  |		Execute	Discrete,Check_In_Type
026a e405       |    |		Load	0x2,0x5
026b 0217       |    |		Execute	Heap_Access,All_Reference
026c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
026d e405       |    |		Load	0x2,0x5
026e 0217       |    |		Execute	Heap_Access,All_Reference
026f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0270 0272       | r  |		Execute	Discrete,Minus
0271 0248       | H  |		Execute	Discrete,Check_In_Integer
0272 0a01       |    |		Execute_Immediate	Plus,0x1
0273 00e4       |    |		Load_Encached	Positive_Cache
0274 025b       | [  |		Execute	Discrete,Check_In_Type
0275 e405       |    |		Load	0x2,0x5
0276 0217       |    |		Execute	Heap_Access,All_Reference
0277 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0278 00e4       |    |		Load_Encached	Positive_Cache
0279 025b       | [  |		Execute	Discrete,Check_In_Type
027a e405       |    |		Load	0x2,0x5
027b 0217       |    |		Execute	Heap_Access,All_Reference
027c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027d 00e4       |    |		Load_Encached	Positive_Cache
027e 025b       | [  |		Execute	Discrete,Check_In_Type
027f e00d       |    |		Load	0x0,0xd
0280 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0281 c406       |    |		Store	0x2,0x6
0282 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xc = 0x282,0x9
0283 0217       |    |		Execute	Heap_Access,All_Reference
0284 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0285 a405       |    |		Store_Unchecked	0x2,0x5
0286 00c9       |    |		Action	Pop_Auxiliary_Loop
0287 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xd = 0x287,0x6
0288 77d2       |w   |		Jump_Nonzero	0x25b
0289 00ce       |    |		Action	Pop_Auxiliary
028a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0xe = 0x28a,0xa
028b e00d       |    |		Load	0x0,0xd
028c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
028d c406       |    |		Store	0x2,0x6
028e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0xf = 0x28e,0xb
028f 0217       |    |		Execute	Heap_Access,All_Reference
0290 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0291 6819       |h   |		Jump_Zero	0x2ab
0292 e008       |    |		Load	0x0,0x8								; Debug Table 0x4.0x10 = 0x292,0xc
0293 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0294 4800       |H   |		Short_Literal	0x0
0295 4801       |H   |		Short_Literal	0x1
0296 e5ff       |    |		Load	0x2,-0x1
0297 0217       |    |		Execute	Heap_Access,All_Reference
0298 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0299 e5ff       |    |		Load	0x2,-0x1
029a 0217       |    |		Execute	Heap_Access,All_Reference
029b 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
029c e008       |    |		Load	0x0,0x8
029d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
029e 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
029f c403       |    |		Store	0x2,0x3
02a0 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x11 = 0x2a0,0xd
02a1 0219       |    |		Execute	Heap_Access,All_Read
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a4 0092 07d7  |    |		Action	Push_String_Extended,0x7d7					; "DONE, closing ada root"
02a6 e403       |    |		Load	0x2,0x3
02a7 8227       | '  |		Call	0x1,0x27
02a8 00d9       |    |		Load_Top	At_Offset_1
02a9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02aa 00d1       |    |		Pop_Control	Pop_Count_1
02ab e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x12 = 0x2ab,0xe
02ac 0219       |    |		Execute	Heap_Access,All_Read
02ad e00a       |    |		Load	0x0,0xa
02ae 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02af 00d9       |    |		Load_Top	At_Offset_1
02b0 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
02b1 4800       |H   |		Short_Literal	0x0
02b2 e006       |    |		Load	0x0,0x6
02b3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02b4 00da       |    |		Load_Top	At_Offset_2
02b5 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
02b6 c404       |    |		Store	0x2,0x4
02b7 00d1       |    |		Pop_Control	Pop_Count_1
02b8 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x13 = 0x2b8,0xf
02b9 0219       |    |		Execute	Heap_Access,All_Read
02ba 00d8       |    |		Load_Top	At_Offset_0
02bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02bc 0092 07d8  |    |		Action	Push_String_Extended,0x7d8					; "DONE, closing image handle"
02be e404       |    |		Load	0x2,0x4
02bf 8228       | (  |		Call	0x1,0x28
02c0 00d9       |    |		Load_Top	At_Offset_1
02c1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c2 00d1       |    |		Pop_Control	Pop_Count_1
02c3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x14 = 0x2c3,0x10
02c4 0217       |    |		Execute	Heap_Access,All_Reference
02c5 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02c6 680b       |h   |		Jump_Zero	0x2d2
02c7 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x15 = 0x2c7,0x11
02c8 0219       |    |		Execute	Heap_Access,All_Read
02c9 00d8       |    |		Load_Top	At_Offset_0
02ca 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02cb 4801       |H   |		Short_Literal	0x1
02cc 4801       |H   |		Short_Literal	0x1
02cd e005       |    |		Load	0x0,0x5
02ce 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02cf 00d9       |    |		Load_Top	At_Offset_1
02d0 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02d1 00d1       |    |		Pop_Control	Pop_Count_1
02d2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d3 0000 0000  |    |		.BLANK	0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 0308       |    |		.CONST	0x0308								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 000a       |    |		.CONST	0x000a								; Number of locals
02db			INIT_02d8:
02db 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5 = .DEBUG	0x02db,0x0aa6,0x0001,0x0000,0x0032,0xc954,0x0000,0x0050
													; Debug Table 0x5.0x0 = 0x2db,0xffff
02dc 00db       |    |		Load_Top	At_Offset_3
02dd 0217       |    |		Execute	Heap_Access,All_Reference
02de 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
02df 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02e0 e008       |    |		Load	0x0,0x8								; Debug Table 0x5.0x1 = 0x2e0,0xfffe
02e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e2 e00a       |    |		Load	0x0,0xa								; Debug Table 0x5.0x2 = 0x2e2,0xfffd
02e3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02e4 e223       | #  |		Load	0x1,0x23							; Debug Table 0x5.0x3 = 0x2e4,0xfffc
02e5 0007       |    |		Action	Break_Optional
02e6 e00d       |    |		Load	0x0,0xd								; Debug Table 0x5.0x4 = 0x2e6,0xfffb
02e7 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02e8 02c7       |    |		Declare_Variable	Any
02e9 00d8       |    |		Load_Top	At_Offset_0
02ea 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02eb e226       | &  |		Load	0x1,0x26							; Debug Table 0x5.0x5 = 0x2eb,0xfffa
02ec 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02ed 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x5.0x6 = 0x2ed,0xfff9
02ee e00e       |    |		Load	0x0,0xe								; Debug Table 0x5.0x7 = 0x2ee,0xfff8
02ef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f0 0322       | "  |		Declare_Variable	Record
02f1 e00e       |    |		Load	0x0,0xe
02f2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f3 00d9       |    |		Load_Top	At_Offset_1
02f4 017d       | }  |		Execute	Record,Structure_Write
02f5 609a       |`   |		Indirect_Literal	Discrete,0x390,{0x00000000, 0x0032cc64}		; Debug Table 0x5.0x8 = 0x2f5,0xfff7
02f6 6095       |`   |		Indirect_Literal	Discrete,0x38c,{0x00000000, 0x00000692}
02f7 e5ff       |    |		Load	0x2,-0x1
02f8 0217       |    |		Execute	Heap_Access,All_Reference
02f9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb 0120       |    |		Execute	Any,Is_Value
02fc 7002       |p   |		Jump_Nonzero	0x2ff
02fd 00d8       |    |		Load_Top	At_Offset_0
02fe 011e       |    |		Execute	Any,Convert
02ff 4800       |H   |		Short_Literal	0x0
0300 00e1       |    |		Load_Encached	Boolean_Cache
0301 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0302 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0303 e00f       |    |		Load	0x0,0xf
0304 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0305 0387       |    |		Declare_Variable	Package
0306 00d8       |    |		Load_Top	At_Offset_0
0307 020f       |    |		Execute	Module,Activate
0308			BODY_02d8:
0308 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x5.0x9 = 0x308,0x1
0309 48f9       |H   |		Short_Literal	0xf9
030a 4801       |H   |		Short_Literal	0x1
030b e010       |    |		Load	0x0,0x10
030c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
030d 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
030e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0xa = 0x30e,0x2
030f 0219       |    |		Execute	Heap_Access,All_Read
0310 00d8       |    |		Load_Top	At_Offset_0
0311 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0312 00db       |    |		Load_Top	At_Offset_3
0313 e408       |    |		Load	0x2,0x8
0314 e5ff       |    |		Load	0x2,-0x1
0315 0217       |    |		Execute	Heap_Access,All_Reference
0316 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0317 e5ff       |    |		Load	0x2,-0x1
0318 0217       |    |		Execute	Heap_Access,All_Reference
0319 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
031a e407       |    |		Load	0x2,0x7
031b e40a       |    |		Load	0x2,0xa
031c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
031d 00d1       |    |		Pop_Control	Pop_Count_1
031e 00d9       |    |		Load_Top	At_Offset_1
031f 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0320 00d1       |    |		Pop_Control	Pop_Count_1
0321 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0xb = 0x321,0x3
0322 e402       |    |		Load	0x2,0x2
0323 822c       | ,  |		Call	0x1,0x2c
0324 c5ff       |    |		Store	0x2,-0x1
0325 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0xc = 0x325,0x4
0326 0217       |    |		Execute	Heap_Access,All_Reference
0327 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0328 6848       |hH  |		Jump_Zero	0x371
0329 e406       |    |		Load	0x2,0x6								; Debug Table 0x5.0xd = 0x329,0x5
032a 0120       |    |		Execute	Any,Is_Value
032b 6803       |h   |		Jump_Zero	0x32f
032c e00d       |    |		Load	0x0,0xd
032d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
032e 7801       |x   |		Jump	0x330
032f e406       |    |		Load	0x2,0x6
0330 4801       |H   |		Short_Literal	0x1
0331 4801       |H   |		Short_Literal	0x1
0332 e5ff       |    |		Load	0x2,-0x1
0333 0217       |    |		Execute	Heap_Access,All_Reference
0334 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0335 e00d       |    |		Load	0x0,0xd
0336 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0337 c406       |    |		Store	0x2,0x6
0338 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0xe = 0x338,0x6
0339 0217       |    |		Execute	Heap_Access,All_Reference
033a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
033b a405       |    |		Store_Unchecked	0x2,0x5
033c 00cf       |    |		Action	Mark_Auxiliary
033d 782c       |x,  |		Jump	0x36a
033e e405       |    |		Load	0x2,0x5								; Debug Table 0x5.0xf = 0x33e,0x8
033f 0217       |    |		Execute	Heap_Access,All_Reference
0340 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0341 6823       |h#  |		Jump_Zero	0x365
0342 e406       |    |		Load	0x2,0x6								; Debug Table 0x5.0x10 = 0x342,0x9
0343 e405       |    |		Load	0x2,0x5
0344 0217       |    |		Execute	Heap_Access,All_Reference
0345 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0346 0217       |    |		Execute	Heap_Access,All_Reference
0347 e405       |    |		Load	0x2,0x5
0348 0217       |    |		Execute	Heap_Access,All_Reference
0349 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
034a e00d       |    |		Load	0x0,0xd
034b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
034c 025b       | [  |		Execute	Discrete,Check_In_Type
034d e405       |    |		Load	0x2,0x5
034e 0217       |    |		Execute	Heap_Access,All_Reference
034f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0350 e405       |    |		Load	0x2,0x5
0351 0217       |    |		Execute	Heap_Access,All_Reference
0352 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0353 0272       | r  |		Execute	Discrete,Minus
0354 0248       | H  |		Execute	Discrete,Check_In_Integer
0355 0a01       |    |		Execute_Immediate	Plus,0x1
0356 00e4       |    |		Load_Encached	Positive_Cache
0357 025b       | [  |		Execute	Discrete,Check_In_Type
0358 e405       |    |		Load	0x2,0x5
0359 0217       |    |		Execute	Heap_Access,All_Reference
035a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
035b 00e4       |    |		Load_Encached	Positive_Cache
035c 025b       | [  |		Execute	Discrete,Check_In_Type
035d e405       |    |		Load	0x2,0x5
035e 0217       |    |		Execute	Heap_Access,All_Reference
035f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0360 00e4       |    |		Load_Encached	Positive_Cache
0361 025b       | [  |		Execute	Discrete,Check_In_Type
0362 e00d       |    |		Load	0x0,0xd
0363 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0364 c406       |    |		Store	0x2,0x6
0365 e405       |    |		Load	0x2,0x5								; Debug Table 0x5.0x11 = 0x365,0xa
0366 0217       |    |		Execute	Heap_Access,All_Reference
0367 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0368 a405       |    |		Store_Unchecked	0x2,0x5
0369 00c9       |    |		Action	Pop_Auxiliary_Loop
036a e405       |    |		Load	0x2,0x5								; Debug Table 0x5.0x12 = 0x36a,0x7
036b 77d2       |w   |		Jump_Nonzero	0x33e
036c 00ce       |    |		Action	Pop_Auxiliary
036d e406       |    |		Load	0x2,0x6								; Debug Table 0x5.0x13 = 0x36d,0xb
036e e00d       |    |		Load	0x0,0xd
036f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0370 c406       |    |		Store	0x2,0x6
0371 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x14 = 0x371,0xc
0372 0219       |    |		Execute	Heap_Access,All_Read
0373 00d8       |    |		Load_Top	At_Offset_0
0374 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0375 0120       |    |		Execute	Any,Is_Value
0376 6803       |h   |		Jump_Zero	0x37a
0377 e00f       |    |		Load	0x0,0xf
0378 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0379 7802       |x   |		Jump	0x37c
037a 00d8       |    |		Load_Top	At_Offset_0
037b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
037c e5ff       |    |		Load	0x2,-0x1
037d 0217       |    |		Execute	Heap_Access,All_Reference
037e 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
037f e5ff       |    |		Load	0x2,-0x1
0380 0217       |    |		Execute	Heap_Access,All_Reference
0381 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0382 e407       |    |		Load	0x2,0x7
0383 e40a       |    |		Load	0x2,0xa
0384 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0385 00d9       |    |		Load_Top	At_Offset_1
0386 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0387 00d1       |    |		Pop_Control	Pop_Count_1
0388 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x15 = 0x388,0xd
0389 e010       |    |		Load	0x0,0x10
038a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
038b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
038c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000692}
0390 0000 0000  |    |		.LITERAL	{0x00000000, 0x0032cc64}
0394 0000 0000  |    |		.LITERAL	{0x00000000, 0x32c95401}
0398 0000 0000  |    |		.LITERAL	{0x00000000, 0x00014000}
039c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
03a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
03a4 0000 0000  |    |		.BLANK	0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ad       |    |		.CONST	0x03ad								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0002       |    |		.CONST	0x0002								; Number of locals
03ab			INIT_03a8:
03ab e223       | #  |		Load	0x1,0x23							; Debug Table 0x6 = .DEBUG	0x03ab,0x0ad4,0x0001,0x0000,0x0032,0xc954,0x0000,0x0058
													; Debug Table 0x6.0x0 = 0x3ab,0xffff
03ac 0007       |    |		Action	Break_Optional
03ad			BODY_03a8:
03ad 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x1 = 0x3ad,0x1
03ae 8229       | )  |		Call	0x1,0x29
03af e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x2 = 0x3af,0x2
03b0 0a01       |    |		Execute_Immediate	Plus,0x1
03b1 00e4       |    |		Load_Encached	Positive_Cache
03b2 025b       | [  |		Execute	Discrete,Check_In_Type
03b3 e5ff       |    |		Load	0x2,-0x1
03b4 0217       |    |		Execute	Heap_Access,All_Reference
03b5 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
03b6 e5fc       |    |		Load	0x2,-0x4
03b7 e225       | %  |		Load	0x1,0x25
03b8 01d5       |    |		Execute	Vector,Field_Reference
03b9 e5fd       |    |		Load	0x2,-0x3
03ba e006       |    |		Load	0x0,0x6
03bb 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
03bc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x3 = 0x3bc,0x3
03bd 0217       |    |		Execute	Heap_Access,All_Reference
03be 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03bf e004       |    |		Load	0x0,0x4
03c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c1 0322       | "  |		Declare_Variable	Record
03c2 e5fe       |    |		Load	0x2,-0x2
03c3 00d9       |    |		Load_Top	At_Offset_1
03c4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c5 4800       |H   |		Short_Literal	0x0
03c6 00d9       |    |		Load_Top	At_Offset_1
03c7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03c8 4801       |H   |		Short_Literal	0x1
03c9 00d9       |    |		Load_Top	At_Offset_1
03ca 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03cb e004       |    |		Load	0x0,0x4
03cc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03cd 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x4 = 0x3cd,0x4
03ce 0217       |    |		Execute	Heap_Access,All_Reference
03cf 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03d0 681b       |h   |		Jump_Zero	0x3ec
03d1 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x5 = 0x3d1,0x5
03d2 0217       |    |		Execute	Heap_Access,All_Reference
03d3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
03d4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03d5 00cf       |    |		Action	Mark_Auxiliary
03d6 7812       |x   |		Jump	0x3e9
03d7 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x6 = 0x3d7,0x7
03d8 00da       |    |		Load_Top	At_Offset_2
03d9 0217       |    |		Execute	Heap_Access,All_Reference
03da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03db 027c       | |  |		Execute	Discrete,Less
03dc 6807       |h   |		Jump_Zero	0x3e4
03dd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x7 = 0x3dd,0x8
03de 0217       |    |		Execute	Heap_Access,All_Reference
03df 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03e0 0a01       |    |		Execute_Immediate	Plus,0x1
03e1 00da       |    |		Load_Top	At_Offset_2
03e2 0217       |    |		Execute	Heap_Access,All_Reference
03e3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03e4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x8 = 0x3e4,0x9
03e5 0217       |    |		Execute	Heap_Access,All_Reference
03e6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e7 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
03e8 00c9       |    |		Action	Pop_Auxiliary_Loop
03e9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x9 = 0x3e9,0x6
03ea 77ec       |w   |		Jump_Nonzero	0x3d7
03eb 00ce       |    |		Action	Pop_Auxiliary
03ec 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0xa = 0x3ec,0xa
03ed e5ff       |    |		Load	0x2,-0x1
03ee 0217       |    |		Execute	Heap_Access,All_Reference
03ef 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
03f0 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
03f1 0000 0000  |    |		.BLANK	0000[0x7]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fd       |    |		.CONST	0x03fd								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0002       |    |		.CONST	0x0002								; Number of locals
03fb			INIT_03f8:
03fb e223       | #  |		Load	0x1,0x23							; Debug Table 0x7 = .DEBUG	0x03fb,0x0aec,0x0001,0x0000,0x0032,0xc954,0x0000,0x006d
													; Debug Table 0x7.0x0 = 0x3fb,0xffff
03fc 0007       |    |		Action	Break_Optional
03fd			BODY_03f8:
03fd 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x1 = 0x3fd,0x1
03fe 8229       | )  |		Call	0x1,0x29
03ff e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x7.0x2 = 0x3ff,0x2
0400 e5fe       |    |		Load	0x2,-0x2
0401 0a01       |    |		Execute_Immediate	Plus,0x1
0402 00e4       |    |		Load_Encached	Positive_Cache
0403 025b       | [  |		Execute	Discrete,Check_In_Type
0404 e5ff       |    |		Load	0x2,-0x1
0405 0217       |    |		Execute	Heap_Access,All_Reference
0406 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0407 e006       |    |		Load	0x0,0x6
0408 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0409 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x3 = 0x409,0x3
040a 0217       |    |		Execute	Heap_Access,All_Reference
040b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
040c e004       |    |		Load	0x0,0x4
040d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
040e 0322       | "  |		Declare_Variable	Record
040f e5fe       |    |		Load	0x2,-0x2
0410 00d9       |    |		Load_Top	At_Offset_1
0411 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0412 e5fd       |    |		Load	0x2,-0x3
0413 00d9       |    |		Load_Top	At_Offset_1
0414 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0415 4800       |H   |		Short_Literal	0x0
0416 00d9       |    |		Load_Top	At_Offset_1
0417 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0418 e004       |    |		Load	0x0,0x4
0419 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
041a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x4 = 0x41a,0x4
041b 0217       |    |		Execute	Heap_Access,All_Reference
041c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
041d 682b       |h+  |		Jump_Zero	0x449
041e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x5 = 0x41e,0x5
041f 0217       |    |		Execute	Heap_Access,All_Reference
0420 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0421 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0422 00cf       |    |		Action	Mark_Auxiliary
0423 7822       |x"  |		Jump	0x446
0424 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x6 = 0x424,0x7
0425 0217       |    |		Execute	Heap_Access,All_Reference
0426 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0427 e5fe       |    |		Load	0x2,-0x2
0428 0a01       |    |		Execute_Immediate	Plus,0x1
0429 e5fe       |    |		Load	0x2,-0x2
042a e5fd       |    |		Load	0x2,-0x3
042b 0273       | s  |		Execute	Discrete,Plus
042c 0262       | b  |		Execute	Discrete,In_Range
042d 6805       |h   |		Jump_Zero	0x433
042e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x7 = 0x42e,0x8
042f 00da       |    |		Load_Top	At_Offset_2
0430 0217       |    |		Execute	Heap_Access,All_Reference
0431 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0432 780e       |x   |		Jump	0x441
0433 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x8 = 0x433,0x9
0434 00da       |    |		Load_Top	At_Offset_2
0435 0217       |    |		Execute	Heap_Access,All_Reference
0436 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0437 027c       | |  |		Execute	Discrete,Less
0438 6808       |h   |		Jump_Zero	0x441
0439 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x9 = 0x439,0xa
043a 0217       |    |		Execute	Heap_Access,All_Reference
043b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
043c e5fd       |    |		Load	0x2,-0x3
043d 0272       | r  |		Execute	Discrete,Minus
043e 00da       |    |		Load_Top	At_Offset_2
043f 0217       |    |		Execute	Heap_Access,All_Reference
0440 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0441 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0xa = 0x441,0xb
0442 0217       |    |		Execute	Heap_Access,All_Reference
0443 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0444 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0445 00c9       |    |		Action	Pop_Auxiliary_Loop
0446 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0xb = 0x446,0x6
0447 77dc       |w   |		Jump_Nonzero	0x424
0448 00ce       |    |		Action	Pop_Auxiliary
0449 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0xc = 0x449,0xc
044a e5ff       |    |		Load	0x2,-0x1
044b 0217       |    |		Execute	Heap_Access,All_Reference
044c 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
044d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
044e 0000 0000  |    |		.XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455       | U  |		.CONST	0x0455								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0002       |    |		.CONST	0x0002								; Number of locals
0453			INIT_0450:
0453 e223       | #  |		Load	0x1,0x23							; Debug Table 0x8 = .DEBUG	0x0453,0x0b08,0x0001,0x0000,0x0032,0xc954,0x0000,0x007d
													; Debug Table 0x8.0x0 = 0x453,0xffff
0454 0007       |    |		Action	Break_Optional
0455			BODY_0450:
0455 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x1 = 0x455,0x1
0456 8229       | )  |		Call	0x1,0x29
0457 61d0       |a   |		Indirect_Literal	Discrete,0x628,{0x00000000, 0x7fffffff}		; Debug Table 0x8.0x2 = 0x457,0x2
0458 e5fd       |    |		Load	0x2,-0x3
0459 e5fe       |    |		Load	0x2,-0x2
045a e5ff       |    |		Load	0x2,-0x1
045b 0217       |    |		Execute	Heap_Access,All_Reference
045c 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
045d e006       |    |		Load	0x0,0x6
045e 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
045f e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0x3 = 0x45f,0x3
0460 e5fe       |    |		Load	0x2,-0x2
0461 e5ff       |    |		Load	0x2,-0x1
0462 0217       |    |		Execute	Heap_Access,All_Reference
0463 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0464 e5fb       |    |		Load	0x2,-0x5
0465 e225       | %  |		Load	0x1,0x25
0466 01d5       |    |		Execute	Vector,Field_Reference
0467 e5fc       |    |		Load	0x2,-0x4
0468 e006       |    |		Load	0x0,0x6
0469 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
046a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x4 = 0x46a,0x4
046b 0217       |    |		Execute	Heap_Access,All_Reference
046c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
046d e004       |    |		Load	0x0,0x4
046e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
046f 0322       | "  |		Declare_Variable	Record
0470 e5fe       |    |		Load	0x2,-0x2
0471 0aff       |    |		Execute_Immediate	Plus,-0x1
0472 00d9       |    |		Load_Top	At_Offset_1
0473 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0474 4801       |H   |		Short_Literal	0x1
0475 00d9       |    |		Load_Top	At_Offset_1
0476 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0477 4801       |H   |		Short_Literal	0x1
0478 00d9       |    |		Load_Top	At_Offset_1
0479 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
047a e004       |    |		Load	0x0,0x4
047b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
047c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x5 = 0x47c,0x5
047d 0217       |    |		Execute	Heap_Access,All_Reference
047e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
047f 681e       |h   |		Jump_Zero	0x49e
0480 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x6 = 0x480,0x6
0481 0217       |    |		Execute	Heap_Access,All_Reference
0482 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0483 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0484 00cf       |    |		Action	Mark_Auxiliary
0485 7815       |x   |		Jump	0x49b
0486 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x7 = 0x486,0x8
0487 0217       |    |		Execute	Heap_Access,All_Reference
0488 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0489 e5fe       |    |		Load	0x2,-0x2
048a 027f       |    |		Execute	Discrete,Equal
048b 680a       |h   |		Jump_Zero	0x496
048c e5fd       |    |		Load	0x2,-0x3
048d 00da       |    |		Load_Top	At_Offset_2
048e 0217       |    |		Execute	Heap_Access,All_Reference
048f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0490 027a       | z  |		Execute	Discrete,Less_Equal
0491 6804       |h   |		Jump_Zero	0x496
0492 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x8 = 0x492,0x9
0493 00da       |    |		Load_Top	At_Offset_2
0494 0217       |    |		Execute	Heap_Access,All_Reference
0495 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0496 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x9 = 0x496,0xa
0497 0217       |    |		Execute	Heap_Access,All_Reference
0498 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0499 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
049a 00c9       |    |		Action	Pop_Auxiliary_Loop
049b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0xa = 0x49b,0x7
049c 77e9       |w   |		Jump_Nonzero	0x486
049d 00ce       |    |		Action	Pop_Auxiliary
049e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
049f 0000       |    |		.XXX[0x1]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x04a3,0x0b20,0x0001,0x0000,0x0032,0xc954,0x0000,0x0096
													; Debug Table 0x9.0x0 = 0x4a3,0x1
04a4 8229       | )  |		Call	0x1,0x29
04a5 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0x1 = 0x4a5,0x2
04a6 e5fd       |    |		Load	0x2,-0x3
04a7 0272       | r  |		Execute	Discrete,Minus
04a8 0248       | H  |		Execute	Discrete,Check_In_Integer
04a9 0a01       |    |		Execute_Immediate	Plus,0x1
04aa 00e3       |    |		Load_Encached	Natural_Cache
04ab 025b       | [  |		Execute	Discrete,Check_In_Type
04ac e5fd       |    |		Load	0x2,-0x3
04ad e5fe       |    |		Load	0x2,-0x2
04ae e5ff       |    |		Load	0x2,-0x1
04af 0217       |    |		Execute	Heap_Access,All_Reference
04b0 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
04b1 4801       |H   |		Short_Literal	0x1
04b2 e225       | %  |		Load	0x1,0x25
04b3 01d5       |    |		Execute	Vector,Field_Reference
04b4 e006       |    |		Load	0x0,0x6
04b5 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
04b6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x2 = 0x4b6,0x3
04b7 0217       |    |		Execute	Heap_Access,All_Reference
04b8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04b9 e004       |    |		Load	0x0,0x4
04ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04bb 0322       | "  |		Declare_Variable	Record
04bc e5fe       |    |		Load	0x2,-0x2
04bd 0aff       |    |		Execute_Immediate	Plus,-0x1
04be 00d9       |    |		Load_Top	At_Offset_1
04bf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04c0 4801       |H   |		Short_Literal	0x1
04c1 00d9       |    |		Load_Top	At_Offset_1
04c2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04c3 4801       |H   |		Short_Literal	0x1
04c4 00d9       |    |		Load_Top	At_Offset_1
04c5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04c6 e004       |    |		Load	0x0,0x4
04c7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04c8 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
04c9 0000 0000  |    |		.BLANK	0000[0x7]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0xa = .DEBUG	0x04d3,0x0b28,0x0001,0x0000,0x0032,0xc954,0x0000,0x00b8
													; Debug Table 0xa.0x0 = 0x4d3,0x1
04d4 00db       |    |		Load_Top	At_Offset_3
04d5 0217       |    |		Execute	Heap_Access,All_Reference
04d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04d7 e5fa       |    |		Load	0x2,-0x6
04d8 e001       |    |		Load	0x0,0x1
04d9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04da e5fb       |    |		Load	0x2,-0x5
04db e5fc       |    |		Load	0x2,-0x4
04dc e5fd       |    |		Load	0x2,-0x3
04dd e5fe       |    |		Load	0x2,-0x2
04de e5ff       |    |		Load	0x2,-0x1
04df 8219       |    |		Call	0x1,0x19
04e0 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
04e1 0000 0000  |    |		.BLANK	0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ee       |    |		.CONST	0x04ee								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0003       |    |		.CONST	0x0003								; Number of locals
04eb			INIT_04e8:
04eb 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xb = .DEBUG	0x04eb,0x0b2c,0x0001,0x0000,0x0032,0xc954,0x0000,0x00d3
													; Debug Table 0xb.0x0 = 0x4eb,0xffff
04ec 029f 0723  |   #|		Declare_Subprogram	INIT_0720,For_Call
04ee			BODY_04e8:
04ee e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xb.0x1 = 0x4ee,0x1
04ef e5fc       |    |		Load	0x2,-0x4
04f0 027f       |    |		Execute	Discrete,Equal
04f1 6803       |h   |		Jump_Zero	0x4f5
04f2 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xb.0x2 = 0x4f2,0x2
04f3 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04f4 7802       |x   |		Jump	0x4f7
04f5 6132       |a2  |		Indirect_Literal	Discrete,0x628,{0x00000000, 0x7fffffff}		; Debug Table 0xb.0x3 = 0x4f5,0x3
04f6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04f7 e011       |    |		Load	0x0,0x11							; Debug Table 0xb.0x4 = 0x4f7,0x4
04f8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04f9 0b06       |    |		Execute_Immediate	Case_Compare,0x6
04fa 701f       |p   |		Jump_Nonzero	0x51a
04fb e222       | "  |		Load	0x1,0x22							; Debug Table 0xb.0x5 = 0x4fb,0x6
04fc 0322       | "  |		Declare_Variable	Record
04fd e5ff       |    |		Load	0x2,-0x1
04fe 0217       |    |		Execute	Heap_Access,All_Reference
04ff 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0500 00d9       |    |		Load_Top	At_Offset_1
0501 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0502 e5fe       |    |		Load	0x2,-0x2
0503 00d9       |    |		Load_Top	At_Offset_1
0504 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0505 e5fd       |    |		Load	0x2,-0x3
0506 00d9       |    |		Load_Top	At_Offset_1
0507 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0508 00db       |    |		Load_Top	At_Offset_3
0509 00d9       |    |		Load_Top	At_Offset_1
050a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
050b e5f9       |    |		Load	0x2,-0x7
050c 00d9       |    |		Load_Top	At_Offset_1
050d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
050e e5fa       |    |		Load	0x2,-0x6
050f 00d9       |    |		Load_Top	At_Offset_1
0510 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0511 e223       | #  |		Load	0x1,0x23
0512 e5ff       |    |		Load	0x2,-0x1
0513 0217       |    |		Execute	Heap_Access,All_Reference
0514 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0515 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0516 e5ff       |    |		Load	0x2,-0x1
0517 0217       |    |		Execute	Heap_Access,All_Reference
0518 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0519 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8					; Debug Table 0xb.0x6 = 0x519,0x7
051a 8403       |    |		Call	0x2,0x3								; Debug Table 0xb.0x7 = 0x51a,0x5
051b 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
051c 0000 0000  |    |		.BLANK	0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc = .DEBUG	0x0523,0x0b3e,0x0002,0x0000,0x0032,0xc954,0x0000,0x00f0
													; Debug Table 0xc.0x0 = 0x523,0x1
0524 0217       |    |		Execute	Heap_Access,All_Reference
0525 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0526 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0527 0000       |    |		.XXX[0x1]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0530       | 0  |		.CONST	0x0530								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0002       |    |		.CONST	0x0002								; Number of locals
052b			INIT_0528:
052b e00d       |    |		Load	0x0,0xd								; Debug Table 0xd = .DEBUG	0x052b,0x0b42,0x0001,0x0000,0x0032,0xc954,0x0000,0x00f9
													; Debug Table 0xd.0x0 = 0x52b,0xffff
052c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
052d 02c7       |    |		Declare_Variable	Any
052e 00d8       |    |		Load_Top	At_Offset_0
052f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0530			BODY_0528:
0530 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x1 = 0x530,0x1
0531 0120       |    |		Execute	Any,Is_Value
0532 6803       |h   |		Jump_Zero	0x536
0533 e00d       |    |		Load	0x0,0xd
0534 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0535 7801       |x   |		Jump	0x537
0536 00d8       |    |		Load_Top	At_Offset_0
0537 4801       |H   |		Short_Literal	0x1
0538 4801       |H   |		Short_Literal	0x1
0539 e5ff       |    |		Load	0x2,-0x1
053a e00d       |    |		Load	0x0,0xd
053b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
053c c402       |    |		Store	0x2,0x2
053d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
053e 0000 0000  |    |		.XXX[0x2]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0548       | H  |		.CONST	0x0548								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0002       |    |		.CONST	0x0002								; Number of locals
0543			INIT_0540:
0543 e00d       |    |		Load	0x0,0xd								; Debug Table 0xe = .DEBUG	0x0543,0x0b48,0x0001,0x0000,0x0032,0xc954,0x0000,0x0103
													; Debug Table 0xe.0x0 = 0x543,0xffff
0544 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0545 02c7       |    |		Declare_Variable	Any
0546 00d8       |    |		Load_Top	At_Offset_0
0547 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0548			BODY_0540:
0548 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe.0x1 = 0x548,0x1
0549 0217       |    |		Execute	Heap_Access,All_Reference
054a 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
054b e012       |    |		Load	0x0,0x12
054c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
054d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x2 = 0x54d,0x2
054e 0120       |    |		Execute	Any,Is_Value
054f 6803       |h   |		Jump_Zero	0x553
0550 e00d       |    |		Load	0x0,0xd
0551 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0552 7801       |x   |		Jump	0x554
0553 00d8       |    |		Load_Top	At_Offset_0
0554 4801       |H   |		Short_Literal	0x1
0555 4801       |H   |		Short_Literal	0x1
0556 e5ff       |    |		Load	0x2,-0x1
0557 0217       |    |		Execute	Heap_Access,All_Reference
0558 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0559 e00d       |    |		Load	0x0,0xd
055a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
055b c402       |    |		Store	0x2,0x2
055c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x3 = 0x55c,0x3
055d e00d       |    |		Load	0x0,0xd
055e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
055f c402       |    |		Store	0x2,0x2
0560 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0561 0000 0000  |    |		.BLANK	0000[0x7]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 057a       | z  |		.CONST	0x057a								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0008       |    |		.CONST	0x0008								; Number of locals
056b			INIT_0568:
056b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf = .DEBUG	0x056b,0x0b52,0x0002,0x0000,0x0032,0xc954,0x0000,0x010b
													; Debug Table 0xf.0x0 = 0x56b,0xffff
056c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
056d 029f 074b  |   K|		Declare_Subprogram	INIT_0748,For_Call				; Debug Table 0xf.0x1 = 0x56d,0xfffe
056f e00d       |    |		Load	0x0,0xd								; Debug Table 0xf.0x2 = 0x56f,0xfffd
0570 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0571 00c6       |    |		Action	Check_Subprogram_Elaborated
0572 00e1       |    |		Load_Encached	Boolean_Cache
0573 4803       |H   |		Short_Literal	0x3
0574 4802       |H   |		Short_Literal	0x2
0575 0099       |    |		Action	Reference_Dynamic
0576 6619       |f   |		Indirect_Literal	Discrete,0x390,{0x00000000, 0x0032cc64}
0577 60ac       |`   |		Indirect_Literal	Discrete,0x624,{0x00000000, 0x00000b0c}
0578 4808       |H   |		Short_Literal	0x8
0579 0007       |    |		Action	Break_Optional
057a			BODY_0568:
057a 4801       |H   |		Short_Literal	0x1							; Debug Table 0xf.0x3 = 0x57a,0x1
057b e402       |    |		Load	0x2,0x2
057c e5ff       |    |		Load	0x2,-0x1
057d e404       |    |		Load	0x2,0x4
057e 4805       |H   |		Short_Literal	0x5
057f 4802       |H   |		Short_Literal	0x2
0580 0099       |    |		Action	Reference_Dynamic
0581 4806       |H   |		Short_Literal	0x6
0582 4802       |H   |		Short_Literal	0x2
0583 0099       |    |		Action	Reference_Dynamic
0584 e00d       |    |		Load	0x0,0xd
0585 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0586 e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0x4 = 0x586,0x2
0587 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 059a       |    |		.CONST	0x059a								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0008       |    |		.CONST	0x0008								; Number of locals
058b			INIT_0588:
058b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x10 = .DEBUG	0x058b,0x0b5e,0x2801,0x0002,0x0032,0xc954,0x0000,0x0116
													; Debug Table 0x10.0x0 = 0x58b,0xffff
058c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
058d 029f 0753  |   S|		Declare_Subprogram	INIT_0750,For_Call				; Debug Table 0x10.0x1 = 0x58d,0xfffe
058f e00d       |    |		Load	0x0,0xd								; Debug Table 0x10.0x2 = 0x58f,0xfffd
0590 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0591 00c6       |    |		Action	Check_Subprogram_Elaborated
0592 00e1       |    |		Load_Encached	Boolean_Cache
0593 4803       |H   |		Short_Literal	0x3
0594 4802       |H   |		Short_Literal	0x2
0595 0099       |    |		Action	Reference_Dynamic
0596 65f9       |e   |		Indirect_Literal	Discrete,0x390,{0x00000000, 0x0032cc64}
0597 6088       |`   |		Indirect_Literal	Discrete,0x620,{0x00000000, 0x00000b67}
0598 4808       |H   |		Short_Literal	0x8
0599 0007       |    |		Action	Break_Optional
059a			BODY_0588:
059a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0x3 = 0x59a,0x1
059b e402       |    |		Load	0x2,0x2
059c e5fd       |    |		Load	0x2,-0x3
059d 0217       |    |		Execute	Heap_Access,All_Reference
059e 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
059f e404       |    |		Load	0x2,0x4
05a0 4805       |H   |		Short_Literal	0x5
05a1 4802       |H   |		Short_Literal	0x2
05a2 0099       |    |		Action	Reference_Dynamic
05a3 4806       |H   |		Short_Literal	0x6
05a4 4802       |H   |		Short_Literal	0x2
05a5 0099       |    |		Action	Reference_Dynamic
05a6 e00d       |    |		Load	0x0,0xd
05a7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05a8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05a9 0000 0000  |    |		.BLANK	0000[0x7]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3       |    |		.CONST	0x05b3								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0001       |    |		.CONST	0x0001								; Number of locals
05b3			BODY_05b0:
05b3			INIT_05b0:
05b3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11 = .DEBUG	0x05b3,0x0b68,0x0002,0x0000,0x0032,0xc954,0x0000,0x0139
													; Debug Table 0x11.0x0 = 0x5b3,0x1
05b4 0217       |    |		Execute	Heap_Access,All_Reference
05b5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05b6 e002       |    |		Load	0x0,0x2
05b7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b9 0000 0000  |    |		.BLANK	0000[0x7]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12 = .DEBUG	0x05c3,0x0b6c,0x0002,0x0000,0x0032,0xc954,0x0000,0x0142
													; Debug Table 0x12.0x0 = 0x5c3,0x1
05c4 0217       |    |		Execute	Heap_Access,All_Reference
05c5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05c6 00d8       |    |		Load_Top	At_Offset_0
05c7 0120       |    |		Execute	Any,Is_Value
05c8 7002       |p   |		Jump_Nonzero	0x5cb
05c9 00d8       |    |		Load_Top	At_Offset_0
05ca 011e       |    |		Execute	Any,Convert
05cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05cc 0000 0000  |    |		.BLANK	0000[0x4]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3       |    |		.CONST	0x05d3								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0001       |    |		.CONST	0x0001								; Number of locals
05d3			BODY_05d0:
05d3			INIT_05d0:
05d3 4608       |F   |		Jump_Case	0x9							; Debug Table 0x13 = .DEBUG	0x05d3,0x0b70,0x0005,0x0000,0x0032,0xcc64,0x0000,0x00cb
05d4 7808       |x   |		Jump	0x5dd								; case 0x0
05d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05d6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
05d7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
05d8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
05d9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
05da 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
05db 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
05dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
05dd 00da       |    |		Load_Top	At_Offset_2
05de 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05df 0125       | %  |		Execute	Any,Set_Constraint
05e0 00da       |    |		Load_Top	At_Offset_2
05e1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05e2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05e3 00da       |    |		Load_Top	At_Offset_2
05e4 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05e5 0125       | %  |		Execute	Any,Set_Constraint
05e6 00da       |    |		Load_Top	At_Offset_2
05e7 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
05e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05e9 00da       |    |		Load_Top	At_Offset_2
05ea 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
05eb 0125       | %  |		Execute	Any,Set_Constraint
05ec 00da       |    |		Load_Top	At_Offset_2
05ed 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
05ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05ef 00da       |    |		Load_Top	At_Offset_2
05f0 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
05f1 0125       | %  |		Execute	Any,Set_Constraint
05f2 00da       |    |		Load_Top	At_Offset_2
05f3 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
05f4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f5 4800       |H   |		Short_Literal	0x0
05f6 00db       |    |		Load_Top	At_Offset_3
05f7 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
05f8 00da       |    |		Load_Top	At_Offset_2
05f9 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
05fa 0125       | %  |		Execute	Any,Set_Constraint
05fb 00da       |    |		Load_Top	At_Offset_2
05fc 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
05fd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05fe 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05ff 0000       |    |		.XXX[0x1]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603       |    |		.CONST	0x0603								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0001       |    |		.CONST	0x0001								; Number of locals
0603			BODY_0600:
0603			INIT_0600:
0603 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14 = .DEBUG	0x0603,0x0b72,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0164
													; Debug Table 0x14.0x0 = 0x603,0x1
0604 6815       |h   |		Jump_Zero	0x61a
0605 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x14.0x1 = 0x605,0x2
0606 0092 07d9  |    |		Action	Push_String_Extended,0x7d9					; "In "
0608 e5fe       |    |		Load	0x2,-0x2
0609 01cc       |    |		Execute	Vector,Catenate
060a 0092 07da  |    |		Action	Push_String_Extended,0x7da					; ", got a Directory Status of "
060c 01cc       |    |		Execute	Vector,Catenate
060d e5ff       |    |		Load	0x2,-0x1
060e e008       |    |		Load	0x0,0x8
060f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0610 025e       | ^  |		Execute	Discrete,Convert
0611 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0612 01cc       |    |		Execute	Vector,Catenate
0613 e002       |    |		Load	0x0,0x2
0614 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0615 e002       |    |		Load	0x0,0x2
0616 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0617 c5fd       |    |		Store	0x2,-0x3
0618 657b       |e{  |		Indirect_Literal	Discrete,0x394,{0x00000000, 0x32c95401}		; Debug Table 0x14.0x2 = 0x618,0x3
0619 0257       | W  |		Execute	Discrete,Raise
061a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x14.0x3 = 0x61a,0x4
061b e002       |    |		Load	0x0,0x2
061c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
061d c5fd       |    |		Store	0x2,-0x3
061e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
061f 0000       |    |		.XXX[0x1]
0620 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000b67}
0624 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000b0c}
0628 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
062c 0000 0000  |    |		.BLANK	0000[0x4]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x15 = .DEBUG	0x0633,0x0b7c,0x0001,0x0000,0x0032,0xcc64,0x0000,0x01ac
													; Debug Table 0x15.0x0 = 0x633,0x1
0634 6815       |h   |		Jump_Zero	0x64a
0635 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x15.0x1 = 0x635,0x2
0636 0092 07d9  |    |		Action	Push_String_Extended,0x7d9					; "In "
0638 e5fe       |    |		Load	0x2,-0x2
0639 01cc       |    |		Execute	Vector,Catenate
063a 0092 07db  |    |		Action	Push_String_Extended,0x7db					; ", got a Standard_Status of "
063c 01cc       |    |		Execute	Vector,Catenate
063d e5ff       |    |		Load	0x2,-0x1
063e e00a       |    |		Load	0x0,0xa
063f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0640 025e       | ^  |		Execute	Discrete,Convert
0641 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0642 01cc       |    |		Execute	Vector,Catenate
0643 e002       |    |		Load	0x0,0x2
0644 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0645 e002       |    |		Load	0x0,0x2
0646 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0647 c5fd       |    |		Store	0x2,-0x3
0648 6183       |a   |		Indirect_Literal	Discrete,0x7cc,{0x00000000, 0x32c95401}		; Debug Table 0x15.0x2 = 0x648,0x3
0649 0257       | W  |		Execute	Discrete,Raise
064a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x15.0x3 = 0x64a,0x4
064b e002       |    |		Load	0x0,0x2
064c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
064d c5fd       |    |		Store	0x2,-0x3
064e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
064f 0000       |    |		.XXX[0x1]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16 = .DEBUG	0x0653,0x0b86,0x0001,0x0000,0x0032,0xcc64,0x0000,0x01f4
													; Debug Table 0x16.0x0 = 0x653,0x1
0654 0217       |    |		Execute	Heap_Access,All_Reference
0655 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0656 700f       |p   |		Jump_Nonzero	0x666
0657 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0x1 = 0x657,0x2
0658 0219       |    |		Execute	Heap_Access,All_Read
0659 00d8       |    |		Load_Top	At_Offset_0
065a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
065b 0092 07dc  |    |		Action	Push_String_Extended,0x7dc					; "Image object was not Initialized to Allow_Image_Changes."
065d e002       |    |		Load	0x0,0x2
065e 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
065f e002       |    |		Load	0x0,0x2
0660 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0661 00d9       |    |		Load_Top	At_Offset_1
0662 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0663 00d1       |    |		Pop_Control	Pop_Count_1
0664 6167       |ag  |		Indirect_Literal	Discrete,0x7cc,{0x00000000, 0x32c95401}		; Debug Table 0x16.0x2 = 0x664,0x3
0665 0257       | W  |		Execute	Discrete,Raise
0666 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0667 0000       |    |		.XXX[0x1]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b       | k  |		.CONST	0x066b								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			BODY_0668:
066b			INIT_0668:
066b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x17 = .DEBUG	0x066b,0x0b8e,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0219
													; Debug Table 0x17.0x0 = 0x66b,0x1
066c 0000 0000  |    |		.BLANK	0000[0x4]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673       | s  |		.CONST	0x0673								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0001       |    |		.CONST	0x0001								; Number of locals
0673			BODY_0670:
0673			INIT_0670:
0673 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6					; Debug Table 0x18 = .DEBUG	0x0673,0x0b92,0x0001,0x0000,0x0032,0xcc64,0x0000,0x022c
													; Debug Table 0x18.0x0 = 0x673,0x1
0674 0000 0000  |    |		.BLANK	0000[0x4]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 0681       |    |		.CONST	0x0681								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0004       |    |		.CONST	0x0004								; Number of locals
067b			INIT_0678:
067b e008       |    |		Load	0x0,0x8								; Debug Table 0x19 = .DEBUG	0x067b,0x0b96,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0245
													; Debug Table 0x19.0x0 = 0x67b,0xffff
067c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
067d 029f 076b  |   k|		Declare_Subprogram	INIT_0768,For_Call
067f 029f 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Call
0681			BODY_0678:
0681 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x1 = 0x681,0x1
0682 0217       |    |		Execute	Heap_Access,All_Reference
0683 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0684 e5ff       |    |		Load	0x2,-0x1
0685 021f       |    |		Execute	Heap_Access,Equal
0686 7026       |p&  |		Jump_Nonzero	0x6ad
0687 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x2 = 0x687,0x2
0688 0217       |    |		Execute	Heap_Access,All_Reference
0689 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
068a 6818       |h   |		Jump_Zero	0x6a3
068b e008       |    |		Load	0x0,0x8								; Debug Table 0x19.0x3 = 0x68b,0x3
068c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
068d e5fe       |    |		Load	0x2,-0x2
068e 0217       |    |		Execute	Heap_Access,All_Reference
068f 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0690 e5fe       |    |		Load	0x2,-0x2
0691 0217       |    |		Execute	Heap_Access,All_Reference
0692 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0693 e008       |    |		Load	0x0,0x8
0694 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0695 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0696 005b       | [  |		Store_Top	Discrete,At_Offset_3
0697 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x4 = 0x697,0x4
0698 0219       |    |		Execute	Heap_Access,All_Read
0699 00d8       |    |		Load_Top	At_Offset_0
069a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
069b 0092 07dd  |    |		Action	Push_String_Extended,0x7dd					; "DONE, setting ada root"
069d e402       |    |		Load	0x2,0x2
069e 8227       | '  |		Call	0x1,0x27
069f 00d9       |    |		Load_Top	At_Offset_1
06a0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06a1 00d1       |    |		Pop_Control	Pop_Count_1
06a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06a3 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x5 = 0x6a3,0x5
06a4 0217       |    |		Execute	Heap_Access,All_Reference
06a5 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
06a6 00eb       |    |		Load_Encached	Diana_Cache
06a7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06a8 0fa8       |    |		Execute_Immediate	Equal,-0x58
06a9 6802       |h   |		Jump_Zero	0x6ac
06aa 8403       |    |		Call	0x2,0x3								; Debug Table 0x19.0x6 = 0x6aa,0x6
06ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06ac 8404       |    |		Call	0x2,0x4								; Debug Table 0x19.0x7 = 0x6ac,0x7
06ad 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06ae 0000 0000  |    |		.XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06c8       |    |		.CONST	0x06c8								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0003       |    |		.CONST	0x0003								; Number of locals
06b3			INIT_06b0:
06b3 e226       | &  |		Load	0x1,0x26							; Debug Table 0x1a = .DEBUG	0x06b3,0x0ba8,0x0004,0x0000,0x0032,0xcc64,0x0000,0x0501
													; Debug Table 0x1a.0x0 = 0x6b3,0xffff
06b4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
06b5 6112       |a   |		Indirect_Literal	Discrete,0x7c8,{0x00000000, 0x0032cc64}		; Debug Table 0x1a.0x1 = 0x6b5,0xfffe
06b6 610d       |a   |		Indirect_Literal	Discrete,0x7c4,{0x00000000, 0x000004cd}
06b7 e5fb       |    |		Load	0x2,-0x5
06b8 0217       |    |		Execute	Heap_Access,All_Reference
06b9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
06ba 00d8       |    |		Load_Top	At_Offset_0
06bb 0120       |    |		Execute	Any,Is_Value
06bc 7002       |p   |		Jump_Nonzero	0x6bf
06bd 00d8       |    |		Load_Top	At_Offset_0
06be 011e       |    |		Execute	Any,Convert
06bf 4800       |H   |		Short_Literal	0x0
06c0 00e1       |    |		Load_Encached	Boolean_Cache
06c1 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
06c2 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
06c3 e00f       |    |		Load	0x0,0xf
06c4 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
06c5 0387       |    |		Declare_Variable	Package
06c6 00d8       |    |		Load_Top	At_Offset_0
06c7 020f       |    |		Execute	Module,Activate
06c8			BODY_06b0:
06c8 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x1a.0x2 = 0x6c8,0x1
06c9 0219       |    |		Execute	Heap_Access,All_Read
06ca 00d8       |    |		Load_Top	At_Offset_0
06cb 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06cc 0120       |    |		Execute	Any,Is_Value
06cd 6803       |h   |		Jump_Zero	0x6d1
06ce e00f       |    |		Load	0x0,0xf
06cf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06d0 7802       |x   |		Jump	0x6d3
06d1 00d8       |    |		Load_Top	At_Offset_0
06d2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06d3 e5fb       |    |		Load	0x2,-0x5
06d4 0217       |    |		Execute	Heap_Access,All_Reference
06d5 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
06d6 e5fb       |    |		Load	0x2,-0x5
06d7 0217       |    |		Execute	Heap_Access,All_Reference
06d8 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
06d9 e602       |    |		Load	0x3,0x2
06da e603       |    |		Load	0x3,0x3
06db 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06dc 00d9       |    |		Load_Top	At_Offset_1
06dd 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06de 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06df 0000       |    |		.XXX[0x1]
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 0700       |    |		.CONST	0x0700								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0005       |    |		.CONST	0x0005								; Number of locals
06e3			INIT_06e0:
06e3 e226       | &  |		Load	0x1,0x26							; Debug Table 0x1b = .DEBUG	0x06e3,0x0bb0,0x0004,0x0000,0x0032,0xcc64,0x0000,0x059a
													; Debug Table 0x1b.0x0 = 0x6e3,0xffff
06e4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
06e5 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x1b.0x1 = 0x6e5,0xfffe
06e6 e00e       |    |		Load	0x0,0xe								; Debug Table 0x1b.0x2 = 0x6e6,0xfffd
06e7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06e8 0322       | "  |		Declare_Variable	Record
06e9 e00e       |    |		Load	0x0,0xe
06ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06eb 00d9       |    |		Load_Top	At_Offset_1
06ec 017d       | }  |		Execute	Record,Structure_Write
06ed 60da       |`   |		Indirect_Literal	Discrete,0x7c8,{0x00000000, 0x0032cc64}		; Debug Table 0x1b.0x3 = 0x6ed,0xfffc
06ee 60d1       |`   |		Indirect_Literal	Discrete,0x7c0,{0x00000000, 0x0000054e}
06ef e5ff       |    |		Load	0x2,-0x1
06f0 0217       |    |		Execute	Heap_Access,All_Reference
06f1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
06f2 00d8       |    |		Load_Top	At_Offset_0
06f3 0120       |    |		Execute	Any,Is_Value
06f4 7002       |p   |		Jump_Nonzero	0x6f7
06f5 00d8       |    |		Load_Top	At_Offset_0
06f6 011e       |    |		Execute	Any,Convert
06f7 4800       |H   |		Short_Literal	0x0
06f8 00e1       |    |		Load_Encached	Boolean_Cache
06f9 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
06fa 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
06fb e00f       |    |		Load	0x0,0xf
06fc 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
06fd 0387       |    |		Declare_Variable	Package
06fe 00d8       |    |		Load_Top	At_Offset_0
06ff 020f       |    |		Execute	Module,Activate
0700			BODY_06e0:
0700 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x1b.0x4 = 0x700,0x1
0701 48f9       |H   |		Short_Literal	0xf9
0702 4801       |H   |		Short_Literal	0x1
0703 e010       |    |		Load	0x0,0x10
0704 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0705 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0706 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1b.0x5 = 0x706,0x2
0707 0219       |    |		Execute	Heap_Access,All_Read
0708 00d8       |    |		Load_Top	At_Offset_0
0709 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
070a 00db       |    |		Load_Top	At_Offset_3
070b e603       |    |		Load	0x3,0x3
070c e5ff       |    |		Load	0x2,-0x1
070d 0217       |    |		Execute	Heap_Access,All_Reference
070e 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
070f e5ff       |    |		Load	0x2,-0x1
0710 0217       |    |		Execute	Heap_Access,All_Reference
0711 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0712 e602       |    |		Load	0x3,0x2
0713 e605       |    |		Load	0x3,0x5
0714 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0715 00d1       |    |		Pop_Control	Pop_Count_1
0716 00d9       |    |		Load_Top	At_Offset_1
0717 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0718 00d1       |    |		Pop_Control	Pop_Count_1
0719 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1b.0x6 = 0x719,0x3
071a e010       |    |		Load	0x0,0x10
071b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
071c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
071d 0000 0000  |    |		.XXX[0x3]
071f 0000       |    |
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 072a       | *  |		.CONST	0x072a								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0003       |    |		.CONST	0x0003								; Number of locals
0723			INIT_0720:
0723 e008       |    |		Load	0x0,0x8								; Debug Table 0x1c = .DEBUG	0x0723,0x0bc0,0x0004,0x0000,0x0032,0xcc64,0x0000,0x0a47
													; Debug Table 0x1c.0x0 = 0x723,0xffff
0724 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0725 e013       |    |		Load	0x0,0x13							; Debug Table 0x1c.0x1 = 0x725,0xfffe
0726 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0727 02c7       |    |		Declare_Variable	Any
0728 00d8       |    |		Load_Top	At_Offset_0
0729 1c00       |    |		Execute_Immediate	Run_Utility,0x0
072a			BODY_0720:
072a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1c.0x2 = 0x72a,0x1
072b 00d9       |    |		Load_Top	At_Offset_1
072c e5ff       |    |		Load	0x2,-0x1
072d 0217       |    |		Execute	Heap_Access,All_Reference
072e 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
072f e014       |    |		Load	0x0,0x14
0730 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0731 c603       |    |		Store	0x3,0x3
0732 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0733 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1c.0x3 = 0x733,0x2
0734 6802       |h   |		Jump_Zero	0x737
0735 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x1c.0x4 = 0x735,0x3
0736 0257       | W  |		Execute	Discrete,Raise
0737 0092 07de  |    |		Action	Push_String_Extended,0x7de					; " - "
													; Debug Table 0x1c.0x5 = 0x737,0x4
0739 e5fa       |    |		Load	0x2,-0x6
073a 0217       |    |		Execute	Heap_Access,All_Reference
073b 01cc       |    |		Execute	Vector,Catenate
073c 00d9       |    |		Load_Top	At_Offset_1
073d e5fe       |    |		Load	0x2,-0x2
073e e013       |    |		Load	0x0,0x13
073f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0740 e011       |    |		Load	0x0,0x11
0741 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0742 e011       |    |		Load	0x0,0x11
0743 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0744 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0745 0000 0000  |    |		.XXX[0x3]
0747 0000       |    |
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b       | K  |		.CONST	0x074b								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0001       |    |		.CONST	0x0001								; Number of locals
074b			BODY_0748:
074b			INIT_0748:
074b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1d = .DEBUG	0x074b,0x0bce,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0ae7
													; Debug Table 0x1d.0x0 = 0x74b,0x1
074c a402       |    |		Store_Unchecked	0x2,0x2
074d 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
074e 0000 0000  |    |		.XXX[0x2]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753       | S  |		.CONST	0x0753								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0001       |    |		.CONST	0x0001								; Number of locals
0753			BODY_0750:
0753			INIT_0750:
0753 e7fb       |    |		Load	0x3,-0x5							; Debug Table 0x1e = .DEBUG	0x0753,0x0bd2,0x0801,0x0002,0x0032,0xcc64,0x0000,0x0b31
													; Debug Table 0x1e.0x0 = 0x753,0x1
0754 e7fa       |    |		Load	0x3,-0x6
0755 e7fd       |    |		Load	0x3,-0x3
0756 e7fc       |    |		Load	0x3,-0x4
0757 0273       | s  |		Execute	Discrete,Plus
0758 0248       | H  |		Execute	Discrete,Check_In_Integer
0759 0aff       |    |		Execute_Immediate	Plus,-0x1
075a 00e3       |    |		Load_Encached	Natural_Cache
075b 025b       | [  |		Execute	Discrete,Check_In_Type
075c e7fe       |    |		Load	0x3,-0x2
075d e7fd       |    |		Load	0x3,-0x3
075e e7fe       |    |		Load	0x3,-0x2
075f 85fe       |    |		Call	0x2,-0x2
0760 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0761 0000 0000  |    |		.BLANK	0000[0x7]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 0780       |    |		.CONST	0x0780								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0004       |    |		.CONST	0x0004								; Number of locals
076b			INIT_0768:
076b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1f = .DEBUG	0x076b,0x0bd6,0x0004,0x0000,0x0032,0xcc64,0x0000,0x02ec
													; Debug Table 0x1f.0x0 = 0x76b,0xffff
076c e5fe       |    |		Load	0x2,-0x2
076d 0217       |    |		Execute	Heap_Access,All_Reference
076e 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
076f 00eb       |    |		Load_Encached	Diana_Cache
0770 18bb       |    |		Execute	Package,Field_Execute,Field_Number 0xbb
0771 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0772 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1f.0x1 = 0x772,0xfffe
0773 e5fe       |    |		Load	0x2,-0x2
0774 0217       |    |		Execute	Heap_Access,All_Reference
0775 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0776 00eb       |    |		Load_Encached	Diana_Cache
0777 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
0778 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0779 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1f.0x2 = 0x779,0xfffd
077a e5fe       |    |		Load	0x2,-0x2
077b 0217       |    |		Execute	Heap_Access,All_Reference
077c 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
077d 00eb       |    |		Load_Encached	Diana_Cache
077e 18db       |    |		Execute	Package,Field_Execute,Field_Number 0xdb
077f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0780			BODY_0768:
0780 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1f.0x3 = 0x780,0x1
0781 00db       |    |		Load_Top	At_Offset_3
0782 4974       |It  |		Short_Literal	0x174
0783 00eb       |    |		Load_Encached	Diana_Cache
0784 0098       |    |		Execute	Package,Field_Read_Dynamic
0785 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0786 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1f.0x4 = 0x786,0x2
0787 00da       |    |		Load_Top	At_Offset_2
0788 4974       |It  |		Short_Literal	0x174
0789 00eb       |    |		Load_Encached	Diana_Cache
078a 0098       |    |		Execute	Package,Field_Read_Dynamic
078b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
078c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1f.0x5 = 0x78c,0x3
078d 00d9       |    |		Load_Top	At_Offset_1
078e 4974       |It  |		Short_Literal	0x174
078f 00eb       |    |		Load_Encached	Diana_Cache
0790 0098       |    |		Execute	Package,Field_Read_Dynamic
0791 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0792 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1f.0x6 = 0x792,0x4
0793 e5ff       |    |		Load	0x2,-0x1
0794 491c       |I   |		Short_Literal	0x11c
0795 00eb       |    |		Load_Encached	Diana_Cache
0796 0096       |    |		Execute	Package,Entry
0797 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1f.0x7 = 0x797,0x5
0798 e5ff       |    |		Load	0x2,-0x1
0799 494a       |IJ  |		Short_Literal	0x14a
079a 00eb       |    |		Load_Encached	Diana_Cache
079b 0096       |    |		Execute	Package,Entry
079c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1f.0x8 = 0x79c,0x6
079d e5ff       |    |		Load	0x2,-0x1
079e 493c       |I<  |		Short_Literal	0x13c
079f 00eb       |    |		Load_Encached	Diana_Cache
07a0 0096       |    |		Execute	Package,Entry
07a1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1f.0x9 = 0x7a1,0x7
07a2 e5fe       |    |		Load	0x2,-0x2
07a3 0217       |    |		Execute	Heap_Access,All_Reference
07a4 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
07a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07a6 0000 0000  |    |		.XXX[0x2]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b2       |    |		.CONST	0x07b2								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0002       |    |		.CONST	0x0002								; Number of locals
07ab			INIT_07a8:
07ab 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x20 = .DEBUG	0x07ab,0x0bec,0x0004,0x0000,0x0032,0xcc64,0x0000,0x0313
													; Debug Table 0x20.0x0 = 0x7ab,0xffff
07ac e5fe       |    |		Load	0x2,-0x2
07ad 0217       |    |		Execute	Heap_Access,All_Reference
07ae 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
07af 00eb       |    |		Load_Encached	Diana_Cache
07b0 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
07b1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
07b2			BODY_07a8:
07b2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0x1 = 0x7b2,0x1
07b3 4974       |It  |		Short_Literal	0x174
07b4 00eb       |    |		Load_Encached	Diana_Cache
07b5 0098       |    |		Execute	Package,Field_Read_Dynamic
07b6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07b7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0x2 = 0x7b7,0x2
07b8 e5ff       |    |		Load	0x2,-0x1
07b9 00eb       |    |		Load_Encached	Diana_Cache
07ba 1891       |    |		Execute	Package,Field_Execute,Field_Number 0x91
07bb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x20.0x3 = 0x7bb,0x3
07bc e5fe       |    |		Load	0x2,-0x2
07bd 0217       |    |		Execute	Heap_Access,All_Reference
07be 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
07bf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000054e}
07c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000004cd}
07c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0032cc64}
07cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x32c95401}
07d0 ; --------------------------------------------------------------------------------------
07d0 ; STRING TABLE
07d0 ; --------------------------------------------------------------------------------------
07d0 0020       |    |		.STRTAB	0x0020->0x07e0							; "REGULAR"
07d1 0025       | %  |		.STRTAB	0x0025->0x07e3							; "PROMPT"
07d2 0029       | )  |		.STRTAB	0x0029->0x07e6							; "UNDERLINE"
07d3 0030       | 0  |		.STRTAB	0x0030->0x07eb							; "INITIALIZE, obtaining the Ada Unit"
07d4 0050       | P  |		.STRTAB	0x0050->0x07fc							; "INITIALIZE, opening the ada unit version"
07d5 0076       | v  |		.STRTAB	0x0076->0x0810							; "INITIALIZE, getting the ada image version"
07d6 009d       |    |		.STRTAB	0x009d->0x0824							; "INITIALIZE, opening the image object"
07d7 00bf       |    |		.STRTAB	0x00bf->0x0836							; "DONE, closing ada root"
07d8 00d3       |    |		.STRTAB	0x00d3->0x0841							; "DONE, closing image handle"
07d9 00eb       |    |		.STRTAB	0x00eb->0x084e							; "In "
07da 00ec       |    |		.STRTAB	0x00ec->0x0850							; ", got a Directory Status of "
07db 0106       |    |		.STRTAB	0x0106->0x085e							; ", got a Standard_Status of "
07dc 011f       |    |		.STRTAB	0x011f->0x086b							; "Image object was not Initialized to Allow_Image_Changes."
07dd 0155       | U  |		.STRTAB	0x0155->0x0887							; "DONE, setting ada root"
07de 0169       | i  |		.STRTAB	0x0169->0x0892							; " - "
07df 016a       | j  |		.STREND 0x016a->0x0894
07e0 5245 4755  |REGU|		.STRTAB_STRINGS
0894 0000 0000  |    |		.BLANK	0000[0x4]
0898 ; --------------------------------------------------------------------------------------
0898 ; Debug Table
0898 ; --------------------------------------------------------------------------------------
0898 0003 0021  |   !|		.CONST	0x0003,0x0021
089a 000b 09a2  |    |		.DEBUG	0x000b,0x09a2,0x8000,0x0000,0x0032,0xc954,0x0000,0x0011
08a2 0042 09d6  | B  |		.DEBUG	0x0042,0x09d6,0x8000,0x0000,0x0032,0xcc64,0x0000,0x002f
08aa 00e3 0a2a  |   *|		.DEBUG	0x00e3,0x0a2a,0x0005,0x0000,0x0032,0xc954,0x0000,0x001a
08b2 00fb 0a2c  |   ,|		.DEBUG	0x00fb,0x0a2c,0x0001,0x0000,0x0032,0xc954,0x0000,0x0021
08ba 022b 0a78  | + x|		.DEBUG	0x022b,0x0a78,0x0001,0x0000,0x0032,0xc954,0x0000,0x0048
08c2 02db 0aa6  |    |		.DEBUG	0x02db,0x0aa6,0x0001,0x0000,0x0032,0xc954,0x0000,0x0050
08ca 03ab 0ad4  |    |		.DEBUG	0x03ab,0x0ad4,0x0001,0x0000,0x0032,0xc954,0x0000,0x0058
08d2 03fb 0aec  |    |		.DEBUG	0x03fb,0x0aec,0x0001,0x0000,0x0032,0xc954,0x0000,0x006d
08da 0453 0b08  | S  |		.DEBUG	0x0453,0x0b08,0x0001,0x0000,0x0032,0xc954,0x0000,0x007d
08e2 04a3 0b20  |    |		.DEBUG	0x04a3,0x0b20,0x0001,0x0000,0x0032,0xc954,0x0000,0x0096
08ea 04d3 0b28  |   (|		.DEBUG	0x04d3,0x0b28,0x0001,0x0000,0x0032,0xc954,0x0000,0x00b8
08f2 04eb 0b2c  |   ,|		.DEBUG	0x04eb,0x0b2c,0x0001,0x0000,0x0032,0xc954,0x0000,0x00d3
08fa 0523 0b3e  | # >|		.DEBUG	0x0523,0x0b3e,0x0002,0x0000,0x0032,0xc954,0x0000,0x00f0
0902 052b 0b42  | + B|		.DEBUG	0x052b,0x0b42,0x0001,0x0000,0x0032,0xc954,0x0000,0x00f9
090a 0543 0b48  | C H|		.DEBUG	0x0543,0x0b48,0x0001,0x0000,0x0032,0xc954,0x0000,0x0103
0912 056b 0b52  | k R|		.DEBUG	0x056b,0x0b52,0x0002,0x0000,0x0032,0xc954,0x0000,0x010b
091a 058b 0b5e  |   ^|		.DEBUG	0x058b,0x0b5e,0x2801,0x0002,0x0032,0xc954,0x0000,0x0116
0922 05b3 0b68  |   h|		.DEBUG	0x05b3,0x0b68,0x0002,0x0000,0x0032,0xc954,0x0000,0x0139
092a 05c3 0b6c  |   l|		.DEBUG	0x05c3,0x0b6c,0x0002,0x0000,0x0032,0xc954,0x0000,0x0142
0932 05d3 0b70  |   p|		.DEBUG	0x05d3,0x0b70,0x0005,0x0000,0x0032,0xcc64,0x0000,0x00cb
093a 0603 0b72  |   r|		.DEBUG	0x0603,0x0b72,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0164
0942 0633 0b7c  | 3 ||		.DEBUG	0x0633,0x0b7c,0x0001,0x0000,0x0032,0xcc64,0x0000,0x01ac
094a 0653 0b86  | S  |		.DEBUG	0x0653,0x0b86,0x0001,0x0000,0x0032,0xcc64,0x0000,0x01f4
0952 066b 0b8e  | k  |		.DEBUG	0x066b,0x0b8e,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0219
095a 0673 0b92  | s  |		.DEBUG	0x0673,0x0b92,0x0001,0x0000,0x0032,0xcc64,0x0000,0x022c
0962 067b 0b96  | {  |		.DEBUG	0x067b,0x0b96,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0245
096a 06b3 0ba8  |    |		.DEBUG	0x06b3,0x0ba8,0x0004,0x0000,0x0032,0xcc64,0x0000,0x0501
0972 06e3 0bb0  |    |		.DEBUG	0x06e3,0x0bb0,0x0004,0x0000,0x0032,0xcc64,0x0000,0x059a
097a 0723 0bc0  | #  |		.DEBUG	0x0723,0x0bc0,0x0004,0x0000,0x0032,0xcc64,0x0000,0x0a47
0982 074b 0bce  | K  |		.DEBUG	0x074b,0x0bce,0x0001,0x0000,0x0032,0xcc64,0x0000,0x0ae7
098a 0753 0bd2  | S  |		.DEBUG	0x0753,0x0bd2,0x0801,0x0002,0x0032,0xcc64,0x0000,0x0b31
0992 076b 0bd6  | k  |		.DEBUG	0x076b,0x0bd6,0x0004,0x0000,0x0032,0xcc64,0x0000,0x02ec
099a 07ab 0bec  |    |		.DEBUG	0x07ab,0x0bec,0x0004,0x0000,0x0032,0xcc64,0x0000,0x0313
09a2 ; --------------------------------------------------------------------------------------
09a2 ; Debug3 Subtable 0x0
09a2 ; --------------------------------------------------------------------------------------
09a2 0019 0000  |    |		.DBG3TAB	0x0019,0x0000
09a4 000b ffff  |    |		.CONST	0x000b,0xffff
09a6 000c fffe  |    |		.CONST	0x000c,0xfffe
09a8 000d fffd  |    |		.CONST	0x000d,0xfffd
09aa 0012 fffc  |    |		.CONST	0x0012,0xfffc
09ac 0014 fffb  |    |		.CONST	0x0014,0xfffb
09ae 0016 fffa  |    |		.CONST	0x0016,0xfffa
09b0 0018 fff9  |    |		.CONST	0x0018,0xfff9
09b2 001a fff8  |    |		.CONST	0x001a,0xfff8
09b4 001c fff7  |    |		.CONST	0x001c,0xfff7
09b6 001e fff6  |    |		.CONST	0x001e,0xfff6
09b8 0020 fff5  |    |		.CONST	0x0020,0xfff5
09ba 0024 fff4  | $  |		.CONST	0x0024,0xfff4
09bc 0026 fff3  | &  |		.CONST	0x0026,0xfff3
09be 0028 fff2  | (  |		.CONST	0x0028,0xfff2
09c0 002a fff1  | *  |		.CONST	0x002a,0xfff1
09c2 002c fff0  | ,  |		.CONST	0x002c,0xfff0
09c4 002e ffef  | .  |		.CONST	0x002e,0xffef
09c6 0030 ffee  | 0  |		.CONST	0x0030,0xffee
09c8 0032 ffed  | 2  |		.CONST	0x0032,0xffed
09ca 0033 ffec  | 3  |		.CONST	0x0033,0xffec
09cc 0035 ffeb  | 5  |		.CONST	0x0035,0xffeb
09ce 0037 ffea  | 7  |		.CONST	0x0037,0xffea
09d0 0039 ffe9  | 9  |		.CONST	0x0039,0xffe9
09d2 003d ffe8  | =  |		.CONST	0x003d,0xffe8
09d4 003e ffe7  | >  |		.CONST	0x003e,0xffe7
09d6 ; --------------------------------------------------------------------------------------
09d6 ; Debug3 Subtable 0x1
09d6 ; --------------------------------------------------------------------------------------
09d6 0029 0000  | )  |		.DBG3TAB	0x0029,0x0000
09d8 0042 ffff  | B  |		.CONST	0x0042,0xffff
09da 0043 fffe  | C  |		.CONST	0x0043,0xfffe
09dc 0044 fffd  | D  |		.CONST	0x0044,0xfffd
09de 0045 fffc  | E  |		.CONST	0x0045,0xfffc
09e0 0046 fffb  | F  |		.CONST	0x0046,0xfffb
09e2 0047 fffa  | G  |		.CONST	0x0047,0xfffa
09e4 0048 fff9  | H  |		.CONST	0x0048,0xfff9
09e6 0049 fff8  | I  |		.CONST	0x0049,0xfff8
09e8 004a fff7  | J  |		.CONST	0x004a,0xfff7
09ea 004b fff6  | K  |		.CONST	0x004b,0xfff6
09ec 004c fff5  | L  |		.CONST	0x004c,0xfff5
09ee 004d fff4  | M  |		.CONST	0x004d,0xfff4
09f0 004f fff3  | O  |		.CONST	0x004f,0xfff3
09f2 0052 fff2  | R  |		.CONST	0x0052,0xfff2
09f4 0053 fff1  | S  |		.CONST	0x0053,0xfff1
09f6 005d fff0  | ]  |		.CONST	0x005d,0xfff0
09f8 0072 ffef  | r  |		.CONST	0x0072,0xffef
09fa 00b0 ffee  |    |		.CONST	0x00b0,0xffee
09fc 00b1 ffed  |    |		.CONST	0x00b1,0xffed
09fe 00b2 ffec  |    |		.CONST	0x00b2,0xffec
0a00 00b4 ffeb  |    |		.CONST	0x00b4,0xffeb
0a02 00b6 ffea  |    |		.CONST	0x00b6,0xffea
0a04 00b8 ffe9  |    |		.CONST	0x00b8,0xffe9
0a06 00ba ffe8  |    |		.CONST	0x00ba,0xffe8
0a08 00bc ffe7  |    |		.CONST	0x00bc,0xffe7
0a0a 00be ffe6  |    |		.CONST	0x00be,0xffe6
0a0c 00c0 ffe5  |    |		.CONST	0x00c0,0xffe5
0a0e 00c2 ffe4  |    |		.CONST	0x00c2,0xffe4
0a10 00c4 ffe3  |    |		.CONST	0x00c4,0xffe3
0a12 00c6 ffe2  |    |		.CONST	0x00c6,0xffe2
0a14 00c8 ffe1  |    |		.CONST	0x00c8,0xffe1
0a16 00ca ffe0  |    |		.CONST	0x00ca,0xffe0
0a18 00cc ffdf  |    |		.CONST	0x00cc,0xffdf
0a1a 00ce ffde  |    |		.CONST	0x00ce,0xffde
0a1c 00d0 ffdd  |    |		.CONST	0x00d0,0xffdd
0a1e 00d2 ffdc  |    |		.CONST	0x00d2,0xffdc
0a20 00d4 ffdb  |    |		.CONST	0x00d4,0xffdb
0a22 00d6 ffda  |    |		.CONST	0x00d6,0xffda
0a24 00d8 ffd9  |    |		.CONST	0x00d8,0xffd9
0a26 00da ffd8  |    |		.CONST	0x00da,0xffd8
0a28 00dc ffd7  |    |		.CONST	0x00dc,0xffd7
0a2a ; --------------------------------------------------------------------------------------
0a2a ; Debug3 Subtable 0x2
0a2a ; --------------------------------------------------------------------------------------
0a2a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0a2c ; --------------------------------------------------------------------------------------
0a2c ; Debug3 Subtable 0x3
0a2c ; --------------------------------------------------------------------------------------
0a2c 0007 001e  |    |		.DBG3TAB	0x0007,0x001e
0a2e 00fb ffff  |    |		.CONST	0x00fb,0xffff
0a30 0101 fffe  |    |		.CONST	0x0101,0xfffe
0a32 0106 fffd  |    |		.CONST	0x0106,0xfffd
0a34 010b fffc  |    |		.CONST	0x010b,0xfffc
0a36 0111 fffb  |    |		.CONST	0x0111,0xfffb
0a38 0116 fffa  |    |		.CONST	0x0116,0xfffa
0a3a 0118 fff9  |    |		.CONST	0x0118,0xfff9
0a3c 011c 0001  |    |		.CONST	0x011c,0x0001
0a3e 0123 0002  | #  |		.CONST	0x0123,0x0002
0a40 0124 0003  | $  |		.CONST	0x0124,0x0003
0a42 0128 0004  | (  |		.CONST	0x0128,0x0004
0a44 012c 0005  | ,  |		.CONST	0x012c,0x0005
0a46 0131 0006  | 1  |		.CONST	0x0131,0x0006
0a48 0138 0007  | 8  |		.CONST	0x0138,0x0007
0a4a 013d 0008  | =  |		.CONST	0x013d,0x0008
0a4c 0141 0009  | A  |		.CONST	0x0141,0x0009
0a4e 0145 000a  | E  |		.CONST	0x0145,0x000a
0a50 0155 000b  | U  |		.CONST	0x0155,0x000b
0a52 015b 000c  | [  |		.CONST	0x015b,0x000c
0a54 0164 000d  | d  |		.CONST	0x0164,0x000d
0a56 016b 000e  | k  |		.CONST	0x016b,0x000e
0a58 0172 000f  | r  |		.CONST	0x0172,0x000f
0a5a 0177 0010  | w  |		.CONST	0x0177,0x0010
0a5c 0197 0011  |    |		.CONST	0x0197,0x0011
0a5e 019d 0012  |    |		.CONST	0x019d,0x0012
0a60 01a1 0013  |    |		.CONST	0x01a1,0x0013
0a62 01a5 0014  |    |		.CONST	0x01a5,0x0014
0a64 01b3 0015  |    |		.CONST	0x01b3,0x0015
0a66 01b9 0016  |    |		.CONST	0x01b9,0x0016
0a68 01d3 0017  |    |		.CONST	0x01d3,0x0017
0a6a 01da 0018  |    |		.CONST	0x01da,0x0018
0a6c 01e8 0019  |    |		.CONST	0x01e8,0x0019
0a6e 01ee 001a  |    |		.CONST	0x01ee,0x001a
0a70 0208 001b  |    |		.CONST	0x0208,0x001b
0a72 020e 001c  |    |		.CONST	0x020e,0x001c
0a74 021c 001d  |    |		.CONST	0x021c,0x001d
0a76 0221 001e  | !  |		.CONST	0x0221,0x001e
0a78 ; --------------------------------------------------------------------------------------
0a78 ; Debug3 Subtable 0x4
0a78 ; --------------------------------------------------------------------------------------
0a78 0005 0011  |    |		.DBG3TAB	0x0005,0x0011
0a7a 022b ffff  | +  |		.CONST	0x022b,0xffff
0a7c 0230 fffe  | 0  |		.CONST	0x0230,0xfffe
0a7e 0232 fffd  | 2  |		.CONST	0x0232,0xfffd
0a80 0234 fffc  | 4  |		.CONST	0x0234,0xfffc
0a82 0236 fffb  | 6  |		.CONST	0x0236,0xfffb
0a84 023d 0001  | =  |		.CONST	0x023d,0x0001
0a86 023e 0002  | >  |		.CONST	0x023e,0x0002
0a88 0242 0003  | B  |		.CONST	0x0242,0x0003
0a8a 0246 0004  | F  |		.CONST	0x0246,0x0004
0a8c 0255 0005  | U  |		.CONST	0x0255,0x0005
0a8e 025b 0007  | [  |		.CONST	0x025b,0x0007
0a90 025f 0008  | _  |		.CONST	0x025f,0x0008
0a92 0282 0009  |    |		.CONST	0x0282,0x0009
0a94 0287 0006  |    |		.CONST	0x0287,0x0006
0a96 028a 000a  |    |		.CONST	0x028a,0x000a
0a98 028e 000b  |    |		.CONST	0x028e,0x000b
0a9a 0292 000c  |    |		.CONST	0x0292,0x000c
0a9c 02a0 000d  |    |		.CONST	0x02a0,0x000d
0a9e 02ab 000e  |    |		.CONST	0x02ab,0x000e
0aa0 02b8 000f  |    |		.CONST	0x02b8,0x000f
0aa2 02c3 0010  |    |		.CONST	0x02c3,0x0010
0aa4 02c7 0011  |    |		.CONST	0x02c7,0x0011
0aa6 ; --------------------------------------------------------------------------------------
0aa6 ; Debug3 Subtable 0x5
0aa6 ; --------------------------------------------------------------------------------------
0aa6 0009 000d  |    |		.DBG3TAB	0x0009,0x000d
0aa8 02db ffff  |    |		.CONST	0x02db,0xffff
0aaa 02e0 fffe  |    |		.CONST	0x02e0,0xfffe
0aac 02e2 fffd  |    |		.CONST	0x02e2,0xfffd
0aae 02e4 fffc  |    |		.CONST	0x02e4,0xfffc
0ab0 02e6 fffb  |    |		.CONST	0x02e6,0xfffb
0ab2 02eb fffa  |    |		.CONST	0x02eb,0xfffa
0ab4 02ed fff9  |    |		.CONST	0x02ed,0xfff9
0ab6 02ee fff8  |    |		.CONST	0x02ee,0xfff8
0ab8 02f5 fff7  |    |		.CONST	0x02f5,0xfff7
0aba 0308 0001  |    |		.CONST	0x0308,0x0001
0abc 030e 0002  |    |		.CONST	0x030e,0x0002
0abe 0321 0003  | !  |		.CONST	0x0321,0x0003
0ac0 0325 0004  | %  |		.CONST	0x0325,0x0004
0ac2 0329 0005  | )  |		.CONST	0x0329,0x0005
0ac4 0338 0006  | 8  |		.CONST	0x0338,0x0006
0ac6 033e 0008  | >  |		.CONST	0x033e,0x0008
0ac8 0342 0009  | B  |		.CONST	0x0342,0x0009
0aca 0365 000a  | e  |		.CONST	0x0365,0x000a
0acc 036a 0007  | j  |		.CONST	0x036a,0x0007
0ace 036d 000b  | m  |		.CONST	0x036d,0x000b
0ad0 0371 000c  | q  |		.CONST	0x0371,0x000c
0ad2 0388 000d  |    |		.CONST	0x0388,0x000d
0ad4 ; --------------------------------------------------------------------------------------
0ad4 ; Debug3 Subtable 0x6
0ad4 ; --------------------------------------------------------------------------------------
0ad4 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
0ad6 03ab ffff  |    |		.CONST	0x03ab,0xffff
0ad8 03ad 0001  |    |		.CONST	0x03ad,0x0001
0ada 03af 0002  |    |		.CONST	0x03af,0x0002
0adc 03bc 0003  |    |		.CONST	0x03bc,0x0003
0ade 03cd 0004  |    |		.CONST	0x03cd,0x0004
0ae0 03d1 0005  |    |		.CONST	0x03d1,0x0005
0ae2 03d7 0007  |    |		.CONST	0x03d7,0x0007
0ae4 03dd 0008  |    |		.CONST	0x03dd,0x0008
0ae6 03e4 0009  |    |		.CONST	0x03e4,0x0009
0ae8 03e9 0006  |    |		.CONST	0x03e9,0x0006
0aea 03ec 000a  |    |		.CONST	0x03ec,0x000a
0aec ; --------------------------------------------------------------------------------------
0aec ; Debug3 Subtable 0x7
0aec ; --------------------------------------------------------------------------------------
0aec 0001 000c  |    |		.DBG3TAB	0x0001,0x000c
0aee 03fb ffff  |    |		.CONST	0x03fb,0xffff
0af0 03fd 0001  |    |		.CONST	0x03fd,0x0001
0af2 03ff 0002  |    |		.CONST	0x03ff,0x0002
0af4 0409 0003  |    |		.CONST	0x0409,0x0003
0af6 041a 0004  |    |		.CONST	0x041a,0x0004
0af8 041e 0005  |    |		.CONST	0x041e,0x0005
0afa 0424 0007  | $  |		.CONST	0x0424,0x0007
0afc 042e 0008  | .  |		.CONST	0x042e,0x0008
0afe 0433 0009  | 3  |		.CONST	0x0433,0x0009
0b00 0439 000a  | 9  |		.CONST	0x0439,0x000a
0b02 0441 000b  | A  |		.CONST	0x0441,0x000b
0b04 0446 0006  | F  |		.CONST	0x0446,0x0006
0b06 0449 000c  | I  |		.CONST	0x0449,0x000c
0b08 ; --------------------------------------------------------------------------------------
0b08 ; Debug3 Subtable 0x8
0b08 ; --------------------------------------------------------------------------------------
0b08 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
0b0a 0453 ffff  | S  |		.CONST	0x0453,0xffff
0b0c 0455 0001  | U  |		.CONST	0x0455,0x0001
0b0e 0457 0002  | W  |		.CONST	0x0457,0x0002
0b10 045f 0003  | _  |		.CONST	0x045f,0x0003
0b12 046a 0004  | j  |		.CONST	0x046a,0x0004
0b14 047c 0005  | |  |		.CONST	0x047c,0x0005
0b16 0480 0006  |    |		.CONST	0x0480,0x0006
0b18 0486 0008  |    |		.CONST	0x0486,0x0008
0b1a 0492 0009  |    |		.CONST	0x0492,0x0009
0b1c 0496 000a  |    |		.CONST	0x0496,0x000a
0b1e 049b 0007  |    |		.CONST	0x049b,0x0007
0b20 ; --------------------------------------------------------------------------------------
0b20 ; Debug3 Subtable 0x9
0b20 ; --------------------------------------------------------------------------------------
0b20 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0b22 04a3 0001  |    |		.CONST	0x04a3,0x0001
0b24 04a5 0002  |    |		.CONST	0x04a5,0x0002
0b26 04b6 0003  |    |		.CONST	0x04b6,0x0003
0b28 ; --------------------------------------------------------------------------------------
0b28 ; Debug3 Subtable 0xa
0b28 ; --------------------------------------------------------------------------------------
0b28 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b2a 04d3 0001  |    |		.CONST	0x04d3,0x0001
0b2c ; --------------------------------------------------------------------------------------
0b2c ; Debug3 Subtable 0xb
0b2c ; --------------------------------------------------------------------------------------
0b2c 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
0b2e 04eb ffff  |    |		.CONST	0x04eb,0xffff
0b30 04ee 0001  |    |		.CONST	0x04ee,0x0001
0b32 04f2 0002  |    |		.CONST	0x04f2,0x0002
0b34 04f5 0003  |    |		.CONST	0x04f5,0x0003
0b36 04f7 0004  |    |		.CONST	0x04f7,0x0004
0b38 04fb 0006  |    |		.CONST	0x04fb,0x0006
0b3a 0519 0007  |    |		.CONST	0x0519,0x0007
0b3c 051a 0005  |    |		.CONST	0x051a,0x0005
0b3e ; --------------------------------------------------------------------------------------
0b3e ; Debug3 Subtable 0xc
0b3e ; --------------------------------------------------------------------------------------
0b3e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b40 0523 0001  | #  |		.CONST	0x0523,0x0001
0b42 ; --------------------------------------------------------------------------------------
0b42 ; Debug3 Subtable 0xd
0b42 ; --------------------------------------------------------------------------------------
0b42 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0b44 052b ffff  | +  |		.CONST	0x052b,0xffff
0b46 0530 0001  | 0  |		.CONST	0x0530,0x0001
0b48 ; --------------------------------------------------------------------------------------
0b48 ; Debug3 Subtable 0xe
0b48 ; --------------------------------------------------------------------------------------
0b48 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0b4a 0543 ffff  | C  |		.CONST	0x0543,0xffff
0b4c 0548 0001  | H  |		.CONST	0x0548,0x0001
0b4e 054d 0002  | M  |		.CONST	0x054d,0x0002
0b50 055c 0003  | \  |		.CONST	0x055c,0x0003
0b52 ; --------------------------------------------------------------------------------------
0b52 ; Debug3 Subtable 0xf
0b52 ; --------------------------------------------------------------------------------------
0b52 0003 0002  |    |		.DBG3TAB	0x0003,0x0002
0b54 056b ffff  | k  |		.CONST	0x056b,0xffff
0b56 056d fffe  | m  |		.CONST	0x056d,0xfffe
0b58 056f fffd  | o  |		.CONST	0x056f,0xfffd
0b5a 057a 0001  | z  |		.CONST	0x057a,0x0001
0b5c 0586 0002  |    |		.CONST	0x0586,0x0002
0b5e ; --------------------------------------------------------------------------------------
0b5e ; Debug3 Subtable 0x10
0b5e ; --------------------------------------------------------------------------------------
0b5e 0003 0001  |    |		.DBG3TAB	0x0003,0x0001
0b60 058b ffff  |    |		.CONST	0x058b,0xffff
0b62 058d fffe  |    |		.CONST	0x058d,0xfffe
0b64 058f fffd  |    |		.CONST	0x058f,0xfffd
0b66 059a 0001  |    |		.CONST	0x059a,0x0001
0b68 ; --------------------------------------------------------------------------------------
0b68 ; Debug3 Subtable 0x11
0b68 ; --------------------------------------------------------------------------------------
0b68 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b6a 05b3 0001  |    |		.CONST	0x05b3,0x0001
0b6c ; --------------------------------------------------------------------------------------
0b6c ; Debug3 Subtable 0x12
0b6c ; --------------------------------------------------------------------------------------
0b6c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b6e 05c3 0001  |    |		.CONST	0x05c3,0x0001
0b70 ; --------------------------------------------------------------------------------------
0b70 ; Debug3 Subtable 0x13
0b70 ; --------------------------------------------------------------------------------------
0b70 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0b72 ; --------------------------------------------------------------------------------------
0b72 ; Debug3 Subtable 0x14
0b72 ; --------------------------------------------------------------------------------------
0b72 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0b74 0603 0001  |    |		.CONST	0x0603,0x0001
0b76 0605 0002  |    |		.CONST	0x0605,0x0002
0b78 0618 0003  |    |		.CONST	0x0618,0x0003
0b7a 061a 0004  |    |		.CONST	0x061a,0x0004
0b7c ; --------------------------------------------------------------------------------------
0b7c ; Debug3 Subtable 0x15
0b7c ; --------------------------------------------------------------------------------------
0b7c 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0b7e 0633 0001  | 3  |		.CONST	0x0633,0x0001
0b80 0635 0002  | 5  |		.CONST	0x0635,0x0002
0b82 0648 0003  | H  |		.CONST	0x0648,0x0003
0b84 064a 0004  | J  |		.CONST	0x064a,0x0004
0b86 ; --------------------------------------------------------------------------------------
0b86 ; Debug3 Subtable 0x16
0b86 ; --------------------------------------------------------------------------------------
0b86 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0b88 0653 0001  | S  |		.CONST	0x0653,0x0001
0b8a 0657 0002  | W  |		.CONST	0x0657,0x0002
0b8c 0664 0003  | d  |		.CONST	0x0664,0x0003
0b8e ; --------------------------------------------------------------------------------------
0b8e ; Debug3 Subtable 0x17
0b8e ; --------------------------------------------------------------------------------------
0b8e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b90 066b 0001  | k  |		.CONST	0x066b,0x0001
0b92 ; --------------------------------------------------------------------------------------
0b92 ; Debug3 Subtable 0x18
0b92 ; --------------------------------------------------------------------------------------
0b92 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b94 0673 0001  | s  |		.CONST	0x0673,0x0001
0b96 ; --------------------------------------------------------------------------------------
0b96 ; Debug3 Subtable 0x19
0b96 ; --------------------------------------------------------------------------------------
0b96 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
0b98 067b ffff  | {  |		.CONST	0x067b,0xffff
0b9a 0681 0001  |    |		.CONST	0x0681,0x0001
0b9c 0687 0002  |    |		.CONST	0x0687,0x0002
0b9e 068b 0003  |    |		.CONST	0x068b,0x0003
0ba0 0697 0004  |    |		.CONST	0x0697,0x0004
0ba2 06a3 0005  |    |		.CONST	0x06a3,0x0005
0ba4 06aa 0006  |    |		.CONST	0x06aa,0x0006
0ba6 06ac 0007  |    |		.CONST	0x06ac,0x0007
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; Debug3 Subtable 0x1a
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0baa 06b3 ffff  |    |		.CONST	0x06b3,0xffff
0bac 06b5 fffe  |    |		.CONST	0x06b5,0xfffe
0bae 06c8 0001  |    |		.CONST	0x06c8,0x0001
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; Debug3 Subtable 0x1b
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0004 0003  |    |		.DBG3TAB	0x0004,0x0003
0bb2 06e3 ffff  |    |		.CONST	0x06e3,0xffff
0bb4 06e5 fffe  |    |		.CONST	0x06e5,0xfffe
0bb6 06e6 fffd  |    |		.CONST	0x06e6,0xfffd
0bb8 06ed fffc  |    |		.CONST	0x06ed,0xfffc
0bba 0700 0001  |    |		.CONST	0x0700,0x0001
0bbc 0706 0002  |    |		.CONST	0x0706,0x0002
0bbe 0719 0003  |    |		.CONST	0x0719,0x0003
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; Debug3 Subtable 0x1c
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
0bc2 0723 ffff  | #  |		.CONST	0x0723,0xffff
0bc4 0725 fffe  | %  |		.CONST	0x0725,0xfffe
0bc6 072a 0001  | *  |		.CONST	0x072a,0x0001
0bc8 0733 0002  | 3  |		.CONST	0x0733,0x0002
0bca 0735 0003  | 5  |		.CONST	0x0735,0x0003
0bcc 0737 0004  | 7  |		.CONST	0x0737,0x0004
0bce ; --------------------------------------------------------------------------------------
0bce ; Debug3 Subtable 0x1d
0bce ; --------------------------------------------------------------------------------------
0bce 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0bd0 074b 0001  | K  |		.CONST	0x074b,0x0001
0bd2 ; --------------------------------------------------------------------------------------
0bd2 ; Debug3 Subtable 0x1e
0bd2 ; --------------------------------------------------------------------------------------
0bd2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0bd4 0753 0001  | S  |		.CONST	0x0753,0x0001
0bd6 ; --------------------------------------------------------------------------------------
0bd6 ; Debug3 Subtable 0x1f
0bd6 ; --------------------------------------------------------------------------------------
0bd6 0003 0007  |    |		.DBG3TAB	0x0003,0x0007
0bd8 076b ffff  | k  |		.CONST	0x076b,0xffff
0bda 0772 fffe  | r  |		.CONST	0x0772,0xfffe
0bdc 0779 fffd  | y  |		.CONST	0x0779,0xfffd
0bde 0780 0001  |    |		.CONST	0x0780,0x0001
0be0 0786 0002  |    |		.CONST	0x0786,0x0002
0be2 078c 0003  |    |		.CONST	0x078c,0x0003
0be4 0792 0004  |    |		.CONST	0x0792,0x0004
0be6 0797 0005  |    |		.CONST	0x0797,0x0005
0be8 079c 0006  |    |		.CONST	0x079c,0x0006
0bea 07a1 0007  |    |		.CONST	0x07a1,0x0007
0bec ; --------------------------------------------------------------------------------------
0bec ; Debug3 Subtable 0x20
0bec ; --------------------------------------------------------------------------------------
0bec 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0bee 07ab ffff  |    |		.CONST	0x07ab,0xffff
0bf0 07b2 0001  |    |		.CONST	0x07b2,0x0001
0bf2 07b7 0002  |    |		.CONST	0x07b7,0x0002
0bf4 07bb 0003  |    |		.CONST	0x07bb,0x0003
0bf6 0000 0000  |    |		.BLANK	0000[0xa]