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

⟦7395ee3b3⟧

    Length: 7168 (0x1c00)
    Notes: 00_class, 580b_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 580b       |X   |		.CONST	0x580b								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 09b8       |    |		.CONST	0x09b8								; 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 0006       |    |		.CONST	0x0006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0112       |    |		.CONST	0x0112								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0036       | 6  |		.CONST	0x0036								; Number of locals
000b			INIT_0008:
000b 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0 = .DEBUG	0x000b,0x0afa,0x8000,0x0000,0x0038,0xd466,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
000d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 4801       |H   |		Short_Literal	0x1
000f 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
0011 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0012 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x12,0xfffd
0014 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x14,0xfffc
0016 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x16,0xfffb
0018 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x0.0x5 = 0x18,0xfffa
0019 0266       | f  |		Execute	Discrete,Bounds
001a 00e1       |    |		Load_Encached	Boolean_Cache
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 4801       |H   |		Short_Literal	0x1
001d 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
001e 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1e,0xfff9
0020 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x20,0xfff8
0022 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x22,0xfff7
0024 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x24,0xfff6
0026 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x26,0xfff5
0028 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x28,0xfff4
002a 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x2a,0xfff3
002c 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x2c,0xfff2
002e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xe = 0x2e,0xfff1
002f 4802       |H   |		Short_Literal	0x2							; Debug Table 0x0.0xf = 0x2f,0xfff0
0030 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0031 029a 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x31,0xffef
0033 029a 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x11 = 0x33,0xffee
0035 029a 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x12 = 0x35,0xffed
0037 029a 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x13 = 0x37,0xffec
0039 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x14 = 0x39,0xffeb
003a 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x15 = 0x3a,0xffea
003b 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x16 = 0x3b,0xffe9
003c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x17 = 0x3c,0xffe8
003d 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x18 = 0x3d,0xffe7
003e 4803       |H   |		Short_Literal	0x3
003f 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
0041 03fd       |    |		Declare_Type	Discrete,Defined
0042 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x19 = 0x42,0xffe6
0043 4801       |H   |		Short_Literal	0x1
0044 e001       |    |		Load	0x0,0x1
0045 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0046 4802       |H   |		Short_Literal	0x2
0047 e002       |    |		Load	0x0,0x2
0048 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0049 e002       |    |		Load	0x0,0x2
004a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
004b 4802       |H   |		Short_Literal	0x2
004c e002       |    |		Load	0x0,0x2
004d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
004e e002       |    |		Load	0x0,0x2
004f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0050 029f 056b  |   k|		Declare_Subprogram	INIT_0568,For_Call
0052 4805       |H   |		Short_Literal	0x5
0053 4800       |H   |		Short_Literal	0x0
0054 4803       |H   |		Short_Literal	0x3
0055 4800       |H   |		Short_Literal	0x0
0056 4801       |H   |		Short_Literal	0x1
0057 031d       |    |		Declare_Type	Variant_Record,Defined
0058 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1a = 0x58,0xffe5
0059 02a0       |    |		Declare_Subprogram	Null_Subprogram
005a 4818       |H   |		Short_Literal	0x18
005b 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
005c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1b = 0x5c,0xffe4
005d 00e1       |    |		Load_Encached	Boolean_Cache
005e 029f 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Call
0060 e20d       |    |		Load	0x1,0xd
0061 0326       | &  |		Complete_Type	Record,By_Defining
0062 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0.0x1c = 0x62,0xffe3
0063 02a0       |    |		Declare_Subprogram	Null_Subprogram
0064 4818       |H   |		Short_Literal	0x18
0065 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0066 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x1d = 0x66,0xffe2
0067 4803       |H   |		Short_Literal	0x3
0068 029f 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Call
006a 03fd       |    |		Declare_Type	Discrete,Defined
006b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1e = 0x6b,0xffe1
006c 4801       |H   |		Short_Literal	0x1
006d e003       |    |		Load	0x0,0x3
006e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0070 4801       |H   |		Short_Literal	0x1
0071 e003       |    |		Load	0x0,0x3
0072 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0073 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0074 4801       |H   |		Short_Literal	0x1
0075 e223       | #  |		Load	0x1,0x23
0076 4801       |H   |		Short_Literal	0x1
0077 e004       |    |		Load	0x0,0x4
0078 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0079 029f 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Call
007b 4804       |H   |		Short_Literal	0x4
007c 4800       |H   |		Short_Literal	0x0
007d 4804       |H   |		Short_Literal	0x4
007e 4800       |H   |		Short_Literal	0x0
007f 4801       |H   |		Short_Literal	0x1
0080 031d       |    |		Declare_Type	Variant_Record,Defined
0081 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x1f = 0x81,0xffe0
0082 00e1       |    |		Load_Encached	Boolean_Cache
0083 029f 0653  |   S|		Declare_Subprogram	INIT_0650,For_Call
0085 e21b       |    |		Load	0x1,0x1b
0086 0326       | &  |		Complete_Type	Record,By_Defining
0087 00bf       |    |		Action	Accept_Activation
0088 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0088,0x0b3c,0x8000,0x0000,0x0039,0x33e6,0x0000,0x000b
													; Debug Table 0x1.0x0 = 0x88,0xffff
0089 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x89,0xfffe
008a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x8a,0xfffd
008b e20e       |    |		Load	0x1,0xe								; Debug Table 0x1.0x3 = 0x8b,0xfffc
008c 0266       | f  |		Execute	Discrete,Bounds
008d e002       |    |		Load	0x0,0x2
008e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
008f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0090 4801       |H   |		Short_Literal	0x1
0091 035d       | ]  |		Declare_Type	Array,Defined
0092 00d8       |    |		Load_Top	At_Offset_0
0093 0337       | 7  |		Declare_Variable	Array
0094 00d8       |    |		Load_Top	At_Offset_0
0095 0337       | 7  |		Declare_Variable	Array
0096 4800       |H   |		Short_Literal	0x0
0097 4800       |H   |		Short_Literal	0x0
0098 00da       |    |		Load_Top	At_Offset_2
0099 01d6       |    |		Execute	Vector,Field_Write
009a 4802       |H   |		Short_Literal	0x2
009b 4801       |H   |		Short_Literal	0x1
009c 00da       |    |		Load_Top	At_Offset_2
009d 01d6       |    |		Execute	Vector,Field_Write
009e 00d9       |    |		Load_Top	At_Offset_1
009f 01d4       |    |		Execute	Vector,Structure_Write
00a0 e20e       |    |		Load	0x1,0xe								; Debug Table 0x1.0x4 = 0xa0,0xfffb
00a1 0266       | f  |		Execute	Discrete,Bounds
00a2 e002       |    |		Load	0x0,0x2
00a3 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00a4 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a5 4801       |H   |		Short_Literal	0x1
00a6 035d       | ]  |		Declare_Type	Array,Defined
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 0337       | 7  |		Declare_Variable	Array
00a9 00d8       |    |		Load_Top	At_Offset_0
00aa 0337       | 7  |		Declare_Variable	Array
00ab 4800       |H   |		Short_Literal	0x0
00ac 4800       |H   |		Short_Literal	0x0
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 01d6       |    |		Execute	Vector,Field_Write
00af 4802       |H   |		Short_Literal	0x2
00b0 4801       |H   |		Short_Literal	0x1
00b1 00da       |    |		Load_Top	At_Offset_2
00b2 01d6       |    |		Execute	Vector,Field_Write
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 01d4       |    |		Execute	Vector,Structure_Write
00b5 e20e       |    |		Load	0x1,0xe								; Debug Table 0x1.0x5 = 0xb5,0xfffa
00b6 0266       | f  |		Execute	Discrete,Bounds
00b7 e001       |    |		Load	0x0,0x1
00b8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b9 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ba 4801       |H   |		Short_Literal	0x1
00bb 035d       | ]  |		Declare_Type	Array,Defined
00bc 00d8       |    |		Load_Top	At_Offset_0
00bd 0337       | 7  |		Declare_Variable	Array
00be 00d8       |    |		Load_Top	At_Offset_0
00bf 0337       | 7  |		Declare_Variable	Array
00c0 4800       |H   |		Short_Literal	0x0
00c1 4800       |H   |		Short_Literal	0x0
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 01d6       |    |		Execute	Vector,Field_Write
00c4 4801       |H   |		Short_Literal	0x1
00c5 4801       |H   |		Short_Literal	0x1
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 01d6       |    |		Execute	Vector,Field_Write
00c8 00d9       |    |		Load_Top	At_Offset_1
00c9 01d4       |    |		Execute	Vector,Structure_Write
00ca 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x6 = 0xca,0xfff9
00cb 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00cc 6323       |c#  |		Indirect_Literal	Discrete,0x3f0,{0x00000000, 0x003933e6}		; Debug Table 0x1.0x7 = 0xcc,0xfff8
00cd 4866       |Hf  |		Short_Literal	0x66
00ce 00e8       |    |		Load_Encached	Character_Cache
00cf e001       |    |		Load	0x0,0x1
00d0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00d1 0387       |    |		Declare_Variable	Package
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 020f       |    |		Execute	Module,Activate
00d4 00e8       |    |		Load_Encached	Character_Cache						; Debug Table 0x1.0x8 = 0xd4,0xfff7
00d5 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d6 4801       |H   |		Short_Literal	0x1
00d7 032d       | -  |		Declare_Type	Record,Defined
00d8 6317       |c   |		Indirect_Literal	Discrete,0x3f0,{0x00000000, 0x003933e6}		; Debug Table 0x1.0x9 = 0xd8,0xfff6
00d9 4877       |Hw  |		Short_Literal	0x77
00da 00da       |    |		Load_Top	At_Offset_2
00db e002       |    |		Load	0x0,0x2
00dc 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
00dd 0387       |    |		Declare_Variable	Package
00de 00d8       |    |		Load_Top	At_Offset_0
00df 020f       |    |		Execute	Module,Activate
00e0 630f       |c   |		Indirect_Literal	Discrete,0x3f0,{0x00000000, 0x003933e6}		; Debug Table 0x1.0xa = 0xe0,0xfff5
00e1 487f       |H   |		Short_Literal	0x7f
00e2 00db       |    |		Load_Top	At_Offset_3
00e3 e002       |    |		Load	0x0,0x2
00e4 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
00e5 0387       |    |		Declare_Variable	Package
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 020f       |    |		Execute	Module,Activate
00e8 0092 095e  |   ^|		Action	Push_String_Extended,0x95e					; "!machine.temporary.io_util_temp"
													; Debug Table 0x1.0xb = 0xe8,0xfff4
