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

⟦61ee635fc⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0630       | 0  |		.CONST	0x0630								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005c       | \  |		.CONST	0x005c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x06c2,0x0000,0x0000,0x005a,0x8bd5,0x0000,0x0a2c
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 00bf       |    |		Action	Accept_Activation
001c e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x001c,0x06d4,0x0000,0x0000,0x005a,0x8be5,0x0000,0x0006
													; Debug Table 0x1.0x0 = 0x1c,0xffff
001d 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
001e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001f 0266       | f  |		Execute	Discrete,Bounds
0020 00e8       |    |		Load_Encached	Character_Cache
0021 02a0       |    |		Declare_Subprogram	Null_Subprogram
0022 4801       |H   |		Short_Literal	0x1
0023 035d       | ]  |		Declare_Type	Array,Defined
0024 00d8       |    |		Load_Top	At_Offset_0
0025 0337       | 7  |		Declare_Variable	Array
0026 00d8       |    |		Load_Top	At_Offset_0
0027 0337       | 7  |		Declare_Variable	Array
0028 484e       |HN  |		Short_Literal	0x4e
0029 4800       |H   |		Short_Literal	0x0
002a 00da       |    |		Load_Top	At_Offset_2
002b 01d6       |    |		Execute	Vector,Field_Write
002c 4841       |HA  |		Short_Literal	0x41
002d 4801       |H   |		Short_Literal	0x1
002e 00da       |    |		Load_Top	At_Offset_2
002f 01d6       |    |		Execute	Vector,Field_Write
0030 4853       |HS  |		Short_Literal	0x53
0031 4802       |H   |		Short_Literal	0x2
0032 00da       |    |		Load_Top	At_Offset_2
0033 01d6       |    |		Execute	Vector,Field_Write
0034 4849       |HI  |		Short_Literal	0x49
0035 4803       |H   |		Short_Literal	0x3
0036 00da       |    |		Load_Top	At_Offset_2
0037 01d6       |    |		Execute	Vector,Field_Write
0038 4843       |HC  |		Short_Literal	0x43
0039 4804       |H   |		Short_Literal	0x4
003a 00da       |    |		Load_Top	At_Offset_2
003b 01d6       |    |		Execute	Vector,Field_Write
003c 00d9       |    |		Load_Top	At_Offset_1
003d 01d4       |    |		Execute	Vector,Structure_Write
003e 029d 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call			; Debug Table 0x1.0x1 = 0x3e,0xfffe
0040 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x2 = 0x40,0xfffd
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x3 = 0x42,0xfffc
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x4 = 0x44,0xfffb
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x5 = 0x46,0xfffa
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 029d 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call			; Debug Table 0x1.0x6 = 0x48,0xfff9
004a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x7 = 0x4a,0xfff8
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 029d 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call			; Debug Table 0x1.0x8 = 0x4c,0xfff7
004e 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call			; Debug Table 0x1.0x9 = 0x4e,0xfff6
0050 029d 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call			; Debug Table 0x1.0xa = 0x50,0xfff5
0052 029d 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call			; Debug Table 0x1.0xb = 0x52,0xfff4
0054 029d 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call			; Debug Table 0x1.0xc = 0x54,0xfff3
0056 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0xd = 0x56,0xfff2
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xe = 0x58,0xfff1
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0xf = 0x5a,0xfff0
005b 00c7       |    |		Action	Elaborate_Subprogram
005c			BODY_0008:
005c 00bc       |    |		Action	Signal_Activated
005d 00bb       |    |		Action	Signal_Completion
005e 0000 0000  |    |		.XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0068       | h  |		.CONST	0x0068								; Address of begin
0061 00a8       |    |		.CONST	0x00a8								; Address of exception handler
0062 0003       |    |		.CONST	0x0003								; Number of locals
0063			INIT_0060:
0063 e002       |    |		Load	0x0,0x2								; Debug Table 0x2 = .DEBUG	0x0063,0x06f6,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a2d
													; Debug Table 0x2.0x0 = 0x63,0xffff
0064 0007       |    |		Action	Break_Optional
0065 e003       |    |		Load	0x0,0x3								; Debug Table 0x2.0x1 = 0x65,0xfffe
0066 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0067 0322       | "  |		Declare_Variable	Record
0068			BODY_0060:
0068 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x2 = 0x68,0x1
0069 4801       |H   |		Short_Literal	0x1
006a e5ff       |    |		Load	0x2,-0x1
006b e004       |    |		Load	0x0,0x4
006c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
006d 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
006e 4805       |H   |		Short_Literal	0x5							; Debug Table 0x2.0x3 = 0x6e,0x2
006f 00da       |    |		Load_Top	At_Offset_2
0070 0217       |    |		Execute	Heap_Access,All_Reference
0071 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0072 e005       |    |		Load	0x0,0x5
0073 01a7       |    |		Execute	Matrix,Field_Read
0074 7003       |p   |		Jump_Nonzero	0x78
0075 4805       |H   |		Short_Literal	0x5							; Debug Table 0x2.0x4 = 0x75,0x3
0076 8006       |    |		Call	0x0,0x6
0077 782c       |x,  |		Jump	0xa4
0078 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x5 = 0x78,0x4
0079 0217       |    |		Execute	Heap_Access,All_Reference
007a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
007b 0f0a       |    |		Execute_Immediate	Equal,0xa
007c 681d       |h   |		Jump_Zero	0x9a
007d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x6 = 0x7d,0x5
007e 0217       |    |		Execute	Heap_Access,All_Reference
007f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0080 0007       |    |		Action	Break_Optional
0081 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0x2.0x7 = 0x81,0x401
0082 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x8 = 0x82,0x5
0083 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0x2.0x9 = 0x83,0x801
0084 e007       |    |		Load	0x0,0x7								; Debug Table 0x2.0xa = 0x84,0x401
0085 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
0086 00da       |    |		Load_Top	At_Offset_2
0087 0217       |    |		Execute	Heap_Access,All_Reference
0088 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0089 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0xb = 0x89,0x6
008a 00d9       |    |		Load_Top	At_Offset_1
008b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
008c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xc = 0x8c,0x7
008d 00da       |    |		Load_Top	At_Offset_2
008e 0217       |    |		Execute	Heap_Access,All_Reference
008f 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
0090 00db       |    |		Load_Top	At_Offset_3
0091 0217       |    |		Execute	Heap_Access,All_Reference
0092 3c21       |<!  |		Execute	Record,Field_Read,Field_Number 0x21
0093 0217       |    |		Execute	Heap_Access,All_Reference
0094 8008       |    |		Call	0x0,0x8
0095 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0xd = 0x95,0x8
0096 00da       |    |		Load_Top	At_Offset_2
0097 e009       |    |		Load	0x0,0x9
0098 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0099 780a       |x   |		Jump	0xa4
009a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0xe = 0x9a,0x9
009b 0217       |    |		Execute	Heap_Access,All_Reference
009c 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
009d e007       |    |		Load	0x0,0x7
009e 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
009f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0xf = 0x9f,0xa
00a0 4800       |H   |		Short_Literal	0x0
00a1 00db       |    |		Load_Top	At_Offset_3
00a2 e009       |    |		Load	0x0,0x9
00a3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x10 = 0xa4,0xb
00a5 e004       |    |		Load	0x0,0x4
00a6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a8			TRAP_0060:
00a8 62af       |b   |		Indirect_Literal	Discrete,0x358,{0x00000000, 0x5a8bd503}
00a9 010f       |    |		Execute	Exception,Equal
00aa 6801       |h   |		Jump_Zero	0xac
00ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x2.0x11 = 0xab,0xc
00ac 62a7       |b   |		Indirect_Literal	Discrete,0x354,{0x00000000, 0x5a8bd501}
00ad 010f       |    |		Execute	Exception,Equal
00ae 6808       |h   |		Jump_Zero	0xb7
00af 0092 05b8  |    |		Action	Push_String_Extended,0x5b8					; "doe_error"
													; Debug Table 0x2.0x12 = 0xaf,0xd
00b1 0092 05b9  |    |		Action	Push_String_Extended,0x5b9					; "revert"
00b3 e402       |    |		Load	0x2,0x2
00b4 e00a       |    |		Load	0x0,0xa
00b5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b7 e00b       |    |		Load	0x0,0xb								; Debug Table 0x2.0x13 = 0xb7,0xe
00b8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00b9 0092 05b9  |    |		Action	Push_String_Extended,0x5b9					; "revert"
00bb e402       |    |		Load	0x2,0x2
00bc e00a       |    |		Load	0x0,0xa
00bd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00be 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0102       |    |		.CONST	0x0102								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 e002       |    |		Load	0x0,0x2								; Debug Table 0x3 = .DEBUG	0x00c3,0x0720,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a37
													; Debug Table 0x3.0x0 = 0xc3,0xffff
00c4 0007       |    |		Action	Break_Optional
00c5			BODY_00c0:
00c5 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x1 = 0xc5,0x1
00c6 4801       |H   |		Short_Literal	0x1
00c7 e5ff       |    |		Load	0x2,-0x1
00c8 e004       |    |		Load	0x0,0x4
00c9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00ca 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00cb 4806       |H   |		Short_Literal	0x6							; Debug Table 0x3.0x2 = 0xcb,0x2
00cc 00d9       |    |		Load_Top	At_Offset_1
00cd 0217       |    |		Execute	Heap_Access,All_Reference
00ce 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00cf e005       |    |		Load	0x0,0x5
00d0 01a7       |    |		Execute	Matrix,Field_Read
00d1 7006       |p   |		Jump_Nonzero	0xd8
00d2 4806       |H   |		Short_Literal	0x6							; Debug Table 0x3.0x3 = 0xd2,0x3
00d3 8006       |    |		Call	0x0,0x6
00d4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x4 = 0xd4,0x4
00d5 e004       |    |		Load	0x0,0x4
00d6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00d7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x3.0x5 = 0xd7,0x5
00d8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0xd8,0x6
00d9 0217       |    |		Execute	Heap_Access,All_Reference
00da 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
00db 0f03       |    |		Execute_Immediate	Equal,0x3
00dc 6804       |h   |		Jump_Zero	0xe1
00dd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x7 = 0xdd,0x7
00de e009       |    |		Load	0x0,0x9
00df 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00e0 781d       |x   |		Jump	0xfe
00e1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x8 = 0xe1,0x8
00e2 0217       |    |		Execute	Heap_Access,All_Reference
00e3 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
00e4 e007       |    |		Load	0x0,0x7
00e5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e6 0260       | `  |		Execute	Discrete,In_Type
00e7 6805       |h   |		Jump_Zero	0xed
00e8 0092 05ba  |    |		Action	Push_String_Extended,0x5ba					; "display is already showing demote closure"
													; Debug Table 0x3.0x9 = 0xe8,0x9
00ea e00c       |    |		Load	0x0,0xc
00eb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00ec 7811       |x   |		Jump	0xfe
00ed 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0xa = 0xed,0xa
00ee 0217       |    |		Execute	Heap_Access,All_Reference
00ef 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
00f0 e00d       |    |		Load	0x0,0xd
00f1 0260       | `  |		Execute	Discrete,In_Type
00f2 6806       |h   |		Jump_Zero	0xf9
00f3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0xb = 0xf3,0xb
00f4 4804       |H   |		Short_Literal	0x4
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 e009       |    |		Load	0x0,0x9
00f7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f8 7805       |x   |		Jump	0xfe
00f9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0xc = 0xf9,0xc
00fa 4805       |H   |		Short_Literal	0x5
00fb 00da       |    |		Load_Top	At_Offset_2
00fc e009       |    |		Load	0x0,0x9
00fd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00fe 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0xd = 0xfe,0xd
00ff e004       |    |		Load	0x0,0x4
0100 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0101 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0102			TRAP_00c0:
0102 6255       |bU  |		Indirect_Literal	Discrete,0x358,{0x00000000, 0x5a8bd503}
0103 010f       |    |		Execute	Exception,Equal
0104 6801       |h   |		Jump_Zero	0x106
0105 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x3.0xe = 0x105,0xe
0106 624d       |bM  |		Indirect_Literal	Discrete,0x354,{0x00000000, 0x5a8bd501}
0107 010f       |    |		Execute	Exception,Equal
0108 6808       |h   |		Jump_Zero	0x111
0109 0092 05b8  |    |		Action	Push_String_Extended,0x5b8					; "doe_error"
													; Debug Table 0x3.0xf = 0x109,0xf
