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

⟦07a9bb874⟧

    Length: 10240 (0x2800)
    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 0ba8       |    |		.CONST	0x0ba8								; 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 0009       |    |		.CONST	0x0009								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008b       |    |		.CONST	0x008b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0033       | 3  |		.CONST	0x0033								; Number of locals
000b			INIT_0008:
000b 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0cfa,0x8000,0x0000,0x0058,0x7965,0x0000,0x000f
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 4803       |H   |		Short_Literal	0x3
000f 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0011 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0012 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x12,0xfffd
0014 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x14,0xfffc
0016 00bf       |    |		Action	Accept_Activation
0017 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1 = .DEBUG	0x0017,0x0d04,0x8000,0x0000,0x0058,0x7a95,0x0000,0x0029
													; Debug Table 0x1.0x0 = 0x17,0xffff
													; Debug Table 0x1.0x1 = 0x17,0xfffe
													; Debug Table 0x1.0x2 = 0x17,0xfffd
													; Debug Table 0x1.0x3 = 0x17,0xfffc
													; Debug Table 0x1.0x4 = 0x17,0xfffb
													; Debug Table 0x1.0x5 = 0x17,0xfffa
0018 4803       |H   |		Short_Literal	0x3
0019 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
001b 03fd       |    |		Declare_Type	Discrete,Defined
001c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x6 = 0x1c,0xfff9
001d 4803       |H   |		Short_Literal	0x3
001e 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
0020 03fd       |    |		Declare_Type	Discrete,Defined
0021 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x7 = 0x21,0xfff8
0022 00d9       |    |		Load_Top	At_Offset_1
0023 4801       |H   |		Short_Literal	0x1
0024 4800       |H   |		Short_Literal	0x0
0025 4801       |H   |		Short_Literal	0x1
0026 00e2       |    |		Load_Encached	Integer_Cache
0027 4801       |H   |		Short_Literal	0x1
0028 00e8       |    |		Load_Encached	Character_Cache
0029 4801       |H   |		Short_Literal	0x1
002a 00e3       |    |		Load_Encached	Natural_Cache
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 4803       |H   |		Short_Literal	0x3
002d 4800       |H   |		Short_Literal	0x0
002e 4803       |H   |		Short_Literal	0x3
002f 4800       |H   |		Short_Literal	0x0
0030 4800       |H   |		Short_Literal	0x0
0031 031d       |    |		Declare_Type	Variant_Record,Defined
0032 029f 0213  |    |		Declare_Subprogram	INIT_0210,For_Call
0034 4801       |H   |		Short_Literal	0x1
0035 4800       |H   |		Short_Literal	0x0
0036 4800       |H   |		Short_Literal	0x0
0037 4801       |H   |		Short_Literal	0x1
0038 4801       |H   |		Short_Literal	0x1
0039 4802       |H   |		Short_Literal	0x2
003a 031d       |    |		Declare_Type	Variant_Record,Defined
003b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x8 = 0x3b,0xfff7
003c 4803       |H   |		Short_Literal	0x3
003d 00da       |    |		Load_Top	At_Offset_2
003e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
003f 00d8       |    |		Load_Top	At_Offset_0
0040 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0041 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1.0x9 = 0x41,0xfff6
0042 4803       |H   |		Short_Literal	0x3
0043 00db       |    |		Load_Top	At_Offset_3
0044 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0045 00d8       |    |		Load_Top	At_Offset_0
0046 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0047 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call			; Debug Table 0x1.0xa = 0x47,0xfff5
0049 029d 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call			; Debug Table 0x1.0xb = 0x49,0xfff4
004b 029d 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call			; Debug Table 0x1.0xc = 0x4b,0xfff3
004d 029d 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call			; Debug Table 0x1.0xd = 0x4d,0xfff2
004f 029d 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call			; Debug Table 0x1.0xe = 0x4f,0xfff1
0051 029d 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call			; Debug Table 0x1.0xf = 0x51,0xfff0
0053 029d 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call			; Debug Table 0x1.0x10 = 0x53,0xffef
0055 029d 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call			; Debug Table 0x1.0x11 = 0x55,0xffee
0057 029d 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call			; Debug Table 0x1.0x12 = 0x57,0xffed
0059 029d 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call			; Debug Table 0x1.0x13 = 0x59,0xffec
005b 029d 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call			; Debug Table 0x1.0x14 = 0x5b,0xffeb
005d 029d 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call			; Debug Table 0x1.0x15 = 0x5d,0xffea
005f 029d 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call			; Debug Table 0x1.0x16 = 0x5f,0xffe9
0061 029d 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call			; Debug Table 0x1.0x17 = 0x61,0xffe8
0063 029d 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call			; Debug Table 0x1.0x18 = 0x63,0xffe7
0065 029d 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call			; Debug Table 0x1.0x19 = 0x65,0xffe6
0067 029d 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call			; Debug Table 0x1.0x1a = 0x67,0xffe5
0069 029d 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call			; Debug Table 0x1.0x1b = 0x69,0xffe4
006b 029d 063b  |   ;|		Declare_Subprogram	INIT_0638,For_Outer_Call			; Debug Table 0x1.0x1c = 0x6b,0xffe3
006d 029d 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call			; Debug Table 0x1.0x1d = 0x6d,0xffe2
006f 029d 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call			; Debug Table 0x1.0x1e = 0x6f,0xffe1
0071 029d 0723  |   #|		Declare_Subprogram	INIT_0720,For_Outer_Call			; Debug Table 0x1.0x1f = 0x71,0xffe0
0073 029b 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call,Unelaborated		; Debug Table 0x1.0x20 = 0x73,0xffdf
0075 029d 07db  |    |		Declare_Subprogram	INIT_07d8,For_Outer_Call			; Debug Table 0x1.0x21 = 0x75,0xffde
0077 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c				; Debug Table 0x1.0x22 = 0x77,0xffdd
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 029d 084b  |   K|		Declare_Subprogram	INIT_0848,For_Outer_Call			; Debug Table 0x1.0x23 = 0x79,0xffdc
007b 029d 090b  |    |		Declare_Subprogram	INIT_0908,For_Outer_Call			; Debug Table 0x1.0x24 = 0x7b,0xffdb
007d 029d 092b  |   +|		Declare_Subprogram	INIT_0928,For_Outer_Call			; Debug Table 0x1.0x25 = 0x7d,0xffda
007f 029d 0933  |   3|		Declare_Subprogram	INIT_0930,For_Outer_Call			; Debug Table 0x1.0x26 = 0x7f,0xffd9
0081 029d 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Outer_Call			; Debug Table 0x1.0x27 = 0x81,0xffd8
0083 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x28 = 0x83,0xffd7
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 029d 09ab  |    |		Declare_Subprogram	INIT_09a8,For_Outer_Call			; Debug Table 0x1.0x29 = 0x85,0xffd6
0087 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x2a = 0x87,0xffd5
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x2b = 0x89,0xffd4
008a 00c7       |    |		Action	Elaborate_Subprogram
008b			BODY_0008:
008b 00bc       |    |		Action	Signal_Activated
008c 00bb       |    |		Action	Signal_Completion
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009c       |    |		.CONST	0x009c								; Address of begin
0091 012c       | ,  |		.CONST	0x012c								; Address of exception handler
0092 0005       |    |		.CONST	0x0005								; Number of locals
0093			INIT_0090:
0093 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2 = .DEBUG	0x0093,0x0d5e,0x0001,0x0000,0x0058,0x7965,0x0000,0x0010
													; Debug Table 0x2.0x0 = 0x93,0xffff
0094 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x1 = 0x94,0xfffe
0095 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x2.0x2 = 0x95,0xfffd
													; Debug Table 0x2.0x3 = 0x95,0xfffc
0096 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x4 = 0x96,0xfffb
0097 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0098 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0099 02c7       |    |		Declare_Variable	Any
009a 00d8       |    |		Load_Top	At_Offset_0
009b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009c			BODY_0090:
009c e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x2.0x5 = 0x9c,0x1
009d 680d       |h   |		Jump_Zero	0xab
009e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x6 = 0x9e,0x2
009f 0120       |    |		Execute	Any,Is_Value
00a0 6804       |h   |		Jump_Zero	0xa5
00a1 e001       |    |		Load	0x0,0x1
00a2 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a3 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
00a4 7801       |x   |		Jump	0xa6
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 e002       |    |		Load	0x0,0x2
00a7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a8 822f       | /  |		Call	0x1,0x2f
00a9 c405       |    |		Store	0x2,0x5
00aa 780e       |x   |		Jump	0xb9
00ab 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x7 = 0xab,0x3
00ac 0120       |    |		Execute	Any,Is_Value
00ad 6804       |h   |		Jump_Zero	0xb2
00ae e001       |    |		Load	0x0,0x1
00af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00b0 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
00b1 7801       |x   |		Jump	0xb3
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 e003       |    |		Load	0x0,0x3
00b4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00b5 e002       |    |		Load	0x0,0x2
00b6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00b7 822f       | /  |		Call	0x1,0x2f
00b8 c405       |    |		Store	0x2,0x5
00b9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x8 = 0xb9,0x4
00ba e5fe       |    |		Load	0x2,-0x2
00bb 822c       | ,  |		Call	0x1,0x2c
00bc a402       |    |		Store_Unchecked	0x2,0x2
00bd 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x9 = 0xbd,0x5
00be 8231       | 1  |		Call	0x1,0x31
00bf 7014       |p   |		Jump_Nonzero	0xd4
00c0 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x2.0xa = 0xc0,0x6
00c1 6809       |h   |		Jump_Zero	0xcb
00c2 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xb = 0xc2,0x7
00c3 0092 0a84  |    |		Action	Push_String_Extended,0xa84					; ": contains more/other than a CASE statment?"
00c5 01cc       |    |		Execute	Vector,Catenate
00c6 0092 0a85  |    |		Action	Push_String_Extended,0xa85					; "Set_Up"
00c8 e004       |    |		Load	0x0,0x4
00c9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00ca 785e       |x^  |		Jump	0x129
00cb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xc = 0xcb,0x8
00cc 0092 0a84  |    |		Action	Push_String_Extended,0xa84					; ": contains more/other than a CASE statment?"
00ce 01cc       |    |		Execute	Vector,Catenate
00cf 0092 0a85  |    |		Action	Push_String_Extended,0xa85					; "Set_Up"
00d1 e004       |    |		Load	0x0,0x4
00d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d3 7855       |xU  |		Jump	0x129
00d4 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0xd = 0xd4,0x9
00d5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00d6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0xe = 0xd6,0xa
00d7 e402       |    |		Load	0x2,0x2
00d8 822c       | ,  |		Call	0x1,0x2c
00d9 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00da 00cf       |    |		Action	Mark_Auxiliary
00db 7849       |xI  |		Jump	0x125
00dc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0xf = 0xdc,0xc
00dd 8231       | 1  |		Call	0x1,0x31
00de 683e       |h>  |		Jump_Zero	0x11d
00df 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x10 = 0xdf,0xd
00e0 8232       | 2  |		Call	0x1,0x32
00e1 4603       |F   |		Jump_Case	0x4
00e2 7803       |x   |		Jump	0xe6								; case 0x0
00e3 780e       |x   |		Jump	0xf2								; case 0x1
00e4 7819       |x   |		Jump	0xfe								; case 0x2
00e5 7824       |x$  |		Jump	0x10a								; case 0x3
00e6 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x2.0x11 = 0xe6,0xe
00e7 e5fc       |    |		Load	0x2,-0x4
00e8 e5fd       |    |		Load	0x2,-0x3
00e9 4800       |H   |		Short_Literal	0x0
00ea 4801       |H   |		Short_Literal	0x1
00eb e005       |    |		Load	0x0,0x5
00ec 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00ed e403       |    |		Load	0x2,0x3
00ee e5ff       |    |		Load	0x2,-0x1
00ef 822e       | .  |		Call	0x1,0x2e
00f0 c5fb       |    |		Store	0x2,-0x5
00f1 782b       |x+  |		Jump	0x11d
00f2 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x2.0x12 = 0xf2,0xf
00f3 e5fc       |    |		Load	0x2,-0x4
00f4 e5fd       |    |		Load	0x2,-0x3
00f5 4800       |H   |		Short_Literal	0x0
00f6 4800       |H   |		Short_Literal	0x0
00f7 e005       |    |		Load	0x0,0x5
00f8 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00f9 e403       |    |		Load	0x2,0x3
00fa e5ff       |    |		Load	0x2,-0x1
00fb 822e       | .  |		Call	0x1,0x2e
00fc c5fb       |    |		Store	0x2,-0x5
00fd 781f       |x   |		Jump	0x11d
00fe e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x2.0x13 = 0xfe,0x10
00ff e5fc       |    |		Load	0x2,-0x4
0100 e5fd       |    |		Load	0x2,-0x3
0101 4801       |H   |		Short_Literal	0x1
0102 4800       |H   |		Short_Literal	0x0
0103 e005       |    |		Load	0x0,0x5
0104 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0105 e403       |    |		Load	0x2,0x3
0106 e5ff       |    |		Load	0x2,-0x1
0107 822e       | .  |		Call	0x1,0x2e
0108 c5fb       |    |		Store	0x2,-0x5
0109 7813       |x   |		Jump	0x11d
010a e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x2.0x14 = 0x10a,0x11
010b 6809       |h   |		Jump_Zero	0x115
010c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x15 = 0x10c,0x12
010d 0092 0a86  |    |		Action	Push_String_Extended,0xa86					; ": 1st level choice not Execute/Interrupt/Prompt?"
010f 01cc       |    |		Execute	Vector,Catenate
0110 0092 0a85  |    |		Action	Push_String_Extended,0xa85					; "Set_Up"
0112 e004       |    |		Load	0x0,0x4
0113 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0114 7808       |x   |		Jump	0x11d
0115 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x16 = 0x115,0x13
0116 0092 0a86  |    |		Action	Push_String_Extended,0xa86					; ": 1st level choice not Execute/Interrupt/Prompt?"
0118 01cc       |    |		Execute	Vector,Catenate
0119 0092 0a85  |    |		Action	Push_String_Extended,0xa85					; "Set_Up"
011b e004       |    |		Load	0x0,0x4
011c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x17 = 0x11d,0x14
011e 0a01       |    |		Execute_Immediate	Plus,0x1
011f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0120 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x18 = 0x120,0x15
0121 e402       |    |		Load	0x2,0x2
0122 822c       | ,  |		Call	0x1,0x2c
0123 a403       |    |		Store_Unchecked	0x2,0x3
0124 00c9       |    |		Action	Pop_Auxiliary_Loop
0125 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x19 = 0x125,0xb
													; Debug Table 0x2.0x1a = 0x125,0x401
0126 021d       |    |		Execute	Heap_Access,Is_Null
0127 6fb4       |o   |		Jump_Zero	0xdc							; Debug Table 0x2.0x1b = 0x127,0xb
0128 00ce       |    |		Action	Pop_Auxiliary
0129 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1c = 0x129,0x16
012a 8230       | 0  |		Call	0x1,0x30
012b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
012c			TRAP_0090:
012c 0007       |    |		Action	Break_Optional
012d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x1d = 0x12d,0x17
012e 8230       | 0  |		Call	0x1,0x30
012f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1e = 0x12f,0x18
0130 0101       |    |		Execute	Exception,Reraise
0131 0000 0000  |    |		.BLANK	0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x3 = .DEBUG	0x013b,0x0d9e,0x0005,0x0000,0x0058,0x7965,0x0000,0x002e
013c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
013d 7802       |x   |		Jump	0x140								; case 0x1
013e 7805       |x   |		Jump	0x144								; case 0x2
013f 7809       |x   |		Jump	0x149								; case 0x3
0140 00da       |    |		Load_Top	At_Offset_2
0141 0091 0a78  |   x|		Action	Push_String_Extended_Indexed,0xa78				; "SUCCESSFUL"
0143 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0144 00db       |    |		Load_Top	At_Offset_3
0145 00db       |    |		Load_Top	At_Offset_3
0146 00e0       |    |		Load_Encached	Standard_Cache
0147 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0148 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0149 00da       |    |		Load_Top	At_Offset_2
014a 00e0       |    |		Load_Encached	Standard_Cache
014b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
014c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015d       | ]  |		.CONST	0x015d								; Address of begin
0151 01a0       |    |		.CONST	0x01a0								; Address of exception handler
0152 0008       |    |		.CONST	0x0008								; Number of locals
0153			INIT_0150:
0153 e003       |    |		Load	0x0,0x3								; Debug Table 0x4 = .DEBUG	0x0153,0x0da0,0x0001,0x0000,0x0058,0x7965,0x0000,0x0036
													; Debug Table 0x4.0x0 = 0x153,0xffff
0154 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0155 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x1 = 0x155,0xfffe
0156 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x2 = 0x156,0xfffd
0157 e006       |    |		Load	0x0,0x6								; Debug Table 0x4.0x3 = 0x157,0xfffc
0158 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0159 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x4 = 0x159,0xfffb
015a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x4.0x5 = 0x15a,0xfffa
015b e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x6 = 0x15b,0xfff9
015c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015d			BODY_0150:
015d e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x4.0x7 = 0x15d,0x1
015e 6803       |h   |		Jump_Zero	0x162
015f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x8 = 0x15f,0x2
0160 a405       |    |		Store_Unchecked	0x2,0x5
0161 7802       |x   |		Jump	0x164
0162 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0x9 = 0x162,0x3
0163 a405       |    |		Store_Unchecked	0x2,0x5
0164 e007       |    |		Load	0x0,0x7								; Debug Table 0x4.0xa = 0x164,0x4
0165 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0166 a402       |    |		Store_Unchecked	0x2,0x2
0167 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0xb = 0x167,0x5
0168 e001       |    |		Load	0x0,0x1
0169 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
016b a403       |    |		Store_Unchecked	0x2,0x3
016c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0xc = 0x16c,0x6
016d e001       |    |		Load	0x0,0x1
016e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0170 a404       |    |		Store_Unchecked	0x2,0x4
0171 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0xd = 0x171,0x7
0172 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0173 e402       |    |		Load	0x2,0x2
0174 e404       |    |		Load	0x2,0x4
0175 e001       |    |		Load	0x0,0x1
0176 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0177 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0178 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0179 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0xe = 0x179,0x8
017a 8233       | 3  |		Call	0x1,0x33
017b 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
017c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0xf = 0x17c,0x9
017d 00eb       |    |		Load_Encached	Diana_Cache
017e 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
017f 4976       |Iv  |		Short_Literal	0x176
0180 00eb       |    |		Load_Encached	Diana_Cache
0181 0098       |    |		Execute	Package,Field_Read_Dynamic
0182 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0183 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0184 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x10 = 0x184,0xa
													; Debug Table 0x4.0x11 = 0x184,0x401
0185 021d       |    |		Execute	Heap_Access,Is_Null
0186 6802       |h   |		Jump_Zero	0x189							; Debug Table 0x4.0x12 = 0x186,0xa
0187 6238       |b8  |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x587a9503}		; Debug Table 0x4.0x13 = 0x187,0xb
0188 0257       | W  |		Execute	Discrete,Raise
0189 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x4.0x14 = 0x189,0xc
018a e5fc       |    |		Load	0x2,-0x4
018b 4800       |H   |		Short_Literal	0x0
018c e405       |    |		Load	0x2,0x5
018d e5ff       |    |		Load	0x2,-0x1
018e e5fc       |    |		Load	0x2,-0x4
018f 821a       |    |		Call	0x1,0x1a
0190 4800       |H   |		Short_Literal	0x0
0191 e406       |    |		Load	0x2,0x6
0192 e407       |    |		Load	0x2,0x7
0193 822a       | *  |		Call	0x1,0x2a
0194 c5fa       |    |		Store	0x2,-0x6
0195 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x15 = 0x195,0xd
0196 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0197 e402       |    |		Load	0x2,0x2
0198 e403       |    |		Load	0x2,0x3
0199 e001       |    |		Load	0x0,0x1
019a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
019b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
019c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
019d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x16 = 0x19d,0xe
019e a5f9       |    |		Store_Unchecked	0x2,-0x7
019f 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01a0			TRAP_0150:
01a0 621b       |b   |		Indirect_Literal	Discrete,0x3bc,{0x00000000, 0x587a9501}
01a1 010f       |    |		Execute	Exception,Equal
01a2 680b       |h   |		Jump_Zero	0x1ae
01a3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0x17 = 0x1a3,0xf
01a4 a5f9       |    |		Store_Unchecked	0x2,-0x7
01a5 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x18 = 0x1a5,0x10
01a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a7 e402       |    |		Load	0x2,0x2
01a8 e403       |    |		Load	0x2,0x3
01a9 e001       |    |		Load	0x0,0x1
01aa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01ab 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ac 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ad 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01ae 6211       |b   |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x587a9503}
01af 010f       |    |		Execute	Exception,Equal
01b0 680b       |h   |		Jump_Zero	0x1bc
01b1 4802       |H   |		Short_Literal	0x2							; Debug Table 0x4.0x19 = 0x1b1,0x11
01b2 a5f9       |    |		Store_Unchecked	0x2,-0x7
01b3 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1a = 0x1b3,0x12
01b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b5 e402       |    |		Load	0x2,0x2
01b6 e403       |    |		Load	0x2,0x3
01b7 e001       |    |		Load	0x0,0x1
01b8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01b9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01ba 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01bb 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01bc 4803       |H   |		Short_Literal	0x3							; Debug Table 0x4.0x1b = 0x1bc,0x13
01bd a5f9       |    |		Store_Unchecked	0x2,-0x7
01be e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1c = 0x1be,0x14
01bf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c0 e402       |    |		Load	0x2,0x2
01c1 e403       |    |		Load	0x2,0x3
01c2 e001       |    |		Load	0x0,0x1
01c3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01c4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01c5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01c6 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 01d8       |    |		.CONST	0x01d8								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5 = .DEBUG	0x01cb,0x0ddc,0x0002,0x0000,0x0058,0x7965,0x0000,0x005d
													; Debug Table 0x5.0x0 = 0x1cb,0x1
01cc 4800       |H   |		Short_Literal	0x0
01cd e5ff       |    |		Load	0x2,-0x1
01ce 8233       | 3  |		Call	0x1,0x33
01cf e007       |    |		Load	0x0,0x7
01d0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d1 e001       |    |		Load	0x0,0x1
01d2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01d3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 821f       |    |		Call	0x1,0x1f
01d6 8229       | )  |		Call	0x1,0x29
01d7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d8			TRAP_01c8:
01d8 0007       |    |		Action	Break_Optional
01d9 e006       |    |		Load	0x0,0x6								; Debug Table 0x5.0x1 = 0x1d9,0x2
01da 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01db 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01dc 0000 0000  |    |		.BLANK	0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 4603       |F   |		Jump_Case	0x4							; Debug Table 0x6 = .DEBUG	0x01e3,0x0de2,0x0005,0x0000,0x0058,0x7a95,0x0000,0x0053
01e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01e5 7802       |x   |		Jump	0x1e8								; case 0x1
01e6 7805       |x   |		Jump	0x1ec								; case 0x2
01e7 7809       |x   |		Jump	0x1f1								; case 0x3
01e8 00da       |    |		Load_Top	At_Offset_2
01e9 0091 0a7c  |   ||		Action	Push_String_Extended_Indexed,0xa7c				; "TO_PROMPT"
01eb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01ec 00db       |    |		Load_Top	At_Offset_3
01ed 00db       |    |		Load_Top	At_Offset_3
01ee 00e0       |    |		Load_Encached	Standard_Cache
01ef 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01f0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01f1 00da       |    |		Load_Top	At_Offset_2
01f2 00e0       |    |		Load_Encached	Standard_Cache
01f3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01f4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 4603       |F   |		Jump_Case	0x4							; Debug Table 0x7 = .DEBUG	0x01fb,0x0de4,0x0005,0x0000,0x0058,0x7a95,0x0000,0x005b
01fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01fd 7802       |x   |		Jump	0x200								; case 0x1
01fe 7805       |x   |		Jump	0x204								; case 0x2
01ff 7809       |x   |		Jump	0x209								; case 0x3
0200 00da       |    |		Load_Top	At_Offset_2
0201 0091 0a80  |    |		Action	Push_String_Extended_Indexed,0xa80				; "INTEGER_ARGUMENT"
0203 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0204 00db       |    |		Load_Top	At_Offset_3
0205 00db       |    |		Load_Top	At_Offset_3
0206 00e0       |    |		Load_Encached	Standard_Cache
0207 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0208 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0209 00da       |    |		Load_Top	At_Offset_2
020a 00e0       |    |		Load_Encached	Standard_Cache
020b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
020c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
020d 0000 0000  |    |		.XXX[0x3]
020f 0000       |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4608       |F   |		Jump_Case	0x9							; Debug Table 0x8 = .DEBUG	0x0213,0x0de6,0x0005,0x0000,0x0058,0x7a95,0x0000,0x0063
0214 7808       |x   |		Jump	0x21d								; case 0x0
0215 7827       |x'  |		Jump	0x23d								; case 0x1
0216 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0217 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0218 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0219 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
021a 782a       |x*  |		Jump	0x245								; case 0x6
021b 7831       |x1  |		Jump	0x24d								; case 0x7
021c 784e       |xN  |		Jump	0x26b								; case 0x8
021d 00da       |    |		Load_Top	At_Offset_2
021e 016c       | l  |		Execute	Variant_Record,Is_Constrained
021f 700a       |p   |		Jump_Nonzero	0x22a
0220 00cf       |    |		Action	Mark_Auxiliary
0221 4800       |H   |		Short_Literal	0x0
0222 4800       |H   |		Short_Literal	0x0
0223 e5ff       |    |		Load	0x2,-0x1
0224 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0225 00d8       |    |		Load_Top	At_Offset_0
0226 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0227 c5ff       |    |		Store	0x2,-0x1
0228 00ce       |    |		Action	Pop_Auxiliary
0229 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
022a 00da       |    |		Load_Top	At_Offset_2
022b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
022c 4601       |F   |		Jump_Case	0x2
022d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
022e 7800       |x   |		Jump	0x22f								; case 0x1
022f 00da       |    |		Load_Top	At_Offset_2
0230 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0231 00da       |    |		Load_Top	At_Offset_2
0232 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0233 00db       |    |		Load_Top	At_Offset_3
0234 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0235 4603       |F   |		Jump_Case	0x4
0236 7803       |x   |		Jump	0x23a								; case 0x0
0237 7802       |x   |		Jump	0x23a								; case 0x1
0238 7801       |x   |		Jump	0x23a								; case 0x2
0239 7800       |x   |		Jump	0x23a								; case 0x3
023a 00db       |    |		Load_Top	At_Offset_3
023b 2b03       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x3
023c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
023d 00da       |    |		Load_Top	At_Offset_2
023e 016b       | k  |		Execute	Variant_Record,Read_Variant
023f 00d8       |    |		Load_Top	At_Offset_0
0240 0f01       |    |		Execute_Immediate	Equal,0x1
0241 6802       |h   |		Jump_Zero	0x244
0242 00db       |    |		Load_Top	At_Offset_3
0243 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0244 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0245 e5fd       |    |		Load	0x2,-0x3
0246 4601       |F   |		Jump_Case	0x2
0247 7803       |x   |		Jump	0x24b								; case 0x0
0248 7800       |x   |		Jump	0x249								; case 0x1
0249 4801       |H   |		Short_Literal	0x1
024a 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
024b 48ff       |H   |		Short_Literal	0xff
024c 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
024d e5fd       |    |		Load	0x2,-0x3
024e e5fe       |    |		Load	0x2,-0x2
024f e5fd       |    |		Load	0x2,-0x3
0250 4601       |F   |		Jump_Case	0x2
0251 7814       |x   |		Jump	0x266								; case 0x0
0252 7800       |x   |		Jump	0x253								; case 0x1
0253 e5fe       |    |		Load	0x2,-0x2
0254 4603       |F   |		Jump_Case	0x4
0255 7803       |x   |		Jump	0x259								; case 0x0
0256 7804       |x   |		Jump	0x25b								; case 0x1
0257 7805       |x   |		Jump	0x25d								; case 0x2
0258 7806       |x   |		Jump	0x25f								; case 0x3
0259 4801       |H   |		Short_Literal	0x1
025a 7805       |x   |		Jump	0x260
025b 4802       |H   |		Short_Literal	0x2
025c 7803       |x   |		Jump	0x260
025d 4803       |H   |		Short_Literal	0x3
025e 7801       |x   |		Jump	0x260
025f 48ff       |H   |		Short_Literal	0xff
0260 e213       |    |		Load	0x1,0x13
0261 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
0262 031b       |    |		Declare_Type	Variant_Record,Constrained
0263 4801       |H   |		Short_Literal	0x1
0264 4801       |H   |		Short_Literal	0x1
0265 7802       |x   |		Jump	0x268
0266 4800       |H   |		Short_Literal	0x0
0267 48ff       |H   |		Short_Literal	0xff
0268 e5ff       |    |		Load	0x2,-0x1
0269 031b       |    |		Declare_Type	Variant_Record,Constrained
026a 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
026b e5fd       |    |		Load	0x2,-0x3
026c e5fe       |    |		Load	0x2,-0x2
026d e5fd       |    |		Load	0x2,-0x3
026e e5fe       |    |		Load	0x2,-0x2
026f e5ff       |    |		Load	0x2,-0x1
0270 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0271 e5ff       |    |		Load	0x2,-0x1
0272 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0273 e5fd       |    |		Load	0x2,-0x3
0274 4601       |F   |		Jump_Case	0x2
0275 7819       |x   |		Jump	0x28f								; case 0x0
0276 7800       |x   |		Jump	0x277								; case 0x1
0277 e5fe       |    |		Load	0x2,-0x2
0278 4603       |F   |		Jump_Case	0x4
0279 7803       |x   |		Jump	0x27d								; case 0x0
027a 7804       |x   |		Jump	0x27f								; case 0x1
027b 7805       |x   |		Jump	0x281								; case 0x2
027c 7806       |x   |		Jump	0x283								; case 0x3
027d 4801       |H   |		Short_Literal	0x1
027e 7805       |x   |		Jump	0x284
027f 4802       |H   |		Short_Literal	0x2
0280 7803       |x   |		Jump	0x284
0281 4803       |H   |		Short_Literal	0x3
0282 7801       |x   |		Jump	0x284
0283 48ff       |H   |		Short_Literal	0xff
0284 e213       |    |		Load	0x1,0x13
0285 2303       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x3
0286 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0287 e5fe       |    |		Load	0x2,-0x2
0288 4603       |F   |		Jump_Case	0x4
0289 7803       |x   |		Jump	0x28d								; case 0x0
028a 7802       |x   |		Jump	0x28d								; case 0x1
028b 7801       |x   |		Jump	0x28d								; case 0x2
028c 7800       |x   |		Jump	0x28d								; case 0x3
028d 2f03       |/   |		Execute	Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3
028e 7800       |x   |		Jump	0x28f
028f 016a       | j  |		QQ_execute	Variant_Record,XXX
0290 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0291 0000 0000  |    |		.BLANK	0000[0x7]
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 0x9 = .DEBUG	0x029b,0x0de8,0x0002,0x0000,0x0058,0x7a95,0x0000,0x00c0
													; Debug Table 0x9.0x0 = 0x29b,0x1
