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

⟦aa6817eef⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0648       | H  |		.CONST	0x0648								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050       | P  |		.CONST	0x0050								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0019       |    |		.CONST	0x0019								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x06c2,0x8000,0x0000,0x0057,0xadb5,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3 = 0x10,0xfffc
0011 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x4 = 0x11,0xfffb
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0012,0x06ce,0x8000,0x0000,0x0057,0xb015,0x0000,0x001d
													; Debug Table 0x1.0x0 = 0x12,0xffff
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x13,0xfffe
0014 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x14,0xfffd
0015 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x15,0xfffc
0016 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x16,0xfffb
0017 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x17,0xfffa
0018 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x18,0xfff9
0019 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x19,0xfff8
001a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x8 = 0x1a,0xfff7
001b e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x9 = 0x1b,0xfff6
001c 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
001d 0007       |    |		Action	Break_Optional
001e 029d 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call			; Debug Table 0x1.0xa = 0x1e,0xfff5
0020 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xb = 0x20,0xfff4
0021 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0xc = 0x21,0xfff3
0022 e002       |    |		Load	0x0,0x2
0023 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 00e1       |    |		Load_Encached	Boolean_Cache
0026 00e2       |    |		Load_Encached	Integer_Cache
0027 00e2       |    |		Load_Encached	Integer_Cache
0028 e001       |    |		Load	0x0,0x1
0029 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
002a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002b e001       |    |		Load	0x0,0x1
002c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
002d e003       |    |		Load	0x0,0x3
002e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002f 00f0       |    |		Load_Encached	Segment_Cache
0030 e004       |    |		Load	0x0,0x4
0031 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0032 e005       |    |		Load	0x0,0x5
0033 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0034 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
0036 480b       |H   |		Short_Literal	0xb
0037 032d       | -  |		Declare_Type	Record,Defined
0038 029b 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Unelaborated		; Debug Table 0x1.0xd = 0x38,0xfff2
003a 029b 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Unelaborated		; Debug Table 0x1.0xe = 0x3a,0xfff1
003c 029d 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call			; Debug Table 0x1.0xf = 0x3c,0xfff0
003e 029d 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call			; Debug Table 0x1.0x10 = 0x3e,0xffef
0040 029d 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call			; Debug Table 0x1.0x11 = 0x40,0xffee
0042 029d 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call			; Debug Table 0x1.0x12 = 0x42,0xffed
0044 029d 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call			; Debug Table 0x1.0x13 = 0x44,0xffec
0046 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x14 = 0x46,0xffeb
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call			; Debug Table 0x1.0x15 = 0x48,0xffea
004a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x16 = 0x4a,0xffe9
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x17 = 0x4c,0xffe8
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x18 = 0x4e,0xffe7
004f 00c7       |    |		Action	Elaborate_Subprogram
0050			BODY_0008:
0050 00bc       |    |		Action	Signal_Activated
0051 00bb       |    |		Action	Signal_Completion
0052 0000 0000  |    |		.BLANK	0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0076       | v  |		.CONST	0x0076								; Address of begin
0059 0132       | 2  |		.CONST	0x0132								; Address of exception handler
005a 0008       |    |		.CONST	0x0008								; Number of locals
005b			INIT_0058:
005b e002       |    |		Load	0x0,0x2								; Debug Table 0x2 = .DEBUG	0x005b,0x0702,0x0001,0x0000,0x0057,0xadb5,0x0000,0x0012
													; Debug Table 0x2.0x0 = 0x5b,0xffff
