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

⟦28506624e⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5813_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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04f8       |    |		.CONST	0x04f8								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007a       | z  |		.CONST	0x007a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001a       |    |		.CONST	0x001a								; Number of locals
000b			INIT_0008:
000b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x0 = .DEBUG	0x000b,0x055a,0x8000,0x0000,0x005a,0x84c5,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0129       | )  |		Execute	Any,Make_Visible
000d 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 00bf       |    |		Action	Accept_Activation
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x001c,0x056c,0x8000,0x0000,0x005a,0x84d5,0x0000,0x000d
													; Debug Table 0x1.0x0 = 0x1c,0xffff
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x1d,0xfffe
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x3 = 0x1f,0xfffc
0020 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0021 0266       | f  |		Execute	Discrete,Bounds
0022 e002       |    |		Load	0x0,0x2
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 02a0       |    |		Declare_Subprogram	Null_Subprogram
0025 4801       |H   |		Short_Literal	0x1
0026 035d       | ]  |		Declare_Type	Array,Defined
0027 00d8       |    |		Load_Top	At_Offset_0
0028 0337       | 7  |		Declare_Variable	Array
0029 00d8       |    |		Load_Top	At_Offset_0
002a 0337       | 7  |		Declare_Variable	Array
002b 4800       |H   |		Short_Literal	0x0
002c 4800       |H   |		Short_Literal	0x0
002d 00da       |    |		Load_Top	At_Offset_2
002e 01d6       |    |		Execute	Vector,Field_Write
002f 4801       |H   |		Short_Literal	0x1
0030 4801       |H   |		Short_Literal	0x1
0031 00da       |    |		Load_Top	At_Offset_2
0032 01d6       |    |		Execute	Vector,Field_Write
0033 4806       |H   |		Short_Literal	0x6
0034 4802       |H   |		Short_Literal	0x2
0035 00da       |    |		Load_Top	At_Offset_2
0036 01d6       |    |		Execute	Vector,Field_Write
0037 480a       |H   |		Short_Literal	0xa
0038 4806       |H   |		Short_Literal	0x6
0039 00da       |    |		Load_Top	At_Offset_2
003a 01d6       |    |		Execute	Vector,Field_Write
003b 480c       |H   |		Short_Literal	0xc
003c 4803       |H   |		Short_Literal	0x3
003d 00da       |    |		Load_Top	At_Offset_2
003e 01d6       |    |		Execute	Vector,Field_Write
003f 4808       |H   |		Short_Literal	0x8
0040 4804       |H   |		Short_Literal	0x4
0041 00da       |    |		Load_Top	At_Offset_2
0042 01d6       |    |		Execute	Vector,Field_Write
0043 480e       |H   |		Short_Literal	0xe
0044 4807       |H   |		Short_Literal	0x7
0045 00da       |    |		Load_Top	At_Offset_2
0046 01d6       |    |		Execute	Vector,Field_Write
0047 480e       |H   |		Short_Literal	0xe
0048 4805       |H   |		Short_Literal	0x5
0049 00da       |    |		Load_Top	At_Offset_2
004a 01d6       |    |		Execute	Vector,Field_Write
004b 00d9       |    |		Load_Top	At_Offset_1
004c 01d4       |    |		Execute	Vector,Structure_Write
004d e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x4 = 0x4d,0xfffb
004e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
004f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0050 0266       | f  |		Execute	Discrete,Bounds
0051 e003       |    |		Load	0x0,0x3
0052 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 4801       |H   |		Short_Literal	0x1
0055 035d       | ]  |		Declare_Type	Array,Defined
0056 00d8       |    |		Load_Top	At_Offset_0
0057 0337       | 7  |		Declare_Variable	Array
0058 00d8       |    |		Load_Top	At_Offset_0
0059 0337       | 7  |		Declare_Variable	Array
005a 4800       |H   |		Short_Literal	0x0
005b 4800       |H   |		Short_Literal	0x0
005c 00da       |    |		Load_Top	At_Offset_2
005d 01d6       |    |		Execute	Vector,Field_Write
005e 4801       |H   |		Short_Literal	0x1
005f 4801       |H   |		Short_Literal	0x1
0060 00da       |    |		Load_Top	At_Offset_2
0061 01d6       |    |		Execute	Vector,Field_Write
0062 4802       |H   |		Short_Literal	0x2
0063 4802       |H   |		Short_Literal	0x2
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 00d9       |    |		Load_Top	At_Offset_1
0067 01d4       |    |		Execute	Vector,Structure_Write
0068 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x5 = 0x68,0xfffa
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 029d 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call			; Debug Table 0x1.0x6 = 0x6a,0xfff9
006c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x7 = 0x6c,0xfff8
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x8 = 0x6e,0xfff7
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x9 = 0x70,0xfff6
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xa = 0x72,0xfff5
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xb = 0x74,0xfff4
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 029d 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call			; Debug Table 0x1.0xc = 0x76,0xfff3
0078 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xd = 0x78,0xfff2
0079 00c7       |    |		Action	Elaborate_Subprogram
007a			BODY_0008:
007a 00bc       |    |		Action	Signal_Activated
007b 00bb       |    |		Action	Signal_Completion
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x0083,0x058a,0x0002,0x0000,0x005a,0x84c5,0x0000,0x0012
													; Debug Table 0x2.0x0 = 0x83,0x1
0084 00eb       |    |		Load_Encached	Diana_Cache
0085 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0086 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1 = 0x86,0x401
0087 021d       |    |		Execute	Heap_Access,Is_Null
0088 00d0       |    |		Action	Swap_Control
0089 00d1       |    |		Pop_Control	Pop_Count_1
008a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0x2.0x2 = 0x8a,0x1
008b 0000 0000  |    |		.BLANK	0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 0007       |    |		Action	Break_Optional							; Debug Table 0x3 = .DEBUG	0x0093,0x0592,0x0002,0x0000,0x005a,0x84c5,0x0000,0x001b
													; Debug Table 0x3.0x0 = 0x93,0x1
