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

⟦be87af8b1⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0568       | h  |		.CONST	0x0568								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050       | P  |		.CONST	0x0050								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0026       | &  |		.CONST	0x0026								; Number of locals
000b			INIT_0008:
000b 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x063a,0x8000,0x0000,0x0057,0x3495,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 00bf       |    |		Action	Accept_Activation
000e 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x000e,0x063e,0x8000,0x0000,0x0058,0xc155,0x0000,0x001f
													; Debug Table 0x1.0x0 = 0xe,0xffff
000f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0xf,0xfffe
0010 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x10,0xfffd
0011 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x11,0xfffc
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x12,0xfffb
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x13,0xfffa
0014 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x6 = 0x14,0xfff9
0015 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0016 0007       |    |		Action	Break_Optional
0017 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x7 = 0x17,0xfff8
0018 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
0019 0007       |    |		Action	Break_Optional
001a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x8 = 0x1a,0xfff7
001b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x9 = 0x1b,0xfff6
001c 4803       |H   |		Short_Literal	0x3
001d 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call
001f 03fd       |    |		Declare_Type	Discrete,Defined
0020 029b 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Unelaborated		; Debug Table 0x1.0xa = 0x20,0xfff5
0022 029d 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call			; Debug Table 0x1.0xb = 0x22,0xfff4
0024 029d 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call			; Debug Table 0x1.0xc = 0x24,0xfff3
0026 029d 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call			; Debug Table 0x1.0xd = 0x26,0xfff2
0028 029d 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call			; Debug Table 0x1.0xe = 0x28,0xfff1
002a 029d 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call			; Debug Table 0x1.0xf = 0x2a,0xfff0
002c 029d 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call			; Debug Table 0x1.0x10 = 0x2c,0xffef
002e 029d 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call			; Debug Table 0x1.0x11 = 0x2e,0xffee
0030 029d 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call			; Debug Table 0x1.0x12 = 0x30,0xffed
0032 029d 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call			; Debug Table 0x1.0x13 = 0x32,0xffec
0034 029d 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call			; Debug Table 0x1.0x14 = 0x34,0xffeb
0036 029d 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call			; Debug Table 0x1.0x15 = 0x36,0xffea
0038 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call			; Debug Table 0x1.0x16 = 0x38,0xffe9
003a 029d 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call			; Debug Table 0x1.0x17 = 0x3a,0xffe8
003c 029d 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call			; Debug Table 0x1.0x18 = 0x3c,0xffe7
003e 029d 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call			; Debug Table 0x1.0x19 = 0x3e,0xffe6
0040 029d 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call			; Debug Table 0x1.0x1a = 0x40,0xffe5
0042 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call			; Debug Table 0x1.0x1b = 0x42,0xffe4
0044 029d 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call			; Debug Table 0x1.0x1c = 0x44,0xffe3
0046 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call			; Debug Table 0x1.0x1d = 0x46,0xffe2
0048 029d 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call			; Debug Table 0x1.0x1e = 0x48,0xffe1
004a 029d 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call			; Debug Table 0x1.0x1f = 0x4a,0xffe0
004c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x20 = 0x4c,0xffdf
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x21 = 0x4e,0xffde
004f 00c7       |    |		Action	Elaborate_Subprogram
0050			BODY_0008:
0050 00bc       |    |		Action	Signal_Activated
0051 00bb       |    |		Action	Signal_Completion
0052 0000 0000  |    |		.BLANK	0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0061       | a  |		.CONST	0x0061								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x005b,0x0684,0x0001,0x0000,0x0057,0x3495,0x0000,0x0006
													; Debug Table 0x2.0x0 = 0x5b,0x1
005c 8211       |    |		Call	0x1,0x11
005d a5fd       |    |		Store_Unchecked	0x2,-0x3
005e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x1 = 0x5e,0x2
005f a5fe       |    |		Store_Unchecked	0x2,-0x2
0060 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0061			TRAP_0058:
0061 62ea       |b   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}
0062 010f       |    |		Execute	Exception,Equal
0063 6806       |h   |		Jump_Zero	0x6a
0064 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x2 = 0x64,0x3
0065 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x3 = 0x65,0x401
0066 a5fd       |    |		Store_Unchecked	0x2,-0x3						; Debug Table 0x2.0x4 = 0x66,0x3
0067 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x5 = 0x67,0x4
0068 a5fe       |    |		Store_Unchecked	0x2,-0x2
0069 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
006a 0100       |    |		Execute	Exception,Raise
006b 0000 0000  |    |		.BLANK	0000[0x5]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 4603       |F   |		Jump_Case	0x4							; Debug Table 0x3 = .DEBUG	0x0073,0x0692,0x0005,0x0000,0x0058,0xc155,0x0000,0x0065
0074 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0075 7802       |x   |		Jump	0x78								; case 0x1
0076 7805       |x   |		Jump	0x7c								; case 0x2
0077 7809       |x   |		Jump	0x81								; case 0x3
0078 00da       |    |		Load_Top	At_Offset_2
0079 0091 054d  |   M|		Action	Push_String_Extended_Indexed,0x54d				; "CATENATE"
007b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
007c 00db       |    |		Load_Top	At_Offset_3
007d 00db       |    |		Load_Top	At_Offset_3
007e 00e0       |    |		Load_Encached	Standard_Cache
007f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0080 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0081 00da       |    |		Load_Top	At_Offset_2
0082 00e0       |    |		Load_Encached	Standard_Cache
0083 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0084 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0085 0000 0000  |    |		.XXX[0x3]
0087 0000       |    |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 0007       |    |		Action	Break_Optional							; Debug Table 0x4 = .DEBUG	0x008b,0x0694,0x0002,0x0000,0x0058,0xc155,0x0000,0x006d
													; Debug Table 0x4.0x0 = 0x8b,0x1
008c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x1 = 0x8c,0x401
008d 0007       |    |		Action	Break_Optional
008e 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x4.0x2 = 0x8e,0x402
008f 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x3 = 0x8f,0x403
0090 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x4 = 0x90,0x404
0091 0b09       |    |		Execute_Immediate	Case_Compare,0x9				; Debug Table 0x4.0x5 = 0x91,0x1
0092 700c       |p   |		Jump_Nonzero	0x9f
0093 0b0b       |    |		Execute_Immediate	Case_Compare,0xb
0094 700f       |p   |		Jump_Nonzero	0xa4
0095 0b16       |    |		Execute_Immediate	Case_Compare,0x16
0096 700f       |p   |		Jump_Nonzero	0xa6
0097 0b10       |    |		Execute_Immediate	Case_Compare,0x10
0098 7010       |p   |		Jump_Nonzero	0xa9
0099 0b0e       |    |		Execute_Immediate	Case_Compare,0xe
009a 7011       |p   |		Jump_Nonzero	0xac
009b 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
009c 7012       |p   |		Jump_Nonzero	0xaf
009d 62ae       |b   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x4.0x6 = 0x9d,0x8
009e 0257       | W  |		Execute	Discrete,Raise
009f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x7 = 0x9f,0x2
00a0 00eb       |    |		Load_Encached	Diana_Cache
00a1 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
00a2 8211       |    |		Call	0x1,0x11
00a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x8 = 0xa4,0x3
00a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x9 = 0xa6,0x4
00a7 8226       | &  |		Call	0x1,0x26
00a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a9 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xa = 0xa9,0x5
00aa 8220       |    |		Call	0x1,0x20
00ab 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ac 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xb = 0xac,0x6
00ad 8224       | $  |		Call	0x1,0x24
00ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00af 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xc = 0xaf,0x7
00b0 8225       | %  |		Call	0x1,0x25
00b1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b2 0000 0000  |    |		.BLANK	0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c1       |    |		.CONST	0x00c1								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x5 = .DEBUG	0x00bb,0x06b0,0x0002,0x0000,0x0058,0xc155,0x0000,0x007a
													; Debug Table 0x5.0x0 = 0xbb,0xffff
00bc 00eb       |    |		Load_Encached	Diana_Cache						; Debug Table 0x5.0x1 = 0xbc,0xfffe
00bd 1b96       |    |		Execute	Package,Field_Read,Field_Number 0x96
00be 0322       | "  |		Declare_Variable	Record
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c1			BODY_00b8:
00c1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x2 = 0xc1,0x1
00c2 00e1       |    |		Load_Encached	Boolean_Cache
00c3 e5ff       |    |		Load	0x2,-0x1
00c4 e002       |    |		Load	0x0,0x2
00c5 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00c6 005b       | [  |		Store_Top	Discrete,At_Offset_3
00c7 00d1       |    |		Pop_Control	Pop_Count_1
00c8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x3 = 0xc8,0x2
00c9 6804       |h   |		Jump_Zero	0xce
00ca 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x4 = 0xca,0x3
00cb 00eb       |    |		Load_Encached	Diana_Cache
00cc 189f       |    |		Execute	Package,Field_Execute,Field_Number 0x9f
00cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ce 627d       |b}  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x5.0x5 = 0xce,0x4
00cf 0257       | W  |		Execute	Discrete,Raise
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e003       |    |		Load	0x0,0x3								; Debug Table 0x6 = .DEBUG	0x00d3,0x06be,0x0002,0x0000,0x0058,0xc155,0x0000,0x00ae
													; Debug Table 0x6.0x0 = 0xd3,0x1
00d4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00d5 4907       |I   |		Short_Literal	0x107
00d6 00eb       |    |		Load_Encached	Diana_Cache
00d7 0096       |    |		Execute	Package,Entry
00d8 00ca       |    |		Action	Exit_Nullary_Function
00d9 0000 0000  |    |		.BLANK	0000[0x7]
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 e003       |    |		Load	0x0,0x3								; Debug Table 0x7 = .DEBUG	0x00e3,0x06c2,0x0002,0x0000,0x0058,0xc155,0x0000,0x00c2
													; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00e5 4907       |I   |		Short_Literal	0x107
00e6 00eb       |    |		Load_Encached	Diana_Cache
00e7 0096       |    |		Execute	Package,Entry
00e8 00ca       |    |		Action	Exit_Nullary_Function
00e9 0000 0000  |    |		.BLANK	0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0103       |    |		.CONST	0x0103								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0006       |    |		.CONST	0x0006								; Number of locals
00f3			INIT_00f0:
00f3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8 = .DEBUG	0x00f3,0x06c6,0x0002,0x0000,0x0058,0xc155,0x0000,0x00d6
													; Debug Table 0x8.0x0 = 0xf3,0xffff
