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

⟦f4abf23fc⟧

    Length: 6144 (0x1800)
    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 0840       | @  |		.CONST	0x0840								; 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 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003b       | ;  |		.CONST	0x003b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001a       |    |		.CONST	0x001a								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x08c2,0x8000,0x0000,0x005a,0x60f5,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x2 = 0xe,0xfffd
000f 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x000f,0x08ca,0x8000,0x0000,0x005a,0x6465,0x0000,0x0025
													; Debug Table 0x1.0x0 = 0xf,0xffff
0010 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x10,0xfffe
0011 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x11,0xfffd
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x12,0xfffc
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x13,0xfffb
0014 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x14,0xfffa
0015 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x15,0xfff9
0016 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x16,0xfff8
0017 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x8 = 0x17,0xfff7
0018 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x9 = 0x18,0xfff6
0019 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xa = 0x19,0xfff5
001a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xb = 0x1a,0xfff4
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xc = 0x1b,0xfff3
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xd = 0x1c,0xfff2
001d e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0xe = 0x1d,0xfff1
001e 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
001f 0007       |    |		Action	Break_Optional
0020 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call			; Debug Table 0x1.0xf = 0x20,0xfff0
0022 029d 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call			; Debug Table 0x1.0x10 = 0x22,0xffef
0024 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call			; Debug Table 0x1.0x11 = 0x24,0xffee
0026 029d 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call			; Debug Table 0x1.0x12 = 0x26,0xffed
0028 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x13 = 0x28,0xffec
0029 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call			; Debug Table 0x1.0x14 = 0x29,0xffeb
002b 029d 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call			; Debug Table 0x1.0x15 = 0x2b,0xffea
002d 029d 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call			; Debug Table 0x1.0x16 = 0x2d,0xffe9
002f 029d 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call			; Debug Table 0x1.0x17 = 0x2f,0xffe8
0031 029d 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call			; Debug Table 0x1.0x18 = 0x31,0xffe7
0033 029d 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call			; Debug Table 0x1.0x19 = 0x33,0xffe6
0035 029d 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call			; Debug Table 0x1.0x1a = 0x35,0xffe5
0037 029d 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call			; Debug Table 0x1.0x1b = 0x37,0xffe4
0039 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x1c = 0x39,0xffe3
003a 00c7       |    |		Action	Elaborate_Subprogram
003b			BODY_0008:
003b 00bc       |    |		Action	Signal_Activated
003c 00bb       |    |		Action	Signal_Completion
003d 0000 0000  |    |		.XXX[0x3]
003f 0000       |    |
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0062       | b  |		.CONST	0x0062								; Address of begin
0041 0195       |    |		.CONST	0x0195								; Address of exception handler
0042 000a       |    |		.CONST	0x000a								; Number of locals
0043			INIT_0040:
0043 e002       |    |		Load	0x0,0x2								; Debug Table 0x2 = .DEBUG	0x0043,0x0906,0x0001,0x0000,0x005a,0x60f5,0x0000,0x000a
													; Debug Table 0x2.0x0 = 0x43,0xffff
