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

⟦1186177b2⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0ea8       |    |		.CONST	0x0ea8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0009       |    |		.CONST	0x0009								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004d       | M  |		.CONST	0x004d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0fca,0x0000,0x0000,0x0058,0x5195,0x0000,0x050d
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 00bf       |    |		Action	Accept_Activation
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0012,0x0fd2,0x0000,0x0000,0x0058,0x51a5,0x0000,0x0026
													; 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 4802       |H   |		Short_Literal	0x2							; Debug Table 0x1.0x4 = 0x16,0xfffb
0017 032a       | *  |		Declare_Type	Record,Incomplete
0018 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x5 = 0x18,0xfffa
0019 02a0       |    |		Declare_Subprogram	Null_Subprogram
001a 03ad       |    |		Declare_Type	Heap_Access,Defined
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x1b,0xfff9
001c e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x7 = 0x1c,0xfff8
001d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
001e 00d9       |    |		Load_Top	At_Offset_1
001f 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
0021 e210       |    |		Load	0x1,0x10
0022 0326       | &  |		Complete_Type	Record,By_Defining
0023 029d 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call			; Debug Table 0x1.0x8 = 0x23,0xfff7
0025 029b 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Unelaborated		; Debug Table 0x1.0x9 = 0x25,0xfff6
0027 029b 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Unelaborated		; Debug Table 0x1.0xa = 0x27,0xfff5
0029 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xb = 0x29,0xfff4
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 029d 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call			; Debug Table 0x1.0xc = 0x2b,0xfff3
002d 029d 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call			; Debug Table 0x1.0xd = 0x2d,0xfff2
002f 029d 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call			; Debug Table 0x1.0xe = 0x2f,0xfff1
0031 029d 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call			; Debug Table 0x1.0xf = 0x31,0xfff0
0033 029d 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call			; Debug Table 0x1.0x10 = 0x33,0xffef
0035 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call			; Debug Table 0x1.0x11 = 0x35,0xffee
0037 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call			; Debug Table 0x1.0x12 = 0x37,0xffed
0039 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x13 = 0x39,0xffec
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 029d 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call			; Debug Table 0x1.0x14 = 0x3b,0xffeb
003d 029d 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call			; Debug Table 0x1.0x15 = 0x3d,0xffea
003f 029d 0663  |   c|		Declare_Subprogram	INIT_0660,For_Outer_Call			; Debug Table 0x1.0x16 = 0x3f,0xffe9
0041 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x17 = 0x41,0xffe8
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 029d 0693  |    |		Declare_Subprogram	INIT_0690,For_Outer_Call			; Debug Table 0x1.0x18 = 0x43,0xffe7
0045 029d 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Outer_Call			; Debug Table 0x1.0x19 = 0x45,0xffe6
0047 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x1a = 0x47,0xffe5
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 029d 08bb  |    |		Declare_Subprogram	INIT_08b8,For_Outer_Call			; Debug Table 0x1.0x1b = 0x49,0xffe4
004b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x1c = 0x4b,0xffe3
004c 00c7       |    |		Action	Elaborate_Subprogram
004d			BODY_0008:
004d 00bc       |    |		Action	Signal_Activated
004e 00bb       |    |		Action	Signal_Completion
004f 0000       |    |		.XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0070       | p  |		.CONST	0x0070								; Address of begin
0051 0130       | 0  |		.CONST	0x0130								; Address of exception handler
0052 0010       |    |		.CONST	0x0010								; Number of locals
0053			INIT_0050:
0053 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2 = .DEBUG	0x0053,0x100e,0x0001,0x0000,0x0058,0x5195,0x0000,0x050e
													; Debug Table 0x2.0x0 = 0x53,0xffff
0054 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x1 = 0x54,0xfffe
0055 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0056 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2.0x2 = 0x56,0xfffd
0057 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2.0x3 = 0x57,0xfffc
0058 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x2.0x4 = 0x58,0xfffb
0059 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x2.0x5 = 0x5a,0xfffa
005b 00c6       |    |		Action	Check_Subprogram_Elaborated
005c 4806       |H   |		Short_Literal	0x6
005d 4802       |H   |		Short_Literal	0x2
005e 0099       |    |		Action	Reference_Dynamic
005f e5fd       |    |		Load	0x2,-0x3
0060 62ab       |b   |		Indirect_Literal	Discrete,0x30c,{0x00000000, 0x005851a5}
0061 62a6       |b   |		Indirect_Literal	Discrete,0x308,{0x00000000, 0x000005e8}
0062 480b       |H   |		Short_Literal	0xb
0063 0007       |    |		Action	Break_Optional
0064 029f 0963  |   c|		Declare_Subprogram	INIT_0960,For_Call				; Debug Table 0x2.0x6 = 0x64,0xfff9
0066 e003       |    |		Load	0x0,0x3
0067 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0068 00c6       |    |		Action	Check_Subprogram_Elaborated
0069 480c       |H   |		Short_Literal	0xc
006a 4802       |H   |		Short_Literal	0x2
006b 0099       |    |		Action	Reference_Dynamic
006c 629f       |b   |		Indirect_Literal	Discrete,0x30c,{0x00000000, 0x005851a5}
006d 6296       |b   |		Indirect_Literal	Discrete,0x304,{0x00000000, 0x000005f1}
006e 4810       |H   |		Short_Literal	0x10
006f 0007       |    |		Action	Break_Optional
0070			BODY_0050:
0070 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x7 = 0x70,0x1
0071 480d       |H   |		Short_Literal	0xd
0072 e004       |    |		Load	0x0,0x4
0073 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0074 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2.0x8 = 0x74,0x2
0075 00e1       |    |		Load_Encached	Boolean_Cache
0076 e5fe       |    |		Load	0x2,-0x2
0077 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0078 e5ff       |    |		Load	0x2,-0x1
0079 e5fd       |    |		Load	0x2,-0x3
007a 8215       |    |		Call	0x1,0x15
007b c404       |    |		Store	0x2,0x4
007c c402       |    |		Store	0x2,0x2
007d e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x9 = 0x7d,0x3
007e 7005       |p   |		Jump_Nonzero	0x84
007f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0xa = 0x7f,0x4
0080 e5fd       |    |		Load	0x2,-0x3
0081 e5fe       |    |		Load	0x2,-0x2
0082 8005       |    |		Call	0x0,0x5
0083 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x2.0xb = 0x83,0x5
0084 e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0xc = 0x84,0x6
0085 6813       |h   |		Jump_Zero	0x99
0086 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2.0xd = 0x86,0x7
0087 e5ff       |    |		Load	0x2,-0x1
0088 e5fd       |    |		Load	0x2,-0x3
0089 821b       |    |		Call	0x1,0x1b
008a c402       |    |		Store	0x2,0x2
008b e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0xe = 0x8b,0x8
008c 700c       |p   |		Jump_Nonzero	0x99
008d 0092 0c50  |   P|		Action	Push_String_Extended,0xc50					; "Can't restore code for "
													; Debug Table 0x2.0xf = 0x8d,0x9
