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

⟦7a49b904b⟧

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

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 08c8       |    |		.CONST	0x08c8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0006       |    |		.CONST	0x0006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 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,0x09d2,0x8000,0x0000,0x0037,0xdd74,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,0x0a06,0x8000,0x0000,0x0037,0xe074,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 064b  |   K|		Declare_Subprogram	INIT_0648,For_Outer_Call			; Debug Table 0x1.0x14 = 0xb4,0xffeb
00b6 029d 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call			; Debug Table 0x1.0x15 = 0xb6,0xffea
00b8 029d 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call			; Debug Table 0x1.0x16 = 0xb8,0xffe9
00ba 029d 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call			; Debug Table 0x1.0x17 = 0xba,0xffe8
00bc 029d 0693  |    |		Declare_Subprogram	INIT_0690,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,0x0a5a,0x0005,0x0000,0x0037,0xdd74,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 07e8  |    |		Action	Push_String_Extended_Indexed,0x7e8				; "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,0x0a5c,0x0001,0x0000,0x0037,0xdd74,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 06cb  |    |		Declare_Subprogram	INIT_06c8,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 07eb  |    |		Action	Push_String_Extended,0x7eb					; "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 07ec  |    |		Action	Push_String_Extended,0x7ec					; "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 07ed  |    |		Action	Push_String_Extended,0x7ed					; "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 07ee  |    |		Action	Push_String_Extended,0x7ee					; "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 07ed  |    |		Action	Push_String_Extended,0x7ed					; "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 07ee  |    |		Action	Push_String_Extended,0x7ee					; "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, 0x37dd7401}
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,0x0aa8,0x0001,0x0000,0x0037,0xdd74,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 06fb  |    |		Declare_Subprogram	INIT_06f8,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 07ef  |    |		Action	Push_String_Extended,0x7ef					; "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 07f0  |    |		Action	Push_String_Extended,0x7f0					; "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,0x0ad6,0x0001,0x0000,0x0037,0xdd74,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, 0x0037e074}		; Debug Table 0x5.0x8 = 0x2f5,0xfff7
02f6 6095       |`   |		Indirect_Literal	Discrete,0x38c,{0x00000000, 0x000006be}
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, 0x000006be}
0390 0000 0000  |    |		.LITERAL	{0x00000000, 0x0037e074}
0394 0000 0000  |    |		.LITERAL	{0x00000000, 0x37dd7401}
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,0x0b04,0x0001,0x0000,0x0037,0xdd74,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,0x0b1c,0x0001,0x0000,0x0037,0xdd74,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,0x0b38,0x0001,0x0000,0x0037,0xdd74,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 61ec       |a   |		Indirect_Literal	Discrete,0x644,{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,0x0b50,0x0001,0x0000,0x0037,0xdd74,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,0x0b58,0x0001,0x0000,0x0037,0xdd74,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,0x0b5c,0x0001,0x0000,0x0037,0xdd74,0x0000,0x00d3
													; Debug Table 0xb.0x0 = 0x4eb,0xffff
04ec 029f 073b  |   ;|		Declare_Subprogram	INIT_0738,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 614e       |aN  |		Indirect_Literal	Discrete,0x644,{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,0x0b6e,0x0002,0x0000,0x0037,0xdd74,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,0x0b72,0x0001,0x0000,0x0037,0xdd74,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,0x0b78,0x0001,0x0000,0x0037,0xdd74,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,0x0b82,0x0002,0x0000,0x0037,0xdd74,0x0000,0x010b
													; Debug Table 0xf.0x0 = 0x56b,0xffff
056c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
056d 029f 0763  |   c|		Declare_Subprogram	INIT_0760,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, 0x0037e074}
0577 60c8       |`   |		Indirect_Literal	Discrete,0x640,{0x00000000, 0x00000b38}
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,0x0b8e,0x2801,0x0002,0x0037,0xdd74,0x0000,0x0116
													; Debug Table 0x10.0x0 = 0x58b,0xffff