0044 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0045 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0046 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x1 = 0x46,0xfffe
0047 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0048 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0049 02c7       |    |		Declare_Variable	Any
004a 00d8       |    |		Load_Top	At_Offset_0
004b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004c 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x2.0x2 = 0x4c,0xfffd
004d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
004e 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x2.0x3 = 0x4e,0xfffc
004f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0050 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x2.0x4 = 0x50,0xfffb
0051 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0052 e003       |    |		Load	0x0,0x3								; Debug Table 0x2.0x5 = 0x52,0xfffa
0053 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0054 02c7       |    |		Declare_Variable	Any
0055 e003       |    |		Load	0x0,0x3
0056 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0057 c407       |    |		Store	0x2,0x7
0058 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x6 = 0x58,0xfff9
0059 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
005a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
005b e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x7 = 0x5b,0xfff8
005c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
005d 0322       | "  |		Declare_Variable	Record
005e 00d8       |    |		Load_Top	At_Offset_0
005f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0060 029f 069b  |    |		Declare_Subprogram	INIT_0698,For_Call
0062			BODY_0040:
0062 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x8 = 0x62,0x1
0063 a5f9       |    |		Store_Unchecked	0x2,-0x7
0064 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x9 = 0x64,0x2
0065 01db       |    |		Execute	Vector,Length
0066 700f       |p   |		Jump_Nonzero	0x76
0067 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0xa = 0x67,0x3
0068 0092 06b8  |    |		Action	Push_String_Extended,0x6b8					; "The unit name given to "
006a 4800       |H   |		Short_Literal	0x0
006b 4800       |H   |		Short_Literal	0x0
006c 4801       |H   |		Short_Literal	0x1
006d e5fb       |    |		Load	0x2,-0x5
006e 8213       |    |		Call	0x1,0x13
006f 01cc       |    |		Execute	Vector,Catenate
0070 0092 06b9  |    |		Action	Push_String_Extended,0x6b9					; " should not be the null string"
0072 01cc       |    |		Execute	Vector,Catenate
0073 820f       |    |		Call	0x1,0xf
0074 820e       |    |		Call	0x1,0xe
0075 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7					; Debug Table 0x2.0xb = 0x75,0x4
0076 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0xc = 0x76,0x5
0077 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0078 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0079 e004       |    |		Load	0x0,0x4
007a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
007b e005       |    |		Load	0x0,0x5
007c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
007d e001       |    |		Load	0x0,0x1
007e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
007f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0080 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0081 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x2.0xd = 0x81,0x6
0082 6819       |h   |		Jump_Zero	0x9c
0083 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0xe = 0x83,0x7
0084 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0085 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0086 e403       |    |		Load	0x2,0x3
0087 6320       |c   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
0088 e003       |    |		Load	0x0,0x3
0089 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008a e004       |    |		Load	0x0,0x4
008b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
008c e005       |    |		Load	0x0,0x5
008d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
008e 4801       |H   |		Short_Literal	0x1
008f 4800       |H   |		Short_Literal	0x0
0090 e004       |    |		Load	0x0,0x4
0091 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0092 e002       |    |		Load	0x0,0x2
0093 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0094 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0095 e5ff       |    |		Load	0x2,-0x1
0096 e002       |    |		Load	0x0,0x2
0097 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0098 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0099 c403       |    |		Store	0x2,0x3
009a c402       |    |		Store	0x2,0x2
009b 781c       |x   |		Jump	0xb8
009c e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0xf = 0x9c,0x8
009d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
009e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
009f e403       |    |		Load	0x2,0x3
00a0 6307       |c   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
00a1 e003       |    |		Load	0x0,0x3
00a2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a3 e004       |    |		Load	0x0,0x4
00a4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a5 e005       |    |		Load	0x0,0x5
00a6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a7 4801       |H   |		Short_Literal	0x1
00a8 4800       |H   |		Short_Literal	0x0
00a9 e004       |    |		Load	0x0,0x4
00aa 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ab e002       |    |		Load	0x0,0x2
00ac 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ad 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ae 487d       |H}  |		Short_Literal	0x7d
00af 487b       |H{  |		Short_Literal	0x7b
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 01ca       |    |		Execute	Vector,Prepend
00b2 01cb       |    |		Execute	Vector,Append
00b3 e002       |    |		Load	0x0,0x2
00b4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00b5 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00b6 c403       |    |		Store	0x2,0x3
00b7 c402       |    |		Store	0x2,0x2
00b8 840a       |    |		Call	0x2,0xa								; Debug Table 0x2.0x10 = 0xb8,0x9
00b9 e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x11 = 0xb9,0xa
00ba 702d       |p-  |		Jump_Nonzero	0xe8
00bb e006       |    |		Load	0x0,0x6								; Debug Table 0x2.0x12 = 0xbb,0xb
00bc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00bd e5fa       |    |		Load	0x2,-0x6
00be e003       |    |		Load	0x0,0x3
00bf 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00c0 c407       |    |		Store	0x2,0x7
00c1 e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x13 = 0xc1,0xc
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 e405       |    |		Load	0x2,0x5
00c4 e403       |    |		Load	0x2,0x3
00c5 e5fd       |    |		Load	0x2,-0x3
00c6 e407       |    |		Load	0x2,0x7
00c7 e409       |    |		Load	0x2,0x9
00c8 e5fb       |    |		Load	0x2,-0x5
00c9 821a       |    |		Call	0x1,0x1a
00ca c403       |    |		Store	0x2,0x3
00cb c405       |    |		Store	0x2,0x5
00cc c408       |    |		Store	0x2,0x8
00cd c404       |    |		Store	0x2,0x4
00ce 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x14 = 0xce,0xd
00cf 4801       |H   |		Short_Literal	0x1
00d0 4801       |H   |		Short_Literal	0x1
00d1 e5fa       |    |		Load	0x2,-0x6
00d2 e003       |    |		Load	0x0,0x3
00d3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d4 c407       |    |		Store	0x2,0x7
00d5 e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x15 = 0xd5,0xe
00d6 701f       |p   |		Jump_Nonzero	0xf6
00d7 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x16 = 0xd7,0xf
00d8 0092 06ba  |    |		Action	Push_String_Extended,0x6ba					; "No "
00da 4800       |H   |		Short_Literal	0x0
00db 4800       |H   |		Short_Literal	0x0
00dc 4800       |H   |		Short_Literal	0x0
00dd e5fb       |    |		Load	0x2,-0x5
00de 8213       |    |		Call	0x1,0x13
00df 01cc       |    |		Execute	Vector,Catenate
00e0 0092 06bb  |    |		Action	Push_String_Extended,0x6bb					; "able objects match "
00e2 01cc       |    |		Execute	Vector,Catenate
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 01cc       |    |		Execute	Vector,Catenate
00e5 820f       |    |		Call	0x1,0xf
00e6 820e       |    |		Call	0x1,0xe
00e7 780e       |x   |		Jump	0xf6
00e8 4805       |H   |		Short_Literal	0x5							; Debug Table 0x2.0x17 = 0xe8,0x10
00e9 e5fd       |    |		Load	0x2,-0x3
00ea e5ff       |    |		Load	0x2,-0x1
00eb 0092 06bc  |    |		Action	Push_String_Extended,0x6bc					; "finding objects to "
00ed 4800       |H   |		Short_Literal	0x0
00ee 4800       |H   |		Short_Literal	0x0
00ef 4800       |H   |		Short_Literal	0x0
00f0 e5fb       |    |		Load	0x2,-0x5
00f1 8213       |    |		Call	0x1,0x13
00f2 01cc       |    |		Execute	Vector,Catenate
00f3 e402       |    |		Load	0x2,0x2
00f4 e007       |    |		Load	0x0,0x7
00f5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00f6 e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x18 = 0xf6,0x11
00f7 e002       |    |		Load	0x0,0x2
00f8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f9 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
00fa c403       |    |		Store	0x2,0x3
00fb e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x19 = 0xfb,0x12
00fc e404       |    |		Load	0x2,0x4
00fd e5fe       |    |		Load	0x2,-0x2
00fe 0271       | q  |		Execute	Discrete,Times
00ff 027d       | }  |		Execute	Discrete,Greater
0100 680e       |h   |		Jump_Zero	0x10f
0101 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x1a = 0x101,0x13
0102 0092 06bd  |    |		Action	Push_String_Extended,0x6bd					; "Number of marked objects,"
0104 e405       |    |		Load	0x2,0x5
0105 00e0       |    |		Load_Encached	Standard_Cache
0106 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0107 01cc       |    |		Execute	Vector,Catenate
0108 0092 06be  |    |		Action	Push_String_Extended,0x6be					; ", exceeds threshold"
010a 01cc       |    |		Execute	Vector,Catenate
010b 820f       |    |		Call	0x1,0xf
010c 820e       |    |		Call	0x1,0xe
010d 6296       |b   |		Indirect_Literal	Discrete,0x3a4,{0x00000000, 0x5a646501}		; Debug Table 0x2.0x1b = 0x10d,0x14
010e 0257       | W  |		Execute	Discrete,Raise
010f e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x1c = 0x10f,0x15
0110 0f01       |    |		Execute_Immediate	Equal,0x1
0111 680c       |h   |		Jump_Zero	0x11e
0112 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x1d = 0x112,0x16
0113 0092 06bf  |    |		Action	Push_String_Extended,0x6bf					; "The 1 marked object will now be "
0115 4801       |H   |		Short_Literal	0x1
0116 4800       |H   |		Short_Literal	0x0
0117 4800       |H   |		Short_Literal	0x0
0118 e5fb       |    |		Load	0x2,-0x5
0119 8213       |    |		Call	0x1,0x13
011a 01cc       |    |		Execute	Vector,Catenate
011b 8212       |    |		Call	0x1,0x12
011c 820e       |    |		Call	0x1,0xe
011d 7815       |x   |		Jump	0x133
011e e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x1e = 0x11e,0x17
011f 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0120 6812       |h   |		Jump_Zero	0x133
0121 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x1f = 0x121,0x18
0122 0092 06c0  |    |		Action	Push_String_Extended,0x6c0					; "The"
0124 e405       |    |		Load	0x2,0x5
0125 00e0       |    |		Load_Encached	Standard_Cache
0126 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0127 01cc       |    |		Execute	Vector,Catenate
0128 0092 06c1  |    |		Action	Push_String_Extended,0x6c1					; " marked objects will now be "
012a 01cc       |    |		Execute	Vector,Catenate
012b 4801       |H   |		Short_Literal	0x1
012c 4800       |H   |		Short_Literal	0x0
012d 4800       |H   |		Short_Literal	0x0
012e e5fb       |    |		Load	0x2,-0x5
012f 8213       |    |		Call	0x1,0x13
0130 01cc       |    |		Execute	Vector,Catenate
0131 8212       |    |		Call	0x1,0x12
0132 820e       |    |		Call	0x1,0xe
0133 e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0x20 = 0x133,0x19
0134 00da       |    |		Load_Top	At_Offset_2
0135 e5fa       |    |		Load	0x2,-0x6
0136 e5fd       |    |		Load	0x2,-0x3
0137 e5fb       |    |		Load	0x2,-0x5
0138 e408       |    |		Load	0x2,0x8
0139 8218       |    |		Call	0x1,0x18
013a c406       |    |		Store	0x2,0x6
013b e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x21 = 0x13b,0x1a
013c e406       |    |		Load	0x2,0x6
013d 027f       |    |		Execute	Discrete,Equal
013e 680c       |h   |		Jump_Zero	0x14b
013f e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x22 = 0x13f,0x1b
0140 0092 06c2  |    |		Action	Push_String_Extended,0x6c2					; "No objects have been "
0142 4801       |H   |		Short_Literal	0x1
0143 4800       |H   |		Short_Literal	0x0
0144 4800       |H   |		Short_Literal	0x0
0145 e5fb       |    |		Load	0x2,-0x5
0146 8213       |    |		Call	0x1,0x13
0147 01cc       |    |		Execute	Vector,Catenate
0148 8210       |    |		Call	0x1,0x10
0149 820e       |    |		Call	0x1,0xe
014a 7823       |x#  |		Jump	0x16e
014b e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x23 = 0x14b,0x1c
014c e406       |    |		Load	0x2,0x6
014d 0272       | r  |		Execute	Discrete,Minus
014e 0f01       |    |		Execute_Immediate	Equal,0x1
014f 680c       |h   |		Jump_Zero	0x15c
0150 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x24 = 0x150,0x1d
0151 0092 06c3  |    |		Action	Push_String_Extended,0x6c3					; " 1 object has been "
0153 4801       |H   |		Short_Literal	0x1
0154 4800       |H   |		Short_Literal	0x0
0155 4800       |H   |		Short_Literal	0x0
0156 e5fb       |    |		Load	0x2,-0x5
0157 8213       |    |		Call	0x1,0x13
0158 01cc       |    |		Execute	Vector,Catenate
0159 8210       |    |		Call	0x1,0x10
015a 820e       |    |		Call	0x1,0xe
015b 7812       |x   |		Jump	0x16e
015c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x25 = 0x15c,0x1e
015d e405       |    |		Load	0x2,0x5
015e e406       |    |		Load	0x2,0x6
015f 0272       | r  |		Execute	Discrete,Minus
0160 0248       | H  |		Execute	Discrete,Check_In_Integer
0161 00e0       |    |		Load_Encached	Standard_Cache
0162 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0163 0092 06c4  |    |		Action	Push_String_Extended,0x6c4					; " objects have been "
0165 01cc       |    |		Execute	Vector,Catenate
0166 4801       |H   |		Short_Literal	0x1
0167 4800       |H   |		Short_Literal	0x0
0168 4800       |H   |		Short_Literal	0x0
0169 e5fb       |    |		Load	0x2,-0x5
016a 8213       |    |		Call	0x1,0x13
016b 01cc       |    |		Execute	Vector,Catenate
016c 8210       |    |		Call	0x1,0x10
016d 820e       |    |		Call	0x1,0xe
016e e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x26 = 0x16e,0x1f
016f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0170 e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0x27 = 0x170,0x20
0171 0f00       |    |		Execute_Immediate	Equal,0x0
0172 a5f9       |    |		Store_Unchecked	0x2,-0x7
0173 e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0x28 = 0x173,0x21
0174 0f01       |    |		Execute_Immediate	Equal,0x1
0175 680c       |h   |		Jump_Zero	0x182
0176 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x29 = 0x176,0x22
0177 0092 06c5  |    |		Action	Push_String_Extended,0x6c5					; " 1 object could not be "
0179 4801       |H   |		Short_Literal	0x1
017a 4800       |H   |		Short_Literal	0x0
017b 4800       |H   |		Short_Literal	0x0
017c e5fb       |    |		Load	0x2,-0x5
017d 8213       |    |		Call	0x1,0x13
017e 01cc       |    |		Execute	Vector,Catenate
017f 820f       |    |		Call	0x1,0xf
0180 820e       |    |		Call	0x1,0xe
0181 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0182 e406       |    |		Load	0x2,0x6								; Debug Table 0x2.0x2a = 0x182,0x23
0183 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0184 680f       |h   |		Jump_Zero	0x194
0185 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x2b = 0x185,0x24
0186 e406       |    |		Load	0x2,0x6
0187 00e0       |    |		Load_Encached	Standard_Cache
0188 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0189 0092 06c6  |    |		Action	Push_String_Extended,0x6c6					; " objects could not be "
018b 01cc       |    |		Execute	Vector,Catenate
018c 4801       |H   |		Short_Literal	0x1
018d 4800       |H   |		Short_Literal	0x0
018e 4800       |H   |		Short_Literal	0x0
018f e5fb       |    |		Load	0x2,-0x5
0190 8213       |    |		Call	0x1,0x13
0191 01cc       |    |		Execute	Vector,Catenate
0192 820f       |    |		Call	0x1,0xf
0193 820e       |    |		Call	0x1,0xe
0194 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0195			TRAP_0040:
0195 e008       |    |		Load	0x0,0x8
0196 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0197 010f       |    |		Execute	Exception,Equal
0198 6819       |h   |		Jump_Zero	0x1b2
0199 e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x2c = 0x199,0x25
019a e002       |    |		Load	0x0,0x2
019b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
019c 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
019d c403       |    |		Store	0x2,0x3
019e e407       |    |		Load	0x2,0x7								; Debug Table 0x2.0x2d = 0x19e,0x26
019f 4801       |H   |		Short_Literal	0x1
01a0 4800       |H   |		Short_Literal	0x0
01a1 e5fa       |    |		Load	0x2,-0x6
01a2 e003       |    |		Load	0x0,0x3
01a3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01a4 c407       |    |		Store	0x2,0x7
01a5 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x2e = 0x1a5,0x27
01a6 0092 06c7  |    |		Action	Push_String_Extended,0x6c7					; "No objects will be "
01a8 4801       |H   |		Short_Literal	0x1
01a9 4800       |H   |		Short_Literal	0x0
01aa 4800       |H   |		Short_Literal	0x0
01ab e5fb       |    |		Load	0x2,-0x5
01ac 8213       |    |		Call	0x1,0x13
01ad 01cc       |    |		Execute	Vector,Catenate
01ae 8211       |    |		Call	0x1,0x11
01af 820e       |    |		Call	0x1,0xe
01b0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x2f = 0x1b0,0x28
01b1 0101       |    |		Execute	Exception,Reraise
01b2 61f1       |a   |		Indirect_Literal	Discrete,0x3a4,{0x00000000, 0x5a646501}
01b3 010f       |    |		Execute	Exception,Equal
01b4 6818       |h   |		Jump_Zero	0x1cd
01b5 e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x30 = 0x1b5,0x29
01b6 e002       |    |		Load	0x0,0x2
01b7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01b8 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
01b9 c403       |    |		Store	0x2,0x3
01ba e407       |    |		Load	0x2,0x7								; Debug Table 0x2.0x31 = 0x1ba,0x2a
01bb 4801       |H   |		Short_Literal	0x1
01bc 4800       |H   |		Short_Literal	0x0
01bd e5fa       |    |		Load	0x2,-0x6
01be e003       |    |		Load	0x0,0x3
01bf 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01c0 c407       |    |		Store	0x2,0x7
01c1 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x32 = 0x1c1,0x2b
01c2 0092 06c7  |    |		Action	Push_String_Extended,0x6c7					; "No objects will be "
01c4 4801       |H   |		Short_Literal	0x1
01c5 4800       |H   |		Short_Literal	0x0
01c6 4800       |H   |		Short_Literal	0x0
01c7 e5fb       |    |		Load	0x2,-0x5
01c8 8213       |    |		Call	0x1,0x13
01c9 01cc       |    |		Execute	Vector,Catenate
01ca 8211       |    |		Call	0x1,0x11
01cb 820e       |    |		Call	0x1,0xe
01cc 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01cd e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x33 = 0x1cd,0x2c
01ce e002       |    |		Load	0x0,0x2
01cf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01d0 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
01d1 c403       |    |		Store	0x2,0x3
01d2 e407       |    |		Load	0x2,0x7								; Debug Table 0x2.0x34 = 0x1d2,0x2d
01d3 4801       |H   |		Short_Literal	0x1
01d4 4800       |H   |		Short_Literal	0x0
01d5 e5fa       |    |		Load	0x2,-0x6
01d6 e003       |    |		Load	0x0,0x3
01d7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01d8 c407       |    |		Store	0x2,0x7
01d9 4808       |H   |		Short_Literal	0x8							; Debug Table 0x2.0x35 = 0x1d9,0x2e
01da e5fd       |    |		Load	0x2,-0x3
01db e009       |    |		Load	0x0,0x9
01dc 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01dd 0092 06c8  |    |		Action	Push_String_Extended,0x6c8					; " "
01df 01cc       |    |		Execute	Vector,Catenate
01e0 4800       |H   |		Short_Literal	0x0
01e1 4801       |H   |		Short_Literal	0x1
01e2 4800       |H   |		Short_Literal	0x0
01e3 e5fb       |    |		Load	0x2,-0x5
01e4 8213       |    |		Call	0x1,0x13
01e5 01cc       |    |		Execute	Vector,Catenate
01e6 0092 06c8  |    |		Action	Push_String_Extended,0x6c8					; " "
01e8 01cc       |    |		Execute	Vector,Catenate
01e9 e5ff       |    |		Load	0x2,-0x1
01ea 01cc       |    |		Execute	Vector,Catenate
01eb e007       |    |		Load	0x0,0x7
01ec 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01ed e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x36 = 0x1ed,0x2f
01ee 0092 06c7  |    |		Action	Push_String_Extended,0x6c7					; "No objects will be "
01f0 4801       |H   |		Short_Literal	0x1
01f1 4800       |H   |		Short_Literal	0x0
01f2 4800       |H   |		Short_Literal	0x0
01f3 e5fb       |    |		Load	0x2,-0x5
01f4 8213       |    |		Call	0x1,0x13
01f5 01cc       |    |		Execute	Vector,Catenate
01f6 8211       |    |		Call	0x1,0x11
01f7 820e       |    |		Call	0x1,0xe
01f8 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 4805       |H   |		Short_Literal	0x5							; Debug Table 0x3 = .DEBUG	0x0203,0x0976,0x0005,0x0000,0x005a,0x4d85,0x0000,0x008f
0204 00ca       |    |		Action	Exit_Nullary_Function
0205 0000 0000  |    |		.XXX[0x3]
0207 0000       |    |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4803       |H   |		Short_Literal	0x3							; Debug Table 0x4 = .DEBUG	0x020b,0x0978,0x0005,0x0000,0x005a,0x4d85,0x0000,0x008d
020c 00ca       |    |		Action	Exit_Nullary_Function
020d 0000 0000  |    |		.XXX[0x3]
020f 0000       |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4806       |H   |		Short_Literal	0x6							; Debug Table 0x5 = .DEBUG	0x0213,0x097a,0x0005,0x0000,0x005a,0x4d85,0x0000,0x0090
0214 00ca       |    |		Action	Exit_Nullary_Function
0215 0000 0000  |    |		.XXX[0x3]
0217 0000       |    |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 4802       |H   |		Short_Literal	0x2							; Debug Table 0x6 = .DEBUG	0x021b,0x097c,0x0005,0x0000,0x005a,0x4d85,0x0000,0x008c
021c 00ca       |    |		Action	Exit_Nullary_Function
021d 0000 0000  |    |		.XXX[0x3]
021f 0000       |    |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x0223,0x097e,0x0002,0x0000,0x005a,0x6465,0x0000,0x00d9
													; Debug Table 0x7.0x0 = 0x223,0x1
0224 681c       |h   |		Jump_Zero	0x241
0225 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x1 = 0x225,0x2
0226 680d       |h   |		Jump_Zero	0x234
0227 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x7.0x2 = 0x227,0x3
0228 6803       |h   |		Jump_Zero	0x22c
0229 0092 06c9  |    |		Action	Push_String_Extended,0x6c9					; "Deleting"
													; Debug Table 0x7.0x3 = 0x229,0x4
022b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
022c e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0x4 = 0x22c,0x5
022d 6803       |h   |		Jump_Zero	0x231
022e 0092 06ca  |    |		Action	Push_String_Extended,0x6ca					; "Deleted"
													; Debug Table 0x7.0x5 = 0x22e,0x6
0230 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0231 0092 06cb  |    |		Action	Push_String_Extended,0x6cb					; "Delete"
													; Debug Table 0x7.0x6 = 0x231,0x7
0233 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0234 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x7.0x7 = 0x234,0x8
0235 6803       |h   |		Jump_Zero	0x239
0236 0092 06cc  |    |		Action	Push_String_Extended,0x6cc					; "deleting"
													; Debug Table 0x7.0x8 = 0x236,0x9
0238 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0239 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0x9 = 0x239,0xa
023a 6803       |h   |		Jump_Zero	0x23e
023b 0092 06cd  |    |		Action	Push_String_Extended,0x6cd					; "deleted"
													; Debug Table 0x7.0xa = 0x23b,0xb
023d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
023e 0092 06ce  |    |		Action	Push_String_Extended,0x6ce					; "delete"
													; Debug Table 0x7.0xb = 0x23e,0xc
0240 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0241 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0xc = 0x241,0xd
0242 680d       |h   |		Jump_Zero	0x250
0243 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x7.0xd = 0x243,0xe
0244 6803       |h   |		Jump_Zero	0x248
0245 0092 06cf  |    |		Action	Push_String_Extended,0x6cf					; "Destroying"
													; Debug Table 0x7.0xe = 0x245,0xf