00ea 029d 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call			; Debug Table 0x1.0xc = 0xea,0xfff3
00ec 029d 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call			; Debug Table 0x1.0xd = 0xec,0xfff2
00ee 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0xe = 0xee,0xfff1
00ef 00c7       |    |		Action	Elaborate_Subprogram
00f0 029d 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call			; Debug Table 0x1.0xf = 0xf0,0xfff0
00f2 029d 06d3  |    |		Declare_Subprogram	INIT_06d0,For_Outer_Call			; Debug Table 0x1.0x10 = 0xf2,0xffef
00f4 029d 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call			; Debug Table 0x1.0x11 = 0xf4,0xffee
00f6 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x12 = 0xf6,0xffed
00f7 00c7       |    |		Action	Elaborate_Subprogram
00f8 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x13 = 0xf8,0xffec
00f9 00c7       |    |		Action	Elaborate_Subprogram
00fa 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x14 = 0xfa,0xffeb
00fb 00c7       |    |		Action	Elaborate_Subprogram
00fc 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x15 = 0xfc,0xffea
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x16 = 0xfe,0xffe9
00ff 00c7       |    |		Action	Elaborate_Subprogram
0100 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x17 = 0x100,0xffe8
0101 00c7       |    |		Action	Elaborate_Subprogram
0102 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x18 = 0x102,0xffe7
0103 00c7       |    |		Action	Elaborate_Subprogram
0104 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0x19 = 0x104,0xffe6
0105 00c7       |    |		Action	Elaborate_Subprogram
0106 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x1a = 0x106,0xffe5
0107 00c7       |    |		Action	Elaborate_Subprogram
0108 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x1b = 0x108,0xffe4
0109 00c7       |    |		Action	Elaborate_Subprogram
010a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x1c = 0x10a,0xffe3
010b 00c7       |    |		Action	Elaborate_Subprogram
010c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x1d = 0x10c,0xffe2
010d 00c7       |    |		Action	Elaborate_Subprogram
010e 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0x1e = 0x10e,0xffe1
010f 00c7       |    |		Action	Elaborate_Subprogram
0110 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x1f = 0x110,0xffe0
0111 00c7       |    |		Action	Elaborate_Subprogram
0112			BODY_0008:
0112 00bc       |    |		Action	Signal_Activated
0113 00bb       |    |		Action	Signal_Completion
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x011b,0x0b7e,0x0005,0x0000,0x0038,0xd466,0x0000,0x0010
011c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
011d 7802       |x   |		Jump	0x120								; case 0x1
011e 7805       |x   |		Jump	0x124								; case 0x2
011f 7809       |x   |		Jump	0x129								; case 0x3
0120 00da       |    |		Load_Top	At_Offset_2
0121 0091 0954  |   T|		Action	Push_String_Extended_Indexed,0x954				; "IN_FILE"
0123 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0124 00db       |    |		Load_Top	At_Offset_3
0125 00db       |    |		Load_Top	At_Offset_3
0126 00e0       |    |		Load_Encached	Standard_Cache
0127 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0128 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0129 00da       |    |		Load_Top	At_Offset_2
012a 00e0       |    |		Load_Encached	Standard_Cache
012b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
012c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 017b       | {  |		.CONST	0x017b								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0133,0x0b80,0x0001,0x0000,0x0038,0xd466,0x0000,0x0016
													; Debug Table 0x3.0x0 = 0x133,0x1
0134 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0135 0227       | '  |		Execute	Access,All_Reference
0136 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0137 4603       |F   |		Jump_Case	0x4
0138 7803       |x   |		Jump	0x13c								; case 0x0
0139 780b       |x   |		Jump	0x145								; case 0x1
013a 7825       |x%  |		Jump	0x160								; case 0x2
013b 7824       |x$  |		Jump	0x160								; case 0x3
013c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x1 = 0x13c,0x2
013d 00db       |    |		Load_Top	At_Offset_3
013e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013f 0227       | '  |		Execute	Access,All_Reference
0140 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0141 e22d       | -  |		Load	0x1,0x2d
0142 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0143 a5fe       |    |		Store_Unchecked	0x2,-0x2
0144 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0145 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x2 = 0x145,0x3
0146 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0147 0227       | '  |		Execute	Access,All_Reference
0148 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0149 00db       |    |		Load_Top	At_Offset_3
014a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014b 0227       | '  |		Execute	Access,All_Reference
014c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
014d e22f       | /  |		Load	0x1,0x2f
014e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
014f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0150 a5fe       |    |		Store_Unchecked	0x2,-0x2
0151 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x3 = 0x151,0x4
0152 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0153 0227       | '  |		Execute	Access,All_Reference
0154 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0155 00db       |    |		Load_Top	At_Offset_3
0156 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0157 0227       | '  |		Execute	Access,All_Reference
0158 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0159 e22f       | /  |		Load	0x1,0x2f
015a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
015b 00db       |    |		Load_Top	At_Offset_3
015c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015d 0227       | '  |		Execute	Access,All_Reference
015e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
015f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0160 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x4 = 0x160,0x5
0161 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0162 0227       | '  |		Execute	Access,All_Reference
0163 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0164 00db       |    |		Load_Top	At_Offset_3
0165 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0166 0227       | '  |		Execute	Access,All_Reference
0167 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0168 e230       | 0  |		Load	0x1,0x30
0169 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
016a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
016b a5fe       |    |		Store_Unchecked	0x2,-0x2
016c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x5 = 0x16c,0x6
016d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
016e 0227       | '  |		Execute	Access,All_Reference
016f 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0170 00db       |    |		Load_Top	At_Offset_3
0171 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0172 0227       | '  |		Execute	Access,All_Reference
0173 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0174 e230       | 0  |		Load	0x1,0x30
0175 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0176 00db       |    |		Load_Top	At_Offset_3
0177 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0178 0227       | '  |		Execute	Access,All_Reference
0179 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
017a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
017b			TRAP_0130:
017b 00d8       |    |		Load_Top	At_Offset_0
017c 0107       |    |		Execute	Exception,Get_Name
017d 4950       |IP  |		Short_Literal	0x150
017e 495f       |I_  |		Short_Literal	0x15f
017f 0262       | b  |		Execute	Discrete,In_Range
0180 6802       |h   |		Jump_Zero	0x183
0181 626a       |bj  |		Indirect_Literal	Discrete,0x3ec,{0x00000000, 0x38d46601}		; Debug Table 0x3.0x6 = 0x181,0x7
0182 0257       | W  |		Execute	Discrete,Raise
0183 0100       |    |		Execute	Exception,Raise
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x018b,0x0b90,0x0001,0x0000,0x0038,0xd466,0x0000,0x0022
													; Debug Table 0x4.0x0 = 0x18b,0x1
018c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018d 0227       | '  |		Execute	Access,All_Reference
018e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018f 4603       |F   |		Jump_Case	0x4
0190 7803       |x   |		Jump	0x194								; case 0x0
0191 780a       |x   |		Jump	0x19c								; case 0x1
0192 7827       |x'  |		Jump	0x1ba								; case 0x2
0193 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
0194 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x1 = 0x194,0x2
0195 00db       |    |		Load_Top	At_Offset_3
0196 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0197 0227       | '  |		Execute	Access,All_Reference
0198 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0199 e22d       | -  |		Load	0x1,0x2d
019a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
019b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
019c e22e       | .  |		Load	0x1,0x2e							; Debug Table 0x4.0x2 = 0x19c,0x3
019d 0322       | "  |		Declare_Variable	Record
019e e5fe       |    |		Load	0x2,-0x2
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a3 0227       | '  |		Execute	Access,All_Reference
01a4 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01a5 e5ff       |    |		Load	0x2,-0x1
01a6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a7 0227       | '  |		Execute	Access,All_Reference
01a8 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01a9 e22f       | /  |		Load	0x1,0x2f
01aa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01ab 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x3 = 0x1ab,0x4
01ac 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ad 0227       | '  |		Execute	Access,All_Reference
01ae 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01af 00db       |    |		Load_Top	At_Offset_3
01b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b1 0227       | '  |		Execute	Access,All_Reference
01b2 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01b3 e22f       | /  |		Load	0x1,0x2f
01b4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b5 00db       |    |		Load_Top	At_Offset_3
01b6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01b7 0227       | '  |		Execute	Access,All_Reference
01b8 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ba e22e       | .  |		Load	0x1,0x2e							; Debug Table 0x4.0x4 = 0x1ba,0x5
01bb 0322       | "  |		Declare_Variable	Record
01bc e5fe       |    |		Load	0x2,-0x2
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01bf 00db       |    |		Load_Top	At_Offset_3
01c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c1 0227       | '  |		Execute	Access,All_Reference
01c2 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01c3 e5ff       |    |		Load	0x2,-0x1
01c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c5 0227       | '  |		Execute	Access,All_Reference
01c6 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01c7 e230       | 0  |		Load	0x1,0x30
01c8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01c9 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4.0x5 = 0x1c9,0x6
01ca 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cb 0227       | '  |		Execute	Access,All_Reference
01cc 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01cd 00db       |    |		Load_Top	At_Offset_3
01ce 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cf 0227       | '  |		Execute	Access,All_Reference
01d0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01d1 e230       | 0  |		Load	0x1,0x30
01d2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d5 0227       | '  |		Execute	Access,All_Reference
01d6 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x5 = .DEBUG	0x01db,0x0b9e,0x0001,0x0000,0x0038,0xd466,0x0000,0x002e
01dc e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x0 = 0x1dc,0x1
01dd 01d9       |    |		Execute	Vector,Reverse_Bounds
01de 0263       | c  |		Execute	Discrete,Above_Bound
01df 7007       |p   |		Jump_Nonzero	0x1e7
01e0 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x1 = 0x1e0,0x2
01e1 e5fe       |    |		Load	0x2,-0x2
01e2 01d7       |    |		Execute	Vector,Field_Read
01e3 e5ff       |    |		Load	0x2,-0x1
01e4 8210       |    |		Call	0x1,0x10
01e5 00c8       |    |		Action	Pop_Auxiliary_Range
01e6 3ff9       |?   |		Loop_Increasing	0x1e0
01e7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f1       |    |		.CONST	0x01f1								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0004       |    |		.CONST	0x0004								; Number of locals
01eb			INIT_01e8:
01eb 029f 0753  |   S|		Declare_Subprogram	INIT_0750,For_Call				; Debug Table 0x6 = .DEBUG	0x01eb,0x0ba4,0x0002,0x0000,0x0038,0xd466,0x0000,0x0043
01ed 029f 0783  |    |		Declare_Subprogram	INIT_0780,For_Call
01ef 029f 07b3  |    |		Declare_Subprogram	INIT_07b0,For_Call
01f1			BODY_01e8:
01f1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x0 = 0x1f1,0x1
01f2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01f3 0227       | '  |		Execute	Access,All_Reference
01f4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f5 4603       |F   |		Jump_Case	0x4
01f6 7803       |x   |		Jump	0x1fa								; case 0x0
01f7 7804       |x   |		Jump	0x1fc								; case 0x1
01f8 7805       |x   |		Jump	0x1fe								; case 0x2
01f9 7805       |x   |		Jump	0x1ff								; case 0x3
01fa 8402       |    |		Call	0x2,0x2								; Debug Table 0x6.0x1 = 0x1fa,0x2
01fb 7803       |x   |		Jump	0x1ff
01fc 8403       |    |		Call	0x2,0x3								; Debug Table 0x6.0x2 = 0x1fc,0x3
01fd 7801       |x   |		Jump	0x1ff
01fe 8404       |    |		Call	0x2,0x4								; Debug Table 0x6.0x3 = 0x1fe,0x4
01ff 4831       |H1  |		Short_Literal	0x31
0200 0257       | W  |		Execute	Discrete,Raise
0201 0000 0000  |    |		.BLANK	0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0217       |    |		.CONST	0x0217								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0005       |    |		.CONST	0x0005								; Number of locals
020b			INIT_0208:
020b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7 = .DEBUG	0x020b,0x0bae,0x0001,0x0000,0x0038,0xd466,0x0000,0x004c
													; Debug Table 0x7.0x0 = 0x20b,0xffff
020c 01dd       |    |		Execute	Vector,First
020d e5fe       |    |		Load	0x2,-0x2
020e 01dc       |    |		Execute	Vector,Last
020f e212       |    |		Load	0x1,0x12
0210 035b       | [  |		Declare_Type	Array,Constrained
0211 029f 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Call
0213 029f 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Call
0215 029f 081b  |    |		Declare_Subprogram	INIT_0818,For_Call
0217			BODY_0208:
0217 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x7.0x1 = 0x217,0x1
0218 01dd       |    |		Execute	Vector,First
0219 e5fe       |    |		Load	0x2,-0x2
021a 01dc       |    |		Execute	Vector,Last
021b 027a       | z  |		Execute	Discrete,Less_Equal
021c 680e       |h   |		Jump_Zero	0x22b
021d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x2 = 0x21d,0x2
021e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021f 0227       | '  |		Execute	Access,All_Reference
0220 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0221 4603       |F   |		Jump_Case	0x4
0222 7803       |x   |		Jump	0x226								; case 0x0
0223 7804       |x   |		Jump	0x228								; case 0x1
0224 7805       |x   |		Jump	0x22a								; case 0x2
0225 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x3
0226 8403       |    |		Call	0x2,0x3								; Debug Table 0x7.0x3 = 0x226,0x3
0227 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0228 8404       |    |		Call	0x2,0x4								; Debug Table 0x7.0x4 = 0x228,0x4
0229 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022a 8405       |    |		Call	0x2,0x5								; Debug Table 0x7.0x5 = 0x22a,0x5
022b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022c 0000 0000  |    |		.BLANK	0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238       | 8  |		.CONST	0x0238								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0003       |    |		.CONST	0x0003								; Number of locals
0233			INIT_0230:
0233 e002       |    |		Load	0x0,0x2								; Debug Table 0x8 = .DEBUG	0x0233,0x0bbc,0x0001,0x0000,0x0038,0xd466,0x0000,0x0058
													; Debug Table 0x8.0x0 = 0x233,0xffff
0234 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0235 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x1 = 0x235,0xfffe
0236 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0237 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x2 = 0x237,0xfffd
0238			BODY_0230:
0238 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x8.0x3 = 0x238,0x1
0239 e5fe       |    |		Load	0x2,-0x2
023a 8235       | 5  |		Call	0x1,0x35
023b 4603       |F   |		Jump_Case	0x4
023c 785d       |x]  |		Jump	0x29a								; case 0x0
023d 7802       |x   |		Jump	0x240								; case 0x1
023e 782e       |x.  |		Jump	0x26d								; case 0x2
023f 7874       |xt  |		Jump	0x2b4								; case 0x3
0240 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x4 = 0x240,0x2
0241 4802       |H   |		Short_Literal	0x2
0242 e222       | "  |		Load	0x1,0x22
0243 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0244 00d8       |    |		Load_Top	At_Offset_0
0245 00e0       |    |		Load_Encached	Standard_Cache
0246 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0247 e5fc       |    |		Load	0x2,-0x4
0248 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0249 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x5 = 0x249,0x3
024a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
024b e5fc       |    |		Load	0x2,-0x4
024c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
024d 0227       | '  |		Execute	Access,All_Reference
024e 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
024f e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x8.0x6 = 0x24f,0x4
0250 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0251 0229       | )  |		Execute	Access,All_Read
0252 e002       |    |		Load	0x0,0x2
0253 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0254 00d9       |    |		Load_Top	At_Offset_1
0255 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0256 4800       |H   |		Short_Literal	0x0
0257 6190       |a   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00028000}
0258 e005       |    |		Load	0x0,0x5
0259 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
025a e006       |    |		Load	0x0,0x6
025b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
025c e002       |    |		Load	0x0,0x2
025d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
025e 4800       |H   |		Short_Literal	0x0
025f e5fe       |    |		Load	0x2,-0x2
0260 8236       | 6  |		Call	0x1,0x36
0261 e5ff       |    |		Load	0x2,-0x1
0262 e227       | '  |		Load	0x1,0x27
0263 01d7       |    |		Execute	Vector,Field_Read
0264 e002       |    |		Load	0x0,0x2
0265 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0266 00da       |    |		Load_Top	At_Offset_2
0267 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0268 005b       | [  |		Store_Top	Discrete,At_Offset_3
0269 00d1       |    |		Pop_Control	Pop_Count_1
026a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x7 = 0x26a,0x5
026b 8232       | 2  |		Call	0x1,0x32
026c 7877       |xw  |		Jump	0x2e4
026d 4802       |H   |		Short_Literal	0x2							; Debug Table 0x8.0x8 = 0x26d,0x6
026e 4803       |H   |		Short_Literal	0x3
026f e222       | "  |		Load	0x1,0x22
0270 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0271 00d8       |    |		Load_Top	At_Offset_0
0272 00e0       |    |		Load_Encached	Standard_Cache
0273 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0274 e5fc       |    |		Load	0x2,-0x4
0275 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0276 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x9 = 0x276,0x7
0277 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0278 e5fc       |    |		Load	0x2,-0x4
0279 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027a 0227       | '  |		Execute	Access,All_Reference
027b 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
027c e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x8.0xa = 0x27c,0x8
027d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
027e 0229       | )  |		Execute	Access,All_Read
027f e002       |    |		Load	0x0,0x2
0280 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0281 00d9       |    |		Load_Top	At_Offset_1
0282 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0283 4800       |H   |		Short_Literal	0x0
0284 6163       |ac  |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00028000}
0285 e005       |    |		Load	0x0,0x5
0286 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0287 e006       |    |		Load	0x0,0x6
0288 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0289 e002       |    |		Load	0x0,0x2
028a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
028b 4800       |H   |		Short_Literal	0x0
028c e5fe       |    |		Load	0x2,-0x2
028d 8236       | 6  |		Call	0x1,0x36
028e e5ff       |    |		Load	0x2,-0x1
028f e229       | )  |		Load	0x1,0x29
0290 01d7       |    |		Execute	Vector,Field_Read
0291 e002       |    |		Load	0x0,0x2
0292 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0293 00da       |    |		Load_Top	At_Offset_2
0294 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0295 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0296 00d1       |    |		Pop_Control	Pop_Count_1
0297 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0xb = 0x297,0x9
0298 8233       | 3  |		Call	0x1,0x33
0299 784a       |xJ  |		Jump	0x2e4
029a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0xc = 0x29a,0xa
029b 4801       |H   |		Short_Literal	0x1
029c e222       | "  |		Load	0x1,0x22
029d 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
029e 00d8       |    |		Load_Top	At_Offset_0
029f 00e0       |    |		Load_Encached	Standard_Cache
02a0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02a1 e5fc       |    |		Load	0x2,-0x4
02a2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02a3 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x8.0xd = 0x2a3,0xb
02a4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a5 0229       | )  |		Execute	Access,All_Read
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
02a8 4865       |He  |		Short_Literal	0x65
02a9 e5fe       |    |		Load	0x2,-0x2
02aa 8236       | 6  |		Call	0x1,0x36
02ab e5ff       |    |		Load	0x2,-0x1
02ac e22b       | +  |		Load	0x1,0x2b
02ad 01d7       |    |		Execute	Vector,Field_Read
02ae e001       |    |		Load	0x0,0x1
02af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02b0 00d9       |    |		Load_Top	At_Offset_1
02b1 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02b2 00d1       |    |		Pop_Control	Pop_Count_1
02b3 7830       |x0  |		Jump	0x2e4
02b4 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0xe = 0x2b4,0xc
02b5 6802       |h   |		Jump_Zero	0x2b8
02b6 612d       |a-  |		Indirect_Literal	Discrete,0x3e4,{0x00000000, 0x3933e604}		; Debug Table 0x8.0xf = 0x2b6,0xd
02b7 0257       | W  |		Execute	Discrete,Raise
02b8 4803       |H   |		Short_Literal	0x3							; Debug Table 0x8.0x10 = 0x2b8,0xe
02b9 4803       |H   |		Short_Literal	0x3
02ba e222       | "  |		Load	0x1,0x22
02bb 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
02bc 00d8       |    |		Load_Top	At_Offset_0
02bd 00e0       |    |		Load_Encached	Standard_Cache
02be 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02bf e5fc       |    |		Load	0x2,-0x4
02c0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c1 e002       |    |		Load	0x0,0x2								; Debug Table 0x8.0x11 = 0x2c1,0xf
02c2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02c3 e5fc       |    |		Load	0x2,-0x4
02c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c5 0227       | '  |		Execute	Access,All_Reference
02c6 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02c7 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x8.0x12 = 0x2c7,0x10
02c8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c9 0229       | )  |		Execute	Access,All_Read
02ca e002       |    |		Load	0x0,0x2
02cb 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02cc 00d9       |    |		Load_Top	At_Offset_1
02cd 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
02ce 4800       |H   |		Short_Literal	0x0
02cf 6118       |a   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00028000}
02d0 e005       |    |		Load	0x0,0x5
02d1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d2 e006       |    |		Load	0x0,0x6
02d3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02d4 e002       |    |		Load	0x0,0x2
02d5 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
02d6 4800       |H   |		Short_Literal	0x0
02d7 e5fe       |    |		Load	0x2,-0x2
02d8 8234       | 4  |		Call	0x1,0x34
02d9 e5ff       |    |		Load	0x2,-0x1
02da e229       | )  |		Load	0x1,0x29
02db 01d7       |    |		Execute	Vector,Field_Read
02dc e002       |    |		Load	0x0,0x2
02dd 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02de 00da       |    |		Load_Top	At_Offset_2
02df 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02e0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02e1 00d1       |    |		Pop_Control	Pop_Count_1
02e2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x13 = 0x2e2,0x11
02e3 8233       | 3  |		Call	0x1,0x33
02e4 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x14 = 0x2e4,0x12
02e5 e5fc       |    |		Load	0x2,-0x4
02e6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 0305       |    |		.CONST	0x0305								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0009       |    |		.CONST	0x0009								; Number of locals
02eb			INIT_02e8:
02eb e002       |    |		Load	0x0,0x2								; Debug Table 0x9 = .DEBUG	0x02eb,0x0be8,0x0001,0x0000,0x0038,0xd466,0x0000,0x006d
													; Debug Table 0x9.0x0 = 0x2eb,0xffff