058c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
058d 029f 076b  |   k|		Declare_Subprogram	INIT_0768,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, 0x0037e074}
0597 60a4       |`   |		Indirect_Literal	Discrete,0x63c,{0x00000000, 0x00000b93}
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,0x0b98,0x0002,0x0000,0x0037,0xdd74,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,0x0b9c,0x0002,0x0000,0x0037,0xdd74,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,0x0ba0,0x0005,0x0000,0x0037,0xe074,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,0x0ba2,0x0001,0x0000,0x0037,0xe074,0x0000,0x0164
													; Debug Table 0x14.0x0 = 0x603,0x1
0604 682f       |h/  |		Jump_Zero	0x634
0605 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14.0x1 = 0x605,0x2
0606 0f0b       |    |		Execute_Immediate	Equal,0xb
0607 6817       |h   |		Jump_Zero	0x61f
0608 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x14.0x2 = 0x608,0x3
0609 0092 07f1  |    |		Action	Push_String_Extended,0x7f1					; "In "
060b e5fe       |    |		Load	0x2,-0x2
060c 01cc       |    |		Execute	Vector,Catenate
060d 0092 07f2  |    |		Action	Push_String_Extended,0x7f2					; ", got a Directory Status of "
060f 01cc       |    |		Execute	Vector,Catenate
0610 e5ff       |    |		Load	0x2,-0x1
0611 e008       |    |		Load	0x0,0x8
0612 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0613 025e       | ^  |		Execute	Discrete,Convert
0614 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0615 01cc       |    |		Execute	Vector,Catenate
0616 0092 07f3  |    |		Action	Push_String_Extended,0x7f3					; ".  Verify that the Ada unit is Checked_Out (CMVC)."
0618 01cc       |    |		Execute	Vector,Catenate
0619 e002       |    |		Load	0x0,0x2
061a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
061b e002       |    |		Load	0x0,0x2
061c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
061d c5fd       |    |		Store	0x2,-0x3
061e 7813       |x   |		Jump	0x632
061f e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x14.0x3 = 0x61f,0x4
0620 0092 07f1  |    |		Action	Push_String_Extended,0x7f1					; "In "
0622 e5fe       |    |		Load	0x2,-0x2
0623 01cc       |    |		Execute	Vector,Catenate
0624 0092 07f2  |    |		Action	Push_String_Extended,0x7f2					; ", got a Directory Status of "
0626 01cc       |    |		Execute	Vector,Catenate
0627 e5ff       |    |		Load	0x2,-0x1
0628 e008       |    |		Load	0x0,0x8
0629 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
062a 025e       | ^  |		Execute	Discrete,Convert
062b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
062c 01cc       |    |		Execute	Vector,Catenate
062d e002       |    |		Load	0x0,0x2
062e 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
062f e002       |    |		Load	0x0,0x2
0630 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0631 c5fd       |    |		Store	0x2,-0x3
0632 6561       |ea  |		Indirect_Literal	Discrete,0x394,{0x00000000, 0x37dd7401}		; Debug Table 0x14.0x4 = 0x632,0x5
0633 0257       | W  |		Execute	Discrete,Raise
0634 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x14.0x5 = 0x634,0x6
0635 e002       |    |		Load	0x0,0x2
0636 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0637 c5fd       |    |		Store	0x2,-0x3
0638 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0639 0000 0000  |    |		.XXX[0x3]
063b 0000       |    |
063c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000b93}
0640 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000b38}
0644 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b       | K  |		.CONST	0x064b								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0001       |    |		.CONST	0x0001								; Number of locals
064b			BODY_0648:
064b			INIT_0648:
064b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x15 = .DEBUG	0x064b,0x0bb0,0x0001,0x0000,0x0037,0xe074,0x0000,0x01d8
													; Debug Table 0x15.0x0 = 0x64b,0x1
064c 6815       |h   |		Jump_Zero	0x662
064d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x15.0x1 = 0x64d,0x2
064e 0092 07f1  |    |		Action	Push_String_Extended,0x7f1					; "In "
0650 e5fe       |    |		Load	0x2,-0x2
0651 01cc       |    |		Execute	Vector,Catenate
0652 0092 07f4  |    |		Action	Push_String_Extended,0x7f4					; ", got a Standard_Status of "
0654 01cc       |    |		Execute	Vector,Catenate
0655 e5ff       |    |		Load	0x2,-0x1
0656 e00a       |    |		Load	0x0,0xa
0657 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0658 025e       | ^  |		Execute	Discrete,Convert
0659 1c01       |    |		Execute_Immediate	Run_Utility,0x1
065a 01cc       |    |		Execute	Vector,Catenate
065b e002       |    |		Load	0x0,0x2
065c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
065d e002       |    |		Load	0x0,0x2
065e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
065f c5fd       |    |		Store	0x2,-0x3
0660 6183       |a   |		Indirect_Literal	Discrete,0x7e4,{0x00000000, 0x37dd7401}		; Debug Table 0x15.0x2 = 0x660,0x3
0661 0257       | W  |		Execute	Discrete,Raise
0662 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x15.0x3 = 0x662,0x4
0663 e002       |    |		Load	0x0,0x2
0664 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0665 c5fd       |    |		Store	0x2,-0x3
0666 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16 = .DEBUG	0x066b,0x0bba,0x0001,0x0000,0x0037,0xe074,0x0000,0x0220
													; Debug Table 0x16.0x0 = 0x66b,0x1
066c 0217       |    |		Execute	Heap_Access,All_Reference
066d 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
066e 700f       |p   |		Jump_Nonzero	0x67e
066f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16.0x1 = 0x66f,0x2
0670 0219       |    |		Execute	Heap_Access,All_Read
0671 00d8       |    |		Load_Top	At_Offset_0
0672 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0673 0092 07f5  |    |		Action	Push_String_Extended,0x7f5					; "Image object was not Initialized to Allow_Image_Changes."
0675 e002       |    |		Load	0x0,0x2
0676 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0677 e002       |    |		Load	0x0,0x2
0678 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0679 00d9       |    |		Load_Top	At_Offset_1
067a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
067b 00d1       |    |		Pop_Control	Pop_Count_1
067c 6167       |ag  |		Indirect_Literal	Discrete,0x7e4,{0x00000000, 0x37dd7401}		; Debug Table 0x16.0x2 = 0x67c,0x3
067d 0257       | W  |		Execute	Discrete,Raise
067e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
067f 0000       |    |		.XXX[0x1]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x17 = .DEBUG	0x0683,0x0bc2,0x0001,0x0000,0x0037,0xe074,0x0000,0x0245
													; Debug Table 0x17.0x0 = 0x683,0x1
0684 0000 0000  |    |		.BLANK	0000[0x4]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b       |    |		.CONST	0x068b								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0001       |    |		.CONST	0x0001								; Number of locals
068b			BODY_0688:
068b			INIT_0688:
068b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6					; Debug Table 0x18 = .DEBUG	0x068b,0x0bc6,0x0001,0x0000,0x0037,0xe074,0x0000,0x0258
													; Debug Table 0x18.0x0 = 0x68b,0x1
068c 0000 0000  |    |		.BLANK	0000[0x4]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0699       |    |		.CONST	0x0699								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0004       |    |		.CONST	0x0004								; Number of locals
0693			INIT_0690:
0693 e008       |    |		Load	0x0,0x8								; Debug Table 0x19 = .DEBUG	0x0693,0x0bca,0x0001,0x0000,0x0037,0xe074,0x0000,0x0271
													; Debug Table 0x19.0x0 = 0x693,0xffff
0694 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0695 029f 0783  |    |		Declare_Subprogram	INIT_0780,For_Call
0697 029f 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Call
0699			BODY_0690:
0699 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x1 = 0x699,0x1
069a 0217       |    |		Execute	Heap_Access,All_Reference
069b 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
069c e5ff       |    |		Load	0x2,-0x1
069d 021f       |    |		Execute	Heap_Access,Equal
069e 7026       |p&  |		Jump_Nonzero	0x6c5
069f e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x2 = 0x69f,0x2
06a0 0217       |    |		Execute	Heap_Access,All_Reference
06a1 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
06a2 6818       |h   |		Jump_Zero	0x6bb
06a3 e008       |    |		Load	0x0,0x8								; Debug Table 0x19.0x3 = 0x6a3,0x3
06a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06a5 e5fe       |    |		Load	0x2,-0x2
06a6 0217       |    |		Execute	Heap_Access,All_Reference
06a7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
06a8 e5fe       |    |		Load	0x2,-0x2
06a9 0217       |    |		Execute	Heap_Access,All_Reference
06aa 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
06ab e008       |    |		Load	0x0,0x8
06ac 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
06ad 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06ae 005b       | [  |		Store_Top	Discrete,At_Offset_3
06af e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x4 = 0x6af,0x4
06b0 0219       |    |		Execute	Heap_Access,All_Read
06b1 00d8       |    |		Load_Top	At_Offset_0
06b2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06b3 0092 07f6  |    |		Action	Push_String_Extended,0x7f6					; "DONE, setting ada root"
06b5 e402       |    |		Load	0x2,0x2
06b6 8227       | '  |		Call	0x1,0x27
06b7 00d9       |    |		Load_Top	At_Offset_1
06b8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06b9 00d1       |    |		Pop_Control	Pop_Count_1
06ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06bb e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x19.0x5 = 0x6bb,0x5
06bc 0217       |    |		Execute	Heap_Access,All_Reference
06bd 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
06be 00eb       |    |		Load_Encached	Diana_Cache
06bf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06c0 0fa8       |    |		Execute_Immediate	Equal,-0x58
06c1 6802       |h   |		Jump_Zero	0x6c4
06c2 8403       |    |		Call	0x2,0x3								; Debug Table 0x19.0x6 = 0x6c2,0x6
06c3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06c4 8404       |    |		Call	0x2,0x4								; Debug Table 0x19.0x7 = 0x6c4,0x7
06c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06c6 0000 0000  |    |		.XXX[0x2]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06e0       |    |		.CONST	0x06e0								; Address of begin
06c9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ca 0003       |    |		.CONST	0x0003								; Number of locals
06cb			INIT_06c8:
06cb e226       | &  |		Load	0x1,0x26							; Debug Table 0x1a = .DEBUG	0x06cb,0x0bdc,0x0004,0x0000,0x0037,0xe074,0x0000,0x052d
													; Debug Table 0x1a.0x0 = 0x6cb,0xffff
06cc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
06cd 6112       |a   |		Indirect_Literal	Discrete,0x7e0,{0x00000000, 0x0037e074}		; Debug Table 0x1a.0x1 = 0x6cd,0xfffe
06ce 610d       |a   |		Indirect_Literal	Discrete,0x7dc,{0x00000000, 0x000004f9}
06cf e5fb       |    |		Load	0x2,-0x5
06d0 0217       |    |		Execute	Heap_Access,All_Reference
06d1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
06d2 00d8       |    |		Load_Top	At_Offset_0
06d3 0120       |    |		Execute	Any,Is_Value
06d4 7002       |p   |		Jump_Nonzero	0x6d7
06d5 00d8       |    |		Load_Top	At_Offset_0
06d6 011e       |    |		Execute	Any,Convert
06d7 4800       |H   |		Short_Literal	0x0
06d8 00e1       |    |		Load_Encached	Boolean_Cache
06d9 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
06da 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
06db e00f       |    |		Load	0x0,0xf
06dc 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
06dd 0387       |    |		Declare_Variable	Package
06de 00d8       |    |		Load_Top	At_Offset_0
06df 020f       |    |		Execute	Module,Activate
06e0			BODY_06c8:
06e0 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x1a.0x2 = 0x6e0,0x1
06e1 0219       |    |		Execute	Heap_Access,All_Read
06e2 00d8       |    |		Load_Top	At_Offset_0
06e3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06e4 0120       |    |		Execute	Any,Is_Value
06e5 6803       |h   |		Jump_Zero	0x6e9
06e6 e00f       |    |		Load	0x0,0xf
06e7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06e8 7802       |x   |		Jump	0x6eb
06e9 00d8       |    |		Load_Top	At_Offset_0
06ea 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06eb e5fb       |    |		Load	0x2,-0x5
06ec 0217       |    |		Execute	Heap_Access,All_Reference
06ed 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
06ee e5fb       |    |		Load	0x2,-0x5
06ef 0217       |    |		Execute	Heap_Access,All_Reference
06f0 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
06f1 e602       |    |		Load	0x3,0x2
06f2 e603       |    |		Load	0x3,0x3
06f3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06f4 00d9       |    |		Load_Top	At_Offset_1
06f5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06f6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06f7 0000       |    |		.XXX[0x1]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0718       |    |		.CONST	0x0718								; Address of begin
06f9 0004       |    |		.CONST	0x0004								; Address of exception handler
06fa 0005       |    |		.CONST	0x0005								; Number of locals
06fb			INIT_06f8:
06fb e226       | &  |		Load	0x1,0x26							; Debug Table 0x1b = .DEBUG	0x06fb,0x0be4,0x0004,0x0000,0x0037,0xe074,0x0000,0x05c6
													; Debug Table 0x1b.0x0 = 0x6fb,0xffff
06fc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
06fd 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x1b.0x1 = 0x6fd,0xfffe
06fe e00e       |    |		Load	0x0,0xe								; Debug Table 0x1b.0x2 = 0x6fe,0xfffd
06ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0700 0322       | "  |		Declare_Variable	Record
0701 e00e       |    |		Load	0x0,0xe
0702 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0703 00d9       |    |		Load_Top	At_Offset_1
0704 017d       | }  |		Execute	Record,Structure_Write
0705 60da       |`   |		Indirect_Literal	Discrete,0x7e0,{0x00000000, 0x0037e074}		; Debug Table 0x1b.0x3 = 0x705,0xfffc
0706 60d1       |`   |		Indirect_Literal	Discrete,0x7d8,{0x00000000, 0x0000057a}
0707 e5ff       |    |		Load	0x2,-0x1
0708 0217       |    |		Execute	Heap_Access,All_Reference
0709 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
070a 00d8       |    |		Load_Top	At_Offset_0
070b 0120       |    |		Execute	Any,Is_Value
070c 7002       |p   |		Jump_Nonzero	0x70f
070d 00d8       |    |		Load_Top	At_Offset_0
070e 011e       |    |		Execute	Any,Convert
070f 4800       |H   |		Short_Literal	0x0
0710 00e1       |    |		Load_Encached	Boolean_Cache
0711 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0712 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0713 e00f       |    |		Load	0x0,0xf
0714 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0715 0387       |    |		Declare_Variable	Package
0716 00d8       |    |		Load_Top	At_Offset_0
0717 020f       |    |		Execute	Module,Activate
0718			BODY_06f8:
0718 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x1b.0x4 = 0x718,0x1
0719 48f9       |H   |		Short_Literal	0xf9
071a 4801       |H   |		Short_Literal	0x1
071b e010       |    |		Load	0x0,0x10
071c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
071d 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
071e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1b.0x5 = 0x71e,0x2
071f 0219       |    |		Execute	Heap_Access,All_Read
0720 00d8       |    |		Load_Top	At_Offset_0
0721 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0722 00db       |    |		Load_Top	At_Offset_3
0723 e603       |    |		Load	0x3,0x3
0724 e5ff       |    |		Load	0x2,-0x1
0725 0217       |    |		Execute	Heap_Access,All_Reference
0726 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0727 e5ff       |    |		Load	0x2,-0x1
0728 0217       |    |		Execute	Heap_Access,All_Reference
0729 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
072a e602       |    |		Load	0x3,0x2
072b e605       |    |		Load	0x3,0x5
072c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
072d 00d1       |    |		Pop_Control	Pop_Count_1
072e 00d9       |    |		Load_Top	At_Offset_1
072f 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0730 00d1       |    |		Pop_Control	Pop_Count_1
0731 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1b.0x6 = 0x731,0x3
0732 e010       |    |		Load	0x0,0x10
0733 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0734 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0735 0000 0000  |    |		.XXX[0x3]
0737 0000       |    |
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 0742       | B  |		.CONST	0x0742								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0003       |    |		.CONST	0x0003								; Number of locals
073b			INIT_0738:
073b e008       |    |		Load	0x0,0x8								; Debug Table 0x1c = .DEBUG	0x073b,0x0bf4,0x0004,0x0000,0x0037,0xe074,0x0000,0x0a73
													; Debug Table 0x1c.0x0 = 0x73b,0xffff
073c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
073d e013       |    |		Load	0x0,0x13							; Debug Table 0x1c.0x1 = 0x73d,0xfffe
073e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
073f 02c7       |    |		Declare_Variable	Any
0740 00d8       |    |		Load_Top	At_Offset_0
0741 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0742			BODY_0738:
0742 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1c.0x2 = 0x742,0x1
0743 00d9       |    |		Load_Top	At_Offset_1
0744 e5ff       |    |		Load	0x2,-0x1
0745 0217       |    |		Execute	Heap_Access,All_Reference
0746 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0747 e014       |    |		Load	0x0,0x14
0748 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0749 c603       |    |		Store	0x3,0x3
074a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
074b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1c.0x3 = 0x74b,0x2
074c 6802       |h   |		Jump_Zero	0x74f
074d 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x1c.0x4 = 0x74d,0x3
074e 0257       | W  |		Execute	Discrete,Raise
074f 0092 07f7  |    |		Action	Push_String_Extended,0x7f7					; " - "
													; Debug Table 0x1c.0x5 = 0x74f,0x4
0751 e5fa       |    |		Load	0x2,-0x6
0752 0217       |    |		Execute	Heap_Access,All_Reference
0753 01cc       |    |		Execute	Vector,Catenate
0754 00d9       |    |		Load_Top	At_Offset_1
0755 e5fe       |    |		Load	0x2,-0x2
0756 e013       |    |		Load	0x0,0x13
0757 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0758 e011       |    |		Load	0x0,0x11
0759 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
075a e011       |    |		Load	0x0,0x11
075b 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
075c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
075d 0000 0000  |    |		.XXX[0x3]
075f 0000       |    |
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763       | c  |		.CONST	0x0763								; Address of begin
0761 0004       |    |		.CONST	0x0004								; Address of exception handler
0762 0001       |    |		.CONST	0x0001								; Number of locals
0763			BODY_0760:
0763			INIT_0760:
0763 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1d = .DEBUG	0x0763,0x0c02,0x0001,0x0000,0x0037,0xe074,0x0000,0x0b13
													; Debug Table 0x1d.0x0 = 0x763,0x1
0764 a402       |    |		Store_Unchecked	0x2,0x2
0765 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0766 0000 0000  |    |		.XXX[0x2]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b       | k  |		.CONST	0x076b								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0001       |    |		.CONST	0x0001								; Number of locals
076b			BODY_0768:
076b			INIT_0768:
076b e7fb       |    |		Load	0x3,-0x5							; Debug Table 0x1e = .DEBUG	0x076b,0x0c06,0x0801,0x0002,0x0037,0xe074,0x0000,0x0b5d
													; Debug Table 0x1e.0x0 = 0x76b,0x1
076c e7fa       |    |		Load	0x3,-0x6
076d e7fd       |    |		Load	0x3,-0x3
076e e7fc       |    |		Load	0x3,-0x4
076f 0273       | s  |		Execute	Discrete,Plus
0770 0248       | H  |		Execute	Discrete,Check_In_Integer
0771 0aff       |    |		Execute_Immediate	Plus,-0x1
0772 00e3       |    |		Load_Encached	Natural_Cache
0773 025b       | [  |		Execute	Discrete,Check_In_Type
0774 e7fe       |    |		Load	0x3,-0x2
0775 e7fd       |    |		Load	0x3,-0x3
0776 e7fe       |    |		Load	0x3,-0x2
0777 85fe       |    |		Call	0x2,-0x2
0778 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0779 0000 0000  |    |		.BLANK	0000[0x7]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0798       |    |		.CONST	0x0798								; Address of begin
0781 0004       |    |		.CONST	0x0004								; Address of exception handler
0782 0004       |    |		.CONST	0x0004								; Number of locals
0783			INIT_0780:
0783 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1f = .DEBUG	0x0783,0x0c0a,0x0004,0x0000,0x0037,0xe074,0x0000,0x0318
													; Debug Table 0x1f.0x0 = 0x783,0xffff
0784 e5fe       |    |		Load	0x2,-0x2
0785 0217       |    |		Execute	Heap_Access,All_Reference
0786 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0787 00eb       |    |		Load_Encached	Diana_Cache
0788 18bb       |    |		Execute	Package,Field_Execute,Field_Number 0xbb
0789 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
078a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1f.0x1 = 0x78a,0xfffe
078b e5fe       |    |		Load	0x2,-0x2
078c 0217       |    |		Execute	Heap_Access,All_Reference
078d 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
078e 00eb       |    |		Load_Encached	Diana_Cache
078f 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
0790 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0791 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1f.0x2 = 0x791,0xfffd
0792 e5fe       |    |		Load	0x2,-0x2
0793 0217       |    |		Execute	Heap_Access,All_Reference
0794 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0795 00eb       |    |		Load_Encached	Diana_Cache
0796 18db       |    |		Execute	Package,Field_Execute,Field_Number 0xdb
0797 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0798			BODY_0780:
0798 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1f.0x3 = 0x798,0x1
0799 00db       |    |		Load_Top	At_Offset_3
079a 4974       |It  |		Short_Literal	0x174
079b 00eb       |    |		Load_Encached	Diana_Cache
079c 0098       |    |		Execute	Package,Field_Read_Dynamic
079d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
079e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1f.0x4 = 0x79e,0x2
079f 00da       |    |		Load_Top	At_Offset_2
07a0 4974       |It  |		Short_Literal	0x174
07a1 00eb       |    |		Load_Encached	Diana_Cache
07a2 0098       |    |		Execute	Package,Field_Read_Dynamic
07a3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07a4 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1f.0x5 = 0x7a4,0x3
07a5 00d9       |    |		Load_Top	At_Offset_1
07a6 4974       |It  |		Short_Literal	0x174
07a7 00eb       |    |		Load_Encached	Diana_Cache
07a8 0098       |    |		Execute	Package,Field_Read_Dynamic
07a9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07aa 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1f.0x6 = 0x7aa,0x4
07ab e5ff       |    |		Load	0x2,-0x1
07ac 491c       |I   |		Short_Literal	0x11c
07ad 00eb       |    |		Load_Encached	Diana_Cache
07ae 0096       |    |		Execute	Package,Entry
07af 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1f.0x7 = 0x7af,0x5
07b0 e5ff       |    |		Load	0x2,-0x1
07b1 494a       |IJ  |		Short_Literal	0x14a
07b2 00eb       |    |		Load_Encached	Diana_Cache
07b3 0096       |    |		Execute	Package,Entry
07b4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1f.0x8 = 0x7b4,0x6
07b5 e5ff       |    |		Load	0x2,-0x1
07b6 493c       |I<  |		Short_Literal	0x13c
07b7 00eb       |    |		Load_Encached	Diana_Cache
07b8 0096       |    |		Execute	Package,Entry
07b9 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1f.0x9 = 0x7b9,0x7
07ba e5fe       |    |		Load	0x2,-0x2
07bb 0217       |    |		Execute	Heap_Access,All_Reference
07bc 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
07bd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07be 0000 0000  |    |		.XXX[0x2]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07ca       |    |		.CONST	0x07ca								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0002       |    |		.CONST	0x0002								; Number of locals
07c3			INIT_07c0:
07c3 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x20 = .DEBUG	0x07c3,0x0c20,0x0004,0x0000,0x0037,0xe074,0x0000,0x033f
													; Debug Table 0x20.0x0 = 0x7c3,0xffff
07c4 e5fe       |    |		Load	0x2,-0x2
07c5 0217       |    |		Execute	Heap_Access,All_Reference
07c6 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
07c7 00eb       |    |		Load_Encached	Diana_Cache
07c8 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
07c9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
07ca			BODY_07c0:
07ca 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0x1 = 0x7ca,0x1
07cb 4974       |It  |		Short_Literal	0x174
07cc 00eb       |    |		Load_Encached	Diana_Cache
07cd 0098       |    |		Execute	Package,Field_Read_Dynamic
07ce 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07cf 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0x2 = 0x7cf,0x2
07d0 e5ff       |    |		Load	0x2,-0x1
07d1 00eb       |    |		Load_Encached	Diana_Cache
07d2 1891       |    |		Execute	Package,Field_Execute,Field_Number 0x91
07d3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x20.0x3 = 0x7d3,0x3
07d4 e5fe       |    |		Load	0x2,-0x2
07d5 0217       |    |		Execute	Heap_Access,All_Reference
07d6 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
07d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000057a}
07dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x000004f9}
07e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0037e074}
07e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x37dd7401}
07e8 ; --------------------------------------------------------------------------------------
07e8 ; STRING TABLE
07e8 ; --------------------------------------------------------------------------------------
07e8 0022       | "  |		.STRTAB	0x0022->0x07f9							; "REGULAR"
07e9 0027       | '  |		.STRTAB	0x0027->0x07fc							; "PROMPT"
07ea 002b       | +  |		.STRTAB	0x002b->0x07ff							; "UNDERLINE"
07eb 0032       | 2  |		.STRTAB	0x0032->0x0804							; "INITIALIZE, obtaining the Ada Unit"
07ec 0052       | R  |		.STRTAB	0x0052->0x0815							; "INITIALIZE, opening the ada unit version"
07ed 0078       | x  |		.STRTAB	0x0078->0x0829							; "INITIALIZE, getting the ada image version"
07ee 009f       |    |		.STRTAB	0x009f->0x083d							; "INITIALIZE, opening the image object"
07ef 00c1       |    |		.STRTAB	0x00c1->0x084f							; "DONE, closing ada root"
07f0 00d5       |    |		.STRTAB	0x00d5->0x085a							; "DONE, closing image handle"
07f1 00ed       |    |		.STRTAB	0x00ed->0x0867							; "In "
07f2 00ee       |    |		.STRTAB	0x00ee->0x0869							; ", got a Directory Status of "
07f3 0108       |    |		.STRTAB	0x0108->0x0877							; ".  Verify that the Ada unit is Checked_Out (CMVC)."
07f4 0138       | 8  |		.STRTAB	0x0138->0x0890							; ", got a Standard_Status of "
07f5 0151       | Q  |		.STRTAB	0x0151->0x089d							; "Image object was not Initialized to Allow_Image_Changes."
07f6 0187       |    |		.STRTAB	0x0187->0x08b9							; "DONE, setting ada root"
07f7 019b       |    |		.STRTAB	0x019b->0x08c4							; " - "
07f8 019c       |    |		.STREND 0x019c->0x08c6
07f9 5245 4755  |REGU|		.STRTAB_STRINGS
08c6 0000 0000  |    |		.XXX[0x2]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; Debug Table
08c8 ; --------------------------------------------------------------------------------------
08c8 0003 0021  |   !|		.CONST	0x0003,0x0021
08ca 000b 09d2  |    |		.DEBUG	0x000b,0x09d2,0x8000,0x0000,0x0037,0xdd74,0x0000,0x0011
08d2 0042 0a06  | B  |		.DEBUG	0x0042,0x0a06,0x8000,0x0000,0x0037,0xe074,0x0000,0x002f
08da 00e3 0a5a  |   Z|		.DEBUG	0x00e3,0x0a5a,0x0005,0x0000,0x0037,0xdd74,0x0000,0x001a
08e2 00fb 0a5c  |   \|		.DEBUG	0x00fb,0x0a5c,0x0001,0x0000,0x0037,0xdd74,0x0000,0x0021
08ea 022b 0aa8  | +  |		.DEBUG	0x022b,0x0aa8,0x0001,0x0000,0x0037,0xdd74,0x0000,0x0048
08f2 02db 0ad6  |    |		.DEBUG	0x02db,0x0ad6,0x0001,0x0000,0x0037,0xdd74,0x0000,0x0050
08fa 03ab 0b04  |    |		.DEBUG	0x03ab,0x0b04,0x0001,0x0000,0x0037,0xdd74,0x0000,0x0058
0902 03fb 0b1c  |    |		.DEBUG	0x03fb,0x0b1c,0x0001,0x0000,0x0037,0xdd74,0x0000,0x006d
090a 0453 0b38  | S 8|		.DEBUG	0x0453,0x0b38,0x0001,0x0000,0x0037,0xdd74,0x0000,0x007d
0912 04a3 0b50  |   P|		.DEBUG	0x04a3,0x0b50,0x0001,0x0000,0x0037,0xdd74,0x0000,0x0096
091a 04d3 0b58  |   X|		.DEBUG	0x04d3,0x0b58,0x0001,0x0000,0x0037,0xdd74,0x0000,0x00b8
0922 04eb 0b5c  |   \|		.DEBUG	0x04eb,0x0b5c,0x0001,0x0000,0x0037,0xdd74,0x0000,0x00d3
092a 0523 0b6e  | # n|		.DEBUG	0x0523,0x0b6e,0x0002,0x0000,0x0037,0xdd74,0x0000,0x00f0
0932 052b 0b72  | + r|		.DEBUG	0x052b,0x0b72,0x0001,0x0000,0x0037,0xdd74,0x0000,0x00f9
093a 0543 0b78  | C x|		.DEBUG	0x0543,0x0b78,0x0001,0x0000,0x0037,0xdd74,0x0000,0x0103
0942 056b 0b82  | k  |		.DEBUG	0x056b,0x0b82,0x0002,0x0000,0x0037,0xdd74,0x0000,0x010b
094a 058b 0b8e  |    |		.DEBUG	0x058b,0x0b8e,0x2801,0x0002,0x0037,0xdd74,0x0000,0x0116
0952 05b3 0b98  |    |		.DEBUG	0x05b3,0x0b98,0x0002,0x0000,0x0037,0xdd74,0x0000,0x0139
095a 05c3 0b9c  |    |		.DEBUG	0x05c3,0x0b9c,0x0002,0x0000,0x0037,0xdd74,0x0000,0x0142
0962 05d3 0ba0  |    |		.DEBUG	0x05d3,0x0ba0,0x0005,0x0000,0x0037,0xe074,0x0000,0x00cb
096a 0603 0ba2  |    |		.DEBUG	0x0603,0x0ba2,0x0001,0x0000,0x0037,0xe074,0x0000,0x0164
0972 064b 0bb0  | K  |		.DEBUG	0x064b,0x0bb0,0x0001,0x0000,0x0037,0xe074,0x0000,0x01d8
097a 066b 0bba  | k  |		.DEBUG	0x066b,0x0bba,0x0001,0x0000,0x0037,0xe074,0x0000,0x0220
0982 0683 0bc2  |    |		.DEBUG	0x0683,0x0bc2,0x0001,0x0000,0x0037,0xe074,0x0000,0x0245
098a 068b 0bc6  |    |		.DEBUG	0x068b,0x0bc6,0x0001,0x0000,0x0037,0xe074,0x0000,0x0258
0992 0693 0bca  |    |		.DEBUG	0x0693,0x0bca,0x0001,0x0000,0x0037,0xe074,0x0000,0x0271
099a 06cb 0bdc  |    |		.DEBUG	0x06cb,0x0bdc,0x0004,0x0000,0x0037,0xe074,0x0000,0x052d
09a2 06fb 0be4  |    |		.DEBUG	0x06fb,0x0be4,0x0004,0x0000,0x0037,0xe074,0x0000,0x05c6
09aa 073b 0bf4  | ;  |		.DEBUG	0x073b,0x0bf4,0x0004,0x0000,0x0037,0xe074,0x0000,0x0a73
09b2 0763 0c02  | c  |		.DEBUG	0x0763,0x0c02,0x0001,0x0000,0x0037,0xe074,0x0000,0x0b13
09ba 076b 0c06  | k  |		.DEBUG	0x076b,0x0c06,0x0801,0x0002,0x0037,0xe074,0x0000,0x0b5d
09c2 0783 0c0a  |    |		.DEBUG	0x0783,0x0c0a,0x0004,0x0000,0x0037,0xe074,0x0000,0x0318
09ca 07c3 0c20  |    |		.DEBUG	0x07c3,0x0c20,0x0004,0x0000,0x0037,0xe074,0x0000,0x033f
09d2 ; --------------------------------------------------------------------------------------
09d2 ; Debug3 Subtable 0x0
09d2 ; --------------------------------------------------------------------------------------
09d2 0019 0000  |    |		.DBG3TAB	0x0019,0x0000
09d4 000b ffff  |    |		.CONST	0x000b,0xffff
09d6 000c fffe  |    |		.CONST	0x000c,0xfffe
09d8 000d fffd  |    |		.CONST	0x000d,0xfffd
09da 0012 fffc  |    |		.CONST	0x0012,0xfffc
09dc 0014 fffb  |    |		.CONST	0x0014,0xfffb
09de 0016 fffa  |    |		.CONST	0x0016,0xfffa
09e0 0018 fff9  |    |		.CONST	0x0018,0xfff9
09e2 001a fff8  |    |		.CONST	0x001a,0xfff8
09e4 001c fff7  |    |		.CONST	0x001c,0xfff7
09e6 001e fff6  |    |		.CONST	0x001e,0xfff6
09e8 0020 fff5  |    |		.CONST	0x0020,0xfff5
09ea 0024 fff4  | $  |		.CONST	0x0024,0xfff4
09ec 0026 fff3  | &  |		.CONST	0x0026,0xfff3
09ee 0028 fff2  | (  |		.CONST	0x0028,0xfff2
09f0 002a fff1  | *  |		.CONST	0x002a,0xfff1
09f2 002c fff0  | ,  |		.CONST	0x002c,0xfff0
09f4 002e ffef  | .  |		.CONST	0x002e,0xffef
09f6 0030 ffee  | 0  |		.CONST	0x0030,0xffee
09f8 0032 ffed  | 2  |		.CONST	0x0032,0xffed
09fa 0033 ffec  | 3  |		.CONST	0x0033,0xffec
09fc 0035 ffeb  | 5  |		.CONST	0x0035,0xffeb
09fe 0037 ffea  | 7  |		.CONST	0x0037,0xffea
0a00 0039 ffe9  | 9  |		.CONST	0x0039,0xffe9
0a02 003d ffe8  | =  |		.CONST	0x003d,0xffe8
0a04 003e ffe7  | >  |		.CONST	0x003e,0xffe7
0a06 ; --------------------------------------------------------------------------------------
0a06 ; Debug3 Subtable 0x1
0a06 ; --------------------------------------------------------------------------------------
0a06 0029 0000  | )  |		.DBG3TAB	0x0029,0x0000
0a08 0042 ffff  | B  |		.CONST	0x0042,0xffff
0a0a 0043 fffe  | C  |		.CONST	0x0043,0xfffe
0a0c 0044 fffd  | D  |		.CONST	0x0044,0xfffd
0a0e 0045 fffc  | E  |		.CONST	0x0045,0xfffc
0a10 0046 fffb  | F  |		.CONST	0x0046,0xfffb
0a12 0047 fffa  | G  |		.CONST	0x0047,0xfffa
0a14 0048 fff9  | H  |		.CONST	0x0048,0xfff9
0a16 0049 fff8  | I  |		.CONST	0x0049,0xfff8
0a18 004a fff7  | J  |		.CONST	0x004a,0xfff7
0a1a 004b fff6  | K  |		.CONST	0x004b,0xfff6
0a1c 004c fff5  | L  |		.CONST	0x004c,0xfff5
0a1e 004d fff4  | M  |		.CONST	0x004d,0xfff4
0a20 004f fff3  | O  |		.CONST	0x004f,0xfff3
0a22 0052 fff2  | R  |		.CONST	0x0052,0xfff2
0a24 0053 fff1  | S  |		.CONST	0x0053,0xfff1
0a26 005d fff0  | ]  |		.CONST	0x005d,0xfff0
0a28 0072 ffef  | r  |		.CONST	0x0072,0xffef
0a2a 00b0 ffee  |    |		.CONST	0x00b0,0xffee
0a2c 00b1 ffed  |    |		.CONST	0x00b1,0xffed
0a2e 00b2 ffec  |    |		.CONST	0x00b2,0xffec
0a30 00b4 ffeb  |    |		.CONST	0x00b4,0xffeb
0a32 00b6 ffea  |    |		.CONST	0x00b6,0xffea
0a34 00b8 ffe9  |    |		.CONST	0x00b8,0xffe9
0a36 00ba ffe8  |    |		.CONST	0x00ba,0xffe8
0a38 00bc ffe7  |    |		.CONST	0x00bc,0xffe7
0a3a 00be ffe6  |    |		.CONST	0x00be,0xffe6
0a3c 00c0 ffe5  |    |		.CONST	0x00c0,0xffe5
0a3e 00c2 ffe4  |    |		.CONST	0x00c2,0xffe4
0a40 00c4 ffe3  |    |		.CONST	0x00c4,0xffe3
0a42 00c6 ffe2  |    |		.CONST	0x00c6,0xffe2
0a44 00c8 ffe1  |    |		.CONST	0x00c8,0xffe1
0a46 00ca ffe0  |    |		.CONST	0x00ca,0xffe0
0a48 00cc ffdf  |    |		.CONST	0x00cc,0xffdf
0a4a 00ce ffde  |    |		.CONST	0x00ce,0xffde
0a4c 00d0 ffdd  |    |		.CONST	0x00d0,0xffdd
0a4e 00d2 ffdc  |    |		.CONST	0x00d2,0xffdc
0a50 00d4 ffdb  |    |		.CONST	0x00d4,0xffdb
0a52 00d6 ffda  |    |		.CONST	0x00d6,0xffda
0a54 00d8 ffd9  |    |		.CONST	0x00d8,0xffd9
0a56 00da ffd8  |    |		.CONST	0x00da,0xffd8
0a58 00dc ffd7  |    |		.CONST	0x00dc,0xffd7
0a5a ; --------------------------------------------------------------------------------------
0a5a ; Debug3 Subtable 0x2
0a5a ; --------------------------------------------------------------------------------------
0a5a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0a5c ; --------------------------------------------------------------------------------------
0a5c ; Debug3 Subtable 0x3
0a5c ; --------------------------------------------------------------------------------------
0a5c 0007 001e  |    |		.DBG3TAB	0x0007,0x001e
0a5e 00fb ffff  |    |		.CONST	0x00fb,0xffff
0a60 0101 fffe  |    |		.CONST	0x0101,0xfffe
0a62 0106 fffd  |    |		.CONST	0x0106,0xfffd
0a64 010b fffc  |    |		.CONST	0x010b,0xfffc
0a66 0111 fffb  |    |		.CONST	0x0111,0xfffb
0a68 0116 fffa  |    |		.CONST	0x0116,0xfffa
0a6a 0118 fff9  |    |		.CONST	0x0118,0xfff9
0a6c 011c 0001  |    |		.CONST	0x011c,0x0001
0a6e 0123 0002  | #  |		.CONST	0x0123,0x0002
0a70 0124 0003  | $  |		.CONST	0x0124,0x0003
0a72 0128 0004  | (  |		.CONST	0x0128,0x0004
0a74 012c 0005  | ,  |		.CONST	0x012c,0x0005
0a76 0131 0006  | 1  |		.CONST	0x0131,0x0006
0a78 0138 0007  | 8  |		.CONST	0x0138,0x0007
0a7a 013d 0008  | =  |		.CONST	0x013d,0x0008
0a7c 0141 0009  | A  |		.CONST	0x0141,0x0009
0a7e 0145 000a  | E  |		.CONST	0x0145,0x000a
0a80 0155 000b  | U  |		.CONST	0x0155,0x000b
0a82 015b 000c  | [  |		.CONST	0x015b,0x000c
0a84 0164 000d  | d  |		.CONST	0x0164,0x000d
0a86 016b 000e  | k  |		.CONST	0x016b,0x000e
0a88 0172 000f  | r  |		.CONST	0x0172,0x000f
0a8a 0177 0010  | w  |		.CONST	0x0177,0x0010
0a8c 0197 0011  |    |		.CONST	0x0197,0x0011
0a8e 019d 0012  |    |		.CONST	0x019d,0x0012
0a90 01a1 0013  |    |		.CONST	0x01a1,0x0013
0a92 01a5 0014  |    |		.CONST	0x01a5,0x0014
0a94 01b3 0015  |    |		.CONST	0x01b3,0x0015
0a96 01b9 0016  |    |		.CONST	0x01b9,0x0016
0a98 01d3 0017  |    |		.CONST	0x01d3,0x0017
0a9a 01da 0018  |    |		.CONST	0x01da,0x0018
0a9c 01e8 0019  |    |		.CONST	0x01e8,0x0019
0a9e 01ee 001a  |    |		.CONST	0x01ee,0x001a
0aa0 0208 001b  |    |		.CONST	0x0208,0x001b
0aa2 020e 001c  |    |		.CONST	0x020e,0x001c
0aa4 021c 001d  |    |		.CONST	0x021c,0x001d
0aa6 0221 001e  | !  |		.CONST	0x0221,0x001e
0aa8 ; --------------------------------------------------------------------------------------
0aa8 ; Debug3 Subtable 0x4
0aa8 ; --------------------------------------------------------------------------------------
0aa8 0005 0011  |    |		.DBG3TAB	0x0005,0x0011
0aaa 022b ffff  | +  |		.CONST	0x022b,0xffff
0aac 0230 fffe  | 0  |		.CONST	0x0230,0xfffe
0aae 0232 fffd  | 2  |		.CONST	0x0232,0xfffd
0ab0 0234 fffc  | 4  |		.CONST	0x0234,0xfffc
0ab2 0236 fffb  | 6  |		.CONST	0x0236,0xfffb
0ab4 023d 0001  | =  |		.CONST	0x023d,0x0001
0ab6 023e 0002  | >  |		.CONST	0x023e,0x0002
0ab8 0242 0003  | B  |		.CONST	0x0242,0x0003
0aba 0246 0004  | F  |		.CONST	0x0246,0x0004
0abc 0255 0005  | U  |		.CONST	0x0255,0x0005
0abe 025b 0007  | [  |		.CONST	0x025b,0x0007
0ac0 025f 0008  | _  |		.CONST	0x025f,0x0008
0ac2 0282 0009  |    |		.CONST	0x0282,0x0009
0ac4 0287 0006  |    |		.CONST	0x0287,0x0006
0ac6 028a 000a  |    |		.CONST	0x028a,0x000a
0ac8 028e 000b  |    |		.CONST	0x028e,0x000b
0aca 0292 000c  |    |		.CONST	0x0292,0x000c
0acc 02a0 000d  |    |		.CONST	0x02a0,0x000d
0ace 02ab 000e  |    |		.CONST	0x02ab,0x000e
0ad0 02b8 000f  |    |		.CONST	0x02b8,0x000f
0ad2 02c3 0010  |    |		.CONST	0x02c3,0x0010
0ad4 02c7 0011  |    |		.CONST	0x02c7,0x0011
0ad6 ; --------------------------------------------------------------------------------------
0ad6 ; Debug3 Subtable 0x5
0ad6 ; --------------------------------------------------------------------------------------
0ad6 0009 000d  |    |		.DBG3TAB	0x0009,0x000d
0ad8 02db ffff  |    |		.CONST	0x02db,0xffff
0ada 02e0 fffe  |    |		.CONST	0x02e0,0xfffe
0adc 02e2 fffd  |    |		.CONST	0x02e2,0xfffd
0ade 02e4 fffc  |    |		.CONST	0x02e4,0xfffc
0ae0 02e6 fffb  |    |		.CONST	0x02e6,0xfffb
0ae2 02eb fffa  |    |		.CONST	0x02eb,0xfffa
0ae4 02ed fff9  |    |		.CONST	0x02ed,0xfff9
0ae6 02ee fff8  |    |		.CONST	0x02ee,0xfff8
0ae8 02f5 fff7  |    |		.CONST	0x02f5,0xfff7
0aea 0308 0001  |    |		.CONST	0x0308,0x0001
0aec 030e 0002  |    |		.CONST	0x030e,0x0002
0aee 0321 0003  | !  |		.CONST	0x0321,0x0003
0af0 0325 0004  | %  |		.CONST	0x0325,0x0004
0af2 0329 0005  | )  |		.CONST	0x0329,0x0005
0af4 0338 0006  | 8  |		.CONST	0x0338,0x0006
0af6 033e 0008  | >  |		.CONST	0x033e,0x0008
0af8 0342 0009  | B  |		.CONST	0x0342,0x0009
0afa 0365 000a  | e  |		.CONST	0x0365,0x000a
0afc 036a 0007  | j  |		.CONST	0x036a,0x0007
0afe 036d 000b  | m  |		.CONST	0x036d,0x000b
0b00 0371 000c  | q  |		.CONST	0x0371,0x000c
0b02 0388 000d  |    |		.CONST	0x0388,0x000d
0b04 ; --------------------------------------------------------------------------------------
0b04 ; Debug3 Subtable 0x6
0b04 ; --------------------------------------------------------------------------------------
0b04 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
0b06 03ab ffff  |    |		.CONST	0x03ab,0xffff
0b08 03ad 0001  |    |		.CONST	0x03ad,0x0001
0b0a 03af 0002  |    |		.CONST	0x03af,0x0002
0b0c 03bc 0003  |    |		.CONST	0x03bc,0x0003
0b0e 03cd 0004  |    |		.CONST	0x03cd,0x0004
0b10 03d1 0005  |    |		.CONST	0x03d1,0x0005
0b12 03d7 0007  |    |		.CONST	0x03d7,0x0007
0b14 03dd 0008  |    |		.CONST	0x03dd,0x0008
0b16 03e4 0009  |    |		.CONST	0x03e4,0x0009
0b18 03e9 0006  |    |		.CONST	0x03e9,0x0006
0b1a 03ec 000a  |    |		.CONST	0x03ec,0x000a
0b1c ; --------------------------------------------------------------------------------------
0b1c ; Debug3 Subtable 0x7
0b1c ; --------------------------------------------------------------------------------------
0b1c 0001 000c  |    |		.DBG3TAB	0x0001,0x000c
0b1e 03fb ffff  |    |		.CONST	0x03fb,0xffff
0b20 03fd 0001  |    |		.CONST	0x03fd,0x0001
0b22 03ff 0002  |    |		.CONST	0x03ff,0x0002
0b24 0409 0003  |    |		.CONST	0x0409,0x0003
0b26 041a 0004  |    |		.CONST	0x041a,0x0004
0b28 041e 0005  |    |		.CONST	0x041e,0x0005
0b2a 0424 0007  | $  |		.CONST	0x0424,0x0007
0b2c 042e 0008  | .  |		.CONST	0x042e,0x0008
0b2e 0433 0009  | 3  |		.CONST	0x0433,0x0009
0b30 0439 000a  | 9  |		.CONST	0x0439,0x000a
0b32 0441 000b  | A  |		.CONST	0x0441,0x000b
0b34 0446 0006  | F  |		.CONST	0x0446,0x0006
0b36 0449 000c  | I  |		.CONST	0x0449,0x000c
0b38 ; --------------------------------------------------------------------------------------
0b38 ; Debug3 Subtable 0x8
0b38 ; --------------------------------------------------------------------------------------
0b38 0001 000a  |    |		.DBG3TAB	0x0001,0x000a
0b3a 0453 ffff  | S  |		.CONST	0x0453,0xffff
0b3c 0455 0001  | U  |		.CONST	0x0455,0x0001
0b3e 0457 0002  | W  |		.CONST	0x0457,0x0002
0b40 045f 0003  | _  |		.CONST	0x045f,0x0003
0b42 046a 0004  | j  |		.CONST	0x046a,0x0004
0b44 047c 0005  | |  |		.CONST	0x047c,0x0005
0b46 0480 0006  |    |		.CONST	0x0480,0x0006
0b48 0486 0008  |    |		.CONST	0x0486,0x0008
0b4a 0492 0009  |    |		.CONST	0x0492,0x0009
0b4c 0496 000a  |    |		.CONST	0x0496,0x000a
0b4e 049b 0007  |    |		.CONST	0x049b,0x0007
0b50 ; --------------------------------------------------------------------------------------
0b50 ; Debug3 Subtable 0x9
0b50 ; --------------------------------------------------------------------------------------
0b50 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0b52 04a3 0001  |    |		.CONST	0x04a3,0x0001
0b54 04a5 0002  |    |		.CONST	0x04a5,0x0002
0b56 04b6 0003  |    |		.CONST	0x04b6,0x0003
0b58 ; --------------------------------------------------------------------------------------
0b58 ; Debug3 Subtable 0xa
0b58 ; --------------------------------------------------------------------------------------
0b58 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b5a 04d3 0001  |    |		.CONST	0x04d3,0x0001
0b5c ; --------------------------------------------------------------------------------------
0b5c ; Debug3 Subtable 0xb
0b5c ; --------------------------------------------------------------------------------------
0b5c 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
0b5e 04eb ffff  |    |		.CONST	0x04eb,0xffff
0b60 04ee 0001  |    |		.CONST	0x04ee,0x0001
0b62 04f2 0002  |    |		.CONST	0x04f2,0x0002
0b64 04f5 0003  |    |		.CONST	0x04f5,0x0003
0b66 04f7 0004  |    |		.CONST	0x04f7,0x0004
0b68 04fb 0006  |    |		.CONST	0x04fb,0x0006
0b6a 0519 0007  |    |		.CONST	0x0519,0x0007
0b6c 051a 0005  |    |		.CONST	0x051a,0x0005
0b6e ; --------------------------------------------------------------------------------------
0b6e ; Debug3 Subtable 0xc
0b6e ; --------------------------------------------------------------------------------------
0b6e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b70 0523 0001  | #  |		.CONST	0x0523,0x0001
0b72 ; --------------------------------------------------------------------------------------
0b72 ; Debug3 Subtable 0xd
0b72 ; --------------------------------------------------------------------------------------
0b72 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0b74 052b ffff  | +  |		.CONST	0x052b,0xffff
0b76 0530 0001  | 0  |		.CONST	0x0530,0x0001
0b78 ; --------------------------------------------------------------------------------------
0b78 ; Debug3 Subtable 0xe
0b78 ; --------------------------------------------------------------------------------------
0b78 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0b7a 0543 ffff  | C  |		.CONST	0x0543,0xffff
0b7c 0548 0001  | H  |		.CONST	0x0548,0x0001
0b7e 054d 0002  | M  |		.CONST	0x054d,0x0002
0b80 055c 0003  | \  |		.CONST	0x055c,0x0003
0b82 ; --------------------------------------------------------------------------------------
0b82 ; Debug3 Subtable 0xf
0b82 ; --------------------------------------------------------------------------------------
0b82 0003 0002  |    |		.DBG3TAB	0x0003,0x0002
0b84 056b ffff  | k  |		.CONST	0x056b,0xffff
0b86 056d fffe  | m  |		.CONST	0x056d,0xfffe
0b88 056f fffd  | o  |		.CONST	0x056f,0xfffd
0b8a 057a 0001  | z  |		.CONST	0x057a,0x0001
0b8c 0586 0002  |    |		.CONST	0x0586,0x0002
0b8e ; --------------------------------------------------------------------------------------
0b8e ; Debug3 Subtable 0x10
0b8e ; --------------------------------------------------------------------------------------
0b8e 0003 0001  |    |		.DBG3TAB	0x0003,0x0001
0b90 058b ffff  |    |		.CONST	0x058b,0xffff
0b92 058d fffe  |    |		.CONST	0x058d,0xfffe
0b94 058f fffd  |    |		.CONST	0x058f,0xfffd
0b96 059a 0001  |    |		.CONST	0x059a,0x0001
0b98 ; --------------------------------------------------------------------------------------
0b98 ; Debug3 Subtable 0x11
0b98 ; --------------------------------------------------------------------------------------
0b98 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b9a 05b3 0001  |    |		.CONST	0x05b3,0x0001
0b9c ; --------------------------------------------------------------------------------------
0b9c ; Debug3 Subtable 0x12
0b9c ; --------------------------------------------------------------------------------------
0b9c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0b9e 05c3 0001  |    |		.CONST	0x05c3,0x0001
0ba0 ; --------------------------------------------------------------------------------------
0ba0 ; Debug3 Subtable 0x13
0ba0 ; --------------------------------------------------------------------------------------
0ba0 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0ba2 ; --------------------------------------------------------------------------------------
0ba2 ; Debug3 Subtable 0x14
0ba2 ; --------------------------------------------------------------------------------------
0ba2 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0ba4 0603 0001  |    |		.CONST	0x0603,0x0001
0ba6 0605 0002  |    |		.CONST	0x0605,0x0002
0ba8 0608 0003  |    |		.CONST	0x0608,0x0003
0baa 061f 0004  |    |		.CONST	0x061f,0x0004
0bac 0632 0005  | 2  |		.CONST	0x0632,0x0005
0bae 0634 0006  | 4  |		.CONST	0x0634,0x0006
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; Debug3 Subtable 0x15
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0bb2 064b 0001  | K  |		.CONST	0x064b,0x0001
0bb4 064d 0002  | M  |		.CONST	0x064d,0x0002
0bb6 0660 0003  | `  |		.CONST	0x0660,0x0003
0bb8 0662 0004  | b  |		.CONST	0x0662,0x0004
0bba ; --------------------------------------------------------------------------------------
0bba ; Debug3 Subtable 0x16
0bba ; --------------------------------------------------------------------------------------
0bba 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0bbc 066b 0001  | k  |		.CONST	0x066b,0x0001
0bbe 066f 0002  | o  |		.CONST	0x066f,0x0002
0bc0 067c 0003  | |  |		.CONST	0x067c,0x0003
0bc2 ; --------------------------------------------------------------------------------------
0bc2 ; Debug3 Subtable 0x17
0bc2 ; --------------------------------------------------------------------------------------
0bc2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0bc4 0683 0001  |    |		.CONST	0x0683,0x0001
0bc6 ; --------------------------------------------------------------------------------------
0bc6 ; Debug3 Subtable 0x18
0bc6 ; --------------------------------------------------------------------------------------
0bc6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0bc8 068b 0001  |    |		.CONST	0x068b,0x0001
0bca ; --------------------------------------------------------------------------------------
0bca ; Debug3 Subtable 0x19
0bca ; --------------------------------------------------------------------------------------
0bca 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
0bcc 0693 ffff  |    |		.CONST	0x0693,0xffff
0bce 0699 0001  |    |		.CONST	0x0699,0x0001
0bd0 069f 0002  |    |		.CONST	0x069f,0x0002
0bd2 06a3 0003  |    |		.CONST	0x06a3,0x0003
0bd4 06af 0004  |    |		.CONST	0x06af,0x0004
0bd6 06bb 0005  |    |		.CONST	0x06bb,0x0005
0bd8 06c2 0006  |    |		.CONST	0x06c2,0x0006
0bda 06c4 0007  |    |		.CONST	0x06c4,0x0007
0bdc ; --------------------------------------------------------------------------------------
0bdc ; Debug3 Subtable 0x1a
0bdc ; --------------------------------------------------------------------------------------
0bdc 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0bde 06cb ffff  |    |		.CONST	0x06cb,0xffff
0be0 06cd fffe  |    |		.CONST	0x06cd,0xfffe
0be2 06e0 0001  |    |		.CONST	0x06e0,0x0001
0be4 ; --------------------------------------------------------------------------------------
0be4 ; Debug3 Subtable 0x1b
0be4 ; --------------------------------------------------------------------------------------
0be4 0004 0003  |    |		.DBG3TAB	0x0004,0x0003
0be6 06fb ffff  |    |		.CONST	0x06fb,0xffff
0be8 06fd fffe  |    |		.CONST	0x06fd,0xfffe
0bea 06fe fffd  |    |		.CONST	0x06fe,0xfffd
0bec 0705 fffc  |    |		.CONST	0x0705,0xfffc
0bee 0718 0001  |    |		.CONST	0x0718,0x0001
0bf0 071e 0002  |    |		.CONST	0x071e,0x0002
0bf2 0731 0003  | 1  |		.CONST	0x0731,0x0003
0bf4 ; --------------------------------------------------------------------------------------
0bf4 ; Debug3 Subtable 0x1c
0bf4 ; --------------------------------------------------------------------------------------
0bf4 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
0bf6 073b ffff  | ;  |		.CONST	0x073b,0xffff
0bf8 073d fffe  | =  |		.CONST	0x073d,0xfffe
0bfa 0742 0001  | B  |		.CONST	0x0742,0x0001
0bfc 074b 0002  | K  |		.CONST	0x074b,0x0002
0bfe 074d 0003  | M  |		.CONST	0x074d,0x0003
0c00 074f 0004  | O  |		.CONST	0x074f,0x0004
0c02 ; --------------------------------------------------------------------------------------
0c02 ; Debug3 Subtable 0x1d
0c02 ; --------------------------------------------------------------------------------------
0c02 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0c04 0763 0001  | c  |		.CONST	0x0763,0x0001
0c06 ; --------------------------------------------------------------------------------------
0c06 ; Debug3 Subtable 0x1e
0c06 ; --------------------------------------------------------------------------------------
0c06 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0c08 076b 0001  | k  |		.CONST	0x076b,0x0001
0c0a ; --------------------------------------------------------------------------------------
0c0a ; Debug3 Subtable 0x1f
0c0a ; --------------------------------------------------------------------------------------
0c0a 0003 0007  |    |		.DBG3TAB	0x0003,0x0007
0c0c 0783 ffff  |    |		.CONST	0x0783,0xffff
0c0e 078a fffe  |    |		.CONST	0x078a,0xfffe
0c10 0791 fffd  |    |		.CONST	0x0791,0xfffd
0c12 0798 0001  |    |		.CONST	0x0798,0x0001
0c14 079e 0002  |    |		.CONST	0x079e,0x0002
0c16 07a4 0003  |    |		.CONST	0x07a4,0x0003
0c18 07aa 0004  |    |		.CONST	0x07aa,0x0004
0c1a 07af 0005  |    |		.CONST	0x07af,0x0005
0c1c 07b4 0006  |    |		.CONST	0x07b4,0x0006
0c1e 07b9 0007  |    |		.CONST	0x07b9,0x0007
0c20 ; --------------------------------------------------------------------------------------
0c20 ; Debug3 Subtable 0x20
0c20 ; --------------------------------------------------------------------------------------
0c20 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0c22 07c3 ffff  |    |		.CONST	0x07c3,0xffff
0c24 07ca 0001  |    |		.CONST	0x07ca,0x0001
0c26 07cf 0002  |    |		.CONST	0x07cf,0x0002
0c28 07d3 0003  |    |		.CONST	0x07d3,0x0003
0c2a 0000 0000  |    |		.BLANK	0000[0x1d6]