0094 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x1 = 0x94,0x401
0095 0007       |    |		Action	Break_Optional
0096 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x3.0x2 = 0x96,0x402
0097 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x3 = 0x97,0x403
0098 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x4 = 0x98,0x404
0099 0ba8       |    |		Execute_Immediate	Case_Compare,0xa8				; Debug Table 0x3.0x5 = 0x99,0x1
009a 705b       |p[  |		Jump_Nonzero	0xf6
009b 0ba3       |    |		Execute_Immediate	Case_Compare,0xa3
009c 705e       |p^  |		Jump_Nonzero	0xfb
009d 0b49       | I  |		Execute_Immediate	Case_Compare,0x49
009e 7093       |p   |		Jump_Nonzero	0x132
009f 0b47       | G  |		Execute_Immediate	Case_Compare,0x47
00a0 7096       |p   |		Jump_Nonzero	0x137
00a1 0b46       | F  |		Execute_Immediate	Case_Compare,0x46
00a2 7094       |p   |		Jump_Nonzero	0x137
00a3 0b48       | H  |		Execute_Immediate	Case_Compare,0x48
00a4 7092       |p   |		Jump_Nonzero	0x137
00a5 0b3e       | >  |		Execute_Immediate	Case_Compare,0x3e
00a6 709d       |p   |		Jump_Nonzero	0x144
00a7 0b3f       | ?  |		Execute_Immediate	Case_Compare,0x3f
00a8 709b       |p   |		Jump_Nonzero	0x144
00a9 0b41       | A  |		Execute_Immediate	Case_Compare,0x41
00aa 7099       |p   |		Jump_Nonzero	0x144
00ab 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d
00ac 7097       |p   |		Jump_Nonzero	0x144
00ad 0bab       |    |		Execute_Immediate	Case_Compare,0xab
00ae 70a2       |p   |		Jump_Nonzero	0x151
00af 0b3b       | ;  |		Execute_Immediate	Case_Compare,0x3b
00b0 70a3       |p   |		Jump_Nonzero	0x154
00b1 0b3c       | <  |		Execute_Immediate	Case_Compare,0x3c
00b2 70a1       |p   |		Jump_Nonzero	0x154
00b3 0b42       | B  |		Execute_Immediate	Case_Compare,0x42
00b4 70a6       |p   |		Jump_Nonzero	0x15b
00b5 0b43       | C  |		Execute_Immediate	Case_Compare,0x43
00b6 70a4       |p   |		Jump_Nonzero	0x15b
00b7 0b44       | D  |		Execute_Immediate	Case_Compare,0x44
00b8 70a2       |p   |		Jump_Nonzero	0x15b
00b9 0b12       |    |		Execute_Immediate	Case_Compare,0x12
00ba 70a5       |p   |		Jump_Nonzero	0x160
00bb 0b3a       | :  |		Execute_Immediate	Case_Compare,0x3a
00bc 70b0       |p   |		Jump_Nonzero	0x16d
00bd 0b37       | 7  |		Execute_Immediate	Case_Compare,0x37
00be 70b3       |p   |		Jump_Nonzero	0x172
00bf 0b38       | 8  |		Execute_Immediate	Case_Compare,0x38
00c0 70b6       |p   |		Jump_Nonzero	0x177
00c1 0b02       |    |		Execute_Immediate	Case_Compare,0x2
00c2 70b9       |p   |		Jump_Nonzero	0x17c
00c3 0b39       | 9  |		Execute_Immediate	Case_Compare,0x39
00c4 70bc       |p   |		Jump_Nonzero	0x181
00c5 0b40       | @  |		Execute_Immediate	Case_Compare,0x40
00c6 70bf       |p   |		Jump_Nonzero	0x186
00c7 0b45       | E  |		Execute_Immediate	Case_Compare,0x45
00c8 70c7       |p   |		Jump_Nonzero	0x190
00c9 0b85       |    |		Execute_Immediate	Case_Compare,0x85
00ca 70c8       |p   |		Jump_Nonzero	0x193
00cb 0b9f       |    |		Execute_Immediate	Case_Compare,0x9f
00cc 70c9       |p   |		Jump_Nonzero	0x196
00cd 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
00ce 70e2       |p   |		Jump_Nonzero	0x1b1
00cf 0b89       |    |		Execute_Immediate	Case_Compare,0x89
00d0 70ea       |p   |		Jump_Nonzero	0x1bb
00d1 0b84       |    |		Execute_Immediate	Case_Compare,0x84
00d2 7106       |q   |		Jump_Nonzero	0x1d9
00d3 0b91       |    |		Execute_Immediate	Case_Compare,0x91
00d4 7107       |q   |		Jump_Nonzero	0x1dc
00d5 0b8c       |    |		Execute_Immediate	Case_Compare,0x8c
00d6 7105       |q   |		Jump_Nonzero	0x1dc
00d7 0b95       |    |		Execute_Immediate	Case_Compare,0x95
00d8 7106       |q   |		Jump_Nonzero	0x1df
00d9 0b97       |    |		Execute_Immediate	Case_Compare,0x97
00da 7107       |q   |		Jump_Nonzero	0x1e2
00db 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x6 = 0xdb,0x1c
00dc e004       |    |		Load	0x0,0x4
00dd 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00de 6806       |h   |		Jump_Zero	0xe5
00df 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x7 = 0xdf,0x1d
00e0 00eb       |    |		Load_Encached	Diana_Cache
00e1 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
00e2 00eb       |    |		Load_Encached	Diana_Cache
00e3 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x8 = 0xe5,0x1e
00e6 e004       |    |		Load	0x0,0x4
00e7 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
00e8 6803       |h   |		Jump_Zero	0xec
00e9 0092 0430  |   0|		Action	Push_String_Extended,0x430					; "Statement"
													; Debug Table 0x3.0x9 = 0xe9,0x1f
00eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ec 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xa = 0xec,0x20
00ed e004       |    |		Load	0x0,0x4
00ee 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00ef 6803       |h   |		Jump_Zero	0xf3
00f0 0092 0431  |   1|		Action	Push_String_Extended,0x431					; "Declaration"
													; Debug Table 0x3.0xb = 0xf0,0x21
00f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f3 0092 0432  |   2|		Action	Push_String_Extended,0x432					; "..."
													; Debug Table 0x3.0xc = 0xf3,0x22
00f5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xd = 0xf6,0x2
00f7 00eb       |    |		Load_Encached	Diana_Cache
00f8 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
00f9 820f       |    |		Call	0x1,0xf
00fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xe = 0xfb,0x3
00fc 00eb       |    |		Load_Encached	Diana_Cache
00fd 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
00fe 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0xf = 0xfe,0x801
00ff 7002       |p   |		Jump_Nonzero	0x102
0100 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x10 = 0x100,0x802
0101 782c       |x,  |		Jump	0x12e
0102 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x11 = 0x102,0x803
0103 0217       |    |		Execute	Heap_Access,All_Reference
0104 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0105 6804       |h   |		Jump_Zero	0x10a
0106 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x12 = 0x106,0x804
0107 0217       |    |		Execute	Heap_Access,All_Reference
0108 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0109 7824       |x$  |		Jump	0x12e
010a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x13 = 0x10a,0x805
010b 0007       |    |		Action	Break_Optional
010c e404       |    |		Load	0x2,0x4								; Debug Table 0x3.0x14 = 0x10c,0xc01
010d 0007       |    |		Action	Break_Optional
010e 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x3.0x15 = 0x10e,0xc02
010f 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x16 = 0x10f,0xc03
0110 00d0       |    |		Action	Swap_Control							; Debug Table 0x3.0x17 = 0x110,0xc04
0111 00d1       |    |		Pop_Control	Pop_Count_1
0112 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x3.0x18 = 0x112,0x805
0113 00eb       |    |		Load_Encached	Diana_Cache
0114 0098       |    |		Execute	Package,Field_Read_Dynamic
0115 012c       | ,  |		Execute	Any,Size
0116 e005       |    |		Load	0x0,0x5
0117 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0118 025b       | [  |		Execute	Discrete,Check_In_Type
0119 0273       | s  |		Execute	Discrete,Plus
011a 00d9       |    |		Load_Top	At_Offset_1
011b 0007       |    |		Action	Break_Optional
011c e405       |    |		Load	0x2,0x5								; Debug Table 0x3.0x19 = 0x11c,0x1001
011d 0007       |    |		Action	Break_Optional
011e 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x3.0x1a = 0x11e,0x1002
011f 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x1b = 0x11f,0x1003
0120 00d0       |    |		Action	Swap_Control							; Debug Table 0x3.0x1c = 0x120,0x1004
0121 00d1       |    |		Pop_Control	Pop_Count_1
0122 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x3.0x1d = 0x122,0xc04
0123 00eb       |    |		Load_Encached	Diana_Cache
0124 0098       |    |		Execute	Package,Field_Read_Dynamic
0125 49c9       |I   |		Short_Literal	0x1c9
0126 00eb       |    |		Load_Encached	Diana_Cache
0127 0098       |    |		Execute	Package,Field_Read_Dynamic
0128 49ca       |I   |		Short_Literal	0x1ca
0129 00eb       |    |		Load_Encached	Diana_Cache
012a 0095       |    |		Execute	Package,Field_Reference_Dynamic
012b e006       |    |		Load	0x0,0x6
012c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
012d 7800       |x   |		Jump	0x12e
012e 00d0       |    |		Action	Swap_Control
012f 00d1       |    |		Pop_Control	Pop_Count_1
0130 820f       |    |		Call	0x1,0xf								; Debug Table 0x3.0x1e = 0x130,0x3
0131 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0132 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x1f = 0x132,0x4
0133 00eb       |    |		Load_Encached	Diana_Cache
0134 18e5       |    |		Execute	Package,Field_Execute,Field_Number 0xe5
0135 820f       |    |		Call	0x1,0xf
0136 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0137 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x20 = 0x137,0x5
0138 4976       |Iv  |		Short_Literal	0x176
0139 00eb       |    |		Load_Encached	Diana_Cache
013a 0098       |    |		Execute	Package,Field_Read_Dynamic
013b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
013c 00eb       |    |		Load_Encached	Diana_Cache
013d 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
013e 00eb       |    |		Load_Encached	Diana_Cache
013f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0140 0092 0433  |   3|		Action	Push_String_Extended,0x433					; "'Body"
0142 01cc       |    |		Execute	Vector,Catenate
0143 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0144 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x21 = 0x144,0x6
0145 4976       |Iv  |		Short_Literal	0x176
0146 00eb       |    |		Load_Encached	Diana_Cache
0147 0098       |    |		Execute	Package,Field_Read_Dynamic
0148 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0149 00eb       |    |		Load_Encached	Diana_Cache
014a 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
014b 00eb       |    |		Load_Encached	Diana_Cache
014c 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
014d 0092 0434  |   4|		Action	Push_String_Extended,0x434					; "'Spec"
014f 01cc       |    |		Execute	Vector,Catenate
0150 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0151 0092 0435  |   5|		Action	Push_String_Extended,0x435					; "Anonymous"
													; Debug Table 0x3.0x22 = 0x151,0x7
0153 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0154 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x23 = 0x154,0x8
0155 4976       |Iv  |		Short_Literal	0x176
0156 00eb       |    |		Load_Encached	Diana_Cache
0157 0098       |    |		Execute	Package,Field_Read_Dynamic
0158 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0159 820f       |    |		Call	0x1,0xf
015a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x24 = 0x15b,0x9
015c 00eb       |    |		Load_Encached	Diana_Cache
015d 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
015e 820f       |    |		Call	0x1,0xf
015f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0160 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x25 = 0x160,0xa
0161 00eb       |    |		Load_Encached	Diana_Cache
0162 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0163 820f       |    |		Call	0x1,0xf
0164 0092 0436  |   6|		Action	Push_String_Extended,0x436					; "."
0166 01cc       |    |		Execute	Vector,Catenate
0167 e5ff       |    |		Load	0x2,-0x1
0168 00eb       |    |		Load_Encached	Diana_Cache
0169 18c0       |    |		Execute	Package,Field_Execute,Field_Number 0xc0
016a 820f       |    |		Call	0x1,0xf
016b 01cc       |    |		Execute	Vector,Catenate
016c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016d 0092 0437  |   7|		Action	Push_String_Extended,0x437					; "Number declaration"
													; Debug Table 0x3.0x26 = 0x16d,0xb
016f e5ff       |    |		Load	0x2,-0x1
0170 8219       |    |		Call	0x1,0x19
0171 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0172 0092 0438  |   8|		Action	Push_String_Extended,0x438					; "Exception declaration"
													; Debug Table 0x3.0x27 = 0x172,0xc
0174 e5ff       |    |		Load	0x2,-0x1
0175 8219       |    |		Call	0x1,0x19
0176 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0177 0092 0439  |   9|		Action	Push_String_Extended,0x439					; "Constant declaration"
													; Debug Table 0x3.0x28 = 0x177,0xd
0179 e5ff       |    |		Load	0x2,-0x1
017a 8219       |    |		Call	0x1,0x19
017b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017c 0092 043a  |   :|		Action	Push_String_Extended,0x43a					; "Deferred Constant declaration"
													; Debug Table 0x3.0x29 = 0x17c,0xe
017e e5ff       |    |		Load	0x2,-0x1
017f 8219       |    |		Call	0x1,0x19
0180 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0181 0092 043b  |   ;|		Action	Push_String_Extended,0x43b					; "Variable declaration"
													; Debug Table 0x3.0x2a = 0x181,0xf
0183 e5ff       |    |		Load	0x2,-0x1
0184 8219       |    |		Call	0x1,0x19
0185 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0186 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x2b = 0x186,0x10
0187 e007       |    |		Load	0x0,0x7
0188 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0189 6803       |h   |		Jump_Zero	0x18d
018a 0092 043c  |   <|		Action	Push_String_Extended,0x43c					; "Comment"
													; Debug Table 0x3.0x2c = 0x18a,0x11
018c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018d 0092 043d  |   =|		Action	Push_String_Extended,0x43d					; "Pragma"
													; Debug Table 0x3.0x2d = 0x18d,0x12
018f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0190 0092 043e  |   >|		Action	Push_String_Extended,0x43e					; "Use declaration"
													; Debug Table 0x3.0x2e = 0x190,0x13
0192 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0193 0092 043f  |   ?|		Action	Push_String_Extended,0x43f					; "With declaration"
													; Debug Table 0x3.0x2f = 0x193,0x14
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x30 = 0x196,0x15
0197 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x31 = 0x197,0xebff
0198 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x32 = 0x198,0x1401
0199 00eb       |    |		Load_Encached	Diana_Cache
019a 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
019b 00eb       |    |		Load_Encached	Diana_Cache
019c 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
019d 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
019e 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x33 = 0x19e,0x1402
019f e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x34 = 0x19f,0x1801
01a0 0007       |    |		Action	Break_Optional
01a1 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x3.0x35 = 0x1a1,0x1802
01a2 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x36 = 0x1a2,0x1803
01a3 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x37 = 0x1a3,0x1804
01a4 0b4f       | O  |		Execute_Immediate	Case_Compare,0x4f				; Debug Table 0x3.0x38 = 0x1a4,0x1402
01a5 7005       |p   |		Jump_Nonzero	0x1ab
01a6 0b4e       | N  |		Execute_Immediate	Case_Compare,0x4e
01a7 7006       |p   |		Jump_Nonzero	0x1ae
01a8 0092 0440  |   @|		Action	Push_String_Extended,0x440					; " ..."
													; Debug Table 0x3.0x39 = 0x1a8,0x1405
01aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ab 0092 0441  |   A|		Action	Push_String_Extended,0x441					; "Case alternative"
													; Debug Table 0x3.0x3a = 0x1ab,0x1403
01ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ae 0092 0442  |   B|		Action	Push_String_Extended,0x442					; "Exception handler"
													; Debug Table 0x3.0x3b = 0x1ae,0x1404
01b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b1 4822       |H"  |		Short_Literal	0x22							; Debug Table 0x3.0x3c = 0x1b1,0x16
01b2 4822       |H"  |		Short_Literal	0x22
01b3 e5ff       |    |		Load	0x2,-0x1
01b4 00eb       |    |		Load_Encached	Diana_Cache
01b5 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01b6 00eb       |    |		Load_Encached	Diana_Cache
01b7 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
01b8 01ca       |    |		Execute	Vector,Prepend
01b9 01cb       |    |		Execute	Vector,Append
01ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bb 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x3d = 0x1bb,0x17
01bc 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x3e = 0x1bc,0xe3ff
01bd e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x3f = 0x1bd,0x1c01
01be 00eb       |    |		Load_Encached	Diana_Cache
01bf 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
01c0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01c1 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x40 = 0x1c1,0x1c02
01c2 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0x41 = 0x1c2,0x2001
01c3 0007       |    |		Action	Break_Optional
01c4 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x3.0x42 = 0x1c4,0x2002
01c5 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x43 = 0x1c5,0x2003
01c6 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x44 = 0x1c6,0x2004
01c7 0b00       |    |		Execute_Immediate	Case_Compare,0x0				; Debug Table 0x3.0x45 = 0x1c7,0x1c02
01c8 7007       |p   |		Jump_Nonzero	0x1d0
01c9 0b4f       | O  |		Execute_Immediate	Case_Compare,0x4f
01ca 7008       |p   |		Jump_Nonzero	0x1d3
01cb 0b4e       | N  |		Execute_Immediate	Case_Compare,0x4e
01cc 7009       |p   |		Jump_Nonzero	0x1d6
01cd 0092 0440  |   @|		Action	Push_String_Extended,0x440					; " ..."
													; Debug Table 0x3.0x46 = 0x1cd,0x1c06
01cf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d0 0092 0443  |   C|		Action	Push_String_Extended,0x443					; "Alternative list"
													; Debug Table 0x3.0x47 = 0x1d0,0x1c03
01d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d3 0092 0444  |   D|		Action	Push_String_Extended,0x444					; "Case alternative list"
													; Debug Table 0x3.0x48 = 0x1d3,0x1c04
01d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d6 0092 0445  |   E|		Action	Push_String_Extended,0x445					; "Exception handler list"
													; Debug Table 0x3.0x49 = 0x1d6,0x1c05
01d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d9 0092 0446  |   F|		Action	Push_String_Extended,0x446					; "Context list"
													; Debug Table 0x3.0x4a = 0x1d9,0x18
01db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01dc 0092 0447  |   G|		Action	Push_String_Extended,0x447					; "Declaration list"
													; Debug Table 0x3.0x4b = 0x1dc,0x19
01de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01df 0092 0448  |   H|		Action	Push_String_Extended,0x448					; "Pragma list"
													; Debug Table 0x3.0x4c = 0x1df,0x1a
01e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e2 0092 0449  |   I|		Action	Push_String_Extended,0x449					; "Statement list"
													; Debug Table 0x3.0x4d = 0x1e2,0x1b
01e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e5 0000 0000  |    |		.XXX[0x3]
01e7 0000       |    |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x01eb,0x0630,0x0002,0x0000,0x005a,0x84c5,0x0000,0x0024
													; Debug Table 0x4.0x0 = 0x1eb,0x1
01ec 0b89       |    |		Execute_Immediate	Case_Compare,0x89
01ed 7012       |p   |		Jump_Nonzero	0x200
01ee 0b84       |    |		Execute_Immediate	Case_Compare,0x84
01ef 7010       |p   |		Jump_Nonzero	0x200
01f0 0b8c       |    |		Execute_Immediate	Case_Compare,0x8c
01f1 700e       |p   |		Jump_Nonzero	0x200
01f2 0b8f       |    |		Execute_Immediate	Case_Compare,0x8f
01f3 700c       |p   |		Jump_Nonzero	0x200
01f4 0b91       |    |		Execute_Immediate	Case_Compare,0x91
01f5 700a       |p   |		Jump_Nonzero	0x200
01f6 0b95       |    |		Execute_Immediate	Case_Compare,0x95
01f7 7008       |p   |		Jump_Nonzero	0x200
01f8 0b97       |    |		Execute_Immediate	Case_Compare,0x97
01f9 7006       |p   |		Jump_Nonzero	0x200
01fa 0b72       | r  |		Execute_Immediate	Case_Compare,0x72
01fb 7004       |p   |		Jump_Nonzero	0x200
01fc 0ba2       |    |		Execute_Immediate	Case_Compare,0xa2
01fd 7002       |p   |		Jump_Nonzero	0x200
01fe 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x1 = 0x1fe,0x3
01ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0200 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0x2 = 0x200,0x2
0201 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0202 0000 0000  |    |		.BLANK	0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d       |    |		.CONST	0x020d								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0003       |    |		.CONST	0x0003								; Number of locals
020b			INIT_0208:
020b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5 = .DEBUG	0x020b,0x0638,0x0002,0x0000,0x005a,0x84c5,0x0000,0x002f
													; Debug Table 0x5.0x0 = 0x20b,0xffff
020c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x5.0x1 = 0x20c,0xfffe
020d			BODY_0208:
020d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x2 = 0x20d,0x1
020e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
020f 780b       |x   |		Jump	0x21b
0210 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x3 = 0x210,0x3
0211 00eb       |    |		Load_Encached	Diana_Cache
0212 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0213 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0214 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x4 = 0x214,0x4
0215 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x5 = 0x215,0x401
0216 021d       |    |		Execute	Heap_Access,Is_Null
0217 6801       |h   |		Jump_Zero	0x219							; Debug Table 0x5.0x6 = 0x217,0x4
0218 7806       |x   |		Jump	0x21f								; Debug Table 0x5.0x7 = 0x218,0x5
0219 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x8 = 0x219,0x6
021a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
021b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x9 = 0x21b,0x2
021c e004       |    |		Load	0x0,0x4
021d 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
021e 6ff1       |o   |		Jump_Zero	0x210
021f 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0xa = 0x21f,0x7
0220 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xb = 0x220,0x801
0221 0007       |    |		Action	Break_Optional
0222 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x5.0xc = 0x222,0x802
0223 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0xd = 0x223,0x803
0224 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0xe = 0x224,0x804
0225 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d				; Debug Table 0x5.0xf = 0x225,0x7
0226 7008       |p   |		Jump_Nonzero	0x22f
0227 0b3e       | >  |		Execute_Immediate	Case_Compare,0x3e
0228 7006       |p   |		Jump_Nonzero	0x22f
0229 0b3f       | ?  |		Execute_Immediate	Case_Compare,0x3f
022a 7004       |p   |		Jump_Nonzero	0x22f
022b 0b41       | A  |		Execute_Immediate	Case_Compare,0x41
022c 7002       |p   |		Jump_Nonzero	0x22f
022d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x10 = 0x22d,0x9
022e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x11 = 0x22f,0x8
0230 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0231 0000 0000  |    |		.BLANK	0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0244       | D  |		.CONST	0x0244								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0004       |    |		.CONST	0x0004								; Number of locals
023b			INIT_0238:
023b e002       |    |		Load	0x0,0x2								; Debug Table 0x6 = .DEBUG	0x023b,0x065e,0x0001,0x0000,0x005a,0x84c5,0x0000,0x0038
													; Debug Table 0x6.0x0 = 0x23b,0xffff
023c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023d e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0x23d,0xfffe
023e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023f e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x2 = 0x23f,0xfffd
0240 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0241 02ff       |    |		Declare_Variable	Variant_Record
0242 00d8       |    |		Load_Top	At_Offset_0
0243 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0244			BODY_0238:
0244 e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x3 = 0x244,0x1
0245 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0246 00d9       |    |		Load_Top	At_Offset_1
0247 4800       |H   |		Short_Literal	0x0
0248 e5fc       |    |		Load	0x2,-0x4
0249 e5fd       |    |		Load	0x2,-0x3
024a e5ff       |    |		Load	0x2,-0x1
024b e002       |    |		Load	0x0,0x2
024c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
024d 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
024e 00d1       |    |		Pop_Control	Pop_Count_1
024f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0250 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x4 = 0x250,0x2
0251 6803       |h   |		Jump_Zero	0x255
0252 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x5 = 0x252,0x3
0253 a5fa       |    |		Store_Unchecked	0x2,-0x6
0254 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x6.0x6 = 0x254,0x4
0255 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x7 = 0x255,0x5
0256 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0257 e5fb       |    |		Load	0x2,-0x5
0258 0120       |    |		Execute	Any,Is_Value
0259 6803       |h   |		Jump_Zero	0x25d
025a e008       |    |		Load	0x0,0x8
025b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025c 7801       |x   |		Jump	0x25e
025d e5fb       |    |		Load	0x2,-0x5
025e 4800       |H   |		Short_Literal	0x0
025f e5fd       |    |		Load	0x2,-0x3
0260 e009       |    |		Load	0x0,0x9
0261 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0262 e00a       |    |		Load	0x0,0xa
0263 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0264 e5fe       |    |		Load	0x2,-0x2
0265 e218       |    |		Load	0x1,0x18
0266 01d7       |    |		Execute	Vector,Field_Read
0267 e404       |    |		Load	0x2,0x4
0268 e008       |    |		Load	0x0,0x8
0269 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
026a c5fb       |    |		Store	0x2,-0x5
026b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
026c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x8 = 0x26c,0x6
026d e216       |    |		Load	0x1,0x16
026e 01d7       |    |		Execute	Vector,Field_Read
026f a5fa       |    |		Store_Unchecked	0x2,-0x6
0270 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0271 0000 0000  |    |		.BLANK	0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d       | }  |		.CONST	0x027d								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b e001       |    |		Load	0x0,0x1								; Debug Table 0x7 = .DEBUG	0x027b,0x0672,0x0001,0x0000,0x005a,0x84c5,0x0000,0x0067
													; Debug Table 0x7.0x0 = 0x27b,0xffff
027c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027d			BODY_0278:
027d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x1 = 0x27d,0x1
027e 680d       |h   |		Jump_Zero	0x28c
027f e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x2 = 0x27f,0x2
0280 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0281 e5fd       |    |		Load	0x2,-0x3
0282 4800       |H   |		Short_Literal	0x0
0283 e008       |    |		Load	0x0,0x8
0284 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0285 c5fd       |    |		Store	0x2,-0x3
0286 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0287 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x3 = 0x287,0x3
0288 e216       |    |		Load	0x1,0x16
0289 01d7       |    |		Execute	Vector,Field_Read
028a a5fc       |    |		Store_Unchecked	0x2,-0x4
028b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0x4 = 0x28c,0x4
028d a5fc       |    |		Store_Unchecked	0x2,-0x4
028e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028f 0000       |    |		.XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029e       |    |		.CONST	0x029e								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0004       |    |		.CONST	0x0004								; Number of locals
0293			INIT_0290:
0293 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8 = .DEBUG	0x0293,0x067e,0x0002,0x0000,0x005a,0x84c5,0x0000,0x0082
													; Debug Table 0x8.0x0 = 0x293,0xffff
0294 00db       |    |		Load_Top	At_Offset_3
0295 821a       |    |		Call	0x1,0x1a
0296 49a0       |I   |		Short_Literal	0x1a0
0297 00eb       |    |		Load_Encached	Diana_Cache
0298 0098       |    |		Execute	Package,Field_Read_Dynamic
0299 0334       | 4  |		Declare_Variable	Array,With_Constraint
029a 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x8.0x1 = 0x29a,0xfffe
029b 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
029c 029f 0373  |   s|		Declare_Subprogram	INIT_0370,For_Call				; Debug Table 0x8.0x2 = 0x29c,0xfffd
029e			BODY_0290:
029e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x3 = 0x29e,0x1
029f 01db       |    |		Execute	Vector,Length
02a0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02a1 6802       |h   |		Jump_Zero	0x2a4
02a2 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0x4 = 0x2a2,0x2
02a3 8404       |    |		Call	0x2,0x4
02a4 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0x5 = 0x2a4,0x3
02a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a6 0000 0000  |    |		.XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ac       |    |		.CONST	0x02ac								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0002       |    |		.CONST	0x0002								; Number of locals
02ab			INIT_02a8:
02ab 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x9 = .DEBUG	0x02ab,0x068c,0x0002,0x0000,0x005a,0x84d5,0x0000,0x00b3
													; Debug Table 0x9.0x0 = 0x2ab,0xffff
02ac			BODY_02a8:
02ac 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0x2ac,0x1
02ad 00eb       |    |		Load_Encached	Diana_Cache
02ae 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
02af 00eb       |    |		Load_Encached	Diana_Cache
02b0 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
02b1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02b2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x2 = 0x2b2,0x2
02b3 4975       |Iu  |		Short_Literal	0x175
02b4 00eb       |    |		Load_Encached	Diana_Cache
02b5 0098       |    |		Execute	Package,Field_Read_Dynamic
02b6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02b7 6839       |h9  |		Jump_Zero	0x2f1
02b8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x3 = 0x2b8,0x3
02b9 0007       |    |		Action	Break_Optional
02ba 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x4 = 0x2ba,0x401
02bb 7002       |p   |		Jump_Nonzero	0x2be
02bc 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9.0x5 = 0x2bc,0x402
02bd 782c       |x,  |		Jump	0x2ea
02be 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x6 = 0x2be,0x403
02bf 0217       |    |		Execute	Heap_Access,All_Reference
02c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c1 6804       |h   |		Jump_Zero	0x2c6
02c2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x7 = 0x2c2,0x404
02c3 0217       |    |		Execute	Heap_Access,All_Reference
02c4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02c5 7824       |x$  |		Jump	0x2ea
02c6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x8 = 0x2c6,0x405
02c7 0007       |    |		Action	Break_Optional
02c8 e404       |    |		Load	0x2,0x4								; Debug Table 0x9.0x9 = 0x2c8,0x801
02c9 0007       |    |		Action	Break_Optional
02ca 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x9.0xa = 0x2ca,0x802
02cb 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0xb = 0x2cb,0x803
02cc 00d0       |    |		Action	Swap_Control							; Debug Table 0x9.0xc = 0x2cc,0x804
02cd 00d1       |    |		Pop_Control	Pop_Count_1
02ce 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x9.0xd = 0x2ce,0x405
02cf 00eb       |    |		Load_Encached	Diana_Cache
02d0 0098       |    |		Execute	Package,Field_Read_Dynamic
02d1 012c       | ,  |		Execute	Any,Size
02d2 e005       |    |		Load	0x0,0x5
02d3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02d4 025b       | [  |		Execute	Discrete,Check_In_Type
02d5 0273       | s  |		Execute	Discrete,Plus
02d6 00d9       |    |		Load_Top	At_Offset_1
02d7 0007       |    |		Action	Break_Optional
02d8 e405       |    |		Load	0x2,0x5								; Debug Table 0x9.0xe = 0x2d8,0xc01
02d9 0007       |    |		Action	Break_Optional
02da 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x9.0xf = 0x2da,0xc02
02db 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x10 = 0x2db,0xc03
02dc 00d0       |    |		Action	Swap_Control							; Debug Table 0x9.0x11 = 0x2dc,0xc04
02dd 00d1       |    |		Pop_Control	Pop_Count_1
02de 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x9.0x12 = 0x2de,0x804
02df 00eb       |    |		Load_Encached	Diana_Cache
02e0 0098       |    |		Execute	Package,Field_Read_Dynamic
02e1 49c9       |I   |		Short_Literal	0x1c9
02e2 00eb       |    |		Load_Encached	Diana_Cache
02e3 0098       |    |		Execute	Package,Field_Read_Dynamic
02e4 49ca       |I   |		Short_Literal	0x1ca
02e5 00eb       |    |		Load_Encached	Diana_Cache
02e6 0095       |    |		Execute	Package,Field_Reference_Dynamic
02e7 e006       |    |		Load	0x0,0x6
02e8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02e9 7800       |x   |		Jump	0x2ea
02ea 00d0       |    |		Action	Swap_Control
02eb 00d1       |    |		Pop_Control	Pop_Count_1
02ec 00eb       |    |		Load_Encached	Diana_Cache						; Debug Table 0x9.0x13 = 0x2ec,0x3
02ed 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
02ee 00eb       |    |		Load_Encached	Diana_Cache
02ef 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
02f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f1 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x9.0x14 = 0x2f1,0x4
02f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f3 0000 0000  |    |		.BLANK	0000[0x5]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fe       |    |		.CONST	0x02fe								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0003       |    |		.CONST	0x0003								; Number of locals
02fb			INIT_02f8:
02fb 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0xa = .DEBUG	0x02fb,0x06b8,0x0002,0x0000,0x005a,0x84d5,0x0000,0x0491
													; Debug Table 0xa.0x0 = 0x2fb,0xffff
02fc 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xa.0x1 = 0x2fc,0xfffe
02fd 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02fe			BODY_02f8:
02fe 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x2 = 0x2fe,0x1
02ff e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x3 = 0x2ff,0x401
0300 0007       |    |		Action	Break_Optional
0301 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xa.0x4 = 0x301,0x402
0302 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x5 = 0x302,0x403
0303 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x6 = 0x303,0x404
0304 0b97       |    |		Execute_Immediate	Case_Compare,0x97				; Debug Table 0xa.0x7 = 0x304,0x1
0305 7007       |p   |		Jump_Nonzero	0x30d
0306 0b4e       | N  |		Execute_Immediate	Case_Compare,0x4e
0307 7050       |pP  |		Jump_Nonzero	0x358
0308 0b10       |    |		Execute_Immediate	Case_Compare,0x10
0309 7054       |pT  |		Jump_Nonzero	0x35e
030a 0b5b       | [  |		Execute_Immediate	Case_Compare,0x5b
030b 7052       |pR  |		Jump_Nonzero	0x35e
030c 785d       |x]  |		Jump	0x36a								; Debug Table 0xa.0x8 = 0x30c,0x9
030d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x9 = 0x30d,0x2
030e 00eb       |    |		Load_Encached	Diana_Cache
030f 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0310 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0311 7841       |xA  |		Jump	0x353
0312 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0xa = 0x312,0x4
0313 00db       |    |		Load_Top	At_Offset_3
0314 0007       |    |		Action	Break_Optional
0315 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xb = 0x315,0x801
0316 7002       |p   |		Jump_Nonzero	0x319
0317 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xa.0xc = 0x317,0x802
0318 782c       |x,  |		Jump	0x345
0319 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xd = 0x319,0x803
031a 0217       |    |		Execute	Heap_Access,All_Reference
031b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
031c 6804       |h   |		Jump_Zero	0x321
031d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xe = 0x31d,0x804
031e 0217       |    |		Execute	Heap_Access,All_Reference
031f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0320 7824       |x$  |		Jump	0x345
0321 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xf = 0x321,0x805
0322 0007       |    |		Action	Break_Optional
0323 e407       |    |		Load	0x2,0x7								; Debug Table 0xa.0x10 = 0x323,0xc01
0324 0007       |    |		Action	Break_Optional
0325 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0xa.0x11 = 0x325,0xc02
0326 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x12 = 0x326,0xc03
0327 00d0       |    |		Action	Swap_Control							; Debug Table 0xa.0x13 = 0x327,0xc04
0328 00d1       |    |		Pop_Control	Pop_Count_1
0329 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0xa.0x14 = 0x329,0x805
032a 00eb       |    |		Load_Encached	Diana_Cache
032b 0098       |    |		Execute	Package,Field_Read_Dynamic
032c 012c       | ,  |		Execute	Any,Size
032d e005       |    |		Load	0x0,0x5
032e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
032f 025b       | [  |		Execute	Discrete,Check_In_Type
0330 0273       | s  |		Execute	Discrete,Plus
0331 00d9       |    |		Load_Top	At_Offset_1
0332 0007       |    |		Action	Break_Optional
0333 e408       |    |		Load	0x2,0x8								; Debug Table 0xa.0x15 = 0x333,0x1001
0334 0007       |    |		Action	Break_Optional
0335 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0xa.0x16 = 0x335,0x1002
0336 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x17 = 0x336,0x1003
0337 00d0       |    |		Action	Swap_Control							; Debug Table 0xa.0x18 = 0x337,0x1004
0338 00d1       |    |		Pop_Control	Pop_Count_1
0339 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0xa.0x19 = 0x339,0xc04
033a 00eb       |    |		Load_Encached	Diana_Cache
033b 0098       |    |		Execute	Package,Field_Read_Dynamic
033c 49c9       |I   |		Short_Literal	0x1c9
033d 00eb       |    |		Load_Encached	Diana_Cache
033e 0098       |    |		Execute	Package,Field_Read_Dynamic
033f 49ca       |I   |		Short_Literal	0x1ca
0340 00eb       |    |		Load_Encached	Diana_Cache
0341 0095       |    |		Execute	Package,Field_Reference_Dynamic
0342 e006       |    |		Load	0x0,0x6
0343 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0344 7800       |x   |		Jump	0x345
0345 00d0       |    |		Action	Swap_Control
0346 00d1       |    |		Pop_Control	Pop_Count_1
0347 821a       |    |		Call	0x1,0x1a							; Debug Table 0xa.0x1a = 0x347,0x4
0348 0273       | s  |		Execute	Discrete,Plus
0349 005a       | Z  |		Store_Top	Discrete,At_Offset_2
034a 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x1b = 0x34a,0x5
034b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x1c = 0x34b,0x1401
034c 7002       |p   |		Jump_Nonzero	0x34f
034d 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0xa.0x1d = 0x34d,0x1402
034e 7803       |x   |		Jump	0x352
034f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x1e = 0x34f,0x1403
0350 0217       |    |		Execute	Heap_Access,All_Reference
0351 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0352 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3					; Debug Table 0xa.0x1f = 0x352,0x5
0353 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x20 = 0x353,0x3
0354 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x21 = 0x354,0x1801
0355 021d       |    |		Execute	Heap_Access,Is_Null
0356 6fbb       |o   |		Jump_Zero	0x312							; Debug Table 0xa.0x22 = 0x356,0x3
0357 7812       |x   |		Jump	0x36a
0358 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x23 = 0x358,0x6
0359 00eb       |    |		Load_Encached	Diana_Cache
035a 18e1       |    |		Execute	Package,Field_Execute,Field_Number 0xe1
035b 821a       |    |		Call	0x1,0x1a
035c 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
035d 780c       |x   |		Jump	0x36a
035e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x24 = 0x35e,0x7
035f 00eb       |    |		Load_Encached	Diana_Cache
0360 18d9       |    |		Execute	Package,Field_Execute,Field_Number 0xd9
0361 00eb       |    |		Load_Encached	Diana_Cache
0362 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0363 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0364 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x25 = 0x364,0x8
0365 4975       |Iu  |		Short_Literal	0x175
0366 00eb       |    |		Load_Encached	Diana_Cache
0367 0098       |    |		Execute	Package,Field_Read_Dynamic
0368 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0369 005a       | Z  |		Store_Top	Discrete,At_Offset_2
036a 00d1       |    |		Pop_Control	Pop_Count_1
036b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x26 = 0x36b,0xa
036c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036d 0000 0000  |    |		.XXX[0x3]
036f 0000       |    |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0375       | u  |		.CONST	0x0375								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0003       |    |		.CONST	0x0003								; Number of locals
0373			INIT_0370:
0373 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0xb = .DEBUG	0x0373,0x0708,0x0001,0x0000,0x005a,0x84d5,0x0000,0x053c
													; Debug Table 0xb.0x0 = 0x373,0xffff
0374 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0x1 = 0x374,0xfffe
0375			BODY_0370:
0375 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x2 = 0x375,0x1
0376 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0xb.0x3 = 0x376,0x401
0377 0007       |    |		Action	Break_Optional
0378 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xb.0x4 = 0x378,0x402
0379 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x5 = 0x379,0x403
037a 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x6 = 0x37a,0x404
037b 0b97       |    |		Execute_Immediate	Case_Compare,0x97				; Debug Table 0xb.0x7 = 0x37b,0x1
037c 7007       |p   |		Jump_Nonzero	0x384
037d 0b4e       | N  |		Execute_Immediate	Case_Compare,0x4e
037e 704d       |pM  |		Jump_Nonzero	0x3cc
037f 0b10       |    |		Execute_Immediate	Case_Compare,0x10
0380 7050       |pP  |		Jump_Nonzero	0x3d1
0381 0b5b       | [  |		Execute_Immediate	Case_Compare,0x5b
0382 704e       |pN  |		Jump_Nonzero	0x3d1
0383 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xb.0x8 = 0x383,0x10
0384 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0xb.0x9 = 0x384,0x2
0385 00eb       |    |		Load_Encached	Diana_Cache
0386 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0387 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0388 783e       |x>  |		Jump	0x3c7
0389 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0xa = 0x389,0x4
038a 0007       |    |		Action	Break_Optional
038b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0xb = 0x38b,0x801
038c 7002       |p   |		Jump_Nonzero	0x38f
038d 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0xc = 0x38d,0x802
038e 782c       |x,  |		Jump	0x3bb
038f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0xd = 0x38f,0x803
0390 0217       |    |		Execute	Heap_Access,All_Reference
0391 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0392 6804       |h   |		Jump_Zero	0x397
0393 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0xe = 0x393,0x804
0394 0217       |    |		Execute	Heap_Access,All_Reference
0395 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0396 7824       |x$  |		Jump	0x3bb
0397 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0xf = 0x397,0x805
0398 0007       |    |		Action	Break_Optional
0399 e606       |    |		Load	0x3,0x6								; Debug Table 0xb.0x10 = 0x399,0xc01
039a 0007       |    |		Action	Break_Optional
039b 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0xb.0x11 = 0x39b,0xc02
039c 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x12 = 0x39c,0xc03
039d 00d0       |    |		Action	Swap_Control							; Debug Table 0xb.0x13 = 0x39d,0xc04
039e 00d1       |    |		Pop_Control	Pop_Count_1
039f 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0xb.0x14 = 0x39f,0x805
03a0 00eb       |    |		Load_Encached	Diana_Cache
03a1 0098       |    |		Execute	Package,Field_Read_Dynamic
03a2 012c       | ,  |		Execute	Any,Size
03a3 e005       |    |		Load	0x0,0x5
03a4 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03a5 025b       | [  |		Execute	Discrete,Check_In_Type
03a6 0273       | s  |		Execute	Discrete,Plus
03a7 00d9       |    |		Load_Top	At_Offset_1
03a8 0007       |    |		Action	Break_Optional
03a9 e607       |    |		Load	0x3,0x7								; Debug Table 0xb.0x15 = 0x3a9,0x1001
03aa 0007       |    |		Action	Break_Optional
03ab 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0xb.0x16 = 0x3ab,0x1002
03ac 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x17 = 0x3ac,0x1003
03ad 00d0       |    |		Action	Swap_Control							; Debug Table 0xb.0x18 = 0x3ad,0x1004
03ae 00d1       |    |		Pop_Control	Pop_Count_1
03af 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0xb.0x19 = 0x3af,0xc04
03b0 00eb       |    |		Load_Encached	Diana_Cache
03b1 0098       |    |		Execute	Package,Field_Read_Dynamic
03b2 49c9       |I   |		Short_Literal	0x1c9
03b3 00eb       |    |		Load_Encached	Diana_Cache
03b4 0098       |    |		Execute	Package,Field_Read_Dynamic
03b5 49ca       |I   |		Short_Literal	0x1ca
03b6 00eb       |    |		Load_Encached	Diana_Cache
03b7 0095       |    |		Execute	Package,Field_Reference_Dynamic
03b8 e006       |    |		Load	0x0,0x6
03b9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03ba 7800       |x   |		Jump	0x3bb
03bb 00d0       |    |		Action	Swap_Control
03bc 00d1       |    |		Pop_Control	Pop_Count_1
03bd 8404       |    |		Call	0x2,0x4								; Debug Table 0xb.0x1a = 0x3bd,0x4
03be 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x1b = 0x3be,0x5
03bf 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x1c = 0x3bf,0x1401
03c0 7002       |p   |		Jump_Nonzero	0x3c3
03c1 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0xb.0x1d = 0x3c1,0x1402
03c2 7803       |x   |		Jump	0x3c6
03c3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x1e = 0x3c3,0x1403
03c4 0217       |    |		Execute	Heap_Access,All_Reference
03c5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03c6 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3					; Debug Table 0xb.0x1f = 0x3c6,0x5
03c7 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x20 = 0x3c7,0x3
03c8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x21 = 0x3c8,0x1801
03c9 021d       |    |		Execute	Heap_Access,Is_Null
03ca 6fbe       |o   |		Jump_Zero	0x389							; Debug Table 0xb.0x22 = 0x3ca,0x3
03cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03cc e7ff       |    |		Load	0x3,-0x1							; Debug Table 0xb.0x23 = 0x3cc,0x6
03cd 00eb       |    |		Load_Encached	Diana_Cache
03ce 18e1       |    |		Execute	Package,Field_Execute,Field_Number 0xe1
03cf 8404       |    |		Call	0x2,0x4
03d0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03d1 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0xb.0x24 = 0x3d1,0x7
03d2 00eb       |    |		Load_Encached	Diana_Cache
03d3 18d9       |    |		Execute	Package,Field_Execute,Field_Number 0xd9
03d4 00eb       |    |		Load_Encached	Diana_Cache
03d5 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
03d6 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
03d7 7853       |xS  |		Jump	0x42b
03d8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x25 = 0x3d8,0x9
03d9 0007       |    |		Action	Break_Optional
03da 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x26 = 0x3da,0x1c01
03db 7002       |p   |		Jump_Nonzero	0x3de
03dc 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0x27 = 0x3dc,0x1c02
03dd 782c       |x,  |		Jump	0x40a
03de 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x28 = 0x3de,0x1c03
03df 0217       |    |		Execute	Heap_Access,All_Reference
03e0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03e1 6804       |h   |		Jump_Zero	0x3e6
03e2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x29 = 0x3e2,0x1c04
03e3 0217       |    |		Execute	Heap_Access,All_Reference
03e4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03e5 7824       |x$  |		Jump	0x40a
03e6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x2a = 0x3e6,0x1c05
03e7 0007       |    |		Action	Break_Optional
03e8 e606       |    |		Load	0x3,0x6								; Debug Table 0xb.0x2b = 0x3e8,0x2001
03e9 0007       |    |		Action	Break_Optional
03ea 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0xb.0x2c = 0x3ea,0x2002
03eb 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x2d = 0x3eb,0x2003
03ec 00d0       |    |		Action	Swap_Control							; Debug Table 0xb.0x2e = 0x3ec,0x2004
03ed 00d1       |    |		Pop_Control	Pop_Count_1
03ee 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0xb.0x2f = 0x3ee,0x1c05
03ef 00eb       |    |		Load_Encached	Diana_Cache
03f0 0098       |    |		Execute	Package,Field_Read_Dynamic
03f1 012c       | ,  |		Execute	Any,Size
03f2 e005       |    |		Load	0x0,0x5
03f3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03f4 025b       | [  |		Execute	Discrete,Check_In_Type
03f5 0273       | s  |		Execute	Discrete,Plus
03f6 00d9       |    |		Load_Top	At_Offset_1
03f7 0007       |    |		Action	Break_Optional
03f8 e607       |    |		Load	0x3,0x7								; Debug Table 0xb.0x30 = 0x3f8,0x2401
03f9 0007       |    |		Action	Break_Optional
03fa 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0xb.0x31 = 0x3fa,0x2402
03fb 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x32 = 0x3fb,0x2403
03fc 00d0       |    |		Action	Swap_Control							; Debug Table 0xb.0x33 = 0x3fc,0x2404
03fd 00d1       |    |		Pop_Control	Pop_Count_1
03fe 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0xb.0x34 = 0x3fe,0x2004
03ff 00eb       |    |		Load_Encached	Diana_Cache
0400 0098       |    |		Execute	Package,Field_Read_Dynamic
0401 49c9       |I   |		Short_Literal	0x1c9
0402 00eb       |    |		Load_Encached	Diana_Cache
0403 0098       |    |		Execute	Package,Field_Read_Dynamic
0404 49ca       |I   |		Short_Literal	0x1ca
0405 00eb       |    |		Load_Encached	Diana_Cache
0406 0095       |    |		Execute	Package,Field_Reference_Dynamic
0407 e006       |    |		Load	0x0,0x6
0408 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0409 7800       |x   |		Jump	0x40a
040a 00d0       |    |		Action	Swap_Control
040b 00d1       |    |		Pop_Control	Pop_Count_1
040c 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2					; Debug Table 0xb.0x35 = 0x40c,0x9
040d 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x36 = 0x40d,0xa
040e e603       |    |		Load	0x3,0x3								; Debug Table 0xb.0x37 = 0x40e,0x2801
040f 0007       |    |		Action	Break_Optional
0410 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xb.0x38 = 0x410,0x2802
0411 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x39 = 0x411,0x2803
0412 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x3a = 0x412,0x2804
0413 0ba9       |    |		Execute_Immediate	Case_Compare,0xa9				; Debug Table 0xb.0x3b = 0x413,0xa
0414 7001       |p   |		Jump_Nonzero	0x416
0415 7804       |x   |		Jump	0x41a								; Debug Table 0xb.0x3c = 0x415,0xc
0416 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x3d = 0x416,0xb
0417 00eb       |    |		Load_Encached	Diana_Cache
0418 18b2       |    |		Execute	Package,Field_Execute,Field_Number 0xb2
0419 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
041a 00d1       |    |		Pop_Control	Pop_Count_1
041b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x3e = 0x41b,0xd
041c e403       |    |		Load	0x2,0x3
041d e402       |    |		Load	0x2,0x2
041e 01d6       |    |		Execute	Vector,Field_Write
041f e403       |    |		Load	0x2,0x3								; Debug Table 0xb.0x3f = 0x41f,0xe
0420 0a01       |    |		Execute_Immediate	Plus,0x1
0421 c403       |    |		Store	0x2,0x3
0422 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x40 = 0x422,0xf
0423 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x41 = 0x423,0x2c01
0424 7002       |p   |		Jump_Nonzero	0x427
0425 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0xb.0x42 = 0x425,0x2c02
0426 7803       |x   |		Jump	0x42a
0427 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x43 = 0x427,0x2c03
0428 0217       |    |		Execute	Heap_Access,All_Reference
0429 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
042a 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3					; Debug Table 0xb.0x44 = 0x42a,0xf
042b 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x45 = 0x42b,0x8
042c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x46 = 0x42c,0x3001
042d 021d       |    |		Execute	Heap_Access,Is_Null
042e 6fa9       |o   |		Jump_Zero	0x3d8							; Debug Table 0xb.0x47 = 0x42e,0x8
042f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0430 ; --------------------------------------------------------------------------------------
0430 ; STRING TABLE
0430 ; --------------------------------------------------------------------------------------
0430 0036       | 6  |		.STRTAB	0x0036->0x044b							; "Statement"
0431 003d       | =  |		.STRTAB	0x003d->0x044f							; "Declaration"
0432 0046       | F  |		.STRTAB	0x0046->0x0455							; "..."
0433 0047       | G  |		.STRTAB	0x0047->0x0456							; "'Body"
0434 004a       | J  |		.STRTAB	0x004a->0x0459							; "'Spec"
0435 004d       | M  |		.STRTAB	0x004d->0x045b							; "Anonymous"
0436 0054       | T  |		.STRTAB	0x0054->0x0460							; "."
0437 0053       | S  |		.STRTAB	0x0053->0x0460							; "Number declaration"
0438 0063       | c  |		.STRTAB	0x0063->0x0469							; "Exception declaration"
0439 0076       | v  |		.STRTAB	0x0076->0x0474							; "Constant declaration"
043a 0088       |    |		.STRTAB	0x0088->0x047e							; "Deferred Constant declaration"
043b 00a3       |    |		.STRTAB	0x00a3->0x048c							; "Variable declaration"
043c 00b5       |    |		.STRTAB	0x00b5->0x0496							; "Comment"
043d 00ba       |    |		.STRTAB	0x00ba->0x049a							; "Pragma"
043e 00be       |    |		.STRTAB	0x00be->0x049d							; "Use declaration"
043f 00cb       |    |		.STRTAB	0x00cb->0x04a4							; "With declaration"
0440 00d9       |    |		.STRTAB	0x00d9->0x04ac							; " ..."
0441 00db       |    |		.STRTAB	0x00db->0x04ae							; "Case alternative"
0442 00e9       |    |		.STRTAB	0x00e9->0x04b6							; "Exception handler"
0443 00f8       |    |		.STRTAB	0x00f8->0x04bf							; "Alternative list"
0444 0106       |    |		.STRTAB	0x0106->0x04c7							; "Case alternative list"
0445 0119       |    |		.STRTAB	0x0119->0x04d1							; "Exception handler list"
0446 012d       | -  |		.STRTAB	0x012d->0x04dc							; "Context list"
0447 0137       | 7  |		.STRTAB	0x0137->0x04e2							; "Declaration list"
0448 0145       | E  |		.STRTAB	0x0145->0x04ea							; "Pragma list"
0449 014e       | N  |		.STRTAB	0x014e->0x04f0							; "Statement list"
044a 015a       | Z  |		.STREND 0x015a->0x04f7
044b 5374 6174  |Stat|		.STRTAB_STRINGS
04f7 0000       |    |		.XXX[0x1]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug Table
04f8 ; --------------------------------------------------------------------------------------
04f8 0003 000c  |    |		.CONST	0x0003,0x000c
04fa 000b 055a  |   Z|		.DEBUG	0x000b,0x055a,0x8000,0x0000,0x005a,0x84c5,0x0000,0x000b
0502 001c 056c  |   l|		.DEBUG	0x001c,0x056c,0x8000,0x0000,0x005a,0x84d5,0x0000,0x000d
050a 0083 058a  |    |		.DEBUG	0x0083,0x058a,0x0002,0x0000,0x005a,0x84c5,0x0000,0x0012
0512 0093 0592  |    |		.DEBUG	0x0093,0x0592,0x0002,0x0000,0x005a,0x84c5,0x0000,0x001b
051a 01eb 0630  |   0|		.DEBUG	0x01eb,0x0630,0x0002,0x0000,0x005a,0x84c5,0x0000,0x0024
0522 020b 0638  |   8|		.DEBUG	0x020b,0x0638,0x0002,0x0000,0x005a,0x84c5,0x0000,0x002f
052a 023b 065e  | ; ^|		.DEBUG	0x023b,0x065e,0x0001,0x0000,0x005a,0x84c5,0x0000,0x0038
0532 027b 0672  | { r|		.DEBUG	0x027b,0x0672,0x0001,0x0000,0x005a,0x84c5,0x0000,0x0067
053a 0293 067e  |   ~|		.DEBUG	0x0293,0x067e,0x0002,0x0000,0x005a,0x84c5,0x0000,0x0082
0542 02ab 068c  |    |		.DEBUG	0x02ab,0x068c,0x0002,0x0000,0x005a,0x84d5,0x0000,0x00b3
054a 02fb 06b8  |    |		.DEBUG	0x02fb,0x06b8,0x0002,0x0000,0x005a,0x84d5,0x0000,0x0491
0552 0373 0708  | s  |		.DEBUG	0x0373,0x0708,0x0001,0x0000,0x005a,0x84d5,0x0000,0x053c
055a ; --------------------------------------------------------------------------------------
055a ; Debug3 Subtable 0x0
055a ; --------------------------------------------------------------------------------------
055a 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
055c 000b ffff  |    |		.CONST	0x000b,0xffff
055e 000d fffe  |    |		.CONST	0x000d,0xfffe
0560 000f fffd  |    |		.CONST	0x000f,0xfffd
0562 0011 fffc  |    |		.CONST	0x0011,0xfffc
0564 0013 fffb  |    |		.CONST	0x0013,0xfffb
0566 0015 fffa  |    |		.CONST	0x0015,0xfffa
0568 0017 fff9  |    |		.CONST	0x0017,0xfff9
056a 0019 fff8  |    |		.CONST	0x0019,0xfff8
056c ; --------------------------------------------------------------------------------------
056c ; Debug3 Subtable 0x1
056c ; --------------------------------------------------------------------------------------
056c 000e 0000  |    |		.DBG3TAB	0x000e,0x0000
056e 001c ffff  |    |		.CONST	0x001c,0xffff
0570 001d fffe  |    |		.CONST	0x001d,0xfffe
0572 001e fffd  |    |		.CONST	0x001e,0xfffd
0574 001f fffc  |    |		.CONST	0x001f,0xfffc
0576 004d fffb  | M  |		.CONST	0x004d,0xfffb
0578 0068 fffa  | h  |		.CONST	0x0068,0xfffa
057a 006a fff9  | j  |		.CONST	0x006a,0xfff9
057c 006c fff8  | l  |		.CONST	0x006c,0xfff8
057e 006e fff7  | n  |		.CONST	0x006e,0xfff7
0580 0070 fff6  | p  |		.CONST	0x0070,0xfff6
0582 0072 fff5  | r  |		.CONST	0x0072,0xfff5
0584 0074 fff4  | t  |		.CONST	0x0074,0xfff4
0586 0076 fff3  | v  |		.CONST	0x0076,0xfff3
0588 0078 fff2  | x  |		.CONST	0x0078,0xfff2
058a ; --------------------------------------------------------------------------------------
058a ; Debug3 Subtable 0x2
058a ; --------------------------------------------------------------------------------------
058a 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
058c 0083 0001  |    |		.CONST	0x0083,0x0001
058e 0086 0401  |    |		.CONST	0x0086,0x0401
0590 008a 0001  |    |		.CONST	0x008a,0x0001
0592 ; --------------------------------------------------------------------------------------
0592 ; Debug3 Subtable 0x3
0592 ; --------------------------------------------------------------------------------------
0592 0002 004c  |   L|		.DBG3TAB	0x0002,0x004c
0594 0093 0001  |    |		.CONST	0x0093,0x0001
0596 0094 0401  |    |		.CONST	0x0094,0x0401
0598 0096 0402  |    |		.CONST	0x0096,0x0402
059a 0097 0403  |    |		.CONST	0x0097,0x0403
059c 0098 0404  |    |		.CONST	0x0098,0x0404
059e 0099 0001  |    |		.CONST	0x0099,0x0001
05a0 00db 001c  |    |		.CONST	0x00db,0x001c
05a2 00df 001d  |    |		.CONST	0x00df,0x001d
05a4 00e5 001e  |    |		.CONST	0x00e5,0x001e
05a6 00e9 001f  |    |		.CONST	0x00e9,0x001f
05a8 00ec 0020  |    |		.CONST	0x00ec,0x0020
05aa 00f0 0021  |   !|		.CONST	0x00f0,0x0021
05ac 00f3 0022  |   "|		.CONST	0x00f3,0x0022
05ae 00f6 0002  |    |		.CONST	0x00f6,0x0002
05b0 00fb 0003  |    |		.CONST	0x00fb,0x0003
05b2 00fe 0801  |    |		.CONST	0x00fe,0x0801
05b4 0100 0802  |    |		.CONST	0x0100,0x0802
05b6 0102 0803  |    |		.CONST	0x0102,0x0803
05b8 0106 0804  |    |		.CONST	0x0106,0x0804
05ba 010a 0805  |    |		.CONST	0x010a,0x0805
05bc 010c 0c01  |    |		.CONST	0x010c,0x0c01
05be 010e 0c02  |    |		.CONST	0x010e,0x0c02
05c0 010f 0c03  |    |		.CONST	0x010f,0x0c03
05c2 0110 0c04  |    |		.CONST	0x0110,0x0c04
05c4 0112 0805  |    |		.CONST	0x0112,0x0805
05c6 011c 1001  |    |		.CONST	0x011c,0x1001
05c8 011e 1002  |    |		.CONST	0x011e,0x1002
05ca 011f 1003  |    |		.CONST	0x011f,0x1003
05cc 0120 1004  |    |		.CONST	0x0120,0x1004
05ce 0122 0c04  | "  |		.CONST	0x0122,0x0c04
05d0 0130 0003  | 0  |		.CONST	0x0130,0x0003
05d2 0132 0004  | 2  |		.CONST	0x0132,0x0004
05d4 0137 0005  | 7  |		.CONST	0x0137,0x0005
05d6 0144 0006  | D  |		.CONST	0x0144,0x0006
05d8 0151 0007  | Q  |		.CONST	0x0151,0x0007
05da 0154 0008  | T  |		.CONST	0x0154,0x0008
05dc 015b 0009  | [  |		.CONST	0x015b,0x0009
05de 0160 000a  | `  |		.CONST	0x0160,0x000a
05e0 016d 000b  | m  |		.CONST	0x016d,0x000b
05e2 0172 000c  | r  |		.CONST	0x0172,0x000c
05e4 0177 000d  | w  |		.CONST	0x0177,0x000d
05e6 017c 000e  | |  |		.CONST	0x017c,0x000e
05e8 0181 000f  |    |		.CONST	0x0181,0x000f
05ea 0186 0010  |    |		.CONST	0x0186,0x0010
05ec 018a 0011  |    |		.CONST	0x018a,0x0011
05ee 018d 0012  |    |		.CONST	0x018d,0x0012
05f0 0190 0013  |    |		.CONST	0x0190,0x0013
05f2 0193 0014  |    |		.CONST	0x0193,0x0014
05f4 0196 0015  |    |		.CONST	0x0196,0x0015
05f6 0197 ebff  |    |		.CONST	0x0197,0xebff
05f8 0198 1401  |    |		.CONST	0x0198,0x1401
05fa 019e 1402  |    |		.CONST	0x019e,0x1402
05fc 019f 1801  |    |		.CONST	0x019f,0x1801
05fe 01a1 1802  |    |		.CONST	0x01a1,0x1802
0600 01a2 1803  |    |		.CONST	0x01a2,0x1803
0602 01a3 1804  |    |		.CONST	0x01a3,0x1804
0604 01a4 1402  |    |		.CONST	0x01a4,0x1402
0606 01a8 1405  |    |		.CONST	0x01a8,0x1405
0608 01ab 1403  |    |		.CONST	0x01ab,0x1403
060a 01ae 1404  |    |		.CONST	0x01ae,0x1404
060c 01b1 0016  |    |		.CONST	0x01b1,0x0016
060e 01bb 0017  |    |		.CONST	0x01bb,0x0017
0610 01bc e3ff  |    |		.CONST	0x01bc,0xe3ff
0612 01bd 1c01  |    |		.CONST	0x01bd,0x1c01
0614 01c1 1c02  |    |		.CONST	0x01c1,0x1c02
0616 01c2 2001  |    |		.CONST	0x01c2,0x2001
0618 01c4 2002  |    |		.CONST	0x01c4,0x2002
061a 01c5 2003  |    |		.CONST	0x01c5,0x2003
061c 01c6 2004  |    |		.CONST	0x01c6,0x2004
061e 01c7 1c02  |    |		.CONST	0x01c7,0x1c02
0620 01cd 1c06  |    |		.CONST	0x01cd,0x1c06
0622 01d0 1c03  |    |		.CONST	0x01d0,0x1c03
0624 01d3 1c04  |    |		.CONST	0x01d3,0x1c04
0626 01d6 1c05  |    |		.CONST	0x01d6,0x1c05
0628 01d9 0018  |    |		.CONST	0x01d9,0x0018
062a 01dc 0019  |    |		.CONST	0x01dc,0x0019
062c 01df 001a  |    |		.CONST	0x01df,0x001a
062e 01e2 001b  |    |		.CONST	0x01e2,0x001b
0630 ; --------------------------------------------------------------------------------------
0630 ; Debug3 Subtable 0x4
0630 ; --------------------------------------------------------------------------------------
0630 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0632 01eb 0001  |    |		.CONST	0x01eb,0x0001
0634 01fe 0003  |    |		.CONST	0x01fe,0x0003
0636 0200 0002  |    |		.CONST	0x0200,0x0002
0638 ; --------------------------------------------------------------------------------------
0638 ; Debug3 Subtable 0x5
0638 ; --------------------------------------------------------------------------------------
0638 0002 0010  |    |		.DBG3TAB	0x0002,0x0010
063a 020b ffff  |    |		.CONST	0x020b,0xffff
063c 020c fffe  |    |		.CONST	0x020c,0xfffe
063e 020d 0001  |    |		.CONST	0x020d,0x0001
0640 0210 0003  |    |		.CONST	0x0210,0x0003
0642 0214 0004  |    |		.CONST	0x0214,0x0004
0644 0215 0401  |    |		.CONST	0x0215,0x0401
0646 0217 0004  |    |		.CONST	0x0217,0x0004
0648 0218 0005  |    |		.CONST	0x0218,0x0005
064a 0219 0006  |    |		.CONST	0x0219,0x0006
064c 021b 0002  |    |		.CONST	0x021b,0x0002
064e 021f 0007  |    |		.CONST	0x021f,0x0007
0650 0220 0801  |    |		.CONST	0x0220,0x0801
0652 0222 0802  | "  |		.CONST	0x0222,0x0802
0654 0223 0803  | #  |		.CONST	0x0223,0x0803
0656 0224 0804  | $  |		.CONST	0x0224,0x0804
0658 0225 0007  | %  |		.CONST	0x0225,0x0007
065a 022d 0009  | -  |		.CONST	0x022d,0x0009
065c 022f 0008  | /  |		.CONST	0x022f,0x0008
065e ; --------------------------------------------------------------------------------------
065e ; Debug3 Subtable 0x6
065e ; --------------------------------------------------------------------------------------
065e 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
0660 023b ffff  | ;  |		.CONST	0x023b,0xffff
0662 023d fffe  | =  |		.CONST	0x023d,0xfffe
0664 023f fffd  | ?  |		.CONST	0x023f,0xfffd
0666 0244 0001  | D  |		.CONST	0x0244,0x0001
0668 0250 0002  | P  |		.CONST	0x0250,0x0002
066a 0252 0003  | R  |		.CONST	0x0252,0x0003
066c 0254 0004  | T  |		.CONST	0x0254,0x0004
066e 0255 0005  | U  |		.CONST	0x0255,0x0005
0670 026c 0006  | l  |		.CONST	0x026c,0x0006
0672 ; --------------------------------------------------------------------------------------
0672 ; Debug3 Subtable 0x7
0672 ; --------------------------------------------------------------------------------------
0672 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0674 027b ffff  | {  |		.CONST	0x027b,0xffff
0676 027d 0001  | }  |		.CONST	0x027d,0x0001
0678 027f 0002  |    |		.CONST	0x027f,0x0002
067a 0287 0003  |    |		.CONST	0x0287,0x0003
067c 028c 0004  |    |		.CONST	0x028c,0x0004
067e ; --------------------------------------------------------------------------------------
067e ; Debug3 Subtable 0x8
067e ; --------------------------------------------------------------------------------------
067e 0003 0003  |    |		.DBG3TAB	0x0003,0x0003
0680 0293 ffff  |    |		.CONST	0x0293,0xffff
0682 029a fffe  |    |		.CONST	0x029a,0xfffe
0684 029c fffd  |    |		.CONST	0x029c,0xfffd
0686 029e 0001  |    |		.CONST	0x029e,0x0001
0688 02a2 0002  |    |		.CONST	0x02a2,0x0002
068a 02a4 0003  |    |		.CONST	0x02a4,0x0003
068c ; --------------------------------------------------------------------------------------
068c ; Debug3 Subtable 0x9
068c ; --------------------------------------------------------------------------------------
068c 0001 0014  |    |		.DBG3TAB	0x0001,0x0014
068e 02ab ffff  |    |		.CONST	0x02ab,0xffff
0690 02ac 0001  |    |		.CONST	0x02ac,0x0001
0692 02b2 0002  |    |		.CONST	0x02b2,0x0002
0694 02b8 0003  |    |		.CONST	0x02b8,0x0003
0696 02ba 0401  |    |		.CONST	0x02ba,0x0401
0698 02bc 0402  |    |		.CONST	0x02bc,0x0402
069a 02be 0403  |    |		.CONST	0x02be,0x0403
069c 02c2 0404  |    |		.CONST	0x02c2,0x0404
069e 02c6 0405  |    |		.CONST	0x02c6,0x0405
06a0 02c8 0801  |    |		.CONST	0x02c8,0x0801
06a2 02ca 0802  |    |		.CONST	0x02ca,0x0802
06a4 02cb 0803  |    |		.CONST	0x02cb,0x0803
06a6 02cc 0804  |    |		.CONST	0x02cc,0x0804
06a8 02ce 0405  |    |		.CONST	0x02ce,0x0405
06aa 02d8 0c01  |    |		.CONST	0x02d8,0x0c01
06ac 02da 0c02  |    |		.CONST	0x02da,0x0c02
06ae 02db 0c03  |    |		.CONST	0x02db,0x0c03
06b0 02dc 0c04  |    |		.CONST	0x02dc,0x0c04
06b2 02de 0804  |    |		.CONST	0x02de,0x0804
06b4 02ec 0003  |    |		.CONST	0x02ec,0x0003
06b6 02f1 0004  |    |		.CONST	0x02f1,0x0004
06b8 ; --------------------------------------------------------------------------------------
06b8 ; Debug3 Subtable 0xa
06b8 ; --------------------------------------------------------------------------------------
06b8 0002 0025  |   %|		.DBG3TAB	0x0002,0x0025
06ba 02fb ffff  |    |		.CONST	0x02fb,0xffff
06bc 02fc fffe  |    |		.CONST	0x02fc,0xfffe
06be 02fe 0001  |    |		.CONST	0x02fe,0x0001
06c0 02ff 0401  |    |		.CONST	0x02ff,0x0401
06c2 0301 0402  |    |		.CONST	0x0301,0x0402
06c4 0302 0403  |    |		.CONST	0x0302,0x0403
06c6 0303 0404  |    |		.CONST	0x0303,0x0404
06c8 0304 0001  |    |		.CONST	0x0304,0x0001
06ca 030c 0009  |    |		.CONST	0x030c,0x0009
06cc 030d 0002  |    |		.CONST	0x030d,0x0002
06ce 0312 0004  |    |		.CONST	0x0312,0x0004
06d0 0315 0801  |    |		.CONST	0x0315,0x0801
06d2 0317 0802  |    |		.CONST	0x0317,0x0802
06d4 0319 0803  |    |		.CONST	0x0319,0x0803
06d6 031d 0804  |    |		.CONST	0x031d,0x0804
06d8 0321 0805  | !  |		.CONST	0x0321,0x0805
06da 0323 0c01  | #  |		.CONST	0x0323,0x0c01
06dc 0325 0c02  | %  |		.CONST	0x0325,0x0c02
06de 0326 0c03  | &  |		.CONST	0x0326,0x0c03
06e0 0327 0c04  | '  |		.CONST	0x0327,0x0c04
06e2 0329 0805  | )  |		.CONST	0x0329,0x0805
06e4 0333 1001  | 3  |		.CONST	0x0333,0x1001
06e6 0335 1002  | 5  |		.CONST	0x0335,0x1002
06e8 0336 1003  | 6  |		.CONST	0x0336,0x1003
06ea 0337 1004  | 7  |		.CONST	0x0337,0x1004
06ec 0339 0c04  | 9  |		.CONST	0x0339,0x0c04
06ee 0347 0004  | G  |		.CONST	0x0347,0x0004
06f0 034a 0005  | J  |		.CONST	0x034a,0x0005
06f2 034b 1401  | K  |		.CONST	0x034b,0x1401
06f4 034d 1402  | M  |		.CONST	0x034d,0x1402
06f6 034f 1403  | O  |		.CONST	0x034f,0x1403
06f8 0352 0005  | R  |		.CONST	0x0352,0x0005
06fa 0353 0003  | S  |		.CONST	0x0353,0x0003
06fc 0354 1801  | T  |		.CONST	0x0354,0x1801
06fe 0356 0003  | V  |		.CONST	0x0356,0x0003
0700 0358 0006  | X  |		.CONST	0x0358,0x0006
0702 035e 0007  | ^  |		.CONST	0x035e,0x0007
0704 0364 0008  | d  |		.CONST	0x0364,0x0008
0706 036b 000a  | k  |		.CONST	0x036b,0x000a
0708 ; --------------------------------------------------------------------------------------
0708 ; Debug3 Subtable 0xb
0708 ; --------------------------------------------------------------------------------------
0708 0002 0046  |   F|		.DBG3TAB	0x0002,0x0046
070a 0373 ffff  | s  |		.CONST	0x0373,0xffff
070c 0374 fffe  | t  |		.CONST	0x0374,0xfffe
070e 0375 0001  | u  |		.CONST	0x0375,0x0001
0710 0376 0401  | v  |		.CONST	0x0376,0x0401
0712 0378 0402  | x  |		.CONST	0x0378,0x0402
0714 0379 0403  | y  |		.CONST	0x0379,0x0403
0716 037a 0404  | z  |		.CONST	0x037a,0x0404
0718 037b 0001  | {  |		.CONST	0x037b,0x0001
071a 0383 0010  |    |		.CONST	0x0383,0x0010
071c 0384 0002  |    |		.CONST	0x0384,0x0002
071e 0389 0004  |    |		.CONST	0x0389,0x0004
0720 038b 0801  |    |		.CONST	0x038b,0x0801
0722 038d 0802  |    |		.CONST	0x038d,0x0802
0724 038f 0803  |    |		.CONST	0x038f,0x0803
0726 0393 0804  |    |		.CONST	0x0393,0x0804
0728 0397 0805  |    |		.CONST	0x0397,0x0805
072a 0399 0c01  |    |		.CONST	0x0399,0x0c01
072c 039b 0c02  |    |		.CONST	0x039b,0x0c02
072e 039c 0c03  |    |		.CONST	0x039c,0x0c03
0730 039d 0c04  |    |		.CONST	0x039d,0x0c04
0732 039f 0805  |    |		.CONST	0x039f,0x0805
0734 03a9 1001  |    |		.CONST	0x03a9,0x1001
0736 03ab 1002  |    |		.CONST	0x03ab,0x1002
0738 03ac 1003  |    |		.CONST	0x03ac,0x1003
073a 03ad 1004  |    |		.CONST	0x03ad,0x1004
073c 03af 0c04  |    |		.CONST	0x03af,0x0c04
073e 03bd 0004  |    |		.CONST	0x03bd,0x0004
0740 03be 0005  |    |		.CONST	0x03be,0x0005
0742 03bf 1401  |    |		.CONST	0x03bf,0x1401
0744 03c1 1402  |    |		.CONST	0x03c1,0x1402
0746 03c3 1403  |    |		.CONST	0x03c3,0x1403
0748 03c6 0005  |    |		.CONST	0x03c6,0x0005
074a 03c7 0003  |    |		.CONST	0x03c7,0x0003
074c 03c8 1801  |    |		.CONST	0x03c8,0x1801
074e 03ca 0003  |    |		.CONST	0x03ca,0x0003
0750 03cc 0006  |    |		.CONST	0x03cc,0x0006
0752 03d1 0007  |    |		.CONST	0x03d1,0x0007
0754 03d8 0009  |    |		.CONST	0x03d8,0x0009
0756 03da 1c01  |    |		.CONST	0x03da,0x1c01
0758 03dc 1c02  |    |		.CONST	0x03dc,0x1c02
075a 03de 1c03  |    |		.CONST	0x03de,0x1c03
075c 03e2 1c04  |    |		.CONST	0x03e2,0x1c04
075e 03e6 1c05  |    |		.CONST	0x03e6,0x1c05
0760 03e8 2001  |    |		.CONST	0x03e8,0x2001
0762 03ea 2002  |    |		.CONST	0x03ea,0x2002
0764 03eb 2003  |    |		.CONST	0x03eb,0x2003
0766 03ec 2004  |    |		.CONST	0x03ec,0x2004
0768 03ee 1c05  |    |		.CONST	0x03ee,0x1c05
076a 03f8 2401  |  $ |		.CONST	0x03f8,0x2401
076c 03fa 2402  |  $ |		.CONST	0x03fa,0x2402
076e 03fb 2403  |  $ |		.CONST	0x03fb,0x2403
0770 03fc 2404  |  $ |		.CONST	0x03fc,0x2404
0772 03fe 2004  |    |		.CONST	0x03fe,0x2004
0774 040c 0009  |    |		.CONST	0x040c,0x0009
0776 040d 000a  |    |		.CONST	0x040d,0x000a
0778 040e 2801  |  ( |		.CONST	0x040e,0x2801
077a 0410 2802  |  ( |		.CONST	0x0410,0x2802
077c 0411 2803  |  ( |		.CONST	0x0411,0x2803
077e 0412 2804  |  ( |		.CONST	0x0412,0x2804
0780 0413 000a  |    |		.CONST	0x0413,0x000a
0782 0415 000c  |    |		.CONST	0x0415,0x000c
0784 0416 000b  |    |		.CONST	0x0416,0x000b
0786 041b 000d  |    |		.CONST	0x041b,0x000d
0788 041f 000e  |    |		.CONST	0x041f,0x000e
078a 0422 000f  | "  |		.CONST	0x0422,0x000f
078c 0423 2c01  | #, |		.CONST	0x0423,0x2c01
078e 0425 2c02  | %, |		.CONST	0x0425,0x2c02
0790 0427 2c03  | ', |		.CONST	0x0427,0x2c03
0792 042a 000f  | *  |		.CONST	0x042a,0x000f
0794 042b 0008  | +  |		.CONST	0x042b,0x0008
0796 042c 3001  | ,0 |		.CONST	0x042c,0x3001
0798 042e 0008  | .  |		.CONST	0x042e,0x0008
079a 0000 0000  |    |		.BLANK	0000[0x66]