02ec 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02ed e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x1 = 0x2ed,0xfffe
02ee 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02ef e003       |    |		Load	0x0,0x3								; Debug Table 0x9.0x2 = 0x2ef,0xfffd
02f0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02f1 02ff       |    |		Declare_Variable	Variant_Record
02f2 00d8       |    |		Load_Top	At_Offset_0
02f3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f4 e003       |    |		Load	0x0,0x3								; Debug Table 0x9.0x3 = 0x2f4,0xfffc
02f5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02f6 02ff       |    |		Declare_Variable	Variant_Record
02f7 00d8       |    |		Load_Top	At_Offset_0
02f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02f9 e003       |    |		Load	0x0,0x3								; Debug Table 0x9.0x4 = 0x2f9,0xfffb
02fa 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02fb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02fc e003       |    |		Load	0x0,0x3								; Debug Table 0x9.0x5 = 0x2fc,0xfffa
02fd 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02fe 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02ff 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0x9.0x6 = 0x2ff,0xfff9
0300 e007       |    |		Load	0x0,0x7								; Debug Table 0x9.0x7 = 0x300,0xfff8
0301 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0302 02c7       |    |		Declare_Variable	Any
0303 00d8       |    |		Load_Top	At_Offset_0
0304 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0305			BODY_02e8:
0305 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9.0x8 = 0x305,0x1
0306 e5fe       |    |		Load	0x2,-0x2
0307 8235       | 5  |		Call	0x1,0x35
0308 4603       |F   |		Jump_Case	0x4
0309 78b1       |x   |		Jump	0x3bb								; case 0x0
030a 7802       |x   |		Jump	0x30d								; case 0x1
030b 7858       |xX  |		Jump	0x364								; case 0x2
030c 78c8       |x   |		Jump	0x3d5								; case 0x3
030d e003       |    |		Load	0x0,0x3								; Debug Table 0x9.0x9 = 0x30d,0x2
030e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030f 00f1       |    |		Load_Encached	Diana_Temp_Seq
0310 e003       |    |		Load	0x0,0x3
0311 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0312 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0313 00db       |    |		Load_Top	At_Offset_3
0314 0120       |    |		Execute	Any,Is_Value
0315 6803       |h   |		Jump_Zero	0x319
0316 e007       |    |		Load	0x0,0x7
0317 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0318 7801       |x   |		Jump	0x31a
0319 00db       |    |		Load_Top	At_Offset_3
031a e404       |    |		Load	0x2,0x4
031b 60cc       |`   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00028000}
031c e005       |    |		Load	0x0,0x5
031d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
031e 4800       |H   |		Short_Literal	0x0
031f e003       |    |		Load	0x0,0x3
0320 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0321 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0322 e003       |    |		Load	0x0,0x3
0323 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0324 60bb       |`   |		Indirect_Literal	Discrete,0x3e0,{0x00000000, 0x7fffffff}
0325 4ffc       |O   |		Short_Literal	-0x4
0326 4ffd       |O   |		Short_Literal	-0x3
0327 e006       |    |		Load	0x0,0x6
0328 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0329 e003       |    |		Load	0x0,0x3
032a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
032b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
032c e003       |    |		Load	0x0,0x3
032d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
032e e002       |    |		Load	0x0,0x2
032f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0330 e5fe       |    |		Load	0x2,-0x2
0331 8236       | 6  |		Call	0x1,0x36
0332 e003       |    |		Load	0x0,0x3
0333 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
0334 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0335 00d1       |    |		Pop_Control	Pop_Count_1
0336 c409       |    |		Store	0x2,0x9
0337 c406       |    |		Store	0x2,0x6
0338 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0339 c402       |    |		Store	0x2,0x2
033a e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0xa = 0x33a,0x3
033b 8232       | 2  |		Call	0x1,0x32
033c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0xb = 0x33c,0x4
033d 4802       |H   |		Short_Literal	0x2
033e e222       | "  |		Load	0x1,0x22
033f 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0340 00d8       |    |		Load_Top	At_Offset_0
0341 00e0       |    |		Load_Encached	Standard_Cache
0342 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0343 e5fc       |    |		Load	0x2,-0x4
0344 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0345 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0xc = 0x345,0x5
0346 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0347 e5fc       |    |		Load	0x2,-0x4
0348 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0349 0227       | '  |		Execute	Access,All_Reference
034a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
034b e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0xd = 0x34b,0x6
034c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
034d 0229       | )  |		Execute	Access,All_Read
034e e002       |    |		Load	0x0,0x2
034f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0350 e404       |    |		Load	0x2,0x4
0351 00da       |    |		Load_Top	At_Offset_2
0352 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0353 4800       |H   |		Short_Literal	0x0
0354 6093       |`   |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00028000}
0355 e005       |    |		Load	0x0,0x5
0356 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0357 e5ff       |    |		Load	0x2,-0x1
0358 e227       | '  |		Load	0x1,0x27
0359 01d7       |    |		Execute	Vector,Field_Read
035a e002       |    |		Load	0x0,0x2
035b 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
035c 00db       |    |		Load_Top	At_Offset_3
035d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
035e 00d1       |    |		Pop_Control	Pop_Count_1
035f c402       |    |		Store	0x2,0x2
0360 00d1       |    |		Pop_Control	Pop_Count_1
0361 e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0xe = 0x361,0x7
0362 8232       | 2  |		Call	0x1,0x32
0363 7875       |xu  |		Jump	0x3d9
0364 e003       |    |		Load	0x0,0x3								; Debug Table 0x9.0xf = 0x364,0x8
0365 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0366 00f1       |    |		Load_Encached	Diana_Temp_Seq
0367 e003       |    |		Load	0x0,0x3
0368 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0369 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
036a 00db       |    |		Load_Top	At_Offset_3
036b 0120       |    |		Execute	Any,Is_Value
036c 6803       |h   |		Jump_Zero	0x370
036d e007       |    |		Load	0x0,0x7
036e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
036f 7801       |x   |		Jump	0x371
0370 00db       |    |		Load_Top	At_Offset_3
0371 e405       |    |		Load	0x2,0x5
0372 6075       |`u  |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00028000}
0373 e005       |    |		Load	0x0,0x5
0374 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0375 4800       |H   |		Short_Literal	0x0
0376 e003       |    |		Load	0x0,0x3
0377 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
0378 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0379 e003       |    |		Load	0x0,0x3
037a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
037b 6064       |`d  |		Indirect_Literal	Discrete,0x3e0,{0x00000000, 0x7fffffff}
037c 4ffc       |O   |		Short_Literal	-0x4
037d 4ffd       |O   |		Short_Literal	-0x3
037e e006       |    |		Load	0x0,0x6
037f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0380 e003       |    |		Load	0x0,0x3
0381 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0382 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0383 e003       |    |		Load	0x0,0x3
0384 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0385 e002       |    |		Load	0x0,0x2
0386 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0387 e5fe       |    |		Load	0x2,-0x2
0388 8236       | 6  |		Call	0x1,0x36
0389 e003       |    |		Load	0x0,0x3
038a 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
038b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
038c 00d1       |    |		Pop_Control	Pop_Count_1
038d c409       |    |		Store	0x2,0x9
038e c407       |    |		Store	0x2,0x7
038f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0390 c403       |    |		Store	0x2,0x3
0391 e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0x10 = 0x391,0x9
0392 8233       | 3  |		Call	0x1,0x33
0393 4802       |H   |		Short_Literal	0x2							; Debug Table 0x9.0x11 = 0x393,0xa
0394 4803       |H   |		Short_Literal	0x3
0395 e222       | "  |		Load	0x1,0x22
0396 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0397 00d8       |    |		Load_Top	At_Offset_0
0398 00e0       |    |		Load_Encached	Standard_Cache
0399 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
039a e5fc       |    |		Load	0x2,-0x4
039b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
039c e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x12 = 0x39c,0xb
039d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
039e e5fc       |    |		Load	0x2,-0x4
039f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a0 0227       | '  |		Execute	Access,All_Reference
03a1 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
03a2 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0x13 = 0x3a2,0xc
03a3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a4 0229       | )  |		Execute	Access,All_Read
03a5 e002       |    |		Load	0x0,0x2
03a6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03a7 e405       |    |		Load	0x2,0x5
03a8 00da       |    |		Load_Top	At_Offset_2
03a9 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03aa 4800       |H   |		Short_Literal	0x0
03ab 603c       |`<  |		Indirect_Literal	Discrete,0x3e8,{0x00000000, 0x00028000}
03ac e005       |    |		Load	0x0,0x5
03ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ae e5ff       |    |		Load	0x2,-0x1
03af e229       | )  |		Load	0x1,0x29
03b0 01d7       |    |		Execute	Vector,Field_Read
03b1 e002       |    |		Load	0x0,0x2
03b2 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
03b5 00d1       |    |		Pop_Control	Pop_Count_1
03b6 c403       |    |		Store	0x2,0x3
03b7 00d1       |    |		Pop_Control	Pop_Count_1
03b8 e403       |    |		Load	0x2,0x3								; Debug Table 0x9.0x14 = 0x3b8,0xd
03b9 8233       | 3  |		Call	0x1,0x33
03ba 781e       |x   |		Jump	0x3d9
03bb 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x15 = 0x3bb,0xe
03bc 4801       |H   |		Short_Literal	0x1
03bd e222       | "  |		Load	0x1,0x22
03be 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
03bf 00d8       |    |		Load_Top	At_Offset_0
03c0 00e0       |    |		Load_Encached	Standard_Cache
03c1 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
03c2 e5fc       |    |		Load	0x2,-0x4
03c3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c4 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x9.0x16 = 0x3c4,0xf
03c5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c6 0229       | )  |		Execute	Access,All_Read
03c7 00d8       |    |		Load_Top	At_Offset_0
03c8 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03c9 4865       |He  |		Short_Literal	0x65
03ca e5fe       |    |		Load	0x2,-0x2
03cb 8236       | 6  |		Call	0x1,0x36
03cc e5ff       |    |		Load	0x2,-0x1
03cd e22b       | +  |		Load	0x1,0x2b
03ce 01d7       |    |		Execute	Vector,Field_Read
03cf e001       |    |		Load	0x0,0x1
03d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d1 00d9       |    |		Load_Top	At_Offset_1
03d2 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
03d3 00d1       |    |		Pop_Control	Pop_Count_1
03d4 7804       |x   |		Jump	0x3d9
03d5 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x17 = 0x3d5,0x10
03d6 e5fc       |    |		Load	0x2,-0x4
03d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03d8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x9.0x18 = 0x3d8,0x11
03d9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x19 = 0x3d9,0x12
03da e5fc       |    |		Load	0x2,-0x4
03db 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03dc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
03e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x3933e604}
03e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
03ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x38d46601}
03f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x003933e6}
03f4 0000 0000  |    |		.BLANK	0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 040a       |    |		.CONST	0x040a								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0007       |    |		.CONST	0x0007								; Number of locals
03fb			INIT_03f8:
03fb e002       |    |		Load	0x0,0x2								; Debug Table 0xa = .DEBUG	0x03fb,0x0c1e,0x0001,0x0000,0x0038,0xd466,0x0000,0x0084
													; Debug Table 0xa.0x0 = 0x3fb,0xffff
03fc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03fd e002       |    |		Load	0x0,0x2								; Debug Table 0xa.0x1 = 0x3fd,0xfffe
03fe 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03ff e007       |    |		Load	0x0,0x7								; Debug Table 0xa.0x2 = 0x3ff,0xfffd
0400 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0401 02c7       |    |		Declare_Variable	Any
0402 00d8       |    |		Load_Top	At_Offset_0
0403 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0404 e003       |    |		Load	0x0,0x3								; Debug Table 0xa.0x3 = 0x404,0xfffc
0405 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0406 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0407 00f1       |    |		Load_Encached	Diana_Temp_Seq						; Debug Table 0xa.0x4 = 0x407,0xfffb
0408 029f 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Call
040a			BODY_03f8:
040a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x5 = 0x40a,0x1
040b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040c 7001       |p   |		Jump_Nonzero	0x40e
040d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xa.0x6 = 0x40d,0x2
040e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x7 = 0x40e,0x3
040f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0410 0227       | '  |		Execute	Access,All_Reference
0411 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0412 4603       |F   |		Jump_Case	0x4
0413 7803       |x   |		Jump	0x417								; case 0x0
0414 780e       |x   |		Jump	0x423								; case 0x1
0415 781d       |x   |		Jump	0x433								; case 0x2
0416 782c       |x,  |		Jump	0x443								; case 0x3
0417 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x8 = 0x417,0x4
0418 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0419 0229       | )  |		Execute	Access,All_Read
041a 00d8       |    |		Load_Top	At_Offset_0
041b 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
041c 4801       |H   |		Short_Literal	0x1
041d e001       |    |		Load	0x0,0x1
041e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
041f 00d9       |    |		Load_Top	At_Offset_1
0420 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0421 00d1       |    |		Pop_Control	Pop_Count_1
0422 7830       |x0  |		Jump	0x453
0423 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x9 = 0x423,0x5
0424 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0425 0229       | )  |		Execute	Access,All_Read
0426 e002       |    |		Load	0x0,0x2
0427 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0428 00d9       |    |		Load_Top	At_Offset_1
0429 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
042a e002       |    |		Load	0x0,0x2
042b 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
042c 00da       |    |		Load_Top	At_Offset_2
042d 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
042e c402       |    |		Store	0x2,0x2
042f 00d1       |    |		Pop_Control	Pop_Count_1
0430 e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0xa = 0x430,0x6
0431 8232       | 2  |		Call	0x1,0x32
0432 7820       |x   |		Jump	0x453
0433 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0xb = 0x433,0x7
0434 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0435 0229       | )  |		Execute	Access,All_Read
0436 e002       |    |		Load	0x0,0x2
0437 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0438 00d9       |    |		Load_Top	At_Offset_1
0439 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
043a e002       |    |		Load	0x0,0x2
043b 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
043c 00da       |    |		Load_Top	At_Offset_2
043d 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
043e c403       |    |		Store	0x2,0x3
043f 00d1       |    |		Pop_Control	Pop_Count_1
0440 e403       |    |		Load	0x2,0x3								; Debug Table 0xa.0xc = 0x440,0x8
0441 8233       | 3  |		Call	0x1,0x33
0442 7810       |x   |		Jump	0x453
0443 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0xd = 0x443,0x9
0444 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0445 0229       | )  |		Execute	Access,All_Read
0446 e002       |    |		Load	0x0,0x2
0447 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0448 00d9       |    |		Load_Top	At_Offset_1
0449 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
044a e002       |    |		Load	0x0,0x2
044b 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
044c 00da       |    |		Load_Top	At_Offset_2
044d 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
044e c403       |    |		Store	0x2,0x3
044f 00d1       |    |		Pop_Control	Pop_Count_1
0450 e403       |    |		Load	0x2,0x3								; Debug Table 0xa.0xe = 0x450,0xa
0451 8233       | 3  |		Call	0x1,0x33
0452 8407       |    |		Call	0x2,0x7								; Debug Table 0xa.0xf = 0x452,0xb
0453 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x10 = 0x453,0xc
0454 e5ff       |    |		Load	0x2,-0x1
0455 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0456 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0457 0000       |    |		.XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045f       | _  |		.CONST	0x045f								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0003       |    |		.CONST	0x0003								; Number of locals
045b			INIT_0458:
045b e002       |    |		Load	0x0,0x2								; Debug Table 0xb = .DEBUG	0x045b,0x0c42,0x0001,0x0000,0x0038,0xd466,0x0000,0x008c
													; Debug Table 0xb.0x0 = 0x45b,0xffff
045c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
045d e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x1 = 0x45d,0xfffe
045e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
045f			BODY_0458:
045f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x2 = 0x45f,0x1
0460 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0461 7001       |p   |		Jump_Nonzero	0x463
0462 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xb.0x3 = 0x462,0x2
0463 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x4 = 0x463,0x3
0464 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0465 0227       | '  |		Execute	Access,All_Reference
0466 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0467 4603       |F   |		Jump_Case	0x4
0468 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x0
0469 7802       |x   |		Jump	0x46c								; case 0x1
046a 7812       |x   |		Jump	0x47d								; case 0x2
046b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; case 0x3
046c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x5 = 0x46c,0x4
046d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
046e 0229       | )  |		Execute	Access,All_Read
046f e002       |    |		Load	0x0,0x2
0470 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0471 00d9       |    |		Load_Top	At_Offset_1
0472 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0473 4801       |H   |		Short_Literal	0x1
0474 e002       |    |		Load	0x0,0x2
0475 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0476 00da       |    |		Load_Top	At_Offset_2
0477 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0478 005b       | [  |		Store_Top	Discrete,At_Offset_3
0479 00d1       |    |		Pop_Control	Pop_Count_1
047a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x6 = 0x47a,0x5
047b 8232       | 2  |		Call	0x1,0x32
047c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
047d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x7 = 0x47d,0x6
047e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
047f 0229       | )  |		Execute	Access,All_Read
0480 e002       |    |		Load	0x0,0x2
0481 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0482 00d9       |    |		Load_Top	At_Offset_1
0483 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0484 4801       |H   |		Short_Literal	0x1
0485 e002       |    |		Load	0x0,0x2
0486 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0487 00da       |    |		Load_Top	At_Offset_2
0488 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0489 005a       | Z  |		Store_Top	Discrete,At_Offset_2
048a 00d1       |    |		Pop_Control	Pop_Count_1
048b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x8 = 0x48b,0x7
048c 8233       | 3  |		Call	0x1,0x33
048d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
048e 0000 0000  |    |		.XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc = .DEBUG	0x0493,0x0c56,0x0002,0x0000,0x0038,0xd466,0x0000,0x0094
													; Debug Table 0xc.0x0 = 0x493,0x1
0494 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0495 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0496 0000 0000  |    |		.XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd = .DEBUG	0x049b,0x0c5a,0x0001,0x0000,0x0038,0xd466,0x0000,0x009d
													; Debug Table 0xd.0x0 = 0x49b,0x1
049c a22c       | ,  |		Store_Unchecked	0x1,0x2c
049d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
049e 0000 0000  |    |		.XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04ab       |    |		.CONST	0x04ab								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0005       |    |		.CONST	0x0005								; Number of locals
04a3			INIT_04a0:
04a3 029f 086b  |   k|		Declare_Subprogram	INIT_0868,For_Call				; Debug Table 0xe = .DEBUG	0x04a3,0x0c5e,0x0001,0x0000,0x0038,0xd466,0x0000,0x00ac
04a5 029f 0893  |    |		Declare_Subprogram	INIT_0890,For_Call
04a7 029f 08d3  |    |		Declare_Subprogram	INIT_08d0,For_Call
04a9 029f 0943  |   C|		Declare_Subprogram	INIT_0940,For_Call
04ab			BODY_04a0:
04ab e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xe.0x0 = 0x4ab,0x1
04ac 01db       |    |		Execute	Vector,Length
04ad 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
04ae 6808       |h   |		Jump_Zero	0x4b7
04af e5ff       |    |		Load	0x2,-0x1
04b0 01dd       |    |		Execute	Vector,First
04b1 e5ff       |    |		Load	0x2,-0x1
04b2 01d7       |    |		Execute	Vector,Field_Read
04b3 0f2a       | *  |		Execute_Immediate	Equal,0x2a
04b4 6802       |h   |		Jump_Zero	0x4b7
04b5 8402       |    |		Call	0x2,0x2								; Debug Table 0xe.0x1 = 0x4b5,0x2
04b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0xe.0x2 = 0x4b6,0x3
04b7 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0xe.0x3 = 0x4b7,0x4
04b8 e5ff       |    |		Load	0x2,-0x1
04b9 8235       | 5  |		Call	0x1,0x35
04ba 4603       |F   |		Jump_Case	0x4
04bb 7809       |x   |		Jump	0x4c5								; case 0x0
04bc 7802       |x   |		Jump	0x4bf								; case 0x1
04bd 7803       |x   |		Jump	0x4c1								; case 0x2
04be 7804       |x   |		Jump	0x4c3								; case 0x3
04bf 8403       |    |		Call	0x2,0x3								; Debug Table 0xe.0x4 = 0x4bf,0x5
04c0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04c1 8404       |    |		Call	0x2,0x4								; Debug Table 0xe.0x5 = 0x4c1,0x6
04c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04c3 8405       |    |		Call	0x2,0x5								; Debug Table 0xe.0x6 = 0x4c3,0x7
04c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04c5 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0x7 = 0x4c5,0x8
04c6 e5fe       |    |		Load	0x2,-0x2
04c7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04c9 0000 0000  |    |		.BLANK	0000[0x7]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf = .DEBUG	0x04d3,0x0c70,0x0001,0x0000,0x0038,0xd466,0x0000,0x00b8
													; Debug Table 0xf.0x0 = 0x4d3,0x1