008f e5ff       |    |		Load	0x2,-0x1
0090 01cc       |    |		Execute	Vector,Catenate
0091 e5fd       |    |		Load	0x2,-0x3
0092 8006       |    |		Call	0x0,0x6
0093 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x10 = 0x93,0xa
0094 e5fd       |    |		Load	0x2,-0x3
0095 e5fe       |    |		Load	0x2,-0x2
0096 8005       |    |		Call	0x0,0x5
0097 6268       |bh  |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0x2.0x11 = 0x97,0xb
0098 0257       | W  |		Execute	Discrete,Raise
0099 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x12 = 0x99,0xc
009a 0217       |    |		Execute	Heap_Access,All_Reference
009b 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
009c 4603       |F   |		Jump_Case	0x4
009d 780b       |x   |		Jump	0xa9								; case 0x0
009e 7802       |x   |		Jump	0xa1								; case 0x1
009f 7816       |x   |		Jump	0xb6								; case 0x2
00a0 7815       |x   |		Jump	0xb6								; case 0x3
00a1 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x13 = 0xa1,0xd
00a2 e5fe       |    |		Load	0x2,-0x2
00a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00a4 e5fd       |    |		Load	0x2,-0x3
00a5 0217       |    |		Execute	Heap_Access,All_Reference
00a6 2432       |$2  |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x32
00a7 8007       |    |		Call	0x0,0x7
00a8 780d       |x   |		Jump	0xb6
00a9 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x14 = 0xa9,0xe
00aa 0219       |    |		Execute	Heap_Access,All_Read
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 2c4d       |,M  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4d
00ad e5fd       |    |		Load	0x2,-0x3
00ae 0217       |    |		Execute	Heap_Access,All_Reference
00af 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
00b0 4800       |H   |		Short_Literal	0x0
00b1 e008       |    |		Load	0x0,0x8
00b2 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 284d       |(M  |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4d
00b5 00d1       |    |		Pop_Control	Pop_Count_1
00b6 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x15 = 0xb6,0x10
00b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b8 00e1       |    |		Load_Encached	Boolean_Cache
00b9 e5fd       |    |		Load	0x2,-0x3
00ba 0217       |    |		Execute	Heap_Access,All_Reference
00bb 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
00bc e5fd       |    |		Load	0x2,-0x3
00bd 0217       |    |		Execute	Heap_Access,All_Reference
00be 2c15       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x15
00bf e404       |    |		Load	0x2,0x4
00c0 e5ff       |    |		Load	0x2,-0x1
00c1 480d       |H   |		Short_Literal	0xd
00c2 4802       |H   |		Short_Literal	0x2
00c3 0099       |    |		Action	Reference_Dynamic
00c4 480e       |H   |		Short_Literal	0xe
00c5 4802       |H   |		Short_Literal	0x2
00c6 0099       |    |		Action	Reference_Dynamic
00c7 e003       |    |		Load	0x0,0x3
00c8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c9 c402       |    |		Store	0x2,0x2
00ca c403       |    |		Store	0x2,0x3
00cb e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x16 = 0xcb,0x11
00cc 7028       |p(  |		Jump_Nonzero	0xf5
00cd 0092 0c51  |   Q|		Action	Push_String_Extended,0xc51					; "Error while restoring code "
													; Debug Table 0x2.0x17 = 0xcd,0x12
00cf e5ff       |    |		Load	0x2,-0x1
00d0 01cc       |    |		Execute	Vector,Catenate
00d1 e5fd       |    |		Load	0x2,-0x3
00d2 8006       |    |		Call	0x0,0x6
00d3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x18 = 0xd3,0x13
00d4 0219       |    |		Execute	Heap_Access,All_Read
00d5 2c31       |,1  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x31
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 e403       |    |		Load	0x2,0x3
00d8 e009       |    |		Load	0x0,0x9
00d9 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
00da 00d2       |    |		Pop_Control	Pop_Count_2
00db e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x19 = 0xdb,0x14
00dc 0219       |    |		Execute	Heap_Access,All_Read
00dd e5fd       |    |		Load	0x2,-0x3
00de 0219       |    |		Execute	Heap_Access,All_Read
00df 2c32       |,2  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x32
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 2c4d       |,M  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4d
00e2 00d9       |    |		Load_Top	At_Offset_1
00e3 e5fd       |    |		Load	0x2,-0x3
00e4 0217       |    |		Execute	Heap_Access,All_Reference
00e5 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
00e6 e5fe       |    |		Load	0x2,-0x2
00e7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e8 0275       | u  |		Execute	Discrete,Unary_Minus
00e9 0248       | H  |		Execute	Discrete,Check_In_Integer
00ea e406       |    |		Load	0x2,0x6
00eb 0272       | r  |		Execute	Discrete,Minus
00ec 0248       | H  |		Execute	Discrete,Check_In_Integer
00ed e008       |    |		Load	0x0,0x8
00ee 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
00ef 00d1       |    |		Pop_Control	Pop_Count_1
00f0 00da       |    |		Load_Top	At_Offset_2
00f1 284d       |(M  |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4d
00f2 00d2       |    |		Pop_Control	Pop_Count_2
00f3 620c       |b   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0x2.0x1a = 0xf3,0x15
00f4 0257       | W  |		Execute	Discrete,Raise
00f5 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x1b = 0xf5,0x16
00f6 0217       |    |		Execute	Heap_Access,All_Reference
00f7 2c0b       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
00f8 49f4       |I   |		Short_Literal	0x1f4
00f9 027c       | |  |		Execute	Discrete,Less
00fa 6808       |h   |		Jump_Zero	0x103
00fb e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x1c = 0xfb,0x17
00fc e404       |    |		Load	0x2,0x4
00fd e5fe       |    |		Load	0x2,-0x2
00fe e5ff       |    |		Load	0x2,-0x1
00ff 8217       |    |		Call	0x1,0x17
0100 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x1d = 0x100,0x18
0101 a405       |    |		Store_Unchecked	0x2,0x5
0102 7802       |x   |		Jump	0x105
0103 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x1e = 0x103,0x19
0104 a405       |    |		Store_Unchecked	0x2,0x5
0105 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x1f = 0x105,0x1a
0106 0217       |    |		Execute	Heap_Access,All_Reference
0107 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
0108 0f03       |    |		Execute_Immediate	Equal,0x3
0109 680c       |h   |		Jump_Zero	0x116
010a e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x20 = 0x10a,0x1b
010b 6805       |h   |		Jump_Zero	0x111
010c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x21 = 0x10c,0x1c
010d e5fe       |    |		Load	0x2,-0x2
010e e5ff       |    |		Load	0x2,-0x1
010f 8216       |    |		Call	0x1,0x16
0110 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0111 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x22 = 0x111,0x1d
0112 e5fe       |    |		Load	0x2,-0x2
0113 e5ff       |    |		Load	0x2,-0x1
0114 8212       |    |		Call	0x1,0x12
0115 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0116 e404       |    |		Load	0x2,0x4								; Debug Table 0x2.0x23 = 0x116,0x1e
0117 700c       |p   |		Jump_Nonzero	0x124
0118 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x24 = 0x118,0x1f
0119 e5fe       |    |		Load	0x2,-0x2
011a e5ff       |    |		Load	0x2,-0x1
011b 8212       |    |		Call	0x1,0x12
011c e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x25 = 0x11c,0x20
011d 7005       |p   |		Jump_Nonzero	0x123
011e 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x2.0x26 = 0x11e,0x21
011f e5fd       |    |		Load	0x2,-0x3
0120 e5fe       |    |		Load	0x2,-0x2
0121 e5ff       |    |		Load	0x2,-0x1
0122 800a       |    |		Call	0x0,0xa
0123 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0124 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x27 = 0x124,0x22
0125 e5fe       |    |		Load	0x2,-0x2
0126 e5ff       |    |		Load	0x2,-0x1
0127 8216       |    |		Call	0x1,0x16
0128 e405       |    |		Load	0x2,0x5								; Debug Table 0x2.0x28 = 0x128,0x23
0129 7005       |p   |		Jump_Nonzero	0x12f
012a 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x2.0x29 = 0x12a,0x24
012b e5fd       |    |		Load	0x2,-0x3
012c e5fe       |    |		Load	0x2,-0x2
012d e5ff       |    |		Load	0x2,-0x1
012e 800a       |    |		Call	0x0,0xa
012f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0130			TRAP_0050:
0130 61cf       |a   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}
0131 010f       |    |		Execute	Exception,Equal
0132 700c       |p   |		Jump_Nonzero	0x13f
0133 e00b       |    |		Load	0x0,0xb
0134 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0135 010f       |    |		Execute	Exception,Equal
0136 7008       |p   |		Jump_Nonzero	0x13f
0137 e008       |    |		Load	0x0,0x8
0138 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0139 010f       |    |		Execute	Exception,Equal
013a 7004       |p   |		Jump_Nonzero	0x13f
013b e008       |    |		Load	0x0,0x8
013c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
013d 010f       |    |		Execute	Exception,Equal
013e 6802       |h   |		Jump_Zero	0x141
013f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x2a = 0x13f,0x25
0140 0101       |    |		Execute	Exception,Reraise
0141 0092 0c52  |   R|		Action	Push_String_Extended,0xc52					; "Exception "
													; Debug Table 0x2.0x2b = 0x141,0x26
0143 e00c       |    |		Load	0x0,0xc
0144 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0145 01cc       |    |		Execute	Vector,Catenate
0146 0092 0c53  |   S|		Action	Push_String_Extended,0xc53					; " while restoring code to "
0148 01cc       |    |		Execute	Vector,Catenate
0149 e5ff       |    |		Load	0x2,-0x1
014a 01cc       |    |		Execute	Vector,Catenate
014b e5fd       |    |		Load	0x2,-0x3
014c 8006       |    |		Call	0x0,0x6
014d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x2c = 0x14d,0x27
014e 0219       |    |		Execute	Heap_Access,All_Read
014f e5fd       |    |		Load	0x2,-0x3
0150 0219       |    |		Execute	Heap_Access,All_Read
0151 2c32       |,2  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x32
0152 00d9       |    |		Load_Top	At_Offset_1
0153 2c4d       |,M  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4d
0154 00d9       |    |		Load_Top	At_Offset_1
0155 e5fd       |    |		Load	0x2,-0x3
0156 0217       |    |		Execute	Heap_Access,All_Reference
0157 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
0158 e5fe       |    |		Load	0x2,-0x2
0159 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
015a 0275       | u  |		Execute	Discrete,Unary_Minus
015b 0248       | H  |		Execute	Discrete,Check_In_Integer
015c e406       |    |		Load	0x2,0x6
015d 0272       | r  |		Execute	Discrete,Minus
015e 0248       | H  |		Execute	Discrete,Check_In_Integer
015f e008       |    |		Load	0x0,0x8
0160 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0161 00d1       |    |		Pop_Control	Pop_Count_1
0162 00da       |    |		Load_Top	At_Offset_2
0163 284d       |(M  |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4d
0164 00d2       |    |		Pop_Control	Pop_Count_2
0165 619a       |a   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0x2.0x2d = 0x165,0x28
0166 0257       | W  |		Execute	Discrete,Raise
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0178       | x  |		.CONST	0x0178								; Address of begin
0169 01b9       |    |		.CONST	0x01b9								; Address of exception handler
016a 0005       |    |		.CONST	0x0005								; Number of locals
016b			INIT_0168:
016b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3 = .DEBUG	0x016b,0x106c,0x0001,0x0000,0x0058,0x5195,0x0000,0x051e
													; Debug Table 0x3.0x0 = 0x16b,0xffff
016c e00d       |    |		Load	0x0,0xd								; Debug Table 0x3.0x1 = 0x16c,0xfffe
016d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x2 = 0x16f,0xfffd
0170 e00d       |    |		Load	0x0,0xd
0171 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0172 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0173 e00d       |    |		Load	0x0,0xd								; Debug Table 0x3.0x3 = 0x173,0xfffc
0174 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0175 02c7       |    |		Declare_Variable	Any
0176 00d8       |    |		Load_Top	At_Offset_0
0177 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0178			BODY_0168:
0178 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x4 = 0x178,0x1
0179 480d       |H   |		Short_Literal	0xd
017a e004       |    |		Load	0x0,0x4
017b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
017c e00d       |    |		Load	0x0,0xd								; Debug Table 0x3.0x5 = 0x17c,0x2
017d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
017e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017f 00d9       |    |		Load_Top	At_Offset_1
0180 0120       |    |		Execute	Any,Is_Value
0181 6803       |h   |		Jump_Zero	0x185
0182 e00d       |    |		Load	0x0,0xd
0183 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0184 7801       |x   |		Jump	0x186
0185 00d9       |    |		Load_Top	At_Offset_1
0186 6175       |au  |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
0187 e00e       |    |		Load	0x0,0xe
0188 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0189 e00f       |    |		Load	0x0,0xf
018a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018b e00d       |    |		Load	0x0,0xd
018c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
018d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
018e e404       |    |		Load	0x2,0x4
018f 0092 0c54  |   T|		Action	Push_String_Extended,0xc54					; "$"
0191 01cc       |    |		Execute	Vector,Catenate
0192 e00d       |    |		Load	0x0,0xd
0193 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0194 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0195 c405       |    |		Store	0x2,0x5
0196 005b       | [  |		Store_Top	Discrete,At_Offset_3
0197 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x6 = 0x197,0x3
0198 680b       |h   |		Jump_Zero	0x1a4
0199 0092 0c55  |   U|		Action	Push_String_Extended,0xc55					; "Can't get enclosing world for "
													; Debug Table 0x3.0x7 = 0x199,0x4
019b e5ff       |    |		Load	0x2,-0x1
019c 01cc       |    |		Execute	Vector,Catenate
019d e5fd       |    |		Load	0x2,-0x3
019e 8006       |    |		Call	0x0,0x6
019f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x8 = 0x19f,0x5
01a0 e5fd       |    |		Load	0x2,-0x3
01a1 e5fe       |    |		Load	0x2,-0x2
01a2 8005       |    |		Call	0x0,0x5
01a3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x3.0x9 = 0x1a3,0x6
01a4 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0xa = 0x1a4,0x7
01a5 e5fd       |    |		Load	0x2,-0x3
01a6 e5fe       |    |		Load	0x2,-0x2
01a7 00db       |    |		Load_Top	At_Offset_3
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 8220       |    |		Call	0x1,0x20
01aa c402       |    |		Store	0x2,0x2
01ab 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0xb = 0x1ab,0x8
01ac 680a       |h   |		Jump_Zero	0x1b7
01ad e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0xc = 0x1ad,0x9
01ae e5fe       |    |		Load	0x2,-0x2
01af e5ff       |    |		Load	0x2,-0x1
01b0 8212       |    |		Call	0x1,0x12
01b1 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x3.0xd = 0x1b1,0xa
01b2 e5fd       |    |		Load	0x2,-0x3
01b3 e5fe       |    |		Load	0x2,-0x2
01b4 e5ff       |    |		Load	0x2,-0x1
01b5 800a       |    |		Call	0x0,0xa
01b6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01b7 6140       |a@  |		Indirect_Literal	Discrete,0x2f8,{0x00000000, 0x58519501}		; Debug Table 0x3.0xe = 0x1b7,0xb
01b8 0257       | W  |		Execute	Discrete,Raise
01b9			TRAP_0168:
01b9 6146       |aF  |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}
01ba 010f       |    |		Execute	Exception,Equal
01bb 700f       |p   |		Jump_Nonzero	0x1cb
01bc e00b       |    |		Load	0x0,0xb
01bd 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
01be 010f       |    |		Execute	Exception,Equal
01bf 700b       |p   |		Jump_Nonzero	0x1cb
01c0 e008       |    |		Load	0x0,0x8
01c1 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01c2 010f       |    |		Execute	Exception,Equal
01c3 7007       |p   |		Jump_Nonzero	0x1cb
01c4 e008       |    |		Load	0x0,0x8
01c5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01c6 010f       |    |		Execute	Exception,Equal
01c7 7003       |p   |		Jump_Nonzero	0x1cb
01c8 612f       |a/  |		Indirect_Literal	Discrete,0x2f8,{0x00000000, 0x58519501}
01c9 010f       |    |		Execute	Exception,Equal
01ca 6802       |h   |		Jump_Zero	0x1cd
01cb 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0xf = 0x1cb,0xc
01cc 0101       |    |		Execute	Exception,Reraise
01cd 0092 0c52  |   R|		Action	Push_String_Extended,0xc52					; "Exception "
													; Debug Table 0x3.0x10 = 0x1cd,0xd
01cf e00c       |    |		Load	0x0,0xc
01d0 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01d1 01cc       |    |		Execute	Vector,Catenate
01d2 0092 0c56  |   V|		Action	Push_String_Extended,0xc56					; " while restoring program_library "
01d4 01cc       |    |		Execute	Vector,Catenate
01d5 e5ff       |    |		Load	0x2,-0x1
01d6 01cc       |    |		Execute	Vector,Catenate
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 8006       |    |		Call	0x0,0x6
01d9 6126       |a&  |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0x3.0x11 = 0x1d9,0xe
01da 0257       | W  |		Execute	Discrete,Raise
01db 0000 0000  |    |		.BLANK	0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ec       |    |		.CONST	0x01ec								; Address of begin
01e1 0237       | 7  |		.CONST	0x0237								; Address of exception handler
01e2 0004       |    |		.CONST	0x0004								; Number of locals
01e3			INIT_01e0:
01e3 e00d       |    |		Load	0x0,0xd								; Debug Table 0x4 = .DEBUG	0x01e3,0x1092,0x0001,0x0000,0x0058,0x5195,0x0000,0x052e
													; Debug Table 0x4.0x0 = 0x1e3,0xffff
01e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e5 02c7       |    |		Declare_Variable	Any
01e6 00d8       |    |		Load_Top	At_Offset_0
01e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e8 e00d       |    |		Load	0x0,0xd								; Debug Table 0x4.0x1 = 0x1e8,0xfffe
01e9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01ea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01eb 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4.0x2 = 0x1eb,0xfffd
01ec			BODY_01e0:
01ec e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x3 = 0x1ec,0x1
01ed 480d       |H   |		Short_Literal	0xd
01ee e004       |    |		Load	0x0,0x4
01ef 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f0 e00d       |    |		Load	0x0,0xd								; Debug Table 0x4.0x4 = 0x1f0,0x2
01f1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 0120       |    |		Execute	Any,Is_Value
01f5 6803       |h   |		Jump_Zero	0x1f9
01f6 e00d       |    |		Load	0x0,0xd
01f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f8 7801       |x   |		Jump	0x1fa
01f9 00db       |    |		Load_Top	At_Offset_3
01fa 6101       |a   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
01fb e00e       |    |		Load	0x0,0xe
01fc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01fd e00f       |    |		Load	0x0,0xf
01fe 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ff e00d       |    |		Load	0x0,0xd
0200 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0201 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0202 e5ff       |    |		Load	0x2,-0x1
0203 e00d       |    |		Load	0x0,0xd
0204 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0205 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0206 c402       |    |		Store	0x2,0x2
0207 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0208 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x5 = 0x208,0x3
0209 6806       |h   |		Jump_Zero	0x210
020a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x6 = 0x20a,0x4
020b e5fd       |    |		Load	0x2,-0x3
020c e5fe       |    |		Load	0x2,-0x2
020d 8005       |    |		Call	0x0,0x5
020e 60e9       |`   |		Indirect_Literal	Discrete,0x2f8,{0x00000000, 0x58519501}		; Debug Table 0x4.0x7 = 0x20e,0x5
020f 0257       | W  |		Execute	Discrete,Raise
0210 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x4.0x8 = 0x210,0x6
0211 e5fd       |    |		Load	0x2,-0x3
0212 e5fe       |    |		Load	0x2,-0x2
0213 e402       |    |		Load	0x2,0x2
0214 e5ff       |    |		Load	0x2,-0x1
0215 8221       | !  |		Call	0x1,0x21
0216 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0217 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x9 = 0x217,0x7
0218 7013       |p   |		Jump_Nonzero	0x22c
0219 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0xa = 0x219,0x8
021a e5fe       |    |		Load	0x2,-0x2
021b 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
021c e5fe       |    |		Load	0x2,-0x2
021d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021e e009       |    |		Load	0x0,0x9
021f 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0220 0092 0c57  |   W|		Action	Push_String_Extended,0xc57					; " "
0222 01cc       |    |		Execute	Vector,Catenate
0223 e5ff       |    |		Load	0x2,-0x1
0224 01cc       |    |		Execute	Vector,Catenate
0225 0092 0c58  |   X|		Action	Push_String_Extended,0xc58					; " could not be restored"
0227 01cc       |    |		Execute	Vector,Catenate
0228 e5fd       |    |		Load	0x2,-0x3
0229 8006       |    |		Call	0x0,0x6
022a 60d5       |`   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0x4.0xb = 0x22a,0x9
022b 0257       | W  |		Execute	Discrete,Raise
022c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0xc = 0x22c,0xa
022d 0217       |    |		Execute	Heap_Access,All_Reference
022e 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
022f 0e03       |    |		Execute_Immediate	Not_Equal,0x3
0230 6805       |h   |		Jump_Zero	0x236
0231 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x4.0xd = 0x231,0xb
0232 e5fd       |    |		Load	0x2,-0x3
0233 e5fe       |    |		Load	0x2,-0x2
0234 e5ff       |    |		Load	0x2,-0x1
0235 800a       |    |		Call	0x0,0xa
0236 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0237			TRAP_01e0:
0237 60c8       |`   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}
0238 010f       |    |		Execute	Exception,Equal
0239 700f       |p   |		Jump_Nonzero	0x249
023a e00b       |    |		Load	0x0,0xb
023b 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
023c 010f       |    |		Execute	Exception,Equal
023d 700b       |p   |		Jump_Nonzero	0x249
023e e008       |    |		Load	0x0,0x8
023f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0240 010f       |    |		Execute	Exception,Equal
0241 7007       |p   |		Jump_Nonzero	0x249
0242 e008       |    |		Load	0x0,0x8
0243 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0244 010f       |    |		Execute	Exception,Equal
0245 7003       |p   |		Jump_Nonzero	0x249
0246 60b1       |`   |		Indirect_Literal	Discrete,0x2f8,{0x00000000, 0x58519501}
0247 010f       |    |		Execute	Exception,Equal
0248 6802       |h   |		Jump_Zero	0x24b
0249 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xe = 0x249,0xc
024a 0101       |    |		Execute	Exception,Reraise
024b 0092 0c52  |   R|		Action	Push_String_Extended,0xc52					; "Exception "
													; Debug Table 0x4.0xf = 0x24b,0xd
024d e00c       |    |		Load	0x0,0xc
024e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
024f 01cc       |    |		Execute	Vector,Catenate
0250 0092 0c59  |   Y|		Action	Push_String_Extended,0xc59					; " while restoring code for load_proc "
0252 01cc       |    |		Execute	Vector,Catenate
0253 e5ff       |    |		Load	0x2,-0x1
0254 01cc       |    |		Execute	Vector,Catenate
0255 e5fd       |    |		Load	0x2,-0x3
0256 8006       |    |		Call	0x0,0x6
0257 60a8       |`   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0x4.0x10 = 0x257,0xe
0258 0257       | W  |		Execute	Discrete,Raise
0259 0000 0000  |    |		.BLANK	0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 4608       |F   |		Jump_Case	0x9							; Debug Table 0x5 = .DEBUG	0x0263,0x10b6,0x0005,0x0000,0x0058,0x51a5,0x0000,0x0043
0264 7808       |x   |		Jump	0x26d								; case 0x0
0265 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0266 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0267 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0268 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0269 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
026a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
026b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
026c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
026d 00da       |    |		Load_Top	At_Offset_2
026e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
026f 0125       | %  |		Execute	Any,Set_Constraint
0270 00da       |    |		Load_Top	At_Offset_2
0271 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0272 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0273 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0285       |    |		.CONST	0x0285								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0004       |    |		.CONST	0x0004								; Number of locals
027b			INIT_0278:
027b e00d       |    |		Load	0x0,0xd								; Debug Table 0x6 = .DEBUG	0x027b,0x10b8,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0053
													; Debug Table 0x6.0x0 = 0x27b,0xffff
027c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
027d 02c7       |    |		Declare_Variable	Any
027e 00d8       |    |		Load_Top	At_Offset_0
027f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0280 e00d       |    |		Load	0x0,0xd								; Debug Table 0x6.0x1 = 0x280,0xfffe
0281 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0282 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0283 e010       |    |		Load	0x0,0x10							; Debug Table 0x6.0x2 = 0x283,0xfffd
0284 0007       |    |		Action	Break_Optional
0285			BODY_0278:
0285 e00d       |    |		Load	0x0,0xd								; Debug Table 0x6.0x3 = 0x285,0x1
0286 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0287 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0288 00db       |    |		Load_Top	At_Offset_3
0289 0120       |    |		Execute	Any,Is_Value
028a 6803       |h   |		Jump_Zero	0x28e
028b e00d       |    |		Load	0x0,0xd
028c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
028d 7801       |x   |		Jump	0x28f
028e 00db       |    |		Load_Top	At_Offset_3
028f 606c       |`l  |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
0290 e00e       |    |		Load	0x0,0xe
0291 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0292 e00f       |    |		Load	0x0,0xf
0293 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0294 e00d       |    |		Load	0x0,0xd
0295 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0296 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0297 e5ff       |    |		Load	0x2,-0x1
0298 e00d       |    |		Load	0x0,0xd
0299 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
029a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
029b c402       |    |		Store	0x2,0x2
029c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
029d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x4 = 0x29d,0x2
029e 6801       |h   |		Jump_Zero	0x2a0
029f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x6.0x5 = 0x29f,0x3
02a0 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x6 = 0x2a0,0x4
02a1 e5fe       |    |		Load	0x2,-0x2
02a2 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02a3 e402       |    |		Load	0x2,0x2
02a4 8011       |    |		Call	0x0,0x11
02a5 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x7 = 0x2a5,0x5
02a6 e5fe       |    |		Load	0x2,-0x2
02a7 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
02a8 e402       |    |		Load	0x2,0x2
02a9 8012       |    |		Call	0x0,0x12
02aa e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x8 = 0x2aa,0x6
02ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ac 4800       |H   |		Short_Literal	0x0
02ad 4800       |H   |		Short_Literal	0x0
02ae e013       |    |		Load	0x0,0x13
02af 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b0 e010       |    |		Load	0x0,0x10
02b1 e5fd       |    |		Load	0x2,-0x3
02b2 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
02b3 00d8       |    |		Load_Top	At_Offset_0
02b4 0217       |    |		Execute	Heap_Access,All_Reference
02b5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b6 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
02b7 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x9 = 0x2b7,0x7
02b8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0xa = 0x2b8,0x8
02b9 00d9       |    |		Load_Top	At_Offset_1
02ba 0217       |    |		Execute	Heap_Access,All_Reference
02bb 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
02bc e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0xb = 0x2bc,0x9
02bd 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 0217       |    |		Execute	Heap_Access,All_Reference
02c0 2808       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
02c1 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0xc = 0x2c1,0xa
02c2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02c3 00d9       |    |		Load_Top	At_Offset_1
02c4 0217       |    |		Execute	Heap_Access,All_Reference
02c5 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
02c6 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0xd = 0x2c6,0xb
02c7 0217       |    |		Execute	Heap_Access,All_Reference
02c8 2c44       |,D  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x44
02c9 00d9       |    |		Load_Top	At_Offset_1
02ca 0217       |    |		Execute	Heap_Access,All_Reference
02cb 280a       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
02cc 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0xe = 0x2cc,0xc
02cd e5fd       |    |		Load	0x2,-0x3
02ce 0217       |    |		Execute	Heap_Access,All_Reference
02cf 2844       |(D  |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x44
02d0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02d1 0000 0000  |    |		.BLANK	0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02df       |    |		.CONST	0x02df								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0003       |    |		.CONST	0x0003								; Number of locals
02db			INIT_02d8:
02db 029f 0973  |   s|		Declare_Subprogram	INIT_0970,For_Call				; Debug Table 0x7 = .DEBUG	0x02db,0x10d8,0x2802,0x0002,0x0058,0x51a5,0x0000,0x00cf
02dd 029f 098b  |    |		Declare_Subprogram	INIT_0988,For_Call
02df			BODY_02d8:
02df e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x0 = 0x2df,0x1
02e0 0217       |    |		Execute	Heap_Access,All_Reference
02e1 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
02e2 4603       |F   |		Jump_Case	0x4
02e3 780e       |x   |		Jump	0x2f2								; case 0x0
02e4 7804       |x   |		Jump	0x2e9								; case 0x1
02e5 7801       |x   |		Jump	0x2e7								; case 0x2
02e6 7802       |x   |		Jump	0x2e9								; case 0x3
02e7 8402       |    |		Call	0x2,0x2								; Debug Table 0x7.0x1 = 0x2e7,0x2
02e8 780a       |x   |		Jump	0x2f3
02e9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x7.0x2 = 0x2e9,0x3
02ea 00e3       |    |		Load_Encached	Natural_Cache
02eb 025b       | [  |		Execute	Discrete,Check_In_Type
02ec e5fe       |    |		Load	0x2,-0x2
02ed 0217       |    |		Execute	Heap_Access,All_Reference
02ee 2432       |$2  |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x32
02ef e008       |    |		Load	0x0,0x8
02f0 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02f1 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02f2 8403       |    |		Call	0x2,0x3								; Debug Table 0x7.0x3 = 0x2f2,0x4
02f3 4831       |H1  |		Short_Literal	0x31
02f4 0257       | W  |		Execute	Discrete,Raise
02f5 0000 0000  |    |		.XXX[0x3]
02f7 0000       |    |
02f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x58519501}
02fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0300 0000 0000  |    |		.LITERAL	{0x00000000, 0x58519504}
0304 0000 0000  |    |		.LITERAL	{0x00000000, 0x000005f1}
0308 0000 0000  |    |		.LITERAL	{0x00000000, 0x000005e8}
030c 0000 0000  |    |		.LITERAL	{0x00000000, 0x005851a5}
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0320       |    |		.CONST	0x0320								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0008       |    |		.CONST	0x0008								; Number of locals
0313			INIT_0310:
0313 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x8 = .DEBUG	0x0313,0x10e2,0x2802,0x0002,0x0058,0x51a5,0x0000,0x00e3
													; Debug Table 0x8.0x0 = 0x313,0xffff
0314 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0315 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x8.0x1 = 0x315,0xfffe
0316 00c6       |    |		Action	Check_Subprogram_Elaborated
0317 4ffe       |O   |		Short_Literal	-0x2
0318 4802       |H   |		Short_Literal	0x2
0319 0099       |    |		Action	Reference_Dynamic
031a e5fd       |    |		Load	0x2,-0x3
031b 67f0       |g   |		Indirect_Literal	Discrete,0x30c,{0x00000000, 0x005851a5}
031c 6297       |b   |		Indirect_Literal	Discrete,0x5b4,{0x00000000, 0x000008a3}
031d 4807       |H   |		Short_Literal	0x7
031e 029f 09ab  |    |		Declare_Subprogram	INIT_09a8,For_Call
0320			BODY_0310:
0320 8408       |    |		Call	0x2,0x8								; Debug Table 0x8.0x2 = 0x320,0x1
0321 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x3 = 0x321,0x2
0322 7006       |p   |		Jump_Nonzero	0x329
0323 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x4 = 0x323,0x3
0324 4800       |H   |		Short_Literal	0x0
0325 e014       |    |		Load	0x0,0x14
0326 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0327 0334       | 4  |		Declare_Variable	Array,With_Constraint
0328 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0329 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x5 = 0x329,0x4
032a 4803       |H   |		Short_Literal	0x3
032b 4802       |H   |		Short_Literal	0x2
032c 0099       |    |		Action	Reference_Dynamic
032d e404       |    |		Load	0x2,0x4
032e 4805       |H   |		Short_Literal	0x5
032f 4802       |H   |		Short_Literal	0x2
0330 0099       |    |		Action	Reference_Dynamic
0331 8213       |    |		Call	0x1,0x13
0332 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0333 0000 0000  |    |		.BLANK	0000[0x5]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0343       | C  |		.CONST	0x0343								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0003       |    |		.CONST	0x0003								; Number of locals
033b			INIT_0338:
033b e00d       |    |		Load	0x0,0xd								; Debug Table 0x9 = .DEBUG	0x033b,0x10f0,0x0001,0x0000,0x0058,0x51a5,0x0000,0x015c
													; Debug Table 0x9.0x0 = 0x33b,0xffff
033c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
033d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
033e e00d       |    |		Load	0x0,0xd								; Debug Table 0x9.0x1 = 0x33e,0xfffe
033f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0340 02c7       |    |		Declare_Variable	Any
0341 00d8       |    |		Load_Top	At_Offset_0
0342 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0343			BODY_0338:
0343 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x2 = 0x343,0x1
0344 a5fb       |    |		Store_Unchecked	0x2,-0x5
0345 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x3 = 0x345,0x2
0346 0b3f       | ?  |		Execute_Immediate	Case_Compare,0x3f
0347 703b       |p;  |		Jump_Nonzero	0x383
0348 0b3e       | >  |		Execute_Immediate	Case_Compare,0x3e
0349 703c       |p<  |		Jump_Nonzero	0x386
034a e00d       |    |		Load	0x0,0xd								; Debug Table 0x9.0x4 = 0x34a,0x5
034b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
034c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034d 00da       |    |		Load_Top	At_Offset_2
034e 0120       |    |		Execute	Any,Is_Value
034f 6803       |h   |		Jump_Zero	0x353
0350 e00d       |    |		Load	0x0,0xd
0351 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0352 7801       |x   |		Jump	0x354
0353 00da       |    |		Load_Top	At_Offset_2
0354 67a7       |g   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
0355 e00e       |    |		Load	0x0,0xe
0356 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0357 e00f       |    |		Load	0x0,0xf
0358 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0359 e00d       |    |		Load	0x0,0xd
035a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
035b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
035c e5fe       |    |		Load	0x2,-0x2
035d e00d       |    |		Load	0x0,0xd
035e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
035f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0360 c403       |    |		Store	0x2,0x3
0361 005b       | [  |		Store_Top	Discrete,At_Offset_3
0362 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x5 = 0x362,0x6
0363 7007       |p   |		Jump_Nonzero	0x36b
0364 00d9       |    |		Load_Top	At_Offset_1
0365 e00d       |    |		Load	0x0,0xd
0366 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0367 e015       |    |		Load	0x0,0x15
0368 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0369 012f       | /  |		Execute	Any,Equal
036a 6803       |h   |		Jump_Zero	0x36e
036b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x6 = 0x36b,0x7
036c a5fc       |    |		Store_Unchecked	0x2,-0x4
036d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
036e 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x7 = 0x36e,0x8
036f e00d       |    |		Load	0x0,0xd
0370 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0371 e015       |    |		Load	0x0,0x15
0372 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0373 012f       | /  |		Execute	Any,Equal
0374 6803       |h   |		Jump_Zero	0x378
0375 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x8 = 0x375,0x9
0376 a5fc       |    |		Store_Unchecked	0x2,-0x4
0377 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0378 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x9 = 0x378,0xa
0379 a5fc       |    |		Store_Unchecked	0x2,-0x4
037a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0xa = 0x37a,0xb
037b a5fb       |    |		Store_Unchecked	0x2,-0x5
037c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x9.0xb = 0x37c,0xc
037d 0092 0c5a  |   Z|		Action	Push_String_Extended,0xc5a					; " is of the wrong class for code to be restored to it"
037f 01cc       |    |		Execute	Vector,Catenate
0380 e5ff       |    |		Load	0x2,-0x1
0381 8006       |    |		Call	0x0,0x6
0382 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0383 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0xc = 0x383,0x3
0384 a5fc       |    |		Store_Unchecked	0x2,-0x4
0385 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0386 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0xd = 0x386,0x4
0387 a5fc       |    |		Store_Unchecked	0x2,-0x4
0388 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0389 0000 0000  |    |		.BLANK	0000[0x7]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03a0       |    |		.CONST	0x03a0								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0004       |    |		.CONST	0x0004								; Number of locals
0393			INIT_0390:
0393 e00d       |    |		Load	0x0,0xd								; Debug Table 0xa = .DEBUG	0x0393,0x110e,0x0001,0x0000,0x0058,0x51a5,0x0000,0x01eb
													; Debug Table 0xa.0x0 = 0x393,0xffff
0394 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0395 02c7       |    |		Declare_Variable	Any
0396 00d8       |    |		Load_Top	At_Offset_0
0397 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0398 e00d       |    |		Load	0x0,0xd								; Debug Table 0xa.0x1 = 0x398,0xfffe
0399 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
039a 02c7       |    |		Declare_Variable	Any
039b 00d8       |    |		Load_Top	At_Offset_0
039c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
039d e00d       |    |		Load	0x0,0xd								; Debug Table 0xa.0x2 = 0x39d,0xfffd
039e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
039f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a0			BODY_0390:
03a0 e00d       |    |		Load	0x0,0xd								; Debug Table 0xa.0x3 = 0x3a0,0x1
03a1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a3 00db       |    |		Load_Top	At_Offset_3
03a4 0120       |    |		Execute	Any,Is_Value
03a5 6803       |h   |		Jump_Zero	0x3a9
03a6 e00d       |    |		Load	0x0,0xd
03a7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a8 7801       |x   |		Jump	0x3aa
03a9 00db       |    |		Load_Top	At_Offset_3
03aa 6751       |gQ  |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
03ab e00e       |    |		Load	0x0,0xe
03ac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ad e00f       |    |		Load	0x0,0xf
03ae 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03af e00d       |    |		Load	0x0,0xd
03b0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03b1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03b2 e5ff       |    |		Load	0x2,-0x1
03b3 e00d       |    |		Load	0x0,0xd
03b4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03b5 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
03b6 c402       |    |		Store	0x2,0x2
03b7 0059       | Y  |		Store_Top	Discrete,At_Offset_1
03b8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x4 = 0x3b8,0x2
03b9 700e       |p   |		Jump_Nonzero	0x3c8
03ba 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa.0x5 = 0x3ba,0x3
03bb e009       |    |		Load	0x0,0x9
03bc 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
03bd c403       |    |		Store	0x2,0x3
03be 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x6 = 0x3be,0x4
03bf e00d       |    |		Load	0x0,0xd
03c0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03c1 7006       |p   |		Jump_Nonzero	0x3c8
03c2 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xa.0x7 = 0x3c2,0x5
03c3 4800       |H   |		Short_Literal	0x0
03c4 e5fe       |    |		Load	0x2,-0x2
03c5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03c6 e403       |    |		Load	0x2,0x3
03c7 8016       |    |		Call	0x0,0x16
03c8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03c9 0000 0000  |    |		.BLANK	0000[0x7]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03e9       |    |		.CONST	0x03e9								; Address of begin
03d1 047c       | |  |		.CONST	0x047c								; Address of exception handler
03d2 0006       |    |		.CONST	0x0006								; Number of locals
03d3			INIT_03d0:
03d3 e00d       |    |		Load	0x0,0xd								; Debug Table 0xb = .DEBUG	0x03d3,0x1120,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0245
													; Debug Table 0xb.0x0 = 0x3d3,0xffff
03d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03d5 02c7       |    |		Declare_Variable	Any
03d6 00d8       |    |		Load_Top	At_Offset_0
03d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03d8 e00d       |    |		Load	0x0,0xd								; Debug Table 0xb.0x1 = 0x3d8,0xfffe
03d9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03da 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03db 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xb.0x2 = 0x3db,0xfffd
03dc e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x3 = 0x3dc,0xfffc
03dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03de e00e       |    |		Load	0x0,0xe								; Debug Table 0xb.0x4 = 0x3de,0xfffb
03df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03e0 02c7       |    |		Declare_Variable	Any
03e1 e017       |    |		Load	0x0,0x17
03e2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03e3 e5fc       |    |		Load	0x2,-0x4
03e4 0217       |    |		Execute	Heap_Access,All_Reference
03e5 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
03e6 e00e       |    |		Load	0x0,0xe
03e7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03e8 c406       |    |		Store	0x2,0x6
03e9			BODY_03d0:
03e9 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xb.0x5 = 0x3e9,0x1
03ea 6829       |h)  |		Jump_Zero	0x414
03eb e00d       |    |		Load	0x0,0xd								; Debug Table 0xb.0x6 = 0x3eb,0x2
03ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ee e402       |    |		Load	0x2,0x2
03ef 0120       |    |		Execute	Any,Is_Value
03f0 6803       |h   |		Jump_Zero	0x3f4
03f1 e00d       |    |		Load	0x0,0xd
03f2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03f3 7801       |x   |		Jump	0x3f5
03f4 e402       |    |		Load	0x2,0x2
03f5 6706       |g   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
03f6 e00e       |    |		Load	0x0,0xe
03f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f8 e00f       |    |		Load	0x0,0xf
03f9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03fa e00d       |    |		Load	0x0,0xd
03fb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03fc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03fd e5ff       |    |		Load	0x2,-0x1
03fe e00d       |    |		Load	0x0,0xd
03ff 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0400 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0401 c402       |    |		Store	0x2,0x2
0402 c403       |    |		Store	0x2,0x3
0403 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x7 = 0x403,0x3
0404 6801       |h   |		Jump_Zero	0x406
0405 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0xb.0x8 = 0x405,0x4
0406 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x9 = 0x406,0x5
0407 00e1       |    |		Load_Encached	Boolean_Cache
0408 4800       |H   |		Short_Literal	0x0
0409 00db       |    |		Load_Top	At_Offset_3
040a e5fc       |    |		Load	0x2,-0x4
040b 0217       |    |		Execute	Heap_Access,All_Reference
040c 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
040d e402       |    |		Load	0x2,0x2
040e e018       |    |		Load	0x0,0x18
040f 1b72       | r  |		Execute	Package,Field_Read,Field_Number 0x72
0410 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0411 c404       |    |		Store	0x2,0x4
0412 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0413 783e       |x>  |		Jump	0x452
0414 e00d       |    |		Load	0x0,0xd								; Debug Table 0xb.0xa = 0x414,0x6
0415 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0416 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0417 e402       |    |		Load	0x2,0x2
0418 0120       |    |		Execute	Any,Is_Value
0419 6803       |h   |		Jump_Zero	0x41d
041a e00d       |    |		Load	0x0,0xd
041b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
041c 7801       |x   |		Jump	0x41e
041d e402       |    |		Load	0x2,0x2
041e 66dd       |f   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
041f e00e       |    |		Load	0x0,0xe
0420 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0421 e00f       |    |		Load	0x0,0xf
0422 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0423 e00d       |    |		Load	0x0,0xd
0424 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0425 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0426 e5ff       |    |		Load	0x2,-0x1
0427 e00d       |    |		Load	0x0,0xd
0428 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0429 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
042a 0092 0c54  |   T|		Action	Push_String_Extended,0xc54					; "$"
042c 01cc       |    |		Execute	Vector,Catenate
042d e00d       |    |		Load	0x0,0xd
042e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
042f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0430 c402       |    |		Store	0x2,0x2
0431 c403       |    |		Store	0x2,0x3
0432 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0xb = 0x432,0x7
0433 6811       |h   |		Jump_Zero	0x445
0434 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0xc = 0x434,0x8
0435 4801       |H   |		Short_Literal	0x1
0436 4800       |H   |		Short_Literal	0x0
0437 e5fc       |    |		Load	0x2,-0x4
0438 0217       |    |		Execute	Heap_Access,All_Reference
0439 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
043a e00e       |    |		Load	0x0,0xe
043b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
043c c406       |    |		Store	0x2,0x6
043d 0092 0c55  |   U|		Action	Push_String_Extended,0xc55					; "Can't get enclosing world for "
													; Debug Table 0xb.0xd = 0x43d,0x9
043f e5ff       |    |		Load	0x2,-0x1
0440 01cc       |    |		Execute	Vector,Catenate
0441 e5fc       |    |		Load	0x2,-0x4
0442 8006       |    |		Call	0x0,0x6
0443 66bc       |f   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0xb.0xe = 0x443,0xa
0444 0257       | W  |		Execute	Discrete,Raise
0445 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0xf = 0x445,0xb
0446 00e1       |    |		Load_Encached	Boolean_Cache
0447 4800       |H   |		Short_Literal	0x0
0448 00db       |    |		Load_Top	At_Offset_3
0449 e5fc       |    |		Load	0x2,-0x4
044a 0217       |    |		Execute	Heap_Access,All_Reference
044b 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
044c e402       |    |		Load	0x2,0x2
044d e018       |    |		Load	0x0,0x18
044e 1b72       | r  |		Execute	Package,Field_Read,Field_Number 0x72
044f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0450 c404       |    |		Store	0x2,0x4
0451 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0452 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x10 = 0x452,0xc
0453 4801       |H   |		Short_Literal	0x1
0454 e404       |    |		Load	0x2,0x4
0455 e5fc       |    |		Load	0x2,-0x4
0456 0217       |    |		Execute	Heap_Access,All_Reference
0457 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0458 e00e       |    |		Load	0x0,0xe
0459 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
045a c406       |    |		Store	0x2,0x6
045b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x11 = 0x45b,0xd
045c 700f       |p   |		Jump_Nonzero	0x46c
045d 0092 0c5b  |   [|		Action	Push_String_Extended,0xc5b					; "Error while converting code of "
													; Debug Table 0xb.0x12 = 0x45d,0xe
045f e5ff       |    |		Load	0x2,-0x1
0460 01cc       |    |		Execute	Vector,Catenate
0461 e5fc       |    |		Load	0x2,-0x4
0462 8006       |    |		Call	0x0,0x6
0463 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xb.0x13 = 0x463,0xf
0464 0219       |    |		Execute	Heap_Access,All_Read
0465 2c31       |,1  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x31
0466 00d8       |    |		Load_Top	At_Offset_0
0467 00db       |    |		Load_Top	At_Offset_3
0468 e009       |    |		Load	0x0,0x9
0469 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
046a 00d2       |    |		Pop_Control	Pop_Count_2
046b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
046c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xb.0x14 = 0x46c,0x10
046d 6807       |h   |		Jump_Zero	0x475
046e 0092 0c5c  |   \|		Action	Push_String_Extended,0xc5c					; " from pre-delta2 format"
													; Debug Table 0xb.0x15 = 0x46e,0x11
0470 e5fc       |    |		Load	0x2,-0x4
0471 e5fe       |    |		Load	0x2,-0x2
0472 e5ff       |    |		Load	0x2,-0x1
0473 800a       |    |		Call	0x0,0xa
0474 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0475 0092 0c5d  |   ]|		Action	Push_String_Extended,0xc5d					; " as a program library"
													; Debug Table 0xb.0x16 = 0x475,0x12
0477 e5fc       |    |		Load	0x2,-0x4
0478 e5fe       |    |		Load	0x2,-0x2
0479 e5ff       |    |		Load	0x2,-0x1
047a 800a       |    |		Call	0x0,0xa
047b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
047c			TRAP_03d0:
047c 6683       |f   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}
047d 010f       |    |		Execute	Exception,Equal
047e 6802       |h   |		Jump_Zero	0x481
047f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x17 = 0x47f,0x13
0480 0101       |    |		Execute	Exception,Reraise
0481 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x18 = 0x481,0x14
0482 4801       |H   |		Short_Literal	0x1
0483 4800       |H   |		Short_Literal	0x0
0484 e5fc       |    |		Load	0x2,-0x4
0485 0217       |    |		Execute	Heap_Access,All_Reference
0486 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0487 e00e       |    |		Load	0x0,0xe
0488 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0489 c406       |    |		Store	0x2,0x6
048a 0092 0c52  |   R|		Action	Push_String_Extended,0xc52					; "Exception "
													; Debug Table 0xb.0x19 = 0x48a,0x15
048c e00c       |    |		Load	0x0,0xc
048d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
048e 01cc       |    |		Execute	Vector,Catenate
048f 0092 0c5e  |   ^|		Action	Push_String_Extended,0xc5e					; " while converting code for "
0491 01cc       |    |		Execute	Vector,Catenate
0492 e5ff       |    |		Load	0x2,-0x1
0493 01cc       |    |		Execute	Vector,Catenate
0494 e5fc       |    |		Load	0x2,-0x4
0495 8006       |    |		Call	0x0,0x6
0496 6669       |fi  |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x58519504}		; Debug Table 0xb.0x1a = 0x496,0x16
0497 0257       | W  |		Execute	Discrete,Raise
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a4       |    |		.CONST	0x04a4								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0004       |    |		.CONST	0x0004								; Number of locals
049b			INIT_0498:
049b e00d       |    |		Load	0x0,0xd								; Debug Table 0xc = .DEBUG	0x049b,0x1158,0x0002,0x0000,0x0058,0x51a5,0x0000,0x0353
													; Debug Table 0xc.0x0 = 0x49b,0xffff
049c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
049d e00d       |    |		Load	0x0,0xd								; Debug Table 0xc.0x1 = 0x49d,0xfffe
049e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
049f 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
04a0 02c7       |    |		Declare_Variable	Any
04a1 00d8       |    |		Load_Top	At_Offset_0
04a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04a3 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xc.0x2 = 0x4a3,0xfffd
04a4			BODY_0498:
04a4 e00d       |    |		Load	0x0,0xd								; Debug Table 0xc.0x3 = 0x4a4,0x1
04a5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04a6 00da       |    |		Load_Top	At_Offset_2
04a7 0120       |    |		Execute	Any,Is_Value
04a8 6804       |h   |		Jump_Zero	0x4ad
04a9 e00d       |    |		Load	0x0,0xd
04aa 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04ab 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
04ac 7801       |x   |		Jump	0x4ae
04ad 00da       |    |		Load_Top	At_Offset_2
04ae e00d       |    |		Load	0x0,0xd
04af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04b0 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
04b1 664a       |fJ  |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
04b2 4801       |H   |		Short_Literal	0x1
04b3 4800       |H   |		Short_Literal	0x0
04b4 4800       |H   |		Short_Literal	0x0
04b5 e5fe       |    |		Load	0x2,-0x2
04b6 4800       |H   |		Short_Literal	0x0
04b7 e5ff       |    |		Load	0x2,-0x1
04b8 e00d       |    |		Load	0x0,0xd
04b9 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04ba 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04bb e00d       |    |		Load	0x0,0xd
04bc 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
04bd 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
04be 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
04bf c403       |    |		Store	0x2,0x3
04c0 005b       | [  |		Store_Top	Discrete,At_Offset_3
04c1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xc.0x4 = 0x4c1,0x2
04c2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04c3 0000 0000  |    |		.BLANK	0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d7       |    |		.CONST	0x04d7								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0003       |    |		.CONST	0x0003								; Number of locals
04cb			INIT_04c8:
04cb 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xd = .DEBUG	0x04cb,0x1164,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0393
													; Debug Table 0xd.0x0 = 0x4cb,0xffff
04cc e5fd       |    |		Load	0x2,-0x3
04cd e5fe       |    |		Load	0x2,-0x2
04ce 8218       |    |		Call	0x1,0x18
04cf 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
04d0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x1 = 0x4d0,0xfffe
04d1 0217       |    |		Execute	Heap_Access,All_Reference
04d2 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
04d3 e5fd       |    |		Load	0x2,-0x3
04d4 00da       |    |		Load_Top	At_Offset_2
04d5 e003       |    |		Load	0x0,0x3
04d6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04d7			BODY_04c8:
04d7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x2 = 0x4d7,0x1
04d8 01db       |    |		Execute	Vector,Length
04d9 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
04da 6821       |h!  |		Jump_Zero	0x4fc
04db 00cf       |    |		Action	Mark_Auxiliary
04dc 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xd.0x3 = 0x4dc,0x2
04dd 01d9       |    |		Execute	Vector,Reverse_Bounds
04de 0263       | c  |		Execute	Discrete,Above_Bound
04df 7018       |p   |		Jump_Nonzero	0x4f8
04e0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x4 = 0x4e0,0x3
04e1 e403       |    |		Load	0x2,0x3
04e2 01d7       |    |		Execute	Vector,Field_Read
04e3 e00d       |    |		Load	0x0,0xd
04e4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04e5 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
04e6 0092 0c5f  |   _|		Action	Push_String_Extended,0xc5f					; " includes "
04e8 01cc       |    |		Execute	Vector,Catenate
04e9 e5fe       |    |		Load	0x2,-0x2
04ea e00d       |    |		Load	0x0,0xd
04eb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ec 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
04ed 01cc       |    |		Execute	Vector,Catenate
04ee 0092 0c60  |   `|		Action	Push_String_Extended,0xc60					; " in its closure and must be demoted before"
04f0 01cc       |    |		Execute	Vector,Catenate
04f1 0092 0c61  |   a|		Action	Push_String_Extended,0xc61					; " code is restored to the latter"
04f3 01cc       |    |		Execute	Vector,Catenate
04f4 e5ff       |    |		Load	0x2,-0x1
04f5 8019       |    |		Call	0x0,0x19
04f6 00c8       |    |		Action	Pop_Auxiliary_Range
04f7 3fe8       |?   |		Loop_Increasing	0x4e0
04f8 00ce       |    |		Action	Pop_Auxiliary
04f9 4800       |H   |		Short_Literal	0x0							; Debug Table 0xd.0x5 = 0x4f9,0x4
04fa a5fc       |    |		Store_Unchecked	0x2,-0x4
04fb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04fc 4801       |H   |		Short_Literal	0x1							; Debug Table 0xd.0x6 = 0x4fc,0x5
04fd a5fc       |    |		Store_Unchecked	0x2,-0x4
04fe 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04ff 0000       |    |		.XXX[0x1]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 050f       |    |		.CONST	0x050f								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0007       |    |		.CONST	0x0007								; Number of locals
0503			INIT_0500:
0503 e002       |    |		Load	0x0,0x2								; Debug Table 0xe = .DEBUG	0x0503,0x1174,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0407
													; Debug Table 0xe.0x0 = 0x503,0xffff
0504 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0505 e00d       |    |		Load	0x0,0xd								; Debug Table 0xe.0x1 = 0x505,0xfffe
0506 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0507 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0508 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0xe.0x2 = 0x508,0xfffd
0509 e00d       |    |		Load	0x0,0xd								; Debug Table 0xe.0x3 = 0x509,0xfffc
050a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
050b 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0xe.0x4 = 0x50b,0xfffb
050c e00d       |    |		Load	0x0,0xd								; Debug Table 0xe.0x5 = 0x50c,0xfffa
050d 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
050e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
050f			BODY_0500:
050f e00d       |    |		Load	0x0,0xd								; Debug Table 0xe.0x6 = 0x50f,0x1
0510 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0511 e00d       |    |		Load	0x0,0xd
0512 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0513 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0514 65e7       |e   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
0515 e5fe       |    |		Load	0x2,-0x2
0516 4800       |H   |		Short_Literal	0x0
0517 e5ff       |    |		Load	0x2,-0x1
0518 e00d       |    |		Load	0x0,0xd
0519 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
051a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
051b e00d       |    |		Load	0x0,0xd
051c 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
051d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
051e 005a       | Z  |		Store_Top	Discrete,At_Offset_2
051f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0520 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x7 = 0x520,0x2
0521 6818       |h   |		Jump_Zero	0x53a
0522 0092 0c62  |   b|		Action	Push_String_Extended,0xc62					; "Can't get the unit_state of "
													; Debug Table 0xe.0x8 = 0x522,0x3
0524 e5ff       |    |		Load	0x2,-0x1
0525 e00d       |    |		Load	0x0,0xd
0526 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0527 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0528 01cc       |    |		Execute	Vector,Catenate
0529 0092 0c63  |   c|		Action	Push_String_Extended,0xc63					; " ("
052b 01cc       |    |		Execute	Vector,Catenate
052c 00db       |    |		Load_Top	At_Offset_3
052d e00d       |    |		Load	0x0,0xd
052e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
052f 025e       | ^  |		Execute	Discrete,Convert
0530 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0531 01cc       |    |		Execute	Vector,Catenate
0532 0092 0c64  |   d|		Action	Push_String_Extended,0xc64					; ")"
0534 01cc       |    |		Execute	Vector,Catenate
0535 e5fd       |    |		Load	0x2,-0x3
0536 8019       |    |		Call	0x0,0x19
0537 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x9 = 0x537,0x4
0538 a5fc       |    |		Store_Unchecked	0x2,-0x4
0539 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xe.0xa = 0x539,0x5
053a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xe.0xb = 0x53a,0x6
053b 4604       |F   |		Jump_Case	0x5
053c 780e       |x   |		Jump	0x54b								; case 0x0
053d 780d       |x   |		Jump	0x54b								; case 0x1
053e 780c       |x   |		Jump	0x54b								; case 0x2
053f 7801       |x   |		Jump	0x541								; case 0x3
0540 7803       |x   |		Jump	0x544								; case 0x4
0541 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0xc = 0x541,0x7
0542 a5fc       |    |		Store_Unchecked	0x2,-0x4
0543 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xe.0xd = 0x543,0x8
0544 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xe.0xe = 0x544,0x9
0545 e5fe       |    |		Load	0x2,-0x2
0546 e5ff       |    |		Load	0x2,-0x1
0547 e5fd       |    |		Load	0x2,-0x3
0548 8219       |    |		Call	0x1,0x19
0549 c5fc       |    |		Store	0x2,-0x4
054a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xe.0xf = 0x54a,0xa
054b e00d       |    |		Load	0x0,0xd								; Debug Table 0xe.0x10 = 0x54b,0xc
054c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
054d e00d       |    |		Load	0x0,0xd
054e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
054f 65ac       |e   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
0550 e5fe       |    |		Load	0x2,-0x2
0551 4800       |H   |		Short_Literal	0x0
0552 e5ff       |    |		Load	0x2,-0x1
0553 e00d       |    |		Load	0x0,0xd
0554 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
0555 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0556 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0557 005b       | [  |		Store_Top	Discrete,At_Offset_3
0558 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x11 = 0x558,0xd
0559 6818       |h   |		Jump_Zero	0x572
055a 0092 0c65  |   e|		Action	Push_String_Extended,0xc65					; "Can't get declaration for "
													; Debug Table 0xe.0x12 = 0x55a,0xe
055c e5ff       |    |		Load	0x2,-0x1
055d e00d       |    |		Load	0x0,0xd
055e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
055f 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0560 01cc       |    |		Execute	Vector,Catenate
0561 0092 0c63  |   c|		Action	Push_String_Extended,0xc63					; " ("
0563 01cc       |    |		Execute	Vector,Catenate
0564 00db       |    |		Load_Top	At_Offset_3
0565 e00d       |    |		Load	0x0,0xd
0566 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0567 025e       | ^  |		Execute	Discrete,Convert
0568 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0569 01cc       |    |		Execute	Vector,Catenate
056a 0092 0c64  |   d|		Action	Push_String_Extended,0xc64					; ")"
056c 01cc       |    |		Execute	Vector,Catenate
056d e5fd       |    |		Load	0x2,-0x3
056e 8019       |    |		Call	0x0,0x19
056f 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x13 = 0x56f,0xf
0570 a5fc       |    |		Store_Unchecked	0x2,-0x4
0571 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0xe.0x14 = 0x571,0x10
0572 e00d       |    |		Load	0x0,0xd								; Debug Table 0xe.0x15 = 0x572,0x11
0573 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0574 00f1       |    |		Load_Encached	Diana_Temp_Seq
0575 e00d       |    |		Load	0x0,0xd
0576 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0577 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0578 e002       |    |		Load	0x0,0x2
0579 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
057a e406       |    |		Load	0x2,0x6
057b 6580       |e   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00004000}
057c e5fe       |    |		Load	0x2,-0x2
057d 4800       |H   |		Short_Literal	0x0
057e e00d       |    |		Load	0x0,0xd
057f 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0580 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0581 e00d       |    |		Load	0x0,0xd
0582 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0583 4803       |H   |		Short_Literal	0x3
0584 e00d       |    |		Load	0x0,0xd
0585 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0586 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0587 c406       |    |		Store	0x2,0x6
0588 c402       |    |		Store	0x2,0x2
0589 c403       |    |		Store	0x2,0x3
058a c404       |    |		Store	0x2,0x4
058b 005b       | [  |		Store_Top	Discrete,At_Offset_3
058c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe.0x16 = 0x58c,0x12
058d 6820       |h   |		Jump_Zero	0x5ae
058e 0092 0c66  |   f|		Action	Push_String_Extended,0xc66					; "Can't promote loaded_main spec "
													; Debug Table 0xe.0x17 = 0x58e,0x13
0590 e5ff       |    |		Load	0x2,-0x1
0591 e00d       |    |		Load	0x0,0xd
0592 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0593 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0594 01cc       |    |		Execute	Vector,Catenate
0595 0092 0c67  |   g|		Action	Push_String_Extended,0xc67					; " to installed ("
0597 01cc       |    |		Execute	Vector,Catenate
0598 00db       |    |		Load_Top	At_Offset_3
0599 e00d       |    |		Load	0x0,0xd
059a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
059b 025e       | ^  |		Execute	Discrete,Convert
059c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
059d 01cc       |    |		Execute	Vector,Catenate
059e 0092 0c64  |   d|		Action	Push_String_Extended,0xc64					; ")"
05a0 01cc       |    |		Execute	Vector,Catenate
05a1 e5fd       |    |		Load	0x2,-0x3
05a2 8019       |    |		Call	0x0,0x19
05a3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xe.0x18 = 0x5a3,0x14
05a4 0219       |    |		Execute	Heap_Access,All_Read
05a5 2c31       |,1  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x31
05a6 00d8       |    |		Load_Top	At_Offset_0
05a7 e402       |    |		Load	0x2,0x2
05a8 e009       |    |		Load	0x0,0x9
05a9 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
05aa 00d2       |    |		Pop_Control	Pop_Count_2
05ab 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x19 = 0x5ab,0x15
05ac a5fc       |    |		Store_Unchecked	0x2,-0x4
05ad 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05ae 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0x1a = 0x5ae,0x16
05af a5fc       |    |		Store_Unchecked	0x2,-0x4
05b0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05b1 0000 0000  |    |		.XXX[0x3]
05b3 0000       |    |
05b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000008a3}
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05c9       |    |		.CONST	0x05c9								; Address of begin
05b9 0613       |    |		.CONST	0x0613								; Address of exception handler
05ba 0005       |    |		.CONST	0x0005								; Number of locals
05bb			INIT_05b8:
05bb e00d       |    |		Load	0x0,0xd								; Debug Table 0xf = .DEBUG	0x05bb,0x11ac,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0531
													; Debug Table 0xf.0x0 = 0x5bb,0xffff
05bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05bd 02c7       |    |		Declare_Variable	Any
05be 00d8       |    |		Load_Top	At_Offset_0
05bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05c0 e00d       |    |		Load	0x0,0xd								; Debug Table 0xf.0x1 = 0x5c0,0xfffe
05c1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05c2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05c3 e00e       |    |		Load	0x0,0xe								; Debug Table 0xf.0x2 = 0x5c3,0xfffd
05c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c5 02c7       |    |		Declare_Variable	Any
05c6 00d8       |    |		Load_Top	At_Offset_0
05c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05c8 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf.0x3 = 0x5c8,0xfffc
05c9			BODY_05b8:
05c9 e00d       |    |		Load	0x0,0xd								; Debug Table 0xf.0x4 = 0x5c9,0x1
05ca 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05cb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05cc e402       |    |		Load	0x2,0x2
05cd 0120       |    |		Execute	Any,Is_Value
05ce 6803       |h   |		Jump_Zero	0x5d2
05cf e00d       |    |		Load	0x0,0xd
05d0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05d1 7801       |x   |		Jump	0x5d3
05d2 e402       |    |		Load	0x2,0x2
05d3 62e0       |b   |		Indirect_Literal	Discrete,0x8b4,{0x00000000, 0x00004000}
05d4 e00e       |    |		Load	0x0,0xe
05d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05d6 e00f       |    |		Load	0x0,0xf
05d7 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05d8 e00d       |    |		Load	0x0,0xd
05d9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05da 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05db e5fe       |    |		Load	0x2,-0x2
05dc e00d       |    |		Load	0x0,0xd
05dd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05de 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
05df c402       |    |		Store	0x2,0x2
05e0 005b       | [  |		Store_Top	Discrete,At_Offset_3
05e1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf.0x5 = 0x5e1,0x2
05e2 6816       |h   |		Jump_Zero	0x5f9
05e3 0092 0c68  |   h|		Action	Push_String_Extended,0xc68					; "Can't find load_proc spec "
													; Debug Table 0xf.0x6 = 0x5e3,0x3
05e5 e5fe       |    |		Load	0x2,-0x2
05e6 01cc       |    |		Execute	Vector,Catenate
05e7 0092 0c63  |   c|		Action	Push_String_Extended,0xc63					; " ("
05e9 01cc       |    |		Execute	Vector,Catenate
05ea 00db       |    |		Load_Top	At_Offset_3
05eb e00d       |    |		Load	0x0,0xd
05ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05ee 025e       | ^  |		Execute	Discrete,Convert
05ef 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05f0 01cc       |    |		Execute	Vector,Catenate
05f1 0092 0c64  |   d|		Action	Push_String_Extended,0xc64					; ")"
05f3 01cc       |    |		Execute	Vector,Catenate
05f4 e5ff       |    |		Load	0x2,-0x1
05f5 8006       |    |		Call	0x0,0x6
05f6 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf.0x7 = 0x5f6,0x4
05f7 a5fd       |    |		Store_Unchecked	0x2,-0x3
05f8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; Debug Table 0xf.0x8 = 0x5f8,0x5
05f9 e017       |    |		Load	0x0,0x17							; Debug Table 0xf.0x9 = 0x5f9,0x6
05fa 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05fb e5ff       |    |		Load	0x2,-0x1
05fc 0217       |    |		Execute	Heap_Access,All_Reference
05fd 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
05fe e00e       |    |		Load	0x0,0xe
05ff 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0600 c404       |    |		Store	0x2,0x4
0601 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xf.0xa = 0x601,0x7
0602 e5ff       |    |		Load	0x2,-0x1
0603 00db       |    |		Load_Top	At_Offset_3
0604 e402       |    |		Load	0x2,0x2
0605 821a       |    |		Call	0x1,0x1a
0606 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0607 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xf.0xb = 0x607,0x8
0608 4801       |H   |		Short_Literal	0x1
0609 00da       |    |		Load_Top	At_Offset_2
060a e5ff       |    |		Load	0x2,-0x1
060b 0217       |    |		Execute	Heap_Access,All_Reference
060c 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
060d e00e       |    |		Load	0x0,0xe
060e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
060f c404       |    |		Store	0x2,0x4
0610 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0xc = 0x610,0x9
0611 a5fd       |    |		Store_Unchecked	0x2,-0x3
0612 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0613			TRAP_05b8:
0613 0007       |    |		Action	Break_Optional
0614 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf.0xd = 0x614,0xa
0615 4801       |H   |		Short_Literal	0x1
0616 4800       |H   |		Short_Literal	0x0
0617 e5ff       |    |		Load	0x2,-0x1
0618 0217       |    |		Execute	Heap_Access,All_Reference
0619 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
061a e00e       |    |		Load	0x0,0xe
061b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
061c c404       |    |		Store	0x2,0x4
061d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xf.0xe = 0x61d,0xb
061e 0101       |    |		Execute	Exception,Reraise
061f 0000       |    |		.XXX[0x1]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 062a       | *  |		.CONST	0x062a								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0003       |    |		.CONST	0x0003								; Number of locals
0623			INIT_0620:
0623 e01a       |    |		Load	0x0,0x1a							; Debug Table 0x10 = .DEBUG	0x0623,0x11cc,0x0002,0x0000,0x0058,0x51a5,0x0000,0x075e
													; Debug Table 0x10.0x0 = 0x623,0xffff
0624 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0625 0322       | "  |		Declare_Variable	Record
0626 00d8       |    |		Load_Top	At_Offset_0
0627 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0628 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x10.0x1 = 0x628,0xfffe
0629 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
062a			BODY_0620:
062a e01b       |    |		Load	0x0,0x1b							; Debug Table 0x10.0x2 = 0x62a,0x1
062b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
062c 00da       |    |		Load_Top	At_Offset_2
062d e5fe       |    |		Load	0x2,-0x2
062e 6281       |b   |		Indirect_Literal	Discrete,0x8b0,{0x00000000, 0x00028000}
062f e5ff       |    |		Load	0x2,-0x1
0630 e00d       |    |		Load	0x0,0xd
0631 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0632 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0633 e01a       |    |		Load	0x0,0x1a
0634 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0635 00d1       |    |		Pop_Control	Pop_Count_1
0636 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0637 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x10.0x3 = 0x637,0x2
0638 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0639 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
063a 0000 0000  |    |		.BLANK	0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11 = .DEBUG	0x0643,0x11d6,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0799
													; Debug Table 0x11.0x0 = 0x643,0x1
0644 6816       |h   |		Jump_Zero	0x65b
0645 0092 0c69  |   i|		Action	Push_String_Extended,0xc69					; "While restoring code for "
													; Debug Table 0x11.0x1 = 0x645,0x2
0647 e5fd       |    |		Load	0x2,-0x3
0648 01cc       |    |		Execute	Vector,Catenate
0649 0092 0c6a  |   j|		Action	Push_String_Extended,0xc6a					; ", bad status "
064b 01cc       |    |		Execute	Vector,Catenate
064c e5fe       |    |		Load	0x2,-0x2
064d 01cc       |    |		Execute	Vector,Catenate
064e 0092 0c6b  |   k|		Action	Push_String_Extended,0xc6b					; ": "
0650 01cc       |    |		Execute	Vector,Catenate
0651 e5fc       |    |		Load	0x2,-0x4
0652 e01b       |    |		Load	0x0,0x1b
0653 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0654 025e       | ^  |		Execute	Discrete,Convert
0655 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0656 01cc       |    |		Execute	Vector,Catenate
0657 00db       |    |		Load_Top	At_Offset_3
0658 8019       |    |		Call	0x0,0x19
0659 6252       |bR  |		Indirect_Literal	Discrete,0x8ac,{0x00000000, 0x5851a501}		; Debug Table 0x11.0x2 = 0x659,0x3
065a 0257       | W  |		Execute	Discrete,Raise
065b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
065c 0000 0000  |    |		.BLANK	0000[0x4]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 067b       | {  |		.CONST	0x067b								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 000b       |    |		.CONST	0x000b								; Number of locals
0663			INIT_0660:
0663 029f 09db  |    |		Declare_Subprogram	INIT_09d8,For_Call				; Debug Table 0x12 = .DEBUG	0x0663,0x11de,0x0001,0x0000,0x0058,0x51a5,0x0000,0x07e0
													; Debug Table 0x12.0x0 = 0x663,0xffff
0665 029f 09f3  |    |		Declare_Subprogram	INIT_09f0,For_Call				; Debug Table 0x12.0x1 = 0x665,0xfffe
0667 029f 0a03  |    |		Declare_Subprogram	INIT_0a00,For_Call				; Debug Table 0x12.0x2 = 0x667,0xfffd
0669 e01c       |    |		Load	0x0,0x1c							; Debug Table 0x12.0x3 = 0x669,0xfffc
066a 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
066b 00c6       |    |		Action	Check_Subprogram_Elaborated
066c e001       |    |		Load	0x0,0x1
066d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
066e 4804       |H   |		Short_Literal	0x4
066f 4802       |H   |		Short_Literal	0x2
0670 0099       |    |		Action	Reference_Dynamic
0671 4802       |H   |		Short_Literal	0x2
0672 4802       |H   |		Short_Literal	0x2
0673 0099       |    |		Action	Reference_Dynamic
0674 4803       |H   |		Short_Literal	0x3
0675 4802       |H   |		Short_Literal	0x2
0676 0099       |    |		Action	Reference_Dynamic
0677 6230       |b0  |		Indirect_Literal	Discrete,0x8a8,{0x00000000, 0x005851a5}
0678 622b       |b+  |		Indirect_Literal	Discrete,0x8a4,{0x00000000, 0x0000087a}
0679 480b       |H   |		Short_Literal	0xb
067a 0007       |    |		Action	Break_Optional
067b			BODY_0660:
067b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x12.0x4 = 0x67b,0x1
067c 4801       |H   |		Short_Literal	0x1
067d e405       |    |		Load	0x2,0x5
067e 4806       |H   |		Short_Literal	0x6
067f 4802       |H   |		Short_Literal	0x2
0680 0099       |    |		Action	Reference_Dynamic
0681 4807       |H   |		Short_Literal	0x7
0682 4802       |H   |		Short_Literal	0x2
0683 0099       |    |		Action	Reference_Dynamic
0684 4808       |H   |		Short_Literal	0x8
0685 4802       |H   |		Short_Literal	0x2
0686 0099       |    |		Action	Reference_Dynamic
0687 4809       |H   |		Short_Literal	0x9
0688 4802       |H   |		Short_Literal	0x2
0689 0099       |    |		Action	Reference_Dynamic
068a e01c       |    |		Load	0x0,0x1c
068b 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
068c c5fc       |    |		Store	0x2,-0x4
068d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
068e 0000 0000  |    |		.XXX[0x2]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 06a9       |    |		.CONST	0x06a9								; Address of begin
0691 06d3       |    |		.CONST	0x06d3								; Address of exception handler
0692 000c       |    |		.CONST	0x000c								; Number of locals
0693			INIT_0690:
0693 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x13 = .DEBUG	0x0693,0x11ea,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0908
													; Debug Table 0x13.0x0 = 0x693,0xffff
0694 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x13.0x1 = 0x694,0xfffe
0695 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0696 e211       |    |		Load	0x1,0x11							; Debug Table 0x13.0x2 = 0x696,0xfffd
0697 0007       |    |		Action	Break_Optional
0698 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x13.0x3 = 0x698,0xfffc
0699 00c6       |    |		Action	Check_Subprogram_Elaborated
069a 4ff7       |O   |		Short_Literal	-0x9
069b 4802       |H   |		Short_Literal	0x2
069c 0099       |    |		Action	Reference_Dynamic
069d 620a       |b   |		Indirect_Literal	Discrete,0x8a8,{0x00000000, 0x005851a5}
069e 6201       |b   |		Indirect_Literal	Discrete,0x8a0,{0x00000000, 0x00000953}
069f 4808       |H   |		Short_Literal	0x8
06a0 0007       |    |		Action	Break_Optional
06a1 029f 0a1b  |    |		Declare_Subprogram	INIT_0a18,For_Call				; Debug Table 0x13.0x4 = 0x6a1,0xfffb
06a3 029f 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Call				; Debug Table 0x13.0x5 = 0x6a3,0xfffa
06a5 029f 0abb  |    |		Declare_Subprogram	INIT_0ab8,For_Call				; Debug Table 0x13.0x6 = 0x6a5,0xfff9
06a7 029f 0b6b  |   k|		Declare_Subprogram	INIT_0b68,For_Call				; Debug Table 0x13.0x7 = 0x6a7,0xfff8
06a9			BODY_0690:
06a9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x13.0x8 = 0x6a9,0x1
06aa a5f6       |    |		Store_Unchecked	0x2,-0xa
06ab 00cf       |    |		Action	Mark_Auxiliary
06ac 0007       |    |		Action	Break_Optional							; Debug Table 0x13.0x9 = 0x6ac,0x2
06ad 8409       |    |		Call	0x2,0x9								; Debug Table 0x13.0xa = 0x6ad,0x3
06ae a402       |    |		Store_Unchecked	0x2,0x2
06af e402       |    |		Load	0x2,0x2								; Debug Table 0x13.0xb = 0x6af,0x4
06b0 6813       |h   |		Jump_Zero	0x6c4
06b1 e403       |    |		Load	0x2,0x3								; Debug Table 0x13.0xc = 0x6b1,0x5
06b2 0a01       |    |		Execute_Immediate	Plus,0x1
06b3 0248       | H  |		Execute	Discrete,Check_In_Integer
06b4 a403       |    |		Store_Unchecked	0x2,0x3
06b5 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x13.0xd = 0x6b5,0x6
06b6 6806       |h   |		Jump_Zero	0x6bd
06b7 e402       |    |		Load	0x2,0x2								; Debug Table 0x13.0xe = 0x6b7,0x7
06b8 e01d       |    |		Load	0x0,0x1d
06b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06ba 025b       | [  |		Execute	Discrete,Check_In_Type
06bb 840b       |    |		Call	0x2,0xb
06bc 7805       |x   |		Jump	0x6c2
06bd e402       |    |		Load	0x2,0x2								; Debug Table 0x13.0xf = 0x6bd,0x8
06be e01d       |    |		Load	0x0,0x1d
06bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
06c0 025b       | [  |		Execute	Discrete,Check_In_Type
06c1 840a       |    |		Call	0x2,0xa
06c2 00c9       |    |		Action	Pop_Auxiliary_Loop
06c3 7fe9       |    |		Jump	0x6ad
06c4 00ce       |    |		Action	Pop_Auxiliary
06c5 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x13.0x10 = 0x6c5,0x9
06c6 6801       |h   |		Jump_Zero	0x6c8
06c7 840c       |    |		Call	0x2,0xc								; Debug Table 0x13.0x11 = 0x6c7,0xa
06c8 e403       |    |		Load	0x2,0x3								; Debug Table 0x13.0x12 = 0x6c8,0xb
06c9 00e0       |    |		Load_Encached	Standard_Cache
06ca 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
06cb 0092 0c6c  |   l|		Action	Push_String_Extended,0xc6c					; " code segments read for "
06cd 01cc       |    |		Execute	Vector,Catenate
06ce e5fe       |    |		Load	0x2,-0x2
06cf 01cc       |    |		Execute	Vector,Catenate
06d0 e5ff       |    |		Load	0x2,-0x1
06d1 801e       |    |		Call	0x0,0x1e
06d2 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
06d3			TRAP_0690:
06d3 61d8       |a   |		Indirect_Literal	Discrete,0x8ac,{0x00000000, 0x5851a501}
06d4 010f       |    |		Execute	Exception,Equal
06d5 681e       |h   |		Jump_Zero	0x6f4
06d6 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0x13 = 0x6d6,0xc
06d7 0219       |    |		Execute	Heap_Access,All_Read
06d8 e5ff       |    |		Load	0x2,-0x1
06d9 0219       |    |		Execute	Heap_Access,All_Read
06da 2c32       |,2  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x32
06db 00d9       |    |		Load_Top	At_Offset_1
06dc 2c4d       |,M  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4d
06dd 00d9       |    |		Load_Top	At_Offset_1
06de e5ff       |    |		Load	0x2,-0x1
06df 0217       |    |		Execute	Heap_Access,All_Reference
06e0 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
06e1 e5fd       |    |		Load	0x2,-0x3
06e2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
06e3 0275       | u  |		Execute	Discrete,Unary_Minus
06e4 0248       | H  |		Execute	Discrete,Check_In_Integer
06e5 e5fd       |    |		Load	0x2,-0x3
06e6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06e7 0272       | r  |		Execute	Discrete,Minus
06e8 e5f7       |    |		Load	0x2,-0x9
06e9 0272       | r  |		Execute	Discrete,Minus
06ea 0248       | H  |		Execute	Discrete,Check_In_Integer
06eb e008       |    |		Load	0x0,0x8
06ec 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
06ed 00d1       |    |		Pop_Control	Pop_Count_1
06ee 00da       |    |		Load_Top	At_Offset_2
06ef 284d       |(M  |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4d
06f0 00d2       |    |		Pop_Control	Pop_Count_2
06f1 4800       |H   |		Short_Literal	0x0							; Debug Table 0x13.0x14 = 0x6f1,0xd
06f2 a5f6       |    |		Store_Unchecked	0x2,-0xa
06f3 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
06f4 0100       |    |		Execute	Exception,Raise
06f5 0000 0000  |    |		.XXX[0x3]
06f7 0000       |    |
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0741       | A  |		.CONST	0x0741								; Address of begin
06f9 088d       |    |		.CONST	0x088d								; Address of exception handler
06fa 0015       |    |		.CONST	0x0015								; Number of locals
06fb			INIT_06f8:
06fb e018       |    |		Load	0x0,0x18							; Debug Table 0x14 = .DEBUG	0x06fb,0x1216,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0c24
													; Debug Table 0x14.0x0 = 0x6fb,0xffff
06fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06fd 02c7       |    |		Declare_Variable	Any
06fe 00d8       |    |		Load_Top	At_Offset_0
06ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0700 e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x1 = 0x700,0xfffe
0701 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0702 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0703 02c7       |    |		Declare_Variable	Any
0704 00d8       |    |		Load_Top	At_Offset_0
0705 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0706 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x14.0x2 = 0x706,0xfffd
0707 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x14.0x3 = 0x707,0xfffc
0708 e01f       |    |		Load	0x0,0x1f							; Debug Table 0x14.0x4 = 0x708,0xfffb
0709 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
070a 02ff       |    |		Declare_Variable	Variant_Record
070b 00d8       |    |		Load_Top	At_Offset_0
070c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
070d e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x5 = 0x70d,0xfffa
070e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
070f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0710 e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x6 = 0x710,0xfff9
0711 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0712 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0713 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0714 e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x7 = 0x714,0xfff8
0715 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0716 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0717 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0718 e002       |    |		Load	0x0,0x2								; Debug Table 0x14.0x8 = 0x718,0xfff7
0719 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
071a e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x9 = 0x71a,0xfff6
071b 1b64       | d  |		Execute	Package,Field_Read,Field_Number 0x64
071c 0322       | "  |		Declare_Variable	Record
071d 00d8       |    |		Load_Top	At_Offset_0
071e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
071f 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x14.0xa = 0x71f,0xfff5
0720 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0721 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x14.0xb = 0x721,0xfff4
0722 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x14.0xc = 0x722,0xfff3
0723 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0724 e00d       |    |		Load	0x0,0xd								; Debug Table 0x14.0xd = 0x724,0xfff2
0725 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0726 02c7       |    |		Declare_Variable	Any
0727 00d8       |    |		Load_Top	At_Offset_0
0728 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0729 e00e       |    |		Load	0x0,0xe								; Debug Table 0x14.0xe = 0x729,0xfff1
072a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
072b 02c7       |    |		Declare_Variable	Any
072c e017       |    |		Load	0x0,0x17
072d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
072e e5fc       |    |		Load	0x2,-0x4
072f 0217       |    |		Execute	Heap_Access,All_Reference
0730 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0731 e00e       |    |		Load	0x0,0xe
0732 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0733 c410       |    |		Store	0x2,0x10
0734 029f 0b9b  |    |		Declare_Subprogram	INIT_0b98,For_Call				; Debug Table 0x14.0xf = 0x734,0xfff0
0736 e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x10 = 0x736,0xffef
0737 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0738 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0739 00c6       |    |		Action	Check_Subprogram_Elaborated
073a 4811       |H   |		Short_Literal	0x11
073b 4802       |H   |		Short_Literal	0x2
073c 0099       |    |		Action	Reference_Dynamic
073d 616a       |aj  |		Indirect_Literal	Discrete,0x8a8,{0x00000000, 0x005851a5}
073e 615d       |a]  |		Indirect_Literal	Discrete,0x89c,{0x00000000, 0x00000cc8}
073f 4815       |H   |		Short_Literal	0x15
0740 0007       |    |		Action	Break_Optional
0741			BODY_06f8:
0741 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x11 = 0x741,0x1
0742 4800       |H   |		Short_Literal	0x0
0743 4801       |H   |		Short_Literal	0x1
0744 e002       |    |		Load	0x0,0x2
0745 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0746 e410       |    |		Load	0x2,0x10
0747 e5fc       |    |		Load	0x2,-0x4
0748 0217       |    |		Execute	Heap_Access,All_Reference
0749 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
074a e018       |    |		Load	0x0,0x18
074b 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
074c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
074d c403       |    |		Store	0x2,0x3
074e e402       |    |		Load	0x2,0x2								; Debug Table 0x14.0x12 = 0x74e,0x2
074f 0120       |    |		Execute	Any,Is_Value
0750 6803       |h   |		Jump_Zero	0x754
0751 e018       |    |		Load	0x0,0x18
0752 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0753 7801       |x   |		Jump	0x755
0754 e402       |    |		Load	0x2,0x2
0755 4800       |H   |		Short_Literal	0x0
0756 e5fe       |    |		Load	0x2,-0x2
0757 e403       |    |		Load	0x2,0x3
0758 e018       |    |		Load	0x0,0x18
0759 1b6a       | j  |		Execute	Package,Field_Read,Field_Number 0x6a
075a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
075b c402       |    |		Store	0x2,0x2
075c e403       |    |		Load	0x2,0x3								; Debug Table 0x14.0x13 = 0x75c,0x3
075d e018       |    |		Load	0x0,0x18
075e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
075f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0760 701b       |p   |		Jump_Nonzero	0x77c
0761 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x14 = 0x761,0x4
0762 0219       |    |		Execute	Heap_Access,All_Read
0763 2c31       |,1  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x31
0764 00d8       |    |		Load_Top	At_Offset_0
0765 e403       |    |		Load	0x2,0x3
0766 e018       |    |		Load	0x0,0x18
0767 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0768 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0769 e009       |    |		Load	0x0,0x9
076a 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
076b 00d2       |    |		Pop_Control	Pop_Count_2
076c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x15 = 0x76c,0x5
076d e5fc       |    |		Load	0x2,-0x4
076e e5fd       |    |		Load	0x2,-0x3
076f 8005       |    |		Call	0x0,0x5
0770 e410       |    |		Load	0x2,0x10							; Debug Table 0x14.0x16 = 0x770,0x6
0771 4801       |H   |		Short_Literal	0x1
0772 4800       |H   |		Short_Literal	0x0
0773 e5fc       |    |		Load	0x2,-0x4
0774 0217       |    |		Execute	Heap_Access,All_Reference
0775 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0776 e00e       |    |		Load	0x0,0xe
0777 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0778 c410       |    |		Store	0x2,0x10
0779 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x17 = 0x779,0x7
077a a5fb       |    |		Store_Unchecked	0x2,-0x5
077b 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x14.0x18 = 0x77b,0x8
077c e402       |    |		Load	0x2,0x2								; Debug Table 0x14.0x19 = 0x77c,0x9
077d e018       |    |		Load	0x0,0x18
077e 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
077f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0780 c40f       |    |		Store	0x2,0xf
0781 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x14.0x1a = 0x781,0xa
0782 e018       |    |		Load	0x0,0x18
0783 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0784 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0785 e402       |    |		Load	0x2,0x2
0786 e403       |    |		Load	0x2,0x3
0787 e018       |    |		Load	0x0,0x18
0788 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0789 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
078a c407       |    |		Store	0x2,0x7
078b c405       |    |		Store	0x2,0x5
078c e405       |    |		Load	0x2,0x5								; Debug Table 0x14.0x1b = 0x78c,0xb
078d 7014       |p   |		Jump_Nonzero	0x7a2
078e 0092 0c6d  |   m|		Action	Push_String_Extended,0xc6d					; "Can't find program_library header after create"
													; Debug Table 0x14.0x1c = 0x78e,0xc
0790 e5fc       |    |		Load	0x2,-0x4
0791 8019       |    |		Call	0x0,0x19
0792 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x1d = 0x792,0xd
0793 e5fc       |    |		Load	0x2,-0x4
0794 e5fd       |    |		Load	0x2,-0x3
0795 8005       |    |		Call	0x0,0x5
0796 e410       |    |		Load	0x2,0x10							; Debug Table 0x14.0x1e = 0x796,0xe
0797 4801       |H   |		Short_Literal	0x1
0798 4800       |H   |		Short_Literal	0x0
0799 e5fc       |    |		Load	0x2,-0x4
079a 0217       |    |		Execute	Heap_Access,All_Reference
079b 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
079c e00e       |    |		Load	0x0,0xe
079d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
079e c410       |    |		Store	0x2,0x10
079f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x1f = 0x79f,0xf
07a0 a5fb       |    |		Store_Unchecked	0x2,-0x5
07a1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x14.0x20 = 0x7a1,0x10
07a2 e407       |    |		Load	0x2,0x7								; Debug Table 0x14.0x21 = 0x7a2,0x11
07a3 0217       |    |		Execute	Heap_Access,All_Reference
07a4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07a5 e01f       |    |		Load	0x0,0x1f
07a6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
07a7 e406       |    |		Load	0x2,0x6
07a8 016d       | m  |		Execute	Variant_Record,Structure_Write
07a9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x22 = 0x7a9,0x12
07aa 0217       |    |		Execute	Heap_Access,All_Reference
07ab 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
07ac 0f01       |    |		Execute_Immediate	Equal,0x1
07ad 6807       |h   |		Jump_Zero	0x7b5
07ae e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x23 = 0x7ae,0x13
07af e5fd       |    |		Load	0x2,-0x3
07b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07b1 e5fc       |    |		Load	0x2,-0x4
07b2 0217       |    |		Execute	Heap_Access,All_Reference
07b3 2432       |$2  |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x32
07b4 8007       |    |		Call	0x0,0x7
07b5 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x24 = 0x7b5,0x14
07b6 0219       |    |		Execute	Heap_Access,All_Read
07b7 2c32       |,2  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x32
07b8 00d8       |    |		Load_Top	At_Offset_0
07b9 e5fd       |    |		Load	0x2,-0x3
07ba 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
07bb e402       |    |		Load	0x2,0x2
07bc e008       |    |		Load	0x0,0x8
07bd 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
07be 00d2       |    |		Pop_Control	Pop_Count_2
07bf e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x25 = 0x7bf,0x15
07c0 0217       |    |		Execute	Heap_Access,All_Reference
07c1 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
07c2 4603       |F   |		Jump_Case	0x4
07c3 780f       |x   |		Jump	0x7d3								; case 0x0
07c4 7802       |x   |		Jump	0x7c7								; case 0x1
07c5 781a       |x   |		Jump	0x7e0								; case 0x2
07c6 7819       |x   |		Jump	0x7e0								; case 0x3
07c7 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x26 = 0x7c7,0x16
07c8 e5fd       |    |		Load	0x2,-0x3
07c9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07ca e5fd       |    |		Load	0x2,-0x3
07cb 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
07cc 0273       | s  |		Execute	Discrete,Plus
07cd 0248       | H  |		Execute	Discrete,Check_In_Integer
07ce e5fc       |    |		Load	0x2,-0x4
07cf 0217       |    |		Execute	Heap_Access,All_Reference
07d0 2432       |$2  |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x32
07d1 8007       |    |		Call	0x0,0x7
07d2 780d       |x   |		Jump	0x7e0
07d3 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x27 = 0x7d3,0x17
07d4 0219       |    |		Execute	Heap_Access,All_Read
07d5 00d8       |    |		Load_Top	At_Offset_0
07d6 2c4d       |,M  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4d
07d7 e5fc       |    |		Load	0x2,-0x4
07d8 0217       |    |		Execute	Heap_Access,All_Reference
07d9 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
07da 4800       |H   |		Short_Literal	0x0
07db e008       |    |		Load	0x0,0x8
07dc 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
07dd 00d9       |    |		Load_Top	At_Offset_1
07de 284d       |(M  |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4d
07df 00d1       |    |		Pop_Control	Pop_Count_1
07e0 e402       |    |		Load	0x2,0x2								; Debug Table 0x14.0x28 = 0x7e0,0x19
07e1 e018       |    |		Load	0x0,0x18
07e2 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
07e3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
07e4 e40b       |    |		Load	0x2,0xb
07e5 017d       | }  |		Execute	Record,Structure_Write
07e6 e40b       |    |		Load	0x2,0xb								; Debug Table 0x14.0x29 = 0x7e6,0x1a
07e7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
07e8 4801       |H   |		Short_Literal	0x1
07e9 4803       |H   |		Short_Literal	0x3
07ea 0262       | b  |		Execute	Discrete,In_Range
07eb a40d       |    |		Store_Unchecked	0x2,0xd
07ec e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x2a = 0x7ec,0x1b
07ed 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
07ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07ef 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
07f0 e5fc       |    |		Load	0x2,-0x4
07f1 0217       |    |		Execute	Heap_Access,All_Reference
07f2 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
07f3 e018       |    |		Load	0x0,0x18
07f4 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
07f5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07f6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
07f7 c408       |    |		Store	0x2,0x8
07f8 e018       |    |		Load	0x0,0x18							; Debug Table 0x14.0x2b = 0x7f8,0x1c
07f9 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
07fa 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
07fb 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
07fc e5fc       |    |		Load	0x2,-0x4
07fd 0217       |    |		Execute	Heap_Access,All_Reference
07fe 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
07ff e018       |    |		Load	0x0,0x18
0800 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0801 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0802 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0803 c409       |    |		Store	0x2,0x9
0804 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x14.0x2c = 0x804,0x1d
0805 e40c       |    |		Load	0x2,0xc
0806 e409       |    |		Load	0x2,0x9
0807 e408       |    |		Load	0x2,0x8
0808 e410       |    |		Load	0x2,0x10
0809 e410       |    |		Load	0x2,0x10
080a e40f       |    |		Load	0x2,0xf
080b 821c       |    |		Call	0x1,0x1c
080c e40d       |    |		Load	0x2,0xd
080d e5fd       |    |		Load	0x2,-0x3
080e e5ff       |    |		Load	0x2,-0x1
080f e5fc       |    |		Load	0x2,-0x4
0810 821f       |    |		Call	0x1,0x1f
0811 c408       |    |		Store	0x2,0x8
0812 c409       |    |		Store	0x2,0x9
0813 c40c       |    |		Store	0x2,0xc
0814 c404       |    |		Store	0x2,0x4
0815 e404       |    |		Load	0x2,0x4								; Debug Table 0x14.0x2d = 0x815,0x1e
0816 700c       |p   |		Jump_Nonzero	0x823
0817 e410       |    |		Load	0x2,0x10							; Debug Table 0x14.0x2e = 0x817,0x1f
0818 4801       |H   |		Short_Literal	0x1
0819 4800       |H   |		Short_Literal	0x0
081a e5fc       |    |		Load	0x2,-0x4
081b 0217       |    |		Execute	Heap_Access,All_Reference
081c 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
081d e00e       |    |		Load	0x0,0xe
081e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
081f c410       |    |		Store	0x2,0x10
0820 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x2f = 0x820,0x20
0821 a5fb       |    |		Store_Unchecked	0x2,-0x5
0822 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x14.0x30 = 0x822,0x21
0823 e406       |    |		Load	0x2,0x6								; Debug Table 0x14.0x31 = 0x823,0x22
0824 e407       |    |		Load	0x2,0x7
0825 0217       |    |		Execute	Heap_Access,All_Reference
0826 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0827 e01f       |    |		Load	0x0,0x1f
0828 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0829 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x14.0x32 = 0x829,0x23
082a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
082b e410       |    |		Load	0x2,0x10
082c 4801       |H   |		Short_Literal	0x1
082d e406       |    |		Load	0x2,0x6
082e e01f       |    |		Load	0x0,0x1f
082f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0830 c40e       |    |		Store	0x2,0xe
0831 e40a       |    |		Load	0x2,0xa								; Debug Table 0x14.0x33 = 0x831,0x24
0832 00e1       |    |		Load_Encached	Boolean_Cache
0833 e410       |    |		Load	0x2,0x10
0834 e5fc       |    |		Load	0x2,-0x4
0835 0217       |    |		Execute	Heap_Access,All_Reference
0836 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
0837 e5fc       |    |		Load	0x2,-0x4
0838 0217       |    |		Execute	Heap_Access,All_Reference
0839 2c54       |,T  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x54
083a 021d       |    |		Execute	Heap_Access,Is_Null
083b 0f00       |    |		Execute_Immediate	Equal,0x0
083c e402       |    |		Load	0x2,0x2
083d e409       |    |		Load	0x2,0x9
083e e408       |    |		Load	0x2,0x8
083f e403       |    |		Load	0x2,0x3
0840 4812       |H   |		Short_Literal	0x12
0841 4802       |H   |		Short_Literal	0x2
0842 0099       |    |		Action	Reference_Dynamic
0843 4813       |H   |		Short_Literal	0x13
0844 4802       |H   |		Short_Literal	0x2
0845 0099       |    |		Action	Reference_Dynamic
0846 e018       |    |		Load	0x0,0x18
0847 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0848 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0849 c404       |    |		Store	0x2,0x4
084a c40a       |    |		Store	0x2,0xa
084b e404       |    |		Load	0x2,0x4								; Debug Table 0x14.0x34 = 0x84b,0x25
084c 7014       |p   |		Jump_Nonzero	0x861
084d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x35 = 0x84d,0x26
084e 0219       |    |		Execute	Heap_Access,All_Read
084f 2c31       |,1  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x31
0850 00d8       |    |		Load_Top	At_Offset_0
0851 e40a       |    |		Load	0x2,0xa
0852 e009       |    |		Load	0x0,0x9
0853 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0854 00d2       |    |		Pop_Control	Pop_Count_2
0855 e410       |    |		Load	0x2,0x10							; Debug Table 0x14.0x36 = 0x855,0x27
0856 4801       |H   |		Short_Literal	0x1
0857 4800       |H   |		Short_Literal	0x0
0858 e5fc       |    |		Load	0x2,-0x4
0859 0217       |    |		Execute	Heap_Access,All_Reference
085a 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
085b e00e       |    |		Load	0x0,0xe
085c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
085d c410       |    |		Store	0x2,0x10
085e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x37 = 0x85e,0x28
085f a5fb       |    |		Store_Unchecked	0x2,-0x5
0860 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x14.0x38 = 0x860,0x29
0861 e403       |    |		Load	0x2,0x3								; Debug Table 0x14.0x39 = 0x861,0x2a
0862 e018       |    |		Load	0x0,0x18
0863 1b6a       | j  |		Execute	Package,Field_Read,Field_Number 0x6a
0864 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0865 e403       |    |		Load	0x2,0x3								; Debug Table 0x14.0x3a = 0x865,0x2b
0866 e018       |    |		Load	0x0,0x18
0867 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0868 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0869 7017       |p   |		Jump_Nonzero	0x881
086a e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x14.0x3b = 0x86a,0x2c
086b 0219       |    |		Execute	Heap_Access,All_Read
086c 2c31       |,1  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x31
086d 00d8       |    |		Load_Top	At_Offset_0
086e e403       |    |		Load	0x2,0x3
086f e018       |    |		Load	0x0,0x18
0870 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0871 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0872 e009       |    |		Load	0x0,0x9
0873 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0874 00d2       |    |		Pop_Control	Pop_Count_2
0875 e410       |    |		Load	0x2,0x10							; Debug Table 0x14.0x3c = 0x875,0x2d
0876 4801       |H   |		Short_Literal	0x1
0877 4800       |H   |		Short_Literal	0x0
0878 e5fc       |    |		Load	0x2,-0x4
0879 0217       |    |		Execute	Heap_Access,All_Reference
087a 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
087b e00e       |    |		Load	0x0,0xe
087c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
087d c410       |    |		Store	0x2,0x10
087e 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x3d = 0x87e,0x2e
087f a5fb       |    |		Store_Unchecked	0x2,-0x5
0880 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x14.0x3e = 0x880,0x2f
0881 e410       |    |		Load	0x2,0x10							; Debug Table 0x14.0x3f = 0x881,0x30
0882 4801       |H   |		Short_Literal	0x1
0883 4801       |H   |		Short_Literal	0x1
0884 e5fc       |    |		Load	0x2,-0x4
0885 0217       |    |		Execute	Heap_Access,All_Reference
0886 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0887 e00e       |    |		Load	0x0,0xe
0888 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0889 c410       |    |		Store	0x2,0x10
088a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x14.0x40 = 0x88a,0x31
088b a5fb       |    |		Store_Unchecked	0x2,-0x5
088c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
088d			TRAP_06f8:
088d 0007       |    |		Action	Break_Optional
088e e410       |    |		Load	0x2,0x10							; Debug Table 0x14.0x41 = 0x88e,0x32
088f 4801       |H   |		Short_Literal	0x1
0890 4800       |H   |		Short_Literal	0x0
0891 e5fc       |    |		Load	0x2,-0x4
0892 0217       |    |		Execute	Heap_Access,All_Reference
0893 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0894 e00e       |    |		Load	0x0,0xe
0895 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0896 c410       |    |		Store	0x2,0x10
0897 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x14.0x42 = 0x897,0x33
0898 0101       |    |		Execute	Exception,Reraise
0899 0000 0000  |    |		.XXX[0x3]
089b 0000       |    |
089c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000cc8}
08a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000953}
08a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000087a}
08a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x005851a5}
08ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x5851a501}
08b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
08b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08d9       |    |		.CONST	0x08d9								; Address of begin
08b9 094f       | O  |		.CONST	0x094f								; Address of exception handler
08ba 000d       |    |		.CONST	0x000d								; Number of locals
08bb			INIT_08b8:
08bb 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x15 = .DEBUG	0x08bb,0x129e,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0f50
													; Debug Table 0x15.0x0 = 0x8bb,0xffff
08bc e018       |    |		Load	0x0,0x18							; Debug Table 0x15.0x1 = 0x8bc,0xfffe
08bd 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
08be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08bf 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
08c0 e018       |    |		Load	0x0,0x18							; Debug Table 0x15.0x2 = 0x8c0,0xfffd
08c1 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
08c2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08c3 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
08c4 e002       |    |		Load	0x0,0x2								; Debug Table 0x15.0x3 = 0x8c4,0xfffc
08c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08c6 e00d       |    |		Load	0x0,0xd								; Debug Table 0x15.0x4 = 0x8c6,0xfffb
08c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08c8 e00e       |    |		Load	0x0,0xe								; Debug Table 0x15.0x5 = 0x8c8,0xfffa
08c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08ca 02c7       |    |		Declare_Variable	Any
08cb 00d8       |    |		Load_Top	At_Offset_0
08cc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08cd 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x15.0x6 = 0x8cd,0xfff9
08ce 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08cf 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x15.0x7 = 0x8cf,0xfff8
08d0 00c6       |    |		Action	Check_Subprogram_Elaborated
08d1 4808       |H   |		Short_Literal	0x8
08d2 4802       |H   |		Short_Literal	0x2
08d3 0099       |    |		Action	Reference_Dynamic
08d4 67d3       |g   |		Indirect_Literal	Discrete,0x8a8,{0x00000000, 0x005851a5}
08d5 628e       |b   |		Indirect_Literal	Discrete,0xb64,{0x00000000, 0x00000f9f}
08d6 480c       |H   |		Short_Literal	0xc
08d7 029f 0ba3  |    |		Declare_Subprogram	INIT_0ba0,For_Call
08d9			BODY_08b8:
08d9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x15.0x8 = 0x8d9,0x1
08da 0217       |    |		Execute	Heap_Access,All_Reference
08db 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
08dc 4603       |F   |		Jump_Case	0x4
08dd 780b       |x   |		Jump	0x8e9								; case 0x0
08de 7802       |x   |		Jump	0x8e1								; case 0x1
08df 7816       |x   |		Jump	0x8f6								; case 0x2
08e0 7815       |x   |		Jump	0x8f6								; case 0x3
08e1 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x15.0x9 = 0x8e1,0x2
08e2 e5fd       |    |		Load	0x2,-0x3
08e3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
08e4 e5fc       |    |		Load	0x2,-0x4
08e5 0217       |    |		Execute	Heap_Access,All_Reference
08e6 2432       |$2  |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x32
08e7 8007       |    |		Call	0x0,0x7
08e8 780d       |x   |		Jump	0x8f6
08e9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x15.0xa = 0x8e9,0x3
08ea 0219       |    |		Execute	Heap_Access,All_Read
08eb 00d8       |    |		Load_Top	At_Offset_0
08ec 2c4d       |,M  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4d
08ed e5fc       |    |		Load	0x2,-0x4
08ee 0217       |    |		Execute	Heap_Access,All_Reference
08ef 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
08f0 4800       |H   |		Short_Literal	0x0
08f1 e008       |    |		Load	0x0,0x8
08f2 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
08f3 00d9       |    |		Load_Top	At_Offset_1
08f4 284d       |(M  |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4d
08f5 00d1       |    |		Pop_Control	Pop_Count_1
08f6 e018       |    |		Load	0x0,0x18							; Debug Table 0x15.0xb = 0x8f6,0x5
08f7 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
08f8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
08f9 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
08fa e5fc       |    |		Load	0x2,-0x4
08fb 0217       |    |		Execute	Heap_Access,All_Reference
08fc 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
08fd e018       |    |		Load	0x0,0x18
08fe 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
08ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0900 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0901 c403       |    |		Store	0x2,0x3
0902 e018       |    |		Load	0x0,0x18							; Debug Table 0x15.0xc = 0x902,0x6
0903 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0904 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0905 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0906 e5fc       |    |		Load	0x2,-0x4
0907 0217       |    |		Execute	Heap_Access,All_Reference
0908 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
0909 e018       |    |		Load	0x0,0x18
090a 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
090b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
090c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
090d c404       |    |		Store	0x2,0x4
090e e017       |    |		Load	0x0,0x17							; Debug Table 0x15.0xd = 0x90e,0x7
090f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0910 e5fc       |    |		Load	0x2,-0x4
0911 0217       |    |		Execute	Heap_Access,All_Reference
0912 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0913 e00e       |    |		Load	0x0,0xe
0914 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0915 c407       |    |		Store	0x2,0x7
0916 840d       |    |		Call	0x2,0xd								; Debug Table 0x15.0xe = 0x916,0x8
0917 e00d       |    |		Load	0x0,0xd								; Debug Table 0x15.0xf = 0x917,0x9
0918 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0919 679a       |g   |		Indirect_Literal	Discrete,0x8b4,{0x00000000, 0x00004000}
091a e407       |    |		Load	0x2,0x7
091b 4804       |H   |		Short_Literal	0x4
091c e5fe       |    |		Load	0x2,-0x2
091d e020       |    |		Load	0x0,0x20
091e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
091f c406       |    |		Store	0x2,0x6
0920 e406       |    |		Load	0x2,0x6								; Debug Table 0x15.0x10 = 0x920,0xa
0921 6821       |h!  |		Jump_Zero	0x943
0922 4800       |H   |		Short_Literal	0x0							; Debug Table 0x15.0x11 = 0x922,0xb
0923 a5fb       |    |		Store_Unchecked	0x2,-0x5
0924 e407       |    |		Load	0x2,0x7								; Debug Table 0x15.0x12 = 0x924,0xc
0925 4801       |H   |		Short_Literal	0x1
0926 4800       |H   |		Short_Literal	0x0
0927 e5fc       |    |		Load	0x2,-0x4
0928 0217       |    |		Execute	Heap_Access,All_Reference
0929 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
092a e00e       |    |		Load	0x0,0xe
092b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
092c c407       |    |		Store	0x2,0x7
092d 0092 0c6e  |   n|		Action	Push_String_Extended,0xc6e					; "Can't set the unit_state of "
													; Debug Table 0x15.0x13 = 0x92d,0xd
092f e5fe       |    |		Load	0x2,-0x2
0930 e00d       |    |		Load	0x0,0xd
0931 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0932 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0933 01cc       |    |		Execute	Vector,Catenate
0934 0092 0c6f  |   o|		Action	Push_String_Extended,0xc6f					; " to coded ("
0936 01cc       |    |		Execute	Vector,Catenate
0937 e406       |    |		Load	0x2,0x6
0938 e00d       |    |		Load	0x0,0xd
0939 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
093a 025e       | ^  |		Execute	Discrete,Convert
093b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
093c 01cc       |    |		Execute	Vector,Catenate
093d 0092 0c64  |   d|		Action	Push_String_Extended,0xc64					; ")"
093f 01cc       |    |		Execute	Vector,Catenate
0940 e5fc       |    |		Load	0x2,-0x4
0941 8019       |    |		Call	0x0,0x19
0942 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x15.0x14 = 0x942,0xe
0943 e407       |    |		Load	0x2,0x7								; Debug Table 0x15.0x15 = 0x943,0xf
0944 4801       |H   |		Short_Literal	0x1
0945 4801       |H   |		Short_Literal	0x1
0946 e5fc       |    |		Load	0x2,-0x4
0947 0217       |    |		Execute	Heap_Access,All_Reference
0948 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0949 e00e       |    |		Load	0x0,0xe
094a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
094b c407       |    |		Store	0x2,0x7
094c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x15.0x16 = 0x94c,0x10
094d a5fb       |    |		Store_Unchecked	0x2,-0x5
094e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
094f			TRAP_08b8:
094f 0007       |    |		Action	Break_Optional
0950 e407       |    |		Load	0x2,0x7								; Debug Table 0x15.0x17 = 0x950,0x11
0951 4801       |H   |		Short_Literal	0x1
0952 4800       |H   |		Short_Literal	0x0
0953 e5fc       |    |		Load	0x2,-0x4
0954 0217       |    |		Execute	Heap_Access,All_Reference
0955 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0956 e00e       |    |		Load	0x0,0xe
0957 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0958 c407       |    |		Store	0x2,0x7
0959 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x15.0x18 = 0x959,0x12
095a 0101       |    |		Execute	Exception,Reraise
095b 0000 0000  |    |		.BLANK	0000[0x5]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963       | c  |		.CONST	0x0963								; Address of begin
0961 0004       |    |		.CONST	0x0004								; Address of exception handler
0962 0001       |    |		.CONST	0x0001								; Number of locals
0963			BODY_0960:
0963			INIT_0960:
0963 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x16 = .DEBUG	0x0963,0x12d2,0x0007,0x0000,0x0058,0x51a5,0x0000,0x05e8
0964 4807       |H   |		Short_Literal	0x7
0965 4802       |H   |		Short_Literal	0x2
0966 0099       |    |		Action	Reference_Dynamic
0967 e408       |    |		Load	0x2,0x8
0968 4809       |H   |		Short_Literal	0x9
0969 4802       |H   |		Short_Literal	0x2
096a 0099       |    |		Action	Reference_Dynamic
096b 8213       |    |		Call	0x1,0x13
096c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
096d 0000 0000  |    |		.XXX[0x3]
096f 0000       |    |
0970 ; --------------------------------------------------------------------------------------
0970 ; SUBPROGRAM
0970 ; --------------------------------------------------------------------------------------
0970 097b       | {  |		.CONST	0x097b								; Address of begin
0971 0004       |    |		.CONST	0x0004								; Address of exception handler
0972 0002       |    |		.CONST	0x0002								; Number of locals
0973			INIT_0970:
0973 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x17 = .DEBUG	0x0973,0x12d4,0x0804,0x0002,0x0058,0x51a5,0x0000,0x0121
													; Debug Table 0x17.0x0 = 0x973,0xffff
0974 00e3       |    |		Load_Encached	Natural_Cache
0975 025b       | [  |		Execute	Discrete,Check_In_Type
0976 e5fe       |    |		Load	0x2,-0x2
0977 0217       |    |		Execute	Heap_Access,All_Reference
0978 2432       |$2  |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x32
0979 e008       |    |		Load	0x0,0x8
097a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
097b			BODY_0970:
097b e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x17.0x1 = 0x97b,0x1
097c 00d9       |    |		Load_Top	At_Offset_1
097d 01db       |    |		Execute	Vector,Length
097e 0273       | s  |		Execute	Discrete,Plus
097f 0248       | H  |		Execute	Discrete,Check_In_Integer
0980 a5fd       |    |		Store_Unchecked	0x2,-0x3
0981 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x17.0x2 = 0x981,0x2
0982 00cb       |    |		Action	Pop_Block_With_Result
0983 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0984 0000 0000  |    |		.BLANK	0000[0x4]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 0990       |    |		.CONST	0x0990								; Address of begin
0989 0004       |    |		.CONST	0x0004								; Address of exception handler
098a 0002       |    |		.CONST	0x0002								; Number of locals
098b			INIT_0988:
098b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x18 = .DEBUG	0x098b,0x12dc,0x0804,0x0002,0x0058,0x51a5,0x0000,0x0153
													; Debug Table 0x18.0x0 = 0x98b,0xffff
098c e5fc       |    |		Load	0x2,-0x4
098d e014       |    |		Load	0x0,0x14
098e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
098f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0990			BODY_0988:
0990 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x18.0x1 = 0x990,0x1
0991 0219       |    |		Execute	Heap_Access,All_Read
0992 2c4d       |,M  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4d
0993 0219       |    |		Execute	Heap_Access,All_Read
0994 e5fe       |    |		Load	0x2,-0x2
0995 0219       |    |		Execute	Heap_Access,All_Read
0996 2c32       |,2  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x32
0997 e5fd       |    |		Load	0x2,-0x3
0998 00da       |    |		Load_Top	At_Offset_2
0999 e602       |    |		Load	0x3,0x2
099a 00db       |    |		Load_Top	At_Offset_3
099b e008       |    |		Load	0x0,0x8
099c 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
099d 00d3       |    |		Pop_Control	Pop_Count_3
099e c5fd       |    |		Store	0x2,-0x3
099f 00d2       |    |		Pop_Control	Pop_Count_2
09a0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x18.0x2 = 0x9a0,0x2
09a1 00cb       |    |		Action	Pop_Block_With_Result
09a2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
09a3 0000 0000  |    |		.BLANK	0000[0x5]
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09bd       |    |		.CONST	0x09bd								; Address of begin
09a9 0004       |    |		.CONST	0x0004								; Address of exception handler
09aa 0003       |    |		.CONST	0x0003								; Number of locals
09ab			INIT_09a8:
09ab 4801       |H   |		Short_Literal	0x1							; Debug Table 0x19 = .DEBUG	0x09ab,0x12e4,0x0804,0x0002,0x0058,0x51a5,0x0000,0x08ec
													; Debug Table 0x19.0x0 = 0x9ab,0xffff
09ac 4804       |H   |		Short_Literal	0x4
09ad e014       |    |		Load	0x0,0x14
09ae 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
09af 0334       | 4  |		Declare_Variable	Array,With_Constraint
09b0 4804       |H   |		Short_Literal	0x4
09b1 4803       |H   |		Short_Literal	0x3
09b2 4802       |H   |		Short_Literal	0x2
09b3 0099       |    |		Action	Reference_Dynamic
09b4 e404       |    |		Load	0x2,0x4
09b5 4805       |H   |		Short_Literal	0x5
09b6 4802       |H   |		Short_Literal	0x2
09b7 0099       |    |		Action	Reference_Dynamic
09b8 8213       |    |		Call	0x1,0x13
09b9 00d9       |    |		Load_Top	At_Offset_1
09ba 01d4       |    |		Execute	Vector,Structure_Write
09bb 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x19.0x1 = 0x9bb,0xfffe
09bc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
09bd			BODY_09a8:
09bd 00cf       |    |		Action	Mark_Auxiliary
09be 0007       |    |		Action	Break_Optional							; Debug Table 0x19.0x2 = 0x9be,0x1
09bf e402       |    |		Load	0x2,0x2								; Debug Table 0x19.0x3 = 0x9bf,0x2
09c0 00da       |    |		Load_Top	At_Offset_2
09c1 e602       |    |		Load	0x3,0x2
09c2 01d7       |    |		Execute	Vector,Field_Read
09c3 0273       | s  |		Execute	Discrete,Plus
09c4 0248       | H  |		Execute	Discrete,Check_In_Integer
09c5 a402       |    |		Store_Unchecked	0x2,0x2
09c6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x19.0x4 = 0x9c6,0x3
09c7 0a01       |    |		Execute_Immediate	Plus,0x1
09c8 0248       | H  |		Execute	Discrete,Check_In_Integer
09c9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
09ca 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x19.0x5 = 0x9ca,0x4
09cb 0f05       |    |		Execute_Immediate	Equal,0x5
09cc 7006       |p   |		Jump_Nonzero	0x9d3
09cd e402       |    |		Load	0x2,0x2								; Debug Table 0x19.0x6 = 0x9cd,0x5
09ce 0908       |    |		Execute_Immediate	Binary_Scale,0x8
09cf 0248       | H  |		Execute	Discrete,Check_In_Integer
09d0 a402       |    |		Store_Unchecked	0x2,0x2
09d1 00c9       |    |		Action	Pop_Auxiliary_Loop
09d2 7fec       |    |		Jump	0x9bf
09d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09d4 0000 0000  |    |		.BLANK	0000[0x4]
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09dd       |    |		.CONST	0x09dd								; Address of begin
09d9 0004       |    |		.CONST	0x0004								; Address of exception handler
09da 0002       |    |		.CONST	0x0002								; Number of locals
09db			INIT_09d8:
09db e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1a = .DEBUG	0x09db,0x12f4,0x0001,0x0000,0x0058,0x51a5,0x0000,0x07fb
													; Debug Table 0x1a.0x0 = 0x9db,0xffff
09dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09dd			BODY_09d8:
09dd e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1a.0x1 = 0x9dd,0x1
09de 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
09df e7fd       |    |		Load	0x3,-0x3
09e0 e7fe       |    |		Load	0x3,-0x2
09e1 e7ff       |    |		Load	0x3,-0x1
09e2 e001       |    |		Load	0x0,0x1
09e3 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09e4 c7fd       |    |		Store	0x3,-0x3
09e5 0059       | Y  |		Store_Top	Discrete,At_Offset_1
09e6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1a.0x2 = 0x9e6,0x2
09e7 e5fe       |    |		Load	0x2,-0x2
09e8 0092 0c70  |   p|		Action	Push_String_Extended,0xc70					; "while patching instruction"
09ea e5ff       |    |		Load	0x2,-0x1
09eb 821d       |    |		Call	0x1,0x1d
09ec 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
09ed 0000 0000  |    |		.XXX[0x3]
09ef 0000       |    |
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f3       |    |		.CONST	0x09f3								; Address of begin
09f1 0004       |    |		.CONST	0x0004								; Address of exception handler
09f2 0001       |    |		.CONST	0x0001								; Number of locals
09f3			BODY_09f0:
09f3			INIT_09f0:
09f3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1b = .DEBUG	0x09f3,0x12fc,0x0002,0x0000,0x0058,0x51a5,0x0000,0x082c
													; Debug Table 0x1b.0x0 = 0x9f3,0x1
09f4 e5fd       |    |		Load	0x2,-0x3
09f5 e018       |    |		Load	0x0,0x18
09f6 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
09f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
09f8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
09f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
09fa 0000 0000  |    |		.BLANK	0000[0x6]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a05       |    |		.CONST	0x0a05								; Address of begin
0a01 0004       |    |		.CONST	0x0004								; Address of exception handler
0a02 0002       |    |		.CONST	0x0002								; Number of locals
0a03			INIT_0a00:
0a03 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1c = .DEBUG	0x0a03,0x1300,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0849
													; Debug Table 0x1c.0x0 = 0xa03,0xffff
0a04 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a05			BODY_0a00:
0a05 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1c.0x1 = 0xa05,0x1
0a06 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a07 e001       |    |		Load	0x0,0x1
0a08 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0a09 e7fe       |    |		Load	0x3,-0x2
0a0a e7ff       |    |		Load	0x3,-0x1
0a0b e001       |    |		Load	0x0,0x1
0a0c 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0a0d c7fe       |    |		Store	0x3,-0x2
0a0e c7fd       |    |		Store	0x3,-0x3
0a0f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0a10 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1c.0x2 = 0xa10,0x2
0a11 e5fe       |    |		Load	0x2,-0x2
0a12 0092 0c71  |   q|		Action	Push_String_Extended,0xc71					; "while reading instruction to patch segment"
0a14 e5ff       |    |		Load	0x2,-0x1
0a15 821d       |    |		Call	0x1,0x1d
0a16 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a17 0000       |    |		.XXX[0x1]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a25       | %  |		.CONST	0x0a25								; Address of begin
0a19 0004       |    |		.CONST	0x0004								; Address of exception handler
0a1a 0002       |    |		.CONST	0x0002								; Number of locals
0a1b			INIT_0a18:
0a1b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1d = .DEBUG	0x0a1b,0x1308,0x0002,0x0000,0x0058,0x51a5,0x0000,0x095b
													; Debug Table 0x1d.0x0 = 0xa1b,0xffff
0a1c 4805       |H   |		Short_Literal	0x5
0a1d 4802       |H   |		Short_Literal	0x2
0a1e 0099       |    |		Action	Reference_Dynamic
0a1f 4806       |H   |		Short_Literal	0x6
0a20 4802       |H   |		Short_Literal	0x2
0a21 0099       |    |		Action	Reference_Dynamic
0a22 8214       |    |		Call	0x1,0x14
0a23 e021       | !  |		Load	0x0,0x21
0a24 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0a25			BODY_0a18:
0a25 0092 0c72  |   r|		Action	Push_String_Extended,0xc72					; "16#"
													; Debug Table 0x1d.0x1 = 0xa25,0x1
0a27 00d9       |    |		Load_Top	At_Offset_1
0a28 01cc       |    |		Execute	Vector,Catenate
0a29 0092 0c73  |   s|		Action	Push_String_Extended,0xc73					; "#"
0a2b 01cc       |    |		Execute	Vector,Catenate
0a2c 00e2       |    |		Load_Encached	Integer_Cache
0a2d 00e0       |    |		Load_Encached	Standard_Cache
0a2e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0a2f 00ca       |    |		Action	Exit_Nullary_Function
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a52       | R  |		.CONST	0x0a52								; Address of begin
0a31 0004       |    |		.CONST	0x0004								; Address of exception handler
0a32 0007       |    |		.CONST	0x0007								; Number of locals
0a33			INIT_0a30:
0a33 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1e = .DEBUG	0x0a33,0x130e,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0980
													; Debug Table 0x1e.0x0 = 0xa33,0xffff
0a34 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a35 e022       | "  |		Load	0x0,0x22							; Debug Table 0x1e.0x1 = 0xa35,0xfffe
0a36 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0a37 02c7       |    |		Declare_Variable	Any
0a38 00d8       |    |		Load_Top	At_Offset_0
0a39 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a3a e022       | "  |		Load	0x0,0x22							; Debug Table 0x1e.0x2 = 0xa3a,0xfffd
0a3b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a3c 02ff       |    |		Declare_Variable	Variant_Record
0a3d 00d8       |    |		Load_Top	At_Offset_0
0a3e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a3f e022       | "  |		Load	0x0,0x22							; Debug Table 0x1e.0x3 = 0xa3f,0xfffc
0a40 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a41 02ff       |    |		Declare_Variable	Variant_Record
0a42 00d8       |    |		Load_Top	At_Offset_0
0a43 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a44 e022       | "  |		Load	0x0,0x22							; Debug Table 0x1e.0x4 = 0xa44,0xfffb
0a45 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0a46 02c7       |    |		Declare_Variable	Any
0a47 e022       | "  |		Load	0x0,0x22
0a48 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0a49 c606       |    |		Store	0x3,0x6
0a4a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1e.0x5 = 0xa4a,0xfffa
0a4b 4805       |H   |		Short_Literal	0x5
0a4c 4802       |H   |		Short_Literal	0x2
0a4d 0099       |    |		Action	Reference_Dynamic
0a4e 4806       |H   |		Short_Literal	0x6
0a4f 4802       |H   |		Short_Literal	0x2
0a50 0099       |    |		Action	Reference_Dynamic
0a51 8214       |    |		Call	0x1,0x14
0a52			BODY_0a30:
0a52 00be       |    |		Action	Activate_Tasks
0a53 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1e.0x6 = 0xa53,0x1
0a54 4800       |H   |		Short_Literal	0x0
0a55 e7ff       |    |		Load	0x3,-0x1
0a56 e01d       |    |		Load	0x0,0x1d
0a57 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0a58 00d1       |    |		Pop_Control	Pop_Count_1
0a59 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1e.0x7 = 0xa59,0x2
0a5a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0a5b e604       |    |		Load	0x3,0x4
0a5c e5fa       |    |		Load	0x2,-0x6
0a5d 4800       |H   |		Short_Literal	0x0
0a5e 4800       |H   |		Short_Literal	0x0
0a5f e022       | "  |		Load	0x0,0x22
0a60 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a61 4800       |H   |		Short_Literal	0x0
0a62 4800       |H   |		Short_Literal	0x0
0a63 e01d       |    |		Load	0x0,0x1d
0a64 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0a65 4800       |H   |		Short_Literal	0x0
0a66 e5fb       |    |		Load	0x2,-0x5
0a67 e022       | "  |		Load	0x0,0x22
0a68 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0a69 00d1       |    |		Pop_Control	Pop_Count_1
0a6a c602       |    |		Store	0x3,0x2
0a6b e602       |    |		Load	0x3,0x2								; Debug Table 0x1e.0x8 = 0xa6b,0x3
0a6c e5fe       |    |		Load	0x2,-0x2
0a6d 0092 0c74  |   t|		Action	Push_String_Extended,0xc74					; "creating version for target code segment"
0a6f e5ff       |    |		Load	0x2,-0x1
0a70 821d       |    |		Call	0x1,0x1d
0a71 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1e.0x9 = 0xa71,0x4
0a72 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a73 e5fa       |    |		Load	0x2,-0x6
0a74 4800       |H   |		Short_Literal	0x0
0a75 e023       | #  |		Load	0x0,0x23
0a76 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0a77 e604       |    |		Load	0x3,0x4
0a78 e022       | "  |		Load	0x0,0x22
0a79 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0a7a c602       |    |		Store	0x3,0x2
0a7b e602       |    |		Load	0x3,0x2								; Debug Table 0x1e.0xa = 0xa7b,0x5
0a7c e5fe       |    |		Load	0x2,-0x2
0a7d 0092 0c75  |   u|		Action	Push_String_Extended,0xc75					; "setting acl for target code segment"
0a7f e5ff       |    |		Load	0x2,-0x1
0a80 821d       |    |		Call	0x1,0x1d
0a81 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1e.0xb = 0xa81,0x6
0a82 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a83 e603       |    |		Load	0x3,0x3
0a84 0120       |    |		Execute	Any,Is_Value
0a85 6803       |h   |		Jump_Zero	0xa89
0a86 e022       | "  |		Load	0x0,0x22
0a87 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0a88 7801       |x   |		Jump	0xa8a
0a89 e603       |    |		Load	0x3,0x3
0a8a e5fa       |    |		Load	0x2,-0x6
0a8b 4800       |H   |		Short_Literal	0x0
0a8c 4802       |H   |		Short_Literal	0x2
0a8d e604       |    |		Load	0x3,0x4
0a8e e022       | "  |		Load	0x0,0x22
0a8f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0a90 c603       |    |		Store	0x3,0x3
0a91 c602       |    |		Store	0x3,0x2
0a92 e602       |    |		Load	0x3,0x2								; Debug Table 0x1e.0xc = 0xa92,0x7
0a93 e5fe       |    |		Load	0x2,-0x2
0a94 0092 0c76  |   v|		Action	Push_String_Extended,0xc76					; "opening version of target code segment"
0a96 e5ff       |    |		Load	0x2,-0x1
0a97 821d       |    |		Call	0x1,0x1d
0a98 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1e.0xd = 0xa98,0x8
0a99 00d9       |    |		Load_Top	At_Offset_1
0a9a e603       |    |		Load	0x3,0x3
0a9b e022       | "  |		Load	0x0,0x22
0a9c 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0a9d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0a9e c606       |    |		Store	0x3,0x6
0a9f e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1e.0xe = 0xa9f,0x9
0aa0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0aa1 e603       |    |		Load	0x3,0x3
0aa2 4800       |H   |		Short_Literal	0x0
0aa3 e022       | "  |		Load	0x0,0x22
0aa4 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0aa5 c603       |    |		Store	0x3,0x3
0aa6 c602       |    |		Store	0x3,0x2
0aa7 e602       |    |		Load	0x3,0x2								; Debug Table 0x1e.0xf = 0xaa7,0xa
0aa8 e5fe       |    |		Load	0x2,-0x2
0aa9 0092 0c77  |   w|		Action	Push_String_Extended,0xc77					; "closing version of target code segment"
0aab e5ff       |    |		Load	0x2,-0x1
0aac 821d       |    |		Call	0x1,0x1d
0aad 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1e.0x10 = 0xaad,0xb
0aae e604       |    |		Load	0x3,0x4
0aaf e605       |    |		Load	0x3,0x5
0ab0 e5f9       |    |		Load	0x2,-0x7
0ab1 e018       |    |		Load	0x0,0x18
0ab2 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0ab3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ab4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0ab5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ab6 0000 0000  |    |		.XXX[0x2]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0ad6       |    |		.CONST	0x0ad6								; Address of begin
0ab9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aba 0009       |    |		.CONST	0x0009								; Number of locals
0abb			INIT_0ab8:
0abb 8409       |    |		Call	0x2,0x9								; Debug Table 0x1f = .DEBUG	0x0abb,0x1332,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0a2f
													; Debug Table 0x1f.0x0 = 0xabb,0xffff
0abc 00e2       |    |		Load_Encached	Integer_Cache
0abd 03f1       |    |		Declare_Variable	Discrete,With_Value
0abe 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1f.0x1 = 0xabe,0xfffe
0abf e014       |    |		Load	0x0,0x14
0ac0 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0ac1 025b       | [  |		Execute	Discrete,Check_In_Type
0ac2 e014       |    |		Load	0x0,0x14
0ac3 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0ac4 03f1       |    |		Declare_Variable	Discrete,With_Value
0ac5 e014       |    |		Load	0x0,0x14							; Debug Table 0x1f.0x2 = 0xac5,0xfffd
0ac6 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0ac7 e001       |    |		Load	0x0,0x1								; Debug Table 0x1f.0x3 = 0xac7,0xfffc
0ac8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0ac9 02ff       |    |		Declare_Variable	Variant_Record
0aca 00d8       |    |		Load_Top	At_Offset_0
0acb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0acc e001       |    |		Load	0x0,0x1								; Debug Table 0x1f.0x4 = 0xacc,0xfffb
0acd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0ace 02ff       |    |		Declare_Variable	Variant_Record
0acf 00d8       |    |		Load_Top	At_Offset_0
0ad0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ad1 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1f.0x5 = 0xad1,0xfffa
0ad2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0ad3 e211       |    |		Load	0x1,0x11							; Debug Table 0x1f.0x6 = 0xad3,0xfff9
0ad4 029f 0c0b  |    |		Declare_Subprogram	INIT_0c08,For_Call
0ad6			BODY_0ab8:
0ad6 e605       |    |		Load	0x3,0x5								; Debug Table 0x1f.0x7 = 0xad6,0x1
0ad7 4800       |H   |		Short_Literal	0x0
0ad8 e7ff       |    |		Load	0x3,-0x1
0ad9 e01d       |    |		Load	0x0,0x1d
0ada 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0adb 00d1       |    |		Pop_Control	Pop_Count_1
0adc e211       |    |		Load	0x1,0x11							; Debug Table 0x1f.0x8 = 0xadc,0x2
0add e5ff       |    |		Load	0x2,-0x1
0ade 0217       |    |		Execute	Heap_Access,All_Reference
0adf 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
0ae0 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0ae1 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0ae2 0007       |    |		Action	Break_Optional							; Debug Table 0x1f.0x9 = 0xae2,0x3
0ae3 e404       |    |		Load	0x2,0x4								; Debug Table 0x1f.0xa = 0xae3,0x4
0ae4 00da       |    |		Load_Top	At_Offset_2
0ae5 0217       |    |		Execute	Heap_Access,All_Reference
0ae6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ae7 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1f.0xb = 0xae7,0x5
0ae8 a404       |    |		Store_Unchecked	0x2,0x4
0ae9 e01b       |    |		Load	0x0,0x1b							; Debug Table 0x1f.0xc = 0xae9,0x6
0aea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0aeb e606       |    |		Load	0x3,0x6
0aec e5fa       |    |		Load	0x2,-0x6
0aed 4800       |H   |		Short_Literal	0x0
0aee 4800       |H   |		Short_Literal	0x0
0aef 4800       |H   |		Short_Literal	0x0
0af0 e01d       |    |		Load	0x0,0x1d
0af1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0af2 4800       |H   |		Short_Literal	0x0
0af3 e5fb       |    |		Load	0x2,-0x5
0af4 e001       |    |		Load	0x0,0x1
0af5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0af6 00d1       |    |		Pop_Control	Pop_Count_1
0af7 005b       | [  |		Store_Top	Discrete,At_Offset_3
0af8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1f.0xd = 0xaf8,0x7
0af9 e5fe       |    |		Load	0x2,-0x2
0afa 0092 0c78  |   x|		Action	Push_String_Extended,0xc78					; "creating new code segment"
0afc e5ff       |    |		Load	0x2,-0x1
0afd 821d       |    |		Call	0x1,0x1d
0afe e404       |    |		Load	0x2,0x4								; Debug Table 0x1f.0xe = 0xafe,0x8
0aff 0219       |    |		Execute	Heap_Access,All_Read
0b00 e01b       |    |		Load	0x0,0x1b
0b01 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b02 00d9       |    |		Load_Top	At_Offset_1
0b03 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b04 0120       |    |		Execute	Any,Is_Value
0b05 6803       |h   |		Jump_Zero	0xb09
0b06 e001       |    |		Load	0x0,0x1
0b07 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0b08 7802       |x   |		Jump	0xb0b
0b09 00d9       |    |		Load_Top	At_Offset_1
0b0a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b0b e5fa       |    |		Load	0x2,-0x6
0b0c 4800       |H   |		Short_Literal	0x0
0b0d e001       |    |		Load	0x0,0x1
0b0e 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0b0f e01d       |    |		Load	0x0,0x1d
0b10 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0b11 4802       |H   |		Short_Literal	0x2
0b12 e606       |    |		Load	0x3,0x6
0b13 e001       |    |		Load	0x0,0x1
0b14 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0b15 00da       |    |		Load_Top	At_Offset_2
0b16 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b17 c607       |    |		Store	0x3,0x7
0b18 00d1       |    |		Pop_Control	Pop_Count_1
0b19 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1f.0xf = 0xb19,0x9
0b1a e5fe       |    |		Load	0x2,-0x2
0b1b 0092 0c79  |   y|		Action	Push_String_Extended,0xc79					; "opening new code segment"
0b1d e5ff       |    |		Load	0x2,-0x1
0b1e 821d       |    |		Call	0x1,0x1d
0b1f e404       |    |		Load	0x2,0x4								; Debug Table 0x1f.0x10 = 0xb1f,0xa
0b20 0217       |    |		Execute	Heap_Access,All_Reference
0b21 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b22 e001       |    |		Load	0x0,0x1
0b23 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0b24 a604       |    |		Store_Unchecked	0x3,0x4
0b25 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1f.0x11 = 0xb25,0xb
0b26 0217       |    |		Execute	Heap_Access,All_Reference
0b27 2c10       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x10
0b28 6828       |h(  |		Jump_Zero	0xb51
0b29 0092 0c7a  |   z|		Action	Push_String_Extended,0xc7a					; "creating new cs"
													; Debug Table 0x1f.0x12 = 0xb29,0xc
0b2b e606       |    |		Load	0x3,0x6
0b2c e01d       |    |		Load	0x0,0x1d
0b2d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b2e 00e0       |    |		Load_Encached	Standard_Cache
0b2f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b30 01cc       |    |		Execute	Vector,Catenate
0b31 0092 0c7b  |   {|		Action	Push_String_Extended,0xc7b					; ", old ="
0b33 01cc       |    |		Execute	Vector,Catenate
0b34 e7ff       |    |		Load	0x3,-0x1
0b35 00e0       |    |		Load_Encached	Standard_Cache
0b36 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b37 01cc       |    |		Execute	Vector,Catenate
0b38 0092 0c7c  |   ||		Action	Push_String_Extended,0xc7c					; "; name = 16#"
0b3a 01cc       |    |		Execute	Vector,Catenate
0b3b 4820       |H   |		Short_Literal	0x20
0b3c 4800       |H   |		Short_Literal	0x0
0b3d 4810       |H   |		Short_Literal	0x10
0b3e e604       |    |		Load	0x3,0x4
0b3f e024       | $  |		Load	0x0,0x24
0b40 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0b41 01cc       |    |		Execute	Vector,Catenate
0b42 0092 0c7d  |   }|		Action	Push_String_Extended,0xc7d					; "#, old = 16#"
0b44 01cc       |    |		Execute	Vector,Catenate
0b45 4820       |H   |		Short_Literal	0x20
0b46 4800       |H   |		Short_Literal	0x0
0b47 4810       |H   |		Short_Literal	0x10
0b48 e603       |    |		Load	0x3,0x3
0b49 e024       | $  |		Load	0x0,0x24
0b4a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0b4b 01cc       |    |		Execute	Vector,Catenate
0b4c 0092 0c73  |   s|		Action	Push_String_Extended,0xc73					; "#"
0b4e 01cc       |    |		Execute	Vector,Catenate
0b4f e5ff       |    |		Load	0x2,-0x1
0b50 8025       | %  |		Call	0x0,0x25
0b51 8609       |    |		Call	0x3,0x9								; Debug Table 0x1f.0x13 = 0xb51,0xd
0b52 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1f.0x14 = 0xb52,0xe
0b53 e606       |    |		Load	0x3,0x6
0b54 e605       |    |		Load	0x3,0x5
0b55 e5f9       |    |		Load	0x2,-0x7
0b56 e018       |    |		Load	0x0,0x18
0b57 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0b58 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b59 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b5a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1f.0x15 = 0xb5a,0xf
0b5b e604       |    |		Load	0x3,0x4
0b5c e603       |    |		Load	0x3,0x3
0b5d e5f8       |    |		Load	0x2,-0x8
0b5e e018       |    |		Load	0x0,0x18
0b5f 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0b60 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b61 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b62 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0b63 0000       |    |		.XXX[0x1]
0b64 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000f9f}
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6d       | m  |		.CONST	0x0b6d								; Address of begin
0b69 0004       |    |		.CONST	0x0004								; Address of exception handler
0b6a 0002       |    |		.CONST	0x0002								; Number of locals
0b6b			INIT_0b68:
0b6b e01b       |    |		Load	0x0,0x1b							; Debug Table 0x20 = .DEBUG	0x0b6b,0x1360,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0b7d
													; Debug Table 0x20.0x0 = 0xb6b,0xffff
0b6c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b6d			BODY_0b68:
0b6d 00cf       |    |		Action	Mark_Auxiliary
0b6e 7822       |x"  |		Jump	0xb91
0b6f e404       |    |		Load	0x2,0x4								; Debug Table 0x20.0x1 = 0xb6f,0x2
0b70 0219       |    |		Execute	Heap_Access,All_Read
0b71 00d8       |    |		Load_Top	At_Offset_0
0b72 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b73 e5f8       |    |		Load	0x2,-0x8
0b74 e5fe       |    |		Load	0x2,-0x2
0b75 e5ff       |    |		Load	0x2,-0x1
0b76 821e       |    |		Call	0x1,0x1e
0b77 00d9       |    |		Load_Top	At_Offset_1
0b78 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b79 00d1       |    |		Pop_Control	Pop_Count_1
0b7a e404       |    |		Load	0x2,0x4								; Debug Table 0x20.0x2 = 0xb7a,0x3
0b7b 0219       |    |		Execute	Heap_Access,All_Read
0b7c e01b       |    |		Load	0x0,0x1b
0b7d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0b7e 00d9       |    |		Load_Top	At_Offset_1
0b7f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b80 e001       |    |		Load	0x0,0x1
0b81 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0b82 00da       |    |		Load_Top	At_Offset_2
0b83 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b84 005b       | [  |		Store_Top	Discrete,At_Offset_3
0b85 00d1       |    |		Pop_Control	Pop_Count_1
0b86 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x20.0x3 = 0xb86,0x4
0b87 e5fe       |    |		Load	0x2,-0x2
0b88 0092 0c7e  |   ~|		Action	Push_String_Extended,0xc7e					; "closing new code segment"
0b8a e5ff       |    |		Load	0x2,-0x1
0b8b 821d       |    |		Call	0x1,0x1d
0b8c e404       |    |		Load	0x2,0x4								; Debug Table 0x20.0x4 = 0xb8c,0x5
0b8d 0217       |    |		Execute	Heap_Access,All_Reference
0b8e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0b8f a404       |    |		Store_Unchecked	0x2,0x4
0b90 00c9       |    |		Action	Pop_Auxiliary_Loop
0b91 e404       |    |		Load	0x2,0x4								; Debug Table 0x20.0x5 = 0xb91,0x1
0b92 77dc       |w   |		Jump_Nonzero	0xb6f
0b93 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b94 0000 0000  |    |		.BLANK	0000[0x4]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; --------------------------------------------------------------------------------------
0b98 0b9b       |    |		.CONST	0x0b9b								; Address of begin
0b99 0004       |    |		.CONST	0x0004								; Address of exception handler
0b9a 0001       |    |		.CONST	0x0001								; Number of locals
0b9b			BODY_0b98:
0b9b			INIT_0b98:
0b9b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x21 = .DEBUG	0x0b9b,0x136e,0x0002,0x0000,0x0058,0x51a5,0x0000,0x0cb3
													; Debug Table 0x21.0x0 = 0xb9b,0x1
0b9c 00db       |    |		Load_Top	At_Offset_3
0b9d 8026       | &  |		Call	0x0,0x26
0b9e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b9f 0000       |    |		.XXX[0x1]
0ba0 ; --------------------------------------------------------------------------------------
0ba0 ; SUBPROGRAM
0ba0 ; --------------------------------------------------------------------------------------
0ba0 0bab       |    |		.CONST	0x0bab								; Address of begin
0ba1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ba2 0002       |    |		.CONST	0x0002								; Number of locals
0ba3			INIT_0ba0:
0ba3 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x22 = .DEBUG	0x0ba3,0x1372,0x0004,0x0000,0x0058,0x51a5,0x0000,0x1073
													; Debug Table 0x22.0x0 = 0xba3,0xffff
0ba4 4809       |H   |		Short_Literal	0x9
0ba5 4802       |H   |		Short_Literal	0x2
0ba6 0099       |    |		Action	Reference_Dynamic
0ba7 480a       |H   |		Short_Literal	0xa
0ba8 4802       |H   |		Short_Literal	0x2
0ba9 0099       |    |		Action	Reference_Dynamic
0baa 8214       |    |		Call	0x1,0x14
0bab			BODY_0ba0:
0bab 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x22.0x1 = 0xbab,0x1
0bac e408       |    |		Load	0x2,0x8
0bad e404       |    |		Load	0x2,0x4
0bae e403       |    |		Load	0x2,0x3
0baf e407       |    |		Load	0x2,0x7
0bb0 e407       |    |		Load	0x2,0x7
0bb1 e5fe       |    |		Load	0x2,-0x2
0bb2 821c       |    |		Call	0x1,0x1c
0bb3 4801       |H   |		Short_Literal	0x1
0bb4 e5fd       |    |		Load	0x2,-0x3
0bb5 e5ff       |    |		Load	0x2,-0x1
0bb6 e5fc       |    |		Load	0x2,-0x4
0bb7 821f       |    |		Call	0x1,0x1f
0bb8 c403       |    |		Store	0x2,0x3
0bb9 c404       |    |		Store	0x2,0x4
0bba c408       |    |		Store	0x2,0x8
0bbb c402       |    |		Store	0x2,0x2
0bbc e402       |    |		Load	0x2,0x2								; Debug Table 0x22.0x2 = 0xbbc,0x2
0bbd 700d       |p   |		Jump_Nonzero	0xbcb
0bbe 4800       |H   |		Short_Literal	0x0							; Debug Table 0x22.0x3 = 0xbbe,0x3
0bbf a5fb       |    |		Store_Unchecked	0x2,-0x5
0bc0 e407       |    |		Load	0x2,0x7								; Debug Table 0x22.0x4 = 0xbc0,0x4
0bc1 4801       |H   |		Short_Literal	0x1
0bc2 4800       |H   |		Short_Literal	0x0
0bc3 e5fc       |    |		Load	0x2,-0x4
0bc4 0217       |    |		Execute	Heap_Access,All_Reference
0bc5 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0bc6 e00e       |    |		Load	0x0,0xe
0bc7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0bc8 c407       |    |		Store	0x2,0x7
0bc9 00cc       |    |		Action	Pop_Block							; Debug Table 0x22.0x5 = 0xbc9,0x5
0bca 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0bcb 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x22.0x6 = 0xbcb,0x6
0bcc e5fc       |    |		Load	0x2,-0x4
0bcd e407       |    |		Load	0x2,0x7
0bce e5fe       |    |		Load	0x2,-0x2
0bcf 821a       |    |		Call	0x1,0x1a
0bd0 c402       |    |		Store	0x2,0x2
0bd1 e402       |    |		Load	0x2,0x2								; Debug Table 0x22.0x7 = 0xbd1,0x7
0bd2 700d       |p   |		Jump_Nonzero	0xbe0
0bd3 4800       |H   |		Short_Literal	0x0							; Debug Table 0x22.0x8 = 0xbd3,0x8
0bd4 a5fb       |    |		Store_Unchecked	0x2,-0x5
0bd5 e407       |    |		Load	0x2,0x7								; Debug Table 0x22.0x9 = 0xbd5,0x9
0bd6 4801       |H   |		Short_Literal	0x1
0bd7 4800       |H   |		Short_Literal	0x0
0bd8 e5fc       |    |		Load	0x2,-0x4
0bd9 0217       |    |		Execute	Heap_Access,All_Reference
0bda 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0bdb e00e       |    |		Load	0x0,0xe
0bdc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0bdd c407       |    |		Store	0x2,0x7
0bde 00cc       |    |		Action	Pop_Block							; Debug Table 0x22.0xa = 0xbde,0xa
0bdf 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0be0 e405       |    |		Load	0x2,0x5								; Debug Table 0x22.0xb = 0xbe0,0xb
0be1 00e1       |    |		Load_Encached	Boolean_Cache
0be2 e407       |    |		Load	0x2,0x7
0be3 e404       |    |		Load	0x2,0x4
0be4 e403       |    |		Load	0x2,0x3
0be5 e602       |    |		Load	0x3,0x2
0be6 e5fe       |    |		Load	0x2,-0x2
0be7 e018       |    |		Load	0x0,0x18
0be8 1b71       | q  |		Execute	Package,Field_Read,Field_Number 0x71
0be9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0bea c402       |    |		Store	0x2,0x2
0beb c405       |    |		Store	0x2,0x5
0bec e402       |    |		Load	0x2,0x2								; Debug Table 0x22.0xc = 0xbec,0xc
0bed 7015       |p   |		Jump_Nonzero	0xc03
0bee 4800       |H   |		Short_Literal	0x0							; Debug Table 0x22.0xd = 0xbee,0xd
0bef a5fb       |    |		Store_Unchecked	0x2,-0x5
0bf0 e407       |    |		Load	0x2,0x7								; Debug Table 0x22.0xe = 0xbf0,0xe
0bf1 4801       |H   |		Short_Literal	0x1
0bf2 4800       |H   |		Short_Literal	0x0
0bf3 e5fc       |    |		Load	0x2,-0x4
0bf4 0217       |    |		Execute	Heap_Access,All_Reference
0bf5 2c0e       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xe
0bf6 e00e       |    |		Load	0x0,0xe
0bf7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0bf8 c407       |    |		Store	0x2,0x7
0bf9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x22.0xf = 0xbf9,0xf
0bfa 0219       |    |		Execute	Heap_Access,All_Read
0bfb 2c31       |,1  |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x31
0bfc 00d8       |    |		Load_Top	At_Offset_0
0bfd e405       |    |		Load	0x2,0x5
0bfe e009       |    |		Load	0x0,0x9
0bff 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0c00 00d2       |    |		Pop_Control	Pop_Count_2
0c01 00cc       |    |		Action	Pop_Block							; Debug Table 0x22.0x10 = 0xc01,0x10
0c02 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0c03 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c04 0000 0000  |    |		.BLANK	0000[0x4]
0c08 ; --------------------------------------------------------------------------------------
0c08 ; SUBPROGRAM
0c08 ; --------------------------------------------------------------------------------------
0c08 0c2c       | ,  |		.CONST	0x0c2c								; Address of begin
0c09 0004       |    |		.CONST	0x0004								; Address of exception handler
0c0a 0009       |    |		.CONST	0x0009								; Number of locals
0c0b			INIT_0c08:
0c0b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x23 = .DEBUG	0x0c0b,0x1396,0x0004,0x0000,0x0058,0x51a5,0x0000,0x0b56
													; Debug Table 0x23.0x0 = 0xc0b,0xffff
0c0c 4805       |H   |		Short_Literal	0x5
0c0d 4802       |H   |		Short_Literal	0x2
0c0e 0099       |    |		Action	Reference_Dynamic
0c0f 4806       |H   |		Short_Literal	0x6
0c10 4802       |H   |		Short_Literal	0x2
0c11 0099       |    |		Action	Reference_Dynamic
0c12 8214       |    |		Call	0x1,0x14
0c13 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x23.0x1 = 0xc13,0xfffe
0c14 01db       |    |		Execute	Vector,Length
0c15 4801       |H   |		Short_Literal	0x1
0c16 0279       | y  |		Execute	Discrete,And
0c17 6802       |h   |		Jump_Zero	0xc1a
0c18 4887       |H   |		Short_Literal	0x87
0c19 0257       | W  |		Execute	Discrete,Raise
0c1a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x23.0x2 = 0xc1a,0xfffd
0c1b 01da       |    |		Execute	Vector,Bounds
0c1c e014       |    |		Load	0x0,0x14
0c1d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0c1e 035b       | [  |		Declare_Type	Array,Constrained
0c1f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x23.0x3 = 0xc1f,0xfffc
0c20 02a0       |    |		Declare_Subprogram	Null_Subprogram
0c21 03ad       |    |		Declare_Type	Heap_Access,Defined
0c22 0007       |    |		Action	Break_Optional							; Debug Table 0x23.0x4 = 0xc22,0xfffb
0c23 e001       |    |		Load	0x0,0x1								; Debug Table 0x23.0x5 = 0xc23,0xfffa
0c24 192f       | /  |		Execute	Package,Field_Reference,Field_Number 0x2f
0c25 00c6       |    |		Action	Check_Subprogram_Elaborated
0c26 00d9       |    |		Load_Top	At_Offset_1
0c27 00d9       |    |		Load_Top	At_Offset_1
0c28 6023       |`#  |		Indirect_Literal	Discrete,0xc4c,{0x00000000, 0x005851a5}
0c29 601e       |`   |		Indirect_Literal	Discrete,0xc48,{0x00000000, 0x00000b39}
0c2a 4809       |H   |		Short_Literal	0x9
0c2b 0007       |    |		Action	Break_Optional
0c2c			BODY_0c08:
0c2c e404       |    |		Load	0x2,0x4								; Debug Table 0x23.0x6 = 0xc2c,0x1
0c2d 0219       |    |		Execute	Heap_Access,All_Read
0c2e e01b       |    |		Load	0x0,0x1b
0c2f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0c30 00d9       |    |		Load_Top	At_Offset_1
0c31 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c32 e802       |    |		Load	0x4,0x2
0c33 e803       |    |		Load	0x4,0x3
0c34 01c3       |    |		Execute	Vector,Check_In_Type
0c35 e805       |    |		Load	0x4,0x5
0c36 e806       |    |		Load	0x4,0x6
0c37 4807       |H   |		Short_Literal	0x7
0c38 4804       |H   |		Short_Literal	0x4
0c39 0099       |    |		Action	Reference_Dynamic
0c3a e001       |    |		Load	0x0,0x1
0c3b 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0c3c 00da       |    |		Load_Top	At_Offset_2
0c3d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0c3e c607       |    |		Store	0x3,0x7
0c3f 00d1       |    |		Pop_Control	Pop_Count_1
0c40 e607       |    |		Load	0x3,0x7								; Debug Table 0x23.0x7 = 0xc40,0x2
0c41 e5fe       |    |		Load	0x2,-0x2
0c42 0092 0c7f  |    |		Action	Push_String_Extended,0xc7f					; "writing into new code segment"
0c44 e5ff       |    |		Load	0x2,-0x1
0c45 821d       |    |		Call	0x1,0x1d
0c46 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c47 0000       |    |		.XXX[0x1]
0c48 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000b39}
0c4c 0000 0000  |    |		.LITERAL	{0x00000000, 0x005851a5}
0c50 ; --------------------------------------------------------------------------------------
0c50 ; STRING TABLE
0c50 ; --------------------------------------------------------------------------------------
0c50 0062       | b  |		.STRTAB	0x0062->0x0c81							; "Can't restore code for "
0c51 0077       | w  |		.STRTAB	0x0077->0x0c8c							; "Error while restoring code "
0c52 0090       |    |		.STRTAB	0x0090->0x0c9a							; "Exception "
0c53 0098       |    |		.STRTAB	0x0098->0x0c9f							; " while restoring code to "
0c54 00af       |    |		.STRTAB	0x00af->0x0cab							; "$"
0c55 00ae       |    |		.STRTAB	0x00ae->0x0cac							; "Can't get enclosing world for "
0c56 00ca       |    |		.STRTAB	0x00ca->0x0cbb							; " while restoring program_library "
0c57 00e9       |    |		.STRTAB	0x00e9->0x0ccb							; " "
0c58 00e8       |    |		.STRTAB	0x00e8->0x0ccc							; " could not be restored"
0c59 00fc       |    |		.STRTAB	0x00fc->0x0cd7							; " while restoring code for load_proc "
0c5a 011e       |    |		.STRTAB	0x011e->0x0ce9							; " is of the wrong class for code to be restored to it"
0c5b 0150       | P  |		.STRTAB	0x0150->0x0d03							; "Error while converting code of "
0c5c 016d       | m  |		.STRTAB	0x016d->0x0d12							; " from pre-delta2 format"
0c5d 0182       |    |		.STRTAB	0x0182->0x0d1e							; " as a program library"
0c5e 0195       |    |		.STRTAB	0x0195->0x0d28							; " while converting code for "
0c5f 01ae       |    |		.STRTAB	0x01ae->0x0d36							; " includes "
0c60 01b6       |    |		.STRTAB	0x01b6->0x0d3b							; " in its closure and must be demoted before"
0c61 01de       |    |		.STRTAB	0x01de->0x0d50							; " code is restored to the latter"
0c62 01fb       |    |		.STRTAB	0x01fb->0x0d5f							; "Can't get the unit_state of "
0c63 0215       |    |		.STRTAB	0x0215->0x0d6d							; " ("
0c64 0215       |    |		.STRTAB	0x0215->0x0d6e							; ")"
0c65 0214       |    |		.STRTAB	0x0214->0x0d6f							; "Can't get declaration for "
0c66 022c       | ,  |		.STRTAB	0x022c->0x0d7c							; "Can't promote loaded_main spec "
0c67 0249       | I  |		.STRTAB	0x0249->0x0d8b							; " to installed ("
0c68 0256       | V  |		.STRTAB	0x0256->0x0d93							; "Can't find load_proc spec "
0c69 026e       | n  |		.STRTAB	0x026e->0x0da0							; "While restoring code for "
0c6a 0285       |    |		.STRTAB	0x0285->0x0dac							; ", bad status "
0c6b 0290       |    |		.STRTAB	0x0290->0x0db3							; ": "
0c6c 0290       |    |		.STRTAB	0x0290->0x0db4							; " code segments read for "
0c6d 02a6       |    |		.STRTAB	0x02a6->0x0dc0							; "Can't find program_library header after create"
0c6e 02d2       |    |		.STRTAB	0x02d2->0x0dd7							; "Can't set the unit_state of "
0c6f 02ec       |    |		.STRTAB	0x02ec->0x0de5							; " to coded ("
0c70 02f5       |    |		.STRTAB	0x02f5->0x0dea							; "while patching instruction"
0c71 030d       |    |		.STRTAB	0x030d->0x0df7							; "while reading instruction to patch segment"
0c72 0335       | 5  |		.STRTAB	0x0335->0x0e0c							; "16#"
0c73 0336       | 6  |		.STRTAB	0x0336->0x0e0e							; "#"
0c74 0335       | 5  |		.STRTAB	0x0335->0x0e0e							; "creating version for target code segment"
0c75 035b       | [  |		.STRTAB	0x035b->0x0e22							; "setting acl for target code segment"
0c76 037c       | |  |		.STRTAB	0x037c->0x0e34							; "opening version of target code segment"
0c77 03a0       |    |		.STRTAB	0x03a0->0x0e47							; "closing version of target code segment"
0c78 03c4       |    |		.STRTAB	0x03c4->0x0e5a							; "creating new code segment"
0c79 03db       |    |		.STRTAB	0x03db->0x0e66							; "opening new code segment"
0c7a 03f1       |    |		.STRTAB	0x03f1->0x0e72							; "creating new cs"
0c7b 03fe       |    |		.STRTAB	0x03fe->0x0e7a							; ", old ="
0c7c 0403       |    |		.STRTAB	0x0403->0x0e7d							; "; name = 16#"
0c7d 040d       |    |		.STRTAB	0x040d->0x0e83							; "#, old = 16#"
0c7e 0417       |    |		.STRTAB	0x0417->0x0e89							; "closing new code segment"
0c7f 042d       | -  |		.STRTAB	0x042d->0x0e95							; "writing into new code segment"
0c80 0448       | H  |		.STREND 0x0448->0x0ea4
0c81 4361 6e27  |Can'|		.STRTAB_STRINGS
0ea4 0000 0000  |    |		.BLANK	0000[0x4]
0ea8 ; --------------------------------------------------------------------------------------
0ea8 ; Debug Table
0ea8 ; --------------------------------------------------------------------------------------
0ea8 0003 0024  |   $|		.CONST	0x0003,0x0024
0eaa 000b 0fca  |    |		.DEBUG	0x000b,0x0fca,0x0000,0x0000,0x0058,0x5195,0x0000,0x050d
0eb2 0012 0fd2  |    |		.DEBUG	0x0012,0x0fd2,0x0000,0x0000,0x0058,0x51a5,0x0000,0x0026
0eba 0053 100e  | S  |		.DEBUG	0x0053,0x100e,0x0001,0x0000,0x0058,0x5195,0x0000,0x050e
0ec2 016b 106c  | k l|		.DEBUG	0x016b,0x106c,0x0001,0x0000,0x0058,0x5195,0x0000,0x051e
0eca 01e3 1092  |    |		.DEBUG	0x01e3,0x1092,0x0001,0x0000,0x0058,0x5195,0x0000,0x052e
0ed2 0263 10b6  | c  |		.DEBUG	0x0263,0x10b6,0x0005,0x0000,0x0058,0x51a5,0x0000,0x0043
0eda 027b 10b8  | {  |		.DEBUG	0x027b,0x10b8,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0053
0ee2 02db 10d8  |    |		.DEBUG	0x02db,0x10d8,0x2802,0x0002,0x0058,0x51a5,0x0000,0x00cf
0eea 0313 10e2  |    |		.DEBUG	0x0313,0x10e2,0x2802,0x0002,0x0058,0x51a5,0x0000,0x00e3
0ef2 033b 10f0  | ;  |		.DEBUG	0x033b,0x10f0,0x0001,0x0000,0x0058,0x51a5,0x0000,0x015c
0efa 0393 110e  |    |		.DEBUG	0x0393,0x110e,0x0001,0x0000,0x0058,0x51a5,0x0000,0x01eb
0f02 03d3 1120  |    |		.DEBUG	0x03d3,0x1120,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0245
0f0a 049b 1158  |   X|		.DEBUG	0x049b,0x1158,0x0002,0x0000,0x0058,0x51a5,0x0000,0x0353
0f12 04cb 1164  |   d|		.DEBUG	0x04cb,0x1164,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0393
0f1a 0503 1174  |   t|		.DEBUG	0x0503,0x1174,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0407
0f22 05bb 11ac  |    |		.DEBUG	0x05bb,0x11ac,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0531
0f2a 0623 11cc  | #  |		.DEBUG	0x0623,0x11cc,0x0002,0x0000,0x0058,0x51a5,0x0000,0x075e
0f32 0643 11d6  | C  |		.DEBUG	0x0643,0x11d6,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0799
0f3a 0663 11de  | c  |		.DEBUG	0x0663,0x11de,0x0001,0x0000,0x0058,0x51a5,0x0000,0x07e0
0f42 0693 11ea  |    |		.DEBUG	0x0693,0x11ea,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0908
0f4a 06fb 1216  |    |		.DEBUG	0x06fb,0x1216,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0c24
0f52 08bb 129e  |    |		.DEBUG	0x08bb,0x129e,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0f50
0f5a 0963 12d2  | c  |		.DEBUG	0x0963,0x12d2,0x0007,0x0000,0x0058,0x51a5,0x0000,0x05e8
0f62 0973 12d4  | s  |		.DEBUG	0x0973,0x12d4,0x0804,0x0002,0x0058,0x51a5,0x0000,0x0121
0f6a 098b 12dc  |    |		.DEBUG	0x098b,0x12dc,0x0804,0x0002,0x0058,0x51a5,0x0000,0x0153
0f72 09ab 12e4  |    |		.DEBUG	0x09ab,0x12e4,0x0804,0x0002,0x0058,0x51a5,0x0000,0x08ec
0f7a 09db 12f4  |    |		.DEBUG	0x09db,0x12f4,0x0001,0x0000,0x0058,0x51a5,0x0000,0x07fb
0f82 09f3 12fc  |    |		.DEBUG	0x09f3,0x12fc,0x0002,0x0000,0x0058,0x51a5,0x0000,0x082c
0f8a 0a03 1300  |    |		.DEBUG	0x0a03,0x1300,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0849
0f92 0a1b 1308  |    |		.DEBUG	0x0a1b,0x1308,0x0002,0x0000,0x0058,0x51a5,0x0000,0x095b
0f9a 0a33 130e  | 3  |		.DEBUG	0x0a33,0x130e,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0980
0fa2 0abb 1332  |   2|		.DEBUG	0x0abb,0x1332,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0a2f
0faa 0b6b 1360  | k `|		.DEBUG	0x0b6b,0x1360,0x0001,0x0000,0x0058,0x51a5,0x0000,0x0b7d
0fb2 0b9b 136e  |   n|		.DEBUG	0x0b9b,0x136e,0x0002,0x0000,0x0058,0x51a5,0x0000,0x0cb3
0fba 0ba3 1372  |   r|		.DEBUG	0x0ba3,0x1372,0x0004,0x0000,0x0058,0x51a5,0x0000,0x1073
0fc2 0c0b 1396  |    |		.DEBUG	0x0c0b,0x1396,0x0004,0x0000,0x0058,0x51a5,0x0000,0x0b56
0fca ; --------------------------------------------------------------------------------------
0fca ; Debug3 Subtable 0x0
0fca ; --------------------------------------------------------------------------------------
0fca 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
0fcc 000b ffff  |    |		.CONST	0x000b,0xffff
0fce 000d fffe  |    |		.CONST	0x000d,0xfffe
0fd0 000f fffd  |    |		.CONST	0x000f,0xfffd
0fd2 ; --------------------------------------------------------------------------------------
0fd2 ; Debug3 Subtable 0x1
0fd2 ; --------------------------------------------------------------------------------------
0fd2 001d 0000  |    |		.DBG3TAB	0x001d,0x0000
0fd4 0012 ffff  |    |		.CONST	0x0012,0xffff
0fd6 0013 fffe  |    |		.CONST	0x0013,0xfffe
0fd8 0014 fffd  |    |		.CONST	0x0014,0xfffd
0fda 0015 fffc  |    |		.CONST	0x0015,0xfffc
0fdc 0016 fffb  |    |		.CONST	0x0016,0xfffb
0fde 0018 fffa  |    |		.CONST	0x0018,0xfffa
0fe0 001b fff9  |    |		.CONST	0x001b,0xfff9
0fe2 001c fff8  |    |		.CONST	0x001c,0xfff8
0fe4 0023 fff7  | #  |		.CONST	0x0023,0xfff7
0fe6 0025 fff6  | %  |		.CONST	0x0025,0xfff6
0fe8 0027 fff5  | '  |		.CONST	0x0027,0xfff5
0fea 0029 fff4  | )  |		.CONST	0x0029,0xfff4
0fec 002b fff3  | +  |		.CONST	0x002b,0xfff3
0fee 002d fff2  | -  |		.CONST	0x002d,0xfff2
0ff0 002f fff1  | /  |		.CONST	0x002f,0xfff1
0ff2 0031 fff0  | 1  |		.CONST	0x0031,0xfff0
0ff4 0033 ffef  | 3  |		.CONST	0x0033,0xffef
0ff6 0035 ffee  | 5  |		.CONST	0x0035,0xffee
0ff8 0037 ffed  | 7  |		.CONST	0x0037,0xffed
0ffa 0039 ffec  | 9  |		.CONST	0x0039,0xffec
0ffc 003b ffeb  | ;  |		.CONST	0x003b,0xffeb
0ffe 003d ffea  | =  |		.CONST	0x003d,0xffea
1000 003f ffe9  | ?  |		.CONST	0x003f,0xffe9
1002 0041 ffe8  | A  |		.CONST	0x0041,0xffe8
1004 0043 ffe7  | C  |		.CONST	0x0043,0xffe7
1006 0045 ffe6  | E  |		.CONST	0x0045,0xffe6
1008 0047 ffe5  | G  |		.CONST	0x0047,0xffe5
100a 0049 ffe4  | I  |		.CONST	0x0049,0xffe4
100c 004b ffe3  | K  |		.CONST	0x004b,0xffe3
100e ; --------------------------------------------------------------------------------------
100e ; Debug3 Subtable 0x2
100e ; --------------------------------------------------------------------------------------
100e 0007 0027  |   '|		.DBG3TAB	0x0007,0x0027
1010 0053 ffff  | S  |		.CONST	0x0053,0xffff
1012 0054 fffe  | T  |		.CONST	0x0054,0xfffe
1014 0056 fffd  | V  |		.CONST	0x0056,0xfffd
1016 0057 fffc  | W  |		.CONST	0x0057,0xfffc
1018 0058 fffb  | X  |		.CONST	0x0058,0xfffb
101a 005a fffa  | Z  |		.CONST	0x005a,0xfffa
101c 0064 fff9  | d  |		.CONST	0x0064,0xfff9
101e 0070 0001  | p  |		.CONST	0x0070,0x0001
1020 0074 0002  | t  |		.CONST	0x0074,0x0002
1022 007d 0003  | }  |		.CONST	0x007d,0x0003
1024 007f 0004  |    |		.CONST	0x007f,0x0004
1026 0083 0005  |    |		.CONST	0x0083,0x0005
1028 0084 0006  |    |		.CONST	0x0084,0x0006
102a 0086 0007  |    |		.CONST	0x0086,0x0007
102c 008b 0008  |    |		.CONST	0x008b,0x0008
102e 008d 0009  |    |		.CONST	0x008d,0x0009
1030 0093 000a  |    |		.CONST	0x0093,0x000a
1032 0097 000b  |    |		.CONST	0x0097,0x000b
1034 0099 000c  |    |		.CONST	0x0099,0x000c
1036 00a1 000d  |    |		.CONST	0x00a1,0x000d
1038 00a9 000e  |    |		.CONST	0x00a9,0x000e
103a 00b6 0010  |    |		.CONST	0x00b6,0x0010
103c 00cb 0011  |    |		.CONST	0x00cb,0x0011
103e 00cd 0012  |    |		.CONST	0x00cd,0x0012
1040 00d3 0013  |    |		.CONST	0x00d3,0x0013
1042 00db 0014  |    |		.CONST	0x00db,0x0014
1044 00f3 0015  |    |		.CONST	0x00f3,0x0015
1046 00f5 0016  |    |		.CONST	0x00f5,0x0016
1048 00fb 0017  |    |		.CONST	0x00fb,0x0017
104a 0100 0018  |    |		.CONST	0x0100,0x0018
104c 0103 0019  |    |		.CONST	0x0103,0x0019
104e 0105 001a  |    |		.CONST	0x0105,0x001a
1050 010a 001b  |    |		.CONST	0x010a,0x001b
1052 010c 001c  |    |		.CONST	0x010c,0x001c
1054 0111 001d  |    |		.CONST	0x0111,0x001d
1056 0116 001e  |    |		.CONST	0x0116,0x001e
1058 0118 001f  |    |		.CONST	0x0118,0x001f
105a 011c 0020  |    |		.CONST	0x011c,0x0020
105c 011e 0021  |   !|		.CONST	0x011e,0x0021
105e 0124 0022  | $ "|		.CONST	0x0124,0x0022
1060 0128 0023  | ( #|		.CONST	0x0128,0x0023
1062 012a 0024  | * $|		.CONST	0x012a,0x0024
1064 013f 0025  | ? %|		.CONST	0x013f,0x0025
1066 0141 0026  | A &|		.CONST	0x0141,0x0026
1068 014d 0027  | M '|		.CONST	0x014d,0x0027
106a 0165 0028  | e (|		.CONST	0x0165,0x0028
106c ; --------------------------------------------------------------------------------------
106c ; Debug3 Subtable 0x3
106c ; --------------------------------------------------------------------------------------
106c 0004 000e  |    |		.DBG3TAB	0x0004,0x000e
106e 016b ffff  | k  |		.CONST	0x016b,0xffff
1070 016c fffe  | l  |		.CONST	0x016c,0xfffe
1072 016f fffd  | o  |		.CONST	0x016f,0xfffd
1074 0173 fffc  | s  |		.CONST	0x0173,0xfffc
1076 0178 0001  | x  |		.CONST	0x0178,0x0001
1078 017c 0002  | |  |		.CONST	0x017c,0x0002
107a 0197 0003  |    |		.CONST	0x0197,0x0003
107c 0199 0004  |    |		.CONST	0x0199,0x0004
107e 019f 0005  |    |		.CONST	0x019f,0x0005
1080 01a3 0006  |    |		.CONST	0x01a3,0x0006
1082 01a4 0007  |    |		.CONST	0x01a4,0x0007
1084 01ab 0008  |    |		.CONST	0x01ab,0x0008
1086 01ad 0009  |    |		.CONST	0x01ad,0x0009
1088 01b1 000a  |    |		.CONST	0x01b1,0x000a
108a 01b7 000b  |    |		.CONST	0x01b7,0x000b
108c 01cb 000c  |    |		.CONST	0x01cb,0x000c
108e 01cd 000d  |    |		.CONST	0x01cd,0x000d
1090 01d9 000e  |    |		.CONST	0x01d9,0x000e
1092 ; --------------------------------------------------------------------------------------
1092 ; Debug3 Subtable 0x4
1092 ; --------------------------------------------------------------------------------------
1092 0003 000e  |    |		.DBG3TAB	0x0003,0x000e
1094 01e3 ffff  |    |		.CONST	0x01e3,0xffff
1096 01e8 fffe  |    |		.CONST	0x01e8,0xfffe
1098 01eb fffd  |    |		.CONST	0x01eb,0xfffd
109a 01ec 0001  |    |		.CONST	0x01ec,0x0001
109c 01f0 0002  |    |		.CONST	0x01f0,0x0002
109e 0208 0003  |    |		.CONST	0x0208,0x0003
10a0 020a 0004  |    |		.CONST	0x020a,0x0004
10a2 020e 0005  |    |		.CONST	0x020e,0x0005
10a4 0210 0006  |    |		.CONST	0x0210,0x0006
10a6 0217 0007  |    |		.CONST	0x0217,0x0007
10a8 0219 0008  |    |		.CONST	0x0219,0x0008
10aa 022a 0009  | *  |		.CONST	0x022a,0x0009
10ac 022c 000a  | ,  |		.CONST	0x022c,0x000a
10ae 0231 000b  | 1  |		.CONST	0x0231,0x000b
10b0 0249 000c  | I  |		.CONST	0x0249,0x000c
10b2 024b 000d  | K  |		.CONST	0x024b,0x000d
10b4 0257 000e  | W  |		.CONST	0x0257,0x000e
10b6 ; --------------------------------------------------------------------------------------
10b6 ; Debug3 Subtable 0x5
10b6 ; --------------------------------------------------------------------------------------
10b6 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
10b8 ; --------------------------------------------------------------------------------------
10b8 ; Debug3 Subtable 0x6
10b8 ; --------------------------------------------------------------------------------------
10b8 0003 000c  |    |		.DBG3TAB	0x0003,0x000c
10ba 027b ffff  | {  |		.CONST	0x027b,0xffff
10bc 0280 fffe  |    |		.CONST	0x0280,0xfffe
10be 0283 fffd  |    |		.CONST	0x0283,0xfffd
10c0 0285 0001  |    |		.CONST	0x0285,0x0001
10c2 029d 0002  |    |		.CONST	0x029d,0x0002
10c4 029f 0003  |    |		.CONST	0x029f,0x0003
10c6 02a0 0004  |    |		.CONST	0x02a0,0x0004
10c8 02a5 0005  |    |		.CONST	0x02a5,0x0005
10ca 02aa 0006  |    |		.CONST	0x02aa,0x0006
10cc 02b7 0007  |    |		.CONST	0x02b7,0x0007
10ce 02b8 0008  |    |		.CONST	0x02b8,0x0008
10d0 02bc 0009  |    |		.CONST	0x02bc,0x0009
10d2 02c1 000a  |    |		.CONST	0x02c1,0x000a
10d4 02c6 000b  |    |		.CONST	0x02c6,0x000b
10d6 02cc 000c  |    |		.CONST	0x02cc,0x000c
10d8 ; --------------------------------------------------------------------------------------
10d8 ; Debug3 Subtable 0x7
10d8 ; --------------------------------------------------------------------------------------
10d8 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
10da 02df 0001  |    |		.CONST	0x02df,0x0001
10dc 02e7 0002  |    |		.CONST	0x02e7,0x0002
10de 02e9 0003  |    |		.CONST	0x02e9,0x0003
10e0 02f2 0004  |    |		.CONST	0x02f2,0x0004
10e2 ; --------------------------------------------------------------------------------------
10e2 ; Debug3 Subtable 0x8
10e2 ; --------------------------------------------------------------------------------------
10e2 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
10e4 0313 ffff  |    |		.CONST	0x0313,0xffff
10e6 0315 fffe  |    |		.CONST	0x0315,0xfffe
10e8 0320 0001  |    |		.CONST	0x0320,0x0001
10ea 0321 0002  | !  |		.CONST	0x0321,0x0002
10ec 0323 0003  | #  |		.CONST	0x0323,0x0003
10ee 0329 0004  | )  |		.CONST	0x0329,0x0004
10f0 ; --------------------------------------------------------------------------------------
10f0 ; Debug3 Subtable 0x9
10f0 ; --------------------------------------------------------------------------------------
10f0 0002 000c  |    |		.DBG3TAB	0x0002,0x000c
10f2 033b ffff  | ;  |		.CONST	0x033b,0xffff
10f4 033e fffe  | >  |		.CONST	0x033e,0xfffe
10f6 0343 0001  | C  |		.CONST	0x0343,0x0001
10f8 0345 0002  | E  |		.CONST	0x0345,0x0002
10fa 034a 0005  | J  |		.CONST	0x034a,0x0005
10fc 0362 0006  | b  |		.CONST	0x0362,0x0006
10fe 036b 0007  | k  |		.CONST	0x036b,0x0007
1100 036e 0008  | n  |		.CONST	0x036e,0x0008
1102 0375 0009  | u  |		.CONST	0x0375,0x0009
1104 0378 000a  | x  |		.CONST	0x0378,0x000a
1106 037a 000b  | z  |		.CONST	0x037a,0x000b
1108 037c 000c  | |  |		.CONST	0x037c,0x000c
110a 0383 0003  |    |		.CONST	0x0383,0x0003
110c 0386 0004  |    |		.CONST	0x0386,0x0004
110e ; --------------------------------------------------------------------------------------
110e ; Debug3 Subtable 0xa
110e ; --------------------------------------------------------------------------------------
110e 0003 0005  |    |		.DBG3TAB	0x0003,0x0005
1110 0393 ffff  |    |		.CONST	0x0393,0xffff
1112 0398 fffe  |    |		.CONST	0x0398,0xfffe
1114 039d fffd  |    |		.CONST	0x039d,0xfffd
1116 03a0 0001  |    |		.CONST	0x03a0,0x0001
1118 03b8 0002  |    |		.CONST	0x03b8,0x0002
111a 03ba 0003  |    |		.CONST	0x03ba,0x0003
111c 03be 0004  |    |		.CONST	0x03be,0x0004
111e 03c2 0005  |    |		.CONST	0x03c2,0x0005
1120 ; --------------------------------------------------------------------------------------
1120 ; Debug3 Subtable 0xb
1120 ; --------------------------------------------------------------------------------------
1120 0005 0016  |    |		.DBG3TAB	0x0005,0x0016
1122 03d3 ffff  |    |		.CONST	0x03d3,0xffff
1124 03d8 fffe  |    |		.CONST	0x03d8,0xfffe
1126 03db fffd  |    |		.CONST	0x03db,0xfffd
1128 03dc fffc  |    |		.CONST	0x03dc,0xfffc
112a 03de fffb  |    |		.CONST	0x03de,0xfffb
112c 03e9 0001  |    |		.CONST	0x03e9,0x0001
112e 03eb 0002  |    |		.CONST	0x03eb,0x0002
1130 0403 0003  |    |		.CONST	0x0403,0x0003
1132 0405 0004  |    |		.CONST	0x0405,0x0004
1134 0406 0005  |    |		.CONST	0x0406,0x0005
1136 0414 0006  |    |		.CONST	0x0414,0x0006
1138 0432 0007  | 2  |		.CONST	0x0432,0x0007
113a 0434 0008  | 4  |		.CONST	0x0434,0x0008
113c 043d 0009  | =  |		.CONST	0x043d,0x0009
113e 0443 000a  | C  |		.CONST	0x0443,0x000a
1140 0445 000b  | E  |		.CONST	0x0445,0x000b
1142 0452 000c  | R  |		.CONST	0x0452,0x000c
1144 045b 000d  | [  |		.CONST	0x045b,0x000d
1146 045d 000e  | ]  |		.CONST	0x045d,0x000e
1148 0463 000f  | c  |		.CONST	0x0463,0x000f
114a 046c 0010  | l  |		.CONST	0x046c,0x0010
114c 046e 0011  | n  |		.CONST	0x046e,0x0011
114e 0475 0012  | u  |		.CONST	0x0475,0x0012
1150 047f 0013  |    |		.CONST	0x047f,0x0013
1152 0481 0014  |    |		.CONST	0x0481,0x0014
1154 048a 0015  |    |		.CONST	0x048a,0x0015
1156 0496 0016  |    |		.CONST	0x0496,0x0016
1158 ; --------------------------------------------------------------------------------------
1158 ; Debug3 Subtable 0xc
1158 ; --------------------------------------------------------------------------------------
1158 0003 0002  |    |		.DBG3TAB	0x0003,0x0002
115a 049b ffff  |    |		.CONST	0x049b,0xffff
115c 049d fffe  |    |		.CONST	0x049d,0xfffe
115e 04a3 fffd  |    |		.CONST	0x04a3,0xfffd
1160 04a4 0001  |    |		.CONST	0x04a4,0x0001
1162 04c1 0002  |    |		.CONST	0x04c1,0x0002
1164 ; --------------------------------------------------------------------------------------
1164 ; Debug3 Subtable 0xd
1164 ; --------------------------------------------------------------------------------------
1164 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
1166 04cb ffff  |    |		.CONST	0x04cb,0xffff
1168 04d0 fffe  |    |		.CONST	0x04d0,0xfffe
116a 04d7 0001  |    |		.CONST	0x04d7,0x0001
116c 04dc 0002  |    |		.CONST	0x04dc,0x0002
116e 04e0 0003  |    |		.CONST	0x04e0,0x0003
1170 04f9 0004  |    |		.CONST	0x04f9,0x0004
1172 04fc 0005  |    |		.CONST	0x04fc,0x0005
1174 ; --------------------------------------------------------------------------------------
1174 ; Debug3 Subtable 0xe
1174 ; --------------------------------------------------------------------------------------
1174 0006 0015  |    |		.DBG3TAB	0x0006,0x0015
1176 0503 ffff  |    |		.CONST	0x0503,0xffff
1178 0505 fffe  |    |		.CONST	0x0505,0xfffe
117a 0508 fffd  |    |		.CONST	0x0508,0xfffd
117c 0509 fffc  |    |		.CONST	0x0509,0xfffc
117e 050b fffb  |    |		.CONST	0x050b,0xfffb
1180 050c fffa  |    |		.CONST	0x050c,0xfffa
1182 050f 0001  |    |		.CONST	0x050f,0x0001
1184 0520 0002  |    |		.CONST	0x0520,0x0002
1186 0522 0003  | "  |		.CONST	0x0522,0x0003
1188 0537 0004  | 7  |		.CONST	0x0537,0x0004
118a 0539 0005  | 9  |		.CONST	0x0539,0x0005
118c 053a 0006  | :  |		.CONST	0x053a,0x0006
118e 0541 0007  | A  |		.CONST	0x0541,0x0007
1190 0543 0008  | C  |		.CONST	0x0543,0x0008
1192 0544 0009  | D  |		.CONST	0x0544,0x0009
1194 054a 000a  | J  |		.CONST	0x054a,0x000a
1196 054b 000c  | K  |		.CONST	0x054b,0x000c
1198 0558 000d  | X  |		.CONST	0x0558,0x000d
119a 055a 000e  | Z  |		.CONST	0x055a,0x000e
119c 056f 000f  | o  |		.CONST	0x056f,0x000f
119e 0571 0010  | q  |		.CONST	0x0571,0x0010
11a0 0572 0011  | r  |		.CONST	0x0572,0x0011
11a2 058c 0012  |    |		.CONST	0x058c,0x0012
11a4 058e 0013  |    |		.CONST	0x058e,0x0013
11a6 05a3 0014  |    |		.CONST	0x05a3,0x0014
11a8 05ab 0015  |    |		.CONST	0x05ab,0x0015
11aa 05ae 0016  |    |		.CONST	0x05ae,0x0016
11ac ; --------------------------------------------------------------------------------------
11ac ; Debug3 Subtable 0xf
11ac ; --------------------------------------------------------------------------------------
11ac 0004 000b  |    |		.DBG3TAB	0x0004,0x000b
11ae 05bb ffff  |    |		.CONST	0x05bb,0xffff
11b0 05c0 fffe  |    |		.CONST	0x05c0,0xfffe
11b2 05c3 fffd  |    |		.CONST	0x05c3,0xfffd
11b4 05c8 fffc  |    |		.CONST	0x05c8,0xfffc
11b6 05c9 0001  |    |		.CONST	0x05c9,0x0001
11b8 05e1 0002  |    |		.CONST	0x05e1,0x0002
11ba 05e3 0003  |    |		.CONST	0x05e3,0x0003
11bc 05f6 0004  |    |		.CONST	0x05f6,0x0004
11be 05f8 0005  |    |		.CONST	0x05f8,0x0005
11c0 05f9 0006  |    |		.CONST	0x05f9,0x0006
11c2 0601 0007  |    |		.CONST	0x0601,0x0007
11c4 0607 0008  |    |		.CONST	0x0607,0x0008
11c6 0610 0009  |    |		.CONST	0x0610,0x0009
11c8 0614 000a  |    |		.CONST	0x0614,0x000a
11ca 061d 000b  |    |		.CONST	0x061d,0x000b
11cc ; --------------------------------------------------------------------------------------
11cc ; Debug3 Subtable 0x10
11cc ; --------------------------------------------------------------------------------------
11cc 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
11ce 0623 ffff  | #  |		.CONST	0x0623,0xffff
11d0 0628 fffe  | (  |		.CONST	0x0628,0xfffe
11d2 062a 0001  | *  |		.CONST	0x062a,0x0001
11d4 0637 0002  | 7  |		.CONST	0x0637,0x0002
11d6 ; --------------------------------------------------------------------------------------
11d6 ; Debug3 Subtable 0x11
11d6 ; --------------------------------------------------------------------------------------
11d6 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
11d8 0643 0001  | C  |		.CONST	0x0643,0x0001
11da 0645 0002  | E  |		.CONST	0x0645,0x0002
11dc 0659 0003  | Y  |		.CONST	0x0659,0x0003
11de ; --------------------------------------------------------------------------------------
11de ; Debug3 Subtable 0x12
11de ; --------------------------------------------------------------------------------------
11de 0004 0001  |    |		.DBG3TAB	0x0004,0x0001
11e0 0663 ffff  | c  |		.CONST	0x0663,0xffff
11e2 0665 fffe  | e  |		.CONST	0x0665,0xfffe
11e4 0667 fffd  | g  |		.CONST	0x0667,0xfffd
11e6 0669 fffc  | i  |		.CONST	0x0669,0xfffc
11e8 067b 0001  | {  |		.CONST	0x067b,0x0001
11ea ; --------------------------------------------------------------------------------------
11ea ; Debug3 Subtable 0x13
11ea ; --------------------------------------------------------------------------------------
11ea 0008 000d  |    |		.DBG3TAB	0x0008,0x000d
11ec 0693 ffff  |    |		.CONST	0x0693,0xffff
11ee 0694 fffe  |    |		.CONST	0x0694,0xfffe
11f0 0696 fffd  |    |		.CONST	0x0696,0xfffd
11f2 0698 fffc  |    |		.CONST	0x0698,0xfffc
11f4 06a1 fffb  |    |		.CONST	0x06a1,0xfffb
11f6 06a3 fffa  |    |		.CONST	0x06a3,0xfffa
11f8 06a5 fff9  |    |		.CONST	0x06a5,0xfff9
11fa 06a7 fff8  |    |		.CONST	0x06a7,0xfff8
11fc 06a9 0001  |    |		.CONST	0x06a9,0x0001
11fe 06ac 0002  |    |		.CONST	0x06ac,0x0002
1200 06ad 0003  |    |		.CONST	0x06ad,0x0003
1202 06af 0004  |    |		.CONST	0x06af,0x0004
1204 06b1 0005  |    |		.CONST	0x06b1,0x0005
1206 06b5 0006  |    |		.CONST	0x06b5,0x0006
1208 06b7 0007  |    |		.CONST	0x06b7,0x0007
120a 06bd 0008  |    |		.CONST	0x06bd,0x0008
120c 06c5 0009  |    |		.CONST	0x06c5,0x0009
120e 06c7 000a  |    |		.CONST	0x06c7,0x000a
1210 06c8 000b  |    |		.CONST	0x06c8,0x000b
1212 06d6 000c  |    |		.CONST	0x06d6,0x000c
1214 06f1 000d  |    |		.CONST	0x06f1,0x000d
1216 ; --------------------------------------------------------------------------------------
1216 ; Debug3 Subtable 0x14
1216 ; --------------------------------------------------------------------------------------
1216 0011 0032  |   2|		.DBG3TAB	0x0011,0x0032
1218 06fb ffff  |    |		.CONST	0x06fb,0xffff
121a 0700 fffe  |    |		.CONST	0x0700,0xfffe
121c 0706 fffd  |    |		.CONST	0x0706,0xfffd
121e 0707 fffc  |    |		.CONST	0x0707,0xfffc
1220 0708 fffb  |    |		.CONST	0x0708,0xfffb
1222 070d fffa  |    |		.CONST	0x070d,0xfffa
1224 0710 fff9  |    |		.CONST	0x0710,0xfff9
1226 0714 fff8  |    |		.CONST	0x0714,0xfff8
1228 0718 fff7  |    |		.CONST	0x0718,0xfff7
122a 071a fff6  |    |		.CONST	0x071a,0xfff6
122c 071f fff5  |    |		.CONST	0x071f,0xfff5
122e 0721 fff4  | !  |		.CONST	0x0721,0xfff4
1230 0722 fff3  | "  |		.CONST	0x0722,0xfff3
1232 0724 fff2  | $  |		.CONST	0x0724,0xfff2
1234 0729 fff1  | )  |		.CONST	0x0729,0xfff1
1236 0734 fff0  | 4  |		.CONST	0x0734,0xfff0
1238 0736 ffef  | 6  |		.CONST	0x0736,0xffef
123a 0741 0001  | A  |		.CONST	0x0741,0x0001
123c 074e 0002  | N  |		.CONST	0x074e,0x0002
123e 075c 0003  | \  |		.CONST	0x075c,0x0003
1240 0761 0004  | a  |		.CONST	0x0761,0x0004
1242 076c 0005  | l  |		.CONST	0x076c,0x0005
1244 0770 0006  | p  |		.CONST	0x0770,0x0006
1246 0779 0007  | y  |		.CONST	0x0779,0x0007
1248 077b 0008  | {  |		.CONST	0x077b,0x0008
124a 077c 0009  | |  |		.CONST	0x077c,0x0009
124c 0781 000a  |    |		.CONST	0x0781,0x000a
124e 078c 000b  |    |		.CONST	0x078c,0x000b
1250 078e 000c  |    |		.CONST	0x078e,0x000c
1252 0792 000d  |    |		.CONST	0x0792,0x000d
1254 0796 000e  |    |		.CONST	0x0796,0x000e
1256 079f 000f  |    |		.CONST	0x079f,0x000f
1258 07a1 0010  |    |		.CONST	0x07a1,0x0010
125a 07a2 0011  |    |		.CONST	0x07a2,0x0011
125c 07a9 0012  |    |		.CONST	0x07a9,0x0012
125e 07ae 0013  |    |		.CONST	0x07ae,0x0013
1260 07b5 0014  |    |		.CONST	0x07b5,0x0014
1262 07bf 0015  |    |		.CONST	0x07bf,0x0015
1264 07c7 0016  |    |		.CONST	0x07c7,0x0016
1266 07d3 0017  |    |		.CONST	0x07d3,0x0017
1268 07e0 0019  |    |		.CONST	0x07e0,0x0019
126a 07e6 001a  |    |		.CONST	0x07e6,0x001a
126c 07ec 001b  |    |		.CONST	0x07ec,0x001b
126e 07f8 001c  |    |		.CONST	0x07f8,0x001c
1270 0804 001d  |    |		.CONST	0x0804,0x001d
1272 0815 001e  |    |		.CONST	0x0815,0x001e
1274 0817 001f  |    |		.CONST	0x0817,0x001f
1276 0820 0020  |    |		.CONST	0x0820,0x0020
1278 0822 0021  | " !|		.CONST	0x0822,0x0021
127a 0823 0022  | # "|		.CONST	0x0823,0x0022
127c 0829 0023  | ) #|		.CONST	0x0829,0x0023
127e 0831 0024  | 1 $|		.CONST	0x0831,0x0024
1280 084b 0025  | K %|		.CONST	0x084b,0x0025
1282 084d 0026  | M &|		.CONST	0x084d,0x0026
1284 0855 0027  | U '|		.CONST	0x0855,0x0027
1286 085e 0028  | ^ (|		.CONST	0x085e,0x0028
1288 0860 0029  | ` )|		.CONST	0x0860,0x0029
128a 0861 002a  | a *|		.CONST	0x0861,0x002a
128c 0865 002b  | e +|		.CONST	0x0865,0x002b
128e 086a 002c  | j ,|		.CONST	0x086a,0x002c
1290 0875 002d  | u -|		.CONST	0x0875,0x002d
1292 087e 002e  | ~ .|		.CONST	0x087e,0x002e
1294 0880 002f  |   /|		.CONST	0x0880,0x002f
1296 0881 0030  |   0|		.CONST	0x0881,0x0030
1298 088a 0031  |   1|		.CONST	0x088a,0x0031
129a 088e 0032  |   2|		.CONST	0x088e,0x0032
129c 0897 0033  |   3|		.CONST	0x0897,0x0033
129e ; --------------------------------------------------------------------------------------
129e ; Debug3 Subtable 0x15
129e ; --------------------------------------------------------------------------------------
129e 0008 0011  |    |		.DBG3TAB	0x0008,0x0011
12a0 08bb ffff  |    |		.CONST	0x08bb,0xffff
12a2 08bc fffe  |    |		.CONST	0x08bc,0xfffe
12a4 08c0 fffd  |    |		.CONST	0x08c0,0xfffd
12a6 08c4 fffc  |    |		.CONST	0x08c4,0xfffc
12a8 08c6 fffb  |    |		.CONST	0x08c6,0xfffb
12aa 08c8 fffa  |    |		.CONST	0x08c8,0xfffa
12ac 08cd fff9  |    |		.CONST	0x08cd,0xfff9
12ae 08cf fff8  |    |		.CONST	0x08cf,0xfff8
12b0 08d9 0001  |    |		.CONST	0x08d9,0x0001
12b2 08e1 0002  |    |		.CONST	0x08e1,0x0002
12b4 08e9 0003  |    |		.CONST	0x08e9,0x0003
12b6 08f6 0005  |    |		.CONST	0x08f6,0x0005
12b8 0902 0006  |    |		.CONST	0x0902,0x0006
12ba 090e 0007  |    |		.CONST	0x090e,0x0007
12bc 0916 0008  |    |		.CONST	0x0916,0x0008
12be 0917 0009  |    |		.CONST	0x0917,0x0009
12c0 0920 000a  |    |		.CONST	0x0920,0x000a
12c2 0922 000b  | "  |		.CONST	0x0922,0x000b
12c4 0924 000c  | $  |		.CONST	0x0924,0x000c
12c6 092d 000d  | -  |		.CONST	0x092d,0x000d
12c8 0942 000e  | B  |		.CONST	0x0942,0x000e
12ca 0943 000f  | C  |		.CONST	0x0943,0x000f
12cc 094c 0010  | L  |		.CONST	0x094c,0x0010
12ce 0950 0011  | P  |		.CONST	0x0950,0x0011
12d0 0959 0012  | Y  |		.CONST	0x0959,0x0012
12d2 ; --------------------------------------------------------------------------------------
12d2 ; Debug3 Subtable 0x16
12d2 ; --------------------------------------------------------------------------------------
12d2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
12d4 ; --------------------------------------------------------------------------------------
12d4 ; Debug3 Subtable 0x17
12d4 ; --------------------------------------------------------------------------------------
12d4 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
12d6 0973 ffff  | s  |		.CONST	0x0973,0xffff
12d8 097b 0001  | {  |		.CONST	0x097b,0x0001
12da 0981 0002  |    |		.CONST	0x0981,0x0002
12dc ; --------------------------------------------------------------------------------------
12dc ; Debug3 Subtable 0x18
12dc ; --------------------------------------------------------------------------------------
12dc 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
12de 098b ffff  |    |		.CONST	0x098b,0xffff
12e0 0990 0001  |    |		.CONST	0x0990,0x0001
12e2 09a0 0002  |    |		.CONST	0x09a0,0x0002
12e4 ; --------------------------------------------------------------------------------------
12e4 ; Debug3 Subtable 0x19
12e4 ; --------------------------------------------------------------------------------------
12e4 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
12e6 09ab ffff  |    |		.CONST	0x09ab,0xffff
12e8 09bb fffe  |    |		.CONST	0x09bb,0xfffe
12ea 09be 0001  |    |		.CONST	0x09be,0x0001
12ec 09bf 0002  |    |		.CONST	0x09bf,0x0002
12ee 09c6 0003  |    |		.CONST	0x09c6,0x0003
12f0 09ca 0004  |    |		.CONST	0x09ca,0x0004
12f2 09cd 0005  |    |		.CONST	0x09cd,0x0005
12f4 ; --------------------------------------------------------------------------------------
12f4 ; Debug3 Subtable 0x1a
12f4 ; --------------------------------------------------------------------------------------
12f4 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
12f6 09db ffff  |    |		.CONST	0x09db,0xffff
12f8 09dd 0001  |    |		.CONST	0x09dd,0x0001
12fa 09e6 0002  |    |		.CONST	0x09e6,0x0002
12fc ; --------------------------------------------------------------------------------------
12fc ; Debug3 Subtable 0x1b
12fc ; --------------------------------------------------------------------------------------
12fc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
12fe 09f3 0001  |    |		.CONST	0x09f3,0x0001
1300 ; --------------------------------------------------------------------------------------
1300 ; Debug3 Subtable 0x1c
1300 ; --------------------------------------------------------------------------------------
1300 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
1302 0a03 ffff  |    |		.CONST	0x0a03,0xffff
1304 0a05 0001  |    |		.CONST	0x0a05,0x0001
1306 0a10 0002  |    |		.CONST	0x0a10,0x0002
1308 ; --------------------------------------------------------------------------------------
1308 ; Debug3 Subtable 0x1d
1308 ; --------------------------------------------------------------------------------------
1308 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
130a 0a1b ffff  |    |		.CONST	0x0a1b,0xffff
130c 0a25 0001  | %  |		.CONST	0x0a25,0x0001
130e ; --------------------------------------------------------------------------------------
130e ; Debug3 Subtable 0x1e
130e ; --------------------------------------------------------------------------------------
130e 0006 000b  |    |		.DBG3TAB	0x0006,0x000b
1310 0a33 ffff  | 3  |		.CONST	0x0a33,0xffff
1312 0a35 fffe  | 5  |		.CONST	0x0a35,0xfffe
1314 0a3a fffd  | :  |		.CONST	0x0a3a,0xfffd
1316 0a3f fffc  | ?  |		.CONST	0x0a3f,0xfffc
1318 0a44 fffb  | D  |		.CONST	0x0a44,0xfffb
131a 0a4a fffa  | J  |		.CONST	0x0a4a,0xfffa
131c 0a53 0001  | S  |		.CONST	0x0a53,0x0001
131e 0a59 0002  | Y  |		.CONST	0x0a59,0x0002
1320 0a6b 0003  | k  |		.CONST	0x0a6b,0x0003
1322 0a71 0004  | q  |		.CONST	0x0a71,0x0004
1324 0a7b 0005  | {  |		.CONST	0x0a7b,0x0005
1326 0a81 0006  |    |		.CONST	0x0a81,0x0006
1328 0a92 0007  |    |		.CONST	0x0a92,0x0007
132a 0a98 0008  |    |		.CONST	0x0a98,0x0008
132c 0a9f 0009  |    |		.CONST	0x0a9f,0x0009
132e 0aa7 000a  |    |		.CONST	0x0aa7,0x000a
1330 0aad 000b  |    |		.CONST	0x0aad,0x000b
1332 ; --------------------------------------------------------------------------------------
1332 ; Debug3 Subtable 0x1f
1332 ; --------------------------------------------------------------------------------------
1332 0007 000f  |    |		.DBG3TAB	0x0007,0x000f
1334 0abb ffff  |    |		.CONST	0x0abb,0xffff
1336 0abe fffe  |    |		.CONST	0x0abe,0xfffe
1338 0ac5 fffd  |    |		.CONST	0x0ac5,0xfffd
133a 0ac7 fffc  |    |		.CONST	0x0ac7,0xfffc
133c 0acc fffb  |    |		.CONST	0x0acc,0xfffb
133e 0ad1 fffa  |    |		.CONST	0x0ad1,0xfffa
1340 0ad3 fff9  |    |		.CONST	0x0ad3,0xfff9
1342 0ad6 0001  |    |		.CONST	0x0ad6,0x0001
1344 0adc 0002  |    |		.CONST	0x0adc,0x0002
1346 0ae2 0003  |    |		.CONST	0x0ae2,0x0003
1348 0ae3 0004  |    |		.CONST	0x0ae3,0x0004
134a 0ae7 0005  |    |		.CONST	0x0ae7,0x0005
134c 0ae9 0006  |    |		.CONST	0x0ae9,0x0006
134e 0af8 0007  |    |		.CONST	0x0af8,0x0007
1350 0afe 0008  |    |		.CONST	0x0afe,0x0008
1352 0b19 0009  |    |		.CONST	0x0b19,0x0009
1354 0b1f 000a  |    |		.CONST	0x0b1f,0x000a
1356 0b25 000b  | %  |		.CONST	0x0b25,0x000b
1358 0b29 000c  | )  |		.CONST	0x0b29,0x000c
135a 0b51 000d  | Q  |		.CONST	0x0b51,0x000d
135c 0b52 000e  | R  |		.CONST	0x0b52,0x000e
135e 0b5a 000f  | Z  |		.CONST	0x0b5a,0x000f
1360 ; --------------------------------------------------------------------------------------
1360 ; Debug3 Subtable 0x20
1360 ; --------------------------------------------------------------------------------------
1360 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
1362 0b6b ffff  | k  |		.CONST	0x0b6b,0xffff
1364 0b6f 0002  | o  |		.CONST	0x0b6f,0x0002
1366 0b7a 0003  | z  |		.CONST	0x0b7a,0x0003
1368 0b86 0004  |    |		.CONST	0x0b86,0x0004
136a 0b8c 0005  |    |		.CONST	0x0b8c,0x0005
136c 0b91 0001  |    |		.CONST	0x0b91,0x0001
136e ; --------------------------------------------------------------------------------------
136e ; Debug3 Subtable 0x21
136e ; --------------------------------------------------------------------------------------
136e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
1370 0b9b 0001  |    |		.CONST	0x0b9b,0x0001
1372 ; --------------------------------------------------------------------------------------
1372 ; Debug3 Subtable 0x22
1372 ; --------------------------------------------------------------------------------------
1372 0001 0010  |    |		.DBG3TAB	0x0001,0x0010
1374 0ba3 ffff  |    |		.CONST	0x0ba3,0xffff
1376 0bab 0001  |    |		.CONST	0x0bab,0x0001
1378 0bbc 0002  |    |		.CONST	0x0bbc,0x0002
137a 0bbe 0003  |    |		.CONST	0x0bbe,0x0003
137c 0bc0 0004  |    |		.CONST	0x0bc0,0x0004
137e 0bc9 0005  |    |		.CONST	0x0bc9,0x0005
1380 0bcb 0006  |    |		.CONST	0x0bcb,0x0006
1382 0bd1 0007  |    |		.CONST	0x0bd1,0x0007
1384 0bd3 0008  |    |		.CONST	0x0bd3,0x0008
1386 0bd5 0009  |    |		.CONST	0x0bd5,0x0009
1388 0bde 000a  |    |		.CONST	0x0bde,0x000a
138a 0be0 000b  |    |		.CONST	0x0be0,0x000b
138c 0bec 000c  |    |		.CONST	0x0bec,0x000c
138e 0bee 000d  |    |		.CONST	0x0bee,0x000d
1390 0bf0 000e  |    |		.CONST	0x0bf0,0x000e
1392 0bf9 000f  |    |		.CONST	0x0bf9,0x000f
1394 0c01 0010  |    |		.CONST	0x0c01,0x0010
1396 ; --------------------------------------------------------------------------------------
1396 ; Debug3 Subtable 0x23
1396 ; --------------------------------------------------------------------------------------
1396 0006 0002  |    |		.DBG3TAB	0x0006,0x0002
1398 0c0b ffff  |    |		.CONST	0x0c0b,0xffff
139a 0c13 fffe  |    |		.CONST	0x0c13,0xfffe
139c 0c1a fffd  |    |		.CONST	0x0c1a,0xfffd
139e 0c1f fffc  |    |		.CONST	0x0c1f,0xfffc
13a0 0c22 fffb  | "  |		.CONST	0x0c22,0xfffb
13a2 0c23 fffa  | #  |		.CONST	0x0c23,0xfffa
13a4 0c2c 0001  | ,  |		.CONST	0x0c2c,0x0001
13a6 0c40 0002  | @  |		.CONST	0x0c40,0x0002
13a8 0000 0000  |    |		.BLANK	0000[0x58]