005c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
005d 02c7       |    |		Declare_Variable	Any
005e 00d8       |    |		Load_Top	At_Offset_0
005f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0060 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x1 = 0x60,0xfffe
0061 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0062 02c7       |    |		Declare_Variable	Any
0063 00d8       |    |		Load_Top	At_Offset_0
0064 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0065 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2.0x2 = 0x65,0xfffd
0066 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0067 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x3 = 0x67,0xfffc
0068 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0069 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
006a 02c7       |    |		Declare_Variable	Any
006b 00d8       |    |		Load_Top	At_Offset_0
006c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006d e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x4 = 0x6d,0xfffb
006e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0070 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x5 = 0x70,0xfffa
0071 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0072 e211       |    |		Load	0x1,0x11							; Debug Table 0x2.0x6 = 0x72,0xfff9
0073 0322       | "  |		Declare_Variable	Record
0074 00d8       |    |		Load_Top	At_Offset_0
0075 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0076			BODY_0058:
0076 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x2.0x7 = 0x76,0x1
0077 00d9       |    |		Load_Top	At_Offset_1
0078 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0079 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x8 = 0x79,0x2
007a 00d9       |    |		Load_Top	At_Offset_1
007b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
007c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x9 = 0x7c,0x3
007d 00d9       |    |		Load_Top	At_Offset_1
007e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007f e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x2.0xa = 0x7f,0x4
0080 00d9       |    |		Load_Top	At_Offset_1
0081 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0082 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0xb = 0x82,0x5
0083 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0084 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0085 00d9       |    |		Load_Top	At_Offset_1
0086 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0087 e001       |    |		Load	0x0,0x1
0088 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0089 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
008a 00d9       |    |		Load_Top	At_Offset_1
008b 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
008c e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0xc = 0x8c,0x6
008d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
008e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
008f e405       |    |		Load	0x2,0x5
0090 62bf       |b   |		Indirect_Literal	Discrete,0x350,{0x00000000, 0x00004000}
0091 e005       |    |		Load	0x0,0x5
0092 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0093 e006       |    |		Load	0x0,0x6
0094 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0095 e007       |    |		Load	0x0,0x7
0096 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0097 4801       |H   |		Short_Literal	0x1
0098 4800       |H   |		Short_Literal	0x0
0099 e006       |    |		Load	0x0,0x6
009a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
009b e002       |    |		Load	0x0,0x2
009c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
009d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
009e e5ff       |    |		Load	0x2,-0x1
009f e002       |    |		Load	0x0,0x2
00a0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00a2 c405       |    |		Store	0x2,0x5
00a3 005b       | [  |		Store_Top	Discrete,At_Offset_3
00a4 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0xd = 0xa4,0x7
00a5 707c       |p|  |		Jump_Nonzero	0x122
00a6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0xe = 0xa6,0x8
00a7 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
00a8 e006       |    |		Load	0x0,0x6
00a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00aa e007       |    |		Load	0x0,0x7
00ab 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ac e5fa       |    |		Load	0x2,-0x6
00ad e5fc       |    |		Load	0x2,-0x4
00ae e405       |    |		Load	0x2,0x5
00af e001       |    |		Load	0x0,0x1
00b0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00b1 00d1       |    |		Pop_Control	Pop_Count_1
00b2 00cf       |    |		Action	Mark_Auxiliary
00b3 782e       |x.  |		Jump	0xe2
00b4 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0xf = 0xb4,0xa
00b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b6 e402       |    |		Load	0x2,0x2
00b7 0120       |    |		Execute	Any,Is_Value
00b8 6803       |h   |		Jump_Zero	0xbc
00b9 e002       |    |		Load	0x0,0x2
00ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bb 7801       |x   |		Jump	0xbd
00bc e402       |    |		Load	0x2,0x2
00bd e405       |    |		Load	0x2,0x5
00be e002       |    |		Load	0x0,0x2
00bf 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00c0 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00c1 c402       |    |		Store	0x2,0x2
00c2 005b       | [  |		Store_Top	Discrete,At_Offset_3
00c3 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x10 = 0xc3,0xb
00c4 e002       |    |		Load	0x0,0x2
00c5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00c6 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00c7 c403       |    |		Store	0x2,0x3
00c8 e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x11 = 0xc8,0xc
00c9 e002       |    |		Load	0x0,0x2
00ca 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00cb 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00cc 012f       | /  |		Execute	Any,Equal
00cd 7006       |p   |		Jump_Nonzero	0xd4
00ce e403       |    |		Load	0x2,0x3
00cf e002       |    |		Load	0x0,0x2
00d0 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
00d1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00d2 012f       | /  |		Execute	Any,Equal
00d3 6808       |h   |		Jump_Zero	0xdc
00d4 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x12 = 0xd4,0xd
00d5 a404       |    |		Store_Unchecked	0x2,0x4
00d6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x13 = 0xd6,0xe
00d7 4800       |H   |		Short_Literal	0x0
00d8 e5fb       |    |		Load	0x2,-0x5
00d9 e402       |    |		Load	0x2,0x2
00da 8213       |    |		Call	0x1,0x13
00db 00d1       |    |		Pop_Control	Pop_Count_1
00dc e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x14 = 0xdc,0xf
00dd e002       |    |		Load	0x0,0x2
00de 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00df 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00e0 c405       |    |		Store	0x2,0x5
00e1 00c9       |    |		Action	Pop_Auxiliary_Loop
00e2 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x15 = 0xe2,0x9
00e3 e002       |    |		Load	0x0,0x2
00e4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00e5 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00e6 6fcd       |o   |		Jump_Zero	0xb4
00e7 00ce       |    |		Action	Pop_Auxiliary
00e8 e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x16 = 0xe8,0x10
00e9 700a       |p   |		Jump_Nonzero	0xf4
00ea e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x2.0x17 = 0xea,0x11
00eb 0092 0524  |   $|		Action	Push_String_Extended,0x524					; "No units match \x22"
00ed e5ff       |    |		Load	0x2,-0x1
00ee 01cc       |    |		Execute	Vector,Catenate
00ef 0092 0525  |   %|		Action	Push_String_Extended,0x525					; "\x22"
00f1 01cc       |    |		Execute	Vector,Catenate
00f2 4805       |H   |		Short_Literal	0x5
00f3 820f       |    |		Call	0x1,0xf
00f4 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x18 = 0xf4,0x12
00f5 6826       |h&  |		Jump_Zero	0x11c
00f6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x19 = 0xf6,0x13
00f7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00f8 0f01       |    |		Execute_Immediate	Equal,0x1
00f9 680b       |h   |		Jump_Zero	0x105
00fa e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x2.0x1a = 0xfa,0x14
00fb 0092 0526  |   &|		Action	Push_String_Extended,0x526					; " 1 unit would be demoted, total repromote effort"
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00ff 00e0       |    |		Load_Encached	Standard_Cache
0100 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0101 01cc       |    |		Execute	Vector,Catenate
0102 4803       |H   |		Short_Literal	0x3
0103 820f       |    |		Call	0x1,0xf
0104 7819       |x   |		Jump	0x11e
0105 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1b = 0x105,0x15
0106 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0107 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0108 6815       |h   |		Jump_Zero	0x11e
0109 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x2.0x1c = 0x109,0x16
010a 00d9       |    |		Load_Top	At_Offset_1
010b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
010c 00e0       |    |		Load_Encached	Standard_Cache
010d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010e 0092 0527  |   '|		Action	Push_String_Extended,0x527					; " units would be demoted, "
0110 01cc       |    |		Execute	Vector,Catenate
0111 0092 0528  |   (|		Action	Push_String_Extended,0x528					; "total repromote effort"
0113 01cc       |    |		Execute	Vector,Catenate
0114 00da       |    |		Load_Top	At_Offset_2
0115 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0116 00e0       |    |		Load_Encached	Standard_Cache
0117 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0118 01cc       |    |		Execute	Vector,Catenate
0119 4803       |H   |		Short_Literal	0x3
011a 820f       |    |		Call	0x1,0xf
011b 7802       |x   |		Jump	0x11e
011c e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x1d = 0x11c,0x17
011d 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
011e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1e = 0x11e,0x18
011f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0120 a5f8       |    |		Store_Unchecked	0x2,-0x8
0121 780a       |x   |		Jump	0x12c
0122 4805       |H   |		Short_Literal	0x5							; Debug Table 0x2.0x1f = 0x122,0x19
0123 e5fa       |    |		Load	0x2,-0x6
0124 e5ff       |    |		Load	0x2,-0x1
0125 0092 0529  |   )|		Action	Push_String_Extended,0x529					; "finding units to demote"
0127 e406       |    |		Load	0x2,0x6
0128 e008       |    |		Load	0x0,0x8
0129 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
012a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x20 = 0x12a,0x1a
012b a5f8       |    |		Store_Unchecked	0x2,-0x8
012c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x21 = 0x12c,0x1b
012d e002       |    |		Load	0x0,0x2
012e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
012f 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0130 c405       |    |		Store	0x2,0x5
0131 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0132			TRAP_0058:
0132 e004       |    |		Load	0x0,0x4
0133 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0134 010f       |    |		Execute	Exception,Equal
0135 6807       |h   |		Jump_Zero	0x13d
0136 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x22 = 0x136,0x1c
0137 e002       |    |		Load	0x0,0x2
0138 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0139 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
013a c405       |    |		Store	0x2,0x5
013b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x23 = 0x13b,0x1d
013c 0101       |    |		Execute	Exception,Reraise
013d e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x24 = 0x13d,0x1e
013e e002       |    |		Load	0x0,0x2
013f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0140 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0141 c405       |    |		Store	0x2,0x5
0142 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x25 = 0x142,0x1f
0143 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0144 4808       |H   |		Short_Literal	0x8							; Debug Table 0x2.0x26 = 0x144,0x20
0145 e5fa       |    |		Load	0x2,-0x6
0146 e009       |    |		Load	0x0,0x9
0147 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0148 0092 052a  |   *|		Action	Push_String_Extended,0x52a					; " raised by Demote command"
014a 01cc       |    |		Execute	Vector,Catenate
014b e008       |    |		Load	0x0,0x8
014c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x27 = 0x14d,0x21
014e a5f8       |    |		Store_Unchecked	0x2,-0x8
014f 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0157       | W  |		.CONST	0x0157								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 e211       |    |		Load	0x1,0x11							; Debug Table 0x3 = .DEBUG	0x0153,0x0754,0x0001,0x0000,0x0057,0xadb5,0x0000,0x004e
													; Debug Table 0x3.0x0 = 0x153,0xffff
0154 0322       | "  |		Declare_Variable	Record
0155 00d8       |    |		Load_Top	At_Offset_0
0156 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0157			BODY_0150:
0157 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x3.0x1 = 0x157,0x1
0158 00d9       |    |		Load_Top	At_Offset_1
0159 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
015a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x2 = 0x15a,0x2
015b 00d9       |    |		Load_Top	At_Offset_1
015c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
015d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x3.0x3 = 0x15d,0x3
015e 00d9       |    |		Load_Top	At_Offset_1
015f 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0160 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0161 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x4 = 0x161,0x4
0162 00d9       |    |		Load_Top	At_Offset_1
0163 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0164 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0165 e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x3.0x5 = 0x165,0x5
0166 00d9       |    |		Load_Top	At_Offset_1
0167 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0168 e001       |    |		Load	0x0,0x1								; Debug Table 0x3.0x6 = 0x168,0x6
0169 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
016a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
016b 00d9       |    |		Load_Top	At_Offset_1
016c 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
016d e001       |    |		Load	0x0,0x1
016e 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
016f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0170 00d9       |    |		Load_Top	At_Offset_1
0171 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0172 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x7 = 0x172,0x7
0173 4800       |H   |		Short_Literal	0x0
0174 e5fb       |    |		Load	0x2,-0x5
0175 e5ff       |    |		Load	0x2,-0x1
0176 8213       |    |		Call	0x1,0x13
0177 00d1       |    |		Pop_Control	Pop_Count_1
0178 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x8 = 0x178,0x8
0179 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017a a5f8       |    |		Store_Unchecked	0x2,-0x8
017b 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
017c 0000 0000  |    |		.BLANK	0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 4802       |H   |		Short_Literal	0x2							; Debug Table 0x4 = .DEBUG	0x0183,0x0768,0x0005,0x0000,0x0057,0xa6a5,0x0000,0x008c
0184 00ca       |    |		Action	Exit_Nullary_Function
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x5 = .DEBUG	0x018b,0x076a,0x0005,0x0000,0x0057,0xb015,0x0000,0x008a
018c 7808       |x   |		Jump	0x195								; case 0x0
018d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
018e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
018f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0190 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0191 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0192 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0193 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0194 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0195 4801       |H   |		Short_Literal	0x1
0196 00db       |    |		Load_Top	At_Offset_3
0197 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0198 4800       |H   |		Short_Literal	0x0
0199 00db       |    |		Load_Top	At_Offset_3
019a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
019b 4800       |H   |		Short_Literal	0x0
019c 00db       |    |		Load_Top	At_Offset_3
019d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
019e 4800       |H   |		Short_Literal	0x0
019f 00db       |    |		Load_Top	At_Offset_3
01a0 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01a1 00da       |    |		Load_Top	At_Offset_2
01a2 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
01a3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
01a6 0125       | %  |		Execute	Any,Set_Constraint
01a7 e003       |    |		Load	0x0,0x3
01a8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01a9 00db       |    |		Load_Top	At_Offset_3
01aa 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01ab e006       |    |		Load	0x0,0x6
01ac 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ad e007       |    |		Load	0x0,0x7
01ae 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01af 00db       |    |		Load_Top	At_Offset_3
01b0 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
01b1 00da       |    |		Load_Top	At_Offset_2
01b2 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
01b3 0125       | %  |		Execute	Any,Set_Constraint
01b4 00da       |    |		Load_Top	At_Offset_2
01b5 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
01b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
01b9 0125       | %  |		Execute	Any,Set_Constraint
01ba e005       |    |		Load	0x0,0x5
01bb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01bc 00db       |    |		Load_Top	At_Offset_3
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 00d9       |    |		Load_Top	At_Offset_1
01bf 300a       |0   |		Execute	Record,Field_Type,Field_Number 0xa
01c0 0119       |    |		Execute	Any,Check_In_Formal_Type
01c1 00d1       |    |		Pop_Control	Pop_Count_1
01c2 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01c3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01c4 0000 0000  |    |		.BLANK	0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d0       |    |		.CONST	0x01d0								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0004       |    |		.CONST	0x0004								; Number of locals
01cb			INIT_01c8:
01cb e002       |    |		Load	0x0,0x2								; Debug Table 0x6 = .DEBUG	0x01cb,0x076c,0x0001,0x0000,0x0057,0xb015,0x0000,0x00e0
													; Debug Table 0x6.0x0 = 0x1cb,0xffff
01cc 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ce 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x6.0x1 = 0x1ce,0xfffe
01cf 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x6.0x2 = 0x1cf,0xfffd
01d0			BODY_01c8:
01d0 e006       |    |		Load	0x0,0x6								; Debug Table 0x6.0x3 = 0x1d0,0x1
01d1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d2 e00a       |    |		Load	0x0,0xa
01d3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d4 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x4 = 0x1d4,0x2
01d5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01d6 e5ff       |    |		Load	0x2,-0x1
01d7 e002       |    |		Load	0x0,0x2
01d8 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01d9 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01da e001       |    |		Load	0x0,0x1
01db 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
01dc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01dd e5fb       |    |		Load	0x2,-0x5
01de 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01df e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x5 = 0x1df,0x3
01e0 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
01e1 e5ff       |    |		Load	0x2,-0x1
01e2 e001       |    |		Load	0x0,0x1
01e3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01e4 700d       |p   |		Jump_Nonzero	0x1f2
01e5 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x6 = 0x1e5,0x4
01e6 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01e7 4801       |H   |		Short_Literal	0x1
01e8 e5fe       |    |		Load	0x2,-0x2
01e9 e001       |    |		Load	0x0,0x1
01ea 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01eb 0092 052b  |   +|		Action	Push_String_Extended,0x52b					; " shall not be demoted; it is outside the change boundary"
01ed 01cc       |    |		Execute	Vector,Catenate
01ee 4805       |H   |		Short_Literal	0x5
01ef 820f       |    |		Call	0x1,0xf
01f0 615b       |a[  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x57b01501}		; Debug Table 0x6.0x7 = 0x1f0,0x5
01f1 0257       | W  |		Execute	Discrete,Raise
01f2 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x6.0x8 = 0x1f2,0x6
01f3 e002       |    |		Load	0x0,0x2
01f4 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01f5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f6 e5fb       |    |		Load	0x2,-0x5
01f7 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01f8 e5ff       |    |		Load	0x2,-0x1
01f9 e001       |    |		Load	0x0,0x1
01fa 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01fb c402       |    |		Store	0x2,0x2
01fc 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01fd 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x9 = 0x1fd,0x7
01fe 6819       |h   |		Jump_Zero	0x218
01ff 00da       |    |		Load_Top	At_Offset_2
0200 e5fb       |    |		Load	0x2,-0x5
0201 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0202 027a       | z  |		Execute	Discrete,Less_Equal
0203 6814       |h   |		Jump_Zero	0x218
0204 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0xa = 0x204,0x8
0205 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0206 4801       |H   |		Short_Literal	0x1
0207 e5fe       |    |		Load	0x2,-0x2
0208 e001       |    |		Load	0x0,0x1
0209 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
020a 0092 052c  |   ,|		Action	Push_String_Extended,0x52c					; " is already "
020c 01cc       |    |		Execute	Vector,Catenate
020d e5fb       |    |		Load	0x2,-0x5
020e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020f e002       |    |		Load	0x0,0x2
0210 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0211 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0212 025e       | ^  |		Execute	Discrete,Convert
0213 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0214 01cc       |    |		Execute	Vector,Catenate
0215 4802       |H   |		Short_Literal	0x2
0216 820f       |    |		Call	0x1,0xf
0217 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x6.0xb = 0x217,0x9
0218 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0xc = 0x218,0xa
0219 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
021a 7006       |p   |		Jump_Nonzero	0x221
021b e5fd       |    |		Load	0x2,-0x3
021c 6804       |h   |		Jump_Zero	0x221
021d e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0xd = 0x21d,0xb
021e 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
021f e5fe       |    |		Load	0x2,-0x2
0220 8215       |    |		Call	0x1,0x15
0221 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0xe = 0x221,0xc
0222 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
0223 6808       |h   |		Jump_Zero	0x22c
0224 e5fb       |    |		Load	0x2,-0x5
0225 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0226 0d03       |    |		Execute_Immediate	Less,0x3
0227 6804       |h   |		Jump_Zero	0x22c
0228 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0xf = 0x228,0xd
0229 e5fe       |    |		Load	0x2,-0x2
022a 8218       |    |		Call	0x1,0x18
022b 00d1       |    |		Pop_Control	Pop_Count_1
022c e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x6.0x10 = 0x22c,0xe
022d 700b       |p   |		Jump_Nonzero	0x239
022e 00da       |    |		Load_Top	At_Offset_2
022f 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0230 6808       |h   |		Jump_Zero	0x239
0231 e5fb       |    |		Load	0x2,-0x5
0232 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0233 0d02       |    |		Execute_Immediate	Less,0x2
0234 6804       |h   |		Jump_Zero	0x239
0235 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x11 = 0x235,0xf
0236 e5ff       |    |		Load	0x2,-0x1
0237 8217       |    |		Call	0x1,0x17
0238 00d1       |    |		Pop_Control	Pop_Count_1
0239 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x12 = 0x239,0x10
023a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
023b 7007       |p   |		Jump_Nonzero	0x243
023c e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x13 = 0x23c,0x11
023d e5fc       |    |		Load	0x2,-0x4
023e e5fe       |    |		Load	0x2,-0x2
023f e5ff       |    |		Load	0x2,-0x1
0240 8216       |    |		Call	0x1,0x16
0241 00d1       |    |		Pop_Control	Pop_Count_1
0242 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0243 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x6.0x14 = 0x243,0x12
0244 e5fb       |    |		Load	0x2,-0x5
0245 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0246 e402       |    |		Load	0x2,0x2
0247 e5fb       |    |		Load	0x2,-0x5
0248 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0249 e5ff       |    |		Load	0x2,-0x1
024a e00b       |    |		Load	0x0,0xb
024b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
024c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
024d e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x15 = 0x24d,0x13
024e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
024f 0a01       |    |		Execute_Immediate	Plus,0x1
0250 e5fb       |    |		Load	0x2,-0x5
0251 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0252 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x16 = 0x252,0x14
0253 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0254 00d9       |    |		Load_Top	At_Offset_1
0255 0273       | s  |		Execute	Discrete,Plus
0256 e5fb       |    |		Load	0x2,-0x5
0257 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0258 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x17 = 0x258,0x15
0259 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
025a 4801       |H   |		Short_Literal	0x1
025b e5fe       |    |		Load	0x2,-0x2
025c e001       |    |		Load	0x0,0x1
025d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
025e 0092 052d  |   -|		Action	Push_String_Extended,0x52d					; " would be demoted to "
0260 01cc       |    |		Execute	Vector,Catenate
0261 e5fb       |    |		Load	0x2,-0x5
0262 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0263 e002       |    |		Load	0x0,0x2
0264 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0265 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0266 025e       | ^  |		Execute	Discrete,Convert
0267 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0268 01cc       |    |		Execute	Vector,Catenate
0269 0092 052e  |   .|		Action	Push_String_Extended,0x52e					; " (repromote effort"
026b 01cc       |    |		Execute	Vector,Catenate
026c 00da       |    |		Load_Top	At_Offset_2
026d 00e0       |    |		Load_Encached	Standard_Cache
026e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
026f 01cc       |    |		Execute	Vector,Catenate
0270 0092 052f  |   /|		Action	Push_String_Extended,0x52f					; ")"
0272 01cc       |    |		Execute	Vector,Catenate
0273 4803       |H   |		Short_Literal	0x3
0274 820f       |    |		Call	0x1,0xf
0275 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0276 0000 0000  |    |		.XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0285       |    |		.CONST	0x0285								; Address of begin
0279 02c7       |    |		.CONST	0x02c7								; Address of exception handler
027a 0004       |    |		.CONST	0x0004								; Number of locals
027b			INIT_0278:
027b e002       |    |		Load	0x0,0x2								; Debug Table 0x7 = .DEBUG	0x027b,0x079e,0x0001,0x0000,0x0057,0xb015,0x0000,0x00fc
													; Debug Table 0x7.0x0 = 0x27b,0xffff
027c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
027d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
027e 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x1 = 0x27e,0xfffe
027f e002       |    |		Load	0x0,0x2								; Debug Table 0x7.0x2 = 0x27f,0xfffd
0280 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0281 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0282 02c7       |    |		Declare_Variable	Any
0283 00d8       |    |		Load_Top	At_Offset_0
0284 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0285			BODY_0278:
0285 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x3 = 0x285,0x1
0286 e002       |    |		Load	0x0,0x2
0287 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0288 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0289 6806       |h   |		Jump_Zero	0x290
028a e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0x4 = 0x28a,0x2
028b e5fe       |    |		Load	0x2,-0x2
028c e5ff       |    |		Load	0x2,-0x1
028d 8219       |    |		Call	0x1,0x19
028e 00d1       |    |		Pop_Control	Pop_Count_1
028f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0290 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x5 = 0x290,0x3
0291 e002       |    |		Load	0x0,0x2
0292 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0293 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0294 c404       |    |		Store	0x2,0x4
0295 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x6 = 0x295,0x4
0296 e002       |    |		Load	0x0,0x2
0297 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0298 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0299 e005       |    |		Load	0x0,0x5
029a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029b 4800       |H   |		Short_Literal	0x0
029c e5fc       |    |		Load	0x2,-0x4
029d 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
029e e404       |    |		Load	0x2,0x4
029f e001       |    |		Load	0x0,0x1
02a0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02a1 c402       |    |		Store	0x2,0x2
02a2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02a3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x7 = 0x2a3,0x5
02a4 6821       |h!  |		Jump_Zero	0x2c6
02a5 e5fd       |    |		Load	0x2,-0x3
02a6 6808       |h   |		Jump_Zero	0x2af
02a7 e5ff       |    |		Load	0x2,-0x1
02a8 e5fc       |    |		Load	0x2,-0x4
02a9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02aa e001       |    |		Load	0x0,0x1
02ab 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
02ac 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02ad 0f00       |    |		Execute_Immediate	Equal,0x0
02ae 7801       |x   |		Jump	0x2b0
02af 4801       |H   |		Short_Literal	0x1
02b0 6815       |h   |		Jump_Zero	0x2c6
02b1 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0x8 = 0x2b1,0x6
02b2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02b3 700b       |p   |		Jump_Nonzero	0x2bf
02b4 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0x9 = 0x2b4,0x7
02b5 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02b6 0092 0530  |   0|		Action	Push_String_Extended,0x530					; "Attempting to demote "
02b8 4801       |H   |		Short_Literal	0x1
02b9 e5ff       |    |		Load	0x2,-0x1
02ba e001       |    |		Load	0x0,0x1
02bb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02bc 01cc       |    |		Execute	Vector,Catenate
02bd 8210       |    |		Call	0x1,0x10
02be 820f       |    |		Call	0x1,0xf
02bf e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0xa = 0x2bf,0x8
02c0 e5fd       |    |		Load	0x2,-0x3
02c1 e5fe       |    |		Load	0x2,-0x2
02c2 e402       |    |		Load	0x2,0x2
02c3 e404       |    |		Load	0x2,0x4
02c4 8212       |    |		Call	0x1,0x12
02c5 00d1       |    |		Pop_Control	Pop_Count_1
02c6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02c7			TRAP_0278:
02c7 6084       |`   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x57b01501}
02c8 010f       |    |		Execute	Exception,Equal
02c9 6812       |h   |		Jump_Zero	0x2dc
02ca 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0xb = 0x2ca,0x9
02cb e5fc       |    |		Load	0x2,-0x4
02cc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02cd e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0xc = 0x2cd,0xa
02ce 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02cf 0092 0531  |   1|		Action	Push_String_Extended,0x531					; "Demotion of "
02d1 4801       |H   |		Short_Literal	0x1
02d2 e5ff       |    |		Load	0x2,-0x1
02d3 e001       |    |		Load	0x0,0x1
02d4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02d5 01cc       |    |		Execute	Vector,Catenate
02d6 0092 0532  |   2|		Action	Push_String_Extended,0x532					; " has been abandoned"
02d8 01cc       |    |		Execute	Vector,Catenate
02d9 8210       |    |		Call	0x1,0x10
02da 820f       |    |		Call	0x1,0xf
02db 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02dc 4800       |H   |		Short_Literal	0x0							; Debug Table 0x7.0xd = 0x2dc,0xb
02dd e5fc       |    |		Load	0x2,-0x4
02de 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02df 4808       |H   |		Short_Literal	0x8							; Debug Table 0x7.0xe = 0x2df,0xc
02e0 e5fc       |    |		Load	0x2,-0x4
02e1 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02e2 e009       |    |		Load	0x0,0x9
02e3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02e4 0092 0533  |   3|		Action	Push_String_Extended,0x533					; " raised demoting "
02e6 01cc       |    |		Execute	Vector,Catenate
02e7 4801       |H   |		Short_Literal	0x1
02e8 e5ff       |    |		Load	0x2,-0x1
02e9 e001       |    |		Load	0x0,0x1
02ea 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02eb 01cc       |    |		Execute	Vector,Catenate
02ec e008       |    |		Load	0x0,0x8
02ed 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02ee e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0xf = 0x2ee,0xd
02ef 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02f0 0092 0531  |   1|		Action	Push_String_Extended,0x531					; "Demotion of "
02f2 4801       |H   |		Short_Literal	0x1
02f3 e5ff       |    |		Load	0x2,-0x1
02f4 e001       |    |		Load	0x0,0x1
02f5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02f6 01cc       |    |		Execute	Vector,Catenate
02f7 0092 0532  |   2|		Action	Push_String_Extended,0x532					; " has been abandoned"
02f9 01cc       |    |		Execute	Vector,Catenate
02fa 8210       |    |		Call	0x1,0x10
02fb 820f       |    |		Call	0x1,0xf
02fc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02fd 0000 0000  |    |		.XXX[0x3]
02ff 0000       |    |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0305       |    |		.CONST	0x0305								; Address of begin
0301 0308       |    |		.CONST	0x0308								; Address of exception handler
0302 0002       |    |		.CONST	0x0002								; Number of locals
0303			INIT_0300:
0303 029f 051b  |    |		Declare_Subprogram	INIT_0518,For_Call				; Debug Table 0x8 = .DEBUG	0x0303,0x07c0,0x0002,0x0000,0x0057,0xb015,0x0000,0x0112
0305			BODY_0300:
0305 8402       |    |		Call	0x2,0x2								; Debug Table 0x8.0x0 = 0x305,0x1
0306 4831       |H1  |		Short_Literal	0x31
0307 0257       | W  |		Execute	Discrete,Raise
0308			TRAP_0300:
0308 0007       |    |		Action	Break_Optional
0309 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x1 = 0x309,0x2
030a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030b 0000 0000  |    |		.BLANK	0000[0x5]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031a       |    |		.CONST	0x031a								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0003       |    |		.CONST	0x0003								; Number of locals
0313			INIT_0310:
0313 e002       |    |		Load	0x0,0x2								; Debug Table 0x9 = .DEBUG	0x0313,0x07c6,0x0001,0x0000,0x0057,0xb015,0x0000,0x013a
													; Debug Table 0x9.0x0 = 0x313,0xffff
0314 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0315 02ff       |    |		Declare_Variable	Variant_Record
0316 00d8       |    |		Load_Top	At_Offset_0
0317 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0318 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x1 = 0x318,0xfffe
0319 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031a			BODY_0310:
031a e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x2 = 0x31a,0x1
031b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031c 00da       |    |		Load_Top	At_Offset_2
031d e5ff       |    |		Load	0x2,-0x1
031e e002       |    |		Load	0x0,0x2
031f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0320 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0321 00d1       |    |		Pop_Control	Pop_Count_1
0322 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0323 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x3 = 0x323,0x2
0324 680e       |h   |		Jump_Zero	0x333
0325 4805       |H   |		Short_Literal	0x5							; Debug Table 0x9.0x4 = 0x325,0x3
0326 e5fe       |    |		Load	0x2,-0x2
0327 0092 0534  |   4|		Action	Push_String_Extended,0x534					; "while getting version from root of "
0329 4801       |H   |		Short_Literal	0x1
032a e5ff       |    |		Load	0x2,-0x1
032b e001       |    |		Load	0x0,0x1
032c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
032d 01cc       |    |		Execute	Vector,Catenate
032e 00db       |    |		Load_Top	At_Offset_3
032f e008       |    |		Load	0x0,0x8
0330 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0331 601a       |`   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x57b01501}		; Debug Table 0x9.0x5 = 0x331,0x4
0332 0257       | W  |		Execute	Discrete,Raise
0333 e005       |    |		Load	0x0,0x5								; Debug Table 0x9.0x6 = 0x333,0x5
0334 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0335 4802       |H   |		Short_Literal	0x2
0336 00db       |    |		Load_Top	At_Offset_3
0337 e006       |    |		Load	0x0,0x6
0338 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0339 e00c       |    |		Load	0x0,0xc
033a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
033b 700c       |p   |		Jump_Nonzero	0x348
033c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x9.0x7 = 0x33c,0x6
033d 4801       |H   |		Short_Literal	0x1
033e e5ff       |    |		Load	0x2,-0x1
033f e001       |    |		Load	0x0,0x1
0340 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0341 0092 0535  |   5|		Action	Push_String_Extended,0x535					; " shall not be demoted; you do not have write access to it"
0343 01cc       |    |		Execute	Vector,Catenate
0344 4805       |H   |		Short_Literal	0x5
0345 820f       |    |		Call	0x1,0xf
0346 6005       |`   |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x57b01501}		; Debug Table 0x9.0x8 = 0x346,0x7
0347 0257       | W  |		Execute	Discrete,Raise
0348 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0349 0000 0000  |    |		.XXX[0x3]
034b 0000       |    |
034c 0000 0000  |    |		.LITERAL	{0x00000000, 0x57b01501}
0350 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0354 0000 0000  |    |		.BLANK	0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0373       | s  |		.CONST	0x0373								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0009       |    |		.CONST	0x0009								; Number of locals
035b			INIT_0358:
035b 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0xa = .DEBUG	0x035b,0x07da,0x0001,0x0000,0x0057,0xb015,0x0000,0x01a8
													; Debug Table 0xa.0x0 = 0x35b,0xffff
035c 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0xa.0x1 = 0x35c,0xfffe
035d e00d       |    |		Load	0x0,0xd								; Debug Table 0xa.0x2 = 0x35d,0xfffd
035e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
035f 02c7       |    |		Declare_Variable	Any
0360 00d8       |    |		Load_Top	At_Offset_0
0361 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0362 e00d       |    |		Load	0x0,0xd								; Debug Table 0xa.0x3 = 0x362,0xfffc
0363 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0364 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x4 = 0x364,0xfffb
0365 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0366 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0367 e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x5 = 0x367,0xfffa
0368 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0369 4801       |H   |		Short_Literal	0x1							; Debug Table 0xa.0x6 = 0x369,0xfff9
036a e5ff       |    |		Load	0x2,-0x1
036b e001       |    |		Load	0x0,0x1
036c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
036d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xa.0x7 = 0x36d,0xfff8
036e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036f e002       |    |		Load	0x0,0x2
0370 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0371 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0372 03f1       |    |		Declare_Variable	Discrete,With_Value
0373			BODY_0358:
0373 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xa.0x8 = 0x373,0x1
0374 6805       |h   |		Jump_Zero	0x37a
0375 00d8       |    |		Load_Top	At_Offset_0
0376 0d02       |    |		Execute_Immediate	Less,0x2
0377 6802       |h   |		Jump_Zero	0x37a
0378 4802       |H   |		Short_Literal	0x2							; Debug Table 0xa.0x9 = 0x378,0x2
0379 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
037a e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0xa = 0x37a,0x3
037b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
037c 00f1       |    |		Load_Encached	Diana_Temp_Seq
037d e002       |    |		Load	0x0,0x2
037e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
037f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0380 00ec       |    |		Load_Encached	Diana_Tree_Cache
0381 e404       |    |		Load	0x2,0x4
0382 0120       |    |		Execute	Any,Is_Value
0383 6803       |h   |		Jump_Zero	0x387
0384 e00d       |    |		Load	0x0,0xd
0385 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0386 7801       |x   |		Jump	0x388
0387 e404       |    |		Load	0x2,0x4
0388 67c7       |g   |		Indirect_Literal	Discrete,0x350,{0x00000000, 0x00004000}
0389 e5fc       |    |		Load	0x2,-0x4
038a 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
038b e5fc       |    |		Load	0x2,-0x4
038c 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
038d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
038e e5fc       |    |		Load	0x2,-0x4
038f 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0390 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0391 e5fc       |    |		Load	0x2,-0x4
0392 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0393 e409       |    |		Load	0x2,0x9
0394 4801       |H   |		Short_Literal	0x1
0395 e5fe       |    |		Load	0x2,-0x2
0396 e002       |    |		Load	0x0,0x2
0397 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0398 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0399 c404       |    |		Store	0x2,0x4
039a c406       |    |		Store	0x2,0x6
039b c402       |    |		Store	0x2,0x2
039c c403       |    |		Store	0x2,0x3
039d 005b       | [  |		Store_Top	Discrete,At_Offset_3
039e e00d       |    |		Load	0x0,0xd								; Debug Table 0xa.0xb = 0x39e,0x4
039f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03a0 0092 0536  |   6|		Action	Push_String_Extended,0x536					; "demoting "
03a2 00db       |    |		Load_Top	At_Offset_3
03a3 01cc       |    |		Execute	Vector,Catenate
03a4 e5fc       |    |		Load	0x2,-0x4
03a5 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
03a6 e404       |    |		Load	0x2,0x4
03a7 e407       |    |		Load	0x2,0x7
03a8 4800       |H   |		Short_Literal	0x0
03a9 00eb       |    |		Load_Encached	Diana_Cache
03aa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03ab e00b       |    |		Load	0x0,0xb
03ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ad c405       |    |		Store	0x2,0x5
03ae 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0xc = 0x3ae,0x5
03af 7019       |p   |		Jump_Nonzero	0x3c9
03b0 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xa.0xd = 0x3b0,0x6
03b1 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
03b2 0092 0536  |   6|		Action	Push_String_Extended,0x536					; "demoting "
03b4 00db       |    |		Load_Top	At_Offset_3
03b5 01cc       |    |		Execute	Vector,Catenate
03b6 e403       |    |		Load	0x2,0x3
03b7 e00b       |    |		Load	0x0,0xb
03b8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03b9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xa.0xe = 0x3b9,0x7
03ba 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
03bb 00da       |    |		Load_Top	At_Offset_2
03bc 0092 0537  |   7|		Action	Push_String_Extended,0x537					; " demoted to "
03be 01cc       |    |		Execute	Vector,Catenate
03bf 00da       |    |		Load_Top	At_Offset_2
03c0 e002       |    |		Load	0x0,0x2
03c1 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
03c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03c3 025e       | ^  |		Execute	Discrete,Convert
03c4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03c5 01cc       |    |		Execute	Vector,Catenate
03c6 4803       |H   |		Short_Literal	0x3
03c7 820f       |    |		Call	0x1,0xf
03c8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03c9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xa.0xf = 0x3c9,0x8
03ca 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 0092 0538  |   8|		Action	Push_String_Extended,0x538					; " were demoted"
03ce 01cc       |    |		Execute	Vector,Catenate
03cf e402       |    |		Load	0x2,0x2
03d0 e00b       |    |		Load	0x0,0xb
03d1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03d2 4805       |H   |		Short_Literal	0x5							; Debug Table 0xa.0x10 = 0x3d2,0x9
03d3 e5fc       |    |		Load	0x2,-0x4
03d4 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
03d5 0092 0536  |   6|		Action	Push_String_Extended,0x536					; "demoting "
03d7 e408       |    |		Load	0x2,0x8
03d8 01cc       |    |		Execute	Vector,Catenate
03d9 e407       |    |		Load	0x2,0x7
03da e008       |    |		Load	0x0,0x8
03db 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03dc 676f       |go  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x57b01501}		; Debug Table 0xa.0x11 = 0x3dc,0xa
03dd 0257       | W  |		Execute	Discrete,Raise
03de 0000 0000  |    |		.XXX[0x2]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03f1       |    |		.CONST	0x03f1								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0004       |    |		.CONST	0x0004								; Number of locals
03e3			INIT_03e0:
03e3 e002       |    |		Load	0x0,0x2								; Debug Table 0xb = .DEBUG	0x03e3,0x0800,0x0001,0x0000,0x0057,0xb015,0x0000,0x02ae
													; Debug Table 0xb.0x0 = 0x3e3,0xffff
03e4 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
03e5 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03e6 02c7       |    |		Declare_Variable	Any
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e9 e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x1 = 0x3e9,0xfffe
03ea 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03eb e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x2 = 0x3eb,0xfffd
03ec 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
03ed 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ee 02c7       |    |		Declare_Variable	Any
03ef 00d8       |    |		Load_Top	At_Offset_0
03f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03f1			BODY_03e0:
03f1 e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x3 = 0x3f1,0x1
03f2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03f3 00db       |    |		Load_Top	At_Offset_3
03f4 0120       |    |		Execute	Any,Is_Value
03f5 6804       |h   |		Jump_Zero	0x3fa
03f6 e002       |    |		Load	0x0,0x2
03f7 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
03f8 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
03f9 7801       |x   |		Jump	0x3fb
03fa 00db       |    |		Load_Top	At_Offset_3
03fb 6754       |gT  |		Indirect_Literal	Discrete,0x350,{0x00000000, 0x00004000}
03fc e005       |    |		Load	0x0,0x5
03fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03fe e5ff       |    |		Load	0x2,-0x1
03ff e002       |    |		Load	0x0,0x2
0400 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0401 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0402 c402       |    |		Store	0x2,0x2
0403 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0404 00cf       |    |		Action	Mark_Auxiliary
0405 7814       |x   |		Jump	0x41a
0406 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x4 = 0x406,0x3
0407 e002       |    |		Load	0x0,0x2
0408 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0409 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
040a c404       |    |		Store	0x2,0x4
040b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xb.0x5 = 0x40b,0x4
040c 4800       |H   |		Short_Literal	0x0
040d 4800       |H   |		Short_Literal	0x0
040e e404       |    |		Load	0x2,0x4
040f e002       |    |		Load	0x0,0x2
0410 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0411 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0412 8213       |    |		Call	0x1,0x13
0413 00d1       |    |		Pop_Control	Pop_Count_1
0414 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x6 = 0x414,0x5
0415 e002       |    |		Load	0x0,0x2
0416 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0417 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0418 c402       |    |		Store	0x2,0x2
0419 00c9       |    |		Action	Pop_Auxiliary_Loop
041a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x7 = 0x41a,0x2
041b e002       |    |		Load	0x0,0x2
041c 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
041d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
041e 6fe7       |o   |		Jump_Zero	0x406
041f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 043a       | :  |		.CONST	0x043a								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0006       |    |		.CONST	0x0006								; Number of locals
0423			INIT_0420:
0423 e00e       |    |		Load	0x0,0xe								; Debug Table 0xc = .DEBUG	0x0423,0x0812,0x0001,0x0000,0x0057,0xb015,0x0000,0x0306
													; Debug Table 0xc.0x0 = 0x423,0xffff
0424 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0425 02c7       |    |		Declare_Variable	Any
0426 e5fe       |    |		Load	0x2,-0x2
0427 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0428 e5fe       |    |		Load	0x2,-0x2
0429 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
042a e5ff       |    |		Load	0x2,-0x1
042b e00e       |    |		Load	0x0,0xe
042c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
042d c402       |    |		Store	0x2,0x2
042e e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x1 = 0x42e,0xfffe
042f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0430 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0431 e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x2 = 0x431,0xfffd
0432 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0433 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0434 02c7       |    |		Declare_Variable	Any
0435 00d8       |    |		Load_Top	At_Offset_0
0436 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0437 e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x3 = 0x437,0xfffc
0438 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0439 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xc.0x4 = 0x439,0xfffb
043a			BODY_0420:
043a 00cf       |    |		Action	Mark_Auxiliary
043b 785a       |xZ  |		Jump	0x496
043c e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x5 = 0x43c,0x2
043d e00e       |    |		Load	0x0,0xe
043e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
043f 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0440 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x6 = 0x440,0x3
0441 8214       |    |		Call	0x1,0x14
0442 684e       |hN  |		Jump_Zero	0x491
0443 e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0x7 = 0x443,0x4
0444 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0445 e002       |    |		Load	0x0,0x2
0446 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0447 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0448 00db       |    |		Load_Top	At_Offset_3
0449 e002       |    |		Load	0x0,0x2
044a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
044b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
044c c403       |    |		Store	0x2,0x3
044d 005b       | [  |		Store_Top	Discrete,At_Offset_3
044e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x8 = 0x44e,0x5
044f 6810       |h   |		Jump_Zero	0x460
0450 4805       |H   |		Short_Literal	0x5							; Debug Table 0xc.0x9 = 0x450,0x6
0451 e5fe       |    |		Load	0x2,-0x2
0452 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0453 0092 0539  |   9|		Action	Push_String_Extended,0x539					; "while getting root of "
0455 4801       |H   |		Short_Literal	0x1
0456 e402       |    |		Load	0x2,0x2
0457 e00e       |    |		Load	0x0,0xe
0458 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0459 e001       |    |		Load	0x0,0x1
045a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
045b 01cc       |    |		Execute	Vector,Catenate
045c e405       |    |		Load	0x2,0x5
045d e008       |    |		Load	0x0,0x8
045e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
045f 7831       |x1  |		Jump	0x491
0460 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0xa = 0x460,0x7
0461 e403       |    |		Load	0x2,0x3
0462 021f       |    |		Execute	Heap_Access,Equal
0463 680c       |h   |		Jump_Zero	0x470
0464 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0xb = 0x464,0x8
0465 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0466 4801       |H   |		Short_Literal	0x1
0467 e5ff       |    |		Load	0x2,-0x1
0468 e001       |    |		Load	0x0,0x1
0469 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
046a 0092 053a  |   :|		Action	Push_String_Extended,0x53a					; " depends on itself."
046c 01cc       |    |		Execute	Vector,Catenate
046d 4806       |H   |		Short_Literal	0x6
046e 820f       |    |		Call	0x1,0xf
046f 7821       |x!  |		Jump	0x491
0470 e002       |    |		Load	0x0,0x2								; Debug Table 0xc.0xc = 0x470,0x9
0471 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0472 e404       |    |		Load	0x2,0x4
0473 0120       |    |		Execute	Any,Is_Value
0474 6804       |h   |		Jump_Zero	0x479
0475 e002       |    |		Load	0x0,0x2
0476 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0477 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0478 7801       |x   |		Jump	0x47a
0479 e404       |    |		Load	0x2,0x4
047a e403       |    |		Load	0x2,0x3
047b e002       |    |		Load	0x0,0x2
047c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
047d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
047e c404       |    |		Store	0x2,0x4
047f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0480 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0xd = 0x480,0xa
0481 e002       |    |		Load	0x0,0x2
0482 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0483 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0484 e5fe       |    |		Load	0x2,-0x2
0485 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0486 e001       |    |		Load	0x0,0x1
0487 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0488 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0489 7007       |p   |		Jump_Nonzero	0x491
048a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0xe = 0x48a,0xb
048b 4801       |H   |		Short_Literal	0x1
048c 4800       |H   |		Short_Literal	0x0
048d e403       |    |		Load	0x2,0x3
048e e404       |    |		Load	0x2,0x4
048f 8212       |    |		Call	0x1,0x12
0490 00d1       |    |		Pop_Control	Pop_Count_1
0491 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0xf = 0x491,0xc
0492 e00e       |    |		Load	0x0,0xe
0493 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0494 c402       |    |		Store	0x2,0x2
0495 00c9       |    |		Action	Pop_Auxiliary_Loop
0496 e402       |    |		Load	0x2,0x2								; Debug Table 0xc.0x10 = 0x496,0x1
0497 e00e       |    |		Load	0x0,0xe
0498 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0499 6fa2       |o   |		Jump_Zero	0x43c
049a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
049b 0000 0000  |    |		.BLANK	0000[0x5]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04ba       |    |		.CONST	0x04ba								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0006       |    |		.CONST	0x0006								; Number of locals
04a3			INIT_04a0:
04a3 e002       |    |		Load	0x0,0x2								; Debug Table 0xd = .DEBUG	0x04a3,0x0836,0x0001,0x0000,0x0057,0xb015,0x0000,0x0532
													; Debug Table 0xd.0x0 = 0x4a3,0xffff
04a4 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04a5 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
04a6 02c7       |    |		Declare_Variable	Any
04a7 00d8       |    |		Load_Top	At_Offset_0
04a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a9 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x1 = 0x4a9,0xfffe
04aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04ab e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x2 = 0x4ab,0xfffd
04ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ad 02c7       |    |		Declare_Variable	Any
04ae 00d8       |    |		Load_Top	At_Offset_0
04af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b0 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x3 = 0x4b0,0xfffc
04b1 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
04b2 02c7       |    |		Declare_Variable	Any
04b3 00d8       |    |		Load_Top	At_Offset_0
04b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b5 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x4 = 0x4b5,0xfffb
04b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
04b7 02ff       |    |		Declare_Variable	Variant_Record
04b8 00d8       |    |		Load_Top	At_Offset_0
04b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04ba			BODY_04a0:
04ba e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0x5 = 0x4ba,0x1
04bb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04bc e402       |    |		Load	0x2,0x2
04bd 0120       |    |		Execute	Any,Is_Value
04be 6804       |h   |		Jump_Zero	0x4c3
04bf e002       |    |		Load	0x0,0x2
04c0 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04c1 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
04c2 7801       |x   |		Jump	0x4c4
04c3 e402       |    |		Load	0x2,0x2
04c4 668b       |f   |		Indirect_Literal	Discrete,0x350,{0x00000000, 0x00004000}
04c5 e005       |    |		Load	0x0,0x5
04c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04c7 e5ff       |    |		Load	0x2,-0x1
04c8 e002       |    |		Load	0x0,0x2
04c9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04ca 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04cb e002       |    |		Load	0x0,0x2
04cc 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04cd 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
04ce c402       |    |		Store	0x2,0x2
04cf c403       |    |		Store	0x2,0x3
04d0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x6 = 0x4d0,0x2
04d1 680e       |h   |		Jump_Zero	0x4e0
04d2 4805       |H   |		Short_Literal	0x5							; Debug Table 0xd.0x7 = 0x4d2,0x3
04d3 e5fd       |    |		Load	0x2,-0x3
04d4 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
04d5 0092 053b  |   ;|		Action	Push_String_Extended,0x53b					; " getting iterator on "
04d7 4801       |H   |		Short_Literal	0x1
04d8 e5ff       |    |		Load	0x2,-0x1
04d9 e001       |    |		Load	0x0,0x1
04da 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04db 01cc       |    |		Execute	Vector,Catenate
04dc e403       |    |		Load	0x2,0x3
04dd e008       |    |		Load	0x0,0x8
04de 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04df 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0xd.0x8 = 0x4df,0x4
04e0 00cf       |    |		Action	Mark_Auxiliary
04e1 7830       |x0  |		Jump	0x512
04e2 e402       |    |		Load	0x2,0x2								; Debug Table 0xd.0x9 = 0x4e2,0x6
04e3 e002       |    |		Load	0x0,0x2
04e4 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
04e5 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
04e6 c404       |    |		Store	0x2,0x4
04e7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0xa = 0x4e7,0x7
04e8 e002       |    |		Load	0x0,0x2
04e9 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
04ea c405       |    |		Store	0x2,0x5
04eb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd.0xb = 0x4eb,0x8
04ec e002       |    |		Load	0x0,0x2
04ed 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04ee 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
04ef 012f       | /  |		Execute	Any,Equal
04f0 7006       |p   |		Jump_Nonzero	0x4f7
04f1 00da       |    |		Load_Top	At_Offset_2
04f2 e002       |    |		Load	0x0,0x2
04f3 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
04f4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04f5 012f       | /  |		Execute	Any,Equal
04f6 6815       |h   |		Jump_Zero	0x50c
04f7 e002       |    |		Load	0x0,0x2								; Debug Table 0xd.0xc = 0x4f7,0x9
04f8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04f9 00da       |    |		Load_Top	At_Offset_2
04fa 6655       |fU  |		Indirect_Literal	Discrete,0x350,{0x00000000, 0x00004000}
04fb e005       |    |		Load	0x0,0x5
04fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04fd 4800       |H   |		Short_Literal	0x0
04fe e404       |    |		Load	0x2,0x4
04ff e002       |    |		Load	0x0,0x2
0500 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0501 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0502 00d1       |    |		Pop_Control	Pop_Count_1
0503 c403       |    |		Store	0x2,0x3
0504 e403       |    |		Load	0x2,0x3								; Debug Table 0xd.0xd = 0x504,0xa
0505 7006       |p   |		Jump_Nonzero	0x50c
0506 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0xe = 0x506,0xb
0507 4800       |H   |		Short_Literal	0x0
0508 e5fe       |    |		Load	0x2,-0x2
0509 e404       |    |		Load	0x2,0x4
050a 8213       |    |		Call	0x1,0x13
050b 00d1       |    |		Pop_Control	Pop_Count_1
050c e402       |    |		Load	0x2,0x2								; Debug Table 0xd.0xf = 0x50c,0xc
050d e002       |    |		Load	0x0,0x2
050e 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
050f 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0510 c402       |    |		Store	0x2,0x2
0511 00c9       |    |		Action	Pop_Auxiliary_Loop
0512 e402       |    |		Load	0x2,0x2								; Debug Table 0xd.0x10 = 0x512,0x5
0513 e002       |    |		Load	0x0,0x2
0514 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0515 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0516 6fcb       |o   |		Jump_Zero	0x4e2
0517 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0521       | !  |		.CONST	0x0521								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0002       |    |		.CONST	0x0002								; Number of locals
051b			INIT_0518:
051b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xe = .DEBUG	0x051b,0x085a,0x0004,0x0000,0x0057,0xb015,0x0000,0x012f
													; Debug Table 0xe.0x0 = 0x51b,0xffff
051c 00eb       |    |		Load_Encached	Diana_Cache
051d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
051e 00eb       |    |		Load_Encached	Diana_Cache
051f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0520 03f1       |    |		Declare_Variable	Discrete,With_Value
0521			BODY_0518:
0521 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0x1 = 0x521,0x1
0522 00cb       |    |		Action	Pop_Block_With_Result
0523 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0524 ; --------------------------------------------------------------------------------------
0524 ; STRING TABLE
0524 ; --------------------------------------------------------------------------------------
0524 0032       | 2  |		.STRTAB	0x0032->0x053d							; "No units match \x22"
0525 0040       | @  |		.STRTAB	0x0040->0x0545							; "\x22"
0526 003f       | ?  |		.STRTAB	0x003f->0x0545							; " 1 unit would be demoted, total repromote effort"
0527 006d       | m  |		.STRTAB	0x006d->0x055d							; " units would be demoted, "
0528 0084       |    |		.STRTAB	0x0084->0x056a							; "total repromote effort"
0529 0098       |    |		.STRTAB	0x0098->0x0575							; "finding units to demote"
052a 00ad       |    |		.STRTAB	0x00ad->0x0580							; " raised by Demote command"
052b 00c4       |    |		.STRTAB	0x00c4->0x058d							; " shall not be demoted; it is outside the change boundary"
052c 00fa       |    |		.STRTAB	0x00fa->0x05a9							; " is already "
052d 0104       |    |		.STRTAB	0x0104->0x05af							; " would be demoted to "
052e 0117       |    |		.STRTAB	0x0117->0x05b9							; " (repromote effort"
052f 0127       | '  |		.STRTAB	0x0127->0x05c2							; ")"
0530 0126       | &  |		.STRTAB	0x0126->0x05c3							; "Attempting to demote "
0531 0139       | 9  |		.STRTAB	0x0139->0x05cd							; "Demotion of "
0532 0143       | C  |		.STRTAB	0x0143->0x05d3							; " has been abandoned"
0533 0154       | T  |		.STRTAB	0x0154->0x05dd							; " raised demoting "
0534 0163       | c  |		.STRTAB	0x0163->0x05e5							; "while getting version from root of "
0535 0184       |    |		.STRTAB	0x0184->0x05f7							; " shall not be demoted; you do not have write access to it"
0536 01bb       |    |		.STRTAB	0x01bb->0x0613							; "demoting "
0537 01c2       |    |		.STRTAB	0x01c2->0x0618							; " demoted to "
0538 01cc       |    |		.STRTAB	0x01cc->0x061e							; " were demoted"
0539 01d7       |    |		.STRTAB	0x01d7->0x0624							; "while getting root of "
053a 01eb       |    |		.STRTAB	0x01eb->0x062f							; " depends on itself."
053b 01fc       |    |		.STRTAB	0x01fc->0x0639							; " getting iterator on "
053c 020f       |    |		.STREND 0x020f->0x0643
053d 4e6f 2075  |No u|		.STRTAB_STRINGS
0644 0000 0000  |    |		.BLANK	0000[0x4]
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug Table
0648 ; --------------------------------------------------------------------------------------
0648 0003 000f  |    |		.CONST	0x0003,0x000f
064a 000b 06c2  |    |		.DEBUG	0x000b,0x06c2,0x8000,0x0000,0x0057,0xadb5,0x0000,0x000b
0652 0012 06ce  |    |		.DEBUG	0x0012,0x06ce,0x8000,0x0000,0x0057,0xb015,0x0000,0x001d
065a 005b 0702  | [  |		.DEBUG	0x005b,0x0702,0x0001,0x0000,0x0057,0xadb5,0x0000,0x0012
0662 0153 0754  | S T|		.DEBUG	0x0153,0x0754,0x0001,0x0000,0x0057,0xadb5,0x0000,0x004e
066a 0183 0768  |   h|		.DEBUG	0x0183,0x0768,0x0005,0x0000,0x0057,0xa6a5,0x0000,0x008c
0672 018b 076a  |   j|		.DEBUG	0x018b,0x076a,0x0005,0x0000,0x0057,0xb015,0x0000,0x008a
067a 01cb 076c  |   l|		.DEBUG	0x01cb,0x076c,0x0001,0x0000,0x0057,0xb015,0x0000,0x00e0
0682 027b 079e  | {  |		.DEBUG	0x027b,0x079e,0x0001,0x0000,0x0057,0xb015,0x0000,0x00fc
068a 0303 07c0  |    |		.DEBUG	0x0303,0x07c0,0x0002,0x0000,0x0057,0xb015,0x0000,0x0112
0692 0313 07c6  |    |		.DEBUG	0x0313,0x07c6,0x0001,0x0000,0x0057,0xb015,0x0000,0x013a
069a 035b 07da  | [  |		.DEBUG	0x035b,0x07da,0x0001,0x0000,0x0057,0xb015,0x0000,0x01a8
06a2 03e3 0800  |    |		.DEBUG	0x03e3,0x0800,0x0001,0x0000,0x0057,0xb015,0x0000,0x02ae
06aa 0423 0812  | #  |		.DEBUG	0x0423,0x0812,0x0001,0x0000,0x0057,0xb015,0x0000,0x0306
06b2 04a3 0836  |   6|		.DEBUG	0x04a3,0x0836,0x0001,0x0000,0x0057,0xb015,0x0000,0x0532
06ba 051b 085a  |   Z|		.DEBUG	0x051b,0x085a,0x0004,0x0000,0x0057,0xb015,0x0000,0x012f
06c2 ; --------------------------------------------------------------------------------------
06c2 ; Debug3 Subtable 0x0
06c2 ; --------------------------------------------------------------------------------------
06c2 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
06c4 000b ffff  |    |		.CONST	0x000b,0xffff
06c6 000c fffe  |    |		.CONST	0x000c,0xfffe
06c8 000e fffd  |    |		.CONST	0x000e,0xfffd
06ca 0010 fffc  |    |		.CONST	0x0010,0xfffc
06cc 0011 fffb  |    |		.CONST	0x0011,0xfffb
06ce ; --------------------------------------------------------------------------------------
06ce ; Debug3 Subtable 0x1
06ce ; --------------------------------------------------------------------------------------
06ce 0019 0000  |    |		.DBG3TAB	0x0019,0x0000
06d0 0012 ffff  |    |		.CONST	0x0012,0xffff
06d2 0013 fffe  |    |		.CONST	0x0013,0xfffe
06d4 0014 fffd  |    |		.CONST	0x0014,0xfffd
06d6 0015 fffc  |    |		.CONST	0x0015,0xfffc
06d8 0016 fffb  |    |		.CONST	0x0016,0xfffb
06da 0017 fffa  |    |		.CONST	0x0017,0xfffa
06dc 0018 fff9  |    |		.CONST	0x0018,0xfff9
06de 0019 fff8  |    |		.CONST	0x0019,0xfff8
06e0 001a fff7  |    |		.CONST	0x001a,0xfff7
06e2 001b fff6  |    |		.CONST	0x001b,0xfff6
06e4 001e fff5  |    |		.CONST	0x001e,0xfff5
06e6 0020 fff4  |    |		.CONST	0x0020,0xfff4
06e8 0021 fff3  | !  |		.CONST	0x0021,0xfff3
06ea 0038 fff2  | 8  |		.CONST	0x0038,0xfff2
06ec 003a fff1  | :  |		.CONST	0x003a,0xfff1
06ee 003c fff0  | <  |		.CONST	0x003c,0xfff0
06f0 003e ffef  | >  |		.CONST	0x003e,0xffef
06f2 0040 ffee  | @  |		.CONST	0x0040,0xffee
06f4 0042 ffed  | B  |		.CONST	0x0042,0xffed
06f6 0044 ffec  | D  |		.CONST	0x0044,0xffec
06f8 0046 ffeb  | F  |		.CONST	0x0046,0xffeb
06fa 0048 ffea  | H  |		.CONST	0x0048,0xffea
06fc 004a ffe9  | J  |		.CONST	0x004a,0xffe9
06fe 004c ffe8  | L  |		.CONST	0x004c,0xffe8
0700 004e ffe7  | N  |		.CONST	0x004e,0xffe7
0702 ; --------------------------------------------------------------------------------------
0702 ; Debug3 Subtable 0x2
0702 ; --------------------------------------------------------------------------------------
0702 0007 0021  |   !|		.DBG3TAB	0x0007,0x0021
0704 005b ffff  | [  |		.CONST	0x005b,0xffff
0706 0060 fffe  | `  |		.CONST	0x0060,0xfffe
0708 0065 fffd  | e  |		.CONST	0x0065,0xfffd
070a 0067 fffc  | g  |		.CONST	0x0067,0xfffc
070c 006d fffb  | m  |		.CONST	0x006d,0xfffb
070e 0070 fffa  | p  |		.CONST	0x0070,0xfffa
0710 0072 fff9  | r  |		.CONST	0x0072,0xfff9
0712 0076 0001  | v  |		.CONST	0x0076,0x0001
0714 0079 0002  | y  |		.CONST	0x0079,0x0002
0716 007c 0003  | |  |		.CONST	0x007c,0x0003
0718 007f 0004  |    |		.CONST	0x007f,0x0004
071a 0082 0005  |    |		.CONST	0x0082,0x0005
071c 008c 0006  |    |		.CONST	0x008c,0x0006
071e 00a4 0007  |    |		.CONST	0x00a4,0x0007
0720 00a6 0008  |    |		.CONST	0x00a6,0x0008
0722 00b4 000a  |    |		.CONST	0x00b4,0x000a
0724 00c3 000b  |    |		.CONST	0x00c3,0x000b
0726 00c8 000c  |    |		.CONST	0x00c8,0x000c
0728 00d4 000d  |    |		.CONST	0x00d4,0x000d
072a 00d6 000e  |    |		.CONST	0x00d6,0x000e
072c 00dc 000f  |    |		.CONST	0x00dc,0x000f
072e 00e2 0009  |    |		.CONST	0x00e2,0x0009
0730 00e8 0010  |    |		.CONST	0x00e8,0x0010
0732 00ea 0011  |    |		.CONST	0x00ea,0x0011
0734 00f4 0012  |    |		.CONST	0x00f4,0x0012
0736 00f6 0013  |    |		.CONST	0x00f6,0x0013
0738 00fa 0014  |    |		.CONST	0x00fa,0x0014
073a 0105 0015  |    |		.CONST	0x0105,0x0015
073c 0109 0016  |    |		.CONST	0x0109,0x0016
073e 011c 0017  |    |		.CONST	0x011c,0x0017
0740 011e 0018  |    |		.CONST	0x011e,0x0018
0742 0122 0019  | "  |		.CONST	0x0122,0x0019
0744 012a 001a  | *  |		.CONST	0x012a,0x001a
0746 012c 001b  | ,  |		.CONST	0x012c,0x001b
0748 0136 001c  | 6  |		.CONST	0x0136,0x001c
074a 013b 001d  | ;  |		.CONST	0x013b,0x001d
074c 013d 001e  | =  |		.CONST	0x013d,0x001e
074e 0142 001f  | B  |		.CONST	0x0142,0x001f
0750 0144 0020  | D  |		.CONST	0x0144,0x0020
0752 014d 0021  | M !|		.CONST	0x014d,0x0021
0754 ; --------------------------------------------------------------------------------------
0754 ; Debug3 Subtable 0x3
0754 ; --------------------------------------------------------------------------------------
0754 0001 0008  |    |		.DBG3TAB	0x0001,0x0008
0756 0153 ffff  | S  |		.CONST	0x0153,0xffff
0758 0157 0001  | W  |		.CONST	0x0157,0x0001
075a 015a 0002  | Z  |		.CONST	0x015a,0x0002
075c 015d 0003  | ]  |		.CONST	0x015d,0x0003
075e 0161 0004  | a  |		.CONST	0x0161,0x0004
0760 0165 0005  | e  |		.CONST	0x0165,0x0005
0762 0168 0006  | h  |		.CONST	0x0168,0x0006
0764 0172 0007  | r  |		.CONST	0x0172,0x0007
0766 0178 0008  | x  |		.CONST	0x0178,0x0008
0768 ; --------------------------------------------------------------------------------------
0768 ; Debug3 Subtable 0x4
0768 ; --------------------------------------------------------------------------------------
0768 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
076a ; --------------------------------------------------------------------------------------
076a ; Debug3 Subtable 0x5
076a ; --------------------------------------------------------------------------------------
076a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
076c ; --------------------------------------------------------------------------------------
076c ; Debug3 Subtable 0x6
076c ; --------------------------------------------------------------------------------------
076c 0003 0015  |    |		.DBG3TAB	0x0003,0x0015
076e 01cb ffff  |    |		.CONST	0x01cb,0xffff
0770 01ce fffe  |    |		.CONST	0x01ce,0xfffe
0772 01cf fffd  |    |		.CONST	0x01cf,0xfffd
0774 01d0 0001  |    |		.CONST	0x01d0,0x0001
0776 01d4 0002  |    |		.CONST	0x01d4,0x0002
0778 01df 0003  |    |		.CONST	0x01df,0x0003
077a 01e5 0004  |    |		.CONST	0x01e5,0x0004
077c 01f0 0005  |    |		.CONST	0x01f0,0x0005
077e 01f2 0006  |    |		.CONST	0x01f2,0x0006
0780 01fd 0007  |    |		.CONST	0x01fd,0x0007
0782 0204 0008  |    |		.CONST	0x0204,0x0008
0784 0217 0009  |    |		.CONST	0x0217,0x0009
0786 0218 000a  |    |		.CONST	0x0218,0x000a
0788 021d 000b  |    |		.CONST	0x021d,0x000b
078a 0221 000c  | !  |		.CONST	0x0221,0x000c
078c 0228 000d  | (  |		.CONST	0x0228,0x000d
078e 022c 000e  | ,  |		.CONST	0x022c,0x000e
0790 0235 000f  | 5  |		.CONST	0x0235,0x000f
0792 0239 0010  | 9  |		.CONST	0x0239,0x0010
0794 023c 0011  | <  |		.CONST	0x023c,0x0011
0796 0243 0012  | C  |		.CONST	0x0243,0x0012
0798 024d 0013  | M  |		.CONST	0x024d,0x0013
079a 0252 0014  | R  |		.CONST	0x0252,0x0014
079c 0258 0015  | X  |		.CONST	0x0258,0x0015
079e ; --------------------------------------------------------------------------------------
079e ; Debug3 Subtable 0x7
079e ; --------------------------------------------------------------------------------------
079e 0003 000d  |    |		.DBG3TAB	0x0003,0x000d
07a0 027b ffff  | {  |		.CONST	0x027b,0xffff
07a2 027e fffe  | ~  |		.CONST	0x027e,0xfffe
07a4 027f fffd  |    |		.CONST	0x027f,0xfffd
07a6 0285 0001  |    |		.CONST	0x0285,0x0001
07a8 028a 0002  |    |		.CONST	0x028a,0x0002
07aa 0290 0003  |    |		.CONST	0x0290,0x0003
07ac 0295 0004  |    |		.CONST	0x0295,0x0004
07ae 02a3 0005  |    |		.CONST	0x02a3,0x0005
07b0 02b1 0006  |    |		.CONST	0x02b1,0x0006
07b2 02b4 0007  |    |		.CONST	0x02b4,0x0007
07b4 02bf 0008  |    |		.CONST	0x02bf,0x0008
07b6 02ca 0009  |    |		.CONST	0x02ca,0x0009
07b8 02cd 000a  |    |		.CONST	0x02cd,0x000a
07ba 02dc 000b  |    |		.CONST	0x02dc,0x000b
07bc 02df 000c  |    |		.CONST	0x02df,0x000c
07be 02ee 000d  |    |		.CONST	0x02ee,0x000d
07c0 ; --------------------------------------------------------------------------------------
07c0 ; Debug3 Subtable 0x8
07c0 ; --------------------------------------------------------------------------------------
07c0 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
07c2 0305 0001  |    |		.CONST	0x0305,0x0001
07c4 0309 0002  |    |		.CONST	0x0309,0x0002
07c6 ; --------------------------------------------------------------------------------------
07c6 ; Debug3 Subtable 0x9
07c6 ; --------------------------------------------------------------------------------------
07c6 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
07c8 0313 ffff  |    |		.CONST	0x0313,0xffff
07ca 0318 fffe  |    |		.CONST	0x0318,0xfffe
07cc 031a 0001  |    |		.CONST	0x031a,0x0001
07ce 0323 0002  | #  |		.CONST	0x0323,0x0002
07d0 0325 0003  | %  |		.CONST	0x0325,0x0003
07d2 0331 0004  | 1  |		.CONST	0x0331,0x0004
07d4 0333 0005  | 3  |		.CONST	0x0333,0x0005
07d6 033c 0006  | <  |		.CONST	0x033c,0x0006
07d8 0346 0007  | F  |		.CONST	0x0346,0x0007
07da ; --------------------------------------------------------------------------------------
07da ; Debug3 Subtable 0xa
07da ; --------------------------------------------------------------------------------------
07da 0008 000a  |    |		.DBG3TAB	0x0008,0x000a
07dc 035b ffff  | [  |		.CONST	0x035b,0xffff
07de 035c fffe  | \  |		.CONST	0x035c,0xfffe
07e0 035d fffd  | ]  |		.CONST	0x035d,0xfffd
07e2 0362 fffc  | b  |		.CONST	0x0362,0xfffc
07e4 0364 fffb  | d  |		.CONST	0x0364,0xfffb
07e6 0367 fffa  | g  |		.CONST	0x0367,0xfffa
07e8 0369 fff9  | i  |		.CONST	0x0369,0xfff9
07ea 036d fff8  | m  |		.CONST	0x036d,0xfff8
07ec 0373 0001  | s  |		.CONST	0x0373,0x0001
07ee 0378 0002  | x  |		.CONST	0x0378,0x0002
07f0 037a 0003  | z  |		.CONST	0x037a,0x0003
07f2 039e 0004  |    |		.CONST	0x039e,0x0004
07f4 03ae 0005  |    |		.CONST	0x03ae,0x0005
07f6 03b0 0006  |    |		.CONST	0x03b0,0x0006
07f8 03b9 0007  |    |		.CONST	0x03b9,0x0007
07fa 03c9 0008  |    |		.CONST	0x03c9,0x0008
07fc 03d2 0009  |    |		.CONST	0x03d2,0x0009
07fe 03dc 000a  |    |		.CONST	0x03dc,0x000a
0800 ; --------------------------------------------------------------------------------------
0800 ; Debug3 Subtable 0xb
0800 ; --------------------------------------------------------------------------------------
0800 0003 0005  |    |		.DBG3TAB	0x0003,0x0005
0802 03e3 ffff  |    |		.CONST	0x03e3,0xffff
0804 03e9 fffe  |    |		.CONST	0x03e9,0xfffe
0806 03eb fffd  |    |		.CONST	0x03eb,0xfffd
0808 03f1 0001  |    |		.CONST	0x03f1,0x0001
080a 0406 0003  |    |		.CONST	0x0406,0x0003
080c 040b 0004  |    |		.CONST	0x040b,0x0004
080e 0414 0005  |    |		.CONST	0x0414,0x0005
0810 041a 0002  |    |		.CONST	0x041a,0x0002
0812 ; --------------------------------------------------------------------------------------
0812 ; Debug3 Subtable 0xc
0812 ; --------------------------------------------------------------------------------------
0812 0005 000c  |    |		.DBG3TAB	0x0005,0x000c
0814 0423 ffff  | #  |		.CONST	0x0423,0xffff
0816 042e fffe  | .  |		.CONST	0x042e,0xfffe
0818 0431 fffd  | 1  |		.CONST	0x0431,0xfffd
081a 0437 fffc  | 7  |		.CONST	0x0437,0xfffc
081c 0439 fffb  | 9  |		.CONST	0x0439,0xfffb
081e 043c 0002  | <  |		.CONST	0x043c,0x0002
0820 0440 0003  | @  |		.CONST	0x0440,0x0003
0822 0443 0004  | C  |		.CONST	0x0443,0x0004
0824 044e 0005  | N  |		.CONST	0x044e,0x0005
0826 0450 0006  | P  |		.CONST	0x0450,0x0006
0828 0460 0007  | `  |		.CONST	0x0460,0x0007
082a 0464 0008  | d  |		.CONST	0x0464,0x0008
082c 0470 0009  | p  |		.CONST	0x0470,0x0009
082e 0480 000a  |    |		.CONST	0x0480,0x000a
0830 048a 000b  |    |		.CONST	0x048a,0x000b
0832 0491 000c  |    |		.CONST	0x0491,0x000c
0834 0496 0001  |    |		.CONST	0x0496,0x0001
0836 ; --------------------------------------------------------------------------------------
0836 ; Debug3 Subtable 0xd
0836 ; --------------------------------------------------------------------------------------
0836 0005 000c  |    |		.DBG3TAB	0x0005,0x000c
0838 04a3 ffff  |    |		.CONST	0x04a3,0xffff
083a 04a9 fffe  |    |		.CONST	0x04a9,0xfffe
083c 04ab fffd  |    |		.CONST	0x04ab,0xfffd
083e 04b0 fffc  |    |		.CONST	0x04b0,0xfffc
0840 04b5 fffb  |    |		.CONST	0x04b5,0xfffb
0842 04ba 0001  |    |		.CONST	0x04ba,0x0001
0844 04d0 0002  |    |		.CONST	0x04d0,0x0002
0846 04d2 0003  |    |		.CONST	0x04d2,0x0003
0848 04df 0004  |    |		.CONST	0x04df,0x0004
084a 04e2 0006  |    |		.CONST	0x04e2,0x0006
084c 04e7 0007  |    |		.CONST	0x04e7,0x0007
084e 04eb 0008  |    |		.CONST	0x04eb,0x0008
0850 04f7 0009  |    |		.CONST	0x04f7,0x0009
0852 0504 000a  |    |		.CONST	0x0504,0x000a
0854 0506 000b  |    |		.CONST	0x0506,0x000b
0856 050c 000c  |    |		.CONST	0x050c,0x000c
0858 0512 0005  |    |		.CONST	0x0512,0x0005
085a ; --------------------------------------------------------------------------------------
085a ; Debug3 Subtable 0xe
085a ; --------------------------------------------------------------------------------------
085a 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
085c 051b ffff  |    |		.CONST	0x051b,0xffff
085e 0521 0001  | !  |		.CONST	0x0521,0x0001
0860 0000 0000  |    |		.BLANK	0000[0x1a0]