04d4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04d5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04d6 4603       |F   |		Jump_Case	0x4
04d7 7803       |x   |		Jump	0x4db								; case 0x0
04d8 780d       |x   |		Jump	0x4e6								; case 0x1
04d9 7817       |x   |		Jump	0x4f1								; case 0x2
04da 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x3
04db 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf.0x1 = 0x4db,0x2
04dc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04dd 00d8       |    |		Load_Top	At_Offset_0
04de 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04df e003       |    |		Load	0x0,0x3
04e0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04e1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04e2 00d9       |    |		Load_Top	At_Offset_1
04e3 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
04e4 00d1       |    |		Pop_Control	Pop_Count_1
04e5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04e6 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xf.0x2 = 0x4e6,0x3
04e7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04e8 00d8       |    |		Load_Top	At_Offset_0
04e9 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04ea e003       |    |		Load	0x0,0x3
04eb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ec 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04ed 00d9       |    |		Load_Top	At_Offset_1
04ee 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
04ef 00d1       |    |		Pop_Control	Pop_Count_1
04f0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04f1 4801       |H   |		Short_Literal	0x1							; Debug Table 0xf.0x3 = 0x4f1,0x4
04f2 00db       |    |		Load_Top	At_Offset_3
04f3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04f5 0000 0000  |    |		.XXX[0x3]
04f7 0000       |    |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10 = .DEBUG	0x04fb,0x0c7a,0x0002,0x0000,0x0038,0xd466,0x0000,0x00c0
													; Debug Table 0x10.0x0 = 0x4fb,0x1
04fc 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04fd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04fe 4603       |F   |		Jump_Case	0x4
04ff 7803       |x   |		Jump	0x503								; case 0x0
0500 7809       |x   |		Jump	0x50a								; case 0x1
0501 780f       |x   |		Jump	0x511								; case 0x2
0502 7814       |x   |		Jump	0x517								; case 0x3
0503 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x1 = 0x503,0x2
0504 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0505 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0506 e003       |    |		Load	0x0,0x3
0507 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0508 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0509 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
050a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x2 = 0x50a,0x3
050b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
050c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
050d e003       |    |		Load	0x0,0x3
050e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
050f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0510 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0511 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x3 = 0x511,0x4
0512 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0513 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0514 0227       | '  |		Execute	Access,All_Reference
0515 0335       | 5  |		Declare_Variable	Array,Duplicate
0516 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0517 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x4 = 0x517,0x5
0518 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0519 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
051a e004       |    |		Load	0x0,0x4
051b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
051c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
051d 0000 0000  |    |		.XXX[0x3]
051f 0000       |    |
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523       | #  |		.CONST	0x0523								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0001       |    |		.CONST	0x0001								; Number of locals
0523			BODY_0520:
0523			INIT_0520:
0523 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11 = .DEBUG	0x0523,0x0c86,0x0002,0x0000,0x0038,0xd466,0x0000,0x00c9
													; Debug Table 0x11.0x0 = 0x523,0x1
0524 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0525 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0526 4603       |F   |		Jump_Case	0x4
0527 7803       |x   |		Jump	0x52b								; case 0x0
0528 780e       |x   |		Jump	0x537								; case 0x1
0529 7819       |x   |		Jump	0x543								; case 0x2
052a 781b       |x   |		Jump	0x546								; case 0x3
052b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11.0x1 = 0x52b,0x2
052c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
052d 7007       |p   |		Jump_Nonzero	0x535
052e 00da       |    |		Load_Top	At_Offset_2
052f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0530 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0531 e003       |    |		Load	0x0,0x3
0532 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0533 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0534 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0535 4801       |H   |		Short_Literal	0x1
0536 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0537 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11.0x2 = 0x537,0x3
0538 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0539 7007       |p   |		Jump_Nonzero	0x541
053a 00da       |    |		Load_Top	At_Offset_2
053b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
053c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
053d e003       |    |		Load	0x0,0x3
053e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
053f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0540 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0541 4801       |H   |		Short_Literal	0x1
0542 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0543 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11.0x3 = 0x543,0x4
0544 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0545 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0546 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x11.0x4 = 0x546,0x5
0547 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0548 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0549 e004       |    |		Load	0x0,0x4
054a 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
054b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
054c 0000 0000  |    |		.BLANK	0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 4603       |F   |		Jump_Case	0x4							; Debug Table 0x12 = .DEBUG	0x0553,0x0c92,0x0005,0x0000,0x0038,0xd466,0x0000,0x00e3
0554 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0555 7802       |x   |		Jump	0x558								; case 0x1
0556 7805       |x   |		Jump	0x55c								; case 0x2
0557 7809       |x   |		Jump	0x561								; case 0x3
0558 00da       |    |		Load_Top	At_Offset_2
0559 0091 0956  |   V|		Action	Push_String_Extended_Indexed,0x956				; "POLY_FILE_KIND"
055b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
055c 00db       |    |		Load_Top	At_Offset_3
055d 00db       |    |		Load_Top	At_Offset_3
055e 00e0       |    |		Load_Encached	Standard_Cache
055f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0560 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0561 00da       |    |		Load_Top	At_Offset_2
0562 00e0       |    |		Load_Encached	Standard_Cache
0563 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0564 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0565 0000 0000  |    |		.XXX[0x3]
0567 0000       |    |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x13 = .DEBUG	0x056b,0x0c94,0x0005,0x0000,0x0038,0xd466,0x0000,0x00eb
056c 7808       |x   |		Jump	0x575								; case 0x0
056d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
056e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
056f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0570 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0571 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0572 7831       |x1  |		Jump	0x5a4								; case 0x6
0573 783c       |x<  |		Jump	0x5b0								; case 0x7
0574 784a       |xJ  |		Jump	0x5bf								; case 0x8
0575 00da       |    |		Load_Top	At_Offset_2
0576 016c       | l  |		Execute	Variant_Record,Is_Constrained
0577 7009       |p   |		Jump_Nonzero	0x581
0578 00cf       |    |		Action	Mark_Auxiliary
0579 4800       |H   |		Short_Literal	0x0
057a e5ff       |    |		Load	0x2,-0x1
057b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
057c 00d8       |    |		Load_Top	At_Offset_0
057d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
057e c5ff       |    |		Store	0x2,-0x1
057f 00ce       |    |		Action	Pop_Auxiliary
0580 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0581 00da       |    |		Load_Top	At_Offset_2
0582 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0583 4603       |F   |		Jump_Case	0x4
0584 7803       |x   |		Jump	0x588								; case 0x0
0585 7808       |x   |		Jump	0x58e								; case 0x1
0586 7812       |x   |		Jump	0x599								; case 0x2
0587 7811       |x   |		Jump	0x599								; case 0x3
0588 00da       |    |		Load_Top	At_Offset_2
0589 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
058a 00da       |    |		Load_Top	At_Offset_2
058b 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
058c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
058e 00da       |    |		Load_Top	At_Offset_2
058f 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0590 00da       |    |		Load_Top	At_Offset_2
0591 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0592 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0593 00da       |    |		Load_Top	At_Offset_2
0594 2204       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x4
0595 00da       |    |		Load_Top	At_Offset_2
0596 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0597 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0598 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0599 00da       |    |		Load_Top	At_Offset_2
059a 2205       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x5
059b 00da       |    |		Load_Top	At_Offset_2
059c 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
059d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
059e 00da       |    |		Load_Top	At_Offset_2
059f 2206       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x6
05a0 00da       |    |		Load_Top	At_Offset_2
05a1 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
05a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05a4 00db       |    |		Load_Top	At_Offset_3
05a5 4603       |F   |		Jump_Case	0x4
05a6 7803       |x   |		Jump	0x5aa								; case 0x0
05a7 7804       |x   |		Jump	0x5ac								; case 0x1
05a8 7805       |x   |		Jump	0x5ae								; case 0x2
05a9 7804       |x   |		Jump	0x5ae								; case 0x3
05aa 4801       |H   |		Short_Literal	0x1
05ab 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05ac 4802       |H   |		Short_Literal	0x2
05ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05ae 4803       |H   |		Short_Literal	0x3
05af 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05b0 00db       |    |		Load_Top	At_Offset_3
05b1 e5fe       |    |		Load	0x2,-0x2
05b2 4603       |F   |		Jump_Case	0x4
05b3 7803       |x   |		Jump	0x5b7								; case 0x0
05b4 7804       |x   |		Jump	0x5b9								; case 0x1
05b5 7805       |x   |		Jump	0x5bb								; case 0x2
05b6 7804       |x   |		Jump	0x5bb								; case 0x3
05b7 4801       |H   |		Short_Literal	0x1
05b8 7803       |x   |		Jump	0x5bc
05b9 4802       |H   |		Short_Literal	0x2
05ba 7801       |x   |		Jump	0x5bc
05bb 4803       |H   |		Short_Literal	0x3
05bc e5ff       |    |		Load	0x2,-0x1
05bd 031b       |    |		Declare_Type	Variant_Record,Constrained
05be 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05bf 00db       |    |		Load_Top	At_Offset_3
05c0 e5fe       |    |		Load	0x2,-0x2
05c1 e5ff       |    |		Load	0x2,-0x1
05c2 1c06       |    |		Execute_Immediate	Run_Utility,0x6
05c3 e5ff       |    |		Load	0x2,-0x1
05c4 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05c6 0000 0000  |    |		.XXX[0x2]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb 4608       |F   |		Jump_Case	0x9							; Debug Table 0x14 = .DEBUG	0x05cb,0x0c96,0x0005,0x0000,0x0038,0xd466,0x0000,0x012d
05cc 7808       |x   |		Jump	0x5d5								; case 0x0
05cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05ce 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
05cf 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
05d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
05d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
05d2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
05d3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
05d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
05d5 4800       |H   |		Short_Literal	0x0
05d6 00db       |    |		Load_Top	At_Offset_3
05d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05d8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05d9 0000 0000  |    |		.BLANK	0000[0x7]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 4603       |F   |		Jump_Case	0x4							; Debug Table 0x15 = .DEBUG	0x05e3,0x0c98,0x0005,0x0000,0x0038,0xd466,0x0000,0x0142
05e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
05e5 7802       |x   |		Jump	0x5e8								; case 0x1
05e6 7805       |x   |		Jump	0x5ec								; case 0x2
05e7 7809       |x   |		Jump	0x5f1								; case 0x3
05e8 00da       |    |		Load_Top	At_Offset_2
05e9 0091 095a  |   Z|		Action	Push_String_Extended_Indexed,0x95a				; "DIR_ITER"
05eb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
05ec 00db       |    |		Load_Top	At_Offset_3
05ed 00db       |    |		Load_Top	At_Offset_3
05ee 00e0       |    |		Load_Encached	Standard_Cache
05ef 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
05f0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05f1 00da       |    |		Load_Top	At_Offset_2
05f2 00e0       |    |		Load_Encached	Standard_Cache
05f3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05f4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
05f5 0000 0000  |    |		.XXX[0x3]
05f7 0000       |    |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 4608       |F   |		Jump_Case	0x9							; Debug Table 0x16 = .DEBUG	0x05fb,0x0c9a,0x0005,0x0000,0x0038,0xd466,0x0000,0x014a
05fc 7808       |x   |		Jump	0x605								; case 0x0
05fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05fe 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
05ff 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0600 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0601 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0602 7827       |x'  |		Jump	0x62a								; case 0x6
0603 7834       |x4  |		Jump	0x638								; case 0x7
0604 7844       |xD  |		Jump	0x649								; case 0x8
0605 00da       |    |		Load_Top	At_Offset_2
0606 016c       | l  |		Execute	Variant_Record,Is_Constrained
0607 7009       |p   |		Jump_Nonzero	0x611
0608 00cf       |    |		Action	Mark_Auxiliary
0609 4800       |H   |		Short_Literal	0x0
060a e5ff       |    |		Load	0x2,-0x1
060b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
060c 00d8       |    |		Load_Top	At_Offset_0
060d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
060e c5ff       |    |		Store	0x2,-0x1
060f 00ce       |    |		Action	Pop_Auxiliary
0610 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0611 00da       |    |		Load_Top	At_Offset_2
0612 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0613 4603       |F   |		Jump_Case	0x4
0614 7803       |x   |		Jump	0x618								; case 0x0
0615 7808       |x   |		Jump	0x61e								; case 0x1
0616 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0617 780c       |x   |		Jump	0x624								; case 0x3
0618 00da       |    |		Load_Top	At_Offset_2
0619 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
061a 00da       |    |		Load_Top	At_Offset_2
061b 2602       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
061c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
061d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
061e 00da       |    |		Load_Top	At_Offset_2
061f 2203       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x3
0620 00da       |    |		Load_Top	At_Offset_2
0621 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0622 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0623 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0624 00da       |    |		Load_Top	At_Offset_2
0625 2205       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x5
0626 00da       |    |		Load_Top	At_Offset_2
0627 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0628 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0629 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
062a 00db       |    |		Load_Top	At_Offset_3
062b 4603       |F   |		Jump_Case	0x4
062c 7803       |x   |		Jump	0x630								; case 0x0
062d 7804       |x   |		Jump	0x632								; case 0x1
062e 7805       |x   |		Jump	0x634								; case 0x2
062f 7806       |x   |		Jump	0x636								; case 0x3
0630 4801       |H   |		Short_Literal	0x1
0631 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0632 4802       |H   |		Short_Literal	0x2
0633 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0634 4803       |H   |		Short_Literal	0x3
0635 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0636 4804       |H   |		Short_Literal	0x4
0637 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0638 00db       |    |		Load_Top	At_Offset_3
0639 e5fe       |    |		Load	0x2,-0x2
063a 4603       |F   |		Jump_Case	0x4
063b 7803       |x   |		Jump	0x63f								; case 0x0
063c 7804       |x   |		Jump	0x641								; case 0x1
063d 7805       |x   |		Jump	0x643								; case 0x2
063e 7806       |x   |		Jump	0x645								; case 0x3
063f 4801       |H   |		Short_Literal	0x1
0640 7805       |x   |		Jump	0x646
0641 4802       |H   |		Short_Literal	0x2
0642 7803       |x   |		Jump	0x646
0643 4803       |H   |		Short_Literal	0x3
0644 7801       |x   |		Jump	0x646
0645 4804       |H   |		Short_Literal	0x4
0646 e5ff       |    |		Load	0x2,-0x1
0647 031b       |    |		Declare_Type	Variant_Record,Constrained
0648 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0649 00db       |    |		Load_Top	At_Offset_3
064a e5fe       |    |		Load	0x2,-0x2
064b e5ff       |    |		Load	0x2,-0x1
064c 1c06       |    |		Execute_Immediate	Run_Utility,0x6
064d e5ff       |    |		Load	0x2,-0x1
064e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
064f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 4608       |F   |		Jump_Case	0x9							; Debug Table 0x17 = .DEBUG	0x0653,0x0c9c,0x0005,0x0000,0x0038,0xd466,0x0000,0x0184
0654 7808       |x   |		Jump	0x65d								; case 0x0
0655 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0656 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0657 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0658 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0659 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
065a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
065b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
065c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
065d 00da       |    |		Load_Top	At_Offset_2
065e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
065f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0660 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0661 0000 0000  |    |		.BLANK	0000[0x7]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066c       | l  |		.CONST	0x066c								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			INIT_0668:
066b 0007       |    |		Action	Break_Optional							; Debug Table 0x18 = .DEBUG	0x066b,0x0c9e,0x0001,0x0000,0x0039,0x33e6,0x0000,0x008d
													; Debug Table 0x18.0x0 = 0x66b,0xffff
066c			BODY_0668:
066c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x18.0x1 = 0x66c,0x1
066d 6802       |h   |		Jump_Zero	0x670
066e 62c9       |b   |		Indirect_Literal	Discrete,0x938,{0x00000000, 0x3933e601}		; Debug Table 0x18.0x2 = 0x66e,0x2
066f 0257       | W  |		Execute	Discrete,Raise
0670 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0671 0000 0000  |    |		.BLANK	0000[0x7]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067c       | |  |		.CONST	0x067c								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0001       |    |		.CONST	0x0001								; Number of locals
067b			INIT_0678:
067b 0007       |    |		Action	Break_Optional							; Debug Table 0x19 = .DEBUG	0x067b,0x0ca6,0x0001,0x0000,0x0039,0x33e6,0x0000,0x00af
													; Debug Table 0x19.0x0 = 0x67b,0xffff
067c			BODY_0678:
067c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x19.0x1 = 0x67c,0x1
067d 6802       |h   |		Jump_Zero	0x680
067e 62b5       |b   |		Indirect_Literal	Discrete,0x934,{0x00000000, 0x3933e602}		; Debug Table 0x19.0x2 = 0x67e,0x2
067f 0257       | W  |		Execute	Discrete,Raise
0680 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0681 0000 0000  |    |		.BLANK	0000[0x7]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 069c       |    |		.CONST	0x069c								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0004       |    |		.CONST	0x0004								; Number of locals
068b			INIT_0688:
068b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1a = .DEBUG	0x068b,0x0cae,0x0002,0x0000,0x0039,0x33e6,0x0000,0x00e0
													; Debug Table 0x1a.0x0 = 0x68b,0xffff