029c 4800       |H   |		Short_Literal	0x0
029d e213       |    |		Load	0x1,0x13
029e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
029f 00d8       |    |		Load_Top	At_Offset_0
02a0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02a1 00db       |    |		Load_Top	At_Offset_3
02a2 00d9       |    |		Load_Top	At_Offset_1
02a3 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
02a4 2a01       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x1
02a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a6 0000 0000  |    |		.XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab       |    |		.CONST	0x02ab								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0001       |    |		.CONST	0x0001								; Number of locals
02ab			BODY_02a8:
02ab			INIT_02a8:
02ab 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa = .DEBUG	0x02ab,0x0dec,0x0002,0x0000,0x0058,0x7a95,0x0000,0x00dd
													; Debug Table 0xa.0x0 = 0x2ab,0x1
02ac 4801       |H   |		Short_Literal	0x1
02ad e213       |    |		Load	0x1,0x13
02ae 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02af 00d8       |    |		Load_Top	At_Offset_0
02b0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 00d9       |    |		Load_Top	At_Offset_1
02b3 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
02b4 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b6 0000 0000  |    |		.XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb = .DEBUG	0x02bb,0x0df0,0x0002,0x0000,0x0058,0x7a95,0x0000,0x00fa
													; Debug Table 0xb.0x0 = 0x2bb,0x1
													; Debug Table 0xb.0x1 = 0x2bb,0x401
02bc 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xb.0x2 = 0x2bc,0x402
02bd 0b08       |    |		Execute_Immediate	Case_Compare,0x8				; Debug Table 0xb.0x3 = 0x2bd,0x403
													; Debug Table 0xb.0x4 = 0x2bd,0x404
													; Debug Table 0xb.0x5 = 0x2bd,0x1