00f4 00db       |    |		Load_Top	At_Offset_3
00f5 00eb       |    |		Load_Encached	Diana_Cache
00f6 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
00f7 480b       |H   |		Short_Literal	0xb
00f8 00eb       |    |		Load_Encached	Diana_Cache
00f9 1879       | y  |		Execute	Package,Field_Execute,Field_Number 0x79
00fa 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00fb e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x1 = 0xfb,0xfffe
00fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fd 02c7       |    |		Declare_Variable	Any
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0100 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8.0x2 = 0x100,0xfffd
0101 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8.0x3 = 0x101,0xfffc
0102 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x8.0x4 = 0x102,0xfffb
0103			BODY_00f0:
0103 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x5 = 0x103,0x1
0104 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0105 e5ff       |    |		Load	0x2,-0x1
0106 01db       |    |		Execute	Vector,Length
0107 e001       |    |		Load	0x0,0x1
0108 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0109 e5fc       |    |		Load	0x2,-0x4
010a 820e       |    |		Call	0x1,0xe
010b 820f       |    |		Call	0x1,0xf
010c c403       |    |		Store	0x2,0x3
010d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x8.0x6 = 0x10d,0x2
010e 00eb       |    |		Load_Encached	Diana_Cache
010f 18aa       |    |		Execute	Package,Field_Execute,Field_Number 0xaa
0110 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0111 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0x7 = 0x111,0x3
0112 00db       |    |		Load_Top	At_Offset_3
0113 495b       |I[  |		Short_Literal	0x15b
0114 00eb       |    |		Load_Encached	Diana_Cache
0115 0096       |    |		Execute	Package,Entry
0116 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x8 = 0x116,0x4
0117 00eb       |    |		Load_Encached	Diana_Cache
0118 18aa       |    |		Execute	Package,Field_Execute,Field_Number 0xaa
0119 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
011a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0x9 = 0x11a,0x5
011b 00da       |    |		Load_Top	At_Offset_2
011c 495b       |I[  |		Short_Literal	0x15b
011d 00eb       |    |		Load_Encached	Diana_Cache
011e 0096       |    |		Execute	Package,Entry
011f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0xa = 0x11f,0x6
0120 00db       |    |		Load_Top	At_Offset_3
0121 4861       |Ha  |		Short_Literal	0x61
0122 00eb       |    |		Load_Encached	Diana_Cache
0123 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
0124 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0125 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0xb = 0x125,0x7
0126 00d9       |    |		Load_Top	At_Offset_1
0127 4956       |IV  |		Short_Literal	0x156
0128 00eb       |    |		Load_Encached	Diana_Cache
0129 0096       |    |		Execute	Package,Entry
012a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0xc = 0x12a,0x8
012b e402       |    |		Load	0x2,0x2
012c 4958       |IX  |		Short_Literal	0x158
012d 00eb       |    |		Load_Encached	Diana_Cache
012e 0096       |    |		Execute	Package,Entry
012f e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x8.0xd = 0x12f,0x9
0130 e402       |    |		Load	0x2,0x2
0131 495b       |I[  |		Short_Literal	0x15b
0132 00eb       |    |		Load_Encached	Diana_Cache
0133 0096       |    |		Execute	Package,Entry
0134 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0xe = 0x134,0xa
0135 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0136 0000 0000  |    |		.XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014a       | J  |		.CONST	0x014a								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9 = .DEBUG	0x013b,0x06e6,0x0002,0x0000,0x0058,0xc155,0x0000,0x0184
													; Debug Table 0x9.0x0 = 0x13b,0xffff
013c 00db       |    |		Load_Top	At_Offset_3
013d e004       |    |		Load	0x0,0x4
013e 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
013f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0140 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9.0x1 = 0x140,0xfffe
0141 e5fe       |    |		Load	0x2,-0x2
0142 e004       |    |		Load	0x0,0x4
0143 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0144 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0145 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x9.0x2 = 0x145,0xfffd
0146 e5fd       |    |		Load	0x2,-0x3
0147 e004       |    |		Load	0x0,0x4
0148 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0149 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
014a			BODY_0138:
014a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x3 = 0x14a,0x1
014b 00d9       |    |		Load_Top	At_Offset_1
014c 021f       |    |		Execute	Heap_Access,Equal
014d 6808       |h   |		Jump_Zero	0x156
014e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x4 = 0x14e,0x2
014f 00db       |    |		Load_Top	At_Offset_3
0150 021f       |    |		Execute	Heap_Access,Equal
0151 6802       |h   |		Jump_Zero	0x154
0152 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x5 = 0x152,0x3
0153 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0154 4803       |H   |		Short_Literal	0x3							; Debug Table 0x9.0x6 = 0x154,0x4
0155 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0156 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x7 = 0x156,0x5
0157 00db       |    |		Load_Top	At_Offset_3
0158 021f       |    |		Execute	Heap_Access,Equal
0159 6802       |h   |		Jump_Zero	0x15c
015a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x8 = 0x15a,0x6
015b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
015c 4802       |H   |		Short_Literal	0x2							; Debug Table 0x9.0x9 = 0x15c,0x7
015d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0164       | d  |		.CONST	0x0164								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0002       |    |		.CONST	0x0002								; Number of locals
0163			INIT_0160:
0163 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xa = .DEBUG	0x0163,0x06fc,0x0002,0x0000,0x0058,0xc155,0x0000,0x01e7
													; Debug Table 0xa.0x0 = 0x163,0xffff
0164			BODY_0160:
0164 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x1 = 0x164,0x1
0165 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x2 = 0x165,0x401
0166 0007       |    |		Action	Break_Optional
0167 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xa.0x3 = 0x167,0x402
0168 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x4 = 0x168,0x403
0169 0007       |    |		Action	Break_Optional							; Debug Table 0xa.0x5 = 0x169,0x404
016a 0f15       |    |		Execute_Immediate	Equal,0x15					; Debug Table 0xa.0x6 = 0x16a,0x1
016b 680c       |h   |		Jump_Zero	0x178
016c 497a       |Iz  |		Short_Literal	0x17a							; Debug Table 0xa.0x7 = 0x16c,0x2
016d 00eb       |    |		Load_Encached	Diana_Cache
016e 0098       |    |		Execute	Package,Field_Read_Dynamic
016f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0170 e5ff       |    |		Load	0x2,-0x1
0171 00eb       |    |		Load_Encached	Diana_Cache
0172 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0173 00eb       |    |		Load_Encached	Diana_Cache
0174 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0175 701e       |p   |		Jump_Nonzero	0x194
0176 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x8 = 0x176,0x3
0177 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0178 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x9 = 0x178,0x4
0179 4976       |Iv  |		Short_Literal	0x176
017a 00eb       |    |		Load_Encached	Diana_Cache
017b 0098       |    |		Execute	Package,Field_Read_Dynamic
017c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
017d 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
017e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xa = 0x17e,0x5
017f e005       |    |		Load	0x0,0x5
0180 18c2       |    |		Execute	Package,Field_Execute,Field_Number 0xc2
0181 6810       |h   |		Jump_Zero	0x192
0182 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0xb = 0x182,0x6
0183 e005       |    |		Load	0x0,0x5
0184 18c3       |    |		Execute	Package,Field_Execute,Field_Number 0xc3
0185 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0186 497a       |Iz  |		Short_Literal	0x17a							; Debug Table 0xa.0xc = 0x186,0x7
0187 00eb       |    |		Load_Encached	Diana_Cache
0188 0098       |    |		Execute	Package,Field_Read_Dynamic
0189 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
018a 00d9       |    |		Load_Top	At_Offset_1
018b 00eb       |    |		Load_Encached	Diana_Cache
018c 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
018d 00eb       |    |		Load_Encached	Diana_Cache
018e 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
018f 7004       |p   |		Jump_Nonzero	0x194
0190 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0xd = 0x190,0x8
0191 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0192 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0xe = 0x192,0x9
0193 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0194 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0xf = 0x194,0xa
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb = .DEBUG	0x019b,0x071e,0x0002,0x0000,0x0058,0xc155,0x0000,0x0259
													; Debug Table 0xb.0x0 = 0x19b,0x1
019c 00eb       |    |		Load_Encached	Diana_Cache
019d 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
019e 4976       |Iv  |		Short_Literal	0x176
019f 00eb       |    |		Load_Encached	Diana_Cache
01a0 0098       |    |		Execute	Package,Field_Read_Dynamic
01a1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a2 e006       |    |		Load	0x0,0x6
01a3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc = .DEBUG	0x01ab,0x0722,0x0002,0x0000,0x0058,0xc155,0x0000,0x027b
													; Debug Table 0xc.0x0 = 0x1ab,0x1
01ac 00eb       |    |		Load_Encached	Diana_Cache
01ad 18f9       |    |		Execute	Package,Field_Execute,Field_Number 0xf9
01ae 00eb       |    |		Load_Encached	Diana_Cache
01af 18c6       |    |		Execute	Package,Field_Execute,Field_Number 0xc6
01b0 00eb       |    |		Load_Encached	Diana_Cache
01b1 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
01b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01f9       |    |		.CONST	0x01f9								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0003       |    |		.CONST	0x0003								; Number of locals
01bb			INIT_01b8:
01bb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xd = .DEBUG	0x01bb,0x0726,0x0002,0x0000,0x0058,0xc155,0x0000,0x029d
													; Debug Table 0xd.0x0 = 0x1bb,0xffff
01bc 00db       |    |		Load_Top	At_Offset_3
01bd e004       |    |		Load	0x0,0x4
01be 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01bf 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
01c0 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xd.0x1 = 0x1c0,0xfffe
01c1 00d9       |    |		Load_Top	At_Offset_1
01c2 00eb       |    |		Load_Encached	Diana_Cache
01c3 18c2       |    |		Execute	Package,Field_Execute,Field_Number 0xc2
01c4 00eb       |    |		Load_Encached	Diana_Cache
01c5 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
01c6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x2 = 0x1c6,0x401
01c7 7002       |p   |		Jump_Nonzero	0x1ca
01c8 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xd.0x3 = 0x1c8,0x402
01c9 782c       |x,  |		Jump	0x1f6
01ca 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x4 = 0x1ca,0x403
01cb 0217       |    |		Execute	Heap_Access,All_Reference
01cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cd 6804       |h   |		Jump_Zero	0x1d2
01ce 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x5 = 0x1ce,0x404
01cf 0217       |    |		Execute	Heap_Access,All_Reference
01d0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01d1 7824       |x$  |		Jump	0x1f6
01d2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x6 = 0x1d2,0x405
01d3 0007       |    |		Action	Break_Optional
01d4 e405       |    |		Load	0x2,0x5								; Debug Table 0xd.0x7 = 0x1d4,0x801
01d5 0007       |    |		Action	Break_Optional
01d6 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0xd.0x8 = 0x1d6,0x802
01d7 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x9 = 0x1d7,0x803
01d8 00d0       |    |		Action	Swap_Control							; Debug Table 0xd.0xa = 0x1d8,0x804
01d9 00d1       |    |		Pop_Control	Pop_Count_1
01da 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0xd.0xb = 0x1da,0x405
01db 00eb       |    |		Load_Encached	Diana_Cache
01dc 0098       |    |		Execute	Package,Field_Read_Dynamic
01dd 012c       | ,  |		Execute	Any,Size
01de e007       |    |		Load	0x0,0x7
01df 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01e0 025b       | [  |		Execute	Discrete,Check_In_Type
01e1 0273       | s  |		Execute	Discrete,Plus
01e2 00d9       |    |		Load_Top	At_Offset_1
01e3 0007       |    |		Action	Break_Optional
01e4 e406       |    |		Load	0x2,0x6								; Debug Table 0xd.0xc = 0x1e4,0xc01
01e5 0007       |    |		Action	Break_Optional
01e6 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0xd.0xd = 0x1e6,0xc02
01e7 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0xe = 0x1e7,0xc03
01e8 00d0       |    |		Action	Swap_Control							; Debug Table 0xd.0xf = 0x1e8,0xc04
01e9 00d1       |    |		Pop_Control	Pop_Count_1
01ea 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0xd.0x10 = 0x1ea,0x804
01eb 00eb       |    |		Load_Encached	Diana_Cache
01ec 0098       |    |		Execute	Package,Field_Read_Dynamic
01ed 49c9       |I   |		Short_Literal	0x1c9
01ee 00eb       |    |		Load_Encached	Diana_Cache
01ef 0098       |    |		Execute	Package,Field_Read_Dynamic
01f0 49ca       |I   |		Short_Literal	0x1ca
01f1 00eb       |    |		Load_Encached	Diana_Cache
01f2 0095       |    |		Execute	Package,Field_Reference_Dynamic
01f3 e008       |    |		Load	0x0,0x8
01f4 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01f5 7800       |x   |		Jump	0x1f6
01f6 00d0       |    |		Action	Swap_Control
01f7 00d1       |    |		Pop_Control	Pop_Count_1
01f8 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0xd.0x11 = 0x1f8,0xfffe
01f9			BODY_01b8:
01f9 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x12 = 0x1f9,0x1
01fa e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x13 = 0x1fa,0x1001
01fb 0007       |    |		Action	Break_Optional
01fc 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xd.0x14 = 0x1fc,0x1002
01fd 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x15 = 0x1fd,0x1003
01fe 0007       |    |		Action	Break_Optional							; Debug Table 0xd.0x16 = 0x1fe,0x1004
01ff 0b66       | f  |		Execute_Immediate	Case_Compare,0x66				; Debug Table 0xd.0x17 = 0x1ff,0x1
0200 700a       |p   |		Jump_Nonzero	0x20b
0201 0b61       | a  |		Execute_Immediate	Case_Compare,0x61
0202 7008       |p   |		Jump_Nonzero	0x20b
0203 0b0e       |    |		Execute_Immediate	Case_Compare,0xe
0204 700a       |p   |		Jump_Nonzero	0x20f
0205 0b0f       |    |		Execute_Immediate	Case_Compare,0xf
0206 7008       |p   |		Jump_Nonzero	0x20f
0207 0b88       |    |		Execute_Immediate	Case_Compare,0x88
0208 700a       |p   |		Jump_Nonzero	0x213
0209 6142       |aB  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0xd.0x18 = 0x209,0x5
020a 0257       | W  |		Execute	Discrete,Raise
020b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x19 = 0x20b,0x2
020c 00eb       |    |		Load_Encached	Diana_Cache
020d 18f7       |    |		Execute	Package,Field_Execute,Field_Number 0xf7
020e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x1a = 0x20f,0x3
0210 00eb       |    |		Load_Encached	Diana_Cache
0211 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
0212 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0213 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x1b = 0x213,0x4
0214 8218       |    |		Call	0x1,0x18
0215 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe = .DEBUG	0x021b,0x0760,0x0002,0x0000,0x0058,0xc155,0x0000,0x030b
													; Debug Table 0xe.0x0 = 0x21b,0x1
021c 00eb       |    |		Load_Encached	Diana_Cache
021d 18f9       |    |		Execute	Package,Field_Execute,Field_Number 0xf9
021e 00eb       |    |		Load_Encached	Diana_Cache
021f 18c6       |    |		Execute	Package,Field_Execute,Field_Number 0xc6
0220 00eb       |    |		Load_Encached	Diana_Cache
0221 18af       |    |		Execute	Package,Field_Execute,Field_Number 0xaf
0222 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0223 0000 0000  |    |		.BLANK	0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0275       | u  |		.CONST	0x0275								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0007       |    |		.CONST	0x0007								; Number of locals
022b			INIT_0228:
022b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf = .DEBUG	0x022b,0x0764,0x0002,0x0000,0x0058,0xc155,0x0000,0x032d
													; Debug Table 0xf.0x0 = 0x22b,0xffff
022c 03e9       |    |		Declare_Variable	Discrete,Duplicate
022d 00eb       |    |		Load_Encached	Diana_Cache						; Debug Table 0xf.0x1 = 0x22d,0xfffe
022e 1b96       |    |		Execute	Package,Field_Read,Field_Number 0x96
022f 0322       | "  |		Declare_Variable	Record
0230 00d8       |    |		Load_Top	At_Offset_0
0231 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0232 00eb       |    |		Load_Encached	Diana_Cache
0233 1b96       |    |		Execute	Package,Field_Read,Field_Number 0x96
0234 0322       | "  |		Declare_Variable	Record
0235 00d8       |    |		Load_Top	At_Offset_0
0236 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0237 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xf.0x2 = 0x237,0xfffd
0238 e5ff       |    |		Load	0x2,-0x1
0239 e004       |    |		Load	0x0,0x4
023a 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
023b 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
023c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xf.0x3 = 0x23c,0xfffc
023d 00d9       |    |		Load_Top	At_Offset_1
023e 00eb       |    |		Load_Encached	Diana_Cache
023f 18c2       |    |		Execute	Package,Field_Execute,Field_Number 0xc2
0240 00eb       |    |		Load_Encached	Diana_Cache
0241 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0242 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x4 = 0x242,0x401
0243 7002       |p   |		Jump_Nonzero	0x246
0244 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xf.0x5 = 0x244,0x402
0245 782c       |x,  |		Jump	0x272
0246 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x6 = 0x246,0x403
0247 0217       |    |		Execute	Heap_Access,All_Reference
0248 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0249 6804       |h   |		Jump_Zero	0x24e
024a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x7 = 0x24a,0x404
024b 0217       |    |		Execute	Heap_Access,All_Reference
024c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
024d 7824       |x$  |		Jump	0x272
024e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x8 = 0x24e,0x405
024f 0007       |    |		Action	Break_Optional
0250 e409       |    |		Load	0x2,0x9								; Debug Table 0xf.0x9 = 0x250,0x801
0251 0007       |    |		Action	Break_Optional
0252 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0xf.0xa = 0x252,0x802
0253 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0xb = 0x253,0x803
0254 00d0       |    |		Action	Swap_Control							; Debug Table 0xf.0xc = 0x254,0x804
0255 00d1       |    |		Pop_Control	Pop_Count_1
0256 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0xf.0xd = 0x256,0x405
0257 00eb       |    |		Load_Encached	Diana_Cache
0258 0098       |    |		Execute	Package,Field_Read_Dynamic
0259 012c       | ,  |		Execute	Any,Size
025a e007       |    |		Load	0x0,0x7
025b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
025c 025b       | [  |		Execute	Discrete,Check_In_Type
025d 0273       | s  |		Execute	Discrete,Plus
025e 00d9       |    |		Load_Top	At_Offset_1
025f 0007       |    |		Action	Break_Optional
0260 e40a       |    |		Load	0x2,0xa								; Debug Table 0xf.0xe = 0x260,0xc01
0261 0007       |    |		Action	Break_Optional
0262 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0xf.0xf = 0x262,0xc02
0263 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0x10 = 0x263,0xc03
0264 00d0       |    |		Action	Swap_Control							; Debug Table 0xf.0x11 = 0x264,0xc04
0265 00d1       |    |		Pop_Control	Pop_Count_1
0266 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0xf.0x12 = 0x266,0x804
0267 00eb       |    |		Load_Encached	Diana_Cache
0268 0098       |    |		Execute	Package,Field_Read_Dynamic
0269 49c9       |I   |		Short_Literal	0x1c9
026a 00eb       |    |		Load_Encached	Diana_Cache
026b 0098       |    |		Execute	Package,Field_Read_Dynamic
026c 49ca       |I   |		Short_Literal	0x1ca
026d 00eb       |    |		Load_Encached	Diana_Cache
026e 0095       |    |		Execute	Package,Field_Reference_Dynamic
026f e008       |    |		Load	0x0,0x8
0270 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0271 7800       |x   |		Jump	0x272
0272 00d0       |    |		Action	Swap_Control
0273 00d1       |    |		Pop_Control	Pop_Count_1
0274 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0xf.0x13 = 0x274,0xfffc
0275			BODY_0228:
0275 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0x14 = 0x275,0x1
0276 e407       |    |		Load	0x2,0x7								; Debug Table 0xf.0x15 = 0x276,0x1001
0277 0007       |    |		Action	Break_Optional
0278 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xf.0x16 = 0x278,0x1002
0279 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0x17 = 0x279,0x1003
027a 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0x18 = 0x27a,0x1004
027b 0f88       |    |		Execute_Immediate	Equal,-0x78					; Debug Table 0xf.0x19 = 0x27b,0x1
027c 6803       |h   |		Jump_Zero	0x280
027d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x1a = 0x27d,0x2
027e 8218       |    |		Call	0x1,0x18
027f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0280 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf.0x1b = 0x280,0x3
0281 e404       |    |		Load	0x2,0x4
0282 00e1       |    |		Load_Encached	Boolean_Cache
0283 00e1       |    |		Load_Encached	Boolean_Cache
0284 e407       |    |		Load	0x2,0x7
0285 e002       |    |		Load	0x0,0x2
0286 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0287 c402       |    |		Store	0x2,0x2
0288 c403       |    |		Store	0x2,0x3
0289 00d2       |    |		Pop_Control	Pop_Count_2
028a e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0x1c = 0x28a,0x4
028b 6804       |h   |		Jump_Zero	0x290
028c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xf.0x1d = 0x28c,0x5
028d 00eb       |    |		Load_Encached	Diana_Cache
028e 189f       |    |		Execute	Package,Field_Execute,Field_Number 0x9f
028f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0290 60bb       |`   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0xf.0x1e = 0x290,0x6
0291 0257       | W  |		Execute	Discrete,Raise
0292 0000 0000  |    |		.BLANK	0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10 = .DEBUG	0x029b,0x07a4,0x0002,0x0000,0x0058,0xc155,0x0000,0x039e
													; Debug Table 0x10.0x0 = 0x29b,0x1
029c 4801       |H   |		Short_Literal	0x1
029d 00e9       |    |		Load_Encached	String_Cache
029e 0334       | 4  |		Declare_Variable	Array,With_Constraint
029f 00db       |    |		Load_Top	At_Offset_3
02a0 e001       |    |		Load	0x0,0x1
02a1 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
02a2 00d8       |    |		Load_Top	At_Offset_0
02a3 00e8       |    |		Load_Encached	Character_Cache
02a4 0260       | `  |		Execute	Discrete,In_Type
02a5 7002       |p   |		Jump_Nonzero	0x2a8
02a6 48e0       |H   |		Short_Literal	0xe0
02a7 0257       | W  |		Execute	Discrete,Raise
02a8 4801       |H   |		Short_Literal	0x1
02a9 00da       |    |		Load_Top	At_Offset_2
02aa 01d6       |    |		Execute	Vector,Field_Write
02ab 00eb       |    |		Load_Encached	Diana_Cache
02ac 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
02ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02ae 0000 0000  |    |		.XXX[0x2]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02f3       |    |		.CONST	0x02f3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0008       |    |		.CONST	0x0008								; Number of locals
02b3			INIT_02b0:
02b3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x11 = .DEBUG	0x02b3,0x07a8,0x0001,0x0000,0x0058,0xc155,0x0000,0x03c7
													; Debug Table 0x11.0x0 = 0x2b3,0xffff
02b4 039d       |    |		Declare_Variable	Heap_Access,Duplicate
02b5 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x11.0x1 = 0x2b5,0xfffe
02b6 e5fe       |    |		Load	0x2,-0x2
02b7 0007       |    |		Action	Break_Optional
02b8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x2 = 0x2b8,0x401
02b9 0217       |    |		Execute	Heap_Access,All_Reference
02ba 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02bb 00d9       |    |		Load_Top	At_Offset_1
02bc 0007       |    |		Action	Break_Optional
02bd e407       |    |		Load	0x2,0x7								; Debug Table 0x11.0x3 = 0x2bd,0x801
02be 0007       |    |		Action	Break_Optional
02bf 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x11.0x4 = 0x2bf,0x802
02c0 0007       |    |		Action	Break_Optional							; Debug Table 0x11.0x5 = 0x2c0,0x803
02c1 00d0       |    |		Action	Swap_Control							; Debug Table 0x11.0x6 = 0x2c1,0x804
02c2 00d1       |    |		Pop_Control	Pop_Count_1
02c3 49af       |I   |		Short_Literal	0x1af							; Debug Table 0x11.0x7 = 0x2c3,0x401
02c4 00eb       |    |		Load_Encached	Diana_Cache
02c5 0096       |    |		Execute	Package,Entry
02c6 00d0       |    |		Action	Swap_Control
02c7 00d1       |    |		Pop_Control	Pop_Count_1
02c8 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0x11.0x8 = 0x2c8,0xfffe
02c9 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x11.0x9 = 0x2c9,0xfffd
02ca e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x11.0xa = 0x2ca,0xc01
02cb 0217       |    |		Execute	Heap_Access,All_Reference
02cc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cd 0007       |    |		Action	Break_Optional							; Debug Table 0x11.0xb = 0x2cd,0xfffd
02ce 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0xc = 0x2ce,0x1001
02cf 0217       |    |		Execute	Heap_Access,All_Reference
02d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d1 00d9       |    |		Load_Top	At_Offset_1
02d2 0007       |    |		Action	Break_Optional
02d3 e408       |    |		Load	0x2,0x8								; Debug Table 0x11.0xd = 0x2d3,0x1401
02d4 0007       |    |		Action	Break_Optional
02d5 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x11.0xe = 0x2d5,0x1402
02d6 0007       |    |		Action	Break_Optional							; Debug Table 0x11.0xf = 0x2d6,0x1403
02d7 00d0       |    |		Action	Swap_Control							; Debug Table 0x11.0x10 = 0x2d7,0x1404
02d8 00d1       |    |		Pop_Control	Pop_Count_1
02d9 49af       |I   |		Short_Literal	0x1af							; Debug Table 0x11.0x11 = 0x2d9,0x1001
02da 00eb       |    |		Load_Encached	Diana_Cache
02db 0096       |    |		Execute	Package,Entry
02dc 00d0       |    |		Action	Swap_Control
02dd 00d1       |    |		Pop_Control	Pop_Count_1
02de 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0x11.0x12 = 0x2de,0xfffd
02df 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x13 = 0x2df,0xfffc
02e0 00eb       |    |		Load_Encached	Diana_Cache
02e1 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
02e2 00da       |    |		Load_Top	At_Offset_2
02e3 00eb       |    |		Load_Encached	Diana_Cache
02e4 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 8216       |    |		Call	0x1,0x16
02e7 e210       |    |		Load	0x1,0x10
02e8 03f1       |    |		Declare_Variable	Discrete,With_Value
02e9 e001       |    |		Load	0x0,0x1								; Debug Table 0x11.0x14 = 0x2e9,0xfffb
02ea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02eb 02c7       |    |		Declare_Variable	Any
02ec 00d8       |    |		Load_Top	At_Offset_0
02ed 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ee e001       |    |		Load	0x0,0x1
02ef 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f0 02c7       |    |		Declare_Variable	Any
02f1 00d8       |    |		Load_Top	At_Offset_0
02f2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f3			BODY_02b0:
02f3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11.0x15 = 0x2f3,0x1
02f4 4603       |F   |		Jump_Case	0x4
02f5 7803       |x   |		Jump	0x2f9								; case 0x0
02f6 7817       |x   |		Jump	0x30e								; case 0x1
02f7 782a       |x*  |		Jump	0x322								; case 0x2
02f8 783d       |x=  |		Jump	0x336								; case 0x3
02f9 e404       |    |		Load	0x2,0x4								; Debug Table 0x11.0x16 = 0x2f9,0x2
02fa 8211       |    |		Call	0x1,0x11
02fb a402       |    |		Store_Unchecked	0x2,0x2
02fc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11.0x17 = 0x2fc,0x3
02fd 8211       |    |		Call	0x1,0x11
02fe a403       |    |		Store_Unchecked	0x2,0x3
02ff e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x18 = 0x2ff,0x4
0300 00eb       |    |		Load_Encached	Diana_Cache
0301 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0302 c5fb       |    |		Store	0x2,-0x5
0303 e403       |    |		Load	0x2,0x3								; Debug Table 0x11.0x19 = 0x303,0x5
0304 00eb       |    |		Load_Encached	Diana_Cache
0305 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0306 c5fa       |    |		Store	0x2,-0x6
0307 e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x1a = 0x307,0x6
0308 8219       |    |		Call	0x1,0x19
0309 a5fc       |    |		Store_Unchecked	0x2,-0x4
030a e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x1b = 0x30a,0x7
030b 821b       |    |		Call	0x1,0x1b
030c c5fd       |    |		Store	0x2,-0x3
030d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030e e404       |    |		Load	0x2,0x4								; Debug Table 0x11.0x1c = 0x30e,0x8
030f 8211       |    |		Call	0x1,0x11
0310 a402       |    |		Store_Unchecked	0x2,0x2
0311 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11.0x1d = 0x311,0x9
0312 8212       |    |		Call	0x1,0x12
0313 c408       |    |		Store	0x2,0x8
0314 e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x1e = 0x314,0xa
0315 00eb       |    |		Load_Encached	Diana_Cache
0316 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0317 c5fb       |    |		Store	0x2,-0x5
0318 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x1f = 0x318,0xb
0319 821d       |    |		Call	0x1,0x1d
031a c5fa       |    |		Store	0x2,-0x6
031b e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x20 = 0x31b,0xc
031c 8219       |    |		Call	0x1,0x19
031d a5fc       |    |		Store_Unchecked	0x2,-0x4
031e e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x21 = 0x31e,0xd
031f 821b       |    |		Call	0x1,0x1b
0320 c5fd       |    |		Store	0x2,-0x3
0321 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0322 e404       |    |		Load	0x2,0x4								; Debug Table 0x11.0x22 = 0x322,0xe
0323 8212       |    |		Call	0x1,0x12
0324 c407       |    |		Store	0x2,0x7
0325 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11.0x23 = 0x325,0xf
0326 8211       |    |		Call	0x1,0x11
0327 a403       |    |		Store_Unchecked	0x2,0x3
0328 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x11.0x24 = 0x328,0x10
0329 821d       |    |		Call	0x1,0x1d
032a c5fb       |    |		Store	0x2,-0x5
032b e403       |    |		Load	0x2,0x3								; Debug Table 0x11.0x25 = 0x32b,0x11
032c 00eb       |    |		Load_Encached	Diana_Cache
032d 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
032e c5fa       |    |		Store	0x2,-0x6
032f e403       |    |		Load	0x2,0x3								; Debug Table 0x11.0x26 = 0x32f,0x12
0330 8219       |    |		Call	0x1,0x19
0331 a5fc       |    |		Store_Unchecked	0x2,-0x4
0332 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x11.0x27 = 0x332,0x13
0333 821c       |    |		Call	0x1,0x1c
0334 c5fd       |    |		Store	0x2,-0x3
0335 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0336 e404       |    |		Load	0x2,0x4								; Debug Table 0x11.0x28 = 0x336,0x14
0337 8212       |    |		Call	0x1,0x12
0338 c407       |    |		Store	0x2,0x7
0339 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11.0x29 = 0x339,0x15
033a 8212       |    |		Call	0x1,0x12
033b c408       |    |		Store	0x2,0x8
033c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x11.0x2a = 0x33c,0x16
033d 821d       |    |		Call	0x1,0x1d
033e c5fb       |    |		Store	0x2,-0x5
033f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x2b = 0x33f,0x17
0340 821d       |    |		Call	0x1,0x1d
0341 c5fa       |    |		Store	0x2,-0x6
0342 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x11.0x2c = 0x342,0x18
0343 821a       |    |		Call	0x1,0x1a
0344 a5fc       |    |		Store_Unchecked	0x2,-0x4
0345 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x11.0x2d = 0x345,0x19
0346 821c       |    |		Call	0x1,0x1c
0347 c5fd       |    |		Store	0x2,-0x3
0348 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0349 0000 0000  |    |		.XXX[0x3]
034b 0000       |    |
034c 0000 0000  |    |		.LITERAL	{0x00000000, 0x58c15501}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0366       | f  |		.CONST	0x0366								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0006       |    |		.CONST	0x0006								; Number of locals
0353			INIT_0350:
0353 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x12 = .DEBUG	0x0353,0x0806,0x0002,0x0000,0x0058,0xc155,0x0000,0x04e2
													; Debug Table 0x12.0x0 = 0x353,0xffff
0354 00db       |    |		Load_Top	At_Offset_3
0355 00eb       |    |		Load_Encached	Diana_Cache
0356 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
0357 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0358 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache					; Debug Table 0x12.0x1 = 0x358,0xfffe
0359 02c7       |    |		Declare_Variable	Any
035a 00d8       |    |		Load_Top	At_Offset_0
035b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
035c 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache
035d 02c7       |    |		Declare_Variable	Any
035e 00d8       |    |		Load_Top	At_Offset_0
035f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0360 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x12.0x2 = 0x360,0xfffd
0361 e001       |    |		Load	0x0,0x1								; Debug Table 0x12.0x3 = 0x361,0xfffc
0362 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0363 02c7       |    |		Declare_Variable	Any
0364 00d8       |    |		Load_Top	At_Offset_0
0365 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0366			BODY_0350:
0366 e402       |    |		Load	0x2,0x2								; Debug Table 0x12.0x4 = 0x366,0x1
0367 e004       |    |		Load	0x0,0x4
0368 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0369 6829       |h)  |		Jump_Zero	0x393
036a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12.0x5 = 0x36a,0x2
036b 0120       |    |		Execute	Any,Is_Value
036c 6802       |h   |		Jump_Zero	0x36f
036d 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache
036e 7801       |x   |		Jump	0x370
036f 00da       |    |		Load_Top	At_Offset_2
0370 e403       |    |		Load	0x2,0x3
0371 0120       |    |		Execute	Any,Is_Value
0372 6802       |h   |		Jump_Zero	0x375
0373 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache
0374 7801       |x   |		Jump	0x376
0375 e403       |    |		Load	0x2,0x3
0376 00ec       |    |		Load_Encached	Diana_Tree_Cache
0377 00db       |    |		Load_Top	At_Offset_3
0378 0120       |    |		Execute	Any,Is_Value
0379 6803       |h   |		Jump_Zero	0x37d
037a e001       |    |		Load	0x0,0x1
037b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
037c 7801       |x   |		Jump	0x37e
037d 00db       |    |		Load_Top	At_Offset_3
037e e5fe       |    |		Load	0x2,-0x2
037f e402       |    |		Load	0x2,0x2
0380 821e       |    |		Call	0x1,0x1e
0381 c406       |    |		Store	0x2,0x6
0382 c405       |    |		Store	0x2,0x5
0383 c403       |    |		Store	0x2,0x3
0384 c404       |    |		Store	0x2,0x4
0385 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x12.0x6 = 0x385,0x3
0386 00da       |    |		Load_Top	At_Offset_2
0387 e5ff       |    |		Load	0x2,-0x1
0388 00eb       |    |		Load_Encached	Diana_Cache
0389 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
038a e403       |    |		Load	0x2,0x3
038b 00eb       |    |		Load_Encached	Diana_Cache
038c 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
038d e404       |    |		Load	0x2,0x4
038e 00eb       |    |		Load_Encached	Diana_Cache
038f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0390 01cc       |    |		Execute	Vector,Catenate
0391 8215       |    |		Call	0x1,0x15
0392 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0393 67b8       |g   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x12.0x7 = 0x393,0x4
0394 0257       | W  |		Execute	Discrete,Raise
0395 0000 0000  |    |		.XXX[0x3]
0397 0000       |    |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a0       |    |		.CONST	0x03a0								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0002       |    |		.CONST	0x0002								; Number of locals
039b			INIT_0398:
039b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x13 = .DEBUG	0x039b,0x0818,0x0002,0x0000,0x0058,0xc155,0x0000,0x0553
													; Debug Table 0x13.0x0 = 0x39b,0xffff
039c 00db       |    |		Load_Top	At_Offset_3
039d 00eb       |    |		Load_Encached	Diana_Cache
039e 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
039f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03a0			BODY_0398:
03a0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x1 = 0x3a0,0x1
03a1 8217       |    |		Call	0x1,0x17
03a2 6809       |h   |		Jump_Zero	0x3ac
03a3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x13.0x2 = 0x3a3,0x2
03a4 490c       |I   |		Short_Literal	0x10c
03a5 00eb       |    |		Load_Encached	Diana_Cache
03a6 0096       |    |		Execute	Package,Entry
03a7 00eb       |    |		Load_Encached	Diana_Cache
03a8 18ed       |    |		Execute	Package,Field_Execute,Field_Number 0xed
03a9 e5ff       |    |		Load	0x2,-0x1
03aa 821f       |    |		Call	0x1,0x1f
03ab 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ac 679f       |g   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x13.0x3 = 0x3ac,0x3
03ad 0257       | W  |		Execute	Discrete,Raise
03ae 0000 0000  |    |		.XXX[0x2]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03bb       |    |		.CONST	0x03bb								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0003       |    |		.CONST	0x0003								; Number of locals
03b3			INIT_03b0:
03b3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14 = .DEBUG	0x03b3,0x0822,0x0002,0x0000,0x0058,0xc155,0x0000,0x058c
													; Debug Table 0x14.0x0 = 0x3b3,0xffff
03b4 00eb       |    |		Load_Encached	Diana_Cache
03b5 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
03b6 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache
03b7 011e       |    |		Execute	Any,Convert
03b8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x14.0x1 = 0x3b8,0xfffe
03b9 00eb       |    |		Load_Encached	Diana_Cache
03ba 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
03bb			BODY_03b0:
03bb 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x14.0x2 = 0x3bb,0x1
03bc 01db       |    |		Execute	Vector,Length
03bd 0c07       |    |		Execute_Immediate	Greater_Equal,0x7
03be 6817       |h   |		Jump_Zero	0x3d6
03bf 00d8       |    |		Load_Top	At_Offset_0
03c0 01dd       |    |		Execute	Vector,First
03c1 00d9       |    |		Load_Top	At_Offset_1
03c2 01dd       |    |		Execute	Vector,First
03c3 0a05       |    |		Execute_Immediate	Plus,0x5
03c4 0248       | H  |		Execute	Discrete,Check_In_Integer
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 01cf       |    |		Execute	Vector,Slice_Read
03c7 0092 0551  |   Q|		Action	Push_String_Extended,0x551					; "ASCII."
03c9 01df       |    |		Execute	Vector,Equal
03ca 680b       |h   |		Jump_Zero	0x3d6
03cb 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x14.0x3 = 0x3cb,0x2
03cc 01dd       |    |		Execute	Vector,First
03cd 0a06       |    |		Execute_Immediate	Plus,0x6
03ce 0248       | H  |		Execute	Discrete,Check_In_Integer
03cf 00d9       |    |		Load_Top	At_Offset_1
03d0 01dc       |    |		Execute	Vector,Last
03d1 00da       |    |		Load_Top	At_Offset_2
03d2 01cf       |    |		Execute	Vector,Slice_Read
03d3 00eb       |    |		Load_Encached	Diana_Cache
03d4 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
03d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x14.0x4 = 0x3d6,0x3
03d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03fe       |    |		.CONST	0x03fe								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 000b       |    |		.CONST	0x000b								; Number of locals
03db			INIT_03d8:
03db 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15 = .DEBUG	0x03db,0x082e,0x0002,0x0000,0x0058,0xc155,0x0000,0x05e9
													; Debug Table 0x15.0x0 = 0x3db,0xffff
03dc 00db       |    |		Load_Top	At_Offset_3
03dd 00eb       |    |		Load_Encached	Diana_Cache
03de 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
03df 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03e0 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x1 = 0x3e0,0xfffe
03e1 e5ff       |    |		Load	0x2,-0x1
03e2 00eb       |    |		Load_Encached	Diana_Cache
03e3 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
03e4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03e5 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x2 = 0x3e5,0xfffd
03e6 00d9       |    |		Load_Top	At_Offset_1
03e7 00eb       |    |		Load_Encached	Diana_Cache
03e8 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
03e9 e004       |    |		Load	0x0,0x4
03ea 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
03eb 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03ec 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x3 = 0x3ec,0xfffc
03ed e5ff       |    |		Load	0x2,-0x1
03ee 00eb       |    |		Load_Encached	Diana_Cache
03ef 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
03f0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03f1 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x4 = 0x3f1,0xfffb
03f2 00d9       |    |		Load_Top	At_Offset_1
03f3 821a       |    |		Call	0x1,0x1a
03f4 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03f5 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x15.0x5 = 0x3f5,0xfffa
03f6 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x6 = 0x3f6,0xfff9
03f7 00eb       |    |		Load_Encached	Diana_Cache						; Debug Table 0x15.0x7 = 0x3f7,0xfff8
03f8 1b96       |    |		Execute	Package,Field_Read,Field_Number 0x96
03f9 0322       | "  |		Declare_Variable	Record
03fa 00d8       |    |		Load_Top	At_Offset_0
03fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03fc 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x15.0x8 = 0x3fc,0xfff7
03fd 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x15.0x9 = 0x3fd,0xfff6
03fe			BODY_03d8:
03fe 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x15.0xa = 0x3fe,0x1
03ff 00e1       |    |		Load_Encached	Boolean_Cache
0400 e403       |    |		Load	0x2,0x3
0401 e002       |    |		Load	0x0,0x2
0402 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0403 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0404 00d1       |    |		Pop_Control	Pop_Count_1
0405 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0xb = 0x405,0x2
0406 7002       |p   |		Jump_Nonzero	0x409
0407 6744       |gD  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x15.0xc = 0x407,0x3
0408 0257       | W  |		Execute	Discrete,Raise
0409 e404       |    |		Load	0x2,0x4								; Debug Table 0x15.0xd = 0x409,0x4
040a e403       |    |		Load	0x2,0x3
040b e009       |    |		Load	0x0,0x9
040c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
040d 6802       |h   |		Jump_Zero	0x410
040e 673d       |g=  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x15.0xe = 0x40e,0x5
040f 0257       | W  |		Execute	Discrete,Raise
0410 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x15.0xf = 0x410,0x6
0411 00eb       |    |		Load_Encached	Diana_Cache
0412 189f       |    |		Execute	Package,Field_Execute,Field_Number 0x9f
0413 e001       |    |		Load	0x0,0x1
0414 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
0415 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0416 e404       |    |		Load	0x2,0x4								; Debug Table 0x15.0x10 = 0x416,0x7
0417 0007       |    |		Action	Break_Optional
0418 e40c       |    |		Load	0x2,0xc								; Debug Table 0x15.0x11 = 0x418,0x401
0419 0007       |    |		Action	Break_Optional
041a 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x15.0x12 = 0x41a,0x402
041b 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0x13 = 0x41b,0x403
041c 00d0       |    |		Action	Swap_Control							; Debug Table 0x15.0x14 = 0x41c,0x404
041d 00d1       |    |		Pop_Control	Pop_Count_1
041e 0f6e       | n  |		Execute_Immediate	Equal,0x6e					; Debug Table 0x15.0x15 = 0x41e,0x7
041f 7009       |p   |		Jump_Nonzero	0x429
0420 e001       |    |		Load	0x0,0x1								; Debug Table 0x15.0x16 = 0x420,0x8
0421 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0422 e406       |    |		Load	0x2,0x6
0423 e405       |    |		Load	0x2,0x5
0424 e40a       |    |		Load	0x2,0xa
0425 00e0       |    |		Load_Encached	Standard_Cache
0426 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0427 8215       |    |		Call	0x1,0x15
0428 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0429 e404       |    |		Load	0x2,0x4								; Debug Table 0x15.0x17 = 0x429,0x9
042a 00eb       |    |		Load_Encached	Diana_Cache
042b 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
042c a407       |    |		Store_Unchecked	0x2,0x7
042d 00cf       |    |		Action	Mark_Auxiliary
042e 784f       |xO  |		Jump	0x47e
042f e407       |    |		Load	0x2,0x7								; Debug Table 0x15.0x18 = 0x42f,0xb
0430 0007       |    |		Action	Break_Optional
0431 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x19 = 0x431,0x801
0432 7002       |p   |		Jump_Nonzero	0x435
0433 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15.0x1a = 0x433,0x802
0434 782c       |x,  |		Jump	0x461
0435 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x1b = 0x435,0x803
0436 0217       |    |		Execute	Heap_Access,All_Reference
0437 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0438 6804       |h   |		Jump_Zero	0x43d
0439 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x1c = 0x439,0x804
043a 0217       |    |		Execute	Heap_Access,All_Reference
043b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
043c 7824       |x$  |		Jump	0x461
043d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x1d = 0x43d,0x805
043e 0007       |    |		Action	Break_Optional
043f e40e       |    |		Load	0x2,0xe								; Debug Table 0x15.0x1e = 0x43f,0xc01
0440 0007       |    |		Action	Break_Optional
0441 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x15.0x1f = 0x441,0xc02
0442 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0x20 = 0x442,0xc03
0443 00d0       |    |		Action	Swap_Control							; Debug Table 0x15.0x21 = 0x443,0xc04
0444 00d1       |    |		Pop_Control	Pop_Count_1
0445 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x15.0x22 = 0x445,0x805
0446 00eb       |    |		Load_Encached	Diana_Cache
0447 0098       |    |		Execute	Package,Field_Read_Dynamic
0448 012c       | ,  |		Execute	Any,Size
0449 e007       |    |		Load	0x0,0x7
044a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
044b 025b       | [  |		Execute	Discrete,Check_In_Type
044c 0273       | s  |		Execute	Discrete,Plus
044d 00d9       |    |		Load_Top	At_Offset_1
044e 0007       |    |		Action	Break_Optional
044f e40f       |    |		Load	0x2,0xf								; Debug Table 0x15.0x23 = 0x44f,0x1001
0450 0007       |    |		Action	Break_Optional
0451 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x15.0x24 = 0x451,0x1002
0452 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0x25 = 0x452,0x1003
0453 00d0       |    |		Action	Swap_Control							; Debug Table 0x15.0x26 = 0x453,0x1004
0454 00d1       |    |		Pop_Control	Pop_Count_1
0455 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x15.0x27 = 0x455,0xc04
0456 00eb       |    |		Load_Encached	Diana_Cache
0457 0098       |    |		Execute	Package,Field_Read_Dynamic
0458 49c9       |I   |		Short_Literal	0x1c9
0459 00eb       |    |		Load_Encached	Diana_Cache
045a 0098       |    |		Execute	Package,Field_Read_Dynamic
045b 49ca       |I   |		Short_Literal	0x1ca
045c 00eb       |    |		Load_Encached	Diana_Cache
045d 0095       |    |		Execute	Package,Field_Reference_Dynamic
045e e008       |    |		Load	0x0,0x8
045f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0460 7800       |x   |		Jump	0x461
0461 00d0       |    |		Action	Swap_Control
0462 00d1       |    |		Pop_Control	Pop_Count_1
0463 a408       |    |		Store_Unchecked	0x2,0x8							; Debug Table 0x15.0x28 = 0x463,0xb
0464 e408       |    |		Load	0x2,0x8								; Debug Table 0x15.0x29 = 0x464,0xc
0465 00eb       |    |		Load_Encached	Diana_Cache
0466 18f0       |    |		Execute	Package,Field_Execute,Field_Number 0xf0
0467 00db       |    |		Load_Top	At_Offset_3
0468 027f       |    |		Execute	Discrete,Equal
0469 680a       |h   |		Jump_Zero	0x474
046a e001       |    |		Load	0x0,0x1								; Debug Table 0x15.0x2a = 0x46a,0xd
046b 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
046c e406       |    |		Load	0x2,0x6
046d e405       |    |		Load	0x2,0x5
046e e408       |    |		Load	0x2,0x8
046f 8221       | !  |		Call	0x1,0x21
0470 00eb       |    |		Load_Encached	Diana_Cache
0471 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0472 8215       |    |		Call	0x1,0x15
0473 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0474 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0x2b = 0x474,0xe
0475 e407       |    |		Load	0x2,0x7								; Debug Table 0x15.0x2c = 0x475,0x1401
0476 7002       |p   |		Jump_Nonzero	0x479
0477 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x15.0x2d = 0x477,0x1402
0478 7803       |x   |		Jump	0x47c
0479 e407       |    |		Load	0x2,0x7								; Debug Table 0x15.0x2e = 0x479,0x1403
047a 0217       |    |		Execute	Heap_Access,All_Reference
047b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047c a407       |    |		Store_Unchecked	0x2,0x7							; Debug Table 0x15.0x2f = 0x47c,0xe
047d 00c9       |    |		Action	Pop_Auxiliary_Loop
047e 0007       |    |		Action	Break_Optional							; Debug Table 0x15.0x30 = 0x47e,0xa
047f e407       |    |		Load	0x2,0x7								; Debug Table 0x15.0x31 = 0x47f,0x1801
0480 021d       |    |		Execute	Heap_Access,Is_Null
0481 6fad       |o   |		Jump_Zero	0x42f							; Debug Table 0x15.0x32 = 0x481,0xa
0482 00ce       |    |		Action	Pop_Auxiliary
0483 66c8       |f   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x15.0x33 = 0x483,0xf
0484 0257       | W  |		Execute	Discrete,Raise
0485 0000 0000  |    |		.XXX[0x3]
0487 0000       |    |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048e       |    |		.CONST	0x048e								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0002       |    |		.CONST	0x0002								; Number of locals
048b			INIT_0488:
048b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16 = .DEBUG	0x048b,0x0898,0x0002,0x0000,0x0058,0xc155,0x0000,0x06f0
													; Debug Table 0x16.0x0 = 0x48b,0xffff
048c 00db       |    |		Load_Top	At_Offset_3
048d 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
048e			BODY_0488:
048e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x16.0x1 = 0x48e,0x1
048f e005       |    |		Load	0x0,0x5
0490 18c5       |    |		Execute	Package,Field_Execute,Field_Number 0xc5
0491 6804       |h   |		Jump_Zero	0x496
0492 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x16.0x2 = 0x492,0x2
0493 e005       |    |		Load	0x0,0x5
0494 18c6       |    |		Execute	Package,Field_Execute,Field_Number 0xc6
0495 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0496 e001       |    |		Load	0x0,0x1								; Debug Table 0x16.0x3 = 0x496,0x3
0497 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0498 8214       |    |		Call	0x1,0x14
0499 8213       |    |		Call	0x1,0x13
049a 00db       |    |		Load_Top	At_Offset_3
049b e00a       |    |		Load	0x0,0xa
049c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
049d 8215       |    |		Call	0x1,0x15
049e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
049f 0000       |    |		.XXX[0x1]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04b8       |    |		.CONST	0x04b8								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0004       |    |		.CONST	0x0004								; Number of locals
04a3			INIT_04a0:
04a3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x17 = .DEBUG	0x04a3,0x08a2,0x0002,0x0000,0x0058,0xc155,0x0000,0x0724
													; Debug Table 0x17.0x0 = 0x4a3,0xffff
04a4 00db       |    |		Load_Top	At_Offset_3
04a5 00eb       |    |		Load_Encached	Diana_Cache
04a6 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
04a7 4976       |Iv  |		Short_Literal	0x176
04a8 00eb       |    |		Load_Encached	Diana_Cache
04a9 0098       |    |		Execute	Package,Field_Read_Dynamic
04aa 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04ab 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
04ac 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x17.0x1 = 0x4ac,0xfffe
04ad 00d9       |    |		Load_Top	At_Offset_1
04ae e00b       |    |		Load	0x0,0xb
04af 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04b0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
04b1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x17.0x2 = 0x4b1,0xfffd
04b2 00eb       |    |		Load_Encached	Diana_Cache
04b3 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
04b4 00eb       |    |		Load_Encached	Diana_Cache
04b5 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
04b6 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache
04b7 011e       |    |		Execute	Any,Convert
04b8			BODY_04a0:
04b8 e00c       |    |		Load	0x0,0xc								; Debug Table 0x17.0x3 = 0x4b8,0x1
04b9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04ba 00d9       |    |		Load_Top	At_Offset_1
04bb 00eb       |    |		Load_Encached	Diana_Cache
04bc 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
04bd 6803       |h   |		Jump_Zero	0x4c1
04be 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x17.0x4 = 0x4be,0x2
04bf 8223       | #  |		Call	0x1,0x23
04c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c1 e00c       |    |		Load	0x0,0xc								; Debug Table 0x17.0x5 = 0x4c1,0x3
04c2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c3 00d9       |    |		Load_Top	At_Offset_1
04c4 00eb       |    |		Load_Encached	Diana_Cache
04c5 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
04c6 680a       |h   |		Jump_Zero	0x4d1
04c7 e001       |    |		Load	0x0,0x1								; Debug Table 0x17.0x6 = 0x4c7,0x4
04c8 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
04c9 8214       |    |		Call	0x1,0x14
04ca 8213       |    |		Call	0x1,0x13
04cb e00d       |    |		Load	0x0,0xd
04cc 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
04cd e00a       |    |		Load	0x0,0xa
04ce 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04cf 8215       |    |		Call	0x1,0x15
04d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d1 e00c       |    |		Load	0x0,0xc								; Debug Table 0x17.0x7 = 0x4d1,0x5
04d2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04d3 00d9       |    |		Load_Top	At_Offset_1
04d4 00eb       |    |		Load_Encached	Diana_Cache
04d5 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
04d6 681a       |h   |		Jump_Zero	0x4f1
04d7 e001       |    |		Load	0x0,0x1								; Debug Table 0x17.0x8 = 0x4d7,0x6
04d8 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
04d9 8214       |    |		Call	0x1,0x14
04da 8213       |    |		Call	0x1,0x13
04db e403       |    |		Load	0x2,0x3
04dc 490d       |I   |		Short_Literal	0x10d
04dd e005       |    |		Load	0x0,0x5
04de 0096       |    |		Execute	Package,Entry
04df 00e3       |    |		Load_Encached	Natural_Cache
04e0 025b       | [  |		Execute	Discrete,Check_In_Type
04e1 e403       |    |		Load	0x2,0x3
04e2 490a       |I   |		Short_Literal	0x10a
04e3 e005       |    |		Load	0x0,0x5
04e4 0096       |    |		Execute	Package,Entry
04e5 00e3       |    |		Load_Encached	Natural_Cache
04e6 025b       | [  |		Execute	Discrete,Check_In_Type
04e7 e403       |    |		Load	0x2,0x3
04e8 4907       |I   |		Short_Literal	0x107
04e9 e005       |    |		Load	0x0,0x5
04ea 0096       |    |		Execute	Package,Entry
04eb 00e3       |    |		Load_Encached	Natural_Cache
04ec 025b       | [  |		Execute	Discrete,Check_In_Type
04ed e00a       |    |		Load	0x0,0xa
04ee 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04ef 8215       |    |		Call	0x1,0x15
04f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f1 665a       |fZ  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x17.0x9 = 0x4f1,0x7
04f2 0257       | W  |		Execute	Discrete,Raise
04f3 0000 0000  |    |		.BLANK	0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0504       |    |		.CONST	0x0504								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0002       |    |		.CONST	0x0002								; Number of locals
04fb			INIT_04f8:
04fb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x18 = .DEBUG	0x04fb,0x08b8,0x0002,0x0000,0x0058,0xc155,0x0000,0x07b8
													; Debug Table 0x18.0x0 = 0x4fb,0xffff
04fc 00eb       |    |		Load_Encached	Diana_Cache
04fd 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
04fe 00eb       |    |		Load_Encached	Diana_Cache
04ff 18cf       |    |		Execute	Package,Field_Execute,Field_Number 0xcf
0500 00eb       |    |		Load_Encached	Diana_Cache
0501 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0502 00ed       |    |		Load_Encached	Diana_Symbol_Rep_Cache
0503 011e       |    |		Execute	Any,Convert
0504			BODY_04f8:
0504 4978       |Ix  |		Short_Literal	0x178							; Debug Table 0x18.0x1 = 0x504,0x1
0505 00eb       |    |		Load_Encached	Diana_Cache
0506 0098       |    |		Execute	Package,Field_Read_Dynamic
0507 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0508 00d9       |    |		Load_Top	At_Offset_1
0509 00eb       |    |		Load_Encached	Diana_Cache
050a 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
050b 6803       |h   |		Jump_Zero	0x50f
050c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x18.0x2 = 0x50c,0x2
050d 8222       | "  |		Call	0x1,0x22
050e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
050f 663c       |f<  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x18.0x3 = 0x50f,0x3
0510 0257       | W  |		Execute	Discrete,Raise
0511 0000 0000  |    |		.BLANK	0000[0x7]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0521       | !  |		.CONST	0x0521								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0003       |    |		.CONST	0x0003								; Number of locals
051b			INIT_0518:
051b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x19 = .DEBUG	0x051b,0x08c2,0x0002,0x0000,0x0058,0xc155,0x0000,0x07f5
													; Debug Table 0x19.0x0 = 0x51b,0xffff
051c 00db       |    |		Load_Top	At_Offset_3
051d 00eb       |    |		Load_Encached	Diana_Cache
051e 18fa       |    |		Execute	Package,Field_Execute,Field_Number 0xfa
051f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0520 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x19.0x1 = 0x520,0xfffe
0521			BODY_0518:
0521 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0x2 = 0x521,0x1
0522 e402       |    |		Load	0x2,0x2								; Debug Table 0x19.0x3 = 0x522,0x401
0523 0007       |    |		Action	Break_Optional
0524 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x19.0x4 = 0x524,0x402
0525 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0x5 = 0x525,0x403
0526 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0x6 = 0x526,0x404
0527 0b1d       |    |		Execute_Immediate	Case_Compare,0x1d				; Debug Table 0x19.0x7 = 0x527,0x1
0528 7003       |p   |		Jump_Nonzero	0x52c
0529 0b30       | 0  |		Execute_Immediate	Case_Compare,0x30
052a 700d       |p   |		Jump_Nonzero	0x538
052b 781e       |x   |		Jump	0x54a								; Debug Table 0x19.0x8 = 0x52b,0x8
052c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x19.0x9 = 0x52c,0x2
052d 4901       |I   |		Short_Literal	0x101
052e 00eb       |    |		Load_Encached	Diana_Cache
052f 0096       |    |		Execute	Package,Entry
0530 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0531 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0xa = 0x531,0x3
0532 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x19.0xb = 0x532,0x801
0533 021d       |    |		Execute	Heap_Access,Is_Null
0534 7015       |p   |		Jump_Nonzero	0x54a							; Debug Table 0x19.0xc = 0x534,0x3
0535 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x19.0xd = 0x535,0x4
0536 8211       |    |		Call	0x1,0x11
0537 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0538 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x19.0xe = 0x538,0x5
0539 4901       |I   |		Short_Literal	0x101
053a 00eb       |    |		Load_Encached	Diana_Cache
053b 0096       |    |		Execute	Package,Entry
053c 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
053d 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0xf = 0x53d,0x6
053e e403       |    |		Load	0x2,0x3								; Debug Table 0x19.0x10 = 0x53e,0xc01
053f 0007       |    |		Action	Break_Optional
0540 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x19.0x11 = 0x540,0xc02
0541 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0x12 = 0x541,0xc03
0542 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0x13 = 0x542,0xc04
0543 0f80       |    |		Execute_Immediate	Equal,-0x80					; Debug Table 0x19.0x14 = 0x543,0x6
0544 6805       |h   |		Jump_Zero	0x54a
0545 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x19.0x15 = 0x545,0x7
0546 00eb       |    |		Load_Encached	Diana_Cache
0547 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0548 8211       |    |		Call	0x1,0x11
0549 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
054a 00d1       |    |		Pop_Control	Pop_Count_1
054b 6600       |f   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x58c15501}		; Debug Table 0x19.0x16 = 0x54b,0x9
054c 0257       | W  |		Execute	Discrete,Raise
054d ; --------------------------------------------------------------------------------------
054d ; STRING TABLE
054d ; --------------------------------------------------------------------------------------
054d 000c       |    |		.STRTAB	0x000c->0x0553							; "CATENATE"
054e 0012       |    |		.STRTAB	0x0012->0x0557							; "APPEND"
054f 0016       |    |		.STRTAB	0x0016->0x055a							; "PREPEND"
0550 001b       |    |		.STRTAB	0x001b->0x055d							; "COMBINE"
0551 0020       |    |		.STRTAB	0x0020->0x0561							; "ASCII."
0552 0024       | $  |		.STREND 0x0024->0x0564
0553 4341 5445  |CATE|		.STRTAB_STRINGS
0564 0000 0000  |    |		.BLANK	0000[0x4]
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug Table
0568 ; --------------------------------------------------------------------------------------
0568 0003 001a  |    |		.CONST	0x0003,0x001a
056a 000b 063a  |   :|		.DEBUG	0x000b,0x063a,0x8000,0x0000,0x0057,0x3495,0x0000,0x0005
0572 000e 063e  |   >|		.DEBUG	0x000e,0x063e,0x8000,0x0000,0x0058,0xc155,0x0000,0x001f
057a 005b 0684  | [  |		.DEBUG	0x005b,0x0684,0x0001,0x0000,0x0057,0x3495,0x0000,0x0006
0582 0073 0692  | s  |		.DEBUG	0x0073,0x0692,0x0005,0x0000,0x0058,0xc155,0x0000,0x0065
058a 008b 0694  |    |		.DEBUG	0x008b,0x0694,0x0002,0x0000,0x0058,0xc155,0x0000,0x006d
0592 00bb 06b0  |    |		.DEBUG	0x00bb,0x06b0,0x0002,0x0000,0x0058,0xc155,0x0000,0x007a
059a 00d3 06be  |    |		.DEBUG	0x00d3,0x06be,0x0002,0x0000,0x0058,0xc155,0x0000,0x00ae
05a2 00e3 06c2  |    |		.DEBUG	0x00e3,0x06c2,0x0002,0x0000,0x0058,0xc155,0x0000,0x00c2
05aa 00f3 06c6  |    |		.DEBUG	0x00f3,0x06c6,0x0002,0x0000,0x0058,0xc155,0x0000,0x00d6
05b2 013b 06e6  | ;  |		.DEBUG	0x013b,0x06e6,0x0002,0x0000,0x0058,0xc155,0x0000,0x0184
05ba 0163 06fc  | c  |		.DEBUG	0x0163,0x06fc,0x0002,0x0000,0x0058,0xc155,0x0000,0x01e7
05c2 019b 071e  |    |		.DEBUG	0x019b,0x071e,0x0002,0x0000,0x0058,0xc155,0x0000,0x0259
05ca 01ab 0722  |   "|		.DEBUG	0x01ab,0x0722,0x0002,0x0000,0x0058,0xc155,0x0000,0x027b
05d2 01bb 0726  |   &|		.DEBUG	0x01bb,0x0726,0x0002,0x0000,0x0058,0xc155,0x0000,0x029d
05da 021b 0760  |   `|		.DEBUG	0x021b,0x0760,0x0002,0x0000,0x0058,0xc155,0x0000,0x030b
05e2 022b 0764  | + d|		.DEBUG	0x022b,0x0764,0x0002,0x0000,0x0058,0xc155,0x0000,0x032d
05ea 029b 07a4  |    |		.DEBUG	0x029b,0x07a4,0x0002,0x0000,0x0058,0xc155,0x0000,0x039e
05f2 02b3 07a8  |    |		.DEBUG	0x02b3,0x07a8,0x0001,0x0000,0x0058,0xc155,0x0000,0x03c7
05fa 0353 0806  | S  |		.DEBUG	0x0353,0x0806,0x0002,0x0000,0x0058,0xc155,0x0000,0x04e2
0602 039b 0818  |    |		.DEBUG	0x039b,0x0818,0x0002,0x0000,0x0058,0xc155,0x0000,0x0553
060a 03b3 0822  |   "|		.DEBUG	0x03b3,0x0822,0x0002,0x0000,0x0058,0xc155,0x0000,0x058c
0612 03db 082e  |   .|		.DEBUG	0x03db,0x082e,0x0002,0x0000,0x0058,0xc155,0x0000,0x05e9
061a 048b 0898  |    |		.DEBUG	0x048b,0x0898,0x0002,0x0000,0x0058,0xc155,0x0000,0x06f0
0622 04a3 08a2  |    |		.DEBUG	0x04a3,0x08a2,0x0002,0x0000,0x0058,0xc155,0x0000,0x0724
062a 04fb 08b8  |    |		.DEBUG	0x04fb,0x08b8,0x0002,0x0000,0x0058,0xc155,0x0000,0x07b8
0632 051b 08c2  |    |		.DEBUG	0x051b,0x08c2,0x0002,0x0000,0x0058,0xc155,0x0000,0x07f5
063a ; --------------------------------------------------------------------------------------
063a ; Debug3 Subtable 0x0
063a ; --------------------------------------------------------------------------------------
063a 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
063c 000b ffff  |    |		.CONST	0x000b,0xffff
063e ; --------------------------------------------------------------------------------------
063e ; Debug3 Subtable 0x1
063e ; --------------------------------------------------------------------------------------
063e 0022 0000  | "  |		.DBG3TAB	0x0022,0x0000
0640 000e ffff  |    |		.CONST	0x000e,0xffff
0642 000f fffe  |    |		.CONST	0x000f,0xfffe
0644 0010 fffd  |    |		.CONST	0x0010,0xfffd
0646 0011 fffc  |    |		.CONST	0x0011,0xfffc
0648 0012 fffb  |    |		.CONST	0x0012,0xfffb
064a 0013 fffa  |    |		.CONST	0x0013,0xfffa
064c 0014 fff9  |    |		.CONST	0x0014,0xfff9
064e 0017 fff8  |    |		.CONST	0x0017,0xfff8
0650 001a fff7  |    |		.CONST	0x001a,0xfff7
0652 001b fff6  |    |		.CONST	0x001b,0xfff6
0654 0020 fff5  |    |		.CONST	0x0020,0xfff5
0656 0022 fff4  | "  |		.CONST	0x0022,0xfff4
0658 0024 fff3  | $  |		.CONST	0x0024,0xfff3
065a 0026 fff2  | &  |		.CONST	0x0026,0xfff2
065c 0028 fff1  | (  |		.CONST	0x0028,0xfff1
065e 002a fff0  | *  |		.CONST	0x002a,0xfff0
0660 002c ffef  | ,  |		.CONST	0x002c,0xffef
0662 002e ffee  | .  |		.CONST	0x002e,0xffee
0664 0030 ffed  | 0  |		.CONST	0x0030,0xffed
0666 0032 ffec  | 2  |		.CONST	0x0032,0xffec
0668 0034 ffeb  | 4  |		.CONST	0x0034,0xffeb
066a 0036 ffea  | 6  |		.CONST	0x0036,0xffea
066c 0038 ffe9  | 8  |		.CONST	0x0038,0xffe9
066e 003a ffe8  | :  |		.CONST	0x003a,0xffe8
0670 003c ffe7  | <  |		.CONST	0x003c,0xffe7
0672 003e ffe6  | >  |		.CONST	0x003e,0xffe6
0674 0040 ffe5  | @  |		.CONST	0x0040,0xffe5
0676 0042 ffe4  | B  |		.CONST	0x0042,0xffe4
0678 0044 ffe3  | D  |		.CONST	0x0044,0xffe3
067a 0046 ffe2  | F  |		.CONST	0x0046,0xffe2
067c 0048 ffe1  | H  |		.CONST	0x0048,0xffe1
067e 004a ffe0  | J  |		.CONST	0x004a,0xffe0
0680 004c ffdf  | L  |		.CONST	0x004c,0xffdf
0682 004e ffde  | N  |		.CONST	0x004e,0xffde
0684 ; --------------------------------------------------------------------------------------
0684 ; Debug3 Subtable 0x2
0684 ; --------------------------------------------------------------------------------------
0684 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0686 005b 0001  | [  |		.CONST	0x005b,0x0001
0688 005e 0002  | ^  |		.CONST	0x005e,0x0002
068a 0064 0003  | d  |		.CONST	0x0064,0x0003
068c 0065 0401  | e  |		.CONST	0x0065,0x0401
068e 0066 0003  | f  |		.CONST	0x0066,0x0003
0690 0067 0004  | g  |		.CONST	0x0067,0x0004
0692 ; --------------------------------------------------------------------------------------
0692 ; Debug3 Subtable 0x3
0692 ; --------------------------------------------------------------------------------------
0692 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0694 ; --------------------------------------------------------------------------------------
0694 ; Debug3 Subtable 0x4
0694 ; --------------------------------------------------------------------------------------
0694 0000 000d  |    |		.DBG3TAB	0x0000,0x000d
0696 008b 0001  |    |		.CONST	0x008b,0x0001
0698 008c 0401  |    |		.CONST	0x008c,0x0401
069a 008e 0402  |    |		.CONST	0x008e,0x0402
069c 008f 0403  |    |		.CONST	0x008f,0x0403
069e 0090 0404  |    |		.CONST	0x0090,0x0404
06a0 0091 0001  |    |		.CONST	0x0091,0x0001
06a2 009d 0008  |    |		.CONST	0x009d,0x0008
06a4 009f 0002  |    |		.CONST	0x009f,0x0002
06a6 00a4 0003  |    |		.CONST	0x00a4,0x0003
06a8 00a6 0004  |    |		.CONST	0x00a6,0x0004
06aa 00a9 0005  |    |		.CONST	0x00a9,0x0005
06ac 00ac 0006  |    |		.CONST	0x00ac,0x0006
06ae 00af 0007  |    |		.CONST	0x00af,0x0007
06b0 ; --------------------------------------------------------------------------------------
06b0 ; Debug3 Subtable 0x5
06b0 ; --------------------------------------------------------------------------------------
06b0 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
06b2 00bb ffff  |    |		.CONST	0x00bb,0xffff
06b4 00bc fffe  |    |		.CONST	0x00bc,0xfffe
06b6 00c1 0001  |    |		.CONST	0x00c1,0x0001
06b8 00c8 0002  |    |		.CONST	0x00c8,0x0002
06ba 00ca 0003  |    |		.CONST	0x00ca,0x0003
06bc 00ce 0004  |    |		.CONST	0x00ce,0x0004
06be ; --------------------------------------------------------------------------------------
06be ; Debug3 Subtable 0x6
06be ; --------------------------------------------------------------------------------------
06be 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
06c0 00d3 0001  |    |		.CONST	0x00d3,0x0001
06c2 ; --------------------------------------------------------------------------------------
06c2 ; Debug3 Subtable 0x7
06c2 ; --------------------------------------------------------------------------------------
06c2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
06c4 00e3 0001  |    |		.CONST	0x00e3,0x0001
06c6 ; --------------------------------------------------------------------------------------
06c6 ; Debug3 Subtable 0x8
06c6 ; --------------------------------------------------------------------------------------
06c6 0005 000a  |    |		.DBG3TAB	0x0005,0x000a
06c8 00f3 ffff  |    |		.CONST	0x00f3,0xffff
06ca 00fb fffe  |    |		.CONST	0x00fb,0xfffe
06cc 0100 fffd  |    |		.CONST	0x0100,0xfffd
06ce 0101 fffc  |    |		.CONST	0x0101,0xfffc
06d0 0102 fffb  |    |		.CONST	0x0102,0xfffb
06d2 0103 0001  |    |		.CONST	0x0103,0x0001
06d4 010d 0002  |    |		.CONST	0x010d,0x0002
06d6 0111 0003  |    |		.CONST	0x0111,0x0003
06d8 0116 0004  |    |		.CONST	0x0116,0x0004
06da 011a 0005  |    |		.CONST	0x011a,0x0005
06dc 011f 0006  |    |		.CONST	0x011f,0x0006
06de 0125 0007  | %  |		.CONST	0x0125,0x0007
06e0 012a 0008  | *  |		.CONST	0x012a,0x0008
06e2 012f 0009  | /  |		.CONST	0x012f,0x0009
06e4 0134 000a  | 4  |		.CONST	0x0134,0x000a
06e6 ; --------------------------------------------------------------------------------------
06e6 ; Debug3 Subtable 0x9
06e6 ; --------------------------------------------------------------------------------------
06e6 0003 0007  |    |		.DBG3TAB	0x0003,0x0007
06e8 013b ffff  | ;  |		.CONST	0x013b,0xffff
06ea 0140 fffe  | @  |		.CONST	0x0140,0xfffe
06ec 0145 fffd  | E  |		.CONST	0x0145,0xfffd
06ee 014a 0001  | J  |		.CONST	0x014a,0x0001
06f0 014e 0002  | N  |		.CONST	0x014e,0x0002
06f2 0152 0003  | R  |		.CONST	0x0152,0x0003
06f4 0154 0004  | T  |		.CONST	0x0154,0x0004
06f6 0156 0005  | V  |		.CONST	0x0156,0x0005
06f8 015a 0006  | Z  |		.CONST	0x015a,0x0006
06fa 015c 0007  | \  |		.CONST	0x015c,0x0007
06fc ; --------------------------------------------------------------------------------------
06fc ; Debug3 Subtable 0xa
06fc ; --------------------------------------------------------------------------------------
06fc 0001 000f  |    |		.DBG3TAB	0x0001,0x000f
06fe 0163 ffff  | c  |		.CONST	0x0163,0xffff
0700 0164 0001  | d  |		.CONST	0x0164,0x0001
0702 0165 0401  | e  |		.CONST	0x0165,0x0401
0704 0167 0402  | g  |		.CONST	0x0167,0x0402
0706 0168 0403  | h  |		.CONST	0x0168,0x0403
0708 0169 0404  | i  |		.CONST	0x0169,0x0404
070a 016a 0001  | j  |		.CONST	0x016a,0x0001
070c 016c 0002  | l  |		.CONST	0x016c,0x0002
070e 0176 0003  | v  |		.CONST	0x0176,0x0003
0710 0178 0004  | x  |		.CONST	0x0178,0x0004
0712 017e 0005  | ~  |		.CONST	0x017e,0x0005
0714 0182 0006  |    |		.CONST	0x0182,0x0006
0716 0186 0007  |    |		.CONST	0x0186,0x0007
0718 0190 0008  |    |		.CONST	0x0190,0x0008
071a 0192 0009  |    |		.CONST	0x0192,0x0009
071c 0194 000a  |    |		.CONST	0x0194,0x000a
071e ; --------------------------------------------------------------------------------------
071e ; Debug3 Subtable 0xb
071e ; --------------------------------------------------------------------------------------
071e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0720 019b 0001  |    |		.CONST	0x019b,0x0001
0722 ; --------------------------------------------------------------------------------------
0722 ; Debug3 Subtable 0xc
0722 ; --------------------------------------------------------------------------------------
0722 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0724 01ab 0001  |    |		.CONST	0x01ab,0x0001
0726 ; --------------------------------------------------------------------------------------
0726 ; Debug3 Subtable 0xd
0726 ; --------------------------------------------------------------------------------------
0726 0003 0019  |    |		.DBG3TAB	0x0003,0x0019
0728 01bb ffff  |    |		.CONST	0x01bb,0xffff
072a 01c0 fffe  |    |		.CONST	0x01c0,0xfffe
072c 01c6 0401  |    |		.CONST	0x01c6,0x0401
072e 01c8 0402  |    |		.CONST	0x01c8,0x0402
0730 01ca 0403  |    |		.CONST	0x01ca,0x0403
0732 01ce 0404  |    |		.CONST	0x01ce,0x0404
0734 01d2 0405  |    |		.CONST	0x01d2,0x0405
0736 01d4 0801  |    |		.CONST	0x01d4,0x0801
0738 01d6 0802  |    |		.CONST	0x01d6,0x0802
073a 01d7 0803  |    |		.CONST	0x01d7,0x0803
073c 01d8 0804  |    |		.CONST	0x01d8,0x0804
073e 01da 0405  |    |		.CONST	0x01da,0x0405
0740 01e4 0c01  |    |		.CONST	0x01e4,0x0c01
0742 01e6 0c02  |    |		.CONST	0x01e6,0x0c02
0744 01e7 0c03  |    |		.CONST	0x01e7,0x0c03
0746 01e8 0c04  |    |		.CONST	0x01e8,0x0c04
0748 01ea 0804  |    |		.CONST	0x01ea,0x0804
074a 01f8 fffe  |    |		.CONST	0x01f8,0xfffe
074c 01f9 0001  |    |		.CONST	0x01f9,0x0001
074e 01fa 1001  |    |		.CONST	0x01fa,0x1001
0750 01fc 1002  |    |		.CONST	0x01fc,0x1002
0752 01fd 1003  |    |		.CONST	0x01fd,0x1003
0754 01fe 1004  |    |		.CONST	0x01fe,0x1004
0756 01ff 0001  |    |		.CONST	0x01ff,0x0001
0758 0209 0005  |    |		.CONST	0x0209,0x0005
075a 020b 0002  |    |		.CONST	0x020b,0x0002
075c 020f 0003  |    |		.CONST	0x020f,0x0003
075e 0213 0004  |    |		.CONST	0x0213,0x0004
0760 ; --------------------------------------------------------------------------------------
0760 ; Debug3 Subtable 0xe
0760 ; --------------------------------------------------------------------------------------
0760 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0762 021b 0001  |    |		.CONST	0x021b,0x0001
0764 ; --------------------------------------------------------------------------------------
0764 ; Debug3 Subtable 0xf
0764 ; --------------------------------------------------------------------------------------
0764 0005 001a  |    |		.DBG3TAB	0x0005,0x001a
0766 022b ffff  | +  |		.CONST	0x022b,0xffff
0768 022d fffe  | -  |		.CONST	0x022d,0xfffe
076a 0237 fffd  | 7  |		.CONST	0x0237,0xfffd
076c 023c fffc  | <  |		.CONST	0x023c,0xfffc
076e 0242 0401  | B  |		.CONST	0x0242,0x0401
0770 0244 0402  | D  |		.CONST	0x0244,0x0402
0772 0246 0403  | F  |		.CONST	0x0246,0x0403
0774 024a 0404  | J  |		.CONST	0x024a,0x0404
0776 024e 0405  | N  |		.CONST	0x024e,0x0405
0778 0250 0801  | P  |		.CONST	0x0250,0x0801
077a 0252 0802  | R  |		.CONST	0x0252,0x0802
077c 0253 0803  | S  |		.CONST	0x0253,0x0803
077e 0254 0804  | T  |		.CONST	0x0254,0x0804
0780 0256 0405  | V  |		.CONST	0x0256,0x0405
0782 0260 0c01  | `  |		.CONST	0x0260,0x0c01
0784 0262 0c02  | b  |		.CONST	0x0262,0x0c02
0786 0263 0c03  | c  |		.CONST	0x0263,0x0c03
0788 0264 0c04  | d  |		.CONST	0x0264,0x0c04
078a 0266 0804  | f  |		.CONST	0x0266,0x0804
078c 0274 fffc  | t  |		.CONST	0x0274,0xfffc
078e 0275 0001  | u  |		.CONST	0x0275,0x0001
0790 0276 1001  | v  |		.CONST	0x0276,0x1001
0792 0278 1002  | x  |		.CONST	0x0278,0x1002
0794 0279 1003  | y  |		.CONST	0x0279,0x1003
0796 027a 1004  | z  |		.CONST	0x027a,0x1004
0798 027b 0001  | {  |		.CONST	0x027b,0x0001
079a 027d 0002  | }  |		.CONST	0x027d,0x0002
079c 0280 0003  |    |		.CONST	0x0280,0x0003
079e 028a 0004  |    |		.CONST	0x028a,0x0004
07a0 028c 0005  |    |		.CONST	0x028c,0x0005
07a2 0290 0006  |    |		.CONST	0x0290,0x0006
07a4 ; --------------------------------------------------------------------------------------
07a4 ; Debug3 Subtable 0x10
07a4 ; --------------------------------------------------------------------------------------
07a4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
07a6 029b 0001  |    |		.CONST	0x029b,0x0001
07a8 ; --------------------------------------------------------------------------------------
07a8 ; Debug3 Subtable 0x11
07a8 ; --------------------------------------------------------------------------------------
07a8 0008 0026  |   &|		.DBG3TAB	0x0008,0x0026
07aa 02b3 ffff  |    |		.CONST	0x02b3,0xffff
07ac 02b5 fffe  |    |		.CONST	0x02b5,0xfffe
07ae 02b8 0401  |    |		.CONST	0x02b8,0x0401
07b0 02bd 0801  |    |		.CONST	0x02bd,0x0801
07b2 02bf 0802  |    |		.CONST	0x02bf,0x0802
07b4 02c0 0803  |    |		.CONST	0x02c0,0x0803
07b6 02c1 0804  |    |		.CONST	0x02c1,0x0804
07b8 02c3 0401  |    |		.CONST	0x02c3,0x0401
07ba 02c8 fffe  |    |		.CONST	0x02c8,0xfffe
07bc 02c9 fffd  |    |		.CONST	0x02c9,0xfffd
07be 02ca 0c01  |    |		.CONST	0x02ca,0x0c01
07c0 02cd fffd  |    |		.CONST	0x02cd,0xfffd
07c2 02ce 1001  |    |		.CONST	0x02ce,0x1001
07c4 02d3 1401  |    |		.CONST	0x02d3,0x1401
07c6 02d5 1402  |    |		.CONST	0x02d5,0x1402
07c8 02d6 1403  |    |		.CONST	0x02d6,0x1403
07ca 02d7 1404  |    |		.CONST	0x02d7,0x1404
07cc 02d9 1001  |    |		.CONST	0x02d9,0x1001
07ce 02de fffd  |    |		.CONST	0x02de,0xfffd
07d0 02df fffc  |    |		.CONST	0x02df,0xfffc
07d2 02e9 fffb  |    |		.CONST	0x02e9,0xfffb
07d4 02f3 0001  |    |		.CONST	0x02f3,0x0001
07d6 02f9 0002  |    |		.CONST	0x02f9,0x0002
07d8 02fc 0003  |    |		.CONST	0x02fc,0x0003
07da 02ff 0004  |    |		.CONST	0x02ff,0x0004
07dc 0303 0005  |    |		.CONST	0x0303,0x0005
07de 0307 0006  |    |		.CONST	0x0307,0x0006
07e0 030a 0007  |    |		.CONST	0x030a,0x0007
07e2 030e 0008  |    |		.CONST	0x030e,0x0008
07e4 0311 0009  |    |		.CONST	0x0311,0x0009
07e6 0314 000a  |    |		.CONST	0x0314,0x000a
07e8 0318 000b  |    |		.CONST	0x0318,0x000b
07ea 031b 000c  |    |		.CONST	0x031b,0x000c
07ec 031e 000d  |    |		.CONST	0x031e,0x000d
07ee 0322 000e  | "  |		.CONST	0x0322,0x000e
07f0 0325 000f  | %  |		.CONST	0x0325,0x000f
07f2 0328 0010  | (  |		.CONST	0x0328,0x0010
07f4 032b 0011  | +  |		.CONST	0x032b,0x0011
07f6 032f 0012  | /  |		.CONST	0x032f,0x0012
07f8 0332 0013  | 2  |		.CONST	0x0332,0x0013
07fa 0336 0014  | 6  |		.CONST	0x0336,0x0014
07fc 0339 0015  | 9  |		.CONST	0x0339,0x0015
07fe 033c 0016  | <  |		.CONST	0x033c,0x0016
0800 033f 0017  | ?  |		.CONST	0x033f,0x0017
0802 0342 0018  | B  |		.CONST	0x0342,0x0018
0804 0345 0019  | E  |		.CONST	0x0345,0x0019
0806 ; --------------------------------------------------------------------------------------
0806 ; Debug3 Subtable 0x12
0806 ; --------------------------------------------------------------------------------------
0806 0004 0004  |    |		.DBG3TAB	0x0004,0x0004
0808 0353 ffff  | S  |		.CONST	0x0353,0xffff
080a 0358 fffe  | X  |		.CONST	0x0358,0xfffe
080c 0360 fffd  | `  |		.CONST	0x0360,0xfffd
080e 0361 fffc  | a  |		.CONST	0x0361,0xfffc
0810 0366 0001  | f  |		.CONST	0x0366,0x0001
0812 036a 0002  | j  |		.CONST	0x036a,0x0002
0814 0385 0003  |    |		.CONST	0x0385,0x0003
0816 0393 0004  |    |		.CONST	0x0393,0x0004
0818 ; --------------------------------------------------------------------------------------
0818 ; Debug3 Subtable 0x13
0818 ; --------------------------------------------------------------------------------------
0818 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
081a 039b ffff  |    |		.CONST	0x039b,0xffff
081c 03a0 0001  |    |		.CONST	0x03a0,0x0001
081e 03a3 0002  |    |		.CONST	0x03a3,0x0002
0820 03ac 0003  |    |		.CONST	0x03ac,0x0003
0822 ; --------------------------------------------------------------------------------------
0822 ; Debug3 Subtable 0x14
0822 ; --------------------------------------------------------------------------------------
0822 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
0824 03b3 ffff  |    |		.CONST	0x03b3,0xffff
0826 03b8 fffe  |    |		.CONST	0x03b8,0xfffe
0828 03bb 0001  |    |		.CONST	0x03bb,0x0001
082a 03cb 0002  |    |		.CONST	0x03cb,0x0002
082c 03d6 0003  |    |		.CONST	0x03d6,0x0003
082e ; --------------------------------------------------------------------------------------
082e ; Debug3 Subtable 0x15
082e ; --------------------------------------------------------------------------------------
082e 000a 002a  |   *|		.DBG3TAB	0x000a,0x002a
0830 03db ffff  |    |		.CONST	0x03db,0xffff
0832 03e0 fffe  |    |		.CONST	0x03e0,0xfffe
0834 03e5 fffd  |    |		.CONST	0x03e5,0xfffd
0836 03ec fffc  |    |		.CONST	0x03ec,0xfffc
0838 03f1 fffb  |    |		.CONST	0x03f1,0xfffb
083a 03f5 fffa  |    |		.CONST	0x03f5,0xfffa
083c 03f6 fff9  |    |		.CONST	0x03f6,0xfff9
083e 03f7 fff8  |    |		.CONST	0x03f7,0xfff8
0840 03fc fff7  |    |		.CONST	0x03fc,0xfff7
0842 03fd fff6  |    |		.CONST	0x03fd,0xfff6
0844 03fe 0001  |    |		.CONST	0x03fe,0x0001
0846 0405 0002  |    |		.CONST	0x0405,0x0002
0848 0407 0003  |    |		.CONST	0x0407,0x0003
084a 0409 0004  |    |		.CONST	0x0409,0x0004
084c 040e 0005  |    |		.CONST	0x040e,0x0005
084e 0410 0006  |    |		.CONST	0x0410,0x0006
0850 0416 0007  |    |		.CONST	0x0416,0x0007
0852 0418 0401  |    |		.CONST	0x0418,0x0401
0854 041a 0402  |    |		.CONST	0x041a,0x0402
0856 041b 0403  |    |		.CONST	0x041b,0x0403
0858 041c 0404  |    |		.CONST	0x041c,0x0404
085a 041e 0007  |    |		.CONST	0x041e,0x0007
085c 0420 0008  |    |		.CONST	0x0420,0x0008
085e 0429 0009  | )  |		.CONST	0x0429,0x0009
0860 042f 000b  | /  |		.CONST	0x042f,0x000b
0862 0431 0801  | 1  |		.CONST	0x0431,0x0801
0864 0433 0802  | 3  |		.CONST	0x0433,0x0802
0866 0435 0803  | 5  |		.CONST	0x0435,0x0803
0868 0439 0804  | 9  |		.CONST	0x0439,0x0804
086a 043d 0805  | =  |		.CONST	0x043d,0x0805
086c 043f 0c01  | ?  |		.CONST	0x043f,0x0c01
086e 0441 0c02  | A  |		.CONST	0x0441,0x0c02
0870 0442 0c03  | B  |		.CONST	0x0442,0x0c03
0872 0443 0c04  | C  |		.CONST	0x0443,0x0c04
0874 0445 0805  | E  |		.CONST	0x0445,0x0805
0876 044f 1001  | O  |		.CONST	0x044f,0x1001
0878 0451 1002  | Q  |		.CONST	0x0451,0x1002
087a 0452 1003  | R  |		.CONST	0x0452,0x1003
087c 0453 1004  | S  |		.CONST	0x0453,0x1004
087e 0455 0c04  | U  |		.CONST	0x0455,0x0c04
0880 0463 000b  | c  |		.CONST	0x0463,0x000b
0882 0464 000c  | d  |		.CONST	0x0464,0x000c
0884 046a 000d  | j  |		.CONST	0x046a,0x000d
0886 0474 000e  | t  |		.CONST	0x0474,0x000e
0888 0475 1401  | u  |		.CONST	0x0475,0x1401
088a 0477 1402  | w  |		.CONST	0x0477,0x1402
088c 0479 1403  | y  |		.CONST	0x0479,0x1403
088e 047c 000e  | |  |		.CONST	0x047c,0x000e
0890 047e 000a  | ~  |		.CONST	0x047e,0x000a
0892 047f 1801  |    |		.CONST	0x047f,0x1801
0894 0481 000a  |    |		.CONST	0x0481,0x000a
0896 0483 000f  |    |		.CONST	0x0483,0x000f
0898 ; --------------------------------------------------------------------------------------
0898 ; Debug3 Subtable 0x16
0898 ; --------------------------------------------------------------------------------------
0898 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
089a 048b ffff  |    |		.CONST	0x048b,0xffff
089c 048e 0001  |    |		.CONST	0x048e,0x0001
089e 0492 0002  |    |		.CONST	0x0492,0x0002
08a0 0496 0003  |    |		.CONST	0x0496,0x0003
08a2 ; --------------------------------------------------------------------------------------
08a2 ; Debug3 Subtable 0x17
08a2 ; --------------------------------------------------------------------------------------
08a2 0003 0007  |    |		.DBG3TAB	0x0003,0x0007
08a4 04a3 ffff  |    |		.CONST	0x04a3,0xffff
08a6 04ac fffe  |    |		.CONST	0x04ac,0xfffe
08a8 04b1 fffd  |    |		.CONST	0x04b1,0xfffd
08aa 04b8 0001  |    |		.CONST	0x04b8,0x0001
08ac 04be 0002  |    |		.CONST	0x04be,0x0002
08ae 04c1 0003  |    |		.CONST	0x04c1,0x0003
08b0 04c7 0004  |    |		.CONST	0x04c7,0x0004
08b2 04d1 0005  |    |		.CONST	0x04d1,0x0005
08b4 04d7 0006  |    |		.CONST	0x04d7,0x0006
08b6 04f1 0007  |    |		.CONST	0x04f1,0x0007
08b8 ; --------------------------------------------------------------------------------------
08b8 ; Debug3 Subtable 0x18
08b8 ; --------------------------------------------------------------------------------------
08b8 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
08ba 04fb ffff  |    |		.CONST	0x04fb,0xffff
08bc 0504 0001  |    |		.CONST	0x0504,0x0001
08be 050c 0002  |    |		.CONST	0x050c,0x0002
08c0 050f 0003  |    |		.CONST	0x050f,0x0003
08c2 ; --------------------------------------------------------------------------------------
08c2 ; Debug3 Subtable 0x19
08c2 ; --------------------------------------------------------------------------------------
08c2 0002 0015  |    |		.DBG3TAB	0x0002,0x0015
08c4 051b ffff  |    |		.CONST	0x051b,0xffff
08c6 0520 fffe  |    |		.CONST	0x0520,0xfffe
08c8 0521 0001  | !  |		.CONST	0x0521,0x0001
08ca 0522 0401  | "  |		.CONST	0x0522,0x0401
08cc 0524 0402  | $  |		.CONST	0x0524,0x0402
08ce 0525 0403  | %  |		.CONST	0x0525,0x0403
08d0 0526 0404  | &  |		.CONST	0x0526,0x0404
08d2 0527 0001  | '  |		.CONST	0x0527,0x0001
08d4 052b 0008  | +  |		.CONST	0x052b,0x0008
08d6 052c 0002  | ,  |		.CONST	0x052c,0x0002
08d8 0531 0003  | 1  |		.CONST	0x0531,0x0003
08da 0532 0801  | 2  |		.CONST	0x0532,0x0801
08dc 0534 0003  | 4  |		.CONST	0x0534,0x0003
08de 0535 0004  | 5  |		.CONST	0x0535,0x0004
08e0 0538 0005  | 8  |		.CONST	0x0538,0x0005
08e2 053d 0006  | =  |		.CONST	0x053d,0x0006
08e4 053e 0c01  | >  |		.CONST	0x053e,0x0c01
08e6 0540 0c02  | @  |		.CONST	0x0540,0x0c02
08e8 0541 0c03  | A  |		.CONST	0x0541,0x0c03
08ea 0542 0c04  | B  |		.CONST	0x0542,0x0c04
08ec 0543 0006  | C  |		.CONST	0x0543,0x0006
08ee 0545 0007  | E  |		.CONST	0x0545,0x0007
08f0 054b 0009  | K  |		.CONST	0x054b,0x0009
08f2 0000 0000  |    |		.BLANK	0000[0x10e]