010b 0092 05bb  |    |		Action	Push_String_Extended,0x5bb					; "complete"
010d 00db       |    |		Load_Top	At_Offset_3
010e e00a       |    |		Load	0x0,0xa
010f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0110 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0111 e00b       |    |		Load	0x0,0xb								; Debug Table 0x3.0x10 = 0x111,0x10
0112 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0113 0092 05bb  |    |		Action	Push_String_Extended,0x5bb					; "complete"
0115 00db       |    |		Load_Top	At_Offset_3
0116 e00a       |    |		Load	0x0,0xa
0117 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0118 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0119 0000 0000  |    |		.BLANK	0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012a       | *  |		.CONST	0x012a								; Address of begin
0121 01aa       |    |		.CONST	0x01aa								; Address of exception handler
0122 0005       |    |		.CONST	0x0005								; Number of locals
0123			INIT_0120:
0123 e002       |    |		Load	0x0,0x2								; Debug Table 0x4 = .DEBUG	0x0123,0x0744,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a4b
													; Debug Table 0x4.0x0 = 0x123,0xffff
0124 0007       |    |		Action	Break_Optional
0125 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x1 = 0x125,0xfffe
0126 0007       |    |		Action	Break_Optional
0127 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x4.0x2 = 0x127,0xfffd
0128 029f 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Call
012a			BODY_0120:
012a e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x3 = 0x12a,0x1
012b 4801       |H   |		Short_Literal	0x1
012c e5ff       |    |		Load	0x2,-0x1
012d e004       |    |		Load	0x0,0x4
012e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
012f c402       |    |		Store	0x2,0x2
0130 4807       |H   |		Short_Literal	0x7							; Debug Table 0x4.0x4 = 0x130,0x2
0131 e402       |    |		Load	0x2,0x2
0132 0217       |    |		Execute	Heap_Access,All_Reference
0133 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0134 e005       |    |		Load	0x0,0x5
0135 01a7       |    |		Execute	Matrix,Field_Read
0136 7006       |p   |		Jump_Nonzero	0x13d
0137 4807       |H   |		Short_Literal	0x7							; Debug Table 0x4.0x5 = 0x137,0x3
0138 8006       |    |		Call	0x0,0x6
0139 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x6 = 0x139,0x4
013a e004       |    |		Load	0x0,0x4
013b 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
013c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0x7 = 0x13c,0x5
013d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x8 = 0x13d,0x6
013e 0217       |    |		Execute	Heap_Access,All_Reference
013f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0140 0b0d       |    |		Execute_Immediate	Case_Compare,0xd
0141 7005       |p   |		Jump_Nonzero	0x147
0142 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0143 701f       |p   |		Jump_Nonzero	0x163
0144 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x9 = 0x144,0x10
0145 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0146 781e       |x   |		Jump	0x165
0147 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0xa = 0x147,0x7
0148 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0149 6805       |h   |		Jump_Zero	0x14f
014a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0xb = 0x14a,0x8
014b 0aff       |    |		Execute_Immediate	Plus,-0x1
014c 0248       | H  |		Execute	Discrete,Check_In_Integer
014d 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
014e 7816       |x   |		Jump	0x165
014f e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0xc = 0x14f,0x9
0150 0217       |    |		Execute	Heap_Access,All_Reference
0151 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0152 e007       |    |		Load	0x0,0x7
0153 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0154 e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0xd = 0x154,0xa
0155 0217       |    |		Execute	Heap_Access,All_Reference
0156 3c18       |<   |		Execute	Record,Field_Read,Field_Number 0x18
0157 e402       |    |		Load	0x2,0x2
0158 0217       |    |		Execute	Heap_Access,All_Reference
0159 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
015a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4.0xe = 0x15a,0xb
015b 4800       |H   |		Short_Literal	0x0
015c e402       |    |		Load	0x2,0x2
015d e009       |    |		Load	0x0,0x9
015e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015f e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0xf = 0x15f,0xc
0160 e004       |    |		Load	0x0,0x4
0161 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0162 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0x10 = 0x162,0xd
0163 8405       |    |		Call	0x2,0x5								; Debug Table 0x4.0x11 = 0x163,0xe
0164 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0x12 = 0x164,0xf
0165 00d1       |    |		Pop_Control	Pop_Count_1
0166 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x13 = 0x166,0x11
0167 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x14 = 0x167,0x12
0168 0217       |    |		Execute	Heap_Access,All_Reference
0169 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
016a 7008       |p   |		Jump_Nonzero	0x173
016b 0092 05bc  |    |		Action	Push_String_Extended,0x5bc					; "viewing last image in list"
													; Debug Table 0x4.0x15 = 0x16b,0x13
016d e00c       |    |		Load	0x0,0xc
016e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
016f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x16 = 0x16f,0x14
0170 e004       |    |		Load	0x0,0x4
0171 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0172 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0x17 = 0x172,0x15
0173 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x18 = 0x173,0x16
0174 0217       |    |		Execute	Heap_Access,All_Reference
0175 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
0176 0217       |    |		Execute	Heap_Access,All_Reference
0177 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0178 e007       |    |		Load	0x0,0x7
0179 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
017a 7001       |p   |		Jump_Nonzero	0x17c
017b 7805       |x   |		Jump	0x181								; Debug Table 0x4.0x19 = 0x17b,0x17
017c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x1a = 0x17c,0x18
017d 0217       |    |		Execute	Heap_Access,All_Reference
017e 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
017f a402       |    |		Store_Unchecked	0x2,0x2
0180 7fe6       |    |		Jump	0x167
0181 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x1b = 0x181,0x19
0182 0217       |    |		Execute	Heap_Access,All_Reference
0183 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
0184 a402       |    |		Store_Unchecked	0x2,0x2
0185 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x1c = 0x185,0x1a
0186 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x1d = 0x186,0x1a
0187 4802       |H   |		Short_Literal	0x2
0188 0263       | c  |		Execute	Discrete,Above_Bound
0189 701a       |p   |		Jump_Nonzero	0x1a4
018a e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x1e = 0x18a,0x1b
018b 0217       |    |		Execute	Heap_Access,All_Reference
018c 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
018d a403       |    |		Store_Unchecked	0x2,0x3
018e e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x1f = 0x18e,0x1c
018f 7002       |p   |		Jump_Nonzero	0x192
0190 00d2       |    |		Pop_Control	Pop_Count_2
0191 7812       |x   |		Jump	0x1a4
0192 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x20 = 0x192,0x1d
0193 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x21 = 0x193,0x1e
0194 0217       |    |		Execute	Heap_Access,All_Reference
0195 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0196 e007       |    |		Load	0x0,0x7
0197 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0198 6808       |h   |		Jump_Zero	0x1a1
0199 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x22 = 0x199,0x1f
019a 0217       |    |		Execute	Heap_Access,All_Reference
019b 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
019c a403       |    |		Store_Unchecked	0x2,0x3
019d e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x23 = 0x19d,0x20
019e 77f4       |w   |		Jump_Nonzero	0x193
019f 00d2       |    |		Pop_Control	Pop_Count_2
01a0 7803       |x   |		Jump	0x1a4
01a1 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x24 = 0x1a1,0x21
01a2 a402       |    |		Store_Unchecked	0x2,0x2
01a3 3fe6       |?   |		Loop_Increasing	0x18a
01a4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x25 = 0x1a4,0x22
01a5 8217       |    |		Call	0x1,0x17
01a6 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x26 = 0x1a6,0x23
01a7 e004       |    |		Load	0x0,0x4
01a8 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01a9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01aa			TRAP_0120:
01aa 61ad       |a   |		Indirect_Literal	Discrete,0x358,{0x00000000, 0x5a8bd503}
01ab 010f       |    |		Execute	Exception,Equal
01ac 6801       |h   |		Jump_Zero	0x1ae
01ad 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x4.0x27 = 0x1ad,0x24
01ae 61a5       |a   |		Indirect_Literal	Discrete,0x354,{0x00000000, 0x5a8bd501}
01af 010f       |    |		Execute	Exception,Equal
01b0 6808       |h   |		Jump_Zero	0x1b9
01b1 0092 05b8  |    |		Action	Push_String_Extended,0x5b8					; "doe_error"
													; Debug Table 0x4.0x28 = 0x1b1,0x25
01b3 0092 05bd  |    |		Action	Push_String_Extended,0x5bd					; "undo"
01b5 e402       |    |		Load	0x2,0x2
01b6 e00a       |    |		Load	0x0,0xa
01b7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b9 e00b       |    |		Load	0x0,0xb								; Debug Table 0x4.0x29 = 0x1b9,0x26
01ba 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01bb 0092 05bd  |    |		Action	Push_String_Extended,0x5bd					; "undo"
01bd e402       |    |		Load	0x2,0x2
01be e00a       |    |		Load	0x0,0xa
01bf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c1 0000 0000  |    |		.BLANK	0000[0x7]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cf       |    |		.CONST	0x01cf								; Address of begin
01c9 0226       | &  |		.CONST	0x0226								; Address of exception handler
01ca 0003       |    |		.CONST	0x0003								; Number of locals
01cb			INIT_01c8:
01cb e002       |    |		Load	0x0,0x2								; Debug Table 0x5 = .DEBUG	0x01cb,0x079a,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a59
													; Debug Table 0x5.0x0 = 0x1cb,0xffff
01cc 0007       |    |		Action	Break_Optional
01cd e002       |    |		Load	0x0,0x2								; Debug Table 0x5.0x1 = 0x1cd,0xfffe
01ce 0007       |    |		Action	Break_Optional
01cf			BODY_01c8:
01cf e002       |    |		Load	0x0,0x2								; Debug Table 0x5.0x2 = 0x1cf,0x1
01d0 4801       |H   |		Short_Literal	0x1
01d1 e5ff       |    |		Load	0x2,-0x1
01d2 e004       |    |		Load	0x0,0x4
01d3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01d4 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01d5 4808       |H   |		Short_Literal	0x8							; Debug Table 0x5.0x3 = 0x1d5,0x2
01d6 00da       |    |		Load_Top	At_Offset_2
01d7 0217       |    |		Execute	Heap_Access,All_Reference
01d8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01d9 e005       |    |		Load	0x0,0x5
01da 01a7       |    |		Execute	Matrix,Field_Read
01db 7006       |p   |		Jump_Nonzero	0x1e2
01dc 4808       |H   |		Short_Literal	0x8							; Debug Table 0x5.0x4 = 0x1dc,0x3
01dd 8006       |    |		Call	0x0,0x6
01de 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x5 = 0x1de,0x4
01df e004       |    |		Load	0x0,0x4
01e0 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x5.0x6 = 0x1e1,0x5
01e2 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x7 = 0x1e2,0x6
01e3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x8 = 0x1e3,0x7
01e4 0217       |    |		Execute	Heap_Access,All_Reference
01e5 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
01e6 7008       |p   |		Jump_Nonzero	0x1ef
01e7 0092 05be  |    |		Action	Push_String_Extended,0x5be					; "viewing first image in list"
													; Debug Table 0x5.0x9 = 0x1e7,0x8