0247 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0248 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0xf = 0x248,0x10
0249 6803       |h   |		Jump_Zero	0x24d
024a 0092 06d0  |    |		Action	Push_String_Extended,0x6d0					; "Destroyed"
													; Debug Table 0x7.0x10 = 0x24a,0x11
024c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
024d 0092 06d1  |    |		Action	Push_String_Extended,0x6d1					; "Destroy"
													; Debug Table 0x7.0x11 = 0x24d,0x12
024f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0250 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x7.0x12 = 0x250,0x13
0251 6803       |h   |		Jump_Zero	0x255
0252 0092 06d2  |    |		Action	Push_String_Extended,0x6d2					; "destroying"
													; Debug Table 0x7.0x13 = 0x252,0x14
0254 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0255 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0x14 = 0x255,0x15
0256 6803       |h   |		Jump_Zero	0x25a
0257 0092 06d3  |    |		Action	Push_String_Extended,0x6d3					; "destroyed"
													; Debug Table 0x7.0x15 = 0x257,0x16
0259 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
025a 0092 06d4  |    |		Action	Push_String_Extended,0x6d4					; "destroy"
													; Debug Table 0x7.0x16 = 0x25a,0x17
025c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
025d 0000 0000  |    |		.XXX[0x3]
025f 0000       |    |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 028e       |    |		.CONST	0x028e								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0009       |    |		.CONST	0x0009								; Number of locals
0263			INIT_0260:
0263 e002       |    |		Load	0x0,0x2								; Debug Table 0x8 = .DEBUG	0x0263,0x09ae,0x0002,0x0000,0x005a,0x6465,0x0000,0x0143
													; Debug Table 0x8.0x0 = 0x263,0xffff
0264 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0265 e00a       |    |		Load	0x0,0xa								; Debug Table 0x8.0x1 = 0x265,0xfffe
0266 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0267 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x8.0x2 = 0x267,0xfffd
0268 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x3 = 0x268,0xfffc
0269 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
026a 02ff       |    |		Declare_Variable	Variant_Record
026b 00d8       |    |		Load_Top	At_Offset_0
026c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
026d e00b       |    |		Load	0x0,0xb								; Debug Table 0x8.0x4 = 0x26d,0xfffb
026e 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
026f 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x8.0x5 = 0x26f,0xfffa
0270 e004       |    |		Load	0x0,0x4
0271 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0272 e005       |    |		Load	0x0,0x5
0273 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0274 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0275 e00c       |    |		Load	0x0,0xc								; Debug Table 0x8.0x6 = 0x275,0xfff9
0276 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0277 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0278 02c7       |    |		Declare_Variable	Any
0279 4800       |H   |		Short_Literal	0x0
027a 4800       |H   |		Short_Literal	0x0
027b 4801       |H   |		Short_Literal	0x1
027c e00d       |    |		Load	0x0,0xd
027d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
027e e5fe       |    |		Load	0x2,-0x2
027f e407       |    |		Load	0x2,0x7
0280 e00c       |    |		Load	0x0,0xc
0281 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0282 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0283 c408       |    |		Store	0x2,0x8
0284 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x7 = 0x284,0xfff8
0285 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0286 02c7       |    |		Declare_Variable	Any
0287 4801       |H   |		Short_Literal	0x1
0288 e5ff       |    |		Load	0x2,-0x1
0289 00db       |    |		Load_Top	At_Offset_3
028a e00c       |    |		Load	0x0,0xc
028b 1b6a       | j  |		Execute	Package,Field_Read,Field_Number 0x6a
028c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
028d c409       |    |		Store	0x2,0x9
028e			BODY_0260:
028e e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x8 = 0x28e,0x1
028f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0290 e405       |    |		Load	0x2,0x5
0291 6116       |a   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
0292 e5fe       |    |		Load	0x2,-0x2
0293 4800       |H   |		Short_Literal	0x0
0294 e409       |    |		Load	0x2,0x9
0295 e002       |    |		Load	0x0,0x2
0296 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0297 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0298 00d1       |    |		Pop_Control	Pop_Count_1
0299 c402       |    |		Store	0x2,0x2
029a e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x9 = 0x29a,0x2
029b 6802       |h   |		Jump_Zero	0x29e
029c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0xa = 0x29c,0x3
029d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
029e e00a       |    |		Load	0x0,0xa								; Debug Table 0x8.0xb = 0x29e,0x4
029f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02a0 00e1       |    |		Load_Encached	Boolean_Cache
02a1 e5fe       |    |		Load	0x2,-0x2
02a2 e405       |    |		Load	0x2,0x5
02a3 e00e       |    |		Load	0x0,0xe
02a4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02a5 c404       |    |		Store	0x2,0x4
02a6 c403       |    |		Store	0x2,0x3
02a7 e403       |    |		Load	0x2,0x3								; Debug Table 0x8.0xc = 0x2a7,0x5
02a8 7002       |p   |		Jump_Nonzero	0x2ab
02a9 e404       |    |		Load	0x2,0x4
02aa 7002       |p   |		Jump_Nonzero	0x2ad
02ab 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0xd = 0x2ab,0x6
02ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ad 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8.0xe = 0x2ad,0x7
02ae e5fe       |    |		Load	0x2,-0x2
02af 00da       |    |		Load_Top	At_Offset_2
02b0 e002       |    |		Load	0x0,0x2
02b1 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
02b2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02b3 4806       |H   |		Short_Literal	0x6
02b4 e00b       |    |		Load	0x0,0xb
02b5 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
02b6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b7 0000       |    |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02d4       |    |		.CONST	0x02d4								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0008       |    |		.CONST	0x0008								; Number of locals
02bb			INIT_02b8:
02bb e002       |    |		Load	0x0,0x2								; Debug Table 0x9 = .DEBUG	0x02bb,0x09ce,0x0002,0x0000,0x005a,0x6465,0x0000,0x01fc
													; Debug Table 0x9.0x0 = 0x2bb,0xffff