068c 01dd       |    |		Execute	Vector,First
068d 00e2       |    |		Load_Encached	Integer_Cache
068e 03f1       |    |		Declare_Variable	Discrete,With_Value
068f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1a.0x1 = 0x68f,0xfffe
0690 01dd       |    |		Execute	Vector,First
0691 0a02       |    |		Execute_Immediate	Plus,0x2
0692 0248       | H  |		Execute	Discrete,Check_In_Integer
0693 00e2       |    |		Load_Encached	Integer_Cache
0694 03f1       |    |		Declare_Variable	Discrete,With_Value
0695 0007       |    |		Action	Break_Optional							; Debug Table 0x1a.0x2 = 0x695,0xfffd
0696 e008       |    |		Load	0x0,0x8								; Debug Table 0x1a.0x3 = 0x696,0xfffc
0697 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0698 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0699 02c7       |    |		Declare_Variable	Any
069a 00d8       |    |		Load_Top	At_Offset_0
069b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
069c			BODY_0688:
069c 00cf       |    |		Action	Mark_Auxiliary
069d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1a.0x4 = 0x69d,0x1
069e 01dc       |    |		Execute	Vector,Last
069f 00db       |    |		Load_Top	At_Offset_3
06a0 0263       | c  |		Execute	Discrete,Above_Bound
06a1 7011       |p   |		Jump_Nonzero	0x6b3
06a2 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1a.0x5 = 0x6a2,0x2
06a3 e5ff       |    |		Load	0x2,-0x1
06a4 01d7       |    |		Execute	Vector,Field_Read
06a5 0b2e       | .  |		Execute_Immediate	Case_Compare,0x2e
06a6 7003       |p   |		Jump_Nonzero	0x6aa
06a7 0b21       | !  |		Execute_Immediate	Case_Compare,0x21
06a8 7001       |p   |		Jump_Nonzero	0x6aa
06a9 7806       |x   |		Jump	0x6b0								; Debug Table 0x1a.0x6 = 0x6a9,0x5
06aa 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1a.0x7 = 0x6aa,0x3
06ab 0a01       |    |		Execute_Immediate	Plus,0x1
06ac 0248       | H  |		Execute	Discrete,Check_In_Integer
06ad a402       |    |		Store_Unchecked	0x2,0x2
06ae 00d3       |    |		Pop_Control	Pop_Count_3						; Debug Table 0x1a.0x8 = 0x6ae,0x4
06af 7803       |x   |		Jump	0x6b3
06b0 00d1       |    |		Pop_Control	Pop_Count_1
06b1 00c8       |    |		Action	Pop_Auxiliary_Range
06b2 3fef       |?   |		Loop_Increasing	0x6a2
06b3 00ce       |    |		Action	Pop_Auxiliary
06b4 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1a.0x9 = 0x6b4,0x6
06b5 e5ff       |    |		Load	0x2,-0x1
06b6 01dd       |    |		Execute	Vector,First
06b7 027f       |    |		Execute	Discrete,Equal
06b8 6802       |h   |		Jump_Zero	0x6bb
06b9 6276       |bv  |		Indirect_Literal	Discrete,0x930,{0x00000000, 0x3933e603}		; Debug Table 0x1a.0xa = 0x6b9,0x7
06ba 0257       | W  |		Execute	Discrete,Raise
06bb e009       |    |		Load	0x0,0x9								; Debug Table 0x1a.0xb = 0x6bb,0x8
06bc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06bd 4800       |H   |		Short_Literal	0x0
06be e008       |    |		Load	0x0,0x8
06bf 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
06c0 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
06c1 c404       |    |		Store	0x2,0x4
06c2 e009       |    |		Load	0x0,0x9								; Debug Table 0x1a.0xc = 0x6c2,0x9
06c3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06c4 4800       |H   |		Short_Literal	0x0
06c5 00da       |    |		Load_Top	At_Offset_2
06c6 e008       |    |		Load	0x0,0x8
06c7 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
06c8 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
06c9 e231       | 1  |		Load	0x1,0x31							; Debug Table 0x1a.0xd = 0x6c9,0xa
06ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06cb 0000 0000  |    |		.BLANK	0000[0x5]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3       |    |		.CONST	0x06d3								; Address of begin
06d1 0004       |    |		.CONST	0x0004								; Address of exception handler
06d2 0001       |    |		.CONST	0x0001								; Number of locals
06d3			BODY_06d0:
06d3			INIT_06d0:
06d3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1b = .DEBUG	0x06d3,0x0ccc,0x0002,0x0000,0x0039,0x33e6,0x0000,0x014b
													; Debug Table 0x1b.0x0 = 0x6d3,0x1
06d4 0092 095f  |   _|		Action	Push_String_Extended,0x95f					; "DIR"
06d6 01df       |    |		Execute	Vector,Equal
06d7 7006       |p   |		Jump_Nonzero	0x6de
06d8 00da       |    |		Load_Top	At_Offset_2
06d9 01dd       |    |		Execute	Vector,First
06da 00db       |    |		Load_Top	At_Offset_3
06db 01d7       |    |		Execute	Vector,Field_Read
06dc 0f5d       | ]  |		Execute_Immediate	Equal,0x5d
06dd 6802       |h   |		Jump_Zero	0x6e0
06de 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1b.0x1 = 0x6de,0x2
06df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06e0 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1b.0x2 = 0x6e0,0x3
06e1 0092 0960  |   `|		Action	Push_String_Extended,0x960					; "POLYFILE"
06e3 01df       |    |		Execute	Vector,Equal
06e4 7006       |p   |		Jump_Nonzero	0x6eb
06e5 00da       |    |		Load_Top	At_Offset_2
06e6 01dd       |    |		Execute	Vector,First
06e7 00db       |    |		Load_Top	At_Offset_3
06e8 01d7       |    |		Execute	Vector,Field_Read
06e9 0f5b       | [  |		Execute_Immediate	Equal,0x5b
06ea 6802       |h   |		Jump_Zero	0x6ed
06eb 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1b.0x3 = 0x6eb,0x4
06ec 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06ed 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1b.0x4 = 0x6ed,0x5
06ee 0092 0961  |   a|		Action	Push_String_Extended,0x961					; "UNIV"
06f0 01df       |    |		Execute	Vector,Equal
06f1 7006       |p   |		Jump_Nonzero	0x6f8
06f2 00da       |    |		Load_Top	At_Offset_2
06f3 01dd       |    |		Execute	Vector,First
06f4 00db       |    |		Load_Top	At_Offset_3
06f5 01d7       |    |		Execute	Vector,Field_Read
06f6 0f25       | %  |		Execute_Immediate	Equal,0x25
06f7 6802       |h   |		Jump_Zero	0x6fa
06f8 4802       |H   |		Short_Literal	0x2							; Debug Table 0x1b.0x5 = 0x6f8,0x6
06f9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06fa 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1b.0x6 = 0x6fa,0x7
06fb 01db       |    |		Execute	Vector,Length
06fc 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
06fd 680e       |h   |		Jump_Zero	0x70c
06fe 00da       |    |		Load_Top	At_Offset_2
06ff 01dd       |    |		Execute	Vector,First
0700 00db       |    |		Load_Top	At_Offset_3
0701 01dd       |    |		Execute	Vector,First
0702 0a01       |    |		Execute_Immediate	Plus,0x1
0703 0248       | H  |		Execute	Discrete,Check_In_Integer
0704 e5ff       |    |		Load	0x2,-0x1
0705 01cf       |    |		Execute	Vector,Slice_Read
0706 0092 0962  |   b|		Action	Push_String_Extended,0x962					; "!!"
0708 01df       |    |		Execute	Vector,Equal
0709 6802       |h   |		Jump_Zero	0x70c
070a 4803       |H   |		Short_Literal	0x3							; Debug Table 0x1b.0x7 = 0x70a,0x8
070b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
070c e22c       | ,  |		Load	0x1,0x2c							; Debug Table 0x1b.0x8 = 0x70c,0x9
070d 6802       |h   |		Jump_Zero	0x710
070e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1b.0x9 = 0x70e,0xa
070f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0710 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1b.0xa = 0x710,0xb
0711 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0712 0000 0000  |    |		.BLANK	0000[0x6]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b       |    |		.CONST	0x071b								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0001       |    |		.CONST	0x0001								; Number of locals
071b			BODY_0718:
071b			INIT_0718:
071b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1c = .DEBUG	0x071b,0x0ce4,0x0002,0x0000,0x0039,0x33e6,0x0000,0x01c3
													; Debug Table 0x1c.0x0 = 0x71b,0x1
071c 01dd       |    |		Execute	Vector,First
071d 00db       |    |		Load_Top	At_Offset_3
071e 01d7       |    |		Execute	Vector,Field_Read
071f 0b5b       | [  |		Execute_Immediate	Case_Compare,0x5b
0720 7006       |p   |		Jump_Nonzero	0x727
0721 0b5d       | ]  |		Execute_Immediate	Case_Compare,0x5d
0722 7004       |p   |		Jump_Nonzero	0x727
0723 0b25       | %  |		Execute_Immediate	Case_Compare,0x25
0724 700b       |p   |		Jump_Nonzero	0x730
0725 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1c.0x1 = 0x725,0x6
0726 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0727 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1c.0x2 = 0x727,0x2
0728 01dd       |    |		Execute	Vector,First
0729 0a01       |    |		Execute_Immediate	Plus,0x1
072a 0248       | H  |		Execute	Discrete,Check_In_Integer
072b e5ff       |    |		Load	0x2,-0x1
072c 01dc       |    |		Execute	Vector,Last
072d e5ff       |    |		Load	0x2,-0x1
072e 01cf       |    |		Execute	Vector,Slice_Read
072f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0730 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1c.0x3 = 0x730,0x3
0731 01db       |    |		Execute	Vector,Length
0732 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0733 6813       |h   |		Jump_Zero	0x747
0734 00db       |    |		Load_Top	At_Offset_3
0735 01dd       |    |		Execute	Vector,First
0736 0a01       |    |		Execute_Immediate	Plus,0x1
0737 0248       | H  |		Execute	Discrete,Check_In_Integer
0738 e5ff       |    |		Load	0x2,-0x1
0739 01d7       |    |		Execute	Vector,Field_Read
073a 0e21       | !  |		Execute_Immediate	Not_Equal,0x21
073b 680b       |h   |		Jump_Zero	0x747
073c 4821       |H!  |		Short_Literal	0x21							; Debug Table 0x1c.0x4 = 0x73c,0x4
073d e5ff       |    |		Load	0x2,-0x1
073e 01dd       |    |		Execute	Vector,First
073f 0a01       |    |		Execute_Immediate	Plus,0x1
0740 0248       | H  |		Execute	Discrete,Check_In_Integer
0741 e5ff       |    |		Load	0x2,-0x1
0742 01dc       |    |		Execute	Vector,Last
0743 e5ff       |    |		Load	0x2,-0x1
0744 01cf       |    |		Execute	Vector,Slice_Read
0745 01ca       |    |		Execute	Vector,Prepend
0746 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0747 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1c.0x5 = 0x747,0x5
0748 01dd       |    |		Execute	Vector,First
0749 0a01       |    |		Execute_Immediate	Plus,0x1
074a 0248       | H  |		Execute	Discrete,Check_In_Integer
074b e5ff       |    |		Load	0x2,-0x1
074c 01dc       |    |		Execute	Vector,Last
074d e5ff       |    |		Load	0x2,-0x1
074e 01cf       |    |		Execute	Vector,Slice_Read
074f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0770       | p  |		.CONST	0x0770								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0005       |    |		.CONST	0x0005								; Number of locals
0753			INIT_0750:
0753 e001       |    |		Load	0x0,0x1								; Debug Table 0x1d = .DEBUG	0x0753,0x0cf2,0x0004,0x0000,0x0039,0x33e6,0x0000,0x079d
													; Debug Table 0x1d.0x0 = 0x753,0xffff
0754 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0755 0248       | H  |		Execute	Discrete,Check_In_Integer
0756 00e2       |    |		Load_Encached	Integer_Cache
0757 03f1       |    |		Declare_Variable	Discrete,With_Value
0758 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1d.0x1 = 0x758,0xfffe
0759 e5ff       |    |		Load	0x2,-0x1
075a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
075b 0227       | '  |		Execute	Access,All_Reference
075c 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
075d e001       |    |		Load	0x0,0x1
075e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
075f 0248       | H  |		Execute	Discrete,Check_In_Integer
0760 0aff       |    |		Execute_Immediate	Plus,-0x1
0761 0248       | H  |		Execute	Discrete,Check_In_Integer
0762 00e2       |    |		Load_Encached	Integer_Cache
0763 03f1       |    |		Declare_Variable	Discrete,With_Value
0764 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1d.0x2 = 0x764,0xfffd
0765 00d9       |    |		Load_Top	At_Offset_1
0766 e212       |    |		Load	0x1,0x12
0767 035b       | [  |		Declare_Type	Array,Constrained
0768 61c3       |a   |		Indirect_Literal	Discrete,0x92c,{0x00000000, 0x003933e6}		; Debug Table 0x1d.0x3 = 0x768,0xfffc
0769 61be       |a   |		Indirect_Literal	Discrete,0x928,{0x00000000, 0x00000787}
076a 00da       |    |		Load_Top	At_Offset_2
076b e001       |    |		Load	0x0,0x1
076c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
076d 0387       |    |		Declare_Variable	Package
076e 00d8       |    |		Load_Top	At_Offset_0
076f 020f       |    |		Execute	Module,Activate
0770			BODY_0750:
0770 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1d.0x4 = 0x770,0x1
0771 e5ff       |    |		Load	0x2,-0x1
0772 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0773 0227       | '  |		Execute	Access,All_Reference
0774 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0775 00da       |    |		Load_Top	At_Offset_2
0776 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0777 e212       |    |		Load	0x1,0x12
0778 01c6       |    |		Execute	Vector,Convert_To_Formal
0779 00cb       |    |		Action	Pop_Block_With_Result
077a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
077b 0000 0000  |    |		.BLANK	0000[0x5]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 07a0       |    |		.CONST	0x07a0								; Address of begin
0781 0004       |    |		.CONST	0x0004								; Address of exception handler
0782 0005       |    |		.CONST	0x0005								; Number of locals
0783			INIT_0780:
0783 e002       |    |		Load	0x0,0x2								; Debug Table 0x1e = .DEBUG	0x0783,0x0cfe,0x0004,0x0000,0x0039,0x33e6,0x0000,0x07ef
													; Debug Table 0x1e.0x0 = 0x783,0xffff
0784 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0785 e002       |    |		Load	0x0,0x2
0786 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0787 0248       | H  |		Execute	Discrete,Check_In_Integer
0788 00e2       |    |		Load_Encached	Integer_Cache
0789 03f1       |    |		Declare_Variable	Discrete,With_Value
078a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1e.0x1 = 0x78a,0xfffe
078b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
078c 0227       | '  |		Execute	Access,All_Reference
078d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
078e e002       |    |		Load	0x0,0x2
078f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0790 0aff       |    |		Execute_Immediate	Plus,-0x1
0791 0248       | H  |		Execute	Discrete,Check_In_Integer
0792 00e2       |    |		Load_Encached	Integer_Cache
0793 03f1       |    |		Declare_Variable	Discrete,With_Value
0794 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1e.0x2 = 0x794,0xfffd
0795 00d9       |    |		Load_Top	At_Offset_1
0796 e212       |    |		Load	0x1,0x12
0797 035b       | [  |		Declare_Type	Array,Constrained
0798 6193       |a   |		Indirect_Literal	Discrete,0x92c,{0x00000000, 0x003933e6}		; Debug Table 0x1e.0x3 = 0x798,0xfffc
0799 618a       |a   |		Indirect_Literal	Discrete,0x924,{0x00000000, 0x000007d0}
079a 00da       |    |		Load_Top	At_Offset_2
079b e002       |    |		Load	0x0,0x2
079c 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
079d 0387       |    |		Declare_Variable	Package
079e 00d8       |    |		Load_Top	At_Offset_0
079f 020f       |    |		Execute	Module,Activate
07a0			BODY_0780:
07a0 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1e.0x4 = 0x7a0,0x1
07a1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07a2 0227       | '  |		Execute	Access,All_Reference
07a3 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
07a4 e5ff       |    |		Load	0x2,-0x1
07a5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07a6 0227       | '  |		Execute	Access,All_Reference
07a7 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
07a8 00da       |    |		Load_Top	At_Offset_2
07a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07aa e212       |    |		Load	0x1,0x12
07ab 01c6       |    |		Execute	Vector,Convert_To_Formal
07ac 00cb       |    |		Action	Pop_Block_With_Result
07ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07ae 0000 0000  |    |		.XXX[0x2]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07d0       |    |		.CONST	0x07d0								; Address of begin
07b1 0004       |    |		.CONST	0x0004								; Address of exception handler
07b2 0005       |    |		.CONST	0x0005								; Number of locals
07b3			INIT_07b0:
07b3 e002       |    |		Load	0x0,0x2								; Debug Table 0x1f = .DEBUG	0x07b3,0x0d0a,0x0004,0x0000,0x0039,0x33e6,0x0000,0x0841
													; Debug Table 0x1f.0x0 = 0x7b3,0xffff
07b4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
07b5 e002       |    |		Load	0x0,0x2
07b6 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
07b7 0248       | H  |		Execute	Discrete,Check_In_Integer
07b8 00e2       |    |		Load_Encached	Integer_Cache
07b9 03f1       |    |		Declare_Variable	Discrete,With_Value
07ba e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1f.0x1 = 0x7ba,0xfffe
07bb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07bc 0227       | '  |		Execute	Access,All_Reference
07bd 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
07be e002       |    |		Load	0x0,0x2
07bf 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
07c0 0aff       |    |		Execute_Immediate	Plus,-0x1
07c1 0248       | H  |		Execute	Discrete,Check_In_Integer
07c2 00e2       |    |		Load_Encached	Integer_Cache
07c3 03f1       |    |		Declare_Variable	Discrete,With_Value
07c4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1f.0x2 = 0x7c4,0xfffd
07c5 00d9       |    |		Load_Top	At_Offset_1
07c6 e212       |    |		Load	0x1,0x12
07c7 035b       | [  |		Declare_Type	Array,Constrained
07c8 6163       |ac  |		Indirect_Literal	Discrete,0x92c,{0x00000000, 0x003933e6}		; Debug Table 0x1f.0x3 = 0x7c8,0xfffc
07c9 6156       |aV  |		Indirect_Literal	Discrete,0x920,{0x00000000, 0x00000822}
07ca 00da       |    |		Load_Top	At_Offset_2
07cb e002       |    |		Load	0x0,0x2
07cc 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
07cd 0387       |    |		Declare_Variable	Package
07ce 00d8       |    |		Load_Top	At_Offset_0
07cf 020f       |    |		Execute	Module,Activate
07d0			BODY_07b0:
07d0 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x1f.0x4 = 0x7d0,0x1
07d1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d2 0227       | '  |		Execute	Access,All_Reference
07d3 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
07d4 e5ff       |    |		Load	0x2,-0x1
07d5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d6 0227       | '  |		Execute	Access,All_Reference
07d7 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
07d8 00da       |    |		Load_Top	At_Offset_2
07d9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07da e212       |    |		Load	0x1,0x12
07db 01c6       |    |		Execute	Vector,Convert_To_Formal
07dc 00cb       |    |		Action	Pop_Block_With_Result
07dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07de 0000 0000  |    |		.XXX[0x2]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07eb       |    |		.CONST	0x07eb								; Address of begin
07e1 0004       |    |		.CONST	0x0004								; Address of exception handler
07e2 0002       |    |		.CONST	0x0002								; Number of locals
07e3			INIT_07e0:
07e3 6148       |aH  |		Indirect_Literal	Discrete,0x92c,{0x00000000, 0x003933e6}		; Debug Table 0x20 = .DEBUG	0x07e3,0x0d16,0x0004,0x0000,0x0039,0x33e6,0x0000,0x06f1
													; Debug Table 0x20.0x0 = 0x7e3,0xffff
07e4 6137       |a7  |		Indirect_Literal	Discrete,0x91c,{0x00000000, 0x000006db}
07e5 e402       |    |		Load	0x2,0x2
07e6 e001       |    |		Load	0x0,0x1
07e7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
07e8 0387       |    |		Declare_Variable	Package
07e9 00d8       |    |		Load_Top	At_Offset_0
07ea 020f       |    |		Execute	Module,Activate
07eb			BODY_07e0:
07eb e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x20.0x1 = 0x7eb,0x1
07ec e402       |    |		Load	0x2,0x2
07ed 01c3       |    |		Execute	Vector,Check_In_Type
07ee e5ff       |    |		Load	0x2,-0x1
07ef 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07f0 0227       | '  |		Execute	Access,All_Reference
07f1 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
07f2 00da       |    |		Load_Top	At_Offset_2
07f3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07f5 0000 0000  |    |		.XXX[0x3]
07f7 0000       |    |
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 0803       |    |		.CONST	0x0803								; Address of begin
07f9 0004       |    |		.CONST	0x0004								; Address of exception handler
07fa 0002       |    |		.CONST	0x0002								; Number of locals
07fb			INIT_07f8:
07fb 6130       |a0  |		Indirect_Literal	Discrete,0x92c,{0x00000000, 0x003933e6}		; Debug Table 0x21 = .DEBUG	0x07fb,0x0d1c,0x0004,0x0000,0x0039,0x33e6,0x0000,0x0717
													; Debug Table 0x21.0x0 = 0x7fb,0xffff
07fc 611b       |a   |		Indirect_Literal	Discrete,0x918,{0x00000000, 0x000006f6}
07fd e402       |    |		Load	0x2,0x2
07fe e002       |    |		Load	0x0,0x2
07ff 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0800 0387       |    |		Declare_Variable	Package
0801 00d8       |    |		Load_Top	At_Offset_0
0802 020f       |    |		Execute	Module,Activate
0803			BODY_07f8:
0803 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x21.0x1 = 0x803,0x1
0804 e402       |    |		Load	0x2,0x2
0805 01c3       |    |		Execute	Vector,Check_In_Type
0806 e5ff       |    |		Load	0x2,-0x1
0807 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0808 0227       | '  |		Execute	Access,All_Reference
0809 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
080a e5ff       |    |		Load	0x2,-0x1
080b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
080c 0227       | '  |		Execute	Access,All_Reference
080d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
080e 00db       |    |		Load_Top	At_Offset_3
080f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0810 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0811 0000 0000  |    |		.BLANK	0000[0x7]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 0823       | #  |		.CONST	0x0823								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0002       |    |		.CONST	0x0002								; Number of locals
081b			INIT_0818:
081b 6110       |a   |		Indirect_Literal	Discrete,0x92c,{0x00000000, 0x003933e6}		; Debug Table 0x22 = .DEBUG	0x081b,0x0d22,0x0004,0x0000,0x0039,0x33e6,0x0000,0x073d
													; Debug Table 0x22.0x0 = 0x81b,0xffff
081c 60f7       |`   |		Indirect_Literal	Discrete,0x914,{0x00000000, 0x0000071c}
081d e402       |    |		Load	0x2,0x2
081e e002       |    |		Load	0x0,0x2
081f 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
0820 0387       |    |		Declare_Variable	Package
0821 00d8       |    |		Load_Top	At_Offset_0
0822 020f       |    |		Execute	Module,Activate
0823			BODY_0818:
0823 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x22.0x1 = 0x823,0x1
0824 e402       |    |		Load	0x2,0x2
0825 01c3       |    |		Execute	Vector,Check_In_Type
0826 e5ff       |    |		Load	0x2,-0x1
0827 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0828 0227       | '  |		Execute	Access,All_Reference
0829 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
082a e5ff       |    |		Load	0x2,-0x1
082b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
082c 0227       | '  |		Execute	Access,All_Reference
082d 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
082e 00db       |    |		Load_Top	At_Offset_3
082f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0830 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0831 0000 0000  |    |		.BLANK	0000[0x7]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b       | ;  |		.CONST	0x083b								; Address of begin
0839 0860       | `  |		.CONST	0x0860								; Address of exception handler
083a 0001       |    |		.CONST	0x0001								; Number of locals
083b			BODY_0838:
083b			INIT_0838:
083b e003       |    |		Load	0x0,0x3								; Debug Table 0x23 = .DEBUG	0x083b,0x0d28,0x0004,0x0000,0x0039,0x33e6,0x0000,0x0638
													; Debug Table 0x23.0x0 = 0x83b,0x1
083c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
083d 00f1       |    |		Load_Encached	Diana_Temp_Seq
083e e003       |    |		Load	0x0,0x3
083f 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0840 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0841 e404       |    |		Load	0x2,0x4
0842 0120       |    |		Execute	Any,Is_Value
0843 6803       |h   |		Jump_Zero	0x847
0844 e007       |    |		Load	0x0,0x7
0845 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0846 7801       |x   |		Jump	0x848
0847 e404       |    |		Load	0x2,0x4
0848 60c7       |`   |		Indirect_Literal	Discrete,0x910,{0x00000000, 0x00028000}
0849 e005       |    |		Load	0x0,0x5
084a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
084b 4800       |H   |		Short_Literal	0x0
084c e003       |    |		Load	0x0,0x3
084d 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
084e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
084f e003       |    |		Load	0x0,0x3
0850 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0851 4800       |H   |		Short_Literal	0x0
0852 e006       |    |		Load	0x0,0x6
0853 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0854 e003       |    |		Load	0x0,0x3
0855 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0856 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0857 e231       | 1  |		Load	0x1,0x31
0858 e003       |    |		Load	0x0,0x3
0859 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
085a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
085b c404       |    |		Store	0x2,0x4
085c c405       |    |		Store	0x2,0x5
085d c406       |    |		Store	0x2,0x6
085e c403       |    |		Store	0x2,0x3
085f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0860			TRAP_0838:
0860 0007       |    |		Action	Break_Optional
0861 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x23.0x1 = 0x861,0x2
0862 0000 0000  |    |		.BLANK	0000[0x6]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 0870       | p  |		.CONST	0x0870								; Address of begin
0869 0004       |    |		.CONST	0x0004								; Address of exception handler
086a 0002       |    |		.CONST	0x0002								; Number of locals
086b			INIT_0868:
086b 4803       |H   |		Short_Literal	0x3							; Debug Table 0x24 = .DEBUG	0x086b,0x0d2e,0x0004,0x0000,0x0039,0x33e6,0x0000,0x08a1
													; Debug Table 0x24.0x0 = 0x86b,0xffff