01e9 e00c       |    |		Load	0x0,0xc
01ea 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01eb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xa = 0x1eb,0x9
01ec e004       |    |		Load	0x0,0x4
01ed 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01ee 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x5.0xb = 0x1ee,0xa
01ef 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xc = 0x1ef,0xb
01f0 0217       |    |		Execute	Heap_Access,All_Reference
01f1 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
01f2 0217       |    |		Execute	Heap_Access,All_Reference
01f3 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01f4 e007       |    |		Load	0x0,0x7
01f5 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
01f6 7001       |p   |		Jump_Nonzero	0x1f8
01f7 7805       |x   |		Jump	0x1fd								; Debug Table 0x5.0xd = 0x1f7,0xc
01f8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xe = 0x1f8,0xd
01f9 0217       |    |		Execute	Heap_Access,All_Reference
01fa 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
01fb 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01fc 7fe6       |    |		Jump	0x1e3
01fd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xf = 0x1fd,0xe
01fe 0217       |    |		Execute	Heap_Access,All_Reference
01ff 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0200 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0201 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x10 = 0x201,0xf
0202 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x11 = 0x202,0xf
0203 4802       |H   |		Short_Literal	0x2
0204 0263       | c  |		Execute	Discrete,Above_Bound
0205 701a       |p   |		Jump_Nonzero	0x220
0206 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x12 = 0x206,0x10
0207 0217       |    |		Execute	Heap_Access,All_Reference
0208 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0209 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
020a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x13 = 0x20a,0x11
020b 7002       |p   |		Jump_Nonzero	0x20e
020c 00d2       |    |		Pop_Control	Pop_Count_2
020d 7812       |x   |		Jump	0x220
020e 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x14 = 0x20e,0x12
020f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x15 = 0x20f,0x13
0210 0217       |    |		Execute	Heap_Access,All_Reference
0211 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0212 e007       |    |		Load	0x0,0x7
0213 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0214 6808       |h   |		Jump_Zero	0x21d
0215 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x16 = 0x215,0x14
0216 0217       |    |		Execute	Heap_Access,All_Reference
0217 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
0218 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0219 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x17 = 0x219,0x15
021a 77f4       |w   |		Jump_Nonzero	0x20f
021b 00d2       |    |		Pop_Control	Pop_Count_2
021c 7803       |x   |		Jump	0x220
021d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5.0x18 = 0x21d,0x16
021e a402       |    |		Store_Unchecked	0x2,0x2
021f 3fe6       |?   |		Loop_Increasing	0x206
0220 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x19 = 0x220,0x17
0221 8217       |    |		Call	0x1,0x17
0222 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x1a = 0x222,0x18
0223 e004       |    |		Load	0x0,0x4
0224 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0225 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0226			TRAP_01c8:
0226 6131       |a1  |		Indirect_Literal	Discrete,0x358,{0x00000000, 0x5a8bd503}
0227 010f       |    |		Execute	Exception,Equal
0228 6801       |h   |		Jump_Zero	0x22a
0229 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x5.0x1b = 0x229,0x19
022a 6129       |a)  |		Indirect_Literal	Discrete,0x354,{0x00000000, 0x5a8bd501}
022b 010f       |    |		Execute	Exception,Equal
022c 6808       |h   |		Jump_Zero	0x235
022d 0092 05b8  |    |		Action	Push_String_Extended,0x5b8					; "doe_error"
													; Debug Table 0x5.0x1c = 0x22d,0x1a
022f 0092 05bf  |    |		Action	Push_String_Extended,0x5bf					; "redo"
0231 e402       |    |		Load	0x2,0x2
0232 e00a       |    |		Load	0x0,0xa
0233 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0234 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0235 e00b       |    |		Load	0x0,0xb								; Debug Table 0x5.0x1d = 0x235,0x1b
0236 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0237 0092 05bf  |    |		Action	Push_String_Extended,0x5bf					; "redo"
0239 e402       |    |		Load	0x2,0x2
023a e00a       |    |		Load	0x0,0xa
023b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
023c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 0278       | x  |		.CONST	0x0278								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 e002       |    |		Load	0x0,0x2								; Debug Table 0x6 = .DEBUG	0x0243,0x07d8,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a67
													; Debug Table 0x6.0x0 = 0x243,0xffff
0244 0007       |    |		Action	Break_Optional
0245			BODY_0240:
0245 e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x1 = 0x245,0x1
0246 4801       |H   |		Short_Literal	0x1
0247 e5ff       |    |		Load	0x2,-0x1
0248 e004       |    |		Load	0x0,0x4
0249 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
024a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
024b 4803       |H   |		Short_Literal	0x3							; Debug Table 0x6.0x2 = 0x24b,0x2
024c 00d9       |    |		Load_Top	At_Offset_1
024d 0217       |    |		Execute	Heap_Access,All_Reference
024e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
024f e005       |    |		Load	0x0,0x5
0250 01a7       |    |		Execute	Matrix,Field_Read
0251 7003       |p   |		Jump_Nonzero	0x255
0252 4803       |H   |		Short_Literal	0x3							; Debug Table 0x6.0x3 = 0x252,0x3
0253 8006       |    |		Call	0x0,0x6
0254 781f       |x   |		Jump	0x274
0255 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x4 = 0x255,0x4
0256 0217       |    |		Execute	Heap_Access,All_Reference
0257 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0258 4605       |F   |		Jump_Case	0x6
0259 781a       |x   |		Jump	0x274								; case 0x0
025a 7804       |x   |		Jump	0x25f								; case 0x1
025b 7809       |x   |		Jump	0x265								; case 0x2
025c 780e       |x   |		Jump	0x26b								; case 0x3
025d 7812       |x   |		Jump	0x270								; case 0x4
025e 7811       |x   |		Jump	0x270								; case 0x5
025f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x5 = 0x25f,0x5
0260 4802       |H   |		Short_Literal	0x2
0261 00da       |    |		Load_Top	At_Offset_2
0262 e009       |    |		Load	0x0,0x9
0263 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0264 780f       |x   |		Jump	0x274
0265 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x6 = 0x265,0x6
0266 4803       |H   |		Short_Literal	0x3
0267 00da       |    |		Load_Top	At_Offset_2
0268 e009       |    |		Load	0x0,0x9
0269 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
026a 7809       |x   |		Jump	0x274
026b 0092 05c0  |    |		Action	Push_String_Extended,0x5c0					; "display is showing reference_closure"
													; Debug Table 0x6.0x7 = 0x26b,0x7
026d e00c       |    |		Load	0x0,0xc
026e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
026f 7804       |x   |		Jump	0x274
0270 0092 05c1  |    |		Action	Push_String_Extended,0x5c1					; "semanticize is not appropriate here"
													; Debug Table 0x6.0x8 = 0x270,0x8
0272 e00c       |    |		Load	0x0,0xc
0273 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0274 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x9 = 0x274,0xa
0275 e004       |    |		Load	0x0,0x4
0276 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0277 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0278			TRAP_0240:
0278 60df       |`   |		Indirect_Literal	Discrete,0x358,{0x00000000, 0x5a8bd503}
0279 010f       |    |		Execute	Exception,Equal
027a 6801       |h   |		Jump_Zero	0x27c
027b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x6.0xa = 0x27b,0xb
027c 60d7       |`   |		Indirect_Literal	Discrete,0x354,{0x00000000, 0x5a8bd501}
027d 010f       |    |		Execute	Exception,Equal
027e 6808       |h   |		Jump_Zero	0x287
027f 0092 05b8  |    |		Action	Push_String_Extended,0x5b8					; "doe_error"
													; Debug Table 0x6.0xb = 0x27f,0xc
0281 0092 05c2  |    |		Action	Push_String_Extended,0x5c2					; "semanticize"
0283 00db       |    |		Load_Top	At_Offset_3
0284 e00a       |    |		Load	0x0,0xa
0285 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0286 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0287 e00b       |    |		Load	0x0,0xb								; Debug Table 0x6.0xc = 0x287,0xd
0288 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0289 0092 05c2  |    |		Action	Push_String_Extended,0x5c2					; "semanticize"
028b 00db       |    |		Load_Top	At_Offset_3
028c e00a       |    |		Load	0x0,0xa
028d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
028e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
028f 0000       |    |		.XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0295       |    |		.CONST	0x0295								; Address of begin
0291 02a2       |    |		.CONST	0x02a2								; Address of exception handler
0292 0002       |    |		.CONST	0x0002								; Number of locals
0293			INIT_0290:
0293 e002       |    |		Load	0x0,0x2								; Debug Table 0x7 = .DEBUG	0x0293,0x07f4,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a71
													; Debug Table 0x7.0x0 = 0x293,0xffff
0294 0007       |    |		Action	Break_Optional
0295			BODY_0290:
0295 e002       |    |		Load	0x0,0x2								; Debug Table 0x7.0x1 = 0x295,0x1
0296 4800       |H   |		Short_Literal	0x0
0297 e5ff       |    |		Load	0x2,-0x1
0298 e004       |    |		Load	0x0,0x4
0299 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
029a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
029b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x2 = 0x29b,0x2
029c e5ff       |    |		Load	0x2,-0x1
029d 821d       |    |		Call	0x1,0x1d
029e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x3 = 0x29e,0x3
029f e004       |    |		Load	0x0,0x4
02a0 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02a1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a2			TRAP_0290:
02a2 60b5       |`   |		Indirect_Literal	Discrete,0x358,{0x00000000, 0x5a8bd503}
02a3 010f       |    |		Execute	Exception,Equal
02a4 6801       |h   |		Jump_Zero	0x2a6
02a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x7.0x4 = 0x2a5,0x4
02a6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x5 = 0x2a6,0x5
02a7 e004       |    |		Load	0x0,0x4
02a8 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02a9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02aa 0000 0000  |    |		.BLANK	0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5       |    |		.CONST	0x02b5								; Address of begin
02b1 02ec       |    |		.CONST	0x02ec								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 e002       |    |		Load	0x0,0x2								; Debug Table 0x8 = .DEBUG	0x02b3,0x0802,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a7b
													; Debug Table 0x8.0x0 = 0x2b3,0xffff
02b4 0007       |    |		Action	Break_Optional
02b5			BODY_02b0:
02b5 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x1 = 0x2b5,0x1
02b6 4801       |H   |		Short_Literal	0x1
02b7 e5ff       |    |		Load	0x2,-0x1
02b8 e004       |    |		Load	0x0,0x4
02b9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02ba 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02bb 4804       |H   |		Short_Literal	0x4							; Debug Table 0x8.0x2 = 0x2bb,0x2
02bc 00d9       |    |		Load_Top	At_Offset_1
02bd 0217       |    |		Execute	Heap_Access,All_Reference
02be 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02bf e005       |    |		Load	0x0,0x5
02c0 01a7       |    |		Execute	Matrix,Field_Read
02c1 7003       |p   |		Jump_Nonzero	0x2c5
02c2 4804       |H   |		Short_Literal	0x4							; Debug Table 0x8.0x3 = 0x2c2,0x3
02c3 8006       |    |		Call	0x0,0x6
02c4 7823       |x#  |		Jump	0x2e8
02c5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x4 = 0x2c5,0x4
02c6 0217       |    |		Execute	Heap_Access,All_Reference
02c7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02c8 e00e       |    |		Load	0x0,0xe
02c9 0260       | `  |		Execute	Discrete,In_Type
02ca 680d       |h   |		Jump_Zero	0x2d8
02cb 00d8       |    |		Load_Top	At_Offset_0
02cc 0217       |    |		Execute	Heap_Access,All_Reference
02cd 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02ce e007       |    |		Load	0x0,0x7
02cf 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
02d0 0d02       |    |		Execute_Immediate	Less,0x2
02d1 6806       |h   |		Jump_Zero	0x2d8
02d2 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x5 = 0x2d2,0x5
02d3 4802       |H   |		Short_Literal	0x2
02d4 00da       |    |		Load_Top	At_Offset_2
02d5 e009       |    |		Load	0x0,0x9
02d6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02d7 7810       |x   |		Jump	0x2e8
02d8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x6 = 0x2d8,0x6
02d9 e00a       |    |		Load	0x0,0xa
02da 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02db 700c       |p   |		Jump_Nonzero	0x2e8
02dc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x7 = 0x2dc,0x7
02dd 0217       |    |		Execute	Heap_Access,All_Reference
02de 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02df 00d9       |    |		Load_Top	At_Offset_1
02e0 0217       |    |		Execute	Heap_Access,All_Reference
02e1 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02e2 00da       |    |		Load_Top	At_Offset_2
02e3 e00f       |    |		Load	0x0,0xf
02e4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02e5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x8 = 0x2e5,0x8
02e6 e5ff       |    |		Load	0x2,-0x1
02e7 821d       |    |		Call	0x1,0x1d
02e8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x9 = 0x2e8,0x9
02e9 e004       |    |		Load	0x0,0x4
02ea 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02eb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02ec			TRAP_02b0:
02ec 606b       |`k  |		Indirect_Literal	Discrete,0x358,{0x00000000, 0x5a8bd503}
02ed 010f       |    |		Execute	Exception,Equal
02ee 6801       |h   |		Jump_Zero	0x2f0
02ef 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x8.0xa = 0x2ef,0xa
02f0 6063       |`c  |		Indirect_Literal	Discrete,0x354,{0x00000000, 0x5a8bd501}
02f1 010f       |    |		Execute	Exception,Equal
02f2 6808       |h   |		Jump_Zero	0x2fb
02f3 0092 05b8  |    |		Action	Push_String_Extended,0x5b8					; "doe_error"
													; Debug Table 0x8.0xb = 0x2f3,0xb
02f5 0092 05c3  |    |		Action	Push_String_Extended,0x5c3					; "format"
02f7 00db       |    |		Load_Top	At_Offset_3
02f8 e00a       |    |		Load	0x0,0xa
02f9 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02fb e00b       |    |		Load	0x0,0xb								; Debug Table 0x8.0xc = 0x2fb,0xc
02fc 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02fd 0092 05c3  |    |		Action	Push_String_Extended,0x5c3					; "format"
02ff 00db       |    |		Load_Top	At_Offset_3
0300 e00a       |    |		Load	0x0,0xa
0301 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0302 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0311       |    |		.CONST	0x0311								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0003       |    |		.CONST	0x0003								; Number of locals
030b			INIT_0308:
030b 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0x9 = .DEBUG	0x030b,0x081e,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a85
													; Debug Table 0x9.0x0 = 0x30b,0xffff