02bc 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
02bd 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
02be 02c7       |    |		Declare_Variable	Any
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c1 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x1 = 0x2c1,0xfffe
02c2 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02c3 e00b       |    |		Load	0x0,0xb								; Debug Table 0x9.0x2 = 0x2c3,0xfffd
02c4 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
02c5 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x3 = 0x2c5,0xfffc
02c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c7 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x4 = 0x2c7,0xfffb
02c8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02c9 02ff       |    |		Declare_Variable	Variant_Record
02ca 00d8       |    |		Load_Top	At_Offset_0
02cb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02cc e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x5 = 0x2cc,0xfffa
02cd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02ce 02c7       |    |		Declare_Variable	Any
02cf 00d8       |    |		Load_Top	At_Offset_0
02d0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d1 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x6 = 0x2d1,0xfff9
02d2 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
02d3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d4			BODY_02b8:
02d4 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x7 = 0x2d4,0x1
02d5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d6 e402       |    |		Load	0x2,0x2
02d7 0120       |    |		Execute	Any,Is_Value
02d8 6804       |h   |		Jump_Zero	0x2dd
02d9 e002       |    |		Load	0x0,0x2
02da 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
02db 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
02dc 7801       |x   |		Jump	0x2de
02dd e402       |    |		Load	0x2,0x2
02de 60c9       |`   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
02df e5fd       |    |		Load	0x2,-0x3
02e0 4801       |H   |		Short_Literal	0x1
02e1 e5ff       |    |		Load	0x2,-0x1
02e2 e002       |    |		Load	0x0,0x2
02e3 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
02e4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
02e5 c402       |    |		Store	0x2,0x2
02e6 c405       |    |		Store	0x2,0x5
02e7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x8 = 0x2e7,0x2
02e8 7009       |p   |		Jump_Nonzero	0x2f2
02e9 e402       |    |		Load	0x2,0x2
02ea e002       |    |		Load	0x0,0x2
02eb 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
02ec 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02ed e002       |    |		Load	0x0,0x2
02ee 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
02ef 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02f0 012f       | /  |		Execute	Any,Equal
02f1 7002       |p   |		Jump_Nonzero	0x2f4
02f2 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x9 = 0x2f2,0x3
02f3 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02f4 e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0xa = 0x2f4,0x4
02f5 e002       |    |		Load	0x0,0x2
02f6 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
02f7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02f8 a403       |    |		Store_Unchecked	0x2,0x3
02f9 e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0xb = 0x2f9,0x5
02fa e00f       |    |		Load	0x0,0xf
02fb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02fc 027f       |    |		Execute	Discrete,Equal
02fd 700f       |p   |		Jump_Nonzero	0x30d
02fe e403       |    |		Load	0x2,0x3
02ff e00f       |    |		Load	0x0,0xf
0300 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0301 027f       |    |		Execute	Discrete,Equal
0302 700a       |p   |		Jump_Nonzero	0x30d
0303 e403       |    |		Load	0x2,0x3
0304 e00f       |    |		Load	0x0,0xf
0305 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0306 027f       |    |		Execute	Discrete,Equal
0307 7005       |p   |		Jump_Nonzero	0x30d
0308 e403       |    |		Load	0x2,0x3
0309 e00f       |    |		Load	0x0,0xf
030a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
030b 027f       |    |		Execute	Discrete,Equal
030c 680c       |h   |		Jump_Zero	0x319
030d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0xc = 0x30d,0x6
030e 4801       |H   |		Short_Literal	0x1
030f e5ff       |    |		Load	0x2,-0x1
0310 e001       |    |		Load	0x0,0x1
0311 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0312 0092 06d5  |    |		Action	Push_String_Extended,0x6d5					; " is a subsystem; use cmvc commands to destroy it"
0314 01cc       |    |		Execute	Vector,Catenate
0315 820f       |    |		Call	0x1,0xf
0316 820e       |    |		Call	0x1,0xe
0317 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0xd = 0x317,0x7
0318 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0319 e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0xe = 0x319,0x8
031a e00f       |    |		Load	0x0,0xf
031b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
031c 027f       |    |		Execute	Discrete,Equal
031d 700f       |p   |		Jump_Nonzero	0x32d
031e e403       |    |		Load	0x2,0x3
031f e00f       |    |		Load	0x0,0xf
0320 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0321 027f       |    |		Execute	Discrete,Equal
0322 700a       |p   |		Jump_Nonzero	0x32d
0323 e403       |    |		Load	0x2,0x3
0324 e00f       |    |		Load	0x0,0xf
0325 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0326 027f       |    |		Execute	Discrete,Equal
0327 7005       |p   |		Jump_Nonzero	0x32d
0328 e403       |    |		Load	0x2,0x3
0329 e00f       |    |		Load	0x0,0xf
032a 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
032b 027f       |    |		Execute	Discrete,Equal
032c 680c       |h   |		Jump_Zero	0x339
032d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0xf = 0x32d,0x9
032e 4801       |H   |		Short_Literal	0x1
032f e5ff       |    |		Load	0x2,-0x1
0330 e001       |    |		Load	0x0,0x1
0331 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0332 0092 06d6  |    |		Action	Push_String_Extended,0x6d6					; " is a view; use cmvc commands to destroy it"
0334 01cc       |    |		Execute	Vector,Catenate
0335 820f       |    |		Call	0x1,0xf
0336 820e       |    |		Call	0x1,0xe
0337 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x10 = 0x337,0xa
0338 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0339 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x9.0x11 = 0x339,0xb
033a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
033b 0e04       |    |		Execute_Immediate	Not_Equal,0x4
033c 6863       |hc  |		Jump_Zero	0x3a0
033d e403       |    |		Load	0x2,0x3
033e e00f       |    |		Load	0x0,0xf
033f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0340 027f       |    |		Execute	Discrete,Equal
0341 685e       |h^  |		Jump_Zero	0x3a0
0342 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x12 = 0x342,0xc
0343 e5ff       |    |		Load	0x2,-0x1
0344 8214       |    |		Call	0x1,0x14
0345 a404       |    |		Store_Unchecked	0x2,0x4
0346 e404       |    |		Load	0x2,0x4								; Debug Table 0x9.0x13 = 0x346,0xd
0347 e00b       |    |		Load	0x0,0xb
0348 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0349 6802       |h   |		Jump_Zero	0x34c
034a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x14 = 0x34a,0xe
034b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
034c 00cf       |    |		Action	Mark_Auxiliary
034d 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x15 = 0x34d,0xf
034e e404       |    |		Load	0x2,0x4								; Debug Table 0x9.0x16 = 0x34e,0x10
034f e00b       |    |		Load	0x0,0xb
0350 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0351 e406       |    |		Load	0x2,0x6
0352 016d       | m  |		Execute	Variant_Record,Structure_Write
0353 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x17 = 0x353,0x11
0354 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0355 e002       |    |		Load	0x0,0x2
0356 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0357 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0358 604f       |`O  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
0359 e5fd       |    |		Load	0x2,-0x3
035a e406       |    |		Load	0x2,0x6
035b e002       |    |		Load	0x0,0x2
035c 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
035d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
035e 005b       | [  |		Store_Top	Discrete,At_Offset_3
035f c405       |    |		Store	0x2,0x5
0360 e405       |    |		Load	0x2,0x5								; Debug Table 0x9.0x18 = 0x360,0x12
0361 7038       |p8  |		Jump_Nonzero	0x39a
0362 00d9       |    |		Load_Top	At_Offset_1
0363 0c04       |    |		Execute_Immediate	Greater_Equal,0x4
0364 6835       |h5  |		Jump_Zero	0x39a
0365 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x19 = 0x365,0x13
0366 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0367 00db       |    |		Load_Top	At_Offset_3
0368 0120       |    |		Execute	Any,Is_Value
0369 6803       |h   |		Jump_Zero	0x36d
036a e002       |    |		Load	0x0,0x2
036b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
036c 7801       |x   |		Jump	0x36e
036d 00db       |    |		Load_Top	At_Offset_3
036e 6039       |`9  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
036f e5fd       |    |		Load	0x2,-0x3
0370 e406       |    |		Load	0x2,0x6
0371 e002       |    |		Load	0x0,0x2
0372 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0373 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0374 c407       |    |		Store	0x2,0x7
0375 c405       |    |		Store	0x2,0x5
0376 e405       |    |		Load	0x2,0x5								; Debug Table 0x9.0x1a = 0x376,0x14
0377 7022       |p"  |		Jump_Nonzero	0x39a
0378 e5fe       |    |		Load	0x2,-0x2
0379 00db       |    |		Load_Top	At_Offset_3
037a e002       |    |		Load	0x0,0x2
037b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
037c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
037d e001       |    |		Load	0x0,0x1
037e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
037f 701a       |p   |		Jump_Nonzero	0x39a
0380 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0x1b = 0x380,0x15
0381 0092 06d7  |    |		Action	Push_String_Extended,0x6d7					; "The code view "
0383 4801       |H   |		Short_Literal	0x1
0384 e5ff       |    |		Load	0x2,-0x1
0385 e001       |    |		Load	0x0,0x1
0386 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0387 01cc       |    |		Execute	Vector,Catenate
0388 0092 06d8  |    |		Action	Push_String_Extended,0x6d8					; " has the dependent main program "
038a 01cc       |    |		Execute	Vector,Catenate
038b 4801       |H   |		Short_Literal	0x1
038c e407       |    |		Load	0x2,0x7
038d e001       |    |		Load	0x0,0x1
038e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
038f 01cc       |    |		Execute	Vector,Catenate
0390 0092 06d9  |    |		Action	Push_String_Extended,0x6d9					; " which would need to be demoted, "
0392 01cc       |    |		Execute	Vector,Catenate
0393 0092 06da  |    |		Action	Push_String_Extended,0x6da					; "but is outside the change limit given"
0395 01cc       |    |		Execute	Vector,Catenate
0396 820f       |    |		Call	0x1,0xf
0397 820e       |    |		Call	0x1,0xe
0398 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x1c = 0x398,0x16
0399 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
039a e404       |    |		Load	0x2,0x4								; Debug Table 0x9.0x1d = 0x39a,0x17
039b e00b       |    |		Load	0x0,0xb
039c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
039d a404       |    |		Store_Unchecked	0x2,0x4
039e 00c9       |    |		Action	Pop_Auxiliary_Loop
039f 7fae       |    |		Jump	0x34e
03a0 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x1e = 0x3a0,0x18
03a1 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
03a2 0000 0000  |    |		.XXX[0x2]
03a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x5a646501}
03a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
03ac 0000 0000  |    |		.BLANK	0000[0x4]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03ba       |    |		.CONST	0x03ba								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0003       |    |		.CONST	0x0003								; Number of locals
03b3			INIT_03b0:
03b3 e002       |    |		Load	0x0,0x2								; Debug Table 0xa = .DEBUG	0x03b3,0x0a0e,0x0002,0x0000,0x005a,0x6465,0x0000,0x038b
													; Debug Table 0xa.0x0 = 0x3b3,0xffff
03b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b5 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x1 = 0x3b5,0xfffe
03b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03b7 02ff       |    |		Declare_Variable	Variant_Record
03b8 00d8       |    |		Load_Top	At_Offset_0
03b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03ba			BODY_03b0:
03ba e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x2 = 0x3ba,0x1
03bb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03bc 00d9       |    |		Load_Top	At_Offset_1
03bd 67ea       |g   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
03be e5fe       |    |		Load	0x2,-0x2
03bf 4800       |H   |		Short_Literal	0x0
03c0 e5ff       |    |		Load	0x2,-0x1
03c1 e002       |    |		Load	0x0,0x2
03c2 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
03c3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03c4 00d1       |    |		Pop_Control	Pop_Count_1
03c5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03c6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x3 = 0x3c6,0x2
03c7 0f08       |    |		Execute_Immediate	Equal,0x8
03c8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c9 0000 0000  |    |		.BLANK	0000[0x7]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03e2       |    |		.CONST	0x03e2								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0007       |    |		.CONST	0x0007								; Number of locals
03d3			INIT_03d0:
03d3 e00d       |    |		Load	0x0,0xd								; Debug Table 0xb = .DEBUG	0x03d3,0x0a18,0x0001,0x0000,0x005a,0x6465,0x0000,0x03c1
													; Debug Table 0xb.0x0 = 0x3d3,0xffff
03d4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03d5 e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x1 = 0x3d5,0xfffe
03d6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d7 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0xb.0x2 = 0x3d7,0xfffd
03d8 e00d       |    |		Load	0x0,0xd								; Debug Table 0xb.0x3 = 0x3d8,0xfffc
03d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03da 02c7       |    |		Declare_Variable	Any
03db 00d8       |    |		Load_Top	At_Offset_0
03dc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03dd 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x4 = 0x3dd,0xfffb
03de e5ff       |    |		Load	0x2,-0x1
03df e001       |    |		Load	0x0,0x1
03e0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03e1 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0xb.0x5 = 0x3e1,0xfffa
03e2			BODY_03d0:
03e2 e004       |    |		Load	0x0,0x4								; Debug Table 0xb.0x6 = 0x3e2,0x1
03e3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03e4 e010       |    |		Load	0x0,0x10
03e5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03e6 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xb.0x7 = 0x3e6,0x2
03e7 6820       |h   |		Jump_Zero	0x408
03e8 e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x8 = 0x3e8,0x3
03e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ea 00f1       |    |		Load_Encached	Diana_Temp_Seq
03eb e002       |    |		Load	0x0,0x2
03ec 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
03ed 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03ee e405       |    |		Load	0x2,0x5
03ef 0120       |    |		Execute	Any,Is_Value
03f0 6803       |h   |		Jump_Zero	0x3f4
03f1 e00d       |    |		Load	0x0,0xd
03f2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f3 7801       |x   |		Jump	0x3f5
03f4 e405       |    |		Load	0x2,0x5
03f5 67b2       |g   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
03f6 e5fb       |    |		Load	0x2,-0x5
03f7 e5fd       |    |		Load	0x2,-0x3
03f8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f9 e5fd       |    |		Load	0x2,-0x3
03fa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03fb e002       |    |		Load	0x0,0x2
03fc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03fd e002       |    |		Load	0x0,0x2
03fe 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03ff e5ff       |    |		Load	0x2,-0x1
0400 e002       |    |		Load	0x0,0x2
0401 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0402 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0403 c405       |    |		Store	0x2,0x5
0404 c404       |    |		Store	0x2,0x4
0405 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0406 c403       |    |		Store	0x2,0x3
0407 781e       |x   |		Jump	0x426
0408 e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x9 = 0x408,0x4
0409 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
040a 00f1       |    |		Load_Encached	Diana_Temp_Seq
040b e002       |    |		Load	0x0,0x2
040c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
040d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
040e e405       |    |		Load	0x2,0x5
040f 0120       |    |		Execute	Any,Is_Value
0410 6803       |h   |		Jump_Zero	0x414
0411 e00d       |    |		Load	0x0,0xd
0412 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0413 7801       |x   |		Jump	0x415
0414 e405       |    |		Load	0x2,0x5
0415 6792       |g   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
0416 e5fb       |    |		Load	0x2,-0x5
0417 e5fd       |    |		Load	0x2,-0x3
0418 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0419 e5fd       |    |		Load	0x2,-0x3
041a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
041b e002       |    |		Load	0x0,0x2
041c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
041d 4ffb       |O   |		Short_Literal	-0x5
041e e5ff       |    |		Load	0x2,-0x1
041f e002       |    |		Load	0x0,0x2
0420 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0421 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0422 c405       |    |		Store	0x2,0x5
0423 c404       |    |		Store	0x2,0x4
0424 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0425 c403       |    |		Store	0x2,0x3
0426 e00d       |    |		Load	0x0,0xd								; Debug Table 0xb.0xa = 0x426,0x5
0427 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0428 4800       |H   |		Short_Literal	0x0
0429 4801       |H   |		Short_Literal	0x1
042a 4800       |H   |		Short_Literal	0x0
042b e5fe       |    |		Load	0x2,-0x2
042c 8213       |    |		Call	0x1,0x13
042d 0092 06c8  |    |		Action	Push_String_Extended,0x6c8					; " "
042f 01cc       |    |		Execute	Vector,Catenate
0430 00db       |    |		Load_Top	At_Offset_3
0431 01cc       |    |		Execute	Vector,Catenate
0432 e5fc       |    |		Load	0x2,-0x4
0433 e405       |    |		Load	0x2,0x5
0434 e403       |    |		Load	0x2,0x3
0435 4800       |H   |		Short_Literal	0x0
0436 00eb       |    |		Load_Encached	Diana_Cache
0437 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0438 e011       |    |		Load	0x0,0x11
0439 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
043a c402       |    |		Store	0x2,0x2
043b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xb.0xb = 0x43b,0x6
043c 00da       |    |		Load_Top	At_Offset_2
043d 0092 06db  |    |		Action	Push_String_Extended,0x6db					; " were "
043f 01cc       |    |		Execute	Vector,Catenate
0440 4801       |H   |		Short_Literal	0x1
0441 4800       |H   |		Short_Literal	0x0
0442 4800       |H   |		Short_Literal	0x0
0443 e5fe       |    |		Load	0x2,-0x2
0444 8213       |    |		Call	0x1,0x13
0445 01cc       |    |		Execute	Vector,Catenate
0446 e404       |    |		Load	0x2,0x4
0447 e011       |    |		Load	0x0,0x11
0448 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0449 e403       |    |		Load	0x2,0x3								; Debug Table 0xb.0xc = 0x449,0x7
044a 6809       |h   |		Jump_Zero	0x454
044b e403       |    |		Load	0x2,0x3
044c 0f08       |    |		Execute_Immediate	Equal,0x8
044d 6804       |h   |		Jump_Zero	0x452
044e e5fb       |    |		Load	0x2,-0x5
044f e5ff       |    |		Load	0x2,-0x1
0450 8216       |    |		Call	0x1,0x16
0451 7801       |x   |		Jump	0x453
0452 4800       |H   |		Short_Literal	0x0
0453 6805       |h   |		Jump_Zero	0x459
0454 e004       |    |		Load	0x0,0x4								; Debug Table 0xb.0xd = 0x454,0x8
0455 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0456 e010       |    |		Load	0x0,0x10
0457 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0458 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0459 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0xb.0xe = 0x459,0x9
045a 0a01       |    |		Execute_Immediate	Plus,0x1
045b c5fa       |    |		Store	0x2,-0x6
045c 4805       |H   |		Short_Literal	0x5							; Debug Table 0xb.0xf = 0x45c,0xa
045d e5fc       |    |		Load	0x2,-0x4
045e 4820       |H   |		Short_Literal	0x20
045f 4800       |H   |		Short_Literal	0x0
0460 4801       |H   |		Short_Literal	0x1
0461 4800       |H   |		Short_Literal	0x0
0462 e5fe       |    |		Load	0x2,-0x2
0463 8213       |    |		Call	0x1,0x13
0464 01cb       |    |		Execute	Vector,Append
0465 e406       |    |		Load	0x2,0x6
0466 01cc       |    |		Execute	Vector,Catenate
0467 e403       |    |		Load	0x2,0x3
0468 e007       |    |		Load	0x0,0x7
0469 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
046a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
046b 0000 0000  |    |		.BLANK	0000[0x5]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0490       |    |		.CONST	0x0490								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0009       |    |		.CONST	0x0009								; Number of locals
0473			INIT_0470:
0473 e001       |    |		Load	0x0,0x1								; Debug Table 0xc = .DEBUG	0x0473,0x0a3a,0x0001,0x0000,0x005a,0x6465,0x0000,0x04e0
													; Debug Table 0xc.0x0 = 0x473,0xffff
0474 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0475 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0476 0322       | "  |		Declare_Variable	Record
0477 00d8       |    |		Load_Top	At_Offset_0
0478 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0479 e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x1 = 0x479,0xfffe
047a 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
047b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
047c e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x2 = 0x47c,0xfffd
047d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
047e 02c7       |    |		Declare_Variable	Any
047f 00d8       |    |		Load_Top	At_Offset_0
0480 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0481 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xc.0x3 = 0x481,0xfffc
0482 e00b       |    |		Load	0x0,0xb								; Debug Table 0xc.0x4 = 0x482,0xfffb
0483 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0484 e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x5 = 0x484,0xfffa
0485 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0486 02ff       |    |		Declare_Variable	Variant_Record
0487 00d8       |    |		Load_Top	At_Offset_0
0488 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0489 e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x6 = 0x489,0xfff9
048a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
048b 02c7       |    |		Declare_Variable	Any
048c 00d8       |    |		Load_Top	At_Offset_0
048d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
048e e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x7 = 0x48e,0xfff8
048f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0490			BODY_0470:
0490 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x8 = 0x490,0x1
0491 e5ff       |    |		Load	0x2,-0x1
0492 e001       |    |		Load	0x0,0x1
0493 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0494 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0495 00d1       |    |		Pop_Control	Pop_Count_1
0496 00cf       |    |		Action	Mark_Auxiliary
0497 7878       |xx  |		Jump	0x510
0498 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x9 = 0x498,0x3
0499 e001       |    |		Load	0x0,0x1
049a 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
049b 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
049c c404       |    |		Store	0x2,0x4
049d e404       |    |		Load	0x2,0x4								; Debug Table 0xc.0xa = 0x49d,0x4
049e e002       |    |		Load	0x0,0x2
049f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04a0 e002       |    |		Load	0x0,0x2
04a1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04a2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04a3 012f       | /  |		Execute	Any,Equal
04a4 6825       |h%  |		Jump_Zero	0x4ca
04a5 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xc.0xb = 0x4a5,0x5
04a6 e002       |    |		Load	0x0,0x2
04a7 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
04a8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a9 e001       |    |		Load	0x0,0x1
04aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04ab e404       |    |		Load	0x2,0x4
04ac e002       |    |		Load	0x0,0x2
04ad 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04ae 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04af e001       |    |		Load	0x0,0x1
04b0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
04b1 c403       |    |		Store	0x2,0x3
04b2 c405       |    |		Store	0x2,0x5
04b3 e405       |    |		Load	0x2,0x5								; Debug Table 0xc.0xc = 0x4b3,0x6
04b4 6855       |hU  |		Jump_Zero	0x50a
04b5 e403       |    |		Load	0x2,0x3
04b6 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
04b7 6852       |hR  |		Jump_Zero	0x50a
04b8 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xc.0xd = 0x4b8,0x7
04b9 e5fc       |    |		Load	0x2,-0x4
04ba e5fd       |    |		Load	0x2,-0x3
04bb 4800       |H   |		Short_Literal	0x0
04bc e5fb       |    |		Load	0x2,-0x5
04bd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04be e5fb       |    |		Load	0x2,-0x5
04bf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04c0 4802       |H   |		Short_Literal	0x2
04c1 e404       |    |		Load	0x2,0x4
04c2 e012       |    |		Load	0x0,0x12
04c3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04c4 c405       |    |		Store	0x2,0x5
04c5 e004       |    |		Load	0x0,0x4								; Debug Table 0xc.0xe = 0x4c5,0x8
04c6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04c7 e010       |    |		Load	0x0,0x10
04c8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04c9 7840       |x@  |		Jump	0x50a
04ca e404       |    |		Load	0x2,0x4								; Debug Table 0xc.0xf = 0x4ca,0x9
04cb e002       |    |		Load	0x0,0x2
04cc 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
04cd e00f       |    |		Load	0x0,0xf
04ce 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
04cf 027f       |    |		Execute	Discrete,Equal
04d0 6839       |h9  |		Jump_Zero	0x50a
04d1 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xc.0x10 = 0x4d1,0xa
04d2 e404       |    |		Load	0x2,0x4
04d3 8214       |    |		Call	0x1,0x14
04d4 a406       |    |		Store_Unchecked	0x2,0x6
04d5 00cf       |    |		Action	Mark_Auxiliary
04d6 782e       |x.  |		Jump	0x505
04d7 e406       |    |		Load	0x2,0x6								; Debug Table 0xc.0x11 = 0x4d7,0xc
04d8 e00b       |    |		Load	0x0,0xb
04d9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04da e407       |    |		Load	0x2,0x7
04db 016d       | m  |		Execute	Variant_Record,Structure_Write
04dc e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x12 = 0x4dc,0xd
04dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04de e408       |    |		Load	0x2,0x8
04df 0120       |    |		Execute	Any,Is_Value
04e0 6803       |h   |		Jump_Zero	0x4e4
04e1 e002       |    |		Load	0x0,0x2
04e2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04e3 7801       |x   |		Jump	0x4e5
04e4 e408       |    |		Load	0x2,0x8
04e5 66c2       |f   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
04e6 e5fc       |    |		Load	0x2,-0x4
04e7 e407       |    |		Load	0x2,0x7
04e8 e002       |    |		Load	0x0,0x2
04e9 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04ea 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
04eb c408       |    |		Store	0x2,0x8
04ec 005b       | [  |		Store_Top	Discrete,At_Offset_3
04ed 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x13 = 0x4ed,0xe
04ee 7011       |p   |		Jump_Nonzero	0x500
04ef 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xc.0x14 = 0x4ef,0xf
04f0 e5fc       |    |		Load	0x2,-0x4
04f1 e5fd       |    |		Load	0x2,-0x3
04f2 4800       |H   |		Short_Literal	0x0
04f3 e5fb       |    |		Load	0x2,-0x5
04f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04f5 e5fb       |    |		Load	0x2,-0x5
04f6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04f7 4803       |H   |		Short_Literal	0x3
04f8 e408       |    |		Load	0x2,0x8
04f9 e012       |    |		Load	0x0,0x12
04fa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04fb c405       |    |		Store	0x2,0x5
04fc e004       |    |		Load	0x0,0x4								; Debug Table 0xc.0x15 = 0x4fc,0x10
04fd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04fe e010       |    |		Load	0x0,0x10
04ff 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0500 e406       |    |		Load	0x2,0x6								; Debug Table 0xc.0x16 = 0x500,0x11
0501 e00b       |    |		Load	0x0,0xb
0502 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0503 a406       |    |		Store_Unchecked	0x2,0x6
0504 00c9       |    |		Action	Pop_Auxiliary_Loop
0505 e406       |    |		Load	0x2,0x6								; Debug Table 0xc.0x17 = 0x505,0xb
0506 e00b       |    |		Load	0x0,0xb
0507 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0508 6fce       |o   |		Jump_Zero	0x4d7
0509 00ce       |    |		Action	Pop_Auxiliary
050a e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x18 = 0x50a,0x12
050b e001       |    |		Load	0x0,0x1
050c 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
050d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
050e 00d1       |    |		Pop_Control	Pop_Count_1
050f 00c9       |    |		Action	Pop_Auxiliary_Loop
0510 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x19 = 0x510,0x2
0511 e001       |    |		Load	0x0,0x1
0512 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0513 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0514 6f83       |o   |		Jump_Zero	0x498
0515 00ce       |    |		Action	Pop_Auxiliary
0516 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x1a = 0x516,0x13
0517 e5ff       |    |		Load	0x2,-0x1
0518 e001       |    |		Load	0x0,0x1
0519 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
051a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
051b 00d1       |    |		Pop_Control	Pop_Count_1
051c 00cf       |    |		Action	Mark_Auxiliary
051d 7813       |x   |		Jump	0x531
051e e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x1b = 0x51e,0x15
051f e001       |    |		Load	0x0,0x1
0520 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0521 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0522 c404       |    |		Store	0x2,0x4
0523 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0xc.0x1c = 0x523,0x16
0524 e5fc       |    |		Load	0x2,-0x4
0525 e5fd       |    |		Load	0x2,-0x3
0526 e5fb       |    |		Load	0x2,-0x5
0527 e5fe       |    |		Load	0x2,-0x2
0528 e404       |    |		Load	0x2,0x4
0529 8217       |    |		Call	0x1,0x17
052a c5fa       |    |		Store	0x2,-0x6
052b e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x1d = 0x52b,0x17
052c e001       |    |		Load	0x0,0x1
052d 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
052e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
052f 00d1       |    |		Pop_Control	Pop_Count_1
0530 00c9       |    |		Action	Pop_Auxiliary_Loop
0531 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x1e = 0x531,0x14
0532 e001       |    |		Load	0x0,0x1
0533 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0534 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0535 6fe8       |o   |		Jump_Zero	0x51e
0536 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0537 0000       |    |		.XXX[0x1]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 055a       | Z  |		.CONST	0x055a								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0008       |    |		.CONST	0x0008								; Number of locals
053b			INIT_0538:
053b e002       |    |		Load	0x0,0x2								; Debug Table 0xd = .DEBUG	0x053b,0x0a7a,0x0001,0x0000,0x005a,0x6465,0x0000,0x063b
													; Debug Table 0xd.0x0 = 0x53b,0xffff
053c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
053d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
053e 02c7       |    |		Declare_Variable	Any
053f 00d8       |    |		Load_Top	At_Offset_0
0540 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0541 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x1 = 0x541,0xfffe
0542 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0543 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x2 = 0x543,0xfffd
0544 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0545 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0546 02c7       |    |		Declare_Variable	Any
0547 00d8       |    |		Load_Top	At_Offset_0
0548 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0549 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x3 = 0x549,0xfffc
054a 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
054b 02c7       |    |		Declare_Variable	Any
054c 00d8       |    |		Load_Top	At_Offset_0
054d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
054e e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x4 = 0x54e,0xfffb
054f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0550 02c7       |    |		Declare_Variable	Any
0551 00d8       |    |		Load_Top	At_Offset_0
0552 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0553 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x5 = 0x553,0xfffa
0554 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0555 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0556 02c7       |    |		Declare_Variable	Any
0557 00d8       |    |		Load_Top	At_Offset_0
0558 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0559 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xd.0x6 = 0x559,0xfff9
055a			BODY_0538:
055a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x7 = 0x55a,0x1
055b e5fa       |    |		Load	0x2,-0x6
055c e001       |    |		Load	0x0,0x1
055d 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
055e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
055f 6801       |h   |		Jump_Zero	0x561
0560 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0xd.0x8 = 0x560,0x2
0561 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0x9 = 0x561,0x3
0562 e002       |    |		Load	0x0,0x2
0563 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0564 c405       |    |		Store	0x2,0x5
0565 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0xa = 0x565,0x4
0566 e002       |    |		Load	0x0,0x2
0567 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0568 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0569 012f       | /  |		Execute	Any,Equal
056a 700b       |p   |		Jump_Nonzero	0x576
056b 00db       |    |		Load_Top	At_Offset_3
056c e002       |    |		Load	0x0,0x2
056d 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
056e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
056f 012f       | /  |		Execute	Any,Equal
0570 7005       |p   |		Jump_Nonzero	0x576
0571 00db       |    |		Load_Top	At_Offset_3
0572 e013       |    |		Load	0x0,0x13
0573 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0574 012f       | /  |		Execute	Any,Equal
0575 6870       |hp  |		Jump_Zero	0x5e6
0576 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xd.0xb = 0x576,0x5
0577 e002       |    |		Load	0x0,0x2
0578 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0579 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
057a c402       |    |		Store	0x2,0x2
057b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0xc = 0x57b,0x6
057c e002       |    |		Load	0x0,0x2
057d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
057e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
057f 012f       | /  |		Execute	Any,Equal
0580 6822       |h"  |		Jump_Zero	0x5a3
0581 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xd.0xd = 0x581,0x7
0582 00da       |    |		Load_Top	At_Offset_2
0583 0120       |    |		Execute	Any,Is_Value
0584 6804       |h   |		Jump_Zero	0x589
0585 e002       |    |		Load	0x0,0x2
0586 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0587 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0588 7801       |x   |		Jump	0x58a
0589 00da       |    |		Load_Top	At_Offset_2
058a e001       |    |		Load	0x0,0x1
058b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
058c e402       |    |		Load	0x2,0x2
058d e001       |    |		Load	0x0,0x1
058e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
058f c407       |    |		Store	0x2,0x7
0590 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0591 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0xe = 0x591,0x8
0592 6810       |h   |		Jump_Zero	0x5a3
0593 00d9       |    |		Load_Top	At_Offset_1
0594 e402       |    |		Load	0x2,0x2
0595 012e       | .  |		Execute	Any,Not_Equal
0596 680c       |h   |		Jump_Zero	0x5a3
0597 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0xd.0xf = 0x597,0x9
0598 e5fb       |    |		Load	0x2,-0x5
0599 e5fc       |    |		Load	0x2,-0x4
059a e5fd       |    |		Load	0x2,-0x3
059b e5fe       |    |		Load	0x2,-0x2
059c e407       |    |		Load	0x2,0x7
059d e002       |    |		Load	0x0,0x2
059e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
059f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05a0 8219       |    |		Call	0x1,0x19
05a1 c5fb       |    |		Store	0x2,-0x5
05a2 c5fa       |    |		Store	0x2,-0x6
05a3 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x10 = 0x5a3,0xa
05a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05a5 e404       |    |		Load	0x2,0x4
05a6 0120       |    |		Execute	Any,Is_Value
05a7 6804       |h   |		Jump_Zero	0x5ac
05a8 e002       |    |		Load	0x0,0x2
05a9 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
05aa 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
05ab 7801       |x   |		Jump	0x5ad
05ac e404       |    |		Load	0x2,0x4
05ad 65fa       |e   |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
05ae e5fd       |    |		Load	0x2,-0x3
05af e402       |    |		Load	0x2,0x2
05b0 e002       |    |		Load	0x0,0x2
05b1 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
05b2 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
05b3 c404       |    |		Store	0x2,0x4
05b4 c403       |    |		Store	0x2,0x3
05b5 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0x11 = 0x5b5,0xb
05b6 7023       |p#  |		Jump_Nonzero	0x5da
05b7 00cf       |    |		Action	Mark_Auxiliary
05b8 781a       |x   |		Jump	0x5d3
05b9 e404       |    |		Load	0x2,0x4								; Debug Table 0xd.0x12 = 0x5b9,0xd
05ba e002       |    |		Load	0x0,0x2
05bb 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
05bc 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
05bd c406       |    |		Store	0x2,0x6
05be e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xd.0x13 = 0x5be,0xe
05bf e5fd       |    |		Load	0x2,-0x3
05c0 e5fe       |    |		Load	0x2,-0x2
05c1 e406       |    |		Load	0x2,0x6
05c2 8215       |    |		Call	0x1,0x15
05c3 6809       |h   |		Jump_Zero	0x5cd
05c4 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0xd.0x14 = 0x5c4,0xf
05c5 e5fb       |    |		Load	0x2,-0x5
05c6 e5fc       |    |		Load	0x2,-0x4
05c7 e5fd       |    |		Load	0x2,-0x3
05c8 e5fe       |    |		Load	0x2,-0x2
05c9 e406       |    |		Load	0x2,0x6
05ca 8219       |    |		Call	0x1,0x19
05cb c5fb       |    |		Store	0x2,-0x5
05cc c5fa       |    |		Store	0x2,-0x6
05cd e404       |    |		Load	0x2,0x4								; Debug Table 0xd.0x15 = 0x5cd,0x10
05ce e002       |    |		Load	0x0,0x2
05cf 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
05d0 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
05d1 c404       |    |		Store	0x2,0x4
05d2 00c9       |    |		Action	Pop_Auxiliary_Loop
05d3 e404       |    |		Load	0x2,0x4								; Debug Table 0xd.0x16 = 0x5d3,0xc
05d4 e002       |    |		Load	0x0,0x2
05d5 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
05d6 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
05d7 6fe1       |o   |		Jump_Zero	0x5b9
05d8 00ce       |    |		Action	Pop_Auxiliary
05d9 780c       |x   |		Jump	0x5e6
05da 4805       |H   |		Short_Literal	0x5							; Debug Table 0xd.0x17 = 0x5da,0x11
05db e5fc       |    |		Load	0x2,-0x4
05dc 0092 06dc  |    |		Action	Push_String_Extended,0x6dc					; "examining children of "
05de 4801       |H   |		Short_Literal	0x1
05df e5ff       |    |		Load	0x2,-0x1
05e0 e001       |    |		Load	0x0,0x1
05e1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05e2 01cc       |    |		Execute	Vector,Catenate
05e3 e403       |    |		Load	0x2,0x3
05e4 e007       |    |		Load	0x0,0x7
05e5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05e6 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xd.0x18 = 0x5e6,0x12
05e7 0a01       |    |		Execute_Immediate	Plus,0x1
05e8 c5fb       |    |		Store	0x2,-0x5
05e9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xd.0x19 = 0x5e9,0x13
05ea 4801       |H   |		Short_Literal	0x1
05eb e5ff       |    |		Load	0x2,-0x1
05ec e001       |    |		Load	0x0,0x1
05ed 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05ee 0092 06dd  |    |		Action	Push_String_Extended,0x6dd					; " has been marked"
05f0 01cc       |    |		Execute	Vector,Catenate
05f1 8210       |    |		Call	0x1,0x10
05f2 820e       |    |		Call	0x1,0xe
05f3 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0xd.0x1a = 0x5f3,0x14
05f4 e5ff       |    |		Load	0x2,-0x1
05f5 e001       |    |		Load	0x0,0x1
05f6 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
05f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05f8 c5fa       |    |		Store	0x2,-0x6
05f9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05fa 0000 0000  |    |		.BLANK	0000[0x6]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0616       |    |		.CONST	0x0616								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0006       |    |		.CONST	0x0006								; Number of locals
0603			INIT_0600:
0603 e002       |    |		Load	0x0,0x2								; Debug Table 0xe = .DEBUG	0x0603,0x0ab2,0x0001,0x0000,0x005a,0x6465,0x0000,0x0772
													; Debug Table 0xe.0x0 = 0x603,0xffff
0604 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0605 02c7       |    |		Declare_Variable	Any
0606 00d8       |    |		Load_Top	At_Offset_0
0607 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0608 e002       |    |		Load	0x0,0x2								; Debug Table 0xe.0x1 = 0x608,0xfffe
0609 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
060a 02ff       |    |		Declare_Variable	Variant_Record
060b 00d8       |    |		Load_Top	At_Offset_0
060c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
060d e002       |    |		Load	0x0,0x2								; Debug Table 0xe.0x2 = 0x60d,0xfffd
060e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
060f 02ff       |    |		Declare_Variable	Variant_Record
0610 00d8       |    |		Load_Top	At_Offset_0
0611 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0612 e002       |    |		Load	0x0,0x2								; Debug Table 0xe.0x3 = 0x612,0xfffc
0613 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0614 e002       |    |		Load	0x0,0x2								; Debug Table 0xe.0x4 = 0x614,0xfffb
0615 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0616			BODY_0600:
0616 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0x5 = 0x616,0x1
0617 e002       |    |		Load	0x0,0x2
0618 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0619 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
061a 6801       |h   |		Jump_Zero	0x61c
061b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0xe.0x6 = 0x61b,0x2
061c e002       |    |		Load	0x0,0x2								; Debug Table 0xe.0x7 = 0x61c,0x3
061d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
061e e402       |    |		Load	0x2,0x2
061f 0120       |    |		Execute	Any,Is_Value
0620 6803       |h   |		Jump_Zero	0x624
0621 e002       |    |		Load	0x0,0x2
0622 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0623 7801       |x   |		Jump	0x625
0624 e402       |    |		Load	0x2,0x2
0625 e5fb       |    |		Load	0x2,-0x5
0626 e002       |    |		Load	0x0,0x2
0627 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0628 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0629 c402       |    |		Store	0x2,0x2
062a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
062b e002       |    |		Load	0x0,0x2								; Debug Table 0xe.0x8 = 0x62b,0x4
062c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
062d e403       |    |		Load	0x2,0x3
062e 6579       |ey  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
062f e003       |    |		Load	0x0,0x3
0630 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0631 e5fb       |    |		Load	0x2,-0x5
0632 e002       |    |		Load	0x0,0x2
0633 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0634 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0635 00d1       |    |		Pop_Control	Pop_Count_1
0636 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0637 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0x9 = 0x637,0x5
0638 e002       |    |		Load	0x0,0x2
0639 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
063a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
063b c5fb       |    |		Store	0x2,-0x5
063c e5f8       |    |		Load	0x2,-0x8							; Debug Table 0xe.0xa = 0x63c,0x6
063d e5f9       |    |		Load	0x2,-0x7
063e e5fa       |    |		Load	0x2,-0x6
063f e5fb       |    |		Load	0x2,-0x5
0640 e5fc       |    |		Load	0x2,-0x4
0641 e5fd       |    |		Load	0x2,-0x3
0642 e5fe       |    |		Load	0x2,-0x2
0643 e5ff       |    |		Load	0x2,-0x1
0644 821a       |    |		Call	0x1,0x1a
0645 c5fb       |    |		Store	0x2,-0x5
0646 c5fa       |    |		Store	0x2,-0x6
0647 c5f9       |    |		Store	0x2,-0x7
0648 c5f8       |    |		Store	0x2,-0x8
0649 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xe.0xb = 0x649,0x7
064a 6801       |h   |		Jump_Zero	0x64c
064b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0xe.0xc = 0x64b,0x8
064c e004       |    |		Load	0x0,0x4								; Debug Table 0xe.0xd = 0x64c,0x9
064d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
064e e010       |    |		Load	0x0,0x10
064f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0650 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xe.0xe = 0x650,0xa
0651 e5fd       |    |		Load	0x2,-0x3
0652 e5fe       |    |		Load	0x2,-0x2
0653 e402       |    |		Load	0x2,0x2
0654 8215       |    |		Call	0x1,0x15
0655 7001       |p   |		Jump_Nonzero	0x657
0656 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0xe.0xf = 0x656,0xb
0657 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x10 = 0x657,0xc
0658 702b       |p+  |		Jump_Nonzero	0x684
0659 e002       |    |		Load	0x0,0x2								; Debug Table 0xe.0x11 = 0x659,0xd
065a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
065b 00db       |    |		Load_Top	At_Offset_3
065c 654b       |eK  |		Indirect_Literal	Discrete,0x3a8,{0x00000000, 0x00004000}
065d e003       |    |		Load	0x0,0x3
065e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
065f 4800       |H   |		Short_Literal	0x0
0660 e402       |    |		Load	0x2,0x2
0661 e002       |    |		Load	0x0,0x2
0662 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0663 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0664 00d1       |    |		Pop_Control	Pop_Count_1
0665 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0666 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0x12 = 0x666,0xe
0667 701c       |p   |		Jump_Nonzero	0x684
0668 00da       |    |		Load_Top	At_Offset_2
0669 e002       |    |		Load	0x0,0x2
066a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
066b 7018       |p   |		Jump_Nonzero	0x684
066c 00da       |    |		Load_Top	At_Offset_2
066d e403       |    |		Load	0x2,0x3
066e 016e       | n  |		Execute	Variant_Record,Not_Equal
066f 6814       |h   |		Jump_Zero	0x684
0670 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xe.0x13 = 0x670,0xf
0671 0092 06de  |    |		Action	Push_String_Extended,0x6de					; "Cannot "
0673 4800       |H   |		Short_Literal	0x0
0674 4800       |H   |		Short_Literal	0x0
0675 4800       |H   |		Short_Literal	0x0
0676 e5ff       |    |		Load	0x2,-0x1
0677 8213       |    |		Call	0x1,0x13
0678 01cc       |    |		Execute	Vector,Catenate
0679 0092 06df  |    |		Action	Push_String_Extended,0x6df					; " nondefault version of "
067b 01cc       |    |		Execute	Vector,Catenate
067c 4801       |H   |		Short_Literal	0x1
067d e402       |    |		Load	0x2,0x2
067e e001       |    |		Load	0x0,0x1
067f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0680 01cc       |    |		Execute	Vector,Catenate
0681 820f       |    |		Call	0x1,0xf
0682 820e       |    |		Call	0x1,0xe
0683 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0xe.0x14 = 0x683,0x10
0684 e5f8       |    |		Load	0x2,-0x8							; Debug Table 0xe.0x15 = 0x684,0x11
0685 0a01       |    |		Execute_Immediate	Plus,0x1
0686 c5f8       |    |		Store	0x2,-0x8
0687 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0xe.0x16 = 0x687,0x12
0688 e5fa       |    |		Load	0x2,-0x6
0689 e5fc       |    |		Load	0x2,-0x4
068a e5fd       |    |		Load	0x2,-0x3
068b e5fe       |    |		Load	0x2,-0x2
068c e402       |    |		Load	0x2,0x2
068d 8219       |    |		Call	0x1,0x19
068e c5fa       |    |		Store	0x2,-0x6
068f c5f9       |    |		Store	0x2,-0x7
0690 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0691 0000 0000  |    |		.BLANK	0000[0x7]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 06a6       |    |		.CONST	0x06a6								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b e409       |    |		Load	0x2,0x9								; Debug Table 0xf = .DEBUG	0x069b,0x0ae2,0x0004,0x0000,0x005a,0x6465,0x0000,0x093e
													; Debug Table 0xf.0x0 = 0x69b,0x1
069c e004       |    |		Load	0x0,0x4
069d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
069e e005       |    |		Load	0x0,0x5
069f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
06a0 e5fd       |    |		Load	0x2,-0x3
06a1 e5fc       |    |		Load	0x2,-0x4
06a2 e403       |    |		Load	0x2,0x3
06a3 e001       |    |		Load	0x0,0x1
06a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06a6			TRAP_0698:
06a6 e008       |    |		Load	0x0,0x8
06a7 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
06a8 010f       |    |		Execute	Exception,Equal
06a9 6809       |h   |		Jump_Zero	0x6b3
06aa e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xf.0x1 = 0x6aa,0x2
06ab e008       |    |		Load	0x0,0x8
06ac 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06ad 0f01       |    |		Execute_Immediate	Equal,0x1
06ae 6802       |h   |		Jump_Zero	0x6b1
06af 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0x2 = 0x6af,0x3
06b0 0101       |    |		Execute	Exception,Reraise
06b1 6002       |`   |		Indirect_Literal	Discrete,0x6b4,{0x00000000, 0x5a646501}		; Debug Table 0xf.0x3 = 0x6b1,0x4
06b2 0257       | W  |		Execute	Discrete,Raise
06b3 0100       |    |		Execute	Exception,Raise
06b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x5a646501}
06b8 ; --------------------------------------------------------------------------------------
06b8 ; STRING TABLE
06b8 ; --------------------------------------------------------------------------------------
06b8 0052       | R  |		.STRTAB	0x0052->0x06e1							; "The unit name given to "
06b9 0067       | g  |		.STRTAB	0x0067->0x06ec							; " should not be the null string"
06ba 0083       |    |		.STRTAB	0x0083->0x06fb							; "No "
06bb 0084       |    |		.STRTAB	0x0084->0x06fd							; "able objects match "
06bc 0095       |    |		.STRTAB	0x0095->0x0706							; "finding objects to "
06bd 00a6       |    |		.STRTAB	0x00a6->0x0710							; "Number of marked objects,"
06be 00bd       |    |		.STRTAB	0x00bd->0x071c							; ", exceeds threshold"
06bf 00ce       |    |		.STRTAB	0x00ce->0x0726							; "The 1 marked object will now be "
06c0 00ec       |    |		.STRTAB	0x00ec->0x0736							; "The"
06c1 00ed       |    |		.STRTAB	0x00ed->0x0737							; " marked objects will now be "
06c2 0107       |    |		.STRTAB	0x0107->0x0745							; "No objects have been "
06c3 011a       |    |		.STRTAB	0x011a->0x0750							; " 1 object has been "
06c4 012b       | +  |		.STRTAB	0x012b->0x0759							; " objects have been "
06c5 013c       | <  |		.STRTAB	0x013c->0x0763							; " 1 object could not be "
06c6 0151       | Q  |		.STRTAB	0x0151->0x076e							; " objects could not be "
06c7 0165       | e  |		.STRTAB	0x0165->0x0779							; "No objects will be "
06c8 0176       | v  |		.STRTAB	0x0176->0x0783							; " "
06c9 0175       | u  |		.STRTAB	0x0175->0x0783							; "Deleting"
06ca 017b       | {  |		.STRTAB	0x017b->0x0787							; "Deleted"
06cb 0180       |    |		.STRTAB	0x0180->0x078b							; "Delete"
06cc 0184       |    |		.STRTAB	0x0184->0x078e							; "deleting"
06cd 018a       |    |		.STRTAB	0x018a->0x0792							; "deleted"
06ce 018f       |    |		.STRTAB	0x018f->0x0795							; "delete"
06cf 0193       |    |		.STRTAB	0x0193->0x0798							; "Destroying"
06d0 019b       |    |		.STRTAB	0x019b->0x079d							; "Destroyed"
06d1 01a2       |    |		.STRTAB	0x01a2->0x07a2							; "Destroy"
06d2 01a7       |    |		.STRTAB	0x01a7->0x07a5							; "destroying"
06d3 01af       |    |		.STRTAB	0x01af->0x07aa							; "destroyed"
06d4 01b6       |    |		.STRTAB	0x01b6->0x07af							; "destroy"
06d5 01bb       |    |		.STRTAB	0x01bb->0x07b2							; " is a subsystem; use cmvc commands to destroy it"
06d6 01e9       |    |		.STRTAB	0x01e9->0x07ca							; " is a view; use cmvc commands to destroy it"
06d7 0212       |    |		.STRTAB	0x0212->0x07e0							; "The code view "
06d8 021e       |    |		.STRTAB	0x021e->0x07e7							; " has the dependent main program "
06d9 023c       | <  |		.STRTAB	0x023c->0x07f7							; " which would need to be demoted, "
06da 025b       | [  |		.STRTAB	0x025b->0x0807							; "but is outside the change limit given"
06db 027e       | ~  |		.STRTAB	0x027e->0x081a							; " were "
06dc 0282       |    |		.STRTAB	0x0282->0x081d							; "examining children of "
06dd 0296       |    |		.STRTAB	0x0296->0x0828							; " has been marked"
06de 02a4       |    |		.STRTAB	0x02a4->0x0830							; "Cannot "
06df 02a9       |    |		.STRTAB	0x02a9->0x0833							; " nondefault version of "
06e0 02be       |    |		.STREND 0x02be->0x083f
06e1 5468 6520  |The |		.STRTAB_STRINGS
083f 0000       |    |		.XXX[0x1]
0840 ; --------------------------------------------------------------------------------------
0840 ; Debug Table
0840 ; --------------------------------------------------------------------------------------
0840 0003 0010  |    |		.CONST	0x0003,0x0010
0842 000b 08c2  |    |		.DEBUG	0x000b,0x08c2,0x8000,0x0000,0x005a,0x60f5,0x0000,0x0009
084a 000f 08ca  |    |		.DEBUG	0x000f,0x08ca,0x8000,0x0000,0x005a,0x6465,0x0000,0x0025
0852 0043 0906  | C  |		.DEBUG	0x0043,0x0906,0x0001,0x0000,0x005a,0x60f5,0x0000,0x000a
085a 0203 0976  |   v|		.DEBUG	0x0203,0x0976,0x0005,0x0000,0x005a,0x4d85,0x0000,0x008f
0862 020b 0978  |   x|		.DEBUG	0x020b,0x0978,0x0005,0x0000,0x005a,0x4d85,0x0000,0x008d
086a 0213 097a  |   z|		.DEBUG	0x0213,0x097a,0x0005,0x0000,0x005a,0x4d85,0x0000,0x0090
0872 021b 097c  |   ||		.DEBUG	0x021b,0x097c,0x0005,0x0000,0x005a,0x4d85,0x0000,0x008c
087a 0223 097e  | # ~|		.DEBUG	0x0223,0x097e,0x0002,0x0000,0x005a,0x6465,0x0000,0x00d9
0882 0263 09ae  | c  |		.DEBUG	0x0263,0x09ae,0x0002,0x0000,0x005a,0x6465,0x0000,0x0143
088a 02bb 09ce  |    |		.DEBUG	0x02bb,0x09ce,0x0002,0x0000,0x005a,0x6465,0x0000,0x01fc
0892 03b3 0a0e  |    |		.DEBUG	0x03b3,0x0a0e,0x0002,0x0000,0x005a,0x6465,0x0000,0x038b
089a 03d3 0a18  |    |		.DEBUG	0x03d3,0x0a18,0x0001,0x0000,0x005a,0x6465,0x0000,0x03c1
08a2 0473 0a3a  | s :|		.DEBUG	0x0473,0x0a3a,0x0001,0x0000,0x005a,0x6465,0x0000,0x04e0
08aa 053b 0a7a  | ; z|		.DEBUG	0x053b,0x0a7a,0x0001,0x0000,0x005a,0x6465,0x0000,0x063b
08b2 0603 0ab2  |    |		.DEBUG	0x0603,0x0ab2,0x0001,0x0000,0x005a,0x6465,0x0000,0x0772
08ba 069b 0ae2  |    |		.DEBUG	0x069b,0x0ae2,0x0004,0x0000,0x005a,0x6465,0x0000,0x093e
08c2 ; --------------------------------------------------------------------------------------
08c2 ; Debug3 Subtable 0x0
08c2 ; --------------------------------------------------------------------------------------
08c2 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
08c4 000b ffff  |    |		.CONST	0x000b,0xffff
08c6 000d fffe  |    |		.CONST	0x000d,0xfffe
08c8 000e fffd  |    |		.CONST	0x000e,0xfffd
08ca ; --------------------------------------------------------------------------------------
08ca ; Debug3 Subtable 0x1
08ca ; --------------------------------------------------------------------------------------
08ca 001d 0000  |    |		.DBG3TAB	0x001d,0x0000
08cc 000f ffff  |    |		.CONST	0x000f,0xffff
08ce 0010 fffe  |    |		.CONST	0x0010,0xfffe
08d0 0011 fffd  |    |		.CONST	0x0011,0xfffd
08d2 0012 fffc  |    |		.CONST	0x0012,0xfffc
08d4 0013 fffb  |    |		.CONST	0x0013,0xfffb
08d6 0014 fffa  |    |		.CONST	0x0014,0xfffa
08d8 0015 fff9  |    |		.CONST	0x0015,0xfff9
08da 0016 fff8  |    |		.CONST	0x0016,0xfff8
08dc 0017 fff7  |    |		.CONST	0x0017,0xfff7
08de 0018 fff6  |    |		.CONST	0x0018,0xfff6
08e0 0019 fff5  |    |		.CONST	0x0019,0xfff5
08e2 001a fff4  |    |		.CONST	0x001a,0xfff4
08e4 001b fff3  |    |		.CONST	0x001b,0xfff3
08e6 001c fff2  |    |		.CONST	0x001c,0xfff2
08e8 001d fff1  |    |		.CONST	0x001d,0xfff1
08ea 0020 fff0  |    |		.CONST	0x0020,0xfff0
08ec 0022 ffef  | "  |		.CONST	0x0022,0xffef
08ee 0024 ffee  | $  |		.CONST	0x0024,0xffee
08f0 0026 ffed  | &  |		.CONST	0x0026,0xffed
08f2 0028 ffec  | (  |		.CONST	0x0028,0xffec
08f4 0029 ffeb  | )  |		.CONST	0x0029,0xffeb
08f6 002b ffea  | +  |		.CONST	0x002b,0xffea
08f8 002d ffe9  | -  |		.CONST	0x002d,0xffe9
08fa 002f ffe8  | /  |		.CONST	0x002f,0xffe8
08fc 0031 ffe7  | 1  |		.CONST	0x0031,0xffe7
08fe 0033 ffe6  | 3  |		.CONST	0x0033,0xffe6
0900 0035 ffe5  | 5  |		.CONST	0x0035,0xffe5
0902 0037 ffe4  | 7  |		.CONST	0x0037,0xffe4
0904 0039 ffe3  | 9  |		.CONST	0x0039,0xffe3
0906 ; --------------------------------------------------------------------------------------
0906 ; Debug3 Subtable 0x2
0906 ; --------------------------------------------------------------------------------------
0906 0008 002f  |   /|		.DBG3TAB	0x0008,0x002f
0908 0043 ffff  | C  |		.CONST	0x0043,0xffff
090a 0046 fffe  | F  |		.CONST	0x0046,0xfffe
090c 004c fffd  | L  |		.CONST	0x004c,0xfffd
090e 004e fffc  | N  |		.CONST	0x004e,0xfffc
0910 0050 fffb  | P  |		.CONST	0x0050,0xfffb
0912 0052 fffa  | R  |		.CONST	0x0052,0xfffa
0914 0058 fff9  | X  |		.CONST	0x0058,0xfff9
0916 005b fff8  | [  |		.CONST	0x005b,0xfff8
0918 0062 0001  | b  |		.CONST	0x0062,0x0001
091a 0064 0002  | d  |		.CONST	0x0064,0x0002
091c 0067 0003  | g  |		.CONST	0x0067,0x0003
091e 0075 0004  | u  |		.CONST	0x0075,0x0004
0920 0076 0005  | v  |		.CONST	0x0076,0x0005
0922 0081 0006  |    |		.CONST	0x0081,0x0006
0924 0083 0007  |    |		.CONST	0x0083,0x0007
0926 009c 0008  |    |		.CONST	0x009c,0x0008
0928 00b8 0009  |    |		.CONST	0x00b8,0x0009
092a 00b9 000a  |    |		.CONST	0x00b9,0x000a
092c 00bb 000b  |    |		.CONST	0x00bb,0x000b
092e 00c1 000c  |    |		.CONST	0x00c1,0x000c
0930 00ce 000d  |    |		.CONST	0x00ce,0x000d
0932 00d5 000e  |    |		.CONST	0x00d5,0x000e
0934 00d7 000f  |    |		.CONST	0x00d7,0x000f
0936 00e8 0010  |    |		.CONST	0x00e8,0x0010
0938 00f6 0011  |    |		.CONST	0x00f6,0x0011
093a 00fb 0012  |    |		.CONST	0x00fb,0x0012
093c 0101 0013  |    |		.CONST	0x0101,0x0013
093e 010d 0014  |    |		.CONST	0x010d,0x0014
0940 010f 0015  |    |		.CONST	0x010f,0x0015
0942 0112 0016  |    |		.CONST	0x0112,0x0016
0944 011e 0017  |    |		.CONST	0x011e,0x0017
0946 0121 0018  | !  |		.CONST	0x0121,0x0018
0948 0133 0019  | 3  |		.CONST	0x0133,0x0019
094a 013b 001a  | ;  |		.CONST	0x013b,0x001a
094c 013f 001b  | ?  |		.CONST	0x013f,0x001b
094e 014b 001c  | K  |		.CONST	0x014b,0x001c
0950 0150 001d  | P  |		.CONST	0x0150,0x001d
0952 015c 001e  | \  |		.CONST	0x015c,0x001e
0954 016e 001f  | n  |		.CONST	0x016e,0x001f
0956 0170 0020  | p  |		.CONST	0x0170,0x0020
0958 0173 0021  | s !|		.CONST	0x0173,0x0021
095a 0176 0022  | v "|		.CONST	0x0176,0x0022
095c 0182 0023  |   #|		.CONST	0x0182,0x0023
095e 0185 0024  |   $|		.CONST	0x0185,0x0024
0960 0199 0025  |   %|		.CONST	0x0199,0x0025
0962 019e 0026  |   &|		.CONST	0x019e,0x0026
0964 01a5 0027  |   '|		.CONST	0x01a5,0x0027
0966 01b0 0028  |   (|		.CONST	0x01b0,0x0028
0968 01b5 0029  |   )|		.CONST	0x01b5,0x0029
096a 01ba 002a  |   *|		.CONST	0x01ba,0x002a
096c 01c1 002b  |   +|		.CONST	0x01c1,0x002b
096e 01cd 002c  |   ,|		.CONST	0x01cd,0x002c
0970 01d2 002d  |   -|		.CONST	0x01d2,0x002d
0972 01d9 002e  |   .|		.CONST	0x01d9,0x002e
0974 01ed 002f  |   /|		.CONST	0x01ed,0x002f
0976 ; --------------------------------------------------------------------------------------
0976 ; Debug3 Subtable 0x3
0976 ; --------------------------------------------------------------------------------------
0976 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0978 ; --------------------------------------------------------------------------------------
0978 ; Debug3 Subtable 0x4
0978 ; --------------------------------------------------------------------------------------
0978 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
097a ; --------------------------------------------------------------------------------------
097a ; Debug3 Subtable 0x5
097a ; --------------------------------------------------------------------------------------
097a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
097c ; --------------------------------------------------------------------------------------
097c ; Debug3 Subtable 0x6
097c ; --------------------------------------------------------------------------------------
097c 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
097e ; --------------------------------------------------------------------------------------
097e ; Debug3 Subtable 0x7
097e ; --------------------------------------------------------------------------------------
097e 0000 0017  |    |		.DBG3TAB	0x0000,0x0017
0980 0223 0001  | #  |		.CONST	0x0223,0x0001
0982 0225 0002  | %  |		.CONST	0x0225,0x0002
0984 0227 0003  | '  |		.CONST	0x0227,0x0003
0986 0229 0004  | )  |		.CONST	0x0229,0x0004
0988 022c 0005  | ,  |		.CONST	0x022c,0x0005
098a 022e 0006  | .  |		.CONST	0x022e,0x0006
098c 0231 0007  | 1  |		.CONST	0x0231,0x0007
098e 0234 0008  | 4  |		.CONST	0x0234,0x0008
0990 0236 0009  | 6  |		.CONST	0x0236,0x0009
0992 0239 000a  | 9  |		.CONST	0x0239,0x000a
0994 023b 000b  | ;  |		.CONST	0x023b,0x000b
0996 023e 000c  | >  |		.CONST	0x023e,0x000c
0998 0241 000d  | A  |		.CONST	0x0241,0x000d
099a 0243 000e  | C  |		.CONST	0x0243,0x000e
099c 0245 000f  | E  |		.CONST	0x0245,0x000f
099e 0248 0010  | H  |		.CONST	0x0248,0x0010
09a0 024a 0011  | J  |		.CONST	0x024a,0x0011
09a2 024d 0012  | M  |		.CONST	0x024d,0x0012
09a4 0250 0013  | P  |		.CONST	0x0250,0x0013
09a6 0252 0014  | R  |		.CONST	0x0252,0x0014
09a8 0255 0015  | U  |		.CONST	0x0255,0x0015
09aa 0257 0016  | W  |		.CONST	0x0257,0x0016
09ac 025a 0017  | Z  |		.CONST	0x025a,0x0017
09ae ; --------------------------------------------------------------------------------------
09ae ; Debug3 Subtable 0x8
09ae ; --------------------------------------------------------------------------------------
09ae 0008 0007  |    |		.DBG3TAB	0x0008,0x0007
09b0 0263 ffff  | c  |		.CONST	0x0263,0xffff
09b2 0265 fffe  | e  |		.CONST	0x0265,0xfffe
09b4 0267 fffd  | g  |		.CONST	0x0267,0xfffd
09b6 0268 fffc  | h  |		.CONST	0x0268,0xfffc
09b8 026d fffb  | m  |		.CONST	0x026d,0xfffb
09ba 026f fffa  | o  |		.CONST	0x026f,0xfffa
09bc 0275 fff9  | u  |		.CONST	0x0275,0xfff9
09be 0284 fff8  |    |		.CONST	0x0284,0xfff8
09c0 028e 0001  |    |		.CONST	0x028e,0x0001
09c2 029a 0002  |    |		.CONST	0x029a,0x0002
09c4 029c 0003  |    |		.CONST	0x029c,0x0003
09c6 029e 0004  |    |		.CONST	0x029e,0x0004
09c8 02a7 0005  |    |		.CONST	0x02a7,0x0005
09ca 02ab 0006  |    |		.CONST	0x02ab,0x0006
09cc 02ad 0007  |    |		.CONST	0x02ad,0x0007
09ce ; --------------------------------------------------------------------------------------
09ce ; Debug3 Subtable 0x9
09ce ; --------------------------------------------------------------------------------------
09ce 0007 0018  |    |		.DBG3TAB	0x0007,0x0018
09d0 02bb ffff  |    |		.CONST	0x02bb,0xffff
09d2 02c1 fffe  |    |		.CONST	0x02c1,0xfffe
09d4 02c3 fffd  |    |		.CONST	0x02c3,0xfffd
09d6 02c5 fffc  |    |		.CONST	0x02c5,0xfffc
09d8 02c7 fffb  |    |		.CONST	0x02c7,0xfffb
09da 02cc fffa  |    |		.CONST	0x02cc,0xfffa
09dc 02d1 fff9  |    |		.CONST	0x02d1,0xfff9
09de 02d4 0001  |    |		.CONST	0x02d4,0x0001
09e0 02e7 0002  |    |		.CONST	0x02e7,0x0002
09e2 02f2 0003  |    |		.CONST	0x02f2,0x0003
09e4 02f4 0004  |    |		.CONST	0x02f4,0x0004
09e6 02f9 0005  |    |		.CONST	0x02f9,0x0005
09e8 030d 0006  |    |		.CONST	0x030d,0x0006
09ea 0317 0007  |    |		.CONST	0x0317,0x0007
09ec 0319 0008  |    |		.CONST	0x0319,0x0008
09ee 032d 0009  | -  |		.CONST	0x032d,0x0009
09f0 0337 000a  | 7  |		.CONST	0x0337,0x000a
09f2 0339 000b  | 9  |		.CONST	0x0339,0x000b
09f4 0342 000c  | B  |		.CONST	0x0342,0x000c
09f6 0346 000d  | F  |		.CONST	0x0346,0x000d
09f8 034a 000e  | J  |		.CONST	0x034a,0x000e
09fa 034d 000f  | M  |		.CONST	0x034d,0x000f
09fc 034e 0010  | N  |		.CONST	0x034e,0x0010
09fe 0353 0011  | S  |		.CONST	0x0353,0x0011
0a00 0360 0012  | `  |		.CONST	0x0360,0x0012
0a02 0365 0013  | e  |		.CONST	0x0365,0x0013
0a04 0376 0014  | v  |		.CONST	0x0376,0x0014
0a06 0380 0015  |    |		.CONST	0x0380,0x0015
0a08 0398 0016  |    |		.CONST	0x0398,0x0016
0a0a 039a 0017  |    |		.CONST	0x039a,0x0017
0a0c 03a0 0018  |    |		.CONST	0x03a0,0x0018
0a0e ; --------------------------------------------------------------------------------------
0a0e ; Debug3 Subtable 0xa
0a0e ; --------------------------------------------------------------------------------------
0a0e 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
0a10 03b3 ffff  |    |		.CONST	0x03b3,0xffff
0a12 03b5 fffe  |    |		.CONST	0x03b5,0xfffe
0a14 03ba 0001  |    |		.CONST	0x03ba,0x0001
0a16 03c6 0002  |    |		.CONST	0x03c6,0x0002
0a18 ; --------------------------------------------------------------------------------------
0a18 ; Debug3 Subtable 0xb
0a18 ; --------------------------------------------------------------------------------------
0a18 0006 000a  |    |		.DBG3TAB	0x0006,0x000a
0a1a 03d3 ffff  |    |		.CONST	0x03d3,0xffff
0a1c 03d5 fffe  |    |		.CONST	0x03d5,0xfffe
0a1e 03d7 fffd  |    |		.CONST	0x03d7,0xfffd
0a20 03d8 fffc  |    |		.CONST	0x03d8,0xfffc
0a22 03dd fffb  |    |		.CONST	0x03dd,0xfffb
0a24 03e1 fffa  |    |		.CONST	0x03e1,0xfffa
0a26 03e2 0001  |    |		.CONST	0x03e2,0x0001
0a28 03e6 0002  |    |		.CONST	0x03e6,0x0002
0a2a 03e8 0003  |    |		.CONST	0x03e8,0x0003
0a2c 0408 0004  |    |		.CONST	0x0408,0x0004
0a2e 0426 0005  | &  |		.CONST	0x0426,0x0005
0a30 043b 0006  | ;  |		.CONST	0x043b,0x0006
0a32 0449 0007  | I  |		.CONST	0x0449,0x0007
0a34 0454 0008  | T  |		.CONST	0x0454,0x0008
0a36 0459 0009  | Y  |		.CONST	0x0459,0x0009
0a38 045c 000a  | \  |		.CONST	0x045c,0x000a
0a3a ; --------------------------------------------------------------------------------------
0a3a ; Debug3 Subtable 0xc
0a3a ; --------------------------------------------------------------------------------------
0a3a 0008 0017  |    |		.DBG3TAB	0x0008,0x0017
0a3c 0473 ffff  | s  |		.CONST	0x0473,0xffff
0a3e 0479 fffe  | y  |		.CONST	0x0479,0xfffe
0a40 047c fffd  | |  |		.CONST	0x047c,0xfffd
0a42 0481 fffc  |    |		.CONST	0x0481,0xfffc
0a44 0482 fffb  |    |		.CONST	0x0482,0xfffb
0a46 0484 fffa  |    |		.CONST	0x0484,0xfffa
0a48 0489 fff9  |    |		.CONST	0x0489,0xfff9
0a4a 048e fff8  |    |		.CONST	0x048e,0xfff8
0a4c 0490 0001  |    |		.CONST	0x0490,0x0001
0a4e 0498 0003  |    |		.CONST	0x0498,0x0003
0a50 049d 0004  |    |		.CONST	0x049d,0x0004
0a52 04a5 0005  |    |		.CONST	0x04a5,0x0005
0a54 04b3 0006  |    |		.CONST	0x04b3,0x0006
0a56 04b8 0007  |    |		.CONST	0x04b8,0x0007
0a58 04c5 0008  |    |		.CONST	0x04c5,0x0008
0a5a 04ca 0009  |    |		.CONST	0x04ca,0x0009
0a5c 04d1 000a  |    |		.CONST	0x04d1,0x000a
0a5e 04d7 000c  |    |		.CONST	0x04d7,0x000c
0a60 04dc 000d  |    |		.CONST	0x04dc,0x000d
0a62 04ed 000e  |    |		.CONST	0x04ed,0x000e
0a64 04ef 000f  |    |		.CONST	0x04ef,0x000f
0a66 04fc 0010  |    |		.CONST	0x04fc,0x0010
0a68 0500 0011  |    |		.CONST	0x0500,0x0011
0a6a 0505 000b  |    |		.CONST	0x0505,0x000b
0a6c 050a 0012  |    |		.CONST	0x050a,0x0012
0a6e 0510 0002  |    |		.CONST	0x0510,0x0002
0a70 0516 0013  |    |		.CONST	0x0516,0x0013
0a72 051e 0015  |    |		.CONST	0x051e,0x0015
0a74 0523 0016  | #  |		.CONST	0x0523,0x0016
0a76 052b 0017  | +  |		.CONST	0x052b,0x0017
0a78 0531 0014  | 1  |		.CONST	0x0531,0x0014
0a7a ; --------------------------------------------------------------------------------------
0a7a ; Debug3 Subtable 0xd
0a7a ; --------------------------------------------------------------------------------------
0a7a 0007 0014  |    |		.DBG3TAB	0x0007,0x0014
0a7c 053b ffff  | ;  |		.CONST	0x053b,0xffff
0a7e 0541 fffe  | A  |		.CONST	0x0541,0xfffe
0a80 0543 fffd  | C  |		.CONST	0x0543,0xfffd
0a82 0549 fffc  | I  |		.CONST	0x0549,0xfffc
0a84 054e fffb  | N  |		.CONST	0x054e,0xfffb
0a86 0553 fffa  | S  |		.CONST	0x0553,0xfffa
0a88 0559 fff9  | Y  |		.CONST	0x0559,0xfff9
0a8a 055a 0001  | Z  |		.CONST	0x055a,0x0001
0a8c 0560 0002  | `  |		.CONST	0x0560,0x0002
0a8e 0561 0003  | a  |		.CONST	0x0561,0x0003
0a90 0565 0004  | e  |		.CONST	0x0565,0x0004
0a92 0576 0005  | v  |		.CONST	0x0576,0x0005
0a94 057b 0006  | {  |		.CONST	0x057b,0x0006
0a96 0581 0007  |    |		.CONST	0x0581,0x0007
0a98 0591 0008  |    |		.CONST	0x0591,0x0008
0a9a 0597 0009  |    |		.CONST	0x0597,0x0009
0a9c 05a3 000a  |    |		.CONST	0x05a3,0x000a
0a9e 05b5 000b  |    |		.CONST	0x05b5,0x000b
0aa0 05b9 000d  |    |		.CONST	0x05b9,0x000d
0aa2 05be 000e  |    |		.CONST	0x05be,0x000e
0aa4 05c4 000f  |    |		.CONST	0x05c4,0x000f
0aa6 05cd 0010  |    |		.CONST	0x05cd,0x0010
0aa8 05d3 000c  |    |		.CONST	0x05d3,0x000c
0aaa 05da 0011  |    |		.CONST	0x05da,0x0011
0aac 05e6 0012  |    |		.CONST	0x05e6,0x0012
0aae 05e9 0013  |    |		.CONST	0x05e9,0x0013
0ab0 05f3 0014  |    |		.CONST	0x05f3,0x0014
0ab2 ; --------------------------------------------------------------------------------------
0ab2 ; Debug3 Subtable 0xe
0ab2 ; --------------------------------------------------------------------------------------
0ab2 0005 0012  |    |		.DBG3TAB	0x0005,0x0012
0ab4 0603 ffff  |    |		.CONST	0x0603,0xffff
0ab6 0608 fffe  |    |		.CONST	0x0608,0xfffe
0ab8 060d fffd  |    |		.CONST	0x060d,0xfffd
0aba 0612 fffc  |    |		.CONST	0x0612,0xfffc
0abc 0614 fffb  |    |		.CONST	0x0614,0xfffb
0abe 0616 0001  |    |		.CONST	0x0616,0x0001
0ac0 061b 0002  |    |		.CONST	0x061b,0x0002
0ac2 061c 0003  |    |		.CONST	0x061c,0x0003
0ac4 062b 0004  | +  |		.CONST	0x062b,0x0004
0ac6 0637 0005  | 7  |		.CONST	0x0637,0x0005
0ac8 063c 0006  | <  |		.CONST	0x063c,0x0006
0aca 0649 0007  | I  |		.CONST	0x0649,0x0007
0acc 064b 0008  | K  |		.CONST	0x064b,0x0008
0ace 064c 0009  | L  |		.CONST	0x064c,0x0009
0ad0 0650 000a  | P  |		.CONST	0x0650,0x000a
0ad2 0656 000b  | V  |		.CONST	0x0656,0x000b
0ad4 0657 000c  | W  |		.CONST	0x0657,0x000c
0ad6 0659 000d  | Y  |		.CONST	0x0659,0x000d
0ad8 0666 000e  | f  |		.CONST	0x0666,0x000e
0ada 0670 000f  | p  |		.CONST	0x0670,0x000f
0adc 0683 0010  |    |		.CONST	0x0683,0x0010
0ade 0684 0011  |    |		.CONST	0x0684,0x0011
0ae0 0687 0012  |    |		.CONST	0x0687,0x0012
0ae2 ; --------------------------------------------------------------------------------------
0ae2 ; Debug3 Subtable 0xf
0ae2 ; --------------------------------------------------------------------------------------
0ae2 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0ae4 069b 0001  |    |		.CONST	0x069b,0x0001
0ae6 06aa 0002  |    |		.CONST	0x06aa,0x0002
0ae8 06af 0003  |    |		.CONST	0x06af,0x0003
0aea 06b1 0004  |    |		.CONST	0x06b1,0x0004
0aec 0000 0000  |    |		.BLANK	0000[0x114]