086c e225       | %  |		Load	0x1,0x25
086d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
086e 00d8       |    |		Load_Top	At_Offset_0
086f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0870			BODY_0868:
0870 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x24.0x1 = 0x870,0x1
0871 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0872 00ea       |    |		Load_Encached	Null_String_Cache
0873 e5ff       |    |		Load	0x2,-0x1
0874 01dd       |    |		Execute	Vector,First
0875 0a01       |    |		Execute_Immediate	Plus,0x1
0876 0248       | H  |		Execute	Discrete,Check_In_Integer
0877 e5ff       |    |		Load	0x2,-0x1
0878 01dc       |    |		Execute	Vector,Last
0879 e5ff       |    |		Load	0x2,-0x1
087a 01cf       |    |		Execute	Vector,Slice_Read
087b 4800       |H   |		Short_Literal	0x0
087c e004       |    |		Load	0x0,0x4
087d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
087e 00d9       |    |		Load_Top	At_Offset_1
087f 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0880 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x24.0x2 = 0x880,0x2
0881 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0882 e004       |    |		Load	0x0,0x4
0883 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0884 e5fe       |    |		Load	0x2,-0x2
0885 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0886 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x24.0x3 = 0x886,0x3
0887 e5fe       |    |		Load	0x2,-0x2
0888 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0889 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
088a 0000 0000  |    |		.BLANK	0000[0x6]
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 089b       |    |		.CONST	0x089b								; Address of begin
0891 0004       |    |		.CONST	0x0004								; Address of exception handler
0892 0003       |    |		.CONST	0x0003								; Number of locals
0893			INIT_0890:
0893 4800       |H   |		Short_Literal	0x0							; Debug Table 0x25 = .DEBUG	0x0893,0x0d38,0x0004,0x0000,0x0039,0x33e6,0x0000,0x08f3
													; Debug Table 0x25.0x0 = 0x893,0xffff
0894 e225       | %  |		Load	0x1,0x25
0895 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0896 00d8       |    |		Load_Top	At_Offset_0
0897 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0898 e003       |    |		Load	0x0,0x3								; Debug Table 0x25.0x1 = 0x898,0xfffe
0899 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
089a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
089b			BODY_0890:
089b e003       |    |		Load	0x0,0x3								; Debug Table 0x25.0x2 = 0x89b,0x1
089c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
089d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
089e 00da       |    |		Load_Top	At_Offset_2
089f 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
08a0 0120       |    |		Execute	Any,Is_Value
08a1 6807       |h   |		Jump_Zero	0x8a9
08a2 e003       |    |		Load	0x0,0x3
08a3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08a4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
08a5 00db       |    |		Load_Top	At_Offset_3
08a6 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
08a7 00d1       |    |		Pop_Control	Pop_Count_1
08a8 7802       |x   |		Jump	0x8ab
08a9 00da       |    |		Load_Top	At_Offset_2
08aa 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
08ab 6064       |`d  |		Indirect_Literal	Discrete,0x910,{0x00000000, 0x00028000}
08ac e005       |    |		Load	0x0,0x5
08ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08ae e006       |    |		Load	0x0,0x6
08af 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08b0 e00a       |    |		Load	0x0,0xa
08b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08b2 4801       |H   |		Short_Literal	0x1
08b3 4800       |H   |		Short_Literal	0x0
08b4 e006       |    |		Load	0x0,0x6
08b5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08b6 e003       |    |		Load	0x0,0x3
08b7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08b8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08b9 e5ff       |    |		Load	0x2,-0x1
08ba 8236       | 6  |		Call	0x1,0x36
08bb e003       |    |		Load	0x0,0x3
08bc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08bd 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
08be 00db       |    |		Load_Top	At_Offset_3
08bf 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
08c0 0059       | Y  |		Store_Top	Discrete,At_Offset_1
08c1 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x25.0x3 = 0x8c1,0x2
08c2 6804       |h   |		Jump_Zero	0x8c7
08c3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x25.0x4 = 0x8c3,0x3
08c4 e5fe       |    |		Load	0x2,-0x2
08c5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08c6 7803       |x   |		Jump	0x8ca
08c7 4800       |H   |		Short_Literal	0x0							; Debug Table 0x25.0x5 = 0x8c7,0x4
08c8 e5fe       |    |		Load	0x2,-0x2
08c9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08ca 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x25.0x6 = 0x8ca,0x5
08cb e5fe       |    |		Load	0x2,-0x2
08cc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
08cd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08ce 0000 0000  |    |		.XXX[0x2]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08db       |    |		.CONST	0x08db								; Address of begin
08d1 0004       |    |		.CONST	0x0004								; Address of exception handler
08d2 0003       |    |		.CONST	0x0003								; Number of locals
08d3			INIT_08d0:
08d3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x26 = .DEBUG	0x08d3,0x0d48,0x0004,0x0000,0x0039,0x33e6,0x0000,0x093e
													; Debug Table 0x26.0x0 = 0x8d3,0xffff
08d4 e225       | %  |		Load	0x1,0x25
08d5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
08d6 00d8       |    |		Load_Top	At_Offset_0
08d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
08d8 e003       |    |		Load	0x0,0x3								; Debug Table 0x26.0x1 = 0x8d8,0xfffe
08d9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08da 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08db			BODY_08d0:
08db e003       |    |		Load	0x0,0x3								; Debug Table 0x26.0x2 = 0x8db,0x1
08dc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08dd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08de 00da       |    |		Load_Top	At_Offset_2
08df 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
08e0 0120       |    |		Execute	Any,Is_Value
08e1 6807       |h   |		Jump_Zero	0x8e9
08e2 e003       |    |		Load	0x0,0x3
08e3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08e4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
08e5 00db       |    |		Load_Top	At_Offset_3
08e6 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
08e7 00d1       |    |		Pop_Control	Pop_Count_1
08e8 7802       |x   |		Jump	0x8eb
08e9 00da       |    |		Load_Top	At_Offset_2
08ea 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
08eb 6024       |`$  |		Indirect_Literal	Discrete,0x910,{0x00000000, 0x00028000}
08ec e005       |    |		Load	0x0,0x5
08ed 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
08ee e006       |    |		Load	0x0,0x6
08ef 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08f0 e00a       |    |		Load	0x0,0xa
08f1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08f2 4801       |H   |		Short_Literal	0x1
08f3 4800       |H   |		Short_Literal	0x0
08f4 e006       |    |		Load	0x0,0x6
08f5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
08f6 e003       |    |		Load	0x0,0x3
08f7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08f8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08f9 e5ff       |    |		Load	0x2,-0x1
08fa 8236       | 6  |		Call	0x1,0x36
08fb e003       |    |		Load	0x0,0x3
08fc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
08fd 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
08fe 00db       |    |		Load_Top	At_Offset_3
08ff 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0900 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0901 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x26.0x3 = 0x901,0x2
0902 6804       |h   |		Jump_Zero	0x907
0903 4801       |H   |		Short_Literal	0x1							; Debug Table 0x26.0x4 = 0x903,0x3
0904 e5fe       |    |		Load	0x2,-0x2
0905 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0906 7803       |x   |		Jump	0x90a
0907 4800       |H   |		Short_Literal	0x0							; Debug Table 0x26.0x5 = 0x907,0x4
0908 e5fe       |    |		Load	0x2,-0x2
0909 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
090a 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x26.0x6 = 0x90a,0x5
090b e5fe       |    |		Load	0x2,-0x2
090c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
090d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
090e 0000 0000  |    |		.XXX[0x2]
0910 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
0914 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000071c}
0918 0000 0000  |    |		.LITERAL	{0x00000000, 0x000006f6}
091c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000006db}
0920 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000822}
0924 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007d0}
0928 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000787}
092c 0000 0000  |    |		.LITERAL	{0x00000000, 0x003933e6}
0930 0000 0000  |    |		.LITERAL	{0x00000000, 0x3933e603}
0934 0000 0000  |    |		.LITERAL	{0x00000000, 0x3933e602}
0938 0000 0000  |    |		.LITERAL	{0x00000000, 0x3933e601}
093c 0000 0000  |    |		.BLANK	0000[0x4]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0948       | H  |		.CONST	0x0948								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0002       |    |		.CONST	0x0002								; Number of locals
0943			INIT_0940:
0943 4802       |H   |		Short_Literal	0x2							; Debug Table 0x27 = .DEBUG	0x0943,0x0d58,0x0004,0x0000,0x0039,0x33e6,0x0000,0x095f
													; Debug Table 0x27.0x0 = 0x943,0xffff