030c e010       |    |		Load	0x0,0x10							; Debug Table 0x9.0x1 = 0x30c,0xfffe
030d e5ff       |    |		Load	0x2,-0x1
030e 0217       |    |		Execute	Heap_Access,All_Reference
030f 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
0310 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0311			BODY_0308:
0311 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x2 = 0x311,0x1
0312 0217       |    |		Execute	Heap_Access,All_Reference
0313 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0314 7012       |p   |		Jump_Nonzero	0x327
0315 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0x3 = 0x315,0x2
0316 0217       |    |		Execute	Heap_Access,All_Reference
0317 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0318 e5ff       |    |		Load	0x2,-0x1
0319 0217       |    |		Execute	Heap_Access,All_Reference
031a 3c1d       |<   |		Execute	Record,Field_Read,Field_Number 0x1d
031b 00da       |    |		Load_Top	At_Offset_2
031c 0217       |    |		Execute	Heap_Access,All_Reference
031d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
031e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
031f e011       |    |		Load	0x0,0x11
0320 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0321 e5ff       |    |		Load	0x2,-0x1
0322 0217       |    |		Execute	Heap_Access,All_Reference
0323 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0324 e007       |    |		Load	0x0,0x7
0325 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0326 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x9.0x4 = 0x326,0x3
0327 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x5 = 0x327,0x4
0328 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x6 = 0x328,0x5
0329 0217       |    |		Execute	Heap_Access,All_Reference
032a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
032b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
032c 6801       |h   |		Jump_Zero	0x32e
032d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x9.0x7 = 0x32d,0x6
032e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x8 = 0x32e,0x7
032f 0217       |    |		Execute	Heap_Access,All_Reference
0330 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0331 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0332 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x9 = 0x332,0x8
0333 6801       |h   |		Jump_Zero	0x335
0334 7ff3       |    |		Jump	0x328
0335 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0xa = 0x335,0x9
0336 0217       |    |		Execute	Heap_Access,All_Reference
0337 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
0338 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0339 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0xb = 0x339,0xa
033a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0xc = 0x33a,0xb
033b 0217       |    |		Execute	Heap_Access,All_Reference
033c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
033d 00da       |    |		Load_Top	At_Offset_2
033e 00da       |    |		Load_Top	At_Offset_2
033f 0217       |    |		Execute	Heap_Access,All_Reference
0340 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0341 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0342 00eb       |    |		Load_Encached	Diana_Cache
0343 1875       | u  |		Execute	Package,Field_Execute,Field_Number 0x75
0344 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0345 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0xd = 0x345,0xc
0346 0217       |    |		Execute	Heap_Access,All_Reference
0347 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0348 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0349 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0xe = 0x349,0xd
034a 6801       |h   |		Jump_Zero	0x34c
034b 7fee       |    |		Jump	0x33a
034c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0xf = 0x34c,0xe
034d e5ff       |    |		Load	0x2,-0x1
034e 0217       |    |		Execute	Heap_Access,All_Reference
034f 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0350 e007       |    |		Load	0x0,0x7
0351 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0352 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0353 0000       |    |		.XXX[0x1]
0354 0000 0000  |    |		.LITERAL	{0x00000000, 0x5a8bd501}
0358 0000 0000  |    |		.LITERAL	{0x00000000, 0x5a8bd503}
035c 0000 0000  |    |		.BLANK	0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x0363,0x0840,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0018
													; Debug Table 0xa.0x0 = 0x363,0x1
0364 0217       |    |		Execute	Heap_Access,All_Reference
0365 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0366 00d8       |    |		Load_Top	At_Offset_0
0367 480b       |H   |		Short_Literal	0xb
0368 480d       |H   |		Short_Literal	0xd
0369 0262       | b  |		Execute	Discrete,In_Range
036a 7006       |p   |		Jump_Nonzero	0x371
036b 00d8       |    |		Load_Top	At_Offset_0
036c 4805       |H   |		Short_Literal	0x5
036d 480a       |H   |		Short_Literal	0xa
036e 0262       | b  |		Execute	Discrete,In_Range
036f 7006       |p   |		Jump_Nonzero	0x376
0370 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xa.0x1 = 0x370,0x4
0371 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x2 = 0x371,0x2
0372 e5ff       |    |		Load	0x2,-0x1
0373 e009       |    |		Load	0x0,0x9
0374 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0375 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0376 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x3 = 0x376,0x3
0377 e5ff       |    |		Load	0x2,-0x1
0378 e009       |    |		Load	0x0,0x9
0379 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
037a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
037b 0000 0000  |    |		.BLANK	0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0384       |    |		.CONST	0x0384								; Address of begin
0381 03a5       |    |		.CONST	0x03a5								; Address of exception handler
0382 0002       |    |		.CONST	0x0002								; Number of locals
0383			INIT_0380:
0383 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb = .DEBUG	0x0383,0x084a,0x0002,0x0000,0x005a,0x8be5,0x0000,0x036d
													; Debug Table 0xb.0x0 = 0x383,0xffff
0384			BODY_0380:
0384 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x1 = 0x384,0x1
0385 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0386 8012       |    |		Call	0x0,0x12
0387 7003       |p   |		Jump_Nonzero	0x38b
0388 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x2 = 0x388,0x2
0389 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0x3 = 0x389,0x401
038a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0xb.0x4 = 0x38a,0x2
038b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x5 = 0x38b,0x3
038c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
038d e5ff       |    |		Load	0x2,-0x1
038e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
038f 00eb       |    |		Load_Encached	Diana_Cache
0390 1889       |    |		Execute	Package,Field_Execute,Field_Number 0x89
0391 4975       |Iu  |		Short_Literal	0x175
0392 00eb       |    |		Load_Encached	Diana_Cache
0393 0098       |    |		Execute	Package,Field_Read_Dynamic
0394 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0395 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0396 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x6 = 0x396,0x4
0397 e402       |    |		Load	0x2,0x2								; Debug Table 0xb.0x7 = 0x397,0x801
0398 0007       |    |		Action	Break_Optional
0399 0145       | E  |		Execute	Heap_Access,Diana_Tree_Kind					; Debug Table 0xb.0x8 = 0x399,0x802
039a 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x9 = 0x39a,0x803
039b 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0xa = 0x39b,0x804
039c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0xb = 0x39c,0x4
039d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
039e 027f       |    |		Execute	Discrete,Equal
039f 6802       |h   |		Jump_Zero	0x3a2
03a0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0xc = 0x3a0,0x5
03a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a2 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0xd = 0x3a2,0x6
03a3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0xe = 0x3a3,0xc01
03a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0xb.0xf = 0x3a4,0x6
03a5			TRAP_0380:
03a5 0007       |    |		Action	Break_Optional
03a6 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x10 = 0x3a6,0x7
03a7 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xb.0x11 = 0x3a7,0x1001
03a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1				; Debug Table 0xb.0x12 = 0x3a8,0x7
03a9 0000 0000  |    |		.BLANK	0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03c2       |    |		.CONST	0x03c2								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0006       |    |		.CONST	0x0006								; Number of locals
03b3			INIT_03b0:
03b3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xc = .DEBUG	0x03b3,0x0872,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0447
													; Debug Table 0xc.0x0 = 0x3b3,0xffff