02be 7004       |p   |		Jump_Nonzero	0x2c3
02bf 0b31       | 1  |		Execute_Immediate	Case_Compare,0x31
02c0 7028       |p(  |		Jump_Nonzero	0x2e9
02c1 e215       |    |		Load	0x1,0x15							; Debug Table 0xb.0x6 = 0x2c1,0x4
02c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c3 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0xb.0x7 = 0x2c3,0x2
02c4 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0xb.0x8 = 0x2c4,0xf7ff
02c5 e008       |    |		Load	0x0,0x8								; Debug Table 0xb.0x9 = 0x2c5,0xf7fe
02c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c7 02c7       |    |		Declare_Variable	Any
02c8 00d8       |    |		Load_Top	At_Offset_0
02c9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ca e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0xa = 0x2ca,0x801
02cb 00eb       |    |		Load_Encached	Diana_Cache
02cc 18af       |    |		Execute	Package,Field_Execute,Field_Number 0xaf
02cd c405       |    |		Store	0x2,0x5
02ce 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0xb = 0x2ce,0x802
02cf e008       |    |		Load	0x0,0x8
02d0 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
02d1 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
02d2 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0xc = 0x2d2,0x803
02d3 00eb       |    |		Load_Encached	Diana_Cache
02d4 18fc       |    |		Execute	Package,Field_Execute,Field_Number 0xfc
02d5 e406       |    |		Load	0x2,0x6								; Debug Table 0xb.0xd = 0x2d5,0xc01
02d6 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xb.0xe = 0x2d6,0xc02
02d7 00d0       |    |		Action	Swap_Control							; Debug Table 0xb.0x10 = 0x2d7,0xc04
													; Debug Table 0xb.0xf = 0x2d7,0xc03
02d8 00d1       |    |		Pop_Control	Pop_Count_1
02d9 0f6e       | n  |		Execute_Immediate	Equal,0x6e					; Debug Table 0xb.0x11 = 0x2d9,0x803
02da 680b       |h   |		Jump_Zero	0x2e6
02db 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x12 = 0x2db,0x804
02dc 4802       |H   |		Short_Literal	0x2
02dd e213       |    |		Load	0x1,0x13
02de 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02df 00d8       |    |		Load_Top	At_Offset_0
02e0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 00d9       |    |		Load_Top	At_Offset_1
02e3 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
02e4 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02e5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x13 = 0x2e6,0x805
02e7 8216       |    |		Call	0x1,0x16
02e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e9 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0xb.0x14 = 0x2e9,0x3
02ea 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0xb.0x15 = 0x2ea,0xefff
02eb 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0xb.0x16 = 0x2eb,0xeffe
02ec e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x17 = 0x2ec,0x1001
02ed 00eb       |    |		Load_Encached	Diana_Cache
02ee 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
02ef 00eb       |    |		Load_Encached	Diana_Cache
02f0 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
02f1 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
02f2 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x18 = 0x2f2,0x1002
02f3 e5ff       |    |		Load	0x2,-0x1
02f4 4975       |Iu  |		Short_Literal	0x175
02f5 00eb       |    |		Load_Encached	Diana_Cache
02f6 0098       |    |		Execute	Package,Field_Read_Dynamic
02f7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02f8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02f9 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x19 = 0x2f9,0x1003
02fa 4802       |H   |		Short_Literal	0x2
02fb e213       |    |		Load	0x1,0x13
02fc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02fd 00d8       |    |		Load_Top	At_Offset_0
02fe 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02ff 00d9       |    |		Load_Top	At_Offset_1
0300 00d9       |    |		Load_Top	At_Offset_1
0301 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0302 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0303 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0304 0000 0000  |    |		.BLANK	0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d       |    |		.CONST	0x030d								; Address of begin
0309 0317       |    |		.CONST	0x0317								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b e005       |    |		Load	0x0,0x5								; Debug Table 0xc = .DEBUG	0x030b,0x0e26,0x0002,0x0000,0x0058,0x7a95,0x0000,0x01a6
													; Debug Table 0xc.0x0 = 0x30b,0xffff
030c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030d			BODY_0308:
030d e005       |    |		Load	0x0,0x5								; Debug Table 0xc.0x1 = 0x30d,0x1
030e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030f e5fe       |    |		Load	0x2,-0x2
0310 e5ff       |    |		Load	0x2,-0x1
0311 e005       |    |		Load	0x0,0x5
0312 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0313 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0314 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0315 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x2 = 0x315,0x2
0316 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0317			TRAP_0308:
0317 0007       |    |		Action	Break_Optional
0318 60a3       |`   |		Indirect_Literal	Discrete,0x3bc,{0x00000000, 0x587a9501}		; Debug Table 0xc.0x3 = 0x318,0x3
0319 0257       | W  |		Execute	Discrete,Raise
031a 0000 0000  |    |		.BLANK	0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0329       | )  |		.CONST	0x0329								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd = .DEBUG	0x0323,0x0e30,0x0002,0x0000,0x0058,0x7a95,0x0000,0x01d4
													; Debug Table 0xd.0x0 = 0x323,0x1
0324 00db       |    |		Load_Top	At_Offset_3
0325 e005       |    |		Load	0x0,0x5
0326 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0327 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0328 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0329			TRAP_0320:
0329 0007       |    |		Action	Break_Optional
032a 6091       |`   |		Indirect_Literal	Discrete,0x3bc,{0x00000000, 0x587a9501}		; Debug Table 0xd.0x1 = 0x32a,0x2
032b 0257       | W  |		Execute	Discrete,Raise
032c 0000 0000  |    |		.BLANK	0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe = .DEBUG	0x0333,0x0e36,0x0002,0x0000,0x0058,0x7a95,0x0000,0x01f9
													; Debug Table 0xe.0x0 = 0x333,0x1
0334 00d8       |    |		Load_Top	At_Offset_0
0335 4861       |Ha  |		Short_Literal	0x61
0336 487a       |Hz  |		Short_Literal	0x7a
0337 0262       | b  |		Execute	Discrete,In_Range
0338 7012       |p   |		Jump_Nonzero	0x34b
0339 00d8       |    |		Load_Top	At_Offset_0
033a 4841       |HA  |		Short_Literal	0x41
033b 485a       |HZ  |		Short_Literal	0x5a
033c 0262       | b  |		Execute	Discrete,In_Range
033d 700d       |p   |		Jump_Nonzero	0x34b
033e 00d8       |    |		Load_Top	At_Offset_0
033f 4830       |H0  |		Short_Literal	0x30
0340 4839       |H9  |		Short_Literal	0x39
0341 0262       | b  |		Execute	Discrete,In_Range
0342 7008       |p   |		Jump_Nonzero	0x34b
0343 0b5f       | _  |		Execute_Immediate	Case_Compare,0x5f
0344 7006       |p   |		Jump_Nonzero	0x34b
0345 0b2e       | .  |		Execute_Immediate	Case_Compare,0x2e
0346 7004       |p   |		Jump_Nonzero	0x34b
0347 0b20       |    |		Execute_Immediate	Case_Compare,0x20
0348 7002       |p   |		Jump_Nonzero	0x34b
0349 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x1 = 0x349,0x3
034a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034b 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0x2 = 0x34b,0x2
034c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf = .DEBUG	0x0353,0x0e3e,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0220
													; Debug Table 0xf.0x0 = 0x353,0x1
0354 01dd       |    |		Execute	Vector,First
0355 00db       |    |		Load_Top	At_Offset_3
0356 01d7       |    |		Execute	Vector,Field_Read
0357 0f22       | "  |		Execute_Immediate	Equal,0x22
0358 6818       |h   |		Jump_Zero	0x371
0359 00cf       |    |		Action	Mark_Auxiliary
035a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xf.0x1 = 0x35a,0x2
035b 01dc       |    |		Execute	Vector,Last
035c e5ff       |    |		Load	0x2,-0x1
035d 01dd       |    |		Execute	Vector,First
035e 0a01       |    |		Execute_Immediate	Plus,0x1
035f 0248       | H  |		Execute	Discrete,Check_In_Integer
0360 0263       | c  |		Execute	Discrete,Above_Bound
0361 700c       |p   |		Jump_Nonzero	0x36e
0362 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x2 = 0x362,0x3
0363 e5ff       |    |		Load	0x2,-0x1
0364 01d7       |    |		Execute	Vector,Field_Read
0365 0f22       | "  |		Execute_Immediate	Equal,0x22
0366 6805       |h   |		Jump_Zero	0x36c
0367 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x3 = 0x367,0x4
0368 0a01       |    |		Execute_Immediate	Plus,0x1
0369 00e3       |    |		Load_Encached	Natural_Cache
036a 025b       | [  |		Execute	Discrete,Check_In_Type
036b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036c 00c8       |    |		Action	Pop_Auxiliary_Range
036d 3ff4       |?   |		Loop_Increasing	0x362
036e 00ce       |    |		Action	Pop_Auxiliary
036f 6050       |`P  |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x587a9503}		; Debug Table 0xf.0x4 = 0x36f,0x5
0370 0257       | W  |		Execute	Discrete,Raise
0371 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf.0x5 = 0x371,0x6
0372 01dd       |    |		Execute	Vector,First
0373 00e3       |    |		Load_Encached	Natural_Cache
0374 025b       | [  |		Execute	Discrete,Check_In_Type
0375 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0376 0000 0000  |    |		.XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x10 = .DEBUG	0x037b,0x0e4c,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0262
037c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x10.0x0 = 0x37c,0x1
037d 01dc       |    |		Execute	Vector,Last
037e e5ff       |    |		Load	0x2,-0x1
037f 821c       |    |		Call	0x1,0x1c
0380 0263       | c  |		Execute	Discrete,Above_Bound
0381 700f       |p   |		Jump_Nonzero	0x391
0382 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x10.0x1 = 0x382,0x2
0383 e5ff       |    |		Load	0x2,-0x1
0384 01d7       |    |		Execute	Vector,Field_Read
0385 821b       |    |		Call	0x1,0x1b
0386 7008       |p   |		Jump_Nonzero	0x38f
0387 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x10.0x2 = 0x387,0x3
0388 01dd       |    |		Execute	Vector,First
0389 00d9       |    |		Load_Top	At_Offset_1
038a 0aff       |    |		Execute_Immediate	Plus,-0x1
038b 0248       | H  |		Execute	Discrete,Check_In_Integer
038c e5ff       |    |		Load	0x2,-0x1
038d 01cf       |    |		Execute	Vector,Slice_Read
038e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038f 00c8       |    |		Action	Pop_Auxiliary_Range
0390 3ff1       |?   |		Loop_Increasing	0x382
0391 00ce       |    |		Action	Pop_Auxiliary
0392 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x3 = 0x392,0x4
0393 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x11 = .DEBUG	0x039b,0x0e56,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0296
039c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11.0x0 = 0x39c,0x1
039d 01d9       |    |		Execute	Vector,Reverse_Bounds
039e 0263       | c  |		Execute	Discrete,Above_Bound
039f 7018       |p   |		Jump_Nonzero	0x3b8
03a0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x11.0x1 = 0x3a0,0x2
03a1 e5ff       |    |		Load	0x2,-0x1
03a2 01d7       |    |		Execute	Vector,Field_Read
03a3 0f22       | "  |		Execute_Immediate	Equal,0x22
03a4 6811       |h   |		Jump_Zero	0x3b6
03a5 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x11.0x2 = 0x3a5,0x3
03a6 01dd       |    |		Execute	Vector,First
03a7 00d9       |    |		Load_Top	At_Offset_1
03a8 0aff       |    |		Execute_Immediate	Plus,-0x1
03a9 0248       | H  |		Execute	Discrete,Check_In_Integer
03aa e5ff       |    |		Load	0x2,-0x1
03ab 01cf       |    |		Execute	Vector,Slice_Read
03ac 00d9       |    |		Load_Top	At_Offset_1
03ad 0a01       |    |		Execute_Immediate	Plus,0x1
03ae 0248       | H  |		Execute	Discrete,Check_In_Integer
03af e5ff       |    |		Load	0x2,-0x1
03b0 01dc       |    |		Execute	Vector,Last
03b1 e5ff       |    |		Load	0x2,-0x1
03b2 01cf       |    |		Execute	Vector,Slice_Read
03b3 821e       |    |		Call	0x1,0x1e
03b4 01cc       |    |		Execute	Vector,Catenate
03b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03b6 00c8       |    |		Action	Pop_Auxiliary_Range
03b7 3fe8       |?   |		Loop_Increasing	0x3a0
03b8 00ce       |    |		Action	Pop_Auxiliary
03b9 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11.0x3 = 0x3b9,0x4
03ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03bb 0000       |    |		.XXX[0x1]
03bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x587a9501}
03c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x587a9503}
03c4 0000 0000  |    |		.BLANK	0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cf       |    |		.CONST	0x03cf								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0003       |    |		.CONST	0x0003								; Number of locals
03cb			INIT_03c8:
03cb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x12 = .DEBUG	0x03cb,0x0e60,0x0002,0x0000,0x0058,0x7a95,0x0000,0x02d4
													; Debug Table 0x12.0x0 = 0x3cb,0xffff
03cc e001       |    |		Load	0x0,0x1								; Debug Table 0x12.0x1 = 0x3cc,0xfffe
03cd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03ce 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03cf			BODY_03c8:
03cf e001       |    |		Load	0x0,0x1								; Debug Table 0x12.0x2 = 0x3cf,0x1
03d0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03d1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03d2 e001       |    |		Load	0x0,0x1
03d3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d4 629f       |b   |		Indirect_Literal	Discrete,0x674,{0x00000000, 0x00004000}
03d5 e002       |    |		Load	0x0,0x2
03d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d7 e5fe       |    |		Load	0x2,-0x2
03d8 485c       |H\  |		Short_Literal	0x5c
03d9 e5ff       |    |		Load	0x2,-0x1
03da 821d       |    |		Call	0x1,0x1d
03db 821e       |    |		Call	0x1,0x1e
03dc 01ca       |    |		Execute	Vector,Prepend
03dd e001       |    |		Load	0x0,0x1
03de 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03df 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
03e0 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
03e1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
03e2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x12.0x3 = 0x3e2,0x2
03e3 0b00       |    |		Execute_Immediate	Case_Compare,0x0
03e4 7002       |p   |		Jump_Nonzero	0x3e7
03e5 67da       |g   |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x587a9503}		; Debug Table 0x12.0x4 = 0x3e5,0x4
03e6 0257       | W  |		Execute	Discrete,Raise
03e7 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12.0x5 = 0x3e7,0x3
03e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e9 0000 0000  |    |		.BLANK	0000[0x7]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fb       |    |		.CONST	0x03fb								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0006       |    |		.CONST	0x0006								; Number of locals
03f3			INIT_03f0:
03f3 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x13 = .DEBUG	0x03f3,0x0e6e,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0329
													; Debug Table 0x13.0x0 = 0x3f3,0xffff
03f4 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x13.0x1 = 0x3f4,0xfffe
03f5 e213       |    |		Load	0x1,0x13							; Debug Table 0x13.0x2 = 0x3f5,0xfffd
03f6 02ff       |    |		Declare_Variable	Variant_Record
03f7 00d8       |    |		Load_Top	At_Offset_0
03f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f9 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x13.0x3 = 0x3f9,0xfffc
03fa 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x13.0x4 = 0x3fa,0xfffb
03fb			BODY_03f0:
03fb e214       |    |		Load	0x1,0x14							; Debug Table 0x13.0x5 = 0x3fb,0x1
03fc 00db       |    |		Load_Top	At_Offset_3
03fd 016d       | m  |		Execute	Variant_Record,Structure_Write
03fe e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0x6 = 0x3fe,0x2
													; Debug Table 0x13.0x7 = 0x3fe,0x401
03ff 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x13.0x8 = 0x3ff,0x402
0400 0f12       |    |		Execute_Immediate	Equal,0x12					; Debug Table 0x13.0x9 = 0x400,0x403
													; Debug Table 0x13.0xa = 0x400,0x404
													; Debug Table 0x13.0xb = 0x400,0x2
0401 6805       |h   |		Jump_Zero	0x407
0402 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0xc = 0x402,0x3
0403 00eb       |    |		Load_Encached	Diana_Cache
0404 18c0       |    |		Execute	Package,Field_Execute,Field_Number 0xc0
0405 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0406 7802       |x   |		Jump	0x409
0407 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0xd = 0x407,0x4
0408 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0409 e406       |    |		Load	0x2,0x6								; Debug Table 0x13.0xe = 0x409,0x5
													; Debug Table 0x13.0xf = 0x409,0x801
040a 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x13.0x10 = 0x40a,0x802
040b 0b00       |    |		Execute_Immediate	Case_Compare,0x0				; Debug Table 0x13.0x11 = 0x40b,0x803
													; Debug Table 0x13.0x12 = 0x40b,0x804
													; Debug Table 0x13.0x13 = 0x40b,0x5
040c 705a       |pZ  |		Jump_Nonzero	0x467
040d 0b08       |    |		Execute_Immediate	Case_Compare,0x8
040e 700c       |p   |		Jump_Nonzero	0x41b
040f 0b10       |    |		Execute_Immediate	Case_Compare,0x10
0410 700f       |p   |		Jump_Nonzero	0x420
0411 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
0412 701b       |p   |		Jump_Nonzero	0x42e
0413 0b17       |    |		Execute_Immediate	Case_Compare,0x17
0414 7023       |p#  |		Jump_Nonzero	0x438
0415 0b16       |    |		Execute_Immediate	Case_Compare,0x16
0416 7028       |p(  |		Jump_Nonzero	0x43f
0417 e215       |    |		Load	0x1,0x15							; Debug Table 0x13.0x14 = 0x417,0x17
0418 e404       |    |		Load	0x2,0x4
0419 016d       | m  |		Execute	Variant_Record,Structure_Write
041a 784c       |xL  |		Jump	0x467
041b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x15 = 0x41b,0x7
041c 8218       |    |		Call	0x1,0x18
041d e404       |    |		Load	0x2,0x4
041e 016d       | m  |		Execute	Variant_Record,Structure_Write
041f 7847       |xG  |		Jump	0x467
0420 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x13.0x16 = 0x420,0x8
0421 00e2       |    |		Load_Encached	Integer_Cache
0422 00db       |    |		Load_Top	At_Offset_3
0423 e009       |    |		Load	0x0,0x9
0424 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0425 c403       |    |		Store	0x2,0x3
0426 c402       |    |		Store	0x2,0x2
0427 e402       |    |		Load	0x2,0x2								; Debug Table 0x13.0x17 = 0x427,0x9
0428 683e       |h>  |		Jump_Zero	0x467
0429 e403       |    |		Load	0x2,0x3								; Debug Table 0x13.0x18 = 0x429,0xa
042a 8216       |    |		Call	0x1,0x16
042b e404       |    |		Load	0x2,0x4
042c 016d       | m  |		Execute	Variant_Record,Structure_Write
042d 7839       |x9  |		Jump	0x467
042e 4802       |H   |		Short_Literal	0x2							; Debug Table 0x13.0x19 = 0x42e,0xb
042f 00da       |    |		Load_Top	At_Offset_2
0430 00eb       |    |		Load_Encached	Diana_Cache
0431 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0432 00eb       |    |		Load_Encached	Diana_Cache
0433 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0434 8217       |    |		Call	0x1,0x17
0435 e404       |    |		Load	0x2,0x4
0436 016d       | m  |		Execute	Variant_Record,Structure_Write
0437 782f       |x/  |		Jump	0x467
0438 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x1a = 0x438,0xc
0439 00eb       |    |		Load_Encached	Diana_Cache
043a 18fa       |    |		Execute	Package,Field_Execute,Field_Number 0xfa
043b 8218       |    |		Call	0x1,0x18
043c e404       |    |		Load	0x2,0x4
043d 016d       | m  |		Execute	Variant_Record,Structure_Write
043e 7828       |x(  |		Jump	0x467
043f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x13.0x1b = 0x43f,0xd
0440 00eb       |    |		Load_Encached	Diana_Cache
0441 18fa       |    |		Execute	Package,Field_Execute,Field_Number 0xfa
0442 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0443 00cf       |    |		Action	Mark_Auxiliary
0444 e405       |    |		Load	0x2,0x5								; Debug Table 0x13.0x1c = 0x444,0xe
													; Debug Table 0x13.0x1d = 0x444,0xf
													; Debug Table 0x13.0x1e = 0x444,0xc01
0445 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x13.0x1f = 0x445,0xc02
0446 0b1d       |    |		Execute_Immediate	Case_Compare,0x1d				; Debug Table 0x13.0x20 = 0x446,0xc03
													; Debug Table 0x13.0x21 = 0x446,0xc04
													; Debug Table 0x13.0x22 = 0x446,0xf
0447 7009       |p   |		Jump_Nonzero	0x451
0448 0b08       |    |		Execute_Immediate	Case_Compare,0x8
0449 700d       |p   |		Jump_Nonzero	0x457
044a 0b31       | 1  |		Execute_Immediate	Case_Compare,0x31
044b 7011       |p   |		Jump_Nonzero	0x45d
044c e215       |    |		Load	0x1,0x15							; Debug Table 0x13.0x23 = 0x44c,0x15
044d e404       |    |		Load	0x2,0x4
044e 016d       | m  |		Execute	Variant_Record,Structure_Write
044f 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x13.0x24 = 0x44f,0x16
0450 7815       |x   |		Jump	0x466
0451 e405       |    |		Load	0x2,0x5								; Debug Table 0x13.0x25 = 0x451,0x10
0452 4901       |I   |		Short_Literal	0x101
0453 00eb       |    |		Load_Encached	Diana_Cache
0454 0096       |    |		Execute	Package,Entry
0455 a405       |    |		Store_Unchecked	0x2,0x5
0456 780c       |x   |		Jump	0x463
0457 e405       |    |		Load	0x2,0x5								; Debug Table 0x13.0x26 = 0x457,0x11
0458 8218       |    |		Call	0x1,0x18
0459 e404       |    |		Load	0x2,0x4
045a 016d       | m  |		Execute	Variant_Record,Structure_Write
045b 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x13.0x27 = 0x45b,0x12
045c 7809       |x   |		Jump	0x466
045d e405       |    |		Load	0x2,0x5								; Debug Table 0x13.0x28 = 0x45d,0x13
045e 8218       |    |		Call	0x1,0x18
045f e404       |    |		Load	0x2,0x4
0460 016d       | m  |		Execute	Variant_Record,Structure_Write
0461 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x13.0x29 = 0x461,0x14
0462 7803       |x   |		Jump	0x466
0463 00d1       |    |		Pop_Control	Pop_Count_1
0464 00c9       |    |		Action	Pop_Auxiliary_Loop
0465 7fde       |    |		Jump	0x444
0466 00ce       |    |		Action	Pop_Auxiliary
0467 00d1       |    |		Pop_Control	Pop_Count_1
0468 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13.0x2a = 0x468,0x18
0469 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046a 0000 0000  |    |		.BLANK	0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0479       | y  |		.CONST	0x0479								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0004       |    |		.CONST	0x0004								; Number of locals
0473			INIT_0470:
0473 e213       |    |		Load	0x1,0x13							; Debug Table 0x14 = .DEBUG	0x0473,0x0ec6,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0420
													; Debug Table 0x14.0x0 = 0x473,0xffff
0474 02ff       |    |		Declare_Variable	Variant_Record
0475 00d8       |    |		Load_Top	At_Offset_0
0476 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0477 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x14.0x1 = 0x477,0xfffe
0478 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x14.0x2 = 0x478,0xfffd
0479			BODY_0470:
0479 e214       |    |		Load	0x1,0x14							; Debug Table 0x14.0x3 = 0x479,0x1
047a 00db       |    |		Load_Top	At_Offset_3
047b 016d       | m  |		Execute	Variant_Record,Structure_Write
047c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x14.0x4 = 0x47c,0x2
047d 7002       |p   |		Jump_Nonzero	0x480
047e e214       |    |		Load	0x1,0x14							; Debug Table 0x14.0x5 = 0x47e,0x3
047f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0480 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x14.0x6 = 0x480,0x4
													; Debug Table 0x14.0x7 = 0x480,0x401
0481 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x14.0x8 = 0x481,0x402
0482 0b5b       | [  |		Execute_Immediate	Case_Compare,0x5b				; Debug Table 0x14.0x9 = 0x482,0x403
													; Debug Table 0x14.0xa = 0x482,0x404
													; Debug Table 0x14.0xb = 0x482,0x4
0483 7001       |p   |		Jump_Nonzero	0x485
0484 781c       |x   |		Jump	0x4a1								; Debug Table 0x14.0xc = 0x484,0xa
0485 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x14.0xd = 0x485,0x5
0486 490c       |I   |		Short_Literal	0x10c
0487 00eb       |    |		Load_Encached	Diana_Cache
0488 0096       |    |		Execute	Package,Entry
0489 00eb       |    |		Load_Encached	Diana_Cache
048a 18ed       |    |		Execute	Package,Field_Execute,Field_Number 0xed
048b 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
048c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x14.0xe = 0x48c,0x6
048d 4975       |Iu  |		Short_Literal	0x175
048e 00eb       |    |		Load_Encached	Diana_Cache
048f 0098       |    |		Execute	Package,Field_Read_Dynamic
0490 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0491 e5fe       |    |		Load	0x2,-0x2
0492 027c       | |  |		Execute	Discrete,Less
0493 6802       |h   |		Jump_Zero	0x496
0494 e214       |    |		Load	0x1,0x14							; Debug Table 0x14.0xf = 0x494,0x7
0495 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0496 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x14.0x10 = 0x496,0x8
0497 00da       |    |		Load_Top	At_Offset_2
0498 4975       |Iu  |		Short_Literal	0x175
0499 00eb       |    |		Load_Encached	Diana_Cache
049a 0098       |    |		Execute	Package,Field_Read_Dynamic
049b 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
049c 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
049d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14.0x11 = 0x49d,0x9
049e 8220       |    |		Call	0x1,0x20
049f e402       |    |		Load	0x2,0x2
04a0 016d       | m  |		Execute	Variant_Record,Structure_Write
04a1 00d1       |    |		Pop_Control	Pop_Count_1
04a2 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14.0x12 = 0x4a2,0xb
04a3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a4 0000 0000  |    |		.BLANK	0000[0x4]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ae       |    |		.CONST	0x04ae								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0002       |    |		.CONST	0x0002								; Number of locals
04ab			INIT_04a8:
04ab 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x15 = .DEBUG	0x04ab,0x0eee,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0497
													; Debug Table 0x15.0x0 = 0x4ab,0xffff
04ac 00db       |    |		Load_Top	At_Offset_3
04ad 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
04ae			BODY_04a8:
04ae 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x15.0x1 = 0x4ae,0xfffe
04af 780a       |x   |		Jump	0x4ba
04b0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x15.0x2 = 0x4b0,0x2
04b1 00eb       |    |		Load_Encached	Diana_Cache
04b2 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
04b3 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
04b4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x15.0x3 = 0x4b4,0x3
													; Debug Table 0x15.0x4 = 0x4b4,0x401
04b5 021d       |    |		Execute	Heap_Access,Is_Null
04b6 6802       |h   |		Jump_Zero	0x4b9							; Debug Table 0x15.0x5 = 0x4b6,0x3
04b7 61b8       |a   |		Indirect_Literal	Discrete,0x670,{0x00000000, 0x587a9504}		; Debug Table 0x15.0x6 = 0x4b7,0x4
04b8 0257       | W  |		Execute	Discrete,Raise
04b9 00c9       |    |		Action	Pop_Auxiliary_Loop
04ba 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x15.0x7 = 0x4ba,0x1
04bb e00a       |    |		Load	0x0,0xa
04bc 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
04bd 6ff2       |o   |		Jump_Zero	0x4b0
04be 00ce       |    |		Action	Pop_Auxiliary
04bf 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x8 = 0x4bf,0x5
04c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c1 0000 0000  |    |		.BLANK	0000[0x7]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d6       |    |		.CONST	0x04d6								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0009       |    |		.CONST	0x0009								; Number of locals
04cb			INIT_04c8:
04cb 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x16 = .DEBUG	0x04cb,0x0f02,0x0002,0x0000,0x0058,0x7a95,0x0000,0x04d4
													; Debug Table 0x16.0x0 = 0x4cb,0xffff
04cc 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x16.0x1 = 0x4cc,0xfffe
04cd e213       |    |		Load	0x1,0x13							; Debug Table 0x16.0x2 = 0x4cd,0xfffd
04ce 02ff       |    |		Declare_Variable	Variant_Record
04cf 00d8       |    |		Load_Top	At_Offset_0
04d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d1 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x16.0x3 = 0x4d1,0xfffc
04d2 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x16.0x4 = 0x4d2,0xfffb
04d3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16.0x5 = 0x4d3,0xfffa
04d4 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16.0x6 = 0x4d4,0xfff9
04d5 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16.0x7 = 0x4d5,0xfff8
04d6			BODY_04c8:
04d6 e214       |    |		Load	0x1,0x14							; Debug Table 0x16.0x8 = 0x4d6,0x1
04d7 e404       |    |		Load	0x2,0x4
04d8 016d       | m  |		Execute	Variant_Record,Structure_Write
04d9 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x16.0x9 = 0x4d9,0x2
04da 7002       |p   |		Jump_Nonzero	0x4dd
04db e214       |    |		Load	0x1,0x14							; Debug Table 0x16.0xa = 0x4db,0x3
04dc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04dd e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x16.0xb = 0x4dd,0x4
04de 8222       | "  |		Call	0x1,0x22
04df 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
04e0 e409       |    |		Load	0x2,0x9								; Debug Table 0x16.0xc = 0x4e0,0x5
													; Debug Table 0x16.0xd = 0x4e0,0x401
04e1 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x16.0xe = 0x4e1,0x402
04e2 0b48       | H  |		Execute_Immediate	Case_Compare,0x48				; Debug Table 0x16.0x10 = 0x4e2,0x404
													; Debug Table 0x16.0x11 = 0x4e2,0x5
													; Debug Table 0x16.0xf = 0x4e2,0x403
04e3 7003       |p   |		Jump_Nonzero	0x4e7
04e4 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d
04e5 7001       |p   |		Jump_Nonzero	0x4e7
04e6 786f       |xo  |		Jump	0x556								; Debug Table 0x16.0x12 = 0x4e6,0x15
04e7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x16.0x13 = 0x4e7,0x6
04e8 00eb       |    |		Load_Encached	Diana_Cache
04e9 18ce       |    |		Execute	Package,Field_Execute,Field_Number 0xce
04ea 00eb       |    |		Load_Encached	Diana_Cache
04eb 18da       |    |		Execute	Package,Field_Execute,Field_Number 0xda
04ec 00eb       |    |		Load_Encached	Diana_Cache
04ed 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
04ee a405       |    |		Store_Unchecked	0x2,0x5
04ef 4800       |H   |		Short_Literal	0x0							; Debug Table 0x16.0x14 = 0x4ef,0x7
04f0 a402       |    |		Store_Unchecked	0x2,0x2
04f1 4800       |H   |		Short_Literal	0x0							; Debug Table 0x16.0x15 = 0x4f1,0x8
04f2 a403       |    |		Store_Unchecked	0x2,0x3
04f3 00cf       |    |		Action	Mark_Auxiliary
04f4 784c       |xL  |		Jump	0x541
04f5 e403       |    |		Load	0x2,0x3								; Debug Table 0x16.0x16 = 0x4f5,0xa
04f6 e402       |    |		Load	0x2,0x2
04f7 0273       | s  |		Execute	Discrete,Plus
04f8 c403       |    |		Store	0x2,0x3
04f9 e405       |    |		Load	0x2,0x5								; Debug Table 0x16.0x17 = 0x4f9,0xb
													; Debug Table 0x16.0x18 = 0x4f9,0x801
04fa 021d       |    |		Execute	Heap_Access,Is_Null
04fb 6802       |h   |		Jump_Zero	0x4fe							; Debug Table 0x16.0x19 = 0x4fb,0xb
04fc e214       |    |		Load	0x1,0x14							; Debug Table 0x16.0x1a = 0x4fc,0xc
04fd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04fe e405       |    |		Load	0x2,0x5								; Debug Table 0x16.0x1b = 0x4fe,0xd
04ff 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x1c = 0x4ff,0xc01
0500 7002       |p   |		Jump_Nonzero	0x503
0501 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x16.0x1d = 0x501,0xc02
0502 7826       |x&  |		Jump	0x529
0503 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x1e = 0x503,0xc03
0504 0217       |    |		Execute	Heap_Access,All_Reference
0505 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0506 6804       |h   |		Jump_Zero	0x50b
0507 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x1f = 0x507,0xc04
0508 0217       |    |		Execute	Heap_Access,All_Reference
0509 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
050a 781e       |x   |		Jump	0x529
050b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x16.0x20 = 0x50b,0xc05
050c e40d       |    |		Load	0x2,0xd								; Debug Table 0x16.0x21 = 0x50c,0x1001
050d 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x16.0x22 = 0x50d,0x1002
050e 00d0       |    |		Action	Swap_Control							; Debug Table 0x16.0x23 = 0x50e,0x1003
													; Debug Table 0x16.0x24 = 0x50e,0x1004
050f 00d1       |    |		Pop_Control	Pop_Count_1
0510 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x16.0x25 = 0x510,0xc05
0511 00eb       |    |		Load_Encached	Diana_Cache
0512 0098       |    |		Execute	Package,Field_Read_Dynamic
0513 012c       | ,  |		Execute	Any,Size
0514 e00b       |    |		Load	0x0,0xb
0515 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0516 025b       | [  |		Execute	Discrete,Check_In_Type
0517 0273       | s  |		Execute	Discrete,Plus
0518 00d9       |    |		Load_Top	At_Offset_1
0519 e40e       |    |		Load	0x2,0xe								; Debug Table 0x16.0x26 = 0x519,0x1401
051a 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x16.0x27 = 0x51a,0x1402
051b 00d0       |    |		Action	Swap_Control							; Debug Table 0x16.0x28 = 0x51b,0x1403
													; Debug Table 0x16.0x29 = 0x51b,0x1404
051c 00d1       |    |		Pop_Control	Pop_Count_1
051d 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x16.0x2a = 0x51d,0x1004
051e 00eb       |    |		Load_Encached	Diana_Cache
051f 0098       |    |		Execute	Package,Field_Read_Dynamic
0520 49c9       |I   |		Short_Literal	0x1c9
0521 00eb       |    |		Load_Encached	Diana_Cache
0522 0098       |    |		Execute	Package,Field_Read_Dynamic
0523 49ca       |I   |		Short_Literal	0x1ca
0524 00eb       |    |		Load_Encached	Diana_Cache
0525 0095       |    |		Execute	Package,Field_Reference_Dynamic
0526 e00c       |    |		Load	0x0,0xc
0527 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0528 7800       |x   |		Jump	0x529
0529 00d0       |    |		Action	Swap_Control
052a 00d1       |    |		Pop_Control	Pop_Count_1
052b a407       |    |		Store_Unchecked	0x2,0x7							; Debug Table 0x16.0x2b = 0x52b,0xd
052c e407       |    |		Load	0x2,0x7								; Debug Table 0x16.0x2c = 0x52c,0xe
052d 00eb       |    |		Load_Encached	Diana_Cache
052e 18d0       |    |		Execute	Package,Field_Execute,Field_Number 0xd0
052f 00eb       |    |		Load_Encached	Diana_Cache
0530 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
0531 a406       |    |		Store_Unchecked	0x2,0x6
0532 e406       |    |		Load	0x2,0x6								; Debug Table 0x16.0x2d = 0x532,0xf
0533 4975       |Iu  |		Short_Literal	0x175
0534 00eb       |    |		Load_Encached	Diana_Cache
0535 0098       |    |		Execute	Package,Field_Read_Dynamic
0536 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0537 c402       |    |		Store	0x2,0x2
0538 e405       |    |		Load	0x2,0x5								; Debug Table 0x16.0x2e = 0x538,0x10
													; Debug Table 0x16.0x2f = 0x538,0x1801
0539 7002       |p   |		Jump_Nonzero	0x53c
053a 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x16.0x30 = 0x53a,0x1802
053b 7803       |x   |		Jump	0x53f
053c e405       |    |		Load	0x2,0x5								; Debug Table 0x16.0x31 = 0x53c,0x1803
053d 0217       |    |		Execute	Heap_Access,All_Reference
053e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
053f a405       |    |		Store_Unchecked	0x2,0x5							; Debug Table 0x16.0x32 = 0x53f,0x10
0540 00c9       |    |		Action	Pop_Auxiliary_Loop
0541 e403       |    |		Load	0x2,0x3								; Debug Table 0x16.0x33 = 0x541,0x9
0542 e402       |    |		Load	0x2,0x2
0543 0273       | s  |		Execute	Discrete,Plus
0544 e5fe       |    |		Load	0x2,-0x2
0545 027c       | |  |		Execute	Discrete,Less
0546 77ae       |w   |		Jump_Nonzero	0x4f5
0547 00ce       |    |		Action	Pop_Auxiliary
0548 e407       |    |		Load	0x2,0x7								; Debug Table 0x16.0x34 = 0x548,0x11
													; Debug Table 0x16.0x35 = 0x548,0x1c01
0549 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x16.0x36 = 0x549,0x1c02
054a 0b7e       | ~  |		Execute_Immediate	Case_Compare,0x7e				; Debug Table 0x16.0x37 = 0x54a,0x1c03
													; Debug Table 0x16.0x38 = 0x54a,0x1c04
													; Debug Table 0x16.0x39 = 0x54a,0x11
054b 7001       |p   |		Jump_Nonzero	0x54d
054c 7808       |x   |		Jump	0x555								; Debug Table 0x16.0x3a = 0x54c,0x14
054d e407       |    |		Load	0x2,0x7								; Debug Table 0x16.0x3b = 0x54d,0x12
054e 00eb       |    |		Load_Encached	Diana_Cache
054f 18ca       |    |		Execute	Package,Field_Execute,Field_Number 0xca
0550 a408       |    |		Store_Unchecked	0x2,0x8
0551 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x16.0x3c = 0x551,0x13
0552 8220       |    |		Call	0x1,0x20
0553 e404       |    |		Load	0x2,0x4
0554 016d       | m  |		Execute	Variant_Record,Structure_Write
0555 00d1       |    |		Pop_Control	Pop_Count_1
0556 00d1       |    |		Pop_Control	Pop_Count_1
0557 e404       |    |		Load	0x2,0x4								; Debug Table 0x16.0x3d = 0x557,0x16
0558 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0559 0000 0000  |    |		.BLANK	0000[0x7]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 056a       | j  |		.CONST	0x056a								; Address of begin
0561 05a5       |    |		.CONST	0x05a5								; Address of exception handler
0562 0003       |    |		.CONST	0x0003								; Number of locals
0563			INIT_0560:
0563 e006       |    |		Load	0x0,0x6								; Debug Table 0x17 = .DEBUG	0x0563,0x0f80,0x0002,0x0000,0x0058,0x7a95,0x0000,0x05c2
													; Debug Table 0x17.0x0 = 0x563,0xffff
0564 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0565 0322       | "  |		Declare_Variable	Record
0566 e213       |    |		Load	0x1,0x13							; Debug Table 0x17.0x1 = 0x566,0xfffe
0567 02ff       |    |		Declare_Variable	Variant_Record
0568 00d8       |    |		Load_Top	At_Offset_0
0569 1c00       |    |		Execute_Immediate	Run_Utility,0x0
056a			BODY_0560:
056a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x17.0x2 = 0x56a,0xfffd
													; Debug Table 0x17.0x3 = 0x56a,0xfffc
													; Debug Table 0x17.0x4 = 0x56a,0x1
056b e00d       |    |		Load	0x0,0xd
056c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
056d 00da       |    |		Load_Top	At_Offset_2
056e 017d       | }  |		Execute	Record,Structure_Write
056f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x17.0x5 = 0x56f,0x2
0570 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0571 e00d       |    |		Load	0x0,0xd
0572 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0573 682f       |h/  |		Jump_Zero	0x5a3
0574 4802       |H   |		Short_Literal	0x2							; Debug Table 0x17.0x6 = 0x574,0x3
0575 e5fe       |    |		Load	0x2,-0x2
0576 8221       | !  |		Call	0x1,0x21
0577 00d9       |    |		Load_Top	At_Offset_1
0578 016d       | m  |		Execute	Variant_Record,Structure_Write
0579 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x17.0x7 = 0x579,0x4
057a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
057b 7005       |p   |		Jump_Nonzero	0x581
057c 4802       |H   |		Short_Literal	0x2							; Debug Table 0x17.0x8 = 0x57c,0x5
057d e5ff       |    |		Load	0x2,-0x1
057e 8223       | #  |		Call	0x1,0x23
057f 00d9       |    |		Load_Top	At_Offset_1
0580 016d       | m  |		Execute	Variant_Record,Structure_Write
0581 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x17.0x9 = 0x581,0x6
0582 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0583 681d       |h   |		Jump_Zero	0x5a1
0584 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x17.0xa = 0x584,0x7
0585 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0586 4603       |F   |		Jump_Case	0x4
0587 7803       |x   |		Jump	0x58b								; case 0x0
0588 7808       |x   |		Jump	0x591								; case 0x1
0589 780d       |x   |		Jump	0x597								; case 0x2
058a 7812       |x   |		Jump	0x59d								; case 0x3
058b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x17.0xb = 0x58b,0x8
058c 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
058d 2e01       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x1
058e 00da       |    |		Load_Top	At_Offset_2
058f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0590 7812       |x   |		Jump	0x5a3
0591 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x17.0xc = 0x591,0x9
0592 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0593 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0594 00da       |    |		Load_Top	At_Offset_2
0595 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0596 780c       |x   |		Jump	0x5a3
0597 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x17.0xd = 0x597,0xa
0598 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0599 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
059a 00da       |    |		Load_Top	At_Offset_2
059b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
059c 7806       |x   |		Jump	0x5a3
059d 49ff       |I   |		Short_Literal	0x1ff							; Debug Table 0x17.0xe = 0x59d,0xb
059e 00da       |    |		Load_Top	At_Offset_2
059f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05a0 7802       |x   |		Jump	0x5a3
05a1 661e       |f   |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x587a9503}		; Debug Table 0x17.0xf = 0x5a1,0xc
05a2 0257       | W  |		Execute	Discrete,Raise
05a3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x17.0x10 = 0x5a3,0xd
05a4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05a5			TRAP_0560:
05a5 e00d       |    |		Load	0x0,0xd
05a6 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
05a7 010f       |    |		Execute	Exception,Equal
05a8 6803       |h   |		Jump_Zero	0x5ac
05a9 e006       |    |		Load	0x0,0x6								; Debug Table 0x17.0x11 = 0x5a9,0xe
05aa 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05ab 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05ac 0100       |    |		Execute	Exception,Raise
05ad 0000 0000  |    |		.XXX[0x3]
05af 0000       |    |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b8       |    |		.CONST	0x05b8								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0003       |    |		.CONST	0x0003								; Number of locals
05b3			INIT_05b0:
05b3 e213       |    |		Load	0x1,0x13							; Debug Table 0x18 = .DEBUG	0x05b3,0x0fa6,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0668
													; Debug Table 0x18.0x0 = 0x5b3,0xffff
05b4 02ff       |    |		Declare_Variable	Variant_Record
05b5 00d8       |    |		Load_Top	At_Offset_0
05b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05b7 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x18.0x1 = 0x5b7,0xfffe
05b8			BODY_05b0:
05b8 4800       |H   |		Short_Literal	0x0							; Debug Table 0x18.0x2 = 0x5b8,0x1
05b9 a5fe       |    |		Store_Unchecked	0x2,-0x2
05ba 4800       |H   |		Short_Literal	0x0							; Debug Table 0x18.0x3 = 0x5ba,0x2
05bb a5fd       |    |		Store_Unchecked	0x2,-0x3
05bc e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x18.0x4 = 0x5bc,0x3
05bd e009       |    |		Load	0x0,0x9
05be 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05bf 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05c0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x18.0x5 = 0x5c0,0x4
05c1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
05c2 6815       |h   |		Jump_Zero	0x5d8
05c3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x18.0x6 = 0x5c3,0x5
05c4 e5ff       |    |		Load	0x2,-0x1
05c5 8221       | !  |		Call	0x1,0x21
05c6 00da       |    |		Load_Top	At_Offset_2
05c7 016d       | m  |		Execute	Variant_Record,Structure_Write
05c8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x18.0x7 = 0x5c8,0x6
05c9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ca 680d       |h   |		Jump_Zero	0x5d8
05cb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x18.0x8 = 0x5cb,0x7
05cc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05cd 4603       |F   |		Jump_Case	0x4
05ce 7803       |x   |		Jump	0x5d2								; case 0x0
05cf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x1
05d0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x2
05d1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x3
05d2 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x18.0x9 = 0x5d2,0x8
05d3 2703       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
05d4 2e01       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x1
05d5 a5fe       |    |		Store_Unchecked	0x2,-0x2
05d6 4801       |H   |		Short_Literal	0x1							; Debug Table 0x18.0xa = 0x5d6,0x9
05d7 a5fd       |    |		Store_Unchecked	0x2,-0x3
05d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05d9 0000 0000  |    |		.BLANK	0000[0x7]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x19 = .DEBUG	0x05e3,0x0fbe,0x0002,0x0000,0x0058,0x7a95,0x0000,0x06c1
													; Debug Table 0x19.0x0 = 0x5e3,0x1
05e4 e006       |    |		Load	0x0,0x6
05e5 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05e6 017f       |    |		Execute	Record,Equal
05e7 0f00       |    |		Execute_Immediate	Equal,0x0
05e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e9 0000 0000  |    |		.BLANK	0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 0600       |    |		.CONST	0x0600								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0004       |    |		.CONST	0x0004								; Number of locals
05f3			INIT_05f0:
05f3 e001       |    |		Load	0x0,0x1								; Debug Table 0x1a = .DEBUG	0x05f3,0x0fc2,0x0002,0x0000,0x0058,0x7a95,0x0000,0x06dd
													; Debug Table 0x1a.0x0 = 0x5f3,0xffff
05f4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05f5 02c7       |    |		Declare_Variable	Any
05f6 00d8       |    |		Load_Top	At_Offset_0
05f7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05f8 e001       |    |		Load	0x0,0x1								; Debug Table 0x1a.0x1 = 0x5f8,0xfffe
05f9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
05fa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05fb 02c7       |    |		Declare_Variable	Any
05fc 00d8       |    |		Load_Top	At_Offset_0
05fd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05fe e001       |    |		Load	0x0,0x1								; Debug Table 0x1a.0x2 = 0x5fe,0xfffd
05ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0600			BODY_05f0:
0600 e001       |    |		Load	0x0,0x1								; Debug Table 0x1a.0x3 = 0x600,0x1
0601 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0602 00da       |    |		Load_Top	At_Offset_2
0603 0120       |    |		Execute	Any,Is_Value
0604 6804       |h   |		Jump_Zero	0x609
0605 e001       |    |		Load	0x0,0x1
0606 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0607 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0608 7801       |x   |		Jump	0x60a
0609 00da       |    |		Load_Top	At_Offset_2
060a e5ff       |    |		Load	0x2,-0x1
060b e001       |    |		Load	0x0,0x1
060c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
060d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
060e c403       |    |		Store	0x2,0x3
060f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0610 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1a.0x4 = 0x610,0x2
0611 6802       |h   |		Jump_Zero	0x614
0612 4887       |H   |		Short_Literal	0x87
0613 0257       | W  |		Execute	Discrete,Raise
0614 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1a.0x5 = 0x614,0x3
0615 e001       |    |		Load	0x0,0x1
0616 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0617 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0618 c402       |    |		Store	0x2,0x2
0619 e001       |    |		Load	0x0,0x1								; Debug Table 0x1a.0x6 = 0x619,0x4
061a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
061b 00da       |    |		Load_Top	At_Offset_2
061c 0120       |    |		Execute	Any,Is_Value
061d 6804       |h   |		Jump_Zero	0x622
061e e001       |    |		Load	0x0,0x1
061f 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0620 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0621 7801       |x   |		Jump	0x623
0622 00da       |    |		Load_Top	At_Offset_2
0623 e402       |    |		Load	0x2,0x2
0624 e001       |    |		Load	0x0,0x1
0625 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0626 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0627 c403       |    |		Store	0x2,0x3
0628 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0629 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1a.0x7 = 0x629,0x5
062a 6802       |h   |		Jump_Zero	0x62d
062b 4887       |H   |		Short_Literal	0x87
062c 0257       | W  |		Execute	Discrete,Raise
062d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1a.0x8 = 0x62d,0x6
062e e001       |    |		Load	0x0,0x1
062f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0630 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0631 c402       |    |		Store	0x2,0x2
0632 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1a.0x9 = 0x632,0x7
0633 e001       |    |		Load	0x0,0x1
0634 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0635 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0636 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0637 0000       |    |		.XXX[0x1]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063e       | >  |		.CONST	0x063e								; Address of begin
0639 0004       |    |		.CONST	0x0004								; Address of exception handler
063a 0004       |    |		.CONST	0x0004								; Number of locals
063b			INIT_0638:
063b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1b = .DEBUG	0x063b,0x0fd8,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0748
													; Debug Table 0x1b.0x0 = 0x63b,0xffff
063c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1b.0x1 = 0x63c,0xfffe
063d 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1b.0x2 = 0x63d,0xfffd
063e			BODY_0638:
063e e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1b.0x3 = 0x63e,0x1
063f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0640 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1b.0x4 = 0x640,0x2
0641 00eb       |    |		Load_Encached	Diana_Cache
0642 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0643 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0644 00cf       |    |		Action	Mark_Auxiliary
0645 7807       |x   |		Jump	0x64d
0646 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1b.0x5 = 0x646,0x4
0647 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0648 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1b.0x6 = 0x648,0x5
0649 00eb       |    |		Load_Encached	Diana_Cache
064a 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
064b a402       |    |		Store_Unchecked	0x2,0x2
064c 00c9       |    |		Action	Pop_Auxiliary_Loop
064d e402       |    |		Load	0x2,0x2								; Debug Table 0x1b.0x7 = 0x64d,0x3
													; Debug Table 0x1b.0x8 = 0x64d,0x401
064e 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x1b.0x9 = 0x64e,0x402
064f 0f12       |    |		Execute_Immediate	Equal,0x12					; Debug Table 0x1b.0xa = 0x64f,0x403
													; Debug Table 0x1b.0xb = 0x64f,0x404
													; Debug Table 0x1b.0xc = 0x64f,0x3
0650 77f5       |w   |		Jump_Nonzero	0x646
0651 00ce       |    |		Action	Pop_Auxiliary
0652 e402       |    |		Load	0x2,0x2								; Debug Table 0x1b.0xd = 0x652,0x6
													; Debug Table 0x1b.0xe = 0x652,0x801
0653 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x1b.0xf = 0x653,0x802
0654 0b0b       |    |		Execute_Immediate	Case_Compare,0xb				; Debug Table 0x1b.0x10 = 0x654,0x803
													; Debug Table 0x1b.0x11 = 0x654,0x804
													; Debug Table 0x1b.0x12 = 0x654,0x6
0655 7015       |p   |		Jump_Nonzero	0x66b
0656 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1b.0x13 = 0x656,0x8
0657 e402       |    |		Load	0x2,0x2
0658 4974       |It  |		Short_Literal	0x174
0659 00eb       |    |		Load_Encached	Diana_Cache
065a 0098       |    |		Execute	Package,Field_Read_Dynamic
065b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
065c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1b.0x14 = 0x65c,0x9
065d e5ff       |    |		Load	0x2,-0x1
065e 8227       | '  |		Call	0x1,0x27
065f 480b       |H   |		Short_Literal	0xb
0660 00eb       |    |		Load_Encached	Diana_Cache
0661 187a       | z  |		Execute	Package,Field_Execute,Field_Number 0x7a
0662 4812       |H   |		Short_Literal	0x12
0663 00eb       |    |		Load_Encached	Diana_Cache
0664 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
0665 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0666 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1b.0x15 = 0x666,0xa
0667 00db       |    |		Load_Top	At_Offset_3
0668 4935       |I5  |		Short_Literal	0x135
0669 00eb       |    |		Load_Encached	Diana_Cache
066a 0096       |    |		Execute	Package,Entry
066b 00d1       |    |		Pop_Control	Pop_Count_1
066c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1b.0x16 = 0x66c,0xb
066d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
066e 0000 0000  |    |		.XXX[0x2]
0670 0000 0000  |    |		.LITERAL	{0x00000000, 0x587a9504}
0674 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 0682       |    |		.CONST	0x0682								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0006       |    |		.CONST	0x0006								; Number of locals
067b			INIT_0678:
067b 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x1c = .DEBUG	0x067b,0x1008,0x0002,0x0000,0x0058,0x7a95,0x0000,0x07d4
													; Debug Table 0x1c.0x0 = 0x67b,0xffff
067c e006       |    |		Load	0x0,0x6								; Debug Table 0x1c.0x1 = 0x67c,0xfffe
067d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
067e 0322       | "  |		Declare_Variable	Record
067f 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1c.0x2 = 0x67f,0xfffd
0680 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1c.0x3 = 0x680,0xfffc
0681 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1c.0x4 = 0x681,0xfffb
0682			BODY_0678:
0682 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1c.0x5 = 0x682,0x1
0683 e5ff       |    |		Load	0x2,-0x1
0684 8224       | $  |		Call	0x1,0x24
0685 e403       |    |		Load	0x2,0x3
0686 017d       | }  |		Execute	Record,Structure_Write
0687 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1c.0x6 = 0x687,0x2
0688 00e2       |    |		Load_Encached	Integer_Cache
0689 e5fe       |    |		Load	0x2,-0x2
068a 8225       | %  |		Call	0x1,0x25
068b c402       |    |		Store	0x2,0x2
068c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
068d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x1c.0x7 = 0x68d,0x3
068e 6805       |h   |		Jump_Zero	0x694
068f e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1c.0x8 = 0x68f,0x4
0690 e5ff       |    |		Load	0x2,-0x1
0691 8228       | (  |		Call	0x1,0x28
0692 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0693 7804       |x   |		Jump	0x698
0694 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1c.0x9 = 0x694,0x5
0695 e00e       |    |		Load	0x0,0xe
0696 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0697 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0698 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1c.0xa = 0x698,0x6
0699 8226       | &  |		Call	0x1,0x26
069a 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
069b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1c.0xb = 0x69b,0x7
069c 6816       |h   |		Jump_Zero	0x6b3
069d e006       |    |		Load	0x0,0x6								; Debug Table 0x1c.0xc = 0x69d,0x8
069e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
069f 0322       | "  |		Declare_Variable	Record
06a0 00da       |    |		Load_Top	At_Offset_2
06a1 00d9       |    |		Load_Top	At_Offset_1
06a2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06a3 e403       |    |		Load	0x2,0x3
06a4 00d9       |    |		Load_Top	At_Offset_1
06a5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
06a6 00db       |    |		Load_Top	At_Offset_3
06a7 00d9       |    |		Load_Top	At_Offset_1
06a8 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06a9 e5fc       |    |		Load	0x2,-0x4
06aa 00d9       |    |		Load_Top	At_Offset_1
06ab 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06ac e402       |    |		Load	0x2,0x2
06ad 00d9       |    |		Load_Top	At_Offset_1
06ae 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
06af 4801       |H   |		Short_Literal	0x1
06b0 00d9       |    |		Load_Top	At_Offset_1
06b1 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
06b2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
06b3 e006       |    |		Load	0x0,0x6								; Debug Table 0x1c.0xd = 0x6b3,0x9
06b4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
06b5 0322       | "  |		Declare_Variable	Record
06b6 00da       |    |		Load_Top	At_Offset_2
06b7 00d9       |    |		Load_Top	At_Offset_1
06b8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06b9 e403       |    |		Load	0x2,0x3
06ba 00d9       |    |		Load_Top	At_Offset_1
06bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
06bc 00db       |    |		Load_Top	At_Offset_3
06bd 00d9       |    |		Load_Top	At_Offset_1
06be 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06bf e5fc       |    |		Load	0x2,-0x4
06c0 00d9       |    |		Load_Top	At_Offset_1
06c1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06c2 4800       |H   |		Short_Literal	0x0
06c3 00d9       |    |		Load_Top	At_Offset_1
06c4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
06c5 4800       |H   |		Short_Literal	0x0
06c6 00d9       |    |		Load_Top	At_Offset_1
06c7 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
06c8 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
06c9 0000 0000  |    |		.BLANK	0000[0x7]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d8       |    |		.CONST	0x06d8								; Address of begin
06d1 06ff       |    |		.CONST	0x06ff								; Address of exception handler
06d2 0002       |    |		.CONST	0x0002								; Number of locals
06d3			INIT_06d0:
06d3 e006       |    |		Load	0x0,0x6								; Debug Table 0x1d = .DEBUG	0x06d3,0x1026,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0880
													; Debug Table 0x1d.0x0 = 0x6d3,0xffff
06d4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
06d5 0322       | "  |		Declare_Variable	Record
06d6 00d8       |    |		Load_Top	At_Offset_0
06d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06d8			BODY_06d0:
06d8 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x1d.0x1 = 0x6d8,0x1
06d9 e5fd       |    |		Load	0x2,-0x3
06da e5fe       |    |		Load	0x2,-0x2
06db e5ff       |    |		Load	0x2,-0x1
06dc 8229       | )  |		Call	0x1,0x29
06dd 00d9       |    |		Load_Top	At_Offset_1
06de 017d       | }  |		Execute	Record,Structure_Write
06df e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x1d.0x2 = 0x6df,0x2
06e0 00d9       |    |		Load_Top	At_Offset_1
06e1 e5fc       |    |		Load	0x2,-0x4
06e2 e00f       |    |		Load	0x0,0xf
06e3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
06e4 c5f8       |    |		Store	0x2,-0x8
06e5 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x1d.0x3 = 0x6e5,0x3
06e6 01db       |    |		Execute	Vector,Length
06e7 0f01       |    |		Execute_Immediate	Equal,0x1
06e8 6815       |h   |		Jump_Zero	0x6fe
06e9 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x1d.0x4 = 0x6e9,0x4
06ea 680a       |h   |		Jump_Zero	0x6f5
06eb e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x1d.0x5 = 0x6eb,0x5
06ec 4801       |H   |		Short_Literal	0x1
06ed e5fc       |    |		Load	0x2,-0x4
06ee 01dd       |    |		Execute	Vector,First
06ef e5fc       |    |		Load	0x2,-0x4
06f0 01d7       |    |		Execute	Vector,Field_Read
06f1 e00f       |    |		Load	0x0,0xf
06f2 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
06f3 c5f8       |    |		Store	0x2,-0x8
06f4 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
06f5 e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x1d.0x6 = 0x6f5,0x6
06f6 4800       |H   |		Short_Literal	0x0
06f7 e5fc       |    |		Load	0x2,-0x4
06f8 01dd       |    |		Execute	Vector,First
06f9 e5fc       |    |		Load	0x2,-0x4
06fa 01d7       |    |		Execute	Vector,Field_Read
06fb e00f       |    |		Load	0x0,0xf
06fc 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
06fd c5f8       |    |		Store	0x2,-0x8
06fe 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
06ff			TRAP_06d0:
06ff e00f       |    |		Load	0x0,0xf
0700 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0701 010f       |    |		Execute	Exception,Equal
0702 6816       |h   |		Jump_Zero	0x719
0703 0092 0a87  |    |		Action	Push_String_Extended,0xa87					; "?Too many prefixes in command key binding."
													; Debug Table 0x1d.0x7 = 0x703,0x7
0705 0092 0a88  |    |		Action	Push_String_Extended,0xa88					; "Make_Key_Definition"
0707 e004       |    |		Load	0x0,0x4
0708 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0709 0092 0a89  |    |		Action	Push_String_Extended,0xa89					; " Failed binding: {"
													; Debug Table 0x1d.0x8 = 0x709,0x8
070b e5fc       |    |		Load	0x2,-0x4
070c e5f9       |    |		Load	0x2,-0x7
070d e005       |    |		Load	0x0,0x5
070e 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
070f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0710 01cc       |    |		Execute	Vector,Catenate
0711 0092 0a8a  |    |		Action	Push_String_Extended,0xa8a					; "}"
0713 01cc       |    |		Execute	Vector,Catenate
0714 0092 0a88  |    |		Action	Push_String_Extended,0xa88					; "Make_Key_Definition"
0716 e004       |    |		Load	0x0,0x4
0717 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0718 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0719 0100       |    |		Execute	Exception,Raise
071a 0000 0000  |    |		.BLANK	0000[0x6]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 072a       | *  |		.CONST	0x072a								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0004       |    |		.CONST	0x0004								; Number of locals
0723			INIT_0720:
0723 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1e = .DEBUG	0x0723,0x103a,0x0002,0x0000,0x0058,0x7a95,0x0000,0x092c
													; Debug Table 0x1e.0x0 = 0x723,0xffff
0724 e5fe       |    |		Load	0x2,-0x2
0725 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0726 029f 09cb  |    |		Declare_Subprogram	INIT_09c8,For_Call
0728 029f 09e3  |    |		Declare_Subprogram	INIT_09e0,For_Call
072a			BODY_0720:
072a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1e.0x1 = 0x72a,0x1
													; Debug Table 0x1e.0x2 = 0x72a,0x401
072b 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x1e.0x3 = 0x72b,0x402
072c 0b0c       |    |		Execute_Immediate	Case_Compare,0xc				; Debug Table 0x1e.0x4 = 0x72c,0x403
													; Debug Table 0x1e.0x5 = 0x72c,0x404
													; Debug Table 0x1e.0x6 = 0x72c,0x1
072d 7008       |p   |		Jump_Nonzero	0x736
072e 0b17       |    |		Execute_Immediate	Case_Compare,0x17
072f 7006       |p   |		Jump_Nonzero	0x736
0730 0b16       |    |		Execute_Immediate	Case_Compare,0x16
0731 7006       |p   |		Jump_Nonzero	0x738
0732 0ba4       |    |		Execute_Immediate	Case_Compare,0xa4
0733 701d       |p   |		Jump_Nonzero	0x751
0734 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x1e.0x7 = 0x734,0xa
0735 783d       |x=  |		Jump	0x773
0736 8403       |    |		Call	0x2,0x3								; Debug Table 0x1e.0x8 = 0x736,0x2
0737 781b       |x   |		Jump	0x753
0738 00cf       |    |		Action	Mark_Auxiliary
0739 e402       |    |		Load	0x2,0x2								; Debug Table 0x1e.0x9 = 0x739,0x3
													; Debug Table 0x1e.0xa = 0x739,0x4
073a 00eb       |    |		Load_Encached	Diana_Cache
073b 18fa       |    |		Execute	Package,Field_Execute,Field_Number 0xfa
073c a402       |    |		Store_Unchecked	0x2,0x2
073d e402       |    |		Load	0x2,0x2								; Debug Table 0x1e.0xb = 0x73d,0x5
													; Debug Table 0x1e.0xc = 0x73d,0x801
073e 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x1e.0xd = 0x73e,0x802
073f 0b1d       |    |		Execute_Immediate	Case_Compare,0x1d				; Debug Table 0x1e.0x10 = 0x73f,0x5
													; Debug Table 0x1e.0xe = 0x73f,0x803
													; Debug Table 0x1e.0xf = 0x73f,0x804
0740 7006       |p   |		Jump_Nonzero	0x747
0741 0b31       | 1  |		Execute_Immediate	Case_Compare,0x31
0742 700a       |p   |		Jump_Nonzero	0x74d
0743 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x1e.0x11 = 0x743,0x8
0744 00ce       |    |		Action	Pop_Auxiliary
0745 00d1       |    |		Pop_Control	Pop_Count_1
0746 782c       |x,  |		Jump	0x773
0747 e402       |    |		Load	0x2,0x2								; Debug Table 0x1e.0x12 = 0x747,0x6
0748 4901       |I   |		Short_Literal	0x101
0749 00eb       |    |		Load_Encached	Diana_Cache
074a 0096       |    |		Execute	Package,Entry
074b a402       |    |		Store_Unchecked	0x2,0x2
074c 7801       |x   |		Jump	0x74e
074d 8404       |    |		Call	0x2,0x4								; Debug Table 0x1e.0x13 = 0x74d,0x7
074e 00d1       |    |		Pop_Control	Pop_Count_1
074f 00c9       |    |		Action	Pop_Auxiliary_Loop
0750 7fe8       |    |		Jump	0x739
0751 61b2       |a   |		Indirect_Literal	Discrete,0x904,{0x00000000, 0x587a9502}		; Debug Table 0x1e.0x14 = 0x751,0x9
0752 0257       | W  |		Execute	Discrete,Raise
0753 00d1       |    |		Pop_Control	Pop_Count_1
0754 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x1e.0x15 = 0x754,0xb
													; Debug Table 0x1e.0x16 = 0x754,0xc
0755 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x1e.0x17 = 0x755,0xf3ff
0756 0092 0a8b  |    |		Action	Push_String_Extended,0xa8b					; ": "
0758 01cc       |    |		Execute	Vector,Catenate
0759 e5fe       |    |		Load	0x2,-0x2
075a 00eb       |    |		Load_Encached	Diana_Cache
075b 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
075c 00eb       |    |		Load_Encached	Diana_Cache
075d 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
075e 01cc       |    |		Execute	Vector,Catenate
075f 0092 0a8c  |    |		Action	Push_String_Extended,0xa8c					; " is not a defined key name."
0761 01cc       |    |		Execute	Vector,Catenate
0762 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x1e.0x18 = 0x762,0xc01
0763 6806       |h   |		Jump_Zero	0x76a
0764 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1e.0x19 = 0x764,0xc02
0765 0092 0a8d  |    |		Action	Push_String_Extended,0xa8d					; "Get_Key"
0767 e004       |    |		Load	0x0,0x4
0768 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0769 7805       |x   |		Jump	0x76f
076a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1e.0x1a = 0x76a,0xc03
076b 0092 0a8d  |    |		Action	Push_String_Extended,0xa8d					; "Get_Key"
076d e004       |    |		Load	0x0,0x4
076e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
076f 00d1       |    |		Pop_Control	Pop_Count_1
0770 00ce       |    |		Action	Pop_Auxiliary
0771 618e       |a   |		Indirect_Literal	Discrete,0x900,{0x00000000, 0x587a9501}		; Debug Table 0x1e.0x1b = 0x771,0xd
0772 0257       | W  |		Execute	Discrete,Raise
0773 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x1e.0x1c = 0x773,0xe
													; Debug Table 0x1e.0x1d = 0x773,0xf
0774 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x1e.0x1e = 0x774,0xefff
0775 0092 0a8e  |    |		Action	Push_String_Extended,0xa8e					; ": CASE choice is not a simple constant or an enumeration literal ("
0777 01cc       |    |		Execute	Vector,Catenate
0778 e402       |    |		Load	0x2,0x2								; Debug Table 0x1e.0x1f = 0x778,0x1401
0779 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x1e.0x20 = 0x779,0x1402
077a 00eb       |    |		Load_Encached	Diana_Cache						; Debug Table 0x1e.0x21 = 0x77a,0x1403
													; Debug Table 0x1e.0x22 = 0x77a,0x1404
													; Debug Table 0x1e.0x23 = 0x77a,0xefff
077b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
077c 025e       | ^  |		Execute	Discrete,Convert
077d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
077e 01cc       |    |		Execute	Vector,Catenate
077f 0092 0a8f  |    |		Action	Push_String_Extended,0xa8f					; ")"
0781 01cc       |    |		Execute	Vector,Catenate
0782 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x1e.0x24 = 0x782,0x1001
0783 6806       |h   |		Jump_Zero	0x78a
0784 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1e.0x25 = 0x784,0x1002
0785 0092 0a8d  |    |		Action	Push_String_Extended,0xa8d					; "Get_Key"
0787 e004       |    |		Load	0x0,0x4
0788 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0789 7805       |x   |		Jump	0x78f
078a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1e.0x26 = 0x78a,0x1003
078b 0092 0a8d  |    |		Action	Push_String_Extended,0xa8d					; "Get_Key"
078d e004       |    |		Load	0x0,0x4
078e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
078f 00d1       |    |		Pop_Control	Pop_Count_1
0790 00ce       |    |		Action	Pop_Auxiliary
0791 616e       |an  |		Indirect_Literal	Discrete,0x900,{0x00000000, 0x587a9501}		; Debug Table 0x1e.0x27 = 0x791,0x10
0792 0257       | W  |		Execute	Discrete,Raise
0793 0000 0000  |    |		.BLANK	0000[0x5]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b       |    |		.CONST	0x079b								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0001       |    |		.CONST	0x0001								; Number of locals
079b			BODY_0798:
079b			INIT_0798:
079b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1f = .DEBUG	0x079b,0x108c,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0a4d
													; Debug Table 0x1f.0x0 = 0x79b,0x1
													; Debug Table 0x1f.0x1 = 0x79b,0x401
079c 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x1f.0x2 = 0x79c,0x402
079d 0ba8       |    |		Execute_Immediate	Case_Compare,0xa8				; Debug Table 0x1f.0x3 = 0x79d,0x403
													; Debug Table 0x1f.0x4 = 0x79d,0x404
													; Debug Table 0x1f.0x5 = 0x79d,0x1
079e 700e       |p   |		Jump_Nonzero	0x7ad
079f 0b49       | I  |		Execute_Immediate	Case_Compare,0x49
07a0 7012       |p   |		Jump_Nonzero	0x7b3
07a1 0b48       | H  |		Execute_Immediate	Case_Compare,0x48
07a2 7016       |p   |		Jump_Nonzero	0x7b9
07a3 0b4e       | N  |		Execute_Immediate	Case_Compare,0x4e
07a4 701a       |p   |		Jump_Nonzero	0x7bf
07a5 0b97       |    |		Execute_Immediate	Case_Compare,0x97
07a6 701e       |p   |		Jump_Nonzero	0x7c5
07a7 0b4f       | O  |		Execute_Immediate	Case_Compare,0x4f
07a8 7022       |p"  |		Jump_Nonzero	0x7cb
07a9 0b89       |    |		Execute_Immediate	Case_Compare,0x89
07aa 7026       |p&  |		Jump_Nonzero	0x7d1
07ab 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1f.0x6 = 0x7ab,0x9
													; Debug Table 0x1f.0x7 = 0x7ab,0x801
07ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2				; Debug Table 0x1f.0x8 = 0x7ac,0x9
07ad e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1f.0x9 = 0x7ad,0x2
07ae e5ff       |    |		Load	0x2,-0x1
07af 00eb       |    |		Load_Encached	Diana_Cache
07b0 18e9       |    |		Execute	Package,Field_Execute,Field_Number 0xe9
07b1 822c       | ,  |		Call	0x1,0x2c
07b2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07b3 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1f.0xa = 0x7b3,0x3
07b4 e5ff       |    |		Load	0x2,-0x1
07b5 00eb       |    |		Load_Encached	Diana_Cache
07b6 18e5       |    |		Execute	Package,Field_Execute,Field_Number 0xe5
07b7 822c       | ,  |		Call	0x1,0x2c
07b8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07b9 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1f.0xb = 0x7b9,0x4
07ba e5ff       |    |		Load	0x2,-0x1
07bb 00eb       |    |		Load_Encached	Diana_Cache
07bc 18b6       |    |		Execute	Package,Field_Execute,Field_Number 0xb6
07bd 822c       | ,  |		Call	0x1,0x2c
07be 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07bf e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1f.0xc = 0x7bf,0x5
07c0 e5ff       |    |		Load	0x2,-0x1
07c1 00eb       |    |		Load_Encached	Diana_Cache
07c2 18e1       |    |		Execute	Package,Field_Execute,Field_Number 0xe1
07c3 822c       | ,  |		Call	0x1,0x2c
07c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07c5 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1f.0xd = 0x7c5,0x6
07c6 e5ff       |    |		Load	0x2,-0x1
07c7 00eb       |    |		Load_Encached	Diana_Cache
07c8 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
07c9 822d       | -  |		Call	0x1,0x2d
07ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07cb e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1f.0xe = 0x7cb,0x7
07cc e5ff       |    |		Load	0x2,-0x1
07cd 00eb       |    |		Load_Encached	Diana_Cache
07ce 18b4       |    |		Execute	Package,Field_Execute,Field_Number 0xb4
07cf 822c       | ,  |		Call	0x1,0x2c
07d0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07d1 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1f.0xf = 0x7d1,0x8
07d2 e5ff       |    |		Load	0x2,-0x1
07d3 00eb       |    |		Load_Encached	Diana_Cache
07d4 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
07d5 822d       | -  |		Call	0x1,0x2d
07d6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07d7 0000       |    |		.XXX[0x1]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07df       |    |		.CONST	0x07df								; Address of begin
07d9 0004       |    |		.CONST	0x0004								; Address of exception handler
07da 0005       |    |		.CONST	0x0005								; Number of locals
07db			INIT_07d8:
07db 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x20 = .DEBUG	0x07db,0x10ae,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0a5e
													; Debug Table 0x20.0x0 = 0x7db,0xffff
07dc 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x20.0x1 = 0x7dc,0xfffe
07dd 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x20.0x2 = 0x7dd,0xfffd
07de 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x20.0x3 = 0x7de,0xfffc
07df			BODY_07d8:
07df e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x20.0x4 = 0x7df,0x1
07e0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
07e1 4800       |H   |		Short_Literal	0x0							; Debug Table 0x20.0x5 = 0x7e1,0x2
07e2 a402       |    |		Store_Unchecked	0x2,0x2
07e3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x20.0x6 = 0x7e3,0x3
													; Debug Table 0x20.0x7 = 0x7e3,0x401
07e4 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3					; Debug Table 0x20.0x8 = 0x7e4,0x3
07e5 00cf       |    |		Action	Mark_Auxiliary
07e6 7845       |xE  |		Jump	0x82c
07e7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x20.0x9 = 0x7e7,0x5
07e8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0xa = 0x7e8,0x801
07e9 7002       |p   |		Jump_Nonzero	0x7ec
07ea 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x20.0xb = 0x7ea,0x802
07eb 7826       |x&  |		Jump	0x812
07ec 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0xc = 0x7ec,0x803
07ed 0217       |    |		Execute	Heap_Access,All_Reference
07ee 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07ef 6804       |h   |		Jump_Zero	0x7f4
07f0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0xd = 0x7f0,0x804
07f1 0217       |    |		Execute	Heap_Access,All_Reference
07f2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07f3 781e       |x   |		Jump	0x812
07f4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x20.0xe = 0x7f4,0x805
07f5 e408       |    |		Load	0x2,0x8								; Debug Table 0x20.0xf = 0x7f5,0xc01
07f6 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x20.0x10 = 0x7f6,0xc02
07f7 00d0       |    |		Action	Swap_Control							; Debug Table 0x20.0x11 = 0x7f7,0xc03
													; Debug Table 0x20.0x12 = 0x7f7,0xc04
07f8 00d1       |    |		Pop_Control	Pop_Count_1
07f9 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x20.0x13 = 0x7f9,0x805
07fa 00eb       |    |		Load_Encached	Diana_Cache
07fb 0098       |    |		Execute	Package,Field_Read_Dynamic
07fc 012c       | ,  |		Execute	Any,Size
07fd e00b       |    |		Load	0x0,0xb
07fe 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
07ff 025b       | [  |		Execute	Discrete,Check_In_Type
0800 0273       | s  |		Execute	Discrete,Plus
0801 00d9       |    |		Load_Top	At_Offset_1
0802 e409       |    |		Load	0x2,0x9								; Debug Table 0x20.0x14 = 0x802,0x1001
0803 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x20.0x15 = 0x803,0x1002
0804 00d0       |    |		Action	Swap_Control							; Debug Table 0x20.0x16 = 0x804,0x1003
													; Debug Table 0x20.0x17 = 0x804,0x1004
0805 00d1       |    |		Pop_Control	Pop_Count_1
0806 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x20.0x18 = 0x806,0xc04
0807 00eb       |    |		Load_Encached	Diana_Cache
0808 0098       |    |		Execute	Package,Field_Read_Dynamic
0809 49c9       |I   |		Short_Literal	0x1c9
080a 00eb       |    |		Load_Encached	Diana_Cache
080b 0098       |    |		Execute	Package,Field_Read_Dynamic
080c 49ca       |I   |		Short_Literal	0x1ca
080d 00eb       |    |		Load_Encached	Diana_Cache
080e 0095       |    |		Execute	Package,Field_Reference_Dynamic
080f e00c       |    |		Load	0x0,0xc
0810 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0811 7800       |x   |		Jump	0x812
0812 00d0       |    |		Action	Swap_Control
0813 00d1       |    |		Pop_Control	Pop_Count_1
0814 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3					; Debug Table 0x20.0x19 = 0x814,0x5
0815 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x20.0x1a = 0x815,0x6
													; Debug Table 0x20.0x1b = 0x815,0x1401
0816 7002       |p   |		Jump_Nonzero	0x819
0817 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x20.0x1c = 0x817,0x1402
0818 7803       |x   |		Jump	0x81c
0819 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x20.0x1d = 0x819,0x1403
081a 0217       |    |		Execute	Heap_Access,All_Reference
081b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
081c 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2					; Debug Table 0x20.0x1e = 0x81c,0x6
081d e404       |    |		Load	0x2,0x4								; Debug Table 0x20.0x1f = 0x81d,0x7
													; Debug Table 0x20.0x20 = 0x81d,0x1801
081e 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x20.0x21 = 0x81e,0x1802
081f 0f40       | @  |		Execute_Immediate	Equal,0x40					; Debug Table 0x20.0x22 = 0x81f,0x1803
													; Debug Table 0x20.0x23 = 0x81f,0x1804
													; Debug Table 0x20.0x24 = 0x81f,0x7
0820 700a       |p   |		Jump_Nonzero	0x82b
0821 e402       |    |		Load	0x2,0x2								; Debug Table 0x20.0x25 = 0x821,0x8
0822 0a01       |    |		Execute_Immediate	Plus,0x1
0823 c402       |    |		Store	0x2,0x2
0824 e402       |    |		Load	0x2,0x2								; Debug Table 0x20.0x26 = 0x824,0x9
0825 e5fe       |    |		Load	0x2,-0x2
0826 027f       |    |		Execute	Discrete,Equal
0827 6803       |h   |		Jump_Zero	0x82b
0828 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x20.0x27 = 0x828,0xa
0829 a403       |    |		Store_Unchecked	0x2,0x3
082a 7804       |x   |		Jump	0x82f								; Debug Table 0x20.0x28 = 0x82a,0xb
082b 00c9       |    |		Action	Pop_Auxiliary_Loop
082c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x20.0x29 = 0x82c,0x4
													; Debug Table 0x20.0x2a = 0x82c,0x1c01
082d 021d       |    |		Execute	Heap_Access,Is_Null
082e 6fb8       |o   |		Jump_Zero	0x7e7							; Debug Table 0x20.0x2b = 0x82e,0x4
082f 00ce       |    |		Action	Pop_Auxiliary
0830 e403       |    |		Load	0x2,0x3								; Debug Table 0x20.0x2c = 0x830,0xc
													; Debug Table 0x20.0x2d = 0x830,0x2001
0831 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x20.0x2e = 0x831,0x2002
0832 0b9f       |    |		Execute_Immediate	Case_Compare,0x9f				; Debug Table 0x20.0x2f = 0x832,0x2003
													; Debug Table 0x20.0x30 = 0x832,0x2004
													; Debug Table 0x20.0x31 = 0x832,0xc
0833 7008       |p   |		Jump_Nonzero	0x83c
0834 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x20.0x32 = 0x834,0xe
0835 e00a       |    |		Load	0x0,0xa
0836 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0837 6802       |h   |		Jump_Zero	0x83a
0838 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x20.0x33 = 0x838,0xf
0839 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
083a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x20.0x34 = 0x83a,0x10
													; Debug Table 0x20.0x35 = 0x83a,0x2401
083b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2				; Debug Table 0x20.0x36 = 0x83b,0x10
083c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x20.0x37 = 0x83c,0xd
083d e403       |    |		Load	0x2,0x3
083e 00eb       |    |		Load_Encached	Diana_Cache
083f 18e1       |    |		Execute	Package,Field_Execute,Field_Number 0xe1
0840 822c       | ,  |		Call	0x1,0x2c
0841 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0842 0000 0000  |    |		.BLANK	0000[0x6]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 0863       | c  |		.CONST	0x0863								; Address of begin
0849 0004       |    |		.CONST	0x0004								; Address of exception handler
084a 000c       |    |		.CONST	0x000c								; Number of locals
084b			INIT_0848:
084b e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x21 = .DEBUG	0x084b,0x1120,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0ba0
													; Debug Table 0x21.0x0 = 0x84b,0xffff
084c 01dd       |    |		Execute	Vector,First
084d 00e3       |    |		Load_Encached	Natural_Cache
084e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
084f e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x21.0x1 = 0x84f,0xfffe
0850 01dc       |    |		Execute	Vector,Last
0851 0a01       |    |		Execute_Immediate	Plus,0x1
0852 00e3       |    |		Load_Encached	Natural_Cache
0853 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0854 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x21.0x2 = 0x854,0xfffd
0855 00d9       |    |		Load_Top	At_Offset_1
0856 e005       |    |		Load	0x0,0x5
0857 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0858 035b       | [  |		Declare_Type	Array,Constrained
0859 0337       | 7  |		Declare_Variable	Array
085a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x21.0x3 = 0x85a,0xfffc
085b 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x21.0x4 = 0x85b,0xfffb
085c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x21.0x5 = 0x85c,0xfffa
085d 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x21.0x6 = 0x85d,0xfff9
085e 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x21.0x7 = 0x85e,0xfff8
085f 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x21.0x8 = 0x85f,0xfff7
0860 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x21.0x9 = 0x860,0xfff6
0861 029f 09fb  |    |		Declare_Subprogram	INIT_09f8,For_Call
0863			BODY_0848:
0863 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x21.0xa = 0x863,0x1
0864 e402       |    |		Load	0x2,0x2
0865 e403       |    |		Load	0x2,0x3
0866 0aff       |    |		Execute_Immediate	Plus,-0x1
0867 0248       | H  |		Execute	Discrete,Check_In_Integer
0868 e404       |    |		Load	0x2,0x4
0869 01ce       |    |		Execute	Vector,Slice_Write
086a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x21.0xb = 0x86a,0x2
086b 00eb       |    |		Load_Encached	Diana_Cache
086c 18b4       |    |		Execute	Package,Field_Execute,Field_Number 0xb4
086d 00eb       |    |		Load_Encached	Diana_Cache
086e 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
086f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0870 00cf       |    |		Action	Mark_Auxiliary
0871 7889       |x   |		Jump	0x8fb
0872 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x21.0xc = 0x872,0x4
0873 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0xd = 0x873,0x401
0874 7002       |p   |		Jump_Nonzero	0x877
0875 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x21.0xe = 0x875,0x402
0876 7826       |x&  |		Jump	0x89d
0877 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0xf = 0x877,0x403
0878 0217       |    |		Execute	Heap_Access,All_Reference
0879 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
087a 6804       |h   |		Jump_Zero	0x87f
087b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0x10 = 0x87b,0x404
087c 0217       |    |		Execute	Heap_Access,All_Reference
087d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
087e 781e       |x   |		Jump	0x89d
087f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0x11 = 0x87f,0x405
0880 e40f       |    |		Load	0x2,0xf								; Debug Table 0x21.0x12 = 0x880,0x801
0881 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x21.0x13 = 0x881,0x802
0882 00d0       |    |		Action	Swap_Control							; Debug Table 0x21.0x14 = 0x882,0x803
													; Debug Table 0x21.0x15 = 0x882,0x804
0883 00d1       |    |		Pop_Control	Pop_Count_1
0884 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x21.0x16 = 0x884,0x405
0885 00eb       |    |		Load_Encached	Diana_Cache
0886 0098       |    |		Execute	Package,Field_Read_Dynamic
0887 012c       | ,  |		Execute	Any,Size
0888 e00b       |    |		Load	0x0,0xb
0889 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
088a 025b       | [  |		Execute	Discrete,Check_In_Type
088b 0273       | s  |		Execute	Discrete,Plus
088c 00d9       |    |		Load_Top	At_Offset_1
088d e410       |    |		Load	0x2,0x10							; Debug Table 0x21.0x17 = 0x88d,0xc01
088e 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x21.0x18 = 0x88e,0xc02
088f 00d0       |    |		Action	Swap_Control							; Debug Table 0x21.0x19 = 0x88f,0xc03
													; Debug Table 0x21.0x1a = 0x88f,0xc04
0890 00d1       |    |		Pop_Control	Pop_Count_1
0891 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x21.0x1b = 0x891,0x804
0892 00eb       |    |		Load_Encached	Diana_Cache
0893 0098       |    |		Execute	Package,Field_Read_Dynamic
0894 49c9       |I   |		Short_Literal	0x1c9
0895 00eb       |    |		Load_Encached	Diana_Cache
0896 0098       |    |		Execute	Package,Field_Read_Dynamic
0897 49ca       |I   |		Short_Literal	0x1ca
0898 00eb       |    |		Load_Encached	Diana_Cache
0899 0095       |    |		Execute	Package,Field_Reference_Dynamic
089a e00c       |    |		Load	0x0,0xc
089b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
089c 7800       |x   |		Jump	0x89d
089d 00d0       |    |		Action	Swap_Control
089e 00d1       |    |		Pop_Control	Pop_Count_1
089f a407       |    |		Store_Unchecked	0x2,0x7							; Debug Table 0x21.0x1c = 0x89f,0x4
08a0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x21.0x1d = 0x8a0,0x5
													; Debug Table 0x21.0x1e = 0x8a0,0x1001
08a1 7002       |p   |		Jump_Nonzero	0x8a4
08a2 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x21.0x1f = 0x8a2,0x1002
08a3 7803       |x   |		Jump	0x8a7
08a4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x21.0x20 = 0x8a4,0x1003
08a5 0217       |    |		Execute	Heap_Access,All_Reference
08a6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08a7 a40a       |    |		Store_Unchecked	0x2,0xa							; Debug Table 0x21.0x21 = 0x8a7,0x5
08a8 e407       |    |		Load	0x2,0x7								; Debug Table 0x21.0x22 = 0x8a8,0x6
													; Debug Table 0x21.0x23 = 0x8a8,0x1401
08a9 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x21.0x24 = 0x8a9,0x1402
08aa 0f9f       |    |		Execute_Immediate	Equal,-0x61					; Debug Table 0x21.0x25 = 0x8aa,0x1403
													; Debug Table 0x21.0x26 = 0x8aa,0x1404
													; Debug Table 0x21.0x27 = 0x8aa,0x6
08ab 684e       |hN  |		Jump_Zero	0x8fa
08ac e407       |    |		Load	0x2,0x7								; Debug Table 0x21.0x28 = 0x8ac,0x7
08ad 00eb       |    |		Load_Encached	Diana_Cache
08ae 18b7       |    |		Execute	Package,Field_Execute,Field_Number 0xb7
08af 00eb       |    |		Load_Encached	Diana_Cache
08b0 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
08b1 a408       |    |		Store_Unchecked	0x2,0x8
08b2 e407       |    |		Load	0x2,0x7								; Debug Table 0x21.0x29 = 0x8b2,0x8
08b3 00eb       |    |		Load_Encached	Diana_Cache
08b4 18e1       |    |		Execute	Package,Field_Execute,Field_Number 0xe1
08b5 00eb       |    |		Load_Encached	Diana_Cache
08b6 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
08b7 a406       |    |		Store_Unchecked	0x2,0x6
08b8 4801       |H   |		Short_Literal	0x1							; Debug Table 0x21.0x2a = 0x8b8,0x9
08b9 e406       |    |		Load	0x2,0x6
08ba 822d       | -  |		Call	0x1,0x2d
08bb a405       |    |		Store_Unchecked	0x2,0x5
08bc 00cf       |    |		Action	Mark_Auxiliary
08bd 7838       |x8  |		Jump	0x8f6
08be e408       |    |		Load	0x2,0x8								; Debug Table 0x21.0x2b = 0x8be,0xb
08bf 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0x2c = 0x8bf,0x1801
08c0 7002       |p   |		Jump_Nonzero	0x8c3
08c1 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x21.0x2d = 0x8c1,0x1802
08c2 7826       |x&  |		Jump	0x8e9
08c3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0x2e = 0x8c3,0x1803
08c4 0217       |    |		Execute	Heap_Access,All_Reference
08c5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08c6 6804       |h   |		Jump_Zero	0x8cb
08c7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0x2f = 0x8c7,0x1804
08c8 0217       |    |		Execute	Heap_Access,All_Reference
08c9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
08ca 781e       |x   |		Jump	0x8e9
08cb 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x21.0x30 = 0x8cb,0x1805
08cc e410       |    |		Load	0x2,0x10							; Debug Table 0x21.0x31 = 0x8cc,0x1c01
08cd 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x21.0x32 = 0x8cd,0x1c02
08ce 00d0       |    |		Action	Swap_Control							; Debug Table 0x21.0x33 = 0x8ce,0x1c03
													; Debug Table 0x21.0x34 = 0x8ce,0x1c04
08cf 00d1       |    |		Pop_Control	Pop_Count_1
08d0 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x21.0x35 = 0x8d0,0x1805
08d1 00eb       |    |		Load_Encached	Diana_Cache
08d2 0098       |    |		Execute	Package,Field_Read_Dynamic
08d3 012c       | ,  |		Execute	Any,Size
08d4 e00b       |    |		Load	0x0,0xb
08d5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
08d6 025b       | [  |		Execute	Discrete,Check_In_Type
08d7 0273       | s  |		Execute	Discrete,Plus
08d8 00d9       |    |		Load_Top	At_Offset_1
08d9 e411       |    |		Load	0x2,0x11							; Debug Table 0x21.0x36 = 0x8d9,0x2001
08da 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x21.0x37 = 0x8da,0x2002
08db 00d0       |    |		Action	Swap_Control							; Debug Table 0x21.0x38 = 0x8db,0x2003
													; Debug Table 0x21.0x39 = 0x8db,0x2004
08dc 00d1       |    |		Pop_Control	Pop_Count_1
08dd 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x21.0x3a = 0x8dd,0x1c04
08de 00eb       |    |		Load_Encached	Diana_Cache
08df 0098       |    |		Execute	Package,Field_Read_Dynamic
08e0 49c9       |I   |		Short_Literal	0x1c9
08e1 00eb       |    |		Load_Encached	Diana_Cache
08e2 0098       |    |		Execute	Package,Field_Read_Dynamic
08e3 49ca       |I   |		Short_Literal	0x1ca
08e4 00eb       |    |		Load_Encached	Diana_Cache
08e5 0095       |    |		Execute	Package,Field_Reference_Dynamic
08e6 e00c       |    |		Load	0x0,0xc
08e7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
08e8 7800       |x   |		Jump	0x8e9
08e9 00d0       |    |		Action	Swap_Control
08ea 00d1       |    |		Pop_Control	Pop_Count_1
08eb a409       |    |		Store_Unchecked	0x2,0x9							; Debug Table 0x21.0x3b = 0x8eb,0xb
08ec e408       |    |		Load	0x2,0x8								; Debug Table 0x21.0x3c = 0x8ec,0xc
													; Debug Table 0x21.0x3d = 0x8ec,0x2401
08ed 7002       |p   |		Jump_Nonzero	0x8f0
08ee 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x21.0x3e = 0x8ee,0x2402
08ef 7803       |x   |		Jump	0x8f3
08f0 e408       |    |		Load	0x2,0x8								; Debug Table 0x21.0x3f = 0x8f0,0x2403
08f1 0217       |    |		Execute	Heap_Access,All_Reference
08f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08f3 a408       |    |		Store_Unchecked	0x2,0x8							; Debug Table 0x21.0x40 = 0x8f3,0xc
08f4 840c       |    |		Call	0x2,0xc								; Debug Table 0x21.0x41 = 0x8f4,0xd
08f5 00c9       |    |		Action	Pop_Auxiliary_Loop
08f6 e408       |    |		Load	0x2,0x8								; Debug Table 0x21.0x42 = 0x8f6,0xa
													; Debug Table 0x21.0x43 = 0x8f6,0x2801
08f7 021d       |    |		Execute	Heap_Access,Is_Null
08f8 6fc5       |o   |		Jump_Zero	0x8be							; Debug Table 0x21.0x44 = 0x8f8,0xa
08f9 00ce       |    |		Action	Pop_Auxiliary
08fa 00c9       |    |		Action	Pop_Auxiliary_Loop
08fb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x21.0x45 = 0x8fb,0x3
													; Debug Table 0x21.0x46 = 0x8fb,0x2c01
08fc 021d       |    |		Execute	Heap_Access,Is_Null
08fd 6f74       |ot  |		Jump_Zero	0x872							; Debug Table 0x21.0x47 = 0x8fd,0x3
08fe 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
08ff 0000       |    |		.XXX[0x1]
0900 0000 0000  |    |		.LITERAL	{0x00000000, 0x587a9501}
0904 0000 0000  |    |		.LITERAL	{0x00000000, 0x587a9502}
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090c       |    |		.CONST	0x090c								; Address of begin
0909 0921       | !  |		.CONST	0x0921								; Address of exception handler
090a 0002       |    |		.CONST	0x0002								; Number of locals
090b			INIT_0908:
090b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x22 = .DEBUG	0x090b,0x11b2,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0d83
													; Debug Table 0x22.0x0 = 0x90b,0xffff
090c			BODY_0908:
090c e001       |    |		Load	0x0,0x1								; Debug Table 0x22.0x1 = 0x90c,0xfffe
													; Debug Table 0x22.0x2 = 0x90c,0x1
090d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
090e 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
090f c5fe       |    |		Store	0x2,-0x2
0910 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x22.0x3 = 0x910,0x2
0911 e5ff       |    |		Load	0x2,-0x1
0912 48eb       |H   |		Short_Literal	0xeb
0913 e010       |    |		Load	0x0,0x10
0914 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0915 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0916 e003       |    |		Load	0x0,0x3								; Debug Table 0x22.0x4 = 0x916,0x3
0917 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0918 4800       |H   |		Short_Literal	0x0
0919 00da       |    |		Load_Top	At_Offset_2
091a e011       |    |		Load	0x0,0x11
091b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
091c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
091d e011       |    |		Load	0x0,0x11
091e 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
091f 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0920 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0921			TRAP_0908:
0921 4887       |H   |		Short_Literal	0x87
0922 010f       |    |		Execute	Exception,Equal
0923 6802       |h   |		Jump_Zero	0x926
0924 614f       |aO  |		Indirect_Literal	Discrete,0xa74,{0x00000000, 0x587a9505}		; Debug Table 0x22.0x5 = 0x924,0x4
0925 0257       | W  |		Execute	Discrete,Raise
0926 0100       |    |		Execute	Exception,Raise
0927 0000       |    |		.XXX[0x1]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092b       | +  |		.CONST	0x092b								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0001       |    |		.CONST	0x0001								; Number of locals
092b			BODY_0928:
092b			INIT_0928:
092b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x23 = .DEBUG	0x092b,0x11c0,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0dc9
													; Debug Table 0x23.0x0 = 0x92b,0x1
092c e001       |    |		Load	0x0,0x1
092d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
092e 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
092f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933       | 3  |		.CONST	0x0933								; Address of begin
0931 0004       |    |		.CONST	0x0004								; Address of exception handler
0932 0001       |    |		.CONST	0x0001								; Number of locals
0933			BODY_0930:
0933			INIT_0930:
0933 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x24 = .DEBUG	0x0933,0x11c4,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0de1
													; Debug Table 0x24.0x0 = 0x933,0x1
													; Debug Table 0x24.0x1 = 0x933,0x401
0934 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x24.0x2 = 0x934,0x402
0935 0f4f       | O  |		Execute_Immediate	Equal,0x4f					; Debug Table 0x24.0x3 = 0x935,0x403
													; Debug Table 0x24.0x4 = 0x935,0x404
													; Debug Table 0x24.0x5 = 0x935,0x1
0936 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0937 0000       |    |		.XXX[0x1]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 093d       | =  |		.CONST	0x093d								; Address of begin
0939 0004       |    |		.CONST	0x0004								; Address of exception handler
093a 0003       |    |		.CONST	0x0003								; Number of locals
093b			INIT_0938:
093b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x25 = .DEBUG	0x093b,0x11d2,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0dfd
													; Debug Table 0x25.0x0 = 0x93b,0xffff
093c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x25.0x1 = 0x93c,0xfffe
093d			BODY_0938:
093d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x25.0x2 = 0x93d,0x1
093e 00eb       |    |		Load_Encached	Diana_Cache
093f 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0940 00eb       |    |		Load_Encached	Diana_Cache
0941 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
0942 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0943 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x25.0x3 = 0x943,0x2
0944 00eb       |    |		Load_Encached	Diana_Cache
0945 18b7       |    |		Execute	Package,Field_Execute,Field_Number 0xb7
0946 00eb       |    |		Load_Encached	Diana_Cache
0947 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0948 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x4 = 0x948,0x401
0949 7002       |p   |		Jump_Nonzero	0x94c
094a 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x25.0x5 = 0x94a,0x402
094b 7826       |x&  |		Jump	0x972
094c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x6 = 0x94c,0x403
094d 0217       |    |		Execute	Heap_Access,All_Reference
094e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
094f 6804       |h   |		Jump_Zero	0x954
0950 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x7 = 0x950,0x404
0951 0217       |    |		Execute	Heap_Access,All_Reference
0952 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0953 781e       |x   |		Jump	0x972
0954 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x8 = 0x954,0x405
0955 e405       |    |		Load	0x2,0x5								; Debug Table 0x25.0x9 = 0x955,0x801
0956 0148       | H  |		Execute	Heap_Access,Get_Offset						; Debug Table 0x25.0xa = 0x956,0x802
0957 00d0       |    |		Action	Swap_Control							; Debug Table 0x25.0xb = 0x957,0x803
													; Debug Table 0x25.0xc = 0x957,0x804
0958 00d1       |    |		Pop_Control	Pop_Count_1
0959 49bb       |I   |		Short_Literal	0x1bb							; Debug Table 0x25.0xd = 0x959,0x405
095a 00eb       |    |		Load_Encached	Diana_Cache
095b 0098       |    |		Execute	Package,Field_Read_Dynamic
095c 012c       | ,  |		Execute	Any,Size
095d e00b       |    |		Load	0x0,0xb
095e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
095f 025b       | [  |		Execute	Discrete,Check_In_Type
0960 0273       | s  |		Execute	Discrete,Plus
0961 00d9       |    |		Load_Top	At_Offset_1
0962 e406       |    |		Load	0x2,0x6								; Debug Table 0x25.0xe = 0x962,0xc01
0963 0210       |    |		Execute	Heap_Access,Get_Segment						; Debug Table 0x25.0xf = 0x963,0xc02
0964 00d0       |    |		Action	Swap_Control							; Debug Table 0x25.0x10 = 0x964,0xc03
													; Debug Table 0x25.0x11 = 0x964,0xc04
0965 00d1       |    |		Pop_Control	Pop_Count_1
0966 49c8       |I   |		Short_Literal	0x1c8							; Debug Table 0x25.0x12 = 0x966,0x804
0967 00eb       |    |		Load_Encached	Diana_Cache
0968 0098       |    |		Execute	Package,Field_Read_Dynamic
0969 49c9       |I   |		Short_Literal	0x1c9
096a 00eb       |    |		Load_Encached	Diana_Cache
096b 0098       |    |		Execute	Package,Field_Read_Dynamic
096c 49ca       |I   |		Short_Literal	0x1ca
096d 00eb       |    |		Load_Encached	Diana_Cache
096e 0095       |    |		Execute	Package,Field_Reference_Dynamic
096f e00c       |    |		Load	0x0,0xc
0970 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0971 7800       |x   |		Jump	0x972
0972 00d0       |    |		Action	Swap_Control
0973 00d1       |    |		Pop_Control	Pop_Count_1
0974 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1					; Debug Table 0x25.0x13 = 0x974,0x2
0975 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x14 = 0x975,0x3
0976 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x15 = 0x976,0x1001
0977 e405       |    |		Load	0x2,0x5								; Debug Table 0x25.0x16 = 0x977,0x1401
0978 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x25.0x17 = 0x978,0x1402
0979 00d0       |    |		Action	Swap_Control							; Debug Table 0x25.0x18 = 0x979,0x1403
													; Debug Table 0x25.0x19 = 0x979,0x1404
097a 00d1       |    |		Pop_Control	Pop_Count_1
097b 49e1       |I   |		Short_Literal	0x1e1							; Debug Table 0x25.0x1a = 0x97b,0x1001
097c 00eb       |    |		Load_Encached	Diana_Cache
097d 0098       |    |		Execute	Package,Field_Read_Dynamic
097e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
097f 7800       |x   |		Jump	0x980
0980 00d0       |    |		Action	Swap_Control
0981 00d1       |    |		Pop_Control	Pop_Count_1
0982 681d       |h   |		Jump_Zero	0x9a0							; Debug Table 0x25.0x1b = 0x982,0x3
0983 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x25.0x1c = 0x983,0x4
0984 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x25.0x1d = 0x984,0xe7ff
0985 00eb       |    |		Load_Encached	Diana_Cache
0986 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0987 00eb       |    |		Load_Encached	Diana_Cache
0988 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0989 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x1e = 0x989,0x1801
098a 0092 0a90  |    |		Action	Push_String_Extended,0xa90					; "PROMPT"
098c 01df       |    |		Execute	Vector,Equal
098d 6802       |h   |		Jump_Zero	0x990
098e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x25.0x1f = 0x98e,0x1802
098f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0990 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x20 = 0x990,0x1803
0991 0092 0a91  |    |		Action	Push_String_Extended,0xa91					; "EXECUTE"
0993 01df       |    |		Execute	Vector,Equal
0994 6802       |h   |		Jump_Zero	0x997
0995 4801       |H   |		Short_Literal	0x1							; Debug Table 0x25.0x21 = 0x995,0x1804
0996 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0997 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x22 = 0x997,0x1805
0998 0092 0a92  |    |		Action	Push_String_Extended,0xa92					; "INTERRUPT"
099a 01df       |    |		Execute	Vector,Equal
099b 6802       |h   |		Jump_Zero	0x99e
099c 4802       |H   |		Short_Literal	0x2							; Debug Table 0x25.0x23 = 0x99c,0x1806
099d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
099e 4803       |H   |		Short_Literal	0x3							; Debug Table 0x25.0x24 = 0x99e,0x1807
099f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09a0 4803       |H   |		Short_Literal	0x3							; Debug Table 0x25.0x25 = 0x9a0,0x5
09a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09a2 0000 0000  |    |		.BLANK	0000[0x6]
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09ad       |    |		.CONST	0x09ad								; Address of begin
09a9 0004       |    |		.CONST	0x0004								; Address of exception handler
09aa 0003       |    |		.CONST	0x0003								; Number of locals
09ab			INIT_09a8:
09ab 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x26 = .DEBUG	0x09ab,0x1220,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0fc8
													; Debug Table 0x26.0x0 = 0x9ab,0xffff
09ac 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x26.0x1 = 0x9ac,0xfffe
09ad			BODY_09a8:
09ad 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x26.0x2 = 0x9ad,0x1
													; Debug Table 0x26.0x3 = 0x9ad,0x401
09ae e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x26.0x4 = 0x9ae,0x1
09af e00d       |    |		Load	0x0,0xd
09b0 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
09b1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09b2 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
09b3 e403       |    |		Load	0x2,0x3								; Debug Table 0x26.0x5 = 0x9b3,0x2
													; Debug Table 0x26.0x6 = 0x9b3,0x801
09b4 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x26.0x7 = 0x9b4,0x802
09b5 0b5b       | [  |		Execute_Immediate	Case_Compare,0x5b				; Debug Table 0x26.0x8 = 0x9b5,0x803
													; Debug Table 0x26.0x9 = 0x9b5,0x804
													; Debug Table 0x26.0xa = 0x9b5,0x2
09b6 7002       |p   |		Jump_Nonzero	0x9b9
09b7 60b8       |`   |		Indirect_Literal	Discrete,0xa70,{0x00000000, 0x587a9503}		; Debug Table 0x26.0xb = 0x9b7,0x7
09b8 0257       | W  |		Execute	Discrete,Raise
09b9 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x26.0xc = 0x9b9,0x3
09ba 00da       |    |		Load_Top	At_Offset_2
09bb e009       |    |		Load	0x0,0x9
09bc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
09bd 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
09be 005b       | [  |		Store_Top	Discrete,At_Offset_3
09bf 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x26.0xd = 0x9bf,0x4
09c0 6802       |h   |		Jump_Zero	0x9c3
09c1 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x26.0xe = 0x9c1,0x5
09c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09c3 60ac       |`   |		Indirect_Literal	Discrete,0xa70,{0x00000000, 0x587a9503}		; Debug Table 0x26.0xf = 0x9c3,0x6
09c4 0257       | W  |		Execute	Discrete,Raise
09c5 0000 0000  |    |		.XXX[0x3]
09c7 0000       |    |
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cb       |    |		.CONST	0x09cb								; Address of begin
09c9 09d4       |    |		.CONST	0x09d4								; Address of exception handler
09ca 0001       |    |		.CONST	0x0001								; Number of locals
09cb			BODY_09c8:
09cb			INIT_09c8:
09cb e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x27 = .DEBUG	0x09cb,0x1242,0x0004,0x0000,0x0058,0x7a95,0x0000,0x0975
													; Debug Table 0x27.0x0 = 0x9cb,0x1
09cc 00eb       |    |		Load_Encached	Diana_Cache
09cd 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
09ce 00eb       |    |		Load_Encached	Diana_Cache
09cf 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09d0 e5ff       |    |		Load	0x2,-0x1
09d1 8219       |    |		Call	0x1,0x19
09d2 00cb       |    |		Action	Pop_Block_With_Result
09d3 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
09d4			TRAP_09c8:
09d4 672b       |g+  |		Indirect_Literal	Discrete,0x900,{0x00000000, 0x587a9501}
09d5 010f       |    |		Execute	Exception,Equal
09d6 6803       |h   |		Jump_Zero	0x9da
09d7 00cc       |    |		Action	Pop_Block							; Debug Table 0x27.0x1 = 0x9d7,0x2
09d8 00d1       |    |		Pop_Control	Pop_Count_1
09d9 7d7a       |}z  |		Jump	0x754
09da 0100       |    |		Execute	Exception,Raise
09db 0000 0000  |    |		.BLANK	0000[0x5]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e3       |    |		.CONST	0x09e3								; Address of begin
09e1 09ec       |    |		.CONST	0x09ec								; Address of exception handler
09e2 0001       |    |		.CONST	0x0001								; Number of locals
09e3			BODY_09e0:
09e3			INIT_09e0:
09e3 e402       |    |		Load	0x2,0x2								; Debug Table 0x28 = .DEBUG	0x09e3,0x1248,0x0004,0x0000,0x0058,0x7a95,0x0000,0x09b5
													; Debug Table 0x28.0x0 = 0x9e3,0x1
09e4 00eb       |    |		Load_Encached	Diana_Cache
09e5 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
09e6 00eb       |    |		Load_Encached	Diana_Cache
09e7 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09e8 e5ff       |    |		Load	0x2,-0x1
09e9 8219       |    |		Call	0x1,0x19
09ea 00cb       |    |		Action	Pop_Block_With_Result
09eb 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
09ec			TRAP_09e0:
09ec 6713       |g   |		Indirect_Literal	Discrete,0x900,{0x00000000, 0x587a9501}
09ed 010f       |    |		Execute	Exception,Equal
09ee 6805       |h   |		Jump_Zero	0x9f4
09ef 00cc       |    |		Action	Pop_Block							; Debug Table 0x28.0x1 = 0x9ef,0x2
09f0 00d1       |    |		Pop_Control	Pop_Count_1
09f1 00ce       |    |		Action	Pop_Auxiliary
09f2 00d1       |    |		Pop_Control	Pop_Count_1
09f3 7d60       |}`  |		Jump	0x754
09f4 0100       |    |		Execute	Exception,Raise
09f5 0000 0000  |    |		.XXX[0x3]
09f7 0000       |    |
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fb       |    |		.CONST	0x09fb								; Address of begin
09f9 0a42       | B  |		.CONST	0x0a42								; Address of exception handler
09fa 0001       |    |		.CONST	0x0001								; Number of locals
09fb			BODY_09f8:
09fb			INIT_09f8:
09fb e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x29 = .DEBUG	0x09fb,0x124e,0x0004,0x0000,0x0058,0x7a95,0x0000,0x0d77
													; Debug Table 0x29.0x0 = 0x9fb,0x1
09fc e5ff       |    |		Load	0x2,-0x1
09fd e409       |    |		Load	0x2,0x9
09fe e5fa       |    |		Load	0x2,-0x6
09ff 822b       | +  |		Call	0x1,0x2b
0a00 e403       |    |		Load	0x2,0x3
0a01 e404       |    |		Load	0x2,0x4
0a02 01d6       |    |		Execute	Vector,Field_Write
0a03 e405       |    |		Load	0x2,0x5								; Debug Table 0x29.0x1 = 0xa03,0x2
													; Debug Table 0x29.0x2 = 0xa03,0x401
0a04 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0x29.0x3 = 0xa04,0x402
0a05 0b4f       | O  |		Execute_Immediate	Case_Compare,0x4f				; Debug Table 0x29.0x4 = 0xa05,0x403
													; Debug Table 0x29.0x5 = 0xa05,0x404
													; Debug Table 0x29.0x6 = 0xa05,0x2
0a06 701a       |p   |		Jump_Nonzero	0xa21
0a07 0b5b       | [  |		Execute_Immediate	Case_Compare,0x5b
0a08 7023       |p#  |		Jump_Nonzero	0xa2c
0a09 0b5a       | Z  |		Execute_Immediate	Case_Compare,0x5a
0a0a 7036       |p6  |		Jump_Nonzero	0xa41
0a0b e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x29.0x7 = 0xa0b,0x7
0a0c 6809       |h   |		Jump_Zero	0xa16
0a0d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x29.0x8 = 0xa0d,0x8
0a0e 0092 0a93  |    |		Action	Push_String_Extended,0xa93					; ": case arm not itself a CASE or a procedure call."
0a10 01cc       |    |		Execute	Vector,Catenate
0a11 0092 0a94  |    |		Action	Push_String_Extended,0xa94					; "Set_Up_Case_Stmt"
0a13 e004       |    |		Load	0x0,0x4
0a14 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a15 7808       |x   |		Jump	0xa1e
0a16 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x29.0x9 = 0xa16,0x9
0a17 0092 0a93  |    |		Action	Push_String_Extended,0xa93					; ": case arm not itself a CASE or a procedure call."
0a19 01cc       |    |		Execute	Vector,Catenate
0a1a 0092 0a94  |    |		Action	Push_String_Extended,0xa94					; "Set_Up_Case_Stmt"
0a1c e004       |    |		Load	0x0,0x4
0a1d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a1e 00d1       |    |		Pop_Control	Pop_Count_1						; Debug Table 0x29.0xa = 0xa1e,0xa
0a1f 00cc       |    |		Action	Pop_Block
0a20 7ed8       |~   |		Jump	0x8f9
0a21 e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x29.0xb = 0xa21,0x3
0a22 e5f9       |    |		Load	0x2,-0x7
0a23 e5fa       |    |		Load	0x2,-0x6
0a24 e5fb       |    |		Load	0x2,-0x5
0a25 e5fc       |    |		Load	0x2,-0x4
0a26 e404       |    |		Load	0x2,0x4
0a27 e405       |    |		Load	0x2,0x5
0a28 e5ff       |    |		Load	0x2,-0x1
0a29 822e       | .  |		Call	0x1,0x2e
0a2a c5f8       |    |		Store	0x2,-0x8
0a2b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a2c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x29.0xc = 0xa2c,0x4
0a2d e405       |    |		Load	0x2,0x5
0a2e e012       |    |		Load	0x0,0x12
0a2f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0a30 c40b       |    |		Store	0x2,0xb
0a31 e5f8       |    |		Load	0x2,-0x8							; Debug Table 0x29.0xd = 0xa31,0x5
0a32 e5fa       |    |		Load	0x2,-0x6
0a33 e5fb       |    |		Load	0x2,-0x5
0a34 e5fc       |    |		Load	0x2,-0x4
0a35 e404       |    |		Load	0x2,0x4
0a36 4801       |H   |		Short_Literal	0x1
0a37 e40b       |    |		Load	0x2,0xb
0a38 e405       |    |		Load	0x2,0x5
0a39 00eb       |    |		Load_Encached	Diana_Cache
0a3a 18d4       |    |		Execute	Package,Field_Execute,Field_Number 0xd4
0a3b 4976       |Iv  |		Short_Literal	0x176
0a3c 00eb       |    |		Load_Encached	Diana_Cache
0a3d 0098       |    |		Execute	Package,Field_Read_Dynamic
0a3e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a3f 822a       | *  |		Call	0x1,0x2a
0a40 c5f8       |    |		Store	0x2,-0x8
0a41 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a42			TRAP_09f8:
0a42 66c1       |f   |		Indirect_Literal	Discrete,0x904,{0x00000000, 0x587a9502}
0a43 010f       |    |		Execute	Exception,Equal
0a44 6802       |h   |		Jump_Zero	0xa47
0a45 00cc       |    |		Action	Pop_Block							; Debug Table 0x29.0xe = 0xa45,0xb
0a46 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0a47 66b8       |f   |		Indirect_Literal	Discrete,0x900,{0x00000000, 0x587a9501}
0a48 010f       |    |		Execute	Exception,Equal
0a49 6801       |h   |		Jump_Zero	0xa4b
0a4a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x29.0xf = 0xa4a,0xc
0a4b 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x29.0x10 = 0xa4b,0xd
0a4c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x29.0x11 = 0xa4c,0xf7ff
0a4d 0092 0a95  |    |		Action	Push_String_Extended,0xa95					; ": error defining "
0a4f 01cc       |    |		Execute	Vector,Catenate
0a50 e404       |    |		Load	0x2,0x4
0a51 e5fa       |    |		Load	0x2,-0x6
0a52 e005       |    |		Load	0x0,0x5
0a53 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0a54 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a55 01cc       |    |		Execute	Vector,Catenate
0a56 0092 0a96  |    |		Action	Push_String_Extended,0xa96					; " ("
0a58 01cc       |    |		Execute	Vector,Catenate
0a59 e013       |    |		Load	0x0,0x13
0a5a 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0a5b 01cc       |    |		Execute	Vector,Catenate
0a5c 0092 0a8f  |    |		Action	Push_String_Extended,0xa8f					; ")"
0a5e 01cc       |    |		Execute	Vector,Catenate
0a5f e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x29.0x12 = 0xa5f,0x801
0a60 6806       |h   |		Jump_Zero	0xa67
0a61 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x29.0x13 = 0xa61,0x802
0a62 0092 0a94  |    |		Action	Push_String_Extended,0xa94					; "Set_Up_Case_Stmt"
0a64 e004       |    |		Load	0x0,0x4
0a65 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0a66 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a67 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x29.0x14 = 0xa67,0x803
0a68 0092 0a94  |    |		Action	Push_String_Extended,0xa94					; "Set_Up_Case_Stmt"
0a6a e004       |    |		Load	0x0,0x4
0a6b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a6c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a6d 0000 0000  |    |		.XXX[0x3]
0a6f 0000       |    |
0a70 0000 0000  |    |		.LITERAL	{0x00000000, 0x587a9503}
0a74 0000 0000  |    |		.LITERAL	{0x00000000, 0x587a9505}
0a78 ; --------------------------------------------------------------------------------------
0a78 ; STRING TABLE
0a78 ; --------------------------------------------------------------------------------------
0a78 0040       | @  |		.STRTAB	0x0040->0x0a98							; "SUCCESSFUL"
0a79 0048       | H  |		.STRTAB	0x0048->0x0a9d							; "BAD_KEY"
0a7a 004d       | M  |		.STRTAB	0x004d->0x0aa0							; "BAD_COMMAND"
0a7b 0056       | V  |		.STRTAB	0x0056->0x0aa6							; "OTHER_ERROR"
0a7c 005f       | _  |		.STRTAB	0x005f->0x0aab							; "TO_PROMPT"
0a7d 0066       | f  |		.STRTAB	0x0066->0x0ab0							; "TO_EXECUTE"
0a7e 006e       | n  |		.STRTAB	0x006e->0x0ab5							; "TO_INTERRUPT"
0a7f 0078       | x  |		.STRTAB	0x0078->0x0abb							; "UNKNOWN"
0a80 007d       | }  |		.STRTAB	0x007d->0x0abe							; "INTEGER_ARGUMENT"
0a81 008b       |    |		.STRTAB	0x008b->0x0ac6							; "CHARACTER_ARGUMENT"
0a82 009b       |    |		.STRTAB	0x009b->0x0acf							; "ENUMERATED_ARGUMENT"
0a83 00ac       |    |		.STRTAB	0x00ac->0x0ad9							; "OTHER_ARGUMENT"
0a84 00b8       |    |		.STRTAB	0x00b8->0x0ae0							; ": contains more/other than a CASE statment?"
0a85 00e1       |    |		.STRTAB	0x00e1->0x0af5							; "Set_Up"
0a86 00e5       |    |		.STRTAB	0x00e5->0x0af8							; ": 1st level choice not Execute/Interrupt/Prompt?"
0a87 0113       |    |		.STRTAB	0x0113->0x0b10							; "?Too many prefixes in command key binding."
0a88 013b       | ;  |		.STRTAB	0x013b->0x0b25							; "Make_Key_Definition"
0a89 014c       | L  |		.STRTAB	0x014c->0x0b2f							; " Failed binding: {"
0a8a 015c       | \  |		.STRTAB	0x015c->0x0b38							; "}"
0a8b 015b       | [  |		.STRTAB	0x015b->0x0b38							; ": "
0a8c 015b       | [  |		.STRTAB	0x015b->0x0b39							; " is not a defined key name."
0a8d 0174       | t  |		.STRTAB	0x0174->0x0b47							; "Get_Key"
0a8e 0179       | y  |		.STRTAB	0x0179->0x0b4a							; ": CASE choice is not a simple constant or an enumeration literal ("
0a8f 01b9       |    |		.STRTAB	0x01b9->0x0b6b							; ")"
0a90 01b8       |    |		.STRTAB	0x01b8->0x0b6c							; "PROMPT"
0a91 01bc       |    |		.STRTAB	0x01bc->0x0b6f							; "EXECUTE"
0a92 01c1       |    |		.STRTAB	0x01c1->0x0b72							; "INTERRUPT"
0a93 01c8       |    |		.STRTAB	0x01c8->0x0b77							; ": case arm not itself a CASE or a procedure call."
0a94 01f7       |    |		.STRTAB	0x01f7->0x0b8f							; "Set_Up_Case_Stmt"
0a95 0205       |    |		.STRTAB	0x0205->0x0b97							; ": error defining "
0a96 0214       |    |		.STRTAB	0x0214->0x0ba0							; " ("
0a97 0214       |    |		.STREND 0x0214->0x0ba1
0a98 5355 4343  |SUCC|		.STRTAB_STRINGS
0ba1 0000 0000  |    |		.BLANK	0000[0x7]
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; Debug Table
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0003 002a  |   *|		.CONST	0x0003,0x002a
0baa 000b 0cfa  |    |		.DEBUG	0x000b,0x0cfa,0x8000,0x0000,0x0058,0x7965,0x0000,0x000f
0bb2 0017 0d04  |    |		.DEBUG	0x0017,0x0d04,0x8000,0x0000,0x0058,0x7a95,0x0000,0x0029
0bba 0093 0d5e  |   ^|		.DEBUG	0x0093,0x0d5e,0x0001,0x0000,0x0058,0x7965,0x0000,0x0010
0bc2 013b 0d9e  | ;  |		.DEBUG	0x013b,0x0d9e,0x0005,0x0000,0x0058,0x7965,0x0000,0x002e
0bca 0153 0da0  | S  |		.DEBUG	0x0153,0x0da0,0x0001,0x0000,0x0058,0x7965,0x0000,0x0036
0bd2 01cb 0ddc  |    |		.DEBUG	0x01cb,0x0ddc,0x0002,0x0000,0x0058,0x7965,0x0000,0x005d
0bda 01e3 0de2  |    |		.DEBUG	0x01e3,0x0de2,0x0005,0x0000,0x0058,0x7a95,0x0000,0x0053
0be2 01fb 0de4  |    |		.DEBUG	0x01fb,0x0de4,0x0005,0x0000,0x0058,0x7a95,0x0000,0x005b
0bea 0213 0de6  |    |		.DEBUG	0x0213,0x0de6,0x0005,0x0000,0x0058,0x7a95,0x0000,0x0063
0bf2 029b 0de8  |    |		.DEBUG	0x029b,0x0de8,0x0002,0x0000,0x0058,0x7a95,0x0000,0x00c0
0bfa 02ab 0dec  |    |		.DEBUG	0x02ab,0x0dec,0x0002,0x0000,0x0058,0x7a95,0x0000,0x00dd
0c02 02bb 0df0  |    |		.DEBUG	0x02bb,0x0df0,0x0002,0x0000,0x0058,0x7a95,0x0000,0x00fa
0c0a 030b 0e26  |   &|		.DEBUG	0x030b,0x0e26,0x0002,0x0000,0x0058,0x7a95,0x0000,0x01a6
0c12 0323 0e30  | # 0|		.DEBUG	0x0323,0x0e30,0x0002,0x0000,0x0058,0x7a95,0x0000,0x01d4
0c1a 0333 0e36  | 3 6|		.DEBUG	0x0333,0x0e36,0x0002,0x0000,0x0058,0x7a95,0x0000,0x01f9
0c22 0353 0e3e  | S >|		.DEBUG	0x0353,0x0e3e,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0220
0c2a 037b 0e4c  | { L|		.DEBUG	0x037b,0x0e4c,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0262
0c32 039b 0e56  |   V|		.DEBUG	0x039b,0x0e56,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0296
0c3a 03cb 0e60  |   `|		.DEBUG	0x03cb,0x0e60,0x0002,0x0000,0x0058,0x7a95,0x0000,0x02d4
0c42 03f3 0e6e  |   n|		.DEBUG	0x03f3,0x0e6e,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0329
0c4a 0473 0ec6  | s  |		.DEBUG	0x0473,0x0ec6,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0420
0c52 04ab 0eee  |    |		.DEBUG	0x04ab,0x0eee,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0497
0c5a 04cb 0f02  |    |		.DEBUG	0x04cb,0x0f02,0x0002,0x0000,0x0058,0x7a95,0x0000,0x04d4
0c62 0563 0f80  | c  |		.DEBUG	0x0563,0x0f80,0x0002,0x0000,0x0058,0x7a95,0x0000,0x05c2
0c6a 05b3 0fa6  |    |		.DEBUG	0x05b3,0x0fa6,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0668
0c72 05e3 0fbe  |    |		.DEBUG	0x05e3,0x0fbe,0x0002,0x0000,0x0058,0x7a95,0x0000,0x06c1
0c7a 05f3 0fc2  |    |		.DEBUG	0x05f3,0x0fc2,0x0002,0x0000,0x0058,0x7a95,0x0000,0x06dd
0c82 063b 0fd8  | ;  |		.DEBUG	0x063b,0x0fd8,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0748
0c8a 067b 1008  | {  |		.DEBUG	0x067b,0x1008,0x0002,0x0000,0x0058,0x7a95,0x0000,0x07d4
0c92 06d3 1026  |   &|		.DEBUG	0x06d3,0x1026,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0880
0c9a 0723 103a  | # :|		.DEBUG	0x0723,0x103a,0x0002,0x0000,0x0058,0x7a95,0x0000,0x092c
0ca2 079b 108c  |    |		.DEBUG	0x079b,0x108c,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0a4d
0caa 07db 10ae  |    |		.DEBUG	0x07db,0x10ae,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0a5e
0cb2 084b 1120  | K  |		.DEBUG	0x084b,0x1120,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0ba0
0cba 090b 11b2  |    |		.DEBUG	0x090b,0x11b2,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0d83
0cc2 092b 11c0  | +  |		.DEBUG	0x092b,0x11c0,0x0001,0x0000,0x0058,0x7a95,0x0000,0x0dc9
0cca 0933 11c4  | 3  |		.DEBUG	0x0933,0x11c4,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0de1
0cd2 093b 11d2  | ;  |		.DEBUG	0x093b,0x11d2,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0dfd
0cda 09ab 1220  |    |		.DEBUG	0x09ab,0x1220,0x0002,0x0000,0x0058,0x7a95,0x0000,0x0fc8
0ce2 09cb 1242  |   B|		.DEBUG	0x09cb,0x1242,0x0004,0x0000,0x0058,0x7a95,0x0000,0x0975
0cea 09e3 1248  |   H|		.DEBUG	0x09e3,0x1248,0x0004,0x0000,0x0058,0x7a95,0x0000,0x09b5
0cf2 09fb 124e  |   N|		.DEBUG	0x09fb,0x124e,0x0004,0x0000,0x0058,0x7a95,0x0000,0x0d77
0cfa ; --------------------------------------------------------------------------------------
0cfa ; Debug3 Subtable 0x0
0cfa ; --------------------------------------------------------------------------------------
0cfa 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0cfc 000b ffff  |    |		.CONST	0x000b,0xffff
0cfe 000d fffe  |    |		.CONST	0x000d,0xfffe
0d00 0012 fffd  |    |		.CONST	0x0012,0xfffd
0d02 0014 fffc  |    |		.CONST	0x0014,0xfffc
0d04 ; --------------------------------------------------------------------------------------
0d04 ; Debug3 Subtable 0x1
0d04 ; --------------------------------------------------------------------------------------
0d04 002c 0000  | ,  |		.DBG3TAB	0x002c,0x0000
0d06 0017 ffff  |    |		.CONST	0x0017,0xffff
0d08 0017 fffe  |    |		.CONST	0x0017,0xfffe
0d0a 0017 fffd  |    |		.CONST	0x0017,0xfffd
0d0c 0017 fffc  |    |		.CONST	0x0017,0xfffc
0d0e 0017 fffb  |    |		.CONST	0x0017,0xfffb
0d10 0017 fffa  |    |		.CONST	0x0017,0xfffa
0d12 001c fff9  |    |		.CONST	0x001c,0xfff9
0d14 0021 fff8  | !  |		.CONST	0x0021,0xfff8
0d16 003b fff7  | ;  |		.CONST	0x003b,0xfff7
0d18 0041 fff6  | A  |		.CONST	0x0041,0xfff6
0d1a 0047 fff5  | G  |		.CONST	0x0047,0xfff5
0d1c 0049 fff4  | I  |		.CONST	0x0049,0xfff4
0d1e 004b fff3  | K  |		.CONST	0x004b,0xfff3
0d20 004d fff2  | M  |		.CONST	0x004d,0xfff2
0d22 004f fff1  | O  |		.CONST	0x004f,0xfff1
0d24 0051 fff0  | Q  |		.CONST	0x0051,0xfff0
0d26 0053 ffef  | S  |		.CONST	0x0053,0xffef
0d28 0055 ffee  | U  |		.CONST	0x0055,0xffee
0d2a 0057 ffed  | W  |		.CONST	0x0057,0xffed
0d2c 0059 ffec  | Y  |		.CONST	0x0059,0xffec
0d2e 005b ffeb  | [  |		.CONST	0x005b,0xffeb
0d30 005d ffea  | ]  |		.CONST	0x005d,0xffea
0d32 005f ffe9  | _  |		.CONST	0x005f,0xffe9
0d34 0061 ffe8  | a  |		.CONST	0x0061,0xffe8
0d36 0063 ffe7  | c  |		.CONST	0x0063,0xffe7
0d38 0065 ffe6  | e  |		.CONST	0x0065,0xffe6
0d3a 0067 ffe5  | g  |		.CONST	0x0067,0xffe5
0d3c 0069 ffe4  | i  |		.CONST	0x0069,0xffe4
0d3e 006b ffe3  | k  |		.CONST	0x006b,0xffe3
0d40 006d ffe2  | m  |		.CONST	0x006d,0xffe2
0d42 006f ffe1  | o  |		.CONST	0x006f,0xffe1
0d44 0071 ffe0  | q  |		.CONST	0x0071,0xffe0
0d46 0073 ffdf  | s  |		.CONST	0x0073,0xffdf
0d48 0075 ffde  | u  |		.CONST	0x0075,0xffde
0d4a 0077 ffdd  | w  |		.CONST	0x0077,0xffdd
0d4c 0079 ffdc  | y  |		.CONST	0x0079,0xffdc
0d4e 007b ffdb  | {  |		.CONST	0x007b,0xffdb
0d50 007d ffda  | }  |		.CONST	0x007d,0xffda
0d52 007f ffd9  |    |		.CONST	0x007f,0xffd9
0d54 0081 ffd8  |    |		.CONST	0x0081,0xffd8
0d56 0083 ffd7  |    |		.CONST	0x0083,0xffd7
0d58 0085 ffd6  |    |		.CONST	0x0085,0xffd6
0d5a 0087 ffd5  |    |		.CONST	0x0087,0xffd5
0d5c 0089 ffd4  |    |		.CONST	0x0089,0xffd4
0d5e ; --------------------------------------------------------------------------------------
0d5e ; Debug3 Subtable 0x2
0d5e ; --------------------------------------------------------------------------------------
0d5e 0005 001a  |    |		.DBG3TAB	0x0005,0x001a
0d60 0093 ffff  |    |		.CONST	0x0093,0xffff
0d62 0094 fffe  |    |		.CONST	0x0094,0xfffe
0d64 0095 fffd  |    |		.CONST	0x0095,0xfffd
0d66 0095 fffc  |    |		.CONST	0x0095,0xfffc
0d68 0096 fffb  |    |		.CONST	0x0096,0xfffb
0d6a 009c 0001  |    |		.CONST	0x009c,0x0001
0d6c 009e 0002  |    |		.CONST	0x009e,0x0002
0d6e 00ab 0003  |    |		.CONST	0x00ab,0x0003
0d70 00b9 0004  |    |		.CONST	0x00b9,0x0004
0d72 00bd 0005  |    |		.CONST	0x00bd,0x0005
0d74 00c0 0006  |    |		.CONST	0x00c0,0x0006
0d76 00c2 0007  |    |		.CONST	0x00c2,0x0007
0d78 00cb 0008  |    |		.CONST	0x00cb,0x0008
0d7a 00d4 0009  |    |		.CONST	0x00d4,0x0009
0d7c 00d6 000a  |    |		.CONST	0x00d6,0x000a
0d7e 00dc 000c  |    |		.CONST	0x00dc,0x000c
0d80 00df 000d  |    |		.CONST	0x00df,0x000d
0d82 00e6 000e  |    |		.CONST	0x00e6,0x000e
0d84 00f2 000f  |    |		.CONST	0x00f2,0x000f
0d86 00fe 0010  |    |		.CONST	0x00fe,0x0010
0d88 010a 0011  |    |		.CONST	0x010a,0x0011
0d8a 010c 0012  |    |		.CONST	0x010c,0x0012
0d8c 0115 0013  |    |		.CONST	0x0115,0x0013
0d8e 011d 0014  |    |		.CONST	0x011d,0x0014
0d90 0120 0015  |    |		.CONST	0x0120,0x0015
0d92 0125 000b  | %  |		.CONST	0x0125,0x000b
0d94 0125 0401  | %  |		.CONST	0x0125,0x0401
0d96 0127 000b  | '  |		.CONST	0x0127,0x000b
0d98 0129 0016  | )  |		.CONST	0x0129,0x0016
0d9a 012d 0017  | -  |		.CONST	0x012d,0x0017
0d9c 012f 0018  | /  |		.CONST	0x012f,0x0018
0d9e ; --------------------------------------------------------------------------------------
0d9e ; Debug3 Subtable 0x3
0d9e ; --------------------------------------------------------------------------------------
0d9e 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0da0 ; --------------------------------------------------------------------------------------
0da0 ; Debug3 Subtable 0x4
0da0 ; --------------------------------------------------------------------------------------
0da0 0007 0016  |    |		.DBG3TAB	0x0007,0x0016
0da2 0153 ffff  | S  |		.CONST	0x0153,0xffff
0da4 0155 fffe  | U  |		.CONST	0x0155,0xfffe
0da6 0156 fffd  | V  |		.CONST	0x0156,0xfffd
0da8 0157 fffc  | W  |		.CONST	0x0157,0xfffc
0daa 0159 fffb  | Y  |		.CONST	0x0159,0xfffb
0dac 015a fffa  | Z  |		.CONST	0x015a,0xfffa
0dae 015b fff9  | [  |		.CONST	0x015b,0xfff9
0db0 015d 0001  | ]  |		.CONST	0x015d,0x0001
0db2 015f 0002  | _  |		.CONST	0x015f,0x0002
0db4 0162 0003  | b  |		.CONST	0x0162,0x0003
0db6 0164 0004  | d  |		.CONST	0x0164,0x0004
0db8 0167 0005  | g  |		.CONST	0x0167,0x0005
0dba 016c 0006  | l  |		.CONST	0x016c,0x0006
0dbc 0171 0007  | q  |		.CONST	0x0171,0x0007
0dbe 0179 0008  | y  |		.CONST	0x0179,0x0008
0dc0 017c 0009  | |  |		.CONST	0x017c,0x0009
0dc2 0184 000a  |    |		.CONST	0x0184,0x000a
0dc4 0184 0401  |    |		.CONST	0x0184,0x0401
0dc6 0186 000a  |    |		.CONST	0x0186,0x000a
0dc8 0187 000b  |    |		.CONST	0x0187,0x000b
0dca 0189 000c  |    |		.CONST	0x0189,0x000c
0dcc 0195 000d  |    |		.CONST	0x0195,0x000d
0dce 019d 000e  |    |		.CONST	0x019d,0x000e
0dd0 01a3 000f  |    |		.CONST	0x01a3,0x000f
0dd2 01a5 0010  |    |		.CONST	0x01a5,0x0010
0dd4 01b1 0011  |    |		.CONST	0x01b1,0x0011
0dd6 01b3 0012  |    |		.CONST	0x01b3,0x0012
0dd8 01bc 0013  |    |		.CONST	0x01bc,0x0013
0dda 01be 0014  |    |		.CONST	0x01be,0x0014
0ddc ; --------------------------------------------------------------------------------------
0ddc ; Debug3 Subtable 0x5
0ddc ; --------------------------------------------------------------------------------------
0ddc 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0dde 01cb 0001  |    |		.CONST	0x01cb,0x0001
0de0 01d9 0002  |    |		.CONST	0x01d9,0x0002
0de2 ; --------------------------------------------------------------------------------------
0de2 ; Debug3 Subtable 0x6
0de2 ; --------------------------------------------------------------------------------------
0de2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0de4 ; --------------------------------------------------------------------------------------
0de4 ; Debug3 Subtable 0x7
0de4 ; --------------------------------------------------------------------------------------
0de4 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0de6 ; --------------------------------------------------------------------------------------
0de6 ; Debug3 Subtable 0x8
0de6 ; --------------------------------------------------------------------------------------
0de6 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0de8 ; --------------------------------------------------------------------------------------
0de8 ; Debug3 Subtable 0x9
0de8 ; --------------------------------------------------------------------------------------
0de8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0dea 029b 0001  |    |		.CONST	0x029b,0x0001
0dec ; --------------------------------------------------------------------------------------
0dec ; Debug3 Subtable 0xa
0dec ; --------------------------------------------------------------------------------------
0dec 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0dee 02ab 0001  |    |		.CONST	0x02ab,0x0001
0df0 ; --------------------------------------------------------------------------------------
0df0 ; Debug3 Subtable 0xb
0df0 ; --------------------------------------------------------------------------------------
0df0 0004 0016  |    |		.DBG3TAB	0x0004,0x0016
0df2 02bb 0001  |    |		.CONST	0x02bb,0x0001
0df4 02bb 0401  |    |		.CONST	0x02bb,0x0401
0df6 02bc 0402  |    |		.CONST	0x02bc,0x0402
0df8 02bd 0403  |    |		.CONST	0x02bd,0x0403
0dfa 02bd 0404  |    |		.CONST	0x02bd,0x0404
0dfc 02bd 0001  |    |		.CONST	0x02bd,0x0001
0dfe 02c1 0004  |    |		.CONST	0x02c1,0x0004
0e00 02c3 0002  |    |		.CONST	0x02c3,0x0002
0e02 02c4 f7ff  |    |		.CONST	0x02c4,0xf7ff
0e04 02c5 f7fe  |    |		.CONST	0x02c5,0xf7fe
0e06 02ca 0801  |    |		.CONST	0x02ca,0x0801
0e08 02ce 0802  |    |		.CONST	0x02ce,0x0802
0e0a 02d2 0803  |    |		.CONST	0x02d2,0x0803
0e0c 02d5 0c01  |    |		.CONST	0x02d5,0x0c01
0e0e 02d6 0c02  |    |		.CONST	0x02d6,0x0c02
0e10 02d7 0c03  |    |		.CONST	0x02d7,0x0c03
0e12 02d7 0c04  |    |		.CONST	0x02d7,0x0c04
0e14 02d9 0803  |    |		.CONST	0x02d9,0x0803
0e16 02db 0804  |    |		.CONST	0x02db,0x0804
0e18 02e6 0805  |    |		.CONST	0x02e6,0x0805
0e1a 02e9 0003  |    |		.CONST	0x02e9,0x0003
0e1c 02ea efff  |    |		.CONST	0x02ea,0xefff
0e1e 02eb effe  |    |		.CONST	0x02eb,0xeffe
0e20 02ec 1001  |    |		.CONST	0x02ec,0x1001
0e22 02f2 1002  |    |		.CONST	0x02f2,0x1002
0e24 02f9 1003  |    |		.CONST	0x02f9,0x1003
0e26 ; --------------------------------------------------------------------------------------
0e26 ; Debug3 Subtable 0xc
0e26 ; --------------------------------------------------------------------------------------
0e26 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0e28 030b ffff  |    |		.CONST	0x030b,0xffff
0e2a 030d 0001  |    |		.CONST	0x030d,0x0001
0e2c 0315 0002  |    |		.CONST	0x0315,0x0002
0e2e 0318 0003  |    |		.CONST	0x0318,0x0003
0e30 ; --------------------------------------------------------------------------------------
0e30 ; Debug3 Subtable 0xd
0e30 ; --------------------------------------------------------------------------------------
0e30 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0e32 0323 0001  | #  |		.CONST	0x0323,0x0001
0e34 032a 0002  | *  |		.CONST	0x032a,0x0002
0e36 ; --------------------------------------------------------------------------------------
0e36 ; Debug3 Subtable 0xe
0e36 ; --------------------------------------------------------------------------------------
0e36 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0e38 0333 0001  | 3  |		.CONST	0x0333,0x0001
0e3a 0349 0003  | I  |		.CONST	0x0349,0x0003
0e3c 034b 0002  | K  |		.CONST	0x034b,0x0002
0e3e ; --------------------------------------------------------------------------------------
0e3e ; Debug3 Subtable 0xf
0e3e ; --------------------------------------------------------------------------------------
0e3e 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0e40 0353 0001  | S  |		.CONST	0x0353,0x0001
0e42 035a 0002  | Z  |		.CONST	0x035a,0x0002
0e44 0362 0003  | b  |		.CONST	0x0362,0x0003
0e46 0367 0004  | g  |		.CONST	0x0367,0x0004
0e48 036f 0005  | o  |		.CONST	0x036f,0x0005
0e4a 0371 0006  | q  |		.CONST	0x0371,0x0006
0e4c ; --------------------------------------------------------------------------------------
0e4c ; Debug3 Subtable 0x10
0e4c ; --------------------------------------------------------------------------------------
0e4c 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0e4e 037c 0001  | |  |		.CONST	0x037c,0x0001
0e50 0382 0002  |    |		.CONST	0x0382,0x0002
0e52 0387 0003  |    |		.CONST	0x0387,0x0003
0e54 0392 0004  |    |		.CONST	0x0392,0x0004
0e56 ; --------------------------------------------------------------------------------------
0e56 ; Debug3 Subtable 0x11
0e56 ; --------------------------------------------------------------------------------------
0e56 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0e58 039c 0001  |    |		.CONST	0x039c,0x0001
0e5a 03a0 0002  |    |		.CONST	0x03a0,0x0002
0e5c 03a5 0003  |    |		.CONST	0x03a5,0x0003
0e5e 03b9 0004  |    |		.CONST	0x03b9,0x0004
0e60 ; --------------------------------------------------------------------------------------
0e60 ; Debug3 Subtable 0x12
0e60 ; --------------------------------------------------------------------------------------
0e60 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
0e62 03cb ffff  |    |		.CONST	0x03cb,0xffff
0e64 03cc fffe  |    |		.CONST	0x03cc,0xfffe
0e66 03cf 0001  |    |		.CONST	0x03cf,0x0001
0e68 03e2 0002  |    |		.CONST	0x03e2,0x0002
0e6a 03e5 0004  |    |		.CONST	0x03e5,0x0004
0e6c 03e7 0003  |    |		.CONST	0x03e7,0x0003
0e6e ; --------------------------------------------------------------------------------------
0e6e ; Debug3 Subtable 0x13
0e6e ; --------------------------------------------------------------------------------------
0e6e 0005 0026  |   &|		.DBG3TAB	0x0005,0x0026
0e70 03f3 ffff  |    |		.CONST	0x03f3,0xffff
0e72 03f4 fffe  |    |		.CONST	0x03f4,0xfffe
0e74 03f5 fffd  |    |		.CONST	0x03f5,0xfffd
0e76 03f9 fffc  |    |		.CONST	0x03f9,0xfffc
0e78 03fa fffb  |    |		.CONST	0x03fa,0xfffb
0e7a 03fb 0001  |    |		.CONST	0x03fb,0x0001
0e7c 03fe 0002  |    |		.CONST	0x03fe,0x0002
0e7e 03fe 0401  |    |		.CONST	0x03fe,0x0401
0e80 03ff 0402  |    |		.CONST	0x03ff,0x0402
0e82 0400 0403  |    |		.CONST	0x0400,0x0403
0e84 0400 0404  |    |		.CONST	0x0400,0x0404
0e86 0400 0002  |    |		.CONST	0x0400,0x0002
0e88 0402 0003  |    |		.CONST	0x0402,0x0003
0e8a 0407 0004  |    |		.CONST	0x0407,0x0004
0e8c 0409 0005  |    |		.CONST	0x0409,0x0005
0e8e 0409 0801  |    |		.CONST	0x0409,0x0801
0e90 040a 0802  |    |		.CONST	0x040a,0x0802
0e92 040b 0803  |    |		.CONST	0x040b,0x0803
0e94 040b 0804  |    |		.CONST	0x040b,0x0804
0e96 040b 0005  |    |		.CONST	0x040b,0x0005
0e98 0417 0017  |    |		.CONST	0x0417,0x0017
0e9a 041b 0007  |    |		.CONST	0x041b,0x0007
0e9c 0420 0008  |    |		.CONST	0x0420,0x0008
0e9e 0427 0009  | '  |		.CONST	0x0427,0x0009
0ea0 0429 000a  | )  |		.CONST	0x0429,0x000a
0ea2 042e 000b  | .  |		.CONST	0x042e,0x000b
0ea4 0438 000c  | 8  |		.CONST	0x0438,0x000c
0ea6 043f 000d  | ?  |		.CONST	0x043f,0x000d
0ea8 0444 000e  | D  |		.CONST	0x0444,0x000e
0eaa 0444 000f  | D  |		.CONST	0x0444,0x000f
0eac 0444 0c01  | D  |		.CONST	0x0444,0x0c01
0eae 0445 0c02  | E  |		.CONST	0x0445,0x0c02
0eb0 0446 0c03  | F  |		.CONST	0x0446,0x0c03
0eb2 0446 0c04  | F  |		.CONST	0x0446,0x0c04
0eb4 0446 000f  | F  |		.CONST	0x0446,0x000f
0eb6 044c 0015  | L  |		.CONST	0x044c,0x0015
0eb8 044f 0016  | O  |		.CONST	0x044f,0x0016
0eba 0451 0010  | Q  |		.CONST	0x0451,0x0010
0ebc 0457 0011  | W  |		.CONST	0x0457,0x0011
0ebe 045b 0012  | [  |		.CONST	0x045b,0x0012
0ec0 045d 0013  | ]  |		.CONST	0x045d,0x0013
0ec2 0461 0014  | a  |		.CONST	0x0461,0x0014
0ec4 0468 0018  | h  |		.CONST	0x0468,0x0018
0ec6 ; --------------------------------------------------------------------------------------
0ec6 ; Debug3 Subtable 0x14
0ec6 ; --------------------------------------------------------------------------------------
0ec6 0003 0010  |    |		.DBG3TAB	0x0003,0x0010
0ec8 0473 ffff  | s  |		.CONST	0x0473,0xffff
0eca 0477 fffe  | w  |		.CONST	0x0477,0xfffe
0ecc 0478 fffd  | x  |		.CONST	0x0478,0xfffd
0ece 0479 0001  | y  |		.CONST	0x0479,0x0001
0ed0 047c 0002  | |  |		.CONST	0x047c,0x0002
0ed2 047e 0003  | ~  |		.CONST	0x047e,0x0003
0ed4 0480 0004  |    |		.CONST	0x0480,0x0004
0ed6 0480 0401  |    |		.CONST	0x0480,0x0401
0ed8 0481 0402  |    |		.CONST	0x0481,0x0402
0eda 0482 0403  |    |		.CONST	0x0482,0x0403
0edc 0482 0404  |    |		.CONST	0x0482,0x0404
0ede 0482 0004  |    |		.CONST	0x0482,0x0004
0ee0 0484 000a  |    |		.CONST	0x0484,0x000a
0ee2 0485 0005  |    |		.CONST	0x0485,0x0005
0ee4 048c 0006  |    |		.CONST	0x048c,0x0006
0ee6 0494 0007  |    |		.CONST	0x0494,0x0007
0ee8 0496 0008  |    |		.CONST	0x0496,0x0008
0eea 049d 0009  |    |		.CONST	0x049d,0x0009
0eec 04a2 000b  |    |		.CONST	0x04a2,0x000b
0eee ; --------------------------------------------------------------------------------------
0eee ; Debug3 Subtable 0x15
0eee ; --------------------------------------------------------------------------------------
0eee 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
0ef0 04ab ffff  |    |		.CONST	0x04ab,0xffff
0ef2 04ae fffe  |    |		.CONST	0x04ae,0xfffe
0ef4 04b0 0002  |    |		.CONST	0x04b0,0x0002
0ef6 04b4 0003  |    |		.CONST	0x04b4,0x0003
0ef8 04b4 0401  |    |		.CONST	0x04b4,0x0401
0efa 04b6 0003  |    |		.CONST	0x04b6,0x0003
0efc 04b7 0004  |    |		.CONST	0x04b7,0x0004
0efe 04ba 0001  |    |		.CONST	0x04ba,0x0001
0f00 04bf 0005  |    |		.CONST	0x04bf,0x0005
0f02 ; --------------------------------------------------------------------------------------
0f02 ; Debug3 Subtable 0x16
0f02 ; --------------------------------------------------------------------------------------
0f02 0008 0036  |   6|		.DBG3TAB	0x0008,0x0036
0f04 04cb ffff  |    |		.CONST	0x04cb,0xffff
0f06 04cc fffe  |    |		.CONST	0x04cc,0xfffe
0f08 04cd fffd  |    |		.CONST	0x04cd,0xfffd
0f0a 04d1 fffc  |    |		.CONST	0x04d1,0xfffc
0f0c 04d2 fffb  |    |		.CONST	0x04d2,0xfffb
0f0e 04d3 fffa  |    |		.CONST	0x04d3,0xfffa
0f10 04d4 fff9  |    |		.CONST	0x04d4,0xfff9
0f12 04d5 fff8  |    |		.CONST	0x04d5,0xfff8
0f14 04d6 0001  |    |		.CONST	0x04d6,0x0001
0f16 04d9 0002  |    |		.CONST	0x04d9,0x0002
0f18 04db 0003  |    |		.CONST	0x04db,0x0003
0f1a 04dd 0004  |    |		.CONST	0x04dd,0x0004
0f1c 04e0 0005  |    |		.CONST	0x04e0,0x0005
0f1e 04e0 0401  |    |		.CONST	0x04e0,0x0401
0f20 04e1 0402  |    |		.CONST	0x04e1,0x0402
0f22 04e2 0403  |    |		.CONST	0x04e2,0x0403
0f24 04e2 0404  |    |		.CONST	0x04e2,0x0404
0f26 04e2 0005  |    |		.CONST	0x04e2,0x0005
0f28 04e6 0015  |    |		.CONST	0x04e6,0x0015
0f2a 04e7 0006  |    |		.CONST	0x04e7,0x0006
0f2c 04ef 0007  |    |		.CONST	0x04ef,0x0007
0f2e 04f1 0008  |    |		.CONST	0x04f1,0x0008
0f30 04f5 000a  |    |		.CONST	0x04f5,0x000a
0f32 04f9 000b  |    |		.CONST	0x04f9,0x000b
0f34 04f9 0801  |    |		.CONST	0x04f9,0x0801
0f36 04fb 000b  |    |		.CONST	0x04fb,0x000b
0f38 04fc 000c  |    |		.CONST	0x04fc,0x000c
0f3a 04fe 000d  |    |		.CONST	0x04fe,0x000d
0f3c 04ff 0c01  |    |		.CONST	0x04ff,0x0c01
0f3e 0501 0c02  |    |		.CONST	0x0501,0x0c02
0f40 0503 0c03  |    |		.CONST	0x0503,0x0c03
0f42 0507 0c04  |    |		.CONST	0x0507,0x0c04
0f44 050b 0c05  |    |		.CONST	0x050b,0x0c05
0f46 050c 1001  |    |		.CONST	0x050c,0x1001
0f48 050d 1002  |    |		.CONST	0x050d,0x1002
0f4a 050e 1003  |    |		.CONST	0x050e,0x1003
0f4c 050e 1004  |    |		.CONST	0x050e,0x1004
0f4e 0510 0c05  |    |		.CONST	0x0510,0x0c05
0f50 0519 1401  |    |		.CONST	0x0519,0x1401
0f52 051a 1402  |    |		.CONST	0x051a,0x1402
0f54 051b 1403  |    |		.CONST	0x051b,0x1403
0f56 051b 1404  |    |		.CONST	0x051b,0x1404
0f58 051d 1004  |    |		.CONST	0x051d,0x1004
0f5a 052b 000d  | +  |		.CONST	0x052b,0x000d
0f5c 052c 000e  | ,  |		.CONST	0x052c,0x000e
0f5e 0532 000f  | 2  |		.CONST	0x0532,0x000f
0f60 0538 0010  | 8  |		.CONST	0x0538,0x0010
0f62 0538 1801  | 8  |		.CONST	0x0538,0x1801
0f64 053a 1802  | :  |		.CONST	0x053a,0x1802
0f66 053c 1803  | <  |		.CONST	0x053c,0x1803
0f68 053f 0010  | ?  |		.CONST	0x053f,0x0010
0f6a 0541 0009  | A  |		.CONST	0x0541,0x0009
0f6c 0548 0011  | H  |		.CONST	0x0548,0x0011
0f6e 0548 1c01  | H  |		.CONST	0x0548,0x1c01
0f70 0549 1c02  | I  |		.CONST	0x0549,0x1c02
0f72 054a 1c03  | J  |		.CONST	0x054a,0x1c03
0f74 054a 1c04  | J  |		.CONST	0x054a,0x1c04
0f76 054a 0011  | J  |		.CONST	0x054a,0x0011
0f78 054c 0014  | L  |		.CONST	0x054c,0x0014
0f7a 054d 0012  | M  |		.CONST	0x054d,0x0012
0f7c 0551 0013  | Q  |		.CONST	0x0551,0x0013
0f7e 0557 0016  | W  |		.CONST	0x0557,0x0016
0f80 ; --------------------------------------------------------------------------------------
0f80 ; Debug3 Subtable 0x17
0f80 ; --------------------------------------------------------------------------------------
0f80 0004 000e  |    |		.DBG3TAB	0x0004,0x000e
0f82 0563 ffff  | c  |		.CONST	0x0563,0xffff
0f84 0566 fffe  | f  |		.CONST	0x0566,0xfffe
0f86 056a fffd  | j  |		.CONST	0x056a,0xfffd
0f88 056a fffc  | j  |		.CONST	0x056a,0xfffc
0f8a 056a 0001  | j  |		.CONST	0x056a,0x0001
0f8c 056f 0002  | o  |		.CONST	0x056f,0x0002
0f8e 0574 0003  | t  |		.CONST	0x0574,0x0003
0f90 0579 0004  | y  |		.CONST	0x0579,0x0004
0f92 057c 0005  | |  |		.CONST	0x057c,0x0005
0f94 0581 0006  |    |		.CONST	0x0581,0x0006
0f96 0584 0007  |    |		.CONST	0x0584,0x0007
0f98 058b 0008  |    |		.CONST	0x058b,0x0008
0f9a 0591 0009  |    |		.CONST	0x0591,0x0009
0f9c 0597 000a  |    |		.CONST	0x0597,0x000a
0f9e 059d 000b  |    |		.CONST	0x059d,0x000b
0fa0 05a1 000c  |    |		.CONST	0x05a1,0x000c
0fa2 05a3 000d  |    |		.CONST	0x05a3,0x000d
0fa4 05a9 000e  |    |		.CONST	0x05a9,0x000e
0fa6 ; --------------------------------------------------------------------------------------
0fa6 ; Debug3 Subtable 0x18
0fa6 ; --------------------------------------------------------------------------------------
0fa6 0002 0009  |    |		.DBG3TAB	0x0002,0x0009
0fa8 05b3 ffff  |    |		.CONST	0x05b3,0xffff
0faa 05b7 fffe  |    |		.CONST	0x05b7,0xfffe
0fac 05b8 0001  |    |		.CONST	0x05b8,0x0001
0fae 05ba 0002  |    |		.CONST	0x05ba,0x0002
0fb0 05bc 0003  |    |		.CONST	0x05bc,0x0003
0fb2 05c0 0004  |    |		.CONST	0x05c0,0x0004
0fb4 05c3 0005  |    |		.CONST	0x05c3,0x0005
0fb6 05c8 0006  |    |		.CONST	0x05c8,0x0006
0fb8 05cb 0007  |    |		.CONST	0x05cb,0x0007
0fba 05d2 0008  |    |		.CONST	0x05d2,0x0008
0fbc 05d6 0009  |    |		.CONST	0x05d6,0x0009
0fbe ; --------------------------------------------------------------------------------------
0fbe ; Debug3 Subtable 0x19
0fbe ; --------------------------------------------------------------------------------------
0fbe 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0fc0 05e3 0001  |    |		.CONST	0x05e3,0x0001
0fc2 ; --------------------------------------------------------------------------------------
0fc2 ; Debug3 Subtable 0x1a
0fc2 ; --------------------------------------------------------------------------------------
0fc2 0003 0007  |    |		.DBG3TAB	0x0003,0x0007
0fc4 05f3 ffff  |    |		.CONST	0x05f3,0xffff
0fc6 05f8 fffe  |    |		.CONST	0x05f8,0xfffe
0fc8 05fe fffd  |    |		.CONST	0x05fe,0xfffd
0fca 0600 0001  |    |		.CONST	0x0600,0x0001
0fcc 0610 0002  |    |		.CONST	0x0610,0x0002
0fce 0614 0003  |    |		.CONST	0x0614,0x0003
0fd0 0619 0004  |    |		.CONST	0x0619,0x0004
0fd2 0629 0005  | )  |		.CONST	0x0629,0x0005
0fd4 062d 0006  | -  |		.CONST	0x062d,0x0006
0fd6 0632 0007  | 2  |		.CONST	0x0632,0x0007
0fd8 ; --------------------------------------------------------------------------------------
0fd8 ; Debug3 Subtable 0x1b
0fd8 ; --------------------------------------------------------------------------------------
0fd8 0003 0014  |    |		.DBG3TAB	0x0003,0x0014
0fda 063b ffff  | ;  |		.CONST	0x063b,0xffff
0fdc 063c fffe  | <  |		.CONST	0x063c,0xfffe
0fde 063d fffd  | =  |		.CONST	0x063d,0xfffd
0fe0 063e 0001  | >  |		.CONST	0x063e,0x0001
0fe2 0640 0002  | @  |		.CONST	0x0640,0x0002
0fe4 0646 0004  | F  |		.CONST	0x0646,0x0004
0fe6 0648 0005  | H  |		.CONST	0x0648,0x0005
0fe8 064d 0003  | M  |		.CONST	0x064d,0x0003
0fea 064d 0401  | M  |		.CONST	0x064d,0x0401
0fec 064e 0402  | N  |		.CONST	0x064e,0x0402
0fee 064f 0403  | O  |		.CONST	0x064f,0x0403
0ff0 064f 0404  | O  |		.CONST	0x064f,0x0404
0ff2 064f 0003  | O  |		.CONST	0x064f,0x0003
0ff4 0652 0006  | R  |		.CONST	0x0652,0x0006
0ff6 0652 0801  | R  |		.CONST	0x0652,0x0801
0ff8 0653 0802  | S  |		.CONST	0x0653,0x0802
0ffa 0654 0803  | T  |		.CONST	0x0654,0x0803
0ffc 0654 0804  | T  |		.CONST	0x0654,0x0804
0ffe 0654 0006  | T  |		.CONST	0x0654,0x0006
1000 0656 0008  | V  |		.CONST	0x0656,0x0008
1002 065c 0009  | \  |		.CONST	0x065c,0x0009
1004 0666 000a  | f  |		.CONST	0x0666,0x000a
1006 066c 000b  | l  |		.CONST	0x066c,0x000b
1008 ; --------------------------------------------------------------------------------------
1008 ; Debug3 Subtable 0x1c
1008 ; --------------------------------------------------------------------------------------
1008 0005 0009  |    |		.DBG3TAB	0x0005,0x0009
100a 067b ffff  | {  |		.CONST	0x067b,0xffff
100c 067c fffe  | |  |		.CONST	0x067c,0xfffe
100e 067f fffd  |    |		.CONST	0x067f,0xfffd
1010 0680 fffc  |    |		.CONST	0x0680,0xfffc
1012 0681 fffb  |    |		.CONST	0x0681,0xfffb
1014 0682 0001  |    |		.CONST	0x0682,0x0001
1016 0687 0002  |    |		.CONST	0x0687,0x0002
1018 068d 0003  |    |		.CONST	0x068d,0x0003
101a 068f 0004  |    |		.CONST	0x068f,0x0004
101c 0694 0005  |    |		.CONST	0x0694,0x0005
101e 0698 0006  |    |		.CONST	0x0698,0x0006
1020 069b 0007  |    |		.CONST	0x069b,0x0007
1022 069d 0008  |    |		.CONST	0x069d,0x0008
1024 06b3 0009  |    |		.CONST	0x06b3,0x0009
1026 ; --------------------------------------------------------------------------------------
1026 ; Debug3 Subtable 0x1d
1026 ; --------------------------------------------------------------------------------------
1026 0001 0008  |    |		.DBG3TAB	0x0001,0x0008
1028 06d3 ffff  |    |		.CONST	0x06d3,0xffff
102a 06d8 0001  |    |		.CONST	0x06d8,0x0001
102c 06df 0002  |    |		.CONST	0x06df,0x0002
102e 06e5 0003  |    |		.CONST	0x06e5,0x0003
1030 06e9 0004  |    |		.CONST	0x06e9,0x0004
1032 06eb 0005  |    |		.CONST	0x06eb,0x0005
1034 06f5 0006  |    |		.CONST	0x06f5,0x0006
1036 0703 0007  |    |		.CONST	0x0703,0x0007
1038 0709 0008  |    |		.CONST	0x0709,0x0008
103a ; --------------------------------------------------------------------------------------
103a ; Debug3 Subtable 0x1e
103a ; --------------------------------------------------------------------------------------
103a 0004 0024  |   $|		.DBG3TAB	0x0004,0x0024
103c 0723 ffff  | #  |		.CONST	0x0723,0xffff
103e 072a 0001  | *  |		.CONST	0x072a,0x0001
1040 072a 0401  | *  |		.CONST	0x072a,0x0401
1042 072b 0402  | +  |		.CONST	0x072b,0x0402
1044 072c 0403  | ,  |		.CONST	0x072c,0x0403
1046 072c 0404  | ,  |		.CONST	0x072c,0x0404
1048 072c 0001  | ,  |		.CONST	0x072c,0x0001
104a 0734 000a  | 4  |		.CONST	0x0734,0x000a
104c 0736 0002  | 6  |		.CONST	0x0736,0x0002
104e 0739 0003  | 9  |		.CONST	0x0739,0x0003
1050 0739 0004  | 9  |		.CONST	0x0739,0x0004
1052 073d 0005  | =  |		.CONST	0x073d,0x0005
1054 073d 0801  | =  |		.CONST	0x073d,0x0801
1056 073e 0802  | >  |		.CONST	0x073e,0x0802
1058 073f 0803  | ?  |		.CONST	0x073f,0x0803
105a 073f 0804  | ?  |		.CONST	0x073f,0x0804
105c 073f 0005  | ?  |		.CONST	0x073f,0x0005
105e 0743 0008  | C  |		.CONST	0x0743,0x0008
1060 0747 0006  | G  |		.CONST	0x0747,0x0006
1062 074d 0007  | M  |		.CONST	0x074d,0x0007
1064 0751 0009  | Q  |		.CONST	0x0751,0x0009
1066 0754 000b  | T  |		.CONST	0x0754,0x000b
1068 0754 000c  | T  |		.CONST	0x0754,0x000c
106a 0755 f3ff  | U  |		.CONST	0x0755,0xf3ff
106c 0762 0c01  | b  |		.CONST	0x0762,0x0c01
106e 0764 0c02  | d  |		.CONST	0x0764,0x0c02
1070 076a 0c03  | j  |		.CONST	0x076a,0x0c03
1072 0771 000d  | q  |		.CONST	0x0771,0x000d
1074 0773 000e  | s  |		.CONST	0x0773,0x000e
1076 0773 000f  | s  |		.CONST	0x0773,0x000f
1078 0774 efff  | t  |		.CONST	0x0774,0xefff
107a 0778 1401  | x  |		.CONST	0x0778,0x1401
107c 0779 1402  | y  |		.CONST	0x0779,0x1402
107e 077a 1403  | z  |		.CONST	0x077a,0x1403
1080 077a 1404  | z  |		.CONST	0x077a,0x1404
1082 077a efff  | z  |		.CONST	0x077a,0xefff
1084 0782 1001  |    |		.CONST	0x0782,0x1001
1086 0784 1002  |    |		.CONST	0x0784,0x1002
1088 078a 1003  |    |		.CONST	0x078a,0x1003
108a 0791 0010  |    |		.CONST	0x0791,0x0010
108c ; --------------------------------------------------------------------------------------
108c ; Debug3 Subtable 0x1f
108c ; --------------------------------------------------------------------------------------
108c 0000 0010  |    |		.DBG3TAB	0x0000,0x0010
108e 079b 0001  |    |		.CONST	0x079b,0x0001
1090 079b 0401  |    |		.CONST	0x079b,0x0401
1092 079c 0402  |    |		.CONST	0x079c,0x0402
1094 079d 0403  |    |		.CONST	0x079d,0x0403
1096 079d 0404  |    |		.CONST	0x079d,0x0404
1098 079d 0001  |    |		.CONST	0x079d,0x0001
109a 07ab 0009  |    |		.CONST	0x07ab,0x0009
109c 07ab 0801  |    |		.CONST	0x07ab,0x0801
109e 07ac 0009  |    |		.CONST	0x07ac,0x0009
10a0 07ad 0002  |    |		.CONST	0x07ad,0x0002
10a2 07b3 0003  |    |		.CONST	0x07b3,0x0003
10a4 07b9 0004  |    |		.CONST	0x07b9,0x0004
10a6 07bf 0005  |    |		.CONST	0x07bf,0x0005
10a8 07c5 0006  |    |		.CONST	0x07c5,0x0006
10aa 07cb 0007  |    |		.CONST	0x07cb,0x0007
10ac 07d1 0008  |    |		.CONST	0x07d1,0x0008
10ae ; --------------------------------------------------------------------------------------
10ae ; Debug3 Subtable 0x20
10ae ; --------------------------------------------------------------------------------------
10ae 0004 0034  |   4|		.DBG3TAB	0x0004,0x0034
10b0 07db ffff  |    |		.CONST	0x07db,0xffff
10b2 07dc fffe  |    |		.CONST	0x07dc,0xfffe
10b4 07dd fffd  |    |		.CONST	0x07dd,0xfffd
10b6 07de fffc  |    |		.CONST	0x07de,0xfffc
10b8 07df 0001  |    |		.CONST	0x07df,0x0001
10ba 07e1 0002  |    |		.CONST	0x07e1,0x0002
10bc 07e3 0003  |    |		.CONST	0x07e3,0x0003
10be 07e3 0401  |    |		.CONST	0x07e3,0x0401
10c0 07e4 0003  |    |		.CONST	0x07e4,0x0003
10c2 07e7 0005  |    |		.CONST	0x07e7,0x0005
10c4 07e8 0801  |    |		.CONST	0x07e8,0x0801
10c6 07ea 0802  |    |		.CONST	0x07ea,0x0802
10c8 07ec 0803  |    |		.CONST	0x07ec,0x0803
10ca 07f0 0804  |    |		.CONST	0x07f0,0x0804
10cc 07f4 0805  |    |		.CONST	0x07f4,0x0805
10ce 07f5 0c01  |    |		.CONST	0x07f5,0x0c01
10d0 07f6 0c02  |    |		.CONST	0x07f6,0x0c02
10d2 07f7 0c03  |    |		.CONST	0x07f7,0x0c03
10d4 07f7 0c04  |    |		.CONST	0x07f7,0x0c04
10d6 07f9 0805  |    |		.CONST	0x07f9,0x0805
10d8 0802 1001  |    |		.CONST	0x0802,0x1001
10da 0803 1002  |    |		.CONST	0x0803,0x1002
10dc 0804 1003  |    |		.CONST	0x0804,0x1003
10de 0804 1004  |    |		.CONST	0x0804,0x1004
10e0 0806 0c04  |    |		.CONST	0x0806,0x0c04
10e2 0814 0005  |    |		.CONST	0x0814,0x0005
10e4 0815 0006  |    |		.CONST	0x0815,0x0006
10e6 0815 1401  |    |		.CONST	0x0815,0x1401
10e8 0817 1402  |    |		.CONST	0x0817,0x1402
10ea 0819 1403  |    |		.CONST	0x0819,0x1403
10ec 081c 0006  |    |		.CONST	0x081c,0x0006
10ee 081d 0007  |    |		.CONST	0x081d,0x0007
10f0 081d 1801  |    |		.CONST	0x081d,0x1801
10f2 081e 1802  |    |		.CONST	0x081e,0x1802
10f4 081f 1803  |    |		.CONST	0x081f,0x1803
10f6 081f 1804  |    |		.CONST	0x081f,0x1804
10f8 081f 0007  |    |		.CONST	0x081f,0x0007
10fa 0821 0008  | !  |		.CONST	0x0821,0x0008
10fc 0824 0009  | $  |		.CONST	0x0824,0x0009
10fe 0828 000a  | (  |		.CONST	0x0828,0x000a
1100 082a 000b  | *  |		.CONST	0x082a,0x000b
1102 082c 0004  | ,  |		.CONST	0x082c,0x0004
1104 082c 1c01  | ,  |		.CONST	0x082c,0x1c01
1106 082e 0004  | .  |		.CONST	0x082e,0x0004
1108 0830 000c  | 0  |		.CONST	0x0830,0x000c
110a 0830 2001  | 0  |		.CONST	0x0830,0x2001
110c 0831 2002  | 1  |		.CONST	0x0831,0x2002
110e 0832 2003  | 2  |		.CONST	0x0832,0x2003
1110 0832 2004  | 2  |		.CONST	0x0832,0x2004
1112 0832 000c  | 2  |		.CONST	0x0832,0x000c
1114 0834 000e  | 4  |		.CONST	0x0834,0x000e
1116 0838 000f  | 8  |		.CONST	0x0838,0x000f
1118 083a 0010  | :  |		.CONST	0x083a,0x0010
111a 083a 2401  | :$ |		.CONST	0x083a,0x2401
111c 083b 0010  | ;  |		.CONST	0x083b,0x0010
111e 083c 000d  | <  |		.CONST	0x083c,0x000d
1120 ; --------------------------------------------------------------------------------------
1120 ; Debug3 Subtable 0x21
1120 ; --------------------------------------------------------------------------------------
1120 000a 003e  |   >|		.DBG3TAB	0x000a,0x003e
1122 084b ffff  | K  |		.CONST	0x084b,0xffff
1124 084f fffe  | O  |		.CONST	0x084f,0xfffe
1126 0854 fffd  | T  |		.CONST	0x0854,0xfffd
1128 085a fffc  | Z  |		.CONST	0x085a,0xfffc
112a 085b fffb  | [  |		.CONST	0x085b,0xfffb
112c 085c fffa  | \  |		.CONST	0x085c,0xfffa
112e 085d fff9  | ]  |		.CONST	0x085d,0xfff9
1130 085e fff8  | ^  |		.CONST	0x085e,0xfff8
1132 085f fff7  | _  |		.CONST	0x085f,0xfff7
1134 0860 fff6  | `  |		.CONST	0x0860,0xfff6
1136 0863 0001  | c  |		.CONST	0x0863,0x0001
1138 086a 0002  | j  |		.CONST	0x086a,0x0002
113a 0872 0004  | r  |		.CONST	0x0872,0x0004
113c 0873 0401  | s  |		.CONST	0x0873,0x0401
113e 0875 0402  | u  |		.CONST	0x0875,0x0402
1140 0877 0403  | w  |		.CONST	0x0877,0x0403
1142 087b 0404  | {  |		.CONST	0x087b,0x0404
1144 087f 0405  |    |		.CONST	0x087f,0x0405
1146 0880 0801  |    |		.CONST	0x0880,0x0801
1148 0881 0802  |    |		.CONST	0x0881,0x0802
114a 0882 0803  |    |		.CONST	0x0882,0x0803
114c 0882 0804  |    |		.CONST	0x0882,0x0804
114e 0884 0405  |    |		.CONST	0x0884,0x0405
1150 088d 0c01  |    |		.CONST	0x088d,0x0c01
1152 088e 0c02  |    |		.CONST	0x088e,0x0c02
1154 088f 0c03  |    |		.CONST	0x088f,0x0c03
1156 088f 0c04  |    |		.CONST	0x088f,0x0c04
1158 0891 0804  |    |		.CONST	0x0891,0x0804
115a 089f 0004  |    |		.CONST	0x089f,0x0004
115c 08a0 0005  |    |		.CONST	0x08a0,0x0005
115e 08a0 1001  |    |		.CONST	0x08a0,0x1001
1160 08a2 1002  |    |		.CONST	0x08a2,0x1002
1162 08a4 1003  |    |		.CONST	0x08a4,0x1003
1164 08a7 0005  |    |		.CONST	0x08a7,0x0005
1166 08a8 0006  |    |		.CONST	0x08a8,0x0006
1168 08a8 1401  |    |		.CONST	0x08a8,0x1401
116a 08a9 1402  |    |		.CONST	0x08a9,0x1402
116c 08aa 1403  |    |		.CONST	0x08aa,0x1403
116e 08aa 1404  |    |		.CONST	0x08aa,0x1404
1170 08aa 0006  |    |		.CONST	0x08aa,0x0006
1172 08ac 0007  |    |		.CONST	0x08ac,0x0007
1174 08b2 0008  |    |		.CONST	0x08b2,0x0008
1176 08b8 0009  |    |		.CONST	0x08b8,0x0009
1178 08be 000b  |    |		.CONST	0x08be,0x000b
117a 08bf 1801  |    |		.CONST	0x08bf,0x1801
117c 08c1 1802  |    |		.CONST	0x08c1,0x1802
117e 08c3 1803  |    |		.CONST	0x08c3,0x1803
1180 08c7 1804  |    |		.CONST	0x08c7,0x1804
1182 08cb 1805  |    |		.CONST	0x08cb,0x1805
1184 08cc 1c01  |    |		.CONST	0x08cc,0x1c01
1186 08cd 1c02  |    |		.CONST	0x08cd,0x1c02
1188 08ce 1c03  |    |		.CONST	0x08ce,0x1c03
118a 08ce 1c04  |    |		.CONST	0x08ce,0x1c04
118c 08d0 1805  |    |		.CONST	0x08d0,0x1805
118e 08d9 2001  |    |		.CONST	0x08d9,0x2001
1190 08da 2002  |    |		.CONST	0x08da,0x2002
1192 08db 2003  |    |		.CONST	0x08db,0x2003
1194 08db 2004  |    |		.CONST	0x08db,0x2004
1196 08dd 1c04  |    |		.CONST	0x08dd,0x1c04
1198 08eb 000b  |    |		.CONST	0x08eb,0x000b
119a 08ec 000c  |    |		.CONST	0x08ec,0x000c
119c 08ec 2401  |  $ |		.CONST	0x08ec,0x2401
119e 08ee 2402  |  $ |		.CONST	0x08ee,0x2402
11a0 08f0 2403  |  $ |		.CONST	0x08f0,0x2403
11a2 08f3 000c  |    |		.CONST	0x08f3,0x000c
11a4 08f4 000d  |    |		.CONST	0x08f4,0x000d
11a6 08f6 000a  |    |		.CONST	0x08f6,0x000a
11a8 08f6 2801  |  ( |		.CONST	0x08f6,0x2801
11aa 08f8 000a  |    |		.CONST	0x08f8,0x000a
11ac 08fb 0003  |    |		.CONST	0x08fb,0x0003
11ae 08fb 2c01  |  , |		.CONST	0x08fb,0x2c01
11b0 08fd 0003  |    |		.CONST	0x08fd,0x0003
11b2 ; --------------------------------------------------------------------------------------
11b2 ; Debug3 Subtable 0x22
11b2 ; --------------------------------------------------------------------------------------
11b2 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
11b4 090b ffff  |    |		.CONST	0x090b,0xffff
11b6 090c fffe  |    |		.CONST	0x090c,0xfffe
11b8 090c 0001  |    |		.CONST	0x090c,0x0001
11ba 0910 0002  |    |		.CONST	0x0910,0x0002
11bc 0916 0003  |    |		.CONST	0x0916,0x0003
11be 0924 0004  | $  |		.CONST	0x0924,0x0004
11c0 ; --------------------------------------------------------------------------------------
11c0 ; Debug3 Subtable 0x23
11c0 ; --------------------------------------------------------------------------------------
11c0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
11c2 092b 0001  | +  |		.CONST	0x092b,0x0001
11c4 ; --------------------------------------------------------------------------------------
11c4 ; Debug3 Subtable 0x24
11c4 ; --------------------------------------------------------------------------------------
11c4 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
11c6 0933 0001  | 3  |		.CONST	0x0933,0x0001
11c8 0933 0401  | 3  |		.CONST	0x0933,0x0401
11ca 0934 0402  | 4  |		.CONST	0x0934,0x0402
11cc 0935 0403  | 5  |		.CONST	0x0935,0x0403
11ce 0935 0404  | 5  |		.CONST	0x0935,0x0404
11d0 0935 0001  | 5  |		.CONST	0x0935,0x0001
11d2 ; --------------------------------------------------------------------------------------
11d2 ; Debug3 Subtable 0x25
11d2 ; --------------------------------------------------------------------------------------
11d2 0003 0023  |   #|		.DBG3TAB	0x0003,0x0023
11d4 093b ffff  | ;  |		.CONST	0x093b,0xffff
11d6 093c fffe  | <  |		.CONST	0x093c,0xfffe
11d8 093d 0001  | =  |		.CONST	0x093d,0x0001
11da 0943 0002  | C  |		.CONST	0x0943,0x0002
11dc 0948 0401  | H  |		.CONST	0x0948,0x0401
11de 094a 0402  | J  |		.CONST	0x094a,0x0402
11e0 094c 0403  | L  |		.CONST	0x094c,0x0403
11e2 0950 0404  | P  |		.CONST	0x0950,0x0404
11e4 0954 0405  | T  |		.CONST	0x0954,0x0405
11e6 0955 0801  | U  |		.CONST	0x0955,0x0801
11e8 0956 0802  | V  |		.CONST	0x0956,0x0802
11ea 0957 0803  | W  |		.CONST	0x0957,0x0803
11ec 0957 0804  | W  |		.CONST	0x0957,0x0804
11ee 0959 0405  | Y  |		.CONST	0x0959,0x0405
11f0 0962 0c01  | b  |		.CONST	0x0962,0x0c01
11f2 0963 0c02  | c  |		.CONST	0x0963,0x0c02
11f4 0964 0c03  | d  |		.CONST	0x0964,0x0c03
11f6 0964 0c04  | d  |		.CONST	0x0964,0x0c04
11f8 0966 0804  | f  |		.CONST	0x0966,0x0804
11fa 0974 0002  | t  |		.CONST	0x0974,0x0002
11fc 0975 0003  | u  |		.CONST	0x0975,0x0003
11fe 0976 1001  | v  |		.CONST	0x0976,0x1001
1200 0977 1401  | w  |		.CONST	0x0977,0x1401
1202 0978 1402  | x  |		.CONST	0x0978,0x1402
1204 0979 1403  | y  |		.CONST	0x0979,0x1403
1206 0979 1404  | y  |		.CONST	0x0979,0x1404
1208 097b 1001  | {  |		.CONST	0x097b,0x1001
120a 0982 0003  |    |		.CONST	0x0982,0x0003
120c 0983 0004  |    |		.CONST	0x0983,0x0004
120e 0984 e7ff  |    |		.CONST	0x0984,0xe7ff
1210 0989 1801  |    |		.CONST	0x0989,0x1801
1212 098e 1802  |    |		.CONST	0x098e,0x1802
1214 0990 1803  |    |		.CONST	0x0990,0x1803
1216 0995 1804  |    |		.CONST	0x0995,0x1804
1218 0997 1805  |    |		.CONST	0x0997,0x1805
121a 099c 1806  |    |		.CONST	0x099c,0x1806
121c 099e 1807  |    |		.CONST	0x099e,0x1807
121e 09a0 0005  |    |		.CONST	0x09a0,0x0005
1220 ; --------------------------------------------------------------------------------------
1220 ; Debug3 Subtable 0x26
1220 ; --------------------------------------------------------------------------------------
1220 0002 000e  |    |		.DBG3TAB	0x0002,0x000e
1222 09ab ffff  |    |		.CONST	0x09ab,0xffff
1224 09ac fffe  |    |		.CONST	0x09ac,0xfffe
1226 09ad 0001  |    |		.CONST	0x09ad,0x0001
1228 09ad 0401  |    |		.CONST	0x09ad,0x0401
122a 09ae 0001  |    |		.CONST	0x09ae,0x0001
122c 09b3 0002  |    |		.CONST	0x09b3,0x0002
122e 09b3 0801  |    |		.CONST	0x09b3,0x0801
1230 09b4 0802  |    |		.CONST	0x09b4,0x0802
1232 09b5 0803  |    |		.CONST	0x09b5,0x0803
1234 09b5 0804  |    |		.CONST	0x09b5,0x0804
1236 09b5 0002  |    |		.CONST	0x09b5,0x0002
1238 09b7 0007  |    |		.CONST	0x09b7,0x0007
123a 09b9 0003  |    |		.CONST	0x09b9,0x0003
123c 09bf 0004  |    |		.CONST	0x09bf,0x0004
123e 09c1 0005  |    |		.CONST	0x09c1,0x0005
1240 09c3 0006  |    |		.CONST	0x09c3,0x0006
1242 ; --------------------------------------------------------------------------------------
1242 ; Debug3 Subtable 0x27
1242 ; --------------------------------------------------------------------------------------
1242 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
1244 09cb 0001  |    |		.CONST	0x09cb,0x0001
1246 09d7 0002  |    |		.CONST	0x09d7,0x0002
1248 ; --------------------------------------------------------------------------------------
1248 ; Debug3 Subtable 0x28
1248 ; --------------------------------------------------------------------------------------
1248 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
124a 09e3 0001  |    |		.CONST	0x09e3,0x0001
124c 09ef 0002  |    |		.CONST	0x09ef,0x0002
124e ; --------------------------------------------------------------------------------------
124e ; Debug3 Subtable 0x29
124e ; --------------------------------------------------------------------------------------
124e 0001 0014  |    |		.DBG3TAB	0x0001,0x0014
1250 09fb 0001  |    |		.CONST	0x09fb,0x0001
1252 0a03 0002  |    |		.CONST	0x0a03,0x0002
1254 0a03 0401  |    |		.CONST	0x0a03,0x0401
1256 0a04 0402  |    |		.CONST	0x0a04,0x0402
1258 0a05 0403  |    |		.CONST	0x0a05,0x0403
125a 0a05 0404  |    |		.CONST	0x0a05,0x0404
125c 0a05 0002  |    |		.CONST	0x0a05,0x0002
125e 0a0b 0007  |    |		.CONST	0x0a0b,0x0007
1260 0a0d 0008  |    |		.CONST	0x0a0d,0x0008
1262 0a16 0009  |    |		.CONST	0x0a16,0x0009
1264 0a1e 000a  |    |		.CONST	0x0a1e,0x000a
1266 0a21 0003  | !  |		.CONST	0x0a21,0x0003
1268 0a2c 0004  | ,  |		.CONST	0x0a2c,0x0004
126a 0a31 0005  | 1  |		.CONST	0x0a31,0x0005
126c 0a45 000b  | E  |		.CONST	0x0a45,0x000b
126e 0a4a 000c  | J  |		.CONST	0x0a4a,0x000c
1270 0a4b 000d  | K  |		.CONST	0x0a4b,0x000d
1272 0a4c f7ff  | L  |		.CONST	0x0a4c,0xf7ff
1274 0a5f 0801  | _  |		.CONST	0x0a5f,0x0801
1276 0a61 0802  | a  |		.CONST	0x0a61,0x0802
1278 0a67 0803  | g  |		.CONST	0x0a67,0x0803
127a 0000 0000  |    |		.BLANK	0000[0x186]