0944 e225       | %  |		Load	0x1,0x25
0945 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0946 00d8       |    |		Load_Top	At_Offset_0
0947 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0948			BODY_0940:
0948 4800       |H   |		Short_Literal	0x0							; Debug Table 0x27.0x1 = 0x948,0x1
0949 e5fe       |    |		Load	0x2,-0x2
094a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
094b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x27.0x2 = 0x94b,0x2
094c e223       | #  |		Load	0x1,0x23
094d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
094e 00d9       |    |		Load_Top	At_Offset_1
094f 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0950 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x27.0x3 = 0x950,0x3
0951 e5fe       |    |		Load	0x2,-0x2
0952 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0953 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0954 ; --------------------------------------------------------------------------------------
0954 ; STRING TABLE
0954 ; --------------------------------------------------------------------------------------
0954 0020       |    |		.STRTAB	0x0020->0x0964							; "IN_FILE"
0955 0025       | %  |		.STRTAB	0x0025->0x0967							; "OUT_FILE"
0956 002b       | +  |		.STRTAB	0x002b->0x096b							; "POLY_FILE_KIND"
0957 0037       | 7  |		.STRTAB	0x0037->0x0972							; "DIR_FILE_KIND"
0958 0042       | B  |		.STRTAB	0x0042->0x0979							; "UNIV_FILE_KIND"
0959 004e       | N  |		.STRTAB	0x004e->0x0980							; "REMOTE_FILE_KIND"
095a 005c       | \  |		.STRTAB	0x005c->0x0988							; "DIR_ITER"
095b 0062       | b  |		.STRTAB	0x0062->0x098c							; "UNIV_ITER"
095c 0069       | i  |		.STRTAB	0x0069->0x0990							; "REMOTE_NAME"
095d 0072       | r  |		.STRTAB	0x0072->0x0996							; "INDIRECT_FILE"
095e 007d       | }  |		.STRTAB	0x007d->0x099c							; "!machine.temporary.io_util_temp"
095f 009a       |    |		.STRTAB	0x009a->0x09ac							; "DIR"
0960 009b       |    |		.STRTAB	0x009b->0x09ad							; "POLYFILE"
0961 00a1       |    |		.STRTAB	0x00a1->0x09b1							; "UNIV"
0962 00a3       |    |		.STRTAB	0x00a3->0x09b3							; "!!"
0963 00a3       |    |		.STREND 0x00a3->0x09b4
0964 494e 5f46  |IN_F|		.STRTAB_STRINGS
09b5 0000 0000  |    |		.XXX[0x3]
09b7 0000       |    |
09b8 ; --------------------------------------------------------------------------------------
09b8 ; Debug Table
09b8 ; --------------------------------------------------------------------------------------
09b8 0003 0028  |   (|		.CONST	0x0003,0x0028
09ba 000b 0afa  |    |		.DEBUG	0x000b,0x0afa,0x8000,0x0000,0x0038,0xd466,0x0000,0x000b
09c2 0088 0b3c  |   <|		.DEBUG	0x0088,0x0b3c,0x8000,0x0000,0x0039,0x33e6,0x0000,0x000b
09ca 011b 0b7e  |   ~|		.DEBUG	0x011b,0x0b7e,0x0005,0x0000,0x0038,0xd466,0x0000,0x0010
09d2 0133 0b80  | 3  |		.DEBUG	0x0133,0x0b80,0x0001,0x0000,0x0038,0xd466,0x0000,0x0016
09da 018b 0b90  |    |		.DEBUG	0x018b,0x0b90,0x0001,0x0000,0x0038,0xd466,0x0000,0x0022
09e2 01db 0b9e  |    |		.DEBUG	0x01db,0x0b9e,0x0001,0x0000,0x0038,0xd466,0x0000,0x002e
09ea 01eb 0ba4  |    |		.DEBUG	0x01eb,0x0ba4,0x0002,0x0000,0x0038,0xd466,0x0000,0x0043
09f2 020b 0bae  |    |		.DEBUG	0x020b,0x0bae,0x0001,0x0000,0x0038,0xd466,0x0000,0x004c
09fa 0233 0bbc  | 3  |		.DEBUG	0x0233,0x0bbc,0x0001,0x0000,0x0038,0xd466,0x0000,0x0058
0a02 02eb 0be8  |    |		.DEBUG	0x02eb,0x0be8,0x0001,0x0000,0x0038,0xd466,0x0000,0x006d
0a0a 03fb 0c1e  |    |		.DEBUG	0x03fb,0x0c1e,0x0001,0x0000,0x0038,0xd466,0x0000,0x0084
0a12 045b 0c42  | [ B|		.DEBUG	0x045b,0x0c42,0x0001,0x0000,0x0038,0xd466,0x0000,0x008c
0a1a 0493 0c56  |   V|		.DEBUG	0x0493,0x0c56,0x0002,0x0000,0x0038,0xd466,0x0000,0x0094
0a22 049b 0c5a  |   Z|		.DEBUG	0x049b,0x0c5a,0x0001,0x0000,0x0038,0xd466,0x0000,0x009d
0a2a 04a3 0c5e  |   ^|		.DEBUG	0x04a3,0x0c5e,0x0001,0x0000,0x0038,0xd466,0x0000,0x00ac
0a32 04d3 0c70  |   p|		.DEBUG	0x04d3,0x0c70,0x0001,0x0000,0x0038,0xd466,0x0000,0x00b8
0a3a 04fb 0c7a  |   z|		.DEBUG	0x04fb,0x0c7a,0x0002,0x0000,0x0038,0xd466,0x0000,0x00c0
0a42 0523 0c86  | #  |		.DEBUG	0x0523,0x0c86,0x0002,0x0000,0x0038,0xd466,0x0000,0x00c9
0a4a 0553 0c92  | S  |		.DEBUG	0x0553,0x0c92,0x0005,0x0000,0x0038,0xd466,0x0000,0x00e3
0a52 056b 0c94  | k  |		.DEBUG	0x056b,0x0c94,0x0005,0x0000,0x0038,0xd466,0x0000,0x00eb
0a5a 05cb 0c96  |    |		.DEBUG	0x05cb,0x0c96,0x0005,0x0000,0x0038,0xd466,0x0000,0x012d
0a62 05e3 0c98  |    |		.DEBUG	0x05e3,0x0c98,0x0005,0x0000,0x0038,0xd466,0x0000,0x0142
0a6a 05fb 0c9a  |    |		.DEBUG	0x05fb,0x0c9a,0x0005,0x0000,0x0038,0xd466,0x0000,0x014a
0a72 0653 0c9c  | S  |		.DEBUG	0x0653,0x0c9c,0x0005,0x0000,0x0038,0xd466,0x0000,0x0184
0a7a 066b 0c9e  | k  |		.DEBUG	0x066b,0x0c9e,0x0001,0x0000,0x0039,0x33e6,0x0000,0x008d
0a82 067b 0ca6  | {  |		.DEBUG	0x067b,0x0ca6,0x0001,0x0000,0x0039,0x33e6,0x0000,0x00af
0a8a 068b 0cae  |    |		.DEBUG	0x068b,0x0cae,0x0002,0x0000,0x0039,0x33e6,0x0000,0x00e0
0a92 06d3 0ccc  |    |		.DEBUG	0x06d3,0x0ccc,0x0002,0x0000,0x0039,0x33e6,0x0000,0x014b
0a9a 071b 0ce4  |    |		.DEBUG	0x071b,0x0ce4,0x0002,0x0000,0x0039,0x33e6,0x0000,0x01c3
0aa2 0753 0cf2  | S  |		.DEBUG	0x0753,0x0cf2,0x0004,0x0000,0x0039,0x33e6,0x0000,0x079d
0aaa 0783 0cfe  |    |		.DEBUG	0x0783,0x0cfe,0x0004,0x0000,0x0039,0x33e6,0x0000,0x07ef
0ab2 07b3 0d0a  |    |		.DEBUG	0x07b3,0x0d0a,0x0004,0x0000,0x0039,0x33e6,0x0000,0x0841
0aba 07e3 0d16  |    |		.DEBUG	0x07e3,0x0d16,0x0004,0x0000,0x0039,0x33e6,0x0000,0x06f1
0ac2 07fb 0d1c  |    |		.DEBUG	0x07fb,0x0d1c,0x0004,0x0000,0x0039,0x33e6,0x0000,0x0717
0aca 081b 0d22  |   "|		.DEBUG	0x081b,0x0d22,0x0004,0x0000,0x0039,0x33e6,0x0000,0x073d
0ad2 083b 0d28  | ; (|		.DEBUG	0x083b,0x0d28,0x0004,0x0000,0x0039,0x33e6,0x0000,0x0638
0ada 086b 0d2e  | k .|		.DEBUG	0x086b,0x0d2e,0x0004,0x0000,0x0039,0x33e6,0x0000,0x08a1
0ae2 0893 0d38  |   8|		.DEBUG	0x0893,0x0d38,0x0004,0x0000,0x0039,0x33e6,0x0000,0x08f3
0aea 08d3 0d48  |   H|		.DEBUG	0x08d3,0x0d48,0x0004,0x0000,0x0039,0x33e6,0x0000,0x093e
0af2 0943 0d58  | C X|		.DEBUG	0x0943,0x0d58,0x0004,0x0000,0x0039,0x33e6,0x0000,0x095f
0afa ; --------------------------------------------------------------------------------------
0afa ; Debug3 Subtable 0x0
0afa ; --------------------------------------------------------------------------------------
0afa 0020 0000  |    |		.DBG3TAB	0x0020,0x0000
0afc 000b ffff  |    |		.CONST	0x000b,0xffff
0afe 000d fffe  |    |		.CONST	0x000d,0xfffe
0b00 0012 fffd  |    |		.CONST	0x0012,0xfffd
0b02 0014 fffc  |    |		.CONST	0x0014,0xfffc
0b04 0016 fffb  |    |		.CONST	0x0016,0xfffb
0b06 0018 fffa  |    |		.CONST	0x0018,0xfffa
0b08 001e fff9  |    |		.CONST	0x001e,0xfff9
0b0a 0020 fff8  |    |		.CONST	0x0020,0xfff8
0b0c 0022 fff7  | "  |		.CONST	0x0022,0xfff7
0b0e 0024 fff6  | $  |		.CONST	0x0024,0xfff6
0b10 0026 fff5  | &  |		.CONST	0x0026,0xfff5
0b12 0028 fff4  | (  |		.CONST	0x0028,0xfff4
0b14 002a fff3  | *  |		.CONST	0x002a,0xfff3
0b16 002c fff2  | ,  |		.CONST	0x002c,0xfff2
0b18 002e fff1  | .  |		.CONST	0x002e,0xfff1
0b1a 002f fff0  | /  |		.CONST	0x002f,0xfff0
0b1c 0031 ffef  | 1  |		.CONST	0x0031,0xffef
0b1e 0033 ffee  | 3  |		.CONST	0x0033,0xffee
0b20 0035 ffed  | 5  |		.CONST	0x0035,0xffed
0b22 0037 ffec  | 7  |		.CONST	0x0037,0xffec
0b24 0039 ffeb  | 9  |		.CONST	0x0039,0xffeb
0b26 003a ffea  | :  |		.CONST	0x003a,0xffea
0b28 003b ffe9  | ;  |		.CONST	0x003b,0xffe9
0b2a 003c ffe8  | <  |		.CONST	0x003c,0xffe8
0b2c 003d ffe7  | =  |		.CONST	0x003d,0xffe7
0b2e 0042 ffe6  | B  |		.CONST	0x0042,0xffe6
0b30 0058 ffe5  | X  |		.CONST	0x0058,0xffe5
0b32 005c ffe4  | \  |		.CONST	0x005c,0xffe4
0b34 0062 ffe3  | b  |		.CONST	0x0062,0xffe3
0b36 0066 ffe2  | f  |		.CONST	0x0066,0xffe2
0b38 006b ffe1  | k  |		.CONST	0x006b,0xffe1
0b3a 0081 ffe0  |    |		.CONST	0x0081,0xffe0
0b3c ; --------------------------------------------------------------------------------------
0b3c ; Debug3 Subtable 0x1
0b3c ; --------------------------------------------------------------------------------------
0b3c 0020 0000  |    |		.DBG3TAB	0x0020,0x0000
0b3e 0088 ffff  |    |		.CONST	0x0088,0xffff
0b40 0089 fffe  |    |		.CONST	0x0089,0xfffe
0b42 008a fffd  |    |		.CONST	0x008a,0xfffd
0b44 008b fffc  |    |		.CONST	0x008b,0xfffc
0b46 00a0 fffb  |    |		.CONST	0x00a0,0xfffb
0b48 00b5 fffa  |    |		.CONST	0x00b5,0xfffa
0b4a 00ca fff9  |    |		.CONST	0x00ca,0xfff9
0b4c 00cc fff8  |    |		.CONST	0x00cc,0xfff8
0b4e 00d4 fff7  |    |		.CONST	0x00d4,0xfff7
0b50 00d8 fff6  |    |		.CONST	0x00d8,0xfff6
0b52 00e0 fff5  |    |		.CONST	0x00e0,0xfff5
0b54 00e8 fff4  |    |		.CONST	0x00e8,0xfff4
0b56 00ea fff3  |    |		.CONST	0x00ea,0xfff3
0b58 00ec fff2  |    |		.CONST	0x00ec,0xfff2
0b5a 00ee fff1  |    |		.CONST	0x00ee,0xfff1
0b5c 00f0 fff0  |    |		.CONST	0x00f0,0xfff0
0b5e 00f2 ffef  |    |		.CONST	0x00f2,0xffef
0b60 00f4 ffee  |    |		.CONST	0x00f4,0xffee
0b62 00f6 ffed  |    |		.CONST	0x00f6,0xffed
0b64 00f8 ffec  |    |		.CONST	0x00f8,0xffec
0b66 00fa ffeb  |    |		.CONST	0x00fa,0xffeb
0b68 00fc ffea  |    |		.CONST	0x00fc,0xffea
0b6a 00fe ffe9  |    |		.CONST	0x00fe,0xffe9
0b6c 0100 ffe8  |    |		.CONST	0x0100,0xffe8
0b6e 0102 ffe7  |    |		.CONST	0x0102,0xffe7
0b70 0104 ffe6  |    |		.CONST	0x0104,0xffe6
0b72 0106 ffe5  |    |		.CONST	0x0106,0xffe5
0b74 0108 ffe4  |    |		.CONST	0x0108,0xffe4
0b76 010a ffe3  |    |		.CONST	0x010a,0xffe3
0b78 010c ffe2  |    |		.CONST	0x010c,0xffe2
0b7a 010e ffe1  |    |		.CONST	0x010e,0xffe1
0b7c 0110 ffe0  |    |		.CONST	0x0110,0xffe0
0b7e ; --------------------------------------------------------------------------------------
0b7e ; Debug3 Subtable 0x2
0b7e ; --------------------------------------------------------------------------------------
0b7e 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0b80 ; --------------------------------------------------------------------------------------
0b80 ; Debug3 Subtable 0x3
0b80 ; --------------------------------------------------------------------------------------
0b80 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
0b82 0133 0001  | 3  |		.CONST	0x0133,0x0001
0b84 013c 0002  | <  |		.CONST	0x013c,0x0002
0b86 0145 0003  | E  |		.CONST	0x0145,0x0003
0b88 0151 0004  | Q  |		.CONST	0x0151,0x0004
0b8a 0160 0005  | `  |		.CONST	0x0160,0x0005
0b8c 016c 0006  | l  |		.CONST	0x016c,0x0006
0b8e 0181 0007  |    |		.CONST	0x0181,0x0007
0b90 ; --------------------------------------------------------------------------------------
0b90 ; Debug3 Subtable 0x4
0b90 ; --------------------------------------------------------------------------------------
0b90 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0b92 018b 0001  |    |		.CONST	0x018b,0x0001
0b94 0194 0002  |    |		.CONST	0x0194,0x0002
0b96 019c 0003  |    |		.CONST	0x019c,0x0003
0b98 01ab 0004  |    |		.CONST	0x01ab,0x0004
0b9a 01ba 0005  |    |		.CONST	0x01ba,0x0005
0b9c 01c9 0006  |    |		.CONST	0x01c9,0x0006
0b9e ; --------------------------------------------------------------------------------------
0b9e ; Debug3 Subtable 0x5
0b9e ; --------------------------------------------------------------------------------------
0b9e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0ba0 01dc 0001  |    |		.CONST	0x01dc,0x0001
0ba2 01e0 0002  |    |		.CONST	0x01e0,0x0002
0ba4 ; --------------------------------------------------------------------------------------
0ba4 ; Debug3 Subtable 0x6
0ba4 ; --------------------------------------------------------------------------------------
0ba4 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0ba6 01f1 0001  |    |		.CONST	0x01f1,0x0001
0ba8 01fa 0002  |    |		.CONST	0x01fa,0x0002
0baa 01fc 0003  |    |		.CONST	0x01fc,0x0003
0bac 01fe 0004  |    |		.CONST	0x01fe,0x0004
0bae ; --------------------------------------------------------------------------------------
0bae ; Debug3 Subtable 0x7
0bae ; --------------------------------------------------------------------------------------
0bae 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
0bb0 020b ffff  |    |		.CONST	0x020b,0xffff
0bb2 0217 0001  |    |		.CONST	0x0217,0x0001
0bb4 021d 0002  |    |		.CONST	0x021d,0x0002
0bb6 0226 0003  | &  |		.CONST	0x0226,0x0003
0bb8 0228 0004  | (  |		.CONST	0x0228,0x0004
0bba 022a 0005  | *  |		.CONST	0x022a,0x0005
0bbc ; --------------------------------------------------------------------------------------
0bbc ; Debug3 Subtable 0x8
0bbc ; --------------------------------------------------------------------------------------
0bbc 0003 0012  |    |		.DBG3TAB	0x0003,0x0012
0bbe 0233 ffff  | 3  |		.CONST	0x0233,0xffff
0bc0 0235 fffe  | 5  |		.CONST	0x0235,0xfffe
0bc2 0237 fffd  | 7  |		.CONST	0x0237,0xfffd
0bc4 0238 0001  | 8  |		.CONST	0x0238,0x0001
0bc6 0240 0002  | @  |		.CONST	0x0240,0x0002
0bc8 0249 0003  | I  |		.CONST	0x0249,0x0003
0bca 024f 0004  | O  |		.CONST	0x024f,0x0004
0bcc 026a 0005  | j  |		.CONST	0x026a,0x0005
0bce 026d 0006  | m  |		.CONST	0x026d,0x0006
0bd0 0276 0007  | v  |		.CONST	0x0276,0x0007
0bd2 027c 0008  | |  |		.CONST	0x027c,0x0008
0bd4 0297 0009  |    |		.CONST	0x0297,0x0009
0bd6 029a 000a  |    |		.CONST	0x029a,0x000a
0bd8 02a3 000b  |    |		.CONST	0x02a3,0x000b
0bda 02b4 000c  |    |		.CONST	0x02b4,0x000c
0bdc 02b6 000d  |    |		.CONST	0x02b6,0x000d
0bde 02b8 000e  |    |		.CONST	0x02b8,0x000e
0be0 02c1 000f  |    |		.CONST	0x02c1,0x000f
0be2 02c7 0010  |    |		.CONST	0x02c7,0x0010
0be4 02e2 0011  |    |		.CONST	0x02e2,0x0011
0be6 02e4 0012  |    |		.CONST	0x02e4,0x0012
0be8 ; --------------------------------------------------------------------------------------
0be8 ; Debug3 Subtable 0x9
0be8 ; --------------------------------------------------------------------------------------
0be8 0008 0012  |    |		.DBG3TAB	0x0008,0x0012
0bea 02eb ffff  |    |		.CONST	0x02eb,0xffff
0bec 02ed fffe  |    |		.CONST	0x02ed,0xfffe
0bee 02ef fffd  |    |		.CONST	0x02ef,0xfffd
0bf0 02f4 fffc  |    |		.CONST	0x02f4,0xfffc
0bf2 02f9 fffb  |    |		.CONST	0x02f9,0xfffb
0bf4 02fc fffa  |    |		.CONST	0x02fc,0xfffa
0bf6 02ff fff9  |    |		.CONST	0x02ff,0xfff9
0bf8 0300 fff8  |    |		.CONST	0x0300,0xfff8
0bfa 0305 0001  |    |		.CONST	0x0305,0x0001
0bfc 030d 0002  |    |		.CONST	0x030d,0x0002
0bfe 033a 0003  | :  |		.CONST	0x033a,0x0003
0c00 033c 0004  | <  |		.CONST	0x033c,0x0004
0c02 0345 0005  | E  |		.CONST	0x0345,0x0005
0c04 034b 0006  | K  |		.CONST	0x034b,0x0006
0c06 0361 0007  | a  |		.CONST	0x0361,0x0007
0c08 0364 0008  | d  |		.CONST	0x0364,0x0008
0c0a 0391 0009  |    |		.CONST	0x0391,0x0009
0c0c 0393 000a  |    |		.CONST	0x0393,0x000a
0c0e 039c 000b  |    |		.CONST	0x039c,0x000b
0c10 03a2 000c  |    |		.CONST	0x03a2,0x000c
0c12 03b8 000d  |    |		.CONST	0x03b8,0x000d
0c14 03bb 000e  |    |		.CONST	0x03bb,0x000e
0c16 03c4 000f  |    |		.CONST	0x03c4,0x000f
0c18 03d5 0010  |    |		.CONST	0x03d5,0x0010
0c1a 03d8 0011  |    |		.CONST	0x03d8,0x0011
0c1c 03d9 0012  |    |		.CONST	0x03d9,0x0012
0c1e ; --------------------------------------------------------------------------------------
0c1e ; Debug3 Subtable 0xa
0c1e ; --------------------------------------------------------------------------------------
0c1e 0005 000c  |    |		.DBG3TAB	0x0005,0x000c
0c20 03fb ffff  |    |		.CONST	0x03fb,0xffff
0c22 03fd fffe  |    |		.CONST	0x03fd,0xfffe
0c24 03ff fffd  |    |		.CONST	0x03ff,0xfffd
0c26 0404 fffc  |    |		.CONST	0x0404,0xfffc
0c28 0407 fffb  |    |		.CONST	0x0407,0xfffb
0c2a 040a 0001  |    |		.CONST	0x040a,0x0001
0c2c 040d 0002  |    |		.CONST	0x040d,0x0002
0c2e 040e 0003  |    |		.CONST	0x040e,0x0003
0c30 0417 0004  |    |		.CONST	0x0417,0x0004
0c32 0423 0005  | #  |		.CONST	0x0423,0x0005
0c34 0430 0006  | 0  |		.CONST	0x0430,0x0006
0c36 0433 0007  | 3  |		.CONST	0x0433,0x0007
0c38 0440 0008  | @  |		.CONST	0x0440,0x0008
0c3a 0443 0009  | C  |		.CONST	0x0443,0x0009
0c3c 0450 000a  | P  |		.CONST	0x0450,0x000a
0c3e 0452 000b  | R  |		.CONST	0x0452,0x000b
0c40 0453 000c  | S  |		.CONST	0x0453,0x000c
0c42 ; --------------------------------------------------------------------------------------
0c42 ; Debug3 Subtable 0xb
0c42 ; --------------------------------------------------------------------------------------
0c42 0002 0007  |    |		.DBG3TAB	0x0002,0x0007
0c44 045b ffff  | [  |		.CONST	0x045b,0xffff
0c46 045d fffe  | ]  |		.CONST	0x045d,0xfffe
0c48 045f 0001  | _  |		.CONST	0x045f,0x0001
0c4a 0462 0002  | b  |		.CONST	0x0462,0x0002
0c4c 0463 0003  | c  |		.CONST	0x0463,0x0003
0c4e 046c 0004  | l  |		.CONST	0x046c,0x0004
0c50 047a 0005  | z  |		.CONST	0x047a,0x0005
0c52 047d 0006  | }  |		.CONST	0x047d,0x0006
0c54 048b 0007  |    |		.CONST	0x048b,0x0007
0c56 ; --------------------------------------------------------------------------------------
0c56 ; Debug3 Subtable 0xc
0c56 ; --------------------------------------------------------------------------------------
0c56 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0c58 0493 0001  |    |		.CONST	0x0493,0x0001
0c5a ; --------------------------------------------------------------------------------------
0c5a ; Debug3 Subtable 0xd
0c5a ; --------------------------------------------------------------------------------------
0c5a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0c5c 049b 0001  |    |		.CONST	0x049b,0x0001
0c5e ; --------------------------------------------------------------------------------------
0c5e ; Debug3 Subtable 0xe
0c5e ; --------------------------------------------------------------------------------------
0c5e 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
0c60 04ab 0001  |    |		.CONST	0x04ab,0x0001
0c62 04b5 0002  |    |		.CONST	0x04b5,0x0002
0c64 04b6 0003  |    |		.CONST	0x04b6,0x0003
0c66 04b7 0004  |    |		.CONST	0x04b7,0x0004
0c68 04bf 0005  |    |		.CONST	0x04bf,0x0005
0c6a 04c1 0006  |    |		.CONST	0x04c1,0x0006
0c6c 04c3 0007  |    |		.CONST	0x04c3,0x0007
0c6e 04c5 0008  |    |		.CONST	0x04c5,0x0008
0c70 ; --------------------------------------------------------------------------------------
0c70 ; Debug3 Subtable 0xf
0c70 ; --------------------------------------------------------------------------------------
0c70 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0c72 04d3 0001  |    |		.CONST	0x04d3,0x0001
0c74 04db 0002  |    |		.CONST	0x04db,0x0002
0c76 04e6 0003  |    |		.CONST	0x04e6,0x0003
0c78 04f1 0004  |    |		.CONST	0x04f1,0x0004
0c7a ; --------------------------------------------------------------------------------------
0c7a ; Debug3 Subtable 0x10
0c7a ; --------------------------------------------------------------------------------------
0c7a 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0c7c 04fb 0001  |    |		.CONST	0x04fb,0x0001
0c7e 0503 0002  |    |		.CONST	0x0503,0x0002
0c80 050a 0003  |    |		.CONST	0x050a,0x0003
0c82 0511 0004  |    |		.CONST	0x0511,0x0004
0c84 0517 0005  |    |		.CONST	0x0517,0x0005
0c86 ; --------------------------------------------------------------------------------------
0c86 ; Debug3 Subtable 0x11
0c86 ; --------------------------------------------------------------------------------------
0c86 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
0c88 0523 0001  | #  |		.CONST	0x0523,0x0001
0c8a 052b 0002  | +  |		.CONST	0x052b,0x0002
0c8c 0537 0003  | 7  |		.CONST	0x0537,0x0003
0c8e 0543 0004  | C  |		.CONST	0x0543,0x0004
0c90 0546 0005  | F  |		.CONST	0x0546,0x0005
0c92 ; --------------------------------------------------------------------------------------
0c92 ; Debug3 Subtable 0x12
0c92 ; --------------------------------------------------------------------------------------
0c92 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0c94 ; --------------------------------------------------------------------------------------
0c94 ; Debug3 Subtable 0x13
0c94 ; --------------------------------------------------------------------------------------
0c94 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0c96 ; --------------------------------------------------------------------------------------
0c96 ; Debug3 Subtable 0x14
0c96 ; --------------------------------------------------------------------------------------
0c96 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0c98 ; --------------------------------------------------------------------------------------
0c98 ; Debug3 Subtable 0x15
0c98 ; --------------------------------------------------------------------------------------
0c98 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0c9a ; --------------------------------------------------------------------------------------
0c9a ; Debug3 Subtable 0x16
0c9a ; --------------------------------------------------------------------------------------
0c9a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0c9c ; --------------------------------------------------------------------------------------
0c9c ; Debug3 Subtable 0x17
0c9c ; --------------------------------------------------------------------------------------
0c9c 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0c9e ; --------------------------------------------------------------------------------------
0c9e ; Debug3 Subtable 0x18
0c9e ; --------------------------------------------------------------------------------------
0c9e 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0ca0 066b ffff  | k  |		.CONST	0x066b,0xffff
0ca2 066c 0001  | l  |		.CONST	0x066c,0x0001
0ca4 066e 0002  | n  |		.CONST	0x066e,0x0002
0ca6 ; --------------------------------------------------------------------------------------
0ca6 ; Debug3 Subtable 0x19
0ca6 ; --------------------------------------------------------------------------------------
0ca6 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
0ca8 067b ffff  | {  |		.CONST	0x067b,0xffff
0caa 067c 0001  | |  |		.CONST	0x067c,0x0001
0cac 067e 0002  | ~  |		.CONST	0x067e,0x0002
0cae ; --------------------------------------------------------------------------------------
0cae ; Debug3 Subtable 0x1a
0cae ; --------------------------------------------------------------------------------------
0cae 0004 000a  |    |		.DBG3TAB	0x0004,0x000a
0cb0 068b ffff  |    |		.CONST	0x068b,0xffff
0cb2 068f fffe  |    |		.CONST	0x068f,0xfffe
0cb4 0695 fffd  |    |		.CONST	0x0695,0xfffd
0cb6 0696 fffc  |    |		.CONST	0x0696,0xfffc
0cb8 069d 0001  |    |		.CONST	0x069d,0x0001
0cba 06a2 0002  |    |		.CONST	0x06a2,0x0002
0cbc 06a9 0005  |    |		.CONST	0x06a9,0x0005
0cbe 06aa 0003  |    |		.CONST	0x06aa,0x0003
0cc0 06ae 0004  |    |		.CONST	0x06ae,0x0004
0cc2 06b4 0006  |    |		.CONST	0x06b4,0x0006
0cc4 06b9 0007  |    |		.CONST	0x06b9,0x0007
0cc6 06bb 0008  |    |		.CONST	0x06bb,0x0008
0cc8 06c2 0009  |    |		.CONST	0x06c2,0x0009
0cca 06c9 000a  |    |		.CONST	0x06c9,0x000a
0ccc ; --------------------------------------------------------------------------------------
0ccc ; Debug3 Subtable 0x1b
0ccc ; --------------------------------------------------------------------------------------
0ccc 0000 000b  |    |		.DBG3TAB	0x0000,0x000b
0cce 06d3 0001  |    |		.CONST	0x06d3,0x0001
0cd0 06de 0002  |    |		.CONST	0x06de,0x0002
0cd2 06e0 0003  |    |		.CONST	0x06e0,0x0003
0cd4 06eb 0004  |    |		.CONST	0x06eb,0x0004
0cd6 06ed 0005  |    |		.CONST	0x06ed,0x0005
0cd8 06f8 0006  |    |		.CONST	0x06f8,0x0006
0cda 06fa 0007  |    |		.CONST	0x06fa,0x0007
0cdc 070a 0008  |    |		.CONST	0x070a,0x0008
0cde 070c 0009  |    |		.CONST	0x070c,0x0009
0ce0 070e 000a  |    |		.CONST	0x070e,0x000a
0ce2 0710 000b  |    |		.CONST	0x0710,0x000b
0ce4 ; --------------------------------------------------------------------------------------
0ce4 ; Debug3 Subtable 0x1c
0ce4 ; --------------------------------------------------------------------------------------
0ce4 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0ce6 071b 0001  |    |		.CONST	0x071b,0x0001
0ce8 0725 0006  | %  |		.CONST	0x0725,0x0006
0cea 0727 0002  | '  |		.CONST	0x0727,0x0002
0cec 0730 0003  | 0  |		.CONST	0x0730,0x0003
0cee 073c 0004  | <  |		.CONST	0x073c,0x0004
0cf0 0747 0005  | G  |		.CONST	0x0747,0x0005
0cf2 ; --------------------------------------------------------------------------------------
0cf2 ; Debug3 Subtable 0x1d
0cf2 ; --------------------------------------------------------------------------------------
0cf2 0004 0001  |    |		.DBG3TAB	0x0004,0x0001
0cf4 0753 ffff  | S  |		.CONST	0x0753,0xffff
0cf6 0758 fffe  | X  |		.CONST	0x0758,0xfffe
0cf8 0764 fffd  | d  |		.CONST	0x0764,0xfffd
0cfa 0768 fffc  | h  |		.CONST	0x0768,0xfffc
0cfc 0770 0001  | p  |		.CONST	0x0770,0x0001
0cfe ; --------------------------------------------------------------------------------------
0cfe ; Debug3 Subtable 0x1e
0cfe ; --------------------------------------------------------------------------------------
0cfe 0004 0001  |    |		.DBG3TAB	0x0004,0x0001
0d00 0783 ffff  |    |		.CONST	0x0783,0xffff
0d02 078a fffe  |    |		.CONST	0x078a,0xfffe
0d04 0794 fffd  |    |		.CONST	0x0794,0xfffd
0d06 0798 fffc  |    |		.CONST	0x0798,0xfffc
0d08 07a0 0001  |    |		.CONST	0x07a0,0x0001
0d0a ; --------------------------------------------------------------------------------------
0d0a ; Debug3 Subtable 0x1f
0d0a ; --------------------------------------------------------------------------------------
0d0a 0004 0001  |    |		.DBG3TAB	0x0004,0x0001
0d0c 07b3 ffff  |    |		.CONST	0x07b3,0xffff
0d0e 07ba fffe  |    |		.CONST	0x07ba,0xfffe
0d10 07c4 fffd  |    |		.CONST	0x07c4,0xfffd
0d12 07c8 fffc  |    |		.CONST	0x07c8,0xfffc
0d14 07d0 0001  |    |		.CONST	0x07d0,0x0001
0d16 ; --------------------------------------------------------------------------------------
0d16 ; Debug3 Subtable 0x20
0d16 ; --------------------------------------------------------------------------------------
0d16 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0d18 07e3 ffff  |    |		.CONST	0x07e3,0xffff
0d1a 07eb 0001  |    |		.CONST	0x07eb,0x0001
0d1c ; --------------------------------------------------------------------------------------
0d1c ; Debug3 Subtable 0x21
0d1c ; --------------------------------------------------------------------------------------
0d1c 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0d1e 07fb ffff  |    |		.CONST	0x07fb,0xffff
0d20 0803 0001  |    |		.CONST	0x0803,0x0001
0d22 ; --------------------------------------------------------------------------------------
0d22 ; Debug3 Subtable 0x22
0d22 ; --------------------------------------------------------------------------------------
0d22 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0d24 081b ffff  |    |		.CONST	0x081b,0xffff
0d26 0823 0001  | #  |		.CONST	0x0823,0x0001
0d28 ; --------------------------------------------------------------------------------------
0d28 ; Debug3 Subtable 0x23
0d28 ; --------------------------------------------------------------------------------------
0d28 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0d2a 083b 0001  | ;  |		.CONST	0x083b,0x0001
0d2c 0861 0002  | a  |		.CONST	0x0861,0x0002
0d2e ; --------------------------------------------------------------------------------------
0d2e ; Debug3 Subtable 0x24
0d2e ; --------------------------------------------------------------------------------------
0d2e 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0d30 086b ffff  | k  |		.CONST	0x086b,0xffff
0d32 0870 0001  | p  |		.CONST	0x0870,0x0001
0d34 0880 0002  |    |		.CONST	0x0880,0x0002
0d36 0886 0003  |    |		.CONST	0x0886,0x0003
0d38 ; --------------------------------------------------------------------------------------
0d38 ; Debug3 Subtable 0x25
0d38 ; --------------------------------------------------------------------------------------
0d38 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
0d3a 0893 ffff  |    |		.CONST	0x0893,0xffff
0d3c 0898 fffe  |    |		.CONST	0x0898,0xfffe
0d3e 089b 0001  |    |		.CONST	0x089b,0x0001
0d40 08c1 0002  |    |		.CONST	0x08c1,0x0002
0d42 08c3 0003  |    |		.CONST	0x08c3,0x0003
0d44 08c7 0004  |    |		.CONST	0x08c7,0x0004
0d46 08ca 0005  |    |		.CONST	0x08ca,0x0005
0d48 ; --------------------------------------------------------------------------------------
0d48 ; Debug3 Subtable 0x26
0d48 ; --------------------------------------------------------------------------------------
0d48 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
0d4a 08d3 ffff  |    |		.CONST	0x08d3,0xffff
0d4c 08d8 fffe  |    |		.CONST	0x08d8,0xfffe
0d4e 08db 0001  |    |		.CONST	0x08db,0x0001
0d50 0901 0002  |    |		.CONST	0x0901,0x0002
0d52 0903 0003  |    |		.CONST	0x0903,0x0003
0d54 0907 0004  |    |		.CONST	0x0907,0x0004
0d56 090a 0005  |    |		.CONST	0x090a,0x0005
0d58 ; --------------------------------------------------------------------------------------
0d58 ; Debug3 Subtable 0x27
0d58 ; --------------------------------------------------------------------------------------
0d58 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0d5a 0943 ffff  | C  |		.CONST	0x0943,0xffff
0d5c 0948 0001  | H  |		.CONST	0x0948,0x0001
0d5e 094b 0002  | K  |		.CONST	0x094b,0x0002
0d60 0950 0003  | P  |		.CONST	0x0950,0x0003
0d62 0000 0000  |    |		.BLANK	0000[0x9e]