03b4 e013       |    |		Load	0x0,0x13							; Debug Table 0xc.0x1 = 0x3b4,0xfffe
03b5 0322       | "  |		Declare_Variable	Record
03b6 00d8       |    |		Load_Top	At_Offset_0
03b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03b8 e014       |    |		Load	0x0,0x14							; Debug Table 0xc.0x2 = 0x3b8,0xfffd
03b9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ba 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
03bb e010       |    |		Load	0x0,0x10							; Debug Table 0xc.0x3 = 0x3bb,0xfffc
03bc e5ff       |    |		Load	0x2,-0x1
03bd 0217       |    |		Execute	Heap_Access,All_Reference
03be 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
03bf 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
03c0 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xc.0x4 = 0x3c0,0xfffb
03c1 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03c2			BODY_03b0:
03c2 7849       |xI  |		Jump	0x40c
03c3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x5 = 0x3c3,0x2
03c4 e5ff       |    |		Load	0x2,-0x1
03c5 0217       |    |		Execute	Heap_Access,All_Reference
03c6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c7 e015       |    |		Load	0x0,0x15
03c8 1868       | h  |		Execute	Package,Field_Execute,Field_Number 0x68
03c9 e403       |    |		Load	0x2,0x3
03ca 017d       | }  |		Execute	Record,Structure_Write
03cb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x6 = 0x3cb,0x3
03cc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03cd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03ce 682a       |h*  |		Jump_Zero	0x3f9
03cf 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x7 = 0x3cf,0x4
03d0 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03d1 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03d2 e016       |    |		Load	0x0,0x16
03d3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03d4 6807       |h   |		Jump_Zero	0x3dc
03d5 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x8 = 0x3d5,0x5
03d6 00db       |    |		Load_Top	At_Offset_3
03d7 e5ff       |    |		Load	0x2,-0x1
03d8 e017       |    |		Load	0x0,0x17
03d9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03da 00d1       |    |		Pop_Control	Pop_Count_1
03db 7828       |x(  |		Jump	0x404
03dc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x9 = 0x3dc,0x6
03dd 8218       |    |		Call	0x1,0x18
03de a402       |    |		Store_Unchecked	0x2,0x2
03df 0007       |    |		Action	Break_Optional							; Debug Table 0xc.0xa = 0x3df,0x7
03e0 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0xb = 0x3e0,0x401
03e1 021d       |    |		Execute	Heap_Access,Is_Null
03e2 7021       |p!  |		Jump_Nonzero	0x404							; Debug Table 0xc.0xc = 0x3e2,0x7
03e3 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0xd = 0x3e3,0x8
03e4 e018       |    |		Load	0x0,0x18
03e5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03e6 e402       |    |		Load	0x2,0x2
03e7 00d9       |    |		Load_Top	At_Offset_1
03e8 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
03e9 e403       |    |		Load	0x2,0x3
03ea 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03eb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0xe = 0x3eb,0x9
03ec 00db       |    |		Load_Top	At_Offset_3
03ed e5ff       |    |		Load	0x2,-0x1
03ee e017       |    |		Load	0x0,0x17
03ef 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
03f0 00d1       |    |		Pop_Control	Pop_Count_1
03f1 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0xf = 0x3f1,0xa
03f2 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 0217       |    |		Execute	Heap_Access,All_Reference
03f5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03f6 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x10 = 0x3f6,0xb
03f7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
03f8 780b       |x   |		Jump	0x404
03f9 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x11 = 0x3f9,0xc
03fa 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03fb 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03fc 8012       |    |		Call	0x0,0x12
03fd 6806       |h   |		Jump_Zero	0x404
03fe 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x12 = 0x3fe,0xd
03ff 00db       |    |		Load_Top	At_Offset_3
0400 e5ff       |    |		Load	0x2,-0x1
0401 e017       |    |		Load	0x0,0x17
0402 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0403 00d1       |    |		Pop_Control	Pop_Count_1
0404 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x13 = 0x404,0xe
0405 e403       |    |		Load	0x2,0x3
0406 8019       |    |		Call	0x0,0x19
0407 005b       | [  |		Store_Top	Discrete,At_Offset_3
0408 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x14 = 0x408,0xf
0409 0217       |    |		Execute	Heap_Access,All_Reference
040a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040b 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
040c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x15 = 0x40c,0x1
040d e5ff       |    |		Load	0x2,-0x1
040e 0217       |    |		Execute	Heap_Access,All_Reference
040f 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0410 027c       | |  |		Execute	Discrete,Less
0411 77b1       |w   |		Jump_Nonzero	0x3c3
0412 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x16 = 0x412,0x10
0413 6802       |h   |		Jump_Zero	0x416
0414 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x17 = 0x414,0x11
0415 8214       |    |		Call	0x1,0x14
0416 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0417 0000       |    |		.XXX[0x1]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0428       | (  |		.CONST	0x0428								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0003       |    |		.CONST	0x0003								; Number of locals
041b			INIT_0418:
041b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xd = .DEBUG	0x041b,0x08a4,0x0001,0x0000,0x005a,0x8be5,0x0000,0x04f6
													; Debug Table 0xd.0x0 = 0x41b,0xffff
041c 00db       |    |		Load_Top	At_Offset_3
041d 0217       |    |		Execute	Heap_Access,All_Reference
041e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
041f e015       |    |		Load	0x0,0x15
0420 186a       | j  |		Execute	Package,Field_Execute,Field_Number 0x6a
0421 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x1 = 0x421,0xfffe
0422 e016       |    |		Load	0x0,0x16
0423 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0424 e216       |    |		Load	0x1,0x16
0425 01d7       |    |		Execute	Vector,Field_Read
0426 00e8       |    |		Load_Encached	Character_Cache
0427 03f1       |    |		Declare_Variable	Discrete,With_Value
0428			BODY_0418:
0428 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x2 = 0x428,0x1
0429 01db       |    |		Execute	Vector,Length
042a 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
042b 6823       |h#  |		Jump_Zero	0x44f
042c 00d9       |    |		Load_Top	At_Offset_1
042d 01dd       |    |		Execute	Vector,First
042e 0a02       |    |		Execute_Immediate	Plus,0x2
042f 0248       | H  |		Execute	Discrete,Check_In_Integer
0430 00da       |    |		Load_Top	At_Offset_2
0431 01d7       |    |		Execute	Vector,Field_Read
0432 00d9       |    |		Load_Top	At_Offset_1
0433 027e       | ~  |		Execute	Discrete,Not_Equal
0434 681a       |h   |		Jump_Zero	0x44f
0435 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xd.0x3 = 0x435,0x2
0436 e5fd       |    |		Load	0x2,-0x3
0437 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0438 e014       |    |		Load	0x0,0x14
0439 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
043a 025b       | [  |		Execute	Discrete,Check_In_Type
043b 0273       | s  |		Execute	Discrete,Plus
043c 0248       | H  |		Execute	Discrete,Check_In_Integer
043d 0aff       |    |		Execute_Immediate	Plus,-0x1
043e 0248       | H  |		Execute	Discrete,Check_In_Integer
043f e5fc       |    |		Load	0x2,-0x4
0440 e5ff       |    |		Load	0x2,-0x1
0441 e017       |    |		Load	0x0,0x17
0442 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0443 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xd.0x4 = 0x443,0x3
0444 4801       |H   |		Short_Literal	0x1
0445 e5fe       |    |		Load	0x2,-0x2
0446 e5fd       |    |		Load	0x2,-0x3
0447 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0448 e5fd       |    |		Load	0x2,-0x3
0449 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
044a e5ff       |    |		Load	0x2,-0x1
044b e01a       |    |		Load	0x0,0x1a
044c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
044d c5fc       |    |		Store	0x2,-0x4
044e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
044f e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xd.0x5 = 0x44f,0x4
0450 e5fd       |    |		Load	0x2,-0x3
0451 8019       |    |		Call	0x0,0x19
0452 c5fc       |    |		Store	0x2,-0x4
0453 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0454 0000 0000  |    |		.BLANK	0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0460       | `  |		.CONST	0x0460								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0002       |    |		.CONST	0x0002								; Number of locals
045b			INIT_0458:
045b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xe = .DEBUG	0x045b,0x08b2,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0574
													; Debug Table 0xe.0x0 = 0x45b,0xffff
045c e5fe       |    |		Load	0x2,-0x2
045d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
045e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
045f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0460			BODY_0458:
0460 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x1 = 0x460,0x1
0461 8012       |    |		Call	0x0,0x12
0462 6831       |h1  |		Jump_Zero	0x494
0463 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xe.0x2 = 0x463,0x2
0464 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0465 460d       |F   |		Jump_Case	0xe
0466 7822       |x"  |		Jump	0x489								; case 0x0
0467 7821       |x!  |		Jump	0x489								; case 0x1
0468 7820       |x   |		Jump	0x489								; case 0x2
0469 781f       |x   |		Jump	0x489								; case 0x3
046a 781e       |x   |		Jump	0x489								; case 0x4
046b 781d       |x   |		Jump	0x489								; case 0x5
046c 780c       |x   |		Jump	0x479								; case 0x6
046d 7806       |x   |		Jump	0x474								; case 0x7
046e 7805       |x   |		Jump	0x474								; case 0x8
046f 7819       |x   |		Jump	0x489								; case 0x9
0470 7818       |x   |		Jump	0x489								; case 0xa
0471 7817       |x   |		Jump	0x489								; case 0xb
0472 7816       |x   |		Jump	0x489								; case 0xc
0473 7815       |x   |		Jump	0x489								; case 0xd
0474 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0x3 = 0x474,0x3
0475 e5fe       |    |		Load	0x2,-0x2
0476 8019       |    |		Call	0x0,0x19
0477 c5fd       |    |		Store	0x2,-0x3
0478 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0479 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xe.0x4 = 0x479,0x4
047a 0217       |    |		Execute	Heap_Access,All_Reference
047b 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
047c 6807       |h   |		Jump_Zero	0x484
047d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0x5 = 0x47d,0x5
047e e5fe       |    |		Load	0x2,-0x2
047f 00da       |    |		Load_Top	At_Offset_2
0480 e5ff       |    |		Load	0x2,-0x1
0481 821a       |    |		Call	0x1,0x1a
0482 c5fd       |    |		Store	0x2,-0x3
0483 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0484 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0x6 = 0x484,0x6
0485 e5fe       |    |		Load	0x2,-0x2
0486 8019       |    |		Call	0x0,0x19
0487 c5fd       |    |		Store	0x2,-0x3
0488 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0489 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xe.0x7 = 0x489,0x7
048a e5fd       |    |		Load	0x2,-0x3
048b e5ff       |    |		Load	0x2,-0x1
048c e017       |    |		Load	0x0,0x17
048d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
048e 00d1       |    |		Pop_Control	Pop_Count_1
048f e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0x8 = 0x48f,0x8
0490 e5fe       |    |		Load	0x2,-0x2
0491 8019       |    |		Call	0x0,0x19
0492 c5fd       |    |		Store	0x2,-0x3
0493 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0494 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x9 = 0x494,0x9
0495 e5fe       |    |		Load	0x2,-0x2
0496 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0497 e007       |    |		Load	0x0,0x7
0498 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0499 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
049a 0007       |    |		Action	Break_Optional							; Debug Table 0xe.0xa = 0x49a,0xa
049b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0xb = 0x49b,0x401
049c 021d       |    |		Execute	Heap_Access,Is_Null
049d 680a       |h   |		Jump_Zero	0x4a8							; Debug Table 0xe.0xc = 0x49d,0xa
049e e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xe.0xd = 0x49e,0xb
049f e5fd       |    |		Load	0x2,-0x3
04a0 e5ff       |    |		Load	0x2,-0x1
04a1 e017       |    |		Load	0x0,0x17
04a2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04a3 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xe.0xe = 0x4a3,0xc
04a4 e5fe       |    |		Load	0x2,-0x2
04a5 801b       |    |		Call	0x0,0x1b
04a6 c5fc       |    |		Store	0x2,-0x4
04a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04a8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0xf = 0x4a8,0xd
04a9 e5fe       |    |		Load	0x2,-0x2
04aa 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04ab 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
04ac e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0x10 = 0x4ac,0xe
04ad e5fe       |    |		Load	0x2,-0x2
04ae 00da       |    |		Load_Top	At_Offset_2
04af e5fe       |    |		Load	0x2,-0x2
04b0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04b1 e5ff       |    |		Load	0x2,-0x1
04b2 e01c       |    |		Load	0x0,0x1c
04b3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04b4 00d1       |    |		Pop_Control	Pop_Count_1
04b5 c5fd       |    |		Store	0x2,-0x3
04b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b7 0000       |    |		.XXX[0x1]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bc       |    |		.CONST	0x04bc								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0002       |    |		.CONST	0x0002								; Number of locals
04bb			INIT_04b8:
04bb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xf = .DEBUG	0x04bb,0x08d6,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0613
													; Debug Table 0xf.0x0 = 0x4bb,0xffff
04bc			BODY_04b8:
04bc e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xf.0x1 = 0x4bc,0x1
04bd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04be 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04bf e016       |    |		Load	0x0,0x16
04c0 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
04c1 680b       |h   |		Jump_Zero	0x4cd
04c2 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xf.0x2 = 0x4c2,0x2
04c3 e5fd       |    |		Load	0x2,-0x3
04c4 e5ff       |    |		Load	0x2,-0x1
04c5 e017       |    |		Load	0x0,0x17
04c6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04c7 00d1       |    |		Pop_Control	Pop_Count_1
04c8 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xf.0x3 = 0x4c8,0x3
04c9 e5fe       |    |		Load	0x2,-0x2
04ca 8019       |    |		Call	0x0,0x19
04cb c5fd       |    |		Store	0x2,-0x3
04cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04cd e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xf.0x4 = 0x4cd,0x4
04ce 8218       |    |		Call	0x1,0x18
04cf 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
04d0 0007       |    |		Action	Break_Optional							; Debug Table 0xf.0x5 = 0x4d0,0x5
04d1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x6 = 0x4d1,0x401
04d2 021d       |    |		Execute	Heap_Access,Is_Null
04d3 701a       |p   |		Jump_Nonzero	0x4ee							; Debug Table 0xf.0x7 = 0x4d3,0x5
04d4 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf.0x8 = 0x4d4,0x6
04d5 e018       |    |		Load	0x0,0x18
04d6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
04d7 00d9       |    |		Load_Top	At_Offset_1
04d8 00d9       |    |		Load_Top	At_Offset_1
04d9 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
04da e5fe       |    |		Load	0x2,-0x2
04db 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04dc e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xf.0x9 = 0x4dc,0x7
04dd e5fd       |    |		Load	0x2,-0x3
04de e5ff       |    |		Load	0x2,-0x1
04df e017       |    |		Load	0x0,0x17
04e0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04e1 00d1       |    |		Pop_Control	Pop_Count_1
04e2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0xa = 0x4e2,0x8
04e3 e5fe       |    |		Load	0x2,-0x2
04e4 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
04e5 e5fe       |    |		Load	0x2,-0x2
04e6 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
04e7 e007       |    |		Load	0x0,0x7
04e8 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
04e9 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xf.0xb = 0x4e9,0x9
04ea e5fe       |    |		Load	0x2,-0x2
04eb 8019       |    |		Call	0x0,0x19
04ec c5fd       |    |		Store	0x2,-0x3
04ed 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04ee e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xf.0xc = 0x4ee,0xa
04ef e01d       |    |		Load	0x0,0x1d
04f0 017e       | ~  |		Execute	Record,Not_Equal
04f1 680a       |h   |		Jump_Zero	0x4fc
04f2 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xf.0xd = 0x4f2,0xb
04f3 e5fd       |    |		Load	0x2,-0x3
04f4 e5ff       |    |		Load	0x2,-0x1
04f5 e017       |    |		Load	0x0,0x17
04f6 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04f7 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xf.0xe = 0x4f7,0xc
04f8 e5fe       |    |		Load	0x2,-0x2
04f9 801b       |    |		Call	0x0,0x1b
04fa c5fc       |    |		Store	0x2,-0x4
04fb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04fc e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xf.0xf = 0x4fc,0xd
04fd e5fe       |    |		Load	0x2,-0x2
04fe 8019       |    |		Call	0x0,0x19
04ff c5fd       |    |		Store	0x2,-0x3
0500 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0501 0000 0000  |    |		.BLANK	0000[0x7]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 051c       |    |		.CONST	0x051c								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0007       |    |		.CONST	0x0007								; Number of locals
050b			INIT_0508:
050b e013       |    |		Load	0x0,0x13							; Debug Table 0x10 = .DEBUG	0x050b,0x08f8,0x0001,0x0000,0x005a,0x8be5,0x0000,0x069d
													; Debug Table 0x10.0x0 = 0x50b,0xffff
050c 0322       | "  |		Declare_Variable	Record
050d 00d8       |    |		Load_Top	At_Offset_0
050e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
050f e014       |    |		Load	0x0,0x14							; Debug Table 0x10.0x1 = 0x50f,0xfffe
0510 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0511 e014       |    |		Load	0x0,0x14							; Debug Table 0x10.0x2 = 0x511,0xfffd
0512 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0513 e014       |    |		Load	0x0,0x14							; Debug Table 0x10.0x3 = 0x513,0xfffc
0514 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0515 0322       | "  |		Declare_Variable	Record
0516 00d8       |    |		Load_Top	At_Offset_0
0517 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0518 e015       |    |		Load	0x0,0x15							; Debug Table 0x10.0x4 = 0x518,0xfffb
0519 1b80       |    |		Execute	Package,Field_Read,Field_Number 0x80
051a e014       |    |		Load	0x0,0x14							; Debug Table 0x10.0x5 = 0x51a,0xfffa
051b 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
051c			BODY_0508:
051c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x6 = 0x51c,0x1
051d 0217       |    |		Execute	Heap_Access,All_Reference
051e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
051f 460d       |F   |		Jump_Case	0xe
0520 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
0521 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
0522 780b       |x   |		Jump	0x52e								; case 0x2
0523 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
0524 7809       |x   |		Jump	0x52e								; case 0x4
0525 7808       |x   |		Jump	0x52e								; case 0x5
0526 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x6
0527 7806       |x   |		Jump	0x52e								; case 0x7
0528 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x8
0529 7804       |x   |		Jump	0x52e								; case 0x9
052a 7803       |x   |		Jump	0x52e								; case 0xa
052b 7802       |x   |		Jump	0x52e								; case 0xb
052c 7801       |x   |		Jump	0x52e								; case 0xc
052d 7800       |x   |		Jump	0x52e								; case 0xd
052e e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x7 = 0x52e,0x4
052f 0217       |    |		Execute	Heap_Access,All_Reference
0530 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0531 00d8       |    |		Load_Top	At_Offset_0
0532 4800       |H   |		Short_Literal	0x0
0533 4801       |H   |		Short_Literal	0x1
0534 0262       | b  |		Execute	Discrete,In_Range
0535 7003       |p   |		Jump_Nonzero	0x539
0536 0b08       |    |		Execute_Immediate	Case_Compare,0x8
0537 7001       |p   |		Jump_Nonzero	0x539
0538 7801       |x   |		Jump	0x53a								; Debug Table 0x10.0x8 = 0x538,0x6
0539 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x10.0x9 = 0x539,0x5
053a 00d1       |    |		Pop_Control	Pop_Count_1
053b e015       |    |		Load	0x0,0x15							; Debug Table 0x10.0xa = 0x53b,0x7
053c 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
053d 00db       |    |		Load_Top	At_Offset_3
053e 017d       | }  |		Execute	Record,Structure_Write
053f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0xb = 0x53f,0x8
0540 e015       |    |		Load	0x0,0x15
0541 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
0542 e5ff       |    |		Load	0x2,-0x1
0543 017f       |    |		Execute	Record,Equal
0544 6805       |h   |		Jump_Zero	0x54a
0545 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0xc = 0x545,0x9
0546 e015       |    |		Load	0x0,0x15
0547 1881       |    |		Execute	Package,Field_Execute,Field_Number 0x81
0548 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0549 7802       |x   |		Jump	0x54c
054a 4803       |H   |		Short_Literal	0x3							; Debug Table 0x10.0xd = 0x54a,0xa
054b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
054c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0xe = 0x54c,0xb
054d 0217       |    |		Execute	Heap_Access,All_Reference
054e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
054f 0b0b       |    |		Execute_Immediate	Case_Compare,0xb
0550 7003       |p   |		Jump_Nonzero	0x554
0551 0b0c       |    |		Execute_Immediate	Case_Compare,0xc
0552 7004       |p   |		Jump_Nonzero	0x557
0553 7809       |x   |		Jump	0x55d								; Debug Table 0x10.0xf = 0x553,0xf
0554 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x10 = 0x554,0xc
0555 8219       |    |		Call	0x1,0x19
0556 7806       |x   |		Jump	0x55d
0557 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x11 = 0x557,0xd
0558 0217       |    |		Execute	Heap_Access,All_Reference
0559 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
055a 7002       |p   |		Jump_Nonzero	0x55d
055b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x12 = 0x55b,0xe
055c 8219       |    |		Call	0x1,0x19
055d 00d1       |    |		Pop_Control	Pop_Count_1
055e e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x13 = 0x55e,0x10
055f e00a       |    |		Load	0x0,0xa
0560 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0561 6801       |h   |		Jump_Zero	0x563
0562 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0x10.0x14 = 0x562,0x11
0563 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x15 = 0x563,0x12
0564 0217       |    |		Execute	Heap_Access,All_Reference
0565 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0566 e015       |    |		Load	0x0,0x15
0567 1869       | i  |		Execute	Package,Field_Execute,Field_Number 0x69
0568 a404       |    |		Store_Unchecked	0x2,0x4
0569 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x16 = 0x569,0x13
056a 0217       |    |		Execute	Heap_Access,All_Reference
056b 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
056c a403       |    |		Store_Unchecked	0x2,0x3
056d 781d       |x   |		Jump	0x58b
056e e403       |    |		Load	0x2,0x3								; Debug Table 0x10.0x17 = 0x56e,0x15
056f e5fe       |    |		Load	0x2,-0x2
0570 0217       |    |		Execute	Heap_Access,All_Reference
0571 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0572 e015       |    |		Load	0x0,0x15
0573 1868       | h  |		Execute	Package,Field_Execute,Field_Number 0x68
0574 e402       |    |		Load	0x2,0x2
0575 017d       | }  |		Execute	Record,Structure_Write
0576 e402       |    |		Load	0x2,0x2								; Debug Table 0x10.0x18 = 0x576,0x16
0577 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0578 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0579 6809       |h   |		Jump_Zero	0x583
057a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x10.0x19 = 0x57a,0x17
057b e403       |    |		Load	0x2,0x3
057c e402       |    |		Load	0x2,0x2
057d e5fe       |    |		Load	0x2,-0x2
057e 821c       |    |		Call	0x1,0x1c
057f 00d1       |    |		Pop_Control	Pop_Count_1
0580 c403       |    |		Store	0x2,0x3
0581 c404       |    |		Store	0x2,0x4
0582 7808       |x   |		Jump	0x58b
0583 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x10.0x1a = 0x583,0x18
0584 e403       |    |		Load	0x2,0x3
0585 e402       |    |		Load	0x2,0x2
0586 e5fe       |    |		Load	0x2,-0x2
0587 821b       |    |		Call	0x1,0x1b
0588 00d1       |    |		Pop_Control	Pop_Count_1
0589 c403       |    |		Store	0x2,0x3
058a c404       |    |		Store	0x2,0x4
058b e403       |    |		Load	0x2,0x3								; Debug Table 0x10.0x1b = 0x58b,0x14
058c e404       |    |		Load	0x2,0x4
058d 027a       | z  |		Execute	Discrete,Less_Equal
058e 77df       |w   |		Jump_Nonzero	0x56e
058f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x10.0x1c = 0x58f,0x19
0590 0e03       |    |		Execute_Immediate	Not_Equal,0x3
0591 680e       |h   |		Jump_Zero	0x5a0
0592 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x10.0x1d = 0x592,0x1a
0593 0219       |    |		Execute	Heap_Access,All_Read
0594 e014       |    |		Load	0x0,0x14
0595 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
0596 00d9       |    |		Load_Top	At_Offset_1
0597 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0598 4800       |H   |		Short_Literal	0x0
0599 e405       |    |		Load	0x2,0x5
059a e015       |    |		Load	0x0,0x15
059b 1886       |    |		Execute	Package,Field_Execute,Field_Number 0x86
059c 00da       |    |		Load_Top	At_Offset_2
059d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
059e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
059f 00d1       |    |		Pop_Control	Pop_Count_1
05a0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05a1 0000 0000  |    |		.BLANK	0000[0x7]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 05b3       |    |		.CONST	0x05b3								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab e402       |    |		Load	0x2,0x2								; Debug Table 0x11 = .DEBUG	0x05ab,0x0936,0x0004,0x0000,0x005a,0x8be5,0x0000,0x00cf
													; Debug Table 0x11.0x0 = 0x5ab,0x1
05ac 0217       |    |		Execute	Heap_Access,All_Reference
05ad 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
05ae 8217       |    |		Call	0x1,0x17
05af e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x1 = 0x5af,0x2
05b0 e004       |    |		Load	0x0,0x4
05b1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
05b2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05b3			TRAP_05a8:
05b3 0007       |    |		Action	Break_Optional
05b4 e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x2 = 0x5b4,0x3
05b5 e004       |    |		Load	0x0,0x4
05b6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
05b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05b8 ; --------------------------------------------------------------------------------------
05b8 ; STRING TABLE
05b8 ; --------------------------------------------------------------------------------------
05b8 001a       |    |		.STRTAB	0x001a->0x05c5							; "doe_error"
05b9 0021       | !  |		.STRTAB	0x0021->0x05c9							; "revert"
05ba 0025       | %  |		.STRTAB	0x0025->0x05cc							; "display is already showing demote closure"
05bb 004c       | L  |		.STRTAB	0x004c->0x05e1							; "complete"
05bc 0052       | R  |		.STRTAB	0x0052->0x05e5							; "viewing last image in list"
05bd 006a       | j  |		.STRTAB	0x006a->0x05f2							; "undo"
05be 006c       | l  |		.STRTAB	0x006c->0x05f4							; "viewing first image in list"
05bf 0085       |    |		.STRTAB	0x0085->0x0601							; "redo"
05c0 0087       |    |		.STRTAB	0x0087->0x0603							; "display is showing reference_closure"
05c1 00a9       |    |		.STRTAB	0x00a9->0x0615							; "semanticize is not appropriate here"
05c2 00ca       |    |		.STRTAB	0x00ca->0x0627							; "semanticize"
05c3 00d3       |    |		.STRTAB	0x00d3->0x062c							; "format"
05c4 00d7       |    |		.STREND 0x00d7->0x062f
05c5 646f 655f  |doe_|		.STRTAB_STRINGS
0630 ; --------------------------------------------------------------------------------------
0630 ; Debug Table
0630 ; --------------------------------------------------------------------------------------
0630 0003 0012  |    |		.CONST	0x0003,0x0012
0632 000b 06c2  |    |		.DEBUG	0x000b,0x06c2,0x0000,0x0000,0x005a,0x8bd5,0x0000,0x0a2c
063a 001c 06d4  |    |		.DEBUG	0x001c,0x06d4,0x0000,0x0000,0x005a,0x8be5,0x0000,0x0006
0642 0063 06f6  | c  |		.DEBUG	0x0063,0x06f6,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a2d
064a 00c3 0720  |    |		.DEBUG	0x00c3,0x0720,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a37
0652 0123 0744  | # D|		.DEBUG	0x0123,0x0744,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a4b
065a 01cb 079a  |    |		.DEBUG	0x01cb,0x079a,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a59
0662 0243 07d8  | C  |		.DEBUG	0x0243,0x07d8,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a67
066a 0293 07f4  |    |		.DEBUG	0x0293,0x07f4,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a71
0672 02b3 0802  |    |		.DEBUG	0x02b3,0x0802,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a7b
067a 030b 081e  |    |		.DEBUG	0x030b,0x081e,0x0001,0x0000,0x005a,0x8bd5,0x0000,0x0a85
0682 0363 0840  | c @|		.DEBUG	0x0363,0x0840,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0018
068a 0383 084a  |   J|		.DEBUG	0x0383,0x084a,0x0002,0x0000,0x005a,0x8be5,0x0000,0x036d
0692 03b3 0872  |   r|		.DEBUG	0x03b3,0x0872,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0447
069a 041b 08a4  |    |		.DEBUG	0x041b,0x08a4,0x0001,0x0000,0x005a,0x8be5,0x0000,0x04f6
06a2 045b 08b2  | [  |		.DEBUG	0x045b,0x08b2,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0574
06aa 04bb 08d6  |    |		.DEBUG	0x04bb,0x08d6,0x0001,0x0000,0x005a,0x8be5,0x0000,0x0613
06b2 050b 08f8  |    |		.DEBUG	0x050b,0x08f8,0x0001,0x0000,0x005a,0x8be5,0x0000,0x069d
06ba 05ab 0936  |   6|		.DEBUG	0x05ab,0x0936,0x0004,0x0000,0x005a,0x8be5,0x0000,0x00cf
06c2 ; --------------------------------------------------------------------------------------
06c2 ; Debug3 Subtable 0x0
06c2 ; --------------------------------------------------------------------------------------
06c2 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
06c4 000b ffff  |    |		.CONST	0x000b,0xffff
06c6 000d fffe  |    |		.CONST	0x000d,0xfffe
06c8 000f fffd  |    |		.CONST	0x000f,0xfffd
06ca 0011 fffc  |    |		.CONST	0x0011,0xfffc
06cc 0013 fffb  |    |		.CONST	0x0013,0xfffb
06ce 0015 fffa  |    |		.CONST	0x0015,0xfffa
06d0 0017 fff9  |    |		.CONST	0x0017,0xfff9
06d2 0019 fff8  |    |		.CONST	0x0019,0xfff8
06d4 ; --------------------------------------------------------------------------------------
06d4 ; Debug3 Subtable 0x1
06d4 ; --------------------------------------------------------------------------------------
06d4 0010 0000  |    |		.DBG3TAB	0x0010,0x0000
06d6 001c ffff  |    |		.CONST	0x001c,0xffff
06d8 003e fffe  | >  |		.CONST	0x003e,0xfffe
06da 0040 fffd  | @  |		.CONST	0x0040,0xfffd
06dc 0042 fffc  | B  |		.CONST	0x0042,0xfffc
06de 0044 fffb  | D  |		.CONST	0x0044,0xfffb
06e0 0046 fffa  | F  |		.CONST	0x0046,0xfffa
06e2 0048 fff9  | H  |		.CONST	0x0048,0xfff9
06e4 004a fff8  | J  |		.CONST	0x004a,0xfff8
06e6 004c fff7  | L  |		.CONST	0x004c,0xfff7
06e8 004e fff6  | N  |		.CONST	0x004e,0xfff6
06ea 0050 fff5  | P  |		.CONST	0x0050,0xfff5
06ec 0052 fff4  | R  |		.CONST	0x0052,0xfff4
06ee 0054 fff3  | T  |		.CONST	0x0054,0xfff3
06f0 0056 fff2  | V  |		.CONST	0x0056,0xfff2
06f2 0058 fff1  | X  |		.CONST	0x0058,0xfff1
06f4 005a fff0  | Z  |		.CONST	0x005a,0xfff0
06f6 ; --------------------------------------------------------------------------------------
06f6 ; Debug3 Subtable 0x2
06f6 ; --------------------------------------------------------------------------------------
06f6 0002 0012  |    |		.DBG3TAB	0x0002,0x0012
06f8 0063 ffff  | c  |		.CONST	0x0063,0xffff
06fa 0065 fffe  | e  |		.CONST	0x0065,0xfffe
06fc 0068 0001  | h  |		.CONST	0x0068,0x0001
06fe 006e 0002  | n  |		.CONST	0x006e,0x0002
0700 0075 0003  | u  |		.CONST	0x0075,0x0003
0702 0078 0004  | x  |		.CONST	0x0078,0x0004
0704 007d 0005  | }  |		.CONST	0x007d,0x0005
0706 0081 0401  |    |		.CONST	0x0081,0x0401
0708 0082 0005  |    |		.CONST	0x0082,0x0005
070a 0083 0801  |    |		.CONST	0x0083,0x0801
070c 0084 0401  |    |		.CONST	0x0084,0x0401
070e 0089 0006  |    |		.CONST	0x0089,0x0006
0710 008c 0007  |    |		.CONST	0x008c,0x0007
0712 0095 0008  |    |		.CONST	0x0095,0x0008
0714 009a 0009  |    |		.CONST	0x009a,0x0009
0716 009f 000a  |    |		.CONST	0x009f,0x000a
0718 00a4 000b  |    |		.CONST	0x00a4,0x000b
071a 00ab 000c  |    |		.CONST	0x00ab,0x000c
071c 00af 000d  |    |		.CONST	0x00af,0x000d
071e 00b7 000e  |    |		.CONST	0x00b7,0x000e
0720 ; --------------------------------------------------------------------------------------
0720 ; Debug3 Subtable 0x3
0720 ; --------------------------------------------------------------------------------------
0720 0001 0010  |    |		.DBG3TAB	0x0001,0x0010
0722 00c3 ffff  |    |		.CONST	0x00c3,0xffff
0724 00c5 0001  |    |		.CONST	0x00c5,0x0001
0726 00cb 0002  |    |		.CONST	0x00cb,0x0002
0728 00d2 0003  |    |		.CONST	0x00d2,0x0003
072a 00d4 0004  |    |		.CONST	0x00d4,0x0004
072c 00d7 0005  |    |		.CONST	0x00d7,0x0005
072e 00d8 0006  |    |		.CONST	0x00d8,0x0006
0730 00dd 0007  |    |		.CONST	0x00dd,0x0007
0732 00e1 0008  |    |		.CONST	0x00e1,0x0008
0734 00e8 0009  |    |		.CONST	0x00e8,0x0009
0736 00ed 000a  |    |		.CONST	0x00ed,0x000a
0738 00f3 000b  |    |		.CONST	0x00f3,0x000b
073a 00f9 000c  |    |		.CONST	0x00f9,0x000c
073c 00fe 000d  |    |		.CONST	0x00fe,0x000d
073e 0105 000e  |    |		.CONST	0x0105,0x000e
0740 0109 000f  |    |		.CONST	0x0109,0x000f
0742 0111 0010  |    |		.CONST	0x0111,0x0010
0744 ; --------------------------------------------------------------------------------------
0744 ; Debug3 Subtable 0x4
0744 ; --------------------------------------------------------------------------------------
0744 0003 0027  |   '|		.DBG3TAB	0x0003,0x0027
0746 0123 ffff  | #  |		.CONST	0x0123,0xffff
0748 0125 fffe  | %  |		.CONST	0x0125,0xfffe
074a 0127 fffd  | '  |		.CONST	0x0127,0xfffd
074c 012a 0001  | *  |		.CONST	0x012a,0x0001
074e 0130 0002  | 0  |		.CONST	0x0130,0x0002
0750 0137 0003  | 7  |		.CONST	0x0137,0x0003
0752 0139 0004  | 9  |		.CONST	0x0139,0x0004
0754 013c 0005  | <  |		.CONST	0x013c,0x0005
0756 013d 0006  | =  |		.CONST	0x013d,0x0006
0758 0144 0010  | D  |		.CONST	0x0144,0x0010
075a 0147 0007  | G  |		.CONST	0x0147,0x0007
075c 014a 0008  | J  |		.CONST	0x014a,0x0008
075e 014f 0009  | O  |		.CONST	0x014f,0x0009
0760 0154 000a  | T  |		.CONST	0x0154,0x000a
0762 015a 000b  | Z  |		.CONST	0x015a,0x000b
0764 015f 000c  | _  |		.CONST	0x015f,0x000c
0766 0162 000d  | b  |		.CONST	0x0162,0x000d
0768 0163 000e  | c  |		.CONST	0x0163,0x000e
076a 0164 000f  | d  |		.CONST	0x0164,0x000f
076c 0166 0011  | f  |		.CONST	0x0166,0x0011
076e 0167 0012  | g  |		.CONST	0x0167,0x0012
0770 016b 0013  | k  |		.CONST	0x016b,0x0013
0772 016f 0014  | o  |		.CONST	0x016f,0x0014
0774 0172 0015  | r  |		.CONST	0x0172,0x0015
0776 0173 0016  | s  |		.CONST	0x0173,0x0016
0778 017b 0017  | {  |		.CONST	0x017b,0x0017
077a 017c 0018  | |  |		.CONST	0x017c,0x0018
077c 0181 0019  |    |		.CONST	0x0181,0x0019
077e 0185 001a  |    |		.CONST	0x0185,0x001a
0780 0186 001a  |    |		.CONST	0x0186,0x001a
0782 018a 001b  |    |		.CONST	0x018a,0x001b
0784 018e 001c  |    |		.CONST	0x018e,0x001c
0786 0192 001d  |    |		.CONST	0x0192,0x001d
0788 0193 001e  |    |		.CONST	0x0193,0x001e
078a 0199 001f  |    |		.CONST	0x0199,0x001f
078c 019d 0020  |    |		.CONST	0x019d,0x0020
078e 01a1 0021  |   !|		.CONST	0x01a1,0x0021
0790 01a4 0022  |   "|		.CONST	0x01a4,0x0022
0792 01a6 0023  |   #|		.CONST	0x01a6,0x0023
0794 01ad 0024  |   $|		.CONST	0x01ad,0x0024
0796 01b1 0025  |   %|		.CONST	0x01b1,0x0025
0798 01b9 0026  |   &|		.CONST	0x01b9,0x0026
079a ; --------------------------------------------------------------------------------------
079a ; Debug3 Subtable 0x5
079a ; --------------------------------------------------------------------------------------
079a 0002 001c  |    |		.DBG3TAB	0x0002,0x001c
079c 01cb ffff  |    |		.CONST	0x01cb,0xffff
079e 01cd fffe  |    |		.CONST	0x01cd,0xfffe
07a0 01cf 0001  |    |		.CONST	0x01cf,0x0001
07a2 01d5 0002  |    |		.CONST	0x01d5,0x0002
07a4 01dc 0003  |    |		.CONST	0x01dc,0x0003
07a6 01de 0004  |    |		.CONST	0x01de,0x0004
07a8 01e1 0005  |    |		.CONST	0x01e1,0x0005
07aa 01e2 0006  |    |		.CONST	0x01e2,0x0006
07ac 01e3 0007  |    |		.CONST	0x01e3,0x0007
07ae 01e7 0008  |    |		.CONST	0x01e7,0x0008
07b0 01eb 0009  |    |		.CONST	0x01eb,0x0009
07b2 01ee 000a  |    |		.CONST	0x01ee,0x000a
07b4 01ef 000b  |    |		.CONST	0x01ef,0x000b
07b6 01f7 000c  |    |		.CONST	0x01f7,0x000c
07b8 01f8 000d  |    |		.CONST	0x01f8,0x000d
07ba 01fd 000e  |    |		.CONST	0x01fd,0x000e
07bc 0201 000f  |    |		.CONST	0x0201,0x000f
07be 0202 000f  |    |		.CONST	0x0202,0x000f
07c0 0206 0010  |    |		.CONST	0x0206,0x0010
07c2 020a 0011  |    |		.CONST	0x020a,0x0011
07c4 020e 0012  |    |		.CONST	0x020e,0x0012
07c6 020f 0013  |    |		.CONST	0x020f,0x0013
07c8 0215 0014  |    |		.CONST	0x0215,0x0014
07ca 0219 0015  |    |		.CONST	0x0219,0x0015
07cc 021d 0016  |    |		.CONST	0x021d,0x0016
07ce 0220 0017  |    |		.CONST	0x0220,0x0017
07d0 0222 0018  | "  |		.CONST	0x0222,0x0018
07d2 0229 0019  | )  |		.CONST	0x0229,0x0019
07d4 022d 001a  | -  |		.CONST	0x022d,0x001a
07d6 0235 001b  | 5  |		.CONST	0x0235,0x001b
07d8 ; --------------------------------------------------------------------------------------
07d8 ; Debug3 Subtable 0x6
07d8 ; --------------------------------------------------------------------------------------
07d8 0001 000c  |    |		.DBG3TAB	0x0001,0x000c
07da 0243 ffff  | C  |		.CONST	0x0243,0xffff
07dc 0245 0001  | E  |		.CONST	0x0245,0x0001
07de 024b 0002  | K  |		.CONST	0x024b,0x0002
07e0 0252 0003  | R  |		.CONST	0x0252,0x0003
07e2 0255 0004  | U  |		.CONST	0x0255,0x0004
07e4 025f 0005  | _  |		.CONST	0x025f,0x0005
07e6 0265 0006  | e  |		.CONST	0x0265,0x0006
07e8 026b 0007  | k  |		.CONST	0x026b,0x0007
07ea 0270 0008  | p  |		.CONST	0x0270,0x0008
07ec 0274 000a  | t  |		.CONST	0x0274,0x000a
07ee 027b 000b  | {  |		.CONST	0x027b,0x000b
07f0 027f 000c  |    |		.CONST	0x027f,0x000c
07f2 0287 000d  |    |		.CONST	0x0287,0x000d
07f4 ; --------------------------------------------------------------------------------------
07f4 ; Debug3 Subtable 0x7
07f4 ; --------------------------------------------------------------------------------------
07f4 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
07f6 0293 ffff  |    |		.CONST	0x0293,0xffff
07f8 0295 0001  |    |		.CONST	0x0295,0x0001
07fa 029b 0002  |    |		.CONST	0x029b,0x0002
07fc 029e 0003  |    |		.CONST	0x029e,0x0003
07fe 02a5 0004  |    |		.CONST	0x02a5,0x0004
0800 02a6 0005  |    |		.CONST	0x02a6,0x0005
0802 ; --------------------------------------------------------------------------------------
0802 ; Debug3 Subtable 0x8
0802 ; --------------------------------------------------------------------------------------
0802 0001 000c  |    |		.DBG3TAB	0x0001,0x000c
0804 02b3 ffff  |    |		.CONST	0x02b3,0xffff
0806 02b5 0001  |    |		.CONST	0x02b5,0x0001
0808 02bb 0002  |    |		.CONST	0x02bb,0x0002
080a 02c2 0003  |    |		.CONST	0x02c2,0x0003
080c 02c5 0004  |    |		.CONST	0x02c5,0x0004
080e 02d2 0005  |    |		.CONST	0x02d2,0x0005
0810 02d8 0006  |    |		.CONST	0x02d8,0x0006
0812 02dc 0007  |    |		.CONST	0x02dc,0x0007
0814 02e5 0008  |    |		.CONST	0x02e5,0x0008
0816 02e8 0009  |    |		.CONST	0x02e8,0x0009
0818 02ef 000a  |    |		.CONST	0x02ef,0x000a
081a 02f3 000b  |    |		.CONST	0x02f3,0x000b
081c 02fb 000c  |    |		.CONST	0x02fb,0x000c
081e ; --------------------------------------------------------------------------------------
081e ; Debug3 Subtable 0x9
081e ; --------------------------------------------------------------------------------------
081e 0002 000e  |    |		.DBG3TAB	0x0002,0x000e
0820 030b ffff  |    |		.CONST	0x030b,0xffff
0822 030c fffe  |    |		.CONST	0x030c,0xfffe
0824 0311 0001  |    |		.CONST	0x0311,0x0001
0826 0315 0002  |    |		.CONST	0x0315,0x0002
0828 0326 0003  | &  |		.CONST	0x0326,0x0003
082a 0327 0004  | '  |		.CONST	0x0327,0x0004
082c 0328 0005  | (  |		.CONST	0x0328,0x0005
082e 032d 0006  | -  |		.CONST	0x032d,0x0006
0830 032e 0007  | .  |		.CONST	0x032e,0x0007
0832 0332 0008  | 2  |		.CONST	0x0332,0x0008
0834 0335 0009  | 5  |		.CONST	0x0335,0x0009
0836 0339 000a  | 9  |		.CONST	0x0339,0x000a
0838 033a 000b  | :  |		.CONST	0x033a,0x000b
083a 0345 000c  | E  |		.CONST	0x0345,0x000c
083c 0349 000d  | I  |		.CONST	0x0349,0x000d
083e 034c 000e  | L  |		.CONST	0x034c,0x000e
0840 ; --------------------------------------------------------------------------------------
0840 ; Debug3 Subtable 0xa
0840 ; --------------------------------------------------------------------------------------
0840 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0842 0363 0001  | c  |		.CONST	0x0363,0x0001
0844 0370 0004  | p  |		.CONST	0x0370,0x0004
0846 0371 0002  | q  |		.CONST	0x0371,0x0002
0848 0376 0003  | v  |		.CONST	0x0376,0x0003
084a ; --------------------------------------------------------------------------------------
084a ; Debug3 Subtable 0xb
084a ; --------------------------------------------------------------------------------------
084a 0001 0012  |    |		.DBG3TAB	0x0001,0x0012
084c 0383 ffff  |    |		.CONST	0x0383,0xffff
084e 0384 0001  |    |		.CONST	0x0384,0x0001
0850 0388 0002  |    |		.CONST	0x0388,0x0002
0852 0389 0401  |    |		.CONST	0x0389,0x0401
0854 038a 0002  |    |		.CONST	0x038a,0x0002
0856 038b 0003  |    |		.CONST	0x038b,0x0003
0858 0396 0004  |    |		.CONST	0x0396,0x0004
085a 0397 0801  |    |		.CONST	0x0397,0x0801
085c 0399 0802  |    |		.CONST	0x0399,0x0802
085e 039a 0803  |    |		.CONST	0x039a,0x0803
0860 039b 0804  |    |		.CONST	0x039b,0x0804
0862 039c 0004  |    |		.CONST	0x039c,0x0004
0864 03a0 0005  |    |		.CONST	0x03a0,0x0005
0866 03a2 0006  |    |		.CONST	0x03a2,0x0006
0868 03a3 0c01  |    |		.CONST	0x03a3,0x0c01
086a 03a4 0006  |    |		.CONST	0x03a4,0x0006
086c 03a6 0007  |    |		.CONST	0x03a6,0x0007
086e 03a7 1001  |    |		.CONST	0x03a7,0x1001
0870 03a8 0007  |    |		.CONST	0x03a8,0x0007
0872 ; --------------------------------------------------------------------------------------
0872 ; Debug3 Subtable 0xc
0872 ; --------------------------------------------------------------------------------------
0872 0005 0013  |    |		.DBG3TAB	0x0005,0x0013
0874 03b3 ffff  |    |		.CONST	0x03b3,0xffff
0876 03b4 fffe  |    |		.CONST	0x03b4,0xfffe
0878 03b8 fffd  |    |		.CONST	0x03b8,0xfffd
087a 03bb fffc  |    |		.CONST	0x03bb,0xfffc
087c 03c0 fffb  |    |		.CONST	0x03c0,0xfffb
087e 03c3 0002  |    |		.CONST	0x03c3,0x0002
0880 03cb 0003  |    |		.CONST	0x03cb,0x0003
0882 03cf 0004  |    |		.CONST	0x03cf,0x0004
0884 03d5 0005  |    |		.CONST	0x03d5,0x0005
0886 03dc 0006  |    |		.CONST	0x03dc,0x0006
0888 03df 0007  |    |		.CONST	0x03df,0x0007
088a 03e0 0401  |    |		.CONST	0x03e0,0x0401
088c 03e2 0007  |    |		.CONST	0x03e2,0x0007
088e 03e3 0008  |    |		.CONST	0x03e3,0x0008
0890 03eb 0009  |    |		.CONST	0x03eb,0x0009
0892 03f1 000a  |    |		.CONST	0x03f1,0x000a
0894 03f6 000b  |    |		.CONST	0x03f6,0x000b
0896 03f9 000c  |    |		.CONST	0x03f9,0x000c
0898 03fe 000d  |    |		.CONST	0x03fe,0x000d
089a 0404 000e  |    |		.CONST	0x0404,0x000e
089c 0408 000f  |    |		.CONST	0x0408,0x000f
089e 040c 0001  |    |		.CONST	0x040c,0x0001
08a0 0412 0010  |    |		.CONST	0x0412,0x0010
08a2 0414 0011  |    |		.CONST	0x0414,0x0011
08a4 ; --------------------------------------------------------------------------------------
08a4 ; Debug3 Subtable 0xd
08a4 ; --------------------------------------------------------------------------------------
08a4 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
08a6 041b ffff  |    |		.CONST	0x041b,0xffff
08a8 0421 fffe  | !  |		.CONST	0x0421,0xfffe
08aa 0428 0001  | (  |		.CONST	0x0428,0x0001
08ac 0435 0002  | 5  |		.CONST	0x0435,0x0002
08ae 0443 0003  | C  |		.CONST	0x0443,0x0003
08b0 044f 0004  | O  |		.CONST	0x044f,0x0004
08b2 ; --------------------------------------------------------------------------------------
08b2 ; Debug3 Subtable 0xe
08b2 ; --------------------------------------------------------------------------------------
08b2 0001 0010  |    |		.DBG3TAB	0x0001,0x0010
08b4 045b ffff  | [  |		.CONST	0x045b,0xffff
08b6 0460 0001  | `  |		.CONST	0x0460,0x0001
08b8 0463 0002  | c  |		.CONST	0x0463,0x0002
08ba 0474 0003  | t  |		.CONST	0x0474,0x0003
08bc 0479 0004  | y  |		.CONST	0x0479,0x0004
08be 047d 0005  | }  |		.CONST	0x047d,0x0005
08c0 0484 0006  |    |		.CONST	0x0484,0x0006
08c2 0489 0007  |    |		.CONST	0x0489,0x0007
08c4 048f 0008  |    |		.CONST	0x048f,0x0008
08c6 0494 0009  |    |		.CONST	0x0494,0x0009
08c8 049a 000a  |    |		.CONST	0x049a,0x000a
08ca 049b 0401  |    |		.CONST	0x049b,0x0401
08cc 049d 000a  |    |		.CONST	0x049d,0x000a
08ce 049e 000b  |    |		.CONST	0x049e,0x000b
08d0 04a3 000c  |    |		.CONST	0x04a3,0x000c
08d2 04a8 000d  |    |		.CONST	0x04a8,0x000d
08d4 04ac 000e  |    |		.CONST	0x04ac,0x000e
08d6 ; --------------------------------------------------------------------------------------
08d6 ; Debug3 Subtable 0xf
08d6 ; --------------------------------------------------------------------------------------
08d6 0001 000f  |    |		.DBG3TAB	0x0001,0x000f
08d8 04bb ffff  |    |		.CONST	0x04bb,0xffff
08da 04bc 0001  |    |		.CONST	0x04bc,0x0001
08dc 04c2 0002  |    |		.CONST	0x04c2,0x0002
08de 04c8 0003  |    |		.CONST	0x04c8,0x0003
08e0 04cd 0004  |    |		.CONST	0x04cd,0x0004
08e2 04d0 0005  |    |		.CONST	0x04d0,0x0005
08e4 04d1 0401  |    |		.CONST	0x04d1,0x0401
08e6 04d3 0005  |    |		.CONST	0x04d3,0x0005
08e8 04d4 0006  |    |		.CONST	0x04d4,0x0006
08ea 04dc 0007  |    |		.CONST	0x04dc,0x0007
08ec 04e2 0008  |    |		.CONST	0x04e2,0x0008
08ee 04e9 0009  |    |		.CONST	0x04e9,0x0009
08f0 04ee 000a  |    |		.CONST	0x04ee,0x000a
08f2 04f2 000b  |    |		.CONST	0x04f2,0x000b
08f4 04f7 000c  |    |		.CONST	0x04f7,0x000c
08f6 04fc 000d  |    |		.CONST	0x04fc,0x000d
08f8 ; --------------------------------------------------------------------------------------
08f8 ; Debug3 Subtable 0x10
08f8 ; --------------------------------------------------------------------------------------
08f8 0006 0018  |    |		.DBG3TAB	0x0006,0x0018
08fa 050b ffff  |    |		.CONST	0x050b,0xffff
08fc 050f fffe  |    |		.CONST	0x050f,0xfffe
08fe 0511 fffd  |    |		.CONST	0x0511,0xfffd
0900 0513 fffc  |    |		.CONST	0x0513,0xfffc
0902 0518 fffb  |    |		.CONST	0x0518,0xfffb
0904 051a fffa  |    |		.CONST	0x051a,0xfffa
0906 051c 0001  |    |		.CONST	0x051c,0x0001
0908 052e 0004  | .  |		.CONST	0x052e,0x0004
090a 0538 0006  | 8  |		.CONST	0x0538,0x0006
090c 0539 0005  | 9  |		.CONST	0x0539,0x0005
090e 053b 0007  | ;  |		.CONST	0x053b,0x0007
0910 053f 0008  | ?  |		.CONST	0x053f,0x0008
0912 0545 0009  | E  |		.CONST	0x0545,0x0009
0914 054a 000a  | J  |		.CONST	0x054a,0x000a
0916 054c 000b  | L  |		.CONST	0x054c,0x000b
0918 0553 000f  | S  |		.CONST	0x0553,0x000f
091a 0554 000c  | T  |		.CONST	0x0554,0x000c
091c 0557 000d  | W  |		.CONST	0x0557,0x000d
091e 055b 000e  | [  |		.CONST	0x055b,0x000e
0920 055e 0010  | ^  |		.CONST	0x055e,0x0010
0922 0562 0011  | b  |		.CONST	0x0562,0x0011
0924 0563 0012  | c  |		.CONST	0x0563,0x0012
0926 0569 0013  | i  |		.CONST	0x0569,0x0013
0928 056e 0015  | n  |		.CONST	0x056e,0x0015
092a 0576 0016  | v  |		.CONST	0x0576,0x0016
092c 057a 0017  | z  |		.CONST	0x057a,0x0017
092e 0583 0018  |    |		.CONST	0x0583,0x0018
0930 058b 0014  |    |		.CONST	0x058b,0x0014
0932 058f 0019  |    |		.CONST	0x058f,0x0019
0934 0592 001a  |    |		.CONST	0x0592,0x001a
0936 ; --------------------------------------------------------------------------------------
0936 ; Debug3 Subtable 0x11
0936 ; --------------------------------------------------------------------------------------
0936 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0938 05ab 0001  |    |		.CONST	0x05ab,0x0001
093a 05af 0002  |    |		.CONST	0x05af,0x0002
093c 05b4 0003  |    |		.CONST	0x05b4,0x0003
093e 0000 0000  |    |		.BLANK	0000[0xc2]